|
DataMuseum.dkPresents historical artifacts from the history of: Philips Data Systems |
This is an automatic "excavation" of a thematic subset of
See our Wiki for more about Philips Data Systems Excavated with: AutoArchaeologist - Free & Open Source Software. |
top - metricsIndex: / A C D E G H K L M N O P R S T V p ½
Length: 3539040 (0x360060)
Description: Bits:30009682 Philips computer tape "600304"
Types: SimhTapContainer, ½" Magnetic Tape
| name | artifact |
|---|---|
| INT:PROD | «none» |
| INT:PROD//OBJCT.OB | ⟦d896fbcee⟧ pts_type |
| M:92NA | «none» |
| M:92NA//OBJCT.OB | ⟦b994abcf5⟧ pts_type |
| M:92NA/ADDMOD.SC | ⟦6d6263adb⟧ pts_type |
| M:92NA/CTAB01.SC | ⟦1c7265b9a⟧ pts_type |
| M:92NA/CTABX.SC | ⟦3769dd56c⟧ pts_type |
| M:92NA/DFTAB.SC | ⟦abe5da9c8⟧ pts_type |
| M:92NA/DIVMOD.SC | ⟦7b14bf61f⟧ pts_type |
| M:92NA/DMBUF.SC | ⟦0aa60395e⟧ pts_type |
| M:92NA/DMFDB.SC | ⟦d66029dfa⟧ pts_type |
| M:92NA/DMINIT.SC | ⟦edfbc020d⟧ pts_type |
| M:92NA/DMSUBR.SC | ⟦bb4ee61eb⟧ pts_type |
| M:92NA/DMSUBX.SC | ⟦211c916bf⟧ pts_type |
| M:92NA/DMTASK.SC | ⟦c52fc4326⟧ pts_type |
| M:92NA/DMTASS.SC | ⟦f3aaf19bf⟧ pts_type |
| M:92NA/DRDC15.SC | ⟦c2c1612d2⟧ pts_type |
| M:92NA/DRDI01.SC | ⟦a4e53906d⟧ pts_type |
| M:92NA/DRDY01.SC | ⟦0b6bf5928⟧ pts_type |
| M:92NA/DRFD01.SC | ⟦de23df58a⟧ pts_type |
| M:92NA/DRGP01.SC | ⟦2c9d4cb14⟧ pts_type |
| M:92NA/DRIC01.SC | ⟦36dd4bef2⟧ pts_type |
| M:92NA/DRKB03.SC | ⟦75e3c4147⟧ pts_type |
| M:92NA/DRRT01.SC | ⟦0ad0da5ca⟧ pts_type |
| M:92NA/DRSOP1.SC | ⟦8e2f00fbe⟧ pts_type |
| M:92NA/DRTP02.SC | ⟦af5b6e693⟧ pts_type |
| M:92NA/DSUMOD.SC | ⟦3cbe7dc60⟧ pts_type |
| M:92NA/DVDI02.SC | ⟦a0c0bf9a7⟧ pts_type |
| M:92NA/DVDY00.SC | ⟦437887695⟧ pts_type |
| M:92NA/DVDY01.SC | ⟦32078cd6c⟧ pts_type |
| M:92NA/DVDY02.SC | ⟦391a644a7⟧ pts_type |
| M:92NA/DVGP03.SC | ⟦ce805ab9d⟧ pts_type |
| M:92NA/DVKB00.SC | ⟦6b9bcefb1⟧ pts_type |
| M:92NA/DVKB01.SC | ⟦0f124b823⟧ pts_type |
| M:92NA/DVKB02.SC | ⟦b7c7263eb⟧ pts_type |
| M:92NA/DVTDI.SC | ⟦1d2fc504c⟧ pts_type |
| M:92NA/DVTDY.SC | ⟦963eba64a⟧ pts_type |
| M:92NA/DVTGP.SC | ⟦93b53e66f⟧ pts_type |
| M:92NA/DVTKB.SC | ⟦67db6cb42⟧ pts_type |
| M:92NA/DVTP01.SC | ⟦39f0b5b05⟧ pts_type |
| M:92NA/DVTTP.SC | ⟦a7d1d2605⟧ pts_type |
| M:92NA/DW1501.SC | ⟦96373f23e⟧ pts_type |
| M:92NA/DWII01.SC | ⟦7a8c09fcc⟧ pts_type |
| M:92NA/DWIO01.SC | ⟦386c74ced⟧ pts_type |
| M:92NA/EBCDIC.SC | ⟦43dac7285⟧ pts_type |
| M:92NA/LDTASK.SC | ⟦509a88e8f⟧ pts_type |
| M:92NA/LKMAL.SC | ⟦25f335d67⟧ pts_type |
| M:92NA/LRPINT.SC | ⟦951bb7df7⟧ pts_type |
| M:92NA/M:92LP.LM | ⟦10b6d1b0a⟧ pts_type |
| M:92NA/M:92N1.LM | ⟦7c75115fe⟧ pts_type |
| M:92NA/M:92N1.UF | ⟦24cd7efb7⟧ pts_type |
| M:92NA/M:92NA.LM | ⟦0f44c8f93⟧ pts_type |
| M:92NA/M:92NA.UF | ⟦997281c1d⟧ pts_type |
| M:92NA/M:92NE.LM | ⟦25e03f200⟧ pts_type |
| M:92NA/M:92NE.UF | ⟦c57effc26⟧ pts_type |
| M:92NA/MONTAB.SC | ⟦88847afeb⟧ pts_type |
| M:92NA/MONTIM.SC | ⟦e3bdb0a74⟧ pts_type |
| M:92NA/MPYMOD.SC | ⟦b8982b499⟧ pts_type |
| M:92NA/MSUBS.SC | ⟦ae4944be6⟧ pts_type |
| M:92NA/NJDC15.SC | ⟦3240f1c40⟧ pts_type |
| M:92NA/PFTAB.SC | ⟦033121915⟧ pts_type |
| M:92NA/SCLASS.SC | ⟦02082f5a5⟧ pts_type |
| M:92NA/SYSLDA.SC | ⟦9c4a54036⟧ pts_type |
| M:92NA/SYSLDM.SC | ⟦1b67e8497⟧ pts_type |
| M:92NA/SYSTAB.SC | ⟦bcd6cf973⟧ pts_type |
| M:92NA/TABORT.SC | ⟦28ff1271c⟧ pts_type |
| M:92NA/TASS.SC | ⟦d19681016⟧ pts_type |
| M:92NA/TCLASS.SC | ⟦327a0656b⟧ pts_type |
| M:92NA/TDISP.SC | ⟦78bad221e⟧ pts_type |
| M:92NA/TEST.UF | ⟦43600b892⟧ pts_type |
| M:92NA/TIMER.SC | ⟦22141529d⟧ pts_type |
| M:92NA/TIODM.SC | ⟦98fdfd8e9⟧ pts_type |
| M:92NA/TLDSEG.SC | ⟦c98812760⟧ pts_type |
| M:92NA/TMMLKM.SC | ⟦3cbd60306⟧ pts_type |
| M:92NA/TOSSIO.SC | ⟦221345043⟧ pts_type |
| M:92NA/TPROC.SC | ⟦aaa790319⟧ pts_type |
| M:92NA/TTMJOB.SC | ⟦02300311a⟧ pts_type |
| MUKDCM | «none» |
| MUKDCM/CTAB01.SC | ⟦ea8ecb7c4⟧ pts_type |
| MUKDCM/CTAB02.SC | ⟦8eb26eea4⟧ pts_type |
| MUKDCM/CTAB03.SC | ⟦b9bc76c13⟧ pts_type |
| MUKDCM/CTABX.SC | ⟦3769dd56c⟧ pts_type |
| MUKDCM/EBCDIC.SC | ⟦1c61c084b⟧ pts_type |
| MUKDCM/MUKDCM.LM | ⟦beef67e1b⟧ pts_type |
| MUKDCM/MUKDCM.UF | ⟦673aca365⟧ pts_type |
| MUKDCM/SYSTAB.SC | ⟦3c3787893⟧ pts_type |
| NJ-AMT | «none» |
| NJ-AMT//OBJCT.OB | ⟦d9be10764⟧ pts_type |
| NJ-AMT/ADM6.SC | ⟦1f4957b4d⟧ pts_type |
| NJ-AMT/ADM6D.SC | ⟦e068857a2⟧ pts_type |
| NJ-AMT/CONNJ.UF | ⟦267e8d6e3⟧ pts_type |
| NJ-AMT/CONNJ1.UF | ⟦785cf11d4⟧ pts_type |
| NJ-AMT/CONNJ2.UF | ⟦010224e04⟧ pts_type |
| NJ-AMT/CONNJ3.UF | ⟦010224e04⟧ pts_type |
| NJ-AMT/CONNJ4.UF | ⟦11c4b2781⟧ pts_type |
| NJ-AMT/CONNJ5.UF | ⟦4be521123⟧ pts_type |
| NJ-AMT/CONNJ6.UF | ⟦3066ba547⟧ pts_type |
| NJ-AMT/CONNJ7.UF | ⟦c3abfb1d1⟧ pts_type |
| NJ-AMT/CONNJ8.UF | ⟦ec965d600⟧ pts_type |
| NJ-AMT/CONNJ9.UF | ⟦f4a79e160⟧ pts_type |
| NJ-AMT/CONNJT.UF | ⟦a7d9ee75a⟧ pts_type |
| NJ-AMT/CTAB01.SC | ⟦ea8ecb7c4⟧ pts_type |
| NJ-AMT/CTEST.UF | ⟦44fb3898d⟧ pts_type |
| NJ-AMT/DCTSK.SC | ⟦103aa399a⟧ pts_type |
| NJ-AMT/DIVFMT.SC | ⟦903648290⟧ pts_type |
| NJ-AMT/DKEBCD.SC | ⟦3ce4ce33a⟧ pts_type |
| NJ-AMT/DKLD.LM | ⟦7b7e91148⟧ pts_type |
| NJ-AMT/DKLICO.SC | ⟦5461ec3e2⟧ pts_type |
| NJ-AMT/DKSUBS.SC | ⟦73380b182⟧ pts_type |
| NJ-AMT/EQUATE.SC | ⟦611578ae7⟧ pts_type |
| NJ-AMT/HELP.UF | ⟦ebcac101f⟧ pts_type |
| NJ-AMT/KM080.UF | ⟦332d2cb51⟧ pts_type |
| NJ-AMT/KM0801.UF | ⟦3e1a6e895⟧ pts_type |
| NJ-AMT/KM0802.UF | ⟦e06e78c75⟧ pts_type |
| NJ-AMT/KM0803.UF | ⟦5aeee66db⟧ pts_type |
| NJ-AMT/KM0804.UF | ⟦e5468c70f⟧ pts_type |
| NJ-AMT/KM0805.UF | ⟦4e7e87e8c⟧ pts_type |
| NJ-AMT/KM0806.UF | ⟦acaa814a1⟧ pts_type |
| NJ-AMT/KM0807.UF | ⟦7222c2ce9⟧ pts_type |
| NJ-AMT/KM0808.UF | ⟦cb7dafcf8⟧ pts_type |
| NJ-AMT/KM0809.UF | ⟦1a2ca7187⟧ pts_type |
| NJ-AMT/KMD08.SC | ⟦fbcc666f4⟧ pts_type |
| NJ-AMT/KMDFIL.UF | ⟦40c31cfa9⟧ pts_type |
| NJ-AMT/KMDIO.SC | ⟦754f2cd41⟧ pts_type |
| NJ-AMT/KMDNR.UF | ⟦0e1407c94⟧ pts_type |
| NJ-AMT/KTOPR.SC | ⟦e67e6e687⟧ pts_type |
| NJ-AMT/KTOPRD.SC | ⟦1e7dda7b5⟧ pts_type |
| NJ-AMT/KTPLN.SC | ⟦fa23a5edd⟧ pts_type |
| NJ-AMT/KTPLND.SC | ⟦9541b0bf4⟧ pts_type |
| NJ-AMT/KY6272.SC | ⟦a2d86f45a⟧ pts_type |
| NJ-AMT/LEDFIL.UF | ⟦456d23aa2⟧ pts_type |
| NJ-AMT/LEDLS.UF | ⟦f8a2f2cb8⟧ pts_type |
| NJ-AMT/LISTE.UF | ⟦8a85932a7⟧ pts_type |
| NJ-AMT/M:PROC.UF | ⟦f041c9f5d⟧ pts_type |
| NJ-AMT/OBDIR.UF | ⟦e86012f97⟧ pts_type |
| NJ-AMT/PRT.SC | ⟦48b1b98cc⟧ pts_type |
| NJ-AMT/RELUP.UF | ⟦a19add81a⟧ pts_type |
| NJ-AMT/RGADM.SC | ⟦9f91ec39d⟧ pts_type |
| NJ-AMT/RGFRMT.SC | ⟦bd3e996a0⟧ pts_type |
| NJ-AMT/RGLIST.UF | ⟦db5c1ad4b⟧ pts_type |
| NJ-AMT/RGLOAD.LM | ⟦7e41043a4⟧ pts_type |
| NJ-AMT/RGMAIN.SC | ⟦bec80d68e⟧ pts_type |
| NJ-AMT/RGMND.SC | ⟦43cde463e⟧ pts_type |
| NJ-AMT/RGOBJ.UF | ⟦999fb3989⟧ pts_type |
| NJ-AMT/RGSTRT.SC | ⟦9ccc93fad⟧ pts_type |
| NJ-AMT/RGSUB1.SC | ⟦eb4b57be5⟧ pts_type |
| NJ-AMT/RGSUB2.SC | ⟦a1860fe42⟧ pts_type |
| NJ-AMT/RGSUB3.SC | ⟦522b6d9cc⟧ pts_type |
| NJ-AMT/RGSUBS.SC | ⟦126b63020⟧ pts_type |
| NJ-AMT/SCREEN.SC | ⟦08769054b⟧ pts_type |
| NJ-AMT/SL6272.SC | ⟦a32d55d09⟧ pts_type |
| NJ-AMT/START.SC | ⟦2a16800c4⟧ pts_type |
| NJ-AMT/SUBAPL.SC | ⟦b4bf83468⟧ pts_type |
| NJ-AMT/TB3270.SC | ⟦6c0ac11ce⟧ pts_type |
| NJ-AMT/TEST.UF | ⟦c250389a2⟧ pts_type |
| NJ-AMT/VDUPRT.SC | ⟦64fd24264⟧ pts_type |
0x000000…000ca0 (0, 0) DirGranule ((0, 0)) {
0x000000…000ca0 DirEnt {nam=»M:92NA«, typ=» «, f00=0x0000, f01=0x0000, f02=0x0800, f03=0x0000}
0x000000…000ca0 DirEnt {nam=»M:92NA«, typ=»UF«, f00=0x0000, f01=0x0000, f02=0x0810, f03=0x0000}
0x000000…000ca0 DirEnt {nam=»TCLASS«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x2190, f03=0x0000}
0x000000…000ca0 DirEnt {nam=»/OBJCT«, typ=»OB«, f00=0x0000, f01=0x0000, f02=0x0938, f03=0x0000}
0x000000…000ca0 DirEnt {nam=»SCLASS«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0920, f03=0x0000}
0x000000…000ca0 DirEnt {nam=»MONTAB«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0948, f03=0x0000}
0x000000…000ca0 DirEnt {nam=»SYSTAB«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x2038, f03=0x0000}
0x000000…000ca0 DirEnt {nam=»TDISP «, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0968, f03=0x0000}
0x000000…000ca0 DirEnt {nam=»LRPINT«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x1068, f03=0x0000}
0x000000…000ca0 DirEnt {nam=»TPROC «, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0cc8, f03=0x0000}
0x000000…000ca0 DirEnt {nam=»MSUBS «, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0a28, f03=0x0000}
0x000000…000ca0 DirEnt {nam=»TTMJOB«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0a70, f03=0x0000}
0x000000…000ca0 DirEnt {nam=»TOSSIO«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0a80, f03=0x0000}
0x000000…000ca0 DirEnt {nam=»SYSLDM«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0ab0, f03=0x0000}
0x000000…000ca0 DirEnt {nam=»SYSLDA«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0bc0, f03=0x0000}
0x000000…000ca0 DirEnt {nam=»LDTASK«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0c98, f03=0x0000}
0x000000…000ca0 DirEnt {nam=»PFTAB «, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x1080, f03=0x0000}
0x000000…000ca0 DirEnt {nam=»LKMAL «, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x1d38, f03=0x0000}
0x000000…000ca0 DirEnt {nam=»CTABX «, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x1078, f03=0x0000}
0x000000…000ca0 DirEnt {nam=»DVTKB «, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x1cc0, f03=0x0000}
0x000000…000ca0 DirEnt {nam=»DVTTP «, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0cd8, f03=0x0000}
0x000000…000ca0 DirEnt {nam=»DVTGP «, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0ce0, f03=0x0000}
0x000000…000ca0 DirEnt {nam=»DVTDI «, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0ce8, f03=0x0000}
0x000000…000ca0 DirEnt {nam=»DVTDY «, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0cf0, f03=0x0000}
0x000000…000ca0 DirEnt {nam=»DWII01«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0d30, f03=0x0000}
0x000000…000ca0 DirEnt {nam=»DWIO01«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0cf8, f03=0x0000}
0x000000…000ca0 DirEnt {nam=»DW1501«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0d00, f03=0x0000}
0x000000…000ca0 DirEnt {nam=»DRKB03«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x1c68, f03=0x0000}
0x000000…000ca0 DirEnt {nam=»DRTP02«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0d10, f03=0x0000}
0x000000…000ca0 DirEnt {nam=»DRGP01«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0d68, f03=0x0000}
0x000000…000ca0 DirEnt {nam=»DRDI01«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0da0, f03=0x0000}
0x000000…000ca0 DirEnt {nam=»DRDY01«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0dc8, f03=0x0000}
0x000000…000ca0 DirEnt {nam=»DRRT01«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x07d0, f03=0x0000}
0x000000…000ca0 DirEnt {nam=»DRSOP1«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x1ae8, f03=0x0000}
0x000000…000ca0 DirEnt {nam=»DRFD01«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x1b10, f03=0x0000}
0x000000…000ca0 DirEnt {nam=»DRIC01«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x1b98, f03=0x0000}
0x000000…000ca0 DirEnt {nam=»DRDC15«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x07c8, f03=0x0000}
0x000000…000ca0 DirEnt {nam=»EBCDIC«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x10f0, f03=0x0000}
0x000000…000ca0 DirEnt {nam=»TIMER «, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x1e40, f03=0x0000}
0x000000…000ca0 DirEnt {nam=»TMMLKM«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x1ce0, f03=0x0000}
0x000000…000ca0 DirEnt {nam=»TLDSEG«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0998, f03=0x0000}
0x000000…000ca0 DirEnt {nam=»TABORT«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x1cf8, f03=0x0000}
0x000000…000ca0 DirEnt {nam=»MONTIM«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x1d08, f03=0x0000}
0x000000…000ca0 DirEnt {nam=»TASS «, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x1ef0, f03=0x0000}
0x000000…000ca0 DirEnt {nam=»TIODM «, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x2080, f03=0x0000}
0x000000…000ca0 DirEnt {nam=»DMTASK«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x10a0, f03=0x0000}
0x000000…000ca0 DirEnt {nam=»DMINIT«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x1e88, f03=0x0000}
0x000000…000ca0 DirEnt {nam=»DMTASS«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x1ea0, f03=0x0000}
0x000000…000ca0 DirEnt {nam=»DMBUF «, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0928, f03=0x0000}
0x000000…000ca0 DirEnt {nam=»DMFDB «, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x1d28, f03=0x0000}
0x000000…000ca0 DirEnt {nam=»DFTAB «, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x1d20, f03=0x0000}
0x000000…000ca0 DirEnt {nam=»DMSUBX«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x1f38, f03=0x0000}
0x000000…000ca0 DirEnt {nam=»ADDMOD«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x1f68, f03=0x0000}
0x000000…000ca0 DirEnt {nam=»DSUMOD«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x1f80, f03=0x0000}
0x000000…000ca0 DirEnt {nam=»MPYMOD«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x1fb8, f03=0x0000}
0x000000…000ca0 DirEnt {nam=»DIVMOD«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x1fd0, f03=0x0000}
0x000000…000ca0 DirEnt {nam=»DMSUBR«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x1fe8, f03=0x0000}
0x000000…000ca0 DirEnt {nam=»DVKB00«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0e18, f03=0x0000}
0x000000…000ca0 DirEnt {nam=»DVDY00«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x1088, f03=0x0000}
0x000000…000ca0 DirEnt {nam=»DVKB01«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x2058, f03=0x0000}
0x000000…000ca0 DirEnt {nam=»DVTP01«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x2068, f03=0x0000}
0x000000…000ca0 DirEnt {nam=»DVDY01«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x2078, f03=0x0000}
0x000000…000ca0 DirEnt {nam=»DVKB02«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x2130, f03=0x0000}
0x000000…000ca0 DirEnt {nam=»DVDI02«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x2160, f03=0x0000}
0x000000…000ca0 DirEnt {nam=»DVDY02«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x2170, f03=0x0000}
0x000000…000ca0 DirEnt {nam=»DVGP03«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x2180, f03=0x0000}
0x000000…000ca0 DirEnt {nam=»M:92NA«, typ=»LM«, f00=0x0000, f01=0x0000, f02=0x0ee0, f03=0x0000}
0x000000…000ca0 DirEnt {nam=»CTAB01«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x07e0, f03=0x0000}
0x000000…000ca0 DirEnt {nam=»M:92NE«, typ=»UF«, f00=0x0000, f01=0x0000, f02=0x1100, f03=0x0000}
0x000000…000ca0 DirEnt {nam=»M:92NE«, typ=»LM«, f00=0x0000, f01=0x0000, f02=0x0890, f03=0x0000}
0x000000…000ca0 DirEnt {nam=»M:92N1«, typ=»UF«, f00=0x0000, f01=0x0000, f02=0x1378, f03=0x0000}
0x000000…000ca0 DirEnt {nam=»M:92N1«, typ=»LM«, f00=0x0000, f01=0x0000, f02=0x1050, f03=0x0000}
0x000000…000ca0 DirEnt {nam=»NJDC15«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0878, f03=0x0000}
0x000000…000ca0 DirEnt {nam=»TEST «, typ=»UF«, f00=0x0000, f01=0x0000, f02=0x0838, f03=0x0000}
0x000000…000ca0 DirEnt {nam=»M:92LP«, typ=»LM«, f00=0x0000, f01=0x0000, f02=0x1bf8, f03=0x0000}
0x000000…000ca0 }
0x000ca0…000e34 (0, 1) Opaque[0x194]
0x000e34…000fc8 # DirEnt {nam=»M:92NA«, typ=»UF«, f00=0x0000, f01=0x0000, f02=0x0810, f03=0x0000}
0x000e34…000fc8 IdxSect {
0x000e34…000fc8 f00 = 0x0040 // 0xe34 @0x0
0x000e34…000fc8 f01 = 0x0012 // 0xe36 @0x2
0x000e34…000fc8 gno = [ // 0xe38 @0x4
0x000e34…000fc8 [0x00]: C0x0040.0x2.0
0x000e34…000fc8 [0x01]: C0x0040.0x3.0
0x000e34…000fc8 [0x02]: C0x0043.0x0.0
0x000e34…000fc8 [0x03]: C0x0043.0x1.0
0x000e34…000fc8 [0x04]: C0x0043.0x2.0
0x000e34…000fc8 [0x05]: C0x0048.0x0.0
0x000e34…000fc8 [0x06]: C0x0048.0x1.0
0x000e34…000fc8 [0x07]: C0x0048.0x2.0
0x000e34…000fc8 [0x08]: C0x0048.0x3.0
0x000e34…000fc8 ]
0x000e34…000fc8 }
0x000fc8…00115c Dummy {f00=0x0040, f01=0x0190, f02=» ASG /02,NO MOV TCLASS,/S,TOSSWORK KPF /S,TCLASS 4 SCR J INC TCLASS,TOSSWORK V KPF /O r MOV SCLASS,/S,TOSSWORK KPF /S,SCLASS SCR INC SCLASS,TOSSWORK KPF /O MOV MONTAB,/S,TOSSWORK
0x00115c…0012f0 Dummy {f00=0x0040, f01=0x0190, f02=» MOV TDISP,/S,TOSSWORK KPF /S,TDISP " SCR 6 MOV LRPINT,/S,TOSSWORK B KPF /S,LRPINT ` SCR v MOV TPROC,/S,TOSSWORK KPF /S,TPROC SCR MOV MSUBS,/S,TOSSWORK KPF /S,MSUBS SCR MOV TTMJOB
0x0012f0…001484 Dummy {f00=0x0040, f01=0x0190, f02=»WORK ~ KPF /S,SYSLDM SCR " MOV SYSLDA,/S,TOSSWORK . KPF /S,SYSLDA L SCR b MOV LDTASK,/S,TOSSWORK n KPF /S,LDTASK SCR MOV PFTAB,/S,TOSSWORK KPF /S,PFTAB SCR MOV LKMAL,/S,TOSSWORK
0x001484…001618 Dummy {f00=0x0040, f01=0x0190, f02=»REDIT EQU 1$$ z ( #!!CH $$MMUPAG EQU 0$$MMUPAG EQU 1$$ ( #!!CH $$CPU852 EQU 1$$CPU852 EQU 0$$ B !!EN n ASM /S z KPF /O KPF /S SCR LED TDISP ( #!!CH $$CREDIT EQU 0$$CREDIT EQU 1$$ ( #!!CH $$MMUPAG EQU 0$$MMUPA
0x001618…0017ac Dummy {f00=0x0040, f01=0x0190, f02=»NT ( #!!CH $$CREDIT EQU 0$$CREDIT EQU 1$$ ( #!!CH $$MMUPAG EQU 0$$MMUPAG EQU 1$$ 6 ( #!!CH $$CPU852 EQU 1$$CPU852 EQU 0$$ b !!EN ASM /S KPF /O KPF /S SCR LED TPROC ( #!!CH $$CREDIT EQU 0$$CREDIT EQU 1$$
0x0017ac…001940 Dummy {f00=0x0040, f01=0x018e, f02=»F /S SCR LED MSUBS ( #!!CH $$CREDIT EQU 0$$CREDIT EQU 1$$ * ( #!!CH $$MMUPAG EQU 0$$MMUPAG EQU 1$$ V ( #!!CH $$CPU852 EQU 1$$CPU852 EQU 0$$ !!EN ASM /S KPF /O KPF /S SCR LED TTMJOB ( #!!CH $
0x001940…001ad4 (0, 2) Dummy {f00=0x0040, f01=0x0190, f02=» ASM /S KPF /O KPF /S SCR . LED TOSSIO : ( #!!CH $$CREDIT EQU 0$$CREDIT EQU 1$$ L ( #!!CH $$MMUPAG EQU 0$$MMUPAG EQU 1$$ x ( #!!CH $$CPU852 EQU 1$$CPU852 EQU 0$$ !!EN ASM /S KPF /O KPF /S SC
0x001ad4…001c68 Dummy {f00=0x0040, f01=0x0190, f02=»$CPU852 EQU 0$$ | !!EN ASM /S $ KPF /O 2 KPF /S @ SCR N LED SYSLDA Z ( #!!CH $$CREDIT EQU 0$$CREDIT EQU 1$$ l ( #!!CH $$MMUPAG EQU 0$$MMUPAG EQU 1$$ ( #!!CH $$CPU852 EQU 1$$CPU852 EQU 0$$ !!EN ASM /S
0x001c68…001dfc Dummy {f00=0x0040, f01=0x0190, f02=»1$$ p ( #!!CH $$CPU852 EQU 1$$CPU852 EQU 0$$ !!EN 8 ASM /S D KPF /O R KPF /S ` SCR n MOV DVTKB,/S,TOSSWORK z KPF /S,DVTKB SCR MOV DVTTP,/S,TOSSWORK KPF /S,DVTTP SCR MOV DVTGP,/S,TOSS
0x001dfc…001f90 Dummy {f00=0x0040, f01=0x0190, f02=»KPF /S,DVTDY SCR MOV DWII01,/S,TOSSWORK KPF /S,DWII01 > SCR T INC DWII01,TOSSWORK ` KPF /O | MOV DWIO01,/S,TOSSWORK KPF /S,DWIO01 SCR INC DWIO01,TOSSWORK KPF /O MOV DW1501,/S,TOSSWO
0x001f90…002124 Dummy {f00=0x0040, f01=0x0190, f02=»1$$ p ( #!!CH $$MMUPAG EQU 0$$MMUPAG EQU 1$$ ( #!!CH $$CPU852 EQU 1$$CPU852 EQU 0$$ 8 !!EN d ASM /S p KPF /O ~ KPF /S SCR LED DWIO01 ( #!!CH $$CREDIT EQU 0$$CREDIT EQU 1$$ ( #!!CH $$MMUPAG EQU 0$$MMUPAG EQU 1$$
0x002124…0022b8 Dummy {f00=0x0040, f01=0x0190, f02=»!!CH $$CREDIT EQU 0$$CREDIT EQU 1$$ ( #!!CH $$MMUPAG EQU 0$$MMUPAG EQU 1$$ , ( #!!CH $$CPU852 EQU 1$$CPU852 EQU 0$$ X !!EN ASM /S KPF /O KPF /S SCR MOV DRKB03,/S,TOSSWORK KPF /S,DRKB03 SCR MO
0x0022b8…00244c Dummy {f00=0x0040, f01=0x0190, f02=»,/S,TOSSWORK KPF /S,DRDI01 SCR * MOV DRDY01,/S,TOSSWORK 6 KPF /S,DRDY01 T SCR j MOV DRRT01,/S,TOSSWORK v KPF /S,DRRT01 SCR MOV DRSOP1,/S,TOSSWORK KPF /S,DRSOP1 SCR MOV DRFD01,/S,TOSS
0x00244c…0025e0 Dummy {f00=0x0040, f01=0x0190, f02=» KPF /S,DRDC15 SCR LED DRKB03 & !!CH $$ X:A$$ 1$$ 8 !!CH $$ X:B$$ 1$$ R !!CH $$ X:C$$ 1$$ l !!CH $$ X:D$$ 2$$ !!CH $$ X:E$$ 1$$ !!CH $$ X:F$$ 40$$ !!CH $$ X:G$$ 1$$ !!CH $$ X:H$$ 1$$
0x0025e0…002774 (0, 3) Dummy {f00=0x0043, f01=0x0190, f02=»G EQU 0$$MMUPAG EQU 1$$ ( #!!CH $$CPU852 EQU 1$$CPU852 EQU 0$$ !!EN L ASM /S X KPF /O f KPF /S t SCR LED DRTP02 !!CH $$ X:A$$ 0$$ !!CH $$ X:B$$ 0$$ !!CH $$ X:C$$ 0$$ !!CH $$ X:D$$ 0$$
0x002774…002908 Dummy {f00=0x0043, f01=0x0190, f02=»,/5E5F$$/2122,/2627,/3B3C,/3E40,/5E5F$$ r ( #!!CH $$CREDIT EQU 0$$CREDIT EQU 1$$ 0 ( #!!CH $$MMUPAG EQU 0$$MMUPAG EQU 1$$ ( #!!CH $$CPU852 EQU 1$$CPU852 EQU 0$$ !!EN ASM /S KPF /O KPF /S SCR LED DRGP01
0x002908…002a9c Dummy {f00=0x0043, f01=0x0190, f02=»$ X:F$$ 1$$ !!CH $$ X:G$$ 0$$ !!CH $$ X:H$$ 162$$ . ( #!!CH $$CREDIT EQU 0$$CREDIT EQU 1$$ J ( #!!CH $$MMUPAG EQU 0$$MMUPAG EQU 1$$ v ( #!!CH $$CPU852 EQU 1$$CPU852 EQU 0$$ !!EN ASM /S KPF /O KPF /S SCR
0x002a9c…002c30 Dummy {f00=0x0043, f01=0x0190, f02=»EQU 0$$MMUPAG EQU 1$$ ( #!!CH $$CPU852 EQU 1$$CPU852 EQU 0$$ !!EN J ASM /S V KPF /O d KPF /S r SCR LED DRDY01 !!CH $$ X:A$$ 0$$ !!CH $$ X:B$$ 1$$ !!CH $$ X:C$$ 0$$ !!CH $$ X:D$$ 0$$ !!
0x002c30…002dc4 Dummy {f00=0x0043, f01=0x0190, f02=»1$$ p ( #!!CH $$MMUPAG EQU 0$$MMUPAG EQU 1$$ ( #!!CH $$CPU852 EQU 1$$CPU852 EQU 0$$ 8 !!EN d ASM /S p KPF /O ~ KPF /S SCR LED DRRT01 !!CH $$ X:A$$ 0$$ !!CH $$ X:B$$ 1$$ !!CH $$ X:C$$ 0$$ !!
0x002dc4…002f58 Dummy {f00=0x0043, f01=0x0190, f02=»EQU 0$$MMUPAG EQU 1$$ ( #!!CH $$CPU852 EQU 1$$CPU852 EQU 0$$ !!EN J ASM /S V KPF /O d KPF /S r SCR LED DRSOP1 !!CH $$ X:A$$ 0$$ !!CH $$ X:B$$ 0$$ ( #!!CH $$CREDIT EQU 0$$CREDIT EQU 1$$ ( #!!CH $$MMU
0x002f58…0030ec Dummy {f00=0x0043, f01=0x018e, f02=» LED DRFD01 !!CH $$ X:A$$ 1$$ !!CH $$ X:B$$ 1$$ 4 !!CH $$ X:C$$ 1$$ N !!CH $$ X:D$$ 1$$ h !!CH $$ X:E$$ 256$$ ( #!!CH $$CREDIT EQU 0$$CREDIT EQU 1$$ ( #!!CH $$MMUPAG EQU 0$$MMUPAG EQU 1$$ ( #!!CH $$CPU852 EQU
0x0030ec…003280 Dummy {f00=0x0043, f01=0x0190, f02=» ( #!!CH $$CREDIT EQU 0$$CREDIT EQU 1$$ ( #!!CH $$MMUPAG EQU 0$$MMUPAG EQU 1$$ 0 ( #!!CH $$CPU852 EQU 1$$CPU852 EQU 0$$ !!EN ASM /S KPF /O KPF /S SCR LED DRDC15 !!CH $$ X:A$$ 650$$ !!CH $$ X:B$$ /6
0x003280…003414 (0, 4) Dummy {f00=0x0043, f01=0x0190, f02=»$ ~ !!CH $$ X:H$$ 0$$ !!CH $$ X:I$$ 0$$ $ !!CH $$ X:J$$ 1$$ > !!CH $$ X:K$$ 0$$ X !!CH $$ X:L$$ 2$$ r !!CH $$ X:M$$ 00$$ !!CH $$ X:N$$ 02$$ !!CH $$ X:O$$ 0$$ !!CH $$ X:P$$ 0$$ !!CH $$ X:Q$$ 1$$
0x003414…0035a8 Dummy {f00=0x0043, f01=0x0190, f02=»EQU 1$$CPU852 EQU 0$$ !!EN ASM /S * KPF /O 8 KPF /S F SCR T MOV EBCDIC,/S,TOSSWORK ` KPF /S,EBCDIC ~ SCR LED EBCDIC ( #!!CH $$CREDIT EQU 0$$CREDIT EQU 1$$ ( #!!CH $$MMUPAG EQU 0$$MMUPAG EQU 1$$ (
0x0035a8…00373c Dummy {f00=0x0043, f01=0x0190, f02=»$ X:A$$ 1$$ !!CH $$ X:B$$ 1$$ !!CH $$ X:C$$ 1$$ . !!CH $$ X:D$$ 2$$ H !!CH $$ X:E$$ 1$$ b !!CH $$ X:F$$ 40$$ | !!CH $$ X:G$$ 1$$ !!CH $$ X:H$$ 1$$ !!CH $$ X:I$$ 1$$ !!CH $$ X:J$$ 040$$ !!CH $$
0x00373c…0038d0 Dummy {f00=0x0043, f01=0x0190, f02=»U 0$$ r !!EN ASM /S KPF /O ( KPF /S 6 SCR D LED DVTKB P !!DL 35 b DATA 0,0,0,0,0,0,0,0 r DATA 0,0,0,0,0,0,0,0 DATA 0,0,0,0, !!IL 38 DATA 0,0,0,0,0,0,0,0 DATA 0,0,0,0,0,0,0,0
0x0038d0…003a64 Dummy {f00=0x0043, f01=0x018e, f02=»ER SCR MOV TPROC,/S,TOSSWORK KPF /S,TPROC 4 SCR H MOV TMMLKM,/S,TOSSWORK T KPF /S,TMMLKM r SCR MOV TLDSEG,/S,TOSSWORK KPF /S,TLDSEG SCR MOV TABORT,/S,TOSSWORK KPF /S,TABORT
0x003a64…003bf8 Dummy {f00=0x0043, f01=0x0190, f02=» LED TIMER ( #!!CH $$CREDIT EQU 0$$CREDIT EQU 1$$ ( #!!CH $$MMUPAG EQU 0$$MMUPAG EQU 1$$ B ( #!!CH $$CPU852 EQU 1$$CPU852 EQU 0$$ n !!EN ASM /S KPF /O KPF /S SCR LED TPROC ( #!!CH $$CREDIT EQU 0$$CREDI
0x003bf8…003d8c Dummy {f00=0x0043, f01=0x018e, f02=»/O KPF /S SCR LED TMMLKM $ ( #!!CH $$CREDIT EQU 0$$CREDIT EQU 1$$ 6 ( #!!CH $$MMUPAG EQU 0$$MMUPAG EQU 1$$ b ( #!!CH $$CPU852 EQU 1$$CPU852 EQU 0$$ !!EN ASM /S KPF /O KPF /S SCR LED TLDSEG
0x003d8c…003f20 Dummy {f00=0x0043, f01=0x0190, f02=» !!EN ASM /S KPF /O KPF /S , SCR : LED TABORT F ( #!!CH $$CREDIT EQU 0$$CREDIT EQU 1$$ X ( #!!CH $$MMUPAG EQU 0$$MMUPAG EQU 1$$ ( #!!CH $$CPU852 EQU 1$$CPU852 EQU 0$$ !!EN ASM /S KPF /O KPF
0x003f20…0040b4 (0, 5) Dummy {f00=0x0043, f01=0x0190, f02=»PU852 EQU 1$$CPU852 EQU 0$$ !!EN $ ASM /S 0 KPF /O > KPF /S L SCR Z LED TASS f ( #!!CH $$CREDIT EQU 0$$CREDIT EQU 1$$ x ( #!!CH $$MMUPAG EQU 0$$MMUPAG EQU 1$$ ( #!!CH $$CPU852 EQU 1$$CPU852 EQU 0$$ !!EN
0x0040b4…004248 Dummy {f00=0x0043, f01=0x0190, f02=»!!DL 042 DATA 00 !!DL 045 , DATA 00 < !!DL 050 X !!DL 051 h !!EN x ASM /S KPF /O KPF /S SCR LED LRPINT !!CH $$ X:A$$ 1$$ !!EN ASM /S KPF /O
0x004248…0043dc Dummy {f00=0x0043, f01=0x0190, f02=»K SCR MOV DMINIT,/S,TOSSWORK KPF /S,DMINIT 4 SCR J MOV TASS,/S,TOSSWORK V KPF /S,TASSI t SCR MOV DMTASS,/S,TOSSWORK KPF /S,DMTASS SCR MOV DMBUF,/S,TOSSWORK KPF /S,DMBUF SC
0x0043dc…004570 Dummy {f00=0x0043, f01=0x0190, f02=»V DMSUBX,/S,TOSSWORK KPF /S,DMSUBX ! SCR ! 2 MOV ADDMOD,/S,TOSSWORK ! > KPF /S,ADDMOD ! SCR ! r MOV DSUMOD,/S,TOSSWORK ! ~ KPF /S,DSUMOD ! SCR ! MOV MPYMOD,/S,TOSSWORK ! KPF /S,MPYMOD ! SCR ! MOV DIVMOD
0x004570…004704 Dummy {f00=0x0043, f01=0x0190, f02=»!!CH $$ X:A$$ 00000$$ ! ( #!!CH $$CREDIT EQU 0$$CREDIT EQU 1$$ " ( #!!CH $$MMUPAG EQU 0$$MMUPAG EQU 1$$ " J ( #!!CH $$CPU852 EQU 1$$CPU852 EQU 0$$ " v !!EN " ASM /S " KPF /O " KPF /S " SCR " LED DMBUF " !!CH $$ X:A$$ 0000
0x004704…004898 Dummy {f00=0x0043, f01=0x0190, f02=» " l !!EN # ASM /S # KPF /O # " KPF /S # 0 SCR # > LED DMTASK # J !!CH $$ X:A$$ 00001$$ # !!CH $$ X:B$$ 00000$$ # z !!CH $$ X:C$$ 00004$$ # ( #!!CH $$CREDIT EQU 0$$CREDIT EQU 1$$ # ( #!!CH $$MMUPAG EQU 0$$MMUPAG EQU 1$$ #
0x004898…004a2c Dummy {f00=0x0043, f01=0x0190, f02=»CH $$ X:A$$ 00004$$ # !!CH $$ X:B$$ 00000$$ $ ( #!!CH $$CREDIT EQU 0$$CREDIT EQU 1$$ $ : ( #!!CH $$MMUPAG EQU 0$$MMUPAG EQU 1$$ $ f ( #!!CH $$CPU852 EQU 1$$CPU852 EQU 0$$ $ !!EN $ ASM /S $ KPF /O $ KPF /S $ SCR $ LED DFTA
0x004a2c…004bc0 Dummy {f00=0x0043, f01=0x0190, f02=» !!CH $$ X:B$$ 00360$$ % !!CH $$ X:C$$ 00000$$ % " !!CH $$ X:D$$ 00114$$ % @ ( #!!CH $$CREDIT EQU 0$$CREDIT EQU 1$$ % ^ ( #!!CH $$MMUPAG EQU 0$$MMUPAG EQU 1$$ % ( #!!CH $$CPU852 EQU 1$$CPU852 EQU 0$$ % !!EN % ASM /S % KPF /O %
0x004bc0…004d54 (0, 6) Dummy {f00=0x0048, f01=0x0190, f02=»CH $$CPU852 EQU 1$$CPU852 EQU 0$$ % !!EN & * ASM /S & 6 KPF /O & D KPF /S & R SCR & ` LED TASS & l ( #!!CH $$CREDIT EQU 0$$CREDIT EQU 1$$ & ~ ( #!!CH $$MMUPAG EQU 0$$MMUPAG EQU 1$$ & ( #!!CH $$CPU852 EQU 1$$CPU852 EQU 0$$ & !!EN &
0x004d54…004ee8 Dummy {f00=0x0048, f01=0x0190, f02=»EQU 0$$MMUPAG EQU 1$$ & ( #!!CH $$CPU852 EQU 1$$CPU852 EQU 0$$ ' !!EN ' J ASM /S ' V KPF /O ' d KPF /S ' r SCR ' LED ADDMOD ' ( #!!CH $$CREDIT EQU 0$$CREDIT EQU 1$$ ' ( #!!CH $$MMUPAG EQU 0$$MMUPAG EQU 1$$ ' ( #!!CH $$CPU852 EQU
0x004ee8…00507c Dummy {f00=0x0048, f01=0x018e, f02=»T EQU 1$$ ' v ( #!!CH $$MMUPAG EQU 0$$MMUPAG EQU 1$$ ( ( #!!CH $$CPU852 EQU 1$$CPU852 EQU 0$$ ( > !!EN ( j ASM /S ( v KPF /O ( KPF /S ( SCR ( LED MPYMOD ( ( #!!CH $$CREDIT EQU 0$$CREDIT EQU 1$$ ( ( #!!CH $$MMUPAG EQU 0$$MMUPAG EQ
0x00507c…005210 Dummy {f00=0x0048, f01=0x0190, f02=» ( ( #!!CH $$CREDIT EQU 0$$CREDIT EQU 1$$ ) ( #!!CH $$MMUPAG EQU 0$$MMUPAG EQU 1$$ ) 4 ( #!!CH $$CPU852 EQU 1$$CPU852 EQU 0$$ ) ` !!EN ) ASM /S ) KPF /O ) KPF /S ) SCR ) LED DMSUBR ) ( #!!CH $$CREDIT EQU 0$$CREDIT EQU 1$$ )
0x005210…0053a4 Dummy {f00=0x0048, f01=0x018e, f02=»/S ) SCR * LED SYSTAB * !!CH $$IHINPT$$TRAP$$ * ( !!CH $$ X:A$$ 00001$$ * F !!CH $$ EXTRN BUG$$*$$ * d !!CH $$ BUG$$ 0$$ * !!CH $$ X:B$$ 00004$$ * !!CH $$ X:C$$ 00004$$ * !!CH $$ X:D$$ 00000$$ * !!CH $$ X:E$$ 0001
0x0053a4…005538 Dummy {f00=0x0048, f01=0x0190, f02=» !!IL 55 + EXTRN IH1501 + EXTRN IH1502 + 4 !!DL 056 + T !!DL 057 + d !!DL 067 + t !!DL 068 + !!DL 069 + !!DL 070 + !!DL 071 + !!DL 073 + !!DL 074 + !!DL 075 + !!DL 077 + !!DL
0x005538…0056cc Dummy {f00=0x0048, f01=0x0190, f02=» DATA ILLINT , !!DL 133 , $ DATA ILLINT , 4 !!DL 134 , T DATA ILLINT , d !!DL 135 , DATA ILLINT , !!DL 136 , DATA ILLINT , !!DL 138 , DATA IL
0x0056cc…005860 Dummy {f00=0x0048, f01=0x0190, f02=»A ILLINT , !!DL 149 - DATA ILLINT - $ !!DL 150 - D DATA ILLINT - T !!DL 155 - t DATA ILLINT - !!DL 156 - DATA ILLINT - !!DL 159 - DATA ILLINT - !!EN
0x005860…0059f4 (0, 7) Dummy {f00=0x0048, f01=0x0190, f02=» - !!DL 014 . !!DL 018 . !!DL 019 . ( !!DL 020 . 8 !!DL 022 . H !!DL 023 . X !!DL 024 . h !!DL 025 . x !!DL 026 . !!DL 027 . !!DL 028 . !!DL 029 . !!DL 030 . !!DL 031 . !!DL 032 . !!DL 034 .
0x0059f4…005b88 Dummy {f00=0x0048, f01=0x0190, f02=» . !!DL 046 / !!DL 047 / !!DL 048 / ( !!DL 050 / 8 !!DL 051 / H !!DL 052 / X !!DL 053 / h !!DL 054 / x !!DL 055 / !!DL 056 / !!DL 057 / !!DL 058 / !!DL 059 / !!DL 060 / !!DL 062 / !!DL 063 /
0x005b88…005d1c Dummy {f00=0x0048, f01=0x0190, f02=» $$CREDIT EQU 0$$CREDIT EQU 1$$ / ( #!!CH $$MMUPAG EQU 0$$MMUPAG EQU 1$$ 0 ( ( #!!CH $$CPU852 EQU 1$$CPU852 EQU 0$$ 0 T !!CH $$DVTKB$$DVKB00$$ 0 !!CH $$KBAD$$KBAD3$$ 0 !!CH $$/1111$$/1100$$ 0 !!CH $$BCA$$FFFF$$ 0 !!CH $$ED0$$FFBA$$ 0
0x005d1c…005eb0 Dummy {f00=0x0048, f01=0x018e, f02=»/O 0 KPF /S 1 SCR 1 LED DVTDY 1 $ ( #!!CH $$CREDIT EQU 0$$CREDIT EQU 1$$ 1 6 ( #!!CH $$MMUPAG EQU 0$$MMUPAG EQU 1$$ 1 b ( #!!CH $$CPU852 EQU 1$$CPU852 EQU 0$$ 1 !!CH $$DVTDY$$DVDY00$$ 1 !!CH $$/ABC$$/1850$$ 1 !!CH $$/1111$$/C000$
0x005eb0…006044 Dummy {f00=0x0048, f01=0x0190, f02=» ( #!!CH $$MMUPAG EQU 0$$MMUPAG EQU 1$$ 2 ( #!!CH $$CPU852 EQU 1$$CPU852 EQU 0$$ 2 0 !!CH $$DVTKB$$DVKB01$$ 2 !!CH $$KBAD$$KBAD3$$ 2 z !!CH $$/1111$$/1140$$ 2 !!CH $$BCA$$FFFF$$ 2 !!CH $$ED0$$FFBA$$ 2 " !!CH $$0 CODE $$CTAB02 CODE $$ 2
0x006044…0061d8 Dummy {f00=0x0048, f01=0x0190, f02=»LED DVTTP 2 ( #!!CH $$CREDIT EQU 0$$CREDIT EQU 1$$ 3 ( #!!CH $$MMUPAG EQU 0$$MMUPAG EQU 1$$ 3 > ( #!!CH $$CPU852 EQU 1$$CPU852 EQU 0$$ 3 j !!CH $$DVTTP$$DVTP01$$ 3 !!CH $$/1111$$/2000$$ 3 !!EN 3 ASM /S 3 KPF /O 3 KPF /S 3
0x0061d8…00636c Dummy {f00=0x0048, f01=0x018e, f02=»1$$CPU852 EQU 0$$ 3 ~ !!CH $$DVTTP$$DVTP01$$ 4 !!CH $$/1111$$/2000$$ 4 8 !!EN 4 V ASM /S 4 b KPF /O 4 p KPF /S 4 ~ SCR 4 LED DVTTP 4 ( #!!CH $$CREDIT EQU 0$$CREDIT EQU 1$$ 4 ( #!!CH $$MMUPAG EQU 0$$MMUPAG EQU 1$$ 4 ( #!!CH $
0x00636c…006500 Dummy {f00=0x0048, f01=0x0190, f02=» KPF /S 5 SCR 5 LED DVTDY 5 ( #!!CH $$CREDIT EQU 0$$CREDIT EQU 1$$ 5 0 ( #!!CH $$MMUPAG EQU 0$$MMUPAG EQU 1$$ 5 ( #!!CH $$CPU852 EQU 1$$CPU852 EQU 0$$ 5 !!CH $$DVTDY$$DVDY01$$ 5 !!CH $$/ABC$$/1850$$ 5 !!CH $$/1111$$/C000$$ 5
0x006500…006694 (0, 8) Dummy {f00=0x0048, f01=0x0190, f02=» $$MMUPAG EQU 0$$MMUPAG EQU 1$$ 5 ( #!!CH $$CPU852 EQU 1$$CPU852 EQU 0$$ 6 ( !!CH $$DVTKB$$DVKB02$$ 6 T !!CH $$KBAD$$KBAD3$$ 6 r !!CH $$/1111$$/1100$$ 6 !!CH $$BCA$$FFFF$$ 6 !!CH $$ED0$$FFBA$$ 6 " !!CH $$0 CODE $$CTAB03 CODE $$ 6 !!
0x006694…006828 Dummy {f00=0x0048, f01=0x018e, f02=»DI 6 ( #!!CH $$CREDIT EQU 0$$CREDIT EQU 1$$ 7 ( #!!CH $$MMUPAG EQU 0$$MMUPAG EQU 1$$ 7 6 ( #!!CH $$CPU852 EQU 1$$CPU852 EQU 0$$ 7 b !!CH $$DVTDI$$DVDI02$$ 7 !!CH $$2010$$0000$$ 7 !!CH $$/1111$$/9010$$ 7 !!EN 7 ASM /S 7 KPF /O 7
0x006828…0069bc Dummy {f00=0x0048, f01=0x0190, f02=» ( #!!CH $$CPU852 EQU 1$$CPU852 EQU 0$$ 8 !!CH $$DVTDY$$DVDY02$$ 8 0 !!CH $$/ABC$$/1850$$ 8 N !!CH $$/1111$$/C000$$ 8 j !!EN 8 ASM /S 8 KPF /O 8 KPF /S 8 SCR 8 LED DVTGP 8 ( #!!CH $$CREDIT EQU 0$$CREDIT EQU 1$$ 8 ( #
0x0069bc…006b50 Dummy {f00=0x0048, f01=0x0190, f02=»0$$ 8 ~ !!EN 9 ASM /S 9 KPF /O 9 & KPF /S 9 4 SCR 9 B LED TCLASS 9 N !!IL 6 9 ` EXTRN DVKB00 9 n EXTRN DVDY00 9 EXTRN DVKB01 9 EXTRN DVTP01 9 EXTRN DVDY01 9
0x006b50…006ce4 Dummy {f00=0x0048, f01=0x018e, f02=»IL 11 9 DATA TC00 : DATA TC01 : , DATA TC02 : J DATA TC03 : h !!IL 12 : TC00 DATA TC00E-* : DATA /0021 : DATA DVKB00 : DATA
0x006ce4…006e78 Dummy {f00=0x0048, f01=0x0190, f02=» : v DATA DVKB01 ; DATA /00301 ; ( DATA DVTP01 ; H DATA /02311 ; h DATA DVTP01 ; DATA /01321 ; DATA DVTP01 ; DATA /00501 ;
0x006e78…00700c Dummy {f00=0x0048, f01=0x018e, f02=»ATA DVKB02 ; DATA /00402 < DATA DVDI02 < 6 DATA /00502 < V DATA DVDY02 < v TC02E EQU * < TC03 DATA TC03E-* < DATA /00302 < DATA DV
0x00700c…0071a0 Dummy {f00=0x0048, f01=0x0190, f02=» EXTRN DWSI01 = EXTRN DWSO01 = $ EXTRN DWII01 = D EXTRN DWIO01 = d EXTRN DW1501 = EXTRN DW1500 = EXTRN DWREMU = EXTRN DWFD01 = !!IL 11 =
0x0071a0…007334 (0, 9) Dummy {f00=0x0048, f01=0x0190, f02=» TC04 = !!IL 12 > TC00 DATA TC00E-* > DATA /00101 > B DATA DWSI01 > b DATA /00111 > DATA DWSO01 > TC00E EQU * > TC01 DATA TC01E-* >
0x007334…0074c8 Dummy {f00=0x0048, f01=0x0190, f02=»/00E11 > ~ DATA DWIO01 ? TC02E EQU * ? . TC03 DATA TC03E-* ? J DATA /00611 ? l DATA DW1501 ? TC03E EQU * ? TC04 DATA TC04E-* ? DATA /00601 ?
0x0074c8…00765c Dummy {f00=0x0048, f01=0x0190, f02=»ATA /01F90 ? DATA DWFD01 @ DATA /02FA0 @ , DATA DWFD01 @ L DATA /03FB0 @ b DATA DWFD01 @ TC04E EQU * @ !!EN @ ASM /S @ KPF /O @ KPF /S @ SCR @ LED MONTAB @
0x00765c…0077f0 Dummy {f00=0x0048, f01=0x018e, f02=»24 @ !!DL 027 A !!DL 029 A !!DL 030 A * !!DL 031 A : !!DL 032 A J !!DL 033 A Z !!IL 47 A j **** A z DATA CTAB01 A DATA CTAB02 A DATA CTAB03 A DATA ITAD A !!DL 049 A !!DL 052 A !!DL 055 A
0x0077f0…007984 Dummy {f00=0x0048, f01=0x0076, f02=» SCR B ASG /02,LP0F B SCR B $ INC SYSTAB B 0 LKE M B B KPF /L,M:92NA B P ASG /E0,TY10 B f **** A z DATA CTAB01 A DATA CTAB02 A DATA CTAB03 A DATA ITAD A !!DL 049 A !!DL 052 A !!DL 055 A
0x007984…007b18 Dummy {f00=0x0048, f01=0x2008, f02=» C B ASG /02,LP0F B SCR B $ INC SYSTAB B 0 LKE M B B KPF /L,M:92NA B P ASG /E0,TY10 B f **** A z DATA CTAB01 A DATA CTAB02 A DATA CTAB03 A DATA ITAD A !!DL 049 A !!DL 052 A !!DL 055 A
0x007b18…007cac Dummy {f00=0x0048, f01=0x0190, f02=» O N Z_ (@P B ] ] N " T : N "0 :d HF R _ 0" 1 V " 2 P W X }T 9 ~T 5 aR = _X = R 0" ZZ_" pR GH V 0" 1 V " 2 P W X {T * =
0x007cac…007e40 Dummy {f00=0x0048, f01=0x0190, f02=» ( Z 0 O ( B : C ( : O N T B O N - O N N " P N " O N " P N " O W B H, : C C C ( :H Q ( P _@
0x007e40…007fd4 (0, 10) Opaque[0x194]
0x007fd4…008168 # DirEnt {nam=»TCLASS«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x2190, f03=0x0000}
0x007fd4…008168 IdxSect {
0x007fd4…008168 f00 = 0x010c // 0x7fd4 @0x0
0x007fd4…008168 f01 = 0x0002 // 0x7fd6 @0x2
0x007fd4…008168 gno = [ // 0x7fd8 @0x4
0x007fd4…008168 [0x00]: C0x010c.0x2.0
0x007fd4…008168 ]
0x007fd4…008168 }
0x008168…0082fc Dummy {f00=0x010c, f01=0x0190, f02=» 2 P IDENT TCLASS REL 9.2 79-11-16 870105040920 P : P* B P* L P ENTRY TCLASS V P* l P* v P EXTRN DVKB00 P EXTRN DVDY00 P EXTRN DVKB01 P EXTRN DVTP01 P
0x0082fc…008490 Dummy {f00=0x010c, f01=0x0190, f02=» DVGP03 P* P* P* $ P* . PTCLASS DATA TCLASE-* 8 P DATA TC00 T P DATA TC01 r P DATA TC02 P DATA TC03 PTCLASE EQU * PTC00 DATA TC00E-* P
0x008490…008624 Dummy {f00=0x010c, f01=0x0190, f02=» * PTC01 DATA TC01E-* P DATA /0020 0 P DATA DVKB01 P P DATA /0030 p P DATA DVTP01 P DATA /0231 P DATA DVTP01 P DATA /0132
0x008624…0087b8 Dummy {f00=0x010c, f01=0x4188, f02=» DATA TC02E-* P DATA /0020 P DATA DVKB02 > P DATA /0040 ^ P DATA DVDI02 ~ P DATA /0050 P DATA DVDY02 PTC02E EQU * PTC03 DATA
0x0087b8…00894c Dummy {f00=0x010c, f01=0x2008, f02=» NT TCLASS * * $ * . ENTRY TCLASS 8 * N * X * b * l * v * * TCLASS DATALTCLASE-* TCLASE EQU * END @ 1 INTLT2 INTRT1
0x00894c…008ae0 Dummy {f00=0x010c, f01=0x0000, f02=»
0x008ae0…008c74 (0, 11) Opaque[0x194]
0x008c74…008e08 # DirEnt {nam=»/OBJCT«, typ=»OB«, f00=0x0000, f01=0x0000, f02=0x0938, f03=0x0000}
0x008c74…008e08 IdxSect {
0x008c74…008e08 f00 = 0x0049 // 0x8c74 @0x0
0x008c74…008e08 f01 = 0x0094 // 0x8c76 @0x2
0x008c74…008e08 gno = [ // 0x8c78 @0x4
0x008c74…008e08 [0x00]: C0x0049.0x3.0
0x008c74…008e08 [0x01]: C0x004a.0x0.0
0x008c74…008e08 [0x02]: C0x004a.0x2.0
0x008c74…008e08 [0x03]: C0x004b.0x0.0
0x008c74…008e08 [0x04]: C0x0085.0x1.0
0x008c74…008e08 [0x05]: C0x0085.0x2.0
0x008c74…008e08 [0x06]: C0x0086.0x0.0
0x008c74…008e08 [0x07]: C0x0051.0x2.0
0x008c74…008e08 [0x08]: C0x0088.0x3.0
0x008c74…008e08 [0x09]: C0x0054.0x1.0
0x008c74…008e08 [0x0a]: C0x00bc.0x0.0
0x008c74…008e08 [0x0b]: C0x00bc.0x1.0
0x008c74…008e08 [0x0c]: C0x00be.0x3.0
0x008c74…008e08 [0x0d]: C0x00bf.0x0.0
0x008c74…008e08 [0x0e]: C0x00bf.0x1.0
0x008c74…008e08 [0x0f]: C0x00d4.0x3.0
0x008c74…008e08 [0x10]: C0x00d5.0x0.0
0x008c74…008e08 [0x11]: C0x00d5.0x1.0
0x008c74…008e08 [0x12]: C0x0066.0x2.0
0x008c74…008e08 [0x13]: C0x0068.0x1.0
0x008c74…008e08 [0x14]: C0x0068.0x3.0
0x008c74…008e08 [0x15]: C0x0069.0x1.0
0x008c74…008e08 [0x16]: C0x00eb.0x0.0
0x008c74…008e08 [0x17]: C0x00eb.0x2.0
0x008c74…008e08 [0x18]: C0x006d.0x1.0
0x008c74…008e08 [0x19]: C0x006e.0x2.0
0x008c74…008e08 [0x1a]: C0x00ed.0x0.0
0x008c74…008e08 [0x1b]: C0x00ef.0x3.0
0x008c74…008e08 [0x1c]: C0x00f0.0x0.0
0x008c74…008e08 [0x1d]: C0x00d8.0x3.0
0x008c74…008e08 [0x1e]: C0x00dd.0x1.0
0x008c74…008e08 [0x1f]: C0x00dd.0x2.0
0x008c74…008e08 [0x20]: C0x00de.0x3.0
0x008c74…008e08 [0x21]: C0x00f1.0x1.0
0x008c74…008e08 [0x22]: C0x00f1.0x2.0
0x008c74…008e08 [0x23]: C0x00f1.0x3.0
0x008c74…008e08 [0x24]: C0x00e4.0x2.0
0x008c74…008e08 [0x25]: C0x00e6.0x2.0
0x008c74…008e08 [0x26]: C0x00f3.0x0.0
0x008c74…008e08 [0x27]: C0x00f3.0x1.0
0x008c74…008e08 [0x28]: C0x00f3.0x2.0
0x008c74…008e08 [0x29]: C0x00f2.0x3.0
0x008c74…008e08 [0x2a]: C0x00f4.0x0.0
0x008c74…008e08 [0x2b]: C0x00f5.0x1.0
0x008c74…008e08 [0x2c]: C0x00f0.0x2.0
0x008c74…008e08 [0x2d]: C0x0106.0x0.0
0x008c74…008e08 [0x2e]: C0x00f4.0x3.0
0x008c74…008e08 [0x2f]: C0x0109.0x3.0
0x008c74…008e08 [0x30]: C0x010a.0x0.0
0x008c74…008e08 [0x31]: C0x00f7.0x3.0
0x008c74…008e08 [0x32]: C0x00f8.0x0.0
0x008c74…008e08 [0x33]: C0x00e9.0x2.0
0x008c74…008e08 [0x34]: C0x00f4.0x2.0
0x008c74…008e08 [0x35]: C0x00f8.0x1.0
0x008c74…008e08 [0x36]: C0x00fb.0x2.0
0x008c74…008e08 [0x37]: C0x00fc.0x1.0
0x008c74…008e08 [0x38]: C0x00fe.0x0.0
0x008c74…008e08 [0x39]: C0x00fe.0x3.0
0x008c74…008e08 [0x3a]: C0x00ff.0x2.0
0x008c74…008e08 [0x3b]: C0x010a.0x1.0
0x008c74…008e08 [0x3c]: C0x010a.0x2.0
0x008c74…008e08 [0x3d]: C0x0084.0x2.0
0x008c74…008e08 [0x3e]: C0x0102.0x2.0
0x008c74…008e08 [0x3f]: C0x0103.0x0.0
0x008c74…008e08 [0x40]: C0x0103.0x2.0
0x008c74…008e08 [0x41]: C0x0109.0x1.0
0x008c74…008e08 [0x42]: C0x010a.0x3.0
0x008c74…008e08 [0x43]: C0x010b.0x1.0
0x008c74…008e08 [0x44]: C0x010b.0x3.0
0x008c74…008e08 [0x45]: C0x010c.0x1.0
0x008c74…008e08 [0x46]: C0x010c.0x3.0
0x008c74…008e08 [0x47]: C0x010d.0x1.0
0x008c74…008e08 [0x48]: C0x010d.0x2.0
0x008c74…008e08 [0x49]: C0x010d.0x0.0
0x008c74…008e08 ]
0x008c74…008e08 }
0x008e08…008f9c Dummy {f00=0x0049, f01=0xc0b0, f02=» J F IDENT TCLASS REL 9.2 79-11-16 870105040920 TCLASSK R TCLASSK d x @ ATA TCLASE-* PTCLASE EQU * P END @
0x008f9c…009130 Dummy {f00=0x0049, f01=0xc0b0, f02=» J F IDENT SCLASS REL 9.2 79-11-16 870105040920 SCLASSK R SCLASSK d x @ ATA TCLASE-* PTCLASE EQU * P END @
0x009130…0092c4 Dummy {f00=0x0049, f01=0x0190, f02=» J F IDENT MONTAB REL 9.2 79-11-16 870105040920 F B MONTABK SPDLCI FREQUE PAGQUE INTLT1 INTLT2 INTLT3L INTLT4 R & " INTRT1 INTRT2 INTRT3 INTRT4 MONTABK FREQUE PAGQUE INT
0x0092c4…009458 Dummy {f00=0x0049, f01=0x4154, f02=» INTRT4 SYSLOD CTAB01L $ CTAB02 6 * & H CTAB03 v ITADN KBAD3 TPADN GPADN DIADN DYADN , (
0x009458…0095ec Dummy {f00=0x0049, f01=0x0190, f02=» J F IDENT SYSTAB REL 9.2 79-11-16 870105040920 F B SCTMSZK SCTSFA SCTEFA SCTPLD SCTANO SCTADA SCTPAGL SCTSEG R F B SCTSWB SCTNOS SCTNOP SCTPSZ SCTMMC SCTLACL SCTMMP SCTLAP F B SCTNPE SCTSTB SCTOPT SCTTCT
0x0095ec…009780 Dummy {f00=0x0049, f01=0x0190, f02=»:PA PAG:SB SWB:NC SWB:DS SWB:ELS SWB:NS0 z T:ACSB 4 SEG:ST F SEG:DSL Z SEG:EL n SEG:PBI PAG:QF PAG:QBV PAG:PA PAG:SB SWB:NC SWB:DS
0x009780…009914 (0, 12) Dummy {f00=0x004a, f01=0x018e, f02=» IHSOP . IH1501W > IH1502 P CHLT1 b IHFDN r CHRT1 , ( CHRT2 , ( ! , ( 1
0x009914…009aa8 Dummy {f00=0x004a, f01=0x0190, f02=» , ( a , ( q 4 HALTN d t SCTMSZK SCTSFA SCTEFA SCTPLD SCTANO SCTADA S
0x009aa8…009c3c Dummy {f00=0x004a, f01=0x0190, f02=» SCTPSZ SCTMMC SCTLACL 0 SCTMMP D SCTLAP X SCTNPE l SCTSTB SCTOPT SCTTCT SCTCDT SCTBUG~ SCTDMT , (
0x009c3c…009dd0 Dummy {f00=0x004a, f01=0x4062, f02=» _ , L@ ^ X SCTNPE l SCTSTB SCTOPT SCTTCT SCTCDT SCTBUG~ SCTDMT , (
0x009dd0…009f64 Dummy {f00=0x004a, f01=0x0190, f02=» J F IDENT TDISP REL 9.2 79-11-16 870105040920 8 4 TDISP MEXIT DISIOE DISEND DISQUE PRUNY RETUR8 R DISQUE PRUNY RETUR8 MEXIT EXITN DISIOE TENDIO
0x009f64…00a0f8 Dummy {f00=0x004a, f01=0x4130, f02=» (X0 @ P T x * & @ = M ]@ , ) A P P Y TTB:SA` F , ( W B U ( ) 5 > X TTB:PWN TTB:MT , ( q$$ > [ [ Z Z Z ? Z > W 9P O
0x00a0f8…00a28c Dummy {f00=0x004a, f01=0x0190, f02=» J F IDENT LRPINT 9.2DK 1 79-11-16 870105040920 J F " IHLKM LKM030 LKMRQE LKMERR LKMQDI IHRTC TIMQUE@ MONCLO IHPFARC R INIFLG IHLKM INTSAV PRUNN TTB:SA , ( A$ A
0x00a28c…00a420 Dummy {f00=0x004a, f01=0x0190, f02=» SWL48 , ( 5 $P c P W P A LKMAL @ , ( Q V ( U P @ V P LKMERR x HALTN LKMRQE ~ * & mD L W @ U LKMQDI QTJOB
0x00a420…00a5b4 (0, 13) Dummy {f00=0x004a, f01=0x0190, f02=» A Q | , ( _0 A < Q P Q Z MONCLO L MEXIT ` , ( Y _ 8 p FREBLK0 , ( Q Z P 0 9 _ TIMQUE@ , , ( @ _,
0x00a5b4…00a748 Dummy {f00=0x004a, f01=0x40f4, f02=» OA @ 0 ) A _ 6 6 A PFINIT 0 k$ > A _ B H D ! . %T 5P ;P ?W: EP, SV cP" iV qW * Q * Q b , ( , P ; ^ KQ v @ ( @ _,
0x00a748…00a8dc Dummy {f00=0x004a, f01=0x0190, f02=» J F IDENT TPROC REL 9.2 79-11-16 870105040920 * & TWAIT TEXIT TACTOT TPAUSE TMWAIT R FNDDWT TWAIT DWTWAT TEXIT EXITN TDISP * & @ P "R Y W
0x00a8dc…00aa70 Dummy {f00=0x004a, f01=0x018a, f02=» P n TPAUSE TMWAIT 6 " DWTST 6 , ( 1@ _ <U "R P F DWTTAB v , ( MD@ X R X T X T . T , ( g G Y6 G _b P LKMRQE LKMQDI
0x00aa70…00ac04 Dummy {f00=0x004a, f01=0x4008, f02=»@ n TPAUSE TMWAIT 6 " DWTST 6 , ( 1@ _ <U "R P F DWTTAB v , ( MD@ X R X T X T . T , ( g G Y6 G _b P LKMRQE LKMQDI
0x00ac04…00ad98 Dummy {f00=0x004a, f01=0x0190, f02=» J F IDENT MSUBS REL 9.2 79-11-16 870105040920 D @ SAVE8 QTJOB QMJOB ACTOT ACTOTP EXITY GETBLK FREBLKL FNDDWT R H D ! FNDTID PFINIT SWL48 SWLXY ILLINT INTSAV@ HALTY IHRET8 IHRET2 IHRET1 IHRTN SAVE8
0x00ad98…00af2c Dummy {f00=0x004a, f01=0x0190, f02=»P T I v QMJOB J TTMJOB ( ACTOTP T : , ( ; R $ 5 % > ? W ? N ACTOT ~ TTB:SA , ( Y $ W ? T T U U U TTB:ID TTB:SB, , ( s H U
0x00af2c…00b0c0 Dummy {f00=0x004a, f01=0x0190, f02=» T P 0 U z GETBLK FREQUE . , ( _t ? @ T @ FREBLKL p * & 0 A 1 Q Q > > 0 @ FNDDWT TTB:TD , ( 1 A P P > ?
0x00b0c0…00b254 (0, 14) Dummy {f00=0x004b, f01=0x0190, f02=»W > _& @ 8 | * & K R Y T ? X D T FNDTID | J SCTTCTD ^ * & e W > _& W > 8 X W ? ` p , ( @ @ P $ H W IHRET8 IHRET2 IHRET1
0x00b254…00b3e8 Dummy {f00=0x004b, f01=0x4154, f02=» , ( > _ > ? _ > > ? ^ INTSAV@ 4 ILLINT H HALTY , ( ! Y ^ _ ? n A. H D ! 4 $ 1P ;R SW [W gT$ T P T R" #T < 8 3T> 9
0x00b3e8…00b57c Dummy {f00=0x004b, f01=0x0190, f02=» J F IDENT TTMJOB REL 9.2 79-11-16 870105040920 F B TTB:LAK TTB:MT TTB:SB TTMJOB TTB:QL TTB:ID TTB:STL TTB:PP R TTB:PW TTB:SA TTB:TD , ( $ ( , 0 4 8 < TTB:LAK TTB
0x00b57c…00b710 Dummy {f00=0x004b, f01=0x40ac, f02=» TTB:PW TTB:SA , ( ! #M 1 & TTB:TD ( V A j K L @ A TTB:TD , ( $ ( , 0 4 8 < TTB:LAK TTB
0x00b710…00b8a4 Dummy {f00=0x004b, f01=0x0190, f02=» J F IDENT TOSSIO REL 9.2 79-11-16 870105040920 H D !dTIO TENDIO DC:MIN DC:MOT MONMMU ECBFC ECBBA ECBRL ECBEL ECBRC R D @ ECBCW ECBCW2 BUFLENA ACTADRA ABTADR INTADR` POLADR RECADR F B ECHADR DC:DIXV DM:DIX PC:DIX8
0x00b8a4…00ba38 Dummy {f00=0x004b, f01=0x018e, f02=»UEC# DWTMEC DWTA2 DWTA3 DWTA4 DWTA5 DWTSB1 z * & DWTSB2f DWTTP DWTECHj DWTSQ DWTVOLW 4 DWTCHP b DWTST v DWTBC DWTECB DWTOR DWTOCH DWTADR DWTTAB DWTWAT
0x00ba38…00bbcc Dummy {f00=0x004b, f01=0x0190, f02=» DWTA4 DWTA5 DWTSB1 , DWTSB2f " @ DWTTP $ T DWTECHj & f DWTSQ 0 z DWTVOLW 0 BUFLENA ACTADRA ABTADR INTADR` POLADR R
0x00bbcc…00bd60 Dummy {f00=0x004b, f01=0x0190, f02=» IT:DIX ECBFC ECBBA & ECBRL 8 ECBEL J ECBRC ECBCW n ECBCW2 , ( MONMMU $ , ( ! $ ( , 0 4
0x00bd60…00bef4 (0, 15) Dummy {f00=0x0085, f01=0x018e, f02=»P l TDISP FNDDWT |TIO . , ( yI U XH > TTB:ID n , ( D #DP @ R XV Y TIODM , ( @ P T W X &P TTB:PW , (
0x00bef4…00c088 Dummy {f00=0x0085, f01=0x0190, f02=» , ( - x '? Y T Y GETBLKP 4 QTJOB F , ( K W Y T # P W V , ( g Y P R R P P (@ (@ , ( " 2 X $? P $ > > , (
0x00c088…00c21c Dummy {f00=0x0085, f01=0x0190, f02=» F :c" v TTB:MTE , ( ' H :b"? #" : C > B R ( , ( E Q P B P X , ( e 0$ T # R Q > , ( X B U H Q X D B , ( $ T C x > C
0x00c21c…00c3b0 Dummy {f00=0x0085, f01=0x0190, f02=» U H B P P $ # , ( # Q > P * , ( C _0 # T p > P p (_H Z , ( c _2 B U DC:MOT , ( X > ? _ X T DC:MIN
0x00c3b0…00c544 Dummy {f00=0x0085, f01=0x0190, f02=» Q M r , ( X D ( * & ) 1 > _" X X T B TTMJOBP p MEXIT QMJOB , ( B = U . TENDIO b , ( U@ Y _| ?(@
0x00c544…00c6d8 Dummy {f00=0x0085, f01=0x0190, f02=» 1 1 X P - M T , ( @ $ P _ T " # ( , ( p X L R P P (@ X , ( @ ^ X P P # P , ( ' @ T P 0P 1 FREBLK ACTOTPN
0x00c6d8…00c86c Dummy {f00=0x0085, f01=0x4154, f02=» x UW cP uP P P, T W P T T W4 GT MW UT H D ! YP ]W mP sR uP { }P Q P GQ~ QP0 WP* mT yQL } B H D ! U( Q2 T V b UJ P PL +Q 1P KT SP U T Rl H D ! U Q0 b sP& P P T T P PD
0x00c86c…00ca00 Dummy {f00=0x0085, f01=0x018e, f02=» J F IDENT SYSLDM REL 9.2 79-12-20 870105040920 SYSLDMK R SYSLDMK d SCTSFA x SYSBAS SCTEFA TCLASSV , ( I A SCLASS SAV
0x00ca00…00cb94 (0, 16) Dummy {f00=0x0085, f01=0x0190, f02=» f , ( K , P , - 4 ] CMPADR 8 SCTOPT: J , ( i @ 4 Y 5 X SAVE01f * & * _6 : @ TTMJOB SCTDMT , ( " ]
0x00cb94…00cd28 Dummy {f00=0x0085, f01=0x0190, f02=» . !TTP @ NXTBLK $ , ( T Y " !TTX" 6 SCTTCTW f , ( B$ A 9 A $ : @ $ x SCTDMI , ( %B @ P @ &" P #D " , ( A P #E " P #F
0x00cd28…00cebc Dummy {f00=0x0085, f01=0x0190, f02=»9B @ @ z * & T : SCTDML@ F SAVE04 X , ( @ (:B W * . !TTP j SAVE19E SAVE16E , ( W , N =H N W SAVE17T , (
0x00cebc…00d050 Dummy {f00=0x0085, f01=0x0190, f02=»W @ % P , ( Y P " U $ , ( w _2 T , ( P " U , ( _2 , ( A V * V ,P S
0x00d050…00d1e4 Dummy {f00=0x0085, f01=0x0190, f02=» % P p , ( 7 W @ % P " !TTT bREL @ , ( @ S 6 @ @ T N , ( m : @ ! ~ SCTADA SCTLAC PRGLG1 , ( $ P @ 8 @ : < CR
0x00d1e4…00d378 Dummy {f00=0x0085, f01=0x0190, f02=» h , ( @ !RRP @ ! T , ( 3 @ & P 3 8 , ( 3 YL @ @ h , ( 1 T : FREQUE SCTBLK , ( K @ B ` $ @
0x00d378…00d50c Dummy {f00=0x0085, f01=0x0190, f02=» @ T p , ( : P , ( H S S _ : . ! @ , ( TTP V W , p * & * P , ( _ SAVE03N
0x00d50c…00d6a0 Dummy {f00=0x0085, f01=0x0190, f02=» H I K T , ( } + Y@ V 0 _j V , , ( Y " !TTX @ @ T P * & : , ( $ @ R @ , ( T P
0x00d6a0…00d834 (0, 17) Dummy {f00=0x0086, f01=0x0190, f02=» W , P W N SAVE14G , ( K ( W P 0 , ( g G =h G V P V < ` , ( V N P W N _B V , ( $ W V , Yr " !TTX @ , ( @ T
0x00d834…00d9c8 Dummy {f00=0x0086, f01=0x0190, f02=» $ $ , ( % _. P V 4 SCTDCTN P , ( C U $ $ _. b , ( aH @ R @ @ ! P V SCTDMC SCTCDT * & y 8 8 8 @ T>B
0x00d9c8…00db5c Dummy {f00=0x0086, f01=0x018e, f02=» V t , ( N _2 U V * & 8 8 8 4 D P B , ( ! L @ # P H I p , ( = K T + Y@ _`R , ( ]H @ @ R @ % P V , ( u
0x00db5c…00dcf0 Dummy {f00=0x0086, f01=0x0190, f02=» * & V Z @ 0 V SAVE072 6 , ( P _ W ^ $ q > R H DWTECH x * & P >b W >b & 8P D P U SYSLOD , ( ` E W b V W R 9 , ( W
0x00dcf0…00de84 Dummy {f00=0x0086, f01=0x0190, f02=» V j , ( o ^ -W H P U ` I @ % , ( P H I H T P H : , ( U V FU W j , ( F H < + + P , ( @ V : V X $ * & F !
0x00de84…00e018 Dummy {f00=0x0086, f01=0x0190, f02=» W R _ $ SAVE21S ( , ( qD W Z : W 4 f : SAVE23I j , ( @ h | , ( *T P _ / P , ( *_ *T P _ .P
0x00e018…00e1ac Dummy {f00=0x0086, f01=0x0190, f02=» _ V 4P V f ] ~ , ( ; jW f P _ @ , ( U @ T N , ( o @ : N =H N 2 : N =H N ~ , ( 2 : &=H F 2 : F =H , ( F 2 : F =H F 2 :
0x00e1ac…00e340 Dummy {f00=0x0086, f01=0x0190, f02=» ! n , ( P (W ( : ~ F , ( = v @ : < > , ( Y CRT @ ! P ` : @ E "W n SYSLDA * & sH ` : @ E " l H D !p P # N / N G &
0x00e340…00e4d4 (0, 18) Dummy {f00=0x0051, f01=0x0190, f02=» g uU P0 U PJ 5P ;W CP QT kT P T H D ! PP P T P 3T [P _ g {V T P H H D !m P r P ! )Ph 1 OP$ _P T R T P T H D ! * 7 r ? CPT Y a i P T
0x00e4d4…00e668 Dummy {f00=0x0051, f01=0x410e, f02=» P W P P W V W R W 3P@ AT@ x H D ! GP cP sW yP PD P( U P T !WR %T /W, 3T ?W ET QW 4 H D ! cR T P P T P$ P U P W 'P 3P =W IP [T P ( $ T P P P !W [T" cP qW @
0x00e668…00e7fc Dummy {f00=0x0051, f01=0x0190, f02=» J F IDENT SYSLDA REL 9.2 79-12-21 870105040920 D @ JUMPY SYSLDA dREL LDALEN MOVEY ERROR CMPADR NXTBLKL NXTCOM R F B CONVRT GETNUM MMTAB TABBE MMEND MMDDIV BUFSIZ` SYSBUF M:REL F B SAVE01 SAVE120 SAVE03 SAVE04 S
0x00e7fc…00e990 Dummy {f00=0x0051, f01=0x0190, f02=»9( SAVE20 SAVE21 SAVE22 SAVE23F SAVE24V x SAVE25 2 |REL D $ W W " T , ( 1 ; Z [ : : [ [ | SYSLDMP JUMPY , ( Q : SAVE0
0x00e990…00eb24 Dummy {f00=0x0051, f01=0x0190, f02=»AVE08 , ( o SAVE09 @ SAVE10 T SAVE11 h SAVE120 | SAVE13D SAVE22 SAVE25 M:REL SYSBUF BUFSIZ` , (
0x00eb24…00ecb8 Dummy {f00=0x0051, f01=0x0190, f02=» p SAVE18 r SAVE19( t SAVE20 n 2 SAVE21 v F SAVE23F z Z SAVE24V | n MMDDIV MMTAB TABBE MMEND , (
0x00ecb8…00ee4c Dummy {f00=0x0051, f01=0x0190, f02=» U R $ )_ : , ( ? W W W W W $ , ( _ Q V V v x W T , ( V V v p R W V , ( W ^< _@ V _P V , ( V : V
0x00ee4c…00efe0 Dummy {f00=0x0051, f01=0x0190, f02=»:K W r t , ( ? Q R t , ( _ V > v : D , ( V W V ) : V t , ( <B W |P v v , ( : $ V |P v w , (
0x00efe0…00f174 (0, 19) Dummy {f00=0x0088, f01=0x0190, f02=» , ( ? <B V x V |P v , ( _ 1 v W V z ` _f V 4 , ( : W R R P W x d , ( @ _ V : " D P , ( W V P $;A^ D E D , ( P V
0x00f174…00f308 Dummy {f00=0x0088, f01=0x0190, f02=» ;B " , ( _ R P |P v $ CMPADR T , ( v : V W 0 : h , ( V P 9a _ " ( ) 8 ( ) , ( : " $ V P 9A _ 0 : W , ( W W ?A
0x00f308…00f49c Dummy {f00=0x0088, f01=0x018e, f02=» j SAVE8 , ( = 0 H W : ? ? SCTLAC J , ( ] R 0 ACTOT RETUR8P , ( y R P P B _ : , ( V ) v : 4P
0x00f49c…00f630 Dummy {f00=0x0088, f01=0x0190, f02=» , ( ` V b pP , ( ` $ $ W H 4 , ( @ - L ) P _ " = d , ( E M D 4 Q _d * L , ( P m > = G V W , ( $ V E
0x00f630…00f7c4 Dummy {f00=0x0088, f01=0x0190, f02=» @ @ x SCTPAG SCTNOPN * * & ! @ < , ( P P P P _ _ j SCTPSZ , ( D @ 9N @ :b @ :b , ( / V W U
0x00f7c4…00f958 Dummy {f00=0x0088, f01=0x0190, f02=» l SCTSEG , ( A A 9n A :B A , ( D @ .V N PAGQUE ~ , ( 3 S Y& P , ( S P , ( 3 _
0x00f958…00faec Dummy {f00=0x0088, f01=0x0190, f02=» @ W A & TDISP & , ( k : A ( > 6 , ( @ l : R W n f , ( V pT : N V l W H V ]" , ( " . nT W v W , ( D n V ~P
0x00faec…00fc80 Dummy {f00=0x0088, f01=0x0190, f02=» v G G v U , ( i v G v : P V & , ( : V ~P W x V , ( _$ 8 V V x % V v % : V , ( V > 9k! , ( P % _ V V W W
0x00fc80…00fe14 (0, 20) Dummy {f00=0x0054, f01=0x018e, f02=» f v ) G v , ( g v ` " W p W ~ pP , ( @ R P _ W ~ R F , ( $ X4 _ ` @ ` W v , ( P W ~ pP V W , ( % R , , (
0x00fe14…00ffa8 Dummy {f00=0x0054, f01=0x0190, f02=» f , ( c P * I W z ` p , ( P H - V I 8 , ( " R E R T h , ( E D E @ v H v , ( E > #_v W | , ( ;b W
0x00ffa8…01013c Dummy {f00=0x0054, f01=0x0190, f02=» , ( A 0 :C # : .=H N , ( D a : .=H N : 4 GETNUM d , ( N : d 8" x SYSLDA , ( BR _ ZY QY : $ @ , ( V H W z W | CR
0x01013c…0102d0 Dummy {f00=0x0054, f01=0x0190, f02=» !TTP N x , ( 3 :H N TBT W W 2 " T , ( S @ N =H N H , ( s : @ ) T !TTXX !CCT x , ( @ X !UUT d W , ( 2 .:H N P V , (
0x0102d0…010464 Dummy {f00=0x0054, f01=0x0190, f02=» h , ( / :b / W , ( O : W @ W D 8 , ( k V W W ` " h , ( W p @ pP " , ( 4X 1 R , ( @Z0
0x010464…0105f8 Dummy {f00=0x0054, f01=0x0190, f02=» W V V >k 8 W , ( G W t V V : ( g x X H D ! W> 2 0 . 1 2 C S Y j V !W %U 1R g iQ@ R( l H D !e P z V U z V z M OQ QR ] _V V W V H D !
0x0105f8…01078c Dummy {f00=0x0054, f01=0x4152, f02=» , P H D ! P P P P| ?V CW GU6 QT WW aP iP( mP qV uW yU H D ! Q P P V P4 P 7 B W x [ R T T" P %V X H D ! 0 3P _U {P V P P P0 P Pn /P 3 B = B AW GT eP Pl H D ! T R P R 'P
0x01078c…010920 Dummy {f00=0x0054, f01=0x0190, f02=» J F IDENT LDTASK REL 9.2 79-12-06 870105040920 6 2 LT:DSKK LT:SWB TTABLD QLTDSK QLTSWB PQEMTY R PQEMTY TTABLD , ( #L 1
0x010920…010ab4 (0, 21) Dummy {f00=0x00bc, f01=0x0190, f02=»AGQUEA , ( @ A ( @ PAG:QB > PAG:SB P * & % X H A ) @ H b TTB:MT , ( = D P 1 % E I L TLDS20 SEG:EL * & U U
0x010ab4…010c48 Dummy {f00=0x00bc, f01=0x0190, f02=»CW , ( ( C 9b;BT SCTLAP : ECBBA L SCTPLDT , ( " C 0 @ # n * & W C U R C , ( W C R # R , ( _8
0x010c48…010ddc Dummy {f00=0x00bc, f01=0x4152, f02=»TB:SBH * & ) HT :" U U ( F QLTSWB X < , ( A M 0 - A Q '_D P QLTDSK ^ ACTOT LKMERR LT:SWB j & " Y W * , D @ @4 V ?P T
0x010ddc…010f70 Dummy {f00=0x00bc, f01=0x4114, f02=» J F IDENT DWII01 REL 9.2 79-11-16 870105040920 DWII01K R DWII01K d ITADN x , ( IT:BUF @ , ,
0x010f70…011104 Dummy {f00=0x00bc, f01=0x4114, f02=» J F IDENT DWIO01 REL 9.2 79-11-16 870105040920 DWIO01K R DWIO01K d ITADN x , ( IT:BUF @ , ,
0x011104…011298 Dummy {f00=0x00bc, f01=0x4104, f02=» J F IDENT DW1501 REL 9.2 79-11-16 870105040920 DW1501K R DW1501K d DC15AD x , ( DC @ . " . @ PDW
0x011298…01142c Dummy {f00=0x00bc, f01=0x0190, f02=» J F IDENT DRKB03 REL 9.2 79-11-16 870105040920 KBAD3 R KBAD3 b DWTST t * & @ ( ( ? X V Y TDISP LDREGE , ( ! W Y , (
0x01142c…0115c0 Dummy {f00=0x00bc, f01=0x0190, f02=» W t SETIMP , ( ` Y X " P :A & * & : R Q W Y <D X V , ( ? ?: T p > > , ( P P C B T , ( B % X . $ 4 T
0x0115c0…011754 (0, 22) Dummy {f00=0x00bc, f01=0x018e, f02=» , ( Y _` B P $$ R % C , ( y * ! W Y +P Y *P Y ( 4 , ( P Y )P R _Q P OR d , ( R W " ! B W W , ( @ 0 Z ! B Z Z& , ( X . 0
0x011754…0118e8 Dummy {f00=0x00bc, f01=0x0190, f02=» DISEND , ( OA Y C ! " * & i @ Q R X # P X R ;GV X J LDREG x , ( @ P y P X DWTA3 DWTSB2 , ( @ R ;GV X X , *
0x0118e8…011a7c Dummy {f00=0x00bc, f01=0x0190, f02=» h , ( :d Y > > ? 8 R @R , ( ) V @% =cW R P R P R P W 8 , ( I 9 W $ P W _ $ P h , ( i _$ _*_, _ %0=c X , ( 0P > 0 > >_ B 1 >
0x011a7c…011c10 Dummy {f00=0x00bc, f01=0x417c, f02=» @ @ T T ! & 'T /P f H D ! 3 R 7 AV E OP _P$ kR { W PH P> P P R Q " H D ! P R R W Wr W T W P 'W 1P 9 IP g kQf n H D ! mR$ uP {R6 V2 P P8 R2 V. P T W T T W H D !
0x011c10…011da4 Dummy {f00=0x00bc, f01=0x0190, f02=» J F IDENT DRTP02 REL 9.2 79-11-16 870105040920 TPADY R TPADY b , ( d t DWTOR , ( ! !"&';<>@^_ 9: X ! Y DISIOE DWTBC , (
0x011da4…011f38 Dummy {f00=0x00bc, f01=0x0190, f02=» , ( w ! W B W B L , ( # 9Q T W Q P X & V 8 DWTST h ECBRL x , ( T Y &W X ! T B , ( R Q B D ! V ! ! * & ! W ! !
0x011f38…0120cc Dummy {f00=0x00bc, f01=0x0190, f02=» , ( 5 T " T W Q " T ) ! , ( Q Y _ ! ! Y 8 , ( m @ &P Q W ! Y '" h * & _" _< ! _n ! _t B B , ( , ! T _ D ! , ( P ! P
0x0120cc…012260 Dummy {f00=0x00bc, f01=0x0190, f02=»T ! L ,! :D" ! Y , ( 7 Y U ! _$ W , & ECBRC V , ( Q ! T ,' ! R !__U f , ( qHD C X ' W Y ! LDREG , ( _ X R U T X
0x012260…0123f4 (0, 23) Dummy {f00=0x00be, f01=0x0190, f02=»SP , ( @ B R _ , ( 4 ! ! ! " T : , ( "" ! ! ! ! j * & % 4 X ' 4 Y ' ! ! ( $ A @ " P ,$ , ! 4 H D ! 4 IP
0x0123f4…012588 Dummy {f00=0x00be, f01=0x40d6, f02=» 9T =T ?W CQ GT Q , i oP qQ wW , T P P H D ! @ W V P RN Q PH P R: T2 3 =U MW4 UT gR mU {W H ( $ RT U TJ P T R T EP X @ P ,$ , ! 4 H D ! 4 IP
0x012588…01271c Dummy {f00=0x00be, f01=0x0190, f02=» J F IDENT DRGP01 REL 9.2 80-01-03 870105040920 GPADY ECHOGP R GPADY j , ( !"$&;<>@^_ P | DISIOE OUTPUT , ( ! P B P B L # +P ! , ( ?
0x01271c…0128b0 Dummy {f00=0x00be, f01=0x0190, f02=» Y , ( U P T Y &_. P R P , ( @ O]> V _F T Y Y & V P , ( @D Y _^ C _P " DWTBC * & $ P X & X ]r ! * & Y Y
0x0128b0…012a44 Dummy {f00=0x00be, f01=0x0190, f02=» X C _ X Y ~ , ( G & Y > B B U $ , ( e ! T _ U D ! T _ N LDREG ~ , ( C > X Z^<BR P j ECHOGP , ( X _x R V ! P P , (
0x012a44…012bd8 Dummy {f00=0x00be, f01=0x416a, f02=» ? X Z t , ( @ ! P P . 2 X , ( 1 " ! ! X D $ K & 6 t H D ! PB !P8 -P ;P KT _W mW P U P" T P4 H D ! R( Pj V T P - @ _U$ iT sU }T
0x012bd8…012d6c Dummy {f00=0x00be, f01=0x0190, f02=» J F IDENT DRDI01 REL 9.2 79-11-16 870105040920 DIADY R DIADY b , ( B 8# T $ # ;D t DISIOE` DWTST , ( ! 7P P Y W Y X , ( ?@ Y 8#
0x012d6c…012f00 Dummy {f00=0x00be, f01=0x4088, f02=»END u ? X _F @ < p J z T #P 'P 3W GT IW$ MT( WP aP gV . r@ B 8# T $ # ;D t DISIOE` DWTST , ( ! 7P P Y W Y X , ( ?@ Y 8#
0x012f00…013094 (0, 24) Dummy {f00=0x00bf, f01=0x0190, f02=» J F IDENT DRDY01 9.2DK 1 80-02-12 870105040921 DYADY ECHODY R DYADY j OUTPUT | , ( DISIOE * & !@ ! P P & , ( =
0x013094…013228 Dummy {f00=0x00bf, f01=0x0190, f02=» ! B B U , ( $ ! T _ U D ! T . GETCHR ^ , ( _ $$ X" X& X* C p , ( X`" E P 8'0P E , ( T ! T 9 _ ! T @_ ! , ( 5
0x013228…0133bc Dummy {f00=0x00bf, f01=0x018e, f02=» DWTBC , ( X ' X ] ! , ( B ! ! ! @ , ( @ B Y & ! W 8!0T 8 !@ p , ( DP ! $ P ! ! , ( ! T Y & T X & C TENDI
0x0133bc…013550 Dummy {f00=0x00bf, f01=0x0190, f02=» LDREG , ( U Z2<BR J ? Y , ( o! ! T X ! Y D * & & Zl T _ ! X t ECHODY , ( $ P ! R V ECHRTN * & P P !
0x013550…0136e4 Dummy {f00=0x00bf, f01=0x0190, f02=» X &" Y )U W ! ! , ( 1 ! Y 4 B $ * & @ K U )X R X T , ( i X &" Y * X ) V Y , ( ! X $ X & ! X * , ( H `R Y !
0x0136e4…013878 Dummy {f00=0x00bf, f01=0x4184, f02=» 4 * > r H D ! R d )P -P 3 9 CP SP WP. ]T oR| yR H D ! D : U4 T U T P( P TD T )T GP M Y cP ^ H D !> gR P : W T P P * T T KQ [R H D ! p wT T P
0x013878…013a0c Dummy {f00=0x00bf, f01=0x0190, f02=» J F IDENT DRRT01 9.2DK 1 79-11-16 870105040920 F B CHLT1 CHLT2 CHLT3 CHLT4 CHRT1 CHRT2 CHRT3 CHRT4 OUTLIN` CHLTON R H D ! OUTPUTN CHTAB LDREG LDREGE LDREGF STREG GETCHRC DWREMU LOCHAN * & RECHAN REMFC ECHRTN` ECHOY E
0x013a0c…013ba0 Dummy {f00=0x00bf, f01=0x0190, f02=» J B t , ( B pU INTRT2 D , ( ; J BAB rU V , ( [ J B B pU , ( y J BQB rU CHTAB DWREMU
0x013ba0…013d34 (0, 25) Dummy {f00=0x00bf, f01=0x0190, f02=» P P H !@T I DISEND . CHLT1 @ INTSAV R , ( H T ! 1 U A ? d CHLT2 CHLT3 CHLT4 CHRT1 CHRT2 CHRT3 $ CHRT4
0x013d34…013ec8 Dummy {f00=0x00bf, f01=0x0190, f02=» P r , ( k R P 4 ] P , ( $ P ] U P P P P B DWTST r , ( R 4T ] U X , ( "0T + Y W 8Z 4 , ( U R ] U # $P
0x013ec8…01405c Dummy {f00=0x00bf, f01=0x0190, f02=» > x , ( = W T # Y U DWTTP H , ( [ T ] W 8V X X SETIMP * & { P y W , ( P 8R R Y DWTOCHf ,
0x01405c…0141f0 Dummy {f00=0x00bf, f01=0x0190, f02=» T U 5 U z , ( R " ] ;h # <c$ , ( % P X X " Z " J , ( E X 8# T 8Z V X # T z , ( c 8R X P y Y X DWTECB INTADR , ( {$@'
0x0141f0…014384 Dummy {f00=0x00bf, f01=0x0190, f02=»@ # P 4 4 P _r T _$ , ( U _ ? 4 U 5 R P . DWTOTQ ^ , ( "P R T T R X $ # X p , ( / > P P P , ( M X XF _H W ? T T , ( m
0x014384…014518 Dummy {f00=0x00bf, f01=0x0190, f02=» OUTPUTN , ( @ _ " P T 8! P STREG D DWTA3 V DWTA4 f DWTA5 v , ( Y Y & Y ( Y * LDREG LDREGF LDREGE , ( _8 X XB Y
0x014518…0146ac Dummy {f00=0x00bf, f01=0x0190, f02=» (@ > ?" 8' x , ( S ?A R 8;b# 4T R , ( s T T ] ] 8 W T H , ( W T ] _ P T V W 8 x , ( V T P U 8 ~ U Q , ( P X H " 5 U R " , (
0x0146ac…014840 Dummy {f00=0x00bf, f01=0x0190, f02=» T B P X | , ( G R @ U S ` U t " , ( g D P D T U W _ U 4XR L ECHENDT | ECHOY , ( XX 5 J_b Y & Y ( DWTECH DWTWAT , ( H$ Y * X
0x014840…0149d4 (0, 26) Dummy {f00=0x00d4, f01=0x0190, f02=» . H D !p P Q P P T W W #W /R 5V = ` K H D !L QR Y _PJ cP i o sRL }P P P PD P< P0 P, R T ` H D ! Tp WH f R P4 R0 T T #P -P =Wh C v M _T iW H D !H( mV u v }P
0x0149d4…014b68 Dummy {f00=0x00d4, f01=0x40fa, f02=» ! 9P =P CP I B _Wj gT s wW S( V P P T P T P6 H D ! J /U =W [R kT oRT uT {T W< Tr W T P V WT V L H D ! P Q2 P R V P P #W 7T IR4 QS kP qT yW V$ V @ H( mV u v }P
0x014b68…014cfc Dummy {f00=0x00d4, f01=0x018e, f02=» J F IDENT DRSOP1 REL 9.2 79-11-16 870105040920 0 , SOPCT SOPRY IHSOP DWSI01 DWSI02A DWSO01A R SOPCT , ( T 8T 9W B DISIOE SPDLCI , ( ! D 7P P
0x014cfc…014e90 Dummy {f00=0x00d4, f01=0x0190, f02=» ECBCW ECBEL TENDIO $ , ( W"H X R C C 6 TDISP f SOPRY t v * & o ?A @ A. X DWSI01 , ( @ V 9_: DWSO01A
0x014e90…015024 Dummy {f00=0x00d4, f01=0x403e, f02=» ;W GW W ]R V p (@ : X R C C 6 TDISP f SOPRY t v * & o ?A @ A. X DWSI01 , ( @ V 9_: DWSO01A
0x015024…0151b8 Dummy {f00=0x00d4, f01=0x0190, f02=» J F IDENT DRFD01 REL 9.2 79-12-05 870105040920 FDADR IHFDY FDONY DWFD01 R FDADR v DWTOR , ( !P P X ! , ( Y X ! Y T & , ( ?
0x0151b8…01534c Dummy {f00=0x00d4, f01=0x0190, f02=» } A @ A. TDISP * , ( Y W A : , ( @ @ A. W ! * X X P ! j , ( ! W ! * _ ! * _& ! X ECBRL ECBBA , ( X P ! X X
0x01534c…0154e0 Dummy {f00=0x00d4, f01=0x0190, f02=»TOT 0 SST z , ( i X Y W 0 X Y Y , ( ! ! X ' P ! ! J , ( @ D ) P _ X " X ! T X z ECBCW , ( $ !& P B z z :C , ( P ! 9DV !
0x0154e0…015674 (0, 27) Dummy {f00=0x00d5, f01=0x0190, f02=» A ! _ Y , ( _ 4 ! P C ! ! ! (@ , , ( ! R _ ! 1 ;h 1 , ( ! 1 ! ! * ! ! ! , ( ) ! Y # T X Y _ Y # , ( 4 ! (
0x015674…015808 Dummy {f00=0x00d5, f01=0x0190, f02=»* ! ! ! T )W | , ( U W ! Xz ! ( - ! DWTA5 L , ( u ) W Y W Y Y Y Y ECBEL TENDIO * & H B S W W B C FDONY DWTA2 , (
0x015808…01599c Dummy {f00=0x00d5, f01=0x0190, f02=» 0B. X n , ( P y _^ _n , ( Y X P Y : ! > , ( ; ! X # P Y :A , X n , ( [B A Y @ B. X Y DWTECB , ( @ u Y Y X Y X '?
0x01599c…015b30 Dummy {f00=0x00d5, f01=0x0190, f02=» , ( @ K & E % Y B K , ( $ X ;AR ;a X P Y 4 , ( P 7P < d * & % $ <C ! 9 4 X , ( A _ W B R X X P , ( ] W
0x015b30…015cc4 Dummy {f00=0x00d5, f01=0x018e, f02=»_ 4 X # P _ 4 TASCII " , ( @(@ R D " 1_ W (@ 4 TEBCDI0 d , ( R 0 D $ ] _ ! 4 v , ( ! ;E :B 9A ! , ( 3 U P jW kQ 4 Y , (
0x015cc4…015e58 Dummy {f00=0x00d5, f01=0x0190, f02=» f , ( @ 4 ! ( 4 X " 4 , ( @ ! ) 4 X P 4 8 DWFD01 f h , ( g | , ( , (
0x015e58…015fec Dummy {f00=0x00d5, f01=0x0190, f02=»P ]Pv R H D !z& aPz g d m s y Z H H W Wx F , P | W< H D ! p F F J , P , P | !T ) * +W / * Z H D ! 3 9 ? E K O T YT cT o , qW } , * T * H D !q P
0x015fec…016180 Dummy {f00=0x00d5, f01=0x0190, f02=»PT s w { R 4 | * H D ! T . * V J j W0 W # ) b F H D ! T - 5Q 9 F ? E | I OT SWL YWP ] e R i o j s {W. P H D ! W P L N S W W f $
0x016180…016314 (0, 28) Dummy {f00=0x00d5, f01=0x410c, f02=» f R@ & P & P P IW QRZ U , [P v H D ! aW kP sQ8 wU T, R( P Q W Q T P 0 P R 2 H D !> W R ) 3U 7 4 9P ?W EQ S * W qP R ~ ( $ k r Z P y @
0x016314…0164a8 Dummy {f00=0x00d5, f01=0x0190, f02=» J F IDENT DRIC01 9.2DK 0 80-01-02 870105040920 ITADY ITABRT IT:BUF R ITADY r IT:BUF ECBCW , ( P P P .T B Y FNDTID`
0x0164a8…01663c Dummy {f00=0x00d5, f01=0x0190, f02=»R ( P H z , ( " [ R H P ' P P W T DWTSB1A H TENDIO Z ECBBA l * & y ' P ! B | TDISP , ( $ # P G W G SETIMP , (
0x01663c…0167d0 Dummy {f00=0x00d5, f01=0x0190, f02=» U ^ 9 1_N X , ( T @ P ( A _ ( Y , ( D _ _x X T @ P ( A P , ( = _ ( Y _ _ i 9 @ ITABRT ^ , ( ] _ H P P $ DWTECB * &
0x0167d0…016964 Dummy {f00=0x00d5, f01=0x4148, f02=» ECBEL , ( A F Z P U " C $ G $ 4 H H D ! ^ P & P P !T +Wx 7P =P MR ]RN eP iP oP qW< f H D !Pa wT6 { ` P P W P P R: L Q P T P 0 , 8 +T 1
0x016964…016af8 Dummy {f00=0x00d5, f01=0x0190, f02=» J F IDENT DRDC15 9.2DK 3 80-01-03 870105040920 . * DC15ADK IH1501 IH1502 DC15ON DW1500 R DC15ADK * & , ( C P P P 1P P W P DISIOEC
0x016af8…016c8c Dummy {f00=0x00d5, f01=0x0190, f02=» B Y P x , ( @ @ ` @ P 0 TENDIO H , ( "P _ % A A _^ B Z DWTECB , ( @ Q _r X P 0 Y ECBEL DC:MIN , ( @ P C
0x016c8c…016e20 Dummy {f00=0x00d5, f01=0x0190, f02=» @_x X r , ( G X A Y _& Y , ( e @ 0 A A _: X P ( y B , ( Y W (P 0 ) > r , ( @ (P _ ) 1_ (X( P DWTST , ( _ 0 )_6 (P _ ) 1 4
0x016e20…016fb4 (0, 29) Dummy {f00=0x0066, f01=0x0190, f02=» > @ @ @ A X , ( 9@ _" X P y Y X P " , ( U T @ T A A > A A R , ( u A A A W > , (
0x016fb4…017148 Dummy {f00=0x0066, f01=0x0190, f02=» T ! T ! A I A , ( ? P " ! _ ! " , ( _ T " X ! _ ! A @ R , ( P P @ P ! A A _ ! @ , ( " P @ X@ ! T A ! @ , ( P @ P @ h 8 ! !
0x017148…0172dc Dummy {f00=0x0066, f01=0x0190, f02=» 8 H @ P E P X , ( ; B R X P X T " , ( S P C v C X T ! R , ( m W W W X R X , ( T ! ! _ , ( P) A @ X A A A
0x0172dc…017470 Dummy {f00=0x0066, f01=0x0190, f02=» @ @ @ r , ( A ! @ XN ! T @ , ( ? P ! ! _h 1T @ X @ P B , ( _ ! ! A _ A < r , ( P" A @ T _, _0 @ T W @ , ( T ! _ ! ! _ A A E , ( R
0x017470…017604 Dummy {f00=0x0066, f01=0x0190, f02=» B t , ( T @ B A A A A A ! , ( 5 " ! A _^_V @ P X R X D , ( Q P T T Y W v t , ( o$ P C A A 4 @ , ( U @ T @ A @ A A , (
0x017604…017798 Dummy {f00=0x0066, f01=0x018e, f02=» , ( _$ ! 2_l 1 A T 0W ;W , ( ( + A A W W W A A 4 , ( K ! @ ! @ ! ! ! d , ( k B J 4 ! ! @ @ A , ( @ T @ ! 8 ! @ P - , ( ! x !
0x017798…01792c Dummy {f00=0x0066, f01=0x018e, f02=» f , ( T 0 ! W R ! A @ @ , ( ) U Zx Q P Q T 0 ! 8 , ( ! I A 0 ! A ! ! ^ h , ( @ i A _ B J B ! ! IH1501 INTSAVL , ( 4 A " ? J T
0x01792c…017ac0 Dummy {f00=0x0066, f01=0x0190, f02=» , ( W n " * 9AY X 2 _ ! , ( 9AP ^ 2 _ " ! 1 4 A 4 , ( # @ ` @ P 0 M A d DC15ON F , ( B C 4 ? @ A @ T , ( c @ < @ A A a , (
0x017ac0…017c54 (0, 30) Dummy {f00=0x0068, f01=0x0190, f02=» h DW1500 , ( ! T ' A 4 , ( L ` $ | % , ( %' :f"? H ! "? H ! 4 ABC , ( %G DEFGHI#.<(+!&JKLMNOPQR$]*);^-/ST , (
0x017c54…017de8 Dummy {f00=0x0068, f01=0x018e, f02=» % H D ! Z > B > GP, KP OP~ SP( WP YW _P cP gP o H D !/ yP {WL P. % % % % % P P % % Q< @ b H D ![ P #P ' . - 6 5Wb K R Q Z c g o s {P W P H D ! / P P
0x017de8…017f7c Dummy {f00=0x0068, f01=0x0190, f02=» H D ! W P TR TL ! #TD 'T@ + /T8 3 CP K O U > H D ! [ _T c g q w P P @ P T< 6 P P H D ! ( P @ T P P P + -P 5 7PF =R@ CP H D ! KT2 gT oW wW( }W" R T
0x017f7c…018110 Dummy {f00=0x0068, f01=0x0190, f02=» P > v W T : T ( 3 r 7 H D ! @ EP6 KR0 SP WT$ [T cW oP T T2 P4 PJ PL P P. < H D !6 W P P !T %W )W 5W 9W =W M p U ] H D ! ` c i u p { T( P %& W
0x018110…0182a4 Dummy {f00=0x0068, f01=0x406e, f02=» P %% )% 1% 3P WT [ q l , ( P P T %/%B%;%B% % % % ( % X@ jP4 PJ PL P P. < H D !6 W P P !T %W )W 5W 9W =W M p U ] H D ! ` c i u p { T( P %& W
0x0182a4…018438 Dummy {f00=0x0068, f01=0x8190, f02=» W W W W W / 7 , ? , l H D ! ` E K W ] uT( y K } , , P , & W PL R T T ( H D !) T0 W, , T , W R , U< P #T + , 5 , ? , E , ] t H D ! 8 c k , q , w { K , , , P T , $ T T PD
0x018438…0185cc Dummy {f00=0x0068, f01=0xc00e, f02=» @ W W / 7 , ? , l H D ! ` E K W ] uT( y K } , , P , & W PL R T T ( H D !) T0 W, , T , W R , U< P #T + , 5 , ? , E , ] t H D ! 8 c k , q , w { K , , , P T , $ T T PD
0x0185cc…018760 Dummy {f00=0x0068, f01=0x417e, f02=» J F IDENT EBCDIC 9.2DK 1 79-11-16 870105040920 TASCIIK TEBCDI R TASCIIK l TEBCDI , ( 7- <=2&p ?' , ( ! @O JZlP}M] Nk`Ka z^L~no , ( A j
0x018760…0188f4 (0, 31) Dummy {f00=0x0068, f01=0xc16e, f02=»89:#@'=" p , ( ABCDEFGHI[.<(+!&JKLMNOPQR]$*);^ TEBCDI @ , ( /STUVWXYZ|,%_>?0123456789:#@'= T , ( 7- <=2&p ?' , ( ! @O JZlP}M] Nk`Ka z^L~no , ( A j {
0x0188f4…018a88 Dummy {f00=0x0068, f01=0x4140, f02=» J F IDENT DVTKB REL 9.2 79-11-16 870105040920 DVTKB R DVTKB b KBADN t & " KB bECH , ( !@ " ?
0x018a88…018c1c Dummy {f00=0x0068, f01=0x0190, f02=» J F IDENT TIMER REL 9.2 79-11-16 870105040920 TIMER SETIME SETIMP R TIMER r TDISP FNDTIDC LKMRQE , ( $ T GETBLK@ LKMQDI
0x018c1c…018db0 Dummy {f00=0x0068, f01=0x40ee, f02=» _ _< , ( S ? ^ 4 _ & TIMQUE V , ( qH @ 1 A _ P 9 h > > ( $ ~ T N : - 4 1 N 3 > P @ BLK@ LKMQDI
0x018db0…018f44 Dummy {f00=0x0068, f01=0x0190, f02=» J F IDENT TMMLKM REL 9.2 79-11-16 870105040920 TCHPAGK TCHMMU TLUSEG R TCHPAGK t TTB:MTL LKMQDI TCHMMU FNDTID , ( $' "?:B ] TLU
0x018f44…0190d8 Dummy {f00=0x0068, f01=0x4060, f02=»$ T %_< z O %_B P )U /U GT . R J@ MMU TLUSEG R TCHPAGK t TTB:MTL LKMQDI TCHMMU FNDTID , ( $' "?:B ] TLU
0x0190d8…01926c Dummy {f00=0x0068, f01=0x0190, f02=» J F IDENT TLDSEG REL 9.2 79-11-16 870105040920 TLDSEGK TLDS15 TLDS20 R TLDSEGK t SCTNOS LKM030 SCTSEG , ( R @ U 9C @ TTB:SB@ SEG:D
0x01926c…019400 Dummy {f00=0x0068, f01=0x4114, f02=» SCTMMP SCTNPE , ( 5B@ D " @ @ - U " SCTLAP` R TTB:MT d T:ACSBN v TTB:SA * & O _ 9B @ T W X g > R U %T /W. IU j
0x019400…019594 (0, 32) Dummy {f00=0x0069, f01=0x0190, f02=» J F IDENT TABORT REL 9.2 79-11-16 870105040920 TABORTK R TABORTK d FNDDWT x DWTTAB DWTST , ( "R P X T X R ? DWTECH DWTADR ABTAD
0x019594…019728 Dummy {f00=0x0069, f01=0x40a8, f02=» X H x LKMQDI LKMRQE * & " I P < ( $ RT PL TF R@ V )P 7P IP f @ , ( "R P X T X R ? DWTECH DWTADR ABTAD
0x019728…0198bc Dummy {f00=0x0069, f01=0x0190, f02=» J F IDENT MONTIM REL 9.2 79-11-16 870105040920 GETTIMK SETTIM R GETTIMK l MONCLO , ( @ < ? < ? <(@ , ( $ P B $ 9H C ">h # TTB:SA L
0x0198bc…019a50 Dummy {f00=0x0069, f01=0x40b4, f02=» P ?_" = > = > = =_D , ( R _ 00 > & <h$ P * > Z ( $ !P AP gP u yP R P r @ , ( $ P B $ 9H C ">h # TTB:SA L
0x019a50…019be4 Dummy {f00=0x0069, f01=0x0190, f02=» J F IDENT TASS REL 9.2 79-11-16 870105040920 D @ TASSY VOLCHE IXTASS TASBLK TASQUE TASTTA TASASB TASCVOC R F B TASVOL TASCXO TASSEX TASXLB TASFDB TASVRL TASVLEC TASVRN F B TASECB TASFIL TASTID TASMXAP T
0x019be4…019d78 Dummy {f00=0x0069, f01=0x0190, f02=» TASCVOC TASVOL TASCXO 0 TASSEX D , ( X TASXLB $ TASFDB 4 TASVRL 6 TASVLEC 8 TASVRN : TASECB < , ( !
0x019d78…019f0c Dummy {f00=0x0069, f01=0x0190, f02=» TASTBE T TASLFD# V , ( A , a TASCAQT n TTB:SA QTJOB , ( D H @ P 4 A U W A VOLCHE , ( ( A @ U : A V A
0x019f0c…01a0a0 Dummy {f00=0x0069, f01=0x0190, f02=»% T < C z ECBRC , ( ( B P T W ' T I * , ( @ 8 =hP Y X P Z DWTVOL , ( 3 T Y H ! R , ( Q W 9a I T T 9a H E V DFTABE(
0x01a0a0…01a234 (0, 33) Dummy {f00=0x00eb, f01=0x0190, f02=» : "' # TDISP ( , ( I ` @ P $ ) 5 8 MOV:US h , ( T A A R A b " z , ( A "" P U W , ( A P @ E "# P P
0x01a234…01a3c8 Dummy {f00=0x00eb, f01=0x0190, f02=» P W @ | , ( } 0 R ' F "R G FNDTID L , ( ) T @ D #D T G ^ DMTASSV ACTOT , ( W A J "R A J A 4 LKMQDI * & H
0x01a3c8…01a55c Dummy {f00=0x00eb, f01=0x4076, f02=» T P P U W P #P 'P 7W CR OV WT gP wW Rb R T W, R < `@ r
0x01a55c…01a6f0 Dummy {f00=0x00eb, f01=0x018e, f02=» J F IDENT LKMAL REL 9.2 79-11-16 870105040920 LKMAL R LKMAL b bTIO t TWAIT TEXIT TACTOT TPAUSE TIMER TMWAIT TLUSEGC * & UT
0x01a6f0…01a884 Dummy {f00=0x00eb, f01=0x4096, f02=» TCHPAG , ( J TCHMMU F # X & p & @ EXIT TACTOT TPAUSE TIMER TMWAIT TLUSEGC * & UT
0x01a884…01aa18 Dummy {f00=0x00eb, f01=0x0190, f02=» J F IDENT TIODM REL 9.2 79-11-16 870105040920 D @ TIODM FDBLNK FDBECB FDBSNR FDBRRO FDBRLE FDBBLF FDBTNRC R D @ FDBVTO FDBCEX FDBEXT EXTDMI EXTFC EXTLEN@ EXTBAS EXTELE D @ FDBLRN FDBNIF FDBEAL FDBCRL` FDB
0x01aa18…01abac Dummy {f00=0x00eb, f01=0x0190, f02=» t , ( ! " , ( A # $ % D FDBLNK t FDBECB FDBSNR $ FDBRRO & FDBRLE ( FDBBLF * FDBTNRC + FDBVT
0x01abac…01ad40 Dummy {f00=0x00eb, f01=0x0190, f02=»ELE FDBLRN I FDBNIF H " FDBEAL L 6 FDBCRL` N J FDBKA P ^ FDBMIAT R p FDBADFN T FDBAI1 V FDBDBR ^ FDBMRN _ FDBMROV b FDBMEC d FDBKEY r
0x01ad40…01aed4 (0, 34) Dummy {f00=0x00eb, f01=0x0190, f02=» j @ D X TTB:ID , ( } P _ L !##P T 2 DWTST b , ( @ R $P U + U _ (@(@ r DWTOR ECBCW2 , ( ! I 2P ^ H L Y H ECBCW , (
0x01aed4…01b068 Dummy {f00=0x00eb, f01=0x0190, f02=» Y . B CRNGET ( , ( + Y I B Y J_ W : ECBFC j , ( G C P C W < C z , ( a! C _H H H S * & } W C C B B
0x01b068…01b1fc Dummy {f00=0x00eb, f01=0x0190, f02=» j DSUMOD , ( $ X _ X ` T I T J ECBEL J , ( P C X I X J Z * & S W C C W B ECBRC * & B Y IR Q X JU C bSQR C
0x01b1fc…01b390 Dummy {f00=0x00eb, f01=0x418a, f02=»#D ( * | ACTOT TDISP * DISEND : ( $ m , . 0 2 L H D ! | | | | | ! h # 8 % | ' | x H D ! + ) < + - / 1 & P P R P P | U | W N % |
0x01b390…01b524 Dummy {f00=0x00eb, f01=0x0190, f02=» J F IDENT DMBUF REL 9.2 79-11-16 870105040920 J F " CURBUFK BUFLNK BUFDMI BUFFC BUFSNR BUFOR BUFSTA@ DMTGBU DMTRBUC R CLRBUF CURBUFK BUFLNK BUFDMI BUFFC BUFSN
0x01b524…01b6b8 Dummy {f00=0x00eb, f01=0x018e, f02=» DMTGBU , ( @ , L T L P L " , ( T M Q M L V L A @ R HALTN , ( : T @ [ [ M M DMTRBUC CLRBUF , ( M A -(@ :
0x01b6b8…01b84c Dummy {f00=0x00eb, f01=0x4008, f02=»@ DMTGBU , ( @ , L T L P L " , ( T M Q M L V L A @ R HALTN , ( : T @ [ [ M M DMTRBUC CLRBUF , ( M A -(@ :
0x01b84c…01b9e0 Dummy {f00=0x00eb, f01=0x0190, f02=» J F IDENT DMTASK REL 9.2 79-11-16 870105040920 ( $ DMTASKKdSQRdQSW DMTWM QIRNY QIRR R QIRNY ~ QIRR tQSW tSQR , ( ECBRL FDB
0x01b9e0…01bb74 (0, 35) Dummy {f00=0x006d, f01=0x0190, f02=»R $ - _ " v , ( W P $ - : R $ - _ : Z TTB:TDC F , ( w $ -_ D U 0 X SCTCDT@ , ( W T ` U @ , FDBRRO DWTTDM TTB:ID , ( A
0x01bb74…01bd08 Dummy {f00=0x006d, f01=0x018e, f02=» PRUNN ECBBA MOV:SU $ , ( $ P @ Q (@ F 6 MONMMU f * & H : @ _ x DMTASKK FDBDBR , ( D > X P D "V , ( )
0x01bd08…01be9c Dummy {f00=0x006d, f01=0x0190, f02=» , ( @ a ( ( W ( , ( A B W C X '? 4 , ( H X X )T d FDBSNR@ VLVRL , ( * X *T T , A ( FDBVTO DIVMOD
0x01be9c…01c030 Dummy {f00=0x006d, f01=0x0190, f02=»LRBUFV , ( D F 4 6(@ _ FDBLRN > VTLRN P , ( D X X 8 U : X 8 U : ` FDBMIA , ( 5 $ ( ( T X X <P ECBFC , ( O F > T
0x01c030…01c1c4 Dummy {f00=0x006d, f01=0x0190, f02=» X W ` U @ H EARELB $ FDBCRL 6 , ( @ X W B H CRNQUE x * & D 4 5W P 0 @ F 1 A FDBEXT: EXTELER , ( F(@_ H J (@
0x01c1c4…01c358 Dummy {f00=0x006d, f01=0x0190, f02=» 4 P 9 6 , ( a J 4' ' 5 * FDBSTA Z , ( 4 P W , P ,' X X l , ( $ H J Z" J ) _ , ( (@ C > ( B ! @ , ( !$ ( F
0x01c358…01c4ec Dummy {f00=0x006d, f01=0x0190, f02=» @ F R +P P X T$ T , ( V U W V R P $ , * & ; P W X X F * & U H X P @ Q MOV:USX , ( k @ (@ X + X "V P FDBMROU
0x01c4ec…01c680 Dummy {f00=0x006d, f01=0x0190, f02=» l CRNGETR CRNCIF , ( '? P P $ P 0 CRNCDF ` * & HH I ^ I ^ K ` K ` r , ( ` P P & P BW D EASETB: , ( % " T$ T V T bW E
0x01c680…01c814 (0, 36) Dummy {f00=0x006e, f01=0x0190, f02=» B B B B B B v H D ! ! B # % ' 3P 5R ;W IR WP aR U W T U W T 2 H D ! T( !Pj 'V" 7P =P AP WV, [P c p oW } B W T B TT ~ H D ! P W P CT$ MP cT k B }U0 Wf U WF W P
0x01c814…01c9a8 Dummy {f00=0x006e, f01=0x4058, f02=»P P( P" P P P b !W )T 1T 7W GV MT d B@ TP aR U W T U W T 2 H D ! T( !Pj 'V" 7P =P AP WV, [P c p oW } B W T B TT ~ H D ! P W P CT$ MP cT k B }U0 Wf U WF W P
0x01c9a8…01cb3c Dummy {f00=0x006e, f01=0x0190, f02=» J F IDENT DMTASS REL 9.2 79-11-16 870105040920 ( $ DMTASSK VTLRN VLVBA VLVRL SECTLEA R VLVBA ~ VLVRL VTLRN SECTLEA TASECB ECBBA ECBRC , (
0x01cb3c…01ccd0 Dummy {f00=0x006e, f01=0x018e, f02=» : t TASMXAE TASASB & VOLCHE 8 , ( 7H@ A A " P "" J TASCVO z CLRBUF * & Q H P @ TASVOL ECBFC ECBRL ECBCW
0x01ccd0…01ce64 Dummy {f00=0x006e, f01=0x0190, f02=» TASVLEP , ( L " TOP A " L TASVRL F , ( B A $ L C & @ $ X TASFIL , ( " A $Q @ A @ DMTRBU , ( ( B * D
0x01ce64…01cff8 Dummy {f00=0x006e, f01=0x018e, f02=» j , ( G & @ (T , ( a A " 0" : , ( U _ L !SSP !LL j TASCXOS , ( W L @ , A ,V TASSEXR TASXLBP , (
0x01cff8…01d18c Dummy {f00=0x006e, f01=0x0190, f02=» FDBVTO , ( H 4 2% P R 6 X T R FDBMIA# J , ( 8 @ "T R :T @ ( , ( 6 4 2% P QFDBFL , ( = 2 < P % DWTST
0x01d18c…01d320 Dummy {f00=0x006e, f01=0x0190, f02=» E 3 P S F P S FDBRLE " FDBBLF 4 FDBNIF F * & F P S H P S J P % S X FDBKA FDBMEC * & L P & S N @ " S 8 DWTMEC , ( @ P S R B
0x01d320…01d4b4 (0, 37) Dummy {f00=0x00ed, f01=0x0190, f02=»P @ , t EXTDMIH EXTLENT & , ( ! ! T W P . D Y T P 0 8 EXTBAS h , ( 9I Y V P 0 Y X U ! T z TASLFD , ( S ! X6 _R _V D Z" TASTBE , ( q$ P
0x01d4b4…01d648 Dummy {f00=0x00ed, f01=0x0190, f02=» @ 2 n , ( $P -W P B TASCAQ > QTJOB P * & @ * ` b(@( @ ` FDBADF& FDBDBR , ( ( _ d ` ` 9A EXTELE , ( D S f
0x01d648…01d7dc Dummy {f00=0x00ed, f01=0x0190, f02=»MRN , ( =@ R J S W S p S p MPYMODW < FDBMRO N , ( WB$ R H R J r S t ` o H D !%l P !Tn / d AP UP ] d P d Q< d _T u U P H D ! W V d T
0x01d7dc…01d970 Dummy {f00=0x00ed, f01=0x4038, f02=»W P W P ES GW p "@ 4 MPYMODW < FDBMRO N , ( WB$ R H R J r S t ` o H D !%l P !Tn / d AP UP ] d P d Q< d _T u U P H D ! W V d T
0x01d970…01db04 Dummy {f00=0x00ed, f01=0x40ba, f02=» J F IDENT DFTAB REL 9.2 79-11-16 870105040920 DFTAB DFTABE R DFTAB j DFTABE | @ B PDFTABE EQU * P END @ P* P* P* LEVE
0x01db04…01dc98 Dummy {f00=0x00ed, f01=0x4172, f02=» J F IDENT DMFDB REL 9.2 79-11-16 870105040920 < 8 FDBSTAK FDBEND QFDBFL CRNQUE CRBUFL CRNEND MXIND R CRBUFL QFDBFL r FDBSTAK FDBEND X CRNQUE X Y
0x01dc98…01de2c Dummy {f00=0x00ed, f01=0x0190, f02=» J F IDENT DMINIT REL 9.2 79-11-16 870105040920 DMINITK R DMINITK d INIFLG x , ( =a 9a Q - _ - > QFDBFL FDBSTA FDBEND CRNQUE , ( !
0x01de2c…01dfc0 Dummy {f00=0x00ed, f01=0x40da, f02=» h BUFDMIL BUFSNR BUFOR , , ( Q , - M M M @ < TASBLK l TASQUE ~ g$ A A > Q %PJ r @ FDBEND CRNQUE , ( !
0x01dfc0…01e154 (0, 38) Dummy {f00=0x00ef, f01=0x0190, f02=» J F IDENT DMSUBX REL 9.2 79-11-16 870105040920 . * FNDKMXK CHKKEY RDNXTR FNDKEY CRNUPD R FNDKMXK MPYMOD * & 4U :! 4 U , ( 9 & ?! , (
0x01e154…01e2e8 Dummy {f00=0x00ef, f01=0x0190, f02=»V _ W W | RDNXTR GTBKBU 0 , ( @ : T ; [ V ( B DMTIOZ r FDBRRO , ( " T E W D FDBMROP FDBRLE , ( V ; [ _ D V
0x01e2e8…01e47c Dummy {f00=0x00ef, f01=0x0190, f02=» GTLGRN# , ( D U E W ADDMODH B CALSNOT T DMTRBU f , ( ! @ P W x , ( =@ _ P [ FNDKEY d FDBMIA , ( Y Z
0x01e47c…01e610 Dummy {f00=0x00ef, f01=0x0190, f02=» FDBLRN , ( E E Z:Q , ( D D ZB W Z r @ , ( Q R W K ]d J _j @ W W p CRNUPD FDBADF FDBCRL , ( " : : " $
0x01e610…01e7a4 Dummy {f00=0x00ef, f01=0x412a, f02=» U R ( R ( S ( m@ S (_P (@ : , H D ! UP U 3 r AU EP OP YW }P Q R V W W T. V T L H D ! W V V Wn U W 7P 9W KP T~ W Wh P0 Q W, Q , ( R W W W !W %PL 7R CQ
0x01e7a4…01e938 Dummy {f00=0x00ef, f01=0x40ea, f02=» J F IDENT ADDMOD REL 9.2 79-11-16 870105040920 ADDMODK R ADDMODK d , ( P Q R ;A [ [ x ! : P Q R $ @ ,2,A14 B P OR.S
0x01e938…01eacc Dummy {f00=0x00ef, f01=0x40ea, f02=» J F IDENT DSUMOD REL 9.2 79-11-16 870105040920 DSUMODK R DSUMODK d , ( P Q R ;A [ [ x ! : P Q R $ @
0x01eacc…01ec60 Dummy {f00=0x00ef, f01=0x40ec, f02=» J F IDENT MPYMOD REL 9.2 79-11-16 870105040920 MPYMODK R MPYMODK d , ( P Q R ;A [ x ! [ : P Q R & @ . P*
0x01ec60…01edf4 (0, 39) Dummy {f00=0x00f0, f01=0x40ea, f02=» J F IDENT DIVMOD REL 9.2 79-11-16 870105040920 DIVMODK R DIVMODK d , ( Q R P ;A [ [ x ! : Q R P $ @ P RB(7) END1
0x01edf4…01ef88 Dummy {f00=0x00f0, f01=0x0190, f02=» J F IDENT DMSUBR REL 9.2 79-11-16 870105040920 F B EATESTK EASETB EARELB CRNGET CALSNO GTBKBU GTLGRNL DMTIOT R . * CHKIND REQEND DMTIOZ MOV:US MOV:SU CHKIND , ( ? ? !? P P !> P W
0x01ef88…01f11c Dummy {f00=0x00f0, f01=0x0190, f02=»WTTQ , ( = R L X P L P 4 M QTJOB < DWTTDM L DWTST ^ , ( Y X M M n IHRTN EATESTK z FDBEALL , ( q _8 > D W 0P Q F
0x01f11c…01f2b0 Dummy {f00=0x00f0, f01=0x0190, f02=» X 1 Y : , ( 4W 0P R Q P FREQUEW P * & W R D Q ( 0 5 @ b CRNGET FDBCRL , ( 1 A Z> : D W (P CRNTID CRNQUE
0x01f2b0…01f444 Dummy {f00=0x00f0, f01=0x018e, f02=»SNO X FDBBLF , ( G I D ) E : T DIVMOD P FDBEXT~ b , ( _ $ &S P W X $ t EXTLEN FDBCEX , ( yH ( * U U *_ EXTBAS
0x01f444…01f5d8 Dummy {f00=0x00f0, f01=0x0190, f02=» , ( P X 2 _ W Y 4 : DWTECB 8 ECBRC J , ( D 6 8 B :P T Z FDBDBR ECBBA BUFDMIT , ( D$ G :W X < Y < B > DMTIOZ DWT
0x01f5d8…01f76c Dummy {f00=0x00f0, f01=0x0190, f02=» GTBKBU , EXTDMI , ( ) 8_ X , P H X 0 8 & SECTLE V ECBRL h DMTGBU x ECBCW , ( ? ! # J C L NW C BUFSTAH , ( Y P R C > X B%? : X
0x01f76c…01f900 Dummy {f00=0x00f0, f01=0x0190, f02=» MPYMODF , ( 0 D $ V T 2 T , ( 4 ^ S W B MOV:US r , ( : U ; $ T $ T $ T x : : , ( $ T $ ) ] $ ) Y _$ , ( U x 0 )_8 $_ $
0x01f900…01fa94 (0, 40) Dummy {f00=0x00d8, f01=0x418e, f02=» Y _& (# )_4 $ ($ , ( ) YR_L U p 0_8 $ * _< Z H D ! P P P W #P 7P> ?R4 MP SP W P P W W P8 R l H D ! W R W P W6 'T ;U eSP mP qW U U. R P W P6 H D !
0x01fa94…01fc28 Dummy {f00=0x00d8, f01=0x4116, f02=» J F IDENT PFTAB REL 9.2 79-11-16 870105040920 PFTAB R PFTAB b DC15ON t SOPRN CHLTON FDONN DMINITA " U@
0x01fc28…01fdbc Dummy {f00=0x00d8, f01=0x0190, f02=» J F IDENT DVKB00 REL 9.2 79-11-16 870105040920 DVKB00K R DVKB00K d KBAD3 x CTAB01 , ( KB DVDY00 , ( %@
0x01fdbc…01ff50 Dummy {f00=0x00d8, f01=0x4028, f02=» X - 0 / 0 @ $ REL 9.2 79-11-16 870105040920 DVKB00K R DVKB00K d KBAD3 x CTAB01 , ( KB DVDY00 , ( %@
0x01ff50…0200e4 Dummy {f00=0x00d8, f01=0x4104, f02=» J F IDENT DVDY00 REL 9.2 79-11-16 870105040920 DVDY00K R DVDY00K d DYADN x * & DY % P @ 8 , 8 @
0x0200e4…020278 Dummy {f00=0x00d8, f01=0x0190, f02=» J F IDENT DVKB01 REL 9.2 79-11-16 870105040920 DVKB01K R DVKB01K d KBAD3 x CTAB02 , ( @ KB DVDY01 , ( %@
0x020278…02040c Dummy {f00=0x00d8, f01=0x4028, f02=» X - 0 / 0 @ $ REL 9.2 79-11-16 870105040920 DVKB01K R DVKB01K d KBAD3 x CTAB02 , ( @ KB DVDY01 , ( %@
0x02040c…0205a0 Dummy {f00=0x00d8, f01=0x4108, f02=» J F IDENT DVTP01 REL 9.2 79-11-16 870105040920 DVTP01K R DVTP01K d TPADN x , ( TP " @ 4 ( 4 @
0x0205a0…020734 (0, 41) Dummy {f00=0x00dd, f01=0x4104, f02=» J F IDENT DVDY01 REL 9.2 79-11-16 870105040920 DVDY01K R DVDY01K d DYADN x * & DY % P @ 8 , 8 @
0x020734…0208c8 Dummy {f00=0x00dd, f01=0x0190, f02=» J F IDENT DVKB02 REL 9.2 79-11-16 870105040920 DVKB02K R DVKB02K d KBAD3 x CTAB03 , ( KB DVDY02 , ( %@
0x0208c8…020a5c Dummy {f00=0x00dd, f01=0x4028, f02=» X - 0 / 0 @ $ REL 9.2 79-11-16 870105040920 DVKB02K R DVKB02K d KBAD3 x CTAB03 , ( KB DVDY02 , ( %@
0x020a5c…020bf0 Dummy {f00=0x00dd, f01=0x4106, f02=» J F IDENT DVDI02 REL 9.2 79-11-16 870105040920 DVDI02K R DVDI02K d DIADN x , ( DI ?O_o @ 2 & 2 @ 0,
0x020bf0…020d84 Dummy {f00=0x00dd, f01=0x4104, f02=» J F IDENT DVDY02 REL 9.2 79-11-16 870105040920 DVDY02K R DVDY02K d DYADN x * & DY % P @ 8 , 8 @
0x020d84…020f18 Dummy {f00=0x00dd, f01=0x4100, f02=» J F IDENT DVGP03 REL 9.2 79-11-16 870105040920 DVGP03K R DVGP03K d GPADN x * & GP % @ 4 ( 4 @ ECB ADD
0x020f18…0210ac Dummy {f00=0x00dd, f01=0x0190, f02=» J F IDENT TCLASS REL 9.2 79-11-16 870105040920 TCLASSK R TCLASSK d DVKB00 x DVDY00 DVKB01 , ( " ! 1 DVTP01 DVDY01 DVK
0x0210ac…021240 Dummy {f00=0x00dd, f01=0x4054, f02=» 0 z , ( x * 8 + 9 > >@ P TCLASSK R TCLASSK d DVKB00 x DVDY00 DVKB01 , ( " ! 1 DVTP01 DVDY01 DVK
0x021240…0213d4 (0, 42) Dummy {f00=0x00dd, f01=0x0190, f02=» J F IDENT SCLASS REL 9.2 79-11-16 870105040920 SCLASSK R SCLASSK d DWSI01 x DWSO01 DWII01 * & DWIO01 DW1501 DW150
0x0213d4…021568 Dummy {f00=0x00dd, f01=0x404e, f02=» | " ( # ) B 8@ J SCLASSK R SCLASSK d DWSI01 x DWSO01 DWII01 * & DWIO01 DW1501 DW150
0x021568…0216fc Dummy {f00=0x00dd, f01=0x0190, f02=» H F IDENT CTAB01 80.12.15/EV NORDJYLLANDS AMT & " CTAB01K CTAB02 CTAB03 CTAB04 P CTAB01K z CTAB02 CTAB03 CTAB04 , ( 0123 , ( ! 456789
0x0216fc…021890 Dummy {f00=0x00dd, f01=0x4140, f02=» 456789 `ABCDEFGHIJKLMNOPQRS , ( TUVWXYZ []' ^ > ?:_; =!"# * , ( $%&/() @ABCDEFGHIJKLMNOPQRS Z , ( TUVWXYZ []* < +.-, 0 23 , ( 456789 `ABCDEFGHIJKLMNOPQRS ! TUVWXYZ []'
0x021890…021a24 Dummy {f00=0x00dd, f01=0x2008, f02=» L = KMD11 DATE = 80 07 29 1216PACK NBR = 0011
0x021a24…021bb8 Dummy {f00=0x00dd, f01=0x0190, f02=» * P* * * P************************************* 2 P* ` P* j : P* THIS ROUTINE IS A SUBROUTINE TO THE POWER FAILURE t 8 P* RECOVERY ROUTINE (PFAR). IT'S ENTRY POINT SHOULD @ P* BE PRESENT IN THE POWE
0x021bb8…021d4c Dummy {f00=0x00dd, f01=0x0190, f02=»AVED IN DWTCHP r P* P* PSOPR EQU * ENTRY POINT * P IFT CPU852=1 J & P CF A15,SAVE8 SAVE A1-A8 ON STACK ` P XIF P* P IFT CPU852=0 " P MSR 8,A15 SAVE A1-A8 ON STACK P XIF P* " P CIO A1,1,SOPDA ACTIVA
0x021d4c…021ee0 Dummy {f00=0x00dd, f01=0x018e, f02=»DIT=0 " P LDKL A2,-2 POWER UP INDICATOR P XIF 4 P IFT CREDIT=1 @ P LDK A2,0 V P XIF h P t P IFF SOPX=0 | " P LDKL A6,DWSI02 ANY REQUEST ON $ P LD A4,DWTST,A6 GET STATUS WORD P RF(NN) SOPR1 YES P STR A2,A6 IND P
0x021ee0…022074 (0, 43) Dummy {f00=0x00de, f01=0x0190, f02=»CH KEY ~ P XIF P PFD:DIS EQU * " P ABL DISIOE REQUEST ERROR 6 P* X P IFT OPCLOS=1 b P EJECT x P* P******** P* * P* OPEN * P* * P******** P* 4 P* OPEN IS PERFORMED BY WRIT
0x022074…022208 Dummy {f00=0x00de, f01=0x0190, f02=»0 t ( P ANS A1,SPDLCI CLEAR OPEN/CLOSE BIT 0 P LD A1,SPDLCI SOP LIGHTS AND OPEN/CLOSE DATA 6 " P OTR A1,0,SOPDA OPEN FD DRIVE j P* * P* WAIT FOR DRIVE TO BECOME OPERABLE ( P LDK A4,DWTTP2 TIMER POINTER OFFSET ( P ADR A4,A6 A4:=TIMER
0x022208…02239c Dummy {f00=0x00de, f01=0x0190, f02=»BL TDISP EXIT P* POPENRE EQU * P* TIME HAS EXPIRED 4 P LDR A6,A1 GET DWT-ADDR R , P CM DWTTP2,A6 INDICATE NO TIMER RUNNING r & P RF OCLEXI COMMON OPEN/CLOSE EXIT P* P EJECT P* P********* P*
0x02239c…022530 Dummy {f00=0x00de, f01=0x0190, f02=»ERO OF THE SOP LIGHTS EXTERNAL REGISTER P* 0 PCLOSE EQU * : " P LDKL A1,/8000 MASK FOR BIT 0 N & P ORS A1,SPDLCI SET OPEN/CLOSE BIT t 0 P LD A1,SPDLCI SOP LIGHTS AND OPEN/CLOSE DATA " P OTR A1,0,SOPDA CLOSE FD DRIVE P* POCLEXI
0x022530…0226c4 Dummy {f00=0x00de, f01=0x0190, f02=» P EJECT DRFD01 P* P*************** & P* * > P* BASIC WRITE * V P* * n P*************** P* PFD:010 CF A5,BIO P ORK A2,1 PFD:015 EQU * P IFT TOSS+IBM=2 P LD A1,DWT
0x0226c4…022858 Dummy {f00=0x00de, f01=0x0190, f02=»ED j P CF A5,EBCDIC PFD:018 EQU * P XIF 4 P* @ P IFT CHAN+TOSS=2 J P IFT MMUPAG+SWPBLK=2 b 4 P LD A1,DWT:LA,A6 GET FLAG/LOGICAL BUFFER ADDRESS ~ ( P RF(Z) FD:019 BUFFER IN SYSTEM AREA? ( P LD A7,ECBRL,A8 GET REQUESTED LENGTH
0x022858…0229ec Dummy {f00=0x00de, f01=0x0190, f02=»SEUDO MMU TABLE | 2 P MVUS A7 MOVE BUFFER FROM USER TO SYSTEM AREA & P TL -30,A15 RESTORE MMU FROM STACK N P LDR A2,A8 RESTORE A2 x P* P EJECT DRFD01 P* P* PFD:019 EQU * P XIF P* " P CF A5,FD:WRITE PE
0x0229ec…022b80 Dummy {f00=0x00de, f01=0x0190, f02=»BUFFER WAS IN SYSTEM AREA? . P LD A1,DWT:BF,A6 GET SAVED BUFFER ADDRESS " & P ST A1,ECBBA,A8 RESTORE IT IN ECB T P* ~ PFD:025 EQU * P XIF P* P RF FD:048 GOTO FD:RC P* P****************** P* *
0x022b80…022d14 (0, 44) Dummy {f00=0x00f1, f01=0x0190, f02=» T C (@ B W ? _ X T (@ B| ^ > > ?(@ X P& T D #DP 0P X T 4 Y X E X T X W 1 1 X P - M T $ PD _ T " # p X L R P A P (@ > ^ X P8 P0 # P
0x022d14…022ea8 Dummy {f00=0x00f1, f01=0x0190, f02=» h _< ? ^ 4 _ D D @ 6 1 A 6 _ P 9 > > &@B 2 D L HD hq r*r r sH u uPq q FjFjG G G G G G G F F G<F F G G F G G F F " # $ % "$&( E E @ D X P _ L !##P
0x022ea8…02303c Dummy {f00=0x00f1, f01=0x0190, f02=»G Xv G B Y I B Y J_ W X C P C W < C C _H X H H S W C C B B B U X0 R Wp H TP L P B r L ( Z $ X _ X ` T I T J W P C X I X J S W C C W,
0x02303c…0231d0 Dummy {f00=0x00f1, f01=0x0190, f02=»M.K K I M.K I M.M.M.M.K K I F X (P R X (W G G : R $ - _ " P $ - : R $ - _ : Z $ -_ D ( U ( 0 W T ` U @ , @ W : X & X P !##T Y T( X P P P @[ Q (@ F Z : @ l_ [ ( H >
0x0231d0…023364 Dummy {f00=0x00f1, f01=0x0190, f02=» C X '? G X & X ( )T M. H H L X $TT T AH J , W P W T Y $ P T _ Y & F } } (@ _ K X & X I U X J U ( Yz T$ X X RP F Hl T M. P ` U0 @ , D !
0x023364…0234f8 Dummy {f00=0x00f1, f01=0x0190, f02=» 1 (@ KP / O $P % 4 F Hl (@ B } P 9 } MD 4' J ' J 5 J 4 Q W , P& ,' X X 1 Z" ) J _ (@ C ( B ! M. J @H F U G F G H M, & ( F "
0x0234f8…02368c Dummy {f00=0x00f1, f01=0x0190, f02=» + X ^V" P "P8 $P4W X & X bT( ;AR ( L ( H Yz T Y ^ F " F D '? P P( $ P" X I I K K P P & P XvW D $ T X0 T XZW E I E J X ^V ? T B } C (@( s B B
0x02368c…023820 Dummy {f00=0x00f1, f01=0x0190, f02=» C ( MV MX L " TOP P As L As L C s @s As Q< @s P$ As @s P B } Ds Es X #D( M ( B } B @s Ds }0W C C ( MV MX s s @s T As 0" P P U _ L
0x023820…0239b4 (0, 45) Dummy {f00=0x00f1, f01=0x0190, f02=»s T R , @s T R RT @s P P 6 Q 2% P P s r P %_ S E S E 3 P S I P S J P S ( P S * P % S H P & S P @s S , d S B | N N @s T W s T Wz @s P R ( >a U Wb 0
0x0239b4…023b48 Dummy {f00=0x00f1, f01=0x0190, f02=»s ( ^ W @t P6 I @s P @W V W HW IW (@ @s P -W P B } } t4 (@( @s QN _ T `s ` 9A S ^ H $X D S . S $ Z* R * S W S _ S ` R ( R * W S b P U _ L
0x023b48…023cdc Dummy {f00=0x00f1, f01=0x0190, f02=» T R , @ T R RT @ 6 2% P P %_ S E S E 3 P S I P S J P S ( P S * P % S H P & S P @ S , d S B | N N @ T W T W @ P R ( >a U W 0
0x023cdc…023e70 Dummy {f00=0x00f1, f01=0x0190, f02=» ( ^ W @ P6 I @ P @ V W H I (@ @ P -W P B (@( @ QN _ T ` ` 9A S ^ H $X D S . S $ R * S W S _ S ` R ( R * S b P U _ L
0x023e70…024004 Dummy {f00=0x00f1, f01=0x0190, f02=» T R , @ T R RT @ 6 2% P P %_ S E S E 3 P S I P S J P S ( P S * P % S H P & S P @ S , d S B | N N @ T W T W @ P R ( >a U W 0
0x024004…024198 Dummy {f00=0x00f1, f01=0x0190, f02=» ( ^ W @ P6 I @ P @ V W H I (@ @ P -W P B (@( @ QN _ T ` ` 9A S ^ H $X D S . S $ R * S W S _ S ` R ( R * S b W :
0x024198…02432c Dummy {f00=0x00f1, f01=0x0190, f02=» M _8 > D LW 0P Q P P E +P W : X + D X L 1 Y L : L 4W 0P8 R Q P W R D + Q ( 0 5 @[x 1 A[x Z> : D NW (P D + I W6 @V4T b ( AV4 U 1_ D + I D N ) E N : T * W SP P W
0x02432c…0244c0 Dummy {f00=0x00f1, f01=0x0190, f02=» W& X ^ Y ^ B I ~ B T B : X "? P P X T _ X . P X $ ! # C }0W C C X %? : X &_ 0 D . P , _ D . D $ D * W T ( T & ^ S W : U ; $ T $ T
0x0244c0…024654 (0, 46) Dummy {f00=0x00f1, f01=0x0190, f02=»$ T* (W $ U $ ) Y _& (# )_4 $ ($ ) YR_L U p 0_8 $_< } b~Ng ~d `.bvb > > @[ ( A[ W C ^ ! Z( [ (X0 @[ P T M ]@ , ) A[ P* P Y U ( ) 5 & > > [ [
0x024654…0247e8 Dummy {f00=0x00f1, f01=0x0190, f02=»T6 X T0. T G Y6 G _b P ,P - _ d _R_n!"&';<>@^_ 9: X ! Y M P ^ [ Y L]$]4]4] ^ ]N]H^Z^` ! 6 ! 6 ! 6W B W$ B L # 9Q T W Q P X & V T Y &W X ! T6 B
0x0247e8…02497c Dummy {f00=0x00f1, f01=0x0190, f02=»T " T W Q " T ) [ !_ Y _ ! 6 !_ Y &P Q W ! 6 Y '" _~_" _< !_ _n !_ _t B B , ! T _ D ! P ! P W C V B P ! 6 ! 6 ! 6 Y 4 RNQ " PH _ " P R: M T2 ! 6 L ,! :D" !_ Y Y U
0x02497c…024b10 Dummy {f00=0x00f1, f01=0x0190, f02=» X P " ! 6 Y ' ! 6 X T ! 6 [ ] [ R _ 4 ! 6 ! 6 ! 6" T ! 6 ! 6 ! 6 ! 6 4 X ' 4 Y ' ! 6 ! 6" P ,$ , ! 6 4!"$&;<>@^_ x `8 a b(a PB P8 [ B P B L # +P ! 6 ! 6 T ! 6 Y & ! 6W
0x024b10…024ca4 Dummy {f00=0x00f1, f01=0x0190, f02=» _P " $ P X & X ]r ! 6 Y Y Y _ " H` _ ! 6 ! 6 a` C [ X C _ X Y & Y > B B U$ $ ! T _ U D ! T _ C > X Z^<BR P j d X _x R0 V0 ! P* P P P" R ?Q ! 6 Y
0x024ca4…024e38 Dummy {f00=0x00f1, f01=0x0190, f02=» a aV b~ b b B 8# T $ # ;D 7P P [ Y W Y X Y 8# T W$ T( X $ P X P B V *@ Y [ [ ? X _F c g eFeXe d ! 6 P P d & d [ B P B H " +P P. T Y ' ! 6 R| X ( Y &R
0x024e38…024fcc Dummy {f00=0x00f1, f01=0x0190, f02=» d X`" Ec P( 8'0P Ec TD ! T 9 _ ! T @_ ! B P !f B C d ^N P R ?] _ C _ " $ P X ' X ] ! 6 e. c B !f !f ! 6 d B Y & !f W c 8!0T 8 !@P ! 6$ P
0x024fcc…025160 Dummy {f00=0x00f1, f01=0x0190, f02=» ? Y ! 6 T X ! 6 Y & Zl e T _ ! 6 X $ P !f c R V P P" ! 6 e.W e ( X $ X !f _ X $ X X & !f !f Y _8 X " X &" Y )U W ! 6 ! 6 ! 6 Y 4 B c U )X R@ X X
0x025160…0252f4 (0, 47) Dummy {f00=0x00e4, f01=0x0190, f02=» A3,A2 % * PGBUF10 ADKL A15,4 ADJUST STACK POINTER & P ABR* A15 RETURN TO CALLER & < P EJECT & ^ P* & l P* & v ( P* INSERT DWT IN WRITE REQUEST QUEUE & P* & P* A2,A3,A4 DESTROYED & P* A6=DWT & P* & ( PINSWQ LDKL A2,DCWRQ GET QUEU
0x0252f4…025488 Dummy {f00=0x00e4, f01=0x018e, f02=»Q2 & PINSWQ3 ADR A4,A6 ' P STR A4,A2 INSERT IN QUEUE ' " " P CMR A4 INDICATE END OF QUEUE ' D P RB GBUF10 RETURN ' j P* ' P* ' * P* REMOVE DWT FROM WRITE REQUEST QUEUE ' P* ' P* A2,A3,A4 DESTROYED ' P* A6=DWT ' P* ' * PRE
0x025488…02561c Dummy {f00=0x00e4, f01=0x0190, f02=» PREM10 LDR* A3,A2 ( & P RB(Z) GBUF10 NOT ON QUEUE: RETURN ( P CWR A3,A4 ( F P RF(E) REM15 ( X P LDR A2,A3 GET NEXT ( l P RB REM10 ( PREM15 LDR* A3,A4 REMOVE ( P STR A3,A2 ( P RB GBUF10 RETURN ( P EJECT ( P* ( P* ( P
0x02561c…0257b0 Dummy {f00=0x00e4, f01=0x0190, f02=»STQ GET QUEUE ANCHOR ( P LDK A4,DWTSQ ) P RB INSWQ2 ) 2 P* ) D P* ) N " P* REMOVE DWT FROM STATUS QUEUE ) X P* ) ~ P* A2,A3,A4 DESTROYED ) P* A6=DWT ) P* ) * PREMOVS LDKL A2,DCSTQ GET QUEUE ANCHOR ) P LDK A4,DWTSQ ) P RB RE
0x0257b0…025944 Dummy {f00=0x00e4, f01=0x0190, f02=»,A3 DESTROYED ) P* * PQRBUF EQU * * P IFT MESPAS=1 * 4 ( P LDKL A2,DW1500 QUEUE ON DC-TASK DWT * J P XIF * v P IFT MESPAS=0 * $ P LDR A2,A6 QUEUE ON TERMINAL DWT * P XIF * , P ADK A2,DWTRQ BEGINNING OF RECEIVE QUEUE * PQR100 EQU *
0x025944…025ad8 Dummy {f00=0x00e4, f01=0x0190, f02=»E * p " P CMR A4 INDICATE END OF QUEUE + P RTN A5 + 0 P EJECT + @ P* + N P* + X 2 P* CHECK IF UNEXPECTED MESSAGE OR STATUS CHANGE + b P* + 4 P* REGISTERS A1,A2,A3,A4,A6 AND A8 ARE DESTROYED + P* + PCKMESS LDKL A6,DW1500 + P LD A1
0x025ad8…025c6c Dummy {f00=0x00e4, f01=0x018e, f02=»A8,DWTECB,A6 ECB ADDR TO A8 + * P LD A3,DWTRQ,A6 A3=ADDR TO READ QUEUE , $ " P RF(Z) CKM200 NO READ IN QUEUE , R P , x P , , P LDR* A2,A3 A2=ADDR TO NEXT READ BUFFER , . P ST A2,DWTRQ,A6 STORE THIS ADDR INTO QUEUE , " P ADK A3,6 MOVE POINTER TO TEXT
0x025c6c…025e00 Dummy {f00=0x00e4, f01=0x0190, f02=» , . P ST A4,ECBCW,A8 STORE LINE DEVICE ADDRESS - P - : P LDK A1,0 RESET RETURN CODE - B & P LDR A4,A3 RECEIVE BUFFER ADDRESS - f , P CF A15,DC:MIN MOVE DATA TO USER BUFFER - * PCKM110 ADKL A15,4 ADJUST STACK POINTER - P ABR* A15 RETURN - 8 PCK
0x025e00…025f94 (0, 48) Dummy {f00=0x00e6, f01=0x0190, f02=»A5,READP SKIP NEXT TWO CHARACTERS e P CF A5,READP f * P XIF f > PRDM100 EQU * f J $ P CF A5,READP READ ONE CHARACTER f ^ P RF(NZ) RDM120 PARITY ERROR f PRDM110 EQU * f P CWK A2,ETX f P RF(E) RDM130 ETX RECEIVED f P CWK A2,ETB f P
0x025f94…026128 Dummy {f00=0x00e6, f01=0x0190, f02=»BEDDED IN MESSAGE f t P CWK A2,/FF g $ P RF(E) RDM140 MARK HOLD RECEIVED g . P g V P IFT CODE=0 g ^ P IFT BINTRM=1 g r P g P LDR A1,A2 g P SUK A1,DC1+3 g P RF(P) RDM115 NOT DC1-DC3 g P ADK A1,3 g P RF(N) RDM115 NOT DC1-DC3 g
0x026128…0262bc Dummy {f00=0x00e6, f01=0x0190, f02=»ASSEMBLE TO ONE CHARACTER g P ORR A2,A8 h " PRDM115 EQU * h 4 P XIF h H P h T P SCR A2,A4 STORE CHARACTER h P ADK A4,1 INCREMENT POINTER h ~ $ P IM FBAX INCREMENT BUFFER INDEX h P LD A1,FBAX h P CWK A1,RBUFL+RBUFL h P RB(NG) RDM100
0x0262bc…026450 Dummy {f00=0x00e6, f01=0x0190, f02=» INVALID MESSAGE h ~ P SUK A2,/7F i $ P RF(Z) RDM150 MARK HOLD RECEIVED i , P RB RDM100 i T P* i f P* ETX RECEIVED i p P* i PRDM130 EQU * i $ P LD A1,DCRBUF GET BUFFER ADDRESS i P LD A2,FBAX GET BUFFER INDEX i 2 P ST A2,+2,A1 STORE EFFEC
0x026450…0265e4 Dummy {f00=0x00e6, f01=0x0190, f02=»F A5,RDCRC READ CRC AND CHECK IT i P RF(E) RDM150 CRC WAS OK j ( P XIF j H PRDM140 EQU * j T & P LDK A3,1 INDICATE INVALID MESSAGE j h PRDM150 EQU * j $ P LDR A7,A3 SAVE RESULT REGISTER j P CF A5,HALTIN HALT INPUT j P IFT P6805=1 j " P ORR A
0x0265e4…026778 Dummy {f00=0x00e6, f01=0x0190, f02=» A3,A3 j " P RB(NZ) RDM130 ALREADY INVALID k " P LDK A3,2 INDICATE CORRECT ETB k 4 P RB RDM130 k Z P* k l P* ITB RECEIVED k v P* k PRDM170 EQU * k P IFF CODE=1 k P CF A5,RDLRC k " P RB(NZ) RDM120 LRC WAS NOT OK k P XIF k P IFT
0x026778…02690c Dummy {f00=0x00e6, f01=0x0190, f02=» P* l P* TRANSMIT ACK 0 OR 1 l P* l , PTRACK LDK A2,1 l 6 P LDK A3,ACK1 PRELOAD ACK1 l L & P XRS A2,CACK INCREMENT ACK COUNTER l n P RF(NZ) TRDLE l P LDK A3,ACK0 LOAD ACK0 l P RF TRDLE l P* l P* TRANSMIT WACK l P* l
0x02690c…026aa0 Dummy {f00=0x00e6, f01=0x0190, f02=»OAD RVI l ~ P XIF m P* m P* TRANSMIT DLE m & P* m < PTRDLE LDK A2,DLE LOAD DLE m F " P SC A2,RESEND PUT INSAVE AREA m h P SC A3,RESEND+1 m P RF TRREP m P EJECT m P* m P* TRANSMIT NAK m P* m PTRNAK LDK A3,NAK LOAD NA
0x026aa0…026c34 (0, 49) Dummy {f00=0x00f3, f01=0x0190, f02=» p V ` $ W ` ;h 0 :C # : .=H N .=H N N : d 8" R _ ZY QY : @ V H W z W | CRP W ` ` H W d 2 ;A @ >R - @ - N !TTP
0x026c34…026dc8 Dummy {f00=0x00f3, f01=0x0190, f02=»T d TWh B 2 .:H N P V _ R :h " B YV : v `?A @ W W :b / W W @ W D V W W ` " W p @
0x026dc8…026f5c Dummy {f00=0x00f3, f01=0x0190, f02=» V V W W V V >k 8 W W t V V v x ( % , 8 @ W A R 6 P E r 6 E @ @ W @ @ %
0x026f5c…0270f0 Dummy {f00=0x00f3, f01=0x0190, f02=»P @ P " P " P " P W W . !TTP @ T Y !TTX" A 9 A : @ @ P. @ " P #D " P #E " P #F : @ " P @ P 3 _ @ " P S 1 S 9J S ( 3 ( 9B @ @
0x0270f0…027284 Dummy {f00=0x00f3, f01=0x0190, f02=» ( @ % P W @ % P P0 ( r " U _2 P0 ( " U _2 V V tPJ S ( V | S =J @ " S V l S W l V p S W p W _L @
0x027284…027418 Dummy {f00=0x00f3, f01=0x0190, f02=» A V W W t PT W f ( ( W d 8 t G =h G V d V r < V f P W f _B V W V t Yr !TTX @ @ T : W > V 0 V P _ W $ q > R
0x027418…0275ac Dummy {f00=0x00f3, f01=0x0190, f02=» 0 I , I . $# P V -W H P U & I @ % PH H I H T P, H U V U W < + + P : V $ F !LLT # W ;I # ;b W ;a WR# T W W,# T W W # T W W W
0x0275ac…027740 Dummy {f00=0x00f3, f01=0x0190, f02=»_ *T P$ _ .P _ / V z U Y$ P W | V z 3 % W P _ V |P V v ][~ P _ @ @ T @ A : . !TTP V W t * P ( r _
0x027740…0278d4 (0, 50) Dummy {f00=0x00f3, f01=0x0190, f02=» _j V t Y !TTX @ @ T : !TTX !CCTr P, ( V r 4 U $ $ _. P, ( V 4 U $ $ _. @ @ @ ! P V 8 8 8 @ >B 3 . !CCP
0x0278d4…027a68 Dummy {f00=0x00f3, f01=0x0190, f02=» 8 8 8 4 D P$ @ # P H I K T + Y@ _pR& @ @ @ % P V 4 4 4 _r @ @ T : @ ! P @ @ l CRT 3 @ l l S @ l PP l !RRP @
0x027a68…027bfc Dummy {f00=0x00f3, f01=0x0190, f02=» [x ` @ P _ 3 S S V V W @ @ T : P S S _ : N =H N : N =H N : &=H F : F =H F : F =H F : P N =H N T _ : 00=H 00 P
0x027bfc…027d90 Dummy {f00=0x00f3, f01=0x0190, f02=» 0 | 1 | 2 | P ! ! 1 j @ $ P L 0 B L R X ^ t a `!V ,g g ,g g . TDC 2 U
0x027d90…027f24 Dummy {f00=0x00f3, f01=0x0190, f02=» 4 TP 8b DY : P P ~dKB 6~N : & j 8b DY
0x027f24…0280b8 Dummy {f00=0x00f3, f01=0x0190, f02=» (bvDI @ ?O_o 8b DY x ,g P 4`.GP . TDC 2 U
0x0280b8…02824c Dummy {f00=0x00f3, f01=0x0190, f02=» [ Q@ [ R { R [ _ L Z ! Z $ Z %_N [ Q* L R [ Z { L z 9e! W Z : V I _ , " -! 9H X" ,9 -9d_ Z H D & H D % [ ( !!
0x02824c…0283e0 Dummy {f00=0x00f3, f01=0x0190, f02=» 6WD K K K K V K : V V V Z P 2 " T W "@T '?W "? H X" K :e J J " J _Z Z Z [ Z P [ V 6 [ 7 V R (Q V : (
0x0283e0…028574 (0, 51) Dummy {f00=0x00f3, f01=0x0190, f02=» T& P r l Z T T8 W l H D ! F T X J P p W T l )T ; P e i ( H D ! @ wP6 }R0 P T$ T W P F T 2 T2 P4 PJ PL P P. t H D !6 W P ! F - /P 7 E ST WW [W gW kW oW " "
0x028574…028708 Dummy {f00=0x00f3, f01=0x001e, f02=» p x
0x028708…02889c Dummy {f00=0x00f3, f01=0x0190, f02=» t B J r r b c @ Tg t z ^ ^ bHPH H ^2 Z ` z
0x02889c…028a30 Dummy {f00=0x00f3, f01=0x0190, f02=» 4c @Sw D d 2Z $"z y B % y D Dbb d & B 6P yB W [~ ? d f% L "~ T &b ECn 1 d _ A X " , _ @ , > > U # T @ l H ( ( P c P W: P, A , 4 V ( U P" @E V LE W @E
0x028a30…028bc4 Dummy {f00=0x00f3, f01=0x0190, f02=» 6 8 2 Q Z P 0 9 h h_ $ 4 _, ? P H H #P h A X A FQ ? @ * : ) A *_ @ @ A H A ,_ ? ? ? ? ? ^ A _ _ ^ * $P T I R $ 5 % > ? W ? W ? T T U U U T
0x028bc4…028d58 Dummy {f00=0x00f3, f01=0x0190, f02=» 0 @ 1 A P P > ? * X " R" Y T ? X D FpT> X@W8 > _& @ 8 R" Y T ? X D FpT X@W > _& W2 > 8 X W( ? ` @ @ P $ H W W > > > > > > @[ V ? [ > _ > ? _ > > ? ^ ! Y ^ _ b ? ZA.
0x028d58…028eec Dummy {f00=0x00f3, f01=0x0190, f02=» pU J BAB rU J B B pU J BQB rU & P B " P Q :A H P P B H &!@T I & J T &! 1 U ' F A
0x028eec…029080 Dummy {f00=0x00f3, f01=0x0190, f02=» P 4 ] " P $ P ] U ( PH U P< P0 P, R 4T ] U ( X "0Tp+ Y WH 8Z R 4 U R ] U ( # $P4> R0> 8' T Y X ' T P X P " >Wh b T # Y U & T ] "W 8V b X $
0x029080…029214 (0, 52) Dummy {f00=0x00f2, f01=0x0190, f02=» "K : A T 2 ; Z [ : : [ [ : A I ! ( : A A A W Z A. c R $ )_
0x029214…0293a8 Dummy {f00=0x00f2, f01=0x0002, f02=» X
0x0293a8…02953c Dummy {f00=0x00f2, f01=0x0190, f02=» J F IDENT TLDSEG REL 9.2 79-11-16 870105040920 TLDSEGK TLDS15 TLDS20 R TLDSEGK t SCTNOS LKM030 SCTSEG , ( R @ U 9C @ TTB:SB@ SEG:D
0x02953c…0296d0 Dummy {f00=0x00f2, f01=0x4114, f02=» SCTMMP SCTNPE , ( 5B@ D " @ @ - U " SCTLAP` R TTB:MT d T:ACSBN v TTB:SA * & O _ 9B @ T W X g > R U %T /W. IU j
0x0296d0…029864 Dummy {f00=0x00f2, f01=0x2008, f02=»
[…0x1…]
0x0299f8…029b8c Dummy {f00=0x00f2, f01=0x0190, f02=» P _ N L % V d V f v G G v U r v G v : NP L V V : r V ~P W x _$ 8 V V x % V v % : V V 9k! P % _ V V W W r W V v ) W b G
0x029b8c…029d20 Dummy {f00=0x00f2, f01=0x0190, f02=»X4 B V_ ` @ ` W W ~ pPn D V W % 6 R , " E R & W ~ R & R P R Xv _|W NT : L W x V_ V P I D W z ` pPl H - V I 0 " R
0x029d20…029eb4 (0, 53) Dummy {f00=0x00f4, f01=0x0190, f02=» 4 Z ! ( 4 X " 4 ! ) 4 X P 4 X P y _^ _n Y X P Y : ! ! ^ X # P Y :A , X A Y @ B. X Y
0x029eb4…02a048 Dummy {f00=0x00f4, f01=0x0190, f02=» _ W B R X X P W P Q U _ T : B R ' P Q 9BW Q 9C B ! T 4 V P ;A _ 4 X # P _ 4(@ R D 1_ W (@ R 0 D ] _ ! 4 ! ;E :B 9A ! U P jW kQ
0x02a048…02a1dc Dummy {f00=0x00f4, f01=0x0190, f02=» 4 Z ! ( 4 X " 4 ! ) 4 X P 4 X P y _^ 6 6 X P Y : ! ! ^ X # P P4 P P 1P0 P W P P 5P B B J X P WL B 9 B Y B Y ! P. @=r = B @=t `=t @=tP 0P _ %
0x02a1dc…02a370 Dummy {f00=0x00f4, f01=0x0190, f02=» F X P A E Y Wb Y @_ X X A 0 E 8 Y _& Y @ 0 A A _: X P ( y Y W " (P 0 ) > " (P _ ) 1_ (P _ ) 1_0 (X< P _ 0 )_J (P _ ) 1 4 ! X R< X T4 X P0 , Y L C L
0x02a370…02a504 Dummy {f00=0x00f4, f01=0x0190, f02=» A A W > 4 y ! B ! T P P " ! Tf Tb A! P A! TR ! TL ! TD T@ ! T8 ! A I A P " !! 8_ !! T ! " X ! _ !! A @
0x02a504…02a698 Dummy {f00=0x00f4, f01=0x0190, f02=» @" @ T 1 R 0 2P P P A h @ 8 H> @" P E ! PH X RB X P X T4 P C T C X T ! W D | D W" X R X T D ! ! _ A @ X A A A @ A !! @ T @ P ! D !! @ T @
0x02a698…02a82c Dummy {f00=0x00f4, f01=0x0190, f02=» 4 A _ A " < A @ T _, _0 @ T8W @" T ! _ ! ! _ A A E A A 4 @ P ! 8 !! !!fW @ T ! 4_ T _ A 4 C D4 B B A A A A A ! l !! A _^_V @ P6 X R0 X P T$ T Y W T
0x02a82c…02a9c0 Dummy {f00=0x00f4, f01=0x0190, f02=» ]6W P _@ @" @ E !! P ! 4 _$ !! 2_l 1 A T 0W ;W A A W W W A A ! j @ ! @ ! ! ! B J 4 ! j ! @ @ A @ T( @! ! 8 ! @ P - ! x != W 0 " @ PL R ~T }T T0
0x02a9c0…02ab54 (0, 54) Dummy {f00=0x00f5, f01=0x0190, f02=» P U _ L !SSP !LL P W L @tL AtLV Q> P EtN @tB EtP P Et^ P Et` DtNT tnP Q> RJ 2% P( R 0 XtDT R , @ttT R RT @t Qd Q> 6 RJ 2% P Q> tn r P %_ S Fp S E 3 P
0x02ab54…02ace8 Dummy {f00=0x00f5, f01=0x0190, f02=»P R ( >a U Wb 0 =b PtNP @tL ! T. W< PtP DtD Y Pt^ Y Pt` Y U ! T ! X6 _R _V Dt " P tv Atw ( ^ W @t P6 I @t P @X( V W HX* IX,(@ @tnP -W P B ~* ~2 t (@( @t
0x02ace8…02ae7c Dummy {f00=0x00f5, f01=0x0190, f02=»X6 S b Qd U _ L !SSP !LL W L @ A V P E @ E P E P E D T P 2% P R 0 X T R , @ T R RT @ 6 2% P P %_ S Fp S E 3 P
0x02ae7c…02b010 Dummy {f00=0x00f5, f01=0x0190, f02=»P R ( >a U W 0 =b P P @ ! T W P D Y P Y P Y U ! T ! X6 _R _V D " P A ( ^ W @ P I @ P @ V W H I (@ @ P -W P B (@( @
0x02b010…02b1a4 Dummy {f00=0x00f5, f01=0x0190, f02=» S b Qd U _ L !SSP !LL W L @ A V P E @ E P E P E D T P 2% P R 0 X T R , @ T R RT @ 6 2% P P %_ S Fp S E 3 P
0x02b1a4…02b338 Dummy {f00=0x00f5, f01=0x0190, f02=»P R ( >a U W 0 =b P P @ ! T W P D Y P Y P Y U ! T ! X6 _R _V D " P A ( ^ W @ P I @ P @ V W H I (@ @ P -W P B (@( @
0x02b338…02b4cc Dummy {f00=0x00f5, f01=0x0190, f02=» S b X2 : : : ? ? !? P P !> P W 9P _ T !##P> ? R4 L TX P L P 4 M X M M _8 > D LW 0P Q P P E +P W : X + D X L 1 Y L : L 4W 0P8 R Q P W R
0x02b4cc…02b660 Dummy {f00=0x00f5, f01=0x0190, f02=» T * X<SP P W X * 0 U U. _ Y . R P Y $ P X ( _ W Y & : B P6 T G W& X ^ Y ^ B I ~ B T B : X "? P P X T _ X . P X $ ! # C } W C
0x02b660…02b7f4 (0, 55) Dummy {f00=0x00f0, f01=0x0190, f02=» ADDRESS IN CD:TAB AND COMPARE DWTVOL P* . P LD* A6,SCTCDT 8 PTAS130 SUK A6,4 N 2 P RF(N) TASHLT FC NOT FOUND? SHOULD NOT OCCUR. f P LD A5,SCTCDT P ADR A5,A6 P CC A1,1,A5 P RB(NE) TAS130 NOT THIS FC P LDR A11,A11
0x02b7f4…02b988 Dummy {f00=0x00f0, f01=0x0190, f02=» P* LOCK FLEXDISC P* P LDKL A8,TASECB ( " P ST A1,ECBFC,A8 FLEX FILE CODE @ P SUR A12,A12 f P LDK A7,/A6 LOCK,WAIT z P LKM P DATA 1 P LD A7,ECBRC,A8 P RF(Z) TAS131 P ANKL A7,/7FFF " P RF(NZ) TASF10 N
0x02b988…02bb1c Dummy {f00=0x00f0, f01=0x0190, f02=»NZ) TAS150 GRAVE ERR PTAS131 EQU * P ST A1,TASVOL,A2 SAVE FC 0 P P P AD A6,SCTCDT X P LDR* A5,A6 INDEX n $ P LDK A1,0 DISC NAME DISPLACEMENT P SRL A5,8 P RF(Z) TAS135 , P* DECIDE DISC DISPL FOR THIS FILE CODE $ P
0x02bb1c…02bcb0 Dummy {f00=0x00f0, f01=0x0190, f02=»AS132 PTAS135 EQU * P LD A6,2,A6 DWT ADDR " & P RF(Z) TASHLT NO DWT ADDRESS FOUND > & P ADR A6,A1 POINTER TO VOLUME NAME h P LDK A1,3 VOL NAMES 3 WORDS & P LDR A5,A4 POINTER ASBLK VOL NAME P* , P* CHECK VOLUME NAMES IN DWT
0x02bcb0…02be44 Dummy {f00=0x00f0, f01=0x0190, f02=»2 P SUK A1,1 . P RB(P) TAS140 CHECK NEXT WORD IN VOL NAME P* N P* VOL NAME MATCH X P* STORE DMI , FC IN TASVOL r P* P LD A1,TASVOL,A2 P ANK A1,/0F P CWK A1,/8 $ P RF(L) TAS143 NOT FLEXIBLE DISC P L
0x02be44…02bfd8 Dummy {f00=0x00f0, f01=0x0190, f02=» t P* 1 FOR DRIVE 2 " P* 2 FOR FLEXDISC , P* R P SC A1,TASVOL,A2 P* t 6 P* SAVE FILE CODES FOR NEWLY LOCKED FLEXDISCS =1 ~ 2 P* (ONLY SIGNIFICANT WHEN A11 = 1 ) =1 START P* P SUK A1,2
0x02bfd8…02c16c Dummy {f00=0x00f0, f01=0x0190, f02=»,TASVOL+1,A2 FILE CODE P SC A3,TASLFD,A1 SAVE PTAS147 EQU * =1 END < P* X P* CHECK NEXT VOL IN ASBLK b P* P LDK A1,0 RET CODE P ADK A4,6 P SUK A2,2 ( P RB(NN) TAS110 MORE VOLUMES TO CHECK * P RF TAS155 OK
0x02c16c…02c300 Dummy {f00=0x00f0, f01=0x0190, f02=» P ANK A1,/F8 P SUK A1,/F8 P RF(NZ) TAS150 NO FLEXDISC , P LDR A12,A12 LFLAG N P RF(NZ) TAS150 LOCKED BEFORE h P* P* UNLOCK P* P LDK A7,/B8 UNLOAD,WAIT P LKM P DATA 1 P* & P* NO MATCH TRY
0x02c300…02c494 (0, 56) Dummy {f00=0x0106, f01=0x0190, f02=» LABEL = KMD08 DATE = 790830 PACK NBR = 001 f : ] =IR E
0x02c494…02c628 Dummy {f00=0x0106, f01=0x0002, f02=»
0x02c628…02c7bc Dummy {f00=0x0106, f01=0x00a4, f02=» ASM START PSCR /O ASM VDUPRT $ PSCR /O 6 ASM PRT D ASM TB3270 T PSCR /O f TRA DATDIV t SCR /O ASG /E0,TY10
0x02c7bc…02c950 Dummy {f00=0x0106, f01=0x2008, f02=» START PSCR /O ASM VDUPRT $ PSCR /O 6 ASM PRT D ASM TB3270 T PSCR /O f TRA DATDIV t SCR /O ASG /E0,TY10
0x02c950…02cae4 Dummy {f00=0x0106, f01=0x40a2, f02=» L H IDENT S:BTAB TRA 4.1 79-05-07 F1 O1111 REL 2.1 79-05-07 87015054012 S:BTAB T S:BTABB f z :B @ T :A @ D0 * @
0x02cae4…02cc78 Dummy {f00=0x0106, f01=0x0190, f02=» L H IDENT Z:TB10 TRA 4.1 79-05-07 F1 O1111 REL 2.1 79-05-07 87015054012 Z:TB10 T Z:TB10T f * & z * & * & = * &
0x02cc78…02ce0c Dummy {f00=0x0106, f01=0x0190, f02=» * & , * & Z * & * & - * & K
0x02ce0c…02cfa0 Dummy {f00=0x0106, f01=0x0190, f02=» n * & * & : * & h * & * & ; * & Y
0x02cfa0…02d134 (0, 57) Dummy {f00=0x00f4, f01=0x0190, f02=» % t P RF(NG) TIOD25 CRN <= LRN & PTIOD23 EQU * & * P LDKL A3,/1000 END OF FILE & > P ORS A3,ECBRC,A8 & ` P ANK A7,/3F & x P SUKL A7,SQR SEQ READ & P RF(NE) TIOD25 NOT SR & P LDR A1,A3 & P RF TIODME & PTIOD25 EQU * & 6 P CF A14,
0x02d134…02d2c8 Dummy {f00=0x00f4, f01=0x0190, f02=»TE DMTASK WITH FDB ADDRESS IN A1 & P* ' ( PTIOD68 EQU * ' 2 P ENB ' F P ENB ' R P INH ' ^ P LDR A1,A6 FDB ADDRESS ' j P LDK A7,0 ' $ P LC A7,EXTDMI,A4 TID FOR DMTASK ' P ADKL A7,'#D' ' P CF A15,FNDTID A2:=TTAB ADDR ' P LDR A5,A2 '
0x02d2c8…02d45c Dummy {f00=0x00f4, f01=0x0190, f02=»TE DMTASK ' | P* ( P* EXIT TO TDISP ( P* ( 6 P ABL TDISP ( @ P* ( R P EJECT ( P* ( j P************** ( t P* TIODME * ( P************** ( P* ( J P* TIODM ERROR CALL TENDIO WITH RETURN CODE IN A1 AND GOTO DISPATCHER (
0x02d45c…02d5f0 Dummy {f00=0x00f4, f01=0x4056, f02=»RESS ( , P ABL DISEND CALL TENDIO GOTO DISPATCHER ) P* ) < P END ) F@ ) R R P EJECT ( P* ( j P************** ( t P* TIODME * ( P************** ( P* ( J P* TIODM ERROR CALL TENDIO WITH RETURN CODE IN A1 AND GOTO DISPATCHER (
0x02d5f0…02d784 Dummy {f00=0x00f4, f01=0x2008, f02=» *
0x02d784…02d918 Dummy {f00=0x00f4, f01=0x0190, f02=» P STR A1,A4 P ST A4,FREQUE SET BLOCK FREE P LD A2,2,A4 > P LD A1,4,A4 R P* f P IFT CPU852=1 p P RF IHRTN P XIF P* P IFT CPU852=0 P RTN A15 P XIF P* P EJECT MSUBS P*
0x02d918…02daac Dummy {f00=0x00f4, f01=0x0190, f02=» A5 = TTAB ADDRESS 8 P* A7 = ORDER CODE WHEN CALLED FROM DATA MANAGEMENT P* A8 = ECB ADDRESS X P* t P* EXIT PARAMETERS:- ~ P* P* A2 = DWT INDEX * P* A6 = DWT ADDRESS IF FOUND, ELSE 0 P* P* PFNDDWT
0x02daac…02dc40 Dummy {f00=0x00f4, f01=0x0190, f02=»GTH v P* P IFT MMUPAG=1 & P ELR A2,A8 LOAD FILE CODE FROM ECB , P XIF V P* b P IFT MMUPAG=0 l ( P LDR* A2,A8 LOAD FILE CODE FROM ECB P XIF P* P EJECT MSUBS P* P* PFND100 SUK A1,4 ( P R
0x02dc40…02ddd4 (0, 58) Dummy {f00=0x0109, f01=0x0000, f02=»
[…0x7…]
0x02e8e0…02ea74 (0, 59) Dummy {f00=0x010a, f01=0x0000, f02=»
[…0x7…]
0x02f580…02f714 (0, 60) Dummy {f00=0x00f7, f01=0x0190, f02=»ECK NEXT M r P LDR A6,A1 FDB ADDR N P LDKL A1,/4000 KEY NOT FOUND N , P RF DMERR N P PCHK100 EQU * N b P LDR A6,A1 FDB ADDR N v P LD A7,DWTOR,A6 N P ANK A7,/3F ORDER INDEX N P LDK A2,0 N P LC A2,FDBNIF,A6 N P CWR A2,A12 N ( P
0x02f714…02f8a8 Dummy {f00=0x00f7, f01=0x0190, f02=»R N P XIF O $ PDMEAER LDKL A1,/2000 EA PROTECT O PDMERR ABL DMTERR O > P EJECT O V P* O d P* MOVE RECORD O n P* O PDMT310 EQU * O P IFT INDXAC=1 O P LDR A2,A7 O P SUK A2,QDEL O " P ABL(E) DMXDEL INDEXED DELETE O P X
0x02f8a8…02fa3c Dummy {f00=0x00f7, f01=0x0190, f02=»FROM ADDRESS O P* P P IFT MMUPAG=0 P P XRR A4,A1 P 4 P ANK A4,/01 P F ( P RF(E) DMT320 BOTH ODD OR BOTH EVEN P Z & P CF A14,DMTBM ONE ODD AND ONE EVEN P P RF DMT340 P P* P PDMT320 LDR A4,A3 P P ANK A4,/01 P P RF(E) DMT330 BO
0x02fa3c…02fbd0 Dummy {f00=0x00f7, f01=0x018e, f02=»RD MOVE P z P* Q P XIF Q P* Q & P IFT MMUPAG=1 Q 0 P LDR A3,A2 GET LENGTH Q F , P LDR A2,A4 GET RECEIVING BUFFER ADDRESS Q d P INH Q & P LD A4,DWTTDM,A6 GET TTAB ADDRESS Q $ P TL TTB:MT,A4 LOAD MMU REGISTERS Q $ P LD A4,PRUN GET DM TTA
0x02fbd0…02fd64 Dummy {f00=0x00f7, f01=0x0190, f02=» Q Z P XIF R P* R PDMT340 EQU * R P* R 2 P* SET STATUS USED R < P* R X P LDK A1,/FF R b PDMT350 SCR A1,A10 R v P LD A3,FDBDBR,A6 R P RF(NN) DMT394 NO DELAY R P LDR A2,A7 R P SUK A2,QSW R " P RF(E) DMT360 SEQUENTIAL W
0x02fd64…02fef8 Dummy {f00=0x00f7, f01=0x0190, f02=»NDOM DELETE R x P RF DMT390 S $ P* WRITE IF LAST REC IN SECTOR S & P* S N PDMT360 LD A4,FDBRRO,A6 S X P CW A4,FDBMRO,A6 S v " P RF(NE) DMT400 NOT LAST RECORD S " PDMT390 LDK A7,/05 BASIC WRITE S P SLL A3,1 S P RF(N) DMT395 BASIC WANTED S
0x02fef8…03008c Dummy {f00=0x00f7, f01=0x0190, f02=»1,A6 FDB ADDRESS AS PARAMETER S P LKM T & P DATA -1 I/O AND ACTIVATION T 2 " P DATA DMTAR2 DMTASK RESTART #2 T V P LKM T | P DATA 3 EXIT T P EJECT T P* T P************** T P* DMTAR2 * T P************** T P* T P* T ,
0x03008c…030220 Dummy {f00=0x00f7, f01=0x0190, f02=»4,DMTIOT CHECK DISC I/O T P LDR A1,A1 U P RF(NZ) DMTERR U 2 P LDKL A1,/C0FF U H $ P ANS A1,FDBDBR,A6 RELEASE BUFFER U ^ PDMT400 EQU * U " P LDR A1,A6 FDB ADDR DATA FILE U P LD A2,ECBCW+2,A9 U P ANK A2,/FF U P LD A3,ECBCW,A9 LOG REC NR
0x030220…0303b4 (0, 61) Dummy {f00=0x00f8, f01=0x0190, f02=» RF(E) DMT460 SEQ WRITE U P LDK A4,QRD V P CWR A7,A4 V 4 P RF(E) DMT420 RAND DEL V F P LDK A4,QRDD V d P CWR A7,A4 V x ( P RF(E) DMT420 DELAYED RANDEOM DELETE V P IFT INDXAC=1 V P LDK A4,QDEL V P CWR A7,A4 V P RF(E) DMT420 INDEXED
0x0303b4…030548 Dummy {f00=0x00f8, f01=0x0190, f02=»ET GET CRN BUFFER V P LDR A10,A2 BUFFER ADDR W P IFT INDXAC=1 =2 START W : P LDK A3,QIRW W Z P CWR A7,A3 W n " P RF(E) DMT410 INDEXED REWRITE W P XIF =2 END W P CM CRNCIF,A2 W P* CLEAR INDEX CRN W P CM CRNCIF+2,A2 W PDM
0x030548…0306dc Dummy {f00=0x00f8, f01=0x018e, f02=»NCDF,A10 CRN FIL E CODE W P IFT INDXAC=1 X P LDK A4,QINS X 6 P CWR A7,A4 X J P RF(E) DMT460 INDEXED INSERT X P XIF X PDMT420 EQU * X P LDK A4,QSR X P CWR A7,A4 X P RF(E) DMT450 SEQ READ X P LDK A4,QRR X P CWR A7,A4 X
0x0306dc…030870 Dummy {f00=0x00f8, f01=0x018e, f02=» P* Y P* RELEASE EA Y P* Y $ P CF A14,EARELB REL EA Y . P RF DMTAEX Y L PDMT450 EQU * Y ^ P LC A4,DWTST,A1 DWTSTATUS Y r P ANK A4,EABIT EA-BIT Y & P RF(NZ) DMTAEX EA=1. NO EA WANTED Y P* Y " P* CHECK IF EA IS SET ALREADY Y
0x030870…030a04 Dummy {f00=0x00f8, f01=0x0190, f02=» P CF A14,EASETB Z P RF DMTAEX Z PDMT460 EQU * Z , P* Z @ P* UPDATE LRN Z J P* Z ` P SC A2,FDBLRN,A1 Z j P ST A3,FDBLRN+1,A1 Z P IFT INDXAC=1 Z P LDK A4,QINS Z P CWR A7,A4 Z " P ABL(E) DMINS2 INDEXED INSERT Z P XIF Z
0x030a04…030b98 Dummy {f00=0x00f8, f01=0x0190, f02=»3F00 Z ( P RF(NZ) DMTERX NO RELEASE OF BUFFER [ PDMTEX1 LD A3,ECBBA,A8 [ 8 P SUK A3,8 [ V PDMTEX2 EQU * [ h ( P CF A14,DMTRBU RELEASE BUFFER AT A3 [ | PDMTERX EQU * [ P INH [ P* A1 = RET CODE [ P* A6 = DWT ADDR [ P CF A15,TEND
0x030b98…030d2c Dummy {f00=0x00f8, f01=0x0190, f02=»RANDOM READ [ 2 P********************************************* " P LD A9,DWTECB,A1 USER ECB ADDR J P IFT MMUPAG=0 p P LD A8,ECBCW,A9 ADDR OF KEY P XIF P IFT INDXAC=1 P IFT MMUPAG=1 P LDR A8,A1 FDB ADDR " P ADKL A8,F
0x030d2c…030ec0 Dummy {f00=0x00f8, f01=0x018e, f02=» LDR A13,A1 P ADKL A13,FDBECB ECB ADDR ] $ P CF A14,FNDKEY GET INDEX RECORD ] 6 ( PDMR006 EQU * FROM INDEXED READ NEXT ] ^ P LD A9,DWTECB,A1 ] P LDR A6,A1 FDB ADR ] P LDKL A8,FDBECB ] P ADR A8,A6 ECB ADDRESS ] P LDR A2,A2 RETURN CODE
0x030ec0…031054 (0, 62) Dummy {f00=0x00e9, f01=0x0190, f02=»1,A1 P RF(Z) DMT010 OK P LDK A7,4 VOL UNKNOWN $ P SUR A8,A8 NO BUFFER =3 B P ABL DMTASX b PDMT010 EQU * v P* P LDKL A8,TASECB P* 6 P LD A1,TASCVO OFFSET INTO TASVOL FOR FIRST VOLUME PDMT050 EQU * , P CF
0x031054…0311e8 Dummy {f00=0x00e9, f01=0x0190, f02=»L A2,SECTLE " P ST A2,ECBRL,A8 SECTOR LENGTH P LDK A2,0 : 0 P ST A2,ECBCW,A8 SECTOR #0 VL (VOLUME LABEL) L P* P* 2 P CF A14,DMTGBU GET A DM BUFFER ADDRESS IN A3 P DATA /5700 NOP. READ ALWAYS P ADKL A3,BUFSTA & P S
0x0311e8…03137c Dummy {f00=0x00e9, f01=0x0190, f02=»2 ~ P LKM P DATA 1 =2 . P LDKL A14,DMTA14 SET UP A14 STACK POINTER * P CF A14,DMTIOC I/O CHECK P LD A2,VLVER,A3 VERSION | & P CWK A2,'TO' DTOSS FORMATED DISC? P RF(E) DMT100 YES P LDK A7,8 NO P ABL DMTASX ERROR RE
0x03137c…031510 Dummy {f00=0x00e9, f01=0x018e, f02=»OC BASE ~ . P ST A2,ECBCW,A8 1:ST VTOC SECTOR NO = FSAT & P LD A9,VLVRL,A3 VTOC RECORD LENGTH B P ST A9,TASVRL l P EJECT P* P* SEARCH ALL VTOC:S P* PDMT110 EQU * P LD A6,TASVLE P SUK A6,1 P ST A6,TAS
0x031510…0316a4 Dummy {f00=0x00e9, f01=0x018e, f02=» P LD A1,TASCVO P SUK A1,2 & P ABL(N) DMT300 ALL VOLUMES CHECKED , P ST A1,TASCVO UPDATE TASCVO V $ P LDK A7,7 TOO MANY FILE SECTIONS z P LD A3,TASFIL " P ABL(NZ) DMTASX NOT DATA FILE P LD A3,ECBBA,A8 P SUKL A3,BUFSTA
0x0316a4…031838 Dummy {f00=0x00e9, f01=0x0190, f02=» P* ACTIVATE NEXT DM TASK P* & P ADKL A7,'#D' 0 P LKM F P DATA -4 R P DATA DMTASS b P LKM v P DATA 3 EXIT P EJECT P* & P* READ NEXT VTOC SECTOR AND EXIT P* PDMT115 EQU * P LD A3,ECBBA,A8
0x031838…0319cc Dummy {f00=0x00e9, f01=0x0190, f02=»A1,TASVOL,A1 P CF A14,DMTGBU GET BUFFER P DATA /5700 NOP. READ ALWAYS 6 P ADKL A3,BUFSTA Z P ST A3,ECBBA,A8 r P ST A2,ECBCW,A8 P LDK A7,/91 WAIT =2 P LKM P DATA 1 =2 P LDKL A14,DMTA14 P CF A14,DMTIOC
0x0319cc…031b60 Dummy {f00=0x00e9, f01=0x0190, f02=» RF(NE) DMT135 NOT MASTER INDEX " P ADKL A11,14 MX FILE NAME ADDR ( PDMT135 EQU * N P ADK A3,2 SKIP CYLID b PDMT120 EQU * ~ ( P IM TASVRN INCREMENT VTOC RECORD NO P LDR A4,A3 " P ADR A4,A9 ADDRESS STATUS BYTE P LCR A2,A4 P
0x031b60…031cf4 (0, 63) Dummy {f00=0x00f4, f01=0x018e, f02=»ERE UNLOCKED BEFORE % f P* & P LDR A5,A7 & & P LDR A6,A8 SAVE & 8 P LDK A1,3 LOOP & P PDMTASY EQU * & f P LC A2,TASLFD,A1 FILE CODES & z P ANK A2,/FF & P RF(Z) DMTASZ NO CODE & P LDKL A8,TASECB & P SC A2,TASECB+1 & P LDK A7,
0x031cf4…031e88 Dummy {f00=0x00f4, f01=0x0190, f02=» P LDR A8,A6 ' P RF DMT401 =1 END ' P* ' 0 ( P* PUT FDB ADDRESS INTO TTAB/CD:TAB ' : P* ' f PDMT400 EQU * ' p P LDK A7,0 ' PDMT401 EQU * =1 ' , P LD A2,TASTBE TTAB/CDTAB FILE CODE ADDR ' P LDR A7,A7 ' P RF(Z) DMT420 CORRECT RE
0x031e88…03201c Dummy {f00=0x00f4, f01=0x018e, f02=» ' p " P RF(Z) DMT410 NO MASTER INDEX ( P INH INH ( . ( P LD A2,MXIND SIEZE MASTERINDEXINDEX ( @ P SUK A2,2 ( l PDMT405 EQU * ( ~ P SUK A2,4 NEXT OFFSET ( P RF(NN) DMT407 OK ( * P RF DMT408 MASTER INDEX MUST BE FOUND ( PDMT407 CW A4,MXI
0x03201c…0321b0 Dummy {f00=0x00f4, f01=0x0190, f02=» PDMT410 EQU * ) P LD A3,TASFDB ) P RF(Z) DMT430 NO FDB USED ) . P LDKL A2,/FFFE ) P " P ANRS A2,A3 CLEAR FDB USE BIT ) f P RF DMT430 ) PDMT420 EQU * ) P ST A12,1,A2 FDB ADDR ) PDMT430 EQU * ) P LDR A8,A8 ) P RF(Z) DMT440 NO B
0x0321b0…032344 Dummy {f00=0x00f4, f01=0x0190, f02=»ELEASE ALL FREE BUFFERS ) & P CF A14,TASCAQ CHECK ASSIGN QUEUE * $ P CF A15,QTJOB QUEUE CALLING TASK * J P ENB * r P LKM * ~ P DATA 3 * P EJECT * PDMT500 EQU * * P LD A6,TASFIL * P ABL(Z) DMT700 DATA FILE * P IFF INDXAC=1 * P
0x032344…0324d8 Dummy {f00=0x00f4, f01=0x0190, f02=»CT * P* + " P* THIS IS MASTER INDEX LOOP. + 8 P* CONNECT FDB TO FILE CODE IN DMTASK TTAB AND READ + : < P* MASTER INDEX WITH SEQUENTIAL READ ON THIS FILE CODE + v P* + P LD A7,TASTID DMTASK ID + P INH + " P CF A15,FNDTID TTAB ADDR TO
0x0324d8…03266c Dummy {f00=0x00f4, f01=0x0190, f02=»C A3,TASECB+1 + " P ST A3,TTB:TD+2,A2 TTAB ENTRY , P ST A12,TTB:TD+4,A2 FDB ADR , < P LD A3,ECBBA,A8 , ` P SUKL A3,BUFSTA , x " P CF A14,DMTRBU RELEASE BUFFER , P* , 0 P* CALC NO OF WORDS NEEDED IN MASTRE INDEX , P* , P LD A6,FDB
0x03266c…032800 Dummy {f00=0x00f4, f01=0x0190, f02=»A1 GET MOST SIGN BIT , P ADK A2,5 - P SRL A2,1 NO OF WORDS NEEDED - . P RF(Z) DMT570 WRONG SIZE - R P INH - r P LD A4,MXIND LENGTH MXIND - ~ P SUK A4,4 MAX A5 VALUE - P LDKL A5,-2 OFFSET - PDMT540 EQU * - P ADK A5,4 GET ENTRY - P
0x032800…032994 (0, 64) Dummy {f00=0x00f8, f01=0x018e, f02=» ] " P LD A2,FDBRRO,A1 RECORD OFFSET ^ P ADK A2,10 BUFFER HEADER ^ . P ADR A2,A3 REC ADDR ^ N P LD A4,FDBRLE,A1 REC LENGTH ^ j P SUK A4,6 KEY LENGTH ^ P ADR A2,A4 ^ " P CC A4,2,A2 DUPLICATE KEY CHAR ^ $ P RF(NE) DMR020 NEXT KEY NOT SAME ^
0x032994…032b28 Dummy {f00=0x00f8, f01=0x0190, f02=» ^ P LDK A5,0 _ P LC A5,3,A2 _ P SC A5,ECBCW+3,A8 _ . P LC A5,4,A2 _ H P ECR A5,A5 _ P LC A5,5,A2 _ n P ST A5,ECBCW,A8 _ P* _ P* RELEASE BLOCK BUFFER _ P* _ P CF A14,DMTRBU _ P EJECT _ P* _ 0 P* PERFORM
0x032b28…032cbc Dummy {f00=0x00f8, f01=0x018e, f02=» BIT _ | P SLL A2,1 ` " P LDK A7,/A RANDOM READ NO WAIT ` P ORR A7,A2 EA BIT ` D P* ` ^ P* MOVE USER ECB ` h P* ` P LDR A1,A9 FROM ECB ADDR ` P LDR A3,A8 TO ECB ADDR ` P LDK A2,6 NO OF CHAR ` P CF A14,DMTWM MOVE ECB ` P LDR
0x032cbc…032e50 Dummy {f00=0x00f8, f01=0x0190, f02=» P DATA 3 EXIT a PDMTAR4 EQU * a P* a , P* SET UP A14 STACK a 6 P* a R P CF A15,GETA14 a P LDR A6,A1 a r P LDKL A8,FDBECB a P ADR A8,A6 RR ECB a P LD A9,DWTECB,A6 USER ECB a P LD A1,ECBRC,A8 a & P ORS A1,ECBRC,A9 RET COD
0x032e50…032fe4 Dummy {f00=0x00f8, f01=0x0190, f02=»LE a x P* b ( P LD A1,FDBADF,A6 FDB ADDR DATA FILEP b & P CF A14,CRNGET GET CRN BUFFER ADDR b @ P LDR A10,A2 CRN BUFFER ADDR b j " P LDR A1,A6 FDB ADDR INDEX FILE b ( P CF A14,GTLGRN GET INDE X LOG REC NO b P SC A2,CRNCIF+1,A10 b & P ST A3,CRNCI
0x032fe4…033178 Dummy {f00=0x00f8, f01=0x0190, f02=»URN CODEXS b P* c $ P LD A2,ECBEL,A8 EFFECTIVE LENGTH c P ST A2,ECBEL,A9 c D P LDK A1,0 RETURN CODE c P ABL DMTERX TENDIO c z P EJECT c " PDMIRN EQU * INDEXED READ NEXT c 2 P********************************************* c P LDR A1,A6
0x033178…03330c Dummy {f00=0x00f8, f01=0x0190, f02=»UFFADR c P ADK A2,10 RECORD ADDR d ( P AD A2,FDBRLE,A1 ADDR OF STATUS CHAR d , P LDK A5,/FF USED MARK d X P CCR A5,A2 STATUS d v P RF(E) DMI120 USED d P LD A4,FDBMRO,A1 d & P ST A4,FDBRRO,A1 LAST REC IN SECT d P* d P* CHECK IF END O
0x03330c…0334a0 Dummy {f00=0x00f8, f01=0x0190, f02=» RF(G) DMI105 EOF d P CW A3,FDBLRN+1,A1 e P RF(L) DMI106 NOT EOF e 4 PDMI105 LDR A3,A9 e R P RF DMI030 EOF e j PDMI106 LDR A3,A9 RESTORE e P RF DMI010 NEXT REC e PDMI120 EQU * e P* INDEX RECORD IS FOUND e P* e P LDK A2,0
0x0334a0…033634 (0, 65) Dummy {f00=0x00fb, f01=0x0190, f02=» LDK A1,1 PTAS155 EQU * P RTN A14 & P* 6 ( PTASHLT LDK A1,/11 INDICATE DM ERROR @ P CF A15,HALT HALT SYSTEM l P* P EJECT P* P************ P* TASS * P************ P* PIXTASS EQU * P
0x033634…0337c8 Dummy {f00=0x00fb, f01=0x0190, f02=» A7,A8 GET FIRST WORD OF USER ASSIGN BLOCK $ P ANK A7,/FF SKIP LEFT CHARACTER 2 0 P ORKL A7,/8100 BIT 0+7 IND. ASSIGN ONE INDEX Z ( P ESR A7,A8 SET WORD IN ASSIGN BLOCK P XIF P*~ ( P LDK A7,0 ONLY GLOBAL ASSIGN ALLOWED P* PTA
0x0337c8…03395c Dummy {f00=0x00fb, f01=0x0190, f02=»NOT COMPLETED t 4 P* AND IF SO QUEUE THIS REQUEST VIA THE TASQUE P* N P LD A1,TASBLK X & P RF(Z) TAS050 NO CONCURRENT ASSIGN n * P LDKL A1,TASQUE START OF ASSIGN QUEUE ( PTAS020 EQU * QUEUE AS FOR GETBUFFER P LDR A2,A1 P LDR
0x03395c…033af0 Dummy {f00=0x00fb, f01=0x0190, f02=»QU * & P IM TASBLK INDICATE ASSIGN STARTED ! " P CM TASFDD FDB ADDR DATA FILE ! 6 P* ! 6 P ST A5,TASTTA SAVE TTAB ADDRESS OF REQUESTING TASK ! f P* ! P IFT MMUPAG=1 ! P* ! 2 P* MOVE USER ASSIGN BLOCK TO SYSTEM AREA MASBLK ! P* ! ,
0x033af0…033c84 Dummy {f00=0x00fb, f01=0x0190, f02=»BLOCK ADDRESS ! p , P LDK A3,34 ASSIGN BLOCK LENGTH IN BYTES " $ P CF A14,MOV:US MOVE ASSIGN BLOCK " F P XIF " n P* " z $ P ST A8,TASASB SAVE ASBLK ADDRESS " P* " P LDK A1,16 " : P ST A1,TASCXO INIT. TASCXO TO LAST ENTRY IN TASSEXXLB " P*
0x033c84…033e18 Dummy {f00=0x00fb, f01=0x0190, f02=» " P LCR A2,A8 NO OF VOLUMES # . P ANK A2,/1F REMOVE INDEX BIT +DELAY+BASIC # ( P RF(Z) TAS090 NO VOL # Z P CWK A2,4 # v P RF(NG) TAS100 <=4 # PTAS090 RF TASSEM # P EJECT # P* # $ P* CHECK IF VOLUMES ARE ON LINE # P* # PTAS1
0x033e18…033fac Dummy {f00=0x00fb, f01=0x0190, f02=»1,0 SET CR # $ P RF(Z) TAS160 ALL VOLUMES FOUND $ P* $ : , P* ALL VOL NOT FOUND. ACT FLEXDISCTASK $ D P* $ t P LD A1,TASCVO $ ~ P LDK A2,2 ID DMTASK FLEXDISC $ P SC A2,TASVOL,A1 SEE TAS195 $ P EJECT $ P* $ , P* CHECK IF FILE CO
0x033fac…034140 Dummy {f00=0x00fb, f01=0x0190, f02=»D $ j P LDR A10,A10 TC % P RF(Z) TAS165 GLOBAL ASSIGN % " P LD A2,TASTTA TTAB ADDR % F P LDR A4,A2 % f P LD A2,TTB:TD,A4 % x P ADKL A4,TTB:TD+1 % P RF TAS170 % PTAS165 EQU * % P LD A4,SCTCDT % P LDR* A2,A4 % P ADK A4,1 %
0x034140…0342d4 (0, 66) Dummy {f00=0x00fc, f01=0x0190, f02=»ST,A10 5 P ANK A3,/40 6 & P RF(NZ) DMT639 OTHER REQUEST BUSY 6 " P LDK A3,8 MAX NO OF INDE*2 6 L PDMT620 EQU * 6 n P SUK A3,2 6 $ P RF(N) DMT640 MORE THAN 4 INDEX 6 P LDR A6,A10 6 P ADR A6,A3 6 P LD A2,FDBAI1,A6 6 P RB(NZ) DMT620
0x0342d4…034468 Dummy {f00=0x00fc, f01=0x0190, f02=» 6 P LDK A5,8 NR OF INDEX *2 7 PDMT625 EQU * 7 ( P SUK A5,2 7 < " P RF(N) DMT635 ALL FDB UPPDATED 7 N P LDR A1,A10 FDB DATA 7 t P ADR A1,A5 7 $ P LD A3,FDBAI1,A1 FDB ADDR INDEX 7 P RB(Z) DMT625 NO INDEX FILE 7 P LDKL A1,FDBADF 7 P A
0x034468…0345fc Dummy {f00=0x00fc, f01=0x0190, f02=»DMT635 EQU * 7 P LC A1,DWTST,A10 8 0 P SC A1,DWTST,A12 SAME BUSY BITS AS DATA FILE 8 , P ENB ENB 8 ` P LD A1,TASMXA 8 r ( P ST A1,FDBMIA,A12 MASTER INDEX ADDR 8 P RF DMT720 8 ( PDMT639 ADK A7,2 A7=13=OTHER REQ BUSY 8 * PDMT640 ADK A7,1 A7=11=
0x0345fc…034790 Dummy {f00=0x00fc, f01=0x018e, f02=»ILE 8 v & P ST A12,FDBADF,A12 FDB ADDR TO FDB 9 P LD* A1,TASASB ASBLK ADDR 9 6 P ANKL A1,/6000 9 X P SLL A1,1 9 n $ P ORS A1,FDBDBR,A12 DELAY + BASIC 9 PDMT720 EQU * 9 P* 9 ( P* SET FDBMRN TO MAX REC NO IN FILE 9 P* 9 P LDR A1,A12
0x034790…034924 Dummy {f00=0x00fc, f01=0x0190, f02=» P AD A2,-2,A1 : P SUKL A1,EXTELE-2 : P ST A1,FDBCEX,A12 : 2 P SUK A2,1 : L P ST A2,FDBSNR,A12 : ^ P LDR A1,A12 : x " P CF A14,GTLGRN GET LOG REC NO : P LDK A1,0 : " P LC A1,FDBBLF,A12 BLOCK FACTOR : P SUK A1,1 : P ADR A3,A1 :
0x034924…034ab8 Dummy {f00=0x00fc, f01=0x414a, f02=»,FDBMRN+1,A12 : P* ; 4 P* CALCULATE FDBMRO WHICH IS MAX FDBRRO IN FILE ; P* ; X P LD A6,FDBRLE,A12 REC LENGTH ; b P ADK A6,1 ; P LDK A7,0 ; P LC A7,FDBBLF,A12 BLOCK FACT ; P SUK A7,1 ; P CF A14,MPYMOD A1,A2=A6*A7 ; P ST A2
0x034ab8…034c4c Dummy {f00=0x00fc, f01=0x2008, f02=» < EXIT P* P ENB P LKM * P DATA 3 6 P END F@ RA2,/FFFE P " P ANRS A2,A3 CLEAR FDB USE BIT f P RF DMT430 PDMT420 EQU * P ST A12,CDTAB+2,A2 PDMT430 EQU * P LD A3,ECBBA,A8 P SUKL A3,BUFSTA
0x034c4c…034de0 Dummy {f00=0x00fc, f01=0x0190, f02=»AT MADE THE I/O REQUEST. THUS I/O WITH WAIT CAN P* NOT BE ABORTED. 8 P* T P* ^ PTABORT EQU * h P IFT MMUPAG=0 | & P LDR* A3,A8 GET FIRST WORD OF ECB P XIF P* P IFT MMUPAG=1 $ P ELR A3,A8 GET FIRST WORD OF ECB
0x034de0…034f74 (0, 67) Dummy {f00=0x00fe, f01=0x0190, f02=»RSOR ADDRESS E z P CF A14,RDMOD READ MODIFIED F " P RB TRANS SEND MODIFIED FIELDS F 8 P EJECT F ^ P* F l P* F v $ P* DISPLAY MODIFIED FIELDS ON VDU F P* F P* F P* A3=VDU POSITION F P* A4=VDU IMAGE POINTER F P* A5=MODIFIED INDICA
0x034f74…035108 Dummy {f00=0x00fe, f01=0x0002, f02=»
0x035108…03529c Dummy {f00=0x00fe, f01=0x0190, f02=» 0 P IDENT DFTAB REL 9.2 79-11-16 870105040920 P 8 P* @ 8 P**************************************************** J P* $ P* PHILIPS TERMINAL SYSTEM PTS P* & P* DFTAB = DISC FILE CODE TABLE P* P* P* LEVE
0x03529c…035430 Dummy {f00=0x00fe, f01=0x40e8, f02=»** ^ P* P* DISC FILE CODE TABLE P* 4 P ENTRY DFTAB > P ENTRY DFTABE R P* h P* r PDFTAB EQU * | P DATA /F0F1,/F2F3 P DATA /F8F9,/FAFB PDFTABE EQU * P END @ P* P* P* LEVE
0x035430…0355c4 Dummy {f00=0x00fe, 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*
0x0355c4…035758 Dummy {f00=0x00fe, 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*
0x035758…0358ec Dummy {f00=0x00fe, f01=0x0190, f02=»D A3,4,A8 REQUESTED LENGTH # P CWK A3,130 $ " " P ABL(NE) END:10 ILLEGAL LENGTH $ 6 P LD A4,2,A8 BUFFER ADDRESS $ P RB FD:045 $ ~ P XIF $ P* $ P EJECT DRFD01 $ P* $ P*************** $ P* * $ P* TEST STATUS *
0x0358ec…035a80 Dummy {f00=0x00fe, f01=0x018e, f02=» P LDR A1,A3 % P ANK A1,1 % & P RF(NZ) FD:090 DISC NOT OPERABEL? % ( " P ANKL A3,/200 WRITE PROTECTED? % R P ORS A3,DWTRCW,A6 % x P IFF TOSS+IBM=0 % P RF LOA:05 READ VOLUME NAME % P* % PFD:075 EQU * % P XIF % $ P LD A1,DWTRCW,A6
0x035a80…035c14 (0, 68) Dummy {f00=0x00fe, f01=0x0190, f02=»WHEN NO RECORD IS READ BEFORE, THE FIRST RECORD IN SPECIFIED & P* SECTOR WILL BE MADE AVAILABLE D P* n 8 P****ENTRY PARAMETERS******************************** x P* : P* A1 = FDB ADDRESS FOR CURRENT RECORD (BEFORE NEXT) P* FDB
0x035c14…035da8 Dummy {f00=0x00fe, f01=0x0190, f02=»NTED ` : P* A3 = ADDRESS OF BLOCK BUFFER FROM PREVIOUS CALL IN > P* SAME DM-REQUEST. =0 WHEN NO BYUFFER IS ALLOCATED J P* A8 = ECB ADDRESS P* 8 P****EXIT PARAMETERS********************************* P* 2 P* RETURN AT AD
0x035da8…035f3c Dummy {f00=0x00fe, f01=0x018e, f02=»DE FOM PHYS I/O) WHEN NO BUFFER IS ALLOCATED r $ P* A2 = FDBRRO = RECORD OFFSET 4 P* A3 = BUFFER ADDRESS * P* = 0 WHEN NO BUFFER IS ALLOCATED | P* A8 = ECB ADDRESS P* 8 P****USED REGISTERS**********************************
0x035f3c…0360d0 Dummy {f00=0x00fe, f01=0x0190, f02=» X P EJECT PRDNXTR EQU * P LDR A10,A3 SAVE BUFFER ADDR * P RF(NZ) RDN200 BUFFER EXIST N P STR A7,A14 r P SUKL A14,4 P ST A6,2,A14 P* P* GET A BUFFER P* PRDN040 EQU * & P CF A14,GTBKBU GET BLOCKBU
0x0360d0…036264 Dummy {f00=0x00fe, f01=0x0190, f02=»DR A10,A3 BUFFER ADDR $ P LDK A7,/91 PHYS READ WITH WAIT P LKM F P DATA 1 R & P CF A14,DMTIOZ CHECK RETURN CODES b P LDR A1,A1 P RF(NZ) RDN900 ERROR P LDR A1,A6 FDB ADDR PRDN080 EQU * P LDR A6,A1 FDB ADDR P L
0x036264…0363f8 Dummy {f00=0x00fe, f01=0x0190, f02=»RDN200 EQU * $ P LD A2,FDBRRO,A1 REC ORD OFFSET P RF(NN) RDN220 NOT FIRST REC < P STR A7,A14 ` P SUKL A14,4 t P ST A6,2,A14 P RB RDN080 FIRST REC WANTED P* : P* CHECK IF THIS OFFSET POINTS TO LAST REC IN BUFFER P
0x0363f8…03658c Dummy {f00=0x00fe, f01=0x0190, f02=»EC IN CURRENT BLOCKBUFFER P* " $ P AD A2,FDBRLE,A1 RECOR D LENGTH , P ADK A2,1 STATUS CHAR T P ST A2,FDBRRO,A1 NEW OFFSET r P RF RDN950 RETURN P* 4 P* CHECK IF THIS RECORD ALSO IS LAST IN EXTENT P* PRDN300 EQU *
0x03658c…036720 Dummy {f00=0x00fe, f01=0x0190, f02=» AD A5,EXTLEN,A3 EXTENT LENGTH P SUK A5,1 & $ P CW A5,FDBSNR,A1 SECT NO CURRENT 8 , P RF(NG) RDN400 IT WAS LAST REC IN EXTENT ` P* P* NEW SECTOR P* P IM FDBSNR,A1 SECT NO P LDR A6,A1 FDB ADDR P RF RDN500 P*
0x036720…0368b4 (0, 69) Dummy {f00=0x00ff, f01=0x4028, f02=» % P RTN A14 & P END & @ & $
0x0368b4…036a48 Dummy {f00=0x00ff, f01=0x2008, f02=» ' + t P INH , P CF A15,TENDIO , P ENB , 2 P* , > P* EXIT , H P* , X P LKM , b P DATA 3 , n P* , ~ P END , @ , RD ADDR A2:=EA BIT + & P C1R A2,A2 ONE COMPLEMENT BIT MASK + P ANRS A2,A3 SET OFF EA BIT + P* +
0x036a48…036bdc Dummy {f00=0x00ff, f01=0x0190, f02=» A6,A10 g P ADR A6,A5 h ( P LD A1,FDBAI1,A6 FDB ADDR INDEX FILE h " P RB(Z) DXI020 NO INDEX h N P* h l ( P* GET FILE CODE FOR THIS FDB ADDR h v P* h P LD* A6,SCTCDT h PDXI030 SUK A6,4 h P LD A7,SCTCDT h P ADR A7,A6 h P CW A1
0x036bdc…036d70 Dummy {f00=0x00ff, f01=0x0190, f02=»CBFC,A8 INDEX FILE h P LDR A6,A11 i P SUK A6,QINS i . P RF(E) DXI080 INDEXED DELETE i B P* i f $ P* GET ADDRESSS OF DATA RECORD i p P* i P LD A6,ECBBA,A12 SECTOR ADDR i P ADK A6,2 CYLID i $ P AD A6,FDBRRO,A10 ADDR DATA REC i P A
0x036d70…036f04 Dummy {f00=0x00ff, f01=0x0190, f02=» ADDR i v $ P LD A6,ECBBA,A9 USER BUFFER ADDR j P AD A6,FDBKA,A1 KEY OFFSET j 6 P IFT MMUPAG=1 j X P LDR A6,A1 j n " P ADKL A6,FDBKEY ADDR KEY AREA j P XIF j P IFT INDXAC=1 j $ P LDK A7,/1F INSERT INDEX NOWAIT j PDXI090 EQU * j P* j
0x036f04…037098 Dummy {f00=0x00ff, f01=0x0190, f02=» DATA DMTAR5 j P LD A7,ECBRC,A8 k P RF(N) DMTAR5 REQ ERR k , P RB DXI020 NEXT INDEX DIRECT k J PDXI100 LKM k n P DATA 3 EXIT k PDMTAR5 EQU * k " P LD A6,FDBADF,A1 FDB DATA FILE k P LD A9,DWTECB,A6 USER ECB k P LDKL A8,FDBECB k P
0x037098…03722c Dummy {f00=0x00ff, f01=0x0190, f02=»A9 RC TO USER k P LDK A1,0 RETURN CODE l & P LC A2,FDBDBR,A6 NR OF READY INDEX l 4 P ADK A2,1 COUNT INDEXES l ^ $ P CC A2,FDBNIF,A6 TOT NR OF INDEX l ~ P RF(NE) DXI200 l P LD A7,DWTOR,A6 l P ANK A7,/3F ORDER CODE l P SUK A7,QINS INDEXED I
0x03722c…0373c0 Dummy {f00=0x00ff, f01=0x0190, f02=» P ADKL A10,2 CYLID m P AD A10,FDBRRO,A6 m & P AD A10,FDBRLE,A6 ADDR STATUS CHAR m 8 P LDK A1,0 STATUS FREE m b . P ABL DMT350 CONTINUE AS FOR RANDOM DELETE m PDXI200 EQU * m P SC A2,FDBDBR,A6 m P LKM m " P DATA 3 EXIT. MORE INDEX LEFT
0x0373c0…037554 (0, 70) Dummy {f00=0x010a, f01=0x0000, f02=»
[…0xf…]
0x038d00…038e94 (0, 72) Dummy {f00=0x0084, f01=0x018e, f02=»0,C1 CAS F0,F1 DISC F8,F9 FLOPP $ PSCTANO DATA 0 APPLICATION NUMBER ( 2 PSCTADA DATA 0 APPLICATION DISC SECTOR ADDRESS P PSCTPAG DATA 0 PAGTAB ADDRESS PSCTSEG DATA 0 SEGTAB ADDRESS PSCTSWB DATA 0 SWBTAB ADDRESS $ PSCTNOS DATA 0 NUMBER O
0x038e94…039028 Dummy {f00=0x0084, f01=0x0190, f02=» P INDEX REL TTAB 0 PSCTLAC DATA 0 LOGICAL ADDRESS OF COMMON PART & PSCTMMP DATA 0 MMU TABLE PAGE ENTRY R P INDEX REL TTAB | * PSCTLAP DATA 0 LOGICAL ADDRESS OF PAGES ( PSCTNPE DATA 0 NUMBER OF PAGE ENTRIES & PSCTSTB DATA STB SYSTEM S
0x039028…0391bc Dummy {f00=0x0084, f01=0x018e, f02=»SCTCDT DATA 0 CDTAB ADDRESS PSCTBUG DATA BUG DEBUGGER $ & PSCTDMT DATA X:B DMTASKS IN SYSTEM D P BIT 13:D2,14:D1,15:D0 n 0 PSCTDMI DATA X:C DM INDEX RECORD BUFFER SIZE ( PSCTDML DATA X:D DM NO OF LOCAL FILES * PSCTDMC DATA X:E DM NO OF C
0x0391bc…039350 Dummy {f00=0x0084, f01=0x40fe, f02=» P* P* SYSTEM STACK P* $ P RES 145 . P DATA /FCC0 AND PSW > & PSTB DATA LOOP AND PC FOR IDLE LOOP Z P P P* P* IDLE LOOP P* P PLOOP RB * P P P P END @ DM NO OF C
0x039350…0394e4 Dummy {f00=0x0084, 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
0x0394e4…039678 Dummy {f00=0x0084, f01=0x0190, f02=» T:DTC0 T:DTC0D REGGO & * & TC * 6 * d * : H IDENT T:AKA0 TRA 4.2 80-07-30 F1 O1111 02.01.XXX.1 T:AKA0 T:AKA0A . * T:DKA0 D:CB9
0x039678…03980c Dummy {f00=0x0084, f01=0x0190, f02=» * & [ a $ , ( y * KA R y : H IDENT T:DKA0 TRA 4.2 80-07-30 F1 O1111 02.01.XXX.1 T:DKA0 T:DKA0D
0x03980c…0399a0 Dummy {f00=0x0084, f01=0x0190, f02=»XX.1 ^ T:AGA0 T:AGA0A ^ . * T:DGA0 D:CB90 C:CB90 D:TB90 Z:TB90 2 * & 0 d * & * & = a & " Y P GA
0x0399a0…039b34 (0, 73) Dummy {f00=0x0102, f01=0x0190, f02=»EXIT PARAMETERS********************************* P* 8 P* A1 = UNCHANGED B ( P* A2 = ADDRESS OF FOUND CRN-BUFFER P* 8 P****USED REGISTERS********************************** P* P* A1 - A4 P EJECT DMSUBR PCRNG
0x039b34…039cc8 Dummy {f00=0x0102, f01=0x0004, f02=» P X
0x039cc8…039e5c Dummy {f00=0x0102, f01=0x0190, f02=» J F IDENT SYSTAB REL 9.2 79-11-16 870105040920 F B SCTMSZK SCTSFA SCTEFA SCTPLD SCTANO SCTADA SCTPAGL SCTSEG R F B SCTSWB SCTNOS SCTNOP SCTPSZ SCTMMC SCTLACL SCTMMP SCTLAP F B SCTNPE SCTSTB SCTOPT SCTTCT
0x039e5c…039ff0 Dummy {f00=0x0102, f01=0x0190, f02=»:PA PAG:SB SWB:NC SWB:DS SWB:ELS SWB:NS0 z T:ACSB 4 SEG:ST F SEG:DSL Z SEG:EL n SEG:PBI PAG:QF PAG:QBV PAG:PA PAG:SB SWB:NC SWB:DS
0x039ff0…03a184 Dummy {f00=0x0102, f01=0x018e, f02=» IHSOP . IH1501W > IH1502 P CHLT1 b IHFDN r CHRT1 , ( CHRT2 , ( ! , ( 1
0x03a184…03a318 Dummy {f00=0x0102, f01=0x0190, f02=» , ( a , ( q 4 HALTN d t SCTMSZK SCTSFA SCTEFA SCTPLD SCTANO SCTADA S
0x03a318…03a4ac Dummy {f00=0x0102, f01=0x0190, f02=» SCTPSZ SCTMMC SCTLACL 0 SCTMMP D SCTLAP X SCTNPE l SCTSTB SCTOPT SCTTCT SCTCDT SCTBUG~ SCTDMT , (
0x03a4ac…03a640 Dummy {f00=0x0102, f01=0x4062, f02=» _ , L@ ^ X SCTNPE l SCTSTB SCTOPT SCTTCT SCTCDT SCTBUG~ SCTDMT , (
0x03a640…03a7d4 (0, 74) Dummy {f00=0x0103, f01=0x0190, f02=» % | , P* FDB-CEX,ECB,SNR,RRO & 8 P* ECB-FC,CW,BA,DWT-OR,ECB,EXTDMI & 8 P* A8 = ECB ADDR & t P* & 8 P****EXIT PARAMETERS********************************* & P* & P* A1 = A6 = FDB ADDR & 0 P* A2 = FDB
0x03a7d4…03a968 Dummy {f00=0x0103, f01=0x0190, f02=» THE FOUND CORE BUFFER & v P* A3 = BUFFER ADDRESS ' & P* A5 = ORDE R CODE ' F P* A8 = ECB ADDR ' b P* A9 = DM ECB ADDR ' | P* ' 8 P****USED REGISTERS********************************** ' P* ' P* A1 - A9 ' P* ' : P**
0x03a968…03aafc Dummy {f00=0x0103, f01=0x0190, f02=»RENT EXTENT BLOCK POINTER ' | P LD A1,EXTDMI,A4 DMIDENT, FC ( " " P LD A2,FDBSNR,A6 SECTOR NUMBER ( F P LD A9,DWTECB,A6 DM ECB ( l P ANK A1,/FF =1 ( $ P STR A1,A8 DISC VOL FILE CODE =1 ( P LDR A4,A2 SAVE ( P LDKL A5,SECTLE ( " P ST A5,ECBRL
0x03aafc…03ac90 Dummy {f00=0x0103, f01=0x0190, f02=»SECTOR MUST BE READ FROM DISC ( P LDKL A2,-1 RET CODE ) & PGTB040 EQU * ) B P ST A4,ECBCW,A8 SECTOR NR ) V P LDR A5,A3 ) x 2 P ADKL A5,BUFSTA A5 = DATA BUFFER START ADDRESS ) P ST A5,ECBBA,A8 ) P LD A5,DWTOR,A6 ) P ANK A5,/3F ) ( P LDR
0x03ac90…03ae24 Dummy {f00=0x0103, f01=0x018e, f02=» ORDER CODE ) P EJECT DMSUBR * 8 P****DESCRIPTION************************************* * , P* * h D P* GTLGRN WILL CONVERT FDBSNR AND FDBRRO TO A LOGICAL RECORD NO * r P* * 8 P****ENTRY PARAMETERS******************************** * P* *
0x03ae24…03afb8 Dummy {f00=0x0103, f01=0x0190, f02=» * Z P* + P* A1=A5=A6= FDB ADDRESS + P* A2,A3 = LOG RECORD NO + 4 P* + V 8 P****USED REGISTERS********************************** + ` P* + P* A1 - A7 + P* + : P****************************************************** + P EJECT
0x03afb8…03b14c Dummy {f00=0x0103, f01=0x0190, f02=» + p P LD A7,FDBCEX,A1 EXT ADDR , ( P ADKL A7,EXTLEN ADDR TO LAST LENGTH , * PGTL050 EQU * , V P CWR A3,A7 , j . P RF(E) GTL100 ALL PREVIOUS EXTENTS COUNTED , | ( P* NOTE THAT ONLY (E) CAN BE TESTED , $ P ADR* A6,A3 NO OF SECT IN EXTENT , $ P ADKL
0x03b14c…03b2e0 Dummy {f00=0x0103, f01=0x0190, f02=»OTAL NO OF SECTORS , ~ ( P AD A6,FDBSNR,A1 TOTAL NR OF SECTORS - P* - F ( P* CONVERT FDBRRO TO NO OF RECORDS - P P* - | P LDK A7,0 - " P LC A7,FDBBLF,A1 BLOCK FACTOR - P LDR A5,A1 SAVE FDB ADDR - P CF A14,MPYMOD A1,A2=A6*A7 - P LD A4,F
0x03b2e0…03b474 (0, 75) Dummy {f00=0x0103, f01=0x0190, f02=»UPDATE BUFFER ADDRESSES 5 P ADK A2,1 6 ( P SUK A3,1 DECREMENT REQUESTED LENGTH 6 2 & P RB(P) MVUS10 MORE CHAR. TO MOVE? 6 ^ P RB MVUS30 NO, RETURN 6 P* 6 P EJECT DMSUBR 6 P* 6 P* M O V : S U 6 P* 6 F P* THIS ROUTINE MOVES D
0x03b474…03b608 Dummy {f00=0x0103, f01=0x0190, f02=»USED, DEPENDING ON WHETHER THE BUFFER ADDRESSES ARE EVEN OR NOT. 6 P* 7 H : P* INPUT: A1 = ADDRESS OF SENDING BUFFER (SYSTEM AREA) 7 R : P* A2 = ADDRESS OF RECEIVING BUFFER (USER AREA) 7 . P* A3 = NUMBER OF BYTES TO BE MOVED 7 P* 7 "
0x03b608…03b79c Dummy {f00=0x0103, f01=0x0190, f02=»F REQUESTED LENGTH <= 0 7 x P STR A5,A14 SAVE A5 8 ( P LDR A4,A2 CHECK USER BUFFER ADDRESS 8 < P ANK A4,1 8 h . P RF(NZ) MVSU40 USER BUFFER ADDRESS UNEVEN? 8 z . P LDR A4,A1 NO, CHECK SYSTEM BUFFER ADDRESS 8 P ANK A4,1 8 0 P RF(NZ) MVSU60 SYSTEM BU
0x03b79c…03b930 Dummy {f00=0x0103, f01=0x018e, f02=»UNEVEN? 8 p P* 9 PMVSU20 MVSU A3 9 P* 9 0 " PMVSU30 LDR* A5,A14 RESTORE A5 9 : P* 9 ` PMVSU35 RTN A14 9 j P* 9 P EJECT DMSUBR 9 P* 9 P* 9 0 PMVSU40 EQU * USER BUFFER ADDRESS WAS UNEVEN 9 * P LDR A4,A1 CHECK SYSTEM BUFFER
0x03b930…03bac4 Dummy {f00=0x0103, f01=0x0190, f02=» 9 ^ P RF MVSU65 : P* : 2 PMVSU60 EQU * SYSTEM BUFFER ADDRESS WAS UNEVEN : $ 0 P LCR A4,A1 GET ONE CHAR. FROM SYSTEM BUFFER : Z P ECR A4,A4 : * P ADK A1,1 UPDATE SYSTEM BUFFER ADDRESS : ( P SUK A3,1 DECREMENT REQUESTED LENGTH : * P RF(NP) MVSU70
0x03bac4…03bc58 Dummy {f00=0x0103, f01=0x0190, f02=»ER BUFFER : p & P ADK A1,1 UPDATE BUFFER ADDRESSES ; P ADK A2,2 ; < ( P SUK A3,1 DECREMENT REQUESTED LENGTH ; N & P RB(P) MVSU60 MORE CHAR. TO MOVE? ; z P RB MVSU30 NO, RETURN ; P* ; 4 PMVSU70 ELR A3,A2 GET LAST CHAR. FROM USER BUFFER ; $ P ANK
0x03bc58…03bdec Dummy {f00=0x0103, f01=0x018e, f02=»FFER ; j P RB MVSU30 RETURN < P* < & P EJECT DMSUBR < 0 P* < H P* < R 2 PMVSU80 EQU * BOTH BUFFER ADDRESSES WERE UNEVEN < 2 P LDR* A4,A1 GET FIRST CHAR. FROM SYSTEM BUFFER < 0 P ELR A5,A2 GET FIRST CHAR. FROM USER BUFFER < $ P ANK A4,/FF
0x03bdec…03bf80 Dummy {f00=0x0103, f01=0x0190, f02=» < b & P ADK A1,1 UPDATE BUFFER ADDRESSES = P ADK A2,1 = 2 ( P SUK A3,1 DECREMENT REQUESTED LENGTH = D * P RB(P) MVSU10 MORE CHARACTERS TO MOVE? = p P RB MVSU30 NO, RETURN = P* = , PMVSU90 EQU * REQUESTED LENGTH WAS UNEVEN = ( P SUK A3,1 MAKE REQ
0x03bf80…03c114 (0, 76) Dummy {f00=0x0109, f01=0x0000, f02=»
0x03c114…03c2a8 Dummy {f00=0x0109, f01=0x0004, f02=»!(!0
0x03c2a8…03c43c Dummy {f00=0x0109, f01=0x0190, f02=» J F IDENT DMSUBR REL 9.2 79-11-16 870105040920 F B EATESTK EASETB EARELB CRNGET CALSNO GTBKBU GTLGRNL DMTIOT R . * CHKIND REQEND DMTIOZ MOV:US MOV:SU CHKIND , ( ? ? !? P P !> P W
0x03c43c…03c5d0 Dummy {f00=0x0109, f01=0x0190, f02=»WTTQ , ( = R L X P L P 4 M QTJOB < DWTTDM L DWTST ^ , ( Y X M M n IHRTN EATESTK z FDBEALL , ( q _8 > D W 0P Q F
0x03c5d0…03c764 Dummy {f00=0x0109, f01=0x0190, f02=» X 1 Y : , ( 4W 0P R Q P FREQUEW P * & W R D Q ( 0 5 @ b CRNGET FDBCRL , ( 1 A Z> : D W (P CRNTID CRNQUE
0x03c764…03c8f8 Dummy {f00=0x0109, f01=0x018e, f02=»SNO X FDBBLF , ( G I D ) E : T DIVMOD P FDBEXT~ b , ( _ $ &S P W X $ t EXTLEN FDBCEX , ( yH ( * U U *_ EXTBAS
0x03c8f8…03ca8c Dummy {f00=0x0109, f01=0x0190, f02=» , ( P X 2 _ W Y 4 : DWTECB 8 ECBRC J , ( D 6 8 B :P T Z FDBDBR ECBBA BUFDMIT , ( D$ G :W X < Y < B > DMTIOZ DWT
0x03ca8c…03cc20 Dummy {f00=0x0109, f01=0x0190, f02=» GTBKBU , EXTDMI , ( ) 8_ X , P H X 0 8 & SECTLE V ECBRL h DMTGBU x ECBCW , ( ? ! # J C L NW C BUFSTAH , ( Y P R C > X B%? : X
0x03cc20…03cdb4 (0, 77) Dummy {f00=0x010a, f01=0x0000, f02=»
[…0x7…]
0x03d8c0…03da54 (0, 78) Dummy {f00=0x010b, f01=0x0000, f02=»
[…0xf…]
0x03f200…03f394 (0, 80) Dummy {f00=0x010c, f01=0x0000, f02=»
[…0xf…]
0x040b40…040cd4 (0, 82) Dummy {f00=0x010d, f01=0x0000, f02=»
[…0xf…]
0x042480…042614 (0, 84) Dummy {f00=0x010d, f01=0x2008, f02=»
0x042614…0427a8 Dummy {f00=0x010d, f01=0x0002, f02=»!
0x0427a8…04293c Dummy {f00=0x010d, f01=0x0190, f02=» J F IDENT MONTAB REL 9.2 79-11-16 870105040920 F B MONTABK SPDLCI FREQUE PAGQUE INTLT1 INTLT2 INTLT3L INTLT4 R & " INTRT1 INTRT2 INTRT3 INTRT4 MONTABK FREQUE PAGQUE INT
0x04293c…042ad0 Dummy {f00=0x010d, f01=0x4154, f02=» INTRT4 SYSLOD CTAB01L $ CTAB02 6 * & H CTAB03 v ITADN KBAD3 TPADN GPADN DIADN DYADN , (
0x042ad0…042c64 Dummy {f00=0x010d, f01=0x2008, f02=»
0x042c64…042df8 Dummy {f00=0x010d, f01=0x0000, f02=»
[…0x2…]
0x043120…0432b4 (0, 85) Opaque[0x194]
0x0432b4…043448 # DirEnt {nam=»SCLASS«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0920, f03=0x0000}
0x0432b4…043448 IdxSect {
0x0432b4…043448 f00 = 0x0049 // 0x432b4 @0x0
0x0432b4…043448 f01 = 0x0002 // 0x432b6 @0x2
0x0432b4…043448 gno = [ // 0x432b8 @0x4
0x0432b4…043448 [0x00]: C0x0049.0x0.0
0x0432b4…043448 ]
0x0432b4…043448 }
0x043448…0435dc Dummy {f00=0x0049, f01=0x0190, f02=» 2 P IDENT SCLASS REL 9.2 79-11-16 870105040920 P : P* B P* L P ENTRY SCLASS V P* l P* v P EXTRN DWSI01 P EXTRN DWSO01 P EXTRN DWII01 P EXTRN DWIO01 P
0x0435dc…043770 Dummy {f00=0x0049, f01=0x018e, f02=» P* PSCLASS DATA TCLASE-* P DATA TC00 * P DATA TC01 H P DATA TC02 f P DATA TC03 P DATA TC04 PTCLASE EQU * PTC00 DATA TC00E-* P DATA
0x043770…043904 Dummy {f00=0x0049, f01=0x0190, f02=» PTC01 DATA TC01E-* P DATA /00E0 & P DATA DWII01 F PTC01E EQU * f PTC02 DATA TC02E-* P DATA /00E1 P DATA DWIO01 PTC02E EQU * PTC03
0x043904…043a98 Dummy {f00=0x0049, f01=0x417a, f02=»TC04E-* ~ P DATA /0060 P DATA DW1500 0 P DATA /015 P P DATA DWREMU b P DATA /00F8 v P DATA DWFD01 P DATA /01F9 P DATA DWFD01 P DATA /02FA P DATA
0x043a98…043c2c Dummy {f00=0x0049, f01=0x2008, f02=» NT TCLASS * * $ * . ENTRY TCLASS 8 * N * X * b * l * v * * TCLASS DATALTCLASE-* TCLASE EQU * END @ 1 INTLT2 INTRT1
0x043c2c…043dc0 Dummy {f00=0x0049, f01=0x0190, f02=» P ST P,INTSAV * P CF A15,IHSAV8 SAVE A1-A8 ON A15 STACK $ P LDKL A6,DW1701 LOAD DWT ADDRESS F , P INR A2,0,DAMI01 GET CHARACTER FROM LINR n PIHI100 EQU * P ABL(NA) SSTIN P**LOGG P IFF LOGG=0 P LD A5,DWTSAV+4,A6 & P CF
0x043dc0…043f54 (0, 86) Opaque[0x194]
0x043f54…0440e8 # DirEnt {nam=»MONTAB«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0948, f03=0x0000}
0x043f54…0440e8 IdxSect {
0x043f54…0440e8 f00 = 0x004a // 0x43f54 @0x0
0x043f54…0440e8 f01 = 0x0002 // 0x43f56 @0x2
0x043f54…0440e8 gno = [ // 0x43f58 @0x4
0x043f54…0440e8 [0x00]: C0x004a.0x1.0
0x043f54…0440e8 ]
0x043f54…0440e8 }
0x0440e8…04427c Dummy {f00=0x004a, f01=0x0190, f02=» 2 P IDENT MONTAB REL 9.2 79-11-16 870105040920 P : P* B 6 P* THIS TABLE CONTAINS ADDRESSES TO CONFIGURATION L P* DEPENDENT MONITOR TABLES P* P* P ENTRY MONTAB,SPDLCI P ENTRY FREQUE P ENTRY PAGQUE P E
0x04427c…044410 Dummy {f00=0x004a, f01=0x0190, f02=» INTRT3 P ENTRY INTRT4 P* & P EXTRN SYSLOD 0 P**** F P EXTRN CTAB01 R P EXTRN CTAB02 h P EXTRN CTAB03 ~ P EXTRN ITAD P EXTRN KBAD3 P EXTRN TPAD P EXTRN GPAD P EXTRN DIAD P EXTRN DYAD
0x044410…0445a4 Dummy {f00=0x004a, f01=0x0190, f02=» PINTLT3 DATA 0 PINTLT4 DATA 0 PINTRT1 DATA 0 0 PINTRT2 DATA 0 F PINTRT3 DATA 0 PINTRT4 DATA 0 r P DATA SYSLOD P**** P DATA CTAB01 P DATA CTAB02 P DATA CTAB03 P DATA ITAD P DATA KBAD
0x0445a4…044738 Dummy {f00=0x004a, f01=0x4018, f02=» d P END @ PINTLT4 DATA 0 PINTRT1 DATA 0 0 PINTRT2 DATA 0 F PINTRT3 DATA 0 PINTRT4 DATA 0 r P DATA SYSLOD P**** P DATA CTAB01 P DATA CTAB02 P DATA CTAB03 P DATA ITAD P DATA KBAD
0x044738…0448cc Dummy {f00=0x004a, 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
0x0448cc…044a60 Dummy {f00=0x004a, f01=0x018e, f02=» < P IFT NUNITS+TYPE2=3 = P DATA MAXCY6 MAX CYLINDER NO = $ P XIF = H P* = T P IFT NUNITS=2 = ^ P IFT MMUPAG=1 = t * P DATA 0 PAGE NUMBER (PSEUDO MMU TABLE) = * P DATA 0 16 BIT LOGICAL BUFFER ADDRESS = PECBDU2 EQU * = P DATA 0,0,0,0,
0x044a60…044bf4 (0, 87) Opaque[0x194]
0x044bf4…044d88 # DirEnt {nam=»SYSTAB«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x2038, f03=0x0000}
0x044bf4…044d88 IdxSect {
0x044bf4…044d88 f00 = 0x0101 // 0x44bf4 @0x0
0x044bf4…044d88 f01 = 0x0006 // 0x44bf6 @0x2
0x044bf4…044d88 gno = [ // 0x44bf8 @0x4
0x044bf4…044d88 [0x00]: C0x0101.0x3.0
0x044bf4…044d88 [0x01]: C0x0102.0x0.0
0x044bf4…044d88 [0x02]: C0x0102.0x1.0
0x044bf4…044d88 ]
0x044bf4…044d88 }
0x044d88…044f1c Dummy {f00=0x0101, f01=0x0190, f02=» 2 P IDENT SYSTAB REL 9.2 79-11-16 870105040920 P : P* B P* L 8 P*************************************************** V P* $ P* PHILIPS TERMINAL SYSTEM PTS P* 2 P* SYSTAB = INTERRUPT VECTORS, SYSTEM CONTROL 2 P*
0x044f1c…0450b0 Dummy {f00=0x0101, f01=0x0190, f02=»*************** l P* P* " P , P 4 P < P D P L P T P P d P l P t P | P P P EJECT SYSTAB P P 4 P ENTRY SCTMSZ,SCTSFA,SCTEFA SYSTEM CONTROL TABLE P ENTRY SCTPLD
0x0450b0…045244 Dummy {f00=0x0101, f01=0x0190, f02=» SCTMMP,SCTLAP,SCTNPE P ENTRY SCTSTB P ENTRY SCTOPT 4 P ENTRY SCTTCT,SCTCDT J P ENTRY SCTBUG f & P ENTRY SCTDMT,SCTDMI,SCTDML,SCTDMC | P ENTRY SCTBLK,SCTDCT & P ENTRY SEG:ST,SEG:DS,SEG:EL,SEG:PB & P ENTRY PAG:QF,PAG:QB,PAG:PA,
0x045244…0453d8 Dummy {f00=0x0101, f01=0x0190, f02=»O RESTART r P EXTRN IHLKM LKM INTERRUPT P EXTRN IHRTC REAL TIME CLOCK 4 P EXTRN IH1501 X P EXTRN IH1502 x ( P EXTRN IHSOP SYSTEM OPERATORS PANEL P P P P P P * P EXTRN CHRT1 REMOTE
0x0453d8…04556c Dummy {f00=0x0101, f01=0x0190, f02=» DISCEN ~ $ P EXTRN ILLINT ILLEGAL INTERRUPT P EXTRN HALT HALT ROUTINE 8 P* DEBUGGER X PX:A EQU 0 MONITOR OPTION j ( PX:B EQU 0 DATA MAN .TASKS IN SYSTEM * PX:C EQU 0 DM INDEX RECORD BUFFER SIZE & PX:D EQU 0 DM NUMBER OF LOCAL FILES
0x04556c…045700 Dummy {f00=0x0101, f01=0x0190, f02=»B AND T:A h P* PSEG:ST EQU 0 STATUS $ PSEG:DS EQU 2 DISC SECTOR ADDRESS 8 " PSEG:EL EQU 4 EFFECTIVE LENGTH ` $ PSEG:PB EQU 6 PAGE BLOCK ADDRESS P* & PPAG:QF EQU 0 QUEUE POINTER FORWARD ( PPAG:QB EQU 2 QUEUE POINTER BACKWARD
0x045700…045894 (0, 88) Dummy {f00=0x0102, f01=0x0190, f02=»E d 2 PSWB:DS EQU 2 DISC SECTOR ADDRESS OF FIRST COPY $ PSWB:EL EQU 4 SWB LENGTH (BYTES) @ & PSWB:NS EQU 6 SWB LENGTH (SECTORS) h P* ( PT:ACSB EQU -12 CURRENT SEGMENT BASE P EJECT SYSTAB P* P* INTERRUPT VECTORS P*
0x045894…045a28 Dummy {f00=0x0102, f01=0x0190, f02=» 4 P DATA ILLINT 5 P DATA ILLINT 6 ( P DATA ILLINT D P DATA ILLINT d P DATA IHSOP 9 P DATA ILLINT 10 P DATA ILLINT 11 P DATA IH1501 12 P DATA IH1502 13
0x045a28…045bbc Dummy {f00=0x0102, f01=0x0190, f02=»ILLINT ~ P DATA ILLINT P DATA ILLINT . P DATA ILLINT N P DATA ILLINT 22 n P DATA ILLINT P DATA CHLT1 24 P DATA ILLINT P DATA ILLINT P
0x045bbc…045d50 Dummy {f00=0x0102, f01=0x0190, f02=» P DATA ILLINT 32 P DATA ILLINT 33 P DATA ILLINT < P DATA ILLINT P DATA ILLINT 36 | P DATA ILLINT 37 P DATA ILLINT 38 P DATA ILLINT 39 P DATA ILLINT
0x045d50…045ee4 Dummy {f00=0x0102, f01=0x0190, f02=» 45 P DATA ILLINT 46 P DATA ILLINT 47 , P DATA ILLINT 48 H P DATA ILLINT 49 d P DATA ILLINT 50 P DATA ILLINT 51 P DATA ILLINT 52 P DATA ILLINT 53 P DATA ILLINT 54
0x045ee4…046078 Dummy {f00=0x0102, f01=0x018e, f02=» | P DATA ILLINT 60 P DATA ILLINT 61 $ P DATA ILLINT 62 @ P DATA TRAP TRAP ROUTINE P EJECT SYSTAB | P P* " P* SYSTEM CONTROL TABLE POINTER P* P DATA SCT P P P* P* SYST
0x046078…04620c Dummy {f00=0x0102, f01=0x018e, f02=» x P* P XRR A13,A13 P XRR A14,A14 & P LD A1,SCTBUG : P ABR(NZ) A1 P P HLT d P p P EJECT SYSTAB x P P* P* SYSTEM CONTROL TABLE P* P PSCT EQU * P * PSCTMSZ DATA 0 MEMORY SIZE MO
0x04620c…0463a0 Dummy {f00=0x0102, f01=0x0190, f02=» l ( P C0,C1 CAS F0,F1 DISC F8,F9 FLOPP $ PSCTANO DATA 0 APPLICATION NUMBER 4 2 PSCTADA DATA 0 APPLICATION DISC SECTOR ADDRESS PSCTPAG DATA 0 PAGTAB ADDRESS PSCTSEG DATA 0 SEGTAB ADDRESS PSCTSWB DATA 0 SWBTAB ADDRESS $ PSCTNOS DAT
0x0463a0…046534 (0, 89) Dummy {f00=0x0102, f01=0x0190, f02=»ENTRY l P INDEX REL TTAB 0 PSCTLAC DATA 0 LOGICAL ADDRESS OF COMMON PART ( & PSCTMMP DATA 0 MMU TABLE PAGE ENTRY P INDEX REL TTAB * PSCTLAP DATA 0 LOGICAL ADDRESS OF PAGES ( PSCTNPE DATA 0 NUMBER OF PAGE ENTRIES & PSCTSTB DATA ST
0x046534…0466c8 Dummy {f00=0x0102, f01=0x0190, f02=»ESS x PSCTCDT DATA 0 CDTAB ADDRESS PSCTBUG DATA 0 DEBUGGER 0 ( PSCTDMT DATA 00004 DMTASKS IN SYSTEM N P BIT 13:D2,14:D1,15:D0 z 2 PSCTDMI DATA 00004 DM INDEX RECORD BUFFER SIZE * PSCTDML DATA 00000 DM NO OF LOCAL FILES , PSCTDMC DAT
0x0466c8…04685c Dummy {f00=0x0102, f01=0x4110, f02=»YSTAB P P* P* SYSTEM STACK P* 6 P RES 145 @ P DATA /FCC0 AND PSW P & PSTB DATA LOOP AND PC FOR IDLE LOOP l P P P* P* IDLE LOOP P* P PLOOP RB * P P P P END
0x04685c…0469f0 Dummy {f00=0x0102, 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
0x0469f0…046b84 Dummy {f00=0x0102, f01=0x0190, f02=»,A5 EA ROOT P RF EAR030 PEAR020 EQU * & P LDR A5,A4 SAVE OLD ROOT : P LDR* A4,A4 NEXT BUFFER ADR Z PEAR030 EQU * ~ P RF(Z) EAR100 EA LINK END P LDR A2,A2 REC NO & P RF(N) EAR050 RELEASE MANY BUFFERS P* P* SE
0x046b84…046d18 Dummy {f00=0x0102, f01=0x018e, f02=»EAR050 EQU * P CWK A2,/A000 CHECK BIT 1 0 P RF(L) EAR080 BIT 1 ZERO,ALL BUFFERS REMOVED 6 PEAR060 EQU * j P* ~ P* SEARCH TASK IDENT P* P LC A3,FDBTNR,A1 TAK ID P CC A3,2,A4 P RB(NE) EAR020 P* P*
0x046d18…046eac Dummy {f00=0x0102, f01=0x0190, f02=» P* RETURN BUFFER TO POOL P* & P INH 0 P LD A3,FREQUE < P STR A3,A4 NEXT FREE R P ST A4,FREQUE NEW ROOT n P LDR A4,A5 BUFFER ROOT P LDR A2,A2 P RB(N) EAR020 RELEASE MORE PEAR100 EQU * P RTN A14 P EJECT
0x046eac…047040 Dummy {f00=0x0102, f01=0x0190, f02=» IF NO BUFFER IS ` D P* FOUND A NEW IS FETCHED FROM THE FREE LINK AND B FILLED WITH H P* ZEROES AND PUT ON THE CRN LINK. IF NO FREE BUFFERS ARE AVAILABLE ` 0 P* THE SYSTEM WILL HALT AND LITE SOP-LAMPS. ( P* TASK ID IS PLACED IN THE BUFFER
0x047040…0471d4 (0, 90) Opaque[0x194]
0x0471d4…047368 # DirEnt {nam=»TDISP «, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0968, f03=0x0000}
0x0471d4…047368 IdxSect {
0x0471d4…047368 f00 = 0x004b // 0x471d4 @0x0
0x0471d4…047368 f01 = 0x0008 // 0x471d6 @0x2
0x0471d4…047368 gno = [ // 0x471d8 @0x4
0x0471d4…047368 [0x00]: C0x004b.0x1.0
0x0471d4…047368 [0x01]: C0x004b.0x2.0
0x0471d4…047368 [0x02]: C0x004b.0x3.0
0x0471d4…047368 [0x03]: C0x0084.0x3.0
0x0471d4…047368 ]
0x0471d4…047368 }
0x047368…0474fc Dummy {f00=0x004b, f01=0x0190, f02=» 0 P IDENT TDISP REL 9.2 79-11-16 870105040920 P 8 P* @ P* J 6 P************************************************** T P* $ P* PHILIPS TERMINAL SYSTEM PTS P* P* TDISP = TOSS DISPATCHER P* P* P*
0x0474fc…047690 Dummy {f00=0x004b, f01=0x0190, f02=»PATCHER IN TOSS. x > P* ENTRY POINT IS 'TDISP' WITH 8 REGISTERS ON A15 STACK. > P* THE DISPATCHER CHECKS IF THERE IS A TASK IN DISPATCHER Z < P* QUEUE WITH HIGHER PRIORITY THAN INTERRUPTED PROGRAM. : P* - IF SO, THE RUNNING TASK IS QUEUED AND
0x047690…047824 Dummy {f00=0x004b, f01=0x0190, f02=»TRY 'DISEND' CALLS TENDIO BEFORE TDSIP P* . 6 P* ENTRY 'DISIOE' SETS BIT 0 IN A1 BEFORE DISEND. 8 P* r 8 P* ENTRY 'MEXIT' EXITS A MONITOR TASK BEFORE TDISP. | P* D P* ENTRY 'RETUR8' LOADS 8 REGISTERS FROM A15 STACK AND RETURNS.
0x047824…0479b8 Dummy {f00=0x004b, f01=0x0190, f02=»NTRY TDISP DISPATCHER ENTRY ( P ENTRY MEXIT EXIT FOR MONITOR TASKS $ " P ENTRY DISIOE I/O ERROR ENTRY P & P ENTRY DISEND END I/O AND DISPATCH v 8 P ENTRY DISQUE POINTER TO FIRST PLACE IN DISP. QUEUE 0 P ENTRY PRUN TTAB ADDRESS OF RUNNING PROGRAM
0x0479b8…047b4c Dummy {f00=0x004b, f01=0x018e, f02=» P************* P* P* ( P EXTRN TTB:SA SAVE AREA 2 P EXTRN TTB:ST STATUS R & P EXTRN TTB:PW PROGRAM STATUS WORD n P EXTRN TTB:MT MMUTAB ( P EXTRN TTB:SB SEGMENT BLOCK ADDRESS , P EXTRN SEG:PB SEGMENT PAGE BLOCK ADDRESS
0x047b4c…047ce0 Dummy {f00=0x004b, f01=0x018e, f02=» d P EXTRN TENDIO END I/O P EXTRN EXIT PROGRAM EXIT & 2 P EXTRN QLTDSK ACTIVATE LDTASK AT ENTRY LT:DSK F . P EXTRN SCTLAP LOGICAL ADDRESS OF CODE PAGE | & P EXTRN SCTMMP MMU TABLE PAGE ENTRY ( P EXTRN SCTNPE NUMBER OF PAGE ENTRIES P EJE
0x047ce0…047e74 (0, 91) Dummy {f00=0x004b, f01=0x0190, f02=» . P***************************************** P* 6 . P* A PROGRAM VERSION USING TOSS MMU PAGING @ * P* IS OBTAINED BY SETTING MMUPAG EQU 1. r P* PMMUPAG EQU 1 P* P* 6 P* A PROGRAM VERSION USING THE EXTENDED INSTRUCTION
0x047e74…048008 Dummy {f00=0x004b, f01=0x0190, f02=»ISC PAGING p * &* IS OBTAINED BY SETTING DSKPAG EQU 1. * @ PDSKPAG EQU 0 J * ^ P* h @ P* A PROGRAM VERSION PREVENTING SEGMENTS TO MOVE WHEN HAVING r > P* APPLICATION TASKS AT DIFFERENT PRIORITY LEVELS USING THE 8 P* SAME SEGMENT I
0x048008…04819c Dummy {f00=0x004b, f01=0x018e, f02=»VERLAY f * P* IS OBTAINED BY SETTING ASSOLY EQU 1 P* < PASSOLY EQU 0 F P* Z P EJECT TDISP d P* z P* D I S Q U E P* 2 P* POINTER TO FIRST PLACE IN DISPATCHER QUEUE P* PDISQUE DATA 0 P* P*
0x04819c…048330 Dummy {f00=0x004b, f01=0x0190, f02=» P* R E T U R 8 P* . P* LOAD 8 REGISTERS FROM STACK AND RETURN * P* PRETUR8 EQU * f P z P IFT CPU852=0 P MLR 8,A15 P XIF P P IFT CPU852=1 P LDR* A8,A15 P LDR* A7,A15 P LDR* A6,A15
0x048330…0484c4 Dummy {f00=0x004b, f01=0x0190, f02=» P EJECT TDISP P P* & P* M E X I T 0 P* F 0 P* DO EXIT ON MONITOR TASK AND GO TO TDISP P P* PMEXIT INH P LD A5,PRUN P CF A15,EXIT P CM PRUN P RF TDISP P P* P* D I S I
0x0484c4…048658 Dummy {f00=0x004b, f01=0x0190, f02=»* D I S E N D P* $ P* CALL TENDIO AND GO TO TDISP " P* J PDISEND CF A15,TENDIO T P EJECT TDISP p P* P* T D I S P P* $ P* THIS IS THE DISPATCHER ENTRY P* PTDISP INH & P LC A1,18,A15 LOAD P
0x048658…0487ec Dummy {f00=0x004b, f01=0x0190, f02=»CHER QUEUE P* PTDISCQ LDKL A2,DISQUE P LDR* A3,A2 : P RB(Z) RETUR8 QUEUE EMPTY N P p P LD A5,PRUN x $ P RF(Z) TDCQ10 IDLE LOOP RUNNING & P LD A4,TTB:ST+1,A5 COMPARE RUNNING 4 P CC A4,TTB:ST+1,A3 AND QUEUED TASK'S PRIOR
0x0487ec…048980 Dummy {f00=0x004b, f01=0x0190, f02=» P P IFT DSKPAG=1 , P LD A1,TTB:SB,A3 GET SEGMENT BLOCK ADDR " P RF(Z) TDISSW NONE R P LDR* A7,A1 l 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
0x048980…048b14 (0, 92) Dummy {f00=0x004b, f01=0x0190, f02=»D RUNNING TASK ~ P RF(Z) TDISST IDLE LOOP P 6 . P ADK A6,0 QUEUE OLD TASK FIRST ON PRIORITY > P RF(Z) TDSW20 EMPTY QUEUE p 0 PTDSW10 CC A4,TTB:ST+1,A6 COMPARE PRIORITIES 0 P RF(NG) TDSW20 SAME OR LOWER PRIORITY FOUND P LDR A2,A6
0x048b14…048ca8 Dummy {f00=0x004b, f01=0x0190, f02=» ST A14,TTB:SA+28,A5 SAVE REGISTERS P LDR A14,A5 , P @ P IFT CPU852=0 H P MLR 8,A15 ^ P MS 13,TTB:SA+2,A14 p P MLR 2,A15 P P XIF P IFT CPU852=1 P LDR* A8,A15 P LDR* A7,A15 P LDR* A6,A15 P LDR
0x048ca8…048e3c Dummy {f00=0x004b, f01=0x0190, f02=»B:SA+24,A14 P ST A11,TTB:SA+22,A14 P ST A10,TTB:SA+20,A14 2 P ST A9,TTB:SA+18,A14 P P ST A8,TTB:SA+16,A14 l P ST A7,TTB:SA+14,A14 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,
0x048e3c…048fd0 Dummy {f00=0x004b, f01=0x0190, f02=»TB:SA,A14 AND PC & P ST A2,TTB:PW,A14 AND PSW IN TTAB P IFT DSKPAG+DIFPRI=2 B P ^ * P LD A1,TTB:SB,A14 GET SEGM BLOCK ADDR f P RF(Z) TDISST NONE P LDR* A2,A1 GET SEGM STATUS P LDKL A3,/1000 , P TM A2,A3 CHECK IF SEGM USED BY
0x048fd0…049164 Dummy {f00=0x004b, f01=0x018e, f02=»AT IT WAS THIS TASK x P XIF P EJECT TDISP ( P* > P* START NEW TASK H P* ` PTDISST LD A14,PRUN j P IFT DSKPAG=1 P * P LD A1,TTB:SB,A14 GET SEGM BLOCK ADDR P RF(Z) TDST30 NONE ( P LD A4,SEG:PB,A1 GET PAGE BLOC
0x049164…0492f8 Dummy {f00=0x004b, f01=0x0190, f02=» P IFT DSKPAG+DIFPRI=2 P $ ( P LDR* A2,A4 CHECK IF PAGE IN PAGQUE , P RF(NZ) TDST10 YES X " P LDR* A3,A1 NO GET SEGM STATUS r 2 P ANKL A3,/1000 CHECK IF SEGM USED BY INT TASK P RF(Z) TDST20 NO 4 P CW A14,PAG:QB,A4 YES CHECK IF IT
0x0492f8…04948c Dummy {f00=0x004b, f01=0x018e, f02=» DSKPAG=1 P 2 PTDST10 LD A3,PAG:QB,A4 TAKE PAGE OUT OF QUEUE P STR A2,A3 P P ST A3,PAG:QB,A2 b P CMR A4 z P , PTDST20 LD A1,PAG:PA,A4 GET PAGE ADDRESS ( P LD A5,TTB:SA+26,A14 AND T:A ADDRESS P P IFT MMUPAG=1
0x04948c…049620 Dummy {f00=0x004b, f01=0x0190, f02=» , P LD A4,SCTNPE AND GET NUMBER OF ENTRIES P 4 2 PTDST22 SCR A2,A3 UPDATE MMU TABLE JUST IN CASE < P SUK A4,1 r P RF(Z) TDST25 P ADK A2,4 P ADK A3,2 P RB TDST22 P PTDST25 EQU * P IFT ASSOLY=0 " P TL TT
0x049620…0497b4 (0, 93) Dummy {f00=0x0084, f01=0x0190, f02=»,T:ACSB,A5 P RF TDST35 P $ P XIF , P IFT DSKPAG-MMUPAG=1 8 4 P ST A1,T:ACSB,A5 UPDATE BASE IN T:A JUST IN CASE T P XIF P PTDST30 EQU * P IFT MMUPAG=1 " P TL TTB:MT,A14 LOAD MMU TABLE P XIF P & PTDST
0x0497b4…049948 Dummy {f00=0x0084, f01=0x0190, f02=» n & P ML 14,TTB:SA+2,A14 LOAD REGISTERS P 2 P XIF : P IFT CPU852=1 F P P STR A1,A15 PUT PC d 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
0x049948…049adc Dummy {f00=0x0084, f01=0x4106, f02=» LD A9,TTB:SA+18,A14 P LD A10,TTB:SA+20,A14 P LD A11,TTB:SA+22,A14 : P LD A12,TTB:SA+24,A14 X P LD A13,TTB:SA+26,A14 v P LD A14,TTB:SA+28,A14 P P XIF P P RTN A15 START THE TASK P P END @ D
0x049adc…049c70 Dummy {f00=0x0084, 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
0x049c70…049e04 Dummy {f00=0x0084, f01=0x0190, f02=» IHTWN IHTCN , ( IHSOP N CHLT1 ^ IHFDN n CHRT1 ~ , ( CHRT2 CHRT3 CHRT4 IHCC1 IHCC2
0x049e04…049f98 Dummy {f00=0x0084, f01=0x018e, f02=» $ & ~ IHLPN IHCRN . IHDU1 > , ( A ( * N IHDU2 ~ IHMTN , ( Q , . 0 , ( a IHINPTI
0x049f98…04a12c Dummy {f00=0x0084, f01=0x0190, f02=» SCTEFA SCTPLD SCTANO , SCTADA @ SCTPAGL T , ( @ h SCTSEG SCTSWB SCTNOS SCTNOP SCTPSZ SCTMMC
0x04a12c…04a2c0 Dummy {f00=0x0084, f01=0x414e, f02=»T SCTCDT bBUG SCTBUG~ . , ( 6 B SCTDMT r SCTDMI SCTDML SCTDMC SCTBLK SCTDCT
0x04a2c0…04a454 (0, 94) Opaque[0x194]
0x04a454…04a5e8 # DirEnt {nam=»LRPINT«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x1068, f03=0x0000}
0x04a454…04a5e8 IdxSect {
0x04a454…04a5e8 f00 = 0x0083 // 0x4a454 @0x0
0x04a454…04a5e8 f01 = 0x000a // 0x4a456 @0x2
0x04a454…04a5e8 gno = [ // 0x4a458 @0x4
0x04a454…04a5e8 [0x00]: C0x0083.0x1.0
0x04a454…04a5e8 [0x01]: C0x0083.0x2.0
0x04a454…04a5e8 [0x02]: C0x00ea.0x1.0
0x04a454…04a5e8 [0x03]: C0x00f0.0x3.0
0x04a454…04a5e8 [0x04]: C0x00f1.0x0.0
0x04a454…04a5e8 ]
0x04a454…04a5e8 }
0x04a5e8…04a77c Dummy {f00=0x0083, f01=0x0190, f02=» 2 P IDENT LRPINT 9.2DK 1 79-11-16 870105040920 P : P =DK1, HANGING REM. TERM. B P 80-03-11 f P* z P* 6 P************************************************** P* $ P* PHILIPS TERMINAL SYSTEM PTS P* 0 P*
0x04a77c…04a910 Dummy {f00=0x0083, f01=0x0190, f02=»************************************************** P* : P* D : P* THIS MODULE CONTAINS MANDATORY INTERRUPT HANDLERS N P* FOR TOSS. THESE ARE: P* P* -IHLKM: LKM INTERRUPT P* P* -IHRTC: RTC INTERRUPT P*
0x04a910…04aaa4 Dummy {f00=0x0083, f01=0x0190, f02=»THESE ARE: P* 4 P* -LKMRQE: SET A7 = -1, QUEUE JOB AND DISPATCH P* T ( P* -LKMQDI: QUEUE JOB AND DISPATCH ^ P* P EJECT LRPINT P* P* P*********** P* ENTRIES * P*********** P* P*
0x04aaa4…04ac38 Dummy {f00=0x0083, f01=0x0190, f02=»R r 4 P ENTRY LKMERR HALT SYSTEM DUE TO FATAL LKM ERROR ( P ENTRY LKMQDI QUEUE JOB AND DISPATCH B & P ENTRY IHRTC RTC INTERRUPT HANDLER n 8 P ENTRY TIMQUE POINTER TO FIRST BLOCK IN TIMER QUEUE P ENTRY MONCLO MONITOR CLOCK 2 P ENTRY IHPFAR PO
0x04ac38…04adcc Dummy {f00=0x0083, f01=0x0190, f02=»* P* EXTERNALS * P************* P* 6 P* @ P EXTRN TDISP DISPATCHER J " P EXTRN DISQUE DISPATCHER QUEUE j ( P EXTRN PRUN TTAB OF RUNNING PROGRAM " P EXTRN MEXIT MONITOR TASK EXIT , P EXTRN MONMMU MONITOR (SYSTEM) MMU TAB
0x04adcc…04af60 Dummy {f00=0x0083, f01=0x0190, f02=»TCH TO LEVEL XY P EXTRN FREBLK SET BLOCK FREE " P EXTRN SAVE8 SAVE 8 REGISTERS < $ P EXTRN PFINIT RESTART OF DEVICES b P EXTRN HALT HALT MODULE ( P EXTRN INTSAV INTERRUPT SAVE MODULE P EXTRN TTABLD LOAD TASK TTAB ( P EXTRN PQEMTY
0x04af60…04b0f4 (0, 95) Dummy {f00=0x0083, f01=0x0190, f02=»KWARD t ( P EXTRN TTB:SB SEGMENT BLOCK POINTER & P EXTRN TTB:PW PROGRAM STATUS WORD : 2 P EXTRN TTB:SA FIRST WORD OF SAVE AREA IN TTAB d " P EXTRN LKMAL LKM REQUEST TABLE P EJECT LRPINT P* P* . P****************************
0x04b0f4…04b288 Dummy {f00=0x0083, f01=0x018e, f02=»PROGRAM VERSION USING TOSS MMU PAGING * P* IS OBTAINED BY SETTING MMUPAG EQU 1. . P* PMMUPAG EQU 1 f P* z P* 6 P* A PROGRAM VERSION USING THE EXTENDED INSTRUCTION . P* SET IS OBTAINED BY SETTING CPU852 EQU 0. P* PCPU8
0x04b288…04b41c Dummy {f00=0x0083, f01=0x018e, f02=» DSKPAG EQU 0 * P* & 8 P* A PROGRAM VERSION USING NO MONITOR CLOCK FUNCTIONS 0 * P* IS OBTAINED BY SETTING MCLOCK EQU 0. l P* PX:A EQU 1 PMONCLK EQU 1 P* P EJECT LRPINT P* P* P* I H
0x04b41c…04b5b0 Dummy {f00=0x0083, f01=0x0190, f02=» * P* - IF STACK OVERFLOW SYSTEM HALTS. P* 2 @ P* - ELSE REGISTERS A1 - A14 ARE SAVED IN TTAB FOR RUNNING < P* PROGRAM. P* : P* - EXIT CONDITIONS ARE SET AND A BRANCH IS MADE TO $ P* APPROPRIATE LKM PROCESSOR. P*
0x04b5b0…04b744 Dummy {f00=0x0083, f01=0x0190, f02=»KM REQUEST) h , P* A5 = TTAB ADDRESS OF CALLING PROGRAM P* A2, A3 AND A6 ARE LOST. D P* h : P* ALL OTHER REGISTERS REMAIN UNCHANGED FROM CALLING r P* PROGRAM. P* P* P* PIHLKM EQU * $ P ST P,INTSAV SAVE
0x04b744…04b8d8 Dummy {f00=0x0083, f01=0x0190, f02=» SAVE A15 " P LD A15,PRUN LOAD TTAB ADDRESS P* 8 P IFT CPU852=1 B 4 P ADKL A15,TTB:SA+28 SET A15 TO LAST IN SAVE AREA X * P STR A14,A15 SAVE USER REGISTERS, -A14 P STR A13,A15 -A13 P STR A12,A15 -A12 P STR A11,A15 -A11
0x04b8d8…04ba6c Dummy {f00=0x0083, f01=0x0190, f02=»5 -A5 P STR A4,A15 -A4 P STR A3,A15 -A3 & P STR A2,A15 -A2 > P STR A1,A15 -A1 V P XIF n P* z P IFT CPU852=0 6 P MS 14,TTB:SA+2,A15 SAVE A1-A14 IN TTAB SAVE AREA P XIF P* 0 P LD A5,PRUN GET TTAB ADDRESS O
0x04ba6c…04bc00 Dummy {f00=0x0083, f01=0x0190, f02=» GET LKM REQUEST PARAMETERS P* $ P LDR* A3,A15 . 4 P LDR* A2,A15 LOAD P.C. AND ADJUST STACK POINTER B & P ST A3,TTB:PW,A5 STORE PSW IN TTAB z P* P IFT MMUPAG=0 & P LD A3,-2,A2 GET INSTRUCTION CODE " P LDR* A6,A2 GET DATA DIREC
0x04bc00…04bd94 (0, 96) Dummy {f00=0x00ea, f01=0x018e, f02=»MMU TABLE t P* PLKM015 EQU * & P EL A3,-2,A2 GET INSTRUCTION CODE 0 " P ELR A6,A2 GET DATA DIRECTIVE Z P XIF P* P CWK A3,/2804 P RF(E) LKM025 LKM? P CWK A3,/6300 P RF(E) LKM025 TRAP? P* $ P* ST
0x04bd94…04bf28 Dummy {f00=0x00ea, f01=0x0190, f02=» P EJECT LRPINT P* P* & PLKM025 EQU * 0 P IFT DSKPAG=1 D . P LD A3,TTB:SB,A5 GET SEGMENT BLOCK ADDRESS Z P RF(Z) LKM027 NO SEGMENT? " P LDR* A4,A3 GET SEGMENT STATUS 0 P ANKL A4,/1E00 CHECK IF CORE RESIDENT OR... 2 P
0x04bf28…04c0bc Dummy {f00=0x00ea, f01=0x0190, f02=»ET PAGE BLOCK ADDRESS ~ & P LDKL A4,PAGQUE GET PAGQUE ADDRESS P ST A4,PAG:QB,A3 H 4 P LDR* A4,A4 GET ADDRESS OF FIRST BLOCK IN PAGQUE ` " P STR A4,A3 UPDATE QUEUE LINKS P ST A3,PAGQUE P ST A3,PAG:QB,A4 4 P LD A3,PQEMTY CHECK IF LOAD
0x04c0bc…04c250 Dummy {f00=0x00ea, f01=0x0190, f02=»K | P* , P CM PQEMTY INDICATE PAGE QUEUE NOT EMPTY P LDR A4,A5 SAVE A5 D , P LDKL A5,TTABLD GET LDTASK TTAB ADDRESS ^ $ P CF A15,QTJOB RESTART LOAD TASK P LDR A5,A4 RESTORE A5 P LD A4,TTB:PW,A5 GET PSW & P ST A4,-2,A15 RESTOR
0x04c250…04c3e4 Dummy {f00=0x00ea, f01=0x0190, f02=» ( P RF(E) LKM060 LOAD SEGMENT REQUEST? P XIF 0 P* < P EJECT LRPINT F P* ^ P* h PLKM030 EQU * r ( P CM PRUN INDICATE IDLE LOOP RUNNING $ P CF A15,SWL48 SWITCH TO LEVEL 48 P LDK A4,0 " P LDR A3,A6 GET DATA DIRECTIV
0x04c3e4…04c578 Dummy {f00=0x00ea, f01=0x0190, f02=»IRECTIVE POSITIVE z P* P IFT MMUPAG=0 $ P LDR* A4,A2 GET LABEL : P XIF X P* d P IFT MMUPAG=1 n P ELR A4,A2 GET LABEL P XIF P* P EJECT LRPINT P* . P* UPDATE TTB:SA AND GO TO LKM PROCESSOR
0x04c578…04c70c Dummy {f00=0x00ea, f01=0x0190, f02=»MAL v * P RF(Z) LKMQDI PROGRAM SWITCH REQUEST? P CW A3,LKMAL : * P RF(NL) LKMRQE INVALID DATA DIRECTIVE? N P INH | P LD A3,LKMAL,A3 P* P IFF MMUPAG+DSKPAG=0 P RF LKM065 P* . PLKM060 EQU * LOAD SEGMENT REQUEST (DAT
0x04c70c…04c8a0 Dummy {f00=0x00ea, f01=0x018e, f02=» P* P EJECT LRPINT P* & P* 0 P* L K M E R R : P* R P* > PLKMERR LDK A1,15 INDICATE REQUESTED LKM PROC. NOT PRESENT f P* PLKM070 EQU * P CF A15,HALT HALT SYSTEM P* P* P* L K M R Q
0x04c8a0…04ca34 (0, 97) Dummy {f00=0x00f0, f01=0x0190, f02=» PLKMRQE EQU * P LDKL A2,-1 . P ST A2,TTB:SA+14,A5 SET -1 IN SAVE AREA A7 , P* ^ P* h P* L K M Q D I r P* ( P* QUEUE TERMINAL JOB AND DISPATCH. P* P* A5 = TTAB ADDRESS P* P* PLKMQDI EQU *
0x04ca34…04cbc8 Dummy {f00=0x00f0, f01=0x0190, f02=»CT LRPINT P* P* I H R T C P* 4 6 P* THIS IS THE REAL TIME CLOCK INTERRUPT HANDLER. > 6 P* THE TIMER QUEUE WILL BE PROCESSED EACH 100 MS. x P* * PIHRTC ST P,INTSAV SAVE LAST INTERRUPT " P RIT /1B RESET INTERRUPT FLAG
0x04cbc8…04cd5c Dummy {f00=0x00f0, f01=0x0190, f02=»F A15,SAVE8 SAVE A1-A8 ON STACK P XIF ( P* 4 P IFT CPU852=0 > " P MSR 8,A15 SAVE A1-A8 ON STACK T P XIF z P* " P LDKL A4,-4 SET 100 MS SWITCH P ST A4,COUNT . P LDKL A2,CLOCK QUEUE CLOCK ROUTINE AS MJOB P CF A15,QMJO
0x04cd5c…04cef0 Dummy {f00=0x00f0, f01=0x0190, f02=» * $ P CF A15,SWLXY SWITCH TO LEVEL XY P RB T:DISP 2 P* D P EJECT LRPINT N P* f P* p P IFT MONCLK=1 z P* < P* MONITOR CLOCK UPDATING ROUTINE STARTED EACH SECOND. P* PMCLOCK EQU * ( PRTC025 LDKL A4,-
0x04cef0…04d084 Dummy {f00=0x00f0, f01=0x0190, f02=»20 IM MONCLO+2,A4 INCREMENT TIME 0 P XR A3,MONCLO+2,A4 CHANGE MINUTES OR HOURS ? ( $ P RB(NE) RTC020 GO TO DISPATCHER? ( P CM MONCLO+2,A4 RESTART TIME COUNTER P SUK A4,2 END? " P RB(N) MCLO20 MIDNIGHT CARRY? " P RB(P) MCLO10 UPDATE MINUTES
0x04d084…04d218 Dummy {f00=0x00f0, f01=0x0190, f02=»MONCLO EQU * P IFT MONCLK=1 & P DATA 0 ACCUMULATED 24 HOUR CARRY * P DATA 0 HOUR T P DATA 0 MINUTE h P DATA 0 SECOND ~ PSECOND DATA 0 SECOND SWITCH P XIF P* P EJECT LRPINT P* * P* CLOCK ROUTINE STARTE
0x04d218…04d3ac Dummy {f00=0x00f0, f01=0x0190, f02=»0 LDR* A4,A6 GET TIMER BLOCK P ABL(Z) MEXIT END OF QUEUE $ P IM 4,A4 INCREMENT TIMER F P RB(N) CLK10 NOT TIME OUT? f P RF(Z) CLK30 TIME OUT? P LDR* A3,A4 RELEASE TIMER P STR A3,A6 P CF A15,FREBLK P LDR A4,A2 P CF A1
0x04d3ac…04d540 Dummy {f00=0x00f0, f01=0x0190, f02=» CF A15,SWL48 SWITCH TO LEVEL 48 DK1 P INH , P RB CLK10 8 P* J PCLK40 EQU * T P IFT CPU852=1 h & 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*
0x04d540…04d6d4 (0, 98) Dummy {f00=0x00f1, f01=0x0190, f02=»NE r P* P* PCOUNT DATA 0 100 MS SWITCH P* @ P* J P* T I M Q U E T P* l . P* POINTER TO FIRST BLOCK IN TIMER QUEUE v P* P* PTIMQUE EQU * P DATA 0 P* P EJECT LRPINT P*
0x04d6d4…04d868 Dummy {f00=0x00f1, f01=0x0190, f02=»ATA 0 & PTTABPF DATA 0 TTAB FOR POWER FAIL P DATA '#P' 8 P DATA 0 J PA15SAV DATA 0 Z P DATA /00C0 p P DATA POWOFF P* P* P* WORK AREAS P* P* & PPFX DATA 1 POWER ON/OFF INDICATOR P*
0x04d868…04d9fc Dummy {f00=0x00f1, f01=0x018e, f02=»INTERRUPT t P* P* PIHPFAR EQU * & $ P ST P,INTSAV SAVE LAST INTERRUPT < & P RIT /17 RESET INTERNAL INTERRUPT d & P C1S PFX INDICATE POWER ON OR OFF P RF(P) POWON POWER ON? P* P* POWER OFF P* P IFT CPU
0x04d9fc…04db90 Dummy {f00=0x00f1, f01=0x0190, f02=» P XIF ! P* ! 4 P LD A1,DISQUE QUEUE PFTASK FIRST FOR DISPATCHING ! P LDKL A2,TTABPF ! R P STR A1,A2 ! j P ST A2,DISQUE ! | P RB T:DISP ! P* ! 2 PPOWOFF ST A15,A15SAV SAVE A15 FOR BETTER TIMES ! P HLT ! P* ! P EJECT LRPIN
0x04db90…04dd24 Dummy {f00=0x00f1, f01=0x4058, f02=» ! P CM PRUN " P RB T:DISP " P* " * P* " 4 P* " > P END " H@ " TA2,TTABPF ! R P STR A1,A2 ! j P ST A2,DISQUE ! | P RB T:DISP ! P* ! 2 PPOWOFF ST A15,A15SAV SAVE A15 FOR BETTER TIMES ! P HLT ! P* ! P EJECT LRPIN
0x04dd24…04deb8 Dummy {f00=0x00f1, 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
0x04deb8…04e04c Dummy {f00=0x00f1, f01=0x2008, f02=» ,
0x04e04c…04e1e0 Dummy {f00=0x00f1, f01=0x0190, f02=»****************************************** T 6 P* * U 2 6 P* RDBLK - READ ONE CASSETTE BLOCK * U l 6 P* =============================== * U 6 P*
0x04e1e0…04e374 (0, 99) Opaque[0x194]
0x04e374…04e508 # DirEnt {nam=»TPROC «, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0cc8, f03=0x0000}
0x04e374…04e508 IdxSect {
0x04e374…04e508 f00 = 0x0066 // 0x4e374 @0x0
0x04e374…04e508 f01 = 0x0006 // 0x4e376 @0x2
0x04e374…04e508 gno = [ // 0x4e378 @0x4
0x04e374…04e508 [0x00]: C0x0066.0x1.0
0x04e374…04e508 [0x01]: C0x00e6.0x1.0
0x04e374…04e508 [0x02]: C0x00e6.0x3.0
0x04e374…04e508 ]
0x04e374…04e508 }
0x04e508…04e69c Dummy {f00=0x0066, f01=0x0190, f02=» 0 P IDENT TPROC REL 9.2 79-11-16 870105040920 P 8 P* @ P* J 6 P************************************************** T P* $ P* PHILIPS TERMINAL SYSTEM PTS P* $ P* TPROC = TOSS LKM PROCESSORS P* P* P*
0x04e69c…04e830 Dummy {f00=0x0066, f01=0x0190, f02=»AINS THE FOLLOWING | P* TOSS LKM PROCESSORS: P* : P* - TWAIT = WAIT D P* ` P* - TEXIT = EXIT j P* ( P* - TACTOT = ACTIVATE/RESTART TASK P* P* - TPAUSE = PAUSE TASK P* P* - TMWAIT = MULTIPL
0x04e830…04e9c4 Dummy {f00=0x0066, f01=0x018e, f02=»* P* P ENTRY TWAIT WAIT PROCESSOR P ENTRY TEXIT EXIT PROCESSOR 8 , P ENTRY TACTOT ACTIVATE/RESTART PROCESSOR " P ENTRY TPAUSE PAUSE PROCESSOR * P ENTRY TMWAIT MULTIPLE WAIT PROCESSOR P P P P* P*
0x04e9c4…04eb58 Dummy {f00=0x0066, f01=0x0190, f02=» P EXTRN TDISP DISPATCHER * P EXTRN LKMQDI QUEUE TASK AND DISPATCH $ $ P EXTRN LKMRQE LKM REQUEST ERROR R P EXTRN EXIT PROGRAM EXIT z 2 P EXTRN FNDDWT FIND DWT ADDRESS FROM FILE CODE 0 P EXTRN FNDTID FIND TTAB ADDRESS FROM TASK ID P EXT
0x04eb58…04ecec Dummy {f00=0x0066, f01=0x018e, f02=»RN DWTWAT WAIT/ACTIVATE INDICATOR P EJECT TPROC * P* @ P* J . P***************************************** T P* P* CONDITIONAL ASSEMBLY P* . P***************************************** P* . P* A PROGRAM VERSION
0x04ecec…04ee80 Dummy {f00=0x0066, f01=0x0190, f02=» P* P* P******** P* WAIT * ( P******** 8 P* H P* R ( P* THIS IS THE WAIT LKM PROCESSOR. P* , P* THIS MODULE IS ENTERED WHEN THE TASK 6 P* WANTS TO SYNCHRONIZE WITH A PARTICULAR EVENT. P* * P*
0x04ee80…04f014 (0, 100) Dummy {f00=0x00e6, f01=0x0190, f02=»CB ADDRESS P* P* * PTWAIT CF A15,FNDDWT SEARCH DWT ADDRESS & P ADK A6,0 SET CR T & P RF(Z) TP:RQE FILE CODE NOT FOUND? l P* P IFT MMUPAG=0 * P LDR* A1,A8 RETURN IF EVENT COMPLETED P XIF P* P IFT MMUPAG=1
0x04f014…04f1a8 Dummy {f00=0x00e6, f01=0x0190, f02=»SET WAIT INDICATOR IN DWT ~ P RF T:DISP GO TO DISPATCHER " P* F P EJECT TPROC P P* f P* p P******** z P* EXIT * P******** P* P* ( P* THIS IS THE EXIT LKM PROCESSOR. P* * P* THIS MODULE IS E
0x04f1a8…04f33c Dummy {f00=0x00e6, f01=0x0190, f02=»D FROM THE LKM HANDLER & P* WITH THE FOLLOWING PARAMETERS: P* H P* A5 = TTAB ADDRESS R P* p P* z PTEXIT EQU * " P CF A15,EXIT CALL PROGRAM EXIT P* & PT:DISP ABL TDISP GO TO DISPATCHER P* P EJECT TPR
0x04f33c…04f4d0 Dummy {f00=0x00e6, f01=0x0190, f02=» TASK LKM PROCESSOR. p P* 4 P* THIS MODULE IS ENTERED FROM THE LKM HANDLER & ( P* WHEN A TASK HAS TO BE ACTIVATED. ^ P* 0 P* THE FOLLOWING PARAMETERS ARE SUPPLIED:- P* ( P* A1 = PARAMETER WHEN A4 NOT ZERO 4 P* A4 = S
0x04f4d0…04f664 Dummy {f00=0x00e6, f01=0x0190, f02=» PTACTOT EQU * $ P CF A15,FNDTID FIND TTAB ADDRESS P ADK A2,0 SET CR D $ P RF(Z) TP:RQE TASK NOT IN SYSTEM 4 P CF A15,QTJOB QUEUE CALLING TASK FOR DISPATCHING * P LD A3,TTB:SA+6,A5 GET SEGMENT NUMBER P LDR A5,A2 P LDR A2,A4
0x04f664…04f7f8 Dummy {f00=0x00e6, f01=0x0190, f02=» EJECT TPROC P* P* P********** * P* TPAUSE * < P********** N P* ` P* j ( P* THIS IS THE PAUSE LKM PROCESSOR. t P* : P* THIS MODULE IS ENTERED FROM THE LKM HANDLER WHEN A : P* TASK WANTS TO (TEMPORARILY)
0x04f7f8…04f98c Dummy {f00=0x00e6, f01=0x0190, f02=» P********** P* TMWAIT * P********** , P* > P* H 0 P* THIS IS THE MULTIPLE WAIT LKM PROCESSOR. R P* * P* IT IS ENTERED FROM THE LKM HANDLER & P* WITH THE FOLLOWING PARAMETERS: P* P* A5 = TTAB ADDRESS
0x04f98c…04fb20 Dummy {f00=0x00e6, f01=0x018e, f02=»LLING TASK VIA TENDIO t & P* WITH THE FOLLOWING PARAMETERS: P* H , P* A8 = ECB ADDRESS OF COMPLETED EVENT R P* > P* IF REQUEST ERROR, A7 := -1 (AND NO RETURN VIA TENDIO). P* ( P* NOTICE THAT ALL EVENTS MUST HAVE ( P*
0x04fb20…04fcb4 (0, 101) Dummy {f00=0x00e6, f01=0x0190, f02=» n P LDK A3,0 P* P IFT MMUPAG=0 $ * P LDR* A1,A7 GET NO OF ECB:S IN ECBBLK : P XIF h P* t P IFT MMUPAG=1 ~ ( P ELR A1,A7 GET NO OF ECB:S IN ECBBLK P XIF P* ( P RF(NP) TP:RQE REQUEST ERROR IF <= 0 P*
0x04fcb4…04fe48 Dummy {f00=0x00e6, f01=0x0190, f02=»S v & P LDR* A2,A8 GET FIRST WORD OF ECB P XIF 4 P* @ P IFT MMUPAG=1 J P ELR A8,A7 GET ECB ADDRESS ` $ P ELR A2,A8 GET FIRST WORD OF ECB P XIF P* ( P RF(N) TMW:30 I/O ALREADY COMPLETED? 8 P CF A15,FNDDWT NO, SEARCH DW
0x04fe48…04ffdc Dummy {f00=0x00e6, f01=0x0190, f02=» " P LD A2,DWTST,A6 GET DWT STATUS P RF(N) TP:RQE NOT BUSY? * P CW A5,DWTTAB,A6 J 4 P RF(NE) TP:RQE REQUEST NOT ISSUED BY THIS TASK? b 0 P LD A2,DWTWAT,A6 GET WAIT/ACTIVATE INDICATOR , P RF(NZ) TP:RQE REQUEST ISSUED WITH WAIT? P ORK A6,1
0x04ffdc…050170 Dummy {f00=0x00e6, f01=0x0190, f02=»AVE FIRST DWT ADDRESS P LDR A3,A6 P* 0 PTMW:20 EQU * : 8 P ST A6,DWTWAT,A9 CHAIN THIS DWT WITH THE ONE BEFORE N $ P LDR A9,A6 SAVE THIS DWT ADDRESS P SUK A1,1 ( P RB(P) TMW:10 MORE ECB:S IN ECBBLK? : P ST A3,DWTWAT,A9 NO, SET
0x050170…050304 Dummy {f00=0x00e6, f01=0x0190, f02=» TTAB SAVE AREA p 2 P ADK A3,0 CHECK FLAG IF FIRST ECB TO WAIT FOR & P RF(Z) TP:QDI FIRST ECB IN ECBBLK? N P* x : PTMW:40 ADKL A3,DWTWAT POINT TO WAIT/ACTIVATE INDICATOR $ P LDR* A2,A3 GET NEXT DWT ADDRESS P RF(Z) TP:QDI NO MORE DWT:S?
0x050304…050498 Dummy {f00=0x00e6, f01=0x40aa, f02=»QU * " P ABL LKMRQE LKM REQUEST ERROR P* 2 PTP:QDI EQU * < ( P ABL LKMQDI QUEUE TASK AND DISPATCH P P* | P* P* P END @ VATE INDICATOR $ P LDR* A2,A3 GET NEXT DWT ADDRESS P RF(Z) TP:QDI NO MORE DWT:S?
0x050498…05062c Dummy {f00=0x00e6, 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
0x05062c…0507c0 Dummy {f00=0x00e6, f01=0x0000, f02=»
0x0507c0…050954 (0, 102) Opaque[0x194]
0x050954…050ae8 # DirEnt {nam=»MSUBS «, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0a28, f03=0x0000}
0x050954…050ae8 IdxSect {
0x050954…050ae8 f00 = 0x0051 // 0x50954 @0x0
0x050954…050ae8 f01 = 0x000c // 0x50956 @0x2
0x050954…050ae8 gno = [ // 0x50958 @0x4
0x050954…050ae8 [0x00]: C0x0051.0x1.0
0x050954…050ae8 [0x01]: C0x0051.0x3.0
0x050954…050ae8 [0x02]: C0x0052.0x0.0
0x050954…050ae8 [0x03]: C0x0052.0x1.0
0x050954…050ae8 [0x04]: C0x0085.0x3.0
0x050954…050ae8 [0x05]: C0x0086.0x1.0
0x050954…050ae8 ]
0x050954…050ae8 }
0x050ae8…050c7c Dummy {f00=0x0051, f01=0x0190, f02=» 0 P IDENT MSUBS REL 9.2 79-11-16 870105040920 P 8 P* @ P* J 6 P************************************************** T P* $ P* PHILIPS TERMINAL SYSTEM PTS P* $ P* MSUBS = MONITOR SUBROUTINES P* P* P*
0x050c7c…050e10 Dummy {f00=0x0051, f01=0x0190, f02=»OLLOWING MONITOR r P* SUBROUTINES: P* 0 , P* -SAVE8 SAVE 8 REGISTERS ON STACK : , P* -QTJOB QUEUE TASK FOR DISPATCHING j 4 P* -QMJOB QUEUE MONITOR JOB FOR DISPATCHING . P* -ACTOT ACTIVATE TASK ON FIFO BASIS . P*
0x050e10…050fa4 Dummy {f00=0x0051, f01=0x018e, f02=»K SET A MONITOR BLOCK FREE " P* -FNDDWT FIND DWT ADDRESS $ * P* -FNDTID FIND TASK IDENTIFICATION J P* -PFINIT RESTART DEVICE x $ P* -SWL48 SWITCH TO LEVEL 48 $ P* -SWLXY SWITCH TO LEVEL XY P* -HALT HALT MODULE
0x050fa4…051138 Dummy {f00=0x0051, f01=0x0190, f02=» " P ENTRY SAVE8 SAVE 8 REGISTERS P ENTRY QTJOB QUEUE TASK * " P ENTRY QMJOB QUEUE MONITOR JOB J & P ENTRY ACTOT ACTIVATE TASK (FIFO) p & P ENTRY ACTOTP ACTIVATE TASK (LIFO) P ENTRY EXIT PROGRAM EXIT P ENTRY GETBLK GET BLOCK P ENT
0x051138…0512cc Dummy {f00=0x0051, f01=0x0190, f02=»CE v $ P ENTRY SWL48 SWITCH TO LEVEL 48 $ P ENTRY SWLXY SWITCH TO LEVEL XY 2 , P ENTRY ILLINT ILLEGAL INTERRUPT ROUTINE Z * P ENTRY INTSAV SAVE AREA LAST INTERRUPT P ENTRY HALT HALT MODULE P* 2 P* ENTRIES TO RESTORE REGISTERS A8-A1
0x0512cc…051460 Dummy {f00=0x0051, f01=0x018e, f02=» A1 ~ 2 P ENTRY IHRTN RETURN WITHOUT ENABLE INTERRUPTS P EJECT MSUBS J P* ` P* j P************* t P* EXTERNALS * P************* P* P* : P EXTRN DISQUE POINTER TO 1ST PLACE IN DISPATCHER QUEUE & P
0x051460…0515f4 (0, 103) Dummy {f00=0x0051, f01=0x0190, f02=» & P EXTRN TTB:ID TASK IDENTIFICATION P EXTRN TTB:SA SAVE AREA . * P EXTRN TTB:PP POINTER TO PENDING QUEUE N ( P EXTRN TTB:TD TERMINAL DEVICE TABLE | 6 P EXTRN FREQUE POINTER TO FIRST FREE MONITOR BLOCK P EXTRN DWTADR -ADDRESS BLOCK $ P E
0x0515f4…051788 Dummy {f00=0x0051, f01=0x0190, f02=»XTRN TIODM DM ENTRY P EXTRN CHKIND DM ENTRY P* : P* D " PSOP EQU /2E SOP DEVICE ADDRESS N P* t P EJECT MSUBS ~ P* P* . P***************************************** P* P* CONDITIONAL ASSEMBLY P*
0x051788…05191c Dummy {f00=0x0051, f01=0x0190, f02=»NG MMUPAG EQU 1. z P* PMMUPAG EQU 1 " 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 0 P* * . ** A PROGRAM VERSION USING TOSS D
0x05191c…051ab0 Dummy {f00=0x0051, f01=0x0190, f02=»* P* S A V E 8 P* 0 P* SUBROUTINE TO SAVE 8 REGISTERS ON STACK * $ P* WITHOUT ENABLING INTERRUPTS. ^ P* P* PSAVE8 EQU * P INH INHIBIT INTERRUPTS P STR A3,A15 P STR A4,A15 P STR A5,A15
0x051ab0…051c44 Dummy {f00=0x0051, f01=0x0190, f02=»RANCH ADDRESS v P ST A2,14,A15 P ST A1,16,A15 , P LD A3,12,A15 RESTORE A3 B & P ABL 0 THIS IS USED TO BRANCH BACK b PSAVE81 EQU *-2 P* P EJECT MSUBS P* P* P* Q T J O B P* 2 P* SUBROUTINE TO
0x051c44…051dd8 Dummy {f00=0x0051, f01=0x0190, f02=» P* 8 P* THE REQUESTED JOB IS PUT IN DISPATCHER QUEUE ON 8 P* PRIORITY BASIS. WITHIN ONE PRIORITY LEVEL JOB IS J P* PUT LAST IN QUEUE. P* P* PQTJOB EQU * P INH P* P IFT CPU852=1 $ P STR A1,A15 SAVE
0x051dd8…051f6c Dummy {f00=0x0051, f01=0x0190, f02=»CK t P XIF P* . P LDKL A1,DISQUE LOAD QUEUE ANCHOR ADDRESS 2 P LDR* A2,A1 GET ADDRESS OF FIRST TASK IN QUEUE R P RF(Z) QTJ020 DISQUE EMPTY? * P LD A3,TTB:ST+1,A5 GET PRIORITY LEVEL P* P EJECT MSUBS P* P*
0x051f6c…052100 Dummy {f00=0x0051, f01=0x0190, f02=»1 GET NEXT TTAB ADDRESS IN QUEUE $ P RB(NZ) QTJ010 NOT END OF QUEUE? ( P* P ( PQTJ020 STR A2,A5 UPDATE QUEUE LINKS Z P STR A5,A1 P* P IFT CPU852=1 P ABL IHRET3 P XIF P* P IFT CPU852=0 * P MLR 3,A15 RESTO
0x052100…052294 (0, 104) Dummy {f00=0x0052, f01=0x018e, f02=»B P* 6 P* SUBROUTINE TO QUEUE MONITOR JOBS ON LEVEL 49. P* N P* ENTRY PARAMETERS:- X P* v P* A1 = PARAMETER P* A2 = DISPATCH ADDRESS P* : P* A5 IS SET TO TTAB ADDRESS OF MONITOR JOBS AND THE < P*
0x052294…052428 Dummy {f00=0x0052, f01=0x0190, f02=» & P CF A15,SAVE8 SAVE A1-A8 ON STACK P XIF . P* : P IFT CPU852=0 D P INH Z " P MSR 8,A15 SAVE A1-A8 ON STACK f P XIF P* $ P LDKL A5,TTMJOB SET TTAB ADDRESS P RF ACT01 P* P EJECT MSUBS P* P*
0x052428…0525bc Dummy {f00=0x0052, f01=0x0190, f02=»* P* A1 = PARAMETER 1 P* A2 = DISPATCH ADDRESS & P* A3 = SEGMENT NUMBER H P* A4 = PARAMETER 2 h P* A5 = TTAB ADDRESS P* < P* - IF REQUESTED PROGRAM IS NOT ACTIVE THE PROGRAM IS : P* PUT IN DISPATCHER QUEU
0x0525bc…052750 Dummy {f00=0x0052, f01=0x0190, f02=»LL PUT REQUEST IN PENDING QUEUE ON FIFO BASIS. B P* - ACTOTP WILL PUT REQUEST IN PENDING QUEUE ON LIFO BASIS. 6 P* | P* PACTOTP EQU * P IFT CPU852=1 & P CF A15,SAVE8 SAVE A1-A8 ON STACK P XIF P* P IFT CPU852=0
0x052750…0528e4 Dummy {f00=0x0052, f01=0x0190, f02=» P EJECT MSUBS P* P* $ PACTOT EQU * . P IFT CPU852=1 B & P CF A15,SAVE8 SAVE A1-A8 ON STACK X P XIF P* P IFT CPU852=0 P INH " P MSR 8,A15 SAVE A1-A8 ON STACK P XIF P* PACT01 LDK A6,0 IND
0x0528e4…052a78 Dummy {f00=0x0052, f01=0x0190, f02=» " P ST A1,TTB:SA+2,A5 PARAMETER 1 0 P ST A2,TTB:SA,A5 SAVE (NEW) DISPATCH ADDRESS * & P ST A3,TTB:SA+6,A5 SEGMENT NUMBER ^ " P ST A4,TTB:SA+8,A5 PARAMETER 2 $ P LD A4,TTB:ID,A5 SET TERMINAL ID * P ST A4,TTB:SA+4,A5 TO A2 IN SAVE AREA P*
0x052a78…052c0c Dummy {f00=0x0052, f01=0x0190, f02=»E JOB z P* P EJECT MSUBS P* . P* 8 PACT010 EQU * B P IFT CPU852=1 V ( P ABL IHRET8 RESTORE A1-A8 AND RETURN l P XIF P* P IFT CPU852=0 * P MLR 8,A15 RESTORE A1-A8 FROM STACK... P RTN A15 ...AND RETURN
0x052c0c…052da0 Dummy {f00=0x0052, f01=0x0190, f02=»K GET A FREE BLOCK P LDR A1,A7 PARAMETER 2 P LDR A2,A4 8 P CF A15,GETBLK J P ADKL A5,TTB:PP ` P* x " PACT030 LDR A3,A5 SAVE ADDRESS ( P LDR* A5,A5 FOLLOW THE QUEUE THREAD P ADK A6,0 SET CR & P RF(NZ) ACT040 QUEUE ON LIFO
0x052da0…052f34 (0, 105) Dummy {f00=0x0052, f01=0x0190, f02=»E t P STR A5,A4 P RB ACT010 P* . P EJECT MSUBS 8 P* N P* X P* E X I T b P* v 8 P* SUBROUTINE TO SET A PROGRAM FREE AND QUEUE FIRST P* PENDING PROGRAM. P* P* ENTRY PARAMETER: P* P
0x052f34…0530c8 Dummy {f00=0x0052, f01=0x018e, f02=»OGRAM COUNTER z 0 P LD A4,TTB:PP,A5 GET PENDING PROGRAM POINTER $ P RF(Z) IHRTN NO PENDING PROGRAM J P LDR* A3,A4 GET QUEUE THREAD r 0 P ST A3,TTB:PP,A5 AND SAVE IN PENDING POINTER 4 P CF A15,FREBLK RELEASE BLOCK AND GET PARAMETERS P LDR A
0x0530c8…05325c Dummy {f00=0x0052, f01=0x0190, f02=» P EJECT MSUBS P* P* ( P* G E T B L K 2 P* J 4 P* SUBROUTINE TO GET A FREE BLOCK FROM MONITOR T 8 P* BLOCK POOL. REGISTERS A3-A1 ARE STORED IN FOUND P* FREE BLOCK. P* P* EXIT PARAMETER:- P*
0x05325c…0533f0 Dummy {f00=0x0052, f01=0x0190, f02=»A4,FREQUE GET FIRST BLOCK IN FREE QUEUE P RF(NZ) GBL010 0 P LDK A1,/B HALT PARAMETER F , P CF A15,HALT HALT IF NO MORE FREE BLOCKS h P* PGBL010 LDR* A5,A4 . P ST A5,FREQUE TAKE BLOCK OUT OF FREE QUEUE $ P STR A3,A4 STORE A3-A1 IN
0x0533f0…053584 Dummy {f00=0x0052, f01=0x0190, f02=» XIF P* P IFT CPU852=0 P RTN A15 , P XIF < P* H P EJECT MSUBS R P* h P* r P* F R E B L K | P* : P* SUBROUTINE TO GET PARAMETERS FROM A MONITOR BLOCK P* AND SET THIS BLOCK FREE. P*
0x053584…053718 Dummy {f00=0x0052, f01=0x0190, f02=» PARAMETER IN BLOCK $ P* A2 = SECOND " " $ P* A1 = THIRD " " D P* l P* v PFREBLK EQU * P INH P LDR* A3,A4 UPDATE A3 P LD A1,FREQUE P STR A1,A4 P ST A4,FREQUE SET BLOCK FREE
0x053718…0538ac Dummy {f00=0x0052, f01=0x0190, f02=» RTN A15 P XIF P* P EJECT MSUBS & P* < P* F P* F N D D W T P P* h " P* SUBROUTINE TO FIND A DWT. r P* P* ENTRY PARAMETERS:- P* P* A5 = TTAB ADDRESS 8 P* A7 = ORDER CODE WHEN CALLED
0x0538ac…053a40 Dummy {f00=0x0052, f01=0x0190, f02=»A6 = DWT ADDRESS IF FOUND, ELSE 0 P* * P* 4 PFNDDWT STR A1,A15 SAVE A1 > P LDKL A6,TTB:TD+2 ` 4 P ADR A6,A5 GET ADDRESS TO TERMINAL DEVICE TABLE z " P LD A1,-2,A6 GET TABLE LENGTH P* P IFT MMUPAG=1 & P ELR A2,A8 LOAD
0x053a40…053bd4 (0, 106) Dummy {f00=0x0085, f01=0x0190, f02=» EJECT MSUBS P* P* PFND100 SUK A1,4 * ( P RF(N) FND110 FILE CODE NOT IN TTAB? B & P CC A2,1,A6 SEARCH IN DEVICE TABLE n & P RF(NE) FND106 BRANCH IF NOT FOUND P STR A1,A15 P LD A1,2,A6 DWT ADDRESS " P LD A1,DWTADR,A1 A
0x053bd4…053d68 Dummy {f00=0x0085, f01=0x0190, f02=» OK P LDR* A1,A15 P* PFND106 EQU * * ( P ADK A6,4 ADDRESS TO NEXT FILE CODE > P RB FND100 TRY NEXT j P* $ P* SEARCH IN COMMON DEVICE TABLE P* & PFND110 LD A6,SCTCDT CDTAB ADDRESS P LDR* A1,A6 CDTAB LENGTH
0x053d68…053efc Dummy {f00=0x0085, f01=0x0190, f02=»LE CODE NOT FOUND? P CC A2,1,A6 ( P RF(NE) FND126 FILE CODE NOT FOUND? . P STR A1,A15 Z P LD A1,2,A6 n P LD A1,DWTADR,A1 P CWK A1,TIODM " P RF(NE) FND200 NOT DM REQUEST? $ P CF A15,CHKIND CHECK INDEX IN DM P RF FND200
0x053efc…054090 Dummy {f00=0x0085, f01=0x0190, f02=»6,0 P RF IHRET1 ! P* ! " PFND200 LDR* A1,A15 RESET STACK ! ( P LCR A2,A6 LOAD DWT INDEX ! N P LD A6,2,A6 LOAD DWT ADDRESS ! p P* ! PFND210 RF IHRET1 ! P* ! P EJECT MSUBS ! P* ! P* ! P* F N D T I D ! P* !
0x054090…054224 Dummy {f00=0x0085, f01=0x0190, f02=»IDENTIFICATION ! P* " P* EXIT PARAMETER: " P* " < P* A2 = TTAB ADDRESS " F 0 P* A2 = 0 INDICATES ILLEGAL IDENTIFICATION " d P* " P* " PFNDTID STR A1,A15 SAVE A1 " P LD* A1,SCTTCT TCTAB LENGTH " P AD A1,SCTTCT " P
0x054224…0543b8 Dummy {f00=0x0085, f01=0x0190, f02=»,TTB:ID,A2 COMPARE IDENTIFICATIONS " P RB(NE) FTI010 NO MATCH? # * P RF IHRET1 # J P* # ^ * PFTI030 LDK A2,0 ILLEGAL IDENTIFICATION # h P RF IHRET1 # P* # P EJECT MSUBS # P* # P* # , P* RESTORE REGISTERS AND RETURN WITHOUT #
0x0543b8…05454c Dummy {f00=0x0085, f01=0x0190, f02=»DR* A6,A15 # PIHRET5 LDR* A5,A15 $ PIHRET4 LDR* A4,A15 $ , PIHRET3 LDR* A3,A15 $ F PIHRET2 LDR* A2,A15 $ ` PIHRET1 LDR* A1,A15 $ z PIHRTN INH $ $ P ADKL A15,4 ADJUST STACK POINTER $ P ABR* A15 AND RETURN $ P XIF $ P* $ P IFT CPU
0x05454c…0546e0 Dummy {f00=0x0085, f01=0x0190, f02=» FROM STACK... $ r P RTN A15 ...AND RETURN % P* % 4 0 PIHRET1 LDR* A1,A15 RESTORE A1 FROM STACK... % > P* % r PIHRTN RTN A15 ...AND RETURN % | P XIF % P* % P EJECT MSUBS % P* % P* % P* P F I N I T % P* % & P* SU
0x0546e0…054874 (0, 107) Dummy {f00=0x0086, f01=0x0190, f02=»E AVAILABLE FOR THE RESTART ROUTINES. % z P* & . P* & 8 PPFINIT EQU * & B ( P LDK A1,2 SET INDEX TO FIRST ROUTINE & V P* & $ PPFI100 CW A1,PFTAB CHECK IF LAST & " P RF(NL) PFI110 ALL RESTARTED? & P STR A1,A15 SAVE A1 & P INH & * P CFI A
0x054874…054a08 Dummy {f00=0x0086, f01=0x0190, f02=» RTN A15 RETURN WHEN ALL STARTED & P* ' ( P EJECT MSUBS ' 2 P* ' H P* ' R P* S W L 4 8 ' P* ' r & P* SWITCH TO LEVEL 48 AND ENABLE. ' | P* ' P* ' PSWL48 EQU * ' P STR A1,A15 SAVE A1 ' P* ' PSWL481 EQU * ' $ P
0x054a08…054b9c Dummy {f00=0x0086, f01=0x018e, f02=» ' x P RTN A15 ( P* ( P EJECT MSUBS ( " P* ( 8 P* ( B P* S W L X Y ( L P* ( b & P* SWITCH TO LEVEL XY AND ENABLE. ( l P* ( . P* LEVEL := 48 IF LEVEL ON STACK IS >= 48 ( 0 P* LEVEL := XY " " " " " XY < 48 ( P*
0x054b9c…054d30 Dummy {f00=0x0086, f01=0x0190, f02=» ( z & P LC A1,24,A15 GET LEVEL FROM STACK ) P ANK A1,/FC ) 2 P SUK A1,/BC ) F P RB(G) SWL481 ) Z P LD A1,24,A15 ) p " P ANKL A1,/FFFE SYSTEM MODE BIT ) P RB SWL482 ) P* ) P EJECT MSUBS ) P* ) P* ) & P* INTERRUPT SAVE AND
0x054d30…054ec4 Dummy {f00=0x0086, f01=0x0190, f02=»A15,HALT ) P* * PHALT EQU * * P IFT CPU852=1 * , & P CF A15,SAVE8 SAVE A1-A8 ON STACK * B $ P STR A9,A15 SAVE A9-A14 ON STACK * l P STR A10,A15 * P STR A11,A15 * P STR A12,A15 * P STR A13,A15 * P STR A14,A15 * P XIF * P* *
0x054ec4…055058 Dummy {f00=0x0086, f01=0x404e, f02=»YPE OF HALT * x P HLT + P* + P* + * P* + 4 P END + >@ + J8 SAVE A1-A8 ON STACK * B $ P STR A9,A15 SAVE A9-A14 ON STACK * l P STR A10,A15 * P STR A11,A15 * P STR A12,A15 * P STR A13,A15 * P STR A14,A15 * P XIF * P* *
0x055058…0551ec Dummy {f00=0x0086, f01=0x2008, f02=» , 5 STACK " ~ P LDR* A1,A15 RESTORE A1 # P RTN A15 RETURN TO CALLER # 8 P* # Z P END # d@ # pN WHEN ALL STARTED " ` P EJECT " P* " P* " P* S W L 4 8 " P* " : P* SUBROUTINE TO SWITCH PROGRAM PRIORITY LEVEL TO 48. "
0x0551ec…055380 Dummy {f00=0x0086, f01=0x0190, f02=» B 0 $ * & 0 0 0 0 0 #0 *0 10 % & = 8 ? % T B % j : H IDENT Z:GB20 TRA 4.2 80-07-30 F1 O1111 02.01.XXX.1 % | Z:GB20 % Z:GB20G % * & %
0x055380…055514 (0, 108) Opaque[0x194]
0x055514…0556a8 # DirEnt {nam=»TTMJOB«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0a70, f03=0x0000}
0x055514…0556a8 IdxSect {
0x055514…0556a8 f00 = 0x0053 // 0x55514 @0x0
0x055514…0556a8 f01 = 0x0004 // 0x55516 @0x2
0x055514…0556a8 gno = [ // 0x55518 @0x4
0x055514…0556a8 [0x00]: C0x0053.0x2.0
0x055514…0556a8 [0x01]: C0x0053.0x3.0
0x055514…0556a8 ]
0x055514…0556a8 }
0x0556a8…05583c Dummy {f00=0x0053, f01=0x018e, f02=» 2 P IDENT TTMJOB REL 9.2 79-11-16 870105040920 P : P* B P* L P* MONITOR JOB TASK TABLE V P* v P* P********* P*ENTRIES* P********* P* P* $ P ENTRY TTB:LA LAST LOAD ADDRESS P ENTRY TTB:M
0x05583c…0559d0 Dummy {f00=0x0053, f01=0x0190, f02=» j & P ENTRY TTB:ID TASK IDENTIFICATION P ENTRY TTB:ST TASK STATUS 2 " P ENTRY TTB:PP PENDING POINTER T & P ENTRY TTB:PW PROGRAM STATUS WORD z $ P ENTRY TTB:SA TERMINAL SAVE AREA " P ENTRY TTB:TD TERMINAL DEVICES P* P EJECT TTM
0x0559d0…055b64 Dummy {f00=0x0053, f01=0x0190, f02=»************************************* P* . . P* A PROGRAM VERSION USING TOSS MMU PAGING 8 * P* IS OBTAINED BY SETTING MMUPAG EQU 1. j P* PMMUPAG EQU 1 P* * . ** A PROGRAM VERSION USING TOSS DISC PAGING * &* IS OBTAINE
0x055b64…055cf8 Dummy {f00=0x0053, f01=0x018e, f02=» * P* IS OBTAINED BY SETTING ASSOLY EQU 1. P* 2 PASSOLY EQU 0 < P* P " P EJECT TTMJOB TTMJOB Z P* P* PLA:DUM EQU * P IFT ASSOLY=1 P DATA 0 LAST LOAD ADDRESS P XIF P* PMMUDUM EQU *
0x055cf8…055e8c Dummy {f00=0x0053, f01=0x0190, f02=» " P DATA /3000,/3400,/3800,/3C00 P XIF * P* 6 PSB:DUM EQU * @ P IFF MMUPAG+DSKPAG=0 T " P DATA 0 SEGMENT BLOCK ADDRESS p P XIF 6 PTTB:LA EQU LA:DUM-* LAST LOAD ADDRESS DISPLACEMENT . PTTB:MT EQU MMUDUM-* MMU TABLE DISPLACEMENT
0x055e8c…056020 Dummy {f00=0x0053, f01=0x018e, f02=»TMJOB ENTRY . PTTB:QL EQU *-TTMJOB DISPATCHER QUEUE LINK P DATA 0 F P* V , PTTB:ID EQU *-TTMJOB TASK IDENTIFICATION ` P DATA '#M' P* $ PTTB:ST EQU *-TTMJOB TASK STATUS P DATA 49 P* ( PTTB:PP EQU *-TTMJOB PENDIN
0x056020…0561b4 (0, 109) Dummy {f00=0x0053, f01=0x4168, f02=» P EJECT TTMJOB P* P* & * PTTB:SA EQU *-TTMJOB TERMINAL SAVE AREA 0 P DATA 0 DISPATCH ADDRESS ^ 2 P DATA 0,0,0,0,0,0,0 SAVE AREA, REGISTER A1-A14 ~ P DATA 0,0,0,0,0,0,0 P* ( PTTB:TD EQU *-TTMJOB TERMINAL DEVICES P D
0x0561b4…056348 Dummy {f00=0x0053, 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,
0x056348…0564dc Dummy {f00=0x0053, 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* * . ** A PROGRAM VERSION USING TOSS D
0x0564dc…056670 Dummy {f00=0x0053, f01=0x0190, f02=»* P* S A V E 8 P* 0 P* SUBROUTINE TO SAVE 8 REGISTERS ON STACK * $ P* WITHOUT ENABLING INTERRUPTS. ^ P* P* PSAVE8 EQU * P INH INHIBIT INTERRUPTS P STR A3,A15 P STR A4,A15 P STR A5,A15
0x056670…056804 Dummy {f00=0x0053, f01=0x0190, f02=»RANCH ADDRESS v P ST A2,14,A15 P ST A1,16,A15 , P LD A3,12,A15 RESTORE A3 B & P ABL 0 THIS IS USED TO BRANCH BACK b PSAVE81 EQU *-2 P* P EJECT MSUBS P* P* P* Q T J O B P* 2 P* SUBROUTINE TO
0x056804…056998 Dummy {f00=0x0053, f01=0x0190, f02=» P* 8 P* THE REQUESTED JOB IS PUT IN DISPATCHER QUEUE ON 8 P* PRIORITY BASIS. WITHIN ONE PRIORITY LEVEL JOB IS J P* PUT LAST IN QUEUE. P* P* PQTJOB EQU * P INH P* P IFT CPU852=1 $ P STR A1,A15 SAVE
0x056998…056b2c Dummy {f00=0x0053, f01=0x0190, f02=»CK t P XIF P* . P LDKL A1,DISQUE LOAD QUEUE ANCHOR ADDRESS 2 P LDR* A2,A1 GET ADDRESS OF FIRST TASK IN QUEUE R P RF(Z) QTJ020 DISQUE EMPTY? * P LD A3,TTB:ST+1,A5 GET PRIORITY LEVEL P* P EJECT MSUBS P* P*
0x056b2c…056cc0 Dummy {f00=0x0053, f01=0x0190, f02=»1 GET NEXT TTAB ADDRESS IN QUEUE $ P RB(NZ) QTJ010 NOT END OF QUEUE? ( P* P ( PQTJ020 STR A2,A5 UPDATE QUEUE LINKS Z P STR A5,A1 P* P IFT CPU852=1 P ABL IHRET3 P XIF P* P IFT CPU852=0 * P MLR 3,A15 RESTO
0x056cc0…056e54 (0, 110) Opaque[0x194]
0x056e54…056fe8 # DirEnt {nam=»TOSSIO«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0a80, f03=0x0000}
0x056e54…056fe8 IdxSect {
0x056e54…056fe8 f00 = 0x0054 // 0x56e54 @0x0
0x056e54…056fe8 f01 = 0x0026 // 0x56e56 @0x2
0x056e54…056fe8 gno = [ // 0x56e58 @0x4
0x056e54…056fe8 [0x00]: C0x0054.0x0.0
0x056e54…056fe8 [0x01]: C0x0054.0x2.0
0x056e54…056fe8 [0x02]: C0x0054.0x3.0
0x056e54…056fe8 [0x03]: C0x0055.0x0.0
0x056e54…056fe8 [0x04]: C0x0055.0x1.0
0x056e54…056fe8 [0x05]: C0x0086.0x2.0
0x056e54…056fe8 [0x06]: C0x0089.0x0.0
0x056e54…056fe8 [0x07]: C0x0089.0x1.0
0x056e54…056fe8 [0x08]: C0x008c.0x2.0
0x056e54…056fe8 [0x09]: C0x008c.0x3.0
0x056e54…056fe8 [0x0a]: C0x008d.0x0.0
0x056e54…056fe8 [0x0b]: C0x008d.0x1.0
0x056e54…056fe8 [0x0c]: C0x008d.0x2.0
0x056e54…056fe8 [0x0d]: C0x008d.0x3.0
0x056e54…056fe8 [0x0e]: C0x00a9.0x1.0
0x056e54…056fe8 [0x0f]: C0x00a9.0x2.0
0x056e54…056fe8 [0x10]: C0x00ba.0x3.0
0x056e54…056fe8 [0x11]: C0x00bb.0x0.0
0x056e54…056fe8 [0x12]: C0x00bb.0x1.0
0x056e54…056fe8 ]
0x056e54…056fe8 }
0x056fe8…05717c Dummy {f00=0x0054, f01=0x018e, f02=» 2 P IDENT TOSSIO REL 9.2 79-11-16 870105040920 P : P =1, DM ATTACH HANG UP B P REL 9.1 79-05-23 b P* ~ P* 6 P************************************************** P* $ P* PHILIPS TERMINAL SYSTEM PTS P* ( P
0x05717c…057310 Dummy {f00=0x0054, f01=0x0190, f02=» P* , P* THIS IS THE TOSS I/O LKM PROCESSOR. 6 P* IT CONTAINS THE FOLLOWING MONITOR SUBROUTINES: B P* | P* -TIO INITIALIZE I/O P* P* -TENDIO END I/O P* P* -ATTACH ATTACH DEVICE P* P*
0x057310…0574a4 Dummy {f00=0x0054, f01=0x0190, f02=» j P* 8 P* THIS MODULE ALSO CONTAINS STANDARD DISPLACEMENT 8 P* VALUES FOR ECB AND DWT AREAS, AS WELL AS SPECIAL N . P* MOVE ROUTINES FOR DATA COMMUNICATION. P* P EJECT TOSSIO P* P* P*********** P*
0x0574a4…057638 Dummy {f00=0x0054, f01=0x0190, f02=» DC:MIN MOVE ROUTINE FOR DATACOM, INPUT 2 P ENTRY DC:MOT MOVE ROUTINE FOR DATACOM, OUTPUT 0 , P ENTRY MONMMU MONITOR (SYSTEM) MMU TABLE f P* P ENTRY ECBFC FILE CODE P ENTRY ECBBA BUFFER ADDRESS " P ENTRY ECBRL REQUESTED LENGTH " P
0x057638…0577cc Dummy {f00=0x0054, f01=0x0190, f02=»D (USED BY DM) p P* $ P ENTRY BUFLEN MMU BUFFER LENGTH $ P ENTRY ACTADR ACTIVATION ADDRESS H P ENTRY ABTADR ABORT ADDRESS p $ P ENTRY INTADR INTERRUPT ADDRESS 2 P ENTRY POLADR BUFFER POOL ADDRESS (DC DRIVERS) " P ENTRY RECADR RECOVERY
0x0577cc…057960 Dummy {f00=0x0054, f01=0x0190, f02=»NDEX DATA MANAGEMENT z 2 P ENTRY PC:DIX DEVICE INDEX PROGRAMMED CHANNEL 0 P ENTRY MX:DIX DEVICE INDEX MULTIPLEX CHANNEL R , P ENTRY KB:DIX DEVICE INDEX KEYBOARD/CTW 6 P ENTRY IT:DIX DEVICE INDEX INTERTASK COMMUNICATION P* P EJECT TOSSI
0x057960…057af4 (0, 111) Dummy {f00=0x0054, f01=0x0190, f02=»RY DWTECB ECB ADDRESS P ENTRY DWTOR INDEX AND ORDER ( P ENTRY DWTOCH LAST OUTPUT CHARACTER B & P ENTRY DWTADR DRIVER ADDRESS BLOCK n P ENTRY DWTTAB TTAB ADDRESS * P ENTRY DWTWAT WAIT/ACTIVATE INDICATOR P ENTRY DWTTQ TERMINAL QUEUE
0x057af4…057c88 Dummy {f00=0x0054, f01=0x018e, f02=»WTMEC MMU ECB ADDRESS P ENTRY DWTA2 SAVE AREA A2 P ENTRY DWTA3 SAVE AREA A3 @ P ENTRY DWTA4 SAVE AREA A4 b P ENTRY DWTA5 SAVE AREA A5 & P ENTRY DWTSB1 STACK BASE 1 IN DWT & P ENTRY DWTSB2 STACK BASE 2 IN DWT P ENTRY DWTTP T
0x057c88…057e1c Dummy {f00=0x0054, f01=0x0190, f02=» P EJECT TOSSIO P* P* * P************* 4 P* EXTERNALS * J P************* ` P* v P* " P EXTRN SAVE8 SAVE 8 REGISTERS 0 P EXTRN IHRET8 RESTORE 8 REGISTERS AND RETURN 4 P EXTRN IHRTN RETURN WITHOUT ENABLING
0x057e1c…057fb0 Dummy {f00=0x0054, f01=0x0190, f02=»SPATCHING j , P EXTRN QTJOB QUEUE TERM.PROG. FOR DISP. " P EXTRN MEXIT MONITOR TASK EXIT B P EXTRN TDISP DISPATCHER h 2 P EXTRN DISEND BRANCH TO DISPATCHER VIA TENDIO * P EXTRN LKMQDI QUEUE TASK AND DISPATCH , P EXTRN GETBLK PUT BLOCK IN P
0x057fb0…058144 Dummy {f00=0x0054, f01=0x0190, f02=» & P EXTRN TTB:ID TASK IDENTIFICATION ( P EXTRN TTB:ST TASK STATUS AND LEVEL . & P EXTRN TTB:PW PROGRAM STATUS WORD Z P EXTRN TTB:SA SAVE AREA P EXTRN TTB:MT MMUTAB P EXTRN TIODM ENTRY FOR DM P EXTRN REQEND ENTRY FOR DM * P EXT
0x058144…0582d8 Dummy {f00=0x0054, f01=0x0190, f02=»* h P* P* CONDITIONAL ASSEMBLY P* 2 . P***************************************** < P* n . P* A PROGRAM VERSION USING TOSS MMU PAGING x * P* IS OBTAINED BY SETTING MMUPAG EQU 1. P* PMMUPAG EQU 1 P* P* 6
0x0582d8…05846c Dummy {f00=0x0054, f01=0x0190, f02=» P* P* 0 P* A PROGRAM VERSION INCLUDING ATTACH/DETACH * P* IS OBTAINED BY SETTING ATTDET EQU 1. L P* z PX:A EQU 0 PATTDET EQU X:A P* P* 4 P* A PROGRAM VERSION SPECIALIZED FOR THE 857 CPU * P* IS OBTAINED BY
0x05846c…058600 Dummy {f00=0x0054, f01=0x0190, f02=»***************** P* FORM STATEMENTS * P******************* 6 P* R P* PBYTES FORM 8,8 f P* | P EJECT TOSSIO P* P* P********************* P* DWT DISPLACEMENTS * P*********************
0x058600…058794 (0, 112) Dummy {f00=0x0054, f01=0x0190, f02=»TBC EQU /03 BYTE COUNTER PDWTECB EQU /04 ECB ADDRESS " PDWTOR EQU /06 INDEX AND ORDER B ( PDWTOCH EQU /06 LAST OUTPUT CHARACTER h ( PDWTADR EQU /08 DRIVER ADDRESS BLOCK PDWTTAB EQU /0A TTAB ADDRESS * PDWTWAT EQU /0C WAIT/ACTIVATE INDICAT
0x058794…058928 Dummy {f00=0x0054, f01=0x0190, f02=»FT MMUPAG=0 4 PDWTDRD EQU DWTTQ+2 START OF DRIVER DEFINED PART P XIF L P* X P IFT MMUPAG=1 b 4 PDWTDRD EQU DWTMEC+2 START OF DRIVER DEFINED PART x P XIF P* P EJECT TOSSIO P* , P* DWT DISPLACEMENTS: DRIVER DEFI
0x058928…058abc Dummy {f00=0x0054, f01=0x0190, f02=»U DWTDRD+/02 SAVE AREA A2 & PDWTA3 EQU DWTDRD+/02 SAVE AREA A3 " & PDWTA4 EQU DWTDRD+/04 SAVE AREA A4 L & PDWTA5 EQU DWTDRD+/06 SAVE AREA A5 v . PDWTSB1 EQU DWTDRD+/0A STACK BASE 1 IN DWT . PDWTSB2 EQU DWTDRD+/0E STACK BASE 2 IN DWT & PDWTT
0x058abc…058c50 Dummy {f00=0x0054, f01=0x018e, f02=»QU DWTDRD+/1C DISC VOLUME NAME P* & P EJECT TOSSIO 0 P* H P* R * P************************************** * P* DRIVER ADDRESS BLOCK DISPLACEMENTS * * P************************************** P* P* & PKEYLEN EQU -6
0x058c50…058de4 Dummy {f00=0x0054, f01=0x018e, f02=» n PABTADR EQU 2 ABORT ADDRESS " PINTADR EQU 4 INTERRUPT ADDRESS * $ PPOLADR EQU 4 BUFFER POOL ADDRESS P " PRECADR EQU 6 RECOVERY ADDRESS x PECHADR EQU 8 ECHO ADDRESS P* P* P*********************** P* DEVICE INDEX VALUE
0x058de4…058f78 Dummy {f00=0x0054, f01=0x0190, f02=» H F P* FROM ADDRESS TABLES TIOTAB AND TENTAB AT READ/WRITE REQUESTS. P* R $ PDC:DIX EQU -2 DATA COMMUNICATION PDM:DIX EQU 0 DATA MANAGEMENT $ PPC:DIX EQU 2 PROGRAMMED CHANNEL " PMX:DIX EQU 4 MULTIPLEX CHANNEL PKB:DIX EQU 6 KEYBO
0x058f78…05910c Dummy {f00=0x0054, f01=0x0190, f02=» z P* ECB DISPLACEMENTS * P********************* & P* D P* N PECBFC EQU /01 FILE CODE X PECBBA EQU /02 BUFFER ADDRESS x " PECBRL EQU /04 REQUESTED LENGTH " PECBEL EQU /06 EFFECTIVE LENGTH PECBRC EQU /08 RETURN CODE
0x05910c…0592a0 Dummy {f00=0x0054, f01=0x0190, f02=» MMUPAG=1 P* P* P********** & P* TIOTAB * 8 P********** J P* < P* TIOTAB CONTAINS ADDRESSES TO ROUTINES ENTERED FROM TIO f P* 2 PTIOTAB EQU * DEVICE TYPE/ROUTINE ADDRESS TABLE . P DATA TIO:DM DATA MANAGEMENT, INPU
0x0592a0…059434 (0, 113) Dummy {f00=0x0055, f01=0x0190, f02=» PTINDEX EQU *-TIOTAB 0 P DATA TIOITI INTERTASK COMMUNICATION, INPUT $ , P DATA TIOPCO PROGRAMMED CHANNEL, OUTPUT X P DATA TIOMXO MUX, OUTPUT & P DATA TIOKBO KEYBOARD/CTW, OUTPUT 0 P DATA TIOITO INTERTASK COMMUNICATION, OUTPUT P*
0x059434…0595c8 Dummy {f00=0x0055, f01=0x0190, f02=»DRESSES TO ROUTINES ENTERED FROM TENDIO | P* 0 2 PTENTAB EQU * DEVICE TYPE/ROUTINE ADDRESS TABLE : . P DATA TEN:DM DATA MANAGEMENT, INPUT/OUTPUT p * P DATA TENPCI PROGRAMMED CHANNEL, INPUT P DATA TENMXI MUX, INPUT $ P DATA TENKBI KEYBOARD/CT
0x0595c8…05975c Dummy {f00=0x0055, f01=0x0190, f02=»TPUT | & P DATA TENKBO KEYBOARD/CTW, OUTPUT 0 P DATA TENITO INTERTASK COMMUNICATION, OUTPUT 6 P XIF j P* v P EJECT TOSSIO P* P* P********** P* MONMMU * P********** P* P* MONITOR (SYSTEM) MMU TABLE
0x05975c…0598f0 Dummy {f00=0x0055, f01=0x0190, f02=»0,/1400,/1800,/1C00 " P DATA /2000,/2400,/2800,/2C00 " P DATA /3000,/3400,/3800,/3C00 B P XIF h P* t P EJECT TOSSIO ~ P* P* P IFT ATTDET=1 P* 2 P* SUBROUTINES BELOW ARE USED BY ATTACH/DETACH P*
0x0598f0…059a84 Dummy {f00=0x0055, f01=0x0190, f02=»: A4 = BLOCK ADDRESS P* A5 = TTAB ADDRESS P* A6 = DWT ADDRESS @ " P* A1-A3 ARE DESTROYED b P* PTIMOUT LDR A6,A1 & P LDR* A2,A2 TIMER POINTER ADDRESS P LD A5,2,A2 GET TTAB ADDRESS P* P IFT M
0x059a84…059c18 Dummy {f00=0x0055, f01=0x018e, f02=»* A1,A4 " P STR A1,A2 REMOVE FROM ATT:CH P CF A15,FREBLK 6 P* L P EJECT TOSSIO V P* n & P* REMOVE TTAB FROM DEVICE QUEUE x P* P LDR A1,A6 & P ADK A1,DWTTQ QUEUE ANCHOR ADDRESS P* PTIM:10 LDR A2,A1 SAVE
0x059c18…059dac Dummy {f00=0x0055, f01=0x018e, f02=» P EJECT TOSSIO P* & P* TTAB FOUND - REMOVE FROM QUEUE * P* T P LDR* A1,A1 ^ P STR A1,A2 r P* PTIM:20 EQU * P LDK A3,4 . P ADS A3,TTB:SA,A5 UPDATE DISPATCH ADDRESS : P LD A8,TTB:SA+16,A5 GET ECB ADDRES
0x059dac…059f40 Dummy {f00=0x0055, f01=0x0190, f02=» h P XIF P* P IFT ATTDET=1 P IFT MMUPAG=1 4 * P ES A3,ECBRC,A8 INDICATE ERROR IN ECB J . P TL MONMMU LOAD MONITOR (SYSTEM) MMU TABLE x P XIF P* P IFT ATTDET=1 & P RF TIORTN QUEUE TASK AND DISPATCH P*
0x059f40…05a0d4 (0, 114) Dummy {f00=0x0055, f01=0x018e, f02=» TTAB ADDRESS P* 6 P* OUTPUT: A2 = ADDRESS TO PRECEDING BLOCK IN CHAIN 2 P* A4 = BLOCK ADDRESS IF FOUND, ELSE 0 Z P* ( PFNDBLK LDKL A4,ATT:CH ANCHOR ADDRESS P* PFND:10 LDR A2,A4 SAVE A4 P LDR* A4,A4 P RF(
0x05a0d4…05a268 Dummy {f00=0x0055, f01=0x0190, f02=» P ABL IHRTN RETURN P XIF P* * P IFT ATTDET=1 4 P IFT CPU852=0 J P RTN A15 RETURN ` P XIF x P* P IFT ATTDET=1 & PATT:CH DATA 0 ATTACH CHAIN ANCHOR P* P EJECT TOSSIO P* P* F D B A T T
0x05a268…05a3fc Dummy {f00=0x0055, f01=0x0190, f02=»PUT: A5 = TTAB ADDRESS P* A6 = FDB ADDRESS $ P* A10 = /800 (ATTACH BIT) B P* j " P* OUTPUT: A2-A4 AREA DESTROYED t P* PFDBDET EQU * P C1R A10,A10 A10=F7FF P* PFDBATT EQU * P LDR A4,A6 FDB ADDRE
0x05a3fc…05a590 Dummy {f00=0x0055, f01=0x0190, f02=» LDR* A2,A4 NEXT FDB P RF(Z) FDB:20 NO FDB? ! P LDR A10,A10 ! : " P RF(N) FDB:15 DETACH REQUEST? ! N $ P ORS A10,DWTST,A2 ATTACH REQUEST ! t P ST A5,DWTTAB,A2 ! P RF FDB:20 ! P* ! * PFDB:15 ANS A10,DWTST,A2 DETACH REQUEST ! P CF A15,QR
0x05a590…05a724 Dummy {f00=0x0055, f01=0x0190, f02=»* Q R E Q ! P* " 8 P* SUBROUTINE TO QUEUE TASK IN DEVICE QUEUE (IF ANY) " P* " X P* INPUT: A2 = DWT ADDRESS " b P* " " P* OUTPUT: A7, A9 ARE DESTROYED " P* " PQREQ EQU * " & P LDR A9,A5 SAVE A5 (TTAB ADDRESS) " & P LD A5,DWTTQ,A
0x05a724…05a8b8 Dummy {f00=0x0055, f01=0x0190, f02=»QUEUE TASK " P* # PQRE:10 EQU * # $ P LDR A5,A9 RESTORE TTAB ADDRESS # 0 P IFT CPU852=1 # X P RB FND:20 RETURN # n P XIF # P* # P IFT ATTDET=1 # P IFT CPU852=0 # P RTN A15 RETURN # P XIF # P* # P IFT ATTDET=1 #
0x05a8b8…05aa4c Dummy {f00=0x0055, f01=0x018e, f02=» THIS MODULE IS CALLED FROM TIO WITH # P* THE FOLLOWING PARAMETERS: $ , P* $ P & P* A3 /8000 (REQUEST ERROR BIT) $ Z & P* A4 I/O AND ACTIVATE INDICATOR $ P* A5 TTAB ADDRESS $ P* A6 DWT ADDRESS $ P* A7 ORDER CODE $ P* A8
0x05aa4c…05abe0 Dummy {f00=0x0055, f01=0x0190, f02=» PATTACH EQU * ENTRY % P ADK A4,0 SET CR % * P RF(NZ) TIOERR I/O AND ACTIVATE ERROR? % 6 P* % d P IFT MMUPAG=0 % n " P CM ECBRC,A8 RESET RETURN CODE % P XIF % P* % P IFT ATTDET=1 % P IFT MMUPAG=1 % & P ES A4,ECBRC,A8 RESET RETURN
0x05abe0…05ad74 (0, 115) Dummy {f00=0x0086, f01=0x018e, f02=» DEVICE ALREADY ATTACHED? % P LDR A13,A13 & " P RF(NN) ATT:50 DEVICE BUSY? & 6 P* & Z P* ATTACH REQUESTING TASK & d P* & P ORS A10,DWTST,A6 ATTACH & , P ST A5,DWTTAB,A6 PUT TTAB ADDRESS IN DWT & P CWK A12,TIODM & " P RF(NE) ATT:15 N
0x05ad74…05af08 Dummy {f00=0x0086, f01=0x0190, f02=» P ADK A4,0 SET CR ' P RF(Z) ATTRTN NO! ' P* ' 6 P EJECT TOSSIO ' @ P* ' X & P* FREE BLOCK AND TIMER IN ATT:CH ' b P* ' P CM* 2,A4 FREE TIMER ' " P LDR* A3,A4 REMOVE FROM ATT:CH ' P STR A3,A2 ' P CF A15,FREBLK RELEASE BLOCK '
0x05af08…05b09c Dummy {f00=0x0086, f01=0x018e, f02=»ATT:50 CF A15,FNDBLK ' P ADK A4,0 SET CR ( $ P RF(NZ) ATT:70 IS TIMER ACTIVE? ( 6 P* ( ^ P* SET TIMER ( h P* ( P IFT MMUPAG=0 ( P LD A1,ECBCW,A8 TIME ( P XIF ( P* ( P EJECT TOSSIO ( P* ( P* ( P IFT ATTDE
0x05b09c…05b230 Dummy {f00=0x0086, f01=0x0190, f02=» ( r P RF(Z) ATT:80 END REQUEST? ) P* ) * PATT:60 ST A1,ATTIM ) 4 P LDR A1,A5 TTAB ADDRESS ) N P LD A3,ATT:CH ANCHOR ) n P CF A15,GETBLK GET BLOCK ) P ST A4,ATT:CH UPDATE ANCHOR ) $ P ADK A4,2 TIMER POINTER ADDRESS ) P LDR A1,A6 DWT ADD
0x05b230…05b3c4 Dummy {f00=0x0086, f01=0x0190, f02=»ARAMETER ) p P RF TIOQ20 * P* * " & PATT:80 LDK A3,/40 SET TIME OUT BIT * , P RF TIOERR RETURN * V P* * p P EJECT TOSSIO * z P* * P* * P********** * P* DETACH * * P********** * P* * * P* THIS MODULE IS CALLED FROM TIO W
0x05b3c4…05b558 Dummy {f00=0x0086, f01=0x018e, f02=»E ERROR? * r P TM A10,A13 + P RF(Z) TIOERR NOT ATTACHED? + $ P CW A5,DWTTAB,A6 + H * P RF(NE) TIOERR ATTACHED TO OTHER TASK? + ` P XRS A10,DWTST,A6 DETACH + P CWK A12,TIODM + " P RF(NE) DET:05 NO DM REQUEST? + ( P CF A15,FDBDET DETACH FILE STR
0x05b558…05b6ec Dummy {f00=0x0086, f01=0x0190, f02=» P* , 2 PATTRTN EQU * COMMON ATTACH/DETACH NORMAL EXIT , PDETRTN LDK A3,0 RETURN CODE , D P XIF , h P* , t P EJECT TOSSIO , ~ P* , P* , P********** , P* TIOERR * , P********** , P* , P* ERROR: FILE CODE UNKNOWN ,
0x05b6ec…05b880 Dummy {f00=0x0086, f01=0x0190, f02=» , * P ST A3,ECBRC,A8 INDICATE ERROR IN ECB - P XIF - 6 P* - B P IFT MMUPAG=1 - L * P ES A3,ECBRC,A8 INDICATE ERROR IN ECB - b P XIF - P* - PTIORTN EQU * - ( P ABL LKMQDI QUEUE TASK AND DISPATCH - P* - P EJECT TOSSIO - P
0x05b880…05ba14 (0, 116) Dummy {f00=0x0089, f01=0x0190, f02=»R QUEUEING DEVICE REQUESTS. - x > P* THE ROUTINE IS ENTERED AT DIFFERENT LABELS DEPENDING ON . $ @ P* WHETHER THE DEVICE IS AN ECHO DEVICE OR NOT, AND DEPENDING . f 8 P* ON WHETHER THE DEVICE IS ATTACHED OR NOT, AND WHEN . B P* ATTACHED, WHETHER THE DEVICE IS
0x05ba14…05bba8 Dummy {f00=0x0089, f01=0x0190, f02=»CE FIRST . P* / ( PTIOQ05 ADK A6,DWTTQ GET QUEUE ANCHOR / P LDR A2,A6 / F P LDR* A6,A6 / X $ P RF TIOQ40 INSERT FIRST IN QUEUE / l P* / & PTIOQ10 LDR A6,A2 QUEUE ECHO DEVICE / P* / ( PTIOQ20 ADK A6,DWTTQ GET QUEUE ANCHOR / P LD A1,TTB
0x05bba8…05bd3c Dummy {f00=0x0089, f01=0x0190, f02=» A2,A6 / $ P LDR* A6,A6 FOLLOW QUEUE TO END 0 P RF(Z) TIOQ40 END FOUND? 0 6 & P CC A1,TTB:ST+1,A6 COMPARE LEVELS 0 V P RB(NL) TIOQ30 TRY NEXT? 0 P* 0 0 P* INSERT IN QUEUE AND UPDATE PROGRAM COUNTER 0 P* 0 PTIOQ40 LDKL A3,-4 0 P STR A
0x05bd3c…05bed0 Dummy {f00=0x0089, f01=0x0190, f02=» 0 4 PTIOQ50 ADS A3,TTB:SA,A5 UPDATE PC TO REPEAT LKM 1 P* 1 @ PTIOQ60 EQU * 1 J P ABL TDISP GO TO DISPATCHER 1 ^ P* 1 P EJECT TOSSIO 1 P* 1 P* 1 P******* 1 P* TIO * 1 P******* 1 P* 1 P* 1 . P* THIS MODUL
0x05bed0…05c064 Dummy {f00=0x0089, f01=0x0190, f02=»EUED 1 d 2 P* AND THE TERMINAL PROGRAM SET IN WAIT STATE. 2 P* 2 B 2 P* WHEN RUNNING WITH MMU OPTION SPECIAL DEVICE 2 L * P* DEPENDENT SUBROUTINES ARE PERFORMED. 2 P* 2 6 P* THIS MODULE IS CALLED BY THE LKM HANDLING MODULE 2 & P* WITH THE FOLLOWING
0x05c064…05c1f8 Dummy {f00=0x0089, f01=0x0190, f02=» NOT ZERO, I/O AND ACTIVATION 2 P* 3 ( P* A5 = TTAB ADDRESS 3 2 P* 3 N P* A7 = ORDER CODE 3 X P* 3 r P* A8 = ECB ADDRESS 3 | P* 3 P EJECT TOSSIO 3 P* 3 P* 3 < P* THE 'TIO'-ROUTINE EXITS TO REQUESTED ACTIVATION DRIVER 3
0x05c1f8…05c38c Dummy {f00=0x0089, f01=0x0190, f02=»* 3 P* A7 = ORDER CODE 4 P* 4 $ P* A8 = ECB ADDRESS 4 . P* 4 J , P* A12 = ADDRESS TO DRIVER ADDRESS BLOCK 4 T P* 4 0 P* A13 = 0, IF REQUEST ISSUED IN SYSTEM MODE 4 . P* = 1, " " " " USER MODE 4 P* 4 P* 4 , P
0x05c38c…05c520 Dummy {f00=0x0089, f01=0x0190, f02=» READY AND ECHO FIELDS 4 P* -DWTTAB TTAB ADDRESS 5 & P* -DWTWAT WAIT/ACTIVATE INDICATOR 5 > . P* -DWTUEC USER ECB ADDRESS (MMU SYSTEMS) 5 h P* 5 P* 5 * P* THE FOLLOWING ECB FIELDS ARE RESET:- 5 P* 5 P* -BIT 0 IN THE FIRST WORD 5
0x05c520…05c6b4 (0, 117) Dummy {f00=0x0089, f01=0x0190, f02=»ECK IF REQUEST IS BUSY 5 x P* 6 ( PTIO CF A15,FNDDWT SEARCH DWT ADDRESS 6 ( P LDKL A3,/8000 6 T P ADK A6,0 SET CR 6 j $ P RB(Z) TIOERR FILE CODE UNKNOWN? 6 : P LD A12,DWTADR,A6 GET ADDRESS TO DRIVER ADDRESS BLOCK 6 $ P LD A13,DWTST,A6 GET DWT STATUS
0x05c6b4…05c848 Dummy {f00=0x0089, f01=0x0190, f02=»TTACH ATTACH ORDER? 6 P SUK A7,1 7 P RB(Z) DETACH DETACH ORDER? 7 . " P ADK A7,/BC RESTORE ORDER CODE 7 R P XIF 7 x P* END OF =1 7 " P LD A11,TTB:ID,A5 GET TASK ID 7 P ANKL A11,/FF44 7 P SUKL A11,'#D' CHECK TASK ID 7 " P RF(Z) TIO02
0x05c848…05c9dc Dummy {f00=0x0089, f01=0x0190, f02=» TOSSIO 7 P* 8 & P* CHECK IF DEVICE IS ATTACHED/BUSY 8 P* 8 F P IFT ATTDET=1 8 P P TM A10,A13 8 f P RF(Z) TIO020 NOT ATTACHED? 8 z P CW A5,DWTTAB,A6 8 * P RB(NE) TIOQ20 ATTACHED TO OTHER TASK? 8 P TM A3,A13 8 $ P RF(NZ) TIO030 DEV
0x05c9dc…05cb70 Dummy {f00=0x0089, f01=0x0190, f02=»VICE BUSY? 8 P* 9 P EJECT TOSSIO 9 P* 9 4 H P* CHECK IF ECHO, AND WHEN TRUE CHECK IF ECHO DEVICE IS BUSY/ATTACHED 9 > P* 9 * PTIO030 SC A2,DWTOR,A6 STORE DWT INDEX 9 P LDK A2,/40 CHECK IF ECHO 9 P ANR A2,A7 9 P RF(Z) TIO070 NOT
0x05cb70…05cd04 Dummy {f00=0x0089, f01=0x0190, f02=»70 9 P* : . PTIO040 LD A2,DWTECH,A6 GET ECHO DEVICE DWT : " P RF(Z) TIO070 NO ECHO DEVICE? : F & P LD A9,DEVIND,A12 GET DEVICE INDEX : l $ P CWK A9,KB:DIX CHECK IF KEYBOARD : 4 P RF(NE) TIO070 ECHO NOT ALLOWED IF NOT KEYBOARD : ( P LD A14,DWTST,A2 G
0x05cd04…05ce98 Dummy {f00=0x0089, f01=0x018e, f02=»TAB,A2 : 6 P RB(NE) TIOQ10 ECHO DEVICE ATTACHED TO OTHER TASK? ; P TM A3,A14 ; H ( P RF(NZ) TIO060 ECHO DEVICE NOT BUSY? ; Z & P RB TIOQ00 BUSY, QUEUE ECHO DEVICE ; P XIF ; P* ; P EJECT TOSSIO ; P* ; P* ; PTIO050 TM A3,A14 ; $
0x05ce98…05d02c Dummy {f00=0x0089, f01=0x0190, f02=» ; X P* < P* UPDATE ECB AND DWT FIELDS < P* < 6 @ PTIO070 XRS A3,DWTST,A6 UPDATE BUSY & ECHO BITS IN DWT STATUS < @ P* < P IFT MMUPAG=1 < P LD A13,TTB:PW,A5 GET PSW < ( P ANKL A13,1 GET SYSTEM/USER MODE BIT < $ P RF(NZ) TIO100 JUMP IF
0x05d02c…05d1c0 Dummy {f00=0x0089, f01=0x0190, f02=» CM ECBEL,A8 RESET EFFECTIVE LENGTH < $ P CM ECBRC,A8 RESET RETURN CODE = , P RF TIO110 = T P* = f P EJECT TOSSIO = p P* = P* MOVE USER ECB TO DWT ECB = P* = PTIO100 EQU * = P LDKL A2,/4FFF = * P ELR A3,A8 LOAD FIRST WORD OF US
0x05d1c0…05d354 (0, 118) Dummy {f00=0x008c, f01=0x0190, f02=»A2,DWTECB,A6 SET ACTUAL ECB ADDRESS = P STR A3,A2 > , * P ST A8,DWTUEC,A6 SAVE USER ECB ADDRESS > > P LDR A9,A8 > l P LDK A3,0 > ~ * P ES A3,ECBEL,A8 RESET EFFECTIVE LENGTH > & P ES A3,ECBRC,A8 RESET RETURN CODE > P* > P LDR A10,A1 SAVE PARAM
0x05d354…05d4e8 Dummy {f00=0x008c, f01=0x0190, f02=» MVUS A3 MOVE PART OF USER ECB TO DWT ECB > " P LDR A1,A10 RESTORE PARAMETER ? 2 P XIF ? X P* ? d P IFT MMUPAG=0 ? n P LDKL A3,/7FFF ? , P ANRS A3,A8 RESET BIT 0 IN ECB FILE CODE ? ( P CM ECBEL,A8 RESET EFFECTIVE LENGTH ? $ P CM ECBRC,A8 RESE
0x05d4e8…05d67c Dummy {f00=0x008c, f01=0x0190, f02=» ANK A7,/3F ? ( P SC A7,DWTOR+1,A6 STORE ORDER IN DWT @ P CWK A12,TIODM @ @ * P RF(NE) TIO120 JUMP IF NOT DM REQUEST @ V 0 P ST A5,DWTTDM,A6 SAVE TTAB ADDRESS IN DWTTDM @ P RF TIO130 @ P* @ PTIO120 EQU * @ 0 P ST A5,DWTTAB,A6 SAVE TTAB ADDRE
0x05d67c…05d810 Dummy {f00=0x008c, f01=0x0190, f02=»* UPDATE DWTWAT (WAIT/ACTIVATE INDICATOR) @ P* A 2 P LDR A2,A4 CHECK PARAMETER A < & P RF(NZ) TIO210 I/O AND ACTIVATION? A ^ 4 P ANK A3,/80 NORMAL I/O. CHECK IF WAIT REQUESTED A P RF(Z) TIO220 NOT WAIT? A P LDK A4,1 INDICATE WAIT A P RF TIO2
0x05d810…05d9a4 Dummy {f00=0x008c, f01=0x0190, f02=»HING A f P* B 8 PTIO230 ST A4,DWTWAT,A6 STORE WAIT/ACTIVATE INDICATOR B P* B R P EJECT TOSSIO B P* B t P* B ~ P IFT MMUPAG=1 B * P LDR A13,A13 CHECK IF SYSTEM/USER MODE B & P RF(Z) TIO250 JUMP IF SYSTEM MODE B & P LD A3,DEVIND,A12
0x05d9a4…05db38 Dummy {f00=0x008c, f01=0x0190, f02=»K ON ORDER CODE B P* C P LDR A4,A7 GET ORDER CODE C " 0 P CF A15,RD:WR2 CHECK IF ORDER IS READ/WRITE C D . P RF(Z) TIO250 JUMP IF NO READ/WRITE ORDER C x P* C PTIO240 EQU * C P ENB C < P CFI A15,TIOTAB,A3 BRANCH TO RELEVANT READ/WRITE ROU
0x05db38…05dccc Dummy {f00=0x008c, f01=0x0190, f02=» ADR A5,A6 C P INH D & P ABR* A12 GO TO DRIVER ACTIVATION D P* D H P EJECT TOSSIO D R P* D j P* D t P IFT MMUPAG=1 D ~ P* D P* R D : W R D P* D @ P* THIS MODULE IS CALLED BY 'TIO' AND 'TENDIO' FOR SELECTING D @ P* THE AP
0x05dccc…05de60 Dummy {f00=0x008c, f01=0x0190, f02=»AD/WRITE REQUEST, CONDITION REGISTER ON STACK IS D * P* SET TO ZERO, ELSE NOT EQUAL TO ZERO. E 8 P* E f P* INPUT: A3 = DEVICE INDEX E p P* A6 = DWT ADDRESS E P* E : P* OUTPUT: A3 = INDEX FOR USE IN THE INDEXED BRANCHING E . P*
0x05de60…05dff4 (0, 119) Dummy {f00=0x008c, f01=0x0190, f02=»DWTOR,A6 GET ORDER CODE FROM DWT E P ANK A4,/3F F ( P* F < * PRD:WR2 ADKL A15,4 ADJUST STACKPOINTER F F $ P LC A4,ORDTAB,A4 GET ORDER INDEX F t P ANK A4,/FF F . P ABR(Z)* A15 RETURN IF NO READ/WRITE ORDER F P SUK A4,1 F $ P ADR A3,A4 ADD READ/
0x05dff4…05e188 Dummy {f00=0x008c, f01=0x0190, f02=»* ORDTAB * F P********** G P* G $ 2 P* ORDTAB CONTAINS ORDER CONSTANTS AS FOLLOWS: G . P* G d P* =0: NO READ/WRITE ORDER G n P* =1: READ ORDER G P* =TINDEX+1: WRITE ORDER G P* G PORDTAB EQU * ORDER CONSTANTS G P BYTES 0,1 /00
0x05e188…05e31c Dummy {f00=0x008c, f01=0x0190, f02=»/08, /09 G ~ P BYTES 1,TINDEX+1 /0A, /0B H P BYTES 0,0 /0C, /0D H 2 P BYTES 0,0 /0E, /0F H N P BYTES 0,1 /10, /11 H j P BYTES 0,0 /12, /13 H P BYTES 0,TINDEX+1 /14, /15 H P BYTES 0,0 /16, /17 H P BYTES 0,0 /18, /19 H P BYTES 0,0 /
0x05e31c…05e4b0 Dummy {f00=0x008c, f01=0x018e, f02=» P BYTES 0,0 /24, /25 I P BYTES 0,0 /26, /27 I P BYTES 0,0 /28, /29 I < P BYTES 0,0 /2A, /2B I X P BYTES 0,1 /2C, /2D I t P BYTES 1,TINDEX+1 /2E, /2F I P BYTES 0,0 /30, /31 I P BYTES 0,0 /32, /33 I P BYTES 0,0 /34, /35 I P B
0x05e4b0…05e644 Dummy {f00=0x008c, f01=0x0190, f02=» P* J P EJECT TOSSIO J P* J & P* T I O : D M J 0 P* J F 4 P* THIS MODULE IS CALLED BY 'TIO' WHEN A REQUEST J P * P* FOR DATA MANAGEMENT HAS BEEN ISSUED. J P* J & P* INPUT: A8 = FDB MMU ECB ADDRESS J $ P* A9 = USER ECB ADDRES
0x05e644…05e7d8 Dummy {f00=0x008c, f01=0x0190, f02=»ER BUFFER ADDRESS J z P ST A2,ECBBA,A8 K , P EL A2,ECBCW2,A9 GET SECOND CONTROL WORD K 2 P ST A2,ECBCW2,A8 K b P* K z PA15RTN EQU * K P RTN A15 K P* K P EJECT TOSSIO K P* K P* T I O P C I K P* K B P* THIS MODULE IS CAL
0x05e7d8…05e96c Dummy {f00=0x008c, f01=0x0190, f02=» AND DWT BUFFER ADDRESSES SO THAT BOTH ARE K | < P* EVEN OR UNEVEN, DEPENDING ON THE USER BUFFER ADDRESS. L 2 4 P* THE CORRESPONDING MODULE CALLED BY 'TENDIO' AT L r , P* COMPLETION OF THE REQUEST IS 'TENPCI'. L 4 P* NOTICE THAT ENTRY TIPI05 IS USED BY 'TIOKBI'
0x05e96c…05eb00 Dummy {f00=0x008c, f01=0x0190, f02=»K L j P* M P* OUTPUT: A1 IS DESTROYED M P* M 6 * PTIOPCI EQU * PROGRAMMED CHANNEL, INPUT M @ ( P LD A1,ECBRL,A8 GET REQUESTED LENGTH M n 2 P CW A1,BUFLEN,A12 COMPARE WITH DWT BUFFER SIZE M 6 P RF(G) IO:ERR REQ. LENGTH EXCEEDS DWT BUFFER SIZE? M
0x05eb00…05ec94 (0, 120) Dummy {f00=0x008d, f01=0x0190, f02=»IPI10 USER BUFFER ADDRESS EVEN? M P ORS A1,ECBBA,A8 N ( P RTN A15 N @ P* N P 0 PTIPI10 SUK A1,2 MAKE DWT BUFFER ADDRESS EVEN N Z P ANS A1,ECBBA,A8 N P RTN A15 N P* N P EJECT TOSSIO N P* N P* T I O M X I N P* N B P* THIS
0x05ec94…05ee28 Dummy {f00=0x008d, f01=0x0190, f02=»XI ASSEMBLES THE FULL 18 BIT BUFFER ADDRESS WHICH IS N , P* TRANSFERRED TO THE MUX BY THE DRIVER. O < 4 P* THE CORRESPONDING MODULE CALLED BY 'TENDIO' AT O l , P* COMPLETION OF THE REQUEST IS 'TENMXI'. O 6 P* NOTICE THAT MODULE 'TIOMXO' IS EQUAL TO TIOMXI. O
0x05ee28…05efbc Dummy {f00=0x008d, f01=0x0190, f02=»TPUT: A1-A2 ARE DESTROYED O B P* 18 BIT USER BUFFER ADDRESS IS TRANSFERRED TO DWT ECB P " P* P h PTIOMXI EQU * MUX, INPUT P r , P EL A1,ECBBA,A9 GET USER BUFFER ADDRESS P P ECR A2,A1 P & P ANKL A1,/FFF SKIP 4 LEFTMOST BITS P P SRL A2,3
0x05efbc…05f150 Dummy {f00=0x008d, f01=0x0190, f02=» SRL A2,2 P P ANK A2,/3F Q 4 P SCR A2,A8 STORE BITS 16-17 IN DWT ECB 1ST WORD Q & P ANK A2,/0F Q ^ P SRC A2,4 Q r P ORR A1,A2 Q 2 P ST A1,ECBBA,A8 STORE MODIFIED BUFFER ADDRESS Q P RTN A15 Q P* Q P EJECT TOSSIO Q P* Q P
0x05f150…05f2e4 Dummy {f00=0x008d, f01=0x018e, f02=»D/CTW. TIOKBI WILL SET BUFFER ADDRESSES Q n 6 P* AND MOVE KEYTABLE (IF ANY) BY USING ENTRY TIPI05 R 0 0 P* IN 'TIOPCI' AND ENTRY TIPO05 IN 'TIOPCO'. R j 4 P* THE CORRESPONDING MODULE CALLED BY 'TENDIO' AT R , P* COMPLETION OF THE REQUEST IS 'TENKBI'. R P*
0x05f2e4…05f478 Dummy {f00=0x008d, f01=0x0190, f02=» , P* A12 = ADDRESS TO DRIVER ADDRESS BLOCK S P* S 4 " P* OUTPUT: A1-A4 ARE DESTROYED S > P* S d PTIOKBI EQU * KEYBOARD/CTW S n ( P LD A1,ECBRL,A8 GET REQUESTED LENGTH S 2 P CW A1,BUFLEN,A12 COMPARE WITH DWT BUFFER SIZE S 6 P RF(G) IO:ERR REQ. LEN
0x05f478…05f60c Dummy {f00=0x008d, f01=0x0190, f02=»IKB20 NO KEYTABLE IF BASIC READ S . P LD A4,ECBCW,A8 GET USER KEYTABLE ADDRESS T ( P RF(Z) TIKB20 NO KEYTABLE? T Z P* T | P EJECT TOSSIO T P* T P* T P LDR A1,A9 T P ADK A1,8 T P ADKL A8,12 T * P ST A8,-2,A8 SET DWT KEYTABLE
0x05f60c…05f7a0 Dummy {f00=0x008d, f01=0x018e, f02=»EVEN? T n , P ECR A3,A3 NO, PUT LENGTH IN RIGHT BYTE U P* U > * PTIKB10 ANK A3,/FF SKIP LEFT CHARACTER U H P ADK A3,1 U v 0 P CW A3,KEYLEN,A12 CHECK KEYTABLE BUFFER SIZE U P RF(G) IO:ERR TOO SMALL? U P CF A15,TIPO05 U & P SUKL A8,8 ADJUST DWT
0x05f7a0…05f934 (0, 121) Dummy {f00=0x008d, f01=0x0190, f02=» U 4 PTIOITI EQU A15RTN INTERTASK COMMUNICATION, INPUT V P* V @ P EJECT TOSSIO V J P* V b P* T I O P C O V l P* V B P* THIS MODULE IS CALLED BY 'TIO' WHEN A WRITE REQUEST HAS BEEN V > P* ISSUED AND THE DEVICE IS RUNNING ON PROGRAMMED CHANN
0x05f934…05fac8 Dummy {f00=0x008d, f01=0x0190, f02=»F THE USER V Z P* BUFFER TO THE DWT BUFFER. W 4 P* THE CORRESPONDING MODULE CALLED BY 'TENDIO' AT W 6 , P* COMPLETION OF THE REQUEST IS 'TENPCO'. W n 6 P* NOTICE THAT MODULE 'TIOKBO' IS EQUAL TO TIOPCO. W F P* NOTICE ALSO THAT ENTRY TIPO05 IS USED BY 'TIOK
0x05fac8…05fc5c Dummy {f00=0x008d, f01=0x0190, f02=»DDRESS W x P* X " P* OUTPUT: A1-A4 ARE DESTROYED X P* X > , PTIOPCO EQU * PROGRAMMED CHANNEL, OUTPUT X H 8 P LD A2,DWTADR,A6 GET ADDRESS TO DRIVER ADDRESS BLOCK X x ( P LD A3,ECBRL,A8 GET REQUESTED LENGTH X * P RF(NP) TIPO20 REQUESTED LENGTH <= 0? X
0x05fc5c…05fdf0 Dummy {f00=0x008d, f01=0x0190, f02=»ET USER ECB ADDRESS X ~ P* Y P EJECT TOSSIO Y & P* Y > P* Y H : PTIPO05 EQU * ENTRY POINT USED BY 'TIOKBI' AND 'TENITO' Y R P ADK A3,1 Y . P ANKL A3,/FFFE MAKE REQUESTED LENGTH EVEN Y , P EL A1,ECBBA,A1 GET USER BUFFER ADDRESS Y * P LD
0x05fdf0…05ff84 Dummy {f00=0x008d, f01=0x0190, f02=») TIPO30 USER BUFFER ADDRESS UNEVEN? Y P ST A2,ECBBA,A8 Z , P* Z D 6 PTIPO10 MVUS A3 MOVE (USER BUFFER) TO SYSTEM BUFFER Z N P* Z PTIPO20 RTN A15 Z P* Z 0 PTIPO30 EQU * USER BUFFER ADDRESS WAS UNEVEN Z 4 P ORS A4,ECBBA,A8 MAKE DWT BUFFER A
0x05ff84…060118 Dummy {f00=0x008d, f01=0x0190, f02=» A1,1 UPDATE USER BUFFER POINTER Z ( P ADK A2,2 UPDATE DWT BUFFER POINTER [ ( ( P RB TIPO10 MOVE REMAINING CHARACTERS [ T P* [ P EJECT TOSSIO [ P* [ P* I O : E R R [ P* [ , P* DRIVER (DWT) MMU BUFFER IS TOO SMALL. [ B P* SET RETURN
0x060118…0602ac Dummy {f00=0x008d, f01=0x0190, f02=» EXIT FOR MMU ROUTINES [ v P INH $ P ADKL A15,4 ADJUST STACKPOINTER * " P LD A1,DWTST,A6 GET DWT STATUS R P SLL A1,2 CHECK ECHO BIT x P RF(NN) IO:E10 NOT ECHO? P LDR A1,A6 SAVE DWT ADDRESS * P LD A6,DWTECH,A6 GET ECHO DWT ADDRESS
0x0602ac…060440 Dummy {f00=0x008d, f01=0x0190, f02=»ISEND BRANCH TO DISPATCHER VIA TENDIO P* ] . P EJECT TOSSIO ] 8 P* ] P P* T I O M X O ] Z P* ] p " PTIOMXO EQU TIOMXI MUX, OUTPUT ] z P* ] P* T I O K B O ] P* ] * PTIOKBO EQU TIOPCO KEYBOARD/CTW, OUTPUT ] P* ] P* T I
0x060440…0605d4 (0, 122) Dummy {f00=0x008d, f01=0x0190, f02=»: D M ] P* ^ 6 P* THIS MODULE IS CALLED BY 'TENDIO' WHEN A REQUEST ^ . P* FOR DATA MANAGEMENT HAS BEEN COMPLETED. ^ R P* ^ P* INPUT: A6 = FDB ADDRESS ^ $ P* A8 = USER ECB ADDRESS ^ P* ^ " P* OUTPUT: A1-A2 ARE DESTROYED ^ P
0x0605d4…060768 Dummy {f00=0x008d, f01=0x0190, f02=»A2,ECBCW2+1,A1 ^ P ES A2,ECBCW2,A8 _ P RTN A15 _ . P* _ > P EJECT TOSSIO _ H P* _ ` P* T E N P C I _ j P* _ D P* THIS MODULE IS CALLED BY 'TENDIO' WHEN A READ REQUEST HAS BEEN _ @ P* COMPLETED AND THE DEVICE IS RUNNING ON PROGRAMMED CH
0x060768…0608fc Dummy {f00=0x008d, f01=0x0190, f02=»Y 'TIO' AT _ ` & P* ISSUING THE REQUEST IS 'TIOPCI'. ` D P* NOTICE THAT MODULES 'TENKBI' AND 'TENITI' ARE EQUAL TO TENPCI. ` < 8 P* NOTICE ALSO THAT ENTRY TEN:DC IS USED BY 'DC:MIN'. ` P* ` P* INPUT: A6 = DWT ADDRESS ` $ P* A8 = USER ECB ADDR
0x0608fc…060a90 Dummy {f00=0x008d, f01=0x0190, f02=» GET DWT ECB ADDRESS ` ( P LD A4,ECBEL,A2 GET EFFECTIVE LENGTH a " P RF(NP) TEPI30 NO MOVE IF ZERO a H * P LD A1,ECBBA,A2 GET DWT BUFFER ADDRESS a n P* a . PTEN:DC EQU * ENTRY POINT USED BY 'DC:MIN' a , P EL A2,ECBBA,A8 GET USER BUFFER ADDRESS a $ P
0x060a90…060c24 Dummy {f00=0x008d, f01=0x0190, f02=»ADDRESS a p , P RF(Z) TEPI60 USER BUFFER ADDRESS EVEN? b P* b @ P EJECT TOSSIO b J P* b b P* b l 2 PTEPI10 EQU * BOTH BUFFER ADDRESSES WERE UNEVEN b v 4 P LDR* A3,A1 GET FIRST CHARACTER FROM DWT BUFFER b P ELR A8,A2 b P* b * PTEPI15 A
0x060c24…060db8 Dummy {f00=0x008d, f01=0x0190, f02=»UFFER b l $ P ADK A1,1 UPDATE BUFFER POINTERS c P ADK A2,1 c 6 P SUK A4,1 c H * P RF(P) TEPI25 MORE CHARACTERS TO MOVE? c Z P RTN A15 NO, RETURN c P* c PTEPI20 TM A3,A2 c , P RF(Z) TEPI25 USER BUFFER ADDRESS EVEN? c & P LDR A3,A1 GET DWT
0x060db8…060f4c Dummy {f00=0x008d, f01=0x0190, f02=»IS CHAR. ONE BYTE TO THE RIGHT c ~ & P SUK A3,1 POINT TO NEXT CHARACTER d & 4 P CWR A3,A1 COMPARE WITH START ADDRESS OF BUFFER d P , P RB(NE) TEPI23 MORE CHARACTERS TO MOVE? d 0 P ADK A1,1 NO, MAKE DWT BUFFER ADDRESS UNEVEN d P RB TEPI10 d P* d P
0x060f4c…0610e0 Dummy {f00=0x008d, f01=0x0190, f02=»ENGTH UNEVEN? d v 0 P MVSU A4 MOVE (SYSTEM BUFFER) TO USER BUFFER e P* e J PTEPI30 RTN A15 e T P* e j , PTEPI40 EQU * EFFECTIVE LENGTH WAS UNEVEN e t ( P SUK A4,1 MAKE EFFECTIVE LENGTH EVEN e . P RF(Z) TEPI50 ONLY ONE CHARACTER TO MOVE? e P LDR A
0x0610e0…061274 (0, 123) Dummy {f00=0x008d, f01=0x0190, f02=»* e PTEPI50 EQU * f 2 P LDR* A8,A1 GET LAST CHARACTER FROM DWT BUFFER f P ELR A3,A2 f T P RB TEPI15 f f P* f x . PTEPI60 EQU * DWT BUFFER ADDRESS WAS UNEVEN f & P LDR A3,A1 GET DWT BUFFER ADDRESS f $ P ADR A1,A4 ADD EFFECTIVE LENGTH f P*
0x061274…061408 Dummy {f00=0x008d, f01=0x0190, f02=»ACTER f t * P CWR A3,A1 COMPARE WITH ENDING ADDRESS g , P RB(NE) TEPI70 MORE CHARACTERS TO MOVE? g < . P SUR A1,A4 NO, RESTORE DWT BUFFER ADDRESS g l * P SUK A1,1 MAKE DWT BUFFER ADDRESS EVEN g P RB TEPI25 g P* g P EJECT TOSSIO g P* g
0x061408…06159c Dummy {f00=0x008d, f01=0x0190, f02=»RD, INPUT g x P* h P* T E N I T I h P* h 2 4 PTENITI EQU TENPCI INTERTASK COMMUNICATION, INPUT h < P* h t P* T E N P C O h ~ P* h 0 PTENPCO EQU A15RTN PROGRAMMED CHANNEL, OUTPUT h P* h P* T E N M X O h P* h " PTENMXO EQU A
0x06159c…061730 Dummy {f00=0x008d, f01=0x0190, f02=»SIO h P* i P* T E N I T O i P* i , F P* THIS MODULE IS CALLED BY 'TENDIO' WHEN A WRITE REQUEST HAS BEEN i 6 L P* COMPLETED FOR INTERTASK COMMUNICATION, IN PURPOSE TO MOVE THE CONTENTS i J P* OF THE USER BUFFER TO THE DRIVER BUFFER. THE ENTRY TIP
0x061730…0618c4 Dummy {f00=0x008d, f01=0x0190, f02=»-A4, A8 ARE DESTROYED i P* j 0 PTENITO EQU * INTERTASK COMMUNICATION, OUTPUT j ( ( P LD A8,DWTECB,A6 GET DWT ECB ADDRESS j ( P LD A3,ECBEL,A8 GET EFFECTIVE LENGTH j P RF(NP) TEIO10 NO MOVE? j * P LD A1,DWTUEC,A6 GET USER ECB ADDRESS j ( P CF A1
0x0618c4…061a58 Dummy {f00=0x008d, f01=0x0190, f02=»* j < P* THIS MODULE IS CALLED BY THE DATA COMMUNICATION DRIVER k < P* IN PURPOSE TO MOVE THE CONTENTS OF THE USER BUFFER TO k J < P* THE DRIVER BUFFER. THE MOVE ROUTINE IN MODULE 'TIOPCO' k " P* IS USED FOR MOVING THE DATA. k P* k P* INPUT: A6 =
0x061a58…061bec Dummy {f00=0x008d, f01=0x018e, f02=» 8,A15 SAVE A1-A8 ON STACK k $ P SUKL A15,32 ADJUST STACKPOINTER l " * P TS 2,A15 SAVE MMU REGISTERS ON STACK l J & P LD A5,DWTTAB,A6 GET TTAB ADDRESS l x $ P TL TTB:MT,A5 LOAD MMU REGISTERS l ( P LD A8,DWTMEC,A6 GET DWT ECB ADDRESS l P ENB l ( P CF A1
0x061bec…061d80 Dummy {f00=0x008d, f01=0x0190, f02=» $ P ADKL A15,32 ADJUST STACKPOINTER m * P MLR 8,A15 RESTORE A1-A8 FROM STACK... m , P RTN A15 ...AND RETURN m Z P XIF m x P* m P EJECT TOSSIO m P* m P* D C : M I N m P* m < P* THIS MODULE IS CALLED BY THE DATA COMMUNICATION DRIVER
0x061d80…061f14 (0, 124) Dummy {f00=0x00a9, f01=0x0190, f02=» A4 = DRIVER BUFFER ADDRESS m P* A6 = DWT ADDRESS n * P* n L ( P* OUTPUT: NO REGISTERS ARE DESTROYED n V P* n PDC:MIN EQU * n P IFT MMUPAG=0 n P IFT CPU852=1 n & P CF A15,SAVE8 SAVE A1-A8 ON STACK n P XIF n P* n
0x061f14…0620a8 Dummy {f00=0x00a9, f01=0x0190, f02=» TS 2,A15 SAVE MMU REGISTERS ON STACK n " P LD A5,DWTTAB,A6 TTAB ADDRESS o . $ P TL TTB:MT,A5 LOAD MMU REGISTERS o T P XIF o | P* o P EJECT TOSSIO o P* o & P* CHECK MESSAGE LENGTH AND DECIDE o $ P* IF TTMJOB IS TO BE ACTIVATED. o P*
0x0620a8…06223c Dummy {f00=0x00a9, f01=0x018e, f02=»PU852=1 o P LDK A7,128 852 CPU p ( P ANK A5,1 CHECK USER BUFFER ADDRESS p , . P RF(NZ) DCMI00 USER BUFFER ADDRESS UNEVEN p X P ADK A7,128 A7 := 256 p P XIF p P* p P IFT MMUPAG=0 p P IFT CPU852=0 p P IFT CPU857=0 p P LDK A7,
0x06223c…0623d0 Dummy {f00=0x00a9, f01=0x0190, f02=» p x P XIF q P* q P IFT MMUPAG=0 q P IFT CPU852=0 q 4 P IFT CPU857=1 q J P LDKL A7,256 857 CPU q ` ( P ANK A5,1 CHECK USER BUFFER ADDRESS q | . P RF(NZ) DCMI00 USER BUFFER ADDRESS UNEVEN q P ADR A7,A7 A7 := 512 q P XIF q P* q
0x0623d0…062564 Dummy {f00=0x00a9, f01=0x0190, f02=»FER ADDRESS q x P LDKL A7,256 r ( P ANK A5,1 CHECK USER BUFFER ADDRESS r ( . P RF(NZ) DCMI00 USER BUFFER ADDRESS UNEVEN r T P SLL A7,3 A7 := 2048 r P XIF r P* r PDCMI00 EQU * r 8 P CW A7,ECBEL,A3 CHECK IF USER BUFFER IS LARGE ENOUGH r 2 P
0x062564…0626f8 Dummy {f00=0x00a9, f01=0x018e, f02=»IVER r t P IFT CPU852=1 s ( P ABL IHRET8 RESTORE A1-A8 AND RETURN s " P XIF s N P* s Z P IFT MMUPAG=0 s d P IFT CPU852=0 s z * P MLR 8,A15 RESTORE A1-A8 FROM STACK... s P* s PDC:MOT RTN A15 ...AND RETURN s P XIF s P* s P IFT M
0x0626f8…06288c Dummy {f00=0x00a9, f01=0x0190, f02=» s P* INPUT: A1 = RETURN CODE t P* A3 = ECB ADDRESS t * ( P* A4 = DRIVER BUFFER ADDRESS t L P* A6 = DWT ADDRESS t x P* t & P* OUTPUT: A1-A5, A7 ARE DESTROYED t P* t " PMINMOV EQU * DC:MIN MOVE ENTRY t P ENB t *
0x06288c…062a20 Dummy {f00=0x00a9, f01=0x0190, f02=»RL,A3 CHECK IF USER BUFFER IS LARGE ENOUGH t $ P RF(G) MIN:70 NO, REQUEST ERROR u 2 P* u Z P IFT MMUPAG=0 u d ( P LD A5,ECBBA,A3 USER BUFFER ADDRESS u z P LDR A3,A5 u ( P ANK A3,1 CHECK USER BUFFER ADDRESS u . P RF(NZ) MIN:30 USER BUFFER ADDRESS U
0x062a20…062bb4 (0, 125) Dummy {f00=0x00a9, f01=0x0190, f02=» u P* v PMIN:10 EQU * v P LDR* A3,A7 MOVE ONE WORD v & P STR A3,A5 v H ( P ADK A7,2 INCREMENT BUFFER POINTERS v Z P ADK A5,2 v $ P SUK A2,2 DECREMENT LOOP COUNTER v 2 P RB(NN) MIN:10 AT LEAST ONE MORE WORD TO MOVE v P* v PMIN:20 E
0x062bb4…062d48 Dummy {f00=0x00a9, f01=0x0190, f02=»3,A7 MOVE ONE CHARACTER v P SCR A3,A5 w ( P ADK A7,1 INCREMENT BUFFER POINTERS w 2 P ADK A5,1 w ^ $ P SUK A2,1 DECREMENT LOOP COUNTER w p 6 P RB(P) MIN:30 AT LEAST ONE MORE CHARACTER TO MOVE w P XIF w P* w P IFT MMUPAG=1 w * P ST A1,ECB
0x062d48…062edc Dummy {f00=0x00a9, f01=0x018e, f02=»B ADDRESS w x ( P CF A15,TEN:DC MOVE BUFFER CONTENTS x & P LDR A4,A7 RESTORE BUFFER ADDRESS x > P LDK A1,0 x h P XIF x z P* x P EJECT TOSSIO x P* x P* x PMIN:40 EQU * x P INH x " P CF A15,TENDIO PERFORM TENDIO x P* x
0x062edc…063070 Dummy {f00=0x00a9, f01=0x0190, f02=» PMIN:50 EQU * y " P LDR A2,A1 SAVE BUFFER ADDRESS y $ P LDR* A1,A2 NEXT BUFFER ADDRESS y > , P RB(NZ) MIN:50 NOT LAST BUFFER IN CHAIN y f P* y $ P* INSERT BUFFER AT END OF CHAIN y P* y " P SUK A4,6 REAL BUFFER ADDRESS y " P STR A4,A2 UPDAT
0x063070…063204 Dummy {f00=0x00a9, f01=0x0190, f02=»L A1,/8008 REQUEST ERROR/INCORRECT LENGTH y $ P RB MIN:40 RETURN VIA TENDIO ETC z 2 P* z Z P EJECT TOSSIO z d P* z | P* D C M I N T z P* z 2 P* TTMJOB WILL BE DISPATCHED HERE TO CARRY OUT z 2 P* THE MOVE OF THE DC DRIVER BUFFER CONTENTS
0x063204…063398 Dummy {f00=0x00a9, f01=0x018e, f02=»SS z x ( P* A4 = DRIVER BUFFER ADDRESS { P* { 6 * PDCMINT EQU * TTMJOB MOVE BUFFER ENTRY { @ P LDR A6,A3 DWT ADDRESS { n P LD A3,DWTECB,A6 ECB ADDRESS { P* { P IFT MMUPAG=1 { P INH { " P LD A5,DWTTAB,A6 TTAB ADDRESS { $ P TL TT
0x063398…06352c Dummy {f00=0x00a9, f01=0x0190, f02=» P* | ( P CF A15,MINMOV MOVE BUFFER CONTENTS | P ABL MEXIT EXIT TTMJOB | : P* | X P EJECT TOSSIO | b P* | z P* Q M T A S K | P* | : P* WHEN THE MOVE WILL TAKE TOO LONG TIME TTMJOB WILL BE | 6 P* ACTIVATED AT ENTRY 'DCMINT' TO PERFO
0x06352c…0636c0 Dummy {f00=0x00a9, f01=0x018e, f02=» DRIVER BUFFER ADDRESS | P* A6 = DWT ADDRESS } P* } @ PQMTASK EQU * ACTIVATE TTMJOB } J $ P LDKL A2,DCMINT DISPATCH ADDRESS } n P LDR A3,A6 DWT ADDRESS } " P CF A15,QMJOB ACTIVATE TTMJOB } P LDKL A1,/8000 NOT BUSY BIT } " P ORS A1,DW
0x0636c0…063854 (0, 126) Dummy {f00=0x00ba, f01=0x0190, f02=» } P IFT CPU852=1 ~ PDC:MOT INH ~ 2 P ABL IHRTN RETURN WITHOUT ENABLING INTERRUPTS ~ 0 P XIF ~ f P* ~ r P EJECT TOSSIO ~ | P* ~ P* ~ P********** ~ P* TENDIO * ~ P********** ~ P* ~ P* ~ . P* THIS MODULE IS CALLE
0x063854…0639e8 Dummy {f00=0x00ba, f01=0x0190, f02=»O START THE TASK ~ z P* P* -IF NORMAL I/O WITH WAIT:- " P* F * P* QTJOB IS CALLED TO QUEUE THE TASK P 8 P* FOR DISPATCHING WITH THE FOLLOWING PARAMETERS:- ~ P* P* A5 = TTAB ADDRESS P* $ P* -IF NORMAL I/O WITH NO WAI
0x0639e8…063b7c Dummy {f00=0x00ba, f01=0x0190, f02=»ASK IS PUT IN DISPATCHER QUEUE TO REPEAT THE LKM INSTRUCTION. P* F P EJECT TOSSIO P P* h P* r 0 P* ENTRY PARAMETERS TO THIS SUBROUTINE ARE:- | P* P* A1 = RETURN CODE P* P* A6 = DWT ADDRESS P* P*
0x063b7c…063d10 Dummy {f00=0x00ba, f01=0x018e, f02=» j P* P EJECT TOSSIO P* * P* END I/O ENTRY 4 P* L PTENDIO EQU * V P IFT CPU852=1 j & P CF A15,SAVE8 SAVE A1-A8 ON STACK P XIF P* P IFT CPU852=0 P INH " P MSR 8,A15 SAVE A1-A8 ON STACK P
0x063d10…063ea4 Dummy {f00=0x00ba, f01=0x018e, f02=» , P LD A5,DWTTQ,A6 GET TERMINAL QUEUE LINK " P RF(Z) TEN110 NO TASK QUEUED? 4 P LD A2,TTB:ID,A5 GET TASK ID Z P ANKL A2,/FF44 ~ P CWK A2,'#D' CHECK TASK ID " P RF(E) TEN100 DM REQUEST NEXT? P LDKL A2,/800 ATTACH BIT P ANR* A2,A4
0x063ea4…064038 Dummy {f00=0x00ba, f01=0x0190, f02=» j P* P EJECT TOSSIO P* * P* 4 PTEN100 EQU * > , P LDR* A3,A5 UPDATE QUEUE ANCHOR ADDRESS R P ST A3,DWTTQ,A6 . P CF A15,QTJOB QUEUE TASK TO REPEAT REQUEST P* P* UPDATE ECB AND DWT P* 4 PTEN110 LD A5
0x064038…0641cc Dummy {f00=0x00ba, f01=0x0190, f02=»WTTDM,A6 GET TTAB ADDRESS 4 P CF A15,REQEND RESET REQUEST BUSY FOR ALL FILES " P* Z PTEN120 LDKL A2,/8000 d , P ORRS A2,A4 INDICATE DEVICE READY IN DWT P LDKL A3,/DBFF ( P ANRS A3,A4 RESET ECHO BIT AND BIT 5 $ P LD A3,DWTECB,A6 GET E
0x0641cc…064360 Dummy {f00=0x00ba, f01=0x0190, f02=»RRS A2,A3 SET EVENT COMPLETED IN ECB , P ORS A1,ECBRC,A3 SET RETURN CODE IN ECB , P* P IFT MMUPAG=1 f P LD A4,TTB:PW,A5 GET PSW | & P ANK A4,1 GET SYSTEM/USER MODE BIT P RF(Z) TEN200 SYSTEM MODE? P* P* LOAD MMU REGISTERS
0x064360…0644f4 (0, 127) Dummy {f00=0x00bb, f01=0x018e, f02=»LOAD MMU REGISTERS FROM TTAB P* $ P EJECT TOSSIO . P* F P* MOVE DWT ECB TO USER ECB P P* r * P LD A8,DWTUEC,A6 GET USER ECB ADDRESS | P ELR A4,A8 * P ORR A4,A2 SET EVENT COMPLETED IN ECB P ESR A4,A8 P LDR A1,A3
0x0644f4…064688 Dummy {f00=0x00bb, f01=0x018e, f02=» ^ P* 8 P LD A3,DWTADR,A6 GET ADDRESS TO DRIVER ADDRESS BLOCK & P LD A3,DEVIND,A3 GET DEVICE INDEX N . P RF(N) TEN160 NO SPECIAL ACTION REQUIRED? x " P RF(Z) TEN140 DATA MANAGEMENT? P* " P* PERFORM CHECK ON ORDER CODE P* ,
0x064688…06481c Dummy {f00=0x00bb, f01=0x0190, f02=» < P CFI A15,TENTAB,A3 BRANCH TO RELEVANT READ/WRITE ROUTINE P* H P EJECT TOSSIO R P* j P* RESTORE MMU REGISTERS t P* PTEN150 EQU * P INH P* PTEN160 EQU * . P TL 2,A15 RESTORE MMU REGISTERS FROM STACK
0x06481c…0649b0 Dummy {f00=0x00bb, f01=0x0190, f02=» WAIT OR ACTIVATION n P* PTEN200 EQU * & 0 P LD A4,DWTWAT,A6 GET WAIT/ACTIVATE INDICATOR : * P RF(Z) TEN250 NOT WAIT OR ACTIVATION? n P SUK A4,1 P RF(Z) TEN240 WAIT? P ADK A4,1 P LDR A3,A4 P ANK A3,1 P RF(Z) T
0x0649b0…064b44 Dummy {f00=0x00bb, f01=0x0190, f02=»BIT j P RF(Z) TEN210 SYSTEM MODE? . P LD A8,DWTUEC,A6 NO, GET USER ECB ADDRESS . P XIF ` P* l PTEN210 EQU * v 4 P ST A8,TTB:SA+16,A5 SET TO A8 IN TTAB SAVE AREA P* : PTEN220 ADK A4,DWTWAT POINT TO WAIT/ACTIVATE INDICATOR $
0x064b44…064cd8 Dummy {f00=0x00bb, f01=0x0190, f02=»TEN220 P* P EJECT TOSSIO P* 0 P* : PTEN230 EQU * D 8 P CF A15,FREBLK ACTIVATE: GET PARAMETER AND DISP ADDR X . P CF A15,ACTOTP ACTIVATE TASK ON LIFO BASIS P RF TEN250 P* PTEN240 EQU * 2 P CF A15,QTJOB WAIT
0x064cd8…064e6c Dummy {f00=0x00bb, f01=0x40dc, f02=» IFT CPU852=1 P ABL IHRET8 P XIF * P* 6 P IFT CPU852=0 @ * P MLR 8,A15 RESTORE A1-A8 FROM STACK... V P RTN A15 ...AND RETURN P XIF P* P* P* P END @ PTEN240 EQU * 2 P CF A15,QTJOB WAIT
0x064e6c…065000 Dummy {f00=0x00bb, f01=0x2008, f02=» NT TOSSIO END @ &
0x065000…065194 (0, 128) Dummy {f00=0x00bb, f01=0x0190, f02=» M h * & g 2 KOR g g + C N * & 6y8 - W 2 * * 4 N 6 * & U T NETTO H R E N d * & r = U L e N * & L d N * & 1 V ` * Y
0x065194…065328 Dummy {f00=0x00bb, f01=0x0190, f02=» DK Az A N x * & - t ] ] X * O * & K JD6SO.-,.O.++.*)(EE()(''( O D * & $A>&% A AA>=C84< 367M# ## O r * & ;:/"! 65 9)(IG()(''($ O * & ! O * & ?
0x065328…0654bc Dummy {f00=0x00bb, f01=0x0190, f02=» 8 : < > @ B D O * & F G H I J K L P $ * & M N P R T W Z ^ P R * & b f j n s x } P * & P * & / P *
0x0654bc…065650 Dummy {f00=0x00bb, f01=0x0190, f02=» * & * 0 G0 Q * & H0 I0 J0 K0 L0 M0 N0 O Q 2 * & 0 P0 R0 T0 V0 X Q ` * & Q * & " % Q * & = ( + / 3 7 ;
0x065650…0657e4 Dummy {f00=0x00bb, f01=0x0190, f02=» Q t * & R * & * 6 B N Z f R @ * & r R n * & ! 0 A R * & !- R c t R * & !K
0x0657e4…065978 Dummy {f00=0x00bb, f01=0x0190, f02=» " $ & R * & ! ( * , . 0 2 4 S * & ! 6 8 : < > A D G S N * & ! K O S W [ _ c S | * & " g k o s w { S * & "; S * &
0x065978…065b0c Dummy {f00=0x00bb, f01=0x0190, f02=» " r } S * & " $ T . * & " 3 B R b r T * & # * T * & #+ > R h ~ T * & #I % A ] z
0x065b0c…065ca0 Dummy {f00=0x00bb, f01=0x40e4, f02=»@ @ T p # @ U T:LIT# U $ # * U 6 T:PIC# U J # ^ U T:KEY# U p # !V { U T:FMT# U # !n U P:END# U # U @ U & #I % A ] z
0x065ca0…065e34 (0, 129) Opaque[0x194]
0x065e34…065fc8 # DirEnt {nam=»SYSLDM«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0ab0, f03=0x0000}
0x065e34…065fc8 IdxSect {
0x065e34…065fc8 f00 = 0x0055 // 0x65e34 @0x0
0x065e34…065fc8 f01 = 0x0036 // 0x65e36 @0x2
0x065e34…065fc8 gno = [ // 0x65e38 @0x4
0x065e34…065fc8 [0x00]: C0x0055.0x2.0
0x065e34…065fc8 [0x01]: C0x0055.0x3.0
0x065e34…065fc8 [0x02]: C0x0056.0x0.0
0x065e34…065fc8 [0x03]: C0x0056.0x1.0
0x065e34…065fc8 [0x04]: C0x0056.0x2.0
0x065e34…065fc8 [0x05]: C0x0056.0x3.0
0x065e34…065fc8 [0x06]: C0x0057.0x0.0
0x065e34…065fc8 [0x07]: C0x0057.0x1.0
0x065e34…065fc8 [0x08]: C0x0058.0x1.0
0x065e34…065fc8 [0x09]: C0x0058.0x2.0
0x065e34…065fc8 [0x0a]: C0x0058.0x3.0
0x065e34…065fc8 [0x0b]: C0x0059.0x0.0
0x065e34…065fc8 [0x0c]: C0x0059.0x1.0
0x065e34…065fc8 [0x0d]: C0x0059.0x2.0
0x065e34…065fc8 [0x0e]: C0x0059.0x3.0
0x065e34…065fc8 [0x0f]: C0x005d.0x0.0
0x065e34…065fc8 [0x10]: C0x005d.0x1.0
0x065e34…065fc8 [0x11]: C0x005d.0x2.0
0x065e34…065fc8 [0x12]: C0x005d.0x3.0
0x065e34…065fc8 [0x13]: C0x00bb.0x2.0
0x065e34…065fc8 [0x14]: C0x00bb.0x3.0
0x065e34…065fc8 [0x15]: C0x00bc.0x2.0
0x065e34…065fc8 [0x16]: C0x00bc.0x3.0
0x065e34…065fc8 [0x17]: C0x00bd.0x0.0
0x065e34…065fc8 [0x18]: C0x00bd.0x1.0
0x065e34…065fc8 [0x19]: C0x00bd.0x2.0
0x065e34…065fc8 [0x1a]: C0x00bd.0x3.0
0x065e34…065fc8 ]
0x065e34…065fc8 }
0x065fc8…06615c Dummy {f00=0x0055, f01=0x0190, f02=» 2 P IDENT SYSLDM REL 9.2 79-12-20 870105040920 P : : P =1,FAULTY LENGTH OF TEMPORARY BUFFER,USED BY XMOVE B P REL 9.2 79-12-20 ST P ENTRY SYSLDM P*************************** P* * P* ENTRIES A
0x06615c…0662f0 Dummy {f00=0x0055, f01=0x0190, f02=» P EXTRN REL P EXTRN SCLASS P EXTRN SCTADA , P EXTRN SCTANO B P EXTRN SCTBLK X P EXTRN SCTBUG n P EXTRN SCTCDT P EXTRN SCTDCT P EXTRN SCTDMC P EXTRN SCTDMI P EXTRN SCTDML P EXTRN SCTDMT P
0x0662f0…066484 Dummy {f00=0x0055, f01=0x0190, f02=»RN SCTPAG P EXTRN SCTPLD P EXTRN STTPSZ ( P EXTRN SCTPSZ > P EXTRN SCTSEG T P EXTRN SCTSFA j P EXTRN SCTSWB P EXTRN SCTTCT P EXTRN SYSBAS P EXTRN SYSLOD P EXTRN TCLASS P EXTRN TTMJOB P EXT
0x066484…066618 Dummy {f00=0x0055, f01=0x0190, f02=»XTRN CONVRT P EXTRN NXTBLK P EXTRN SYSLDA * P EXTRN SAVE01 @ P EXTRN SAVE02 V P EXTRN SAVE03 l P EXTRN SAVE04 P EXTRN SAVE05 P EXTRN SAVE06 P EXTRN SAVE07 P EXTRN SAVE08 P EXTRN SAVE09 P E
0x066618…0667ac Dummy {f00=0x0055, f01=0x0190, f02=» SAVE16 P EXTRN SAVE17 P EXTRN SAVE18 & P EXTRN SAVE19 < P EXTRN SAVE20 R P EXTRN SAVE21 h P EXTRN NUMSEG ~ P EXTRN SAVE23 P EXTRN SAVE24 P EXTRN SAVE25 P EXTRN BUFSIZ P EXTRN SYSBUF P EXTRN
0x0667ac…066940 Dummy {f00=0x0055, f01=0x0190, f02=» P P , P*************************************** , P* CONDITIONAL ASSEMBLY * D , P*************************************** t P ( PMMUPAG EQU 1 MEMORY MANAGEMENT UNIT & PSWPBLK EQU 0 SWAPPABLE WORK BLOCKS $ PCREDIT
0x066940…066ad4 (0, 130) Dummy {f00=0x0055, f01=0x0190, f02=»SS l 0 PUP:REC EQU 6 RECORD LENGTH IN INITIAL S:BTAB PUPNAME EQU 4 PROTOTYPE NAME > $ PWBLEN EQU -4 LENGTH OF WORKBLOCK b P P $ P******************************* $ P* SAVE01URATION FILE (SAVE01) * $ P**********************
0x066ad4…066c68 Dummy {f00=0x0055, f01=0x0190, f02=» , PTDBID EQU TDBNT+2 6A TASK ID START VALUE , PTDBMC EQU TDBID+6 6A MATCHING TASK CLASS 4 $ PTDBTL EQU TDBMC+6 6A TASK LEVEL d : PTDBNC EQU TDBTL+6 2N NUMBER OF TERMINAL DEVICE CLASSES P* & PTDBFST EQU TDBNC+2 FIRST TERM DEF $ PTDC EQU 7
0x066c68…066dfc Dummy {f00=0x0055, f01=0x0190, f02=»DEVICE CLASS-RECORD ~ P* P* COMMON DEVICE DEF. BLOCK: & PCDBBT EQU 0 1A BLOCK TYPE J 6 PCDBNC EQU CDBBT+1 2N NUMBER OF SPEC. DEV. CLASSES l ( PSDCFST EQU CDBNC+2 FIRST SDC-RECORD P* P* & P* USER WORK BLOCK TYPE DEF. BLOCK
0x066dfc…066f90 Dummy {f00=0x0055, f01=0x0190, f02=» l PNAMUWB EQU 3 NAME OF UWB " PNUMUBL EQU 3 NUMBER OF BLOCKS ( . PUDBREC EQU NAMUWB+NUMUBL UDB RECORD-LENGTH N P EJECT P**************** P* SOP-HANDLING * P**************** PSOP EQU /2E DEVICE ADDRESS P PLMP1 EQU
0x066f90…067124 Dummy {f00=0x0055, f01=0x0190, f02=»QU /10 PLMP8 EQU 8 PLMP9 EQU 4 PLMP10 EQU 2 2 PLMP11 EQU 1 F P Z F P***************************************************************** f F P* CALL-FORMAT, PERFORMS: CFR A14,A13 * F P*
0x067124…0672b8 Dummy {f00=0x0055, f01=0x0190, f02=»*************************************************************** P H P T P ` PCALL FORM 16=/F697,16 l P EJECT F P***************************************************************** F P* CONSTANTS USED IN SYS
0x0672b8…06744c Dummy {f00=0x0055, f01=0x018e, f02=» ********** P* * TTAB * P* ********** 8 P* PTTB:MT EQU -34 f PTTB:SB EQU -2 | PTTB:ID EQU 2 PTTB:ST EQU 4 PTTB:PP EQU 6 PTTB:PW EQU 8 PTTB:SA EQU 10 PTTB:TD EQU 40
0x06744c…0675e0 Dummy {f00=0x0055, f01=0x0190, f02=» " PDWTCHP EQU 0 CHANNEL PARAMETER PDWTST EQU 2 STATUS . PDWTECB EQU 4 ECB ADDRESS H PDWTOR EQU 6 ORDER h PDWTADR EQU 8 ADDRESS BLOCK PDWTTAB EQU 10 TTAB ADDRESS * PDWTWAT EQU 12 WAIT/ACTIVATE INDICATOR PDWTTQ EQU 14 TERMINA
0x0675e0…067774 (0, 131) Dummy {f00=0x0056, f01=0x0190, f02=» *********** " P* * PAGTAB * " P* *********** < P* b PPAGQF EQU 0 l PPAGQB EQU 2 PPAGPA EQU 4 PPAGSB EQU 6 P EJECT P* & P* ************* & P*
0x067774…067908 Dummy {f00=0x0056, f01=0x0190, f02=»CT P* * P* ******************* * P* * MISCELLANOUES * B * P* ******************* p P* PBUFLEN EQU -4 PDEVIND EQU -2 PDWTLEN EQU 6 PTDCDD1 EQU 5 PTDCDD2 EQU 6
0x067908…067a9c Dummy {f00=0x0056, f01=0x0190, f02=» P EJECT : P****************************************************** : P* * P : P* * : P* THIS IS THE MONITOR CONFIGURATION PROGRAM ENTRY * :
0x067a9c…067c30 Dummy {f00=0x0056, f01=0x0190, f02=»TERS: * : P* * 4 : P* A1 - POINTER TO CURRENT LOCATION OF SYSLDA * r : P* A2 - POINTER TO PREVIOUS LOCATION OF SYSLDA * : P*
0x067c30…067dc4 Dummy {f00=0x0056, f01=0x0190, f02=»**************** j PSYSLDM EQU * ( P ST P,SCTSFA+2 SAVE LOCATION COUNTER , . P LDKL A11,SYSBAS GET SYSBAS START ADDRESS X , P ST A11,SCTSFA UPDATE START OF FREE AREA P LDR A8,P INIT STACK POINTER & P ADK A1,2 RELOCATION ROUTINE ENTRY P
0x067dc4…067f58 Dummy {f00=0x0056, f01=0x0190, f02=»RESS TO SCLASS? v $ P RF(E) NO:TCL YES:DUMMY TCLASS! , P CALL CHPTRS RELOCATE POINTERS IN TCLASS @ 6 P ST A2,SAVE18,A13 SAVE RELOCATED POINTER TO TCLASS p 0 PNO:TCL LDKL A2,SCLASS GET ADDRESS TO SCLASS , P CALL CHPTRS RELOCATE POINTERS IN SCLASS
0x067f58…0680ec Dummy {f00=0x0056, f01=0x0190, f02=»EFA P LD A2,SCTSFA PCLRSYS EQU * " P SUK A1,2 6 P CMR A1 H P CWR A1,A2 X P RB(NE) CLRSYS j P LDKL A1,CONMON P AD A1,M:REL,A13 P ABR A1 P EJECT 4 /*********************************************** 4 /*
0x0680ec…068280 Dummy {f00=0x0056, f01=0x0190, f02=»POINTER TO TCLASS/SCLASS ( P* A11 - SYSLOD START ADDRESS ( #* A12 - RELOCATION CONSTANT L * x 2 .* EXIT: A2 - POINTER TO MOVED TCLASS/SCLASS * * WORK REGISTER:A1-A7 * * SUBROUTINES: *
0x068280…068414 (0, 132) Dummy {f00=0x0056, f01=0x0190, f02=» OF TCLASS/SCLASS z CHPT10 EQU * . ) SUK A4,2 MOORE ENTRIES I TCLASS/SCLASS ? . RF(Z) CHPT30 NO! ` ADK A3,2 NEXT ENTRY z $ ! LDR* A5,A3 GET POINTER TO CLASS ADR A5,A12 RELOCATE STR A5,A3 STORE $ LDR* A6,A5 GET LENGTH
0x068414…0685a8 Dummy {f00=0x0056, f01=0x0190, f02=» LDR* A7,A5 GET DWT-ADDRESS P LDR A9,A7 GET DWT-ADDRESS ( " P CALL CMPADR COMPARE ADDRESSES J P RB(G) CHPT20 DWT IN DRIVER! p ADR A7,A12 RELOCATE * % STR A7,A5 STORE RELOCATED DW-ADDRESS " P LD A8,SCTOPT GET OPTION WORD P ANK
0x0685a8…06873c Dummy {f00=0x0056, f01=0x0190, f02=»SS p * P ANKL A9,1 ADDRESS ALREADY RELOCATED? P RB(NZ) CHPT20 YES! 8 P ADR A8,A12 RELOCATE T . P ADKL A8,1 INDICATE DWT-ADDRESS RELOCATED p , P ST A8,DWTMEC,A7 STORE RELOCATED ADDRESS RB CHPT20 CHPT30 EQU * P RTN A14 P
0x06873c…0688d0 Dummy {f00=0x0056, f01=0x0190, f02=»******************************************** * 4 * REFERENCED IN: MONCON > * ^ 2 P* ENTRY: SAVE01 - START OF SAVE01URATION DATA h P EJECT 6 2************************************************** 6 2* B:TCT - BUILD TASK CONTROL TABL
0x0688d0…068a64 Dummy {f00=0x0056, f01=0x0190, f02=» ENTRY: SAVE01 - START OF SAVE01URATION DATA * 4 " * EXIT: A6 - START OF TC:TAB > $ * A7 - LENGTH OF TC:TAB d * * WORK REGISTERS: A2,A3 * * SUBROUTINES: * . )* TASK CONTROL TABLE L
0x068a64…068bf8 Dummy {f00=0x0056, f01=0x0190, f02=»___________________ z . ** I TTMJOB I . )* _________________________ N . ** I MONITOR TASKS I . )* _________________________ . ** I USER TASKS
0x068bf8…068d8c Dummy {f00=0x0056, f01=0x0190, f02=» OF SAVE01URATION DATA t ( $ LD A7,SCTSFA GET START OF FREE AREA LDR A6,A7 SAVE J & " LDKL A2,TTMJOB GET TTMJOB ADDRESS b ST A2,2,A7 STORE IN TC:TAB * % ADK A7,4 CONTINUE WITH MONITOR TASKS ( P LD A2,SCTOPT ANY OPTIONS AVALIABLE?
0x068d8c…068f20 Dummy {f00=0x0056, f01=0x0190, f02=»PTIONS AVALIABLE * h @ P* - TO BE PROVIDED * @ P*********************************************************** ` PBTCT15 EQU * " P LD A2,SCTDMT DATA MANAGEMENT? P RF(Z) BTCT30 NO! P LDR A3,A2 SAVE
0x068f20…0690b4 (0, 133) Dummy {f00=0x0056, f01=0x0190, f02=» A2,A3 GET SCTDMT P ANK A2,2 DM-TASK D1? P RF(Z) BTCT25 NO! 8 * P ADK A7,2 RESERV ENTRY FOR DM-TASK D0 R PBTCT25 EQU * P LDR A2,A3 GET SCTDMT P ANK A2,4 DMTASK D2? P RF(Z) BTCT30 NO! ( P ADK A7,2 RESERV ENTRY FOR DMTAS
0x0690b4…069248 Dummy {f00=0x0056, f01=0x0190, f02=»SK DEFINITION BLOCK z * 2 P ST A7,SAVE13,A13 SAVE CURRENT USER TASK ENTRY & , P ST A7,SAVE02,A13 FIRST USER TASK ENTRY LCR A2,A11 GET BLOCK TYPE ( # CCK A2,'TT' TASK DEFINITION BLOCK? RF(E) BTCT35 YES P LDKL A1,LMP4 FORMAT
0x069248…0693dc Dummy {f00=0x0056, f01=0x0190, f02=» EQU * $ CALL GETTSK GET NUMBER OF TASKS PBTCT50 EQU * 6 , P ADK A7,2 RESERV ANOTHER ENTRY IN TC:TAB J & P CW A7,SCTEFA CHECK IF MEMORY LEFT z P RF(NE) BTCT55 YES! P LDKL A1,LMP3 ( P CALL ERROR INDICATE MEMORY OVERFLOW PBTCT55
0x0693dc…069570 Dummy {f00=0x0056, f01=0x0190, f02=» TASK DEFINITION BLOCK? RB(E) BTCT40 YES ! * ! : 4 0* ENTRIES FOR ALL USER TASKS RESERVED IN TC:TAB ! D * ! | * % ST A7,SCTSFA UPDATE END OF FREE AREA ! SUR A7,A6 LENGTH OF TC:TAB ! & ! STR A7,A6 STORE LENGTH IN TC:TAB ! * P ST A6
0x069570…069704 Dummy {f00=0x0056, f01=0x0190, f02=»TT - BUILD DATA MANAGEMENT TASK TABLES * ! 6 1************************************************* " 2 * " l * &* ENTRY: SCTSFA - START OF FREE AREA " v * P* SCTTCT - ADDRESS TO TC:TAB " 2 -* SCTDMT - DATA MANAGEMENT INDICATOR "
0x069704…069898 Dummy {f00=0x0056, f01=0x0190, f02=» EQU * " * % LD A12,SCTSFA GET START OF FREE AREA # ( P LD A7,SCTTCT GET POINTER TO TC:TAB # < " ADK A7,4 FIRST DM-TASK ENTRY # h $ LD A2,SCTDMT DATA MANAGEMENT? # RF(Z) DMTTEX NO! # . ) LDR A3,A2 SAVE DATA MANAGEMENT INDICATOR # . * LD A6
0x069898…069a2c Dummy {f00=0x0056, f01=0x0190, f02=»L DMTGEN # DMTT10 EQU * $ , ( LDR A2,A3 GET DATA MANAGEMENT INDICATOR $ $ ANK A2,2 DM-TASK D1? $ T RF(Z) DMTT20 NO! $ r P LDKL A1,'#E' TASK ID $ CALL DMTGEN $ DMTT20 EQU * $ , ( LDR A2,A3 GET DATA MANAGEMENT INDICATOR $ ANK A
0x069a2c…069bc0 Dummy {f00=0x0056, f01=0x018e, f02=» RTN A14 % EJECT % 6 2************************************************** % " 6 2* DMTGEN - GENERATE DATA MANAGEMENT TASK TABLE * % 6 2************************************************** % * % * ENTRY: A1 - TASK ID % , (* A6
0x069bc0…069d54 (0, 134) Dummy {f00=0x0056, f01=0x0190, f02=» * EXIT: & * & * WORK REGISTERS: & * & 8 * SUBROUTINES: & B * & Z PDMTGEN EQU * & d " P LD A2,SCTOPT GET OPTION WORD & x P ANK A2,1 MMU OPTION? & P RF(Z) DMTG20 NO! & P LDK A4,0 RESET PAGE POINTER & PDMTG10 EQU * &
0x069d54…069ee8 Dummy {f00=0x0056, f01=0x0190, f02=»ER & n , P ADKL A12,2 INCREMENT MMU ENTRY POINTER ' P RB DMTG10 ' : PDMTG20 EQU * ' L " P LD A2,SCTOPT GET OPTION WORD ' ` P ANK A2,2 DISC PAGING? ' P RF(Z) DMTG40 NO! ' PDMTG30 EQU * ' & P ADKL A12,2 SEGMENT BLOCK ADDRESS ' PDMTG40 EQU *
0x069ee8…06a07c Dummy {f00=0x0056, f01=0x0190, f02=»N ' l P LDKL A1,/0031 TASK LEVEL ( P ST A1,TTB:ST,A12 STORE ( , & P SLL A1,10 MOVE LEVEL TO LEFT BYTE ( L " P ORKL A1,/00C0 PROGRAM STATUS ( v $ P ST A1,TTB:PW,A12 STORE IN TTAB ( " ADKL A12,40 TERMINAL DEVICES ( LDK A1,6 LENGTH ( STR A
0x06a07c…06a210 Dummy {f00=0x0056, f01=0x0190, f02=»DR A12,A1 RESERV SPACE FOR BUFFERS ( P LD A2,SCTSFA ) * P SUK A2,2 ) @ PDMTG50 ADK A2,2 ) R * P CW A2,SCTEFA CHECK IF MEMORY OVERFLOW ) j P RF(NE) DMTG60 NO! ) P LDKL A1,LMP3 ) ( P CALL ERROR INDICATE MEMORY OVERFLOW ) PDMTG60 CWR A2,A12 )
0x06a210…06a3a4 Dummy {f00=0x0056, f01=0x0190, f02=» ) r " * B:TT - BUILD TASK TABLES * * " ****************************** * . * * T * REFERENCED IN: MONCON * ^ * * ~ 4 P* ENTRY: SAVE01 - START OF SAVE01URATION DATA * * * 8 4* EXIT: TC:TAB CONTAIN POINTERS TO ALL TASK TABLES * *
0x06a3a4…06a538 Dummy {f00=0x0056, f01=0x0190, f02=»* TASK TABLE LAYOUT * * &* ________________________ + , * &* I MMU I + Z * &* I TABLE I + * &* I 16 I + * &* I WORDS
0x06a538…06a6cc Dummy {f00=0x0056, f01=0x0190, f02=»---- + n * &* TASK ENTRY I QUEUE I , * &* ------------------------ , : * &* TTB:ID I TASK IDENTIFICATION I , h * &* ------------------------ , * &* TTB:ST I STATUS/LEVEL I , * &* --------
0x06a6cc…06a860 Dummy {f00=0x0056, f01=0x0190, f02=»RAM STATUS WORD I , | * &* ------------------------ - * &* TTB:SA I DISPATCH ADDRESS I - H * &* ------------------------ - v * &* I REGISTER I - * &* I SAVE I - * &*
0x06a860…06a9f4 (0, 135) Dummy {f00=0x0057, f01=0x0190, f02=» ------------------------ - * &* TTB:TD I TASK I . ( * P* I SAVE01URATION I . V * &* I TABLE I . * &* : : . * &* : : .
0x06a9f4…06ab88 Dummy {f00=0x0057, f01=0x018e, f02=» ______________________________ . 0 ,* I LENGTH I / * 0 ,* ------------------------------ / ^ 0 ,* I INDEX/FILCODE I / 0 ,* ------------------------------ / 0 ,*
0x06ab88…06ad1c Dummy {f00=0x0057, f01=0x0190, f02=» / b 0 ,* : : 0 0 ,* ------------------------------ 0 < 0 ,* I INDEX/FILECODE I 0 p 0 ,* ------------------------------ 0 0 ,* I DWT-ADDRESS I 0
0x06ad1c…06aeb0 Dummy {f00=0x0057, f01=0x0190, f02=»D A11,SAVE01,A13 GET START OF SAVE01URATION DATA 0 . P LD A2,SCTDML GET NUMBER OF LOCAL DM-FILES 1 8 P SLL A2,2 MULTIPLY BY 4 1 j 6 P ST A2,SAVE04,A13 SAVE NUMBER OF BYTES TO RESERVE 1 PBTT10 EQU * 1 $ LCR A2,A11 GET FIRST BLOCK TYPE 1 ( # CCK A2,
0x06aeb0…06b044 Dummy {f00=0x0057, f01=0x0190, f02=» 1 ( $* GET NUMBER OF TASKS IN THIS CLASS 2 * 2 4 CALL GETTSK 2 > P ST A1,SAVE19,A13 SAVE 2 R * 2 p * GET TASK ID START VALUE 2 z * 2 ( P LC A5,TDBID+4,A11 GET FIRST ID CHAR 2 SLL A5,8 MOVE TO LEFT BYTE 2 * P LC A5,TDBID+5,A11
0x06b044…06b1d8 Dummy {f00=0x0057, f01=0x0190, f02=» VALUE 2 v P* 3 , P LC A5,TDBMC+4,A11 GET FIRST CHAR IN TCL 3 P SLL A5,8 MOVE TO LEFT BYTE 3 H . P LC A5,TDBMC+5,A11 GET SECOND CHAR IN TCL 3 l $ P CALL GETTCL GET TCL START VALUE 3 P ST A5,SAVE17,A13 SAVE 3 P XIF 3 P EJECT 3 * 3
0x06b1d8…06b36c Dummy {f00=0x0057, f01=0x0190, f02=»+5,A11 GET SECOND DIGIT IN LEVEL 3 " CALL CONVRT CONVERT TO BINARY 4 ( P ST A1,SAVE24,A13 SAVE 4 N * 4 l B P* COMPUTE SIZE OF SAVE01URATION DEPENDENT PART OF TASK TABLE 4 v * 4 $ LDKL A10,TTB:TD STANDARD LENGTH 4 " P LD A5,SCTOPT GET OPTION W
0x06b36c…06b500 Dummy {f00=0x0057, f01=0x0190, f02=»V SPACE FOR EXTRA WORDS 4 z RF BTT30 5 PBTT25 EQU * 5 2 " P LD A5,SCTOPT GET OPTION WORD 5 F P ANK A5,2 DISC PAGING? 5 l RF(Z) BTT30 NO 5 2 . SUKL A10,TTB:SB ONE WORD EXTRA IF DISC PAGING 5 0 , SUKL A12,TTB:SB RESERV SPACE FOR EXTRA WORD 5
0x06b500…06b694 (0, 136) Dummy {f00=0x0057, f01=0x0190, f02=»* COMPUTE SIZE OF TERMINAL DEVICE CLASS DEPENDENT PART 5 " P* OF TASK SAVE01URATION TABLE 6 @ * 6 f LDK A6,0 RESET LENGTH 6 p : 5 LDR A9,A11 INIT SUB-POINTER IN TASK DEFINITION BLOCK 6 4 0 ADKL A9,TDBFST TERMINAL DEVICE CLASS DEFINITION 6 $ CAL
0x06b694…06b828 Dummy {f00=0x0057, f01=0x0190, f02=» 6 l & " ADR A1,A1 2*(BINARY CLASS NUMBER) 7 , P LD A8,SAVE18,A13 GET POINTER TO TCLASS 7 2 P LDR* A2,A8 7 b P SUK A2,2 7 v P CWR A1,A2 7 P RF(NG) BTT37 7 P LDKL A1,LMP4 7 & P CALL ERROR INDICATE FORMAT ERROR 7 PBTT37 EQU * 7 " P ADR
0x06b828…06b9bc Dummy {f00=0x0057, f01=0x0190, f02=»GTH WORD 7 z ( $ ADR A10,A8 ADD TO TOTAL TTAB LENGTH 8 . ) ADR A6,A8 ADD TO TASK CONF. TABLE LENGTH 8 < ADKL A9,TDC+TLC NEXT CLASS 8 n ( # SUK A7,1 DECREMENT NUMBER OF TDC:S 8 RB BTT35 8 P EJECT 8 PBTT40 EQU * 8 * 8 > :* COMPUTE S
0x06b9bc…06bb50 Dummy {f00=0x0057, f01=0x0190, f02=»EVICE CLASSES 8 l P ADKL A9,2 FIRST SDC RECORD 9 LDR A7,A1 SAVE 9 : PBTT50 EQU * 9 R RF(Z) BTT55 NO MOORE SDC:S 9 f ( $ CALL GETCLN GET CLASS NUMBER (1-99) 9 & " ADR A1,A1 2*(BINARY CLASS NUMBER) 9 , P LD A8,SAVE11,A13 GET POINTER TO SCLASS
0x06bb50…06bce4 Dummy {f00=0x0057, f01=0x0190, f02=»ERROR 9 t PBTT52 EQU * : " P ADR A8,A1 GET ENTRY IN SCLASS : " $ P LDR* A8,A8 GET POINTER TO CLASS : H $ P LDR* A8,A8 GET LENGTH OF CLASS : p " SUKL A8,2 EXCLUDE LENGTH WORD : ( $ ADR A10,A8 ADD TO TOTAL TTAB LENGTH : . ) ADR A6,A8 ADD TO TASK CONF. T
0x06bce4…06be78 Dummy {f00=0x0057, f01=0x0190, f02=»D A7,SAVE04,A13 GET NUMBER OF BYTES TO RESERV : ( P ADR A10,A7 ADD TO TOTAL TTAB LENGTH ; 6 . P ADR A6,A7 ADD TO TASK CONF. TABLE LENGTH ; b " P ADK A6,2 INCLUDE LENGTH WORD ; 2 P LD A7,SAVE13,A13 GET CURRENT ENTRY IN TC:TAB ; 8 P LD A8,SAVE19,A13 GET NU
0x06be78…06c00c Dummy {f00=0x0057, f01=0x0190, f02=»B ; ^ * < ST A6,TTB:TD,A12 < * < . : 6* STORE TASK LEVEL IN RIGHT BYTE OF STATUS/LEVEL WORD < 8 * < v $ P LD A5,SAVE24,A13 GET TASK LEVEL < $ ST A5,TTB:ST,A12 STORE IN TTAB < * < < 7* STORE TASK LEVEL IN LEFT BYTE OF PROGRAM ST
0x06c00c…06c1a0 Dummy {f00=0x0057, f01=0x0190, f02=»2,1 MMU OPTION? < P ORR A5,A2 SET BIT 15 IF MMU = $ ST A5,TTB:PW,A12 STORE IN TTAB = < * = d ( $* STORE TASK IDENTIFICATION IN TTAB = n * = & P LD A5,SAVE16,A13 GET THIS TASK ID = $ ST A5,TTB:ID,A12 STORE IN TTAB = ADK A5,1 INCREMEN
0x06c1a0…06c334 (0, 137) Dummy {f00=0x0058, f01=0x0190, f02=» IN TTAB = t P* > * P LD A5,SAVE17,A13 GET TCL START VALUE > " P ST A5,TTB:PP,A12 SAVE IN TTAB > H P ADK A5,1 INCREMENT TCL > n P ST A5,SAVE17,A13 SAVE > P XIF > , ' STR A12,A7 SAVE TTAB ADDRESS IN TC:TAB > " ADK A7,2 NEXT ENTRY IN TC:TAB >
0x06c334…06c4c8 Dummy {f00=0x0058, f01=0x0190, f02=» NUMBER OF TASKS IN THIS CLASS > | RB BTT60 ? & P EJECT ? 8 PBTT70 EQU * ? F * ? Z * &* RESET POINTER TO START OF FREE AREA ? d * ? " P LD A5,SCTOPT GET OPTION WORD ? P ANK A5,1 MMU PAGING? ? RF(Z) BTT80 NO ? ( # ADKL A12,TTB:MT
0x06c4c8…06c65c Dummy {f00=0x0058, f01=0x0190, f02=»F(Z) BTT90 NO ? & " ADKL A12,TTB:SB SUBTRACT ONE WORD @ PBTT90 EQU * @ @ CALL NXTBLK GET NEXT BLOCK @ T ( # CCK A2,'TT' TASK DEFINITION BLOCK? @ x P RF(NE) BTT95 @ P LDKL A2,BTT20 @ P SUKL A2,REL @ P ADR A2,A13 @ P ABR A2 @ P
0x06c65c…06c7f0 Dummy {f00=0x0058, f01=0x0190, f02=»,LMP3 @ ( P CALL ERROR INDICATE MEMORY OVERFLOW A PBTT105 CWR A2,A12 A : P RB(NE) BTT100 A T * & ST A12,SCTSFA SAVE START OF FREE AREA A j RTN A14 RETURN A P IFT CREDIT=1 A EJECT A ( $************************************ A ( $* SEGG
0x06c7f0…06c984 Dummy {f00=0x0058, f01=0x0190, f02=»* SCTEFA - END OF FREE AREA A , (* SCTLAC - START OF APPLICATION B , * B , (* EXIT: SCTPAG - ADDRESS TO PAGE TABLE B f * B * WORK REGISTERS: A1-A12 B * B * SUBROUTINES: GETCON B * B EJECT B PSEGG
0x06c984…06cb18 Dummy {f00=0x0058, f01=0x0190, f02=»,SCTADA APPLICATION DISC SECTOR ADDRESS B PSEG:05 EQU * C 0 0 P LD A2,SCTLAC LOGICAL ADDRESS OF COMMON PART C D P* C x " P* CHECK IF CREDIT APPLICATION C P* C P ADKL A2,PRGLG1 C P CALL GETCON C P CWK A1,'CR' C P RF(NE) SEGEX NOT CRED
0x06cb18…06ccac Dummy {f00=0x0058, f01=0x0190, f02=»TABLE C p * P LDKL A1,/8400 STATUS FOR FIRST BLOCK D $ P STR A1,A12 STORE IN FIRST BLOCK D < 4 P LD A2,SCTLAC GET LOGICAL ADDRESS TO COMMON PART D d & P CALL GETCON GET POINTER TO P:MTAB D P LDR A2,A1 SAVE POINTER D P ADKL A2,6 ADDRESS TO P:BAS D
0x06ccac…06ce40 Dummy {f00=0x0058, f01=0x0190, f02=»L ADDRESS TO COMMON PART D x * P ADKL A2,NUMSEG GET NUMBER OF SEGMENTS E CALL GETCON E N ( # LDR A4,A1 SAVE NUMBER OF SEGMENTSS E d P RF(Z) SEG:50 NO SEGMENTS! E " ADK A2,2 FIRST SEGMENT BLOCK E " P LDK A3,1 INIT SEGMENT NUMBER E PSEG:10 EQU
0x06ce40…06cfd4 (0, 138) Dummy {f00=0x0058, f01=0x0190, f02=»OPT GET OPTION WORD E P ANK A1,2 DISC PAGING? F P RF(NZ) SEG:35 YES! F : PSEG:30 EQU * F V * P LDKL A7,/8800 INDICATE LOADED IN CORE F j PSEG:35 EQU * F 2 P ORR A7,A3 INSERT SEGMENT NUMBER IN RIGHT BYTE F STR A7,A12 SET STATUS F $ ADKL A1
0x06cfd4…06d168 Dummy {f00=0x0058, f01=0x0190, f02=»SC PAGING? F RF(Z) SEG:40 G CALL GETCON G * , ( ADR A1,A5 PHYSICAL DISC SECTOR ADDRESS G > PSEG:40 EQU * G n STR A1,A12 SAVE IN SEGBLK G $ ADKL A12,2 NEXT ENTRY IN SEGBLK G ADK A2,2 EFFECTIVE LENGTH G CALL GETCON G STR A
0x06d168…06d2fc Dummy {f00=0x0058, f01=0x018e, f02=» SUK A4,1 DECREMENT NUMBER OF SEGMENTS G RB(P) SEG:10 H . PSEG:50 LD A2,SCTSFA H D P SUK A2,2 H ` PSEG:60 ADK A2,2 H r P CW A2,SCTEFA H P RF(NE) SEG:70 H P LDKL A1,LMP3 H ( P CALL ERROR INDICATE MEMORY OVERFLOW H PSEG:70 CWR A2,A1
0x06d2fc…06d490 Dummy {f00=0x0058, f01=0x0190, f02=» P EJECT I D P*************************************************************** I D P* * I Z D P* * I D P*
0x06d490…06d624 Dummy {f00=0x0058, f01=0x0190, f02=»============================== * I z D P* * J 2 D P* REFERENCED IN: SYSLDM * J z D P* * J D
0x06d624…06d7b8 Dummy {f00=0x0058, f01=0x0190, f02=»* J R D P* EXIT: * K D P* * K R D P* WORK REGISTERS: A1-A12 * K D P*
0x06d7b8…06d94c Dummy {f00=0x0058, f01=0x018e, f02=» - ADDRESS TO S:BTAB PROTOTYPE * K r D P* A10 - SWB BLOCK POINTER * L * D P* A11 - POINTER IN CONF. FILE * L r D P* A12 - ADDRESS TABLE POINTER * L D P*
0x06d94c…06dae0 Dummy {f00=0x0058, f01=0x0190, f02=» D P* * M D P* * M L D P*************************************************************** M P EJECT M PB:SWBT EQU * M & P LD A12,SC
0x06dae0…06dc74 (0, 139) Dummy {f00=0x0058, f01=0x0190, f02=»IN CONF. FILE M h P* N & PBSWT10 CALL NXTBLK GET NEXT BLOCK N ( P CCK A2,'TT' TASK DEFINITION BLOCK? N J P RB(E) BSWT10 YES! N v 0 P CCK A2,'CC' COMMON DEVICE DEFINITION BLOCK? N P RF(NE) BSWT20 NO! N P ADKL A11,1 N " P CALL NXTCOM SKIP COMM
0x06dc74…06de08 Dummy {f00=0x0058, f01=0x0190, f02=» A6,A11 N & P CALL GETNUM NUMBER OF UWB RECORDS O P LDR A1,A5 SAVE O : $ P RF(Z) SWBERR ILLEGAL NUMBER!!! O R ( P ADKL A11,UDBFST-1 FIRST UWB RECORD O z ( PBSWT30 ADKL A11,6 BYPASS UWB RECORD O $ P SUK A1,1 DECR. NUMBER OF TYPES O P RB(P) BSWT30
0x06de08…06df9c Dummy {f00=0x0058, f01=0x018e, f02=» O ~ ( P LDKL A1,0 NO SWB DEFINITION BLOCK! P $ P ST A1,SCTSWB CLEAR SWB POINTER P 4 P RTN A14 P & PBSWT44 ADKL A11,1 NUMBER OF TYPES P l * P ST A11,SAVE23,A13 START OF CONF. DATA P P LDR A6,A11 P P CALL GETNUM GET 3 DIGITS P P LDR A5,A5 ZER
0x06df9c…06e130 Dummy {f00=0x0058, f01=0x018e, f02=» P j P RF(NZ) BSWT48 FILE CREATED Q " PSWBERR LDKL A1,LMP6 SWB ERROR! Q , P CALL ERROR Q R 6 PBSWT48 ST A12,SCTSWB SAVE ADDRESS TO ADDRESS TABLE Q f , P ST A8,SAVE14,A13 SAVE ADDRESS TO $SWAP Q P ADKL A12,2 FIRST POINTER Q P LDR A10,A12 SAVE Q
0x06e130…06e2c4 Dummy {f00=0x0058, f01=0x0190, f02=» Q n P LDR A2,A1 SAVE R , P ADKL A2,S:BTAB DISPL. TO S:BTAB ADDRESS R $ P CALL GETCON GET S:BTAB ADDRESS R P * P LDR A2,A1 GET ADDRESS TO PROT. S:BTAB R x * P RB(Z) SWBERR NO SWB:S IN APPLICATION! R P ADK A1,2 ADDRESS TO NAME R P ST A1,SAVE21,A13
0x06e2c4…06e458 Dummy {f00=0x0058, f01=0x0190, f02=» SUK A1,2 SKIP LENGTH R . PBSWT50 ADKL A10,2 RESERV ENTRY FOR POINTER S 2 P SUK A1,6 DECREMENT LENGTH OF S:BTAB PROTOTYPE S P $ P RB(P) BSWT50 NEXT SWB-PROTOTYPE S P SUK A4,2 SKIP LENGTH WORD S " P LDKL A9,0 RESET BLOCK COUNTER S , PBSWT60 STR A10,A12
0x06e458…06e5ec Dummy {f00=0x0058, f01=0x018e, f02=»B RECORDS S r 0 PBSWT65 LD A2,SAVE21,A13 NAME RECORD IN PROT. T $ P CALL GETCON GET TWO FIRST CHAR. T F ( P ADKL A11,NAMUWB NAME IN CONF. FILE T n P LCR A3,A11 GET FIRST CHAR. T P SLL A3,8 MOVE TO LEFT BYTE T " P LC A3,1,A11 GET SECOND CHAR. T & P
0x06e5ec…06e780 Dummy {f00=0x0058, f01=0x0190, f02=» T r P SRL A1,8 ISOLATE CHAR. U 0 P LC A3,2,A11 GET THIRD CHAR. FROM CONF. FILE U ( P ANK A3,/FF ISOLATE CHAR. U " P CWR A1,A3 THIRD CHAR. EQUAL? U ~ P RF(E) BSWT75 YES! U $ PBSWT70 ADKL A11,NAMUWB SKIP NAME U ( P SUK A7,1 DECREMENT NUMBER OF TYPE
0x06e780…06e914 (0, 140) Dummy {f00=0x0059, f01=0x0190, f02=» U P STR A7,A10 1:ST WORD V P ST A7,2,A10 2:ND WORD V & P ST A7,4,A10 3:RD WORD V D P ST A7,6,A10 4:TH WORD V b P RF BSWT95 V PBSWT75 EQU * V P* V P* MATCHING NAME FOUND V P* V & P ADKL A11,NAMUWB NUMBER OF COPIES V P LDR A
0x06e914…06eaa8 Dummy {f00=0x0059, f01=0x0190, f02=» RESTORE POINTER V $ P SUK A2,UPNAME PROTOTYPE ADDRESS W & P CALL GETCON GET PROTOTYPE ADDRESS W @ P LDR A2,A1 SAVE W j & P SUK A2,UPNAME LENGTH OF WORKBLOCK W P CALL GETCON W * P ST A1,SWBLEN,A10 STORE LENGTH OF SWB W 0 P ST A8,2,A10 STORE DISC AD
0x06eaa8…06ec3c Dummy {f00=0x0059, f01=0x0190, f02=»REMENT SECTOR NUMBER W | & P ADK A1,1 INCREMENT SECTOR COUNTER X " P SUKL A3,400 DECREMENT LENGTH X F P RB(P) BSWT90 MOORE SECTORS? X l P SUK A5,1 MOORE COPIES? X P RB(P) BSWT85 YES! X * P ST A1,SWBSEC,A10 STORE SECTOR LENGTH X ( P CW A8,SAVE25,A1
0x06ec3c…06edd0 Dummy {f00=0x0059, f01=0x018e, f02=»OINTER X ~ & P ADKL A9,1 INCREMENT BLOCK COUNTER Y 4 P LD A2,SAVE21,A13 CURRENT RECORD IN PROT. S:BTAB Y 8 . P ADK A2,UP:REC NEXT RECORD IN PROT. S:BTAB Y p P ST A2,SAVE21,A13 SAVE Y 0 P LD A4,SAVE19,A13 GET LENGTH OF PROT. S:BTAB Y P SUK A4,UP:REC DECRE
0x06edd0…06ef64 Dummy {f00=0x0059, f01=0x0190, f02=» Y P CALL ERROR SWB ERROR! Z 2 PBSWT99 ST* A9,SCTSWB SAVE NUMBER OF SWB TYPES Z & , P ST A10,SCTSFA UPDATE START OF FREE AREA Z P RTN A14 Z P XIF Z EJECT Z * &************************************** Z * &* MONBLK - GENERATE MONITOR BLOCKS
0x06ef64…06f0f8 Dummy {f00=0x0059, f01=0x018e, f02=»N SYSTEM) Z v $ P* WHERE N IS A SYSTEM CONSTANT [ $ P* DEFINED AT SYSTEM GENERATION [ : P* [ b * [ l * REFERENCED IN: SYSLOD [ v * [ * &* ENTRY: SCTSFA - START OF FREE AREA [ ( $* SCTEFA - END OF FREE AREA [ * [ . ** E
0x06f0f8…06f28c Dummy {f00=0x0059, f01=0x018e, f02=» * EJECT PMONBLK EQU * LDK A1,0 0 & ! LD A12,SCTSFA START OF FREE AREA B . P ST A12,FREQUE SAVE POINTER TO FIRST BLOCK l * $ * GET NUMBER OF TASKS IN SYSTEM * ( P LD* A7,SCTTCT GET LENGTH OF TC:TAB P*
0x06f28c…06f420 Dummy {f00=0x0059, f01=0x0190, f02=» x RF(Z) MON:20 NO ] P CALL BLKGEN ] " RB MON:10 ] 6 PMON:20 EQU * ] H * ] * GENERATE 19 MOORE BLOCKS ] f * ] LDK A2,19 ] P CALL BLKGEN ] * ] * GENERATE END BLOCK ] * ] STR A1,A12 ] ST A1,2
0x06f420…06f5b4 (0, 141) Dummy {f00=0x0059, f01=0x0190, f02=» MONITOR BLOCK AS BUFFER ] | P* ^ & P LD A1,BUFSIZ,A13 GET BUFFER SIZE ^ * P CWK A1,6 >6? ^ T $ P RF(NL) MON:30 NOT LESS ANYWAY! ^ j P LDK A1,6 BUFFER SIZE ^ P ST A1,BUFSIZ,A13 STORE ^ & P ST A12,SYSBUF,A13 START OF BUFFER ^ PMON:30 EQU * ^
0x06f5b4…06f748 Dummy {f00=0x0059, f01=0x0190, f02=»DKL A1,LMP3 ^ P CALL ERROR _ PMON:50 CWR A2,A12 _ ( P RB(NE) MON:40 _ B * & ST A12,SCTSFA UPDATE END OF FREE AREA _ X RTN A14 _ EJECT _ * %************************************* _ * %* BLKGEN - GENERATE MONITOR BLOCK * _ * %********
0x06f748…06f8dc Dummy {f00=0x0059, f01=0x0190, f02=»ER OF BLOCKS TO BE GENERATED _ | $ * A12 - NEXT FREE ENTRY ` $ * ` L * EXIT: A1=0 ` V " * A12 - NEXT FREE ENTRY ` l * ` * WORK REGISTES: A3 ` * ` * SUBROUTINES: ` * ` 0 ,* MONITOR BLOC
0x06f8dc…06fa70 Dummy {f00=0x0059, f01=0x0190, f02=» -------------------- ` 0 ,* I DATA 0 I a $ 0 ,* -------------------- a X 0 ,* I DATA 0 I a 0 ,* -------------------- a * a EJECT a
0x06fa70…06fc04 Dummy {f00=0x0059, f01=0x0190, f02=»A12 a ST A1,-2,A12 b SUK A3,1 b " RB BLK:10 b 4 PBLKEX EQU * b F RTN A14 b Z EJECT b j L J************************************************************************ b x J J* B:DWTS - BUILD DWT:S FOR SPECIAL DEVICES AND CONNECT TO TASK
0x06fc04…06fd98 Dummy {f00=0x0059, f01=0x018e, f02=»* b , (* ENTRY: SCTSFA - START OF FREE ARE (X) c 2 P* SAVE01 - START OF SAVE01URATION FILE c : ( #* SCTEFA - END OF FREE AREA c p * c * EXIT: c * c * WORK REGISTERS: A1-A12 c * c < 8* SUBROUTINES: GETTSK,GETTD
0x06fd98…06ff2c Dummy {f00=0x0059, f01=0x0190, f02=» c 2 P LD A11,SAVE01,A13 START OF SAVE01URATION FILE d & ! LD A12,SCTSFA START OF FREE AREA d > * d h 6 2* CHECK IF FIRST BLOCK IS A TASK DEFINITION BLOCK d r * d $ LCR A2,A11 GET FIRST CHARACTER d ( # CCK A2,'TT' TASK DEFINITION BLOCK? d
0x06ff2c…0700c0 Dummy {f00=0x0059, f01=0x0190, f02=» * e , P LD A7,SAVE02,A13 FIRST USER TASK ENTRY e P SUK A7,2 e > EJECT e P PDWTS10 EQU * e ^ * e r . )* GET NUMBER OF TASKS IN THIS TASK CLASS e | * e CALL GETTSK e PDWTS20 EQU * e P ST A1,SAVE19,A13 SAVE e * e * &
0x0700c0…070254 (0, 142) Dummy {f00=0x0059, f01=0x0190, f02=»ADDRESS e z 6 P ADKL A10,TTB:TD+2 TASK SAVE01URATION TABLE ENTRY f * f J 0 ,* INIT SUB-POINTER IN TASK DEFINITION BLOCK f T * f . * LDR A9,A11 START OF TASK DEFINITION BLOCK f , ' ADKL A9,TDBFST START OF TDC DEFINITION f P EJECT f * f
0x070254…0703e8 Dummy {f00=0x0059, f01=0x018e, f02=»WTS40 f P CALL GETCLN GET TDC ID g P ADR A1,A1 g . , P LD A8,SAVE18,A13 GET POINTER TO TCLASS g @ P ADR A8,A1 GET CLASS ENTRY g p $ P LDR* A8,A8 GET POINTER TO CLASS g $ P LDR* A8,A8 GET LENGTH OF CLASS g " P SUKL A8,2 EXCLUDE LENGTH WORD g * P
0x0703e8…07057c Dummy {f00=0x0059, f01=0x0190, f02=» g j P RB DWTS30 h PDWTS40 EQU * h * h . , '* GET NUMBER OF SPECIAL DEVICE CLASSES h 8 * h h CALL GETSDC h r ADKL A9,SDCFST-CDBNC h LDR A1,A1 h PDWTS50 EQU * h P RF(Z) DWTS90 h P ST A1,SAVE17,A13 SAVE h * h * &
0x07057c…070710 Dummy {f00=0x0059, f01=0x0190, f02=» CORRESPONDING SPECIAL DEVICE CLASS IN SCLASS h * i 6 ADR A1,A1 i @ ( P LD A6,SAVE11,A13 POINTER TO SCLASS i R P ADR A6,A1 SELECT ENTRY i ~ $ P LDR* A6,A6 GET POINTER TO CLASS i P LDR A5,A6 SAVE i P LDR* A6,A6 GET LENGTH i " P SUK A6,2 EX
0x070710…0708a4 Dummy {f00=0x0059, f01=0x0190, f02=»ENERATION OF DWT? i ~ P RF(Z) DWTS70 NO j * j 2 * COPY DWT j < * j P LDR A2,A12 TO-ADDRESS j Z , ' ADR A12,A3 UPDATE POINTER TO FREE AREA j x CALL MOVE COPY DWT j P EJECT j P* j 4 P* RELOCATE MONITOR ECB ADDRESS IF MMU IN SY
0x0708a4…070a38 Dummy {f00=0x0059, f01=0x0190, f02=»TOTYPE DWT-ADDRESS j ~ * P SUR A3,A2 COMPUTE RELOCATION CONSTANT k , P LD A4,DWTMEC,A2 GET MONITOR ECB-ADDRESS k H P SUR A4,A3 RELOCATE k x $ P ANKL A4,/FFFE MAKE EVEN ADDRESS k " P ST A4,DWTMEC,A2 STORE IT BACK k PDWTS65 EQU * k $ LDR A1,A2 DT-ADDR
0x070a38…070bcc Dummy {f00=0x0059, f01=0x0190, f02=»DDRESS k x $ LD A1,-2,A5 GET INDEX/FILECODE l STR A1,A10 SAVE IN TTAB l 6 2 P ADKL A10,4 UPDATE TASK SAVE01URATION POINTER l V PDWTS80 EQU * l * % SUK A6,4 DECREMENT NUMBER OF DEVICES l RB(P) DWTS60 NEXT DEVICE l P EJECT l * l 4 /
0x070bcc…070d60 Dummy {f00=0x0059, f01=0x018e, f02=»DWTS50 l PDWTS90 EQU * m * m " 8 P* CHECK IF MOORE TASKS WITH THE SAME SAVE01URATION m , * m h P LD A1,SAVE19,A13 m r SUK A1,1 m RB(P) DWTS20 m * m , (* CHECK IF MOORE TASK DEFINITION BLOCKS m * m CALL NXTBLK m
0x070d60…070ef4 (0, 143) Dummy {f00=0x0059, f01=0x0190, f02=» P CW A2,SCTEFA n P RF(NE) DWTS99 n P LDKL A1,LMP3 n 0 ( P CALL ERROR INDICATE MEMORY OVERFLOW n F PDWTS99 CWR A2,A12 n r P RB(NE) DWTS95 n ST A12,SCTSFA n RTN A14 RETURN n EJECT n 4 0******************************************
0x070ef4…071088 Dummy {f00=0x0059, f01=0x018e, f02=»************************************** n * o . * REFERENCED IN: MONCON o 8 * o X * ENTRY: o b * o t * EXIT: o ~ * o * WORK REGISTERS: A1-A12 o * o D @* SUBROUTINES: ERROR,GETTSK,GETTDC,GETCLN,GETLCN,DWTGEN,NXTBLK o
0x071088…07121c Dummy {f00=0x0059, f01=0x0190, f02=» o P LDK A1,0 p 0 P LDKL A11,BDWT05 GET END OF TEMP. WORK AREA p & P AD A11,M:REL,A13 RELOCATE ADDRESS p N P LDR A7,A11 SAVE p x 2 P SU A7,SCTSFA+2 COMPUTE SIZE OF TEMP WORK AREA p $ P CWK A7,1808 IS AREA BIG ENOUGH? p P RF(L) BDWT02 NO! p , P
0x07121c…0713b0 Dummy {f00=0x0059, f01=0x0190, f02=»NTERRUPT TABLE AT END OF FREE AREA p n * q * PBDWT02 EQU * q 4 ( P LD A11,SCTEFA GET END OF FREE AREA q H ( $ LD A9,SCTSFA GET START OF FREE AREA q t PBDWT05 EQU * q LDK A7,0 RESET WORD COUNTER q PBDWT10 EQU * q CWR A11,A9 MEMORY OVERFLOW?
0x0713b0…071544 Dummy {f00=0x0059, f01=0x0190, f02=»WORDS RESERVED? q RF(E) BDWT20 YES r $ SUKL A11,2 RESERV ANOTHER WORD r 2 P CMR A11 CLEAR MEMORY WORD r Z $ ADK A7,1 INCREMENT WORD COUNTER r | RB BDWT10 r PBDWT20 EQU * r * r 6 2* INIT POINTERS TO THE TEMPORARY INTERRUPT TABLES r
0x071544…0716d8 Dummy {f00=0x0059, f01=0x0190, f02=»2 r PBDWT30 EQU * s , ( STR A11,A7 SAVE INTERRUPT TABLE ADDRESS s & " ADK A7,2 NEXT ADDRESS TABLE ENTRY s N . * ADKL A11,224 NEXT INTERRUPT TABLE ADDRESS s x * % CW A11,SCTEFA ALL POINTERS INTIATED? s RB(NE) BDWT30 NO s * P ST A1,SCTEFA UPDATE E
0x0716d8…07186c Dummy {f00=0x0059, f01=0x0190, f02=» OF FREE AREA s x * t B >* INIT TC:TAB ENTRY POINTER TO POINT AT FIRST USER TASK ENTRY t * t f 0 P LD A5,SAVE02,A13 GET FIRST USER TASK ENTRY t p 6 P ST A5,SAVE13,A13 STORE IN CURRENT USER TASK ENTRY t PBDWT40 EQU * t * t . )* GET NUMBE
0x07186c…071a00 Dummy {f00=0x0059, f01=0x0190, f02=»Y VALUE t t * u @ ;* GET NUMBER OF TERMINAL DEVICE CLASSES IN THIS TASK CLASS u * u ^ CALL GETTDC u h * u | $ * CHECK IF TASK WITHOUT DEVICES u * u $ LDR A1,A1 ANY TERMINAL DEVICES? u RF(Z) BDW100 NO u 6 P ST A1,SAVE15,A1
0x071a00…071b94 (0, 144) Dummy {f00=0x005d, f01=0x0190, f02=» u ^ * v ( #* GET TERMINAL DEVICE CLASS NUMBER v * v > . * LDR A9,A11 START OF TASK DEFINITION BLOCK v H 4 0 ADKL A9,TDBFST TERMINAL DEVICE CLASS DEFINITION v z PBDWT55 EQU * v " CALL GETCLN GET CLASS NUMBER v ( P ST A1,SAVE14,A13 SAVE BINAR
0x071b94…071d28 Dummy {f00=0x005d, f01=0x018e, f02=»TLCN GET LINE CONNECTION NUMBER v LDR A6,A1 SAVE BINARY VALUE w ( . * ADK A1,1 INCREMENT LINE CONNECTION NUMBER w L 4 / CALL BINASC CONVERT INCREMENTED VALUE TO ASCII w ~ , ' SC A5,TDC+4,A9 STORE RIGHT ASCII DIGIT w 2 - SRL A5,8 MOVE LEFT ASCII DIGIT TI
0x071d28…071ebc Dummy {f00=0x005d, f01=0x0190, f02=» * x 2 P LD A2,SAVE14,A13 GET BINARY VALUE OF CLASS ID x ADR A2,A2 2*ID x D ( P LD A7,SAVE18,A13 POINTER TO TCLASS x P ADR A7,A2 GET ENTRY x P* x : P* CHECK IF THIS IS AN ENTRY IN TCLASS -TO BE SUPPLIED x P* x $ P LDR* A7,A7 GET PO
0x071ebc…072050 Dummy {f00=0x005d, f01=0x0190, f02=» , (* A7 - POINTER TO TERMINAL DEVICE CLASS y * y 4 . ** THE ENTRY IN TEMPORARY INTERRUPT TABLE y > . ** IS DERIVED FROM LINE CONNECTION NUMBER, y p : 6* DEVICE ADDRESS AND TYPE OF DEVICE (INPUT OR OUTPUT) y * y CALL DWTGEN y PBDWT90 EQU
0x072050…0721e4 Dummy {f00=0x005d, f01=0x0190, f02=»NO y , P ST A1,SAVE15,A13 SAVE REMAINING NUMBER z $ ADKL A9,TDC+TLC NEXT TDC RECORD z : RB BDWT55 z b PBDW100 EQU * z t 2 P LD A1,SAVE13,A13 GET CURRENT ENTRY IN TC:TAB z & ! ADK A1,2 INCREMENT ENTRY POINTER z P ST A1,SAVE13,A13 SAVE z 8 P L
0x0721e4…072378 Dummy {f00=0x005d, f01=0x0190, f02=»TASK DEFINITION BLOCKS z ~ * { $ CALL NXTBLK SKIP TO NEXT BLOCK { ( ( # CCK A2,'TT' TASK DEFINITION BLOCK? { P RB(E) BDWT40 YES { | * { 0 ,* ALL TERMINAL DEVICE WORK TABLES GENERATED { * { P LD A2,SCTSFA { P SUK A2,2 { PBD
0x072378…07250c Dummy {f00=0x005d, f01=0x0190, f02=»B(NE) BDW105 { , P ST A12,SCTSFA UPDATE START OF FREE AREA | RTN A14 RETURN | D EJECT | , (**************************************** | l , P* B:CDT - BUILD COMMON DEVICE TABLE * | , (**************************************** | * | *
0x07250c…0726a0 Dummy {f00=0x005d, f01=0x018e, f02=» | ` ( $* SCTEFA - END OF FREE AREA } * } 4 4 0* EXIT: CDTAB - POINTER TO COMMON DEVICE TABLE } > * } v * WORK REGISTERS: A1-A12 } * } < P* SUBROUTINES: NXTBLK,GETCTC,GETLCN,GETSDC,GETCLN,MOVE } * } EJECT } PB:CD
0x0726a0…072834 (0, 145) Dummy {f00=0x005d, f01=0x0190, f02=» } x * ~ * %* GET COMMON DEVICE DEFINITION BLOCK ~ * ~ @ PCDG:10 EQU * ~ J CALL NXTBLK ~ ^ ( # CCK A2,'TT' TASK DEFINITION BLOCK? ~ r RB(E) CDG:10 YES ~ ( $ CCK A2,'CC' COMMON DEV. DEF. BLOCK? ~ P RF(NE) BCDTEX NO ~ P EJECT ~
0x072834…0729c8 Dummy {f00=0x005d, f01=0x0190, f02=»* ~ 0 P LDR A9,A11 START OF COMMON DEFINITION BLOCK 6 P ADKL A9,SDCFST NUMBER OF COMMON TERMINAL CLASSES > & P CALL GETCTC GET NUMBER OF C.T.C. x P LDR A6,A1 SAVE " PB:CT10 RF(Z) B:CT30 NO MOORE! . P CALL GETCLN GET CLASS IDENT NUMBER (1-9
0x0729c8…072b5c Dummy {f00=0x005d, f01=0x0190, f02=»SS r P SUK A2,2 EXCLUDE LENGTH & P CWR A1,A2 MAKE SURE CLASS EXISTS * P RF(NG) B:CT20 OK! T P LDKL A1,LMP4 FORMAT ERROR! n P CALL ERROR , PB:CT20 ADR A1,A5 SELECT ENTRY IN TCLASS $ P LDR* A1,A1 GET POINTER TO CLASS $ P LDR* A1,A
0x072b5c…072cf0 Dummy {f00=0x005d, f01=0x0190, f02=»RD IN CONF. FILE v " P SUK A6,1 DECR. NBR OF C.T.C. P RB B:CT10 > P EJECT P PB:CT30 EQU * ^ P* r : P* RESERVE AREA IN COMMON DEVICE TABLE FOR FILE-CODES | 8 P* AND DWT-ADDRESSES USED BY COMMON SPECIAL DEVICES P* CALL GE
0x072cf0…072e84 Dummy {f00=0x005d, f01=0x018e, f02=» , P LD A5,SAVE11,A13 GET POINTER TO SCLASS P LDR* A2,A5 4 P SUK A2,2 H P CWR A1,A2 Z P RF(NG) BCDT15 l P LDKL A1,LMP4 P CALL ERROR PBCDT15 EQU * P ADR A1,A5 SELECT ENTRY $ P LDR* A1,A1 GET POINTER TO CLASS P
0x072e84…073018 Dummy {f00=0x005d, f01=0x0190, f02=» P EJECT P* < P* RESERV ENTRIES IN COMMON DEVICE TABLE FOR FILE-CODES 6 P* AND DWT-ADDRESSES USED FOR PHYSICAL I/O ON DISC ` P* 6 P* ALSO RESERVE ENTRIES IN COMMON DEVICE TABLE FOR @ P* FILE-CODES AND DWT-ADDRESSES USED FOR D
0x073018…0731ac Dummy {f00=0x005d, f01=0x0190, f02=»T DATA COMMUNICATION? " P LD A6,SCTDMT DATA MANAGEMENT P ORR A6,A1 DM OR DC? D " P LD A1,SCTOPT GET OPTION WORD ` $ P ANK A1,/A DISC PAGING OR SWB:S? , P ORR A6,A1 COPY LAST SCLASS IF NOT ZERO P RF(Z) CDG:15 NO! , P LD A6,SAVE11,A1
0x0731ac…073340 Dummy {f00=0x005d, f01=0x018e, f02=»CLASS v * P LDR* A6,A6 GET POINTER TO LAST CLASS ( P LDR* A6,A6 GET LENGTH OF LAST CLASS < " P SUK A6,2 EXCLUDE LENGTH WORD h & P ADR A7,A6 ADD TO LENGTH OF CD:TAB PCDG:15 EQU * , P LD A6,SCTDMC GET NUMBER OF GLOBAL FILES P SLL A6,2 MU
0x073340…0734d4 (0, 146) Dummy {f00=0x005d, f01=0x0190, f02=» EJECT * 6 1* INIT POINTER TO START OF FREE AREA AND TO CDTAB * Z ( P LD A10,SCTCDT FIRST ENTRY IN SCTCDT d $ P LCR A2,A11 COMMON DEVICE BLOCK? P CCK A2,'CC' P RF(E) CDG:18 * P ADKL A10,2 FIRST FREE ENTRY IN CDTAB
0x0734d4…073668 Dummy {f00=0x005d, f01=0x0190, f02=» P* * P LDR A9,A11 START OF COMMON DEF. BLOCK 6 P ADKL A9,SDCFST NUMBER OF COMMON TERMINAL CLASSES < & P CALL GETCTC GET NUMBER OF C.T.C. v , P LDR A1,A1 ANY COMMON TERMINAL CLASSES? PB:CT40 RF(Z) B:CT50 NO! P ST A1,SAVE15,A13 SAVE
0x073668…0737fc Dummy {f00=0x005d, f01=0x0190, f02=»A1 SAVE , P LD A2,SAVE14,A13 GET CLASS IDENT NUMBER & P ADR A2,A2 CONVERT TO DISPLACEMENT @ , P LD A7,SAVE18,A13 GET POINTER TO TCLASS j & P ADR A7,A2 SELECT ENTRY IN TCLASS $ P LDR* A7,A7 GET POINTER TO CLASS . P CALL DWTGEN GENERATE DWT:S
0x0737fc…073990 Dummy {f00=0x005d, f01=0x0190, f02=»T COUNTER ~ P RB B:CT40 . PB:CT50 ADKL A10,2 NEXT FREE ENTRY IN CDTAB $ P EJECT V * d , '* GET NUMBER OF SPECIAL DEVICE CLASSES n * CALL GETSDC ADKL A9,SDCFST-CDBNC P LDR A8,A1 PCDG:20 EQU * P RF(NP)
0x073990…073b24 Dummy {f00=0x005d, f01=0x0190, f02=»ASS IN SCLASS r * ADR A1,A1 T , P LD A6,SAVE11,A13 GET POINTER TO SCLASS 6 PCDG:25 EQU * f P ADR A6,A1 SELECT CLASS z & P LDR* A5,A6 SAVE POINTER TO CLASS $ P LDR* A6,A6 GET POINTER TO CLASS $ P LDR* A6,A6 GET LENGTH OF CL
0x073b24…073cb8 Dummy {f00=0x005d, f01=0x0190, f02=» LD A3,DWTLEN,A1 GENERATION OF DWT? RF(Z) CDG:40 NO , * D * COPY DWT N * b LDR A2,A12 TO-ADDRESS l , ' ADR A12,A3 UPDATE POINTER TO FREE AREA CALL MOVE COPY DWT P* 4 P* RELOCATE MONITOR ECB ADDRESS IF MMU I
0x073cb8…073e4c Dummy {f00=0x005d, f01=0x0190, f02=» PROTOTYPE DWT-ADDRESS * P SUR A3,A2 COMPUTE RELOCATION CONSTANT , P LD A4,DWTMEC,A2 GET MONITOR ECB-ADDRESS L P ANKL A4,/FFFE MAKE IT EVEN! | P SUR A4,A3 RELOCATE " P ST A4,DWTMEC,A2 STORE IT BACK PCDG:35 EQU * " LDR A1,A2 DWT-ADD
0x073e4c…073fe0 Dummy {f00=0x005d, f01=0x0190, f02=»RESS v LD A1,-2,A5 GET FILE CODE STR A1,A10 STORE IN TTAB . $ ADKL A10,4 NEXT ENTRY IN CD:TAB P & " SUK A6,4 DECREMENT DEVICE COUNTER x RB(P) CDG:30 NEXT DEVICE P EJECT * , (* CHECK IF MOORE SPECIAL DEVICE CLASSES
0x073fe0…074174 (0, 147) Dummy {f00=0x005d, f01=0x0190, f02=»CTDMT DATA MANAGEMENT $ P LD A5,SCTDCT DATA COMMUNICATION P ORR A1,A5 DM OR DC? F " P LD A5,SCTOPT GET OPTION WORD b $ P ANK A5,/A DISC PAGING OR SWB:S? , P ORR A1,A5 COPY LAST SCLASS IF NOT ZERO P RF(Z) CDG:EX NO! , P LD A5,SAVE11,
0x074174…074308 Dummy {f00=0x005d, f01=0x0190, f02=»Y x * P LDR* A5,A5 GET POINTER TO LAST CLASS ( P LDR* A6,A5 GET LENGTH OF LAST CLASS 8 " P SUK A6,2 EXCLUDE LENGTH WORD d P RB CDG:30 PCDG:EX EQU * P LD A2,SCTSFA P SUK A2,2 PCDG:50 ADK A2,2 P CW A2,SCTEFA P R
0x074308…07449c Dummy {f00=0x005d, f01=0x0190, f02=»T A12,SCTSFA UPDATE START OF FREE AREA RTN A14 RETURN . EJECT F J F********************************************************************** T H C* DWTGEN - GENERATE DEVICE WORK TABLES FOR A TERMINAL DEVICE CLASS J F**************************
0x07449c…074630 Dummy {f00=0x005d, f01=0x0190, f02=»INTER TO TERMINAL DEVICE CLASS IN TCLASS ~ * &* A6 - LINE CONNECTION NUMBER 0 * ^ * EXIT: h * x * WORK REGISTERS: A1-A8 * * SUBROUTINES: I:CHP,MOVE * EJECT PDWTGEN EQU * 2 P ST A6,SAVE08,
0x074630…0747c4 Dummy {f00=0x005d, f01=0x0190, f02=»RST FILECODE PDWT10 EQU * . ) LD A1,2,A7 GET ADDRESS OF PROTOTYPE DWT ( * Z 4 /* DERIVE CONTENT OF CHANNEL PARAMETER AND ALSO d 8 4* THE ENTRY TO BE USED IN TEMPORARY INTERRUPT TABLE 4 0* FROM LINE CONNECTION NUMBER AND PROTOTYPE DWT
0x0747c4…074958 Dummy {f00=0x005d, f01=0x0190, f02=»TS ENTRY) | * 0 P* SAVE05 HOLDS 2*(NUMBER STORED IN BIS 4-6) 4 P* SAVE06 HOLDS THE NUMBER STORED IN BITS 12-15 P * %* OF THE GENERATED CHANNEL PARAMETER 2 P LD A4,SAVE05,A13 GET SAVED NUMBER IN BITS 4-6 , P LD A3,SCTSFA+2 FIRST INT TA
0x074958…074aec Dummy {f00=0x005d, f01=0x0190, f02=»AMETER v PDWT15 EQU * " RF(Z) DWT17 LINE ENTRY FOUND * ADK A4,28 NEXT LINE P & " SUK A3,1 DECREMENT LINE PARAMETER l RB DWT15 EJECT PDWT17 EQU * 6 P ST A4,SAVE07,A13 SAVE INTERRUPT TABLE LINE ENTRY *
0x074aec…074c80 Dummy {f00=0x005d, f01=0x0190, f02=» DEVICE ADDRESSES 8-14 FOR OUTPUT DEVICES * 2 0 + LDR* A6,A1 GET FIRST WORD OF PROTOTYPE DWT < P LDR A2,A6 SAVE p : 5 ANKL A6,/7100 GET DEVICE ADDRESS AND DEVICE TYPE BIT $ SLC A6,7 CHECK IF INPUT DEVICE P RF(N) DWT20 YES! P
0x074c80…074e14 (0, 148) Dummy {f00=0x00bb, f01=0x0190, f02=»WT20 NO! P SRL A6,2 P ADK A6,12 " RF DWT30 4 PDWT20 EQU * F P SRL A6,2 Z P SUK A6,2 l PDWT30 EQU * ~ ANK A6,/1E * 2 .* CHECK IF DWT ALREADY GENERATED ON THIS LINE * ADR A6,A4 TABLE ENTRY
0x074e14…074fa8 Dummy {f00=0x00bb, f01=0x0190, f02=»T A2,DWTECH,A5 STORE REAL ECHODEVICE-DWTADDRESS , P CM DWTECB,A1 RESET POINTER TO INPUT-DWT 8 P RF DWT70 h P EJECT z P* P* CHECK IF DWT IN DRIVER P* PDWT32 LDKL A2,SYSLOD P TNM A1,A2 P RF(NN) DWT34 P CWR A
0x074fa8…07513c Dummy {f00=0x00bb, f01=0x0190, f02=»T70 PDWT38 EQU * STR A12,A6 SAVE DWT-ADDRESS * D * COPY DEVICE TYPE DWT N * n LDR A2,A12 TO-ADDRESS x P LD A3,DWTOR,A1 LENGTH ADR A12,A3 NEXT FREE ENTRY CALL MOVE P EJECT * $ * A1
0x07513c…0752d0 Dummy {f00=0x00bb, f01=0x0190, f02=»HECK IF INPUT DEVICE * * & LDR* A3,A1 GET FIRST WORD OF TYPE DWT & ANKL A3,/0100 INPUT DEVICE? T RF(Z) DWT50 NO x * * INPUT DEVICE: * CHECK IF KEYBOARD * LD A3,DWTADR,A1 LD A3,DEVIND,A3
0x0752d0…075464 Dummy {f00=0x00bb, f01=0x0190, f02=»F KEYBOARD DWT IN THIRD WORD ~ . )* OF PROTOTYPE DWT OF OUTPUT ECHO DEVICE $ * V P LD A5,DWTECH,A1 ECHO? ` RF(Z) DWT40 NO ~ 6 P AD A5,M:REL,A13 RELOCATE ECHO DEVICE DWT-ADDRESS & P ST A2,4,A5 SAVE INPUT DWT-ADDRESS P EJECT P
0x075464…0755f8 Dummy {f00=0x00bb, f01=0x0190, f02=»,DWTSQ DISPLACEMENT TO START OF BUFFER $ ST A5,DWTSQ-4,A2 STORE POINTER . $ ST A5,DWTSQ-2,A2 STORE POINTER V * ~ * IF DOUBLE KEYBOARD: D @* ADD 1 TO DWT-ADDRESS AND SAVE IT IN TEMPORARY INTERRUPT TABLE 6 2* IN ENTRY CORRESPONDING
0x0755f8…07578c Dummy {f00=0x00bb, f01=0x0190, f02=» DWT60 NOT DOUBLE KEYBOARD $ LDR A5,A2 GET REAL DWT-ADDRESS " ADK A5,1 ADD ONE J 0 , SUK A3,1 DISPLACEMENT=0 IF DEVICE ADDRESS=1 d ADR A3,A3 BYTE DISPLACEMENT . P AD A3,SAVE07,A13 ENTRY IN INTERRUPT TABLE $ STR A5,A3 STORE DEVICE-AD
0x07578c…075920 Dummy {f00=0x00bb, f01=0x0190, f02=» GET CORRESPONDING INPUT DWT-ADDRESS FROM THIRD WORD * IN THE DWT. < 8 3* SAVE ADDRESS OF THIS DWT IN WORD 18 OF INPUT DWT R $ * AND CLEAR WORD 3 OF THIS DWT. * 0 P LD A5,DWTECB,A2 GET THIRD WORD IN REAL DWT ( # RF(Z) DWT60 NOT ECH
0x075920…075ab4 (0, 149) Dummy {f00=0x00bb, f01=0x0190, f02=»DWT60 EQU * * * CHECK IF PAGING * 8 " P LD A5,SCTOPT GET OPTION WORD B P ANK A5,1 MMU PAGING? h RF(Z) DWT70 P EJECT , P LD A5,DWTMEC,A2 GET MONITOR ECB ADDRESS ( P LDR A4,A1 GET PROTOTYPE DWT-ADDRESS * P SUR
0x075ab4…075c48 Dummy {f00=0x00bb, f01=0x0190, f02=»,DWTMEC,A2 STORE IT BACK * < P* PAGING: CHECK IF INTERNAL BUFFER SHOULD BE ALLOCATED * P* j & P LD A5,DWTADR,A2 GET ADDRESS BLOCK t 2 P LD A4,BUFLEN,A5 GET LENGTH OF INTERNAL BUFFER $ P RF(Z) DWT70 ALLOCATE NO BUFFER! * L P*
0x075c48…075ddc Dummy {f00=0x00bb, f01=0x0190, f02=» LDR A3,A12 INTERNAL BUFFER ADDRESS ADK A3,1 , , ( ANKL A3,/FFFE MAKE SURE OF EVEN ADDRESS @ P ST A3,2,A5 SAVE p P LDR A3,A4 GET LENGTH & P ADK A3,3 ADD BO FERMS CONSTANT+1 $ P ANKL A3,/FFFE MAKE LENGTH EVEN P EJECT
0x075ddc…075f70 Dummy {f00=0x00bb, f01=0x018e, f02=»AN STORE THE ADDRESS AND SIZE OF THE , P* INTERNAL BUFFER IN SYSBUF AND BUFSIZ. , * CW A3,BUFSIZ,A13 f RF(NG) DWT65 ST A3,BUFSIZ,A13 P ST A12,SYSBUF,A13 PDWT65 EQU * ADR A12,A3 NEXT FREE ENTRY P EJE
0x075f70…076104 Dummy {f00=0x00bb, f01=0x0190, f02=» " P LDR* A5,A7 GET INDEX/FILECODE * P STR A5,A10 STORE IN TASK CONF. TABLE * " P ADKL A10,2 NEXT ENTRY IN TTAB X " P STR A2,A10 STORE DWT-ADDRESS ~ P* , '* CHECK IF MOORE DEVICES IN THIS CLASS * SUKL A8,4 RF(Z) DWTEX
0x076104…076298 Dummy {f00=0x00bb, f01=0x0190, f02=»DWTEX EQU * RTN A14 RETURN EJECT , * %************************************* : * %* I:CHP - INIT CHANNEL PARAMETER * h * %************************************* * * REFERENCED IN: DWTGEN * , (* ENTRY: A1 -
0x076298…07642c Dummy {f00=0x00bb, f01=0x0190, f02=»- POINTER TO TDC RECORD * & !* EXIT: A5 - CHANNEL PARAMETER * @ P* SAVE05 - SELECTS INTERRUPT TABLE (INTLT1-INTRT4) T 0 P* SAVE06 - SELECTS LINE ENTRY (1-8) * * WORK REGISTERS: A3,A4,A5 * * S
0x07642c…0765c0 Dummy {f00=0x00bb, f01=0x018e, f02=»E CONNECTION NUMBER | 0 + LDR* A5,A1 GET FIRST WOED OF PROTOTYPE DWT ( # ANKL A5,/F1F0 CLEAR BITS TO MODIFY P 2 . LDR A3,A6 GET MODIFIED LINE CONNECTION NUMBER | & " LC A4,TDC+5,A9 CHECK TYPE OF LINE CCK A4,'LL' LOCAL LINE? RF(NE) I:CH
0x0765c0…076754 (0, 150) Dummy {f00=0x00bc, f01=0x0190, f02=» & " ORR A5,A3 MERGE WITH OLD CONTENTS * % LDR A3,A6 GET LINE CONNECTION NUMBER . ANK A3,/18 GET BITS 11-12 SRL A3,2 MOVE TO BITS 13-14 ~ P ST A3,SAVE05,A13 SAVE SRL A3,1 MOVE TO BITS 14-15 & " ORR A5,A3 MERGE WITH OLD CONTENTS
0x076754…0768e8 Dummy {f00=0x00bc, f01=0x0190, f02=»NZ) I:CH10 0 , ANKL A5,/F1FF CLEAR BITS 4-6 (= STORE ZERO) * P ST A3,SAVE06,A13 SAVE ENTRY SELECTOR F RF I:CH50 t PI:CH10 EQU * ANK A3,2 GET BIT 14 RF(NZ) I:CH20 & " ORKL A5,/0800 STORE 4 IN BITS 4-6 LDK A3,4 ENTRY SE
0x0768e8…076a7c Dummy {f00=0x00bc, f01=0x018e, f02=»T 15 RF(NZ) I:CH30 & " ORKL A5,/0200 STORE 1 IN BITS 4-6 " LDK A3,1 ENTRY SELECTOR L P ST A3,SAVE06,A13 SAVE l RF I:CH50 PI:CH30 EQU * & " ORKL A5,/0A00 STORE 5 IN BITS 4-6 LDK A3,5 ENTRY SELECTOR P ST A3,SAVE06,
0x076a7c…076c10 Dummy {f00=0x00bc, f01=0x0190, f02=» . * SUK A3,2 DECREMENT LINE CONNECTION NUMBER RF(N) I:CH70 6 & " ADK A4,1 INCREMENT TABLE SELECTOR L RB I:CH60 v PI:CH70 EQU * ( $ ORR A5,A4 STORE COMPUTED BITS 12-15 SUK A4,4 ANK A4,6 ADK A4,8 P ST A4,SAV
0x076c10…076da4 Dummy {f00=0x00bc, f01=0x0190, f02=»:ITAB - BUILD REAL-TIME INTERRUPT TABLE * 2 .********************************************** 2 * h * REFERENCED IN: DWTGEN r * * &* ENTRY: SCTSFA - START OF FREE AREA * 8 4* EXIT: INTLT1-INTRT4 - REAL TIME INTERRUPT TABL
0x076da4…076f38 Dummy {f00=0x00bc, f01=0x0190, f02=» > P* A4 - LENGTH OF LINE SAVE01URATION TABLE * %* A5 - DEVICE COUNTER F ( #* A6 - LINE COUNTER t 2 P* A7 - DISPLACEMENT IN SAVE21 @ ;* A10- ADDRESS TO TEMPORARY INTERR
0x076f38…0770cc Dummy {f00=0x00bc, f01=0x0190, f02=»INTERRUPT TABLE f * * SUBROUTINES " * 8 P EJECT B PB:ITAB EQU * P 2 - LD A12,SCTSFA INIT POINTER TO FIRST R. I. T. d P LDR A11,A12 $ LDK A7,0 RESET POINTER IN IABAT PBIT10 EQU * P LDK A1,0 P ST A1,SAVE2
0x0770cc…077260 Dummy {f00=0x00bc, f01=0x0190, f02=»Y INTERRUPT TABLE v * P LD A10,SCTSFA+2 $ ADR A10,A7 < LDR* A10,A10 P & P LDK A6,0 RESET LINE ENTRY POINTER f PBIT20 EQU * * 8 P* SAVE POINTER TO START OF LINE SAVE01URATION TABLE F P* IN TEMPORARY AREA AND RESET
0x077260…0773f4 (0, 151) Dummy {f00=0x00bc, f01=0x018e, f02=»LENGTH OF LINE CONF.TABLE * " 0 -* INIT POINTER IN TEMPORARY INTERRUPT TABLE , * &* TO POINT AT LAST INPUT DEVICE ENTRY ` * ADKL A10,12 LDK A5,7 ADKL A11,14 P EJECT * < 9* CHECK INPUT PART OF TEMPORA
0x0773f4…077588 Dummy {f00=0x00bc, f01=0x0190, f02=» RF(NZ) BIT40 YES PBIT35 EQU * , ( SUK A5,1 NO; CHECK IF LAST DEVICE ENTRY 2 RF(Z) BIT50 YES b * z < 7* NO ENTRIES IN THE INPUT DEVICE PART OF THE TEMPORARY 0 +* INTERRUPT TABLE HAS BEEN OCCUPIED SO FAR * . P SUKL
0x077588…07771c Dummy {f00=0x00bc, f01=0x0190, f02=» ENTRY IN THE TEMPORARY INTERRUPT TABLE HAS OCURRED. D @* COPY THE CONTENTS OF THE INPUT DEVICE PART (INCLUDING ZEROES) < H C* OF THE TEMPORARY INTERRUPT TABLE UP TO AND INCLUDING THIS ENTRY. * PBIT40 EQU * * % STR A1,A11 STORE CONTENT
0x07771c…0778b0 Dummy {f00=0x00bc, f01=0x0190, f02=» IN T.I.T. z $ SUKL A11,2 NEXT ENTRY IN R.I.T. * & LDR* A1,A10 GET CONTENT OF NEXT ENTRY : RB BIT40 h EJECT z PBIT50 EQU * * B >* ALL ENTRIES OF THE INPUT DEVICE PART IN TEMPORARY INTERRUPT * TABLE HAS BEEN SCANNED.
0x0778b0…077a44 Dummy {f00=0x00bc, f01=0x0190, f02=»R. z * ADKL A10,14 LDK A5,7 ( * : L G* SCAN ENTRIES IN OUTPUT DEVICE PART OF THE TEMPORARY INTERRUPT TABLE. D $ * -IF AN OCCUPIED ENTRY OCCUR: L P* FIND FIRST UNOCCUPIED ENTRY (CONTENT=ZERO) IN THE LINE SAVE01URATION
0x077a44…077bd8 Dummy {f00=0x00bc, f01=0x0190, f02=» * INCREMENT LENGTH * PBIT70 EQU * * LDR* A1,A10 OCCUPIED ENTRY? > RF(NZ) BIT90 YES b SUK A5,1 LAST ENTRY | RF(Z) BIT120 YES PBIT80 EQU * ADKL A10,2 NEXT ENTRY RB BIT70 PBIT90 EQU *
0x077bd8…077d6c Dummy {f00=0x00bc, f01=0x0190, f02=»IN LINE SAVE01URATION TABLE d * OF REAL INTERRUPT TABLE. $ * H P LDR* A2,A11 R RF(Z) BIT100 f P ADKL A11,2 | RB BIT90 EJECT PBIT100 EQU * * F P* AN UNOCCUPIED ENTRY HAS BEEN FOUND IN LINE SAVE01URATIO
0x077d6c…077f00 Dummy {f00=0x00bc, f01=0x0190, f02=»CONTENT ~ * P LD A1,SAVE23,A13 GET START OF L.C.T. " LDR A3,A11 GET CURRENT ENTRY > P SUR A3,A1 COMPUTE LENGTH d CWR A3,A4 L.C.T. EXTENDED? RF(NG) BIT110 LDR A4,A3 SAVE NEW LENGTH PBIT110 EQU * SUK A5,1 LAST ENT
0x077f00…078094 (0, 152) Dummy {f00=0x00bd, f01=0x0190, f02=»NE J D ?* -IF ANY ENTRY WAS OCCUPIED (LENGTH>0): STORE POINTER TO LINE L P* SAVE01URATION TABLE IN THIS LINE ENTRY AND STORE LENGTH IN FIRST WOR R * " LDR A4,A4 ANY ENTRY OCCUPIED? RF(Z) BIT130 NO , P IM SAVE24,A13 INDICATE DEVICE
0x078094…078228 Dummy {f00=0x00bd, f01=0x018e, f02=»ST WORD OF L.C.T. r LDR A11,A1 START OF L.C.T. . ) ADR A11,A4 LAST OCCUPIED ENTRY IN L.C.T. > ADKL A11,2 NEXT FREE ENTRY p RF BIT140 EJECT PBIT130 EQU * * * NO DEVICES ON THIS LINE. . P* -NO LINE SAVE01
0x078228…0783bc Dummy {f00=0x00bd, f01=0x0190, f02=» r PBIT140 EQU * $ ADKL A10,2 NEXT ENTRY IN T.I.T. $ ADK A6,1 INCREMENT LINE COUNTER D CWK A6,8 ALL LINES SCANNED? l RF(E) BIT150 YES ADKL A12,2 NEXT LINE ENTRY P RB BIT20 PBIT150 EQU * P* 6 P* STORE A
0x0783bc…078550 Dummy {f00=0x00bd, f01=0x0190, f02=»NT? n P RF(Z) BIT155 NO! 2 P LD A1,SAVE21,A13 GET INTERRUPT TABLE ADDRESS & P ST A1,INTLT1,A7 SAVE P RF BIT158 z PBIT155 EQU * . P LD A11,SAVE21,A13 GET START OF FREE AREA PBIT158 EQU * * : 6* ALL LINES OF THIS INT
0x078550…0786e4 Dummy {f00=0x00bd, f01=0x0190, f02=»XT ENTRY IN ITAB CWK A7,16 LAST ENTRY? RF(E) BIT160 YES 6 $ LDR A12,A11 GET NEXT FREE ENTRY P RB BIT10 x PBIT160 EQU * * D @* ALL ENTRIES IN THE TEMPORARY INTERRUPT TABLE HAS BEEN SCANNED < 8* AND ALL THE REAL INTE
0x0786e4…078878 Dummy {f00=0x00bd, f01=0x0190, f02=»CTSFA P SUK A2,2 PBIT165 ADK A2,2 * P CW A2,SCTEFA CHECK IF MEMORY OVERFLOW 8 P RF(NE) BIT170 f P LDKL A1,LMP3 | ( P CALL ERROR INDICATE MEMORY OVERFLOW PBIT170 CWR A2,A11 P RB(NE) BIT165 ( P ST A13,SCTEFA SKIP TEMP.
0x078878…078a0c Dummy {f00=0x00bd, f01=0x0190, f02=»*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*= p 6 1* GENERAL SUBROUTINES * 8 T P*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*= r 8 4**************************************
0x078a0c…078ba0 Dummy {f00=0x00bd, f01=0x0190, f02=»ASSES d P* 8 4**************************************************** * T " P* REFERENCED IN: B:TCT,B:CDT ^ * > :* ENTRY: A11 - POINTER TO START OF TASK DEFINITION BLOCK * F A* EXIT: A1 - NUMBER OF TASKS IN THE TASK C
0x078ba0…078d34 (0, 153) Dummy {f00=0x00bd, f01=0x0190, f02=» PGETCTC EQU * P LC A5,TDBNT,A11 SLL A5,8 0 P LC A5,TDBNT+1,A11 B CALL CONVRT RTN A14 p EJECT 8 4**************************************************** 8 4* GETTDC - GET NUMBER OF TERMINAL DEVICE CLASSES * 8 4**
0x078d34…078ec8 Dummy {f00=0x00bd, f01=0x0190, f02=»O START OF TASK DEFINITION BLOCK v * ( D @* EXIT: A1 - NUMBER OF TERMINAL DEVICE CLASSES (BINRY VALUE) 2 * z * WORK REGISTERS: A5 * * SUBROUTINES: CONVRT * PGETTDC EQU * LC A5,TDBNC,A11 SLL A5,
0x078ec8…07905c Dummy {f00=0x00bd, f01=0x018e, f02=»* ^ 8 3* GETSDC - GET NUMBER OF SPECIAL DEVICE CLASSES * 8 3*************************************************** F * * REFERENCED IN: B:TT * 4 /* ENTRY: A9 - POINTER TO NUMBER OF SDC RECORD * D ?* EXIT: A1 -
0x07905c…0791f0 Dummy {f00=0x00bd, f01=0x0190, f02=» * PGETSDC EQU * LCR A5,A9 " P SLL A5,8 4 LC A5,1,A9 F CALL CONVRT Z RTN A14 n EJECT ~ 2 .********************************************** 2 .* GETCLN - GET CLASS IDENTIFICATION NUMBER * 2 .****************
0x0791f0…079384 Dummy {f00=0x00bd, f01=0x0190, f02=»CORD b * > :* EXIT: A1 - CLASS IDENTIFICATION NUMBER (BINARY VALUE) * X * WORK REGISTERS: A5 b * * SUBROUTINES: CONVRT * PGETCLN EQU * P LC A5,TDCDD1,A9 P SLL A5,8 P LC A5,TDCDD2,A9
0x079384…079518 Dummy {f00=0x00bd, f01=0x0190, f02=»CTION NUMBER * v . )***************************************** * J * REFERENCED IN: B:DWTT T * v 8 3* ENTRY: A9 - POINTER TO CLASS DEFINITION RECORD * : 5* EXIT: A1 - LINE CONNECTION NUMBER (BINARY VALUE) *
0x079518…0796ac Dummy {f00=0x00bd, f01=0x0190, f02=» A5,8 P LC A5,LCND2,A9 P CALL CONVRT & RTN A14 : P IFT CREDIT=1 J P EJECT ` : P***************************************************** n : P* * : P* GETTCL - GET TASK CLASS TO
0x0796ac…079840 Dummy {f00=0x00bd, f01=0x0190, f02=» * f : P* REFERENCED IN: B:TT * : P* * R : P* ENTRY: A5 - TCL IN CURRENT TASK DEF. BLOCK * : P* *
0x079840…0799d4 (0, 154) Dummy {f00=0x00bd, f01=0x0190, f02=»REGISTERS: A1-A7,A10 * : P* * 6 : P* SUBROUTINES: GETTSK,NXTBLK * t : P* * : P************************
0x0799d4…079b68 Dummy {f00=0x00bd, f01=0x0190, f02=»,A11 SAVE POINTER TO CURRENT TASK DEF. BLOCK 2 P LD A11,SAVE01,A13 START OF CONFIGURATION DATA 4 4 PTCL:10 CWR A11,A10 ALL PREVIOUS BLOCKS SCANNED? j P RF(E) TCL:60 YES! . P LC A5,TDBMC+4,A11 GET FIRST CHAR. IN TCL P SLL A5,8 MOVE TO LEFT BYT
0x079b68…079cfc Dummy {f00=0x00bd, f01=0x0190, f02=»R OF COPIES z P ADR A7,A1 INCREMENT TCL 0 PTCL:50 CALL NXTBLK GET NEXT TASK DEF. BLOCK 4 P RB TCL:10 h , PTCL:60 LDR A5,A7 SAVE START VALUE OF TCL z P RTN A14 P XIF EJECT B >****************************************************
0x079cfc…079e90 Dummy {f00=0x00bd, f01=0x018e, f02=»ONVERTED * j * " B >************************************************************** , * r * REFERENCED IN: B:DWTT | * , (* ENTRY: A1 - BINARY NUMBER TO CONVERT * 0 ,* EXIT: A5 - TWO-DIGIT ASCII-CODED
0x079e90…07a024 Dummy {f00=0x00bd, f01=0x0190, f02=» P SLL A5,8 P LCK A5,'00' LDK A2,0 * LDR A1,A1 < PBIN:20 EQU * N RF(Z) BINEX b ADK A2,1 v CWK A2,10 RF(E) BIN:30 SUK A1,1 RB BIN:20 PBIN:30 EQU * ADKL A5,/0100 LDK A2,0
0x07a024…07a1b8 Dummy {f00=0x00bd, f01=0x018e, f02=»***************** x . )* GETCON - GET CONTENT IN MEMORY WORD * . )***************************************** L * ~ * REFERENCED IN: SEGGEN * " * ENTRY: A2 - MEMORY ADDRESS . )* MMUOPT - MMU OPTION SWITCH (X)
0x07a1b8…07a34c Dummy {f00=0x00bd, f01=0x0190, f02=» PGETCON EQU * " P LD A1,SCTOPT GET OPTION WORD P ANK A1,1 MMU OPTION B P RF(Z) GCON10 NO MMU ^ ELR A1,A2 z P RF GCON20 PGCON10 EQU * LDR* A1,A2 PGCON20 EQU * RTN A14 RETURN P EJECT PCONMON E
0x07a34c…07a4e0 Dummy {f00=0x00bd, f01=0x0190, f02=» * D P**************************************************************** " P CALL B:TCT BUILD TASK TABLES 2 P CALL B:DMTT BUILD DATA MANAGEMENT TASK TABLES & P CALL B:TT BUILD USER TASK TABLES P IFT CREDIT=1 $ P CALL SEGGEN BUI
0x07a4e0…07a674 (0, 155) Dummy {f00=0x00bd, f01=0x0190, f02=»MONBLK GENERATE MONITOR BLOCKS 2 P CALL B:DWTS BUILD SPECIAL DEVICE WORK TABLES & 2 P CALL B:DWTT BUILD TERMINAL DEVICE WORK TABLES * P CALL B:CDT BUILD COMMON DEVICE TABLES & P CALL B:ITAB BUILD INTERRUPT TABLE P IFT CREDIT=1 P EJECT
0x07a674…07a808 Dummy {f00=0x00bd, f01=0x0190, f02=»1,'CR' P RF(NE) SLDM70 P* $ : P* STORE OPTION WORD (SCTOPT) IN USER AREA (P:MTAB+34) . P* l " P LD A1,SCTOPT GET OPTION WORD v P ANK A1,1 MMU OPTION? P RF(Z) SLDM50 ( P EL* A1,SCTLAC GET ADDRESS TO P:MTAB " P LD A2,SCTOP
0x07a808…07a99c Dummy {f00=0x00bd, f01=0x0190, f02=»D A2,SCTOPT GET OPTION WORD $ P ST A2,34,A1 STORE IN USER AREA $ PSLDM70 EQU * L P XIF ` P EJECT l F P***************************************************************** z F P* END OF MONITOR SAVE01URATION PART *
0x07a99c…07ab30 Dummy {f00=0x00bd, f01=0x40c2, f02=»********* X P LDKL A8,/FFFF * P ST A8,SCTEFA MODIFY END OF FREE AREA ( P LDR A8,A13 GET BASE-ADDRESS V $ P ADKL A8,SYSLDA START OF SYSLODA z P ABR A8 P END @ P* END OF MONITOR SAVE01URATION PART *
0x07ab30…07acc4 Dummy {f00=0x00bd, f01=0x403c, f02=» 0 P******************************************** @ 8 END OF FREE AREA ( P LDR A8,A13 GET BASE-ADDRESS V $ P ADKL A8,SYSLDA START OF SYSLODA z P ABR A8 P END @ P* END OF MONITOR SAVE01URATION PART *
0x07acc4…07ae58 Dummy {f00=0x00bd, f01=0x2008, f02=» P X ` h p
0x07ae58…07afec Dummy {f00=0x00bd, f01=0x0190, f02=» 0 7 > E L { ~ * & ) T d m v | * & G | J * & e $ | x * & ! * | * & 5 @ K V a l w | * &
0x07afec…07b180 Dummy {f00=0x00bd, f01=0x4088, f02=» C ^ E J J 0 O z [ a $ | 7 @ @ @ } * G Z } J K v 0 } ^ N } r@ } $ | x * & ! * | * & 5 @ K V a l w | * &
0x07b180…07b314 (0, 156) Opaque[0x194]
0x07b314…07b4a8 # DirEnt {nam=»SYSLDA«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0bc0, f03=0x0000}
0x07b314…07b4a8 IdxSect {
0x07b314…07b4a8 f00 = 0x005e // 0x7b314 @0x0
0x07b314…07b4a8 f01 = 0x0054 // 0x7b316 @0x2
0x07b314…07b4a8 gno = [ // 0x7b318 @0x4
0x07b314…07b4a8 [0x00]: C0x005e.0x0.0
0x07b314…07b4a8 [0x01]: C0x005e.0x1.0
0x07b314…07b4a8 [0x02]: C0x005e.0x2.0
0x07b314…07b4a8 [0x03]: C0x005e.0x3.0
0x07b314…07b4a8 [0x04]: C0x005f.0x0.0
0x07b314…07b4a8 [0x05]: C0x005f.0x1.0
0x07b314…07b4a8 [0x06]: C0x005f.0x2.0
0x07b314…07b4a8 [0x07]: C0x005f.0x3.0
0x07b314…07b4a8 [0x08]: C0x0060.0x0.0
0x07b314…07b4a8 [0x09]: C0x0060.0x1.0
0x07b314…07b4a8 [0x0a]: C0x0060.0x2.0
0x07b314…07b4a8 [0x0b]: C0x0060.0x3.0
0x07b314…07b4a8 [0x0c]: C0x0061.0x0.0
0x07b314…07b4a8 [0x0d]: C0x0061.0x1.0
0x07b314…07b4a8 [0x0e]: C0x0061.0x2.0
0x07b314…07b4a8 [0x0f]: C0x0061.0x3.0
0x07b314…07b4a8 [0x10]: C0x0062.0x0.0
0x07b314…07b4a8 [0x11]: C0x0062.0x1.0
0x07b314…07b4a8 [0x12]: C0x0062.0x2.0
0x07b314…07b4a8 [0x13]: C0x0062.0x3.0
0x07b314…07b4a8 [0x14]: C0x0063.0x0.0
0x07b314…07b4a8 [0x15]: C0x0063.0x1.0
0x07b314…07b4a8 [0x16]: C0x0063.0x2.0
0x07b314…07b4a8 [0x17]: C0x0063.0x3.0
0x07b314…07b4a8 [0x18]: C0x0064.0x0.0
0x07b314…07b4a8 [0x19]: C0x0064.0x1.0
0x07b314…07b4a8 [0x1a]: C0x0064.0x2.0
0x07b314…07b4a8 [0x1b]: C0x00be.0x0.0
0x07b314…07b4a8 [0x1c]: C0x00be.0x1.0
0x07b314…07b4a8 [0x1d]: C0x00be.0x2.0
0x07b314…07b4a8 [0x1e]: C0x00bf.0x2.0
0x07b314…07b4a8 [0x1f]: C0x00bf.0x3.0
0x07b314…07b4a8 [0x20]: C0x00c0.0x0.0
0x07b314…07b4a8 [0x21]: C0x00c6.0x1.0
0x07b314…07b4a8 [0x22]: C0x00c6.0x2.0
0x07b314…07b4a8 [0x23]: C0x00c7.0x2.0
0x07b314…07b4a8 [0x24]: C0x00c7.0x3.0
0x07b314…07b4a8 [0x25]: C0x00c8.0x0.0
0x07b314…07b4a8 [0x26]: C0x00c8.0x1.0
0x07b314…07b4a8 [0x27]: C0x00d0.0x1.0
0x07b314…07b4a8 [0x28]: C0x00d0.0x2.0
0x07b314…07b4a8 [0x29]: C0x00d0.0x3.0
0x07b314…07b4a8 ]
0x07b314…07b4a8 }
0x07b4a8…07b63c Dummy {f00=0x005e, f01=0x0190, f02=» 2 P IDENT SYSLDA REL 9.2 79-12-21 870105040920 P : ( P =5,MOVING AREAS>32K DOES NOT WORK B P REL 9.2 79-12-21 ST n . P =4, FAULTY STACK BASE & CWB/UWB BLOCKS P REL 9.1 79-07-17 , P =3, IMPOSSIBLE TO LOAD NON MMU SYSTEM
0x07b63c…07b7d0 Dummy {f00=0x005e, f01=0x0190, f02=»ILIPS TERMINAL SYSTEM PTS P* " > P* SYSLDA = SYSTEM LOAD - APPLICATION CONFIGURATION PART , P* n P* x P* P* P* P* > P********************************************************** P* P* F P* THIS
0x07b7d0…07b964 Dummy {f00=0x005e, f01=0x0190, f02=»* ENTERED AFTER MONITOR CONFIGURATION (PERFORMED BY SYSLDM), AND H P* IS AT THAT TIME LOCATED AT HIGHEST FREE ADDRESS OF SYSTEM AREA. J P* P* ASSEMBLER APPLICATION: J P* NO CONFIGURATION WILL TAKE PLACE. FIRST USER TASK IS ACTIVATED
0x07b964…07baf8 Dummy {f00=0x005e, f01=0x0190, f02=»CREDIT APPLICATION: F P* SYSLDA READS CONFIGURATION FILE (ALREADY IN CORE) AND BUILD B P* SHADOW-TABLES (TABLES CONTAINING NUMBER OF REAL TASKS & f . P* NUMBER OF USER WORK-BLOCK COPIES). H P* SYSLDA THEN MOVES ITSELF TO FOLLOW
0x07baf8…07bc8c Dummy {f00=0x005e, f01=0x0190, f02=»STACK AND TABLES ARE NOW d 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 l H P* MEMORY; ELSE, IF NO MMU, BUFFERS ARE ALLOCATED AFTER MONITOR P*
0x07bc8c…07be20 Dummy {f00=0x005e, f01=0x0190, f02=»'S ARE FILLED. A BRANCH IS FINALLY MADE TO x . P* P F I N I T TO START APPLICATION. 2 P EJECT d P r P*************************** ~ P* * P* ENTRIES AND EXTERNALS * P* *
0x07be20…07bfb4 (0, 157) Dummy {f00=0x005e, f01=0x018e, f02=»LDA P ENTRY REL START OF CODE P ENTRY LDALEN PROGRAM LENGTH , P P P* SUBROUTINE ENTRIES X P ENTRY MOVE t P ENTRY ERROR $ P ENTRY CMPADR COMPARE ADDRESSES 2 P ENTRY NXTBLK SKIP TO NEXT CONFIGURATION BLOCK 4 P ENTRY NXTCOM
0x07bfb4…07c148 Dummy {f00=0x005e, f01=0x0190, f02=» ` P P* SAVE AND WORK AREA ENTRIES " P ENTRY MMTAB WORK-TABLE 1 (MMU 4 6 P ENTRY TABBE ABSOLUTE START ADDRESS OF WORK-TAB 1 Z 4 P ENTRY MMEND ABSOLUTE END ADDRESS OF WORK-TAB 1 2 P ENTRY MMDDIV WORK-TABLE 2 (MM) RELATIVE 'REL' , P ENTRY
0x07c148…07c2dc Dummy {f00=0x005e, f01=0x0190, f02=»!!! d & P ENTRY SAVE01,SAVE12,SAVE03,SAVE04 & P ENTRY SAVE05,SAVE06,SAVE07,SAVE08 6 & P ENTRY SAVE09,SAVE10,SAVE11,SAVE02 ` & P ENTRY SAVE13,SAVE14,SAVE15,SAVE16 & P ENTRY SAVE17,SAVE18,SAVE19,SAVE20 . P ENTRY SAVE21,SAVE22,SAVE23,SAVE24,SAVE25
0x07c2dc…07c470 Dummy {f00=0x005e, f01=0x0190, f02=»RESS TO COMMON PART v P EXTRN SCTTCT TC:TAB ADDRESS P EXTRN SCTSTB A15 STACK-BASE @ " P EXTRN SCTEFA END OF FREE AREA d $ P EXTRN SCTNOS NUMBER OF SEGMENTS " P EXTRN SCTNOP NUMBER OF PAGES P EXTRN SCTPSZ PAGE SIZE P EXTRN SCTMMC =
0x07c470…07c604 Dummy {f00=0x005e, f01=0x0190, f02=»XTRN SCTSWB ADDRESS TO SWB CONTROL BLOCK TABLE P EXTRN SCTBUG BUGGER ADDRESS 6 P Z P* EXTERNAL LABELS b 6 P EXTRN SYSLDM START OF MONITOR CONFIGURATION PART | $ P EXTRN PAGQUE PAGE QUEUE POINTER P P* EXTERNAL SUBROUTINES P EXT
0x07c604…07c798 Dummy {f00=0x005e, f01=0x0190, f02=»TCHER ENTRY ~ P P* , P EXTRN TTB:SA START OF SAVE AREA IN TTAB & P EJECT V P d P l , P*************************************** t , P* CONDITIONAL ASSEMBLY * , P*************************************** P
0x07c798…07c92c Dummy {f00=0x005e, f01=0x0190, f02=»MMUSWB EQU MMUPAG+SWPBLK P PSWBMMU EQU SWPBLK-MMUPAG ( P EJECT H P V P PROGRAM STRUCTURE: ^ P | F P* ------------------------------------------------------- L P* ! RELOCATION ROUTINE
0x07c92c…07cac0 Dummy {f00=0x005e, f01=0x0190, f02=»-------------------------! h F P* ! SAVE & COMMUNICATION AREA. MMU - WORK TABLES ! " F P* !-----------------------------------------------------! l F P* ! SUBROUTINES. -COMMON TO ALL PARTS IN PROGRAM. ! F P*
0x07cac0…07cc54 (0, 158) Dummy {f00=0x005e, f01=0x0190, f02=»T 2.B J F P* ! BUILD REAL TASK-LOCAL DATA AREAS ! F P* ! -QUEUE TASK VIA 'ACTOT' ! X F P* ! -FILL MM-TABLE IN TTAB ! F P* ! -COPY T:A'S AC
0x07cc54…07cde8 Dummy {f00=0x005e, f01=0x0190, f02=»LLOCATE FIXED BUFFERS AND STACK ! F P* ! -UPDATE TID IN T:A AND SAVE TID IN T:AID TABLE ! : F P* ! -START DEBUGGER (IF ANY) AND START APPLICATION ! F P* !----------------------------------------------
0x07cde8…07cf7c Dummy {f00=0x005e, f01=0x0190, f02=»O FOLLOW SYSLDA ! l F P* ! ! & F P* ! C O M D A T ! p F P* ! GENERATE COMMON DATA AREA. PROCESS CWB'S & UWB'S. ! F P*
0x07cf7c…07d110 Dummy {f00=0x005e, f01=0x0190, f02=» N F P* ! ! F P* ! C L A D A T ! R F P* ! BUILD TASK CLASS DATA AREAS. PROCESS CWB'S, UWB'S ! F P* ! AND DWB'S.
0x07d110…07d2a4 Dummy {f00=0x005e, f01=0x0190, f02=»D ! z F P* ! -MOVE D.T. & W.B., COPY UWB'S ! 4 F P* ! -MOVE D.T.'S OF SWB'S AND TWB'S ! ~ F P* ! -SEARCH DBLK-TAB FOR DWB'S. MOVE D.T. AND UPDATE
0x07d2a4…07d438 Dummy {f00=0x005e, f01=0x0190, f02=» ! F P* ! P R O D A T ! F P* ! BUILD PROTOTYPE TASK-LOCAL DATA AREAS. ! ` F P* ! -GENERATE TWB'S AND RESERVE FOR SWB'S ! F P* ! -ALLOC
0x07d438…07d5cc Dummy {f00=0x005e, f01=0x0190, f02=» ! -INCLUDE DDIV-PROTOTYPE & PART 2.A IN FREE AREA. ! F P* ! -CONTINUE IN PART 2.B ! B F P* !-----------------------------------------------------! N P* ! SUBROUTINES
0x07d5cc…07d760 Dummy {f00=0x005e, f01=0x0190, f02=»ON: ! ASSEMBLER APPLICATION: ! r F P* ! READ CUNFIGURATION FILE ! -FILL MM-TABLES IN ! , F P* ! AND BUILD SHADOW-TABLES. ! USER TASK TTAB'S. ! v F P* ! ! -QUEUE 1:ST USER TASK ! F
0x07d760…07d8f4 (0, 159) Dummy {f00=0x005e, f01=0x0190, f02=»-----! T F P* ! REAL TASKS' IS BUILT AT ! F P* ! THE END OF MONITOR. ! X F P* ! U:BTAB: ! F P* ! -A TABLE OF 'N
0x07d8f4…07da88 Dummy {f00=0x005e, f01=0x0190, f02=» ! F P* ! -RELOCATE ALL W.B.-ADDRESSES IN DDIV-PROTOTYPE. ! : F P* ! -REMOVE NOT USED ENTRIES IN T:ATAB ! F P* ! -RELOCATE ADDRESSES IN U:BTAB
0x07da88…07dc1c Dummy {f00=0x005e, f01=0x0190, f02=» ! b F P* ! -CONTINUE IN PART 2.A ! F P* !-----------------------------------------------------! f P EJECT P P ***************** P ***************** P **
0x07dc1c…07ddb0 Dummy {f00=0x005e, f01=0x0190, f02=» P********** P* P:MTAB * P********** . PT:ATAB EQU 0 @ PU:BTAB EQU 2 T PP:BAS EQU 6 SEGMENT BASE h . PT:AID EQU 32 ADDRESS TO 'TABLE OF T:A TID' ( PS:BTAB EQU 40 DISP TO S:BTAB ADDRESS P P P********** P
0x07ddb0…07df44 Dummy {f00=0x005e, f01=0x0190, f02=» 4 PROTOTYPE NAME 8 PUPNUMB EQU 7 SAVE AREA NUMBER OF COPIES (SHADOW-TBL) P* V . PUR:REC EQU 6 RECORD LENGTH IN REAL U:BTAB ` * PURADDR EQU 2 ADDRESS TO FIRST REAL UWB PURNUMB EQU 4 NUMBER OF UWB'S PURLENG EQU 6 LENGTH OF UWB P E
0x07df44…07e0d8 Dummy {f00=0x005e, f01=0x0190, f02=»*********************** P P* TASK DEFINITION BLOCK: , PTDBBT EQU 0 1A BLOCK TYPE L ( PTDBNT EQU TDBBT+1 2N NUMBER OF TASKS n , PTDBID EQU TDBNT+2 6A TASK ID START VALUE , PTDBMC EQU TDBID+6 6A MATCHING TASK CLASS $ PTDBTL EQU TDBM
0x07e0d8…07e26c Dummy {f00=0x005e, f01=0x0190, f02=» $ PTDC EQU 7 TERMINAL DEVICE CLASS PTLC EQU 6 LINE CONNECTION , ( PTDBREC EQU TDC+TLC TDB-RECORD LENGTH N P* z * PSDC EQU 7 SPECIAL DEVICE CLASS-RECORD P* P* COMMON DEVICE DEF. BLOCK: PCDBBT EQU 0 1A BLOCK TYPE 6 PCDBNC
0x07e26c…07e400 Dummy {f00=0x005e, f01=0x018e, f02=»PE DEF. BLOCK | PUDBBT EQU 0 1A BLOCK TYPE , PUDBNU EQU UDBBT+1 3A NUMBER OF UWB TYPES 8 P* h ( PUDBFST EQU UDBNU+3 FIRST UDB-RECORD r PNAMUWB EQU 3 NAME OF UWB " PNUMUBL EQU 3 NUMBER OF BLOCKS . PUDBREC EQU NAMUWB+NUMUBL UDB RECORD-
0x07e400…07e594 (0, 160) Dummy {f00=0x005f, f01=0x0190, f02=» 6 PCSE EQU -14 CURRENT SEGMENT END (HERE: STACKSIZE) $ PCSB EQU -12 CURRENT SEGMENT BASE > 4 PCSN EQU -10 CURRENT SEGMENT NUMBER (HERE LENGTH f 2 P OF ALL DSCB-RECORDS PT:DAD EQU -8 ADDRESS TO T:D * PCIA EQU -6 CURRE
0x07e594…07e728 Dummy {f00=0x005f, f01=0x0190, f02=»D | PPA EQU 0 STACK POINTER PSTKB EQU 2 STACK BASE ( " PWATFST EQU 4 FIRST WAT-ELEMENT F P* l P* DSCB-RECORD: v PDSCBL EQU 20 RECORD LENGTH PBA EQU 2 BUFFER ADDRESS PRL EQU 4 REQ. LENGTH PEL EQU 6 EFF. LENGTH " PBL
0x07e728…07e8bc Dummy {f00=0x005f, f01=0x0190, f02=»0 DISPLACEMENT TO FCB IN T:A , PT:DTID EQU 2 TASK IDENTIFIER (PROTOTYPE) $ , PDATLEN EQU 4 NUMBER OF DATASETS (DSCB'S) T & PWATLEN EQU 6 NUMBER OF WATELEMENTS 0 PTWBMSK EQU 8 MASK FOR TWB'S (ONE BIT/ENTRY) * PSWBMSK EQU 10 MASK FOR SWB'S -"-
0x07e8bc…07ea50 Dummy {f00=0x005f, f01=0x018e, f02=» l P ! . PSTPREC EQU 4 RECORD LENGTH OF START-POINTS ! P ! B P ! J P**************** ! R P* SOP-HANDLING * ! j P**************** ! PSOP EQU /2E DEVICE ADDRESS ! P ! P LAMP CODE MEANING ! P --------- ------- ! PLMP1 EQU
0x07ea50…07ebe4 Dummy {f00=0x005f, f01=0x0190, f02=» PLMP5 EQU /40 TID ERROR " " PLMP6 EQU /20 UWB OR SWB ERROR " " " PLMP7 EQU /10 MM-TABLE OVERFLOW " H PLMP8 EQU 8 " n PLMP9 EQU 4 " PLMP10 EQU 2 " PLMP11 EQU 1 " P EJECT " P********************* " P* OTHER CONSTANTS * " P****
0x07ebe4…07ed78 Dummy {f00=0x005f, f01=0x0190, f02=»QU 4 DISP TO LENGTH OF SWB " P # " $ PFCBDD1 EQU 8 DISP TO FIRST DSET # . $ PFCBDD2 EQU 10 DISP TO 2:ND DSET # V P # ~ $ PSTKSZ EQU 128 DEFAULT STACK-SIZE # P # & PCREID EQU 2 CREDIT IDENTIFICATION # ( PSEGREC EQU 6 RECORD LENGTH IN S:
0x07ed78…07ef0c Dummy {f00=0x005f, f01=0x0190, f02=»D-ADDRESS IN TTAB # x * PTTB:PP EQU 6 SAVE AREA FOR TCL IN TTAB $ P $ H ( PNTPA EQU 4 INTERPRETER START ADDRESS $ P & PIHRTC EQU 4 RTC INTERRUPT ADDRESS $ | $ PRTCDA EQU /1B RTC DEVICE ADDRESS $ P $ F P**********************************************
0x07ef0c…07f0a0 Dummy {f00=0x005f, f01=0x0190, f02=» [REL-ADDRESS] * $ n F P* * % ( F P***************************************************************** % r P % P % P % PCALL FORM 16=/F697,16 % P EJECT %
0x07f0a0…07f234 (0, 161) Dummy {f00=0x005f, f01=0x0190, f02=» ** % 6 P** RELOCATION ROUTINE & STACK INITIALLISATION ** & 6 6 P** ** & p 6 P************************************************** & 6 P************************************
0x07f234…07f3c8 Dummy {f00=0x005f, f01=0x0190, f02=» & P* ADJUST FOR PSW-ROUTINE * ' P************************** ' * 6 P LDK A3,GETPSW RELATIVE ADDRESS TO 'PSWSW-ADDRESS' ' L P ADR A3,A13 ABSOLUT DITO ' 4 P ST A3,PSW,A13 STORE ADDRESS TO 'GETPSW'-ROUTINE ' P* LOAD STACKBASE * ' P****************
0x07f3c8…07f55c Dummy {f00=0x005f, f01=0x0190, f02=»*** ' P* ( P RES 12 ( PSTACKB EQU *-REL-2 ( & P EJECT ( @ P ( N P ( Z P* ADDRESS TO PSW-ROUTINE * ( f P************************** ( P* ( PPSW EQU *-REL ( P DATA GETPSW ( P ( D P******************************
0x07f55c…07f6f0 Dummy {f00=0x005f, f01=0x0190, f02=» PUT PSW IN STACK FOR CALLING SUBROUTINE * ( z D P**************************************************************** ) 2 P ) z PGETPSW EQU *-REL ) $ P STR A2,A14 SAVE A2 ON A14-STACK ) 0 P LD A2,2,A14 GET PSW FROM CALLING SUBROUTINE ) . P ST A2,6,A14 R
0x07f6f0…07f884 Dummy {f00=0x005f, f01=0x0190, f02=»*** ) r & P* * * & P* SUBROUTINE-HANDLER * * 6 & P* * * ` & P********************************* * P * PSUBSUB EQU *-REL * " PSUBBA ST A10,MUL,A13 SAVE A10 * . P LD* A10,4,A14
0x07f884…07fa18 Dummy {f00=0x005f, f01=0x0190, f02=»N * f P STR A10,A14 PUT ON STACK + P LD A10,MUL,A13 RESTORE A10 + , P ABR* A14 + P P + b P + j P + r < P******************************************************* + z < P* JUMP TO SYSLDM (FROM SYSLOD) ALWAYS VIA THIS MODULE * + < P**************
0x07fa18…07fbac Dummy {f00=0x005f, f01=0x0190, f02=»******** + t ( P** ** , ( P** SAVE, AND COMMUNICATION AREA ** , < ( P** ** , h ( P************************************ , P , * PT:ATOD EQU *-REL T:ATAB 'OLD' ADDRESS , P DATA 0 , *
0x07fbac…07fd40 Dummy {f00=0x005f, f01=0x0190, f02=»-REL U:BTAB NEW ADDRESS , P DATA 0 - ( PS:BTOD EQU *-REL S:BTAB OLD ADDRESS - 0 P DATA 0 - ( PS:BTNW EQU *-REL S:BTAB NEW ADDRESS - l P DATA 0 - . PMOVADD EQU *-REL ADDRESS-CHANGE AFTER MOVE - P DATA 0 - 4 PMOVED EQU *-REL INDICATOR IF B
0x07fd40…07fed4 (0, 162) Dummy {f00=0x005f, f01=0x0190, f02=»TADR EQU *-REL LAST ADDRESS WHEN BUILDING DATA PART - P DATA 0 . < @ PFSTADR EQU *-REL FIRST FREE ADDRESS WHEN ALLOCATING BUFFERS . L P DATA 0 . * PNEWAD1 EQU *-REL SAVE FOR W.B. ADDRESS . P DATA 0 . * PNEWAD2 EQU *-REL SAVE FORD.T. ADDRESS .
0x07fed4…080068 Dummy {f00=0x005f, f01=0x0190, f02=»ATA 0 . " PUWB EQU *-REL U.W.B. INDICATOR / P DATA 0 / 4 $ PSAVE01 EQU *-REL TEMPORARY SAVE / D P DATA 0 / l PSAVE02 EQU *-REL / | P DATA 0 / PSAVE03 EQU *-REL / P DATA 0 / PSAVE04 EQU *-REL / P DATA 0 / PSAVE05 EQU *-REL /
0x080068…0801fc Dummy {f00=0x005f, f01=0x0190, f02=» PSAVE09 EQU *-REL SAVE AREAS 0 P DATA 0 0 ( PSAVE10 EQU *-REL 0 8 P DATA 0 0 P PSAVE11 EQU *-REL 0 ` P DATA 0 0 x PSAVE12 EQU *-REL 0 P DATA 0 0 PSAVE13 EQU *-REL 0 P DATA 0 0 PSAVE22 EQU *-REL 0 P DATA 0 0 PSAVE25 E
0x0801fc…080390 Dummy {f00=0x005f, f01=0x0190, f02=» DATA 0 0 & PBIT EQU *-REL SAVE FOR SUPER-LOOP 1 P DATA 0 1 : 8 PTADISP EQU *-REL DISPLACEMENT IN T:A TO W.B. ADDRESS 1 J P DATA 0 1 * PDATEND EQU *-REL END OF DDIV PROTOTYPE 1 P DATA 0 1 ( PMMREL1 EQU *-REL PHYSICALL PAGE BASE 1 P DATA 0
0x080390…080524 Dummy {f00=0x005f, f01=0x0190, f02=» & PBUFSIZ EQU *-REL TEMP. BUFFER SIZE 2 P DATA 0 2 . " PMMTO EQU *-REL MMTABLE ADDRESS 2 > P DATA 0 2 d * PMMFROM EQU *-REL 2:ND MMTABLE ADDRESS 2 t P DATA 0 2 0 PFYSPAG EQU *-REL LAST PHYSICALLY PAGE NUMBER 2 P DATA 0 2 PFSTPAG EQU *-REL 2
0x080524…0806b8 Dummy {f00=0x005f, f01=0x0190, f02=»ATA LDAEND-REL 2 PXMSAV EQU *-REL 3 P DATA 0,0 3 . P 3 @ P 3 H P 3 P P 3 X & P********************************* 3 ` & P* EQUATES FOR SYSLDM SAVE-WORDS * 3 & P********************************* 3 P 3 PSAVE14 EQU U:BTOD 3 PSAVE15 E
0x0806b8…08084c Dummy {f00=0x005f, f01=0x0190, f02=»ED 3 PSAVE21 EQU NEWAD1 4 PSAVE23 EQU SWITCH 4 $ PSAVE24 EQU FLAG 4 > P EJECT 4 V P 4 d P* MMU TABLES * 4 l P 4 P 4 . PMMDDIV EQU *-REL DDIV (& SYSLDA) MM-TABLE 4 P IFT MMUPAG=1 4 P RES 16 4 P XIF 4 P 4 $ PMMTAB EQU
0x08084c…0809e0 Dummy {f00=0x005f, f01=0x0190, f02=» 4 PMMEND EQU * 5 4 PTTPAG DATA 0 LAST ENTRY (FROM BOTTOM) IN MM-TAB 5 P 5 T PMMBEG EQU TABBE-* 5 0 PLSTPAG EQU TTPAG-* DISPL. TO 'ENTRY-POINTER' 5 v P EJECT 5 P 5 6 P*** *** 5 6 P*** S
0x0809e0…080b74 (0, 163) Dummy {f00=0x005f, f01=0x0190, f02=» *** 5 r 6 P************************************************* 6 6 P************************************************* 6 V P 6 P 6 , P** E R R O R ** 6 , P** ** 6 , P
0x080b74…080d08 Dummy {f00=0x005f, f01=0x0190, f02=» 6 h , P** INPUT :A1=SOP-MESSAGE ** 7 , P** OUTPUT:A2=RELATIVE CALLING ADDRESS** 7 8 , P** (REG-CONTENTS IS SAVED) ** 7 h , P**************************************** 7 P 7 PERROR EQU * 7 P ST A2,SAVE01,A13 SAVE A2 7 . P L
0x080d08…080e9c Dummy {f00=0x005f, f01=0x0190, f02=»NG PURPOS) 7 | P EJECT 8 P 8 & P** M O V E ** 8 ( & P** ** 8 R & P** ** 8 | & P** MOVE BLOCKS INSIDE MEMORY ** 8 & P** ** 8 & P** INPUT:A1=F
0x080e9c…081030 Dummy {f00=0x005f, f01=0x0190, f02=» ** 8 x & P** WORK-REG: A4 ** 9 & P********************************* 9 < P 9 f PMOVE EQU * 9 r $ PMOVES ADR A1,A3 END OF FROM AREA 9 P ADR A2,A3 END OF TO-AREA 9 & P LD A4,SCTEFA GET END OF FREE AREA 9 P TNM A2,A4 EQUAL
0x081030…0811c4 Dummy {f00=0x005f, f01=0x0190, f02=» SIGN 9 n 8 PMOVCK RF(NG) MOVE10 END OF TO-AREA<=END OF FREE AREA : P LDKL A1,LMP3 : J ( P CALL ERROR INDICATE MEMORY OVERFLOW : ` PMOVE10 SUK A3,1 DEC LENGTH : P RF(N) MOVE20 ALL DONE : P SUK A1,1 : P SUK A2,1 : P LCR A4,A1 GET CHARACTER
0x0811c4…081358 Dummy {f00=0x005f, f01=0x0190, f02=» : 4 P** M O V I N G ** ; 4 P** ** ; D 4 P** ** ; | 4 P** USES ROUTINE 'MOVE' ABOVE. TO-ADDRESS IS ** ; 4 P** ASSUMED TO BE DATA-PART
0x081358…0814ec Dummy {f00=0x005f, f01=0x0190, f02=» 4 P** ** < 4 P** INPUT:A3 & A1 AS IN 'MOVE' ** < < 4 P** OUTPUT: A2=TO-ADDRESS (LSTADR UPDATED) ** < t 4 P** WORK-REG: A4 ** < 4 P************************************
0x0814ec…081680 Dummy {f00=0x005f, f01=0x0190, f02=»FE MAKE EVEN ADDRESS < P ST A11,SAVE01,A13 SAVE A11 = P ST A9,SAVE12,A13 SAVE A9 = @ P LDR A11,A2 = b * P LD A9,DATEND,A13 END OF PROTOTYP AREA = v " P CALL CMPADR COMPARE ADDRESSES = P RF(NL) MOV020 = ( PMOV010 LDKL A1,LMP3 MEMORY OVERFLOW =
0x081680…081814 (0, 164) Dummy {f00=0x0060, f01=0x0190, f02=»A13 NEW ADDRESS = ( P LD A9,SAVE12,A13 RESTORE REGISTERS > P LD A11,SAVE01,A13 > D P RB MOVES > ^ P XIF > p P IFT CREDIT+MMUPAG=2 > | P EJECT > > 4 P** X M O V E ** > 4 P**
0x081814…0819a8 Dummy {f00=0x0060, f01=0x0190, f02=» TWO PHASES:-MOVE TO SYSTEM AREA (BUFBEG) ** > 4 P** -MOVE TO USER AREA ** ? 6 4 P** IF 'BUFSIZ' (TEMPORARY MOVE-BUFFER) IS NOT** ? n 4 P** BIG ENOUGH THE MOVE IS REPEATED ** ? 4 P**
0x0819a8…081b3c Dummy {f00=0x0060, f01=0x0190, f02=» A3=LENGTH (IN BYTES) ** ? 4 P** WORK.REGS:A4,A10 ** @ . 4 P************************************************ @ f P @ PXMOVE EQU * @ P ST A1,SAVE09,A13 @ P ST A1,SAVE07,A13 @ P ST A2,SAVE10,A13 @ P
0x081b3c…081cd0 Dummy {f00=0x0060, f01=0x018e, f02=» PXMOV05 EQU * A LDR A10,A3 SAVE LENGTH A , ( LDK A4,0 RESET 'NUMBER-OF-MOVE' COUNTER A 8 * P LDR A11,A3 GET LENGTH OF AREA TO MOVE A h 0 P LD A9,BUFSIZ,A13 GET TEMPORARY BUFFER SIZE A P CALL CMPADR COMPARE A " RF(G) SPLIT NO! SEVERAL MOVE A
0x081cd0…081e64 Dummy {f00=0x0060, f01=0x0190, f02=» $ P TL* MMFROM,A13 LOAD FROM-TABLE B , ( MVUS A3 MOVE DATA-BLOCK TO TEMP. BUFFER B , 0 P ST A1,SAVE09,A13 SAVE END OF 'FROM' ADDRESS B P LD A1,SYSBUF,A13 B 0 P LD A2,SAVE08,A13 GET START OF 'TO' ADDRESS B LDR A3,A10 GET LENGTH B P TL* MMTO,A1
0x081e64…081ff8 Dummy {f00=0x0060, f01=0x0190, f02=» A2,A10 B 0 P ST A2,SAVE08,A13 SAVE START OF 'TO' ADDRESS C * P LD A3,SAVE11,A13 GET REQUESTED LENGTH C D $ SUR A3,A10 SUBTRACT MOVED PART C r P ST A3,SAVE11,A13 SAVE C P CWR A3,A10 C P RB(NL) XMOV10 C P LDR A10,A3 LAST LENGTH C P RB XM
0x081ff8…08218c Dummy {f00=0x0060, f01=0x0190, f02=»ND DIVIDE C 2 P LDR A4,A2 GET QUOTIENT (=NUMBER OF MOVES - 1) D & " LD A10,BUFSIZ,A13 MOVE MAX LENGTH D H P RB XMOV10 D r D 0 PXMOV30 LD A2,SAVE10,A13 RESTORE 'TO-ADDRESS' D , P LD A1,SAVE07,A13 RESTORE 'FROM-ADDRESS' D P LD A9,XMSAV,A13 RESTORE
0x08218c…082320 Dummy {f00=0x0060, f01=0x018e, f02=»* D b 4 P** ** E 4 P** ** E B 4 P** USES SUBROUTINE 'XMOVE' TO MOVE A BLOCK ** E z 4 P** VIA TWO MM-TABLES.PHYSICALL TO-ADDRESS ** E 4 P** IS ALWAYS ASSUMED TO BE DA
0x082320…0824b4 (0, 165) Dummy {f00=0x0060, f01=0x0190, f02=» 4 P** IS UPDATED AND CHECKED. ** F 4 P** ** F < 4 P** INPUT :A1 & A3 AS IN 'XMOVE' ** F t 4 P** TTAB=POINTER TO TTAB (OR LIKELY) ** F 4 P** OUTPUT:A2=LOGICALL TO-ADDRESS
0x0824b4…082648 Dummy {f00=0x0060, f01=0x0190, f02=» PMOVING EQU * G P ST A11,SAVE01,A13 SAVE A11 G P ST A9,SAVE12,A13 SAVE A9 G < . ) LD A4,FYSPAG,A13 GET ACT. PHYSICALL PAGE G ^ & P LD A10,TTAB,A13 LOAD TTAB-ADDRESS G 2 . LD A2,LSTPAG,A10 GET LAST TABLE-ENTRY IN TTAB G " LDR* A9,A2 GET PAGE IN
0x082648…0827dc Dummy {f00=0x0060, f01=0x0190, f02=»TTAB' G t $ P CALL SETTAB NEW PAGE IN TABLE! H 6 PMOV010 LD A11,LSTADR,A13 GET LAST LOGICALL ADDRESS H 6 ANKL A11,/FFF H p * P LDR A9,A3 GET LENGTH OF AREA TO MOVE H 0 P CALL CMPADR ENOUGTH SPACE IN CURRENT PAGE? H P RF(NL) MOV020 YES H 0 P SUR A
0x0827dc…082970 Dummy {f00=0x0060, f01=0x0190, f02=» PHYSICAL PAGE INCREMENT H P RB MOV015 I 6 PMOV020 SUR A11,A3 COMPUTE DISPLACEMENT WITHIN PAGE I 2 PMOV025 RF(NN) MOV050 I l * PMOV030 CALL SETTAB NEW PAGE IN TABLE! I & ! ADKL A11,4096 NEW PAGE INCREMENT I ( P RB(N) MOV030 NOT ENOUGH. NEW PAGE! I
0x082970…082b04 Dummy {f00=0x0060, f01=0x0190, f02=»A2=CURRENT ENTRY IN MM-TABLE I J $ PMOV050 EQU * J , , ( ST A2,LSTPAG,A10 SAVE MMU-ENTRY IN TTAB J @ 0 , ST A4,FYSPAG,A13 SAVE PHYSICALL PAGE NUMBER J p 4 P LDKL A4,MMBEG CALCULATE TABLE ENTRY DISPLACEM. J & " ADR A4,A10 ABSOLUTE ENTRY ADDRESS J & P S
0x082b04…082c98 Dummy {f00=0x0060, f01=0x0190, f02=»2,A11 GET DISPLACEM. WITHIN PAGE J P ANKL A2,/FFFE EVEN ADDRESS K ( , ' ST A2,LSTADR,A13 SAVE LOGICALL ADDRESS K L P* CHECK ADDRESSES * K | P K * P LD A9,FSTPAG,A13 GET FIRST FREE PAGE K P ST A11,SAVE07,A13 SAVE A11 K P LD A11,FYSPAG,A13 K
0x082c98…082e2c Dummy {f00=0x0060, f01=0x0190, f02=»,FSTADR,A13 K P CALL CMPADR L P RF(NL) MOV090 OK! L ( PMOV070 LDKL A1,LMP3 L B P CALL ERROR L ^ PMOV090 EQU * L r P CALL XMOVE MOVE L P LD A9,SAVE12,A13 L ( P LD A11,SAVE01,A13 RESTORE REGISTERS L $ P TL* MMFROM,A13 RESTORE MM-TABLE L
0x082e2c…082fc0 Dummy {f00=0x0060, f01=0x0190, f02=» ** L l 6 P** ** M 6 P** SET NEW PAGE IN MM-TABLE & CHECK IF TABLE ** M P 6 P** OVERFLOW. ** M 6 P** ** M 6 P** INPUT
0x082fc0…083154 (0, 166) Dummy {f00=0x0060, f01=0x0190, f02=» ** M r 6 P** WORK.REG: A9 ** N 6 P************************************************* N V P N PSETTAB EQU * N SUKL A4,/400 GET NEXT PAGE N SUK A2,2 GET NEXT ENTRY N P N " P* CHECK IF MM-TA
0x083154…0832e8 Dummy {f00=0x0060, f01=0x0190, f02=»F(NN) SETT00 N P CWR A9,A2 O P RF SETT05 O & PSETT00 CWR A2,A9 OVERFLOW? O 8 PSETT05 RF(NL) SETT10 NO O Z P LDK A1,LMP7 O z P CALL ERROR O PSETT10 EQU * O STR A4,A2 STORE IN TABLE O RTN A14 O P XIF O P IFF CREDIT=0 O
0x0832e8…08347c Dummy {f00=0x0060, f01=0x0190, f02=» 4 P** ** P 4 P** GET WORK BLOCK ADDRESS AND DISPLACE- ** P < 4 P** MENT IN T:A ** P t 4 P** ** P 4 P** INPUT : A8= POINTER TO T:A-ADD I
0x08347c…083610 Dummy {f00=0x0060, f01=0x0190, f02=» TADISP=A4 ** P 4 P** A11=W.B.-ADDRESS ** Q 4 4 P** WBADD=POINTER TO W.B.-ADD IN T:A ** Q l 4 P*********************************************** Q P Q PGETWB EQU * Q " P LD A4,BIT,A
0x083610…0837a4 Dummy {f00=0x0060, f01=0x0190, f02=»FT CREDIT-MMUPAG=1 Q P LDR* A11,A8 GET T:A-ADDRESS R P ADR A11,A4 ADD DISPLACEMENT R > P ST A11,WBADD,A13 SAVE R b " P LDR* A11,A11 GET W.B.-ADDRESS R P XIF R P IFT CREDIT+MMUPAG=2 R 0 P LD A11,FLAG,A13 REAL TASK-DATA PROCESSING? R P RF(Z)
0x0837a4…083938 Dummy {f00=0x0060, f01=0x0190, f02=»T A11,WBADD,A13 SAVE R " P ELR A11,A11 GET W.B.-ADDRESS S & P TL* MMFROM,A13 RELOAD FROM-TABLE S B P XIF S l P IFF CREDIT=0 S x P RTN A14 S P EJECT S P S P S 8 P** M O V W B ** S 8 P**
0x083938…083acc Dummy {f00=0x0060, f01=0x0190, f02=».-ADDRESS IS UPDATED ** S x 8 P** ** T $ 8 P** INPUT: A11=W.B.-ADDRESS ** T ` 8 P** OUTPUT: 'WBADD'=POINTER TO MOVED W.B.ADDRESS ** T 8 P** WORK-REGS: A1-A4
0x083acc…083c60 Dummy {f00=0x0060, f01=0x0190, f02=» ADKL A1,WBLEN FROM-ADDRESS T P IFT CREDIT-MMUPAG=1 U $ P LDR* A3,A1 LENGTH U @ P CALL MOVING U Z 6 P SUKL A2,WBLEN ADJUST TO-ADDRESS FOR DISPLACEMENT U n 4 P ST* A2,WBADD,A13 UPDATE W.B.-ADDRESS AFTER MOVE U P XIF U P IFT CREDIT+MMUPAG=2 U P
0x083c60…083df4 (0, 167) Dummy {f00=0x0060, f01=0x0190, f02=»ROCESSING? U p P RF(Z) MOVW10 NO! V P TL* MMTO,A13 LOAD TO-TABLE V , : PMOVW10 ES* A2,WBADD,A13 UPDATE W.B.-ADDRESS AFTER MOVE V P & P TL* MMFROM,A13 RELOAD FROM-TABLE V P XIF V P IFF CREDIT=0 V P RTN A14 V P EJECT V P V P
0x083df4…083f88 Dummy {f00=0x0060, f01=0x0190, f02=» ** V : P** MOVE DISCRIPTOR TABLE. D.T.-ADDRESS IS UPDATED ** W : : P** ** W x : P** INPUT :WBADD POINTS TO W.B.-ADDRESS IN T:A ** W : P** OUTPUT: A3=POINT
0x083f88…08411c Dummy {f00=0x0060, f01=0x0190, f02=»********************* W p P X PMOVDT EQU * X * 6 P LD A1,WBADD,A13 GET POINTER TO W.B-ADDRESS IN WAT X > & P SUK A1,2 POINTER TO D.T.-ADDRESS X x P IFT CREDIT-MMUPAG=1 X P LDR* A1,A1 D.T.-ADDRESS X * P ADKL A1,DTLEN ADJUST FOR LENGTH WORD X
0x08411c…0842b0 Dummy {f00=0x0060, f01=0x018e, f02=»A1,DTLEN X 4 P ST A2,-2,A3 UPDATE D.T-ADDRESS. A2=NEW ADDRESS Y P XIF Y H P IFT CREDIT+MMUPAG=2 Y T P ELR A1,A1 D.T.-ADDRESS Y p * P ADKL A1,DTLEN ADJUST FOR LENGTH WORD Y P AD A1,MOVADD,A13 RELOCATE Y P ELR A3,A1 LENGTH Y P CALL MOVING Y
0x0842b0…084444 Dummy {f00=0x0060, f01=0x0190, f02=» Y P IFF CREDIT=0 Z P RTN A14 Z P EJECT Z . P Z < < P** M O V D W B ** Z H < P** ** Z < P** ** Z < P
0x084444…0845d8 Dummy {f00=0x0060, f01=0x0190, f02=» ** Z < P** INPUT : A12=T:D-ADDRESS ** [ 8 < P** A8= POINTER TO T:A-ADDRESS ** [ x < P** BIT=BIT NUMBER SAT IN DWBMSK ( 0-15 ) ** [ < P** WORK.REGS: A
0x0845d8…08476c Dummy {f00=0x0060, f01=0x0190, f02=» [ P ST A6,SAVE05,A13 SAVE A5 P LDK A6,0 * ( PMOVD10 LD A4,BIT,A13 GET BIT NUMBER < " P ADK A4,1 FIRST WAT-ELEMENT =1 h P IFT CREDIT-MMUPAG=1 P LD A2,WATLEN,A12 P XIF P IFT CREDIT+MMUPAG=2 P EL A2,WATLEN,A12 P X
0x08476c…084900 Dummy {f00=0x0060, f01=0x018e, f02=» r P SUK A2,1 ALL? ] P RF(N) MOVD60 YES! ] P IFT CREDIT-MMUPAG=1 ] 8 " P CC A4,DWBFST,A6 SHARED W.B.? ] T P XIF ] z P IFT CREDIT+MMUPAG=2 ] * P EL A10,DWBFST,A6 CHECK IF SHARED W.B. ] " P SRC A6,1 RIGHT OR LEFT BYTE? ] P RF(N) MOVD30 RIGH
0x084900…084a94 (0, 168) Dummy {f00=0x0061, f01=0x0190, f02=» P CWR A4,A10 SHARED W.B.? ^ P XIF ^ $ P IFF CREDIT=0 ^ 0 P RB(NE) MOVD20 NO! ^ F P* DWB FOUND * ^ ` , P NGR A4,A2 CALCULATE DISPLACEMENT IN T:A ^ v P IFT CREDIT-MMUPAG=1 ^ P AD A4,WATLEN,A12 ^ P XIF ^ P IFT CREDIT+MMUPAG=2 ^ P EL
0x084a94…084c28 Dummy {f00=0x0061, f01=0x0190, f02=»4,2 ^ P ADK A4,WATFST+2 _ * P LD A3,NEWAD2,A13 GET NEW W.B.-ADDRESS _ $ P IFT CREDIT-MMUPAG=1 _ R 2 P ADR* A4,A8 A4=POINTER TO W.B.-ADDRESS IN T:A _ n " P STR A3,A4 CHANGE W.B.-ADDRESS _ P XIF _ P IFT CREDIT+MMUPAG=2 _ . P LD A2,FLAG,A13 REAL D
0x084c28…084dbc Dummy {f00=0x0061, f01=0x018e, f02=»W.B.-ADDR IN T:A _ v P ADR A4,A10 ` " P ESR A3,A4 CHANGE W.B.-ADDRESS ` , & P TL* MMFROM,A13 RELOAD FROM-TABLE ` R P XIF ` | P IFF CREDIT=0 ` P ST A4,WBADD,A13 ` . P LD A2,SWITCH,A13 WB-ADDRESS CHANGE ONLY? ` P RB(NZ) MOVD10 YES! ` P CAL
0x084dbc…084f50 Dummy {f00=0x0061, f01=0x0190, f02=» P a 4 P** T W B S W B ** a 4 P** ** a D 4 P** COPY TWB'S AND RESERVE SPACE FOR SWB'S ** a | 4 P** ** a 4 P** INPUT : A8=ACTUAL T:A-AD
0x084f50…0850e4 Dummy {f00=0x0061, f01=0x0190, f02=» 4 P************************************************ b P b < PTWBSWB EQU * b D P ST A7,SAVE04,A13 SAVE A7 b X " P LD A7,TWBMSK,A12 GET TWB MASK b z P IFT CREDIT+MMUPAG=2 b " P EL A7,TWBMSK,A12 GET TWB MASK b P XIF b P IFF CREDIT=0 b P CAL
0x0850e4…085278 Dummy {f00=0x0061, f01=0x0190, f02=» & P CALL MOVDWB CHANGE DWB-ADDRESSES c P CALL SKIFTA c . P RB TWSW10 c B PTWSW20 EQU * c T P IFT CREDIT+SWPBLK=2 c h P EJECT c P c P c P* RESERVE SPACE FOR SWB'S * c P*************************** c P XIF c P IFT CREDI
0x085278…08540c Dummy {f00=0x0061, f01=0x0190, f02=»PBLK=2 c P CALL SHIFT d PTWSW30 RF(Z) TARZAN ALL DONE d " P CALL GETWB d F P CALL MOVWB RESERVE SPACE d Z ( P ST A2,NEWAD2,A13 SAVE W.B.-ADDRESS d | & P CALL MOVDWB CHANGE DWB- ADDRESSES d P CALL SKIFTA d P RB TWSW30 d PTARZAN EQU * d
0x08540c…0855a0 Dummy {f00=0x0061, f01=0x0190, f02=» A L L B U F ** d 4 P** ** e ( 4 P** ALLOCATE FIXED DATA SET BUFFERS AND ** e ` 4 P** TERMINAL STACK ** e 4 P** ** e 4 P
0x0855a0…085734 (0, 169) Dummy {f00=0x0061, f01=0x0190, f02=»=LENGTH OF DSCB'S ** e x 4 P** CIA (IN T:A)=DISPL. TO T:A-START ** f 4 P** CSE (IN T:A)=STACKSIZE ** f X 4 P** WORK-REGS. :A1-A4,A9,A11 ** f 4 P************************************************ f P f P
0x085734…0858c8 Dummy {f00=0x0061, f01=0x0190, f02=»D A3,CSN,A1 GET DSCB TOTAL LENGTH f P RF(Z) ALLB70 NO DSCB'S g * . P ADKL A1,T:ASTA CALC START OF DSCB RECORDS g J " P LDR A10,A1 SAVE START ADDRESS g | P XIF g P IFT CREDIT+MMUPAG=2 g P ELR A1,A8 GET T:A-ADDRESS g ( P EL A3,CSN,A1 GET DSCB TOTAL
0x0858c8…085a5c Dummy {f00=0x0061, f01=0x0190, f02=»IF g P IFF CREDIT=0 h P SUR A3,A1 h P NGR A3,A3 h 2 P SUK A3,DSCBL END CONDITION h D : P ST A3,SAVE04,A13 SAVE ADDRESS TO END OF DSCB-RECORDS h h : PALLB10 SUK A1,DSCBL A1=FIRST WORD IN FIRST DSCB-RECORD h P CW A1,SAVE04,A13 ALL? h P RF(E)
0x085a5c…085bf0 Dummy {f00=0x0061, f01=0x0190, f02=» NO! h P ST A9,BA,A1 BUFFER START i P LD A3,RL,A1 BUFFER LENGTH i . P ST A3,BL,A1 i P P LD A2,EL,A1 SHARED BUFFER? i d P RF(Z) NOTSH NO! i & P LDR A4,A1 RESTORE START OF DSCB'S i P XIF i P IFT CREDIT+MMUPAG=2 i $ P ELR A3,A1 GET FIRST W
0x085bf0…085d84 Dummy {f00=0x0061, f01=0x0190, f02=»,EL,A1 SHARED BUFFER? i P RF(Z) NOTSH NO! j & P LDR A4,A1 RESTORE START OF DSCB'S j 6 P XIF j ` P IFF CREDIT=0 j l P ADK A4,DSCBL FIRST WORD j PALLB20 SUK A2,1 A2=INDEX j P RF(NN) ALLB30 j P LDK A1,LMP4 FORMAT ERROR j P CALL ERROR j
0x085d84…085f18 Dummy {f00=0x0061, f01=0x018e, f02=») ALLB20 j " P LDK A1,LMP4 BUFFER NOT FOUND k P CALL ERROR k 6 P IFT CREDIT-MMUPAG=1 k J ( PALLB40 LD A4,BA,A4 BUFFER ALLOCATED? k f P RF(NZ) ALLB50 YES! k P LDK A1,LMP4 FORMAT ERROR k P CALL ERROR k PALLB50 EQU * k * P ST A4,BA,A1 AND
0x085f18…0860ac Dummy {f00=0x0061, f01=0x0190, f02=» k z P LDK A1,LMP4 FORMAT ERROR l P CALL ERROR l * PALLB50 EQU * l > * P ES A4,BA,A1 AND ESORE IN CURRENT ECB l R P XIF l P IFF CREDIT=0 l P RB ALLB10 l P l P IFT CREDIT-MMUPAG=1 l PNOTSH LDR A9,A9 PAGING? l P RF(NZ) NOTS10 N
0x0860ac…086240 Dummy {f00=0x0061, f01=0x0190, f02=»LLOCATE BUFFER FROM TOP l ~ P ADKL A9,1 m P ANKL A9,/FFFE EVEN ADDRESS m 2 P* CHECK ADDRESS: m V P m n " P LD A11,LSTADR,A13 DATA START m z P CALL CMPADR m P RF(NL) ALLB60 OK! m P LDKL A1,LMP3 m P CALL ERROR m PALLB60 EQU * m
0x086240…0863d4 (0, 170) Dummy {f00=0x0061, f01=0x018e, f02=»TTOM' m f & P ES A2,BA,A1 STORE BUFFER ADDRESS n P XIF n 8 P IFF CREDIT=0 n D P RB ALLB10 n Z P n l , P* RESERVE STACK AND SET STACKPOINTERS * n x P n PALLB70 EQU * n P IFT CREDIT-MMUPAG=1 n P LDR* A1,A8 GET T:A-ADDRESS n P LD
0x0863d4…086568 Dummy {f00=0x0061, f01=0x0190, f02=» PALLB80 EQU * o P ST A4,STKB,A1 SET STACKBASE o P STR A4,A1 STACK POINTER o < P CALL MOVING ALLOCATE STACK o P ST A2,STKE,A1 SET STACK-END o P XIF o P IFT CREDIT+MMUPAG=2 o P ELR A1,A8 GET T:A-ADDRESS o P EL A3,CSE,A1 GET STACK SI
0x086568…0866fc Dummy {f00=0x0061, f01=0x0190, f02=» P CALL MOVING ALLOCATE STACK p " P ES A2,STKE,A1 STORE STACK END p ( " P EL A3,STKB,A1 GET STACK SIZE p N " P ADR A2,A3 COMPUTE STACK BASE p t $ P ES A2,STKB,A1 STORE STACK BASE p * P ESR A2,A1 STORE CURRENT STACK POINTER p P XIF p P IFF CREDIT=
0x0866fc…086890 Dummy {f00=0x0061, f01=0x0190, f02=» ** p p 4 P** MOVE T:A AND UPDATE DATA SET ADDRESSES IN ** q 4 P** FORMAT CONTROL BLOCK ** q P 4 P** ** q 4 P** INPUT : A8=T:A-ADDRESS ** q 4 P** A12=
0x086890…086a24 Dummy {f00=0x0061, f01=0x018e, f02=» ** q h 4 P** WORKREGS: A1-A4 ** r 4 P************************************************ r H P r PMOVT:A EQU * r P IFT CREDIT-MMUPAG=1 r P LDR* A1,A8 GET T:A-ADDRESS r ( P LD A3,WATLEN,A12 GET LENGTH OF WAT r P
0x086a24…086bb8 Dummy {f00=0x0061, f01=0x018e, f02=» P CALL MOVING s P LDR* A4,A8 s " P SU A2,CIA,A4 NEW T:A-ADDRESS s , $ P SU A1,CIA,A4 'OLD' T:A-ADDRESS s R P s z 8 P* COMPUTE AND STORE ADDRESSES TO DATA-SETS IN FCB * s P s P LD A3,FCD,A12 ANY FCD? s P RF(Z) MOVT10 NO! s P ADR A3,
0x086bb8…086d4c Dummy {f00=0x0061, f01=0x0190, f02=» : P SUR A4,A1 ADJUST FOR OLD RELOCATION (OLD T:A-ADDRESS) t PMOVT05 EQU * t B P ADS A4,FCBDD1,A3 t V P ADS A4,FCBDD2,A3 t p PMOVT10 RTN A14 t P XIF t P IFT CREDIT+MMUPAG=2 t P t P ELR A1,A8 GET T:A-ADDRESS t ( P EL A3,WATLEN,A12 GET
0x086d4c…086ee0 Dummy {f00=0x0061, f01=0x0190, f02=» P ADR A1,A10 FROM-ADDRESS u P CALL MOVING u $ P ELR A4,A8 u 8 P EL A10,CIA,A4 u J P SUR A2,A10 NEW T:A-ADDRESS u ` " P SUR A1,A10 'OLD' T:A-ADDRESS u 8 P* COMPUTE AND STORE ADDRESSES TO DATA-SETS IN FCB * u P u P EL A3,FCD,A12 ANY FCD? u
0x086ee0…087074 (0, 171) Dummy {f00=0x0061, f01=0x0190, f02=» u ~ 8 P SUR A4,A1 ADJUST FOR OLD RELOCATION (OLD T:A-ADDR.) v PMOVT05 EQU * v D P ADR A3,A2 START OF FCB v X P TL* MMTO,13 LOAD TO-TABLE v x P EL A10,FCBDD1,A3 v P ADR A10,A4 v P ES A10,FCBDD1,A3 v P EL A10,FCBDD2,A3 v P ADR A10,A4
0x087074…087208 Dummy {f00=0x0061, f01=0x0190, f02=» P w 6 P** C M P A D R ** w 6 P** ** w F 6 P** ** w 6 P** COMPARE ADDRESSES. RESULT IN PSW ON RETURN ** w 6 P**
0x087208…08739c Dummy {f00=0x0061, f01=0x0190, f02=» ** w h 6 P** OUTPUT: RESULT IN A14-STACK ** x 6 P************************************************** x L P x PCMPADR EQU * x P TNM A11,A9 x P RF(NN) CMPA10 x P CWR A9,A11 x P RF CMPA20 x PCMPA10 CWR A11,A9
0x08739c…087530 Dummy {f00=0x0061, f01=0x018e, f02=»************************************* x v D P* * y . D P* ICBMVD - INDICATE CURRENT BLOCK MOVED * y v D P* ===================================== * y D P*
0x087530…0876c4 Dummy {f00=0x0061, f01=0x0190, f02=» y N D P* * z D P* ENTRY: A8 - FIRST T:A POINTER * z P D P* A6 - SECOND T:A POINTER * z D P* BIT - BIT NUMBER SET IN CWB- O
0x0876c4…087858 Dummy {f00=0x0061, f01=0x0190, f02=»URRENT STATCK POINTER * z p D P* IN T:A IS SET * { ( D P* * { p D P* WORK REGISTERS: A1,A2 * { D P*
0x087858…0879ec Dummy {f00=0x0061, f01=0x018e, f02=»* * { D P*************************************************************** | H P EJECT | PICBMVD EQU * | P LDKL A1,/8000 SET BIT 0 | 6 P LD A2,BIT,A13 GET BIT NUMBER IN CWB- OR UWB-MASK |
0x0879ec…087b80 Dummy {f00=0x0061, f01=0x0190, f02=» | P* } & P* UPDATE MOVED MASK IN FIRST T:A } P* } < P XIF } F P IFT CREDIT-MMUPAG=1 } R & PIBAM20 LDR* A2,A8 GET T:A POINTER } n $ P LDR* A3,A2 GET MOVED BLOCK MASK } , P ORR A3,A1 INDICATE CURRENT BLOCK MOVED } * P STR A3,A2 STORE NEW MOV
0x087b80…087d14 (0, 172) Dummy {f00=0x0062, f01=0x0190, f02=»MOVED BLOCK MASK } , P ORR A3,A1 INDICATE CURRENT BLOCK MOVED ~ * P STR A3,A2 STORE NEW MOVED BLOCK MASK ~ H P XIF ~ v P IFT CREDIT+MMUPAG=2 ~ $ PIBAM20 ELR A2,A8 GET T:A POINTER ~ $ P ELR A3,A2 GET MOVED BLOCK MASK ~ , P ORR A3,A1 INDICATE CURREN
0x087d14…087ea8 Dummy {f00=0x0062, f01=0x0190, f02=»2,A6 GET T:A POINTER ~ $ P ELR A3,A2 GET MOVED BLOCK MASK , P ORR A3,A1 INDICATE CURRENT BLOCK MOVED D * P ESR A3,A2 STORE NEW MOVED BLOCK MASK t P XIF P IFF CREDIT=0 P RTN A14 P EJECT J P**************************************
0x087ea8…08803c Dummy {f00=0x0062, f01=0x0190, f02=»KMVD - CHECK IF BLOCK ALREADY MOVED * ~ J P* ===================================== * < J P* * J P* REFERENCED IN: MOVCOM,MOVCLA
0x08803c…0881d0 Dummy {f00=0x0062, f01=0x0190, f02=»:A * t J P* BIT - BIT NUMBER IN CWB- OR UWB-MASK * 2 J P* * J P* EXIT: IF BLOCK ALREADY MOVED THEN CR=2 ELSE CR<>2
0x0881d0…088364 Dummy {f00=0x0062, f01=0x0190, f02=» * j J P* * ( J P* SUBROUTINES: * v J P*
0x088364…0884f8 Dummy {f00=0x0062, f01=0x0190, f02=»UPAG=1 P LDR* A1,A8 GET T:A POINTER $ P LDR* A1,A1 GET MOVED BLOCK MASK 2 P XIF Z P IFT CREDIT+MMUPAG=2 f P ELR A1,A8 GET T:A POINTER $ P ELR A1,A1 GET MOVED BLOCK MASK P XIF P IFF CREDIT=0 2 P LD A2,BIT,A13 GET BIT SET
0x0884f8…08868c Dummy {f00=0x0062, f01=0x0190, f02=» A2,1 DECREMENT BIT COUNTER P RB CHKM10 $ PCHKM20 ADK A1,0 SET CR 6 * P CFI A14,PSW,A13 PUT CONDITION IN PSW T P RTN A14 P EJECT P P : P***** S * U * P * E * R * L * O * O * P **** : P**
0x08868c…088820 Dummy {f00=0x0062, f01=0x0190, f02=» ** r : P** CALCULATES BIT NUMBER SAT IN MASK-WORD ** : P** INPUT : A7=MASK WORD ** ^ : P** OUTPUT: BIT=BIT NUMBER ** : P** CONDITION CODE IN PSW ON RETURN
0x088820…0889b4 (0, 173) Dummy {f00=0x0062, f01=0x0190, f02=»TER v P LDR A7,A7 P RF SHIF20 & PSKIFTA EQU * ENTRY: CONTINUE SHIFT 0 PSHIF10 IM BIT,A13 Z P SLL A7,1 t PSHIF20 EQU * $ P RF(Z) SHIF30 NO MOORE BITS SAT P RB(NN) SHIF10 * PSHIF30 CFI A14,PSW,A13 PUT COND IN PSW P R
0x0889b4…088b48 Dummy {f00=0x0062, f01=0x0190, f02=» ** 4 P** ** ( 4 P** MULTIPLICATION (A2) X A3(), A2#0 ** ` 4 P** ** 4 P** INPUT : A3,A2 ** 4 P
0x088b48…088cdc Dummy {f00=0x0062, f01=0x0190, f02=»,MUL,A13 " P STR A2,A14 SAVE A2 TEMPORARY P LDK A3,0 6 PADD AD A3,MUL,A13 H P SUK A2,1 b P RB(NZ) ADD t P LDR* A2,A14 P RTN A14 P P IFT MMUPAG=1 P EJECT P 4 P** M M E N T
0x088cdc…088e70 Dummy {f00=0x0062, f01=0x0190, f02=» LAST USED ENTRY IN MM-TAB. SCAN ** 4 P** FROM LOW ADDRESS. NOT USED ENTRY=0. ** 0 4 P** ** h 4 P** INPUT :A3=MM-TABLE ADDRESS ** 4 P** OUTPUT:A3=ENTRY ADDRESS **
0x088e70…089004 Dummy {f00=0x0062, f01=0x0190, f02=»NTENTS OF 1:ST USED ENTRY ** 4 P*********************************************** ( P ` PMMENT EQU * h P LDR A9,A3 GET TABLE ADDRESS | 6 P SUKL A9,MMBEG ADJUST A9 (LOOKS LIKE TTAB POINTER) P SUK A3,2 & PMMEN10 ADK A3,2 INCREMENT AD
0x089004…089198 Dummy {f00=0x0062, f01=0x0190, f02=»G,A9 SAVE FIRST FREE PAGE-ADDRESS P RTN A14 * P XIF : P IFF CREDIT=0 F P EJECT P j 2 P** G E T T A B ** r 2 P** ** 2 P**
0x089198…08932c Dummy {f00=0x0062, f01=0x0190, f02=»INTER TO T:A IN T:ATAB ** 2 P** OUTPUT:A2=TTAB-ADDRESS ** & 2 P** A1=TID ** 2 P** WORKREGS:A3,A4,A10 ** 2 P********************************************** P PGE
0x08932c…0894c0 Dummy {f00=0x0062, f01=0x0190, f02=»DAD,A10 T:D-ADDRESS P XIF P IFT MMUPAG=1 ( P ELR A10,A8 T:A-ADDRESS > P EL A1,T:ATID,A10 GET TID ^ P EL A12,T:DAD,A10 P XIF & PGETTTB EQU * ENTRY. INPUT: A1=TID $ P LD A4,SCTTCT GET TC:TAB ADDRESS P LDR* A3,A4 TCTA
0x0894c0…089654 (0, 174) Dummy {f00=0x0062, f01=0x0190, f02=»DK A1,LMP5 TID ERROR P CALL ERROR " PGETT20 LDR* A2,A4 TTAB-ADDRESS 0 P CW A1,TTB:PP,A2 TCL EQUAL? V P RB(NE) GETT10 NO! z P ST A2,TTAB,A13 SAVE P RTN A14 P IFF CREDIT=0 P EJECT P P 8 P**
0x089654…0897e8 Dummy {f00=0x0062, f01=0x0190, f02=» ** l 8 P** QUEUE TASK VIA 'ACTOT' AND SWITCH TO LEVEL ** 8 P** 0, ENB. ** T 8 P** ** 8 P** INPUT: A10=T:A-ADDRESS ** 8 P
0x0897e8…08997c Dummy {f00=0x0062, f01=0x0190, f02=»*********************************** P , PQUEJOB EQU * 4 P* QUEUE THIS TASK (THIS TID) H P l 0 P LDKL A3,RETUR GET RETURN (FROM A15) ADDRESS t P ADR A3,A13 RELOCATE P STR A3,A15 PUT ON STACK * P LDKL A3,/00C0 SET LEVEL 0 AND ENABL
0x08997c…089b10 Dummy {f00=0x0062, f01=0x0190, f02=»RESS t P LDR A5,A2 GET TTAB-ADDRESS P IFT CREDIT-MMUPAG=1 0 , P LD A4,WATLEN,A12 NUMBER OF WAT-ELEMENTS L P ADK A4,2 | P ANKL A4,/FFFE P ADK A4,DWBFST+4 8 P ADR A4,A12 ADD T:A-ADDRESS => START OF START-POINTS & P LDR* A6,A4 NUMB
0x089b10…089ca4 Dummy {f00=0x0062, f01=0x0190, f02=»D A3,2,A4 SEGMENT NUMBER , P LD A2,NTPA,A8 INTERPRETER START ADDRESS P XIF P P IFT CREDIT+MMUPAG=2 , P EL A4,WATLEN,A12 NUMBER OF WAT-ELEMENTS x P ADK A4,2 P ANKL A4,/FFFE P ADK A4,DWBFST+4 8 P ADR A4,A12 ADD T:A-ADDRESS => S
0x089ca4…089e38 Dummy {f00=0x0062, f01=0x0190, f02=»L! P EL A1,4,A4 DISP ADDRESS P EL A3,2,A4 SEGMENT NUMBER * , P EL A2,NTPA,A8 INTERPRETER START ADDRESS L P XIF | P IFF CREDIT=0 P CF A15,ACTOT $ P ADK A4,STPREC NEXT START-POINT P RB GETT30 $ PGETT40 ABL RETUR8 RELOAD 8
0x089e38…089fcc Dummy {f00=0x0062, f01=0x0190, f02=»T ** v 4 P** ** 4 P** ** V 4 P** MOVE MM-TABLE ** 4 P** ** 4 P** INPUT
0x089fcc…08a160 Dummy {f00=0x0062, f01=0x0190, f02=» TTAB ** n 4 P** A9=TTAB ADDRESS ** 4 P** WORKREGS:A1,A3 ** N 4 P*********************************************** P PMOVMMT EQU * ( P ADKL A2,MMBEG GET TO-TABLE ADDRESS " P T
0x08a160…08a2f4 (0, 175) Dummy {f00=0x0062, f01=0x0190, f02=»LOAD TABLE ~ P RTN A14 P XIF " P IFF CREDIT=0 . P EJECT D @ P************************************************************ R @ P* * @ P* CHTAID - CHANGE T:A-ID AND CLEAR TCL SAVE A
0x08a2f4…08a488 Dummy {f00=0x0062, f01=0x0190, f02=»=========== * b @ P* * @ P* * Z @ P* REFERENCED IN: SYSLDA PART 2 B. * @ P*
0x08a488…08a61c Dummy {f00=0x0062, f01=0x0190, f02=»NTRY IN REAL T:ATAB * j @ P* * @ P* EXIT: * b @ P* * @ P* WORK REGISTERS: A1,A3,A6,A8
0x08a61c…08a7b0 Dummy {f00=0x0062, f01=0x0190, f02=» * r @ P* * & @ P************************************************************ j PCHTAID EQU * 2 P LDR A8,A7 GET NEXT FREE ENTRY IN REAL T:ATAB $ P LDR* A6,A5 GET
0x08a7b0…08a944 Dummy {f00=0x0062, f01=0x0190, f02=» ( P LDR* A1,A8 GET POINTER TO REAL T:A $ P LD A1,T:ATID,A1 GET TCL IN T:A 0 . PCHT:20 CALL GETTTB GET CORRESPONDING TTAB X , P LD A4,TTBTID,A2 GET REAL TID IN TTAB =3 6 P LD A3,TTB:SA+26,A2 GET CORRESPONDING T:A-ADDRESS * P ST A4,T:ATID,A3 REP
0x08a944…08aad8 Dummy {f00=0x0062, f01=0x0190, f02=» SAVE TID FOR DEBUGGER PURPOSE =3 P XIF * P IFT CREDIT+MMUPAG=2 6 & P ELR A1,A8 GET POINTER TO REAL T:A R $ P EL A1,T:ATID,A1 GET TCL IN T:A | . PCHT:20 CALL GETTTB GET CORRESPONDING TTAB ( P LDR A3,A2 GET POINTER TO TTAB ENTRY 2 P ADKL
0x08aad8…08ac6c Dummy {f00=0x0062, f01=0x0190, f02=»CORRESPONDING T:A-ADDRESS x * P ES A4,T:ATID,A3 REPLACE TCL IN T:A =3 " 0 P EL* A3,T:ATNW,A13 GET LENGTH OF REAL T:ATAB P $ P NGR A3,A3 NEGATIVE DISPLACEMENT . P ADR A3,A8 COMPUTE ENTRY IN AUX. TID TABLE 0 P ESR A4,A3 SAVE TID FOR DEBUGGER PURPOSE =
0x08ac6c…08ae00 Dummy {f00=0x0062, f01=0x0190, f02=»NT ~ ( P SUK A6,1 DECREMENT NUMBER OF COPIES P RB(P) CHT:20 NEXT COPY 6 PCHT:90 RTN A14 V P EJECT l P z P 4 P************************************************ 4 P*** *** 4 P**
0x08ae00…08af94 (0, 176) Dummy {f00=0x0063, f01=0x0190, f02=»********** j P 4 P* BUILD REAL T:A'S. COPY T:A'S ACCORDING TO * 4 P* SHADOW TABLE * R 4 P* * 4 P************************************************ P PPART2B
0x08af94…08b128 Dummy {f00=0x0063, f01=0x0190, f02=»S h * P LD A7,T:ATNW,A13 REAL T:ATAB ADDRESS P ADK A7,2 8 P ST A8,SAVE03,A13 SAVE A8 J & PSYA310 LD A8,SAVE03,A13 RESTORE A8 l P ADKL A8,2 P CW A8,ENDADD,A13 ALL? P RF(E) SYA350 YES! P ST A8,SAVE03,A13 SAVE $ P ADK A5,2
0x08b128…08b2bc Dummy {f00=0x0063, f01=0x0190, f02=»A10,TTB:SA+26,A2 SAVE T:A ADDR. IN TTAB (SAVE-A13) P LDR* A1,A8 GET T:A ADDRESS : $ P STR A1,A7 STORE IN REAL T:ATAB ^ P ADK A7,2 $ P LDR* A6,A5 GET NUMBER OF COPIES P EJECT PSYA340 SUK A6,1 P RF(P) SYA345 NEXT TASK 2 P C
0x08b2bc…08b450 Dummy {f00=0x0063, f01=0x0190, f02=»L MOVT:A MOVE T: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 b 2 P CALL GETTAB GET CORRESPONDING TTAB AND QUEUE P CALL QUEJOB QUEUE THIS TASK 2 P ST A10,TTB:SA+26,A2 SAVE T:A-ADDRESS
0x08b450…08b5e4 Dummy {f00=0x0063, f01=0x0190, f02=»BUFFERS z P XIF P IFT CREDIT+MMUPAG=2 * P* GET ACTUAL MM-TABLE ADDRESS AND LOAD 8 P f P LDR A1,A5 n * P AD* A1,SCTSFA ADD SHADOW-TABLE LENGTH $ P LDR* A1,A1 GET MM-TABLE ADDRESS P TLR A1 LOAD " P ST A1,MMFROM,A13 SAVE ADDRESS
0x08b5e4…08b778 Dummy {f00=0x0063, f01=0x0190, f02=»LASS-LOCAL LAST ENTRY z P CALL QUEJOB QUEUE THIS TASK * P LDKL A2,MMTAB GET WORK TABLE ADDRESS B P ADR A2,A13 p " P TSR A2 SAVE CLASS-DATA TABLE , P* REMOVE TASK-LOCAL ENTRIES IN MM-TABLE P P SUK A2,2 START OF TABLE P LDKL
0x08b778…08b90c Dummy {f00=0x0063, f01=0x0190, f02=»B SYA320 PSYA330 EQU * P ELR A1,A8 GET T:A ADDRESS $ $ P ESR A1,A7 STORE IN REAL T:ATAB F $ P EL A12,T:DAD,A1 GET T:D ADDRESS n P EL A1,T:ATID,A1 GET TID ( P ADK A7,2 NEXT ENTRY IN REAL T:ATAB $ P LDR* A6,A5 GET NUMBER OF COPIES
0x08b90c…08baa0 Dummy {f00=0x0063, f01=0x0190, f02=»SS x PSYA345 ADK A1,1 NEXT T:A ID ( P CALL GETTTB FIND CORRESPONDING TTAB . P CALL QUEJOB QUEUE THIS TASK Z & P CALL MOVMMT MOVE MM-TABLE TO TTAB ~ P CALL MOVT:A MOVE T:A $ P ESR A2,A7 STORE IN REAL T:ATAB @ P ST A2,TTB:SA+26,A9 PUT T:
0x08baa0…08bc34 (0, 177) Dummy {f00=0x0063, f01=0x0190, f02=»W ADDRESS 0 P CALL TWBSWB MOVE TWB'S & RESERVE FOR SWB'S P LD A1,MMTO,A13 GET TO-TABLE F . P ST A1,MMFROM,A13 CHANGE T:A ADDRESS-TABLE j P TLR A1 " P CALL ALLBUF ALLOCATE BUFFERS $ P LD A1,TTAB,A13 GET TTAB-ADDRESS * P CM LSTPAG,A1
0x08bc34…08bdc8 Dummy {f00=0x0063, f01=0x018e, f02=» ES A1,T:ATID,A10 RESTORE IN T:A P XIF ( P IFF CREDIT=0 4 P RB SYA340 J P XIF P EJECT h PFINISH EQU *-REL v P P* ADJUST START OF FREE AREA P PSYA350 EQU * P IFF CREDIT=0 * P LD A1,LSTADR,A13 GET END OF
0x08bdc8…08bf5c Dummy {f00=0x0063, f01=0x0190, f02=» P XIF P IFF CREDIT=1 P LD A1,SCTLAC * P XIF @ P IFT MMUPAG-CREDIT=1 L P ANKL A1,/03FF h P SLL A1,2 ~ P XIF P ST A1,SCTEFA+2 P IFT CREDIT=1 P LD A1,FYSPAG,A13 P IFT MMUPAG-CREDIT=1 P LD A1,S
0x08bf5c…08c0f0 Dummy {f00=0x0063, f01=0x0190, f02=»MMUPAG=1 ( P LD A1,FSTADR,A13 START OF FREE AREA P RF(NZ) SYA355 < P XIF R P LD A1,SCTSFA ^ PSYA355 ST A1,SCTSFA+2 t P CM SCTSFA P IFT CREDIT=1 P EJECT D ?***************************************************************
0x08c0f0…08c284 Dummy {f00=0x0063, f01=0x0190, f02=» * X D ?* ========================= * D ?* * X D ?* REFERENCED IN: SYSLDA * D ?*
0x08c284…08c418 Dummy {f00=0x0063, f01=0x0190, f02=»OF FREE AREA * x D ?* SCTNOS - NUMBER OF SEGMENTS * 0 D ?* SCTNOP - NUMBER OF PAGES * x D ?* SCTPSZ - PAGE SIZE * D ?
0x08c418…08c5ac Dummy {f00=0x0063, f01=0x0190, f02=» P D ?* EXIT: PAGQUE - POINTER TO FIRST FREE PAGE BLOCK * D ?* PAGQUE+2 - POINTER TO LAST FREE PAGE BLOCK+2 * P D ?* * D ?* WORK REGISTERS: A1-A12
0x08c5ac…08c740 Dummy {f00=0x0063, f01=0x0190, f02=» * p D ?* * ( D ?* * p D ?*************************************************************** PAGGEN E
0x08c740…08c8d4 (0, 178) Dummy {f00=0x0063, f01=0x0190, f02=» NO! " LD A1,SCTOPT GET OPTION WORD ANK A1,3 PAGING? 2 P ABR(Z) A2 NO! L * b L G* RESERV SPACE FOR PAGE BLOCKS CORRESPONDING TO CORE RESIDENT SEGMENTS l * , ' LD A11,SCTSFA+2 GET START OF FREE AREA " ST A11,SCTPAG STO
0x08c8d4…08ca68 Dummy {f00=0x0063, f01=0x0190, f02=» t PAG:10 EQU * , ' CW A7,SCTNOP EQUAL TO NUMBER OF PAGES? RF(E) PAG:30 YES! L $ LDK A1,0 RESET NUMBER OF WORDS f PAG:20 EQU * " ADKL A11,2 INCLUDE NEXT WORD 0 + RF(Z) MEMOFL MEMORY OVERFLOW (64 KB LIMIT) $ ADK A1,1 IN
0x08ca68…08cbfc Dummy {f00=0x0063, f01=0x0190, f02=»F(E) MEMOFL MEMORY OVERFLOW! RB PAG:20 $ 0 ,PAG:25 ADK A7,1 INCREMENT PAGE BLOCK COUNTER 6 RB PAG:10 j PAG:30 EQU * | * 4 /* RESERV MEMORY PAGES IN UNUSED PART OF MEMORY 6 2* AND EXTEND PAGE TABLE WITH CORRESPONDING NUMBER
0x08cbfc…08cd90 Dummy {f00=0x0063, f01=0x0190, f02=» X 4 P SLL A1,14 TWO MOST SIGN BITS OF 16-BITS ADDRESS 4 / LD A2,SCTEFA+2 GET BIT 2-18 OF 18-BITS ADDRESS @ & ! SRL A2,2 SKIP TWO RIGHTMOST BITS x , P ORR A1,A2 16 BITS PHYSICAL PAGE ADDRESS P LDR A3,A1 SAVE LD A2,SCTPSZ GET PAGE SIZE
0x08cd90…08cf24 Dummy {f00=0x0063, f01=0x0190, f02=»00 MODIFY FOR PAGE SIZE P ANR A2,A3 EVEN 1-KB LIMIT ( $ ORR A1,A2 MODIFY PAGE ADDRESS LIMIT B P XIF n P IFT CREDIT-MMUPAG=1 z $ P LD A1,SCTEFA+2 END OF FREE AREA P LD A10,SCTPSZ PAGE SIZE P XIF P IFT CREDIT=1 LDR A9,
0x08cf24…08d0b8 Dummy {f00=0x0063, f01=0x0190, f02=»F PAG:33 PPAG:32 CWR A6,A10 PPAG:33 RF(NG) PAG:40 * , P SUR A6,A10 COMPUTE ADDRESS TO NEXT PAGE F LDR A1,A6 GET PAGE ADDRESS v P IFT CREDIT+MMUPAG=2 * & ANKL A1,/C000 ADDRESS IN SYSTEM AREA? RF(NZ) PAG:34 NO! . * LDR A1,
0x08d0b8…08d24c Dummy {f00=0x0063, f01=0x0190, f02=»E AREA v P XIF P IFT CREDIT=1 & "PAG:36 LDK A2,0 RESET WORD COUNTER 0 * %PAG:38 ADKL A11,2 RESERV ANOTHER WORD Z RF(Z) PAG:40 64 KB LIMIT $ ADK A2,1 INCREMENT WORD COUNTER CWK A2,4 BLOCK COMPLETE? RF(E) PAG:45 YES!
0x08d24c…08d3e0 Dummy {f00=0x0063, f01=0x0190, f02=»WR A11,A1 P RF PAG384 PPAG382 CWR A1,A11 $ 4 PPAG384 RF(NG) PAG:40 NO MOORE MEMORY AVALIABLE! > PPAG:39 EQU * v " CWR A11,A8 PROGRAM OVERWRITE RB(NE) PAG:38 NO! PAG:40 EQU * 6 1 CW A7,SCTNOP ONLY PAGES FOR CORE RESIDENT
0x08d3e0…08d574 (0, 179) Dummy {f00=0x0063, f01=0x0190, f02=»MOFL LDKL A1,LMP3 * & OTR A1,0,SOP INDICATE MEMORY OVERFLOW HLT HALT PROGRAM H , 'PAG:45 CW A7,SCTNOS MOORE PAGES WANTED? b RF(E) PAG:50 YES! $ ADK A7,1 INCREMENT PAGE COUNTER LDR A9,A6 SAVE PAGE ADDRESS P RB PAG:31
0x08d574…08d708 Dummy {f00=0x0063, f01=0x0190, f02=» A1,A9 GET ADDRESS TO FIRST PAGE LDR A2,A1 SAVE ( P XIF @ P IFT CREDIT+MMUPAG=2 L * P SRL A1,14 BIT 0-1 OF 18-BITS ADDRESS h ST A1,SCTEFA SAVE . * SLL A2,2 GET BITS 2-15 OF 18-BITS ADDRESS P XIF P IFT CREDIT=1 ST
0x08d708…08d89c Dummy {f00=0x0063, f01=0x0190, f02=»LOCKS h * LDK A1,0 @ ; LD A8,SAVE22,A13 PHYSICAL ADDRESS TO FIRST CORE RES. SEGM. * * % LD A11,SCTSEG START OF SEGMENT TABLE n , ( LDK A4,0 RESET RESIDENT SEGMENT COUNTER & " LD A12,SCTPAG START OF PAGE TABLE $ LD A6,SCTNOS NUMB
0x08d89c…08da30 Dummy {f00=0x0063, f01=0x0190, f02=»OT LOADED IN CORE x * & ST A12,6,A11 STORE PAGE BLOCK ADDRESS , ' STR A1,A12 RESET QUEUE POINTER FORWARD H . ) ST A1,2,A12 RESET QUEUE POINTER BACKWARD x $ ST A8,4,A12 STORE PAGE ADDRESS . ) ST A11,6,A12 STORE SEGMENT BLOCK ADDRESS 0 , ADK
0x08da30…08dbc4 Dummy {f00=0x0063, f01=0x0190, f02=» A6,1 DECREMENT SEGMENT BLOCK COUNTER RB(P) PAG:60 . * D < 8* INITIATE PAGE BLOCK FOR FREE PAGES AND LINK TO PAGQUE N * CWR A4,A7 ANY FREE BLOCKS? P RF(E) PAG:90 NO! 4 / ST A12,PAGQUE POINTER TO FIRST FREE PAGE BLOCK
0x08dbc4…08dd58 Dummy {f00=0x0063, f01=0x0190, f02=»2 STORE BACKWARD POINTER ~ $ ST A9,4,A12 STORE PAGE ADDRESS $ ST A2,6,A12 INDICATE PAGE FREE H * & ADK A4,1 INCREMENT PAGE BLOCK COUNTER p CWR A4,A7 LAST PAGE BLOCK? RF(E) PAG:80 YES! , ' LDR A11,A12 SAVE ADDRESS TO PAGE BLOCK
0x08dd58…08deec Dummy {f00=0x0063, f01=0x0190, f02=»0 NEXT PAGE RB PAG:70 PAG:80 EQU * & & ! LDKL A1,PAGQUE POINTER TO PAGQUE : $ STR A1,A12 STORE IN LAST BLOCK d & " ST A12,PAGQUE+2 STORE IN PAGQUE+2 PPAG:90 EQU * PPAGEX EQU *-REL P EJECT P XIF P P
0x08deec…08e080 Dummy {f00=0x0063, f01=0x0190, f02=»PPLICATION r P XIF P IFT CREDIT=1 , P LD A14,SAVE13,A13 TRUE START OF S:GTAB 4 P XIF d P SUKL A14,8 ADJUST FOR MAP p * P ADKL A13,SYA360 CONTINUATION ADDRESS $ P LDK A1,0 INDICATE SYSLOAD ENDED P OTR A1,0,SOP $ P LD A1,SCT
0x08e080…08e214 (0, 180) Dummy {f00=0x0064, f01=0x0190, f02=»A370 RESTORE PROGRAM BASE OINTER P* ( P* INIT A15 STACK 2 P* L P LD A15,SCTSTB V P SUKL A15,4 l P P* START APPLICATION P . P LD A1,IHRTC GET INTERRUPT ADDRESS FOR RTC P ST A1,SAVRTC,A13 SAVE 4 P LDKL A1,IHR
0x08e214…08e3a8 Dummy {f00=0x0064, f01=0x018e, f02=»TIALIZE DEVICES ~ P CF A15,SAVE8 SAVE REGISTERS P* < F P* WAIT APPROXIMATELY 0.62 SECONDS BEFORE BRANCHING TO DISPATCHER F P* P LDKL A1,/FFFF SET COUNTER PDELAY SRC A2,31 P SUK A1,1 P RB(NZ) DELAY P INH ( P
0x08e3a8…08e53c Dummy {f00=0x0064, f01=0x0190, f02=» P* * P* TEMPORARY INTERRUPT ROUTINE FOR RTC P* < PIHRTCO EQU *-REL F P RIT RTCDA ^ P RTN A15 p P IFF CREDIT=0 P EJECT P 6 P************************************************* 6 P***
0x08e53c…08e6d0 Dummy {f00=0x0064, f01=0x0190, f02=» ^ 6 P************************************************* P B 6 P* BUILD COMMON AND TASKCLASS DATA AREAS. * J 6 P* BUILD TASKDATA PROTOTYPE AREA * 6 P* * 6 P****************
0x08e6d0…08e864 Dummy {f00=0x0064, f01=0x0190, f02=»* *** 0 P** S U B R O U T I N E S ** 2 0 P******************************************** f P P 4 P** T : D A D D ** 4 P**
0x08e864…08e9f8 Dummy {f00=0x0064, f01=0x0190, f02=» ** 4 P** INPUT : A8=POINTER TO T:A (IN T:ATAB) ** 6 4 P** OUTPUT: A12=T:D ADDRESS ** n 4 P************************************************ PT:DADD EQU * P IFT CREDIT-MMUPAG=1
0x08e9f8…08eb8c Dummy {f00=0x0064, f01=0x0190, f02=» EL A12,T:DAD,A12 P XIF P IFF CREDIT=0 & P AD A12,MOVADD,A13 RELOCATE < P RTN A14 ` P EJECT p P ~ P 6 P** M O V C O M ** 6 P** ** 6
0x08eb8c…08ed20 Dummy {f00=0x0064, f01=0x0190, f02=»AT LEAST TWO T:A'S, AND MOVE ** ~ 6 P** TO COMMON AREA ** ( 6 P** ** b 6 P** INPUT : A8=POINTER IN T:ATAB ** 6 P** BIT=BIT NUMBER, SAT IN MASK **
0x08ed20…08eeb4 (0, 181) Dummy {f00=0x0064, f01=0x0190, f02=»S: A1-A6,A9,A11,A12 ** 6 P************************************************* . P h PMOVCOM EQU * t & P CALL CHKMVD BLOCK ALREADY MOVED? P RF(N) MOVC20 YES! : P CALL GETWB POINTER TO WB ADD TO 'WBADD',A5=T:A-DISPL (
0x08eeb4…08f048 Dummy {f00=0x0064, f01=0x0190, f02=» P CW A6,ENDADD,A13 ALL DONE? P RF(NE) MOVC30 NO ( PMOVC20 RTN A14 YES! B P IFT CREDIT-MMUPAG=1 ^ PMOVC30 LDR* A11,A6 z P LD A2,T:DAD,A11 T:D-ADDRESS P AD A2,MOVADD,A13 RELOCATE P ST A2,SAVE03,A13 SAVE , P LD A2,WATLEN,A2
0x08f048…08f1dc Dummy {f00=0x0064, f01=0x0190, f02=»,A13 W.B.-ADDRESS TO EXAMINE P LDR* A11,A11 $ . P CW A11,SAVE06,A13 COMPARE W.B.-ADDRESSES : P XIF l P IFT CREDIT+MMUPAG=2 x PMOVC30 ELR A11,A6 P EL A2,T:DAD,A11 T:D-ADDRESS P AD A2,MOVADD,A13 RELOCATE 0 P ST A2,SAVE03,A13 SA
0x08f1dc…08f370 Dummy {f00=0x0064, f01=0x0190, f02=»T ELEMENTS. TAKE NEXT T:A x . P AD A11,TADISP,A13 W.B.-ADDRESS TO EXAMINE " P ELR A11,A11 T . P CW A11,SAVE06,A13 COMPARE W.B.-ADDRESSES h P XIF P IFF CREDIT=0 P RB(NE) MOVC10 .NEQ. ( P LD A9,MOVED,A13 W.B. ALREADY MOVED? . P RF(
0x08f370…08f504 Dummy {f00=0x0064, f01=0x0190, f02=»MOVWB MOV WORK BLOCK P IM MOVED,A13 INDICATE MOVED P LD A4,UWB,A13 UWB-BLOCKS? @ P RF(Z) MOVC40 NO! b " P CALL GETPRO CREATE REAL UWB'S | 4 PMOVC40 ST A2,NEWAD2,A13 SAVE NEW ADDRESS TO W.B. P CALL MOVDWB & PMOVC50 CALL CHADR CHANGE A
0x08f504…08f698 Dummy {f00=0x0064, f01=0x0190, f02=»S n & P LDR A8,A6 REPLACE POINTER TO T:A * P LD A12,SAVE03,A13 REPLACE T:D-ADDRESS 4 P CALL MOVDWB b P LDR A8,A11 v * P LD A12,SAVE25,A13 RELOAD T:D-ADDRESS P RB MOVC10 P EJECT P P 4 P** G E T P
0x08f698…08f82c Dummy {f00=0x0064, f01=0x0190, f02=» ` 4 P** SEARCH U:BTAB PROTOTYPE AND GET NUMBER OF ** 4 P** COPIES. FILL REAL U:BTAB ** @ 4 P** ** x 4 P** INPUT : A11=PROTOTYPE ADDRESS ** 4 P** A2=LAST W.B. - ADDRE
0x08f82c…08f9c0 Dummy {f00=0x0064, f01=0x0190, f02=»************************************************ P 8 PGETPRO EQU * D ( P LD A3,U:BTOD,A13 GET U:BTAB ADDRESS X P IFT CREDIT-MMUPAG=1 P LDR* A4,A3 LENGTH PGETP10 EQU * 6 P SUK A4,UP:REC SUB RECORD LENGTH FRM TABLE LENGTH P
0x08f9c0…08fb54 (0, 182) Dummy {f00=0x0064, f01=0x0190, f02=»F(E) GETP30 YES! GET NUMBER OF COPIES P ADK A3,UP:REC NEXT . P RB GETP10 J P 0 P* GET NUMBER OF COPIES * h 0 P* A3 POINTS AT PROTOTYPE ADDRESS IN U:BTAB * P PGETP30 EQU * P LD A4,WBLEN,A11 W.B.-LENGTH
0x08fb54…08fce8 Dummy {f00=0x0064, f01=0x0190, f02=»A13 ADD TO NEW TABLE ADDRESS P LDR A9,A3 $ " P ST A4,URLENG,A9 STORE LENGTH 6 * P ST A5,URNUMB,A9 STORE IN REAL U:BTAB 0 P* COPY NUMBER OF WORKBLOCKS TO COMMON AREA * 0 P******************************************** . P SUK A5,1 ONE ALREADY
0x08fce8…08fe7c Dummy {f00=0x0064, f01=0x0190, f02=» POINTER IN REAL U:BTAB * & P********************************* " PGETP50 EQU * L 6 P ST A2,URADDR,A9 STORE ADDRESS TO FIRST IN U:BTAB ` P XIF P IFT CREDIT+MMUPAG=2 P ELR A4,A3 LENGTH PGETP10 EQU * 6 P SUK A4,UP:REC SUB RECOR
0x08fe7c…090010 Dummy {f00=0x0064, f01=0x0190, f02=»A10,UPADDR,A3 CHECK IF SAME W.B. P CWR A11,A10 ( , P RF(E) GETP30 YES! GET NUMBER OF COPIES < P ADK A3,UP:REC NEXT l P RB GETP10 P 0 P* GET NUMBER OF COPIES * 0 P* A3 POINTS AT PROTOTYPE ADDRESS IN U:BTAB *
0x090010…0901a4 Dummy {f00=0x0064, f01=0x0190, f02=»1,A3 GET NUMBER OF COPIES P ANK A5,/FF " , P SU A3,U:BTOD,A13 GET TABLE DISPLACEMENT 6 . P AD A3,U:BTNW,A13 ADD TO NEW TABLE ADDRESS f P LDR A9,A3 P TL* MMTO,A13 LOAD TO-TABLE * P ES A5,URNUMB,A9 ESORE IN REAL U:BTAB " P ES A4,URLEN
0x0901a4…090338 Dummy {f00=0x0064, f01=0x018e, f02=»**************************** . P SUK A5,1 ONE ALREADY MOVED (IN 'MOVCOM') $ P RF(NP) GETP50 V PGETP40 CALL MOVWB l P SUK A5,1 P RB(NZ) GETP40 P & P* UPDATE POINTER IN REAL U:BTAB * & P*********************************
0x090338…0904cc Dummy {f00=0x0064, f01=0x0190, f02=» P IFF CREDIT=0 P RTN A14 P EJECT . P < 2 P** M O V C L A ** H 2 P** ** ~ 2 P** ** 2 P** CHECKS IF W.B. ALREADY MOV
0x0904cc…090660 Dummy {f00=0x0064, f01=0x0190, f02=» ** 2 P** A LOT OF WORKREGS. ** 2 2 P********************************************* h P PMOVCLA EQU * P CALL SHIFT P RF(Z) MVCL30 * PMVCL10 CALL GETWB W.B.-ADDRESS TO A1
0x090660…0907f4 (0, 183) Dummy {f00=0x00be, f01=0x0190, f02=»CL10 PMVCL30 RTN A14 PMVCL40 CALL MOVDT " P CALL MOVWB < P LD A4,UWB,A13 UWB-SCANNING P P RF(Z) MVCL50 NO! t P CALL GETPRO DUPLICATE WB'S . PMVCL50 ST A2,NEWAD2,A13 SAVE W.B.-ADDRESS P CALL MOVDWB PROCESS DWB'S P R
0x0907f4…090988 Dummy {f00=0x00be, f01=0x0190, f02=» ** x 6 P** ** " 6 P** CHANGE ADDRESS TO W.B. & D.T. IN T:A, ** 6 P** BLOCKS ALREDY MOVED ** 6 P** ** 6
0x090988…090b1c Dummy {f00=0x00be, f01=0x0190, f02=»= NEW W.B.-ADDRESS ** ~ 6 P** TADISP=DISPLACEMENT TO WB-ADDR ** ( 6 P** WORK.REGS: A1,A2 ** b 6 P************************************************* P PCHADR EQU * P IFT CREDIT-MMUPAG
0x090b1c…090cb0 Dummy {f00=0x00be, f01=0x0190, f02=» SUK A1,2 ADDRESS TO D.T.-ADDRESS P LD A2,NEWAD1,A13 * P STR A2,A1 D P XIF V P IFT CREDIT+MMUPAG=2 b P ELR A1,A6 T:A-ADDRESS ~ . P AD A1,TADISP,A13 ADDRESS TO W.B.-ADDRESS P LD A2,NEWAD2,A13 P ESR A2,A1 & P SUK A1,2 ADDR
0x090cb0…090e44 Dummy {f00=0x00be, f01=0x0190, f02=»FT CREDIT+SWPBLK=2 P EJECT B P************************************************************** ( B P* * n B P* * B P* B:RSWT - BU
0x090e44…090fd8 Dummy {f00=0x00be, f01=0x0190, f02=» * B P* REFERENCED IN: SYSLDA * < B P* * B P* ENTRY: A2 - POINTER TO FIRST RECORD IN REAL S:BTAB *
0x090fd8…09116c Dummy {f00=0x00be, f01=0x0190, f02=» * T B P* EXIT: * B P* * P B P* WORK REGISTERS: A1-A7 * B P*
0x09116c…091300 Dummy {f00=0x00be, f01=0x0190, f02=» * h B P************************************************************** P EJECT d PB:RSWT EQU * r * P LDR A8,A2 SAVE POINTER TO FIRST BLOCK , P LD A1,SCTSWB POINTER TO SWB BLOCK TABLE * P RF(Z) RSWBEX NO SWB:S IN APPLICATIO
0x091300…091494 (0, 184) Dummy {f00=0x00be, f01=0x0190, f02=» v P LDR* A4,A1 POINTER TO BLOCK P LDR* A6,A4 NUMBER OF COPIES , $ P LD A7,SWBLEN,A4 LENGTH IN BYTES P P XIF x P IFT CREDIT+MMUSWB=3 & P ES A6,2,A2 STORE NUMBER OF COPIES , P ES A7,4,A2 STORE LENGTH OF SWB IN BYTES P XIF P I
0x091494…091628 Dummy {f00=0x00be, f01=0x0190, f02=»DIT+SWPBLK=2 & P SUK A5,6 DECREMENTS S:BTAB LENGTH ( P ADK A2,6 INCREMENT POINTER IN BLOCK > ( P SUK A3,1 DECREMENT NUMBER OF TYPES j P RB(P) RSWB10 P LDR A4,A2 P* 4 P* INIT POINTERS TO TID BLOCKS FOR EACH SWB TYPE ( P* AND R
0x091628…0917bc Dummy {f00=0x00be, f01=0x0190, f02=»EMENT v P IFT CREDIT+SWBMMU=2 P LD A1,2,A8 NUMBER OF COPIES * P RF(Z) RSWB50 NO COPIES! N * P STR A6,A8 STORE POINTER TO TID BLOCK n PRSWB30 STR A3,A2 RESET TID , P ADK A2,2 INCREMENT POINTER IN TID BLOCK . P SUK A5,2 DECREMENT LENGTH
0x0917bc…091950 Dummy {f00=0x00be, f01=0x0190, f02=» EL A1,2,A8 GET NUMBER OF COPIES P RF(Z) RSWB50 NO COPIES! ( * P ESR A6,A8 STORE POINTER TO TID BLOCK H PRSWB40 ESR A3,A2 RESET TID v , P ADK A2,2 INCREMENT POINTER IN TID BLOCK . P SUK A5,2 DECREMENT LENGTH OF REAL S:BTAB ( P SUK A1,1 DECR
0x091950…091ae4 Dummy {f00=0x00be, f01=0x0190, f02=» P RB(NE) RSWB20 " P LDR A5,A5 S:BTAB CONSISTENT? P RF(Z) RSWBEX YES D P LDKL A1,LMP6 SWB ERROR! ^ P CALL ERROR ~ PRSWBEX RTN A14 P XIF P IFF CREDIT=0 P EJECT P P* ************************** " P* ST
0x091ae4…091c78 Dummy {f00=0x00be, f01=0x0190, f02=» P* A5=START-ADDRESS P* A9=P:MTAB ADDRESS P* SAVE03=DDIV TO-ADDRESS : P* SAVE04=DDIV FROM ADDRESS Z " P* SAVE05=LENGTH OF REAL T:ATAB | " P* SAVE06=LENGTH OF REAL U:BTAB P PSTART2 EQU *-REL " P LDR A8,P LOAD TEMP. STACKBA
0x091c78…091e0c Dummy {f00=0x00be, f01=0x0190, f02=» n $ P LD A2,SAVE03,A13 GET TO ADDRESS . P LDR A3,A9 GET P:MTAB START (=END OF DDIV 0 P SUR A3,A1 => LENGTH b P XIF ~ P IFT CREDIT-MMUPAG=1 . P LD A8,SCTNOS ANY SEGMENTS IN APPLICATION? P RF(Z) NOSGMT NO! ( P LDKL A8,0 RESET FSTAD
0x091e0c…091fa0 Dummy {f00=0x00be, f01=0x0190, f02=»XT LDR* A4,A1 GET WORD P STR A4,A2 STORE P ADK A1,2 6 P ADK A2,2 H P SUK A3,2 DEC LENGTH Z P RB(NN) MOVNXT v P XIF P IFT CREDIT+MMUPAG=2 P CALL XMOVE & P* REMOVE DDIV ENTRIES IN MM-TABLE P " P LDR A1,A9 GET
0x091fa0…092134 (0, 185) Dummy {f00=0x00be, f01=0x0190, f02=»3 RELOCATE " P ADR A1,A2 P:MTAB START ENTRY P LDKL A4,/FC00 8 PSYA205 CWR A1,A2 ALL? N P RF(E) SYA207 YES! l , P STR A4,A1 REPLACE ENTRY WITH PAGE ERROR P SUK A1,2 P RB SYA205 PSYA207 EQU * P* CHANGE TABLE-ADDRESSES
0x092134…0922c8 Dummy {f00=0x00be, f01=0x0190, f02=» P ANKL A9,/FFFE EVEN ADDRESS , P ST A9,LSTADR,A13 SAVE END OF FREE AREA ( P X P ` P h . P* RESERVE SPACE FOR REAL T:A- AND U:BTAB * t P P IFT CREDIT+MMUPAG=2 ( P LDKL A3,MMTAB GET CURRENT MM-TABLE P ADR A3,A13 ,
0x0922c8…09245c Dummy {f00=0x00be, f01=0x0190, f02=»AGE n * P LD A3,SAVE05,A13 GET LENGTH OF T:ATAB P LDR A5,A3 SAVE : * P CALL MOVING RESERVE SPACE FOR T:ATAB R $ P TL* MMTO,A13 SET CORRECT TABLE " P ESR A5,A2 STORE T:ATAB LENGTH . P ST A2,T:ATNW,A13 SAVE NEW T:ATAB ADDRESS P ADK A2,
0x09245c…0925f0 Dummy {f00=0x00be, f01=0x0190, f02=»E r P P LDR A3,A5 GET LENGTH P CALL MOVING 0 P TL* MMTO,A13 D P LDR A3,A9 GET P:MTAB Z & P ADK A3,T:AID ADD TO ADDRESS WORD x 0 P ESR A5,A2 STORE TABLE LENGTH IN T:TID-TABLE " P ADK A2,2 ADJUST TABLE ADDRESS P ESR A2,A3 S
0x0925f0…092784 Dummy {f00=0x00be, f01=0x0190, f02=» RESERVE SPACE 4 P ST A2,U:BTNW,A13 SAVE NEW (REAL) U:BTAB ADDRESS P IFT CREDIT-MMUPAG=1 N P STR A5,A2 STORE LENGTH j P ADK A2,2 : P ST A2,U:BTAB,A9 SAVE 'REAL' U:BTAB-ADDRESS IN P:MTAB * P LD A3,SAVE05,A13 GET LENGTH OF T:ATAB P
0x092784…092918 Dummy {f00=0x00be, f01=0x018e, f02=»:ATAB ADDRESS t P ADK A2,2 & P ST A2,T:ATAB,A9 SAVE REAL ADDRESS ( P* RESERVE FOR T:AID TABLE R P t P LDR A3,A5 LENGTH | P CALL MOVING P STR A5,A2 STORE LENGTH $ P ADK A2,2 ADJUST FOR LENGTH-WORD , P ST A2,T:AID,A9 STORE
0x092918…092aac Dummy {f00=0x00be, f01=0x0190, f02=» P ADK A2,2 SKIP LENGTH WORD $ P ES A2,U:BTAB,A9 STORE IN P:MTAB & P XIF N P IFT SWPBLK+CREDIT=2 Z P* v * P* RESERV SPACE FOR REAL S:BTAB TABLE P* , P LD A3,SAVE25,A13 LENGTH OF REAL S:BTAB P LDR A5,A3 SAVE P CALL MO
0x092aac…092c40 Dummy {f00=0x00be, f01=0x018e, f02=» ES A2,S:BTAB,A9 P CALL B:RSWT P XIF , P IFT CREDIT+SWBMMU=2 8 P STR A5,A2 T P ADK A2,2 f P ST A2,S:BTAB,A9 x P CALL B:RSWT P XIF P IFT CREDIT+MMUPAG=2 " P TL* MMFROM,A13 RELOAD TABLE P XIF P IFF CREDI
0x092c40…092dd4 (0, 186) Dummy {f00=0x00bf, f01=0x0190, f02=» ( P LD A8,T:ATOD,A13 GET T:ATAB ADDRESS P IFT CREDIT-MMUPAG=1 4 P LDR* A3,A8 GET LENGTH P P XIF n P IFT CREDIT+MMUPAG=2 z P ELR A3,A8 GET LENGTH P XIF P IFF CREDIT=0 P ADR A3,A8 0 P ST A3,ENDADD,A13 SAVE END OF T:
0x092dd4…092f68 Dummy {f00=0x00bf, f01=0x0190, f02=» RF(E) CLADAT YES! $ P CALL T:DADD T:D-ADDRESS TO A12 P IFT CREDIT-MMUPAG=1 B " P LD A7,CWBMSK,A12 GET CWB-MASK ^ P XIF P IFT CREDIT+MMUPAG=2 P EL A7,CWBMSK,A12 P XIF P IFF CREDIT=0 P CALL SHIFT SUPER-LOOPA P
0x092f68…0930fc Dummy {f00=0x00bf, f01=0x0190, f02=»QU * P* SEARCH UWB'S: P* $ & P IM UWB,A13 INDICATE UWB-SCANNING . P IFT CREDIT-MMUPAG=1 X P LD A7,UWBMSK,A12 t P XIF P IFT CREDIT+MMUPAG=2 P EL A7,UWBMSK,A12 P XIF P IFF CREDIT=0 P CALL SHIFT " PSY
0x0930fc…093290 Dummy {f00=0x00bf, f01=0x0190, f02=»SK CLASS DATA CONFIGURATION PART * * P************************************** * P X PCLADAT EQU * ` 4 P LD A8,T:ATOD,A13 SET POINTER TO LENGTH INT:ATAB t P IFT CREDIT-MMUPAG=1 " PSYA250 CM UWB,A13 INDICATE CWB ( P ADKL A8,2 STEP TO NEXT T:
0x093290…093424 Dummy {f00=0x00bf, f01=0x0190, f02=»LCULATE LENGTH OF T:D P 2 P LD A1,WATLEN,A12 NUMBER OF BYTES-1 IN DBLKTAB & P ADK A1,2 P ANKL A1,/FFFE EVEN ADDRESS n ( P ADK A1,DWBFST+4 ADD DISPL. TO FIRST * P LDR A3,A1 GET NUMBER OF START-POINTS P ADR A3,A12 ADD T:D-ADDRESS
0x093424…0935b8 Dummy {f00=0x00bf, f01=0x0190, f02=»' z P ADR A3,A1 =>LENGTH P LDR A1,A12 FROM-ADDRESS & P CALL MOVING MOVE T:D F P LDR* A1,A8 GET T:A ADDRESS d * P ST A2,T:DAD,A1 STORE NEW T:D ADDRESS " P LD A7,CWBMSK,A12 GET CWBMASK P XIF P IFT CREDIT+MMUPAG=2 ( P* IN
0x0935b8…09374c Dummy {f00=0x00bf, f01=0x0190, f02=»,SAVE06,A13 SAVE " PSYA250 CM UWB,A13 INDICATE CWB ( P ADKL A8,2 STEP TO NEXT T:A ADDRESS > P CW A8,ENDADD,A13 j " P RF(E) SYA270 ALL T:A'S DONE! " P CALL GETTAB GET TTAB-ADDRESS P CALL MOVMMT MOVE MM-TABLE " P* FILL MM-TABLE ADDRES
0x09374c…0938e0 Dummy {f00=0x00bf, f01=0x0190, f02=» FILL TABLE ( P CALL T:DADD GET T:D ADDRESS TO A12 4 P ST A12,T:DSAV,A9 SAVE 'OLD' T:D-ADDRESS IN TTAB @ P x P* CALCULATE LENGTH OF T:D P 2 P EL A1,WATLEN,A12 NUMBER OF BYTES-1 IN DBLKTAB P ADK A1,2 P ANKL A1,/FFFE EVEN AD
0x0938e0…093a74 (0, 187) Dummy {f00=0x00bf, f01=0x0190, f02=»A3 . 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 P CALL MOVING MOVE T:D P ELR A1,A8 GET T:A ADDRESS * P ES A2,T:DAD
0x093a74…093c08 Dummy {f00=0x00bf, f01=0x0190, f02=» P P P* TASK CLASS DATA UWB'S * P************************* > & P IM UWB,A13 INDICATE UWB SCANNING ` P IFT CREDIT-MMUPAG=1 " P LD A7,UWBMSK,A12 GET UWBMASK P XIF P IFT CREDIT+MMUPAG=2 P EL A7,UWBMSK,A12
0x093c08…093d9c Dummy {f00=0x00bf, f01=0x0190, f02=»****************************** P & PSYA260 EQU * . P IFT CREDIT-MMUPAG=1 B P LD A7,SWBMSK,A12 ^ P RF(Z) SYA265 NONE x P CALL SKRITT PSYA265 LD A7,TWBMSK,A12 P XIF P IFT CREDIT+MMUPAG=2 P EL A7,SWBMSK,A12 P
0x093d9c…093f30 Dummy {f00=0x00bf, f01=0x0190, f02=»ALL SKRITT P RB SYA250 P $ PSYA270 RF PRODAT 0 P EJECT H P V P b 4 P** S K R I T T ** n 4 P** ** 4 P** MOVE D.T
0x093f30…0940c4 Dummy {f00=0x00bf, f01=0x0190, f02=» * P CALL SHIFT PNO RF(NZ) NES P RTN A14 4 PNES CALL GETWB D P CALL MOVDT Z . P CM NEWAD2,A13 NO NEW W.B.-ADDRESS (YET!) n P CALL MOVDWB P CALL SKIFTA P RB NO P EJECT P & P* BUILD TASKDATA PROTOTY
0x0940c4…094258 Dummy {f00=0x00bf, f01=0x018e, f02=»? j P RF(Z) SYA275 NO! 2 P CALL GETTTB GET TTAB ADDRESS. TID 'TB' IN A1 $ & P CM TTB:PP,A2 CLEAR TCL SAVE AREA Z P IFT CREDIT+MMUPAG=2 =00001 P CALL MOVMMT MOVE MM-TABLE P XIF =00001 P IFF CREDIT=0 =00001 PSYA275 EQU
0x094258…0943ec Dummy {f00=0x00bf, f01=0x0190, f02=» PSYA280 ADKL A8,2 P CW A8,ENDADD,A13 P RF(E) SYA290 ALL DONE 6 P IFT CREDIT-MMUPAG=1 T " P LDR* A12,A8 GET T:D ADDRESS.. p P LD A12,T:DAD,A12 . 0 P CALL TWBSWB MOVE TWB'S & RESERVE FOR SWB'S P " P* CALCULATE LENGTH OF
0x0943ec…094580 Dummy {f00=0x00bf, f01=0x0190, f02=» n P LDK A2,DSCBL DSCB-LENGTH ( P CALL MULT A3() X (A2) RESULT IN A3 * & P ST A3,CSN,A1 SAVE LENG OF DSCB'S V ( P LD A2,FCD,A12 GET FCB-DISPLACEMENT P RF(NZ) SYA285 FCB PRESENT & P SUR A2,A3 MOVD30E A3(DSCB-LENGTH) , P ADKL A2,T:ASTA
0x094580…094714 (0, 188) Dummy {f00=0x00c0, f01=0x0190, f02=»SE,A1 AND SAVE TEMPORARY * P LD A2,SCTLAC GET START OF COMMON PART P LD A2,P:BAS,A2 GET P:BAS N P ST A2,CSB,A1 AND SAVE p " P CALL ALLBUF ALLOCATE BUFFERS P CALL MOVT:A MOVE T:A * P STR A2,A8 STORE NEW ADDRESS IN T:ATAB P XIF
0x094714…0948a8 Dummy {f00=0x00c0, f01=0x0190, f02=»GET LAST USED ENTRY IN CLASS-LOCAL MM-TABLE P 4 ( P TL MMBEG,A2 LOAD CLASS LOCAL TABLE < * P LDKL A3,MMTAB GET WORK TABLE ADDRESS h P ADR A3,A13 $ P TSR A3 STORE TABLE IN WORK-AREA $ P TL MMDDIV,A13 RELOAD DDIV TABLE P CALL MMENT GE
0x0948a8…094a3c Dummy {f00=0x00c0, f01=0x0190, f02=» r " P*** *** P . P ELR A1,A8 GET T:A-ADDRESS : & P EL A3,DATLEN,A12 A12=T:D-ADDRESS P LDK A2,DSCBL DSCB-LENGTH ( P CALL MULT A3() X (A2) RESULT IN A3 & P ES A3,CSN,A1 SAVE LENG OF DSCB'S ( P EL A2,FCD
0x094a3c…094bd0 Dummy {f00=0x00c0, f01=0x0190, f02=»TO FIRST WORD v 6 PSYA285 ES A2,CIA,A1 SAVE DISPLACEMENT TO T:A-ESART " P EL A2,STKB,A1 GET STACK SIZE P & P ES A2,CSE,A1 AND SAVE (TEMPORARY) v & P LD A2,SCTLAC GET START OF P:MTAB $ P TL* MMTO,A13 LOAD CORRECT TABLE P EL A2,P:BAS,A2 GET P:
0x094bd0…094d64 Dummy {f00=0x00c0, f01=0x0190, f02=»OVE T:A * P ESR A2,A8 STORE NEW ADDRESS IN T:ATAB P XIF > P IFF CREDIT=0 J P RB SYA280 NEXT ` P EJECT x PSYA290 EQU * 4 P IM FLAG,A13 INDICATE REAL DATA-PART PROCESSING , P* INCLUDE DDIV AND PART 2.A IN FREE AREA P .
0x094d64…094ef8 Dummy {f00=0x00c0, f01=0x018e, f02=»A3,/F000 $ P SRL A3,2 GET NEW PHYSICALL PAGE P ST A3,FSTPAG,A13 SAVE 8 ( P ANKL A2,/FFF GET NEW PAGE INCREMENT V P ST A2,FSTADR,A13 SAVE P* MOVE T:ATAB P * P LD A2,T:ATNW,A13 GET REAL T:A-ADDRESS P XIF P IFT CREDIT-MMUP
0x094ef8…09508c Dummy {f00=0x00c0, f01=0x0190, f02=» P LDR* A1,A2 REAL LENGTH $ P ADR A2,A1 END OF TABLE ADDRESS $ P ST A2,ENDADD,A13 SAVE L & P LD A1,T:ATOD,A13 GET FROM-ADDRESS j P LDR* A3,A1 MOVE-LENGTH P SUR A2,A3 TO-ADDRESS P ST A2,T:ATOD,A13 SAVE P CALL MOVE P XIF
0x09508c…095220 Dummy {f00=0x00c0, f01=0x0190, f02=»AD TABLE | P ADR A2,A1 END ADDRESS 4 P ST A2,ENDADD,A13 SAVE 'END-OF-T:ATAB-CONDITION' . * P LD A1,T:ATOD,A13 GET PROTOTYP T:ATAB f P ELR A3,A1 GET LENGTH P SUR A2,A3 TO-ADDRESS P ST A2,T:ATOD,A13 SAVE P CALL XMOVE P XIF
0x095220…0953b4 (0, 189) Dummy {f00=0x00c6, f01=0x0190, f02=»D BASE ADDRESS P ABR A5 & PLENGT2 EQU *-REL LENGTH OF PART 2 & P EJECT P P ^ P j 2 P********************************************* v 2 P******* ******* 2 P**
0x0953b4…095548 Dummy {f00=0x00c6, f01=0x0190, f02=» ***** 2 P********************************************* * P ` 2 P* READ CONFIGURATION FILE & BUILD * l 2 P* SHADOW-TABLES * 2 P* *
0x095548…0956dc Dummy {f00=0x00c6, f01=0x0190, f02=»********* t * P*** *** * P** S U B R O U T I N E S ** @ ( P** -USED IN THIS PART ONLY * n * P************************************* P EJECT P P 6 P** C O N
0x0956dc…095870 Dummy {f00=0x00c6, f01=0x0190, f02=» ** b 6 P** CONVERSION OF TWO ASCII-DIGITS TO BINARY ** 6 P** ** F 6 P** INPUT : A5=ASCII DIGITS ** 6 P** OUTPUT: A1=BINARY RESULT ** 6 P** WORK.REGS: A3,A2
0x095870…095a04 Dummy {f00=0x00c6, f01=0x0190, f02=»0 CLEAR RESULT REG P LDR A3,A5 P SRL A3,8 GET TEN'S , P SUK A3,/30 H P ADR A1,A3 P LDR A2,A1 MULT BY 10 n P ADR A1,A1 . P SLL A2,3 . P ADR A1,A2 .... P LDR A3,A5 P ANK A3,/F GET ONE'S P ADR A1,A3
0x095a04…095b98 Dummy {f00=0x00c6, f01=0x0190, f02=» ** l 6 P** ** 6 P** SKIP TO NEXT BLOCK IN CONFIGURATION FILE ** P 6 P** ** 6 P** INPUT: A11=ADDRESS TO CURRENT BLOCK-START ** 6 P** OUTPUT
0x095b98…095d2c Dummy {f00=0x00c6, f01=0x018e, f02=» ** r 6 P************************************************** P V PNXTBLK EQU * ^ 6 P ADKL A11,TDBNC NUMBER OF TERMINAL DEVICE CLASSES r 2 PNXTCOM EQU * ENTRY: SKIP TO NEXT COMMON-BLOCK P LCR A5,A11 P SLL A5,8 P
0x095d2c…095ec0 Dummy {f00=0x00c6, f01=0x0190, f02=» 0 P LCR A5,A11 GET NUMBER OF SPEC, DEV. CLASSES P SLL A5,8 8 P LC A5,1,A11 J P CALL CONVRT ^ , P LDK A2,SDC SPEC. DEV. CL. RECORD LENGTH r P LDR A3,A1 P CALL MULT P ADR A11,A3 A11=NEXT BLOCK P ADKL A11,2 $ P LC A2,TDBBT
0x095ec0…096054 (0, 190) Dummy {f00=0x00c6, f01=0x0190, f02=» ** 8 P** ** 4 8 P** CONVERT 3 ASCII-DIGITS TO BINARY ** p 8 P** ** 8 P** INPUT : A6=ADDRESS TO FIRST
0x096054…0961e8 Dummy {f00=0x00c6, f01=0x0190, f02=» ** ` 8 P**************************************************** P H PGETNUM EQU * T P LDK A4,100 FIRST INCREMENT h P LDK A5,0 CLEAR RESULT REG P SUK A6,1 INIT POINTER PGET030 ADK A6,1 NEXT DIGIT P LCR A2,A6 GET CHAR
0x0961e8…09637c Dummy {f00=0x00c6, f01=0x0190, f02=» SUK A4,90 NEXT INCREMENT (TEN'S) P RB(P) GET030 * & P ADK A4,81 NEXT INCREMENT (ONE'S) @ P RB(P) GET030 THIRD DIGIT j P RTN A14 P EJECT P P* START OF PROGRAM PART 1 * P 4 P* SAVE02=POINTER TO 1:ST USER TASK TTAB-AD
0x09637c…096510 Dummy {f00=0x00c6, f01=0x0190, f02=» P* P LD A15,SCTSTB P SUKL A15,4 $ P 8 & P LD A2,SCTLAC GET S:GTAB (IF ANY) @ P IFT MMUPAG=0 j . P LD A2,CREID,A2 GET CREDIT IDENTIFICATION P XIF P IFT MMUPAG=1 P TL MMTAB,A13 %%## P EL A2,CREID,A2 P X
0x096510…0966a4 Dummy {f00=0x00c6, f01=0x0190, f02=»0 YES! START CONFIGURATE P IFF CREDIT=1 P 6 P* ASSEMBLER APPLICATION > P ^ P* SWITCH TO LEVEL 0 ENB f P ( P LDKL A4,SYA103 CONTINUATION ADDRESS P ADR A4,A13 RELOCATE P STR A4,A15 PUT ON STACK P LDKL A4,/00C0
0x0966a4…096838 Dummy {f00=0x00c6, f01=0x0190, f02=»ET MM-TABLE ADDRESS P ADR A4,A13 RELOCATE P ST A4,MMFROM,A13 SAVE 8 ( P* FILL MM-TABLES IN USER TASK TTAB'S V P ( P LD* A5,SCTTCT GET LENGTH OF TC:TAB $ P LD A6,SAVE02,A13 1:ST USER TASK P LDR A3,A6 SAVE 0 P SU A3,SCTTCT GET
0x096838…0969cc Dummy {f00=0x00c6, f01=0x0190, f02=»DKL A1,/FC00 P LDKL A2,MMTAB P ADR A2,A13 * P LDR A4,A2 =00002 > P SUKL A4,MMBEG X P AD A4,SCTMMC n PSYA:10 CWR A4,A2 P RF(E) SYA105 P SUK A4,2 P STR A1,A4 P RB SYA:10 PSYA105 SUK A5,2 ALL? P RF(
0x0969cc…096b60 Dummy {f00=0x00c6, f01=0x018e, f02=»A107 EQU * P XIF P IFF CREDIT=1 2 P LD* A5,SAVE02,A13 1:ST USER TASK TTAB ADDRESS 4 . P LD A2,SAVE09,A13 EXECUTION START ADDRESS j ( P AD A2,SCTLAC ADD RELOCATION ADDRESS P LDK A3,0 SEGMENT NUMBER P CF A15,ACTOT QUEUE TASK " P
0x096b60…096cf4 (0, 191) Dummy {f00=0x00c7, f01=0x018e, f02=» P , P* READ CONFIG FILE AND BUILD SHADOWTABLE P D 0 P CM SAVE02,A13 CLEAR 'BUGGER TASK INDICATOR' P P IFT CREDIT-MMUPAG=1 & P LD* A2,SCTLAC GET START OF P:MTAB $ P LD A12,T:ATAB,A2 T:ATAB ADDRESS & P SUKL A12,2 ADJUST FOR
0x096cf4…096e88 Dummy {f00=0x00c7, f01=0x0190, f02=» $ P ST A4,U:BTOD,A13 SAVE IN SYSLDA P XIF , P IFT CREDIT+SWBMMU=2 8 ( P LD A4,S:BTAB,A2 GET S:BTAB ADDRESS T $ P SUK A4,2 ADJUST FOR LENGTH WORD P ST A4,S:BTOD,A13 SAVE P XIF P IFT CREDIT-MMUPAG=1 P* T:ATAB PROCESSING:
0x096e88…09701c Dummy {f00=0x00c7, f01=0x0190, f02=» ~ P " P LDR A11,A3 END OF SHADOW-TAB P LDR A9,A13 START OF SYSLDA 6 P CALL CMPADR Z P RF(L) SYA110 OK! n " P LDKL A1,LMP3 MEMORY OVERFLOW P CALL ERROR ( PSYA110 LDR A9,A2 GET P:MTAB ADDRESS P LDK A2,0 P* CLEAR
0x09701c…0971b0 Dummy {f00=0x00c7, f01=0x0190, f02=» " P STR A4,A3 STORE TABLE LENGTH ( P LD A11,SAVE01,A13 GET CONFIG START * " P LC A2,TDBBT,A11 GET BLOCKTYPE V P CCK A2,'TT' TASK DEF? | P RF(E) SYA120 OK! P LDK A1,LMP4 NO TASK PRESENT P CALL ERROR ( PSYA120 LC A2,TDBMC+4,A11 GET
0x0971b0…097344 Dummy {f00=0x00c7, f01=0x0190, f02=»E02,A13 INDICATE BUGGER TASK PRESENT =00001 " P RF SYA136 SKIP TO NEXT BLOCK 4 PSYA125 LDR A8,A12 SAVE Z P LDR* A4,A12 T:ATAB LENGTH x PSYA130 ADKL A8,2 NEXT T:A P LDR* A6,A8 GET T:A ADDRESS P SUK A4,2 P RF(NZ) SYA135 0 P
0x097344…0974d8 Dummy {f00=0x00c7, f01=0x0190, f02=»SYA130 NO! P SUR* A4,A12 T:ATAB LENGTH P XIF 4 P IFT CREDIT+MMUPAG=2 @ & P EL* A2,SCTLAC GET START OF P:MTAB $ P EL A12,T:ATAB,A2 T:ATAB ADDRESS $ P SUKL A12,2 INCLUDE LENGTH WORD & P ST A12,T:ATOD,A13 SAVE IN SYSLDA $ P EL A4,U
0x0974d8…09766c Dummy {f00=0x00c7, f01=0x0190, f02=»MMUSWB=3 ( P EL A4,S:BTAB,A2 GET S:BTAB ADDRESS $ P SUK A4,2 ADJUST FOR LENGTH WORD < P ST A4,S:BTOD,A13 SAVE d P XIF P IFT CREDIT+MMUPAG=2 P* T:ATAB PROCESSING: P P ELR A4,A12 T:ATAB-LENGTH P LDR A3,A4 SAVE
0x09766c…097800 Dummy {f00=0x00c7, f01=0x0190, f02=» LDR A11,A3 END OF SHADOW-TABLE P LDR A9,A13 START OF SYSLDA ( P CALL CMPADR L P RF(L) SYA110 OK! ` " P LDKL A1,LMP3 MEMORY OVERFLOW z P CALL ERROR ( PSYA110 LDR A9,A2 GET P:MTAB ADDRESS P* CLEAR T:ATAB SHADOW-TABLE: P
0x097800…097994 (0, 192) Dummy {f00=0x00c7, f01=0x0190, f02=»GTH v ( P LD A11,SAVE01,A13 GET CONFIG START " P LC A2,TDBBT,A11 GET BLOCKTYPE 8 P CCK A2,'TT' TASK DEF? ^ P RF(E) SYA120 OK! | P LDK A1,LMP4 NO TASK PRESENT P CALL ERROR ( PSYA120 LC A2,TDBMC+4,A11 GET TASK ID P SLL A2,8 .
0x097994…097b28 Dummy {f00=0x00c7, f01=0x0190, f02=»PRESENT' h P RF SYA136 SKIP THIS BLOCK PSYA125 LDR A8,A12 SAVE 2 P ELR A4,A12 T:ATAB LENGTH P PSYA130 ADKL A8,2 NEXT T:A r P ELR A6,A8 GET T:A ADDRESS P SUK A4,2 P RF(NZ) SYA135 , P LDK A1,LMP5 NO PROT. FOUND (TID ERROR)
0x097b28…097cbc Dummy {f00=0x00c7, f01=0x018e, f02=» ELR A10,A12 P SUR A4,A10 T:ATAB LENGTH P XIF 6 P IFF CREDIT=0 B . P NGR A4,A4 => A4=DISPLACEM. IN SHADOW-TAB X ( P LC A5,TDBNT,A11 GET NUMBER OF TASKS P SLL A5,8 P LC A5,TDBNT+1,A11 P CALL CONVRT ( P LD A2,SCTSFA STAR
0x097cbc…097e50 Dummy {f00=0x00c7, f01=0x0190, f02=» z P ! PSYA136 CALL NXTBLK ! PSYA137 EQU * ! . P CCK A2,'TT' ! B & P RB(E) SYA120 NEXT TASK DEF BLOCK ! V P CCK A2,'CC' ! P RF(NE) SYA140 ! * P ADKL A11,1 STEP TO NUMBER OF COM.DEV. ! P CALL NXTCOM SKIP COMMON DEF ! PSYA140 CCK A
0x097e50…097fe4 Dummy {f00=0x00c7, f01=0x0190, f02=» IN PROTOTYPE ! l PSYA141 EQU * " P XIF " * P IFT CREDIT+SWPBLK=2 " 6 P LCR A2,A11 " R P CCK A2,'SS' " f P RF(NE) SYA152 " z P LD A8,S:BTOD,A13 " P CALL USWBTP " P XIF " P IFT CREDIT=1 " P RF SYA152 " P EJECT " L P********
0x097fe4…098178 Dummy {f00=0x00c7, f01=0x0190, f02=» * " P L P* USWBTP - INSERT NUMBER OF COPIES IN U:BTAB/S:BTAB PROTOTYPE TABLE * # L P* ================================================================= * # ` L P* * # L P* REFER
0x098178…09830c Dummy {f00=0x00c7, f01=0x0190, f02=» * # P L P* ENTRY: A8 - MODIFIED ADDRESS TO U:BTAB/S:BTAB PROTOTYPE TABLE * $ L P* A11- POINTER IN CONFIGURATION TABLE TO 'U' OR 'S' BLOCK * $ ` L P* * $ L P* EXIT:
0x09830c…0984a0 Dummy {f00=0x00c7, f01=0x0190, f02=» * $ P L P* WORK REGISTERS: * % L P* * % ` L P* SUBROUTINES: GETNUM,ERROR * % L P*
0x0984a0…098634 (0, 193) Dummy {f00=0x00c8, f01=0x0190, f02=»******* % P P & PUSWBTP EQU * & P & , P XIF & 4 P IFT CREDIT-MMUPAG=1 & @ P ADKL A11,1 & P LDR A6,A11 & p * P CALL GETNUM PACK 3 DIG. RESULT IN A5 & $ P LDR A1,A5 SAVE NUMBER OF UWB'S & PSYA142 EQU * & P LDR A12,A8 & " P LDR*
0x098634…0987c8 Dummy {f00=0x00c8, f01=0x0190, f02=»FIG & h P SLL A2,8 ' P LC A2,1,A11 GET 2:ND CHAR ' 6 P CW A2,UPNAME,A12 COMPARE W. 1:ST WORD IN PROTOTYP ' @ * P RF(E) FRSTOK FIRST TWO CHARACTERS OK! ' z 0 PSYA147 SUK A3,UP:REC DEC. NUMBER OF PROT.'S ' P RF(NN) SYA150 ' P LDK A1,LMP6 UWB NOT F
0x0987c8…09895c Dummy {f00=0x00c8, f01=0x0190, f02=» 3:RD CHAR ' z P CC A2,UPNAME+2,A12 ( P RB(NE) SYA147 .NEQ. ( . P EJECT ( J P ( X P* PROTOTYPE FOUND * ( d P ( 8 P ADKL A11,NAMUWB SKIP TO 'NUMBER OF BOCKS' IN CONFIG ( P LDR A6,A11 ( P CALL GETNUM CONVERT ( 2 P SC A5,UPNUMB,A1
0x09895c…098af0 Dummy {f00=0x00c8, f01=0x018e, f02=» RTN A14 ( P XIF ) P IFT CREDIT+MMUPAG=2 ) P ADKL A11,1 ) 8 P LDR A6,A11 ) L * P CALL GETNUM PACK 3 DIG. RESULT IN A5 ) ` $ P LDR A1,A5 SAVE NUMBER OF UWB'S ) PSYA142 EQU * ) P LDR A12,A8 START OF TABLE ) P ELR A3,A12 LENGTH OF U:BTAB
0x098af0…098c84 Dummy {f00=0x00c8, f01=0x0190, f02=» ) P LC A2,1,A11 GET 2:ND CHAR * 2 P EL A10,UPNAME,A12 GET FIRST WORD IN PROTOTYPE * * P CWR A2,A10 * ` P RF(E) FRSTOK FIRST WORD OK! * t 0 PSYA147 SUK A3,UP:REC DEC. NUMBER OF PROT.'S * P RF(NN) SYA150 * P LDK A1,LMP6 UWB NOT FOUND * P CAL
0x098c84…098e18 Dummy {f00=0x00c8, f01=0x0190, f02=» CONFIG * j 0 P EL A2,UPNAME+2,A12 GET 3:RD CHAR FROM PROY + P SRL A2,8 + D P ANKL A10,/FF + V P CWR A10,A2 + l P RB(NE) SYA147 .NEQ. + P EJECT + P + P* PROTOTYPE FOUND * + P******************* + P + 8 P ADKL A11,NAMU
0x098e18…098fac Dummy {f00=0x00c8, f01=0x0190, f02=»-TABLE + f P ANKL A10,/FF00 , P ORR A10,A5 , & P ES A10,UPNUMB-1,A12 , : . P SUK A1,1 DEC. NO OF TYPES IN CONFIG FILE , V P RB(P) SYA142 , P ADKL A11,UDBFST-1 , P RTN A14 , P XIF , P IFT CREDIT=1 , P EJECT , PSYA152 EQU * ,
0x098fac…099140 Dummy {f00=0x00c8, f01=0x0190, f02=»OF T:ATAB , r P XIF - P IFT CREDIT+MMUPAG=2 - ( P EL* A7,T:ATOD,A13 GET T:ATAB LENGTH - : * P SLL A7,1 RESERVE FOR MM-ADDRESS-TABLE - f P XIF - P IFF CREDIT=0 - 0 P AD A7,SCTSFA TO-ADDRESS (AFTER SHADOW-TABLE - P ADK A7,1 - P ANKL A7,/FF
0x099140…0992d4 (0, 194) Dummy {f00=0x00c8, f01=0x0190, f02=»2,A2 - 4 P ST A2,SAVE04,A13 SAVE NEW RELOCATION TEMPORARY . P IFT CREDIT+MMUPAG=2 . D & P* CREATE SYSLDA & DDIV MM-TABLE * . ` P . " P LDR A2,A7 TO-ADDRESS (SYSLDA) . P ANKL A2,/F000 FIRST PAGE . ( P ST A2,MMREL1,A13 SAVE PHYSICAL PAGE . " P S
0x0992d4…099468 Dummy {f00=0x00c8, f01=0x0190, f02=» ( PSYA157 STR A2,A11 STORE PAGE-POINTER / P ADKL A11,2 NEXT ENTRY / 0 P ADKL A2,/400 PAGE INCREMENT / N P SUK A3,1 ALL? / r P RB(NZ) SYA157 NO! / ( P ANKL A7,/FFF GET DISPLACEM. IN PAGE / P XIF / P IFF CREDIT=0 / 0 P ST A7,SAVE12,A13 SAVE (
0x099468…0995fc Dummy {f00=0x00c8, f01=0x0190, f02=» / $ P* CALCULATE DDIV FROM-ADDRESS * 0 P 0 2 P LD A1,SCTLAC GET S:GTAB 0 : * P ST A1,SAVE13,A13 SAVE S:GTAB ADDRESS 0 Z & P ST A9,SCTLAC SAVE START OF P:MTAB 0 P IFT CREDIT-MMUPAG=1 0 ( P LD A3,NUMSEG,A1 NUMBER OF SEGMENTS 0 P XIF 0 P I
0x0995fc…099790 Dummy {f00=0x00c8, f01=0x0190, f02=»ORD LENGTH 0 p P CALL MULT 1 P ADR A1,A3 1 $ & P ADK A1,NUMSEG+2 => START OF DDIV 1 6 2 P LD A2,SAVE04,A13 GET NEW RELOCATION INCREMENT 1 ` 0 P ADS A2,M:REL,A13 AND ADJUST RELOCATION BASE 1 P IFT CREDIT+MMUPAG=2 1 P 1 . P ST A1,SAVE04,A13 SAVE DDI
0x099790…099924 Dummy {f00=0x00c8, f01=0x0190, f02=»0 1 " P SUR A6,A1 RELOCATION FOR DDIV 2 P EJECT 2 0 P 2 > P 2 F P 2 R 0 P* RELOCATE ADDRESSES IN T:ATAB AFTER MOVE * 2 ^ . P* CALCULATE TOTAL (=REAL) LENGTH * 2 . P* REMOVE NOT USED ENTRIES IN T:ATAB * 2 . P* A9=P:MTAB A6=M
0x099924…099ab8 Dummy {f00=0x00c8, f01=0x018e, f02=»S 2 ~ P 3 ( P LD A8,T:ATOD,A13 GET T:ATAB ADDRESS 3 P LDR* A3,A8 GET LENGTH 3 > P ADR A3,A8 END OF T:ATAB 3 P ST A3,ENDADD,A13 SAVE 3 | 0 P LD A5,SCTSFA GET START OF T:ATAB SHADOW-TAB 3 P LDR A4,A5 2:ND POINTER 3 & P LDR A2,A8 2:ND POINTER IN
0x099ab8…099c4c Dummy {f00=0x00c8, f01=0x018e, f02=» P 4 " PSYA160 ADKL A8,2 TAKE NEXT T:A 4 $ P ADK A5,2 NEXT T:A IN SHADOW-TAB 4 2 P CW A8,ENDADD,A13 4 Z P RF(E) SYA170 ALL DONE 4 t P LDR* A1,A8 GET T:A 4 * P LDR* A7,A5 GET CONTENTS OF SHADOW-TAB 4 , P RB(Z) SYA160 THIS T:A IS NOT USED!!!!! 4
0x099c4c…099de0 Dummy {f00=0x00c8, f01=0x0190, f02=» ( P ADK A2,2 UPDATE 2:ND T:ATAB ADDRESS 5 8 P STR A7,A4 STORE NUMBER OF T:A'S (EV. ON NEW PLACE) 5 0 P LDR* A10,A8 GET T:A-ADDRESS 5 l P ADR A10,A6 RELOCATE 5 . P STR A10,A2 STORE ADDR. (EV. ON NEW PLACE) 5 P* RELOCATE W.B.-ADDRESSES 5 P 5 $ P
0x099de0…099f74 (0, 195) Dummy {f00=0x00d0, f01=0x0190, f02=» SUK A7,1 DEC. COUNTER 5 P RB(N) SYA160 TAKE NEXT T:A 6 P ADRS A6,A1 RELOCATE 6 B P XIF 6 ^ P IFT CREDIT+MMUPAG=2 6 j P 6 P* INITIATE POINTERS 6 P 6 P LD A8,T:ATOD,A13 T:ATAB 6 P ELR A3,A8 GET LENGTH 6 P ADR A3,A8 END OF T:ATAB
0x099f74…09a108 Dummy {f00=0x00d0, f01=0x0190, f02=»D POINTER IN T:ATAB 6 & P LDK A3,2 SET 'NEW' T:ATAB COUNTER 7 . P SUR A11,A11 CLEAR REAL LENGTH ACCUMULATOR 7 F P 7 x P* SCAN T:ATAB: 7 P 7 " PSYA160 ADKL A8,2 TAKE NEXT T:A 7 $ P ADK A5,2 NEXT T:A IN SHADOW-TAB 7 P CW A8,ENDADD,A13 7 P R
0x09a108…09a29c Dummy {f00=0x00d0, f01=0x018e, f02=»!!! 7 l " P ADR A11,A7 ACCUMULATE LENGTH 8 , P ADK A3,2 INCREMENT 'NEW' T:ATAB LENGTH 8 2 , P ADK A4,2 UPDATE 2:ND SHADOW-TAB ADDRESS 8 b ( P ADK A2,2 UPDATE 2:ND T:ATAB ADDRESS 8 8 P STR A7,A4 STORE NUMBER OF T:A'S (EV. ON NEW PLACE) 8 P ELR A10,A8 GE
0x09a29c…09a430 Dummy {f00=0x00d0, f01=0x0190, f02=» 8 $ P EL A12,T:DAD,A1 GET T:D-ADDRESS 9 $ P EL A7,WATLEN,A12 LENGTH OF WAT 9 0 . P ADK A1,WATFST+2 ADD TO FIRST W.B.-ADDRESS 9 X PSYA165 SUK A7,1 DEC. COUNTER 9 P RB(N) SYA160 TAKE NEXT T:A 9 P ELR A10,A1 GET ADDRESS 9 P ADR A10,A6 RELOCATE 9
0x09a430…09a5c4 Dummy {f00=0x00d0, f01=0x0190, f02=»T A6,MOVADD,A13 SAVE 9 8 P ST* A3,SCTSFA STORE NEW TABLE LENGTH IN SHADOW-TAB : P IFT CREDIT+MMUPAG=2 : X $ P ES* A3,T:ATOD,A13 AND IN T:ATAB : t P XIF : P IFT CREDIT-MMUPAG=1 : $ P ST* A3,T:ATOD,A13 AND IN T:ATAB : P XIF : P IFF CREDIT=0 :
0x09a5c4…09a758 Dummy {f00=0x00d0, f01=0x018e, f02=»3 SAVE TOT. NUMBER OF T:A'S : P ; $ P EJECT ; 0 " P****************************** ; > $ P* RELOCATE ADDRESSES IN U:BTAB * ; d $ P* (REAL LENGTH=PROTOTYPE LEN.) * ; $ P******************************** ; P ; P IFT CREDIT-MMUPAG=1 ; $ P LD A5,U
0x09a758…09a8ec Dummy {f00=0x00d0, f01=0x018e, f02=» ; ~ " PSYA180 RF(Z) SYA185 ALL DONE! < P ADRS A6,A5 RELOCATE < . P XIF < J P IFT CREDIT+MMUPAG=2 < V $ P LD A5,U:BTOD,A13 U:BTAB ADDRESS < r P ELR A3,A5 TABLE LENGTH < , P ST A3,SAVE06,A13 SAVE LENGTH OF U:BTAB < P ADK A5,2 < P SUK A3,2 SU
0x09a8ec…09aa80 Dummy {f00=0x00d0, f01=0x0190, f02=» < P IFF CREDIT=0 = 8 P ADK A5,UP:REC ADD TO NEXT RECORD IN U:BTAB PROTOTYP = P SUK A3,UP:REC = Z P RB SYA180 = p P EJECT = PSYA185 EQU * = P IFT CREDIT+MMUSWB=3 = P* = $ P* COMPUTE REAL LENGTH OF S:BTAB = P* = $ P LD A5,S:BTO
0x09aa80…09ac14 (0, 196) Dummy {f00=0x00d0, f01=0x0190, f02=»F(Z) SYA199 ALL RECORDS SCANNED! = $ P EL A4,2,A5 GET PROT. W.B.-ADDR. > ( P ADR A4,A6 RELOCATE > P P ES A4,2,A5 STORE IT BACK > l , P EL A4,UPNUMB-1,A5 GET NUMBER OF COPIES > P ANK A4,/FF GET RIGHT BYTE > . PSYA192 RF(Z) SYA194 NO MOORE OF THIS TYP
0x09ac14…09ada8 Dummy {f00=0x00d0, f01=0x0190, f02=»RD IN S:BTAB PROTOTYPE > r $ P SUK A3,UP:REC DECREMENT LENGTH ? P RB SYA190 ? F P XIF ? X P IFT CREDIT+SWBMMU=2 ? d $ P LD A5,S:BTOD,A13 S:BTAB ADDRESS ? * P LDR* A3,A5 LENGTH OF S:BTAB PROTOTYPE ? P LDR A2,A3 SAVE ? " P SUK A3,2 EXCLUDE LENGTH W
0x09ada8…09af3c Dummy {f00=0x00d0, f01=0x0190, f02=»,A5 STORE IT BACK ? , P LD A4,UPNUMB-1,A5 GET NUMBER OF COPIES @ P ANK A4,/FF @ J . PSYA196 RF(Z) SYA198 NO MOORE OF THIS TYPE! @ ^ P ADK A2,2 INCREMENT LENGTH @ ( P SUK A4,1 DECREMENT NUMBER OF COPIES @ P RB SYA196 @ 8 PSYA198 ADK A5,UP:REC NEX
0x09af3c…09b0d0 Dummy {f00=0x00d0, f01=0x0190, f02=»A199 ST A2,SAVE25,A13 SAVE COMPUTED LENGTH @ P XIF A 2 P IFT CREDIT=1 A > P EJECT A T P A b 6 P* RELOCATE T:ATAB- AND U:BTAB-ADDRESSES IN P:MTAB A j P A P ADS A6,T:ATOD,A13 A P ADS A6,U:BTOD,A13 A P IFT CREDIT+SWPBLK=2 A P ADS A6,
0x09b0d0…09b264 Dummy {f00=0x00d0, f01=0x0190, f02=»D-START A | $ P AD A5,SAVE12,A13 ADD NEW START B P ST A5,DATEND,A13 SAVE B 8 P XIF B V P IFT CREDIT+MMUPAG=2 B b P B ~ P B P* STORE MMTABLE ADDRESSES B P B P LDK A4,MMDDIV B " P ADR A4,A13 GET TABLE ADDRESS B & P LDR A5,A13 CALC. RE
0x09b264…09b3f8 Dummy {f00=0x00d0, f01=0x0190, f02=»DK A4,MMTAB B $ P ADR A4,A13 'WORK-TABLE' ADDRESS C P SUR A4,A5 RELOCATE C < P ST A4,MMFROM,A13 C X P* CALCULATE DDIV END C r P C P LDR A5,A9 DDIV END C P SU A5,SAVE04,A13 ENT-START C $ P AD A5,SAVE12,A13 ADD NEW START C P LDR A6,A5
0x09b3f8…09b58c Dummy {f00=0x00d0, f01=0x0190, f02=»DRESS C l P ADR A6,A13 RELOCATE D & P LDR* A6,A6 GET MM-TABLE CONTENTS D * P ST A6,FSTPAG,A13 SAVE D T " P ANKL A5,/FFF GET DISPLACEMENT D r P ST A5,FSTADR,A13 AND SAVE D P XIF D P IFF CREDIT=0 D P* CONTINUE IN PART 2 * D P D . P L
0x09b58c…09b720 Dummy {f00=0x00d0, f01=0x0190, f02=»EXECUTION START ADDRESS D | P ADR A7,A2 E " P LDKL A3,LENGT2 SYSLDA LENGTH E 2 P LDR A1,A13 FROM-ADDRESS E X P E x P* MOVE SYSLDA * E P E P IFT CREDIT-MMUPAG=1 E PNXTMOV LDR* A4,A1 GET WORD E P STR A4,A2 STORE WORD E P ADK A1,2 E
0x09b720…09b8b4 (0, 197) Dummy {f00=0x00d0, f01=0x40e4, f02=» E P IFF CREDIT=0 F P F * P ABR A7 HEJ SVEJS! VI SES I PART 2... F & P XIF F T P IFT CREDIT=0 F ` P LDKL A1,LMP9 F v $ P CALL ERROR INCONSISTENT MONITOR F P XIF F PLDAEND EQU * F P END F @ F
0x09b8b4…09ba48 Dummy {f00=0x00d0, f01=0x2008, f02=» G -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
0x09ba48…09bbdc Dummy {f00=0x00d0, f01=0x4014, f02=» HNOD x @ x "y b * & 3 >. c " * & c P * & % c ~ * & + 1 8 @ I0 Z0 [0 c * & ]0 _0 a0 c0 e0 g0 i0 k c * &
0x09bbdc…09bd70 Dummy {f00=0x00d0, f01=0x0190, f02=» IDENT P:S002 y D 8 8 < @ y " * & 4 4 y @ * & - 4 4 4 y n * & K 4 @ 8 I 6 L0 0 W y * & i C0 W<6 0 W 0 6 y * & 0
0x09bd70…09bf04 Dummy {f00=0x00d0, f01=0x0190, f02=» W 0 : @ + 2 y * & ! I0 ! 3 z * & 2 I W 0 ) _ z N * & ; | 0 ! ? 2 W50 ! z | * & Y A H ( 2 z * & w 4 90 _;0 W 0 z * &
0x09bf04…09c098 Dummy {f00=0x00d0, f01=0x0190, f02=» WK0 ) ? 0% ? I z * & H 0 S 0 P 0 Q { . * & + 4 0 C! m! i '0& ( { * & I 1 W{! w 0 1 { * & g H 0 6 0' W 0' { * & W 0' $ 8 2 _
0x09c098…09c22c Dummy {f00=0x00d0, f01=0x0190, f02=» 1 { p * & ! 4! R 6 0' W | * & 0' W 0' $2 _, 4 | < * & 9 6 0'V W 0'V W 0'V | j * & W 4 0 1 4 4 | * & u % L% B! ) : u | * & I ! u* vb
0x09c22c…09c3c0 Dummy {f00=0x00d0, f01=0x0190, f02=» W }4 # | ~ * & % v W 4 ) } * & ) | 4 # &! " w 2 } J * & G % u " 3 $ 4 4 4 } x * & e 4 ! u 4 4 0 } * & ! = 6 6 4 K } * &
0x09c3c0…09c554 (0, 198) Opaque[0x194]
0x09c554…09c6e8 # DirEnt {nam=»LDTASK«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0c98, f03=0x0000}
0x09c554…09c6e8 IdxSect {
0x09c554…09c6e8 f00 = 0x0064 // 0x9c554 @0x0
0x09c554…09c6e8 f01 = 0x000c // 0x9c556 @0x2
0x09c554…09c6e8 gno = [ // 0x9c558 @0x4
0x09c554…09c6e8 [0x00]: C0x0064.0x3.0
0x09c554…09c6e8 [0x01]: C0x0065.0x0.0
0x09c554…09c6e8 [0x02]: C0x0065.0x1.0
0x09c554…09c6e8 [0x03]: C0x0065.0x2.0
0x09c554…09c6e8 [0x04]: C0x0065.0x3.0
0x09c554…09c6e8 [0x05]: C0x0066.0x0.0
0x09c554…09c6e8 ]
0x09c554…09c6e8 }
0x09c6e8…09c87c Dummy {f00=0x0064, f01=0x018e, f02=» 2 P IDENT LDTASK REL 9.2 79-12-06 870105040920 P : ( P =2, DEVICE TABLE LENGTH DATA WORD B P REL 9.2 79-11-16 n " P =1, QLTASK RETURN IN ENABLE P REL 9.1 79-05-23 P* 6 P**************************************************
0x09c87c…09ca10 Dummy {f00=0x0064, f01=0x018e, f02=» 6 P************************************************** P* > P* H * P* THIS MODULE CONTAINS THE LOAD TASK R 0 P* USED IN TOSS MEMORY MANAGEMENT SYSTEMS. P* & P* IT CONTAINS TWO ENTRY POINTS: P* . P* - LT:DSK USED IN
0x09ca10…09cba4 Dummy {f00=0x0064, f01=0x0190, f02=» P* P*********** P* ENTRIES * & P*********** : P* N P* X $ P ENTRY LT:DSK DISC PAGING ENTRY b , P ENTRY LT:SWB SWAPPABLE WORK BLOCK ENTRY P ENTRY TTABLD LOAD TASK TTAB 2 P ENTRY QLTDSK ACTIVATE LDTASK AT ENTRY LT:
0x09cba4…09cd38 Dummy {f00=0x0064, f01=0x0190, f02=» P* P************* P* EXTERNALS * ( P************* > P* T P* ^ " P EXTRN TLDS15 ENTRY IN TLDSEG h " P EXTRN TLDS20 ENTRY IN TLDSEG " P EXTRN MEXIT MONITOR TASK EXIT 4 P EXTRN LKMERR HALT SYSTEM DUE TO FATAL LKM ERR
0x09cd38…09cecc Dummy {f00=0x0064, f01=0x0190, f02=» PAG:QB QUEUE LINK BACKWARDS P EXTRN PAG:PA PAGE ADDRESS $ ( P EXTRN PAG:SB SEGMENT BLOCK ADDRESS F & P EXTRN SEG:DS DISC SECTOR ADDRESS r P EXTRN SEG:EL SEGMENT LENGTH $ P EXTRN SEG:PB PAGE BLOCK ADDRESS 4 P EXTRN SWB:DS DISC SECTOR ADDRES
0x09cecc…09d060 Dummy {f00=0x0064, f01=0x0190, f02=»S r P EXTRN ECBRC ECB RETURN CODE " P EXTRN ECBCW ECB CONTROL WORD . P EXTRN TTB:SA TTAB SAVE AREA T P EXTRN TTB:MT MMU TABLE x ( P EXTRN TTB:SB SEGMENT BLOCK ADDRESS ( P EXTRN SCTPLD PROGRAM LOADING DEVICE P EXTRN SCTPSZ PAGE SIZE
0x09d060…09d1f4 (0, 199) Dummy {f00=0x0065, f01=0x0190, f02=» . P***************************************** P* 6 P* CONDITIONAL ASSEMBLY @ P* ^ . P***************************************** h P* . P* A PROGRAM VERSION USING TOSS MMU PAGING * P* IS OBTAINED BY SETTING MMUPAG EQU 1. P*
0x09d1f4…09d388 Dummy {f00=0x0065, f01=0x018e, f02=»852 EQU 0. p P* PCPU852 EQU 0 P* 0 P* : 6 P* A PROGRAM VERSION INCLUDING TOSS SWAPPABLE WORK D 2 P* BLOCKS IS OBTAINED BY SETTING SWPBLK EQU 1. ~ P* PSWPBLK EQU 0 P* * 4 P* A PROGRAM VERSION USING TOSS ASS
0x09d388…09d51c Dummy {f00=0x0065, f01=0x018e, f02=» " P* LDTASK ECB AND BUFFER AREAS P* . 4 PLD:ECB DATA 0,0,410,0,0,0 ECB AREA FOR LOAD TASK 8 P* p 4 PLD:BUF RES 205 INTERMEDIATE BUFFER FOR LOAD TASK z P* & P RES 2 LOAD TASK STACK (ONE LEVEL) ( PLD:STB EQU *-2 LOAD TASK STACK BAS
0x09d51c…09d6b0 Dummy {f00=0x0065, f01=0x0190, f02=» t P* P IFT MMUPAG=1 P RES 16 LDTASK MMU TABLE ( P XIF H P* T " P DATA 0 SEGMENT BLOCK ADDRESS ^ P* PTTABLD EQU * TTABLD ENTRY " P DATA 0 DISPATCHER QUEUE LINK " P DATA '#L' TASK IDENTIFICATION P DATA 49 PRI
0x09d6b0…09d844 Dummy {f00=0x0065, f01=0x0190, f02=»0,0,0,0,0,0,0 REGISTER SAVE AREA, A1-A14 P DATA 0,0,0,0,0,0,0 0 " P DATA 2 DEVICE TABLE LENGTH =2 L P* r P EJECT LDTASK | P* P* P********** P* LT:DSK * P********** P* P* D P* LT:DSK PERFORMS LO
0x09d844…09d9d8 Dummy {f00=0x0065, f01=0x0190, f02=»OF CALLING TASK r P* P* " * PLT:DSK EQU * LDTASK DISC PAGING ENTRY , 4 P LD A13,TTB:SA+26,A3 GET A13 FROM TTAB SAVE AREA Z , P LDKL A5,TTABLD GET LDTASK TTAB ADDRESS " P LDR* A2,A1 GET SEGMENT STATUS . P RF(NN) LTD:05 SEGMENT NOT LOADE
0x09d9d8…09db6c Dummy {f00=0x0065, f01=0x0190, f02=»A3 SAVE A3 P LDR A5,A3 , P LD A1,SEG:PB,A1 GET PAGE BLOCK ADDRESS $ P CF A15,TLDS15 T 0 P LDR A5,A7 GET TTAB ADDRESS OF CALLING TASK j P ABL LTD:80 P* P EJECT LDTASK P* 6 P* NO PAGE AVAILABLE. PAUSE LDTASK UNTIL RE
0x09db6c…09dd00 Dummy {f00=0x0065, f01=0x0190, f02=» LKM P DATA 5 PAUSE LDTASK P* ( P* GET ONE PAGE FROM PAGQUE 2 P* T PLTD:05 EQU * ^ P LD A2,PAGQUE+2 r P CWK A2,PAGQUE $ P RB(E) LTD:00 NO PAGE AVAILABLE? P* P EJECT LDTASK P* $ P* TAKE FOUND PAGE OU
0x09dd00…09de94 (0, 200) Dummy {f00=0x0065, f01=0x0190, f02=»A2 GET PAGQUE ADDRESS AND UPDATE... 4 P STR A12,A4 ...QUEUE LINK FORWARD FOR NEXT BLOCK , 4 P CMR A2 RESET QUEUE LINK FORWARD OF REMOVED BLK d , P LDKL A6,/4000 SEGMENT UNDER LOADING BIT 2 P LD A4,PAG:SB,A2 GET OLD SEGMENT BLOCK ADDRESS P RF(Z)
0x09de94…09e028 Dummy {f00=0x0065, f01=0x0190, f02=»EG:PB,A1 SET NEW PAGE BLOCK ADDRESS 2 P ST A1,PAG:SB,A2 SET NEW SEGMENT BLOCK ADDRESS , P* b P IFT MMUPAG=1 l P* 2 P* UPDATE MMU TABLE FOR CALLING TASK AND LDTASK P* P INH 2 P MS 3,TTB:SA+2,A5 SAVE A1-A3 IN TTAB SAVE AREA
0x09e028…09e1bc Dummy {f00=0x0065, f01=0x0190, f02=»ADDRESS OF LDTASK . P CF A15,TLDS20 UPDATE MMU TABLE FOR LDTASK 6 P TS TTB:MT,A3 STORE NEW MMU TABLE FOR CALLING TASK L P ENB P XIF P* P EJECT LDTASK P* $ P* PREPARE FOR READING OF SEGMENT P* ( P LD A6,SEG:E
0x09e1bc…09e350 Dummy {f00=0x0065, f01=0x0190, f02=»O WORDS v 0 P LDR A5,A3 GET TTAB ADDRESS OF CALLING TASK 0 P LD A3,PAG:PA,A2 GET PAGE ADDRESS (PHYSICAL) D . P LD A2,SEG:DS,A1 GET SEGMENT DISC ADDRESS x * P LDR A9,A1 SAVE SEGMENT BLOCK ADDRESS 0 P LDR A11,A5 INDICATE DISC PAGING (A11 <> 0)
0x09e350…09e4e4 Dummy {f00=0x0065, f01=0x0190, f02=»BY LT:SWB x P LDK A7,/91 PHYSICAL READ P* 4 P* SET ECB PARAMETERS > P* Z & PLTD:40 EQU * ENTRY USED BY LT:SWB d , P LDKL A14,LD:STB LOAD LDTASK STACK BASE & P LDKL A8,LD:ECB GET LD:ECB ADDRESS P ST A2,ECBCW,A8 P*
0x09e4e4…09e678 Dummy {f00=0x0065, f01=0x0190, f02=»CBBA,A8 SET BUFFER ADDRESS P RF LTD:60 " P XIF 4 P* @ P EJECT LDTASK J P* b P* l P IFT ASSOLY=1 v , P LD A2,SCTPLD GET PROGRAM DISC FILE CODE P STR A2,A8 . P LDKL A1,LD:BUF GET LDTASK BUFFER ADDRESS P ST A1,E
0x09e678…09e80c Dummy {f00=0x0065, f01=0x0190, f02=» A11,A11 CHECK DISC PAGING/SWB FLAG ( P RF(NZ) LTD:43 DISC PAGING REQUEST? , P* X P EJECT LDTASK b P* z P* , P LDR A12,A3 SAVE LOGICAL BUFFER ADDRESS 2 P ECR A2,A3 CONVERT LOGICAL ADDRESS TO PHYSICAL P ANKL A3,/FFF
0x09e80c…09e9a0 Dummy {f00=0x0065, f01=0x0190, f02=»RESS j P SRL A2,2 P ECR A1,A2 P ANK A2,/0F 0 P SRC A2,4 D P ORR A3,A2 V P RF(NZ) LTD:48 h P SUKL A1,/1000 ~ P RF LTD:48 P* PLTD:43 EQU * P XIF P* P IFT MMUPAG=1 P LDR A1,A3 P SRL A
0x09e9a0…09eb34 (0, 201) Dummy {f00=0x0065, f01=0x0190, f02=»QU * P LDR A12,A3 6 P ANKL A12,/FFF CONVERT PHYSICAL ADDRESS TO LOGICAL P OR A12,SCTLAP Z P* p PLTD:48 EQU * z P SUK A3,2 & P ST A3,ECBBA,A8 SET BUFFER ADDRESS P ANKL A1,/3000 , P OR A1,SCTPLD GET PROGRAM DISC FILE CODE
0x09eb34…09ecc8 Dummy {f00=0x0065, f01=0x0190, f02=» P* $ P* MOVE FIRST SECTOR TO PAGE AREA P* 6 P LDKL A1,LD:BUF+2 @ P LDR A2,A12 Z P LDKL A3,376 n & P MVSU A3 MOVE FIRST SECTOR TO PAGE P SUKL A12,2 P XIF P* P EJECT LDTASK P* P* PLTD:50
0x09ecc8…09ee5c Dummy {f00=0x0065, f01=0x0190, f02=»SSOLY=1 P LDK A1,188 P XIF $ P* 0 2 P SUR A6,A1 GET REMAINING LENGTH OF SEGMENT/SWB : 2 P RF(NP) LTD:75 SEGMENT/SWB HANDLING FINISHED? p , P SUR A4,A1 GET REMAINING LENGTH OF PAGE P ADR A1,A1 ( P ADR A12,A1 UPDATE PAGE AREA POI
0x09ee5c…09eff0 Dummy {f00=0x0065, f01=0x0190, f02=»FFER ADDRESS v P RF LTD:60 P* & PLTD:55 EQU * 0 * P ADS A1,ECBBA,A8 UPDATE BUFFER ADDRESS D P RF(N) LTD:60 NOT OVERFLOW? r & P LDKL A1,/1000 OVERFLOW CORRECTION P ADRS A1,A8 P XIF P* P IFT MMUPAG=0 * P ADS A1,
0x09eff0…09f184 Dummy {f00=0x0065, f01=0x0190, f02=»CHECK REMAINING LENGTH OF PAGE 8 P RF(L) LTD:65 NOT ROOM FOR ONE MORE SECTOR IN PAGE? & P* b P IFT MMUPAG=1 l : P ELR A10,A12 SAVE WORD TO BE DESTROYED BY DISC CYL-ID ( P CF A14,LTD:85 READ/WRITE ONE SECTOR $ P ESR A10,A12 RESTORE SAVED W
0x09f184…09f318 Dummy {f00=0x0065, f01=0x0190, f02=» CF A14,LTD:85 READ/WRITE ONE SECTOR $ P STR A10,A12 RESTORE SAVED WORD , P RB LTD:50 T P XIF f P* r P EJECT LDTASK | P* . P* NOT ROOM ENOUGH IN PAGE FOR LAST SECTOR: 0 P* READ IT TO MEMORY VIA INTERMEDIATE BUFFER P*
0x09f318…09f4ac Dummy {f00=0x0065, f01=0x0190, f02=»ATE BUFFER NOW IN SYSTEM AREA , P CF A14,LTD:85 READ ONE SECTOR TO LD:BUF & P ADK A1,2 SKIP CYLINDER ID V P LDR A2,A12 GET PAGE POINTER x P ADK A2,2 & P ADR A6,A6 CONVERT LENGTH TO BYTES P* P IFT MMUPAG=1 2 P MVSU A6 MOVE LA
0x09f4ac…09f640 Dummy {f00=0x0065, f01=0x0190, f02=» STR A10,A2 ( P ADK A1,2 INCREMENT BUFFER POINTERS P ADK A2,2 @ P SUK A6,2 DECREMENT COUNTER R P RB(P) LTD:70 v P XIF P* P EJECT LDTASK P* P* PLTD:75 EQU * P IFT SWPBLK=1 , P LDR A11,A11 CHE
0x09f640…09f7d4 (0, 202) Dummy {f00=0x0065, f01=0x0190, f02=»OADED b P XRRS A4,A9 P* " PLTD:80 EQU * , , P CF A15,QTJOB QUEUE TASK FOR DISPATCHING @ & P ABL MEXIT PERFORM EXIT ON LDTASK p P* P EJECT LDTASK P* P* READ ONE SECTOR FROM DISC P* PLTD:85 EQU * P
0x09f7d4…09f968 Dummy {f00=0x0065, f01=0x0190, f02=» P RTN A14 NO, RETURN P* ( P* ERROR: INSERT PAGE IN PAGQUE AGAIN * P* V PLTD:95 ANK A2,1 ` P NGR A2,A2 x . P SUK A2,2 ERROR, SET RETURN CODE -2 OR -3 . P ST A2,TTB:SA+14,A5 SET RETURN CODE IN A7 P* P IFT SWPBLK=1
0x09f968…09fafc Dummy {f00=0x0065, f01=0x0190, f02=»ENT BLOCK ADDRESS x , P LD A3,SEG:PB,A9 GET PAGE BLOCK ADDRESS & P LDKL A4,PAGQUE GET PAGQUE ADDRESS J P ST A4,PAG:QB,A3 t 4 P LDR* A4,A4 GET ADDRESS OF FIRST BLOCK IN PAGQUE " P STR A4,A3 UPDATE QUEUE LINKS P ST A3,PAGQUE P ST A3,P
0x09fafc…09fc90 Dummy {f00=0x0065, f01=0x0190, f02=»* P********** ! P* QLTDSK * ! P* QLTSWB * ! . P********** ! @ P* ! R P* ! : P* THIS ROUTINE PERFORMS ACTIVATION OF THE LOAD TASK. ! f P* ! : P* ACTIVATION IS AT LT:DSK WHEN DISC PAGING REQUEST. ! B P* ACTIVATION IS AT LT:SWB
0x09fc90…09fe24 Dummy {f00=0x0065, f01=0x0190, f02=»LOCK ADDRESS (LT:SWB) ! t 2 P* A3 = TTAB ADDRESS OF CALLING TASK " P* " T $ P* OUTPUT: A2, A5 ARE DESTROYED " ^ P* " P* " 0 PQLTSWB EQU * ACTIVATE LDTASK AT ENTRY LT:SWB " ( P LDKL A2,LT:SWB GET DISPATCH ADDRESS " P RF QLTASK "
0x09fe24…09ffb8 Dummy {f00=0x0065, f01=0x0190, f02=» , P LDKL A5,TTABLD GET LDTASK TTAB ADDRESS # " P ABL ACTOT ACTIVATE LDTASK =1 # 4 P* # Z P EJECT LDTASK # d P* # | P* # P IFT SWPBLK=1 # P* # P* # P********** # P* LT:SWB * # P********** # P* # P* # D P*
0x09ffb8…0a014c Dummy {f00=0x0065, f01=0x018e, f02=» A3 = TTAB ADDRESS OF CALLING TASK # P* $ 2 P* $ < * PLT:SWB EQU * LDTASK SWB HANDLING ENTRY $ F P IFT MMUPAG=1 $ t P INH $ , P LDKL A5,TTABLD GET LDTASK TTAB ADDRESS $ , P TL TTB:MT,A3 LOAD MMU WITH CALLING TASK $ , P TS TTB:MT,A5 STOR
0x0a014c…0a02e0 Dummy {f00=0x0065, f01=0x0190, f02=» 0 P LDR A5,A3 GET TTAB ADDRESS OF CALLING TASK % 4 P LD A3,TTB:SA+16,A5 GET MEMORY ADDRESS (LOGICAL) % 8 4 P LD A4,SWB:DS,A1 GET DISC ADDRESS OF FIRST COPY % p 0 P LD A6,SWB:EL,A1 GET SWB COPY LENGTH (BYTES) % 2 P LD A2,SWB:NS,A1 GET SWB COPY LENGTH (SECTOR
0x0a02e0…0a0474 (0, 203) Dummy {f00=0x0066, f01=0x018e, f02=»* % P* & PLTS:10 EQU * & P SUK A1,1 & ( P* & : P IFT CPU852=1 & D P RF(NP) LTS:20 & Z 4 P ADR A4,A2 COMPUTE DISC ADDRESS OF REQUESTED SWB & p P RB LTS:10 & P* & PLTS:20 EQU * & 0 P LDR A2,A4 GET DISC ADDRESS OF REQUESTED SWB &
0x0a0474…0a0608 Dummy {f00=0x0066, f01=0x0190, f02=» & P XIF ' P* ' P IFT SWPBLK=1 ' P ADK A6,1 ' 4 * P SRL A6,1 CONVERT SWB LENGTH TO WORDS ' F P LDR A4,A6 ' t . P ANK A7,1 GET LOAD/STORE SWB REQUEST FLAG ' $ P ABL(Z) LTD:35 LOAD SWB REQUEST? ' : P LDKL A4,/7FFF PARAMETER TO AVOID INTERM
0x0a0608…0a079c Dummy {f00=0x0066, f01=0x406e, f02=» , PLT:SWB ABL LKMERR INDICATE SYSGEN ERROR ( P XIF ( 4 P* ( @ P* ( J P* ( T END ( ^@ ( j F P LDR A4,A6 ' t . P ANK A7,1 GET LOAD/STORE SWB REQUEST FLAG ' $ P ABL(Z) LTD:35 LOAD SWB REQUEST? ' : P LDKL A4,/7FFF PARAMETER TO AVOID INTERM
0x0a079c…0a0930 Dummy {f00=0x0066, f01=0x2008, f02=» ) NT LDTASK PRR 9.1 79-01-17 870105040910 END <@ H* L 6 P************************************************** V P* $ P* PHILIPS TERMINAL SYSTEM PTS P* P* TLDSEG = LOAD SEGMENT P* P* P*
0x0a0930…0a0ac4 Dummy {f00=0x0066, f01=0x0190, f02=»*** ) r & P* * * & P* SUBROUTINE-HANDLER * * 6 & P* * * ` & P********************************* * P * PSUBSUB EQU *-REL * " PSUBBA ST A10,MUL,A13 SAVE A10 * . P LD* A10,4,A14
0x0a0ac4…0a0c58 Dummy {f00=0x0066, f01=0x0190, f02=»N * f P STR A10,A14 PUT ON STACK + P LD A10,MUL,A13 RESTORE A10 + , P ABR* A14 + P P + b P + j P + r < P******************************************************* + z < P* JUMP TO SYSLDM (FROM SYSLOD) ALWAYS VIA THIS MODULE * + < P**************
0x0a0c58…0a0dec Dummy {f00=0x0066, f01=0x0190, f02=»******** + t ( P** ** , ( P** SAVE, AND COMMUNICATION AREA ** , < ( P** ** , h ( P************************************ , P , * PT:ATOD EQU *-REL T:ATAB 'OLD' ADDRESS , P DATA 0 , *
0x0a0dec…0a0f80 Dummy {f00=0x0066, f01=0x0190, f02=»-REL U:BTAB NEW ADDRESS , P DATA 0 - ( PS:BTOD EQU *-REL S:BTAB OLD ADDRESS - 0 P DATA 0 - ( PS:BTNW EQU *-REL S:BTAB NEW ADDRESS - l P DATA 0 - . PMOVADD EQU *-REL ADDRESS-CHANGE AFTER MOVE - P DATA 0 - 4 PMOVED EQU *-REL INDICATOR IF B
0x0a0f80…0a1114 (0, 204) Opaque[0x194]
0x0a1114…0a12a8 # DirEnt {nam=»PFTAB «, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x1080, f03=0x0000}
0x0a1114…0a12a8 IdxSect {
0x0a1114…0a12a8 f00 = 0x0084 // 0xa1114 @0x0
0x0a1114…0a12a8 f01 = 0x0002 // 0xa1116 @0x2
0x0a1114…0a12a8 gno = [ // 0xa1118 @0x4
0x0a1114…0a12a8 [0x00]: C0x0084.0x0.0
0x0a1114…0a12a8 ]
0x0a1114…0a12a8 }
0x0a12a8…0a143c Dummy {f00=0x0084, f01=0x0190, f02=» 0 P IDENT PFTAB REL 9.2 79-11-16 870105040920 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
0x0a143c…0a15d0 Dummy {f00=0x0084, f01=0x415e, f02=» l P* P EXTRN FDON LINE PRINTER 0 P EXTRN DMINIT DATA MANAGEMENT INITIALIZATION 2 $ PPFTAB DATA PFTABE-* TABLE LENGTH f P DATA DC15ON P DATA SOPR P* P DATA CHLTON P* P DATA FDON P DATA DMINIT
0x0a15d0…0a1764 Dummy {f00=0x0084, 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
0x0a1764…0a18f8 Dummy {f00=0x0084, f01=0x0190, f02=»O RESTART r P EXTRN IHLKM LKM INTERRUPT P EXTRN IHRTC REAL TIME CLOCK 4 P EXTRN IHTW TYPEWRITER X P EXTRN IHTC CASSETTE TAPE v ( P EXTRN IHSOP SYSTEM OPERATORS PANEL P P P P P P * P EXTRN CHRT1 REMOTE
0x0a18f8…0a1a8c Dummy {f00=0x0084, f01=0x0190, f02=»ANGER NO. 1 x ( P EXTRN IHCC2 2 ( P EXTRN IHCC3 3 @ * P EXTRN CHLT1 LOCAL CHANNEL UNIT NO. 1 l * P EXTRN CHLT2 LOCAL CHANNEL UNIT NO. 2 P EXTRN CHLT3 P EXTRN CHLT4 P EXTRN IHFD FLOPPY DISCE
0x0a1a8c…0a1c20 Dummy {f00=0x0084, f01=0x018e, f02=» 2 v P EXTRN IHMT MAG. TAPE $ P EXTRN ILLINT ILLEGAL INTERRUPT ( P EXTRN HALT HALT ROUTINE P P EXTRN BUG DEBUGGER p P EXTRN IHINPT PX:A EQU 0 MONITOR OPTION ( PX:B EQU 0 DATA MAN .TASKS IN SYSTEM * PX:C EQU 0 DM INDEX RECORD
0x0a1c20…0a1db4 (0, 205) Opaque[0x194]
0x0a1db4…0a1f48 # DirEnt {nam=»LKMAL «, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x1d38, f03=0x0000}
0x0a1db4…0a1f48 IdxSect {
0x0a1db4…0a1f48 f00 = 0x00e9 // 0xa1db4 @0x0
0x0a1db4…0a1f48 f01 = 0x0004 // 0xa1db6 @0x2
0x0a1db4…0a1f48 gno = [ // 0xa1db8 @0x4
0x0a1db4…0a1f48 [0x00]: C0x00e9.0x3.0
0x0a1db4…0a1f48 [0x01]: C0x00ea.0x0.0
0x0a1db4…0a1f48 ]
0x0a1db4…0a1f48 }
0x0a1f48…0a20dc Dummy {f00=0x00e9, f01=0x0190, f02=» 0 P IDENT LKMAL REL 9.2 79-11-16 870105040920 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
0x0a20dc…0a2270 Dummy {f00=0x00e9, f01=0x018e, 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
0x0a2270…0a2404 Dummy {f00=0x00e9, f01=0x0190, f02=» P EXTRN IXTASS " P EXTRN TCHPAG CHANGE MMU PAGE " P EXTRN TCHMMU CHANGE MMU TABLE @ P EJECT f P* t $ PLKMAL DATA LKMALE-* TABLE LENGTH ~ P DATA TIO TERMINAL I/O P DATA TWAIT TERMINAL WAIT P DATA TEXIT TERMINAL EXIT ( P
0x0a2404…0a2598 Dummy {f00=0x00e9, f01=0x018e, f02=» $ P DATA TLUSEG LOCK/UNLOCK SEGMENT P DATA TLDSEG SEGMENT TLDSEG , P DATA TABORT ABORT FUNCTION P P DATA 0 t 4 P DATA GETTIM GET CURRENT VALUE OF MONITOR CLOCK " P DATA SETTIM SET MONITOR CLOCK P DATA 0 *
0x0a2598…0a272c Dummy {f00=0x00e9, f01=0x4036, f02=» p PLKMALE EQU * P* P END &@ 2EG SEGMENT TLDSEG , P DATA TABORT ABORT FUNCTION P P DATA 0 t 4 P DATA GETTIM GET CURRENT VALUE OF MONITOR CLOCK " P DATA SETTIM SET MONITOR CLOCK P DATA 0 *
0x0a272c…0a28c0 Dummy {f00=0x00e9, f01=0x2008, f02=» f " P DATA SETTIM SET MONITOR CLOCK PLKMALE EQU * 4 P* H P END R@ ^INAL EXIT R ( P DATA TACTOT ACTIVATE OTHER TERMINAL t P DATA TPAUSE TERMINAL PAUSE P DATA TIMER TIMER P DATA GETBUF GET BUFFER P DATA RELB
0x0a28c0…0a2a54 (0, 206) Dummy {f00=0x00ea, f01=0x0190, f02=»K P* LKM P* DATA 16 P* 0 " P* INPUT A5 = TTAB ADDRESS : " P* A8 = ASBLK ADDRESS ` 0 P* WHERE ASBLK IS A PARAMETER BLOCK P* +----------+----------+ $ P* ASBLK I NO OF VOL FC I P* +
0x0a2a54…0a2be8 Dummy {f00=0x00ea, f01=0x0190, f02=»---------------------+ P* I I P* I VOL NAME I @ P* I I b P* +---------------------+ $ P* I MASTER INDEX " P* I FILE NAME P* D P* UPON C
0x0a2be8…0a2d7c Dummy {f00=0x00ea, f01=0x0190, f02=»ORMED j P* -1 = REQUEST ERROR P* 1 = DISC I/O ERROR , " P* 2 = NO FREE ENTRY IN TABLE J 8 P* 3 = NO FDB AVAILABLE OR MASTER INDEX CORE AVAIL p ( P* 4 = ONE OR MORE VOLUMES UNKNOWN " P* 5 = FILE CODE ALREADY USED P* 6 = FI
0x0a2d7c…0a2f10 Dummy {f00=0x00ea, f01=0x0190, f02=»S EXIST v " P* 10= NO DATA FILE ASSIGNED * P* 11= 4 INDEX FILES ALREADY ASSIGNED 6 $ P* 12= MAX KEY LENGTH TOO SMALL d 0 P* 13= REQUEST BUSY. REPEAT ASSIGN REQUEST P EJECT P* P*************** P* ENTRIES * P
0x0a2f10…0a30a4 Dummy {f00=0x00ea, f01=0x0190, f02=»TTA P ENTRY TASASB P ENTRY TASCVO " P ENTRY TASVOL 8 P ENTRY TASCXO N P ENTRY TASSEX d P ENTRY TASXLB z P ENTRY TASFDB P ENTRY TASVRL P ENTRY TASVLE P ENTRY TASVRN P ENTRY TASECB & P ENTRY TAS
0x0a30a4…0a3238 Dummy {f00=0x00ea, f01=0x0190, f02=»HLT HALT SYSTEM DUE TO DM (SYSGEN) ERROR P EJECT 0 P* > P***************** H P* EXTERNALS * b P***************** | P* P EXTRN DFTAB P EXTRN DFTABE P EXTRN SCTCDT P EXTRN DWTVOL P EXTRN FNDTID
0x0a3238…0a33cc Dummy {f00=0x00ea, f01=0x0190, f02=» TTB:TD,DMTASX P EXTRN ECBFC,ECBRC 0 P EXTRN MOV:US MOVE FROM USER TO SYSTEM AREA 0 $ P EXTRN HALT HALT SYSTEM ROUTINE d P EJECT TOSSIO P* P* . P***************************************** P* P* CONDITIONAL ASSEMB
0x0a33cc…0a3560 Dummy {f00=0x00ea, f01=0x018e, f02=»BTAINED BY SETTING MMUPAG EQU 1. P* ( PMMUPAG EQU 0 2 P* F P EJECT P P* ^ P******************* h P* DATA AREAS * P******************* P* PTASBLK DATA 0 USE INDICATOR $ PTASQUE DATA 0 ASSIGN QUEUE ANC
0x0a3560…0a36f4 (0, 207) Opaque[0x194]
0x0a36f4…0a3888 # DirEnt {nam=»CTABX «, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x1078, f03=0x0000}
0x0a36f4…0a3888 IdxSect {
0x0a36f4…0a3888 f00 = 0x0083 // 0xa36f4 @0x0
0x0a36f4…0a3888 f01 = 0x0002 // 0xa36f6 @0x2
0x0a36f4…0a3888 gno = [ // 0xa36f8 @0x4
0x0a36f4…0a3888 [0x00]: C0x0083.0x3.0
0x0a36f4…0a3888 ]
0x0a36f4…0a3888 }
0x0a3888…0a3a1c Dummy {f00=0x0083, f01=0x0190, f02=» 0 P IDENT CTABX REL 9.2 79-11-16 870105040920 P 8 P* @ P* CODE CONVERSION TABLE J P* l P* v P ENTRY CTABX P* P* * PC0 EQU 0 CODE CONVERSION COLUMN NO. 0 ( PC1 EQU 0 1 ( PC2 EQU
0x0a3a1c…0a3bb0 Dummy {f00=0x0083, f01=0x4142, f02=» 5 ( PC6 EQU 0 6 " ( PC7 EQU 0 7 N P* z P* P* PCTABX DATA C0 P DATA C1 P DATA C2 P DATA C3 P DATA C4 P DATA C5 P DATA C6
0x0a3bb0…0a3d44 Dummy {f00=0x0083, f01=0x2008, f02=» C7 EQU 0 7 * 4 * > * H CTABX DATA C1 R DATA C2 h DATA C2 x DATA C3 DATA C4 DATA C5 DATA C6 DATA C7 * * END @
0x0a3d44…0a3ed8 Dummy {f00=0x0083, 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
0x0a3ed8…0a406c Dummy {f00=0x0083, f01=0x0190, f02=» DRFD01 P* P************* P* * 2 P* EXTERNALS * H P* * ^ P************* t P* P EXTRN TDISP DISPATCHER P EXTRN TENDIO ENDIO P EXTRN DISIOE REQUEST ERROR EXTRN DWTST STATUS
0x0a406c…0a4200 Dummy {f00=0x0083, f01=0x0190, f02=»EA A5 | & ! EXTRN DWTSB2 STACK BASE 2 IN DWT ( P EXTRN SCTPLD PROGRAM LOADING DEVICE 8 ( P EXTRN SAVE8 SAVE A1-A8 ON A15 STACK d P EXTRN SETIMP TIMER & P EXTRN INTSAV INTERRUPT SAVE AREA & P EXTRN INIFLG INITIALIZATION FLAG & P EXTRN T
0x0a4200…0a4394 (0, 208) Opaque[0x194]
0x0a4394…0a4528 # DirEnt {nam=»DVTKB «, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x1cc0, f03=0x0000}
0x0a4394…0a4528 IdxSect {
0x0a4394…0a4528 f00 = 0x00e6 // 0xa4394 @0x0
0x0a4394…0a4528 f01 = 0x0002 // 0xa4396 @0x2
0x0a4394…0a4528 gno = [ // 0xa4398 @0x4
0x0a4394…0a4528 [0x00]: C0x00e6.0x0.0
0x0a4394…0a4528 ]
0x0a4394…0a4528 }
0x0a4528…0a46bc Dummy {f00=0x00e6, f01=0x0190, f02=» 0 P IDENT DVTKB REL 9.2 79-11-16 870105040920 P 8 " P* KEYBOARD DEVICE WORK TABLE @ P* f P ENTRY DVTKB TABLE ENTRY p P*** ( P EXTRN KBAD POINTER TO ADDRESSBLOCK P EXTRN ECH PMMUPAG EQU 0 P* PDVTKB EQU * TABL
0x0a46bc…0a4850 Dummy {f00=0x00e6, f01=0x0190, f02=»ATA DWTEND-DVTKB ORDER ( P DATA KBAD POINTER TO ADDRESS BLOCK P DATA 'KB' TTAB-ADDRESS J $ P DATA 0 WAIT/ACTIVATE INDICATOR j P DATA 0 TERMINAL QUEUE IFT MMUPAG=1 & " DATA 0 SAVE AREA USER ECB ADDRESS DATA DEVECB MMU ECB ADD
0x0a4850…0a49e4 Dummy {f00=0x00e6, f01=0x0190, f02=»ATA 0 SAVE AREA FOR A5 P RES 4 DWT-STACK P DATA 0 TIMER POINTER 6 P DATA ECH ECHO DEVICE T $ P DATA /BCA BACKSPACE AND CANCEL r " P DATA /ED0 EOR AND DOUBLE ZERO 6 P DATA DWTSQ+DVTKB POINTER TO FIRST PLACE IN QUEUE 4 P DATA DWTSQ+DV
0x0a49e4…0a4b78 Dummy {f00=0x00e6, f01=0x40de, f02=»0,0,0 P IFT MMUPAG=1 PDEVECB EQU * $ P DATA 0,0,0,0,0,0 8 P DATA 0,0,0,0,0,0,0,0 R P DATA 0,0,0,0,0,0,0,0 p P DATA 0,0,0,0 P XIF PDWTEND EQU * P* P END @ IRST PLACE IN QUEUE 4 P DATA DWTSQ+DV
0x0a4b78…0a4d0c Dummy {f00=0x00e6, f01=0x2008, f02=» BLE ZERO 6 P DATA DWTSQ+DVTKB POINTER TO FIRST PLACE IN QUEUE 4 P DATA DWTSQ+DVTKB POINTER TO LAST PLACE IN QUEUE R PDWTSQ EQU *-DVTKB P RES 0 P* P END @ 0 SAVE AREA FOR A4 P DATA 0 SAVE AREA FOR A5 P R
0x0a4d0c…0a4ea0 Dummy {f00=0x00e6, f01=0x417c, f02=» @ @ T T ! & 'T /P f H D ! 3 R 7 AV E OP _P$ kR { W PH P> P P R Q " H D ! P R R W Wr W T W P 'W 1P 9 IP g kQf n H D ! mR$ uP {R6 V2 P P8 R2 V. P T W T T W H D !
0x0a4ea0…0a5034 (0, 209) Opaque[0x194]
0x0a5034…0a51c8 # DirEnt {nam=»DVTTP «, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0cd8, f03=0x0000}
0x0a5034…0a51c8 IdxSect {
0x0a5034…0a51c8 f00 = 0x0066 // 0xa5034 @0x0
0x0a5034…0a51c8 f01 = 0x0002 // 0xa5036 @0x2
0x0a5034…0a51c8 gno = [ // 0xa5038 @0x4
0x0a5034…0a51c8 [0x00]: C0x0066.0x3.0
0x0a5034…0a51c8 ]
0x0a5034…0a51c8 }
0x0a51c8…0a535c Dummy {f00=0x0066, f01=0x0190, f02=» 0 P IDENT DVTTP REL 9.2 79-11-16 870105040920 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.
0x0a535c…0a54f0 Dummy {f00=0x0066, 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
0x0a54f0…0a5684 Dummy {f00=0x0066, f01=0x40ec, f02=»ATA 0,0,0,0 STACK P DATA 0 TIMER POINTER ( P DATA 0 REQUESTED,ACTUAL LINE NUMBER 8 P IFT MMUPAG=1 d PDEVECB EQU * z P DATA 0,0,0,0,0,0 P XIF PDWTEND EQU * P* P* P END @ VE AREA USER ECB ADDRESS
0x0a5684…0a5818 Dummy {f00=0x0066, 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
0x0a5818…0a59ac Dummy {f00=0x0066, f01=0x0190, f02=»EQUEST ERROR + P SUK A2,18 , P ABL(P) FD:DIS REQUEST ERROR , & P ADK A2,25 , J P SLL A2,3 BIO , P LDK A3,80 LENGTH , r P LDKL A4,BUF , P CF A5,FD:REA , P LDR A1,A3 RETURN CODE , P SLL A1,4 CHECK NO DATA BIT , P RF(NN) LOA:60 N
0x0a59ac…0a5b40 Dummy {f00=0x0066, f01=0x0190, f02=»,A8 DATA SET LABEL SECTOR , P LDK A1,DWTDSS - " P CF A5,STDWT SAVE IN DWT - 8 P ADK A4,BOE BOE ADDRESS - X . P CF A5,LOGSEC TRANSFORM TO LOGICAL SECTOR - x P LDK A1,DWTBOE - $ P CF A5,STDWT STORE BOE NO IN DWT - P SUK A3,1 CRN - P LDK A1,DW
0x0a5b40…0a5cd4 (0, 210) Opaque[0x194]
0x0a5cd4…0a5e68 # DirEnt {nam=»DVTGP «, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0ce0, f03=0x0000}
0x0a5cd4…0a5e68 IdxSect {
0x0a5cd4…0a5e68 f00 = 0x0067 // 0xa5cd4 @0x0
0x0a5cd4…0a5e68 f01 = 0x0002 // 0xa5cd6 @0x2
0x0a5cd4…0a5e68 gno = [ // 0xa5cd8 @0x4
0x0a5cd4…0a5e68 [0x00]: C0x0067.0x0.0
0x0a5cd4…0a5e68 ]
0x0a5cd4…0a5e68 }
0x0a5e68…0a5ffc Dummy {f00=0x0067, f01=0x0190, f02=» 0 P IDENT DVTGP REL 9.2 79-11-16 870105040920 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
0x0a5ffc…0a6190 Dummy {f00=0x0067, f01=0x0190, f02=»ATA DWTEND-DVTGP ORDER ( P DATA GPAD POINTER TO ADDRESS-BLOCK P DATA 'GP' 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
0x0a6190…0a6324 Dummy {f00=0x0067, f01=0x40e8, f02=»REA FOR A5 P RES 4 DWT-STACK P DATA 0 TIMER POINTER * " P DATA 0 HEAD POSITIPN POINTER H P IFT MMUPAG=1 n PDEVECB DATA 0,0,0,0,0,0 P XIF PDWTEND EQU * P* P* P END @ DATA DEVECB MMU ECB ADD
0x0a6324…0a64b8 Dummy {f00=0x0067, 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
0x0a64b8…0a664c Dummy {f00=0x0067, f01=0x0190, f02=»A5,DSOPCH 3 P CMR A2 INDICATE NOT OPEN 4 P* 4 4 P* UNLOCK 4 > P* 4 R P XIF 4 PUNL:70 EQU * 4 h P LDK A2,/C UNLOCK 4 | P CF A5,FD:REA 4 P ORS A3,DWTRCW,A6 4 P ANK A3,1 4 , P RF(NZ) UNL:80 NOT OPERABLE,STILL LOCKED 4 P
0x0a664c…0a67e0 Dummy {f00=0x0067, f01=0x0190, f02=»S+IBM=0 4 P* 5 P* UNLOAD RETURN CODE CHECK 5 P* 5 > PUNL:RC ORS A3,DWTRCW,A6 5 H P ANK A3,/7 FATAL ERROR? 5 h P RB(NZ) UNL:80 ENDIO 5 P RTN A5 5 P XIF 5 P IFT IBM=1 5 P EJECT DRFD01 5 P* 5 P*******************
0x0a67e0…0a6974 (0, 211) Opaque[0x194]
0x0a6974…0a6b08 # DirEnt {nam=»DVTDI «, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0ce8, f03=0x0000}
0x0a6974…0a6b08 IdxSect {
0x0a6974…0a6b08 f00 = 0x0067 // 0xa6974 @0x0
0x0a6974…0a6b08 f01 = 0x0002 // 0xa6976 @0x2
0x0a6974…0a6b08 gno = [ // 0xa6978 @0x4
0x0a6974…0a6b08 [0x00]: C0x0067.0x1.0
0x0a6974…0a6b08 ]
0x0a6974…0a6b08 }
0x0a6b08…0a6c9c Dummy {f00=0x0067, f01=0x0190, f02=» 0 P IDENT DVTDI REL 9.2 79-11-16 870105040920 P 8 P =1,HANG UP AT /03 OUTPUT @ P REL 9.1 79-05-23 d P* . P* DEVICE WORK TABLE FOR DISPLAY INDICATOR P* P* & P ENTRY DVTDI DISPLAY INDICATOR 03 P* P*
0x0a6c9c…0a6e30 Dummy {f00=0x0067, f01=0x0190, f02=»METER x 0 P DATA /8000 STATUS. /8000 MEANS DEVICE READY P DATA 0 ECB ADDRESS B P DATA DWTEND-DVTDI ORDER ^ ( P DATA DIAD POINTER TO ADDRESS-BLOCK ~ 6 P DATA 'DI',0 TERM.NUMBER AND PROGRAM START ADDRESS $ P DATA 0 ECB QUEUE ANCHOR ADDRESS
0x0a6e30…0a6fc4 Dummy {f00=0x0067, f01=0x415e, f02=» | P DATA /2010 P DATA /3F4F,/5F6F * P DATA 0 SAVE AREA FOR FLASHING LIGHTS 6 P DATA 0 TIMER POINTER d P DATA 0 DUMMY WORD =1 P DATA 0 DUMMY WORD =1 " P DATA 0 DUMMY TIMER POINTER =1 P IFT MMUPAG=1 PDEVECB DATA 0,
0x0a6fc4…0a7158 Dummy {f00=0x0067, 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
0x0a7158…0a72ec Dummy {f00=0x0067, f01=0x018e, f02=» P LDKL A1,/C000 WORDS,WRITE < P XIF < & P IFT CHAN=1 < 2 ( P CM DWTRW,A6 INDICATOR TO WRITE MODE < F P XIF < r P RF FD:800 < ~ P* < PFD:REA EQU * < P IFT CHAN=1 < P LDK A1,1 < P ST A1,DWTRW,A6 READ MODE < P XIF < P IFT C
0x0a72ec…0a7480 Dummy {f00=0x0067, f01=0x0190, f02=» P* = P IFT MMUPAG=1 = & P ORR* A1,A8 GET FIRST WORD OF ECB = $ * P ANKL A1,/F000 KEEP FOUR LEFTMOST BITS = N P XIF = | P* = P IFT CHAN=0 = P ORR A3,A1 = PWER1 WER A3,MUXADR FIRST WER = $ PWER2 WER A4,MUXADR+1 SECOND WER = P XIF
0x0a7480…0a7614 (0, 212) Opaque[0x194]
0x0a7614…0a77a8 # DirEnt {nam=»DVTDY «, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0cf0, f03=0x0000}
0x0a7614…0a77a8 IdxSect {
0x0a7614…0a77a8 f00 = 0x0067 // 0xa7614 @0x0
0x0a7614…0a77a8 f01 = 0x0002 // 0xa7616 @0x2
0x0a7614…0a77a8 gno = [ // 0xa7618 @0x4
0x0a7614…0a77a8 [0x00]: C0x0067.0x2.0
0x0a7614…0a77a8 ]
0x0a7614…0a77a8 }
0x0a77a8…0a793c Dummy {f00=0x0067, f01=0x0190, f02=» 0 P IDENT DVTDY REL 9.2 79-11-16 870105040920 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
0x0a793c…0a7ad0 Dummy {f00=0x0067, f01=0x0190, f02=»A DWTEND-DVTDY ORDER ( P DATA DYAD POINTER TO ADDRESS-BLOCK P DATA 'DY' TTAB-ADDRESS H $ P DATA 0 WAIT/ACTIVATE INDICATOR h P DATA 0 TERMINAL QUEUE IFT MMUPAG=1 & " DATA 0 SAVE AREA USER ECB ADDRESS DATA DEVECB MMU ECB ADDRE
0x0a7ad0…0a7c64 Dummy {f00=0x0067, f01=0x4150, f02=»A FOR A5 P RES 4 DWT-STACK P DATA 0 TIMER POINTER ( P DATA /101 CURSOR POINTER F ( P DATA /ABC LEFT BYTE=NUMBER OF LINES h " P RIGHT BYTE=CHARACTERS/LINE P DATA 0 BUFFER INDEX P IFT MMUPAG=1 PDEVECB DATA 0,0,0,0,0,0
0x0a7c64…0a7df8 Dummy {f00=0x0067, 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
0x0a7df8…0a7f8c Dummy {f00=0x0067, f01=0x0190, f02=» P LD A7,DWTOR,A6 L P ANK A7,/3F ORDER L P LD A8,DWTECB,A6 ECB ADDRESS L 6 P ABL FDAD REACTIVATE L Z P EJECT DRFD01 L v P* L P********************* L P* * L P* INTERRUPT HANDLER * L P* *
0x0a7f8c…0a8120 Dummy {f00=0x0067, f01=0x018e, f02=» L r P IFT CPU852=1 M * P CF A15,SAVE8 SAVE REGISTERS ON STACK M P XIF M L P* M X P IFT CPU852=0 M b " P MSR 8,A15 SAVE A1-A8 ON STACK M x P XIF M P* M P LDKL A6,DWFD01 DWT ADDRESS M P IFT CHAN=1 M P ENB M & P LD A1,DWTUB,A6
0x0a8120…0a82b4 (0, 213) Opaque[0x194]
0x0a82b4…0a8448 # DirEnt {nam=»DWII01«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0d30, f03=0x0000}
0x0a82b4…0a8448 IdxSect {
0x0a82b4…0a8448 f00 = 0x0069 // 0xa82b4 @0x0
0x0a82b4…0a8448 f01 = 0x0002 // 0xa82b6 @0x2
0x0a82b4…0a8448 gno = [ // 0xa82b8 @0x4
0x0a82b4…0a8448 [0x00]: C0x0069.0x2.0
0x0a82b4…0a8448 ]
0x0a82b4…0a8448 }
0x0a8448…0a85dc Dummy {f00=0x0069, f01=0x0190, f02=» 2 P IDENT DWII01 REL 9.2 79-11-16 870105040920 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
0x0a85dc…0a8770 Dummy {f00=0x0069, 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
0x0a8770…0a8904 Dummy {f00=0x0069, 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
0x0a8904…0a8a98 Dummy {f00=0x0069, 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
0x0a8a98…0a8c2c Dummy {f00=0x0069, f01=0x0190, f02=»CORRESPONDING T:A-ADDRESS x * P ES A4,T:ATID,A3 REPLACE TCL IN T:A =3 " 0 P EL* A3,T:ATNW,A13 GET LENGTH OF REAL T:ATAB P $ P NGR A3,A3 NEGATIVE DISPLACEMENT . P ADR A3,A8 COMPUTE ENTRY IN AUX. TID TABLE 0 P ESR A4,A3 SAVE TID FOR DEBUGGER PURPOSE =
0x0a8c2c…0a8dc0 Dummy {f00=0x0069, f01=0x0190, f02=»NT ~ ( P SUK A6,1 DECREMENT NUMBER OF COPIES P RB(P) CHT:20 NEXT COPY 6 PCHT:90 RTN A14 V P EJECT l P z P 4 P************************************************ 4 P*** *** 4 P**
0x0a8dc0…0a8f54 (0, 214) Opaque[0x194]
0x0a8f54…0a90e8 # DirEnt {nam=»DWIO01«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0cf8, f03=0x0000}
0x0a8f54…0a90e8 IdxSect {
0x0a8f54…0a90e8 f00 = 0x0067 // 0xa8f54 @0x0
0x0a8f54…0a90e8 f01 = 0x0002 // 0xa8f56 @0x2
0x0a8f54…0a90e8 gno = [ // 0xa8f58 @0x4
0x0a8f54…0a90e8 [0x00]: C0x0067.0x3.0
0x0a8f54…0a90e8 ]
0x0a8f54…0a90e8 }
0x0a90e8…0a927c Dummy {f00=0x0067, f01=0x0190, f02=» 2 P IDENT DWIO01 REL 9.2 79-11-16 870105040920 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
0x0a927c…0a9410 Dummy {f00=0x0067, 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
0x0a9410…0a95a4 Dummy {f00=0x0067, 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
0x0a95a4…0a9738 Dummy {f00=0x0067, 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
0x0a9738…0a98cc Dummy {f00=0x0067, f01=0x0190, f02=»RC-PROCESS TERMINAL 2 C z & P DATA 0 LRC-ACKUMULATOR TERMINAL 1 D & P DATA 0 LRC-ACKUMULATOR TERMINAL 2 D H , P DATA 0 CHANNEL STATUS WORD (LOOP-TESTS) D r $ P DATA 0 BLOCK SENDING INDICATOR D P XIF D P EJECT D $ P******************************** D
0x0a98cc…0a9a60 Dummy {f00=0x0067, f01=0x018e, f02=»ANNEL NO. 2 D f " P* CONNECTED TO FOURTH CHRT E P* E : PCWTRT8 EQU * E D P* E X P IFT RECHAN=4 E b P DATA 0 LAST OUTPUT DWT E x P DATA 0 LAST OUTPUT WORD E P DATA INTRT4 INTERRUPT TABLE E P INR A2,0,DWA8 INR E P OTR A2,1,DWA8 OTR
0x0a9a60…0a9bf4 (0, 215) Opaque[0x194]
0x0a9bf4…0a9d88 # DirEnt {nam=»DW1501«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0d00, f03=0x0000}
0x0a9bf4…0a9d88 IdxSect {
0x0a9bf4…0a9d88 f00 = 0x0068 // 0xa9bf4 @0x0
0x0a9bf4…0a9d88 f01 = 0x0002 // 0xa9bf6 @0x2
0x0a9bf4…0a9d88 gno = [ // 0xa9bf8 @0x4
0x0a9bf4…0a9d88 [0x00]: C0x0068.0x0.0
0x0a9bf4…0a9d88 ]
0x0a9bf4…0a9d88 }
0x0a9d88…0a9f1c Dummy {f00=0x0068, f01=0x0190, f02=» 2 P IDENT DW1501 REL 9.2 79-11-16 870105040920 P : P* B : P* DEVICE WORK TABLE FOR DATA-COMMUNICATION DEVICE 1 L P* P ENTRY DW1501 TABLE ENTRY * P EXTRN DC15AD POINTER TO ADDRESS-BLOCK P* PMMUPAG EQU 1 P*
0x0a9f1c…0aa0b0 Dummy {f00=0x0068, f01=0x0190, f02=»DRESS P DATA DWTEND-DW1501 P RIGHT BYTE=ORDER * * P DATA DC15AD 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
0x0aa0b0…0aa244 Dummy {f00=0x0068, f01=0x412a, f02=»ATA 0 STATUS QUEUE P DATA 0 RECEIVE QUEUE P DATA 0 BUFFER ADDRESS 8 P DATA 0 CURSOR ADDRESS V " P DATA 0 REQUEST TIMEOUT VALUE t P* P IFT MMUPAG=1 PDC:ECB EQU * MMU ECB P DATA 0,0,0,0,0,0 P XIF P* PDW
0x0aa244…0aa3d8 Dummy {f00=0x0068, f01=0x2008, f02=» ATUS QUEUE P DATA 0 RECEIVE QUEUE P DATA 0 BUFFER ADDRESS 8 P DATA 0 CURSOR ADDRESS V , P DATA 50 REQUEST TIMEOUT. DEFAULT 5 SEC. t P* P IFT MMUPAG=1 PDC:ECB EQU * MMU ECB P DATA 0,0,0,0,0,0 P XIF P*
0x0aa3d8…0aa56c Dummy {f00=0x0068, f01=0x0190, f02=» k z P LDK A1,LMP4 FORMAT ERROR l P CALL ERROR l * PALLB50 EQU * l > * P ES A4,BA,A1 AND ESORE IN CURRENT ECB l R P XIF l P IFF CREDIT=0 l P RB ALLB10 l P l P IFT CREDIT-MMUPAG=1 l PNOTSH LDR A9,A9 PAGING? l P RF(NZ) NOTS10 N
0x0aa56c…0aa700 Dummy {f00=0x0068, f01=0x0190, f02=»LLOCATE BUFFER FROM TOP l ~ P ADKL A9,1 m P ANKL A9,/FFFE EVEN ADDRESS m 2 P* CHECK ADDRESS: m V P m n " P LD A11,LSTADR,A13 DATA START m z P CALL CMPADR m P RF(NL) ALLB60 OK! m P LDKL A1,LMP3 m P CALL ERROR m PALLB60 EQU * m
0x0aa700…0aa894 (0, 216) Opaque[0x194]
0x0aa894…0aaa28 # DirEnt {nam=»DRKB03«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x1c68, f03=0x0000}
0x0aa894…0aaa28 IdxSect {
0x0aa894…0aaa28 f00 = 0x00e3 // 0xaa894 @0x0
0x0aa894…0aaa28 f01 = 0x0010 // 0xaa896 @0x2
0x0aa894…0aaa28 gno = [ // 0xaa898 @0x4
0x0aa894…0aaa28 [0x00]: C0x00e3.0x1.0
0x0aa894…0aaa28 [0x01]: C0x00e3.0x2.0
0x0aa894…0aaa28 [0x02]: C0x00e4.0x1.0
0x0aa894…0aaa28 [0x03]: C0x00e4.0x3.0
0x0aa894…0aaa28 [0x04]: C0x00e5.0x0.0
0x0aa894…0aaa28 [0x05]: C0x00e5.0x1.0
0x0aa894…0aaa28 [0x06]: C0x00e5.0x2.0
0x0aa894…0aaa28 [0x07]: C0x00e5.0x3.0
0x0aa894…0aaa28 ]
0x0aa894…0aaa28 }
0x0aaa28…0aabbc Dummy {f00=0x00e3, f01=0x0190, f02=» 2 P IDENT DRKB03 REL 9.2 79-11-16 870105040920 P : P* B 0 P******************************************* L P* $ P* PHILIPS TERMINAL SYSTEM PTS P* P* DRKB01 = DRIVER KEYBOARD P* P* P* P* P
0x0aabbc…0aad50 Dummy {f00=0x00e3, f01=0x0190, f02=» d . P* AND ALPHANUMERIC KEYBOARDS PTS 6236, , P* CONNECTED TO CPU VIA CHLT OR CHRT. : P* j : P* ONLY INPUT DATA FROM DEPRESSED KEYS AND KEY-LOCKS t $ P* ARE HANDLED BY THE DRIVER. P* 0 P* AN ECHO-DEVICE CAN BE ATTACHED
0x0aad50…0aaee4 Dummy {f00=0x00e3, f01=0x0190, f02=»PARTS: j P* " P* A C K B : ACTIVATION PART P* > $ P* I H K B : INTERRUPT HANDLER H P* p P* E C H O : ECHO HANDLER z P* $ P* R C K B : RECOVERY ROUTINE P* P EJECT P* P* , P* THE FOL
0x0aaee4…0ab078 Dummy {f00=0x00e3, f01=0x0190, f02=»IC READ | & P* ORDER 31: RESET INPUT BUFFER P* : P* D P* NORMAL REGISTER USAGE : N P* r " P* REGISTER A1 : RETURN CODE | & P* A2 : INPUT CHARACTER $ P* A3 : BUFFER INDEX $ P* A4 : W
0x0ab078…0ab20c Dummy {f00=0x00e3, f01=0x0190, f02=» A8 : ECB-ADDRESS P* P* ( P* 2 P* SYSTEM ADAPTATION < P* Z 8 P* CODES FOR SPECIAL CHARACTERS CLEAR, BACKSPACE, d 8 P* MULTIPLE ZERO AND STANDARD EOR MUST BE DEFINED P* IN DWT. P* 2 P* DWT-ADDRE
0x0ab20c…0ab3a0 Dummy {f00=0x00e3, f01=0x0190, f02=»T MUST BE SET UNEQUAL TO ZERO. 2 P* STANDARD VALUE FOR TIME-OUT IS 30 SECONDS & 4 P* SINCE LAST DEPRESSED KEY. IF ANOTHER VALUE * P* IS WANTED FOR A SYSTEM, INDICATOR $ P* IN DRIVER MUST BE CHANGED. P* 4 P* THE LENGTH OF T
0x0ab3a0…0ab534 (0, 217) Dummy {f00=0x00e3, f01=0x018e, f02=»AME FOR ALL h P* DWT:S IN SYSTEM P EJECT 0 P* > 8 P* BY MEANS OF CONDITIONAL ASSEMBLY IT IS POSSIBLE H 8 P* TO EXCLUDE FROM THE DRIVER FOLLOWING FUNCTIONS: P* P* -----ECHO-FUNCTION " P* -----POWER ON INDICATION
0x0ab534…0ab6c8 Dummy {f00=0x00e3, f01=0x0190, f02=» P* ENTRIES P* P* & P ENTRY KBAD3 ADDRESS-BLOCK 0 P* R P* P* f & P* EXTERNAL TOSS MODULE ENTRIES p P* P* P* $ P EXTRN DISIOE I/O REQUEST ERROR . P EXTRN DISEND END I/O AND GO TO DISPATCH
0x0ab6c8…0ab85c Dummy {f00=0x00e3, f01=0x0190, f02=» STREG STORE REGISTERS AND GO TO DISPATCER , P EXTRN LDREGE RETURN FROM ECHOE HANDLING 2 P EXTRN LDREGF PANIK EXTERN b P EXTRN SETIME SET TIME P EXTRN SETIMP SET TIME " P EXTRN SAVE8 SAVE 8 REGISTERS " P EXTRN ECHRTN RETURN FROM ECHO
0x0ab85c…0ab9f0 Dummy {f00=0x00e3, f01=0x0190, f02=» P* P* " P EXTRN DWTCHP CHANEL PARAMETER P EXTRN DWTST STATUS > EXTRN DWTBC BYTE COUNTER Z & " EXTRN DWTADR DRIVER ADDRESS BLOCK | P EXTRN DWTA3 SAVE AREA A3 EXTRN DWTA4 SAVE AREA A4 EXTRN DWTA5 SAVE AREA A5
0x0ab9f0…0abb84 Dummy {f00=0x00e3, f01=0x018e, f02=» INPUT DWT ~ P EJECT P* P* * P* 4 P* CONSTANTS > P* V P* ` P* j * POVMASK EQU /2 OVERFLOW IN INPUT BUFFER t P* . PX:F EQU 20 LENGTH OF CIRCULAR INPUT BUFFER 2 PDWTLNG EQU 40 NUMBER OF BYTES IN DECIMAL F
0x0abb84…0abd18 Dummy {f00=0x00e3, f01=0x018e, f02=» P* P* , P**************************************** , P* CONDITIONAL ASSEMBLY * L , P**************************************** | P* . P* TIME OUT FUNCTION MAY BE EXCLUDED BY P* SETTING X:A = 0. P*
0x0abd18…0abeac Dummy {f00=0x00e3, f01=0x0190, f02=» PX:B EQU 1 PCECHO EQU 1 P* . > P* BY SETTING X:E = 1 THE FOLOWING POWER OFF FUNCTION 8 & P* IS INCLUDED IN THE DRIVER. z < P* IF THERE IS A READ REQUEST THIS IS COMPLETED WITH , P* ZERO IN THE CONTROL WORD OF E
0x0abeac…0ac040 Dummy {f00=0x00e3, f01=0x0190, f02=»WORD X P* OF ECB P* " P* , PX:E EQU 0 6 PPOWOFF EQU 1 H P* P* f P* p N P* BY SETTING X:H = 1 THE KEY A15IS USED AS A NUMERIC SHIFT ON KB 71/72 z PX:H EQU 0 PNSHIFT EQU 1 P* P* B P*
0x0ac040…0ac1d4 (0, 218) Dummy {f00=0x00e4, f01=0x018e, f02=»M VERSION USING TOSS MMU PAGING * P* IS OBTAINED BY SETTING MMUPAG EQU 1. ( P* V PMMUPAG EQU 1 ` P* t P* ~ 6 P* A PROGRAM VERSION USING THE EXTENDED INSTRUCTION . P* SET IS OBTAINED BY SETTING CPU852 EQU 0. P* PCPU852 EQU
0x0ac1d4…0ac368 Dummy {f00=0x00e4, f01=0x0190, f02=» P* MMU KEY TABLE SIZE P* " P* , PX:K EQU 10 6 PDVBKTB EQU 40 H P* ^ P EJECT h P* v P* P* DWT-DISPLACEMENT P* P* 0 PDWTDRD EQU /10 START OF DRIVER DEFINED PART P* P IFT MMUPAG=0
0x0ac368…0ac4fc Dummy {f00=0x00e4, f01=0x0190, f02=»TART+/00 CONVERSION TABLE 8 PDWTINQ EQU START+/18 POINTER TO FIRST PLACE IN QUEUE " 8 PDWTUTQ EQU START+/1A POINTER TO LAST PLACE IN QUEUE ^ & PDWTSQ EQU START+/1C START OF QUEUE ( PDWTEQ EQU DWTSQ+DWTLNG END OF QUEUE P* ( P* SPECIA
0x0ac4fc…0ac690 Dummy {f00=0x00e4, f01=0x018e, f02=»ARACTER t . PKBMZ2 EQU START+/17 DOUBLE ZERO CHARACTER PKBMZ3 EQU START+/16 B P* ^ P EJECT h P* TABLES v P* P* $ P DATA DVBKTB MMU KEY TABLE SIZE P DATA DVBLEN MMU BUFFER SIZE P DATA 6 DEVICE INDEX P
0x0ac690…0ac824 Dummy {f00=0x00e4, f01=0x0190, f02=» r P IFT POWOFF=1 P DATA RCKB RECOVERY ROUTINE P XIF B P IFT POWOFF=0 N P DATA 0 NO RECOVERY d P XIF P* P IFT POWOFF=1 P EJECT P* RCKB P* P* RECOVERY PART P* P* PRCKB
0x0ac824…0ac9b8 Dummy {f00=0x00e4, f01=0x0190, f02=» " P MSR 8,A15 SAVE A1-A8 ON STACK P XIF . P* : P IFT POWOFF=1 D P LD A3,DWTST,A6 BUSY? Z P RF(NN) RCKB10 x P LDKL A1,/200 ( P ORS A1,DWTST,A6 INDICATE POWER OFF P ABL TDISP & PRCKB10 CF A5,LDREGE LOAD REGISTERS
0x0ac9b8…0acb4c Dummy {f00=0x00e4, f01=0x0190, f02=»Y OF ORDERS AND j P* @ P* EXAMINES INPUT BUFFER TO SEE IF SOME QUEUED CHARACTER " P* f P* TO THREAT p P* P* P* P* PACKB EQU * P LDKL A1,/FEFF 2 P ANS A1,DWTST,A6 RESET INETRRUPT ALLOWED FLAG
0x0acb4c…0acce0 Dummy {f00=0x00e4, f01=0x0190, f02=»N) AKB200 ORDER 1,2 OR 3 P SUK A4,/2D P RF(Z) AKB110 ORDER 31 4 * PAKB100 ORKL A1,/8000 I/0 REQUEST ERROR R P ABL ENDI10 P EJECT P* P* P* & P* ORDER 31 RESET INPUT BUFFER P* P* P* P
0x0acce0…0ace74 (0, 219) Dummy {f00=0x00e4, f01=0x0190, f02=»JECT P* P* P* ORDER 1,2,3 P* : P* D P* N PAKB200 EQU * X P IFT POWOFF=1 l P LD A2,DWTST,A6 P ANKL A2,/200 POWER OFF? P RF(E) AKB205 NO! ( P XRS A2,DWTST,A6 RESET POWER OFF BIT PAKB202 E
0x0ace74…0ad008 Dummy {f00=0x00e4, f01=0x0190, f02=»B218 P XIF PAKB205 EQU * P IFT CTIMUT=1 , P LDR* A1,A6 B P ANK A1,/40 TIMING? V , P RF(E) AKB210 NO TIMING FOR THIS DEVICE! r , P LD A4,DWTTP,A6 CHECK IF ALREADY TIMING P RF(E) AKBTIM P LDKL A4,-TIME P ST* A4,DW
0x0ad008…0ad19c Dummy {f00=0x00e4, f01=0x0190, f02=» P CF A15,SETIMP SET TIME 0 P DATA AKBTUT,TIME TIME OUT ROUTINE AND TIME $ . P ST A4,DWTTP,A6 STORE TIMER ADDRESS IN DWT X P XIF P* P EJECT P* IF ANY KEY-LOCK: P* : P* RESET "CHANGED-KEY" FLAG AND MAKE KEY-CHA
0x0ad19c…0ad330 Dummy {f00=0x00e4, f01=0x0190, f02=»* AND END I/O. ELSE CONTINUE. P* * P* 4 PAKB210 EQU * > " P LD A2,DWTST,A6 ANY KEY-LOCK? R P ANK A2,/F x P RF(Z) AKB219 P SLL A2,1 P SRN A2,A4 P LDR A1,A4 P CWK A4,3 P RF(N) AKB212 P RF(P) AKB
0x0ad330…0ad4c4 Dummy {f00=0x00e4, f01=0x0190, f02=» P SLL A4,4 P AN A4,DWTST,A6 P STR A4,A15 SAVE A4 . P STR A3,A15 J P SRN A2,A3 ORDER 1 ^ " P ADR A3,A3 MAKE CHARACTER FLAG x P LDR A4,A4 P RF(NE) AKB213 P ADK A3,1 PAKB213 ADK A3,/70 P LDR A2,A3 P L
0x0ad4c4…0ad658 Dummy {f00=0x00e4, f01=0x0190, f02=»BASIC READ z " PAKB214 NGR A2,A1 MAKE ECB CODE P LDR A4,A4 KEY FLAG 8 P RF(E) AKB215 T P SUK A2,4 j , PAKB215 ST A2,10,A8 KEY-LOCK CODE IN ECB | PAKB218 ABL AKB380 ( PAKB219 LD A2,4,A8 REQUESTED LENGTH=0 PAKB220 ABL(E) AKB380
0x0ad658…0ad7ec Dummy {f00=0x00e4, f01=0x0190, f02=» & PAKB230 SCR A3,A1 CLEAR ECB BUFFER P SUK A1,1 . P SUK A2,1 @ P RB(NE) AKB230 R PAKB240 EQU * h P LD A1,DWTUTQ,A6 | P LCR A2,A1 PAKB245 LDR A4,A2 P XRK A4,/FF OVERFLOW? P RF(NE) AKB250 N0! PAKB247 SCR A4,A1 Y
0x0ad7ec…0ad980 Dummy {f00=0x00e4, f01=0x0190, f02=»55 " P CF A5,STREG NOTHING IN QUEUE P IFT CTIMUT=1 2 * P LDR A1,A1 CHECK TIME OUT RETURN CODE H P RF(Z) AKB257 NO TIME OUT v $ P ABL ENDI05 END I/O AT TIME OUT P XIF P IFT CTIMUT=0 P RF AKB257 P XIF * PAKB255 C
0x0ad980…0adb14 (0, 220) Dummy {f00=0x00e5, f01=0x0190, f02=» RF(NN) AKB310 ORDER 2 OR 3 P EJECT $ P* 2 P* < P* ORDER 1 BASIC READ F P* f P* p P* z 6 PAKB305 CF A15,STORE STORE CHARACTER IN ECB-BUFFER P IFT CECHO=1 P CF A5,ECHO P XIF PAKB307 CW A3,4,A8
0x0adb14…0adca8 Dummy {f00=0x00e5, f01=0x0190, f02=» P EJECT P* P* P* * 4 P* ORDER 2 OR 3 STANDARD AND NUMERIC READ 4 P* l B P* CHECK IF READ CHARACTER IS FOUND IN KEY-TABLE (IF ANY) v P* P* P* P* PAKB310 EQU * " P LD A1,10,A8 KEY
0x0adca8…0ade3c Dummy {f00=0x00e5, f01=0x018e, f02=»ACE IN KEY-TABLE ~ P ADK A1,1 PAKB355 SUK A4,1 * , P RF(N) AKB360 KEY NOT FOUND IN KEY-TABLE B P SUK A1,1 NEXT KEY r P CCR A2,A1 EOR? P RB(NE) AKB355 NO! P ADK A4,1 , P ST A4,10,A8 STORE INDEX IN CONTROL WORD " P CF A15,
0x0ade3c…0adfd0 Dummy {f00=0x00e5, f01=0x0190, f02=» P RF AKB380 ! PAKB360 EQU * ! P LDR A4,A2 ! . P CC A4,KBMZ2,A6 ! @ P RF(E) KBMZ20 ! X P CC A4,KBMZ3,A6 ! n P RF(E) KBMZ30 ! P CC A4,KBBSP,A6 ! P RF(E) KBSP10 ! P CC A4,KBCLR,A6 ! P RF(E) KBCL10 ! , P CF A15,STORE ST
0x0adfd0…0ae164 Dummy {f00=0x00e5, f01=0x0190, f02=»4,/5F CHARACTER > /7F ! P RF(P) AKB364 YES " P CWK A7,2 " 8 $ P RF(E) AKB366 STANDARD READ OK " J P ADK A4,/4F " r P RF(N) AKB364 " P SUK A4,/A " " P RF(N) AKB366 NUMERIC READ OK " PAKB364 LDK A1,4 ERROR CODE " P RF ENDIO " P
0x0ae164…0ae2f8 Dummy {f00=0x00e5, f01=0x0190, f02=»BL(L) AKB210 NO RETURN " & PAKB368 LDK A1,8 YES SET ERROR CODE # P RF ENDIO END I/O # H P EJECT # b PKBMZ30 EQU * TRIPPLE ZERO # p P LDK A4,3 # P RF KBMZ25 # PKBMZ20 LDK A4,2 DOUBLE ZERO # PKBMZ25 LDK A2,/30 # P SUK A4,1 # P R
0x0ae2f8…0ae48c Dummy {f00=0x00e5, f01=0x0190, f02=»,4,A8 # P RB(L) KBMZ25 $ PKBMZ27 EQU * $ $ P SUK A4,1 ANY MORE ZEROES $ 8 $ P RB(L) AKB368 NO,SET RETURN CODE $ Z P INH $ * P LD A1,DWTUTQ,A6 GET OUTQUEUE POINTER $ P SUR A1,A6 $ " P CWK A1,DWTSQ FIRST POSITION ? $ P RF(NE) KBMZ29 NO $
0x0ae48c…0ae620 Dummy {f00=0x00e5, f01=0x0190, f02=» POINTER POSITION $ t P SUK A1,1 % , PKBMZ40 CW A1,DWTINQ,A6 ANY SPACE LEFT ? % , P RF(E) KBMZ90 NO NOT REALY. % 0 P ST A1,DWTUTQ,A6 STORE NEW OUTQUEUE POINTER % & P LDK A2,/30 STORE ZERO IN CIRKULAR % P SCR A2,A1 INPUT BUFFER % P RB KBMZ27
0x0ae620…0ae7b4 (0, 221) Dummy {f00=0x00e5, f01=0x0190, f02=»1,/A SET RETURN CODE FOR BOTH % . PENDIX RF ENDIO LENGTH AND THRUGHPUT ERRORS & & P* & X P* & b P* & l PKBCL10 EQU * CLEAR & v P LDK A3,0 & P LDK A2,/18 & P RB AKB366 & P* & P* & P* & PKBSP10 EQU * & P LDR A3,A3 &
0x0ae7b4…0ae948 Dummy {f00=0x00e5, f01=0x0190, f02=»15 LDK A2,/8 & P RB AKB366 ' P* ' & P* ' 0 PAKB380 LDK A1,0 RETURN CODE ' : P EJECT ' ^ P* ' l P* ' v , P* THIS IS A COMMON END OF THE DRIVER ' P* ' 2 P* SET EFFECTIVE LENGTH AND PERFORM END I/O ' $ P* ON KEYBOARD AND ECH
0x0ae948…0aeadc Dummy {f00=0x00e5, f01=0x0190, f02=»5 NO TIMING ON THIS DEVICE ' P CM* DWTTP,A6 RESET TIMER ( " P CM DWTTP,A6 ( D P XIF ( X P* ( d , PENDI05 ST A3,6,A8 STORE EFFECTIVE LENGTH ( n PENDI10 EQU * ( P* ( P IFT CECHO=1 ( P LDR A4,A1 SAVE A1 ( ( P CF A5,ECHEND END I/O ON ECHO
0x0aeadc…0aec70 Dummy {f00=0x00e5, f01=0x0190, f02=»IHKB ( P* ) P* ) F P* THIS IS THE INTERRUPT HANDLER ENTERED FROM CHLT/CHRT DRIVER ) P* ) j P* ) t P* ) ~ PIHKB EQU * ) P ANK A2,/FF ) * P CF A15,KONVER CONVERT INPUT CHARACTER ) P LDR A4,A4 TEST TYPE OF CHAR ) P RF(P) E
0x0aec70…0aee04 Dummy {f00=0x00e5, f01=0x0190, f02=» ) P RF(Z) EXIT * P LD A3,DWTST,A6 I/O REQUEST? * P XIF * @ * P RF(N) IHKB15 NO READ REQUEST PENDING * L " P SLL A3,7 INTERRUPT ALLOWED ? * z 4 P RF(NN) IHKB15 NO, STORE CHARACTER IN DWT-BUFFER * P IFT CTIMUT=1 * P LD A3,DWTTP,A6 * * P R
0x0aee04…0aef98 Dummy {f00=0x00e5, f01=0x0190, f02=»URN TO READ ROUTINE * | , PIHKB12 CF A15,KEYSET SET KEY CODE IN DWT + P LDR A3,A3 + L P RF(Z) EXIT NO KEY CHANGE + ^ P LD A3,DWTST,A6 + ( P RF(N) EXIT NO READ REQUEST PENDING + P SLL A3,7 + & P RF(NN) EXIT INERRUPT NOT ALLOWED + ( P LD A3,D
0x0aef98…0af12c Dummy {f00=0x00e5, f01=0x0190, f02=» LCR A4,A1 + " P XRK A4,/FF ALREADY OVERFLOW? , P RF(E) EXIT YES , 8 P LDR A3,A1 , P 4 P CF A15,EOQUEU GET NEXT OUTQUEUE POINTER ADDRESS , b P CW A1,DWTUTQ,A6 OVERFLOW? , ( P RF(NZ) IHKB20 SAVE KEY-LOCK IF ANY , 0 P ORK A2,/FF SET OVERFLOWBIT IN I
0x0af12c…0af2c0 Dummy {f00=0x00e5, f01=0x0190, f02=»* , P EJECT - P* - P* - " P* - , P* AKBTUT - 6 P* - J & P* THIS IS THE TIME-OUT ROUTINE - T P* - ~ P* - P* - P IFT CTIMUT=1 - PAKBTUT EQU * - " P LDR A6,A1 RESTART DWT-ADDRESS - P LDK A1,/40 SET RETURNE CODE
0x0af2c0…0af454 (0, 222) Dummy {f00=0x00e5, f01=0x0190, f02=»O - j P XIF . P EJECT . P* . $ P* . . P* . 8 P* . B P* KEYSET . L P* . ` P* . j P* . t , P* ON ENTRY: A4= NEG KEY-LOCK VALUE . ~ P* . @ P* ON EXIT: A3= ZERO IF IF NO CHANGE IN KEYS, ELSE POS . P* . P*
0x0af454…0af5e8 Dummy {f00=0x00e5, f01=0x018e, f02=»=OFF 0=ON . ~ P RB(N) SET100 / $ P ANR A3,A2 CHEC OLD KEY POSITION / ( " P RF(NZ) SET300 JUMP IF KEY ON / P P LDR A4,A4 / v P RF(NZ) SET500 / P RF SET400 / PSET300 LDR A4,A4 / P RF(Z) SET500 / PSET400 LD A3,DWTST,A6 / P XRR A3,A2 /
0x0af5e8…0af77c Dummy {f00=0x00e5, f01=0x0190, f02=» P RTN A15 0 P EJECT 0 P* 0 " P* 0 , P* 0 6 P* KONVER 0 @ P* 0 T * P* KONVER CONVERTS INPUT CHARACTER 0 ^ P* 0 P* 0 ( P* ON ENTRY: A2= INPUT CHARACTER 0 P* 0 P* 0 * P* ON EXIT: A2=COVERTED CHARACTER 0
0x0af77c…0af910 Dummy {f00=0x00e5, f01=0x0190, f02=»* 0 PKONVER EQU * 1 P LDR A4,A2 1 P IFT NSHIFT=0 1 0 P SUK A4,/7C CODE > /7B 1 F P RF(NN) KON500 YES 1 d P LDR A4,A2 RESTORE CHARACTER 1 ~ P XIF 1 8 P STR A2,A15 STORE CHARACTER IN CASE OF NO CONVERSION 1 P LDR* A5,A6 1 P SUK A4,/2
0x0af910…0afaa4 Dummy {f00=0x00e5, f01=0x0190, f02=»KON110 NO 1 P SUK A2,/40 YES 2 PKON105 EQU * 2 * P ANK A5,/10 2 > P SRL A5,3 2 R P RF KON200 2 d * PKON110 SUK A4,8 (UN)CTRL OR (UN)SHIFT 2 v P RF(N) KON400 KEY-LOCK 2 P RF(Z) KON140 SHIFT ON 2 P SUK A4,2 2 P RF(N) KON160 SHIFT OF
0x0afaa4…0afc38 Dummy {f00=0x00e5, f01=0x0190, f02=»CAL SHIFT ON 2 | " P RF KON160 NUMERICAL SHIFT OFF 3 P XIF 3 : PKON125 EQU * 3 F P LDKL A2,/FFDF UNCTRL 3 Z PKON120 ANR A5,A2 3 x PKON130 STR A5,A6 DWTCHP 3 P LDK A4,/10 3 P RF KON400 GO HOME! 3 PKON140 EQU * 3 P IFT NSHIFT=1 3
0x0afc38…0afdcc Dummy {f00=0x00e5, f01=0x0190, f02=» 3 P LDK A2,/10 SHIFT 4 PKON150 ORR A5,A2 4 " P RB KON130 4 : PKON160 EQU * 4 L P IFT NSHIFT=1 4 ` P LDR A4,A5 4 v P ANK A4,/80 4 P RF(Z) KON165 4 P LDKL A2,/FF7F 4 P RB KON120 4 P XIF 4 PKON165 EQU * 4 P LDKL A2,/FFEF
0x0afdcc…0aff60 Dummy {f00=0x00e5, f01=0x0190, f02=»/30 4 P SRL A5,3 5 P ADK A5,4 5 8 PKON200 LD A4,DWTCON,A6 GET CONVERSION TABLE ADDRESS 5 0 P ADR A4,A5 5 l P LDR* A4,A4 5 ~ P RF(Z) KON400 5 P ADR A4,A2 5 * P LDR* A2,A15 RESTORE A2 AND A15-STACK 5 ( P LCR A2,A4 GET CHARACTER FROM TA
0x0aff60…0b00f4 (0, 223) Dummy {f00=0x00e5, f01=0x0190, f02=» RB KON300 5 P IFT NSHIFT=0 6 PKON500 EQU * 6 ( P LDR A4,A4 KEY CODE /7C 6 < P RF(Z) KON600 YES 6 & P LDK A4,1 INDICATE SKIP CHARACTER 6 v P RTN A15 6 PKON600 EQU * 6 P SUR A2,A2 6 P RB KONVER DO START AGAIN 6 P XIF 6 P EJE
0x0b00f4…0b0288 Dummy {f00=0x00e5, f01=0x0190, f02=» 6 P* ON ENTRY: 7 P* 7 P* A2 = CHARACTER TO STORE 7 ( P* A3 = BUFFER INDEX 7 L P* 7 j P* 7 t PSTORE EQU * 7 ~ P LD A4,2,A8 BUFFER ADDRESS 7 P ADR A4,A3 ADD BUFFER INDEX 7 ( P SCR A2,A4 STORE CHARACTER IN BUFFER 7 $ P ADK
0x0b0288…0b041c Dummy {f00=0x00e5, f01=0x0190, f02=»TINE TO GET NEXT QUEUE POINTER 7 | P* 8 & P* ON ENTRY: 8 0 P* 8 F P* A1 = QUEUE POINTER 8 P P* A6 = DWT-ADDRESS 8 p P* 8 P* ON EXIT: 8 P* 8 P* A1 = NEW QUEUE POINTER 8 PEOQUEU EQU * 8 P ADK A1,1 8 P SUR A
0x0b041c…0b05b0 Dummy {f00=0x00e5, f01=0x4026, f02=» P RB STORTN 9 P END 9 @ 9 "* 8 & P* ON ENTRY: 8 0 P* 8 F P* A1 = QUEUE POINTER 8 P P* A6 = DWT-ADDRESS 8 p P* 8 P* ON EXIT: 8 P* 8 P* A1 = NEW QUEUE POINTER 8 PEOQUEU EQU * 8 P ADK A1,1 8 P SUR A
0x0b05b0…0b0744 Dummy {f00=0x00e5, 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
0x0b0744…0b08d8 Dummy {f00=0x00e5, f01=0x0190, f02=» P CWK A2,ACK0+PAR S P XIF =8 S P IFT P6805=1 =8 S . P CWK A2,ACK0 =8 S F P XIF =8 S ^ P RF(NE) BRM620 S p P* S P* ACK , 0 RECEIVED S P* S P LD A1,CACK GET ACKCOUNTER S P RF(Z) BRM630 ACK,0 EXPECTED S PBRM610 EQU * S
0x0b08d8…0b0a6c Dummy {f00=0x00e5, f01=0x0190, f02=» RF(NE) BRM650 S P* T P* ACK , 1 RECEIVED T P* T : P LD A1,CACK GET ACK COUNTER T D $ P RB(Z) BRM610 ACK,1 NOT EXPECTED T h PBRM630 EQU * T P LD A1,XETX T P RF(Z) BRM640 ETX NOT SENT T P EJECT T P* T , P* ACK HAS BEEN RECEIVE
0x0b0a6c…0b0c00 Dummy {f00=0x00e5, f01=0x018e, f02=» STATUS HAS BEEN TRANSMITTED T P XIF U $ ( P CF A5,CWRITE COMPLETE WRITE REQUEST U 0 PBRM636 EQU * U P CF A5,TREOT SEND EOT U p P IFT RCOM=1 U P U P CM XRB RESET READ BUFFER U P XIF U P RB BRM410 U PBRM640 EQU * U P LDK A1,1
0x0b0c00…0b0d94 (0, 224) Opaque[0x194]
0x0b0d94…0b0f28 # DirEnt {nam=»DRTP02«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0d10, f03=0x0000}
0x0b0d94…0b0f28 IdxSect {
0x0b0d94…0b0f28 f00 = 0x0068 // 0xb0d94 @0x0
0x0b0d94…0b0f28 f01 = 0x0012 // 0xb0d96 @0x2
0x0b0d94…0b0f28 gno = [ // 0xb0d98 @0x4
0x0b0d94…0b0f28 [0x00]: C0x0068.0x2.0
0x0b0d94…0b0f28 [0x01]: C0x0069.0x0.0
0x0b0d94…0b0f28 [0x02]: C0x0069.0x3.0
0x0b0d94…0b0f28 [0x03]: C0x006a.0x0.0
0x0b0d94…0b0f28 [0x04]: C0x006a.0x1.0
0x0b0d94…0b0f28 [0x05]: C0x006a.0x2.0
0x0b0d94…0b0f28 [0x06]: C0x006a.0x3.0
0x0b0d94…0b0f28 [0x07]: C0x006b.0x0.0
0x0b0d94…0b0f28 [0x08]: C0x00ea.0x2.0
0x0b0d94…0b0f28 ]
0x0b0d94…0b0f28 }
0x0b0f28…0b10bc Dummy {f00=0x0068, f01=0x0190, f02=» 2 P IDENT DRTP02 REL 9.2 79-11-16 870105040920 P : P =4,CUT AND PERF CORRECTED B P REL 9.1 79-05-23 f P UPDATE PRR 9.1 - REL 9.1 P PRR 9.1 79-04-25 P REL 9.1 79-04-06 & P =1-3,GEN UPDATE TO 8.2+ STATUS P
0x0b10bc…0b1250 Dummy {f00=0x0068, f01=0x0190, f02=» REL 8.2 79-03-16 P =1,IMPRROV. OF TEST ORDER P REL 8.2 78-09-15 @ < P******************************************************* < P* * < P* PHILIPS TERMINAL SYSTEM PTS
0x0b1250…0b13e4 Dummy {f00=0x0068, f01=0x0190, f02=» * < P* * < P* * L P* P* P* < P* * < P******************************
0x0b13e4…0b1578 Dummy {f00=0x0068, f01=0x0190, f02=» TO CPU VIA CHLT OR CHRT v P* P* * 4 P* THIS DRIVER CONSISTS OF THE FOLLOWING PARTS: 4 P* l $ P* A C T P : ACTIVATION PART v P* & P* I H T P : INTERRUPT HANDLER P* $ P* R C T P : RECOVERY ROUTINE P*
0x0b1578…0b170c Dummy {f00=0x0068, f01=0x0190, f02=» SEND THEM P* 6 P* B C D T B Y : CONVERT TO BINARY FROM DECIMAL P* V D P* B U F C H R : SEND THE NUMBER OF CHARACTERS GIVEN IN FIRST ` $ P* CHARACTER IN OUTPUT BUFFER P* . P* G R A S P : SEND GRASP TO VOUCHER
0x0b170c…0b18a0 Dummy {f00=0x0068, f01=0x0190, f02=» P* $ P* ORDER 00 : TEST STATUS P* ORDER 06 : WRITE 6 0 P* ORDER 0B : POSITION LIFT AND WRITE X $ P* ORDER 22 : CUT JOURNAL * P* ORDER 26 : PERFORATE JOURNAL . P* ORDER 37 : GRASP VOUCHER/PASS
0x0b18a0…0b1a34 (0, 225) Dummy {f00=0x0069, f01=0x0190, f02=»BIT 0 : REQUEST ERROR 4 P* BIT 8 : RECOVERY EXECUTED ON REQUEST & 8 P* BIT 10 : END OF JOURNAL TAPE, VOUCHER OUT ^ ( P* BIT 13 : CODE CHECK ERROR $ P* BIT 15 : NOT OPERABLE P* P* P*
0x0b1a34…0b1bc8 Dummy {f00=0x0069, f01=0x0190, f02=» A3: BUFFER POINTER $ P* A4: OUTPUT COUNTER " P* A5: STACK POINTER D P* A6: DWT-ADDRESS j P* A7: ORDER P* A8: ECB-ADDRESS P* P* P* P* P* SYSTEM ADAPT
0x0b1bc8…0b1d5c Dummy {f00=0x0069, f01=0x0190, f02=»TURN 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 t H P* COMPLETION OF REQUEST AT 'VOUCHER OUT' BEFORE MESSAGE IS WRITTEN P* P* @ P
0x0b1d5c…0b1ef0 Dummy {f00=0x0069, f01=0x018e, f02=» P* P EJECT P* P*********** * P* ENTRIES * > P*********** R P* f P* p P ENTRY TPAD ADDRESS BLOCK z P* P* P* P************* P* EXTERNALS * P************* P* P*
0x0b1ef0…0b2084 Dummy {f00=0x0069, f01=0x0190, f02=» P EXTRN TENDIO END I/O & P EXTRN OUTPUT OUTPUT ONE CHARACTER " " P EXTRN LDREG RESTORE REGISTERS L 8 P EXTRN STREG STORE REGISTERS AND WAIT FOR INTERRUPT r P EXTRN SAVE8 SAVE REG. A1-A8 P* P EXTRN DWTST STATUS EXTRN DWTBC BYT
0x0b2084…0b2218 Dummy {f00=0x0069, f01=0x0190, f02=» P* ECB DISPLACEMENTS P* $ P EXTRN ECBBA BUFFER ADDRESS . " P EXTRN ECBRL REQUESTED LENGTH R " P EXTRN ECBEL EFFECTIVE LENGTH x P EXTRN ECBRC RETURN CODE P EXTRN ECBCW CONTROL WORD P EJECT P************************
0x0b2218…0b23ac Dummy {f00=0x0069, f01=0x0190, f02=»ODE IS SET b P* BY SETTING X:A = 1 P* 0 P* : PX:A EQU 0 D PRECOV EQU 0 V P* j P* t : P* JOURNAL TAPE MAY BE CUT/PERFORATED FOR PTS 6223 BY ~ P* SETTING X:B = 1 P* P* PX:B EQU 0 PCUTPER EQU
0x0b23ac…0b2540 Dummy {f00=0x0069, f01=0x0190, f02=»* P* PX:C EQU 0 PCHR13 EQU 0 & P* : P* D PX:D EQU 0 N PCHR14 EQU 0 ` P* t P* ~ 2 P* PRINTING VOUCHER/PASSBOOK, IS COMPLETED IF : P* PRINT OBJECT IS REMOVED UNDER PRINTING IF X:E = 1 P* P*
0x0b2540…0b26d4 (0, 226) Dummy {f00=0x0069, f01=0x0190, f02=»T X < P* IS INACTIVE,END OF REQUEST MAY BE CHOSEN BY SETTING > P* THE CONSTANT RELEND=1. RETURN CODE NOT OPERABLE IS SET J P* P* PX:F EQU 0 PRELEND EQU 0 P* P* . P* A PROGRAM VERSION USING TOSS MMU PAGING
0x0b26d4…0b2868 Dummy {f00=0x0069, f01=0x0190, f02=»ED INSTRUCTION l . P* SET IS OBTAINED BY SETTING CPU852 EQU 0. P* H PCPU852 EQU 0 R P* f P* p P* MMU BUFFER SIZE z P* P* PX:H EQU 20 PDVBLEN EQU 100 P* P EJECT P* P* P**********
0x0b2868…0b29fc Dummy {f00=0x0069, f01=0x0190, f02=»/20 RETURN CODE. END OF JOURNAL TAPE P* , P* 6 0 PVOIN EQU /8 'VOUCHER IN' BIT IN DATA-REQUEST @ 2 PEOJT EQU /4 'END OF JOURNAL' BIT IN DATA-REQ. t @ PVOCHA EQU /200 BIT #6 DWTTST;VOUCHER STATUS CH. NOT ALLOWED 4 PMESS EQU /400 BIT #5 DWTTS
0x0b29fc…0b2b90 Dummy {f00=0x0069, f01=0x0190, f02=»UMMY ~ , PREMOT EQU /01 RESET PRINT BUFFER REMOTE * PTAB EQU /11 TABULATION CHAR IN BUFFER < PCR1 EQU /0D CR JOURNAL TAPE j PLF1 EQU /18 LF JOURNAL TAPE . PCR2 EQU /09 CR TALLY ROLL,VOUCHER/PASSBOOK PLF2 EQU /19 LF TALLY ROLL $ PLD
0x0b2b90…0b2d24 Dummy {f00=0x0069, f01=0x0190, f02=»OR INSERTION OF VOUCHER/PASSBOOK ~ ( PREL EQU /1B RELEASE VOUCHER/PASSBOOK ( " PAPH EQU /1D ATTACH PRINT HEAD T " PRPH EQU /1E RETURN PRINT HEAD z 4 PTETX EQU /83 LAST DUMMY AFTER GRASP AND RELEASE P* P* P*********************
0x0b2d24…0b2eb8 Dummy {f00=0x0069, f01=0x0190, f02=» P IFT MMUPAG=0 PSTART EQU DWTDRD P XIF 6 P* B P IFT MMUPAG=1 L PSTART EQU DWTDRD+4 b P XIF | P* . PDWTRLN EQU START+/12 REQUESTED LINE NUMBER , PDWTALN EQU START+/13 ACTUAL LINE NUMBER P* P EJECT
0x0b2eb8…0b304c Dummy {f00=0x0069, f01=0x018e, f02=» IFT CUTPER=0 PBUF2 DATA /0382 STX P XIF 2 P IFT CUTPER=1 > PBUF2 DATA /0482 STX T P XIF p $ P DATA /091D,/2000 CR2,APH,SPACE | & PBUF3 DATA /0382,/091D STX,CR2,APH 4 PBUF5 DATA /041B,/9783,/8200 REL,ETB,DUMMY,STB =2 P*
0x0b304c…0b31e0 Dummy {f00=0x0069, f01=0x0190, f02=» P DATA 2 DEVICE INDEX PTPAD EQU * ADDRESS BLOCK P DATA ACTP ACTIVATIONDRIVER @ " P DATA 0 ABORT ROUTINE ADDRESS d P DATA IHTP INTERRUPTHANDLER P DATA RCTP RECOVERY ROUTINE P* $ P* TABLE TO GET ROOMLESS POINT P*
0x0b31e0…0b3374 (0, 227) Dummy {f00=0x006a, f01=0x0190, f02=» PLFTAB EQU * , P DATA /1819 LINE FEED JOURNAL/TALLY ROLL P* L P* V P IFT CUTPER=1 ` : PCPTAB DATA /1F0F CODES FOR PERFORATE/CUT JOURNAL TAPE v P XIF PTPTAB EQU * ORDER TABLE P DATA /0002,/0607,/080D P IFT CUT
0x0b3374…0b3508 Dummy {f00=0x006a, f01=0x0190, f02=»P P* 2 P* THIS IS THE ACTIVATION PART OF THE DRIVER > P* CHECKS VALIDITY OF ORDERS AND JUMPS TO ORDER PROCESSOR J P* P* P* PACTP EQU * ACTIVATION ENTRY P* P* < P* GET DWT INDEX: 0=JOURNAL,1=TALLY,2
0x0b3508…0b369c Dummy {f00=0x006a, f01=0x0190, f02=»WTOR+1,A6 SAVE NEW ORDER IN DWT P LDK A4,0 ACTIVATION ( PACT005 LDK A3,TPLEN-1 D 2 PACT010 CC A7,TPTAB,A3 FIND OUT IF LEGAL ORDER b P RF(E) ACT020 VALID ORDER P SUK A3,1 P RB(NN) ACT010 TRY NEXT P* P ABL DISIOE ILLEGA
0x0b369c…0b3830 Dummy {f00=0x006a, f01=0x0190, f02=»,A3 EXECUTE ORDER : PTPFUC DATA TPTEST,TPTEST,TP200,TP405,ACT055,ACT050 =1 P IFT CUTPER=1 X P DATA TP700,TP750 n P XIF P DATA TP800,TP900 P EJECT =1 P* =1 P* =1 P* ORDER 00: TEST =1 J P*
0x0b3830…0b39c4 Dummy {f00=0x006a, f01=0x0190, f02=»TPTEST LDK A2,STX SEND STX =2 P CF A5,OUTPUT =2 & P LDK A2,/02 SEND CHAR /02 =2 @ P CF A5,OUTPUT =1 d * P LDK A2,0 SEND CHAR /00=END OF TEST =1 ~ P CF A5,OUTPUT =1 P RF TPDUMY =1 P EJECT P* P* , P* ORDER
0x0b39c4…0b3b58 Dummy {f00=0x006a, f01=0x0190, f02=»T050 LD A1,ECBCW,A8 GET LINE NUMBER FROM CONTROL WORD IN ECB P RF ACT085 D P* V , PACT055 LD A3,ECBBA,A8 GET BUFFER ADDRESS ` & P LC A3,1,A3 GET CONTROL CHARACTER $ P ANK A3,/FF REQUESTED LINE STEPS P SUK A3,/39 P RF(G) ACT070 > /3
0x0b3b58…0b3cec Dummy {f00=0x006a, f01=0x0190, f02=»1-9 LF r P ADK A3,/5 P RF(Z) TP605 /2B = NO LF PACT070 LDK A3,1 ONE LF @ 4 PACT080 LC A1,DWTRLN,A6 GET LINE NUMBER FROM DWT ^ * P SUR A1,A3 GET REQUESTED LINE POSITION 2 PACT085 RF(NN) ACT090 LINE POSITION LESS ZERO ? * P LDK A1,0 YES;
0x0b3cec…0b3e80 Dummy {f00=0x006a, f01=0x0190, f02=»LINE NUMBER p P RF TP605 P EJECT & P* 4 P* > P* H P* ORDER 06 : PRINT JOURNAL R P* v P* P* * PTP200 LDKL A3,BUF1 SEND CR1 AND ATTACH PTP210 EQU * 0 P LC A1,DWTST,A6 GET LEFT BYTE IN STATUS WORD $
0x0b3e80…0b4014 (0, 228) Dummy {f00=0x006a, f01=0x018e, f02=»1,3 REQUESTED LENGTH 0-2 ? & P RF(N) TP230 YES; COMPLETE REQUEST " P RF(P) TP215 L P LD A1,2,A8 BUFFER ADDRESS ` P LC A2,2,A1 THIRD CHARACTER $ P CCK A2,/2020 CONTROL CHARACTER P RF(NL) TP215 P LDR A4,A2 SAVE CHAR =2 P LDK
0x0b4014…0b41a8 Dummy {f00=0x006a, f01=0x0190, f02=» v P CF A5,OUTPUT =2 P RF TP220 " PTP215 EQU * 4 P CF A5,BUFCHR SEND BUFFER H " P CF A5,PRBUF PRINT ECB-BUFFER j PTP220 EQU * P LDK A1,0 6 PTP230 LDKL A2,/FDFF VOUCHER STATUS CHANGE ALLOWED P ANS A2,DWTST,A6 P
0x0b41a8…0b433c Dummy {f00=0x006a, f01=0x0190, f02=» PTPLF EQU * P LDK A2,STX SEND STX =2 P CF A5,OUTPUT =2 : P LDR A1,A1 T P RF(NE) TPLF10 f " P LDK A2,RPH DETACH PRINT HEAD | P CF A5,OUTPUT SEND PTPLF10 EQU * P SUK A7,8 ( P RF(NN) TPL010 NOT JOURNAL AND TALLY
0x0b433c…0b44d0 Dummy {f00=0x006a, f01=0x0190, f02=»8 GET REQUESTED LENGTH | * P ST A1,ECBEL,A8 STORE EFFECTIVE LENGTH ! P EJECT ! L P* ! Z P* ! d P* COMMON END OF PRINT ! n P* ! P* ! " P* SEND LAST DUMMY CHARACTER ! P* ! PTPDUMY EQU * ! P LDK A2,ETB SEND ETB =2 ! P C
0x0b44d0…0b4664 Dummy {f00=0x006a, f01=0x0190, f02=»ARACTER ! l P* " PTPTST EQU * " . P SUK A7,2 TEST STATUS : VOUCHER/PASSBOOK ? " . P RF(NZ) TST010 NO " ` $ PTST005 ANK A2,VOIN VOUCHER OUT ? " z P RF(NZ) ENDIO NO " P RF TST015 YES " P* " PTST010 SUK A7,4 " P IFT CUTPER=0 " * P
0x0b4664…0b47f8 Dummy {f00=0x006a, f01=0x0190, f02=» * " P XIF # & P ANK A2,EOJT END OF JOURNAL TAPE? # $ P RF(NZ) ENDIO NO: PERFORM ENDIO # @ ( PTST015 ORK A1,PROUT SET RETURN CODE: # h ( P END OF JOURNAL TAPE, VOUCHER OUT # P* # P* # , P* PERFORM END I/O AND GO TO DISPATCHER # P* #
0x0b47f8…0b498c Dummy {f00=0x006a, f01=0x0190, f02=» # PTST020 SUK A7,16 $ " P RB(L) ENDIO VOUCHER/PASSBOOK $ P SUK A7,4 $ F P RB(G) ENDIO GRASP,RELEASE $ X P RB TST012 CUT,PERFORATE $ z P XIF $ P EJECT $ P* $ P* $ P* $ $ P* ORDER 06 : PRINT TALLY ROLL $ P* $ P* $
0x0b498c…0b4b20 Dummy {f00=0x006a, f01=0x0190, f02=» LDKL A1,VOCHA $ @ P ORS A1,DWTST,A6 INDICATE VOUCHER STATUS CHANGE NOT ALLOWED % P RB TP210 % Z P* % l P EJECT % v P* % P* % P* % * P* ORDER 06 : WRITE VOUCHER/PASSBOOK % * P* OB : POSITION LIFT AND WRITE % P* % P
0x0b4b20…0b4cb4 (0, 229) Dummy {f00=0x006a, f01=0x0190, f02=» % P* & P* & * P* SEND ELEVATOR UP/DOWN UNTIL ACTUAL & & P* LINE NUMBER IS EQUAL REQUESTED & J P* & t P* & ~ . PTP610 CC A3,DWTRLN,A6 COMPARE LINE NUMBER & P RF(E) TP650 EQUAL & " P RF(G) TP630 SEND ELEVATOR UP & " P LDK A2,LDO SE
0x0b4cb4…0b4e48 Dummy {f00=0x006a, f01=0x0190, f02=»3,1 DECREMENT ACTUAL LINE NUMBER & P* ' ( & PTP640 CF A5,OUTPUT SEND LIFT CHAR ' 2 P* ' , P SC A3,DWTALN,A6 SAVE ACTUAL LINE NUMBER ' f P ANK A2,VOIN VOUCHER IN ? ' P IFT COMPL=0 ' & P ABL(Z) RCTP01 NO: ERROR RECOVERY ' , P RB TP610 YES: CHE
0x0b4e48…0b4fdc Dummy {f00=0x006a, f01=0x0190, f02=»VOUCHER OUT' ' | , P ORS A1,ECBRC,A8 INDICATE IN RETURN CODE ( P RB TPDUMY ( D P XIF ( V P EJECT ( b P* ( p P* ( z , P* ORDER 06 AND 0B: LIFT IS POSITIONED ( * P* ATTACH AND PRINT ( P* ( P* ( PTP650 EQU * ( &
0x0b4fdc…0b5170 Dummy {f00=0x006a, f01=0x0190, f02=» AND 26 CUT AND PERFORATE JOURNAL ( P* ) , PTP700 EQU * ) 6 P LDK A3,1 SET INDEX =4 ) J P RF TP760 ) h PTP750 EQU * ) z P LDK A3,0 SET INDEX =4 ) PTP760 LDK A2,STX SEND STX =4 ) P CF A5,OUTPUT =4 ) P LC A2,CPTAB,A3 GET CHAR =4 )
0x0b5170…0b5304 Dummy {f00=0x006a, f01=0x0190, f02=»ASE VOUCHER/PASSBOOK ) l P* * PTP800 EQU * * & P CF A5,GRASPA * : P RB TPDUMY * P PTP900 EQU * * b P CF A5,RELEAS * v P RB TPDUMY * P * P EJECT * P* * P* P R B U F * P* * F P* SUBROUTINE TO SEND CHARACTERS FROM ECB
0x0b5304…0b5498 Dummy {f00=0x006a, f01=0x018e, f02=»ST REQUESTED LENGTH * " P LD A3,ECBBA,A8 BUFFER ADDRESS + ( P* SKIP PRECEDING SPACES IN BUFFER + B P ADK A3,2 + n " PPRB010 LCR A1,A3 GET CHARACTER + P CCK A1,/2020 + P RF(NE) PRB050 NOT BLANK + P ADK A3,1 BLANK + P SUK A4,1 + " P R
0x0b5498…0b562c Dummy {f00=0x006a, f01=0x0190, f02=» + n ( P ADR A1,A4 LAST CHARACTER IN BUFFER , P LC A1,-1,A1 GET CHAR , 4 * P CCK A1,/0909 CARRIAGE RETURN - CR2 ? , R P RF(E) PRB060 YES , * P CCK A1,/0D0D CARRIAGE RETURN - CR1 ? , P RF(E) PRB060 YES , P LDK A1,0 DUMMY CHARACTER , P RF
0x0b562c…0b57c0 Dummy {f00=0x006a, f01=0x0190, f02=»00 SUK A4,1 DECREMENT REQUESTED LENGTH , P RF(NN) PRB105 PRINT BUFFER - . 6 P LD A2,ECBEL,A8 GET CARRIAGE RETURN CHAR (/09,/0D) - R P RF(E) PRB101 - P CF A5,OUTPUT SEND CHAR - PPRB101 EQU * - P LDK A2,ETB - & P CF A5,OUTPUT SEND END OF MESS
0x0b57c0…0b5954 (0, 230) Dummy {f00=0x006a, f01=0x018e, f02=» ORS A1,DWTST,A6 - PPRB102 RTN A5 . P EJECT . . P* . < P* . F P* . P P* PRINT BUFFER . Z P* . r P* . | PPRB105 EQU * . 2 P ADR A3,A4 ADDRESS TO CHARACTER TO BE PRINTED . P SUK A7,7 CHECK ORDER . P RF(L) PRB200 PRINT JOURNA
0x0b5954…0b5ae8 Dummy {f00=0x006a, f01=0x0190, f02=» P* / P ANK A2,VOIN VOUCHER IN ? / " P RF(Z) PRB200 NO. GO AND PRINT / 0 " P ADK A5,4 RESET STACK POINTER / V * P RB TP405 SEND LIFT TO TOP AND RELEAS / | P* / P* / P* / P* PRINT VOUCHER/PASSBOOK / P* / P* / $ PPRB110 ANK
0x0b5ae8…0b5c7c Dummy {f00=0x006a, f01=0x018e, f02=»45 / P XIF 0 $ P LDR A1,A4 COPY REQUESTED LENGTH 0 P SUK A1,2 R.L. < 3? 0 > $ P RF(N) PRB200 YES: NO TABULATION 0 Z P LDK A1,TAB 0 P CC A1,-2,A3 TABULATION? 0 P RF(NE) PRB200 NO 0 P EJECT 0 P* 0 P* 0 4 P* IF TABULATION CHAR
0x0b5c7c…0b5e10 Dummy {f00=0x006a, f01=0x0190, f02=» 0 P* 1 ( PPRB115 LDK A2,RPH DETACH PRINT HEAD 1 P CF A5,OUTPUT SEND DETACH 1 > , PPRB117 LC A2,-1,A3 GET 1ST TAB POS CHAR 1 ` $ P LCR A1,A3 GET 2ND TAB POS CHAR 1 P ANK A1,/F LINE UNIT 1 P SLL A2,4 1 P ANK A2,/F0 LINE DECADE 1 " P O
0x0b5e10…0b5fa4 Dummy {f00=0x006a, f01=0x018e, f02=»BC,A6 COMPARE WITH ACTUAL TAB. POS. 1 P RF(NG) PRB125 PRINT 2 , P* 2 H P* 2 R P* 2 P LDK A2,/20 LOAD BLANK 2 f ( P CF A5,OUTPUT SEND BLANKS OR DETACH 2 P RB PRB117 2 P* 2 P* 2 P* 2 . PPRB125 SUK A4,2 DECREMENT REQUESTED LENG
0x0b5fa4…0b6138 Dummy {f00=0x006a, f01=0x0190, f02=» 2 P* 3 2 P* GET OUTPUT CHARACTER FROM BUFFER. CHECK IF 3 P* - ROOMLESS POINT 3 H P* - ILLEGAL CHARACTER 3 d & P* - SPECIAL CHARACTER (/13,/14) 3 P* 3 PPRB200 EQU * 3 * PPRB205 LCR A7,A3 LOAD OUTPUT CHARACTER 3 " P CCK A7,/AEAE
0x0b6138…0b62cc Dummy {f00=0x006a, f01=0x0190, f02=»ACTER 3 v P ANK A7,/F MASK 4 & P LC A7,ROMTAB,A7 GET CODE IN TABLE 4 & P* 4 P P* 4 Z P* 4 d , PPRB210 CCK A7,/2020 ILLEGAL CHARACTER ? 4 n P RF(L) PRB225 YES 4 , PPRB215 CCK A7,/5F5F ILLEGAL CHARACTER ? 4 P RF(NG) PRB230 NO 4 P* 4
0x0b62cc…0b6460 Dummy {f00=0x006a, f01=0x0190, f02=»FT CHR14=1 4 & P CCK A7,/1414 SPECIAL CHARACTER ? 5 P RF(E) PRB230 YES 5 < P XIF 5 V P* 5 b " P LDK A1,CCERR CODE CHECK ERROR 5 l * P ORS A1,ECBRC,A8 STORE IN RETURN CODE 5 P LD A7,DWTOR,A6 GET ORDER 5 P ANK A7,/FF 5 P RF PRB245 5 P
0x0b6460…0b65f4 (0, 231) Dummy {f00=0x006b, f01=0x018e, f02=»PUT SEND CHARACTER 5 , PPRB245 SUR A3,A4 START OF BUFFER ADDRESS 6 P RB PRB100 6 J P* 6 P* 6 f P* 6 p P EJECT 6 z P* 6 P* I H T P 6 P* 6 0 P* INTERRUPT HANDLER: PROCESS OF INTERRUPT 6 P* 6 P* 6 P* 6 PIHTP E
0x0b65f4…0b6788 Dummy {f00=0x006b, f01=0x018e, f02=» P RF(NG) IHTP20 YES =1 7 , P LDR A1,A1 RETURN CODE FROM CHANNEL UNIT 7 " P =1 7 R P IFT RELEND=0 7 ` * P RF(NZ) RCTP10 YES GO TO DISPATCHER =1 7 v P XIF 7 P IFT RELEND=1 7 ( P RF(NZ) IHTP30 YES FINISH REQUEST =1 7 P XIF 7 8 PIHTP10 ABL
0x0b6788…0b691c Dummy {f00=0x006b, f01=0x0190, f02=» 7 P ABL ENDIO 8 P* 8 P* 8 $ P* 8 . P EJECT 8 8 P* 8 F P* R C T P 8 P P* 8 d > P* RECOVERY ROUTINE: REPRINTS RUNNING REQUEST AT POWER ON 8 n P* 8 PRCTP EQU * 8 P IFT CPU852=1 8 & P CF A15,SAVE8 SAVE A1-A8 ON STACK 8
0x0b691c…0b6ab0 Dummy {f00=0x006b, f01=0x0190, f02=»SY =3 8 t P ANS A2,DWTST,A6 =3 9 P LD A2,DWTECB,A6 =3 9 * ( P RF(Z) RCTP05 REQUEST NOT RUNNING =3 9 F P* 9 r $ PRCTP01 LDKL A5,DWTSB2 STACK BASE 9 | P ADR A5,A6 9 < P LDK A2,REMOT RESET PRINT BUFFER REMOTE AND LOCAL DUMMY 9 P CF A5,OUTPUT SEND
0x0b6ab0…0b6c44 Dummy {f00=0x006b, f01=0x018e, f02=» 2 P SC A2,DWTALN,A6 STORE 0 AS ACTUAL LINE NUMBER : P LDK A2,LFF LIFT TO TOP : : P CF A5,OUTPUT : Z P LD A2,DWTECB,A6 =3 : p & P RF(NZ) RCTP07 REQUEST RUNNING =3 : 0 P LDK A2,ETX SEND LAST DUMMY TO STOP TIMER =3 : P CF A5,OUTPUT =3 : P ABL
0x0b6c44…0b6dd8 Dummy {f00=0x006b, f01=0x0190, f02=» P XIF ; P LDK A4,1 IND RECOVERY ; * P ABL ACT005 START RECOVERY OF PRINTER ; . & PRCTP10 ABL TDISP GO TO DISPATCHER ; P EJECT ; P* ; P* B C D T B Y ; P* ; 4 P* SUBROUTINE TO CONVERT TO BINARY FROM DECIMAL ; P* ; P* ;
0x0b6dd8…0b6f6c Dummy {f00=0x006b, f01=0x0190, f02=»BY 6 ; | P RB BCDTB1 < " PBCDTB2 RTN A5 RETURN TO CALLER < P* < F P* < P P* < Z P* < d P* < n P* G R A S P < x P* < 4 P* SUBROUTINE TO SEND GRASP TO VOUCHER/PASSBOOK < P* < P* < PGRASPA EQU * < P LDK A2,STX SEND
0x0b6f6c…0b7100 Dummy {f00=0x006b, f01=0x0190, f02=»DK A2,GRA GRASP < P CF A5,OUTPUT = P ANK A2,VOIN VOUCHER IN ? = . P RF(NZ) GRAS10 YES = P P LDK A2,ETB SEND ETB =2 = j P CF A5,OUTPUT =2 = " P LDK A2,TETX DUMMY AFTER GRASP = P CF A5,OUTPUT = P LDK A2,STX SEND STX =2 = P CF A5,O
0x0b7100…0b7294 (0, 232) Dummy {f00=0x00ea, f01=0x0190, f02=» = P* > P EJECT > P* > P* > * P* R E L E A S > 4 P* > L 2 P* SUBROUTINE TO SEND LIFT TO TOP AND RELEASE > V P* > P* > P* > PRELEAS EQU * > P LDK A1,0 > 0 P SC A1,DWTALN,A6 SET ACTUAL LINE NUMBER TO 0 > ( P LDK
0x0b7294…0b7428 Dummy {f00=0x00ea, f01=0x0190, f02=»,OUTPUT > P ANK A2,VOIN VOUCHER IN ? ? P RF(Z) BUFRTN ? 2 P* ? H P* B U F C H R ? R P* ? j < P* SUBROUTINE TO OUTPUT A NUMBER OF CHARACTERS GIVEN IN ? t ( P* FIRST CHARACTER IN OUTPUT BUFFER ? P* ? P* ? 4 PBUFCHR LCR A4,A3 GET
0x0b7428…0b75bc Dummy {f00=0x00ea, f01=0x40fe, f02=»TER ? t P CF A5,OUTPUT SEND CHARACTER @ P SUK A4,1 DECREMENT COUNTER @ 0 & P RB(NZ) BUFC10 NOT LAST CHARACTER @ T PBUFRTN EQU * @ ~ P RTN A5 RETURN TO CALLER @ P* @ P* @ P* @ P* @ P* @ P* @ P END @ @ @ A4,A3 GET
0x0b75bc…0b7750 Dummy {f00=0x00ea, f01=0x2008, f02=» A * 8 P* 8 P* 8 P* 8 & P* 8 0 P END 8 :@ 8 F 7 H 4 PBUFCHR LCR A4,A3 GET NUMBER OF OUTPUT CHARACTERS 7 R P ANK A4,/FF MASK 7 , PBUFC10 ADK A3,1 INCREMENT BUFFER POINTER 7 $ P LCR A2,A3 GET OUTPUT CHARACTER 7 P CF A5,OUTPUT
0x0b7750…0b78e4 Dummy {f00=0x00ea, f01=0x018e, f02=» , ( Y _` B P $$ R % C , ( y * ! W Y +P Y *P Y ( 4 , ( P Y )P R _Q P OR d , ( R W " ! B W W , ( @ 0 Z ! B Z Z& , ( X . 0
0x0b78e4…0b7a78 Dummy {f00=0x00ea, f01=0x0190, f02=» DISEND , ( OA Y C ! " * & i @ Q R X # P X R ;GV X J LDREG x , ( @ P y P X DWTA3 DWTSB2 , ( @ R ;GV X X , *
0x0b7a78…0b7c0c Dummy {f00=0x00ea, f01=0x0190, f02=» h , ( :d Y > > ? 8 R @R , ( ) V @% =cW R P R P R P W 8 , ( I 9 W $ P W _ $ P h , ( i _$ _*_, _ %0=c X , ( 0P > 0 > >_ B 1 >
0x0b7c0c…0b7da0 Dummy {f00=0x00ea, f01=0x417c, f02=» @ @ T T ! & 'T /P f H D ! 3 R 7 AV E OP _P$ kR { W PH P> P P R Q " H D ! P R R W Wr W T W P 'W 1P 9 IP g kQf n H D ! mR$ uP {R6 V2 P P8 R2 V. P T W T T W H D !
0x0b7da0…0b7f34 (0, 233) Opaque[0x194]
0x0b7f34…0b80c8 # DirEnt {nam=»DRGP01«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0d68, f03=0x0000}
0x0b7f34…0b80c8 IdxSect {
0x0b7f34…0b80c8 f00 = 0x006b // 0xb7f34 @0x0
0x0b7f34…0b80c8 f01 = 0x000e // 0xb7f36 @0x2
0x0b7f34…0b80c8 gno = [ // 0xb7f38 @0x4
0x0b7f34…0b80c8 [0x00]: C0x006b.0x1.0
0x0b7f34…0b80c8 [0x01]: C0x006b.0x2.0
0x0b7f34…0b80c8 [0x02]: C0x006b.0x3.0
0x0b7f34…0b80c8 [0x03]: C0x006c.0x0.0
0x0b7f34…0b80c8 [0x04]: C0x006c.0x1.0
0x0b7f34…0b80c8 [0x05]: C0x006c.0x2.0
0x0b7f34…0b80c8 [0x06]: C0x006c.0x3.0
0x0b7f34…0b80c8 ]
0x0b7f34…0b80c8 }
0x0b80c8…0b825c Dummy {f00=0x006b, f01=0x0190, f02=» 2 P IDENT DRGP01 REL 9.2 80-01-03 870105040920 P : P =4,MMU BUFFER CONDITION B P REL 9.2 79-11-16 d P =3,RB - ABL P REL 9.1 79-05-23 P UPDATE PRR 9.1 - REL 9.1 P PRR 9.1 79-04-25 P REL 9.1 79-04-06
0x0b825c…0b83f0 Dummy {f00=0x006b, f01=0x0190, f02=» " P =1,ECHO OF LF AND CR, ABIS P REL 8.2 78-09-15 * P* F P* P 6 P************************************************** Z P* $ P* PHILIPS TERMINAL SYSTEM PTS P* ( P* DRGP01 = DRIVER GENERAL PRINTER P* P*
0x0b83f0…0b8584 Dummy {f00=0x006b, f01=0x018e, f02=»DRIVER HANDLES GENERAL TERMINAL PRINTER < P* PTS 6321 CONNECTED TO THE SYSTEM VIA CHLT OR CHRT. 0 P* p 8 P* THE DRIVER ALSO INCLUDES DEVICE DEPENDENT ECHO z 6 P* FUNCTIONS, WHICH MAKES IT POSSIBLE TO USE THE 6 P* GENERAL PRINTER AS
0x0b8584…0b8718 Dummy {f00=0x006b, f01=0x0190, f02=» 0 P* THE DRIVER CONSISTS OF FOLLOWING PARTS: P* 8 & P* A C G P ACTIVATION PART B P* l ( P* I H G P INTERRUPT HANDLER v P* ( P* R C G P RECOVERY ROUTINE P* & P* E C H O G P ECHO FUNCTIONS
0x0b8718…0b88ac Dummy {f00=0x006b, f01=0x0190, f02=» 05: BASIC WRITE " P* 06: STANDARD WRITE P* @ P* NORMAL REGISTER USAGE J P* l " P* REGISTER A1 = RETURN CODE v ( P* A2 = OUTPUT CHARACTER $ P* A3 = BUFFER INDEX $ P* A4 = WORK
0x0b88ac…0b8a40 Dummy {f00=0x006b, f01=0x018e, f02=» A8 = ECB-ADDRESS P* P* $ P* SYSTEM ADAPTATION . P* L : P* THE CODES FOR ECHO OF BACKSPACE (GPBSP) AND CLEAR V ( P* (GPCLR) KEYS SHOULD BE DEFINED. P* 8 P* BY MEANS OF CONDITIONAL ASSEMBLY THE DRIVER IS 0 P*
0x0b8a40…0b8bd4 (0, 234) Dummy {f00=0x006b, f01=0x0190, f02=» X P* D P* --EXCLUDE ECHOING OF AN EXTRA SPACE BETWEEN EACH CHARACTER 6 P* --SUPPRESS ECHOING OF END OF RECORD CHARACTER Z * P** --SUPPRESION OF TRAILING BLANKS @ P* --END OF REQUEST WHEN PRINTER HARDWARE BECOMES INACTIVE P*
0x0b8bd4…0b8d68 Dummy {f00=0x006b, f01=0x0190, f02=» P EJECT P* P* P* & P* 0 P*********** : P* ENTRIES * N P*********** b P* v P* P* ( P ENTRY GPAD ADDRESS TO ADDRESSBLOCK 0 P ENTRY ECHOGP DEVICE-DEPENDENT ECHO-ROUTINE P* P* P
0x0b8d68…0b8efc Dummy {f00=0x006b, f01=0x0190, f02=»************************* P* " P* , $ P EXTRN DISIOE I/O REQUEST ERROR 6 . P EXTRN OUTPUT SUBROUTINE TO SEND CHARACTER ^ P EXTRN TDISP DISPATCHER > P EXTRN LDREG LOAD REGISTERS A4, A3, A5, A7, A8 AND RETURN P EXTRN TENDIO END I/O
0x0b8efc…0b9090 Dummy {f00=0x006b, f01=0x0190, f02=»R FROM ECB-BUFFER v P EJECT P* ( P* 2 P************************ < P* DWT PARAMETERS * P************************ | P* P* P EXTRN DWTST STATUS EXTRN DWTBC BYTE COUNTER P EXTRN DWTOR ORDER P
0x0b9090…0b9224 Dummy {f00=0x006b, f01=0x018e, f02=» P* P* : PSOH EQU /01 RESET PRINT BUFFER REMOTE AND LOCAL DUMMY PSTX EQU /82 START OF MESSAGE Z PETB EQU /97 END OF MESSAGE ~ PETX EQU /03 LAST DUMMY PCR EQU /0D CARRIAGE RETURN PLF EQU /0A LINE FEED PFFED EQU /0C
0x0b9224…0b93b8 Dummy {f00=0x006b, f01=0x0190, f02=» * P************************************** * P* CONDITIONAL ASSEMBLY * 6 * P************************************** d P* 2 P* IT IS POSSIBLE TO EXCLUDE ROOMLESS POINT $ P* FUNCTION BY SETTING X:A = 0 P* PX:A
0x0b93b8…0b954c Dummy {f00=0x006b, f01=0x0190, f02=»NG X:B=1 l P* PX:B EQU 0 PTRETON EQU 0 , P* @ 4 P* ACCEPTANCE OF SPECIAL CHARACTER /14 CAN BE J 0 P* INCLUDED IN THE DRIVER BY SETTING X:C=1 P* PX:C EQU 0 PFJOTON EQU 0 P* . P* IT IS POSSIBLE TO E
0x0b954c…0b96e0 Dummy {f00=0x006b, f01=0x0190, f02=» EQU 0 P* P EJECT P* & P* 0 8 P* BY MEANS OF CONDITIONAL ASSEMBLY IT IS POSSIBLE : 8 P* TO SUPPRESS ECHOING OF END OF RECORD CHARACTER. v 8 P* THIS IS ATTAINED BY SETTING THE CONSTANT X:E=0. P* PX:E EQU 0
0x0b96e0…0b9874 (0, 235) Dummy {f00=0x006b, f01=0x018e, f02=»0 PSUPSPA EQU 1 P* ( P* END OF REQUEST IN SITUATIONS WHERE ( , P* THE SELECTOR UNIT OR PRINTER HARDWARE T * P* IS INACTIVE CAN BE CHOSEN BY SETTING P* THE CONSTANT RECEND = 1 PX:G EQU 0 PRECEND EQU 0 P* . P* A
0x0b9874…0b9a08 Dummy {f00=0x006b, f01=0x0190, f02=» 6 P* A PROGRAM VERSION USING THE EXTENDED INSTRUCTION . P* SET IS OBTAINED BY SETTING CPU852 EQU 0. B P* t PCPU852 EQU 0 ~ P* P* MMU BUFFER SIZE P* PX:H EQU 120 PDVBLEN EQU 162 P* =1 , P* SPECIAL CO
0x0b9a08…0b9b9c Dummy {f00=0x006b, f01=0x018e, f02=» DWT-DISPLACEMENT * $ P******************************** $ P* L P* V 0 PDWTDRD EQU /10 START OF DRIVER DEFINED PART ` P* P IFT MMUPAG=0 PSTART EQU DWTDRD P XIF P* P IFT MMUPAG=1 PSTART EQU DWTDRD
0x0b9b9c…0b9d30 Dummy {f00=0x006b, f01=0x0190, f02=» , P* SPECIAL KEYS FOR ECHO FUNCTION * * P************************************** 4 P* b PGPBSP EQU /2D BACK SPACE l PGPCLR EQU /3F CLEAR P* P******************** P* RETURN CODES * P******************** P*
0x0b9d30…0b9ec4 Dummy {f00=0x006b, f01=0x0190, f02=»OPERR EQU /1 NOT OPERABLE, POWER OFF P* , P EJECT 6 P* D P* N P********** X P* TABLES * j P********** | P* P* P IFT CROOM=1 P* PROMTAB EQU * * P TABLE FOR ROOMLESS POINT CHARACTERS ( P DATA
0x0b9ec4…0ba058 Dummy {f00=0x006b, f01=0x0190, f02=»DEVICE INDEX PGPAD EQU * ADDRESS BLOCK P DATA ACGP ACTIVATION DRIVER 4 " P DATA 0 ABORT ROUTINE ADDRESS X P DATA IHGP INTERRUPT HANDLER ~ P DATA RCGP RECOVERY ROUTINE . P DATA ECHOGP DEVICE-DEPENDENT ECHO-ROUTINE P EJECT P*
0x0ba058…0ba1ec Dummy {f00=0x006b, f01=0x0190, f02=»IS SENT TO PRINTER AND RETURN CODE n < P* IS SET IF PAPER OUT OR READY SWITCH OFF. * H P* RETURN CODE IS ALSO SET IF TIME-OUT IS SIGNALLED FROM j P* CHANNEL UNIT. P* > P* ORDER 05: BASIC WRITE. CHARACTE
0x0ba1ec…0ba380 Dummy {f00=0x006b, f01=0x0190, f02=»TER FROM V < P* ECB-BUFFER AFTER INDIVIDUAL CODE CHECK. P* P PACGP EQU * Z P LDK A2,STX START OF MESSAGE l P LDR A3,A7 =1 P RF(Z) ACGP10 ORDER 0 =2 P SUK A3,5 =1 P RF(E) ACGP09 ORDER 5 =1 P SUK A3,1 =
0x0ba380…0ba514 (0, 236) Dummy {f00=0x006c, f01=0x0190, f02=»8 GET BUFFER ADDRESS =1 ( P LC A3,1,A3 GET CONTROL CHARACTER =1 P ANK A3,/FF =1 L PACGP01 SUK A3,/2B =1 d $ P RF(E) ACGP06 CONTROL CHAR 2B =1 P CF A5,OUTPUT SEND STX =1 P LDK A2,CR =1 P CF A5,OUTPUT =1 P IFT ABIS=1
0x0ba514…0ba6a8 Dummy {f00=0x006c, f01=0x0190, f02=» P SUK A3,/30-/2B =1 * P RF(NE) ACGP03 NOT CONTROL CHAR 30 =1 $ P CF A5,OUTPUT =1 R P LDK A2,LF =1 l , PACGP03 LDK A1,1 RESET HEAD POS COUNTR =1 P ST A1,DWTAP,A6 =1 * PACGP06 LDK A3,2 START BUFFER INDEX =1 PACGP09 CF A5
0x0ba6a8…0ba83c Dummy {f00=0x006c, f01=0x0190, f02=»ST OF BOTH SUM OFF AND PRINTER NOT THERE =2 t P* =2 6 $ PACGP10 LDK A2,2 SEND CHAR /02 =2 F P CF A5,OUTPUT =2 n * P LDK A2,0 SEND CHAR /00=END OF TEST =2 P CF A5,OUTPUT =2 P RF AGP410 =2 P EJECT P* & P* GET,
0x0ba83c…0ba9d0 Dummy {f00=0x006c, f01=0x0190, f02=»TER UPDATING p PACGP19 EQU * * P LDKL A4,/400 INDICATE LINE FEED DONE ( P ORS A4,DWTST,A6 V P IFT SUPSPA=1 n 4 P CF A15,SKIPSP SKIP SPACES IN END OF ECB-BUFFER P XIF P LDK A4,0 6 PACGP20 CF A15,GETCHR GET CHARACTER FROM ECB-BU
0x0ba9d0…0bab64 Dummy {f00=0x006c, f01=0x0190, f02=»WRITE | $ P SUK A1,9 HARDWARE TABULATION ? P RF(NE) ACGP22 6 0 P ST A4,DWTAP,A6 RESET HEAD POSITION POINTER L P RB ACGP17 * PACGP22 SUK A1,8 TABULATION CHARACTER ? P RF(E) ACGP40 P IFT ABIS=1 =1 P CWK A2,/07 BELL ? =1
0x0bab64…0bacf8 Dummy {f00=0x006c, f01=0x0190, f02=» ? x P* P XIF P* P IFT TRETON=0 * P IFT FJOTON=1 @ P* V P SUK A1,3 /14? ` P RB(E) ACGP17 v P SUK A1,/C LESS THAN /20 ? P* P XIF P* P* P IFT TRETON=1 P IFT FJOTON=0 P*
0x0bacf8…0bae8c Dummy {f00=0x006c, f01=0x0190, f02=» P IFT FJOTON=1 P* P SUK A1,2 /13? $ P RB(E) ACGP17 : P SUK A1,1 /14? P P RB(E) ACGP17 f P SUK A1,/C LESS THAN /20 ? | P* P XIF P* & P RF(N) ACGP30 YES,CODE CHECK ERROR & P SUK A1,/8E ROOMLESS POINT? (AE
0x0bae8c…0bb020 Dummy {f00=0x006c, f01=0x0190, f02=» SUK A2,/20 TRANSFORM CHARACTER BETWEEN /60 TO /7F & P TO CHARACTER BETWEEN /40 TO /5F : P RB ACGP17 d PACGP24 EQU * v P SUK A1,/D P RF(NZ) ACGP26 NOT CR " P CM DWTST,A6 SET POS LTR.TO 0 ( P CM DWTAP,A6 RESET HEAD POS.POIINTER
0x0bb020…0bb1b4 (0, 237) Dummy {f00=0x006c, f01=0x0190, f02=»17 P EJECT P* P* CODE CHECK ERROR " P* @ PACGP30 EQU * J P LDK A1,CCERR ^ P ORS A1,8,A8 RETURN CODE t P RB ACGP20 P EJECT P* P* TABULATION P* PACGP40 EQU * , P CF A15,GETCHR GET F
0x0bb1b4…0bb348 Dummy {f00=0x006c, f01=0x0190, f02=»E) ACGP44 0 PACGP43 ADK A2,/A FROM DECIMAL TO HEXADECIMAL P SUK A4,1 F P RB(NE) ACGP43 X 8 PACGP44 SU A2,DWTAP,A6 SUBTRACT HEAD POSITION POINTER n P LC A4,DWTBC,A6 , P SUR A2,A4 AND REQUESTS POSITION COUNTER & P TO GET NUMBER OF SP
0x0bb348…0bb4dc Dummy {f00=0x006c, f01=0x0190, f02=»UTPUT ( P IM DWTST,A6 INCREMENT BUFFER INDEX P SUK A4,1 : P RB(P) ACGP45 L P LDR A3,A3 RECOVERY? b P RB(NE) ACGP20 ~ * P SC A4,DWTBC,A6 RESET POSITION POINTER P LDK A3,2 START BUFFER INDEX P RB ACGP19 P EJECT P*
0x0bb4dc…0bb670 Dummy {f00=0x006c, f01=0x0190, f02=»O SEND r P ANK A2,/F ! P LC A2,ROMTAB,A2 TRANSFORM ! P* ! B P XIF ! L P* ! X P* ! b P IFF CROOM=1 ! l P* ! P ANK A2,/7F ! P* ! P XIF ! P* ! P RB ACGP17 ! P EJECT ! P* ! P* ! ( P* SEND LAST DUMMY ,
0x0bb670…0bb804 Dummy {f00=0x006c, f01=0x0190, f02=»SEND ! PAGP410 LDK A2,ETX LAST DUMMY " P CF A5,OUTPUT SEND " 0 PAGP415 EQU * =1 " J P IFT ABIS=1 =1 " b P ANK A2,/4 PAPER IN ? =1 " z P RF(NZ) AGP420 YES =1 " " P LDK A1,/20 SET RETURN CODE =1 " P XIF =1 " PAGP420 EQU * " 0 P CF
0x0bb804…0bb998 Dummy {f00=0x006c, f01=0x0190, f02=» " P LD A3,DWTA3,A6 # P ST A3,6,A8 EFF. LENGTH # P RB AGP415 =1 # @ P EJECT # V P* # d P* # n , P* UPDAPP = SUBROUTINE TO UPDATE HEAD # x , P* POSITION POINTER WHEN END # ( P* OF REQUEST IS REACHED # PUPDA
0x0bb998…0bbb2c Dummy {f00=0x006c, f01=0x0190, f02=»A3,DWTBC,A6 RESET POSITION COUNTER # P RTN A15 $ , P IFT SUPSPA=1 $ < P EJECT $ R P* $ ` P* $ j * P* SKIPSP = SUBROTINE TO SKIP SPACES $ t ( P* IN END OF ECB-BUFFER. $ 6 P* REQUESTED LENGTH IN ECB IS UPDATED. $ & P
0x0bbb2c…0bbcc0 Dummy {f00=0x006c, f01=0x0190, f02=»ESTED LENGTH(RL) $ | $ P ADR A1,A2 GET ADD END OF BUFFER % PSKIP05 CWK A2,2 % @ P RF(NG) SKIP30 RL < 3 % X P SUK A1,1 DECR. BA % v P LCR A4,A1 GET CHAR % P CCK A4,/2020 SPACE ? % P RF(NE) SKIP20 NO % PSKIP07 SUK A2,1 DECR RL % P RB
0x0bbcc0…0bbe54 (0, 238) Dummy {f00=0x006c, f01=0x018e, f02=»R ? % t P RF(NE) SKIP30 NO & P SUK A1,2 DECR BA & & P SUK A2,2 DECR RL & @ P RB SKIP07 GET NEXT & Z P* & v " PSKIP30 ST A2,4,A8 STORE NEW RL & P RTN A15 & P XIF & P EJECT & P* & P* I H G P & P* & P* INTERRUPT &
0x0bbe54…0bbfe8 Dummy {f00=0x006c, f01=0x0190, f02=» P LDR A7,A7 ORDER 0? ' P RF(Z) IHGP20 =2 ' . P LDR A1,A1 RETURN CODE FROM CHANNEL UNIT ? ' : P IFT RECEND=0 ' l P RB(NZ) EXIT ' P XIF ' P IFT RECEND=1 ' P RB(NZ) AGP430 ' P XIF ' P ' 4 PIHGP10 ABL LDREG RELOAD A3-A5 AND RETU
0x0bbfe8…0bc17c Dummy {f00=0x006c, f01=0x018e, f02=» P* E C H O G P ( P* ( 0 P* ECHOGP = DEVICE-DEPENDENT ECHO-ROUTINE ( & P* ( Z PECHOGP EQU * ( d P LDK A4,COSPAC ( x P LDR A7,A7 EOR? ( P RF(N) ECGP17 YES ( P* ( P IFT EORECH=0 ( P* ( P SUK A2,/80 EOR-CHARACTER (
0x0bc17c…0bc310 Dummy {f00=0x006c, f01=0x0190, f02=» P RF(E) ECGP40 BACKSPACE ) P SUK A1,/2 LINE FEED =1 ) $ P RF(E) ECGP10 YES =1 ) D P SUK A1,/3 CR =1 ) ` P RF(E) ECGP10 YES =1 ) x P SUK A1,/B =1 ) P RF(E) ECGP50 CLEAR ) 8 P SUK A1,/20-/8-/10 CHECK THAT CHAR IS WITHIN /20-/5F ) P RF(N)
0x0bc310…0bc4a4 Dummy {f00=0x006c, f01=0x0190, f02=»NTER ) p P SUK A4,1 READY ? * P RF(N) ECGP20 YES * & * P RF(P) ECGP60 NO, GO TO CLEAR SECTION * @ P* * n P IFT COSPAC=1 * x P* * P LDK A2,SPACE NO SEND SPACE * P RB ECGP10 * P* * P XIF * P* * 6 PECGP17 CF A15,UPDAPP UPDAT
0x0bc4a4…0bc638 Dummy {f00=0x006c, f01=0x0190, f02=»40 EQU * * & P LDK A2,GPBSP BACKSPACE CHARACTER + P RB ECGP10 + : P* + L P* CANCEL + V P* + j PECGP50 EQU * + t " P LDK A2,GPCLR CLEAR CHARACTER + P LDK A4,3 + P RB ECGP10 + PECGP60 LDK A2,LF LINE FEED + P LC A3,DWTBC,A6 +
0x0bc638…0bc7cc Dummy {f00=0x006c, f01=0x018e, f02=» A3,0 + * P SC A3,DWTBC,A6 RESET POSITION COUNTER , P RB ECGP20 , < P EJECT , N P* , P* R C G P , f P* , z 0 P* RCGP = RECOVERY ROUTINE GENERAL PRINTER , P* , P* , ( P* RECOVERY IS CARRIED OUT ONLY IF , P* ORDER 6 IS
0x0bc7cc…0bc960 Dummy {f00=0x006c, f01=0x0190, f02=» , x PRCGP EQU * - P IFT CPU852=1 - & P CF A15,SAVE8 SAVE A1-A8 ON STACK - 0 P XIF - Z P* - f P IFT CPU852=0 - p " P MSR 8,A15 SAVE A1-A8 ON STACK - P XIF - P* - P LD A2,DWTST,A6 BUSY ? - P RB(N) EXIT NO - ( P LDK A2,SOH RESET
0x0bc960…0bcaf4 (0, 239) Dummy {f00=0x006c, f01=0x0190, f02=»YES - P CWK A7,0 ORDER 0? . P ABL(E) ENDIO =3 . & P ABL EXIT =3 . @ PRCGP05 EQU * . V 0 P LC A2,DWTST,A6 GET LEFT BYTE OF STATUS WORD . j P ANK A2,/4 LINE FEED DONE ? . P ABL(E) ACGP NO . P LDK A2,SPACE . P CF A5,OUTPUT SEND SPACE
0x0bcaf4…0bcc88 Dummy {f00=0x006c, f01=0x407e, f02=» OF SPACES TO SEND . v P ABL ACGP46 / ( PRCGP10 LDK A1,TPERR SET RETURN CODE / . P ABL AGP430 / Z P END / n@ / zLEFT BYTE OF STATUS WORD . j P ANK A2,/4 LINE FEED DONE ? . P ABL(E) ACGP NO . P LDK A2,SPACE . P CF A5,OUTPUT SEND SPACE
0x0bcc88…0bce1c Dummy {f00=0x006c, f01=0x2008, f02=» 0 YTE OF STATUS WORD % ~ P ANK A2,/4 LINE FEED DONE ? & " P ABL(E) ACGP NO & F P LDK A2,STX & ^ P CF A5,OUTPUT SEND STX & r P LDK A2,CR CARRIAGE RETURN & P LDK A3,0 & 0 P LD A4,DWTAP,A6 GET NUMBER OF SPACES TO SEND & P RB ACGP46 & (
0x0bce1c…0bcfb0 Dummy {f00=0x006c, f01=0x0190, f02=» PRINT HEAD 0 P* 1 P* 1 ( PPRB115 LDK A2,RPH DETACH PRINT HEAD 1 ( P CF A5,OUTPUT SEND DETACH 1 T , PPRB117 LC A2,-1,A3 GET 1ST TAB POS CHAR 1 v $ P LCR A1,A3 GET 2ND TAB POS CHAR 1 P ANK A1,/F LINE UNIT 1 P SLL A2,4 1 P ANK A2,/F0
0x0bcfb0…0bd144 Dummy {f00=0x006c, f01=0x0190, f02=»TER 1 j 2 P CC A1,DWTBC,A6 COMPARE WITH ACTUAL TAB. POS. 2 P RF(NG) PRB125 PRINT 2 B P* 2 ^ P* 2 h P* 2 r P LDK A2,/20 LOAD BLANK 2 | ( P CF A5,OUTPUT SEND BLANKS OR DETACH 2 P RB PRB117 2 P* 2 P* 2 P* 2 . PPRB125 SUK A4,2 DE
0x0bd144…0bd2d8 Dummy {f00=0x006c, f01=0x0190, f02=» 2 P* 3 P* 3 P* 3 2 P* GET OUTPUT CHARACTER FROM BUFFER. CHECK IF 3 & P* - ROOMLESS POINT 3 P* - ILLEGAL CHARACTER 3 x & P* - SPECIAL CHARACTER (/13,/14) 3 P* 3 PPRB200 EQU * 3 * PPRB205 LCR A7,A3 LOAD OUTPUT CHARACTER 3
0x0bd2d8…0bd46c Dummy {f00=0x006c, f01=0x018e, f02=»7,A3 GET OUTPUT CHARACTER 3 P ANK A7,/F MASK 4 " & P LC A7,ROMTAB,A7 GET CODE IN TABLE 4 : P* 4 d P* 4 n P* 4 x , PPRB210 CCK A7,/2020 ILLEGAL CHARACTER ? 4 P RF(L) PRB225 YES 4 , PPRB215 CCK A7,/5F5F ILLEGAL CHARACTER ? 4 P RF(NG) PRB2
0x0bd46c…0bd600 Dummy {f00=0x006c, f01=0x018e, f02=» 4 | P XIF 5 P IFT CHR14=1 5 & P CCK A7,/1414 SPECIAL CHARACTER ? 5 ( P RF(E) PRB230 YES 5 R P XIF 5 l P* 5 x " P LDK A1,CCERR CODE CHECK ERROR 5 * P ORS A1,ECBRC,A8 STORE IN RETURN CODE 5 P LD A7,DWTOR,A6 GET ORDER 5 P ANK A7,/FF 5
0x0bd600…0bd794 (0, 240) Opaque[0x194]
0x0bd794…0bd928 # DirEnt {nam=»DRDI01«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0da0, f03=0x0000}
0x0bd794…0bd928 IdxSect {
0x0bd794…0bd928 f00 = 0x006d // 0xbd794 @0x0
0x0bd794…0bd928 f01 = 0x0008 // 0xbd796 @0x2
0x0bd794…0bd928 gno = [ // 0xbd798 @0x4
0x0bd794…0bd928 [0x00]: C0x006d.0x0.0
0x0bd794…0bd928 [0x01]: C0x006d.0x2.0
0x0bd794…0bd928 [0x02]: C0x006d.0x3.0
0x0bd794…0bd928 [0x03]: C0x006e.0x0.0
0x0bd794…0bd928 ]
0x0bd794…0bd928 }
0x0bd928…0bdabc Dummy {f00=0x006d, f01=0x0190, f02=» 2 P IDENT DRDI01 REL 9.2 79-11-16 870105040920 P : P* B P* L < P******************************************************* V P* $ P* PHILIPS TERMINAL SYSTEM PTS P* * P* DRDI01 = DRIVER INDICATOR DISPLAY P*
0x0bdabc…0bdc50 Dummy {f00=0x006d, 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* @ P* THESE DEVICES MUST BE CONNECTED TO CPU VIA CHLT OR CHRT P* 4 P* TH
0x0bdc50…0bdde4 Dummy {f00=0x006d, f01=0x0190, f02=»LER t P* " P* R C D I : RECOVERY ROUTINE P* < * P* THE FOLLOWING ORDERS ARE TREATED: F P* t " P* ORDER 05: WRITE LIGHTS ON ~ " P* 06: WRITE LIGHTS OFF ( P* 07: WRITE PROGRAM DISPLAY , P* 39:
0x0bdde4…0bdf78 Dummy {f00=0x006d, f01=0x0190, f02=» t P* A2: OUTPUT " P* A3: WORK REGISTER ( " P* A4: WORK REGISTER N " P* A5: WORK REGISTER t P* A6: DWT-ADDRESS P* A7: ORDER P* A8: ECB-ADDRESS P*
0x0bdf78…0be10c Dummy {f00=0x006d, f01=0x0190, f02=» 1 IF PROGRAM DISPLAY (PTS 6241) , P* BIT 11 = 1 FOR PTS 6232,6331,6236 , , P* BIT 11 = 0 FOR PTS 6241,6242,6233 P* : P* ORDER 07, WRITE PROGRAM DISPLAY MAY BE EXCLUDED BY P* CONDITIONAL ASSEMBLY P* P EJECT
0x0be10c…0be2a0 Dummy {f00=0x006d, f01=0x0190, f02=»-BLOCK r P* P******************* P* EXTERNALS * 4 P******************* P P* l P EXTRN SAVE8 SAVE REGS v P EXTRN TENDIO END I/O . P EXTRN DISEND PERFORM END I/O AND DISPATCH * P EXTRN TDISP DISPATCHER ORDINARY INT
0x0be2a0…0be434 (0, 241) Dummy {f00=0x006d, f01=0x0190, f02=» STATUS EXTRN DWTBC BYTE COUNTER EXTRN DWTECB ECB ADDRESS 2 P* T P EXTRN SETIMP SET TIMER ^ P* ~ P* P EJECT P* P* P*************** P* TABLES * P*************** P* P*
0x0be434…0be5c8 Dummy {f00=0x006d, f01=0x0190, f02=»DRIVER z " P DATA 0 ABORT ROUTINE ADDRESS P DATA IHDI INTERRUPT HANDLER 4 P DATA RCDI RECOVERY ROUTINE X P* | " PCCERR EQU /4 CODE CHECK ERROR P* P EJECT P* P* P************************* P* CONDITIONAL
0x0be5c8…0be75c Dummy {f00=0x006d, f01=0x0190, f02=»* SETTING X:A=0 P* PX:A EQU 0 $ PORD7 EQU 0 6 P* H P* R 8 P* THIS DRIVER CAN BE MADE TO HANDLE CREDIT ORDERS P* BY SETTING CREDIT = 1 0 P* ORDERS 05,06AND 07 ARE THEN REPLACED BY P* ORDERS 37,38 AND 06
0x0be75c…0be8f0 Dummy {f00=0x006d, f01=0x0190, f02=»Y SETTING X:B=1 | P* PX:B EQU 0 " PFLASH EQU 0 4 P* H P* R . P* A PROGRAM VERSION USING TOSS MMU PAGING * P* IS OBTAINED BY SETTING MMUPAG EQU 1. P* PMMUPAG EQU 1 P* P* 6 P* A PROGRAM VERSION USING
0x0be8f0…0bea84 Dummy {f00=0x006d, f01=0x018e, f02=»* P* P* MMU BUFFER SIZE P* 0 PX:C EQU 4 : PDVBLEN EQU X:C L P* b P* l P********************* v P* DWT-DISPLACEMENTS * P********************* P* P* 0 PDWTDRD EQU /10 START OF DRIVER DEFIN
0x0bea84…0bec18 Dummy {f00=0x006d, f01=0x0190, f02=» | P XIF P* " PDWTDIB EQU START+/02 SAVE AREA 2 PDWTFLA EQU START+/08 SAVE AREA FOR FLASH IMAGE D & PDWTTP EQU START+/0A TIMER POINTER z PTIME EQU 5 FLASH TIME P* P EJECT P* P* A C D I P* > P* AC
0x0bec18…0bedac Dummy {f00=0x006d, f01=0x0190, f02=»EDIT=1 P CCK A7,/0707 P RF(E) ADI050 ORDER /07 $ P XIF D P IFT ORD7+CREDIT=2 P P CCK A7,/0606 j P RF(E) ADI050 ORDER /06 P XIF $ P LD A4,10,A8 CONTROL WORD TO A4 P LDR* A3,A6 4 P ANK A3,/10 TEST IF ONE OR TWO C
0x0bedac…0bef40 Dummy {f00=0x006d, f01=0x0190, f02=» P SLL A3,4 P ORR A4,A3 LAMPCODES IN A4 PADI005 EQU * < P IFT FLASH=1 P P CCK A7,/3939 d P RF(E) FLA05 z P XIF P IFT CREDIT=0 P SUK A7,5 P XIF P IFT CREDIT=1 P SUK A7,/37 P XIF P RF(
0x0bef40…0bf0d4 (0, 242) Dummy {f00=0x006d, f01=0x0190, f02=»* P* P IFT FLASH=1 P* ( P* FLASH ORDER /39 2 P* R P* , PFLA05 ORS A4,DWTFLA,A6 SAVE FLASH IMMAGE f & P LD A1,DWTTP,A6 GET TIMER POINTER ( P RF(NZ) FLA10 TIMER ALREADY STARTED P LDK A4,DWTTP START TIMER
0x0bf0d4…0bf268 Dummy {f00=0x006d, f01=0x0190, f02=»NRS A4,A6 CHECK ON-OFF INDICATOR PFLA10 EQU * ( P LD A4,DWTFLA,A6 < & P LDR* A2,A6 CHECK ON-OFF INDICATOR T P ANK A2,/40 ~ * P RF(Z) FLA20 WRITE FLASHING LIGHTS OFF P ORS A4,DWTDIB,A6 ON + FLASH P RF ADI030 TURN ON LAMPS PFLA2
0x0bf268…0bf3fc Dummy {f00=0x006d, f01=0x0190, f02=»A1 P LD A4,DWTFLA,A6 < P RF(Z) FLA30 IF NO MORE LAMPS TO FLASH GO TO DISPATCHER " P LDKL A1,-TIME RESTART TIMER b P ST* A1,DWTTP,A6 P LDK A4,/40 " P XRRS A4,A6 SWITCH 0N-OFF FLAG P RB FLA10 PFLA30 CM DWTTP,A6 P RF
0x0bf3fc…0bf590 Dummy {f00=0x006d, f01=0x0190, f02=» A4,DWTDIB,A6 RESET BITS IN DWT-BUFFER P IFT FLASH=1 . 0 P ANS A4,DWTFLA,A6 RESET BITS IN FLASH IMAGE B P XIF v P RF ADI030 P* P* P EJECT P* P* P* ORDER 05: TURN ON LAMPS P* P* P*
0x0bf590…0bf724 Dummy {f00=0x006d, f01=0x0190, f02=»AGE h P XIF . PADI030 LC A2,DWTDIB,A6 GET FIRST CHARACTER PADI035 LDK A1,1 J 6 P SC A1,DWTST+1,A6 SET START VALUE IN BYTE COUNTER b P LDR* A3,A6 TWO OUTPUTS ? P ANK A3,/10 P RF(NZ) IHDI10 NO P RF IHDI20 YES P*
0x0bf724…0bf8b8 Dummy {f00=0x006d, f01=0x0190, f02=»0 & PADI060 CF A15,GETCHR GET CHARACTER P LDR A1,A1 LAST CHARACTER ? 4 P RF(Z) ADI070 YES X P LDR A4,A2 r P SRL A4,4 $ P SUK A4,3 UNDEFINED CHARACTER ? P RF(L) ADI100 YES P CWK A4,3 UNDEFINED ? P RF(G) ADI100 YES
0x0bf8b8…0bfa4c Dummy {f00=0x006d, f01=0x0190, f02=» < PADI070 SC A1,DWTST+1,A6 SET START VALUE IN BYTE COUNTER P RF IHDI10 SEND CHARACTERS D P* f P* p P* CODE CHECK ERROR z P* ( PADI100 LDK A1,CCERR SET RETURN CODE P ORS A1,8,A8 IN ECB " P RB ADI060 GET NEXT CHARACTER
0x0bfa4c…0bfbe0 Dummy {f00=0x006d, f01=0x0190, f02=»* PIHDI EQU * P LDR A1,A1 RETURN CODE P RF(NE) ENDIO YES END I/O : P LD A4,DWTST,A6 GET STATUS P ANK A4,/FF ~ P SUK A4,2 TWO CHARS. SENT P IFT ORD7=1 P RF(NZ) IHDI05 NO & P LDR* A3,A6 GET CHANNEL PARAMETER
0x0bfbe0…0bfd74 (0, 243) Dummy {f00=0x006e, f01=0x018e, f02=»RFORM ENDIO | PIHDI10 LDKL A2,DWTDIB P ADR A2,A6 2 P LD A4,DWTST,A6 F P ANK A4,/FF ^ P ADR A2,A4 r P LCR A2,A2 GET CHARACTER P XIF P IFT ORD7=0 P RF(Z) ENDIO 2 PIHDI10 LC A2,DWTDIB+1,A6 GET SECOND CHARACTER
0x0bfd74…0bff08 Dummy {f00=0x006e, f01=0x0190, f02=» P ORK A2,/40 INDICATE BELL P* & . POUTPUT IM DWTST,A6 INCREMENT BYTE COUNTER 0 & PIHDI20 CF A15,OUTLIN OUTPUT CHAR. b PEXIT ABL TDISP 2 PENDIO ABL DISEND PERFORM END I/O AND DISPATCH P* P EJECT P* P* R C D I
0x0bff08…0c009c Dummy {f00=0x006e, f01=0x018e, f02=»RMATION Z , P* OM PROGRAM DISPLAY IS ALSO RESTORED P* @ P* J PRCDI EQU * T P IFT CPU852=1 f & 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*
0x0c009c…0c0230 Dummy {f00=0x006e, f01=0x4014, f02=» P @ OM PROGRAM DISPLAY IS ALSO RESTORED P* @ P* J PRCDI EQU * T P IFT CPU852=1 f & 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*
0x0c0230…0c03c4 Dummy {f00=0x006e, 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
0x0c03c4…0c0558 Dummy {f00=0x006e, f01=0x0190, f02=» p P DATA 2 DEVICE INDEX PGPAD EQU * ADDRESS BLOCK $ P DATA ACGP ACTIVATION DRIVER D " P DATA 0 ABORT ROUTINE ADDRESS h P DATA IHGP INTERRUPT HANDLER P DATA RCGP RECOVERY ROUTINE . P DATA ECHOGP DEVICE-DEPENDENT ECHO-ROUTINE P
0x0c0558…0c06ec Dummy {f00=0x006e, f01=0x0190, f02=»T STATUS. DUMMY IS SENT TO PRINTER AND RETURN CODE ~ < P* IS SET IF PAPER OUT OR READY SWITCH OFF. : H P* RETURN CODE IS ALSO SET IF TIME-OUT IS SIGNALLED FROM z P* CHANNEL UNIT. P* > P* ORDER 05: BASIC
0x0c06ec…0c0880 Dummy {f00=0x006e, f01=0x018e, f02=»ARE SENT TO PRINTER FROM f < P* ECB-BUFFER AFTER INDIVIDUAL CODE CHECK. P* ` PACGP EQU * j P LDK A2,STX START OF MESSAGE | P LDR A3,A7 =1 P RF(Z) ACGP10 ORDER 0 =2 P SUK A3,5 =1 P RF(E) ACGP09 ORDER 5 =1
0x0c0880…0c0a14 (0, 244) Opaque[0x194]
0x0c0a14…0c0ba8 # DirEnt {nam=»DRDY01«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0dc8, f03=0x0000}
0x0c0a14…0c0ba8 IdxSect {
0x0c0a14…0c0ba8 f00 = 0x006e // 0xc0a14 @0x0
0x0c0a14…0c0ba8 f01 = 0x0018 // 0xc0a16 @0x2
0x0c0a14…0c0ba8 gno = [ // 0xc0a18 @0x4
0x0c0a14…0c0ba8 [0x00]: C0x006e.0x1.0
0x0c0a14…0c0ba8 [0x01]: C0x006e.0x3.0
0x0c0a14…0c0ba8 [0x02]: C0x006f.0x0.0
0x0c0a14…0c0ba8 [0x03]: C0x006f.0x1.0
0x0c0a14…0c0ba8 [0x04]: C0x006f.0x2.0
0x0c0a14…0c0ba8 [0x05]: C0x006f.0x3.0
0x0c0a14…0c0ba8 [0x06]: C0x0070.0x0.0
0x0c0a14…0c0ba8 [0x07]: C0x00ea.0x3.0
0x0c0a14…0c0ba8 [0x08]: C0x00eb.0x1.0
0x0c0a14…0c0ba8 [0x09]: C0x00eb.0x3.0
0x0c0a14…0c0ba8 [0x0a]: C0x00ec.0x0.0
0x0c0a14…0c0ba8 [0x0b]: C0x00ec.0x1.0
0x0c0a14…0c0ba8 ]
0x0c0a14…0c0ba8 }
0x0c0ba8…0c0d3c Dummy {f00=0x006e, f01=0x0190, f02=» 2 P IDENT DRDY01 9.2DK 1 80-02-12 870105040921 P : P *DK,POS 80 ON VDU B P REL 9.2 80-02-12 ^ P =4,ABORT ROUTINE INCLUDED z P REL 9.1 79-05-23 * P =3,STEADY CURSOR PROBLEM CORRECTED P PRR 9.1 79-04-06 , P =
0x0c0d3c…0c0ed0 Dummy {f00=0x006e, f01=0x0190, f02=»01-12 P P* 6 P************************************************** P* Z $ P* PHILIPS TERMINAL SYSTEM PTS d P* 2 P* DRDY01 = DRIVER VIDEO AND GRAPHIC DISPLAY P* P* P* P* P* P* 6 P
0x0c0ed0…0c1064 Dummy {f00=0x006e, f01=0x0190, f02=» @ P* PTS 6344, PTS 6342 AND TO THE PLASMA DISPLAYS PTS 6351 P* AND PTS 6386 H 6 P* THE DISPLAYS MUST BE CONNECTED TO THE SYSTEM b P* VIA CHLT OR CHRT. P* < P* THE DRIVER INCLUDES DEVICE DEPENDENT ECHO-FUNCTIONS : P*
0x0c1064…0c11f8 Dummy {f00=0x006e, f01=0x018e, f02=»BOARD DRIVER DRKB01. P* P* & 0 P* THE DRIVER CONSISTS OF FOLLOWING PARTS: 0 P* d & P* A C D Y ACTIVATION PART n P* ( P* I H D Y INTERRUPT HANDLER P* ( P* R C D Y RECOVERY ROUTINE P*
0x0c11f8…0c138c Dummy {f00=0x006e, f01=0x0190, f02=» P* P* ORDER 00: TEST STATUS P* 05: BASIC WRITE 0 " P* 06: STANDARD WRITE R ( P* 07: WRITE GRAPHIC DISPLAY x & P* 0B: CURSOR POSITIONING P* 31: ERASE P* P* NORMAL REGISTER
0x0c138c…0c1520 Dummy {f00=0x006e, f01=0x0190, f02=»X r $ P* A4 = WORK REGISTER " P* A5 = STACK BASE 2 " P* A6 = DWT-ADDRESS X P* A7 = ORDER ~ " P* A8 = ECB-ADDRESS P* P EJECT P* P* P* SYSTEM ADAPTATION
0x0c1520…0c16b4 (0, 245) Dummy {f00=0x006e, f01=0x0190, f02=»* BIT: 10 11 P* -------------- " P* 0 0 PTS 6344 4 * P* 0 1 PTS 6351 & 6342 Z * P* 1 0 PTS 6386 & 6385 * P* --------------------------------- P* 6 P* BY MEANS OF CONDITION
0x0c16b4…0c1848 Dummy {f00=0x006e, f01=0x0190, f02=»* -CAN USE LOWER CASE CHAR. GENERATOR COLUMN 6 AND 7 8 P* -CAN SUPPRESS ECHOING OF END OF RECORD CHARACTER > & P* -CAN SUPPRESS TRAILING BLANKS z F P* AND ALSO UNDERLINE START (/12), LOW INT (/1E), HIGH INT (/1F) P EJECT P* P*
0x0c1848…0c19dc Dummy {f00=0x006e, f01=0x0190, f02=»S TO ADDRESSBLOCK ~ 0 P ENTRY ECHODY DEVICE-DEPENDENT ECHO-ROUTINE P* N P* X P* b P* l . P***************************************** v . P* EXTERNAL TOSS MODULE ENTRIES * . P*****************************************
0x0c19dc…0c1b70 Dummy {f00=0x006e, f01=0x0190, f02=»R z > P EXTRN LDREG LOAD REGISTERS A4, A3, A5, A7, A8 AND RETURN P EXTRN TENDIO END I/O L . P EXTRN SAVE8 SAVE 8 REGISTERS ON A15 STACK j 0 P EXTRN ECHRTN RETURN TO KEYBOARD AFTER ECHO 0 P EXTRN GETCHR GET CHARACTER FROM ECB-BUFFER P EJE
0x0c1b70…0c1d04 Dummy {f00=0x006e, f01=0x0190, f02=»ST STATUS EXTRN DWTBC BYTE COUNTER P EXTRN DWTOR ORDER 4 P* N P EJECT X P************* f P* CONSTANTS * | P************* P* PFASTO EQU /14 FAST OUTPUT $ PSCADD EQU /11 SET CURSOR ADDRESS " PULSTAR EQU /
0x0c1d04…0c1e98 Dummy {f00=0x006e, f01=0x0190, f02=»TOP r PBACKSP EQU /08 BACKSPACE PLF EQU /0A LINE FEED , PHOME EQU /0B CURSOR HOME H ( PCLEHOM EQU /0C CLEAR AND CURSOR HOME h PCR EQU /0D CARRIAGE RETURN PCURRIG EQU /10 CURSOR RIGHT PSPACE EQU /20 SPACE PSTX EQU /82 START
0x0c1e98…0c202c Dummy {f00=0x006e, f01=0x018e, f02=»PE EQU /11 ESCAPE TO GRAPHIC MODE " PPOINT EQU /2E POINT CHARACTER * 2 PEQU EQU 6 THRESHOLD FOR AUTOMATIC FAST OUTPUT P PSTILL EQU /18 CURSOR STEADY $ PCTYCOD EQU /1B SET COUNTRY CODE P* P******************** P* RETURN CODE
0x0c202c…0c21c0 Dummy {f00=0x006e, f01=0x0190, f02=» P EJECT P* P* . P***************************************** * . P* CONDITIONAL ASSEMBLY * . P***************************************** P* P* H P* BY SETTING X:A TO 1 DRIVER CAN HANDLE GRAFIC MO
0x0c21c0…0c2354 (0, 246) Dummy {f00=0x006f, f01=0x0190, f02=»44 Z P* PX:B EQU 1 PWHATDY EQU 1 & P* : P* D 8 P* BY SETTING X:C TO 1 LOWER CASE CHAR. GENERATOR N & P* (COLUMNS 6 AND 7) CAN BE USED PX:C EQU 0 PLOWCHA EQU 0 P* P* 8 P* BY MEANS OF CONDITION
0x0c2354…0c24e8 Dummy {f00=0x006f, f01=0x018e, f02=»ANT X:G=0 f P* PX:D EQU 0 PEORECH EQU 0 . P* B 0 P* BY SETTING THE CONSTANT TRASPA = 1 IT IS L @ P* POSSIBLE TO SUPPRESS TRAILING BLANKS, /12, /1E AND /1F. P* PX:E EQU 0 PTRASPA EQU 1 P EJECT P*
0x0c24e8…0c267c Dummy {f00=0x006f, f01=0x0190, f02=» < P* THIS DRIVER CAN BE ADAPTED TO MEMORY MANAGEMENT UNIT P* BY SETTING MMUPAG = 1 D P* f PMMUPAG EQU 1 p P* P* 6 P* A PROGRAM VERSION USING THE EXTENDED INSTRUCTION . P* SET IS OBTAINED BY SETTING CPU852 EQU 0. P*
0x0c267c…0c2810 Dummy {f00=0x006f, f01=0x0190, f02=» CHARACTER SETS. h P P P* CODE COUNTRY ( P > P* 0 GB/NL/B F P* 1 D/A/L/CH Z P* 2 F/CH/B/L n P* 3 E P* 4 I/CH P* 5 S/SF P* 6 DK/N P* 7 P P* 8 YU P* 9 US PX:G EQU 0 PCOUNTRY EQU
0x0c2810…0c29a4 Dummy {f00=0x006f, f01=0x0190, f02=»CT P* P* $ P******************************** $ P* DWT-DISPLACEMENT * F $ P******************************** n P* P* 0 PDWTDRD EQU /10 START OF DRIVER DEFINED PART P* P IFT MMUPAG=0 PSTART EQU
0x0c29a4…0c2b38 Dummy {f00=0x006f, f01=0x0190, f02=»ION POINTER r " PDWTPOS EQU START+/15 POSITIONS PDWTLIN EQU START+/14 LINES : & PDWTBIN EQU START+/16 BUFFER INDEX P* P EJECT P* P* P********** P* TABLES * P********** P* P* P DATA DVBLEN
0x0c2b38…0c2ccc Dummy {f00=0x006f, f01=0x0190, f02=»OUTINE ADDRESS ~ P DATA IHDY INTERRUPT HANDLER P DATA RCDY RECOVERY ROUTINE : . P DATA ECHODY DEVICE-DEPENDENT ECHO-ROUTINE ^ P* P* , PTABSPE EQU * TABLE OF SPECIAL CHARACTERS P DATA /0712,/131E,/1F14 P EJECT P*
0x0c2ccc…0c2e60 Dummy {f00=0x006f, f01=0x0190, f02=»ISPLAY AND RETURN CODE b 2 P* IS SET IF DISPLAY NOT OPERABLE P* T P* ^ > P* ORDER 05: BASIC WRITE. CHARACTER ARE SENT TO DISPLAY h 6 P* FROM ECB-BUFFER WITHOUT ANY CHECK. P* F P* ORDER 06: STANDARD WR
0x0c2e60…0c2ff4 (0, 247) Dummy {f00=0x006f, f01=0x0190, f02=» IF A PREDEFINED NUMBER OF CHARACTERS (SEE CONSTANT 'EQU') J P* ARE FOUND EQUAL, FAST OUTPUT IS EXECUTED FOR THE NUMBER B F P* OF CHARACTERS FOUND EQUAL (> 'EQU') ON 6344 & 6386> P* P IFT GRAFIC=1 B P* ORDER 07:
0x0c2ff4…0c3188 Dummy {f00=0x006f, f01=0x0190, f02=» IS SENT TO THE DISPLAY. P* " P XIF , : P* ORDER /B: CURSOR POSITIONING AND STANDARD WRITE. 8 < P* THE CURSOR IS SENT TO THE POSITION GIVEN v > P* IN CONTROL WORD. NO INFORMATION ON DISPLAY @ P* I
0x0c3188…0c331c Dummy {f00=0x006f, f01=0x0190, f02=»RASED ON THE LINE j < P* WHERE THE CURSOR IS POSITIONED THE NUMBER @ P* OF CHARACTERS THAT ARE DEFINED IN THE CONTROL Z @ P* WORD OF ECB. 0-80 CHARACTERS. ERASING STARTS : P* IN THE CURSOR POSITION.
0x0c331c…0c34b0 Dummy {f00=0x006f, f01=0x018e, f02=»UNTER P LDR A7,A7 ORDER 0 ? P ABL(E) ADY410 YES * P LDK A2,STX START OF MESSAGE D P CF A5,OUTPUT SEND h P IFT WHATDY=0 " P LDR* A1,A6 CHANNEL PARAMETER P ANK A1,/10 GRAPHIC DISPLAY P RF(E) ACDY02 NO P IFT GRAFIC=1
0x0c34b0…0c3644 Dummy {f00=0x006f, f01=0x0190, f02=» d P CF A5,OUTPUT P* P XIF ( P* 4 PACDY02 EQU * > P CWK A7,5 ORDER 5 R P RF(E) ACDY90 YES l P SUK A7,6 ORDER 6 ? P RF(E) ACDY20 YES P SUK A7,5 ORDER /B ? P ABL(E) ADY200 YES P SUK A7,/26 ORDER ERAS
0x0c3644…0c37d8 Dummy {f00=0x006f, f01=0x0190, f02=»N RIGHT BYTE IN BUFFER p P* ARE CARRIED OUT. 0 P* /2B NO MOVING OF PRINT HEAD < " P* /30 CR, LF, LF p B P* /31 ERASE DISPLAY AND WRITE FROM HOME POSITION P* OTHER VALUE CR, LF P* P
0x0c37d8…0c396c Dummy {f00=0x006f, f01=0x0190, f02=»FFER ADDRESS ~ & P LC A2,1,A2 GET CONTROL CHARACTER P ANK A2,/FF > PACDY25 EQU * R * P SUK A2,/2B POSITIONING BEFORE WRITE ? f P RF(E) ACDY90 P SUK A2,6 /31 ? P RF(E) ACDY65 P LDK A4,1 INDICATE LINE FEED " P ADK A2,1 DO
0x0c396c…0c3b00 Dummy {f00=0x006f, f01=0x0190, f02=»TURN t PACDY35 LDK A1,1 2 P SC A1,DWTAP+1,A6 RESET HEAD POSITION COUNTER $ 8 P* SEND CARRIAGE RETURN AND ONE OR TWO LINE FEEDS Z P* PACDY50 EQU * P CF A5,OUTPUT SEND CHARACTER PACDY52 SUK A4,1 & P RF(N) ACDY90 START SECT
0x0c3b00…0c3c94 (0, 248) Dummy {f00=0x006f, f01=0x0190, f02=»OUNTER r P ADS A2,DWTAP,A6 & PACDY55 LDK A2,LF LINE FEED TO SEND & P RB ACDY50 P ( PACDY65 LDK A2,CLEHOM CLEAR AND HOME b P LDK A1,1 & P SC A1,DWTAP,A6 RESET LINE COUNTER P RB ACDY35 P EJECT P* & P* GET, CHECK AND
0x0c3c94…0c3e28 Dummy {f00=0x006f, f01=0x0190, f02=»METER t P ANK A4,/10 $ P RF(NZ) ACDY75 NOT 6344 OR 6386 " P XIF J P LD A4,2,A8 V 2 P ADR A4,A3 GET ADDRESS TO NEXT CHAR IN BUFFER j $ P CCR A2,A4 CHAR EQU TO CURRENT? P ABL(E) CHECK YES! PACDY75 EQU * P CF A5,OUTPUT
0x0c3e28…0c3fbc Dummy {f00=0x006f, f01=0x0190, f02=»GET REQUESTED LENGTH(RL) $ P ADR A1,A2 GET ADD END OF BUFFER PSKIP05 CWK A2,2 H P RF(NG) SKIP30 RL < 3 ` P SUK A1,1 DECR. BA ~ P LCR A4,A1 GET CHAR P CCK A4,/2020 SPACE ? P RF(NE) SKIP20 NO PSKIP07 SUK A2,1 DECR RL
0x0c3fbc…0c4150 Dummy {f00=0x006f, f01=0x0190, f02=»TION CHAR ? | P RF(NE) SKIP25 NO! ! P SUK A1,2 DECR BA ! . P SUK A2,2 DECR RL ! H P RB SKIP07 GET NEXT ! b ( PSKIP25 LCR A4,A1 GET CHARACTER AGAIN ! ~ P ANK A4,/FF ! " P SUK A4,/12 UNDER LINE START? ! P RB(Z) SKIP07 YES! SKIP IT! ! P
0x0c4150…0c42e4 Dummy {f00=0x006f, f01=0x018e, f02=»T A2,4,A8 STORE NEW RL ! P XIF " PACDY90 LDK A4,0 " * 6 PADY100 CF A15,GETCHR GET CHARACTER FROM ECB-BUFFER " B P LDR A1,A1 LAST CHARACTER? " | P ABL(NP) ADY405 " P SUK A7,5 ORDER 5? " P RB(E) ACDY75 " P ANK A2,/7F " P LDK A1,5 SET
0x0c42e4…0c4478 Dummy {f00=0x006f, f01=0x0190, f02=» " p P ANK A7,/30 GRAFIC DISPLAY ? # P RF(E) ADY110 NO # , P LDK A1,0 SET TABLE PONTER # D * PADY110 CC A2,TABSPE,A1 CHARACTER FOUND # f P RF(NE) ADY128 # " P CCK A2,/1E1E LOW INTENSITY ? # P RF(NE) ADY122 NO # P LDK A4,/80 # , PADY120 ORR
0x0c4478…0c460c Dummy {f00=0x006f, f01=0x0190, f02=» LDK A4,/40 SET UNDERLINE MODE # P RB ADY120 $ & & PADY125 CCK A2,/1414 FAST OUTPUT ? $ 8 P LDK A4,0 $ b P RB(NE) ACDY50 NO $ t P LDR A4,A2 $ ( P CF A15,GETCHR GET OUTPUT CHARACTER $ P LDR A1,A2 $ P LDR A2,A4 $ P LD A4,4,A8 REQ LENGTH $
0x0c460c…0c47a0 Dummy {f00=0x006f, f01=0x018e, f02=» P ANK A7,/10 % 2 P RF(NZ) OTHER OTHER DISPLAY THAN 6344 OR 6386? % P XIF % N P LDR A3,A1 NO! % Z P CF A5,FASTER % p PADY127 EQU * % P LD A3,4,A8 REQ LENGTH % P ST A3,6,A8 EFF LENGTH % P ABL ADY405 % PADY128 EQU * % P SUK A1,1
0x0c47a0…0c4934 (0, 249) Dummy {f00=0x006f, f01=0x0190, f02=» % P SUK A1,/F LESS THAN /20 ? & " P RF(N) ADY130 CODE CHECK ERROR & * P SUK A1,/3F GREATER THAN /5F & P P RB(NP) ACDY70 & t P IFT LOWCHA=0 & 6 P SUK A2,/20 TRANSFORM CHARACTER BETWEEN /60 TO /7F & & P TO CHARACTER BETWEEN /40 TO /5F & P XIF
0x0c4934…0c4ac8 Dummy {f00=0x006f, f01=0x018e, f02=» P* A1 = CHARACTER ' P* A4 = NUMBER ' P************************ ' 2 P LC A2,DWTBC,A6 ' R P AD A2,DWTAP,A6 GET POSITION ' j P ANK A2,/FF ' $ P ADR A2,A4 ADD LENGTH OF REQUEST ' $ P LD A3,DWTPOS,A6 GET MAX-POS AND ' P ANK A3,/FF ' P S
0x0c4ac8…0c4c5c Dummy {f00=0x006f, f01=0x0190, f02=» 0 P ADK A4,1 ADJUST NUMBER OF OUTPUT CHARACTERS ( POT030 EQU * ( 8 & P LDR A3,A1 SAVE CHARACTER TO SEND ( L POT010 LDR A2,A3 ( v $ P CF A5,OUTPUT SENT CHAR (IN A2) ( P SUK A4,1 DECREMENT COUNTER ( P RB(P) OT010 ( P LD A4,10,A8 GET ACT. LENG
0x0c4c5c…0c4df0 Dummy {f00=0x006f, f01=0x0190, f02=»27 ( P XIF ) P EJECT ) P* ) $ P* CODE CHECK ERROR ) . P* ) L PADY130 EQU * ) V P LDK A1,CCERR ) j P ORS A1,8,A8 RETURN CODE ) P RB ADY100 ) P EJECT ) P* ) P* TABULATION ) P* ) PADY140 EQU * ) , P CF A15,
0x0c4df0…0c4f84 Dummy {f00=0x006f, f01=0x0190, f02=» ) P RF(E) ADY144 * 0 PADY143 ADK A2,/A FROM DECIMAL TO HEXADECIMAL * P SUK A4,1 * R P RB(NE) ADY143 * d PADY144 LC A4,DWTAP+1,A6 * z . P SUR A2,A4 SUBTRACT HEAD POSITION POINTER * P LC A4,DWTBC,A6 * , P SUR A2,A4 AND REQUESTS POSITION COU
0x0c4f84…0c5118 Dummy {f00=0x006f, f01=0x0190, f02=»ADY146 CF A5,OUTPUT * , P CF A15,POSUPD POSITION COUNTER UPDATING + P SUK A4,1 READY ? + L P RB(NE) ADY145 NO + f P ABL ADY100 + P EJECT + P* + P* ERASE ORDER /31 + P* + 2 PADY160 LD A4,10,A8 GET NUMBER OF CHAR TO ERASE +
0x0c5118…0c52ac Dummy {f00=0x006f, f01=0x0190, f02=» & P CF A5,ERA GET LENGTH TO ERASE =2 , P LDK A3,/20 , . P CF A5,FASTER FAST OUTPUT , B PADY165 LDK A2,ETB , d P CF A5,OUTPUT , ~ P ABL ADY410 END OF REQUEST , P IFT WHATDY=0 , PADY166 EQU * YES =2 , & P CF A5,ERA GET LENGTH TO ERASE =
0x0c52ac…0c5440 Dummy {f00=0x006f, f01=0x0190, f02=»ND IT , P RB ADY170 - PADY180 LD A4,10,A8 - & P CF A5,ERA GET LENGTH TO ERASE =2 - : P LDR A3,A3 OVER EDGE =2 - d P RF(NN) ADY186 NO =2 - P SUK A4,1 ADJUST LENGTH - PADY186 EQU * - P SUK A4,1 DECREMENT =2 - , P RB(N) ADY165 CURSOR I
0x0c5440…0c55d4 (0, 250) Dummy {f00=0x0070, f01=0x0190, f02=» P* . * P* ORDER /B CURSOR POSITIONING PART . P* . < PADY200 EQU * . F P* . Z P IFT WHATDY=0 . d " P LDR* A1,A6 CHANNEL PARAMETER . z P ANK A1,/10 GRAFIC DISPLAY? . P RF(NE) ADY205 YES . 2 P* IF VIDEO (6344) SET CURSOR ADDRESS DI
0x0c55d4…0c5768 Dummy {f00=0x0070, f01=0x0190, f02=»T CURSOR . P RF ADY380 / P IFT WHATDY=0 / " P* GET LINE / 8 * PADY205 LC A4,10,A8 GET REQUESTED LINE / N $ P CC A4,DWTLIN,A6 OUTSIDE SCREEN? / | P RF(NG) ADY207 NO! / 4 P LC A4,DWTLIN,A6 YES! SET CURSOR AT END OF LINE / PADY207 EQU * / $
0x0c5768…0c58fc Dummy {f00=0x0070, f01=0x018e, f02=»INE / | P LDK A2,LF LINE FEED 0 * P ADK A3,1 INCREMENT ACTUAL LINE NUMBER 0 ( PADY230 CF A5,OUTPUT SEND 0 V P LDR A4,A4 REQUESTED LINE 0 v " P RB(NZ) ADY210 NOT EQUAL ZERO 0 P LDK A4,1 0 P RF ADY300 0 PADY250 LDK A2,HOME HOME 0 & P LDK A
0x0c58fc…0c5a90 Dummy {f00=0x0070, f01=0x0190, f02=» 2 PADY300 SC A4,DWTAP,A6 UPDATE HEAD LINE COUNTER 1 ( P LC A4,11,A8 GET REQUESTED POSITION 1 : $ P CC A4,DWTPOS,A6 OUTSIDE SCREEN? 1 f P RF(NG) ADY303 NO! 1 " P LC A4,DWTPOS,A6 SET LAST LINE 1 PADY303 EQU * 1 P CWK A4,1 FIRST POSITION ? 1 P RF(
0x0c5a90…0c5c24 Dummy {f00=0x0070, f01=0x0190, f02=»Y305 RF(NL) ADY307 REQ. POS NOT ZERO 1 P LDK A4,1 2 , 0 PADY307 LC A3,DWTAP+1,A6 GET ACTUAL POSITION 2 > P CC A3,DWTPOS,A6 MAX-POS? 2 r P RF(NG) ADY310 NO! 2 P SUK A3,1 2 * PADY310 CWR A4,A3 FORWARDS OR BACKWARDS 2 P RF(E) ADY370 POSITION FOU
0x0c5c24…0c5db8 Dummy {f00=0x0070, f01=0x0190, f02=»ND 2 z P RB ADY310 3 . PADY340 SUR A3,A4 ACTUAL POS. - WANTED POS. 3 , P CWR A3,A4 COMPARE BACKSTEPS WITH CR-WAY 3 N P RF(L) ADY345 BACKSPACE WAY 3 ~ P LDK A2,CR CARRIAGE RETURN 3 & P LDK A3,1 INDICATE FIRST POSITION 3 P RB ADY330 3 " PADY345 L
0x0c5db8…0c5f4c Dummy {f00=0x0070, f01=0x0190, f02=»UPDATE HEAD POSITION POINTER 3 x P XIF 4 $ & PADY380 LDK A3,2 START BUFFER INDEX 4 0 P ABL ACDY90 4 Z P IFT WHATDY=0 4 n P* 4 & PADY400 LDK A2,/22 START CHARACTER 4 P CF A5,OUTPUT 4 P* 4 P XIF 4 P* 4 P EJECT 4 P* 4 P*
0x0c5f4c…0c60e0 Dummy {f00=0x0070, f01=0x018e, f02=»Y405 EQU * 4 & P LDR* A1,A6 GET CHANNEL PARAMETER 5 P ANK A1,/30 6344 ? 5 < P RF(NE) ADY407 NO 5 V P LDR* A1,A6 5 p P LDR A4,A1 5 P ANK A1,/40 UNDERLINE MODE ? 5 P RF(E) ADY406 NO 5 " P LDK A2,ULSTOP UNDERLINE STOP 5 P CF A5,OUTPUT 5
0x0c60e0…0c6274 (0, 251) Dummy {f00=0x00ea, f01=0x018e, f02=» PADY407 EQU * 6 $ P LDK A2,ETB END OF TEXT MESSAGE 6 P CF A5,OUTPUT SEND CHARACTER 6 @ 0 P CF A15,UPDAPP UPDATE HEAD POSITION COUNTER 6 d PADY410 LDK A2,ETX LAST DUMMY 6 P CF A5,OUTPUT SEND DUMMY 6 PADY415 EQU * 6 P SUK A7,5 ORDER 5 ? 6
0x0c6274…0c6408 Dummy {f00=0x00ea, f01=0x0190, f02=» P RF(NE) ENDIO NO *DK 7 , P LD A4,DWTAP,A6 GET CURSOR POSITION. *DK 7 " P ST A4,10,A8 PUT IN ECBCW *DK 7 P PENDIO CF A15,TENDIO END I/O 7 v $ PEXIT ABL TDISP GO TO DISPATCHER 7 P* 7 P IFT GRAFIC=1 7 P* 7 P EJECT 7 P* 7 P*
0x0c6408…0c659c Dummy {f00=0x00ea, f01=0x018e, f02=» GET CHARACTER 7 | P LDR A1,A1 BUFFER EMPTY 8 P RB(E) ADY400 8 6 P LDR A4,A2 8 L & P CF A15,GETCHR GET NEXT CHARACTER 8 ^ P LDR A1,A4 8 P ANK A4,/80 ADDRESS OR DATA 8 P RF(E) ADY530 DATA MESSAGE 8 P* 8 P* ADDRESS MESSAGE 8 P*
0x0c659c…0c6730 Dummy {f00=0x00ea, f01=0x0190, f02=» P ORR A4,A1 9 P ANK A2,/F 9 P ANK A4,/7F 9 ( P ORK A2,/20 9 < , PADY515 CF A5,OUTPUT SEND FIRST CHARACTER 9 P $ P LDR A2,A4 GET SECOND CHARACTER 9 ( P CF A5,OUTPUT SEND SECOND CHARACTER 9 P RB ADY510 9 P EJECT 9 P* 9 P* DATA
0x0c6730…0c68c4 Dummy {f00=0x00ea, f01=0x018e, f02=»A2 9 P SLL A2,5 : P ORR A1,A2 : P LDK A7,10 : . P LDK A2,0 : @ PADY540 SLL A1,1 : R P RF(NN) ADY550 : j 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 A4,
0x0c68c4…0c6a58 Dummy {f00=0x00ea, f01=0x0190, f02=» : , P* UPDAPP = SUBROUTINE TO UPDATE HEAD ; , P* POSITION POINTER WHEN END ; 8 ( P* OF REQUEST IS REACHED ; h PUPDAPP EQU * ; ( P LC A3,DWTBC,A6 GET POSITION COUNTER ; 2 P ADS A3,DWTAP,A6 UPDATE HEAD POSITION POINTER ;
0x0c6a58…0c6bec Dummy {f00=0x00ea, f01=0x0190, f02=»POSITION ; f 0 P* POINTER WHEN REQUEST RUNNING. < > P* A CHECK THAT POINTER NOT EXCEEDS 80 IS DONE < D P* < PPOSUPD EQU * < ( P LC A2,DWTBC,A6 GET POSITION POINTER < P ANK A2,/FF < 2 P AD A2,DWTAP,A6 INCLUDE HEAD POSITIO
0x0c6bec…0c6d80 Dummy {f00=0x00ea, f01=0x0190, f02=»R < j PPOSU10 RTN A15 = P EJECT = P* = . P* I H D Y = 8 P* = L P* INTERRUPT = V P* = l PIHDY EQU * = v P LD A4,DWTST,A6 BUSY? = P RB(N) EXIT NO = P SLL A4,2 ECHO MODE ? = P RF(N) IHDY10 = . P LDR A1,A1 RETURN CODE F
0x0c6d80…0c6f14 (0, 252) Dummy {f00=0x00eb, f01=0x0190, f02=» R C D Y = P* > ( P* RCDY = RECOVERY ROUTINE DISPLAY > P* > F P* > P ( P* RECOVERY IS CARRIED OUT ONLY IF > Z P* ORDER 6 IS RUNNING > P* > P* AT ENTRY: > P* > P* A6 = DWT-ADDRESS > P* A7 = ORDER > P*
0x0c6f14…0c70a8 Dummy {f00=0x00eb, f01=0x018e, f02=» CPU852=0 > " P MSR 8,A15 SAVE A1-A8 ON STACK ? P XIF ? 8 P* ? D P =3 ? N P LDKL A2,/7FFF ? P ANS A2,DWTST,A6 SET BUSY ? r P =1 ? P =1 ? P =1 ? P =1 ? P =1 ? P =1 ? P =1 ? P =1 ? P* ?
0x0c70a8…0c723c Dummy {f00=0x00eb, f01=0x0190, f02=» . P LDK A2,RETURN RETURN TO ALPHANUMERIC MODE @ P CF A5,OUTPUT @ 6 P* @ L P XIF @ V P* @ b P EJECT @ l PRCDY10 EQU * @ z P LDK A2,/00 DUMMY TO SEND @ P CF A5,OUTPUT @ $ P LDR A4,A4 LRC-ERROR IN BLOCK ? @ P RF(NE) RCDY20 @ P IFT
0x0c723c…0c73d0 Dummy {f00=0x00eb, f01=0x0190, f02=» P RF(Z) RCDY14 NO =3 A * P LDK A3,100 SET UP TRANSFER COUNTER =3 A 4 PRCDY12 LDK A2,STILL-1 SET UP CURSOR BLINKING =3 A N , P ADK A2,STEADY ADJUST TO STEADY IF SO =3 A $ P CF A5,OUTPUT SEND CURSOR INF =3 A & P SUK A3,1 DEC TRANSFER COUNTER =3 A , P
0x0c73d0…0c7564 Dummy {f00=0x00eb, f01=0x018e, f02=»TRY SEND 'COUNTRY CODE' =1 A P ORK A2,/30 =1 B " P CF A5,OUTPUT =1 B : P =3 B T P =3 B b PRCDY14 EQU * =3 B p P XIF =1 B ( P LD A3,DWTST,A6 SAVE STATUS WORD =3 B " P LDK A2,CLEHOM CLEAR AND HOME B P CF A5,OUTPUT SEND B P L
0x0c7564…0c76f8 Dummy {f00=0x00eb, f01=0x018e, f02=» B x " P LDK A1,OPERR SET RETURN CODE C PRCDY15 ABL ADY420 C . P EJECT C H P* C V ( P* LRC-ERROR IN BLOCK SENT REMOTE C ` P* C PRCDY20 EQU * C P SUK A7,5 ORDER 5 ? C P RF(NE) RCDY25 NO C ( P LDK A1,2 INDICATE THROUGHPUT ERROR C
0x0c76f8…0c788c Dummy {f00=0x00eb, f01=0x0190, f02=» C ^ P ANK A4,/FF D P RF(E) RCDY30 D . P CF A5,BACCAN SEND BACKSPACES AND RUB OUT D 2 P LDK A3,2 START BUFFER INDEX D d PRCDY30 ABL ACDY90 D P EJECT D P* D P* E C H O D Y D P* D 0 P* ECHODY = DEVICE-DEPENDENT ECHO-ROUTINE
0x0c788c…0c7a20 Dummy {f00=0x00eb, f01=0x018e, f02=» EORECH=0 D P* E P SUK A2,/80 E $ P RF(NN) ECDY20 NOT TO BE ECHOED E 0 P ADK A2,/80 E X P* E l P XIF E v P* E P SUK A3,/8 E P RF(E) ECDY40 BACKSPACE E P SUK A3,/10 E P RF(E) ECDY50 CLEAR E & PECDY10 CF A5,OUTPUT SEND C
0x0c7a20…0c7bb4 (0, 253) Dummy {f00=0x00eb, f01=0x0190, f02=» ( PECDY20 ABL ECHRTN RETURN TO KEYBOARD F P* F 0 P* BACKSPACE F : P* F P PECDY40 EQU * F Z ( P LC A4,DWTBC,A6 GET POSITION COUNTER F n P ANK A4,/FF F P RB(E) ECDY20 FIRST POSITION F $ P LDK A4,1 INDICATE ONE BACKSTEP F P CF A5,BACCAN
0x0c7bb4…0c7d48 Dummy {f00=0x00eb, f01=0x0190, f02=»ER F n P ANK A4,/FF G P RB(E) ECDY20 FIRST POSITION G P IFT WHATDY=0 G B & P LDR* A1,A6 GET CHANNEL PARAMETER G X P ANK A1,/10 GRAFIC DISPLAY G P RF(E) ECDY60 N G P CF A5,BACCAN BACK G P RB ECDY20 G P XIF G * PECDY60 LDR A3,A4 SAV
0x0c7d48…0c7edc Dummy {f00=0x00eb, f01=0x0190, f02=»OUNTER G | P ADK A4,1 UPDATE POS COUNTER H P LDK A3,/20 H 2 P CF A5,FASTER FAST OUTPUT H F P LDK A2,0 H h * P SC A2,DWTBC,A6 RESET POSITION COUNTER H z P RB ECDY20 H P EJECT H P* H P* H 0 P* BACCAN = SUBROUTINE TO POSITION CURSOR
0x0c7edc…0c8070 Dummy {f00=0x00eb, f01=0x0190, f02=» H x P* I PBACCAN EQU * I P LDR A3,A4 I & ( P LC A2,DWTBC,A6 GET POSITION COUNTER I 8 P ANK A2,/FF I d . P AD A2,DWTAP,A6 ADD HEAD POSITION COUNTER I x P ANK A2,/FF I " P CC A2,DWTPOS,A6 LAST POSITION I P RF(NP) BACA10 NO I $ P LDK A2,SP
0x0c8070…0c8204 Dummy {f00=0x00eb, f01=0x0190, f02=»E SPACE I x P CF A5,OUTPUT SEND J P LDK A2,BACKSP BACKSPACE J * PBACA20 CF A5,OUTPUT SEND J J P SUK A4,1 J j P RB(NE) BACA10 J | P NGR A3,A3 NEGATE REGISTER J , P ADS A3,DWTST,A6 UPDATE POSITION COUNTER J P RTN A5 J P EJECT J 4 P******
0x0c8204…0c8398 Dummy {f00=0x00eb, f01=0x0190, f02=»SON FOR USING * J r 4 P* 'FAST OUTPUT FACILITY' ON 6344 * K 4 P* AND 6386 * K R 4 P*********************************************** K PCHECK EQU * K P* K P* K P LD A1,4,A8 K P SUR A1,A3
0x0c8398…0c852c Dummy {f00=0x00eb, f01=0x0190, f02=» K l P LDK A4,1 RESET COUNTER L $ PNEXT ADK A4,1 INCREMENT COUNTER L ( P SUK A1,1 END OF BUFFER? L P P RF(NP) OUT YES! L p P ADK A2,1 INCREMENT POINTER L $ P CCR A7,A2 CHAR EQU TO PREVIUS? L P RB(E) NEXT YES! L POUT EQU * L 6 P CWK A4,EQ
0x0c852c…0c86c0 Dummy {f00=0x00eb, f01=0x0190, f02=»TION POINTER * L | , PFASTOK LC A2,DWTBC,A6 GET HEAD POSITION M P AD A2,DWTAP,A6 M F P ANK A2,/FF M ^ " P ADR A3,A4 UPDATE BUFFER-INDEX M r P ST A3,DWTBIN,A6 SAVE INDEX M 0 P LC A3,DWTPOS,A6 GET MAXNUMBER OF CHAR/LINE M P SUR A3,A2 AND COMPARE M
0x0c86c0…0c8854 (0, 254) Dummy {f00=0x00ec, f01=0x0190, f02=»*********** M P* EXECUTE FAST OUTPUT * N P LDR A3,A7 GET CHAR TO SEND N 4 P CF A5,FASTER N X P************** N n P* SET CURSOR * N " P LD A4,DWTST,A6 GET ACTUAL POS N P ANK A4,/FF N ( P AD A4,DWTAP,A6 INC HEAD POS POINTER N P CF A5,C
0x0c8854…0c89e8 Dummy {f00=0x00ec, f01=0x018e, f02=» SUK A3,1 N P ABL ACDY90 READ NEXT CHAR O P* O 4 . PNOFAST LDR A2,A7 RESTORE OUTPUT CHARACTER O > P ABL ACDY75 O p P EJECT O P* O P* O < P* FASTER = SUBROUTINE TO OUTPUT SPACE AT FAST OUTPUT O 4 P* AT ENTRY A4 = NUMBER
0x0c89e8…0c8b7c Dummy {f00=0x00ec, f01=0x0190, f02=» O PFAS010 EQU * P P ADK A4,/20 ADD CONSTANT P P LDK A2,FASTO FAST OUTPUT P < P CF A5,OUTPUT SEND P ^ P LDR A2,A4 NO OF CHAR P x P CF A5,OUTPUT SEND P P LDR A2,A3 P P CF A5,OUTPUT SEND P P RTN A5 P P EJECT P P* P P* P
0x0c8b7c…0c8d10 Dummy {f00=0x00ec, f01=0x0190, f02=»QU * P P ADKL A4,/1F1F CONVERT Q P LDK A2,SCADD SET CURSOR Q * P CF A5,OUTPUT SEND Q J P ECR A2,A4 POS. X < /80? Q d P LDR A2,A2 Q P RF(NN) CURR05 YES! Q P LCK A4,/7F00 Q PCURR05 EQU * Q P LDR A2,A4 Q & P CF A5,OUTPUT OUTPUT POSIT
0x0c8d10…0c8ea4 Dummy {f00=0x00ec, f01=0x0190, f02=»IFT RIGHT Q PCURR15 EQU * R P CF A5,OUTPUT OUTPUT LINE(Y) R & P RTN A5 R J P EJECT R Z P* =2 R h P* =2 R v P* =2 R 8 P* ERA - SUBROUTINE TO AVOID UNNECESSARY OUTPUT =2 R P* =2 R P* =2 R 0 P* AT ENTRY A4 = CHAR TO ERASE
0x0c8ea4…0c9038 Dummy {f00=0x00ec, f01=0x0190, f02=»2 R t P ANK A2,/FF GET MAX CHAR. =2 S 0 P LC A3,DWTAP+1,A6 CURRENT POS. ON SCREEN =2 S . P ANK A3,/FF =2 S b 2 P SUR A2,A3 NUMBER OF CHAR. TO END OF SCREEN =2 S z P ADK A2,1 ADJUST LENGTH =2 S P CWR A4,A2 OUTSIDE SCREEN =2 S P RF(L) ERAEND NO
0x0c9038…0c91cc Dummy {f00=0x00ec, f01=0x40a2, f02=» RTN A5 RETURN =2 S PABDY EQU * ABORT ROUTINE =4 T , P CF A15,UPDAPP UPDATE CURSOR POSITION =4 T > P RTN A15 RETURN TO CALLER =4 T n P END T @ T EEN =2 S z P ADK A2,1 ADJUST LENGTH =2 S P CWR A4,A2 OUTSIDE SCREEN =2 S P RF(L) ERAEND NO
0x0c91cc…0c9360 Dummy {f00=0x00ec, f01=0x2008, f02=» U PP UPDATE CURSOR POSITION =4 S P RTN A15 RETURN TO CALLER =4 T , P END T P@ T EEN =2 S 8 P ADK A2,1 ADJUST LENGTH =2 S n P CWR A4,A2 OUTSIDE SCREEN =2 S P RF(L) ERAEND NO =2 S . P LDR A4,A2 OUTSIDE SCREEN MODIFY LENGTH =2 S P LDK
0x0c9360…0c94f4 (0, 255) Dummy {f00=0x00ec, f01=0x0190, f02=» P RF(NZ) BRM150 PARITY ERROR > P LDR A8,A2 > ( P IFT MSV1=0 > : P CF A5,READP READ 2:ND STA > N P RF(NZ) BRM150 PARITY ERROR > p P CWR A2,A8 > , P RF(NE) BRM150 INVALID ADDRESS SEQUENCE > P XIF > " P CF A5,READ READ ONE CHARACTER > P
0x0c94f4…0c9688 Dummy {f00=0x00ec, f01=0x0190, f02=» SALCUZ > P RF(NZ) BRM150 NOT ENQ ? P IFT P6805=0 SALCUZ ? . $ P CF A5,READ READ LAST CHARACTER ? J P ? r " P* TRAILING PAD CAN BE CHECKED ? z P ? P CIO A1,0,LCUIN HALT INPUT ? P SST A1,LCUIN ? P XIF SALCUZ ? P IFT P6805=1 SALC
0x0c9688…0c981c Dummy {f00=0x00ec, f01=0x0190, f02=» P ST A1,CACK LOAD ACK COUNTER @ P LDR A2,A8 @ ( P SUK A3,2 @ : P RF(Z) BRM120 SELECTING @ L P CWK A8,GP @ l P ABL(E) GPOLL GENERAL POLL @ ~ P IFT MSV1=1 @ 6 P CF A5,FINTEP CHECK IF STA PRESENT (POLL ADDRESS) @ P XIF @ P IFT MSV1=0 @
0x0c981c…0c99b0 Dummy {f00=0x00ec, f01=0x018e, f02=»M INVALID POLL @ PBRM120 EQU * A & P CF A5,FINTER CHECK IF STA PRESENT A * P LDR A6,A3 LOAD DWT TO A6 A T P RF(NZ) BRM130 STA FOUND A v P IFT MSV1=0 A $ P LDKL A6,DW1500 SELECT TO DCTASK A PBRM130 EQU * A P ABL SELECT A P XIF A
0x0c99b0…0c9b44 Dummy {f00=0x00ec, f01=0x0190, f02=» A PBRM150 EQU * B P ANK A2,/7F B P SUK A2,/7F B 0 P RB(Z) BRM RESYNCHRONIZE B D & P CF A5,READ READ ANOTHER CHARACTER B d P RB BRM150 B P EJECT B P* B P* B P* EOT HAS BEEN RECEIVED B P* B P* B PBRM200 EQU * B &
0x0c9b44…0c9cd8 Dummy {f00=0x00ec, f01=0x0190, f02=» BRM220 ACK IS NOT EXPECTED B " P LD A6,FDWTUT GET WRITING DWT C $ P RF(Z) BRM210 NO ONE WRITING C J P LDK A1,2 SET RC=2 C n ( P CF A5,CWRITE COMPLETE WRITE REQUEST C PBRM210 EQU * C " P CM XACK RESET 'ACK EXPECTED' C PBRM220 EQU * C P CM XS
0x0c9cd8…0c9e6c Dummy {f00=0x00ec, f01=0x0190, f02=» EQU * C P CF A5,HPTIM D P LD A1,XSEL D " P RF(Z) BRM315 NOT SELECTED D 6 P LD A1,DCRBUF D X ( P*********************CHAINED COMMAND D n & P RB(Z) BRM150 NO BUFFER AVAILABLE D P********************* D PBRM305 EQU * D P CF A5,RDMESS READ
0x0c9e6c…0ca000 Dummy {f00=0x00ec, f01=0x0190, f02=»12 EQU * D P CF A5,TRNAK SEND NAK E P ABL BRM E . PBRM315 EQU * E > P IFT RCOM=1 E R P LD A1,XACK E f & P RF(Z) BRM316 ACK IS NOT EXPECTED E z P LD A1,DCRBUF E & P RF(Z) BRM316 NO BUFFER AVAILABLE E " P LD A6,FDWTUT GET WRITING DWT E 0
0x0ca000…0ca194 (0, 256) Opaque[0x194]
0x0ca194…0ca328 # DirEnt {nam=»DRRT01«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x07d0, f03=0x0000}
0x0ca194…0ca328 IdxSect {
0x0ca194…0ca328 f00 = 0x003e // 0xca194 @0x0
0x0ca194…0ca328 f01 = 0x002c // 0xca196 @0x2
0x0ca194…0ca328 gno = [ // 0xca198 @0x4
0x0ca194…0ca328 [0x00]: C0x003e.0x2.0
0x0ca194…0ca328 [0x01]: C0x0044.0x0.0
0x0ca194…0ca328 [0x02]: C0x005a.0x0.0
0x0ca194…0ca328 [0x03]: C0x005c.0x0.0
0x0ca194…0ca328 [0x04]: C0x005c.0x1.0
0x0ca194…0ca328 [0x05]: C0x005c.0x2.0
0x0ca194…0ca328 [0x06]: C0x005c.0x3.0
0x0ca194…0ca328 [0x07]: C0x0071.0x0.0
0x0ca194…0ca328 [0x08]: C0x0071.0x1.0
0x0ca194…0ca328 [0x09]: C0x0071.0x2.0
0x0ca194…0ca328 [0x0a]: C0x0073.0x1.0
0x0ca194…0ca328 [0x0b]: C0x0073.0x2.0
0x0ca194…0ca328 [0x0c]: C0x0074.0x2.0
0x0ca194…0ca328 [0x0d]: C0x0074.0x3.0
0x0ca194…0ca328 [0x0e]: C0x0075.0x0.0
0x0ca194…0ca328 [0x0f]: C0x0075.0x1.0
0x0ca194…0ca328 [0x10]: C0x0075.0x2.0
0x0ca194…0ca328 [0x11]: C0x0075.0x3.0
0x0ca194…0ca328 [0x12]: C0x0076.0x0.0
0x0ca194…0ca328 [0x13]: C0x0076.0x1.0
0x0ca194…0ca328 [0x14]: C0x0076.0x2.0
0x0ca194…0ca328 [0x15]: C0x0076.0x3.0
0x0ca194…0ca328 ]
0x0ca194…0ca328 }
0x0ca328…0ca4bc Dummy {f00=0x003e, f01=0x0190, f02=» 2 P IDENT DRRT01 9.2DK 1 79-11-16 870105040920 P : P =DK1, BLOCK - LOGGBUFFER B P 80-03-11 f ( P =9,TIMER RESET,TEST ORDER,INH-A15 z P REL 9.1 79-06-26 * P =8, INTERRUPT ADDRESS DISPLACEMENT P REL 9.1 79-05-23
0x0ca4bc…0ca650 Dummy {f00=0x003e, f01=0x0190, f02=»6,C.U. PRESENT CHECK ERROR P REL 8.2 79-03-20 " P =5,HANG UP PREVENT > P REL 8.2 79-03-19 P =4,TIME OUT ROUTINE ERROR x P REL 8.2 79-03-18 P =3,DISPL. RECOVERY P REL 8.2 79-03-17 P =2,LOOP TEST ERROR
0x0ca650…0ca7e4 Dummy {f00=0x003e, f01=0x0190, f02=»********************** v P* $ P* PHILIPS TERMINAL SYSTEM PTS ( P* P . P* DRRT01 = DRIVER CHANNEL UNIT FOR LOCAL Z & P* AND REMOTE TERMINALS P* P* P* P* P* 4 P********************************
0x0ca7e4…0ca978 Dummy {f00=0x003e, f01=0x0190, f02=»PUT WORD IS READ TO REGISTER A2. IF DATA z D P* INPUT OR DATA REQUEST A BRANCH IS MADE TO INTERRUPT HANDLER 0 P* FOR ACTUAL DEVICE. x D P* IF CONTROL CHARACTER, THIS IS EXAMINED AND NECESSARY ACTIONS P* ARE CARRIED OUT. P* P*
0x0ca978…0cab0c Dummy {f00=0x003e, f01=0x0190, f02=» < P* - CHLTON EXECUTE CIO-START ON EVERY CHLT IN SYSTEM P* D 4 P* - GETCHR GET ONE CHARACTER FROM ECB-BUFFER N P* 2 P* CONTROL WORK TABLES FOR THE CHANNELS ARE P* INCLUDED IN THE DRIVER. P EJECT P* P*
0x0cab0c…0caca0 Dummy {f00=0x003e, f01=0x0190, f02=»-A5 AND RETURN TO DISPATCHER f P* $ 6 P* - STREG SAVE A3-A5 AND RETURN TO DISPATCHER . P* h D P* - LDREG IF INTERRUPT IS ALLOWED, RESTORE A3-A5 AND RETURN r " P* TO USER VIA A5 P* : P* - LDREGE RESTORE A3-A5 A
0x0caca0…0cae34 (0, 257) Dummy {f00=0x0044, f01=0x0190, f02=»N CODE P* A2 = INPUT WORD P* A3 = LINE NUMBER * 2 * P* A4 = DEVICE NUMBER * 2 J P* A5 = CWT-ADDRESS l P* A6 = DWT-ADDRESS P* A7 = ORDER P* A8 = ECB-ADDRESS P* P* P* P EJECT P*
0x0cae34…0cafc8 Dummy {f00=0x0044, f01=0x0190, f02=»L UNIT h : P ENTRY CHLT2 INTERRUPT FROM SECOND CHANNEL UNIT LOCAL 2 P ENTRY CHLT3 INTERRUPT FROM THIRD CHANEL LOCAL L 4 P ENTRY CHLT4 INTERRUPT FROM FOURtH CHANEL LOCAL : P ENTRY CHRT1 INTERRUPT FROM FIRST CHANNEL UNIT REMOTE : P ENTRY CHRT2 INT
0x0cafc8…0cb15c Dummy {f00=0x0044, f01=0x0190, f02=»HANEL REMOTE l $ P ENTRY OUTLIN SEND ONE CHARACTER P ENTRY CHLTON START OF CHLT < 0 P ENTRY OUTPUT SAVE REGISTERS, SEND CHARACTER ` P ENTRY CHTAB CHANNEL TABLE P AND GO TO DISPATCHER , P ENTRY LDREG RELOAD REGISTERS AND RETURN , P E
0x0cb15c…0cb2f0 Dummy {f00=0x0044, f01=0x018e, f02=»RY GETCHR GET ONE CHARACTER FROM ECB-BUFFER P 4 @ P ENTRY DWREMU DWT-DUMMY FOR LOOP-TESTING OF REMOTE CHANNELS < 0 P ENTRY LOCHAN NUMBER OF LOCAL CHANNEL UNITS 0 P ENTRY RECHAN NUMBER OF REMOTE CHANNEL UNITS & P ENTRY REMFC REMOTE TEST FILE CO
0x0cb2f0…0cb484 Dummy {f00=0x0044, f01=0x0190, f02=» P* * P************************************** * P* EXTERNAL TOSS MODULE ENTRIES * < * P************************************** j P* P* & P EXTRN SAVE8 SAVE REGISTERS A1-A8 P EXTRN TDISP DISPATCHER P EXTRN RETUR4 REST
0x0cb484…0cb618 Dummy {f00=0x0044, f01=0x0190, f02=»UPT TABLE FOR LOCAL TERMINALS | , P EXTRN INTLT2 INTERRUPT TABLE FOR CHLT2 & & P EXTRN INTLT3 INTERRUPT FROM CHLT3 V & P EXTRN INTLT4 INTERRUPT FROM CHLT4 6 P EXTRN INTRT1 INTERRUPT TABLE FOR REMOTE TERMINALS 2 P EXTRN INTRT2 INTERRUPT TABLE REMOTE
0x0cb618…0cb7ac Dummy {f00=0x0044, f01=0x0190, f02=»XTRN DISIOE I/O REQUEST ERROR & P EXTRN DISEND END I/O AND DISPATCH & * P EXTRN INTSAV SAVE AREA LAST INTERRUPT P P EXTRN TENDIO ~ . P EXTRN IHRET8 RESTORE A1-A8 WITHOUT ENABLE P* P* P* P* P***********************
0x0cb7ac…0cb940 Dummy {f00=0x0044, f01=0x0190, f02=»ACTER r P EXTRN DWTECB ECB-ADDRESS * P EXTRN DWTADR ADDRESS TO ADDRESS-BLOCK 0 P EXTRN DWTST STATUS ^ P EXTRN DWTWAT z P EXTRN DWTOTQ OUTPUT QUEUE P EXTRN DWTA3 SAVE AREA A3 P EXTRN DWTA4 SAVE AREA A4 P EXTRN DWTA5 SAVE
0x0cb940…0cbad4 (0, 258) Dummy {f00=0x005a, f01=0x0190, f02=» INTADR INTERRUPT ADDRESS DISPLACEMENT 0 P EXTRN RECADR RECOVERY ADDRESS DISPLACEMENT . , P EXTRN ECHADR ECHO ADDRESS DISPLACEMENT b P* P EJECT P* P* P******************** P* CONSTANTS * P******************
0x0cbad4…0cbc68 Dummy {f00=0x005a, f01=0x0190, f02=»SPECIAL DUMMY TO GET DATA REQUEST ( P FIRST WHEN PRINTERBUFFER IS EMPTY * 0 PDRQTIM EQU 30 TIME TO NEXT ACK FOR PRINTERS V P EJECT P* , P*************************************** , P* CONDITIONAL ASSEMBLY * , P******
0x0cbc68…0cbdfc Dummy {f00=0x005a, f01=0x0190, f02=» INCLUDED TO THE DRIVER BY SETTING X:A=1 P* 2 PX:A EQU 1 < PLOGING EQU 0 N P* b P* l > P* BY SETTING X:B TO 1,2,3 OR 4 THIS DRIVER HANDLES ONE v & P* OR UP TO FOUR LOCAL CHANNELS. P* PX:B EQU 1 PLOCHAN EQU
0x0cbdfc…0cbf90 Dummy {f00=0x005a, f01=0x0190, f02=»IN b 8 P* THE DRIVER. THIS FUNCTION CAN BE EXCLUDED FROM $ P* DRIVER BY SETTING X:C = 0. F P* n PX:C EQU 1 x PACKMUL EQU 0 P* P* > P* BY SETTING X:D TO 1,2,3 OR 4 THIS DRIVER HANDLES ONE , P* OR UP TO FOUR R
0x0cbf90…0cc124 Dummy {f00=0x005a, f01=0x0190, f02=»LE CODE " r P* STANDARD IS /15 P* . PX:E EQU /15 8 PREMFC EQU /15 L P* b * P* ECHO FUNCTION CAN BE EXCLUDED BY l P* SETTING X:F = 0 P* PX:F EQU 1 PCECHO EQU 01 P* P* 6 P* A PROGRAM
0x0cc124…0cc2b8 Dummy {f00=0x005a, f01=0x018e, f02=» DB P* 8 P* BY SETTING BLOCK=1 BLOCKSENDING IS PERMITTED < P* BY SETTING BLOCK=0 BLOCKSENDING IS NOT PERMITTED T P* PBLOCK EQU 1 DK1 P* P DE P EJECT : P********************************************
0x0cc2b8…0cc44c Dummy {f00=0x005a, f01=0x0190, f02=» X P* 4 P* CONTROL WORK TABLE FOR LOCAL CHANNEL NO. 1 P* J PDWA1 EQU /03 DEVICEADDRESS T P* v PCWTLT1 EQU * TABLE ENTRY PCWTLDW EQU *-CWTLT1 P DATA 0 LAST OUTPUT DWT PCWTLOW EQU *-CWTLT1 P DATA 0 LAST OUT
0x0cc44c…0cc5e0 Dummy {f00=0x005a, f01=0x0190, f02=»NR PCWTOTR EQU *-CWTLT1 P OTR A2,0,DWA1 OTR & PCWTCIS EQU *-CWTLT1 @ P CIO A2,1,DWA1 CIO-START PCWTRTC EQU *-CWTLT1 | " P DATA 0 RETRANSMISSION COUNTER PCWTEQ EQU *-CWTLT1 P DATA 0 QUEUE P DATA 0 QUEUE 2 PCW
0x0cc5e0…0cc774 (0, 259) Dummy {f00=0x005c, f01=0x0190, f02=» , P DATA 0 UNDEFINED-INTERRUPT-ACKUMULATOR PACKTIM EQU *-CWTLT1 4 ( P DATA 0 PRINTER TIMEOUT ACKUMULATOR P P* | P XIF P* P EJECT P* P* : P***************************************************** : P* C W T L
0x0cc774…0cc908 Dummy {f00=0x005c, f01=0x018e, f02=»ORK TABLE FOR LOCAL CHANNEL NO. 2 P* * PCWTLT2 EQU * 4 P* H P IFT LOCHAN=2 R P* h P* r P* | PDWA2 EQU /13 DEVICE ADDRESS P* P DATA 0 LAST OUTPUT DWT P DATA 0 LAST OUTPUT WORD P DATA INTLT2 INTERRU
0x0cc908…0cca9c Dummy {f00=0x005c, f01=0x0190, f02=» P DATA 0 QUEUE P DATA 0 SECOND QUEUE P* 6 P IFT ACKMUL=1 @ P* V P DATA 0 NAK-ACKUMULATOR ` $ P DATA 0 RETR. FAULT-ACKUMULATOR , P DATA 0 UNDEFINED- INTERRUPT-ACKUMULATOR ( P DATA 0 PRINTER TIMEOUT ACKUMULATOR P*
0x0cca9c…0ccc30 Dummy {f00=0x005c, f01=0x0190, f02=»ST OUTPUT DWT P DATA 0 LAST OUTPUT WORD P DATA INTLT2 INTERRUPT TABLE 6 P INR A2,0,DWA2 INR Z P OTR A2,0,DWA2 OTR t P CIO A2,1,DWA2 CIO-START " P DATA 0 RETRANSMISSION COUNTER P DATA 0 QUEUE P DATA 0 SECOND QUEUE P*
0x0ccc30…0ccdc4 Dummy {f00=0x005c, f01=0x0190, f02=»RUPT-ACKUMULATOR x ( P DATA 0 PRINTER TIMEOUT ACKUMULATOR P* D P XIF N P* Z P IFT LOCHAN=4 d P* z P* P* PDWA2 EQU /13 DEVICE ADDRESS P* P DATA 0 LAST OUTPUT DWT P DATA 0 LAST OUTPUT WORD P D
0x0ccdc4…0ccf58 Dummy {f00=0x005c, f01=0x0190, f02=»SION COUNTER ~ P DATA 0 QUEUE P DATA 0 SECOND QUEUE * P* F P IFT ACKMUL=1 P P* f P DATA 0 NAK-ACKUMULATOR p $ P DATA 0 RETR. FAULT-ACKUMULATOR , P DATA 0 UNDEFINED- INTERRUPT-ACKUMULATOR ( P DATA 0 PRINTER TIMEOUT ACKUMULA
0x0ccf58…0cd0ec Dummy {f00=0x005c, f01=0x0190, f02=» : P* C W T L T 3 * : P***************************************************** B P* 4 P* CONTROL WORK TABLE FOR LOCAL CHANNEL NO. 3 P* PCWTLT3 EQU * P* P IFT LOCHAN=3 P*
0x0cd0ec…0cd280 Dummy {f00=0x005c, f01=0x0190, f02=»A INTLT3 INTERRUPT TABLE P INR A2,0,DWA3 INR P OTR A2,0,DWA3 OTR : P CIO A2,1,DWA3 CIO-START T " P DATA 0 RETRANSMISSION COUNTER t P DATA 0 QUEUE P DATA 0 SECOND QUEUE P* P IFT ACKMUL=1 P* P DATA 0 NAK-ACKUMU
0x0cd280…0cd414 (0, 260) Dummy {f00=0x005c, f01=0x0190, f02=»R n P* P XIF P* P IFT LOCHAN=4 * P* @ P* J P* T PDWA3 EQU /23 DEVICE ADDRESS ^ P* P DATA 0 LAST OUTPUT DWT P DATA 0 LAST OUTPUT WORD P DATA INTLT3 INTERRUPT TABLE P INR A2,0,DWA3 INR
0x0cd414…0cd5a8 Dummy {f00=0x005c, f01=0x0190, f02=»UEUE P* P IFT ACKMUL=1 P* , P DATA 0 NAK-ACKUMULATOR 6 $ P DATA 0 RETR. FAULT-ACKUMULATOR V , P DATA 0 UNDEFINED- INTERRUPT-ACKUMULATOR ~ ( P DATA 0 PRINTER TIMEOUT ACKUMULATOR P* P XIF P* P EJECT P
0x0cd5a8…0cd73c Dummy {f00=0x005c, f01=0x0190, f02=» Z : P***************************************************** P* F 4 P* CONTROL WORK TABLE FOR LOCAL CHANNEL NO. 4 P P* PCWTLT4 EQU * P* P IFT LOCHAN=4 P* P* P* PDWA4 EQU /33 P* P DATA
0x0cd73c…0cd8d0 Dummy {f00=0x005c, f01=0x0190, f02=»TR P CIO A2,1,DWA4 CIO-START ! " P DATA 0 RETRANSMISSION COUNTER ! * P DATA 0 QUEUE ! P P DATA 0 SECOND QUEUE ! f P* ! P IFT ACKMUL=1 ! P* ! P DATA 0 NAK-ACKUMULATOR ! $ P DATA 0 RETR. FAULT-ACKUMULATOR ! , P DATA 0 UNDEFINED- I
0x0cd8d0…0cda64 Dummy {f00=0x005c, f01=0x0190, f02=»************* ! ~ $ P* C W T R T 1 * " $ P******************************* " > 4 P* CONTROL WORK TABLE FOR REMOTE CHANNEL NO. 1 " f P* CONNECTED TO FIRST CHRT " P* " PDWA5 EQU /1 DEVICE ADDRESS " PCWTRT1 EQU * " P DATA
0x0cda64…0cdbf8 Dummy {f00=0x005c, f01=0x0190, f02=»TR " P CIO A2,1,DWA5 CIO-START # " P DATA 0 RETRANSMISSION COUNTER # * P DATA 0 QUEUE TERMINAL 1 # P P DATA 0 QUEUE TERMINAL 2 # p P* # P IFT ACKMUL=1 # P* # P DATA 0 NAK-ACKUMULATOR # $ P DATA 0 BLOCK ERROR ACKUMULATOR # , P DATA
0x0cdbf8…0cdd8c Dummy {f00=0x005c, f01=0x0190, f02=» # ~ P DATA 0 TIMER POINTER $ PCWSYNC EQU *-CWTRT1 $ & P DATA /7055 SYNC CHARACTER $ B PLRCDWT EQU *-CWTRT1 $ d 0 P DATA 0 DWT OF GOING LRC-PROCESS TERMINAL 1 $ 0 P DATA 0 DWT OF GOING LRC-PROCESS TERMINAL 2 $ PLRCACK EQU *-CWTRT1 $ & P DAT
0x0cdd8c…0cdf20 Dummy {f00=0x005c, f01=0x0190, f02=»(LOOP-TESTS) $ t 0 PCWTBLK EQU *-CWTRT1 BLOCK SENDING INDICATOR % ( P DATA 0 BIT 0: BLOCKSENDING RUNNING % H $ P BIT 15: BLOCKSENDING ALLOWED % t P EJECT % $ P******************************** % $ P* C W T R T 2 * % $ P**************
0x0cdf20…0ce0b4 (0, 261) Dummy {f00=0x005c, f01=0x0190, f02=»TRT2 EQU * % P DATA 0 LAST OUTPUT DWT & P DATA 0 LAST OUTPUT WORD & 2 P & R P DATA INTRT1 INTERRUPT TABLE & Z P INR A2,0,DWA5 INR & ~ P OTR A2,1,DWA5 OTR & P CIO A2,1,DWA5 CIO-START & " P DATA 0 RETRANSMISSION COUNTER & P DATA 0 QUEUE TE
0x0ce0b4…0ce248 Dummy {f00=0x005c, f01=0x018e, f02=»ERROR ACKUMULATOR & , P DATA 0 UNDEFINED-INTERRUPT-ACKUMULATOR ' ( P DATA 0 PRINTER TIMEOUT ACKUMULATOR ' J P* ' v P XIF ' P* ' P DATA 0 TIMER POINTER ' P DATA /7255 SYNC-CHARACTER ' 0 P DATA 0 DWT OF GOING LRC-PROCESS TERMINAL 1 ' 0
0x0ce248…0ce3dc Dummy {f00=0x005c, f01=0x0190, f02=» , P DATA 0 CHANNEL STATUS WORD (LOOP-TESTS) ( $ P DATA 0 BLOCK SENDING INDICATOR ( 4 P EJECT ( $ P******************************** ( j $ P* C W T R T 3 * ( $ P******************************** ( P* ( : P* CHANNEL UNIT WORK TABLE
0x0ce3dc…0ce570 Dummy {f00=0x005c, f01=0x0190, f02=» ( PDWA6 EQU /11 DEVICE ADDRESS ) P* ) , P DATA 0 LAST OUTPUT DWT ) 6 P DATA 0 LAST OUTPUT WORD ) V P DATA INTRT2 INTERRUPT TABLE ) v P INR A2,0,DWA6 INR ) P OTR A2,0,DWA6 OTR ) P CIO A2,1,DWA6 CIO-START ) " P DATA 0 RETRANSMISSION COU
0x0ce570…0ce704 Dummy {f00=0x005c, f01=0x0190, f02=» $ P DATA 0 BLOCK ERROR ACKUMULATOR * , P DATA 0 UNDEFINED-INTERRUPT-ACKUMULATOR * , ( P DATA 0 PRINTER TIMEOUT ACKUMULATOR * P* * P XIF * P IFT RECHAN=3 * PDWA6 EQU /11 DEVICE ADDRESS * P* * P DATA 0 LAST OUTPUT DWT * P DATA
0x0ce704…0ce898 Dummy {f00=0x005c, f01=0x0190, f02=»RT * z " P DATA 0 RETRANSMISSION COUNTER + P DATA 0 QUEUE TERMINAL 1 + 0 P DATA 0 QUEUE TERMINAL 2 + P P* + p P IFT ACKMUL=1 + z P DATA 0 NAK-ACKUMULATOR + $ P DATA 0 BLOCK ERROR ACKUMULATOR + , P DATA 0 UNDEFINED-INTERRUPT-ACKUMULATOR + ( P
0x0ce898…0cea2c Dummy {f00=0x005c, f01=0x0190, f02=»ATA 0 LAST OUTPUT DWT + P DATA 0 LAST OUTPUT WORD , P DATA INTRT2 INTERRUPT TABLE , > P INR A2,0,DWA6 INR , b P OTR A2,0,DWA6 OTR , | P CIO A2,1,DWA6 CIO-START , " P DATA 0 RETRANSMISSION COUNTER , P DATA 0 QUEUE TERMINAL 1 , P DATA 0 QUEU
0x0cea2c…0cebc0 Dummy {f00=0x005c, f01=0x0190, f02=»FINED-INTERRUPT-ACKUMULATOR , ( P DATA 0 PRINTER TIMEOUT ACKUMULATOR - $ P* - P P XIF - Z P IFT RECHAN=2 - f P DATA 0 TIMER POINTER - | P DATA /7055 SYNC-CHARACTER - 0 P DATA 0 DWT OF GOING LRC-PROCESS TERMINAL 1 - 0 P DATA 0 DWT OF GOING LRC
0x0cebc0…0ced54 (0, 262) Dummy {f00=0x005c, f01=0x0190, f02=»ORD (LOOP-TESTS) - x $ P DATA 0 BLOCK SENDING INDICATOR . P XIF . @ P IFT RECHAN=3 . L P DATA 0 TIMER POINTER . b P DATA /7055 SYNC-CHARACTER . 0 P DATA 0 DWT OF GOING LRC-PROCESS TERMINAL 1 . 0 P DATA 0 DWT OF GOING LRC-PROCESS TERMINAL 2 . &
0x0ced54…0ceee8 Dummy {f00=0x005c, f01=0x0190, f02=»ATA 0 BLOCK SENDING INDICATOR . P XIF / & P IFT RECHAN=4 / 2 P DATA 0 TIMER POINTER / H P DATA /7055 SYNC-CHARACTER / f 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
0x0ceee8…0cf07c Dummy {f00=0x005c, f01=0x0190, f02=»TOR / t P XIF 0 P EJECT 0 $ P******************************** 0 & $ P* C W T R T 4 * 0 N $ P******************************** 0 v P* 0 : P* CHANNEL UNIT WORK TABLE FOR REMOTE CHANNEL NO. 2 0 " P* CONNECTED TO SECOND CHRT 0
0x0cf07c…0cf210 Dummy {f00=0x005c, f01=0x0190, f02=»INTRT2 INTERRUPT TABLE 0 P INR A2,0,DWA6 INR 1 P OTR A2,1,DWA6 OTR 1 8 P CIO A2,1,DWA6 CIO-START 1 R " P DATA 0 RETRANSMISSION COUNTER 1 r P DATA 0 QUEUE TERMINAL 1 1 P DATA 0 QUEUE TERMINAL 2 1 P* 1 P IFT ACKMUL=1 1 P DATA 0 NAK-ACKU
0x0cf210…0cf3a4 Dummy {f00=0x005c, f01=0x0190, f02=»TOR 1 p P XIF 2 P IFT RECHAN=3 2 P DATA 0 LAST OUTPUT DWT 2 . P DATA 0 LAST OUTPUT WORD 2 N P DATA INTRT2 INTERRUPT TABLE 2 n P INR A2,0,DWA6 INR 2 P OTR A2,1,DWA6 OTR 2 P CIO A2,1,DWA6 CIO-START 2 " P DATA 0 RETRANSMISSION COUNTER 2
0x0cf3a4…0cf538 Dummy {f00=0x005c, f01=0x0190, f02=»A 0 BLOCK ERROR ACKUMULATOR 2 , P DATA 0 UNDEFINED-INTERRUPT-ACKUMULATOR 3 $ ( P DATA 0 PRINTER TIMEOUT ACKUMULATOR 3 T P XIF 3 P IFT RECHAN=4 3 P DATA 0 LAST OUTPUT DWT 3 P DATA 0 LAST OUTPUT WORD 3 P DATA INTRT2 INTERRUPT TABLE 3 P I
0x0cf538…0cf6cc Dummy {f00=0x005c, f01=0x0190, f02=»RMINAL 1 3 P DATA 0 QUEUE TERMINAL 2 4 P* 4 0 P IFT ACKMUL=1 4 : P DATA 0 NAK-ACKUMULATOR 4 P $ P DATA 0 BLOCK ERROR ACKUMULATOR 4 p , P DATA 0 UNDEFINED-INTERRUPT-ACKUMULATOR 4 ( P DATA 0 PRINTER TIMEOUT ACKUMULATOR 4 P XIF 4 P IFT REC
0x0cf6cc…0cf860 Dummy {f00=0x005c, f01=0x0190, f02=» 0 P DATA 0 DWT OF GOING LRC-PROCESS TERMINAL 2 5 & P DATA 0 LRC-ACKUMULATOR TERMINAL 1 5 8 & P DATA 0 LRC-ACKUMULATOR TERMINAL 2 5 b , P DATA 0 CHANNEL STATUS WORD (LOOP-TESTS) 5 $ P DATA 0 BLOCK SENDING INDICATOR 5 P* 5 P XIF 5 P* 5 P IFT
0x0cf860…0cf9f4 (0, 263) Dummy {f00=0x0071, f01=0x0190, f02=»ATA 0 DWT OF GOING LRC-PROCESS TERMINAL 2 5 & P DATA 0 LRC-ACKUMULATOR TERMINAL 1 6 2 & P DATA 0 LRC-ACKUMULATOR TERMINAL 2 6 , P DATA 0 CHANNEL STATUS WORD (LOOP-TESTS) 6 $ P DATA 0 BLOCK SENDING INDICATOR 6 P* 6 P XIF 6 P* 6 P IFT RECHA
0x0cf9f4…0cfb88 Dummy {f00=0x0071, f01=0x0190, f02=»DWT OF GOING LRC-PROCESS TERMINAL 2 6 & P DATA 0 LRC-ACKUMULATOR TERMINAL 1 7 , & P DATA 0 LRC-ACKUMULATOR TERMINAL 2 7 V , P DATA 0 CHANNEL STATUS WORD (LOOP-TESTS) 7 $ P DATA 0 BLOCK SENDING INDICATOR 7 P* 7 P XIF 7 P* 7 P EJECT 7 $ P**
0x0cfb88…0cfd1c Dummy {f00=0x0071, f01=0x0190, f02=»NNEL UNIT WORK TABLE FOR REMOTE CHANNEL NO. 1 7 P* CONNECTED TO THIRD CHRT 8 6 P 8 Z P* 8 b PCWTRT5 EQU * 8 l P* 8 P IFT RECHAN=3 8 P* 8 PDWA7 EQU /21 DEVICE ADDRESS 8 P* 8 P DATA 0 LAST OUTPUT DWT 8 P DATA 0 LAST OUT
0x0cfd1c…0cfeb0 Dummy {f00=0x0071, f01=0x0190, f02=» DATA 0 RETRANSMISSION COUNTER 8 P DATA 0 QUEUE TERMINAL 1 9 & P DATA 0 QUEUE TERMINAL 2 9 F P* 9 f P IFT ACKMUL=1 9 p P DATA 0 NAK-ACKUMULATOR 9 $ P DATA 0 BLOCK ERROR ACKUMULATOR 9 , P DATA 0 UNDEFINED-INTERRUPT-ACKUMULATOR 9 ( P DATA 0 PR
0x0cfeb0…0d0044 Dummy {f00=0x0071, f01=0x0190, f02=»ATA 0 LAST OUTPUT DWT 9 P DATA 0 LAST OUTPUT WORD : P DATA INTRT3 INTERRUPT TABLE : > P INR A2,0,DWA7 INR : b P OTR A2,0,DWA7 OTR : | P CIO A2,1,DWA7 CIO-START : " P DATA 0 RETRANSMISSION COUNTER : P DATA 0 QUEUE TERMINAL 1 : P DATA 0 QUEU
0x0d0044…0d01d8 Dummy {f00=0x0071, f01=0x0190, f02=»FINED-INTERRUPT-ACKUMULATOR : ( P DATA 0 PRINTER TIMEOUT ACKUMULATOR ; $ P* ; P P XIF ; Z P IFT RECHAN=3 ; f P DATA 0 TIMER POINTER ; | P DATA /7055 SYNC-CHARACTER ; 0 P DATA 0 DWT OF GOING LRC-PROCESS TERMINAL 1 ; 0 P DATA 0 DWT OF GOING LRC
0x0d01d8…0d036c Dummy {f00=0x0071, f01=0x0190, f02=»ORD (LOOP-TESTS) ; x $ P DATA 0 BLOCK SENDING INDICATOR < P XIF < @ P IFT RECHAN=4 < L P DATA 0 TIMER POINTER < b P DATA /7055 SYNC-CHARACTER < 0 P DATA 0 DWT OF GOING LRC-PROCESS TERMINAL 1 < 0 P DATA 0 DWT OF GOING LRC-PROCESS TERMINAL 2 < &
0x0d036c…0d0500 Dummy {f00=0x0071, f01=0x0190, f02=»ATA 0 BLOCK SENDING INDICATOR < P XIF = & P EJECT = 2 $ P******************************** = @ $ P* C W T R T 6 * = h $ P******************************** = P* = : P* CHANNEL UNIT WORK TABLE FOR REMOTE CHANNEL NO. 2 = P* CON
0x0d0500…0d0694 (0, 264) Dummy {f00=0x0071, f01=0x0190, f02=»UTPUT WORD = P DATA INTRT3 INTERRUPT TABLE > P INR A2,0,DWA7 INR > 6 P OTR A2,1,DWA7 OTR > P P CIO A2,1,DWA7 CIO-START > j " P DATA 0 RETRANSMISSION COUNTER > P DATA 0 QUEUE TERMINAL 1 > P DATA 0 QUEUE TERMINAL 2 > P* > P IFT ACKMUL=1
0x0d0694…0d0828 Dummy {f00=0x0071, f01=0x0190, f02=»PRINTER TIMEOUT ACKUMULATOR > P XIF ? $ P IFT RECHAN=4 ? 0 P DATA 0 LAST OUTPUT DWT ? F P DATA 0 LAST OUTPUT WORD ? f P DATA INTRT3 INTERRUPT TABLE ? P INR A2,0,DWA7 INR ? P OTR A2,1,DWA7 OTR ? P CIO A2,1,DWA7 CIO-START ? " P DATA 0 RE
0x0d0828…0d09bc Dummy {f00=0x0071, f01=0x018e, f02=»ACKUMULATOR ? $ P DATA 0 BLOCK ERROR ACKUMULATOR @ , P DATA 0 UNDEFINED-INTERRUPT-ACKUMULATOR @ < ( P DATA 0 PRINTER TIMEOUT ACKUMULATOR @ l P XIF @ P* @ P IFT RECHAN=3 @ P DATA 0 TIMER POINTER @ P DATA /7255 SYNC-CHARACTER @ 0 P DAT
0x0d09bc…0d0b50 Dummy {f00=0x0071, f01=0x0190, f02=» @ l & P DATA 0 LRC-ACKUMULATOR TERMINAL 2 A , P DATA 0 CHANNEL STATUS WORD (LOOP-TESTS) A 2 $ P DATA 0 BLOCK SENDING INDICATOR A b P* A P XIF A P* A P IFT RECHAN=4 A P* A P DATA 0 TIMER POINTER A P DATA /7255 SYNC-CHARACTER A 0
0x0d0b50…0d0ce4 Dummy {f00=0x0071, f01=0x0190, f02=»AL 1 A r & P DATA 0 LRC-ACKUMULATOR TERMINAL 2 B , P DATA 0 CHANNEL STATUS WORD (LOOP-TESTS) B 6 $ P DATA 0 BLOCK SENDING INDICATOR B f P* B P XIF B P* B P EJECT B $ P******************************** B $ P* C W T R T 7 * B
0x0d0ce4…0d0e78 Dummy {f00=0x0071, f01=0x0190, f02=»URTH CHRT B | P* C PCWTRT7 EQU * C P* C 0 P IFT RECHAN=4 C : P* C P PDWA8 EQU /31 DEVICE ADDRESS C Z P* C ~ P DATA 0 LAST OUTPUT DWT C P DATA 0 LAST OUTPUT WORD C P DATA INTRT4 INTERRUPT TABLE C P INR A2,0,DWA8 INR C P O
0x0d0e78…0d100c Dummy {f00=0x0071, f01=0x0190, f02=»EUE TERMINAL 2 C P* D P IFT ACKMUL=1 D P DATA 0 NAK-ACKUMULATOR D 6 $ P DATA 0 BLOCK ERROR ACKUMULATOR D V , P DATA 0 UNDEFINED-INTERRUPT-ACKUMULATOR D ~ ( P DATA 0 PRINTER TIMEOUT ACKUMULATOR D P* D P XIF D P IFT RECHAN=4 D P D
0x0d100c…0d11a0 Dummy {f00=0x0071, f01=0x0190, f02=»RC-PROCESS TERMINAL 2 D z & P DATA 0 LRC-ACKUMULATOR TERMINAL 1 E & P DATA 0 LRC-ACKUMULATOR TERMINAL 2 E H , P DATA 0 CHANNEL STATUS WORD (LOOP-TESTS) E r $ P DATA 0 BLOCK SENDING INDICATOR E P XIF E P EJECT E $ P******************************** E
0x0d11a0…0d1334 (0, 265) Dummy {f00=0x0071, f01=0x018e, f02=»ANNEL NO. 2 E f " P* CONNECTED TO FOURTH CHRT F P* F : PCWTRT8 EQU * F D P* F X P IFT RECHAN=4 F b P DATA 0 LAST OUTPUT DWT F x P DATA 0 LAST OUTPUT WORD F P DATA INTRT4 INTERRUPT TABLE F P INR A2,0,DWA8 INR F P OTR A2,1,DWA8 OTR
0x0d1334…0d14c8 Dummy {f00=0x0071, f01=0x0190, f02=» F v P* G P IFT ACKMUL=1 G P DATA 0 NAK-ACKUMULATOR G ( $ P DATA 0 BLOCK ERROR ACKUMULATOR G H , P DATA 0 UNDEFINED-INTERRUPT-ACKUMULATOR G p ( P DATA 0 PRINTER TIMEOUT ACKUMULATOR G P XIF G P IFT RECHAN=4 G P* G P DATA 0 TIMER PO
0x0d14c8…0d165c Dummy {f00=0x0071, f01=0x0190, f02=»MINAL 2 G l & P DATA 0 LRC-ACKUMULATOR TERMINAL 1 H & P DATA 0 LRC-ACKUMULATOR TERMINAL 2 H : , P DATA 0 CHANNEL STATUS WORD (LOOP-TESTS) H d $ P DATA 0 BLOCK SENDING INDICATOR H P* H P XIF H P* H P EJECT H 6 P******************************
0x0d165c…0d17f0 Dummy {f00=0x0071, f01=0x0190, f02=» H ^ P* I 6 P* THIS TABLE HOLDS ADDRESSES OF CONTROLLER WORK I 8 P* TABLES CWT TO CHANNEL UNITS FOR LOCAL OR REMOTE I L P* TERMINALS. I P* I P* I P* I PCHTAB EQU * I P DATA CHTABE-* TABLE LENGTH I P IFT LOCHAN=1 I
0x0d17f0…0d1984 Dummy {f00=0x0071, f01=0x0190, f02=» DATA CWTLT2 I P DATA 0 J P DATA 0 J $ P XIF J 4 P* J @ P IFT LOCHAN=3 J J P DATA CWTLT1 J ` P DATA CWTLT2 J t P DATA CWTLT3 J P DATA 0 J P XIF J P IFT LOCHAN=4 J P DATA CWTLT1 J P DATA CWTLT2 J P DATA CWTLT3 J
0x0d1984…0d1b18 Dummy {f00=0x0071, f01=0x0190, f02=» DATA CWTRT4 J P DATA CWTRT5 K P DATA CWTRT6 K ( P* K < P XIF K F P* K R P IFT RECHAN=2 K P DATA CWTRT3 K r P DATA CWTRT4 K P XIF K P* K P IFT RECHAN=4 K P DATA CWTRT3 K P DATA CWTRT4 K P DATA CWTRT5 K P DATA
0x0d1b18…0d1cac Dummy {f00=0x0071, f01=0x0190, f02=» K P* L ( P************************************ L ( P* D W R E M U * L > ( P************************************ L j P* L . P* DUMMY TABLE USED WHEN LOOP-TESTING OF L $ P* REMOTE CHANNELS ARE NEEDED. L P* L PDWRE
0x0d1cac…0d1e40 Dummy {f00=0x0071, f01=0x0190, f02=» P EJECT M P* M P* M * P* L O O P - T E S T S E C T I O N M & P* M T P* M ^ 2 P* ORDER /00: TEST REMOTE CHANNEL CONNECTION M h P* M : P* CHANNEL TO TEST IS GIVEN IN CONTROL WORD OF ECB. M 6 P* THE REQUEST IS COMPLETED WITH
0x0d1e40…0d1fd4 (0, 266) Dummy {f00=0x0073, f01=0x0190, f02=» M . P* BIT 14: ACK NOT RECEIVED AFTER OUTPUT N P* N : 0 P* BIT 15: SYNC NOT RECEIVED AFTER OUTPUT N D PAREM DATA LOPTST N x " P DATA 0 ABORT ROUTINE ADDRESS N " P DATA IHLOP INTERRUPT HANDLER N PLOPTST EQU * N $ P LD A2,10,A8 GET CHANNEL
0x0d1fd4…0d2168 Dummy {f00=0x0073, f01=0x0190, f02=» N & P LD A2,CHTAB+8,A2 GET CWT-ADDRESS O P RF(E) DISIIE O 2 P LDR A7,A7 WRONG ORDER ? O H P RF(E) LOPT10 NO O h ( PDISIIE ABL DISIOE I/O REQUEST ERROR O PLOPT10 EQU * O , P LD A1,CWTRST,A2 GET CHANNEL LOOP STATUS O P ANK A1,/40 O ( P RF(
0x0d2168…0d22fc Dummy {f00=0x0073, f01=0x0190, f02=»SP O P EJECT P P* P P* P " P* END OF LOOP-TEST P , P* P J PIHLOP EQU * P T P LDR A5,A1 GET CWT-ADDRESS P h , P LD A1,CWTRST,A5 GET CHANNEL LOOP STATUS P P ANK A1,3 P P XRK A1,3 P PIHLP10 EQU * P P LDK A2,0 P : P SC
0x0d22fc…0d2490 Dummy {f00=0x0073, f01=0x0190, f02=» 2 P x P* Q P* C H R T 1 / C H R T 2 Q P* Q 6 8 P* THIS IS THE INTERRUPT HANDLER FOR CHLT AND CHRT Q @ P* Q | 2 P* WHEN INTERRUPT FROM A CHANNEL UNIT OCCURS Q 2 P* DRIVER FIRST RELATES INTERRUPT TO A CWT. Q 0 P* THEN DRIVER GETS
0x0d2490…0d2624 Dummy {f00=0x0073, f01=0x0190, f02=»* INTERRUPT. Q P* R 2 P* FOLLOWING TYPES OF INTERRUPT ARE RELEVANT R " P* R X . P* D = DEVICE ADDRESS C = CHARACTER R b P* R 8 P* ACK OUTPUT ACKNOWLEDGED D = 0 C = 7 R 8 P* NAK OUTPUT ERROR D = 0
0x0d2624…0d27b8 Dummy {f00=0x0073, f01=0x0190, f02=» DRI DATA REQUEST IMMEDIATE SIGN BIT SET R 8 P* ABC+ BLOCK TR. ACKNOWLEDGED D = 0 C = 8 S : 8 P* ABC-L LRC ERROR IN BLOCK D = 0 C = A S v 8 P* ABC-V VRC ERROR IN BLOCK D = 0 C = C S 8 P* ABC-LV LRC O VRC E
0x0d27b8…0d294c Dummy {f00=0x0073, f01=0x018e, f02=» BE DIFFERENT FROM ZERO S f 8 P* STD STATUS MESSAGE D # 0 C # 0 T 2 P* DIN DATA INPUT D # 0 T P EJECT T P* T P* C H L T 1 T P* T P* INTERRUPT FROM CHLT1 T P* T PCHLT1 EQU * T
0x0d294c…0d2ae0 Dummy {f00=0x0073, f01=0x0190, f02=» P* U P IFT CPU852=0 U " P MSR 8,A15 SAVE A1-A8 ON STACK U $ P XIF U J P* U V P LDK A7,2 INDICATE CHLT1 U ` P RF CLT010 U P* U PCHLT2 EQU * U P* U P* U P* U P* U P* C H L T 2 U P* U P* INTERRUPT F
0x0d2ae0…0d2c74 (0, 267) Dummy {f00=0x0073, f01=0x018e, f02=»SAVE A1-A8 ON STACK U P XIF V P* V ( P IFT LOCHAN=2 V 2 P IFT CPU852=0 V H " P MSR 8,A15 SAVE A1-A8 ON STACK V ^ P XIF V P* V P IFT LOCHAN=2 V P LDK A7,4 INDICATE CHLT2 V P RF CLT010 V P* V P XIF V P* V P IFT L
0x0d2c74…0d2e08 Dummy {f00=0x0073, f01=0x018e, f02=» V P* W P IFT LOCHAN=3 W P IFT CPU852=0 W ( " P MSR 8,A15 SAVE A1-A8 ON STACK W > P XIF W d P* W p P IFT LOCHAN=3 W z P LDK A7,4 INDICATE CHLT2 W P RF CLT010 W P* W P XIF W P* W P IFT LOCHAN=4 W $ P ST P,INTSAV SAV
0x0d2e08…0d2f9c Dummy {f00=0x0073, f01=0x0190, f02=» W P IFT CPU852=0 X " P MSR 8,A15 SAVE A1-A8 ON STACK X P XIF X D P* X P P IFT LOCHAN=4 X Z P LDK A7,4 INDICATE CHLT2 X p P RF CLT010 X P* X P XIF X P* X PCHLT3 EQU * X P* X P* X P* X P* C H L T 3 X
0x0d2f9c…0d3130 Dummy {f00=0x0073, f01=0x0190, f02=»852=1 X & P CF A15,SAVE8 SAVE A1-A8 ON STACK Y P XIF Y 8 P* Y D P IFT LOCHAN=4 Y N P IFT CPU852=0 Y d " P MSR 8,A15 SAVE A1-A8 ON STACK Y z P XIF Y P* Y P IFT LOCHAN=4 Y P LDK A7,6 INDICATE CHLT3 Y P RF CLT010 Y P XIF Y
0x0d3130…0d32c4 Dummy {f00=0x0073, f01=0x0190, f02=»1-A8 ON STACK Y | P XIF Z P* Z " P IFT LOCHAN=3 Z , P IFT CPU852=0 Z B " P MSR 8,A15 SAVE A1-A8 ON STACK Z X P XIF Z ~ P* Z P IFT LOCHAN=3 Z P LDK A7,6 INDICATE CHLT3 Z P RF CLT010 Z P* Z P XIF Z P* Z PCHLT4 EQU *
0x0d32c4…0d3458 Dummy {f00=0x0073, f01=0x0190, f02=» ST P,INTSAV SAVE LAST INTERRUPT Z P* [ ( P IFT CPU852=1 [ 2 & P CF A15,SAVE8 SAVE A1-A8 ON STACK [ H P XIF [ r P* [ ~ P IFT LOCHAN=4 [ P IFT CPU852=0 [ " P MSR 8,A15 SAVE A1-A8 ON STACK [ P XIF [ P* [ P IFT LOCHAN=4 [ P L
0x0d3458…0d35ec Dummy {f00=0x0073, f01=0x0190, f02=»* INTERRUPT FROM CHRT1 [ P* " PCHRT1 EQU * , P ST P,INTSAV @ P* T P IFT CPU852=1 ^ & P CF A15,SAVE8 SAVE A1-A8 ON STACK t P XIF P* P IFT CPU852=0 " P MSR 8,A15 SAVE A1-A8 ON STACK P XIF P* P L
0x0d35ec…0d3780 Dummy {f00=0x0073, f01=0x0190, f02=»CHRT2 EQU * P IFT RECHAN=2 ] $ P ST P,INTSAV SAVE LAST INTERRUPT ] * P* ] R P IFT CPU852=1 ] & P CF A15,SAVE8 SAVE A1-A8 ON STACK ] r P XIF ] P* ] P IFT RECHAN=2 ] P IFT CPU852=0 ] " P MSR 8,A15 SAVE A1-A8 ON STACK ] P XIF
0x0d3780…0d3914 (0, 268) Dummy {f00=0x0074, f01=0x0190, f02=» ST P,INTSAV STORE LAST INTERRUPT ] P* ^ * P IFT CPU852=1 ^ 4 & P CF A15,SAVE8 SAVE A1-A8 ON STACK ^ J P XIF ^ t P* ^ P IFT RECHAN=3 ^ P IFT CPU852=0 ^ " P MSR 8,A15 SAVE A1-A8 ON STACK ^ P XIF ^ P* ^ P IFT RECHAN=3 ^ P
0x0d3914…0d3aa8 Dummy {f00=0x0074, f01=0x018e, f02=»* ^ P IFT CPU852=1 _ & P CF A15,SAVE8 SAVE A1-A8 ON STACK _ P XIF _ J P* _ V P IFT RECHAN=4 _ ` P IFT CPU852=0 _ v " P MSR 8,A15 SAVE A1-A8 ON STACK _ P XIF _ P* _ P IFT RECHAN=4 _ P LDK A7,14 INDICATE CHRT2 _ P RF CLT0
0x0d3aa8…0d3c3c Dummy {f00=0x0074, f01=0x0190, f02=» P IFT RECHAN=3 ` $ P ST P,INTSAV SAVE LAST INTERRUPT ` P* ` B P IFT CPU852=1 ` L & P CF A15,SAVE8 SAVE A1-A8 ON STACK ` b P XIF ` P* ` P IFT RECHAN=3 ` P IFT CPU852=0 ` " P MSR 8,A15 SAVE A1-A8 ON STACK ` P XIF ` P* `
0x0d3c3c…0d3dd0 Dummy {f00=0x0074, f01=0x018e, f02=»E LAST INTERRUPT ` P* a P IFT CPU852=1 a " & P CF A15,SAVE8 SAVE A1-A8 ON STACK a 8 P XIF a b P* a n P IFT RECHAN=4 a x P IFT CPU852=0 a " P MSR 8,A15 SAVE A1-A8 ON STACK a P XIF a P* a P IFT RECHAN=4 a P LDK A7,18 INDICAT
0x0d3dd0…0d3f64 Dummy {f00=0x0074, f01=0x0190, f02=» a PCHRT4 EQU * b P IFT RECHAN=4 b $ P ST P,INTSAV SAVE LAST INTERRUPT b 2 P* b Z P IFT CPU852=1 b d & P CF A15,SAVE8 SAVE A1-A8 ON STACK b z P XIF b P* b P IFT RECHAN=4 b P IFT CPU852=0 b " P MSR 8,A15 SAVE A1-A8 ON STACK b
0x0d3f64…0d40f8 Dummy {f00=0x0074, f01=0x0190, f02=»DRESS b p P* c P XIF c P* c $ * P EX CWTINR,A5 EXECUTE INR-INSTRUCTION c . P* c P IFT LOGING=1 c f P* c | 4 PCLT012 CF A15,LOGG ** LOGG OF INPUT CHARACTER ** c P* c P XIF c P EJECT c P* c & P* DETERMINE TYPE OF INTER
0x0d40f8…0d428c Dummy {f00=0x0074, f01=0x0190, f02=»UK A7,10 c " P RF(N) CLT018 LOCAL INTERRUPT d P LDR A3,A2 d 6 . P SLC A3,6 REMOTE FIRST OR SECOND CHANNEL ? d H P RF(NN) CLT015 FIRST d z > P LD A5,CHTAB+12,A7 GET CWT-ADDRESS SECOND CHANNEL OF CHRT d 4 PCLT015 CF A15,RESTSY START OR RESTART SYNC-TIMER
0x0d428c…0d4420 Dummy {f00=0x0074, f01=0x0190, f02=»(N) CLT170 YES d & PCLT018 LDK A1,0 RESET RETURN CODE e ( P LDR A3,A2 DATA REQUEST IMMEDIATE ? e @ P RF(N) CLT050 e l $ P ANKL A3,/7000 DEVICE ADDRESS ? e ( P ABL(NE) CLT100 YES, DIN, STD OR DRD e P EJECT e P* e P* e , P* DETERMINE T
0x0d4420…0d45b4 (0, 269) Dummy {f00=0x0074, f01=0x018e, f02=» SUK A3,7 e P RF(E) CLT050 ACK f P ADK A3,2 f , P ABL(E) CLT080 NAK f > P ADK A3,2 f X P ABL(E) CLT100 POWER ON f j P LDR A7,A7 LOCAL ? f P RF(N) CLTQUE YES f P LC A4,LRCACK,A7 f $ P LDK A6,/80 ABC-ANSWER ALLOWED ? f P TM A6,A4
0x0d45b4…0d4748 Dummy {f00=0x0074, f01=0x0190, f02=» P RF(E) EXIIT g P ANK A4,/7F g P RF(Z) CLT046 YES g , * P CM LRCDWT,A7 RESET LRC-DEVICE POINTER g F ( P LDK A4,1 RESET BLOCKSENDING RUNNING g t P ANS A4,CWTBLK,A5 g P SUK A3,5 g & P RF(E) CLT043 ABC+ , GO TO DRIVER g P IFT ACKMUL=1 g
0x0d4748…0d48dc Dummy {f00=0x0074, f01=0x0190, f02=» P LDK A4,1 h P SUK A3,2 h P RF(E) CLT033 h ( P ADK A3,4 h > P RF(E) CLT033 h P P EJECT h f P* h t 0 P* RESOLVE QUEUE AND EXAMINE RECOVERY BIT. h ~ . P* ONE RECOVERY ATTEMPT IS MADE AND THEN h , P* RETURN CODE NOT OPERABLE IS SEN
0x0d48dc…0d4a70 Dummy {f00=0x0074, f01=0x0190, f02=»C-DEVICE ? h P RF(NE) CLTQUE i * P CM LRCDWT,A7 RESET LRC-DEVICE POINTER i ( P LDK A4,1 i V 2 P ANS A4,CWTBLK,A5 RESET BLOCKSENDING RUNNNING i h & PCLTQUE CF A15,QUEUE RESOLVE QUEUE i 6 PCLT031 LC A2,DWTST,A6 GET LEFT BYTE OF STATUS WORD i P LDR A
0x0d4a70…0d4c04 Dummy {f00=0x0074, f01=0x0190, f02=»,A6 STORE i PCLT032 LDK A4,0 j 0 PCLT033 LDK A3,2 INDICATE RECOVERY OF DEVICE j * P LDK A4,1 =3 j ^ P RF CPO025 j t P EJECT j P* j P* ABC- VRC-ERROR j P* j 8 P* IF BLOCKSENDING SAME PROCEDURE AS FOR THE OTHER j P* ERR
0x0d4c04…0d4d98 Dummy {f00=0x0074, f01=0x0190, f02=»DR* A4,A6 BLOCK SENDING ? j P RB(N) CLT031 k " PCLT043 ABL CLT107 k 8 P EJECT k R P* k ` P* POWER ON k j P* k 8 P* RECOVERY ROUTINES ARE STARTED FOR EVERY DEVICE k < P* ON ACTUAL LINE EXCEPT THOSE OCCUPYING CHANNEL UNIT k P*
0x0d4d98…0d4f2c Dummy {f00=0x0074, f01=0x0190, f02=»T-ADDRESS k P* l PCHPOWO EQU * l , P LDR* A2,A5 GET CHANNEL OCCUPYING DEVICE l 0 . P CM CWTRTC,A5 RESET RETRANSMISSION COUNTER l ` P LDR A7,A7 REMOTE ? l P RF(N) CPO010 NO l * P CM LRCDWT,A7 RESET LRC-DEVICE POINTER l P LDK A7,1 l 0 P A
0x0d4f2c…0d50c0 Dummy {f00=0x0074, f01=0x018e, f02=»NTER l v PCPO020 ADK A1,2 m P LDR* A6,A1 GET DWT-ADDRESS m $ P RF(E) CPO030 m H P SRC A6,1 m ^ P RF(N) CPO030 m p P SLC A6,1 m ( P LCR A7,A6 GET LEFT OF CHANNEL PAR. m P ANK A7,1 INPUT DEVICE ? m P RF(NE) CPO025 YES m & P LDKL A7,/
0x0d50c0…0d5254 (0, 270) Dummy {f00=0x0075, f01=0x0190, f02=» 0 P CWR A6,A2 DEVICE WAITING FOR CHANNEL ANSWER n P RF(E) CPO030 YES n 8 : PCPO025 LD A7,DWTADR,A6 ADDRESS TO ADDRESS-BLOCK IN A7 n R 6 P LD A7,RECADR,A7 ADDRESS TO RECOVERY ROUTINE IN A7 n P RF(E) CPO030 n P LDKL A5,DWTSB2 STACK BASE n P ADR A
0x0d5254…0d53e8 Dummy {f00=0x0075, f01=0x0190, f02=»EXT n x PEXIIT RF EXIT o P EJECT o " P* o 0 6 P* INDICATE NOT OPERABLE BEFORE GOING TO DRIVER o : P* o t PCLT045 EQU * o ~ ( P LDK A1,NOERR INDICATE NOT OPERABLE o PCLT046 EQU * o P ABL CLT110 o P EJECT o P* o P* A C K
0x0d53e8…0d557c Dummy {f00=0x0075, f01=0x0190, f02=»OR AND GO TO DISPATCHER. IF SYNC-ACK o P* DROP IT. p , 8 P* NORMAL ACK OR DRI WILL RESULT IN A RESETTING OF p B 8 P* RECOVERY BIT IN DWT. THEN A SIMULATION OF DATA p ~ < P* REQUEST FOR DEVICES WITHOUT DATA REQUEST IS CARRIED p < P* OUT. FOR
0x0d557c…0d5710 Dummy {f00=0x0075, f01=0x018e, f02=»MADE TO THE DATA REQUEST SECTION. p x * P* IF ACK WE HAVE TO WAIT FOR A DRD. q * PCLT050 EQU * q X & P LC A3,CWTLOW,A5 LAST OUTPUT WORD q l " P ANK A3,/F0 KEEP DEVICE NUMBER q P CF A15,QUEUE RESOLVE QUEUE q P LDKL A4,/EFFF q 6 P ANS A4,DWTST,A6 R
0x0d5710…0d58a4 Dummy {f00=0x0075, f01=0x018e, f02=» q z P RF(NE) CLT052 r P LDKL A3,/8000 r * P ORS A3,LRCACK,A7 INDICATE ABC ALLOWED r 4 P RF CLT055 r b PCLT052 EQU * r t . P LDR* A3,A6 DEVICE WITHOUT DATA REQUEST ? r P RF(NN) CLT055 r P CW A6,LRCDWT,A7 r P ABL(NE) CLT110 r P EJECT r
0x0d58a4…0d5a38 Dummy {f00=0x0075, f01=0x0190, f02=» r h P RF(E) CLT060 s P* s P* RESTART TIMER s ( P* s B " P LDKL A3,-DRQTIM RESTART TIMER s L P ST* A3,DWTTP,A6 s r P RF CLT068 s P* s P* START TIMER s P* s PCLT060 EQU * s P LDR A1,A6 PARAMETER s P LDKL A4,DWTTP T
0x0d5a38…0d5bcc Dummy {f00=0x0075, f01=0x0190, f02=»INE AND DELAY s d PCLT068 EQU * t P LDR A8,A8 OBC-ACK ? t * P RF(E) EXIT YES t F P LDK A1,0 t ^ & P LDR* A4,A6 GET CHANNEL PARAMETER t p . P RF(N) CLT110 DEVICE WITHOUT DATA REQUEST t ( P LDR A2,A2 DATA REQUEST IMMEDIATE ? t P RF(N) CLT125 YE
0x0d5bcc…0d5d60 Dummy {f00=0x0075, f01=0x0190, f02=» FROM PRINTERS AND , FOR REMOTLY CONNECTED DEVICES t 8 P* USING THE LRC-FUNCTION , MISSING BLOCK CONTROL u : . P* CHARACTERS (ABC) FROM SELECTOR UNIT. u v P* u PDRQTUT EQU * u P LDR A6,A1 GET DWT-ADDRESS u . P CM DWTTP,A6 RESET POINTER TO TI
0x0d5d60…0d5ef4 (0, 271) Dummy {f00=0x0075, f01=0x018e, f02=»L PARAMETER u ~ P ANK A5,/F v P SLL A5,1 2 * INDEX v & P LDK A2,/83 v B P CC A2,DWTOCH,A6 v V P RF(NE) DRQT10 v n P SUK A5,8 LOCAL DEVICE ? =4 v P RB(N) EXIT v P CF A15,OUTLIN v P RB EXIT v PDRQT10 EQU * v P* v P IFT ACK
0x0d5ef4…0d6088 Dummy {f00=0x0075, f01=0x0190, f02=» v $ P LD A7,DWTOR,A6 TEST ORDER ? =1 w P ANK A7,/FE U =9(=1) w 0 2 P RB(E) CLT045 YES, GO TO DEV. INT. HANDLER =1 w L , P ABL CLT032 NO, EXECUTE DEV. RECOVERY =1 w P EJECT w P* w P* N A K w P* w 8 P* ERROR ACKUMULATOR AND RETRANS
0x0d6088…0d621c Dummy {f00=0x0075, f01=0x0190, f02=»UCCESS w ^ < P* RETURN CODE NOT OPERABLE IS SENT TO DEVICE DRIVER. x P* x N PCLT080 EQU * x X $ P LDR* A6,A5 GET LAST OUTPUT DWT x l P RB(E) EXIT x P* x P IFT ACKMUL=1 x P* x * P IM CWTADD,A5 UPDATE ERROR ACKUMULATOR x P* x
0x0d621c…0d63b0 Dummy {f00=0x0075, f01=0x0190, f02=» LD A4,CWTRTC,A5 GET COUNTER x P SUK A4,7 SEVEN TIMES ? y $ P ABL(E) CLT030 y D * P LD A2,CWTLOW,A5 GET LAST OUTPUT WORD y Z $ P EX CWTOTR,A5 EXECUTE OTR-INSTR. y P IFT LOGING=1 y 2 P CF A15,LOGG ** LOGG INPUT CHARACTER ** y P XIF y P
0x0d63b0…0d6544 Dummy {f00=0x0075, f01=0x018e, f02=» A2,/FF y , P XRS A2,LRCACK,A7 UPDATE LRC-ACKUMULATOR z . P CF A15,RESTSY START OR RESTART SYNC-TIMER z @ PCLT090 ABL TDISP z r P EJECT z P* z P* z $ P* DATA INPUT AND DATA REQUEST z P* z 6 P* LOCAL DEVICES: GET DWT-ADDRESS, GET O
0x0d6544…0d66d8 Dummy {f00=0x0075, f01=0x0190, f02=» P* { > P* DATA INPUT: SAME PROCEDURE AS FOR LOCAL DEVICES { : P* DATA REQUEST: INPUT WORD IS COMPLEMENTED WITH { P 8 P* STATUS FROM CHANNEL PARAMETER. { : P* STATUS MESSAGE: NEW STATUS IS STORED IN CHANNEL { @ P
0x0d66d8…0d686c Dummy {f00=0x0075, f01=0x0190, f02=» WAITING FOR A STATUS CHANGE. IF SO { > P* GET ORDER AND ECB-ADDRESS AND GO TO | < < P* DEVICE WITH THE NEW STATUS. IF NO | ~ > P* WAITING FOR STATUS, CONTROL IS GIVEN | ( P*
0x0d686c…0d6a00 Dummy {f00=0x0075, f01=0x0190, f02=»3,/E 2 * LINE NUMBER | P SRL A4,3 } P ANK A4,/E 2 * DEVICE NUMBER } . P CWK A4,/E SYNC-INPUT ? } R P RF(E) CLT150 YES } r P LOOP SWITCH SET } 0 P LD* A8,CWTITA,A5 ADDRESS TO INTERRUPT TABLE } P RB(Z) EXIT =7 } P ADR A8,A3 } , P LDR
0x0d6a00…0d6b94 (0, 272) Dummy {f00=0x0075, f01=0x0190, f02=»T UNDEFINED INTERRUPT } " P LDR A4,A4 NO DEVICE NUMBER ? ~ P ABL(E) CHPOWO POWER ON ~ D & P ADR A8,A4 ADDRESS TO DWT-ADDRESS ~ d P LDR* A6,A8 GET DWT-ADDRESS ~ P RB(E) EXIT ~ P ANKL A6,/FFFE ~ 2 P LCR A3,A6 GET FIRST BYTE IN CHANNEL PARAMET
0x0d6b94…0d6d28 Dummy {f00=0x0075, f01=0x0190, f02=»A7 REMOTE ? ~ P RF(NN) CLT120 YES PCLT105 LC A3,DWTOCH,A6 . P ANK A3,/7F L P SUK A3,DUMMSP ` P RF(NE) CLT110 v . P LDR* A3,A6 DEVICE WITHOUT DATA REQUEST =9 4 P RF(N) CLT110 YES, DO NOT TOUCH TIMER POINTER =9 P* P********
0x0d6d28…0d6ebc Dummy {f00=0x0075, f01=0x0190, f02=»Y RESET v P* P************************* P* < P CM* DWTTP,A6 F P CM DWTTP,A6 PCLT110 LD A7,DWTOR,A6 ORDER p P ANK A7,/FF P LD A8,DWTECB,A6 ECB-ADDRESS , P LD A3,DWTADR,A6 ADDRESS TO ADDRESSBLOCK P ENB * P
0x0d6ebc…0d7050 Dummy {f00=0x0075, f01=0x0190, f02=» $ P CWR* A6,A5 DRD BEFORE ANSWER ? P RB(E) EXIT YES 0 PCLT125 SRL A4,4 H P ANK A4,/C ` P ORR A2,A4 STATUS IN A2 r P RB CLT105 PCLT130 EQU * P LDR A3,A4 SAVE OLD STATUS P ANK A4,/3F RESET OLD STATUS P SLL A2,4
0x0d7050…0d71e4 Dummy {f00=0x0075, f01=0x0190, f02=»A4,/200 STATUS CHANGE ALLOWED ? P RF(E) CLT154 EG. EXIT ( P XRS A4,DWTST,A6 RESET BIT F ( P XRR A3,A2 VOUCHER STATUS CHANGED ? h P ANK A3,/80 P RF(E) CLT154 EG. EXIT P ABL CLT033 P EJECT P* P* P* TFU IN
0x0d71e4…0d7378 Dummy {f00=0x0075, f01=0x0190, f02=»NDICATE LOOP MODE AND SYNC-ACK RECEIVED PCLT152 EQU * 0 P ORS A4,CWTRST,A5 D PCLT154 ABL EXIT ^ P EJECT v P* P* LOOP MODE P* PCLT170 EQU * P LDR A3,A2 P ANK A3,/FF P SUK A3,3 POWER ON ? P RF(
0x0d7378…0d750c Dummy {f00=0x0075, f01=0x018e, f02=» A1,NOERR INDICATE NOT OPERABLE PCLT177 RB CLT110 ( PCLT178 EQU * @ P SUK A3,4 ACK ? T P RF(NE) EXITA NO l $ P LDK A4,2 INDICATE ACK RECEIVED P RB CLT152 P EJECT P* P* POWER ON P* PCLT179 EQU *
0x0d750c…0d76a0 Dummy {f00=0x0075, f01=0x018e, f02=» 2 P* GET LAST OUTPUT DWT AND SET CHANNEL FREE. 4 P* IF LOCAL DEVICE CHECK OUTPUT QUEUE AND SEND : P* IF SOMETHING THERE. r 8 P* IF REMOTE DEVICE CHECK QUEUE OF CHANNEL'S OTHER < P* TERMINAL AND SEND IF SOMETHING THERE. IF NOTHING I
0x0d76a0…0d7834 (0, 273) Dummy {f00=0x0075, f01=0x0190, f02=» P STR A2,A15 SAVE A2 $ P LDR* A4,A5 GET LAST OUTPUT DWT $ . P CM CWTRTC,A5 RESET RETRANSMISSION COUNTER L P CMR A5 SET CHANNEL FREE ~ P LDK A1,0 P LDR A7,A7 LOCAL ? P RF(N) QUEU01 YES " P LDK A1,1 INDICATE FIRST TRIAL "
0x0d7834…0d79c8 Dummy {f00=0x0075, f01=0x0190, f02=»WT-TABLE-ADDRESS z PQUEU04 EQU * P LDR* A6,A8 QUEUE EMPTY ? , P RF(E) QUEU10 YES N P LDR A7,A7 =5 h $ P RF(N) QUEU06 PREVENT HANG UP =5 ~ P LD A2,CWTBLK,A5 P LD A2,CWTBLK,A5 ( P RF(N) QUEU05 BLOCK SENDING RUNNING PQUEU06
0x0d79c8…0d7b5c Dummy {f00=0x0075, f01=0x0190, f02=»OUTPUT CHARACTER v P CF A15,OUTLIN SEND IT PQUEU05 LDR* A2,A15 RELOAD A2 6 0 P CWR A6,A4 DEVICE ALREADY IN OUTPUT QUEUE ? Z P RF(E) QUEU30 " P LDR A6,A4 GET LAST OUTPUT DWT & P RF(E) QUEU30 UNDEFINED INTERRUPT P CWK A6,1 SYNC ANSWE
0x0d7b5c…0d7cf0 Dummy {f00=0x0075, f01=0x0190, f02=»1,0 " P CWR A7,A5 TERMINAL 2 REMOTE ? P RB(E) QUEU01 NO 2 & PQUEU20 LDKL A8,CWTEQ+2 NEXT QUEUE J P RB QUEU03 t PQUEU30 ADKL A15,4 P RF EXITA P EJECT P* P* 0 P* RESTSY = SUBROUTINE TO START OR RESTART * P
0x0d7cf0…0d7e84 Dummy {f00=0x0075, f01=0x0190, f02=» P RF(NE) RESY20 P LDR A1,A5 P LDK A4,CWTTP TIMER POINTER , P ADR A4,A5 ADD CWT-ADDRESS P P CF A15,SETIMP SET TIMER r P DATA SYNCUT,TIME P RF RESY30 PRESY20 LDKL A4,-TIME " P ST* A4,CWTTP,A5 RESTART TIME PRESY30 L
0x0d7e84…0d8018 Dummy {f00=0x0075, f01=0x0190, f02=»DING n 0 P* IF NOTHING HAPPENS ON A LINE IN 500 MS P* SYNC-CHARACTER IS SENT. @ P* d PSYNCUT EQU * n $ P CM CWTTP,A1 RESET TIMER POINTER P LDR A5,A1 ( P LD A2,CWSYNC,A1 GET SYNC CHARACTER ( P XRKL A2,/800 CHANGE TERMINAL NU
0x0d8018…0d81ac Dummy {f00=0x0075, f01=0x0190, f02=» OUTPUT DWT t P* P IFT LOGING=1 P* 4 * P CF A15,LOGG LOGG OF OUTPUT CHARACTER > P XIF l P* x P LDR A3,A2 P SLL A3,4 P RF(NN) SYNC05 P ADK A5,2 PSYNC05 EQU * P ANK A2,/FF , P XRS A2,LRCACK,A5
0x0d81ac…0d8340 Dummy {f00=0x0075, f01=0x0190, f02=»/60 P RF(E) SYNC20 THIRD SYNC P SUK A3,/20 , P RF(NE) SYNC10 FIRST SYNC @ P LDK A3,/20 SECOND SYNC b * PSYNC10 XRS A3,CWTRST,A1 CHANGE COUNTER PEXITA ABL TDISP DISPATCH * PSYNC20 LDKL A6,DWREMU SET DWT-ADDRESS P RB CLT177
0x0d8340…0d84d4 (0, 274) Dummy {f00=0x0076, f01=0x018e, f02=»LOWED AND SAVE A3-A5 IN DWT. P* $ POUTPUT EQU * . P ANK A2,/FF B P LDR A1,A2 V P SUK A1,/82 STX ? h P RF(E) OUTP05 P SUK A1,/15 ETB ? P RF(NE) OUTP10 ( POUTP05 LDR* A1,A6 CHANNEL PARAMETER P ANK A1,/C REMOTE ?
0x0d84d4…0d8668 Dummy {f00=0x0076, f01=0x0190, f02=» P* : P* INDICATE INTERRUPTS ALLOWED AND SAVE A3-A5 IN DWT P* P PSTREG EQU * Z P INH n P LDKL A1,/100 z 0 P ORS A1,DWTST,A6 INDICATE INTERRUPTS ALLOWED $ P ST A3,DWTA3,A6 SAVE REGISTER A3 $ P ST A4,DWTA4,A6
0x0d8668…0d87fc Dummy {f00=0x0076, f01=0x018e, f02=»NTERRUPT ALLOWED RESTORE A3-A5 FROM DWT AND RETURN & P* VIA A5. ELSE GO TO DISPATCHER. : P* d P* n PLDREG EQU * x P LD A3,DWTST,A6 P ANKL A3,/100 P RB(Z) EXITA P XRS A3,DWTST,A6 P* P* P* L D R E G
0x0d87fc…0d8990 Dummy {f00=0x0076, f01=0x018e, f02=» l PLDREGE EQU * & P LD A3,DWTA3,A6 RELOAD REGISTER A3 & P LD A4,DWTA4,A6 A4 F $ PLDRE10 LD A7,DWTOR,A6 GET ORDER p P ANK A7,/FF P LD A8,DWTECB,A6 P RTN A5 RETURN VIA A5-STACK P EJECT P* P*
0x0d8990…0d8b24 Dummy {f00=0x0076, f01=0x0190, f02=» P* A3 = BUFFER INDEX P* A8 = ECB-ADDRESS " P* @ P* ON EXIT: J P* ` P* A2 = CHARACTER j * P* A1 = 0 IF LAST CHARACTER ELSE # 0 P* J P* IF LAST CHARACTER IS REACHED A3 IS STORED IN ECB EFFECTIVE LENGTH
0x0d8b24…0d8cb8 Dummy {f00=0x0076, f01=0x0190, f02=» j " P LD A2,2,A8 GET BUFFER ADDRESS P ADR A2,A3 . P LCR A2,A2 CHAR. TO A2 @ P ANK A2,/FF ^ $ P ADK A3,1 INCREMENT BUFFER INDEX r P RF GCH020 , PGCH010 ST A3,6,A8 STORE EFFECTIVE LENGTH PGCH020 EQU * ( PRTNA15 ADKL A15,2 RETURN
0x0d8cb8…0d8e4c Dummy {f00=0x0076, f01=0x0190, f02=» ^ P* CHANNEL UNIT P* * P* 4 B P* GET CWT-ADDRESS AND IF CHANNEL UNIT FREE SEND CHARACTER. > 8 P* RUNNING LRC-PROCESS CAN STOP OUTPUT FROM OTHER 8 P* DEVICES ON SAME LINE. IF CHANNEL UNIT NOT FREE P* QUEUE O
0x0d8e4c…0d8fe0 Dummy {f00=0x0076, f01=0x0190, f02=»PU852=0 " P MSR 8,A15 SAVE A1-A8 ON STACK P XIF 6 P* B P ANK A2,/FF L " P LDR* A7,A6 CHANNEL PARAMETER ` P ANK A7,/F P SLL A7,1 DOUBLE INDEX & P LD A5,CHTAB+2,A7 GET CWT-ADDRESS P SUK A7,8 REMOTE ? P RF(N) OUL100
0x0d8fe0…0d9174 (0, 275) Dummy {f00=0x0076, f01=0x0190, f02=»ET CWT-ADDRESS , P ADR A7,A3 TERMINAL ADJUSTED CWT-ADDRESS P EJECT F POUL100 INH T P* f ( P* IF UNIT NOT FREE QUEUE OUTPUT. p 2 P* IF REMOTE DEVICE AND LRC-PROCESS ALREADY 0 P* RUNNINGON TERMINAL FOR ANOTHER DEVICE, 0 P*
0x0d9174…0d9308 Dummy {f00=0x0076, f01=0x0190, f02=»NEL UNIT FREE ? P RF(NE) OUL800 NO P LDR A7,A7 REMOTE ? 2 P RF(N) OUL500 N P LDR A3,A2 d P SUK A3,/82 STX ? v P RF(NE) OUL200 NO P EJECT P* P* S T X P* * P LD A3,LRCDWT,A7 LRC-PROCESS RUNNING ?
0x0d9308…0d949c Dummy {f00=0x0076, f01=0x0190, f02=» INDICATE FIRST OBC , POUL150 LDR* A3,A6 GET CHANNEL PARAMETER , P ANKL A3,/E00 SET DEVICE NUMBER TO ZERO N P RF OUL510 ~ & POUL175 CWR A3,A6 SAME LRC-DEVICE ? P RF(NE) OUL800 QUEUE OUTPUT P RF OUL350 POUL200 SUK A3,/15 ETB ?
0x0d949c…0d9630 Dummy {f00=0x0076, f01=0x0190, f02=»RCACK+1,A7 GET LRC-ACKUMULATOR P RB OUL150 & P* 8 P* OTHER OUTPUT B P* 8 POUL300 CW A6,LRCDWT,A7 SAME DEVICE SENDING WITH LRC f P RF(Z) OUL350 YES P LD A3,CWTBLK,A5 , P RF(NN) OUL500 BLOCKSENDING NOT RUNNING * P RF
0x0d9630…0d97c4 Dummy {f00=0x0076, f01=0x0190, f02=» P LD A3,CWTBLK,A5 P RF(Z) OUL500 ( P ORKL A2,/8000 INDICATE BLOCKSENDING 2 P LDK A3,/80 ^ 2 P SC A3,CWTBLK,A5 INDICATE BLOCKSENDING RUNNING r P EJECT P* P* & P* SEND CHARACTER SECTION. 2 P* CHARACTER
0x0d97c4…0d9958 Dummy {f00=0x0076, f01=0x0190, f02=»ERS FOR f . P* DWT AND ACKUMULATOR IS UPDATED. P B POUL500 EQU * J " P LDR* A3,A6 CHANNEL PARAMETER ^ P ANKL A3,/7E00 & POUL510 ORR A2,A3 OUTPUT WORD IN A2 P* P* P* POUL515 EX CWTOTR,A5 OTR P RF(R)
0x0d9958…0d9aec Dummy {f00=0x0076, f01=0x0190, f02=»ESSBLOCK p . P ABI INTADR,A2 GO TO INTERRUPT HANDLER =8 POUL520 EQU * B P* V P IFT LOGING=1 ` P* v 0 P CF A15,LOGG ** LOGG OF OUTPUT CHARACTER ** P* P XIF P* P STR A6,A5 SET CHANNEL BUSY , P ST A2,CWTLOW,A5
0x0d9aec…0d9c80 Dummy {f00=0x0076, f01=0x018e, f02=»ULATOR n . P CF A15,RESTSY START OR RESTART SYNC-TIMER 4 POUL600 SC A2,DWTOCH,A6 SET LAST OUTPUT CHARACTER @ POUL700 EQU * x P IFT CPU852=1 ( P ABL IHRET8 RESTORE A1-A8 AND RETURN P XIF P* P IFT CPU852=0 * P MLR 8,A15 RES
0x0d9c80…0d9e14 (0, 276) Dummy {f00=0x0076, f01=0x0190, f02=» P EJECT P* : P* NORMALLY DWT-ADDRESS IS PUT LAST IN OUTPUT QUEUE P* Z POUL800 EQU * d P LDR A7,A7 REMOTE ? x P RF(NN) OUL805 YES P LDR A7,A5 CWT-ADDRESS , POUL805 LD A4,CWTEQ,A7 GET QUEUE POINTER P RF(E) OUL82
0x0d9e14…0d9fa8 Dummy {f00=0x0076, f01=0x0190, f02=»LOW THE THREAD P RB OUL810 $ POUL820 ST A6,CWTEQ,A7 QUEUE DWT ( P RF OUL840 P $ POUL830 ST A6,DWTOTQ,A4 QUEUE DWT b P LDK A4,0 : POUL840 ST A4,DWTOTQ,A6 SET OR RESET OUTPUT QUEUE LINK P RB OUL600 P EJECT P* P*
0x0d9fa8…0da13c Dummy {f00=0x0076, f01=0x0190, f02=»TINE IS ENTERED FROM 'PFINIT' r P* & P* 0 P* : PCHLTON EQU * D P LD A4,CHTAB X " PCON010 SUK A4,2 ALL TREATED ? l P RF(NZ) CON020 NO TAKE NEXT P ABL RTNA15 PCON020 EQU * P INH $ P LD A5,CHTAB,A4 LOAD CWT-ADDRE
0x0da13c…0da2d0 Dummy {f00=0x0076, f01=0x0190, f02=» BUSY p $ P EX CWTCIS,A5 EXECUTE CIO-START P RF(U) CON027 6 $ P LDK A3,0 INDICATE CHANNEL BUSY L . P CF A15,RESTSY START OR RESTART SYNC-TIMER t PCON027 EQU * 4 P ST A3,CWTRST,A5 INDICATE C.U. PRESENT OR NOT =6 P LD* A1,CWTITA,A5
0x0da2d0…0da464 Dummy {f00=0x0076, f01=0x0190, f02=»OWED n . P LD A2,10,A1 ANY DEVICE ON SECOND TERMONAL 0 P RF(NZ) CON029 YES BLOCK SENDING NOT ALLOWED > 8 PCON028 LDK A2,BLOCK INDICATE BLOCKSENDING OR NOT DK1 r PCONRET ST A2,CWTBLK,A5 P RF CON035 PCON029 LDK A2,0 4 P RB CONRET INDICAT
0x0da464…0da5f8 Dummy {f00=0x0076, f01=0x018e, f02=»ST DWT ~ P RB(Z) CON010 P CWK A6,1 SYNC ? $ P RB(E) CON010 < P CMR A5 RESET LAST OUTPUT R P LDK A2,/00 DUMMY t P CF A15,OUTLIN SEND IT P RB CON010 P EJECT P* P* P* L O G G P* 8 P* IF CON
0x0da5f8…0da78c Dummy {f00=0x0076, f01=0x0190, f02=» P* PLOGG STR A1,A15 P LD A1,POINT * P ADK A1,2 > & P CWK A1,BUFE BUFE IS MAX LOGG AREA P P RF(NE) L1 z ( P LDKL A1,BUF SET FIRST LOGG ADDRESS PL1 ST A1,POINT & P STR A2,A1 LOGG OF INR OR OTR WORD P LDR* A1,A15
0x0da78c…0da920 Dummy {f00=0x0076, f01=0x0190, f02=»EA (500) DK1 | PBUFE EQU * P* & P XIF 0 P* < P EJECT F P* T P* ^ P* E C H O , E C H E N D h P* < P* SUBROUTINE TO ECHO CHARACTER CONTAINING TWO PARTS, . P* ONE GENERAL AND ONE DEVICE-DEPENDENT P*
0x0da920…0daab4 (0, 277) Dummy {f00=0x0076, f01=0x0190, f02=»DEVICE-DEPENDENT ECHO-ROUTINE ~ P* & . P* PART TWO: ECHO ONE OR MORE CHARACTERS 0 2 P* CORRESPONDING TO ONE CHARACTER b 4 P* TO BE STORED IN INPUT ECB-BUFFER P* P* 4 P* PART ONE FOLLOWS AND PART TWO C
0x0daab4…0dac48 Dummy {f00=0x0076, f01=0x0190, f02=»ICE DEPENDENT ECHO DRIVER x P* " " P* A7 MUST NOT BE DESTROYED , 6 P* THE ECHO-ROUTINE SHOULD BE TERMINATED WITH A R P* JUMP TO 'ECHRTN'. P* PECHEND EQU * P* P IFT CECHO=1 P* $ P LDKL A7,/8000 INDICATE
0x0dac48…0daddc Dummy {f00=0x0076, f01=0x0190, f02=»A5,DWTA5,A6 P LD A1,DWTST,A6 STATUS P SLL A1,2 2 $ P RF(NN) RETUR NO ECHO REQUESTED D 0 P LDR A4,A6 SAVE DWT-ADDRESS OF INPUT DEVICE l 2 P LD A6,DWTECH,A6 DWT-ADDRESS OF OUTPUT DEVICE 6 P ST A4,DWTWAT,A6 SAVE DWT-ADDRESS OF INPUT DEVICE
0x0daddc…0daf70 Dummy {f00=0x0076, f01=0x414a, f02=»A1 GO TO ECHO-ROUTINE DEVICE-DEPENDENT P XIF . PECHRTN EQU * : P IFT CECHO=1 N P LDR A7,A7 END? b P RF(NN) ERETUR NO z ( P CF A15,TENDIO END I/O OUTPUT DEVICE > PERETUR LD A6,DWTWAT,A6 RELOAD DWT-ADDRESS OF INPUT DEVICE 4 PRETUR
0x0daf70…0db104 Dummy {f00=0x0076, 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
0x0db104…0db298 Dummy {f00=0x0076, f01=0x0190, f02=»SE KOMMUNE NRVOLUME NR VOL 2 VOL 3 VOL 4DSN02 DSN03 DSN04DSN05 DSN06 DSN07 DSN08ZZZZZZZZ9 W ? ? OK ? .x Az Q f !g START VOLUME= { DATASET= v p ^ a s g q h
0x0db298…0db42c Dummy {f00=0x0076, f01=0x0190, f02=»v ' 1 D [ ' - A < n f Z A J5 TF w6 T> w7 T6 w8 T. w9 T& w: T w; T w< T w= T wD 4 " P 0 v _ 0 4 0 " 8 { u
0x0db42c…0db5c0 Dummy {f00=0x0076, f01=0x0190, f02=» ~0 x J F " D @F Lj X " % L _1 Lj X @+ 4 @+ L " 0 p x 0 x x J F " D L 4 @+ L 4 R TF L Lj X U W4 R +
0x0db5c0…0db754 (0, 278) Opaque[0x194]
0x0db754…0db8e8 # DirEnt {nam=»DRSOP1«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x1ae8, f03=0x0000}
0x0db754…0db8e8 IdxSect {
0x0db754…0db8e8 f00 = 0x00d7 // 0xdb754 @0x0
0x0db754…0db8e8 f01 = 0x000a // 0xdb756 @0x2
0x0db754…0db8e8 gno = [ // 0xdb758 @0x4
0x0db754…0db8e8 [0x00]: C0x00d7.0x1.0
0x0db754…0db8e8 [0x01]: C0x00d7.0x2.0
0x0db754…0db8e8 [0x02]: C0x00d7.0x3.0
0x0db754…0db8e8 [0x03]: C0x00d8.0x0.0
0x0db754…0db8e8 [0x04]: C0x00d8.0x1.0
0x0db754…0db8e8 ]
0x0db754…0db8e8 }
0x0db8e8…0dba7c Dummy {f00=0x00d7, f01=0x018e, f02=» 2 P IDENT DRSOP1 REL 9.2 79-11-16 870105040920 P : P* B P* L @ P************************************************************ V P* $ P* PHILIPS TERMINAL SYSTEM PTS P* 2 P* DRSOP1 = DRIVER FOR SYSTEM OPERATORS PANEL
0x0dba7c…0dbc10 Dummy {f00=0x00d7, 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
0x0dbc10…0dbda4 Dummy {f00=0x00d7, 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
0x0dbda4…0dbf38 Dummy {f00=0x00d7, 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
0x0dbf38…0dc0cc Dummy {f00=0x00d7, 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
0x0dc0cc…0dc260 Dummy {f00=0x00d7, 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
0x0dc260…0dc3f4 (0, 279) Dummy {f00=0x00d7, 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
0x0dc3f4…0dc588 Dummy {f00=0x00d7, 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
0x0dc588…0dc71c Dummy {f00=0x00d7, 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
0x0dc71c…0dc8b0 Dummy {f00=0x00d7, f01=0x0190, f02=» P PX:A EQU 0 PSOPX EQU 0 " P** 4 P** > 8 P* THIS DRIVER CAN BE MADE TO HANDLE CREDIT ORDERS H P* BY SETTING CREDIT = 1 4 P* ORDERS 05 AND 06 ARE THEN REPLACED BY ORDERS P* /37 AND /38 RESPECTIVLY B P* BY
0x0dc8b0…0dca44 Dummy {f00=0x00d7, f01=0x0190, f02=»N ZERO IS STORED IN THE CONTROL WORD z P* OF THE ECB. , P** D P N PCREDIT EQU 1 V P** j P** t @ P* THE ORDER /39, WRITE FLASHING LIGHTS CAN BE INCLUDED BY ~ P* SETTING X:B=1 P* PX:B EQU 0 PWRFLA EQU 0
0x0dca44…0dcbd8 Dummy {f00=0x00d7, f01=0x0190, f02=» EQU 1 P* P* 6 P* A PROGRAM VERSION USING THE EXTENDED INSTRUCTION " . P* SET IS OBTAINED BY SETTING CPU852 EQU 0. P* PCPU852 EQU 0 P* PDVBLEN EQU 0 MMU BUFFER SIZE " PDEVIND EQU -2 SOP DEVICE INDEX P*
0x0dcbd8…0dcd6c Dummy {f00=0x00d7, f01=0x018e, f02=» P XIF P* P IFT MMUPAG=1 PSTART EQU DWTDRD+4 4 P XIF N P* Z & PDWTTP EQU START+/00 TIMER POINTER d P* P EJECT P* P************************** P* S.O.P. DEVICE ADDRESS: * P********************
0x0dcd6c…0dcf00 Dummy {f00=0x00d7, f01=0x0190, f02=» " P* * " P* S.O.P. CHANNEL UNIT TABLE * * " P* * P " P****************************** v P* P* 0 PSOPCT EQU * TABLE STARTS WITH ADDRESS BLOCK: P* P DATA DVBLEN MMU BUFFER SI
0x0dcf00…0dd094 (0, 280) Dummy {f00=0x00d7, f01=0x0190, f02=»TCHES ENTRY x " P DATA 0 ABORT ROUTINE ADDRESS P* : P DATA DVBLEN MMU BUFFER SIZE D P DATA DEVIND DEVICE INDEX h & PSOPADU EQU * ACTIVATE LIGHTS ENTRY P* & P DATA SOPAL ACTIVATE LIGHTS ENTRY " P DATA 0 ABORT ROUTINE ADDRESS
0x0dd094…0dd228 Dummy {f00=0x00d7, f01=0x0190, f02=» " P* * " P* S.O.P. ACTIVATION ROUTINE: * * " P* * P " P****************************** v P* > P* THE ORDER IS ANALYZED AND THE CORRESPONDING I/O ACTION P* IS CARRIED OUT. P*
0x0dd228…0dd3bc Dummy {f00=0x00d7, f01=0x0190, f02=» P* * P RF(NZ) SOPER ERROR IF NOT READ ORDER P* < P* INPUT SWITCH VALUE F P* d * PSOPIN LDR* A2,A6 POWER UP INDICATION ? n P IFT CREDIT=0 P RF(Z) EXIT NO $ P CMR A6 YES CLEAR FOR NEXT REQ. P XIF P IFT CREDIT=
0x0dd3bc…0dd550 Dummy {f00=0x00d7, f01=0x0190, f02=»HANGES OF S.O.P. LIGHTS P* & PSOPAL EQU * ACTIVATE LIGHTS ENTRY * P* T P LD A3,10,A8 CHANGED LIGHTS ^ , P ANKL A3,/07FF BITS 5-15 CONTROLS LIGHTS P* P LDR A4,A7 COPY ORDER P IFT WRFLA=1 P CCK A4,/3939 P RF(
0x0dd550…0dd6e4 Dummy {f00=0x00d7, f01=0x0190, f02=»/37 P XIF & P RF(Z) SOPON IF SO, TURN ON LIGHTS P* B & P SUK A4,1 SEE IF LIGHTS OFF ORDER L P RF(Z) SOPOFF v & PSOPER ABL(NZ) DISIOE ILLEGAL ORDER P IFT WRFLA=1 P EJECT P* P* P* FLASH LIGHTS P*
0x0dd6e4…0dd878 Dummy {f00=0x00d7, f01=0x018e, f02=»A6 P LDR A1,A6 P CF A15,SETIMP P DATA FLTUT,TIME 2 P ST A4,DWTTP,A6 J P LDKL A1,/FFBF b P ANS A1,DWTST,A6 SET ON FLAG x PFL010 EQU * . P* A3 CONTAINS LIGHTS THAT SHOULD FLASH * P ORS A3,FLASH STORE NEW LAMPS TO FLASH
0x0dd878…0dda0c Dummy {f00=0x00d7, f01=0x0190, f02=» PFL020 EQU * P C1R A3,A3 P ANS A3,SPDLCI * P RF SOPONOF @ P* T P EJECT ^ P* l PFLTUT EQU * FLASH TIME OUT v P LDKL A6,DWSO01 P LD A3,FLASH 0 P RF(Z) FL030 NO MORE FLASHING FOR THIS TIME P LDKL A1,-TIME R
0x0dda0c…0ddba0 Dummy {f00=0x00d7, f01=0x0190, f02=»EXIT END I/O P XIF P EJECT P* . PSOPOFF EQU * 8 , P C1R A3,A3 GET COMPLEMENTED CONTROL WORD L 4 P ANS A3,SPDLCI MASK OUT LIGHTS TO BE TURNED OFF | P IFT WRFLA=1 $ P ANS A3,FLASH STOP SOME FLASHING P XIF , P RF SOPONOF
0x0ddba0…0ddd34 (0, 281) Dummy {f00=0x00d8, f01=0x0190, f02=» A3 CONTAINS CONTROL WORD . P ORS A3,SPDLCI SET LIGHTS TO BE TURNED ON $ P IFT WRFLA=1 V P C1R A3,A3 j * P ANS A3,FLASH STOP SOME OTHER FLASHING | P XIF P* P* COMMON ON/OFF PATH: P* 0 PSOPONOFF LD A1,SPDLCI GET LIGHTS
0x0ddd34…0ddec8 Dummy {f00=0x00d8, f01=0x0190, f02=»********************** P* * P* S.O.P. INTERRUPT HANDLER * B P* * f P**************************** P* P* @ P* THE INTERRUPT HANDLER WILL TAKE CARE OF ALL INTERRUPTS. P*
0x0ddec8…0de05c Dummy {f00=0x00d8, f01=0x018e, f02=» CF A15,SAVE8 SAVE A1-A8 ON STACK P XIF * P* 6 P IFT CPU852=0 @ " P MSR 8,A15 SAVE A1-A8 ON STACK V P XIF | P* $ P ST P,INTSAV SAVE LAST INTERRUPT P INR A1,0,SOPDA GET SWITCH P SRN A1,A2 CALC INDEX P IFT CREDIT=0
0x0de05c…0de1f0 Dummy {f00=0x00d8, f01=0x0190, f02=» " P LDKL A6,DWSI02 ANY REQUEST ON P LD A4,DWTST,A6 STATUS WORD * P RF(N) IHSOP2 NO N $ P LD A8,DWTECB,A6 GET ECB-ADDRESS f P ST A2,ECBCW,A8 STORE INDEX ( P CM ECBEL,A8 RESET EFFECTIVE LENGTH P LDK A1,0 P CF A15,TENDIO END I/O
0x0de1f0…0de384 Dummy {f00=0x00d8, f01=0x0190, f02=»WTECB,A6 GET ECB-ADDRESS P & PIHSOP3 ST A2,ECBCW,A8 STORE INDEX ( P R , PENDIO CM ECBEL,A8 RESET EFFECTIVE LENGTH Z P LDK A1,0 P CF A15,TENDIO END I/O P $ PEXIT ABL TDISP GO TO DISPATCHER P EJECT P* * P******
0x0de384…0de518 Dummy {f00=0x00d8, f01=0x0190, f02=» * * P************************************* * P* X P* b : P* THIS ROUTINE IS A SUBROUTINE TO THE POWER FAILURE l 8 P* RECOVERY ROUTINE (PFAR). IT'S ENTRY POINT SHOULD @ P* BE PRESENT IN THE POWER FAILUR
0x0de518…0de6ac Dummy {f00=0x00d8, f01=0x018e, f02=»DWTCHP j P* P* PSOPR EQU * ENTRY POINT " P IFT CPU852=1 B & P CF A15,SAVE8 SAVE A1-A8 ON STACK X P XIF P* P IFT CPU852=0 " P MSR 8,A15 SAVE A1-A8 ON STACK P XIF P* " P CIO A1,1,SOPDA ACTIVATE INPUT
0x0de6ac…0de840 Dummy {f00=0x00d8, f01=0x0190, f02=» " P LDKL A2,-2 POWER UP INDICATOR P XIF . P IFT CREDIT=1 : P LDK A2,0 P P XIF b P n P IFF SOPX=0 v " P LDKL A6,DWSI02 ANY REQUEST ON $ P LD A4,DWTST,A6 GET STATUS WORD P RF(NN) SOPR1 YES P STR A2,A6 IND POWER U
0x0de840…0de9d4 (0, 282) Dummy {f00=0x00d8, f01=0x0190, f02=» STR A2,A6 IND POWER UP P PSOPR2 RB IHSOP1 ( P EJECT @ P* N P* D W S I 0 1 : INPUT DWT X P* | PDWSI01 EQU * , P DATA 0 CHANNEL PARAMETER: POWER UP IND , P DATA /8000 /8000 MEANS DEVICE IS READY P DATA 0 ECB AD
0x0de9d4…0deb68 Dummy {f00=0x00d8, f01=0x0190, f02=» & " DATA 0 SAVE AREA USER ECB ADDRESS P DATA DEVECI MMU ECB ADDRESS . PDEVECI EQU * R P DATA 0,0,0,0,0,0 f P XIF P* P* D W S O 0 1 : OUTPUT DWT P* P* PDWSO01 EQU * " P DATA /0040 CHANNEL PARAMETER , P
0x0deb68…0decfc Dummy {f00=0x00d8, f01=0x0190, f02=» j P DATA 0 TTAB-ADDRESS $ P DATA 0 WAIT/ACTIVATE INDICATOR $ P DATA 0 TERMINAL QUEUE L IFT MMUPAG=1 j & " DATA 0 SAVE AREA USER ECB ADDRESS P DATA DEVECO MMU ECB ADDRESS XIF P DATA 0 TIMER POINTER . PFLASH DATA 0 SAV
0x0decfc…0dee90 Dummy {f00=0x00d8, f01=0x0190, f02=»* * P* D W S I 0 2 : EXTENDED INPUT DWT ! P* ! 8 P ! B PDWSI02 EQU * ! J P IFF SOPX=0 ! ^ P DATA 0 ! r P DATA /8000 ! P DATA 0 ECB ADDRESS ! P DATA 0 ORDER ! P DATA SOPADI ! P DATA 0,0,0 ! IFT MMUPAG=1 ! & " D
0x0dee90…0df024 Dummy {f00=0x00d8, f01=0x402c, f02=» ! P* " P* " P END " @ " (DWT ! P* ! 8 P ! B PDWSI02 EQU * ! J P IFF SOPX=0 ! ^ P DATA 0 ! r P DATA /8000 ! P DATA 0 ECB ADDRESS ! P DATA 0 ORDER ! P DATA SOPADI ! P DATA 0,0,0 ! IFT MMUPAG=1 ! & " D
0x0df024…0df1b8 Dummy {f00=0x00d8, 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
0x0df1b8…0df34c Dummy {f00=0x00d8, f01=0x0190, f02=»*-CWTRT1 # P DATA 0 TIMER POINTER $ PCWSYNC EQU *-CWTRT1 $ . P DATA /7055 SYNC CHARACTER $ J PLRCDWT EQU *-CWTRT1 $ l 0 P DATA 0 DWT OF GOING LRC-PROCESS TERMINAL 1 $ 0 P DATA 0 DWT OF GOING LRC-PROCESS TERMINAL 2 $ PLRCACK EQU *-CWTRT1 $
0x0df34c…0df4e0 Dummy {f00=0x00d8, f01=0x018e, f02=»US WORD (LOOP-TESTS) $ | 0 PCWTBLK EQU *-CWTRT1 BLOCK SENDING INDICATOR % ( P DATA 0 BIT 0: BLOCKSENDING RUNNING % P $ P BIT 15: BLOCKSENDING ALLOWED % | P EJECT % $ P******************************** % $ P* C W T R T 2 * % $ P******
0x0df4e0…0df674 (0, 283) Opaque[0x194]
0x0df674…0df808 # DirEnt {nam=»DRFD01«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x1b10, f03=0x0000}
0x0df674…0df808 IdxSect {
0x0df674…0df808 f00 = 0x00d8 // 0xdf674 @0x0
0x0df674…0df808 f01 = 0x0020 // 0xdf676 @0x2
0x0df674…0df808 gno = [ // 0xdf678 @0x4
0x0df674…0df808 [0x00]: C0x00d8.0x2.0
0x0df674…0df808 [0x01]: C0x00d9.0x0.0
0x0df674…0df808 [0x02]: C0x00d9.0x1.0
0x0df674…0df808 [0x03]: C0x00d9.0x2.0
0x0df674…0df808 [0x04]: C0x00d9.0x3.0
0x0df674…0df808 [0x05]: C0x00da.0x0.0
0x0df674…0df808 [0x06]: C0x00da.0x1.0
0x0df674…0df808 [0x07]: C0x00da.0x2.0
0x0df674…0df808 [0x08]: C0x00da.0x3.0
0x0df674…0df808 [0x09]: C0x00db.0x0.0
0x0df674…0df808 [0x0a]: C0x00db.0x1.0
0x0df674…0df808 [0x0b]: C0x00db.0x2.0
0x0df674…0df808 [0x0c]: C0x00db.0x3.0
0x0df674…0df808 [0x0d]: C0x00dc.0x0.0
0x0df674…0df808 [0x0e]: C0x00dc.0x1.0
0x0df674…0df808 [0x0f]: C0x00dc.0x2.0
0x0df674…0df808 ]
0x0df674…0df808 }
0x0df808…0df99c Dummy {f00=0x00d8, f01=0x0190, f02=» 2 P IDENT DRFD01 REL 9.2 79-12-05 870105040920 P : * P =2,TIMING PROBLEMS IN INT. HANDLER B P REL 9.2 79-11-16 p $ P =1,CHANGED INTERRUPT HANDLER P REL 9.1 79-05-23 P* 2 P**********************************************
0x0df99c…0dfb30 Dummy {f00=0x00d8, f01=0x0190, f02=» P* P* P* 2 P********************************************* " 0 P* THIS DISK DRIVER HANDLES UP TO FOUR DAISY X . P* CHAINED FLEXIBLE DISK DRIVES PTS 6879, 0 P* CONNECTED TO CPU VIA CHANNEL UNIT CHFD ON & P* MULTIPLEX OR PROGRA
0x0dfb30…0dfcc4 Dummy {f00=0x00d8, f01=0x0190, f02=»L READ B P* /02 SEQUENTIAL READ -IBM DISC ONLY- P* /05 BASIC WRITE T D P* /06 SEQUENTIAL WRITE -IBM DISC ONLY- p P* /11 PHYSICAL READ P* /15 PHYSICAL WRITE P* /1A SEARCH KE
0x0dfcc4…0dfe58 Dummy {f00=0x00d8, f01=0x0190, f02=» -IBM DISC ONLY- t P* /37 LOAD , P* /38 UNLOAD B P* Z P* ENTRY PARAMETERS: d P* P* A5 STACK BASE P* A6 DWT-ADDRESS P* A7 ORDER P* A8 ECB-ADDRESS P EJECT DRFD01
0x0dfe58…0dffec Dummy {f00=0x00d8, f01=0x0190, f02=»R ACTIVATION ADDRESS " P ENTRY IHFD INTERRUPT HANDLER P ENTRY FDON RECOVERY ROUTINE B P ENTRY DWFD01 DWT-ADDRESS f P EJECT DRFD01 P* P************* P* * P* EXTERNALS * P* * P******
0x0dffec…0e0180 Dummy {f00=0x00d8, f01=0x0190, f02=»TATUS EXTRN DWTECB ECB ADDRESS $ EXTRN DWTOR DWT INDEX AND ORDER 0 EXTRN DWTA2 SAVE AREA A2 X EXTRN DWTA5 SAVE AREA A5 z & ! EXTRN DWTSB2 STACK BASE 2 IN DWT ( P EXTRN SCTPLD PROGRAM LOADING DEVICE ( P EXTRN SAVE8 SAVE A1-A
0x0e0180…0e0314 (0, 284) Dummy {f00=0x00d9, f01=0x0190, f02=»XTRN TASCII EBCDIC TO ASCII TAB & P EXTRN TEBCDIC ASCII TO EBCDIC TAB ( 0 P EXTRN SPDLCI OPEN/CLOSE STATUS FOR FD DRIVE R $ P EXTRN ECBBA ECB BUFFER ADDRESS & P EXTRN ECBRL ECB REQUESTED LENGTH & P EXTRN ECBEL ECB EFFECTIVE LENGTH P EXTRN
0x0e0314…0e04a8 Dummy {f00=0x00d9, f01=0x0190, f02=» * P* CONDITIONAL ASSEMBLY * P* * > P************************ ^ P* ~ . P* MULTIPLEX CHANNEL INSTEAD OF PROGRAMMED P* CHANNEL BY SETTING X:A = 0 P* PX:A EQU 1 PCHAN EQU 1
0x0e04a8…0e063c Dummy {f00=0x00d9, f01=0x0190, f02=» PTOSS EQU 1 P* 2 P* A PROGRAM VERSION INCLUDING IBM DISC FORMAT ( P* IS OBTAINED BY SETTING IBM EQU 1. V P* PX:C EQU 0 PIBM EQU 1 P* . P* A PROGRAM VERSION USING TOSS MMU PAGING * P* IS OBTAINED BY SETTING MMU
0x0e063c…0e07d0 Dummy {f00=0x00d9, f01=0x0190, f02=»BTAINED BY SETTING CPU852 EQU 0. P* ( PCPU852 EQU 0 2 P* F P EJECT DRFD01 P P* h * r . ** A PROGRAM VERSION USING TOSS DISC PAGING | * &* IS OBTAINED BY SETTING DSKPAG EQU 1. * PDSKPAG EQU 0 * P*
0x0e07d0…0e0964 Dummy {f00=0x00d9, f01=0x0190, f02=»QU 0 P* P* @ P* ORDERS /21 OPEN AND /22 CLOSE WHICH CONTROLS THE POWER D P* TO THE DISK DRIVE UNIT CAN BE INCLUDED BY SETTING OPCLOS =1 d P* PX:D EQU 0 POPCLOS EQU 1 P* P EJECT DRFD01 P* P
0x0e0964…0e0af8 Dummy {f00=0x00d9, f01=0x018e, f02=»CE INDEX P* P* P IFT CHAN=1 $ PDEVIND EQU 2 8 P XIF L P* X P IFT CHAN=0 b PDEVIND EQU 4-IBM-IBM v P XIF P* P EJECT DRFD01 P* P************* P* * P* CONSTANTS *
0x0e0af8…0e0c8c Dummy {f00=0x00d9, f01=0x0190, f02=» l ( PSOPDA EQU /2E S.O.P. DEVICE ADDRESS * PSTALEN EQU 512 MAX STANDARD SEC. LEN. 4 ( PTOSLEN EQU 410 MAX TOSS SEC. LENGTH b " PIBMLEN EQU 128 IBM SEC. LENGTH ( PBOE EQU 28 BEGIN OF EXTENT POSITION & PEOE EQU 34 END OF EXTENT POSITION $
0x0e0c8c…0e0e20 Dummy {f00=0x00d9, f01=0x018e, f02=»************** P* * P* DWT-DISPLACEMENTS* 2 P* * N P******************** j P* 0 PDWTDRD EQU /10 START OF DRIVER DEFINED PART P* P IFT MMUPAG=0 PSTART EQU DWTDRD P XIF P
0x0e0e20…0e0fb4 (0, 285) Dummy {f00=0x00d9, f01=0x018e, f02=» ~ P* P********** P* * $ P* TABLES * 6 P* * H P********** Z P* l P IFT DEVIND=2 v ( P DATA DVBLEN+DVBLEN MMU BUFFER SIZE P XIF P* P IFT DEVIND=4 " P DATA 0 INDICATE NO MMU BUFFER
0x0e0fb4…0e1148 Dummy {f00=0x00d9, f01=0x0190, f02=» P* P EJECT DRFD01 P* & P************** 0 P* * F P* ACTIVATION * P* * r P************** P* PFDAD EQU * ACTIVATION ENTRY P* P IFT OPCLOS=1 & P* CHECK IF OPEN OR CLOSE
0x0e1148…0e12dc Dummy {f00=0x00d9, f01=0x0190, f02=»* P EJECT P XIF P* $ P LDK A3,0 . P LC A3,DWTOR,A6 INDEX @ P LDR A2,A3 SAVE FOR FDIX ^ P* ~ & P* PUT DRIVE NO IN CIO-INSTRUCTION P* P CF A5,SETCIO A3,A4 AFFECTED ( P CM DWTRCW,A6 SAVE RETURN CODE WORD
0x0e12dc…0e1470 Dummy {f00=0x00d9, f01=0x0190, f02=»WTA3,A6 SAVE DRIVE INDEX MASK P ANR A1,A3 & P RF(NZ) FD:ORD LOCKED 8 P LDR A1,A7 V P SUK A1,/26 h P ABL(Z) LOAD LOCK ORDER | P SUK A1,/11 P ABL(Z) LOAD LOAD ORDER P LDKL A1,/8001 RETURN CODE P ABL END:IO ENDIO
0x0e1470…0e1604 Dummy {f00=0x00d9, f01=0x0190, f02=» DSKPAG+SWPBLK=0 & P LD A2,ECBBA,A8 GET BUFFER ADDRESS & P LDR* A1,A8 GET FIRST WORD OF ECB B 4 P ANKL A1,/3000 GET BITS 16-17 IN BUFFER ADDRESS l . P RF(NZ) FD:000 BUFFER NOT IN SYSTEM AREA? P LDR A3,A2 P RF(NN) FD:005 6 P ADKL A3,T
0x0e1604…0e1798 Dummy {f00=0x00d9, f01=0x018e, f02=» LDR A3,A2 P ANKL A2,/F000 P SRL A2,2 ( P SLL A1,2 : P ORR A1,A2 L P ANKL A3,/FFF ^ 2 P ST A1,DWT:PA,A6 6 BIT PHYSICAL BUFFER ADDRESS t , P ADKL A1,/400 CREATE ONE MORE MMU ENTRY P ST A1,DWT:PA+2,A6 P LDR A1,A3 ( P O
0x0e1798…0e192c Dummy {f00=0x00d9, f01=0x0190, f02=» ` P* 8 PFD:005 ST A1,DWT:LA,A6 16 BIT LOGICAL BUFFER ADDRESS P* N P EJECT DRFD01 X P XIF p P* | P LDR A1,A7 P ABL(Z) FD:070 TEST STATUS P SUK A1,1 P RF(Z) FD:040 PHYSICAL READ P SUK A1,4 P RF(Z)
0x0e192c…0e1ac0 Dummy {f00=0x00d9, f01=0x018e, f02=» SUK A1,15 $ P RF(Z) FD:030 WRITE DELETED DATA P SUK A1,/14 : P ABL(Z) UNLOAD UNLOAD ORDER N P IFT IBM=1 r P ADK A1,/36 " P ABL(Z) SQREAD SEQUENTIAL READ P SUK A1,4 $ P ABL(Z) SQWRIT SEQUENTIAL WRITE P SUK A1,/2B
0x0e1ac0…0e1c54 (0, 286) Dummy {f00=0x00d9, f01=0x0190, f02=» v P XIF P PFD:DIS EQU * P ABL DISIOE REQUEST ERROR 0 P* R P IFT OPCLOS=1 P EJECT r P* P******** P* * P* OPEN * P* * P******** P* 4 P* OPEN IS PERFORMED BY WRITING A
0x0e1c54…0e1de8 Dummy {f00=0x00d9, f01=0x0190, f02=» ( P ANS A1,SPDLCI CLEAR OPEN/CLOSE BIT 0 P LD A1,SPDLCI SOP LIGHTS AND OPEN/CLOSE DATA 0 " P OTR A1,0,SOPDA OPEN FD DRIVE d P* * P* WAIT FOR DRIVE TO BECOME OPERABLE ( P LDK A4,DWTTP2 TIMER POINTER OFFSET ( P ADR A4,A6 A4:=TIMER POINT
0x0e1de8…0e1f7c Dummy {f00=0x00d9, f01=0x0190, f02=»SP EXIT P* POPENRE EQU * P* TIME HAS EXPIRED . P LDR A6,A1 GET DWT-ADDR L , P CM DWTTP2,A6 INDICATE NO TIMER RUNNING l & P RF OCLEXI COMMON OPEN/CLOSE EXIT P* P EJECT P* P********* P* *
0x0e1f7c…0e2110 Dummy {f00=0x00d9, f01=0x0190, f02=» THE SOP LIGHTS EXTERNAL REGISTER P* * PCLOSE EQU * 4 " P LDKL A1,/8000 MASK FOR BIT 0 H & P ORS A1,SPDLCI SET OPEN/CLOSE BIT n 0 P LD A1,SPDLCI SOP LIGHTS AND OPEN/CLOSE DATA " P OTR A1,0,SOPDA CLOSE FD DRIVE P* POCLEXI EQU *
0x0e2110…0e22a4 Dummy {f00=0x00d9, f01=0x0190, f02=»JECT DRFD01 P* P*************** P* * 8 P* BASIC WRITE * P P* * h P*************** P* PFD:010 CF A5,BIO P ORK A2,1 PFD:015 EQU * P IFT TOSS+IBM=2 P LD A1,DWTLAB,A6
0x0e22a4…0e2438 Dummy {f00=0x00d9, f01=0x0190, f02=» P CF A5,EBCDIC PFD:018 EQU * P XIF . P* : P IFT CHAN+TOSS=2 D P IFT MMUPAG+SWPBLK=2 4 P LD A1,DWT:LA,A6 GET FLAG/LOGICAL BUFFER ADDRESS x ( P RF(Z) FD:019 BUFFER IN SYSTEM AREA? ( P LD A7,ECBRL,A8 GET REQUESTED LENGTH P
0x0e2438…0e25cc Dummy {f00=0x00d9, f01=0x0190, f02=»MMU TABLE v 2 P MVUS A7 MOVE BUFFER FROM USER TO SYSTEM AREA & P TL -30,A15 RESTORE MMU FROM STACK H P LDR A2,A8 RESTORE A2 r P* P EJECT DRFD01 P* P* PFD:019 EQU * P XIF P* " P CF A5,FD:WRITE PERFORME
0x0e25cc…0e2760 Dummy {f00=0x00d9, f01=0x0190, f02=» WAS IN SYSTEM AREA? | . P LD A1,DWT:BF,A6 GET SAVED BUFFER ADDRESS & P ST A1,ECBBA,A8 RESTORE IT IN ECB N P* x PFD:025 EQU * P XIF P* P RF FD:048 GOTO FD:RC P* P****************** P* * P
0x0e2760…0e28f4 (0, 287) Dummy {f00=0x00d9, f01=0x018e, f02=»S 13-15 x P RB FD:015 P EJECT DRFD01 " P* : P********************** D P* * b P* WRITE DELETED DATA * P* * P********************** P* PFD:030 CF A5,BIO P ORK A2,6
0x0e28f4…0e2a88 Dummy {f00=0x00d9, f01=0x0190, f02=» P***************** P* PFD:040 CF A5,BIO:RE ( P IFT TOSS+IBM=2 D P LD A1,DWTLAB,A6 P AN A1,DWTA3,A6 t P RF(Z) FD:042 TOSS DISC P XIF P IFT IBM=1 P LDKL A4,BUF PFD:042 EQU * P XIF $ PFD:045 CF
0x0e2a88…0e2c1c Dummy {f00=0x00d9, f01=0x0190, f02=»SKPAG+SWPBLK=0 4 P LD A2,DWT:LA,A6 GET FLAG/LOGICAL BUFFER ADDRESS ( P RF(Z) FD:046 BUFFER IN SYSTEM AREA? N ( P LD A7,ECBRL,A8 GET REQUESTED LENGTH z * P LDKL A1,FD:BUF GET DWT BUFFER ADDRESS & P TS -30,A15 SAVE RUNNING TASK MMU ( P TL DWT:PA
0x0e2c1c…0e2db0 Dummy {f00=0x00d9, f01=0x0190, f02=»,DWT:BF,A6 GET SAVED BUFFER ADDRESS & P ST A2,ECBBA,A8 RESTORE IT IN ECB ! , P RF FD:048 ! V P* ! h PFD:046 EQU * ! r P XIF ! P* ! P IFT TOSS+IBM=2 ! P LD A1,DWTLAB,A6 ! P AN A1,DWTA3,A6 ! P RF(Z) FD:047 NOT IBM ! P XIF !
0x0e2db0…0e2f44 Dummy {f00=0x00d9, f01=0x0190, f02=» P XIF " PFD:048 EQU * " P ABL FD:RC " $ P* " 6 P EJECT DRFD01 " @ P* " X P IFT TOSS+IBM=0 " b P IFT MMUPAG=0 " z P* " P************** " P* * " P* SEARCH KEY * " P* * " P************** " P
0x0e2f44…0e30d8 Dummy {f00=0x00d9, f01=0x018e, f02=»0 ILLEGAL LENGTH " P SUK A1,128 # " P ABL(P) END:10 ILLEGAL LENGTH # , P LDR A3,A2 # R P* # d * P* IF ODD CHANGE TO EVEN NO OF BYTES # n P* # P ADK A3,1 # P SRL A3,1 # P SLL A3,1 # P* # P SLL A2,3 # P ORK A2,7 BIO #
0x0e30d8…0e326c Dummy {f00=0x00d9, f01=0x0190, f02=» P* $ P EJECT DRFD01 $ P* $ & $ P* READ RECORD WITH KEY COMMAND $ 0 P* $ X PFD:060 EQU * $ b P LDK A2,4 BIO $ v P LD A3,4,A8 REQUESTED LENGTH $ P CWK A3,130 $ " P ABL(NE) END:10 ILLEGAL LENGTH $ P LD A4,2,A8 BUFFER ADDRESS $
0x0e326c…0e3400 Dummy {f00=0x00d9, f01=0x0190, f02=»TUS * $ P* * % P*************** % & P* % > PFD:070 EQU * % H P LDKL A2,/FFF9 BIO DUMMY % P CF A5,FD:WRI % | P LDR A1,A3 % P ANK A1,1 % & P RF(NZ) FD:090 DISC NOT OPERABEL? % " P ANKL A3,/200 WRITE PROTECTED? % P O
0x0e3400…0e3594 (0, 288) Dummy {f00=0x00da, f01=0x018e, f02=»RCW,A6 GET RETURN CODE % PFD:090 ABL END:IO & P* & 8 P EJECT DRFD01 & B P* & Z P******** & d P* * & t P* LOAD * & P* * & P******** & P* & PLOAD EQU * & P LDK A2,/14 LOCK & P CF A5,FD:REA & P ANK A3,1
0x0e3594…0e3728 Dummy {f00=0x00da, f01=0x0190, f02=» & P LDK A2,0 BIO ' P LDKL A4,BUF ' P LDK A3,38 NO OF BYTES ' 2 P CF A5,FD:REA ' P P CF A5,LD:RC ' f P ADK A4,34 ' z P LDR* A2,A4 ' P CWK A2,'TO' ' ( P RF(NE) LOA:10 IBM LABEL PREASSUMED ' P ADK A4,2 ' P LDR* A2,A4 ' P C
0x0e3728…0e38bc Dummy {f00=0x00da, f01=0x0190, f02=»* ' P* READ VOLUME NAME ( P* ( & P LDK A3,8 LENGTH ( 0 P LDK A2,0 BIO ( H * P C1 A1,DWTA3,A6 1 COMP. DRIVE BIT MASK ( ^ * P ANS A1,DWTLAB,A6 INDICATE TOSS LABEL ( P RF LOA:15 ( P XIF ( P IFT IBM=1 ( PLOA:10 LDK A3,10 LENGTH (
0x0e38bc…0e3a50 Dummy {f00=0x00da, f01=0x018e, f02=»BIT 10 ( x P ORS A1,DWTRCW,A6 ) P XIF ) ( P IFF TOSS+IBM=0 ) 4 PLOA:15 EQU * ) L P LDKL A4,BUF BUFFER ADDRESS ) ` P CF A5,FD:REA ) P CF A5,LD:RC ) P LDK A1,2 ) P XIF ) P IFT IBM=1 ) P LD A7,DWTRCW,A6 ) $ P ANK A7,/20 CHECK
0x0e3a50…0e3be4 Dummy {f00=0x00da, f01=0x0190, f02=» ) P XIF * P* * P EJECT DRFD01 * P* * 6 P* * @ P IFF TOSS+IBM=0 * J P* * b P* GET DWT VOL NAME ADDRESS * l P* * P CF A5,VOLADR ADDRESS TO A2 * P* * P* STORE NAME IN DWT * P* * P LDK A3,3 * PLOA:40 L
0x0e3be4…0e3d78 Dummy {f00=0x00da, f01=0x018e, f02=»50 EQU * * P LC A2,DWTOR+1,A6 GET ORDER + P ANK A2,/FF + 4 & P RB(Z) FD:075 JUMP IF TEST STATUS + H P XIF + r P IFT IBM=1 + ~ P* + P* DATA SET OPENING WANTED? + P* + " P ANK A1,/2 A1: TOSS=6, IBM=8 + P RF(NZ) LOA:70 TOSS LABEL +
0x0e3d78…0e3f0c Dummy {f00=0x00da, f01=0x0190, f02=» + P LD A2,ECBCW,A8 SECTOR NO , P SUK A2,7 , * P ABL(N) FD:DIS REQUEST ERROR , < P SUK A2,18 , ` P ABL(P) FD:DIS REQUEST ERROR , r P ADK A2,25 , P SLL A2,3 BIO , P LDK A3,80 LENGTH , P LDKL A4,BUF , P CF A5,FD:REA , P LDR A
0x0e3f0c…0e40a0 Dummy {f00=0x00da, f01=0x0190, f02=»ABEL , f PLOA:60 EQU * - P CF A5,LD:RC - P ENB - 4 * P LD A3,ECBCW,A8 DATA SET LABEL SECTOR - @ P LDK A1,DWTDSS - n P CF A5,STDWT SAVE IN DWT - P ADK A4,BOE BOE ADDRESS - . P CF A5,LOGSEC TRANSFORM TO LOGICAL SECTOR - P LDK A1,DWTBOE -
0x0e40a0…0e4234 (0, 289) Dummy {f00=0x00da, f01=0x0190, f02=» - t P CF A5,LOGSEC . P LDK A1,DWTEOE . $ P CF A5,STDWT STORE EOE NO IN DWT . 4 P ADK A4,EOD-EOE EOD ADDRESS . P CF A5,LOGSEC . P CF A5,SETINH INHIBIT . P LDK A1,DWTEOD . $ P CF A5,STDWT STORE EOD NO IN DWT . P* . PLOA:70 EQU *
0x0e4234…0e43c8 Dummy {f00=0x00da, f01=0x0190, f02=»D:RC . P* / P EJECT DRFD01 / P* / . P* / 8 P IFF TOSS+IBM=0 / B P* / Z P* ERROR , UNLOCK / d P* / ~ PLOA:90 EQU * / P LDR A5,A6 / P ADKL A5,DWTSB2 STACK BASE / P LDK A2,/C UNLOCK / P CF A5,FD:REA / P RB LOA:
0x0e43c8…0e455c Dummy {f00=0x00da, f01=0x0190, f02=»WTRCW,A6 / P ANKL A3,/2007 FATAL ERROR 0 P RB(NZ) LOA:90 0 2 & P LDKL A4,BUF DRIVER BUFFER ADDRESS 0 H P RTN A5 0 r P XIF 0 P EJECT DRFD01 0 P* 0 P********** 0 P* * 0 P* UNLOAD * 0 P* * 0 P********** 0
0x0e455c…0e46f0 Dummy {f00=0x00da, f01=0x0190, f02=» A7,A7 EOD 0 P RF(Z) UNL:70 NOT OPEN 1 4 P ST A7,10,A8 STORE EOD-NO IN CONTROL WORD OF ECB 1 0 P* 1 h , P* READ DATA SET LABEL TO DRIVER BUFFER 1 r P* 1 P CF A5,DSLIO PREPARE FOR I/O 1 & P CF A5,FD:REA READ DATA SET LABEL 1 $ P CF A5,UNL:RC
0x0e46f0…0e4884 Dummy {f00=0x00da, f01=0x0190, f02=»C-CODED) 1 ` P* 2 P CF A5,DSOPCH EOD-NO TO A7 2 P* 2 < P* DIVIDE EOD BY 26 2 F P* 2 b P LDK A1,0 2 l PUNL:10 SUK A7,26 2 ~ P RF(N) UNL:20 2 P ADK A1,1 2 P RB UNL:10 2 PUNL:20 ADK A7,27 2 P* 2 P* A1 = BINARY TRACK
0x0e4884…0e4a18 Dummy {f00=0x00da, f01=0x0190, f02=» TO POS 79 2 v P SCR A3,A4 3 P SUK A4,1 3 $ P SRL A3,8 LEFT BYTE 3 6 P SCR A3,A4 STORE IN BUFFER 3 R P LDR A7,A1 TRACK 3 t ( P CF A5,BINDEC DEC EBCDIC-CODED IN A3 3 P SUK A4,3 3 P STR A3,A4 TRACK INTO BUF 3 P CF A5,SETINH INHIBIT 3
0x0e4a18…0e4bac Dummy {f00=0x00da, f01=0x0190, f02=»E WRITE DATA SET LEBEL 3 $ P CF A5,UNL:RC CHECK RETURN CODE 4 P CF A5,DSOPCH 4 F P CMR A2 INDICATE NOT OPEN 4 P* 4 ~ P* UNLOCK 4 P* 4 P XIF 4 PUNL:70 EQU * 4 P LDK A2,/C UNLOCK 4 P CF A5,FD:REA 4 P ORS A3,DWTRCW,A6
0x0e4bac…0e4d40 Dummy {f00=0x00da, f01=0x018e, f02=»LOCK IN DWT 4 t PUNL:80 EQU * 5 P RB LOA:75 END:IO 5 ( P IFF TOSS+IBM=0 5 B P* 5 Z P* UNLOAD RETURN CODE CHECK 5 d P* 5 PUNL:RC ORS A3,DWTRCW,A6 5 P ANK A3,/7 FATAL ERROR? 5 P RB(NZ) UNL:80 ENDIO 5 P RTN A5 5 P XIF 5
0x0e4d40…0e4ed4 (0, 290) Dummy {f00=0x00da, f01=0x0190, f02=» P* 6 PSQREAD EQU * 6 * P CF A5,DSOPCH GET EOD AND EOD ADDRESS 6 " P LDR A7,A7 EOD 6 P " PSQR:05 ABL(Z) DISIOE NOT OPEN 6 f . P ADK A2,DWTCRN-DWTEOD A2 = ADDRESS TO CRN 6 P LDR* A3,A2 CRN 6 P ADK A3,1 CRN+1 6 & P ST A3,ECBCW,A8 STORE CRN+
0x0e4ed4…0e5068 Dummy {f00=0x00da, f01=0x0190, f02=»REA READ SECTOR POINTED AT BY CRN+1 6 ( P LD A4,ECBBA,A8 USER BUFFER ADDRESS 7 , $ P LD A7,ECBRL,A8 REQUESTED LENGTH 7 X $ P CF A5,ASCII TRANSFORM TO ASCII 7 P LDK A1,DWTCRN 7 P CF A5,DSPAD 7 P RF SQW:10 UPDATE CRN 7 P* 7 P* END OF DA
0x0e5068…0e51fc Dummy {f00=0x00da, f01=0x0190, f02=» P* SEQUENTIAL WRITE * 8 P******************* 8 P* 8 < PSQWRIT EQU * 8 F P CF A5,DSOPCH GET EOD 8 Z P ADK A7,0 EOD-NO (SET CR) 8 x P RB(Z) SQR:05 NOT OPEN 8 P* 8 P* CHECK IF END OF EXTENT 8 P* 8 P LDK A1,DWTEOE 8 & P CF
0x0e51fc…0e5390 Dummy {f00=0x00da, f01=0x018e, f02=»F A5,BIO 8 P LDK A7,128 9 , P CF A5,EBCDIC TRANSFORM AND MOVE TO BUF 9 $ P ORK A2,5 PHYS. WRITE 9 T P CF A5,FD:WRI 9 r P CF A5,DSOPCH 9 PSQW:10 LDR A1,A3 RETURN CODE 9 P ANK A1,/1 9 P RF(NZ) SQW:15 NOT OPERABLE 9 * P IMR A2 EOD=EOD+
0x0e5390…0e5524 Dummy {f00=0x00da, f01=0x0190, f02=» P RF END:IO : P EJECT DRFD01 : P* : . P********** : 8 P* REWIND * : J P********** : P* : n PREWIND EQU * : x P CF A5,DSOPCH : P ADK A7,0 EOD (SET CR) : $ P RB(Z) SQR:05 DATA SET NOT OPEN : P LDR A3,A2 SAVE EOD ADDRESS :
0x0e5524…0e56b8 Dummy {f00=0x00da, f01=0x0190, f02=» P SUK A4,1 BOE - 1 ; P STR A4,A2 CRN = BOE -1 ; P LDK A1,0 RETURN CODE ; > P RF END:IO ; P XIF ; n P EJECT DRFD01 ; z P* ; P***************** ; P* * ; P* PERFORM ORDER * ; P* * ; P****
0x0e56b8…0e584c Dummy {f00=0x00da, f01=0x018e, f02=» A4 BUFFER ADDRESS ; P* < PFD:WRI EQU * < * P IFT CHAN=0 < > P LDKL A1,/C000 WORDS,WRITE < R P XIF < t P IFT CHAN=1 < ( P CM DWTRW,A6 INDICATOR TO WRITE MODE < P XIF < P RF FD:800 < P* < PFD:REA EQU * < P IFT CHAN=1
0x0e584c…0e59e0 Dummy {f00=0x00da, f01=0x0190, f02=» PFD:800 EQU * = P IFT CHAN=0 = " P SRL A3,1 FROM BYTES TO WORDS = , P* = R P IFT MMUPAG=1 = & P ORR* A1,A8 GET FIRST WORD OF ECB = r * P ANKL A1,/F000 KEEP FOUR LEFTMOST BITS = P XIF = P* = P IFT CHAN=0 = P ORR A3,A1 = PWE
0x0e59e0…0e5b74 (0, 291) Dummy {f00=0x00da, f01=0x0190, f02=» P* > . P* PUT BUFFER START AND END ADDRESS IN DWT > P* > @ P ST A4,DWTUB,A6 > J P ADR A3,A4 > b " P ST A3,DWTUBE,A6 END ADDRESS+2 > t P XIF > PFD:820 EQU * > & P ST A5,DWTA5,A6 SAVE STACK POINTER > $ PFD:CIO CIO A2,1,CUADR CIO-START >
0x0e5b74…0e5d08 Dummy {f00=0x00da, f01=0x0190, f02=» > P* ? * P************************************* ? * P* * ? @ * P* FD:RC - STORE EFF LEN, END:IO * ? n * P* * ? * P************************************* ? P* ? P* INP
0x0e5d08…0e5e9c Dummy {f00=0x00da, f01=0x0190, f02=»D A2,ECBRL,A8 REQ LENGTH ? P ST A2,ECBEL,A8 EFF LENGTH @ P EJECT DRFD01 @ B P* @ Z P********** @ d P* * @ v P* END:IO * @ P* * @ P********** @ P* @ PEND:IO EQU * @ P CF A15,TENDIO @ PT:DISP ABL TDISP @
0x0e5e9c…0e6030 Dummy {f00=0x00da, f01=0x018e, f02=»END:10 LDK A1,8 RETURN CODE @ P RB END:IO A $ P EJECT DRFD01 A 6 P* A N P******************** A X P* * A t P* RECOVERY ROUTINE * A P* * A P******************** A P* A PFDON EQU * A P IFT CPU
0x0e6030…0e61c4 Dummy {f00=0x00da, f01=0x0190, f02=» P XIF B P* B P LDKL A6,DWFD01 DWT ADDRESS B P* B > PFDON05 EQU * B H P IM DWTA2,A6 SET FDON FLAG B P LDKL A5,DWTSB2 B ~ P ADR A5,A6 GET STACK BASE B P* B P IFF DSKPAG+SWPBLK=0 B , P LD A2,INIFLG CHECK INITIALIZATION FLAG B
0x0e61c4…0e6358 Dummy {f00=0x00da, f01=0x0190, f02=»T FLEXIBLE DISC? B P LDR A3,A2 C . P CF A5,SETCIO DRIVE NR IN CIO INSTRUCTION C * ( P CF A5,FDIX GET DRIVE BIT INDICATOR C * P ORS A3,DWTLC,A6 INDICATE DRIVE LOCKED C P* C P EJECT DRFD01 C P* C P* C P C1R A3,A3 C * P ANS A3,DW
0x0e6358…0e64ec Dummy {f00=0x00da, f01=0x0190, f02=» P CF A5,FD:REA D P LD A3,SCTPLD D 0 P CF A5,VOLA05 GET VOLUME NAME ADDRESS IN DWT D 0 P LDK A1,2 D d P LDK A3,3 D v P* D P* MOVE VOLUME NAME TO DWT D P* D PFDON06 LD A4,BUF,A1 D P STR A4,A2 D P ADK A1,2 D P ADK A2,2
0x0e64ec…0e6680 Dummy {f00=0x00da, f01=0x0190, f02=» SAVE DWTST TO DWTST2 IF NOT ALREADY DONE. D P* DWTST IS SET BUSY E 2 P* E P P LD A2,DWTST2,A6 E Z P CWK A2,-1 E r P RF(NE) FDON08 ALREADY SAVED E P LD A2,DWTST,A6 E P ST A2,DWTST2,A6 E PFDON08 CM DWTST,A6 SET BUSY E P* E P I
0x0e6680…0e6814 (0, 292) Dummy {f00=0x00db, f01=0x0190, f02=»ER POINTER E | P RF(Z) FDON09 NOT RUNNING F P CMR A4 STOP TIMER F 4 $ P CM DWTTP2,A6 INDICATE NO TIMER F N PFDON09 EQU * F v P* F 6 P* OPEN FD TO MAKE FOLLOWING LOCK ORDER POSSIBLE F 2 P LDKL A4,SPDLCI OPEN/CLOSE STATUS WORD ADDRESS F P* F
0x0e6814…0e69a8 Dummy {f00=0x00db, f01=0x0190, f02=»ATUS WORD TO OPEN F ~ P* G P LDR* A2,A4 G $ & P OTR A2,0,SOPDA SET DRIVE TO OPEN G 8 P* G b P XIF G l P* G x P EJECT G P* G P* DELAY 2 SEC G P* G P LD A4,DWTTP,A6 G P RF(Z) FDON10 NO TIMER SET G P LDKL A4,-TIME G "
0x0e69a8…0e6b3c Dummy {f00=0x00db, f01=0x018e, f02=»5,SETIMP G P DATA FDON20,TIME H P RB T:DISP H * P* H < P* TIME OUT ROUTINE H F P* H b PFDON20 LDR A6,A1 H l P CM DWTTP,A6 H P LDKL A5,DWTSB2 H P ADR A5,A6 STACK BASE H P* H P* LOCK DOORS H P* H P LDK A2,1 H
0x0e6b3c…0e6cd0 Dummy {f00=0x00db, f01=0x0190, f02=» P* I P EJECT I P* I P* PUT DRIVE NO IN CIO INSTR I & P* I J P SRN A2,A3 DRIVE NO IN A3 I T * P CF A5,SETCIO PUT DRVE NO IN CIO-INSTR I v P LDK A2,/14 LOCK I P CF A5,FD:REA I P LD A2,DWTA3,A6 DRIVE IND. I P ANK A3,1 I P R
0x0e6cd0…0e6e64 Dummy {f00=0x00db, f01=0x018e, f02=» I P* J P IFT OPCLOS=1 J P* J ( D P* RESTORE OPEN/CLOSE STATUS TO SAME VALUE AS BEFORE POWER OFF J 2 $ P LD A2,DWTOCF,A6 OPEN/CLOSE FLAG J z " P ORS A2,SPDLCI TO STATUS WORD J P CM DWTOCF,A6 CLEAR FLAG J P* J $ P LD A2,SPDLCI OPEN/CLO
0x0e6e64…0e6ff8 Dummy {f00=0x00db, f01=0x018e, f02=» P* K P* ANY REQUEST? K P* K & . P* RESTORE STATUS SAVED IN DWST2 TO DWTST. K 0 P* SET DWTST2 TO -1 K b " P LD A2,DWTST2,A6 SAVED STATUS K ~ * P ST A2,DWTST,A6 PUT IN CUURENT STATUS K P LDKL A2,-1 K ( P ST A2,DWTST2,A6 INDICATE NOT SAVE
0x0e6ff8…0e718c Dummy {f00=0x00db, f01=0x0190, f02=» K b P* L P* RETRY REQUEST L P* L * P IM DWTRTY,A6 INDICATE RETRY L 4 P LD A7,DWTOR,A6 L X P ANK A7,/3F ORDER L p P LD A8,DWTECB,A6 ECB ADDRESS L P ABL FDAD REACTIVATE L P EJECT DRFD01 L P* L P********************* L
0x0e718c…0e7320 Dummy {f00=0x00db, f01=0x0190, f02=» EQU * L $ P ST P,INTSAV SAVE LAST INTERRUPT M " P******************** =1 START M 6 P IFT CPU852=1 M * P CF A15,SAVE8 SAVE REGISTERS ON STACK M r P XIF M P* M P IFT CPU852=0 M " P MSR 8,A15 SAVE A1-A8 ON STACK M P XIF M P* M P
0x0e7320…0e74b4 (0, 293) Dummy {f00=0x00db, f01=0x0190, f02=»FFER M v P SUR A2,A1 LENGTH N PIH005 EQU * N & P SST A3,CUADR GET STATUS N : " P RF(A) IH:000 READY INTERRUPT N Z ( P LD A3,DWTRW,A6 READ/WRITE INDICATOR N P RF(NZ) IH050 READ N P* N P EJECT DRFD01 N P* N P* N PIH010 EQU * N
0x0e74b4…0e7648 Dummy {f00=0x00db, f01=0x0190, f02=»WRITE N P RB(NA) IH005 O $ P ADK A1,2 UPDATE BUFFER POINTER O $ P SUK A2,2 O L P RB(P) IH010 O ^ P CIO A2,0,CUADR CIO HALT O r P ABL TDISP GOTO DISPATCHER O P* O PIH050 EQU * O P INR A3,0,CUADR READ O P RB(NA) IH005 O $ P SC
0x0e7648…0e77dc Dummy {f00=0x00db, f01=0x0190, f02=» A2,2 O P RB(P) IH050 P P CIO A2,0,CUADR CIO HALT P " P SST A3,CUADR STATUS =2 P B P RB(NA) *-2 =2 P b PIH:000 EQU * =1 P z P XIF P P* P P EJECT DRFD01 P P* P P* P P******************** =1 END P P IFT CHAN=0 =2 P
0x0e77dc…0e7970 Dummy {f00=0x00db, f01=0x0190, f02=»,A6 STACK POINTER P P SLL A3,1 Q P RF(N) FDRE READY INTERRUPT Q , P SRL A3,1 Q P P LD A2,DWTRTY,A6 RETRY? Q b P RF(Z) IH:10 NO Q " P CM DWTRTY,A6 RESET RETRY FLAG Q P LDR A1,A3 Q P ANKL A1,/0405 Q P RF(Z) IH:10 RETURN CODE OK Q
0x0e7970…0e7b04 Dummy {f00=0x00db, f01=0x0190, f02=» CU - ECB Q x P* R P ANKL A3,/FF37 R P RF(Z) IH:80 R 2 P LDR A1,A3 R F " P ANKL A3,/0A05 UNCHANGED BITS R X P LDR A4,A1 R ~ P ANKL A4,/0400 BIT 5 R P SLC A4,7 TO BIT 14 R P ORR A3,A4 R P IFT TOSS+IBM=0 R P LDR A4,A1 R P ANK
0x0e7b04…0e7c98 Dummy {f00=0x00db, f01=0x0190, f02=» BIT 7 R P ORR A3,A4 S P ANK A1,/10 BIT 11 S P SRC A1,5 TO BIT 0 S : P ORR A3,A1 S T PIH:80 EQU * S f P IFT CHAN=1 =1 S z P INH =1 S P XIF =1 S P RTN A5 S P EJECT DRFD01 S P* S P******************** S P*
0x0e7c98…0e7e2c Dummy {f00=0x00db, f01=0x0190, f02=»,DWTA2,A6 S , P ABL(NZ) T:DISP POWER ON ROUTINE ACTIVE T P LDKL A5,DWTSB2 T B P ADR A5,A6 STACK BASE T Z P RB FDON60 T x P EJECT DRFD01 T P* T 0 P******************************************* T 0 P*
0x0e7e2c…0e7fc0 Dummy {f00=0x00db, f01=0x0190, f02=»*********************** T | P* U P******* U * P* * U : P* BIO * U J P* * U Z P******* U j P* U z P* U P* INPUT: A8 ECB ADDRESS U P* U > P* OUTPUT: A2 BITS 0-12 OF CONTROL WORD USED BY CIO START U 0 P* A
0x0e7fc0…0e8154 (0, 294) Dummy {f00=0x00db, f01=0x0190, f02=»10 U PBIO:RE LDK A4,1 V PBIO010 EQU * V " P LD A3,ECBRL,A8 REQ LEN V 6 P RF(N) BIOERR ILLEGAL LENGTH V V P IFT TOSS+IBM=2 V z P LD A2,DWTLAB,A6 V P AN A2,DWTA3,A6 V P RF(Z) BIO020 TOSS DISC V P XIF V P IFT IBM=1 V P LDK A7,
0x0e8154…0e82e8 Dummy {f00=0x00db, f01=0x0190, f02=»LEN V ~ P LDK A2,3 W PBIO030 EQU * W P XIF W 2 P IFF TOSS+IBM=0 W > P ADK A4,0 SET CR W V P RF(Z) BIO060 WRITE W n P LDK A2,0 W P LDR A1,A3 REQ LEN W & P CWR A3,A7 REQ LENGTH WITHIN RANGE W P RF(G) BIOERR NO W PBIO040 SUK A1,12
0x0e82e8…0e847c Dummy {f00=0x00db, f01=0x018e, f02=»* W PBIO060 CWR A3,A7 X " P RF(NE) BIOERR ILLEGAL REQ LEN X " P XIF X H P IFT TOSS+IBM=0 X T P* X l > P* FIND NO OF SECTORS TO BE READ/WRITTEN, CHECK REQ LENGTH X v P* X P LDR A1,A3 REQ LENGTH X P LDK A2,0 NO OF SECTORS-1 X $ PBIO015
0x0e847c…0e8610 Dummy {f00=0x00db, f01=0x0190, f02=» P* Y PBIO035 SUK A1,128 Y & P RF(NP) BIO100 REQ LENGTH ACCEPTED Y ( PBIO045 ADK A2,1 Y R P CWK A2,3 Y j P RB(NG) BIO015 Y | $ P RF BIOERR REQ LEN OUTSIDE RANGE Y P XIF Y P* Y 6 PBIO100 SRC A2,2 SHIFT NO OF SECTORS-1 INTO POS 0-1 Y
0x0e8610…0e87a4 Dummy {f00=0x00db, f01=0x0190, f02=»SECTOR NO Y P RF(N) BIOER2 OUTSIDE RANGE Z P IFT TOSS+IBM=2 Z 6 P ANK A7,/A Z N P RF(Z) BIO110 IBM DISC Z ` P XIF Z ~ P IFT TOSS=1 Z P CWK A1,499 Z P RF(G) BIOER2 OUT OF RANGE Z , P SLL A1,2 MULTIPLY BY 4TO GET DM SECTOR Z P XIF
0x0e87a4…0e8938 Dummy {f00=0x00db, f01=0x0190, f02=» P XIF [ P IFT TOSS+IBM=0 [ ( P CWK A1,2001 SECTOR NO OUT OF RANGE [ ( P RF(G) BIOER2 YES! [ T P XIF [ n PBIO120 EQU * [ z P SLL A1,3 [ P ORR A2,A1 [ " P LD A4,ECBBA,A8 BUFFER ADDRESS [ P LDR A1,A3 REQ LENGTH [ P ANK A1,1 [ $ P
0x0e8938…0e8acc Dummy {f00=0x00db, f01=0x0190, f02=» PBIOERR ABL END:10 P* ILLEGAL SECTOR NO PBIOER2 ABL FD:DIS < P* V P EJECT DRFD01 ` P* x P********* P* * P* FDIX * P* * P********* P* P* INPUT: A2 X P*
0x0e8acc…0e8c60 Dummy {f00=0x00db, f01=0x018e, f02=»LL A3,1 P SUK A2,1 ] P RB FDIX10 ] " PFDIX20 RTN A5 ] 4 P EJECT DRFD01 ] J P IFF TOSS+IBM=0 ] b P****************** ] z P* * ] P* VOLADR * ] P* * ] P****************** ] P* ] P*
0x0e8c60…0e8df4 (0, 295) Dummy {f00=0x00db, f01=0x0190, f02=» ] P LC A3,DWTOR,A6 DRIVE NO ^ PVOLA05 EQU * ^ ( P LDK A2,DWTVO0 ^ < P ADR A2,A6 ^ R P ANK A3,/3 ^ d PVOLA10 EQU * ^ v P RF(Z) VOLA20 ^ P ADK A2,6 UPDATE ADDRESS ^ P SUK A3,1 ^ P RB VOLA10 ^ PVOLA20 RTN A5 ^ P XIF ^ P ^
0x0e8df4…0e8f88 Dummy {f00=0x00db, f01=0x0190, f02=»ASCII TRANSFORMS A STRING FROM EBCDIC TO ^ P* ASCII CODE _ 0 . P* INPUT STRING ADDRESS IS BUF _ P & P* INPUT: A7 NO OF CHARACTERS _ , P* A4 OUTPUT STRING ADDRESS _ P* OUTPUT: A1 CHANGED _ P*
0x0e8f88…0e911c Dummy {f00=0x00db, f01=0x0190, f02=»C:10 SUK A7,1 _ P RF(N) ASC:20 ` P SUK A4,1 ` , " P LC A1,BUF,A7 GET EBCDIC CHAR ` > ( P LC A1,TASCII,A1 TRANSFORM TO ASCII ` d 0 P SCR A1,A4 PUT ASCII CHAR. IN OUTPUT BUFFER ` P RB ASC:10 ` PASC:20 EQU * ` " P RF EBC:90 SET INH AND RETURN
0x0e911c…0e92b0 Dummy {f00=0x00db, f01=0x018e, f02=»ES A STRING FROM ASCII TO ` r P* EBCDIC CODE a " 8 P* OUTPUT STRING IS PUT IN DRIVER BUFFER a D P* a & P* INPUT: A7 NO OF CHARACTERS a * P* A4 INPUT STRING ADDRESS a P* a P* OUTPUT: A1 CHANGED a
0x0e92b0…0e9444 Dummy {f00=0x00db, f01=0x0190, f02=» P LDK A1,0 b PEBC:10 SUK A7,1 b P RF(N) EBC:80 b . P SUK A4,1 b D P LCR A1,A4 GET ASCII CHAR. b V P LC A1,TEBCDIC,A1 b x P SC A1,BUF,A7 b P RB EBC:10 b PEBC:80 EQU * b P LDKL A4,BUF b PEBC:90 EQU * b P CF A5,SETINH b
0x0e9444…0e95d8 Dummy {f00=0x00db, f01=0x0190, f02=»EC TRANSFORMS PHYSICAL SECTOR TO STANDARD b ~ , P* LOGICAL SECTOR (BINARY). c 2 < P* FORMAT OF PHYS. SEC. TT0SS (EBCDIC CODE) c b * P* TT = TRACK, SS=SECTOR c P* c , P* INPUT: A4 ADDRESS TO PHYS. SECTOR c
0x0e95d8…0e976c Dummy {f00=0x00db, f01=0x0190, f02=»F A5,DECBIN c P LDR A3,A1 SAVE d P ADK A4,2 d , P* d > P* MULTIPLY BY 26 d H P* d b P SLL A3,5 *32 d l P LDR A2,A1 d P SLL A2,2 d P SUR A3,A2 *28 d P SLL A1,1 d P SUR A3,A1 *26 d P CF A5,DECBIN d P SUK A1,1 d
0x0e976c…0e9900 Dummy {f00=0x00db, f01=0x0190, f02=»F+EOD+4 EOD? d P RF(E) LOG:02 YES! e P SUKL A1,1898 e . P RF LOG:04 e D P* e V " P* CHECK EOD LESS/EQUAL 74001 e ` P* e PLOG:02 SUKL A1,1899 e PLOG:04 EQU * e " P RF(P) LOG:10 NOT ACC SEC. NO e " P SUK A4,4 RESET BUFFER POINTER e
0x0e9900…0e9a94 (0, 296) Dummy {f00=0x00dc, f01=0x0190, f02=»DE e r P ORS A1,DWTRCW,A6 f P CF A5,SETINH f $ P ABL LOA:90 ERROR ROUTINE f : P* f P EJECT DRFD01 f f P* f ~ P********** f P* DECBIN* f P********** f P* f > P* FUNCTION: DECBIN TRANSFORMS TWO EBCDIC CODED DIGITS TO f D
0x0e9a94…0e9c28 Dummy {f00=0x00dc, f01=0x0190, f02=» BINARY f P* WORKING REG: A2,A7 g P* g 0 PDECBIN LDK A1,0 g : P LDK A7,2 g R PDEC:10 LCR A2,A4 DIGIT g d P ANK A2,/FF g P SUK A2,/F0 g P RB(N) LOG:05 g P SUK A2,9 g P RB(P) LOG:05 NOT DIGIT g P ADK A2,9 g P SUK
0x0e9c28…0e9dbc Dummy {f00=0x00dc, f01=0x0190, f02=»DK A1,/A MULTIPLY BY 10 g P RB DEC:20 h PDEC:30 ADR A1,A2 h 2 P RTN A5 h J P XIF h Z P EJECT DRFD01 h f P* h ~ P********** h P* SETCIO * h P********** h P* h 2 P* FUNCTION: PUT DRIVE NO IN CIO INSTRUCTION h P* h 8 P
0x0e9dbc…0e9f50 Dummy {f00=0x00dc, f01=0x0190, f02=» PSETCIO LDKL A4,/FFCF i P ANS A4,FD:CIO i P SLL A3,4 i 6 P ORS A3,FD:CIO i H P RTN A5 i ^ P IFT IBM=1 i n P EJECT DRFD01 i P* i P********** i P* BINDEC * i P********** i P* i : P* FUNCTION: BINDEC TRANSFORMS A BINA
0x0e9f50…0ea0e4 Dummy {f00=0x00dc, f01=0x0190, f02=»UTPUT: A3 EBCDIC CODED DECIMAL DIGITS i P* A7 CHANGED j . P* j L PBINDEC LDK A3,0 j V PBIN:10 SUK A7,10 j n P RF(N) BIN:20 j P ADK A3,1 j P RB BIN:10 j PBIN:20 ADK A7,10 j P SLL A3,8 j * P ORR A3,A7 DECIMAL CONVERTED N
0x0ea0e4…0ea278 Dummy {f00=0x00dc, f01=0x0190, f02=»* j P* k 4 P* FUNCTION: PREPARE FOR READING DATA SET LABEL k P* k L P* INPUT: A6 DWT ADDRESS k V P* k x : P* OUTPUT: A2 BITS 0-12 SECTOR NO, BITS 13-15 ZEROES k P* A3 128 k ( P* A4 DRIVER BUFFER ADDRESS k P
0x0ea278…0ea40c Dummy {f00=0x00dc, f01=0x018e, f02=»2 k P SLL A2,3 l P LDK A3,128 l P LDKL A4,BUF l 0 P RTN A5 l D P EJECT DRFD01 l T P* l l P********** l v P* DSOPCH * l P********** l P* l 6 P* FUNCTION: GET EOD-NO AND EOD-NO ADDRESS IN DWT l P* l P* INPUT: A6
0x0ea40c…0ea5a0 Dummy {f00=0x00dc, f01=0x0190, f02=» l x PDSOPCH LDK A1,DWTEOD m P CF A5,DSPAD m $ P LDR* A7,A2 EOD-NO m 8 P RTN A5 m R P EJECT DRFD01 m b P* m z P********* m P* DSPAD * m P********* m P* m 2 P* FUNCTION: GET ABSOLUTE ADDRESS OF SPECIFIED m 6 P* T
0x0ea5a0…0ea734 (0, 297) Dummy {f00=0x00dc, f01=0x0190, f02=»UTPUT: A2 ADDRESS TO DATA m P* A6 DWT ADDRESS n " P* n D " PDSPAD LC A2,DWTOR,A6 DRIVE NO n N P ANK A2,/3 n t P ADR A2,A2 n P ADR A2,A6 n P ADR A2,A1 n P RTN A5 n P EJECT DRFD01 n P* n P********* n P* STDWT
0x0ea734…0ea8c8 Dummy {f00=0x00dc, f01=0x018e, f02=» ( P* INPUT: A1 OFFSET TO DWT AREA o . P* A3 WORD TO BE STORED IN DWT o 0 P* A6 DWT ADDRESS o b P* o P* OUTPUT: A1 UNCHANGED o 0 P* A2 ADDRESS TO WORD IN DWT AREA o P* A3 UNCHANGED o P
0x0ea8c8…0eaa5c Dummy {f00=0x00dc, f01=0x018e, f02=» o ~ P* p P********** p P* SETINH * p $ P********** p 6 P* p H @ P* FUNCTION: INHIBIT INTERRUPTS, IF FDON ROUTINE IS ACTIVE p R > P* ESCAPE VIA DISPATCHER ELSE RESET DWTENB AND p P* RETURN p P* p " P* INPUT:
0x0eaa5c…0eabf0 Dummy {f00=0x00dc, f01=0x0190, f02=» p | PSET:10 RTN A5 q P XIF q P* q * " P* D R I V E R B U F F E R q 4 PBUF DATA 0,0,0,0 q Z P* q r P IFT IBM=1 q | P RES 60 q P XIF q P* q P EJECT DRFD01 q P* q P********************* q P*
0x0eabf0…0ead84 Dummy {f00=0x00dc, f01=0x0190, f02=»0 q P DATA /8000 DWT STATUS r P DATA 0 ECB ADDRESS r ( P DATA 0 ORDER r D " P DATA FDADR ACTIVATION ADDRESS r Z P DATA 0 TTAB-ADDRESS r $ P DATA 0 WAIT/ACTIVATE INDICATOR r P DATA 0 TERMINAL QUEUE r P* r IFT MMUPAG=1 r & " DATA
0x0ead84…0eaf18 Dummy {f00=0x00dc, f01=0x0190, f02=» DATA 0 r P DATA 0 s P DATA 0,0,0,0 STACK s ( PDWTST2 EQU *-DWFD01 SAVE STATUS WORD s < P DATA -1 s h * PDWTRTY EQU *-DWFD01 RETRY REQUEST FLAG s x P DATA 0 s $ PDWTTP EQU *-DWFD01 TIMER POINTER s P DATA 0 s ( PDWTRCW EQU *-DWFD01 TEMP R
0x0eaf18…0eb0ac Dummy {f00=0x00dc, f01=0x0190, f02=»R s j P DATA 0 t ( PDWTVO0 EQU *-DWFD01 VOLUME NAME NO 0 t P DATA 0,0,0 t F ( PDWTVO1 EQU *-DWFD01 VOLUME NAME NO 1 t Z P DATA 0,0,0 t ( PDWTVO2 EQU *-DWFD01 VOLUME NAME NO 2 t P DATA 0,0,0 t ( PDWTVO3 EQU *-DWFD01 VOLUME NAME NO 3 t P D
0x0eb0ac…0eb240 Dummy {f00=0x00dc, f01=0x0190, f02=» FLAG AT POWER ON t r P DATA 0 u P XIF u * P* u 6 P IFT CHAN=1 u @ 6 PDWTUB EQU *-DWFD01 POINTER AT NEXT WORD IN BUFFER u T P DATA 0 u , PDWTUBE EQU *-DWFD01 BUFFER END ADDRESS+2 u P DATA 0 u , PDWTRW EQU *-DWFD01 READ/WRITE INDICATOR u
0x0eb240…0eb3d4 (0, 298) Dummy {f00=0x00dc, f01=0x0190, f02=»OD EQU *-DWFD01 END OF DATA u P DATA 0,0,0,0 v $ & PDWTEOE EQU *-DWFD01 END OF EXTENT v : P DATA 0,0,0,0 v d * PDWTCRN EQU *-DWFD01 CURRENT RECORD NO v z P DATA 0,0,0,0 v . PDWTDSS EQU *-DWFD01 DATA SET LABEL SECTOR v P DATA 0,0,0,0 v P X
0x0eb3d4…0eb568 Dummy {f00=0x00dc, f01=0x0190, f02=»PHYSICAL BUFFER ADDRESS v P DATA 0 SECOND MMU ENTRY w P* w @ PDWT:LA EQU *-DWFD01 w J * P DATA 0 16 BIT LOGICAL BUFFER ADDRESS w f P* w PDWT:BF EQU *-DWFD01 w $ P DATA 0 SAVE AREA BUFFER ADDRESS w P XIF w P* w P IFT MMUPAG=1 w
0x0eb568…0eb6fc Dummy {f00=0x00dc, f01=0x4098, f02=» w | P XIF x P* x P IFT MMUPAG=1 x P IFT DEVIND=4 x 4 PFD:BUF EQU 0 x J P XIF x ^ P* x j P* x t P* x ~ P END x @ x PDWT:BF EQU *-DWFD01 w $ P DATA 0 SAVE AREA BUFFER ADDRESS w P XIF w P* w P IFT MMUPAG=1 w
0x0eb6fc…0eb890 Dummy {f00=0x00dc, f01=0x2008, f02=» y END @
0x0eb890…0eba24 Dummy {f00=0x00dc, 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
0x0eba24…0ebbb8 Dummy {f00=0x00dc, f01=0x0190, f02=» ABC-LV LRC O VRC ERROR IN BLOCK D = 0 C = E R 8 P* DRD DATA REQUEST DELAYED D # 0 C = 0 S 8 F P* LOCAL CHAR. MAY BE DIFFERENT FROM ZERO S t 8 P* STD STATUS MESSAGE D # 0 C # 0 S 2 P* DIN
0x0ebbb8…0ebd4c Dummy {f00=0x00dc, f01=0x0190, f02=» PCHLT1 EQU * T P* T $ P ST P,INTSAV SAVE LAST INTERRUPT T " P* T J P IFT CPU852=1 T T & P CF A15,SAVE8 SAVE A1-A8 ON STACK T j P XIF T P* T P IFT CPU852=0 T " P MSR 8,A15 SAVE A1-A8 ON STACK T P XIF T P* T P LDK A7,2 IN
0x0ebd4c…0ebee0 Dummy {f00=0x00dc, f01=0x0190, f02=» P* INTERRUPT FROM CHLT2 U P* U & P IFT LOCHAN=2 U 0 $ P ST P,INTSAV SAVE LAST INTERRUPT U F P* U n P IFT CPU852=1 U x & P CF A15,SAVE8 SAVE A1-A8 ON STACK U P XIF U P* U P IFT LOCHAN=2 U P IFT CPU852=0 U " P MSR 8,A15 SAV
0x0ebee0…0ec074 (0, 299) Opaque[0x194]
0x0ec074…0ec208 # DirEnt {nam=»DRIC01«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x1b98, f03=0x0000}
0x0ec074…0ec208 IdxSect {
0x0ec074…0ec208 f00 = 0x00dc // 0xec074 @0x0
0x0ec074…0ec208 f01 = 0x000a // 0xec076 @0x2
0x0ec074…0ec208 gno = [ // 0xec078 @0x4
0x0ec074…0ec208 [0x00]: C0x00dc.0x3.0
0x0ec074…0ec208 [0x01]: C0x00dd.0x0.0
0x0ec074…0ec208 [0x02]: C0x00dd.0x3.0
0x0ec074…0ec208 [0x03]: C0x00de.0x0.0
0x0ec074…0ec208 [0x04]: C0x00de.0x1.0
0x0ec074…0ec208 ]
0x0ec074…0ec208 }
0x0ec208…0ec39c Dummy {f00=0x00dc, f01=0x0190, f02=» 2 P IDENT DRIC01 9.2DK 0 80-01-02 870105040920 P : P =DK0, MMU BUF SIZE B P 80-03-11 ` P* t P* ~ 2 P********************************************** P* $ P* PHILIPS TERMINAL SYSTEM PTS P* 0 P* DRIC01 = I
0x0ec39c…0ec530 Dummy {f00=0x00dc, f01=0x0190, f02=»******** j P* 8 P* THIS MODULE HANDLES THE INTERTASK COMMUNICATION P* V P EJECT DRIC01 ` P* x P* ORDERS: P* P* /02 READ, NOT ADDRESSED " P* /06 WRITE, NOT ADDRESSED P* /0A READ, ADDRESSED
0x0ec530…0ec6c4 Dummy {f00=0x00dc, f01=0x018e, f02=» z P* A6 DWT ADDRESS P* A7 ORDER CODE $ P* A8 ECB ADDRESS @ , P* A12 ADDRESS TO DRIVER ADDRESS BLOCK P* P EJECT DRIC01 P* P* P*********** P* ENTRIES * P*********** P* P
0x0ec6c4…0ec858 Dummy {f00=0x00dc, f01=0x0190, f02=» b 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
0x0ec858…0ec9ec Dummy {f00=0x00dc, f01=0x0190, f02=»T TTAB ADDRESS & P EXTRN DWTSB1 STACK BASE 1 IN DWT & P EXTRN BUFLEN DRIVER BUFFER LENGTH @ P EXTRN SETIMP TIMER j , P EXTRN FNDTID FIND TTAB ADDRESS FROM TID P EXTRN TTB:ST TASK STATUS " P EXTRN TTB:TD TERMINAL DEVICES 4 P EXTRN IHR
0x0ec9ec…0ecb80 Dummy {f00=0x00dc, f01=0x0190, f02=»CBEL ECB EFFECTIVE LENGTH P EXTRN ECBRC ECB RETURN CODE " " P EXTRN ECBCW ECB CONTROL WORD F P EJECT DRIC01 TOSSIO l P* P* . P***************************************** P* P* CONDITIONAL ASSEMBLY P* . P****
0x0ecb80…0ecd14 (0, 300) Dummy {f00=0x00dd, f01=0x018e, f02=»G EQU 1. r P* PMMUPAG EQU 1 P* . 6 P* A PROGRAM VERSION USING THE EXTENDED INSTRUCTION 8 . P* SET IS OBTAINED BY SETTING CPU852 EQU 0. r P* PCPU852 EQU 0 P* P* MMU BUFFER SIZE P* PX:A EQU 50 PX:Q EQ
0x0ecd14…0ecea8 Dummy {f00=0x00dd, f01=0x0190, f02=» P* P EJECT DRIC01 P* * P* 4 P********************* > P* DWT DISPLACEMENTS * P********************* z P* P* 0 PDWTDRD EQU /10 START OF DRIVER DEFINED PART P* P IFT MMUPAG=0 PSTART EQ
0x0ecea8…0ed03c Dummy {f00=0x00dd, f01=0x0190, f02=»INTER t PDWTIME EQU START+/02 TIME 6 PDWTANC EQU START+/04 POINTER TO FIRST DWT IN QUEUE 0 . PDWTQUE EQU START+/06 QUEUE ANCHOR ADDRESS j P* P EJECT DRIC01 P* P* P***************** P* ADDRESS BLOCK * P**
0x0ed03c…0ed1d0 Dummy {f00=0x00dd, f01=0x018e, f02=» DATA ICAD ACTIVATION ADDRESS P DATA ITABRT ABORT ADDRESS & P* H P* R 6 PRD:QUE DATA 0 QUEUE ANCHOR NOT ADDRESSED READ REQ. 8 PWR:QUE DATA 0 QUEUE ANCHOR NOT ADDRESSED WRITE REQ. P* $ P* INTERTASK DRIVER BUFFER (MMU) P*
0x0ed1d0…0ed364 Dummy {f00=0x00dd, f01=0x0190, f02=» P* A C T I V A T I O N P* " PICAD EQU * , P LDR A1,A7 ORDER CODE TO A1 > P SUK A1,2 b & P RF(Z) RD:NAD READ NOT ADDRESSED? t P SUK A1,4 ( P ABL(Z) WR:NAD WRITE NOT ADDRESSED? P SUK A1,4 " P RF(Z) RD:ADR READ ADDRESS
0x0ed364…0ed4f8 Dummy {f00=0x00dd, f01=0x0190, f02=»* S E T T I M E O U T P* " P LD A2,ECBCW,A8 GET TIME , P ST A2,DWTIME,A6 L P RF END:IO d P* v P EJECT DRIC01 P* P* R E A D, A D D R E S S E D P* " P* W R I T E, A D D R E S S E D P* PRD:ADR E
0x0ed4f8…0ed68c Dummy {f00=0x00dd, f01=0x0190, f02=»CW,A8 TID & P CF A15,FNDTID TTAB ADDRESS TO A2 P ADK A2,0 SET CR < P RF(Z) DIS:OE NOT FOUND? T P CW A2,DWTTAB,A6 t P RF(E) DIS:OE ILLEGAL TID? 4 P ADKL A2,TTB:TD ADDRESS TO TERMINAL DEVICE TABLE P LDR* A1,A2 TABLE LENGTH $ P L
0x0ed68c…0ed820 Dummy {f00=0x00dd, f01=0x0190, f02=» $ P* FIND DWT OF ADDRESSED TASK P* , 0 PADR:20 ADK A2,4 ADDRESS TO NEXT DWT ADDRESS 6 P SUK A1,4 j P RF(N) DIS:OE NOT FOUND? | P* P LDR* A4,A2 DWT ADDRESS " P CW A7,DWTADR,A4 SEARCHED DWT? P RB(NE) ADR:20 NO, TRY NEXT
0x0ed820…0ed9b4 (0, 301) Dummy {f00=0x00dd, f01=0x0190, f02=»NCHOR ADDRESS t " P CWR A1,A6 CHECK QUEUE ANCHOR 0 P RF(E) ADR:30 REQUEST ISSUED FOR THIS TASK? < P* p P ANK A7,1 z P RF(Z) ADR:25 READ? P CWK A1,RD:QUE ( P RF(E) ADR:30 COMPLEMENTARY REQUEST? P RF ADR:50 NO P*
0x0ed9b4…0edb48 Dummy {f00=0x00dd, f01=0x0190, f02=» ABORT TIMER IF ANY P* > PADR:30 CF A15,ITAB05 ABORT TIMER AND REMOVE DWT FROM QUEUE & P ANK A7,1 h P RF(Z) RD:N05 READ? z P* P* MOVE BUFFER P* PADR:35 EQU * " P LDKL A5,DWTSB1 GET STACK BASE P ADR A5,A6
0x0edb48…0edcdc Dummy {f00=0x00dd, f01=0x0190, f02=»G BUFFER ADDRESS v P ANK A3,1 & P RF(Z) ADR:38 BUFFER ADDRESS EVEN? * : P ORS A3,ECBBA,A9 MAKE RECEIVING BUFFER ADDRESS UNEVEN T P RF END:IO P* PADR:38 EQU * P SUK A3,2 A3 := /FFFE 8 P ANS A3,ECBBA,A9 MAKE RECEIVING BUFFER A
0x0edcdc…0ede70 Dummy {f00=0x00dd, f01=0x0190, f02=»C01 P* P* OUEUE REQUEST P* . . PADR:40 LDK A7,0 INDICATE ADDRESSED REQUEST 8 P* j PADR:50 EQU * t P LD A3,DWTIME,A6 TIME P RF(Z) TWR:30 P ADK A3,1 $ P RF(Z) ADR:70 NO TIMING WANTED? P SUK A3,1 P
0x0ede70…0ee004 Dummy {f00=0x00dd, f01=0x0190, f02=»NTER | P ST A3,TIME P CF A15,SETIMP SET TIMER P DATA TIMOUT TIMEOUT ADDRESS @ PTIME DATA 0 d P* x P EJECT DRIC01 P* ( P* INSERT IN QUEUE WITHIN PRIORITY P* PADR:70 EQU * . P ST A2,DWTQUE,A6 STORE QUE
0x0ee004…0ee198 Dummy {f00=0x00dd, f01=0x0190, f02=»SED REQUEST? x : P ADK A2,DWTANC POINT TO ADDRESS OF FIRST DWT IN QUEUE P* R PADR:80 LDR A4,A2 SAVE P LDR* A2,A2 NEXT IN QUEUE z P RF(Z) ADR:90 END FOUND? " P LD A5,DWTTAB,A2 TTAB ADDRESS & P CC A1,TTB:ST+1,A5 COMPARE LEVELS
0x0ee198…0ee32c Dummy {f00=0x00dd, f01=0x0190, f02=»IOE REQUEST ERROR P* P EJECT DRIC01 $ P* < ( P* R E A D, N O T A D D R E S S E D F P* r $ PRD:NAD EQU * READ, NOT ADDRESSED | < P LD A2,DWTANC,A6 CHECK QUEUE OF ADDRESSED WRITE REQUESTS & P RF(NZ) RD:N10 ANYTHING IN QUEUE?
0x0ee32c…0ee4c0 Dummy {f00=0x00dd, f01=0x0190, f02=» n & P ST A3,WR:QUE UPDATE QUEUE ANCHOR P* 2 PRD:N00 EQU * < & P CF A15,ABTIM2 ABORT TIMER IF ANY P P* z PRD:N05 EQU * " P LDR A4,A6 EXCHANGE A2 AND A6 P LDR A6,A2 P LDR A2,A4 P RB ADR:35 P* ( PRD:N10 LDR
0x0ee4c0…0ee654 (0, 302) Dummy {f00=0x00de, f01=0x0190, f02=»UE ADDRESS r P RB ADR:50 INSERT IN QUEUE P* 4 P EJECT DRIC01 > P* V * P* W R I T E, N O T A D D R E S S E D ` P* & PWR:NAD EQU * WRITE, NOT ADDRESSED < P LD A2,DWTANC,A6 CHECK QUEUE OF ADDRESSED READ REQUESTS & P RF(NZ
0x0ee654…0ee7e8 Dummy {f00=0x00de, f01=0x0190, f02=»A3,A2 NO, REMOVE FROM QUEUE & P ST A3,RD:QUE UPDATE QUEUE ANCHOR $ P* N , PWR:N05 CF A15,ABTIM2 ABORT TIMER IF ANY X P RB ADR:35 P* ( PWR:N10 LDR* A3,A2 REMOVE FROM QUEUE ( P ST A3,DWTANC,A6 UPDATE QUEUE ANCHOR P RB WR:N05
0x0ee7e8…0ee97c Dummy {f00=0x00de, f01=0x0190, f02=»O U T P* PTIMOUT LDR A6,A1 DWT ADDRESS " P CM* 0,A2 RESET TIMER POINTER < P LDR A2,A6 b $ P CF A15,ITAB10 REMOVE FROM QUEUE t P* PTWR:30 EQU * P CMR A6 RESET QUEUE LINK P LDK A1,/40 RETURN CODE P RB END:IO
0x0ee97c…0eeb10 Dummy {f00=0x00de, f01=0x0190, f02=»WILL UPDATE QUEUE AND ABORT TIMER (IF ANY). P* 4 P* INPUT: A6 = DWT ADDRESS > P* b " P* OUTPUT: A1-A4 ARE DESTROYED l P* PITABRT EQU * P LDR A2,A6 P* PITAB05 EQU * P CF A15,ABTIM ABORT TIMER P*
0x0eeb10…0eeca4 Dummy {f00=0x00de, f01=0x0190, f02=» ITAB20 NOT-ADDRESSED READ REQUEST? P CWK A1,WR:QUE , . P RF(E) ITAB20 NOT-ADDRESSED WRITE REQUEST? B : P ADK A1,DWTANC POINT TO ADDRESS OF FIRST DWT IN QUEUE t P* P EJECT DRIC01 P* P* PITAB20 LDR A4,A1 SAVE P L
0x0eeca4…0eee38 Dummy {f00=0x00de, f01=0x0190, f02=»A4 UPDATE QUEUE LINKS P CMR A2 RESET QUEUE LINK P* > P IFT CPU852=1 H P RF IH:RTN ^ P XIF p P* | P IFT CPU852=0 P RTN A15 P XIF P* P EJECT DRIC01 P* P* A B T I M P* . P* SUB
0x0eee38…0eefcc Dummy {f00=0x00de, f01=0x0190, f02=» P* PABTIM2 EQU * P CMR A2 RESET QUEUE LINK " P* B PABTIM LDK A1,DWTTP L $ P ADR A1,A2 TIMER POINTER ADDRESS f P LDR* A3,A1 " P RF(Z) IH:RTN NO TIMER ACTIVE? P CM* 0,A1 " P CMR A1 INDICATE NO TIMER SET P*
0x0eefcc…0ef160 Dummy {f00=0x00de, f01=0x018e, f02=» EJECT DRIC01 P* P* M O V B U F " P* 8 4 P* SUBROUTINE TO MOVE BUFFER FROM SENDING TASK B P* TO ADDRESSED TASK. z > P* EFFECTIVE LENGTH IN BOTH INPUT AND OUTPUT ECB ARE SET. B P* A1 WILL CONTAIN RETURN CODE /8 IF SENDING
0x0ef160…0ef2f4 (0, 303) Dummy {f00=0x00de, f01=0x0190, f02=» X P* P* INPUT PARAMETERS: P* A2 RECEIVING DWT 0 P* A5 STACK POINTER N P* A6 SENDING DWT l P* P* REGISTER USAGE: P* A1 RETURN CODE P* A2 DWT RECEIVING TASK P* A3 WORKING REGISTER
0x0ef2f4…0ef488 Dummy {f00=0x00de, f01=0x0190, f02=» A8 ECB ADDRESS SENDING TASK & P* A9 ECB ADDRESS RECEIVING TASK & P* P PMOVBUF EQU * Z P LD A8,DWTECB,A6 SENDING ECB n $ P ENB GIVE OTHER TASKS A CHANCE P* P EJECT DRIC01 P* P* P LDK A1,0 " P LD A9
0x0ef488…0ef61c Dummy {f00=0x00de, f01=0x0190, f02=»V:05 , P LDK A1,8 RETURN CODE (INCORRECT LENGTH) P LD A3,ECBRL,A9 < P RB(N) DIS:OE T P* j PMOV:05 EQU * t P IFT MMUPAG=1 6 P LDKL A4,ITAD GET ADDRESS TO DRIVER ADDRESS BLOCK * P CW A3,BUFLEN,A4 CHECK MMU BUFFER SIZE , P R
0x0ef61c…0ef7b0 Dummy {f00=0x00de, f01=0x018e, f02=» P* ! PMOV:10 EQU * ! P XIF ! " P* ! . P ! 8 $ P ST A3,ECBEL,A8 EFFECTIVE LENGTH ! @ $ P ST A3,ECBEL,A9 EFFECTIVE LENGTH ! h P* ! P EJECT DRIC01 ! P* ! P* ! P IFT MMUPAG=0 ! * P LD A4,ECBBA,A8 SENDING BUFFER ADDRESS ! ,
0x0ef7b0…0ef944 Dummy {f00=0x00de, f01=0x40e0, f02=» ! j P LCR A9,A4 " P SCR A9,A7 " P ADK A4,1 " , P ADK A7,1 " > P RB MOV:15 " P P* " b PMOV:20 EQU * " l P XIF " P* " P INH " P RTN A5 " P* " P* " P* " P END " @ " A4,ECBBA,A8 SENDING BUFFER ADDRESS ! ,
0x0ef944…0efad8 Dummy {f00=0x00de, 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
0x0efad8…0efc6c Dummy {f00=0x00de, f01=0x018e, f02=»-ADDRESS v ( PSOPDA EQU /2E S.O.P. DEVICE ADDRESS * PSTALEN EQU 512 MAX STANDARD SEC. LEN. < ( PTOSLEN EQU 410 MAX TOSS SEC. LENGTH j " PIBMLEN EQU 128 IBM SEC. LENGTH ( PBOE EQU 28 BEGIN OF EXTENT POSITION & PEOE EQU 34 END OF EXTENT POSITIO
0x0efc6c…0efe00 Dummy {f00=0x00de, f01=0x0190, f02=» P******************** P* * P* DWT-DISPLACEMENTS* < P* * X P******************** t P* 0 PDWTDRD EQU /10 START OF DRIVER DEFINED PART P* P IFT MMUPAG=0 PSTART EQU DWTDRD P X
0x0efe00…0eff94 (0, 304) Opaque[0x194]
0x0eff94…0f0128 # DirEnt {nam=»DRDC15«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x07c8, f03=0x0000}
0x0eff94…0f0128 IdxSect {
0x0eff94…0f0128 f00 = 0x003e // 0xeff94 @0x0
0x0eff94…0f0128 f01 = 0x002a // 0xeff96 @0x2
0x0eff94…0f0128 gno = [ // 0xeff98 @0x4
0x0eff94…0f0128 [0x00]: C0x003e.0x1.0
0x0eff94…0f0128 [0x01]: C0x0040.0x1.0
0x0eff94…0f0128 [0x02]: C0x0042.0x2.0
0x0eff94…0f0128 [0x03]: C0x0042.0x3.0
0x0eff94…0f0128 [0x04]: C0x00a0.0x1.0
0x0eff94…0f0128 [0x05]: C0x00a0.0x3.0
0x0eff94…0f0128 [0x06]: C0x00a1.0x1.0
0x0eff94…0f0128 [0x07]: C0x00a1.0x2.0
0x0eff94…0f0128 [0x08]: C0x00a1.0x3.0
0x0eff94…0f0128 [0x09]: C0x00a2.0x0.0
0x0eff94…0f0128 [0x0a]: C0x00a2.0x1.0
0x0eff94…0f0128 [0x0b]: C0x00a2.0x2.0
0x0eff94…0f0128 [0x0c]: C0x00a4.0x0.0
0x0eff94…0f0128 [0x0d]: C0x00a4.0x2.0
0x0eff94…0f0128 [0x0e]: C0x00a4.0x3.0
0x0eff94…0f0128 [0x0f]: C0x00a5.0x0.0
0x0eff94…0f0128 [0x10]: C0x00ad.0x2.0
0x0eff94…0f0128 [0x11]: C0x00ad.0x3.0
0x0eff94…0f0128 [0x12]: C0x00ae.0x0.0
0x0eff94…0f0128 [0x13]: C0x00ae.0x1.0
0x0eff94…0f0128 [0x14]: C0x00ae.0x2.0
0x0eff94…0f0128 ]
0x0eff94…0f0128 }
0x0f0128…0f02bc Dummy {f00=0x003e, f01=0x0190, f02=» 2 P IDENT DRDC15 9.2DK 3 80-01-03 870105040920 P : P DK3, RBUFNR = 1 ALLOWED B P DK2, TBUFL d P 80-03-11 z 0 P DK, COND.ASM., TIMPRO, TIMNAK, READ BUF. P 80-03-11 P REL 9.1 79-08-16 P =8, ASCII-MODE FOR
0x0f02bc…0f0450 Dummy {f00=0x003e, f01=0x018e, f02=»RESS DESTROYED x P REL 9.1 79-05-23 $ P =5, INCOMPLETE POLL SEQUENCE 2 P REL 9.1 79-05-23 Z P =3, TRANSFER PARAMETER v P PRR 9.1 79-04-06 P =4, ANY MESSAGE ORDER P PRR 9.1 79-04-06 P =2, ABORT HANDLING
0x0f0450…0f05e4 Dummy {f00=0x003e, f01=0x0190, f02=» P* 2 P********************************************* P* D $ P* PHILIPS TERMINAL SYSTEM PTS N P* v * P* DRDC15: DRIVER DATA COMMUNICATION . P* BSC MULTIPOINT LINE PROCEDURE P* OR SIEMENS MSV1 P*
0x0f05e4…0f0778 Dummy {f00=0x003e, f01=0x0190, f02=»* ENTRY POINTS P* 2 P ENTRY DC15AD ADDRESS BLOCK TERMINAL REQUESTS " P ENTRY IH1501 INPUT INTERRUPT V " P ENTRY IH1502 OUTPUT INTERRUPT | " P ENTRY DC15ON POWER ON ROUTINE " P ENTRY DW1500 DWT FOR DC TASK P* P* P* EXTE
0x0f0778…0f090c Dummy {f00=0x003e, f01=0x018e, f02=»DIO COMPLETE I/O EVENT P EXTRN DISIOE REQUEST ERROR P EXTRN SETIME SET TIMER B P EXTRN DWTST DWT STATUS b P EXTRN DWTOR DWT ORDER P EXTRN DWTECB DWT ECB * P EXTRN INTSAV SAVE AREA LAST INTERRUPT ( P EXTRN TEBCDIC ASCII TO EBCD
0x0f090c…0f0aa0 Dummy {f00=0x003e, f01=0x0190, f02=» l & P EXTRN ECBEL ECB EFFECTIVE LENGTH P EXTRN ECBRC ECB RETURN CODE 2 " P EXTRN ECBCW ECB CONTROL WORD V * P EXTRN DC:MIN MOVE DATA TO USER BUFFER | , P EXTRN DC:MOT MOVE DATA FROM USER BUFFER 0 P EXTRN DISEND COMPLETE REQUEST AND DISPATCH
0x0f0aa0…0f0c34 (0, 305) Dummy {f00=0x0040, f01=0x018e, f02=» P* P* DWT CONTENTS P* ( J P* DWTCHP TERMINAL ADDRESS AS GIVEN AT PARAMETER TRANSFER (BIT #08-#15) 2 P* P < P******************************************************* P* * P* PARAMETERS FOR CONDITIONAL ASSEMBLY
0x0f0c34…0f0dc8 Dummy {f00=0x0040, f01=0x0190, f02=» p & PX:A EQU 2000 RECEIVE BUFFER LENGTH PRBUFL EQU 650+X:X DK 2 PX:B EQU /60 DCTASK FILE CODE P PDC15FC EQU /60 t $ PX:C EQU 1 IF 1 INTERRUPT LOGGING PLOGG EQU 0 P* * PTIMPOL EQU 600 POLL TIMEOUT VALUE DK * PX:E EQU 1 ST
0x0f0dc8…0f0f5c Dummy {f00=0x0040, f01=0x0190, f02=»LOCK LENGTH z PTBLEN EQU 2300 ( PX:H EQU 1 CODE , 0=ASCII , 1=EBCDIC * PCODE EQU 0 V * PX:I EQU 0 IF 1 SPECIFIC POLL HANDLING h PSPECP EQU 0 , PX:J EQU 1 IF = 1 LINE SPEED SET TO HIGH ( P IF = 0 LINE SPEED IS SET TO LOW PSP
0x0f0f5c…0f10f0 Dummy {f00=0x0040, f01=0x018e, f02=»NR EQU 2 . PX:M EQU 0 IF = 1 PTS 6805 ADAPTION SALCUZ PP6805 EQU 00 B PX:N EQU /02 V P IFT P6805=0 j , PLCUIN EQU 02 DEVICE ADDRESS OF RECEIVER ~ P XIF P IFT P6805=1 , PLCUIN EQU /0A DEVICE ADDRESS OF RECEIVER P XIF
0x0f10f0…0f1284 Dummy {f00=0x0040, f01=0x0190, f02=» 4 PX:Q EQU 0 IBM-3270 EMULATION PACKAGE, IF NOT = 0 PEM3270 EQU 1 < PX:R EQU 1000 P P DK2 d * PBINTRM EQU 0 IF 1 BINARY TRANSMISSION t , PTSTREQ EQU 0 IF 1 TEST REQUEST HANDLING , PDMRK EQU 1 SPECIAL CONDITION FOR DENMARK 4 PNOWACK
0x0f1284…0f1418 Dummy {f00=0x0040, f01=0x0190, f02=»TO "ONE". n , P ONLY WORKING IF STAT IS SET TO "ONE". P IFT P6805=0 SALCUZ B < PLCUUT EQU LCUIN+/10 DEVICE ADDRESS OF TRANSMITTER SALCUZ ^ P XIF SALCUZ P IFT P6805=1 < PLCUUT EQU LCUIN+/01 DEVICE ADDRESS OF TRANSMITTER SALCUZ P
0x0f1418…0f15ac Dummy {f00=0x0040, f01=0x0190, f02=»ASSEMBLY P* . P***************************************** P* L . P* A PROGRAM VERSION USING TOSS MMU PAGING V * P* IS OBTAINED BY SETTING MMUPAG EQU 1. P* PMMUPAG EQU 1 P* P DB P IFT MMUPAG=0 DK2 PTB
0x0f15ac…0f1740 Dummy {f00=0x0040, f01=0x018e, f02=» P DE P* 6 P* A PROGRAM VERSION USING THE EXTENDED INSTRUCTION . P* SET IS OBTAINED BY SETTING CPU852 EQU 0. V P* PCPU852 EQU 0 P* 2 PDEVIND EQU -2 DEVICE INDEX DATA COMMUNICATION * PBUFLEN EQU TBUFL+TBUFL MMU BUFFER
0x0f1740…0f18d4 (0, 306) Dummy {f00=0x0042, f01=0x0190, f02=» P IFT MMUPAG=0 PSTART EQU DWTDRD P XIF 6 P* B P IFT MMUPAG=1 L PSTART EQU DWTDRD+4 b P XIF | P* 4 PDWTTP EQU START+/00 TIMER POINTER ORDER PROCESS . PDWTWQ EQU START+/02 WRITE/GET BUFFER QUEUE $ PDWTSQ EQU ST
0x0f18d4…0f1a68 Dummy {f00=0x0042, f01=0x0190, f02=»+/0A CURSOR ADDRESS , PDWTTIM EQU START+/0C REQUEST TIMER VALUE P* L P V P* ` P* REQUEST HANDLING j P* P* P* P* A7=ORDER P* P* /02: READ P* /06: WRITE P* /37: TRANSFER PARAMETERS P
0x0f1a68…0f1bfc Dummy {f00=0x0042, f01=0x0190, f02=» & PDCONOF DATA 0 ON- / OFFLINESWITCH * PDCSTOL DATA 0 OLD DC EQUIPMENT STATUS . PDCSTCU DATA 0 CURRENT STATUS $ PDCWRQ DATA 0 WRITE REQUEST QUEUE , PDCTPGP DATA 0 TIMER POINTER GENERAL POLL P P* P* DC TASK ADDRESS BLOCK
0x0f1bfc…0f1d90 Dummy {f00=0x0042, f01=0x0190, f02=»ATA ABORT ABORT ROUTINE ADDRESS $ P DATA DCRBUF REC. BUFFER ANCHOR ( P* P P* DRIVER ADDRESS BLOCK Z P* x P DATA BUFLEN MMU BUFFER SIZE P DATA DEVIND DEVICE INDEX ( PDC15AD DATA DCACT ACTIVATION ADDRESS 4 P DATA ABORT ABORT RO
0x0f1d90…0f1f24 Dummy {f00=0x0042, f01=0x0190, f02=»B RES 1 " P RES 1 AND FOR TRANSFER PARAM PSTB2 RES 1 6 P H P IFT SPEED=1 P PLSPEED EQU /0200 d P XIF | P IFT SPEED=0 PLSPEED EQU 0 P XIF P P* P* $ P* ACTIVATION FROM TERMINAL TASKS P*
0x0f1f24…0f20b8 Dummy {f00=0x0042, f01=0x0190, f02=»DER =4 t P XIF P SUK A7,/02 P RF(Z) DCRD READ SPECIFIC . P SUK A7,/06-/02 P P RF(Z) DCWR h P SUK A7,/37-/06 | $ P RF(Z) DCTP TRANSFER PARAMETERS P IFF STAT=0 P SUK A7,/38-/37 P RF(Z) DCSS SET STATUS P S
0x0f20b8…0f224c Dummy {f00=0x0042, f01=0x0190, f02=»TIM SET REQUEST TIMER P XIF P RF DCA100 * P < P* F P* P P* ACTIVATION FROM DCTASK Z P* z P* PDCACTD EQU * $ P SUR A1,A1 PRESET RETURN CODE =4 P IFT EM3270=1 =4 P LDR A7,A7 =4 & P RF(Z) ANYMSG
0x0f224c…0f23e0 Dummy {f00=0x0042, f01=0x0190, f02=»ETERS v P PDCA100 EQU * REQUEST ERROR P ABL DISIOE INVALID ORDER 8 P* Z P* d P* READ FROM DCTASK n P* P* P* REQUEST FROM DC-TASK P* COMPLETE WHEN: & P* STATUS CHANGE ON DC EQUIPMENT $ P* SPONTANO
0x0f23e0…0f2574 (0, 307) Dummy {f00=0x0042, f01=0x0190, f02=» GO TO DISPATCHER P IFT EM3270=1 =4 P 4 . P***************************************** > P* p P* ANY MESSAGE ORDER z P* " P***************************** P 2 PANYMSG LD A4,DWTRQ,A6 ANY QUEUED MESSAGE ?? =4 P R
0x0f2574…0f2708 Dummy {f00=0x0042, f01=0x0190, f02=» z P* P* > P* REQUEST FROM DC-TASK: TRANSFER TERMINAL COMPUTER ADDRESS : P* FROM TERMINALS: TRANSFER TERMINAL ADDRESSES ^ P* P* P IFF CODE=1 & PDCTP LD A2,ECBCW,A8 GET PARAMETER P XIF P IFT CODE=1
0x0f2708…0f289c Dummy {f00=0x0042, f01=0x0190, f02=»LL A2,8 PDCTP10 EQU * $ P LC A3,ECBCW+1,A8 GET TCP OR DV $ P ANK A3,/FF L ( P LC A2,TASCII,A3 TRANSLATE TO ASCII ` P XIF ( P STR A2,A6 SAVE IN FIRST WORD OF DWT P P IFT RCOM=1 * P LD A3,ECBBA,A8 DEVICE BUFFER ADDRESS
0x0f289c…0f2a30 Dummy {f00=0x0042, f01=0x0190, f02=»??? v 2 P RF(E) DCTP30 YES!!! SHOULD NOT BE IN DC:TAB * P LD A1,DC:IN GET DC:TAB INPUT POINTER B * P CWK A1,DC:END TABLE ALREADY FULL ???? p & P ABL(E) DISIOE YES!! REQUEST ERROR P P P PDCTP20 EQU * " P LD A4,DCTAB DC:TA
0x0f2a30…0f2bc4 Dummy {f00=0x0042, f01=0x018e, f02=»ED?? =3 r * P RF(E) DCTP25 YES.DWT NOT IN TABLE =3 P CWR* A6,A4 IN TABLE ?? =3 > P RF(E) DCTP30 YES!! =3 ` " P RB DCTP22 CHECK NEXT ENTRY =3 ~ PDCTP25 EQU * =3 P $ P STR A6,A1 INSERT DWT IN DC:TAB P LDK A1,2 * P ADS A1,DC
0x0f2bc4…0f2d58 Dummy {f00=0x0042, f01=0x0190, f02=» P ORS A1,DWTST,A6 ( P CF A15,INSSQ INSERT IN STATUS QUEUE P XIF H PDCTP30 EQU * T P SUR A1,A1 RETURN CODE ::= 0 h PENDIO EQU * $ P CF A15,TENDIO COMPLETE REQUEST P RB DCRTN P P* P* P* WRITE P
0x0f2d58…0f2eec Dummy {f00=0x0042, f01=0x0190, f02=» IFT MMUPAG=1 $ P LD A1,ECBRL,A8 REQUESTED LENGTH " P CWK A1,BUFLEN ILLEGAL LENGTH? > P RF(G) IL:LEN YES!! d P XIF P CF A15,TIMEWR SET TIMER P CF A15,INSWQ QUEUE REQUEST P RB DCRTN P* P* P* P* READ
0x0f2eec…0f3080 Dummy {f00=0x0042, f01=0x0190, f02=» LD A8,DWTECB,A6 GET ECB . P LD A4,DWTRQ,A6 AND RECEIVE MESSAGE QUEUE " P RF(Z) DCRD10 NOTHING IN QUEUE R P x P P ( P LDR* A2,A4 TAKE THE FIRST IN QUEUE P ST A2,DWTRQ,A6 P ADK A4,6 " P LD A3,-4,A4 EFFECTIVE LENGTH
0x0f3080…0f3214 (0, 308) Dummy {f00=0x00a0, f01=0x0190, f02=» $ PDCRD10 CF A15,TIMERE START TIMER P RB DCRTN 0 P B P* L P* V P* SET STATUS ` P* t P* ~ P IFF STAT=0 PDCSS EQU * * P LD A1,ECBCW,A8 GET STATUS INFORMATION P ANK A1,3 MASK DB,IR P RF(Z) DCSS20 DE
0x0f3214…0f33a8 Dummy {f00=0x00a0, f01=0x0190, f02=» P ANK A1,9 ( P RB(Z) DCSS10 WACK HAS NOT BEEN SENT PDCSS30 EQU * B , P CF A15,INSSQ INSERT DWT IN STATUS QUEUE V P LDK A1,4 SET DE P RB DCSS10 P XIF P P P* " P* SET REQUEST TIMEOUT VALUE P* P
0x0f33a8…0f353c Dummy {f00=0x00a0, f01=0x0190, f02=»DISPATCH | P P* ( P* ILLEGAL APPLICATION BUFFER SIZE " P* N P X 8 PIL:LEN LDKL A1,/8008 REQUEST ERROR + ILLEGAL LENGTH ` P ABL DISEND COMPLETE REQUEST P P* P* P* P* TIMER HANDLING PART P*
0x0f353c…0f36d0 Dummy {f00=0x00a0, f01=0x0190, f02=»EOUT VALUE p P RF(Z) TIME10 NO TIMING ! P ST A2,TIMERR ! 2 P CF A15,SETIME ! H P DATA TOUTRE ! ^ PTIMERR DATA 0 ! r ( P ST A4,DWTTP,A6 STORE TIMER POINTER ! PTIME10 EQU * ! P RF GBUF10 RETURN ! P* ! P* TIMEOUT READ TIMER ! P
0x0f36d0…0f3864 Dummy {f00=0x00a0, f01=0x0190, f02=»TOUTR2 RB ENDIO COMPLETE REQUEST ! P* " ( P* WRITE TIMER=TIMWR " 2 P* " N PTIMEWR LDR A1,A6 " X . P LD A2,DWTTIM,A6 GET REQUEST TIMEOUT VALUE " p P RB(Z) TIME10 NO TIMING " P ST A2,TIMWR " P CF A15,SETIME " P DATA TOUTWR " PTIMWR DA
0x0f3864…0f39f8 Dummy {f00=0x00a0, f01=0x0190, f02=»DR A6,A1 FETCH DWT " P CM DWTTP,A6 # * P CF A15,REMOVW REMOVE FROM WRITE QUEUE # . P* # & P* THIS INSTRUCTION DOES NOT BELONG # f P* TO THE STANDARD INTERFACE # P LD A2,FDWTUT # P CWR A2,A6 # * P RB(NE) TOUTR1 THIS DWT IS NOT WRITING # (
0x0f39f8…0f3b8c Dummy {f00=0x00a0, f01=0x0190, f02=»OP REQUEST TIMING # P* $ & P* REMAINING TIME IS RETURNED IN A2 $ $ P* $ N P* $ X PCTIME EQU * $ b & P LD A2,DWTTP,A6 GET TIMER POINTER $ v P RF(Z) CTIM10 NOT RUNNING $ P LDR* A2,A2 $ " P NGR A2,A2 GET REMAINING TIME $ P CM* DWTTP,A
0x0f3b8c…0f3d20 Dummy {f00=0x00a0, f01=0x018e, f02=»* CALLING SEQUENCE: CF A15,GRBUF $ P* A4=0 IF NO BUFFER IS FREE % ( & P* ELSE A4 CONTAINS BUFFER ADDRESS % L P* A2 AND A3 ARE DESTROYED % v P* % P* % ( PGRBUF LDKL A2,DCRBUF RECEIVE BUFFERS % PGBUF INH % P LDR* A4,A2 % P RF(Z) GBUF1
0x0f3d20…0f3eb4 (0, 309) Dummy {f00=0x00a0, f01=0x0190, f02=» P ABR* A15 RETURN TO CALLER & P & & P* & 0 P* & : ( P* INSERT DWT IN WRITE REQUEST QUEUE & D P* & p P* A2,A3,A4 DESTROYED & z P* A6=DWT & P* & ( PINSWQ LDKL A2,DCWRQ GET QUEUE ANCHOR & PINSWQ1 LDK A4,DWTWQ & PINSWQ2 LDR* A3,A
0x0f3eb4…0f4048 Dummy {f00=0x00a0, f01=0x0190, f02=» & v " P CMR A4 INDICATE END OF QUEUE ' P RB GBUF10 RETURN ' . P* ' H P* ' R * P* REMOVE DWT FROM WRITE REQUEST QUEUE ' P* ' P* A2,A3,A4 DESTROYED ' P* A6=DWT ' P* ' * PREMOVW LDKL A2,DCWRQ GET QUEUE ANCHOR ' 2 PREM05 LDK A4,DWT
0x0f4048…0f41dc Dummy {f00=0x00a0, f01=0x018e, f02=» ' n P CWR A3,A4 ( P RF(E) REM15 ( P LDR A2,A3 GET NEXT ( . P RB REM10 ( J PREM15 LDR* A3,A4 REMOVE ( P STR A3,A2 ( | P RB GBUF10 RETURN ( P ( P* ( P* ( P* INSERT DWT IN STATUS QUEUE ( P* ( P IFF STAT=0 ( P
0x0f41dc…0f4370 Dummy {f00=0x00a0, f01=0x018e, f02=» P* ) P* ) " P* REMOVE DWT FROM STATUS QUEUE ) P* ) > P* A2,A3,A4 DESTROYED ) H P* A6=DWT ) d P* ) t * PREMOVS LDKL A2,DCSTQ GET QUEUE ANCHOR ) ~ P LDK A4,DWTSQ ) P RB REM06 ) P XIF ) P ) P* ) P* ) $ P* QUEUE AL
0x0f4370…0f4504 Dummy {f00=0x00a0, f01=0x0190, f02=» ) ( P LDKL A2,DW1500 QUEUE ON DC-TASK DWT * P XIF * 4 P IFT MESPAS=0 * @ $ P LDR A2,A6 QUEUE ON TERMINAL DWT * V P XIF * ~ , P ADK A2,DWTRQ BEGINNING OF RECEIVE QUEUE * PQR100 EQU * * P LDR* A3,A2 * $ P RF(Z) QR200 END OF QUEUE FOUND *
0x0f4504…0f4698 Dummy {f00=0x00a0, f01=0x0190, f02=» * P* + P* + 2 P* CHECK IF UNEXPECTED MESSAGE OR STATUS CHANGE + P* + R 4 P* REGISTERS A1,A2,A3,A4,A6 AND A8 ARE DESTROYED + P* + PCKMESS LDKL A6,DW1500 + P LD A1,DWTST,A6 + P RF(N) CKM110 NO REQUEST + P LDK A1,2 READ REQUE
0x0f4698…0f482c Dummy {f00=0x00a0, f01=0x0190, f02=»EUE + n " P RF(Z) CKM200 NO READ IN QUEUE , P , 2 P , : , P LDR* A2,A3 A2=ADDR TO NEXT READ BUFFER , B . P ST A2,DWTRQ,A6 STORE THIS ADDR INTO QUEUE , r " P ADK A3,6 MOVE POINTER TO TEXT , & P DONT DESTROY BUFFER ADDRESS =6 , P LD A4,-4,A3 , 0 P
0x0f482c…0f49c0 Dummy {f00=0x00a0, f01=0x0190, f02=»1,0 RESET RETURN CODE , & P LDR A4,A3 RECEIVE BUFFER ADDRESS - , P CF A15,DC:MIN MOVE DATA TO USER BUFFER - H * PCKM110 ADKL A15,4 ADJUST STACK POINTER - x P ABR* A15 RETURN - 8 PCKM200 LD A1,DCSTCU NO MESSAGE RECEIVED,CHECK STATUS - , P OR A1,DCONOF
0x0f49c0…0f4b54 (0, 310) Dummy {f00=0x00a1, f01=0x0190, f02=»NDICATE STATUS CHANGE - 0 P CF A15,TENDIO COMPLETE READ GENERAL REQUEST . P RB CKM110 . R P . d P . n @ P************************************************************ . v P* . P* ABORT ROUTINE . P* . P************************ . P
0x0f4b54…0f4ce8 Dummy {f00=0x00a1, f01=0x0190, f02=» P / $ PAB:10 LD A1,DWTOR,A6 ORDER CODE / P SUK A1,2 / 4 * P RF(Z) AB:RTN READ REQUEST. NO ACTION / F P SUK A1,4 / t . P RF(NZ) AB:RTN NO ACTION IF NOT READ/WRITE / P / . P CF A15,REMOVW REMOVE DWT FROM WRITE QUEUE / & P LD A2,FDWTUT WRITING
0x0f4ce8…0f4e7c Dummy {f00=0x00a1, f01=0x0190, f02=»WT / v P 0 PAB:RTN EQU * 0 P IFT CPU852=1 0 & P ADKL A15,4 0 < $ P ABR* A15 RETURN IN INHIBIT MODE 0 P P XIF 0 x P IFF CPU852=1 0 P RTN A15 0 P XIF 0 P 0 P 0 P 0 P* 0 P* 0 P* STORE REGISTER A3-A8 0 $ P* CA
0x0f4e7c…0f5010 Dummy {f00=0x00a1, f01=0x018e, f02=»LCA3 0 P ST A4,LCA4 1 P ST A5,LCA5 1 P ST A6,LCA6 1 4 P ST A7,LCA7 1 H P ST A8,LCA8 1 P RF RTNA15 RETURN 1 p P 1 PLDREG LDKL A3,0 1 PLCA3 EQU *-2 1 P LDKL A4,0 1 PLCA4 EQU *-2 1 P LDKL A5,0 1 PLCA5 EQU *-2 1
0x0f5010…0f51a4 Dummy {f00=0x00a1, f01=0x0190, f02=» P ADKL A15,4 2 P ABR* A15 2 P 2 * P* 2 4 P* 2 > P* TIMER VALUES 2 H P* 2 ^ P* 2 h * PTIMPRO EQU 90 PROCEDURE TIMER 9 SEC DK 2 r " PTIMNAK EQU 3 DELAY FOR NAK DK 2 P* 2 P* 2 P* CHARACTER EQUATES 2 P* 2 & PSF EQU X
0x0f51a4…0f5338 Dummy {f00=0x00a1, f01=0x0190, f02=»H EQU /01 2 PENQ EQU /05 3 PDLE EQU /10 3 & PEOT EQU /04 3 : PNAK EQU /15 3 N PESC EQU /1B 3 b PSBA EQU /11 3 v PGP EQU /22 3 PRDBCOM EQU /32 3 PRDMCOM EQU /36 3 P IFT CODE=0 3 PPAR EQU /80 3 PRVI EQU /3C 3 PACK0
0x0f5338…0f54cc Dummy {f00=0x00a1, f01=0x0190, f02=»1=1 3 0 PWACK EQU /BF =WABT - SIEMENS MSV1 PROCEDURE 4 P XIF 4 @ P IFT CODE=1 4 L PPAR EQU /00 4 ` PWACK EQU /2C 4 t PRVI EQU XRVI DK 4 PACK0 EQU /18 4 PACK1 EQU /2F 4 PSYNEBC EQU /32 4 P XIF 4 P 4 P* 4 P* 4 P
0x0f54cc…0f5660 Dummy {f00=0x00a1, f01=0x0190, f02=»N 4 h PXACK DATA 0 ACK EXPECTED 5 PXSEL DATA 0 SELECTED 5 * PXETX DATA 0 ETX SENT 5 F 2 PXSTA DATA 0 STATUS SENT / MESSAGE INPUT RESULT 5 b " PXRB DATA 0 READ BUFFER SWITCH 5 PCACK DATA 0 ACK COUNTER 5 * PSYNSW DATA 0 0=SKIP SYNS, 1=DON'T SKIP 5
0x0f5660…0f57f4 (0, 311) Dummy {f00=0x00a1, f01=0x0190, f02=»ATA 0 BUFFER INDEX 5 0 PFBLST DATA 0 START OF LAST TRANSMITTED BLOCK 6 $ PDCSTQ DATA 0 STATUS QUEUE ANCHOR 6 N . PDCTPP DATA 0 POINTER FOR PROCEDURE TIMING 6 v , PRESEND DATA 0 CONTROL SEQUENCE SAVE AREA 6 ( PCRDBUF DATA 0 READ BUFFER COUNTER DK 6 P* 6
0x0f57f4…0f5988 Dummy {f00=0x00a1, f01=0x0190, f02=»E 6 h P* 7 P* 7 P DATA /4248 7 P DATA /4242 7 2 P* 7 F 2 PNOIR EQU /20 S/S 1 : NO INTERVENTION REQUIRED 7 P , PIR EQU /26 S/S 1 : INTERVENTION REQUIRED 7 P XIF 7 P 7 P* 7 P* 7 P* BASIC RECEIVE MODE 7 P* 7 " P*
0x0f5988…0f5b1c Dummy {f00=0x00a1, f01=0x0190, f02=»A5,HALTIN HALT RECEIVER SALCUZ 7 P XIF SALCUZ 8 & PBRM EQU * 8 < P LDKL A5,STB LOAD STACKBASE 8 N P IFT P6805=0 SALCUZ 8 r 2 P CF A5,HALTIN HALT RECEIVER AND UPDATE STATUS 8 P XIF SALCUZ 8 P IFT P6805=1 SALCUZ 8 0 P CF A15,CKMESS CHE
0x0f5b1c…0f5cb0 Dummy {f00=0x00a1, f01=0x0190, f02=»PECIFY SYN PATTERN 8 v P XIF SALCUZ 9 P IFT P6805=0 SALCUZ 9 0 P IFT CODE=1 9 L 4 P LDKL A2,/100+LSPEED+SYNEBC SPECIFY SYN PATTERN 9 ` P XIF SALCUZ 9 P IFT P6805=0 SALCUZ 9 " P CIO A2,1,LCUIN START RECEIVER 9 P XIF SALCUZ 9 P I
0x0f5cb0…0f5e44 Dummy {f00=0x00a1, f01=0x0190, f02=»SYN SALCUZ 9 2 P OTR A2,1,LCUIN SPECIFY SYNC CHARACTER SALCUZ : P RB(NA) BRMHLT SALCUZ : J P XIF SALCUZ : h P IFT CODE+P6805=2 SALCUZ : ~ P LDK A2,0 SALCUZ : * P CIO A2,1,LCUIN START RECEIVER SALCUZ : P LDK A2,SYNEBC SALCUZ : 2 P O
0x0f5e44…0f5fd8 Dummy {f00=0x00a1, f01=0x0190, f02=» READ ONE CHARACTER : P RF(NZ) BRM150 PARITY ERROR ; P LDR A1,A2 ; @ P SUK A1,STX ; R P RF(Z) BRM300 STX RECEIVED ; f P SUK A1,EOT-STX ; P RF(Z) BRM200 EOT RECEIVED ; P SUK A1,ENQ-EOT ; P ABL(Z) BRM400 ENQ RECEIVED ; P SUK A1,DL
0x0f5fd8…0f616c Dummy {f00=0x00a1, f01=0x0190, f02=»8,A2 ; $ P CF A5,READP READ ONE CHARACTER < P RF(NZ) BRM150 PARITY ERROR < 4 P CWR A2,A8 < X & P RF(NE) BRM150 INVALID ADDRESSING < j P XIF < P LDK A3,0 < P CC A2,DW1500+1 < P RF(E) BRM110 POLLING < P LDK A3,2 < P CC A2,DW1500
0x0f616c…0f6300 Dummy {f00=0x00a1, f01=0x0190, f02=»DR A8,A2 < P IFT MSV1=0 = P CF A5,READP READ 2:ND STA = $ P RF(NZ) BRM150 PARITY ERROR = F P CWR A2,A8 = j , P RF(NE) BRM150 INVALID ADDRESS SEQUENCE = | P XIF = " P CF A5,READ READ ONE CHARACTER = P IFT P6805=0 SALCUZ = P SUK A2,ENQ+PA
0x0f6300…0f6494 (0, 312) Dummy {f00=0x00a1, f01=0x0190, f02=» P IFT P6805=0 SALCUZ > $ P CF A5,READ READ LAST CHARACTER > P > H " P* TRAILING PAD CAN BE CHECKED > P P > v P CIO A1,0,LCUIN HALT INPUT > ~ P SST A1,LCUIN > P XIF SALCUZ > P IFT P6805=1 SALCUZ > $ P CF A5,HALTIN HALT INPUT SALCUZ
0x0f6494…0f6628 Dummy {f00=0x00a1, f01=0x0190, f02=»DR A2,A8 > P SUK A3,2 ? P RF(Z) BRM120 SELECTING ? " P CWK A8,GP ? B P ABL(E) GPOLL GENERAL POLL ? T P IFT MSV1=1 ? v 6 P CF A5,FINTEP CHECK IF STA PRESENT (POLL ADDRESS) ? P XIF ? P IFT MSV1=0 ? & P CF A5,FINTER CHECK IF STA PRESENT ?
0x0f6628…0f67bc Dummy {f00=0x00a1, f01=0x0190, f02=» CF A5,FINTER CHECK IF STA PRESENT ? P LDR A6,A3 LOAD DWT TO A6 @ * P RF(NZ) BRM130 STA FOUND @ L P IFT MSV1=0 @ l $ P LDKL A6,DW1500 SELECT TO DCTASK @ PBRM130 EQU * @ P ABL SELECT @ P XIF @ P IFT MSV1=1 @ P ABL BRM INVALID
0x0f67bc…0f6950 Dummy {f00=0x00a1, f01=0x0190, f02=» P SUK A2,/7F A P RB(Z) BRM RESYNCHRONIZE A & P CF A5,READ READ ANOTHER CHARACTER A 8 P RB BRM150 A b P A t P* A ~ P* A P* EOT HAS BEEN RECEIVED A P* A P* A PBRM200 EQU * A & P CF A5,HPTIM STOP PROCEDURE TIMER A P IFT
0x0f6950…0f6ae4 Dummy {f00=0x00a1, f01=0x018e, f02=»T GET WRITING DWT A P RF(Z) BRM210 NO ONE WRITING B P LDK A1,2 SET RC=2 B > ( P CF A5,CWRITE COMPLETE WRITE REQUEST B X PBRM210 EQU * B " P CM XACK RESET 'ACK EXPECTED' B PBRM220 EQU * B P CM XSEL RESET 'SELECTED' B P RB BRM B P B
0x0f6ae4…0f6c78 Dummy {f00=0x00a1, f01=0x0190, f02=» P RF(Z) BRM315 NOT SELECTED C P LD A1,DCRBUF C & ( P*********************CHAINED COMMAND C < & P RB(Z) BRM150 NO BUFFER AVAILABLE C h P********************* C PBRM305 EQU * C P CF A5,RDMESS READ MESSAGE C P SUK A7,1 C P RF(NZ) BRM320 M
0x0f6c78…0f6e0c Dummy {f00=0x00a1, f01=0x018e, f02=» BRM C PBRM315 EQU * D P IFT RCOM=1 D P LD A1,XACK D 4 & P RF(Z) BRM316 ACK IS NOT EXPECTED D H P LD A1,DCRBUF D r & P RF(Z) BRM316 NO BUFFER AVAILABLE D " P LD A6,FDWTUT GET WRITING DWT D 0 P ABL(Z) BRM150 NO ONE WRITING. RESYNCHRONIZE D
0x0f6e0c…0f6fa0 Dummy {f00=0x00a1, f01=0x0190, f02=» ( P CF A5,CWRITE COMPLETE WRITE REQUEST E P CM CACK PRESET ACK-1 =7 E 0 P RB BRM305 READ THE MESSAGE E P P XIF E t ( PBRM316 CF A5,READ READ ONE CHARACTER E P IFF P6805=1 =8 E P SUK A2,ENQ+PAR E P XIF =8 E P IFT P6805=1 =8 E P S
0x0f6fa0…0f7134 (0, 313) Dummy {f00=0x00a2, f01=0x0190, f02=»ATE MESSAGE OK E $ P LD A4,DCRBUF GET BUFFER ADDRESS F P ADK A4,6 F > P CW A4,FBLST F P " P RF(NE) BRM325 NOT FIRST BLOCK F d P IFF RCOM=0 F P LDK A1,ESC F P CCR A1,A4 F P RB(NE) BRM310 ESC NOT FOUND F P ADK A4,1 F P LCR A1,A4 GET
0x0f7134…0f72c8 Dummy {f00=0x00a2, f01=0x0190, f02=» RF(Z) RDMOD READ BUFFER RECEIVED F P XIF G * PBRM325 EQU * G 6 P SUK A7,1 G J & P RF(Z) BRM340 MESSAGE ENDED BY ETB G P CM FBAX G * P CF A15,GRBUF ALLOCATE RECEIVE BUFFER G P ADK A4,6 G P LD A6,FDWTIN GET INPUT DWT G P* G " P* PR
0x0f72c8…0f745c Dummy {f00=0x00a2, f01=0x0190, f02=»Z) BRM326 G P ST A2,+4,A1 H P XIF H & PBRM326 EQU * H 2 P CWK A6,DW1500 H F , P RF(E) BRM330 MESSAGE IS MENT FOR DCTASK H P LD A2,DWTST,A6 GET STATUS H P RF(N) BRM330 NO REQUEST H P IFT EM3270=1 =4 H P LD A2,DWTOR,A6 ORDER =4 H & P
0x0f745c…0f75f0 Dummy {f00=0x00a2, f01=0x0190, f02=» PBRM327 EQU * I P LDK A1,0 SET RC=0 I $ P LD A8,DWTECB,A6 GET ECB ADDRESS I 2 P LD A3,-4,A4 GET LENGTH I Z * P ST A3,ECBEL,A8 STORE EFFECTIVE LENGTH I z & P CF A15,CTIME STOP REQUEST TIMING I ( P ST A2,ECBCW,A8 STORE REMAINING TIME I P I P
0x0f75f0…0f7784 Dummy {f00=0x00a2, f01=0x018e, f02=» I x P ANK A2,/FF J P LC A2,TEBCDI,A2 TRANSLATE J P ANK A2,8 J > P RF(Z) BRM328 J P P LD A2,DWTST,A6 GET STATUS J f P ORK A2,/A J P ST A2,DWTST,A6 J PBRM328 EQU * J P XIF J P IFT EM3270=1 =4 J P LD A2,DWTOR,A6 ORDER =4 J
0x0f7784…0f7918 Dummy {f00=0x00a2, f01=0x0190, f02=» P RF BRM32A =4 K P XIF =4 K PBRM329 EQU * =4 K * P K B P LDK A1,0 RESET RETURN CODE K J & P CF A15,DC:MIN MOVE TO USER BUFFER K n P RF BRM345 K PBRM32A EQU * =4 K P K $ P CF A15,TENDIO COMPLETE REQUEST K P RF BRM345 K P K
0x0f7918…0f7aac Dummy {f00=0x00a2, f01=0x0190, f02=»6 ORDER =4 K , P RF(NZ) BRM335 NOT ANY MESSAGE ORDER =4 L & P CF A15,TENDIO COMPLETE REQUEST =4 L B PBRM335 EQU * =4 L l P XIF =4 L P SUK A4,6 GET BUFFER BASE L ( P CF A5,QRBUF QUEUE BUFFER FOR DCTASK L . P CF A15,CKMESS COMPLETE DCTASK READ
0x0f7aac…0f7c40 Dummy {f00=0x00a2, f01=0x0190, f02=»,A6 L P ANK A1,8 M $ P RB(Z) BRM340 ACK SHOULD BE SENT M P CF A5,TRWACK SEND WACK M F P RF BRM410 M f P XIF M x P IFF STAT=1 M P RB BRM340 M P XIF M P M P* M P* M , P* READ MODIFIED OR READ BUFFER RECEIVED M P* M
0x0f7c40…0f7dd4 (0, 314) Dummy {f00=0x00a2, f01=0x018e, f02=»D A6,FDWTIN DWT-ADDRESS FOR ADDRESSED TERMINAL M $ P LD A4,DWTBUF,A6 BUFFER ADDRESS N 6 $ P SUK A4,2 SDJUST BUFFER ADDRESS N ^ " P LDKL A3,1922 REQUESTED LENGTH N " P IM XRB SET READ BUFFER SWITCH N P CM FDWTUT N P LDK A1,1 N & P XRS A1,CACK INCRE
0x0f7dd4…0f7f68 Dummy {f00=0x00a2, f01=0x018e, f02=» P DE O P ABL POL127 O P XIF O & P* O 2 P* O < P* ENQ HAS BEEN RECEIVED O F P* O f P* O p PBRM400 EQU * O z & P CF A5,HPTIM STOP PROCEDURE TIMER O P LD A1,XACK O , P RF(NZ) BRM510 RETRANSMISSION OF MESSAGE O P OR A1,XSEL
0x0f7f68…0f80fc Dummy {f00=0x00a2, f01=0x018e, f02=» O P* P P* P P* NAK HAS BEEN RECEIVED P P* P < P* P F PBRM500 EQU * P P & P CF A5,HPTIM STOP PROCEDURE TIMER P d P LD A1,XACK P P RF(NZ) BRM510 ACK EXPECTED P P OR A1,XSEL P " P RB(Z) BRM410 IN CONTROL STATE P P RF BRM6
0x0f80fc…0f8290 Dummy {f00=0x00a2, f01=0x0190, f02=» P | P CF A15,SETIME DK Q P DATA BRM520,TIMNAK DK Q " P ABL TDISP DK Q B PBRM520 EQU * DK Q X P CF A15,LDREG DK Q p P DE Q " P LD A6,FDWTUT GET WRITING DWT Q P IFF STAT=0 Q P LD A1,XSTA Q 0 P ABL(NZ) POL050 STATUS HAS BEEN TR
0x0f8290…0f8424 Dummy {f00=0x00a2, f01=0x0190, f02=» Q P ABL POL130 R P* R P* R & P* DLE HAS BEEN RECEIVED R 0 P* R P P* R Z PBRM600 EQU * R d & P CF A5,HPTIM STOP PROCEDURE TIMER R x P LD A1,XACK R " P RB(Z) BRM410 ACK NOT EXPECTED R & P CF A5,READ READ SECOND CHARACTER R P I
0x0f8424…0f85b8 Dummy {f00=0x00a2, f01=0x0190, f02=») BRM620 R P* S P* ACK , 0 RECEIVED S P* S 4 P LD A1,CACK GET ACKCOUNTER S > P RF(Z) BRM630 ACK,0 EXPECTED S ` PBRM610 EQU * S P CF A5,TRENQ SEND ENQ S & P CF A5,SPTIM START PROCEDURE TIMER S P RB BRM410 S PBRM620 EQU * S P C
0x0f85b8…0f874c Dummy {f00=0x00a2, f01=0x0190, f02=»ACK,1 NOT EXPECTED S PBRM630 EQU * T P LD A1,XETX T . P RF(Z) BRM640 ETX NOT SENT T B P T d P* T n , P* ACK HAS BEEN RECEIVED TO AN ETX BLOCK T x P* T P LDK A1,0 SET RC=0 T PBRM635 EQU * T P IFF STAT=0 T P LD A2,XSTA T . P
0x0f874c…0f88e0 Dummy {f00=0x00a2, f01=0x0190, f02=»OT SEND EOT T P IFT RCOM=1 U P U ( P CM XRB RESET READ BUFFER U 0 P XIF U R P RB BRM410 U ^ PBRM640 EQU * U p P LDK A1,1 U & P XRS A1,CACK INCREMENT ACK COUNTER U P ABL POL130 U PBRM650 EQU * U P IFF P6805=1 =8 U P CWK A2,
0x0f88e0…0f8a74 (0, 315) Dummy {f00=0x00a2, f01=0x0190, f02=» U l " P CM XACK RESET 'EXPECTING ACK' V P LD A1,XETX V . $ P RF(NZ) BRM660 ETX HAS BEEN SENT V B P LDK A1,2 SET RC=2 V j P RB BRM635 V PBRM660 EQU * V P LDK A1,0 SET RC=0 V P RB BRM635 V P IFF STAT=0 V P V P* V P* V " P
0x0f8a74…0f8c08 Dummy {f00=0x00a2, f01=0x0190, f02=»E FROM STATUS QUEUE V | P CM XSTA CLEAR 'STATUS SENT' W " P CM XACK CLEAR 'ACK EXPECTED' W @ P LD A1,DWTST,A6 GET STATUS W f P ANK A1,4 W P RB(Z) BRM636 NOT DE W P LDKL A1,/8000 W " P ANS A1,DWTST,A6 CLEAR STATUS W P RB BRM636 W P XIF
0x0f8c08…0f8d9c Dummy {f00=0x00a2, f01=0x0190, f02=» RF(NZ) POL010 ERROR. ACK EXPECTED =5 W P IFF STAT=0 X . P LD A1,DWTST,A6 GET STATUS X B P LDR A3,A1 X d P ANK A1,1 X v $ P RF(Z) SEL110 NO PENDING STATUS X P CF A5,TRRVI SEND RVI X P XIF X P IFF STAT=1 X P RF SEL110 X P XIF X
0x0f8d9c…0f8f30 Dummy {f00=0x00a2, f01=0x0190, f02=» X P IFT STAT+NOWACK=2 Y P ANK A3,8 Y " " P RF(Z) SEL111 DEVICE NOT BUSY Y 4 P CF A5,TRWACK TRANSMIT WACK Y Z P ABL BRM Y ~ PSEL111 EQU * Y P XIF Y P LD A1,DCRBUF Y $ P RF(NZ) SEL120 BUFFER AVAILABLE Y PSEL115 EQU * Y P IFF STA
0x0f8f30…0f90c4 Dummy {f00=0x00a2, f01=0x0190, f02=»ION Y l P CF A5,TRACK SEND ACK,0 Z P RB SEL100 Z , P Z > P* Z H P* Z R P* PREPARE FOR TEXT RECEPTION Z P* Z P* Z PPRREC EQU * Z P IM XSEL SET 'SELECTED' Z P CM FBAX RESET BUFFER INDEX Z P IFT CODE=1 Z . P LC A2,T
0x0f90c4…0f9258 Dummy {f00=0x00a2, f01=0x0190, f02=»DWT Z v P RTN A5 [ P [ P* [ & P* [ 0 $ P* GENERAL POLL HAS BEEN RECEIVED [ : P* [ b P* [ l PGPOLL EQU * [ v P LD A1,XACK =5 [ & P RF(Z) POL020 ACK NOT EXPECTED =5 [ " PPOL010 CF A5,TRENQ SEND ENQ =5 [ * P CF A5,SPTIM START PRO
0x0f9258…0f93ec Dummy {f00=0x00a2, f01=0x0190, f02=» [ P LD A6,DCSTQ & P RF(Z) POL110 NO STATUS TO BE SENT " P SUK A6,DWTSQ GET DWT ADDRESS H PPOL050 EQU * n P CF A5,TRSTA SEND STATUS & P CF A5,SPTIM START PROCEDURE TIMER P IM XACK SET 'ACK EXPECTED' P XIF P IFF STAT=1
0x0f93ec…0f9580 Dummy {f00=0x00a2, f01=0x0190, f02=»N QUEUE z PPOL115 EQU * ] P CF A5,TREOT SEND EOT ] $ P RB POL100 ] B PPOL120 EQU * ] T " P SUK A6,DWTWQ GET DWT ADDRESS ] h PPOL125 EQU * ] $ P LD A8,DWTECB,A6 GET ECB ADDRESS ] P RF(NZ) POL126 ] P CF A15,REMOVW ] P RB POL115 ] P
0x0f9580…0f9714 (0, 316) Dummy {f00=0x00a4, f01=0x0190, f02=»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 ^ j P LD A3,ECBRL,A8 GET LENGTH ^ PPOL127 EQU * ^ & P ST A4,FECBBA SAVE BUFFER ADDRESS ^ ( P SUK A3,2 SKIP FIRST
0x0f9714…0f98a8 Dummy {f00=0x00a4, f01=0x0190, f02=»NT' ^ z P CM XSTA _ P CF A5,TRTEXT SEND ONE BLOCK _ & P CF A5,SPTIM START PROCEDURE TIMER _ @ P IM XACK SET 'ACK EXPECTED' _ j P RB POL100 _ P _ P* _ P* _ & P* SPECIFIC POLL HAS BEEN RECEIVED _ P* _ P* _ PSPOLL EQU *
0x0f98a8…0f9a3c Dummy {f00=0x00a4, f01=0x0190, f02=»HECK POLLTIMER _ P LDR A6,A7 RESTORE A6 ` P IFT STAT=1 ` 4 P LD A1,DWTST,A6 GET STATUS ` H P ANK A1,7 ` j " P RB(NZ) POL050 PENDING STATUS ` | P XIF ` P IFF STAT+SPECP=0 ` P LD A1,DWTST,A6 ` P RB(N) POL115 NO REQUEST ` P LD A1,D
0x0f9a3c…0f9bd0 Dummy {f00=0x00a4, f01=0x018e, f02=» XIF ` P RB POL115 SEND EOT a P a ( P* a 2 P* a < 8 P* CHECK IF THERE IS A WRITE REQUEST TO BE COMPLETED a F P* a P* A1 CONTAINS RETURN CODE a P* a P* a PCWRITE LD A6,FDWTUT a $ P RF(Z) CWR900 NO WRITE GOING ON a P L
0x0f9bd0…0f9d64 Dummy {f00=0x00a4, f01=0x0190, f02=» a r P SUK A2,2 b ( P RF(NZ) CWR900 NOT EXCHANGE REQUEST b P LDR A1,A1 b F 2 P RF(NZ) CWR100 TRANSMISSION ERROR, RC NOT ZERO b X P LDK A2,2 TRANMISSION OK b ( P ST A2,DWTOR,A6 INDICATE READ ORDER b P RF CWR150 b & PCWR100 LD A8,FECB GET ECB AD
0x0f9d64…0f9ef8 Dummy {f00=0x00a4, f01=0x0190, f02=»REQUEST b x PCWR150 EQU * c * P CF A15,REMOVW REMOVE FROM WRITE QUEUE c $ PCWR200 EQU * c R PCWR900 EQU * c f " P CM XACK RESET 'ACK EXPECTED' c z P CM FDWTUT c P RTN A5 c P c P* c P* c P* READ ONE TEXT BLOCK c P* c P
0x0f9ef8…0fa08c Dummy {f00=0x00a4, f01=0x0190, f02=»IF CORRECT ETB BLOCK RECEIVED c P* d & PRDMESS EQU * d 0 $ P LD A4,DCRBUF GET BUFFER ADDRESS d D P ADK A4,6 RESERVE HEADER d l P LDK A3,0 d P LD A1,XSTA d $ P RF(NZ) RDM050 LAST INPUT WAS OK d " P LD A1,FBLST COMPUTE NEW INDEX d P SUR A1,
0x0fa08c…0fa220 Dummy {f00=0x00a4, f01=0x0190, f02=» EQU * d P CM XSTA e P LDK A7,0 RESET LRC e P e : P IFT IBMCHR=1 e B P LD A1,FBAX e X " P RF(NZ) RDM100 NOT FIRST BLOCK e l P CF A5,READP e P RF(NZ) RDM120 PARITY ERROR e P CWK A2,ESC e P RF(NE) RDM110 e * P CF A5,READP SKIP NE
0x0fa220…0fa3b4 (0, 317) Dummy {f00=0x00a4, f01=0x0190, f02=»ITY ERROR e ~ PRDM110 EQU * f P CWK A2,ETX f & P RF(E) RDM130 ETX RECEIVED f : P CWK A2,ETB f P RF(E) RDM160 ETB RECEIVED f p P CWK A2,ITB f P RF(E) RDM170 ITB RECEIVED f P CWK A2,ENQ f 2 P RF(E) RDM120 SKIP IF ENQ EMBEDDED IN MESSAG
0x0fa3b4…0fa548 Dummy {f00=0x00a4, f01=0x0190, f02=»A2 f P SUK A1,DC1+3 g P RF(P) RDM115 NOT DC1-DC3 g P ADK A1,3 g B P RF(N) RDM115 NOT DC1-DC3 g T P SLL A1,6 g v P LDR A8,A1 g * P CF A5,READP 8-BIT CHAR GET NEXT PART g P RF(NZ) RDM120 PARITY ERROR g * P SUK A2,/20 ASSEMBLE TO ONE
0x0fa548…0fa6dc Dummy {f00=0x00a4, f01=0x0190, f02=»R g v $ P IM FBAX INCREMENT BUFFER INDEX h P LD A1,FBAX h 2 P CWK A1,RBUFL+RBUFL h F P RB(NG) RDM100 NOT OVERFLOW h b P* h P* BUFFER OVERFLOW h P* h P RF RDM140 ABORT INPUT h PRDM120 EQU * h & P LDK A3,1 INDICATE INVALID MESSAGE
0x0fa6dc…0fa870 Dummy {f00=0x00a4, f01=0x0190, f02=»QU * h $ P LD A1,DCRBUF GET BUFFER ADDRESS i P LD A2,FBAX GET BUFFER INDEX i 4 2 P ST A2,+2,A1 STORE EFFECTIVE LENGTH IN HEADER i X P IFF CODE=1 i P CF A5,RDLRC i P RF(Z) RDM150 LRC WAS OK i P XIF i P IFT CODE=1 i & P CF A5,RDCRC READ
0x0fa870…0faa04 Dummy {f00=0x00a4, f01=0x0190, f02=» EQU * i $ P LDR A7,A3 SAVE RESULT REGISTER j P CF A5,HALTIN HALT INPUT j 6 P IFT P6805=1 j V " P ORR A7,A1 PARITY ERROR SALCUZ j j P XIF SALCUZ j P RTN A5 j P* j P* ETB RECEIVED j P* j PRDM160 EQU * j P LDR A3,A3 j " P R
0x0faa04…0fab98 Dummy {f00=0x00a4, f01=0x0190, f02=»M170 EQU * j P IFF CODE=1 k P CF A5,RDLRC k & " P RB(NZ) RDM120 LRC WAS NOT OK k : P XIF k ` P IFT CODE=1 k l & P CF A5,RDCRC READ CRC AND CHECK IT k " P RB(NE) RDM120 CRC WAS NOT OK k P XIF k P RB RDM100 k P k P* k P* TRAN
0x0fab98…0fad2c Dummy {f00=0x00a4, f01=0x0190, f02=»NZ) TRDLE k P LDK A3,ACK0 LOAD ACK0 l P RF TRDLE l 0 P* l B P* TRANSMIT WACK l L P* l d PTRWACK LDK A3,WACK LOAD WACK l n P RF TRDLE l P* l P* TRANSMIT RVI l P* l P IFF STAT=0 l PTRRVI LDK A3,RVI LOAD RVI l P XIF
0x0fad2c…0faec0 Dummy {f00=0x00a4, f01=0x0190, f02=»1 l P RF TRREP m P m P* m & P* TRANSMIT NAK m 0 P* m F PTRNAK LDK A3,NAK LOAD NAK m P P RF TREN10 m r P* m P* TRANSMIT EOT m P* m PTREOT LDK A3,EOT LOAD EOT m P RF TREN10 m P* m P* TRANSMIT ENQ m P* m
0x0faec0…0fb054 (0, 318) Dummy {f00=0x00a4, f01=0x0190, f02=»TRREP CF A5,TRSYNC START OUTPUT m & P LC A2,RESEND GET FIRST CHARACTER n ( P CF A5,WRITEP SEND IT n R & P LC A2,RESEND+1 GET NEXT CHARACTER n p P CF A5,WRITEP SEND IT n PTRRE10 LDK A2,/FF n P CF A5,WRIT05 SEND PAD n P LDK A2,/FF n P CF
0x0fb054…0fb1e8 Dummy {f00=0x00a4, f01=0x0190, f02=» SALCUZ n x P XIF SALCUZ o & P SST A2,LCUUT PERFORM SST AT ONCE o & P IFF LOGG=0 o P ( P CF A5,LOGSST LOG TRANSMITTER STATUS o d P XIF o P RTN A5 o P o P* o P* o P* TRANSMIT ONE TEXT BLOCK o P* o P* o PTRTEXT E
0x0fb1e8…0fb37c Dummy {f00=0x00a4, f01=0x0190, f02=» P LD A4,FBAX p ( P RF(NZ) TRT050 NOT START OF MESSAGE p P p D 2 P LD A1,XRB READ BUFFER COMMAND IN PROCESS ??? p L P RF(NZ) TRT050 YES !! p P p P LD A4,FECBBA p " P LC A3,+2,A4 GET AID CHARACTER p P SUK A3,/30 p $ P RF(NZ) TRT050 N
0x0fb37c…0fb510 Dummy {f00=0x00a4, f01=0x0190, f02=»END % p P LDK A2,'/' q P CF A5,WRITE SEND / q " P LDK A2,STX q > P CF A5,WRITE SEND STX q R ( P ST A4,FBLST REMEMBER START OF BLOCK q p ( P ADK A4,5 SKIP AID + CURSOR ADDRESS q P LDK A3,5 ADJUST LENGTH q P LDK A2,3 q P ST A2,FBAX q
0x0fb510…0fb6a4 Dummy {f00=0x00a4, f01=0x0190, f02=» LDK A7,0 RESET LRC q $ P LD A4,FECBBA GET BUFFER ADDRESS r P AD A4,FBAX ADD BUFFER INDEX r D ( P ST A4,FBLST REMEMBER START OF BLOCK r h ( P ADK A4,2 SKIP FIRST WORD OF BUFFER r & P LDK A3,0 RESET CHARACTER COUNTER r P LD A1,FBAX GET BUFFER INDEX r
0x0fb6a4…0fb838 Dummy {f00=0x00a4, f01=0x0190, f02=»F A5,WRITEP SEND STA r P IFT IBMCHR=1 s P IFF RCOM=1 s 2 " P LDK A2,/27 SEND ENTER AS AID s F P CF A5,WRITEP s l " P LDK A2,/20 AND CURSOR ADDRESS s P CF A5,WRITEP s P LDK A2,/20 s P CF A5,WRITEP s P XIF s P IFT RCOM=1 s P
0x0fb838…0fb9cc Dummy {f00=0x00a4, f01=0x0190, f02=»R DISPLAY s | PTRT060 CF A5,WRITEP SEND AID t P t 6 $ P LD* A3,DWTCUR,A6 CURSOR ADDRESS t > . P CF A5,LINCOL SEND LINE AND COLUMN NUMBER t f P LDK A3,5 SET BLOCK COUNT t P RF TRT100 t PTRT070 EQU * t P XIF t P t P LDK A3,2 t PTR
0x0fb9cc…0fbb60 Dummy {f00=0x00a4, f01=0x0190, f02=»,XRB READ BUFFER COMMAND ??? t P RF(Z) TRT105 NO!! u $ P u > @ P************************************************************ u F P* u , P* CHECK IF ATTRIBUTE CHARACTER OR NULL u P* u 4 P*********************************************** u P u
0x0fbb60…0fbcf4 (0, 319) Dummy {f00=0x00a5, f01=0x0190, f02=» " P RF(NE) TRT102 NO,GO TO TRT102 v P LDK A2,/0A v * PTRT102 EQU * v > P CWK A2,/7D END OF MESSAGE ? v R " P RF(NE) TRT103 NO,GO TO TRT103 v v P LDK A2,/19 v PTRT103 EQU * v P CWK A2,X'7F' NULL ?? v P RF(NE) TRT105 v P SUK A2,1 v
0x0fbcf4…0fbe88 Dummy {f00=0x00a5, f01=0x0190, f02=» v r P w ( P LC A2,-1,A4 GET ATTRIBUTE CHARACTER w P ANK A2,X'7F' w < ( P LDR A1,A2 CONVERT TO IBM ATTRIBUTE w R P ANK A1,1 w ~ P ANK A2,/1E MASK w P SLL A2,1 w & P ORR A2,A1 IBM ATTRIBUTE COMPOSED w " P ORK A2,/40 BIT ALWAYS SET ONE w
0x0fbe88…0fc01c Dummy {f00=0x00a5, f01=0x0190, f02=»,WRITEP SEND ATTRIBUTE w P ADK A3,1 x P RF TRT110 x 0 PTRT105 EQU * x B P XIF x V P x b P CWK A2,/07 x l ( P RF(L) TRT110 ILLEGAL CODE : SKIP IT x P CF A5,WRITEP SEND CHARACTER x PTRT110 EQU * x $ P IM FBAX INCREMENT BUFFER INDEX x
0x0fc01c…0fc1b0 Dummy {f00=0x00a5, f01=0x0190, f02=»UNTER x p P CWK A3,TBLEN y P RB(L) TRT100 NOT FULL BLOCK y $ P IFT RCOM=1 y H , P LDK A1,SBA CHECK IF SBA AT END OF BLOCK y P CC A1,-2,A4 y P RF(E) TRT115 YES y P CC A1,-1,A4 y P RF(NE) TRT116 NO SEND ETB y ( P LCR A2,A4 GET FIRST BYT
0x0fc1b0…0fc344 Dummy {f00=0x00a5, f01=0x0190, f02=» SECOND BYTE AFTER SBA y | P CF A5,WRITEP SEND IT z P IM FBAX INCREMENT INDEX z < P XIF z PTRT116 EQU * z h P LDK A2,ETB LOAD ETB z | PTRT120 EQU * z P CF A5,WRITEP SEND IT z P IFF CODE=1 z P LDR A2,A7 GET LRC z P CF A5,WRITEP SE
0x0fc344…0fc4d8 Dummy {f00=0x00a5, f01=0x018e, f02=»ND CRC BYTE 1 z P ECR A2,A8 { P ANK A2,/FF { ( " P CF A5,WRIT05 SEND CRC BYTE 2 { < P XIF { b P ABL TRRE10 HALT OUTPUT { n PTRT130 EQU * { P IM XETX INDICATE 'ETX SENT' { PTRT140 EQU * { P LDK A2,ETX LOAD ETX { P RB TRT120 SEND ET
0x0fc4d8…0fc66c Dummy {f00=0x00a5, f01=0x0190, f02=» { $ P IM XSTA INDICATE 'STATUS SENT' | P ST A6,FDWTUT SAVE A6 | 0 P CF A5,TRSYNC START OUTPUT | N P LDK A2,SOH | p P CF A5,WRITE SEND SOH | P LDK A7,0 REST LRC | P LDK A2,'%' | P CF A5,WRITEP SEND '%' | P LDK A2,'R' | P CF A5
0x0fc66c…0fc800 Dummy {f00=0x00a5, f01=0x018e, f02=»,A6 | P CF A5,WRITEP SEND STA } P LD A1,DWTST,A6 GET STATUS } * P ANK A1,/06 MASK FOR S/S 0 } L P SRL A1,1 } n $ P LC A2,SSTAB,A1 GET STATUS BYTE } P CF A5,WRITEP SEND S/S 0 } P LDK A2,NOIR PRELOAD S/S 1 } P LD A1,DWTST,A6 GET STATUS }
0x0fc800…0fc994 (0, 320) Dummy {f00=0x00ad, f01=0x0190, f02=» } P CF A5,WRITEP SEND S/S 1 ~ P RB TRT130 SEND ETX AND LRC ~ ( P XIF ~ L P ~ X P* ~ b P* ~ l P* TRANSMIT SYNC SEQUENCE ~ v P* ~ P* ~ PTRSYNC EQU * ~ P LDK A2,0 SALCUZ ~ * P CIO A2,0,LCUIN HALT INPUT IF NOT DONE ~ P S
0x0fc994…0fcb28 Dummy {f00=0x00ad, f01=0x0190, f02=» SALCUZ ~ P IFT CODE=1 SALCUZ P LDK A2,0 SALCUZ , , P CIO A2,1,LCUUT START TRANSMITTER SALCUZ F P RF(A) TRS010 SALCUZ v P SST A1,LCUUT SALCUZ P RF(A) TRS005 SALCUZ P ABL BRM SALCUZ " PTRS005 CIO A2,1,LCUUT SALCUZ
0x0fcb28…0fccbc Dummy {f00=0x00ad, f01=0x0190, f02=» P IFT P6805=1 SALCUZ P IFT CODE=0 SALCUZ P LDK A2,/0C SALCUZ < P CIO A2,1,LCUUT SALCUZ X P RF(A) TRS010 SALCUZ x P SST A1,LCUUT SALCUZ P RF(A) TRS005 SALCUZ P ABL BRM SALCUZ " PTRS005 CIO A2,1,LCUUT SALCUZ
0x0fccbc…0fce50 Dummy {f00=0x00ad, f01=0x0190, f02=»A5,READ WAIT FOR OUTPUT INTERRUPT P LDK A3,4 4 SYNS * PTRS100 LDK A2,SYN B P CF A5,WRITE SEND SYN P SUK A3,1 z P RB(NZ) TRS100 P RTN A5 P P* P* P* RECEIVER INTERRUPT P* P* PIH1501
0x0fce50…0fcfe4 Dummy {f00=0x00ad, f01=0x018e, f02=»,A15 SAVE A1-A8 =1 P XIF * P CF A15,LDREG RESTORE DC REGS A3 - A8 & P INR A2,0,LCUIN READ CHAR T , P RF(NA) IHIN20 NOT ACCEPTED,CHECK STATUS v P IFF LOGG=0 ( P CF A5,LOGIN LOG RECEIVED CHARACTER P XIF P IFF CODE=1 P C
0x0fcfe4…0fd178 Dummy {f00=0x00ad, f01=0x0190, f02=» P IFT CODE=1 P C2 SYNSW 2 P RF(NZ) IHLCI1 DO NOT SKIP SYNCS IN BCC FRAME * P CWK A2,SYNEBC ` P RF(E) READ SKIP EBCDIC SYN v PIHLCI1 EQU * P CF A5,CRCCAL CALCULATE CRC ( P LC A2,TASCII,A2 TRANSLATE TO ASCII P XIF
0x0fd178…0fd30c Dummy {f00=0x00ad, f01=0x0190, f02=»=1 SALCUZ $ PIHIN20 RF SST PERFORM SST SALCUZ P XIF SALCUZ : P P P* Z P* d P* TRANSMITTER INTERRUPT n P* P* PIH1502 EQU * P ST P,INTSAV P IFT CPU852=1 P CF A15,SAVE8 SAVE A1 - A8 P XIF
0x0fd30c…0fd4a0 Dummy {f00=0x00ad, f01=0x0190, f02=»10 P P* P* & P* SST INSTRUCTION AND STATUS CHECK ( P* R ( P* LCU STATUS : BIT 10=CARRIER OFF . P* BIT 13=PARITY ERROR (6805 ONLY) SALCUZ , P* BIT 14=THROUGHPUT ERROR , P* BIT 15=MODEM
0x0fd4a0…0fd634 (0, 321) Dummy {f00=0x00ad, f01=0x0190, f02=»IF SALCUZ P LDR A2,A1 P IFF LOGG=0 & & P CF A5,LOGSST LOG SST INFORMATION : P XIF d P IFT P6805=0 SALCUZ p P ANK A2,2 P RF(Z) SST100 P XIF SALCUZ P IFT P6805=1 SALCUZ P ANK A2,6 SALCUZ P RF(Z) S
0x0fd634…0fd7c8 Dummy {f00=0x00ad, f01=0x0190, f02=»SSTRET SALCUZ P XIF SALCUZ PSST050 EQU * SALCUZ , P CM XSTA TROUHHPUT ERROR H P LDKL A5,STB h P ABL BRM010 | PSST100 EQU * P ST A1,DCSTCU P IFT P6805=0 SALCUZ * P CF A15,CKMESS CHECK IF STATUS CHANGE P RTN
0x0fd7c8…0fd95c Dummy {f00=0x00ad, f01=0x0190, f02=»INE ERROR, WAIT 0.2 SECONDS SALCUZ P DATA BRM RESTART SALCUZ * P DATA 2 WAIT TIME SALCUZ J P RF READ SALCUZ j P* PSST200 LDK A1,0 SALCUZ PSSTRET ADK A5,4 SALCUZ P LDR A1,A1 SET CR SALCUZ P ABR* A5 RETURN SALCUZ
0x0fd95c…0fdaf0 Dummy {f00=0x00ad, f01=0x0190, f02=» P IFT P6805=0 SALCUZ 4 P RB SST PERFORM SST INSTRUCTION AND STATUS CHECK P XIF SALCUZ X P IFT P6805=1 SALCUZ n * P RF READ WAIT FOR SST INTERRUPT SALCUZ P XIF SALCUZ P P* P* , P* WRITE FROM OR READ ONE CHA
0x0fdaf0…0fdc84 Dummy {f00=0x00ad, f01=0x0190, f02=» TRANSLATION OF TRAILING PAD * P LC A2,TEBCDIC,A2 TRANSLATE TO EBCDIC $ P XIF R PWRIT05 EQU * ^ " P OTR A2,0,LCUUT SEND CHARACTER r P RF(A) WRIT10 P RF READ THROUGHPUT ERROR P IFF CODE=1 $ PWRIT10 XRR A7,A2 ACCUMULATE BCC
0x0fdc84…0fde18 Dummy {f00=0x00ad, f01=0x0190, f02=»HARACTER v P XIF P* PREAD CF A15,STREG & P ABL TDISP @ P R P* P* f P*** WRITEP p P* P* WRITE A2 WITH PARITY P* P* P IFT CODE+P6805=0 SALCUZ PWRITEP ANK A2,/FF P ECR A1,A2
0x0fde18…0fdfac Dummy {f00=0x00ad, f01=0x0190, f02=» XIF P IFF CODE+P6805=0 SALCUZ PWRITEP RB WRITE . P XIF F P* R P* P* f P*** READP p P* . P* READ CHARACTER TO A2 AND CHECK PARITY P* P* PREADP CF A5,READ P IFT CODE+P6805=0 SALCUZ
0x0fdfac…0fe140 Dummy {f00=0x00ad, f01=0x0190, f02=»,A2 P ANK A2,/7F P XIF P IFF CODE+P6805=0 SALCUZ , P LDK A1,/80 N P XIF b P ADK A5,4 n P ANK A1,/80 P XRK A1,/80 P ABR* A5 P* P* P P* < P* FIND DWT CONTAINING SUBTERMINAL ADDRES
0x0fe140…0fe2d4 (0, 322) Dummy {f00=0x00ae, f01=0x0190, f02=»DWT TO FOUND TERMINAL P* B P* NOTE: FOR SIEMENS MSV1 - SEPARATE SELECT AND POLL ADDRESSES ( * P* ENTRY: FINTER - CHECK SELECT ADDRESS n , P* FINTEP - CHECK SPECIFIC POLL ADDRESS P* . PRBYTE DATA 0 IF 1 COMPARE WITH RIGTH BYTE P
0x0fe2d4…0fe468 Dummy {f00=0x00ae, f01=0x018e, f02=» EQU * P XIF & P LD A4,DCTAB GET ADDRESS TO DC:TAB * P AD* A4,DCTAB ADDRESS TO END OF DC:TAB D PFINT10 SUK A4,2 r P LDK A3,0 DEFAULT VALUE P CW A4,DCTAB END OF TABLE ( P RF(E) FINT20 SUBTERMINAL NOT FOUND P LDR* A3,A4 LOAD
0x0fe468…0fe5fc Dummy {f00=0x00ae, f01=0x0190, f02=» P IFT MSV1=0 . P CC A2,1,A3 COMPARE TO SUBTERMINAL ADDRESS P XIF J & P RB(NE) FINT10 TAKE NEXT TERMINAL V PFINT20 CM RBYTE P ANKL A3,/FFFE P RTN A5 P P* P* P* POWER ON FUNCTIONS P* P*
0x0fe5fc…0fe790 Dummy {f00=0x00ae, f01=0x0190, f02=»A1-A8 =1 P XIF P IFT STAT=1 P LDK A5,4 SET DEVICE END 0 P LD A1,DCTAB P . P AD* A1,DCTAB GET ADDRESS TO END OF TABLE d PDRDC05 SUK A1,2 P CW A1,DCTAB P RF(E) DRDC06 END OF TABLE P LDR* A6,A1 GET DWT ADDRESS 0 P
0x0fe790…0fe924 Dummy {f00=0x00ae, f01=0x0190, f02=»IF P LDK A2,/40 P ORS A2,DCONOF P CF A15,CKMESS 4 ( P LD A2,DCTPGP GET POLL TIMER POINTER J " P RF(NZ) DRDC20 ALREADY STARTED v * PDRDC10 CF A15,SPOTIM START POLL TIMER PDRDC20 ABL BRM P P* P* POLL TIME OUT
0x0fe924…0feab8 Dummy {f00=0x00ae, f01=0x0190, f02=» CHECK IF STATUS CHANGE $ P CF A15,SPOTIM START POLL TIMER P ABL TDISP H P* Z 4 P* RESTART POLL TIMER WHEN POLL HAS BEEN RECEIVED d P* $ PCPTIM CM DCONOF INDICATE POLLING P LDKL A2,-TIMPOL P ST* A2,DCTPGP RESTART TIMER *
0x0feab8…0fec4c Dummy {f00=0x00ae, f01=0x0190, f02=» TIMER v P DATA PTOUT,TIMPOL & P ST A4,DCTPGP STORE TIMER POINTER ( P ADKL A15,4 R P ABR* A15 f P x P* P* START PROCEDURE TIMER P* PSPTIM EQU * $ P LDR A1,A6 LOAD DWT AS PARAMETER P CF A15,SETIME P
0x0fec4c…0fede0 Dummy {f00=0x00ae, f01=0x0190, f02=»UT CM DCTPP P LDR A6,A1 RELOAD A6 P LDKL A5,STB LOAD STACK BASE 0 , P CF A5,HALTIN HALT INPUT IF OPEN SALCUZ T P LD A1,XACK " P RF(Z) PRT10 ACK NOT EXPECTED P CF A5,TRENQ SEND ENQ & P CF A5,SPTIM START PROCEDURE TIMER PPR
0x0fede0…0fef74 (0, 323) Dummy {f00=0x00ae, f01=0x0190, f02=» NOT RUNNING P CM* DCTPP STOP TIMER P CM DCTPP 2 PHPT10 RTN A5 D P X P IFT CODE=1 b P* v P* P* CALCULATION OF CRC P* P* A2 = CHARACTER P* A7 = ACCUMULATED CRC P* P* PCRCCAL EQU *
0x0fef74…0ff108 Dummy {f00=0x00ae, f01=0x0190, f02=» XRR A3,A2 P SRL A2,1 P ANK A3,1 $ P RF(Z) CRC110 6 P XRKL A7,/A001 L PCRC110 SUK A1,1 b P RB(NZ) CRC100 z P LD A1,CRCSAV P LD A2,CRCSAV+2 P LD A3,CRCSAV+4 P RTN A5 PCRCSAV RES 3 P P*
0x0ff108…0ff29c Dummy {f00=0x00ae, f01=0x0190, f02=»RENT CRC x $ P IM SYNSW DO NOT SKIP SYNCS NOW P CF A5,READ READ BYTE 1 8 P LD A8,CRCSAV+2 SAVE IT X P CF A5,READ READ BYTE 2 x ( P CM SYNSW SYNCS CAN BE SKIPPED AGAIN P LD A2,CRCSAV+2 SAVE IT P SLL A2,8 P XRR A2,A8 P
0x0ff29c…0ff430 Dummy {f00=0x00ae, f01=0x0190, f02=» READ LRC CHARACTER " P* CR=0 IF LRC OK P* F PRDLRC IM SYNSW P P CF A5,READP f P ADK A5,4 z P LDR A1,A1 P RF(NZ) LRCEND P ANK A7,/7F PLRCEND EQU * P CM SYNSW P ABR* A5 P P X
0x0ff430…0ff5c4 Dummy {f00=0x00ae, f01=0x0190, f02=»0 CU LINE ADDRESS P DATA /8000 STATUS P DATA 0 ECB ADDRESS 4 P DATA 0 ORDER P * P DATA DC15DC POINTER TO ADDRESS BLOCK f P DATA 0 TTAB ADDRESS $ P DATA 0 WAIT/ACTIVATE INDICATOR P DATA 0 TASK QUEUE P* P IFT MMUPAG=
0x0ff5c4…0ff758 Dummy {f00=0x00ae, f01=0x0190, f02=»0 WRITE QUEUE OR BUFFER QUEUE . P DATA 0 STATUS QUEUE (NOT USED BY DC-TASK) & " P DATA 0 RECEIVE MESSAGE QUEUE X , P DATA 0 SIMULATED DEVICE BUFFER ADDRESS ~ P DATA 0 CURSOR ADDRESS " P DATA 0 REQUEST TIMEOUT VALUE P* P IFT MMUPAG=
0x0ff758…0ff8ec Dummy {f00=0x00ae, f01=0x0190, f02=»POOL | P* PRLINK EQU RBUFL+RBUFL+8 P* 6 PDCRBUF EQU * @ P DATA *+2 FREE BUFFER ANCHOR T P IFF RBUFNR=1 DK3 x P IFF RBUFNR=2 P DATA *+RLINK P RES RBUFL+3 P IFF RBUFNR=3 P DATA *+RLINK P RES RBUFL
0x0ff8ec…0ffa80 Dummy {f00=0x00ae, f01=0x018e, f02=»ES RBUFL+3 P XIF DK3 P DATA 0 END OF CHAIN $ P RES RBUFL+3 @ P T P IFF MMUPAG=0 & PMMUBUF RES TBUFL+1 MMU WORK BUFFER r P XIF P P* P* P* INTERRUPT LOGGING ROUTINE P* P* P IFF LOGG=
0x0ffa80…0ffc14 (0, 324) Dummy {f00=0x00ae, f01=0x0190, f02=» PLOGIN CWK A2,/FF P RF(E) LOGE10 P ST A2,SAVE2 6 PLOG10 ST A3,SAVE3 J P LD A3,LOGPNT d P STR A2,A3 z P ADK A3,2 P CWK A3,LOGEND P RF(L) LOGEXI P LDKL A3,LOGSTA PLOGEXI ST A3,LOGPNT P LD A2,SAV
0x0ffc14…0ffda8 Dummy {f00=0x00ae, f01=0x0190, 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 < P******************************************************* P* P* L I N C O L P* : P* CONVER
0x0ffda8…0fff3c Dummy {f00=0x00ae, f01=0x0190, f02=»NCOL EQU * " P LDR A2,A3 COPY CURSOR ADDRESS P SRL A2,6 8 P ANK A2,X'3F' J & P LC A2,LICO:T,A2 ASCII LINE NUMBER ` " 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 NUMBER
0x0fff3c…1000d0 Dummy {f00=0x00ae, f01=0x0190, f02=»HABET z P DB PLICO:T EQU * * P DATA /2041,/4243,/4445,/4647 /00-/07 0 * P DATA /4849,/232E,/3C28,/2B21 /08-/0F ^ * P DATA /264A,/4B4C,/4D4E,/4F50 /10-/17 * P DATA /5152,/245D,/2A29,/3B5E /18-/1F * P DATA /2D2F,/5354,/5556,/5758 /2
0x1000d0…100264 Dummy {f00=0x00ae, f01=0x4128, f02=»8-3F p P DE P XIF P & P 0 PDC:IN DATA DC:TAB+2 8 PDCTAB DATA DC:TAB T " PDC:TAB DATA 2 LENGTH OF DC:TAB n * P DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0 * P DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0 PDC:END EQU * P*
0x100264…1003f8 Dummy {f00=0x00ae, f01=0x2008, f02=» H P X ` h p x
0x1003f8…10058c Dummy {f00=0x00ae, f01=0x0190, f02=», gW , 4 , ' ( wM T-! y) $ LbM ( >4a> T T 4 4 C C ( wM CT yP M h M Pb (hM P _ + C W# ! ( 3 (dM ( ( m> _i C0 1 TF TB_ T5 T1 >4m> & T
0x10058c…100720 Dummy {f00=0x00ae, f01=0x0190, f02=» > P ) 4 4 ( > 0 4 h> T >4 4 4 0 $ # X h> PK h> T: $ - M3h> T bM > 1 )W W+4 % " "h> L T M3 bM > 1 M3% bM > 1 4 . p
0x100720…1008b4 (0, 325) Opaque[0x194]
0x1008b4…100a48 # DirEnt {nam=»EBCDIC«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x10f0, f03=0x0000}
0x1008b4…100a48 IdxSect {
0x1008b4…100a48 f00 = 0x0087 // 0x1008b4 @0x0
0x1008b4…100a48 f01 = 0x0004 // 0x1008b6 @0x2
0x1008b4…100a48 gno = [ // 0x1008b8 @0x4
0x1008b4…100a48 [0x00]: C0x0087.0x2.0
0x1008b4…100a48 [0x01]: C0x0087.0x3.0
0x1008b4…100a48 ]
0x1008b4…100a48 }
0x100a48…100bdc Dummy {f00=0x0087, f01=0x018e, f02=» 0 P IDENT EBCDIC 9.2DK 1 79-11-16 870105040920 P 8 P* @ 4 P************************************************ J P* $ P* PHILIPS TERMINAL SYSTEM PTS P* $ P* EBCDIC = EBCDIC/ASCII TABLE P* P* P* P*
0x100bdc…100d70 Dummy {f00=0x0087, 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 0 4 PX:B EQU 1 READ COMMAND HANDLING IF = 1 (DRDC15) PRCOM EQU X:B P* : P* VERSION FOR SCAND.
0x100d70…100f04 Dummy {f00=0x0087, f01=0x0190, f02=»* 7C 5C P* 00 7C P* 5A 24 P* 6A 40 0 P EJECT @ P* N P* X 2 P* TABLE FOR CONVERSION OF EBCDIC CODE TO ASCII b P* P* PTASCII EQU * P IFT CODE=1 ( P DATA /7F01,/0203,/0009,/0000 00-07 ( P DATA /0
0x100f04…101098 Dummy {f00=0x0087, f01=0x0190, f02=»/0000,/0000,/171B 20-27 ( P DATA /0000,/0000,/0005,/0000 28-2F ( P DATA /0000,/1600,/0000,/0004 30-37 L ( P DATA /0000,/0000,/1415,/001A 38-3F x ( P DATA /2041,/4243,/4445,/4647 40-47 ( P DATA /4849,/232E,/3C28,/2B21 48-4F ( P DATA /264A,
0x101098…10122c Dummy {f00=0x0087, f01=0x0190, f02=»C,/255F,/3E3F 68-6F ( P DATA /1831,/3233,/3435,/3637 70-77 ( P DATA /3839,/3A5B,/5C27,/3D22 78-7F H ( P DATA /2061,/6263,/6465,/6667 80-87 t ( P DATA /6869,/5B2E,/3C28,/2B21 88-8F ( P DATA /266A,/6B6C,/6D6E,/6F70 90-97 ( P DATA /7172,/5D2
0x10122c…1013c0 Dummy {f00=0x0087, f01=0x0190, f02=»435,/3637 B0-B7 | ( P DATA /3839,/3A23,/4027,/3D22 B8-BF ( P DATA /2041,/4243,/4445,/4647 C0-C7 D ( P DATA /4849,/5B2E,/3C28,/2B21 C8-CF p ( P DATA /264A,/4B4C,/4D4E,/4F50 D0-D7 ( P DATA /5152,/5D24,/2A29,/3B5E D8-DF ( P DATA /7F2F,/5354,/5
0x1013c0…101554 (0, 326) Dummy {f00=0x0087, f01=0x018e, f02=»/3DFF F8-FF x P XIF P EJECT P* . P* 8 2 P* TABLE FOR CONVERSION OF ASCII CODE TO EBCDIC B P* x P* PTEBCDIC EQU * P IFF CODE+RCOM=0 ( P DATA /0001,/0203,/372D,/0000 00-07 ( P DATA /0005,/1500,/0C00,/0000 08-0
0x101554…1016e8 Dummy {f00=0x0087, f01=0x0190, f02=» j ( P DATA /4D5D,/5C4E,/6B60,/4B61 28-2F ( P DATA /F0F1,/F2F3,/F4F5,/F6F7 30-37 4 ( P DATA /F8F9,/7A5E,/4C7E,/6E6F 38-3F ` ( P DATA /6AC1,/C2C3,/C4C5,/C6C7 40-47 ( P DATA /C8C9,/D1D2,/D3D4,/D5D6 48-4F ( P DATA /D7D8,/D9E2,/E3E4,/E5E6 50-57
0x1016e8…10187c Dummy {f00=0x0087, f01=0x40b0, f02=» ( P DATA /9798,/99A2,/A3A4,/A5A6 70-77 ( P DATA /A7A8,/A91C,/0000,/00E0 78-7F 0 4 P DATA /544F,/5353 SPEC. FLEX CHAR. 'TOSS' 80-84 P XIF P END @ ( P DATA /C8C9,/D1D2,/D3D4,/D5D6 48-4F ( P DATA /D7D8,/D9E2,/E3E4,/E5E6 50-57
0x10187c…101a10 Dummy {f00=0x0087, f01=0x2008, f02=» 68-6F z ( P DATA /9798,/99A2,/A3A4,/A5A6 70-77 ( P DATA /A7A8,/A91C,/0000,/00E0 78-7F B 4 P DATA /544F,/5353 SPEC. FLEX CHAR. 'TOSS' 80-84 n P XIF P END @ ( P DATA /C8C9,/D1D2,/D3D4,/D5D6 48-4F ( P DATA /D7D8,/D9E2,
0x101a10…101ba4 Dummy {f00=0x0087, f01=0x0190, f02=» I 0/ Q P 4 @'A TuI ThW 0 0 # 9 T ! y I T _$ X+W* A'I _; L_ I' I 0 W 0 @ 4 I 0 W 0 @'@ 4 A TlI T_W 0 # . I T ! y W T
0x101ba4…101d38 Dummy {f00=0x0087, f01=0x0190, f02=»M!! _/ 3b M < 3b M 3b M 8 > O O |8 _ BC%< hM B hM T b M 3b M P Y P ( ! K"e , / 6h ( T 2 | |_ h (L 2_
0x101d38…101ecc Dummy {f00=0x0087, f01=0x0190, f02=» I" ? I" ? @ @ 4 @ A 4 @ A @ 4 A @ v H A W @ W A 2@ I 4 @ W I W !I " "A 6 _5 W @ _ _EA 4 #A 6 <MW _Z @ $_BK ( @ % $_U$ 0 0 A &_nI 0 4@ @ _ K P 4@ _W
0x101ecc…102060 Dummy {f00=0x0087, f01=0x0190, f02=»T 4 ,T ! W 4 -T 4 .T W * TyW /TsWy * 4 2 + TLWR + TEWK + T>WD 0T8 4 I 0 4 I % 4 I 4 H 4 * 4 4 4 6 ! !1 4 4 I 1T 6 4 4 4 0 4 4 A @ @ 6
0x102060…1021f4 (0, 327) Opaque[0x194]
0x1021f4…102388 # DirEnt {nam=»TIMER «, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x1e40, f03=0x0000}
0x1021f4…102388 IdxSect {
0x1021f4…102388 f00 = 0x00f2 // 0x1021f4 @0x0
0x1021f4…102388 f01 = 0x0006 // 0x1021f6 @0x2
0x1021f4…102388 gno = [ // 0x1021f8 @0x4
0x1021f4…102388 [0x00]: C0x00f2.0x0.0
0x1021f4…102388 [0x01]: C0x00f2.0x1.0
0x1021f4…102388 [0x02]: C0x00f2.0x2.0
0x1021f4…102388 ]
0x1021f4…102388 }
0x102388…10251c Dummy {f00=0x00f2, f01=0x0190, f02=» 0 P IDENT TIMER REL 9.2 79-11-16 870105040920 P 8 P* @ P* J 8 P*************************************************** T P* $ P* PHILIPS TERMINAL SYSTEM PTS P* P* TIMER = TIMER FUNCTIONS P* P* P*
0x10251c…1026b0 Dummy {f00=0x00f2, 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
0x1026b0…102844 Dummy {f00=0x00f2, f01=0x0190, f02=» . P ENTRY SETIMP SETIME + STORE TIMER POINTER P 6 P > P F P* N P* X P*********** b P* EXTRNALS * v P************ P* P* P EXTRN TDISP DISPATCHER . P EXTRN LKMQDI QUEUE TERMINAL AND DISPATCH $ P EXT
0x102844…1029d8 Dummy {f00=0x00f2, f01=0x018e, f02=»ADDRESS x $ P EXTRN ACTOT ACTIVATE A TERMINAL * P EXTRN SAVE8 SAVE 8 REGISTERS ON STACK 8 8 P EXTRN TIMQUE POINTER TO FIRST BLOCK IN TIMER QUEUE f 0 P EXTRN IHRET8 RESTORE 8 REGISTERS FROM STACK P EJECT TIMER P* P* . P********
0x1029d8…102b6c Dummy {f00=0x00f2, f01=0x0190, f02=» d P* 6 P* A PROGRAM VERSION USING THE EXTENDED INSTRUCTION . P* SET IS OBTAINED BY SETTING CPU852 EQU 0. L P* ~ PCPU852 EQU 0 P* P EJECT TIMER P* P* P* T I M E R P* ( P* THIS IS THE TIMER LK
0x102b6c…102d00 Dummy {f00=0x00f2, f01=0x018e, f02=»ELAY P* P* A4 = 0 P* A5 = TTAB ADDRESS ( P* A8 = DELAY F P* P* f P* 2. TIMING AND ACTIVATION p P* P* A1 = PARAMETER 8 P* A4 = DISPATCH ADDRESS OF PROGRAM TO BE ACTIVATED , P* A5 = TTAB ADDRES
0x102d00…102e94 (0, 328) Dummy {f00=0x00f2, f01=0x0190, f02=» PTIMER EQU * P ADK A4,0 SET CR * P RF(NZ) TIM010 TIMING AND ACTIVATION? 0 P* ^ P EJECT TIMER h P* ~ P* PROGRAM DELAY P* P LDR A1,A5 SET PARAMETER P ST A8,PAR1+2 SET TIME P CF A15,SETIME PPAR1 DAT
0x102e94…103028 Dummy {f00=0x00f2, f01=0x0190, f02=» PTIM010 EQU * $ P CF A15,FNDTID FIND TTAB ADDRESS P ADK A2,0 SET CR D " P ABL(Z) LKMRQE TTAB NOT FOUND? ( P LDR A3,A2 IN BLOCK: A3=TTAB ADDRESS , P LDR A2,A4 A2=DISPATCH ADDRESS ( P CF A15,GETBLK A1=PARAMETER .
0x103028…1031bc Dummy {f00=0x00f2, f01=0x0190, f02=» PQUEDIS EQU * P ABL LKMQDI P* , P EJECT TIMER 6 P* L P* V P* RETURN AFTER TIME OUT ` P* P* 1.PROGRAM DELAY P* PDELAY EQU * P LDR A5,A1 SET TTAB ADDRESS * P RB QUEDIS QUEUE TASK FOR DISP
0x1031bc…103350 Dummy {f00=0x00f2, f01=0x0190, f02=»FREBLK AND SET IT FREE P LDR A5,A3 SET TTAB ADDRESS * P LDK A7,0 MONITOR ACTIVATION PARAMETER B ( P CF A15,ACTOT AND ACTIVATE TERMINAL p P RB TTDIS P* P EJECT TIMER P* P* " P* S E T I M E , S E T I M P P
0x103350…1034e4 Dummy {f00=0x00f2, f01=0x0190, f02=»RS:- ~ P* P* A1 = PARAMETER . P* A4 = IF SETIMP: TIMER POINTER ADDRESS 0 , P* P1 = DISPATCH ADDRESS AFTER TIME OUT b P* P2 = DELAY P* : P* P1 AND P2 ARE STORED AFTER THE SUBROUTINE REQUEST. P* P* EXIT PARAM
0x1034e4…103678 Dummy {f00=0x00f2, f01=0x018e, f02=» * P IFT CPU852=1 & P CF A15,SAVE8 SAVE A1-A8 ON STACK P XIF J P* V P IFT CPU852=0 ` P INH v " P MSR 8,A15 SAVE A1-A8 ON STACK P XIF P* P EJECT TIMER P* P* * P LDR A6,A4 SAVE TIMER POINTER AD
0x103678…10380c Dummy {f00=0x00f2, f01=0x0190, f02=» P LDR* A8,A5 TIME IN A8 P ADK A5,2 & ( P ST A5,20,A15 ADJUST PROGRAM COUNTER 8 $ P CF A15,GETBLK GET A FREE BLOCK d P LDR A2,A4 P C1R A1,A8 " P CF A15,GETBLK GET TIMER BLOCK P LD A1,TIMQUE " P STR A1,A4 SET BLOCK IN QUEU
0x10380c…1039a0 Dummy {f00=0x00f2, f01=0x417a, f02=»ETIME? , P STR A4,A6 -SETIMP. STORE TIMER POINTER P* > P EJECT TIMER H P* ^ P* h PSETEND EQU * r P IFT CPU852=1 ( P ABL IHRET8 RESTORE A1-A8 AND RETURN P XIF P* P IFT CPU852=0 * P MLR 8,A15 RESTORE A
0x1039a0…103b34 (0, 329) Dummy {f00=0x00f2, 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
0x103b34…103cc8 Dummy {f00=0x00f2, f01=0x0190, f02=»W ! f* T ! X $P y $ Y $ C ! [ 0 Z , ! B Z ZX X . 0T N W X ,P Y . 0 %_. % Y . _t _ P , _ ?" 8 T ! )_ W ! T "? 9 0 R Q > 4 >_ <k$ Y T #? 0R R * W ?W X P $ <c ,P $
0x103cc8…103e5c Dummy {f00=0x00f2, f01=0x0190, f02=» NT 0 (@ > ($SWAP A A A A. UU @ @ ! P$>B @ A @ E D P _ $ % $P _ % A @ " Q A R : R W2 A ( A ( P. _ " :c* A W " :d2 * A r & W F
0x103e5c…103ff0 Dummy {f00=0x00f2, f01=0x0190, f02=» PN A @ $ P( @ R W 8 !RRT W V P A Y W @ " T> W @ V W Q h Y P @ T W - P _ T <B :L A W A A W
0x103ff0…104184 Dummy {f00=0x00f2, f01=0x0190, f02=» < P W <9B @ V W Q W @ 6 @ CRT @ P @ ! P W @ V P _ @ ! P !RRP V @ P W _: V @ PZ W @ @ ! T _ P
0x104184…104318 Dummy {f00=0x00f2, f01=0x0190, f02=» P$ _ P !;;T X$ W _J ( T (W R W W V 0 !;;P P V Xb _ P !;;T X$ W nP XZ_V S A A R @ R @ ! T A & A : V @ R V V
0x104318…1044ac Dummy {f00=0x00f2, f01=0x0190, f02=»A K : A T.I T P 1 I P < R P A _> : A A A X A n A A A A : 9e9C) A I " 9A ! 9B r @ Rr A I ! ( : A A A X A n A &! T A * A & I ! : 9E @ Rr s A
0x1044ac…104640 Dummy {f00=0x00f2, f01=0x0190, f02=»P P$_ P =H P @ T X W n : YX d C !CCT B. X B.9 H T Q _ r_ !SST( 0 U Z R X A X W : @ ' R xW V W$ V P P W P V T W V
0x104640…1047d4 (0, 330) Opaque[0x194]
0x1047d4…104968 # DirEnt {nam=»TMMLKM«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x1ce0, f03=0x0000}
0x1047d4…104968 IdxSect {
0x1047d4…104968 f00 = 0x00e7 // 0x1047d4 @0x0
0x1047d4…104968 f01 = 0x0006 // 0x1047d6 @0x2
0x1047d4…104968 gno = [ // 0x1047d8 @0x4
0x1047d4…104968 [0x00]: C0x00e7.0x0.0
0x1047d4…104968 [0x01]: C0x00e7.0x1.0
0x1047d4…104968 [0x02]: C0x00e7.0x2.0
0x1047d4…104968 ]
0x1047d4…104968 }
0x104968…104afc Dummy {f00=0x00e7, f01=0x0190, f02=» 2 P IDENT TMMLKM REL 9.2 79-11-16 870105040920 P : P* B P* L 6 P************************************************** V P* $ P* PHILIPS TERMINAL SYSTEM PTS P* ( P* TMMLKM = TOSS MMU LKM PROCESSORS P* P*
0x104afc…104c90 Dummy {f00=0x00e7, 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**
0x104c90…104e24 Dummy {f00=0x00e7, f01=0x0190, f02=» MMU TABLE | & P ENTRY TLUSEG LOCK/UNLOCK SEGMENT P < P D P L P* T P* ^ P************* h P* EXTERNALS * ~ P************* P* P* 0 P EXTRN FNDTID FIND TTAB ADDRESS FROM TASK ID , P EXTRN LKMQDI QUEUE TA
0x104e24…104fb8 Dummy {f00=0x00e7, f01=0x0190, f02=»AB ADDRESS ~ $ P EXTRN SCTNOS NUMBER OF SEGMENTS P EJECT TMMLKM : P* R P* P********** f P* TCHPAG * x P********** P* P* 2 P* THIS IS THE CHANGE MMU PAGE LKM PROCESSOR. P* B P* TCHPAG WILL CHANGE T
0x104fb8…10514c Dummy {f00=0x00e7, f01=0x0190, f02=»TERED FROM THE LKM HANDLER & P* WITH THE FOLLOWING PARAMETERS: " P* L P* A5 = TTAB ADDRESS V ( P* A7 = PAGE TO BE CHANGED, 0 - 15 t * P* A8 = NEW LOCATION OF PAGE, 0 - 63 P* < P* IT RETURNS TO CALLING TASK WITH A7 AND A8 UN
0x10514c…1052e0 Dummy {f00=0x00e7, f01=0x0190, f02=»XING IN MMU TABLE v P ADR A7,A5 ADD TTAB ADDRESS P LDR A2,A8 NEW PAGE LOCATION > . P ANK A2,/3F SKIP IRRELEVANT BITS (IF ANY) b P SLL A2,2 < P SC A2,TTB:MT,A7 STORE NEW LOCATION OF PAGE IN MMU TABLE P* 0 PT:DISP ABL LKMQDI QUEUE
0x1052e0…105474 (0, 331) Dummy {f00=0x00e7, f01=0x018e, f02=»* P* 4 P* THIS IS THE CHANGE MMU TABLE LKM PROCESSOR. P* L D P* TCHMMU WILL CHANGE THE MMU TABLE CONTENTS OF REQUESTING TASK V 4 P* TO THE MMU TABLE CONTENTS OF SPECIFIED TASK. P* * P* IT IS ENTERED FROM THE LKM HANDLER
0x105474…105608 Dummy {f00=0x00e7, f01=0x0190, f02=» ` P* ( P* IT RETURNS TO CALLING TASK WITH P* THE FOLLOWING PARAMETER: > P* b 2 P* A7 = UNCHANGED IF REQUEST SUCCESSFUL, ELSE l & P* A7 = -1 IF TASK NOT IN SYSTEM P* " PTCHMMU EQU * CHANGE MMU TABLE * P CF A15,FNDT
0x105608…10579c Dummy {f00=0x00e7, f01=0x0190, f02=»NTENTS h 4 P TS TTB:MT,A5 STORE IN MMU TABLE OF CALLING TASK * P RB T:DISP QUEUE TASK FOR DISPATCHING F P* t P EJECT TMMLKM ~ P* P* P********** P* TLUSEG * P********** P* P* 6 P* THIS IS THE LOCK
0x10579c…105930 Dummy {f00=0x00e7, f01=0x0190, f02=»OCK SEGMENT REQUEST IS ISSUED FOR THAT SEGMENT. P* 8 * P* IT IS ENTERED FROM THE LKM HANDLER B & P* WITH THE FOLLOWING PARAMETERS: p P* P* A5 = TTAB ADDRESS P* A7 = SEGMENT NUMBER & P* A8 = 0 IF LOCK SEGMENT REQUEST
0x105930…105ac4 Dummy {f00=0x00e7, f01=0x0190, f02=» P* > P* A7 = UNCHANGED IF SEGMENT LOADING IS SUCCESSFUL, ELSE & P* A7 = -1 IF REQUEST ERROR, ELSE P P* z P* P EJECT TMMLKM P* P* $ PTLUSEG EQU * LOCK/UNLOCK SEGMENT * P LDR A1,A7 CHECK IF SEGMENT NUMBER < 0
0x105ac4…105c58 Dummy {f00=0x00e7, f01=0x0190, f02=»TLCERR EQU * , P ABL LKMRQE BRANCH TO LKM REQUEST ERROR P* D PTLUS00 EQU * N , P SLL A1,3 ADJUST FOR INDEXING IN SEGTAB b $ P AD A1,SCTSEG ADD SEGTAB ADDRESS " P LCR A4,A1 GET SEGMENT STATUS P ANK A4,/8 " P RB(NZ) TLCERR CORE RE
0x105c58…105dec Dummy {f00=0x00e7, f01=0x4164, f02=» P EJECT TMMLKM P* P* LOCK SEGMENT & P* < 4 P ORRS A4,A1 INDICATE SEGMENT TO BE CORE RESIDENT F P RB T:DISP ~ P* P* UNLOCK SEGMENT P* PTLUS10 EQU * P C1R A4,A4 A4 := /FDFF 2 P ANRS A4,A1 INDICATE SEGME
0x105dec…105f80 Dummy {f00=0x00e7, f01=0x2008, f02=» NT TCHPAG PRR 9.1 78-10-16 870105040910 END <@ H
0x105f80…106114 (0, 332) Dummy {f00=0x00e7, f01=0x0190, f02=» n P LDK A3,0 P* P IFT MMUPAG=0 $ * P LDR* A1,A7 GET NO OF ECB:S IN ECBBLK : P XIF h P* t P IFT MMUPAG=1 ~ ( P ELR A1,A7 GET NO OF ECB:S IN ECBBLK P XIF P* ( P RF(NP) TP:RQE REQUEST ERROR IF <= 0 P*
0x106114…1062a8 Dummy {f00=0x00e7, f01=0x0190, f02=»S v & P LDR* A2,A8 GET FIRST WORD OF ECB P XIF 4 P* @ P IFT MMUPAG=1 J P ELR A8,A7 GET ECB ADDRESS ` $ P ELR A2,A8 GET FIRST WORD OF ECB P XIF P* ( P RF(N) TMW:30 I/O ALREADY COMPLETED? 8 P CF A15,FNDDWT NO, SEARCH DW
0x1062a8…10643c Dummy {f00=0x00e7, f01=0x0190, f02=» " P LD A2,DWTST,A6 GET DWT STATUS P RF(N) TP:RQE NOT BUSY? * P CW A5,DWTTAB,A6 J 4 P RF(NE) TP:RQE REQUEST NOT ISSUED BY THIS TASK? b 0 P LD A2,DWTWAT,A6 GET WAIT/ACTIVATE INDICATOR , P RF(NZ) TP:RQE REQUEST ISSUED WITH WAIT? P ORK A6,1
0x10643c…1065d0 Dummy {f00=0x00e7, f01=0x0190, f02=»AVE FIRST DWT ADDRESS P LDR A3,A6 P* 0 PTMW:20 EQU * : 8 P ST A6,DWTWAT,A9 CHAIN THIS DWT WITH THE ONE BEFORE N $ P LDR A9,A6 SAVE THIS DWT ADDRESS P SUK A1,1 ( P RB(P) TMW:10 MORE ECB:S IN ECBBLK? : P ST A3,DWTWAT,A9 NO, SET
0x1065d0…106764 Dummy {f00=0x00e7, f01=0x0190, f02=» TTAB SAVE AREA p 2 P ADK A3,0 CHECK FLAG IF FIRST ECB TO WAIT FOR & P RF(Z) TP:QDI FIRST ECB IN ECBBLK? N P* x : PTMW:40 ADKL A3,DWTWAT POINT TO WAIT/ACTIVATE INDICATOR $ P LDR* A2,A3 GET NEXT DWT ADDRESS P RF(Z) TP:QDI NO MORE DWT:S?
0x106764…1068f8 Dummy {f00=0x00e7, f01=0x40aa, f02=»QU * " P ABL LKMRQE LKM REQUEST ERROR P* 2 PTP:QDI EQU * < ( P ABL LKMQDI QUEUE TASK AND DISPATCH P P* | P* P* P END @ VATE INDICATOR $ P LDR* A2,A3 GET NEXT DWT ADDRESS P RF(Z) TP:QDI NO MORE DWT:S?
0x1068f8…106a8c Dummy {f00=0x00e7, 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
0x106a8c…106c20 Dummy {f00=0x00e7, f01=0x0000, f02=»
0x106c20…106db4 (0, 333) Opaque[0x194]
0x106db4…106f48 # DirEnt {nam=»TLDSEG«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0998, f03=0x0000}
0x106db4…106f48 IdxSect {
0x106db4…106f48 f00 = 0x004c // 0x106db4 @0x0
0x106db4…106f48 f01 = 0x0006 // 0x106db6 @0x2
0x106db4…106f48 gno = [ // 0x106db8 @0x4
0x106db4…106f48 [0x00]: C0x004c.0x3.0
0x106db4…106f48 [0x01]: C0x004d.0x0.0
0x106db4…106f48 [0x02]: C0x0051.0x0.0
0x106db4…106f48 ]
0x106db4…106f48 }
0x106f48…1070dc Dummy {f00=0x004c, f01=0x0190, f02=» 2 P IDENT TLDSEG REL 9.2 79-11-16 870105040920 P : P* B P* L 6 P************************************************** V P* $ P* PHILIPS TERMINAL SYSTEM PTS P* P* TLDSEG = LOAD SEGMENT P* P* P*
0x1070dc…107270 Dummy {f00=0x004c, f01=0x0190, f02=»M PROCESSOR, d 0 P* USED IN TOSS MEMORY MANAGEMENT SYSTEMS. P* H P* R P EJECT TLDSEG P* t P* ~ P*********** P* ENTRIES * P*********** P* P* P ENTRY TLDSEG LOAD SEGMENT & P ENTRY TLDS15
0x107270…107404 Dummy {f00=0x004c, f01=0x0190, f02=»* EXTERNALS * P************* P* , P* 6 0 P EXTRN PRUN TTAB ADDRESS OF RUNNING PROGRAM @ P EXTRN TDISP DISPATCHER t $ P EXTRN LKM030 LKM REQUEST ERROR & P EXTRN PAG:QB QUEUE LINK BACKWARDS P EXTRN PAG:PA PAGE ADDRESS & P
0x107404…107598 Dummy {f00=0x004c, f01=0x018e, f02=»A TTAB SAVE AREA P EXTRN TTB:MT MMU TABLE ( P EXTRN TTB:SB SEGMENT BLOCK ADDRESS 8 2 P EXTRN QLTDSK ACTIVATE LDTASK AT ENTRY LT:DSK d P EXTRN SCTSEG SEGTAB ADDRESS $ P EXTRN SCTNOS NUMBER OF SEGMENTS & P EXTRN SCTMMP MMU TABLE PAGE ENTRY
0x107598…10772c Dummy {f00=0x004c, 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
0x10772c…1078c0 Dummy {f00=0x004c, f01=0x0190, f02=» CPU852 EQU 0. t P* PCPU852 EQU 0 P* 4 * > . ** A PROGRAM VERSION USING TOSS DISC PAGING H * &* IS OBTAINED BY SETTING DSKPAG EQU 1. z * PDSKPAG EQU 0 * P* 4 P* A PROGRAM VERSION USING TOSS ASSEMBLER OVERL
0x1078c0…107a54 (0, 334) Dummy {f00=0x004d, f01=0x0190, f02=» P********** P* TLDSEG * P********** ( P* : P* D 0 P* THIS IS THE LOAD SEGMENT LKM PROCESSOR. N P* * P* IT IS ENTERED FROM THE LKM HANDLER & P* WITH THE FOLLOWING PARAMETERS: P* 4 P* A2 = DISPATCH ADDRESS
0x107a54…107be8 Dummy {f00=0x004d, f01=0x0190, f02=»S) d P* ( P* IT RETURNS TO CALLING TASK WITH " P* THE FOLLOWING PARAMETERS: @ P* f > P* A7 = UNCHANGED IF SEGMENT LOADING IS SUCCESSFUL, ELSE p & P* A7 = -1 IF REQUEST ERROR, ELSE ( P* A7 = -2 IF DISC I/O ERROR, ELSE $ P
0x107be8…107d7c Dummy {f00=0x004d, f01=0x018e, f02=»UGH THE DISPATCHER AFTER p > P* COMPLETION, THUS NO TASK SWITCHING WILL BE PERFORMED, < P* IN PURPOSE TO MAKE THE REQUEST AS FAST AS POSSIBLE. b P* : P* WHEN REQUESTED SEGMENT IS NOT IN CORE TLDSEG WILL : P* ACTIVATE LDTASK WHICH WILL
0x107d7c…107f10 Dummy {f00=0x004d, f01=0x018e, f02=» PTLDSEG EQU * LOAD SEGMENT * P LDR A1,A7 CHECK IF SEGMENT NUMBER < 0 & P RF(N) TLDERR REQUEST ERROR? T 2 P CW A1,SCTNOS CHECK IF SEGMENT NUMBER TOO BIG x P RF(NG) TLDS00 OK? P* $ PTLDERR LDK A6,/FF INDICATE ERROR , P ABL LKM030 BR
0x107f10…1080a4 Dummy {f00=0x004d, f01=0x0190, f02=» P LDR A3,A5 GET TTAB ADDRESS , P SLL A1,3 ADJUST FOR INDEXING IN SEGTAB , $ P AD A1,SCTSEG ADD SEGTAB ADDRESS & P ADK A2,2 UPDATE DISPATCH ADDRESS P* P IFT DSKPAG=0 $ P SUKL A15,4 ADJUST STACKPOINTER . P ST A2,4,A15 SET D
0x1080a4…108238 Dummy {f00=0x004d, f01=0x0190, f02=»,TTB:SB,A3 RESET SEGMENT BLOCK ADDRESS 6 P LD A1,SEG:DS,A1 GET LOGICAL ADDRESS OF SEGMENT 0 . P* h P IFT DSKPAG=1 r $ P SUKL A15,4 ADJUST STACKPOINTER . P ST A2,4,A15 SET DISPATCH ADDRESS ON STACK P XIF P* P RF TLDS40
0x108238…1083cc Dummy {f00=0x004d, f01=0x0190, f02=»ADDRESS j " P LDR* A4,A1 GET SEGMENT STATUS * P RF(N) TLDS10 SEGMENT LOADED IN CORE? 6 P ST A2,TTB:SA,A3 d P CM PRUN | P* P* ACTIVATE LOAD TASK P* 6 P CF A15,QLTDSK ACTIVATE LOAD TASK AT ENTRY LT:DSK P ABL TDISP GO TO D
0x1083cc…108560 Dummy {f00=0x004d, f01=0x0190, f02=»4 ADJUST STACKPOINTER . P ST A2,4,A15 SET DISPATCH ADDRESS ON STACK P* P ( P* REMOVE PAGE BLOCK FROM PAGE QUEUE Z P* P XIF P* & PTLDS15 EQU * ENTRY USED BY LDTASK P IFT DSKPAG=1 & P LDR* A2,A1 GET QUEUE LINK FORWARD
0x108560…1086f4 (0, 335) Dummy {f00=0x0051, f01=0x0190, f02=»F REMOVED BLK n " P STR A2,A4 UPDATE QUEUE LINKS P ST A4,PAG:QB,A2 < P XIF T P* ` P EJECT TLDSEG j P* , P* GET PAGE ADDRESS OF REQUESTED SEGMENT P* & PTLDS20 EQU * ENTRY USED BY LDTASK & P LD A1,PAG:PA,A1 GET PAG
0x1086f4…108888 Dummy {f00=0x0051, f01=0x0190, f02=»MMU TABLE j P* 0 P AD A3,SCTMMP POINT TO FIRST USED PAGE ENTRY , P LD A4,SCTNPE GET NUMBER OF PAGE ENTRIES P P* P* UPDATE PAGE ENTRY/ENTRIES P* PTLDS25 EQU * P SCR A2,A3 UPDATE PAGE ENTRY P SUK A4,1 ( P RF(NP
0x108888…108a1c Dummy {f00=0x0051, f01=0x0190, f02=»* P EJECT TLDSEG P* " P* , 4 PTLDS30 ANKL A1,/300 COMPUTE CURRENT SEGMENT BASE 6 P SLL A1,2 n P OR A1,SCTLAP $ P TL TTB:MT,A5 LOAD MMU REGISTERS P* PTLDS40 EQU * P IFT ASSOLY=0 2 P ES A1,T:ACSB,A13 UPDA
0x108a1c…108bb0 Dummy {f00=0x0051, f01=0x0190, f02=» BASE h P XIF P* P IFT CPU852=0 $ P LDR A6,A5 : $ P ML 6,TTB:SA+2,A6 RESTORE A1-A6 L $ P RTN A15 RETURN TO CALLING TASK t P XIF P* P IFT CPU852=1 $ P LD A1,TTB:SA+2,A5 RESTORE A1-A6 P LD A2,TTB:SA+4,A5
0x108bb0…108d44 Dummy {f00=0x0051, f01=0x4048, f02=» TASK v P XIF P* P* $ P* . END 8@ D $ P ML 6,TTB:SA+2,A6 RESTORE A1-A6 L $ P RTN A15 RETURN TO CALLING TASK t P XIF P* P IFT CPU852=1 $ P LD A1,TTB:SA+2,A5 RESTORE A1-A6 P LD A2,TTB:SA+4,A5
0x108d44…108ed8 Dummy {f00=0x0051, f01=0x2008, f02=» NT TLDSEG PREREL.9.1 780907 BOFE END 6@ B
0x108ed8…10906c Dummy {f00=0x0051, f01=0x0190, f02=»D OF QUEUE P IM 4,A4 INCREMENT TIMER P RB(N) CLK10 NOT TIME OUT? 2 P RF(Z) CLK30 TIME OUT? T P LDR* A3,A4 RELEASE TIMER r P STR A3,A6 P CF A15,FREBLK P LDR A4,A2 P CF A15,FREBLK P RB CLK20 P* P EJECT
0x10906c…109200 Dummy {f00=0x0051, f01=0x018e, f02=» P IFT CPU852=1 & P CF A15,SAVE8 SAVE A1-A8 ON STACK P XIF H P* T P IFT CPU852=0 ^ " P MSR 8,A15 SAVE A1-A8 ON STACK t P XIF P* $ P CF A15,SWL48 SWITCH TO LEVEL 48 P INH P LD A2,2,A4 LOAD DISP BLOCK P
0x109200…109394 (0, 336) Opaque[0x194]
0x109394…109528 # DirEnt {nam=»TABORT«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x1cf8, f03=0x0000}
0x109394…109528 IdxSect {
0x109394…109528 f00 = 0x00e7 // 0x109394 @0x0
0x109394…109528 f01 = 0x0004 // 0x109396 @0x2
0x109394…109528 gno = [ // 0x109398 @0x4
0x109394…109528 [0x00]: C0x00e7.0x3.0
0x109394…109528 [0x01]: C0x00e8.0x0.0
0x109394…109528 ]
0x109394…109528 }
0x109528…1096bc Dummy {f00=0x00e7, f01=0x0190, f02=» 2 P IDENT TABORT REL 9.2 79-11-16 870105040920 P : P* B P* L 6 P************************************************* V P* $ P* PHILIPS TERMINAL SYSTEM PTS P* " P* TABORT = ABORT I/O REQUEST P* P* P*
0x1096bc…109850 Dummy {f00=0x00e7, 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 P P P* P*
0x109850…1099e4 Dummy {f00=0x00e7, f01=0x0190, f02=» DWTST DWT STATUS & P EXTRN DWTADR DRIVER ADDRESS BLOCK & P EXTRN DWTTAB TTAB ADDRESS IN DWT D 0 P EXTRN DWTWAT WAIT ACTIVATE INDICATOR IN DWT n " P EXTRN DWTECH ECHO DEVICE DWT ( P EXTRN ABTADR ABORT ROUTINE ADDRESS P EXTRN TENDIO END I/
0x1099e4…109b78 Dummy {f00=0x00e7, f01=0x0190, f02=» TABORT P* P* . P***************************************** & P* X P* CONDITIONAL ASSEMBLY b P* . P***************************************** P* . P* A PROGRAM VERSION USING TOSS MMU PAGING * P* IS OBTAINED BY
0x109b78…109d0c Dummy {f00=0x00e7, f01=0x0190, f02=»BORT * P********** P* P* * 4 P* THIS IS THE ABORT I/O REQUEST LKM PROCESSOR. 4 P* l * P* IT IS ENTERED FROM THE LKM HANDLER v & P* WITH THE FOLLOWING PARAMETERS: P* P* A5 = TTAB ADDRESS P* A8 = ECB ADDRE
0x109d0c…109ea0 Dummy {f00=0x00e7, f01=0x0190, f02=»AT MADE THE I/O REQUEST. THUS I/O WITH WAIT CAN P* NOT BE ABORTED. 8 P* T P* ^ PTABORT EQU * h P IFT MMUPAG=0 | & P LDR* A3,A8 GET FIRST WORD OF ECB P XIF P* P IFT MMUPAG=1 $ P ELR A3,A8 GET FIRST WORD OF ECB
0x109ea0…10a034 (0, 337) Dummy {f00=0x00e8, f01=0x0190, f02=» P RF(Z) TABOER DWT UNKNOWN? P* & P EJECT TABORT 0 P* H P* R P CW A5,DWTTAB,A6 P RF(NE) TABOER ILLEGAL TASK? t P LD A7,DWTST,A6 " P RF(N) TABOER DEVICE NOT BUSY? P SLC A7,2 $ P RF(NN) TABO20 NOT ECHO REQUEST?
0x10a034…10a1c8 Dummy {f00=0x00e8, f01=0x018e, f02=»RESS BLOCK f 8 P LD A2,ABTADR,A2 GET ABORT ROUTINE ADDRESS (IF ANY) , P RF(Z) TABO10 NO SPECIAL ABORT ROUTINE? N & P CFR A15,A2 PERFORM ABORT ROUTINE ~ P* PTABO10 EQU * $ P CF A15,TENDIO ABORT ECHO DEVICE P LDR A6,A8 RESTORE DWT
0x10a1c8…10a35c Dummy {f00=0x00e8, f01=0x0190, f02=» n : P CF A15,FREBLK I/O AND ACTIVATE. FREE DISPATCHER BLOCK " P CM DWTWAT,A6 INDICATE NO WAIT F P* l PTABO30 EQU * v 8 P LD A2,DWTADR,A6 GET ADDRESS TO DRIVER ADDRESS BLOCK 8 P LD A2,ABTADR,A2 GET ABORT ROUTINE ADDRESS (IF ANY) , P RF(Z)
0x10a35c…10a4f0 Dummy {f00=0x00e8, f01=0x40c8, f02=»CODE z P CF A15,TENDIO ABORT 0 P ABL LKMQDI QUEUE TASK AND GO TO DISPATCHER ( P* 0 PTABOER ABL LKMRQE GO AND INDICATE LKM ERROR f P* P* P* P END @ D A2,ABTADR,A2 GET ABORT ROUTINE ADDRESS (IF ANY) , P RF(Z)
0x10a4f0…10a684 Dummy {f00=0x00e8, f01=0x2008, f02=»
0x10a684…10a818 Dummy {f00=0x00e8, f01=0x0190, f02=»,TTB:SB,A3 RESET SEGMENT BLOCK ADDRESS 6 P LD A1,SEG:DS,A1 GET LOGICAL ADDRESS OF SEGMENT 0 . P* h P IFT DSKPAG=1 r $ P SUKL A15,4 ADJUST STACKPOINTER . P ST A2,4,A15 SET DISPATCH ADDRESS ON STACK P XIF P* P RF TLDS40
0x10a818…10a9ac Dummy {f00=0x00e8, f01=0x0190, f02=»ADDRESS j " P LDR* A4,A1 GET SEGMENT STATUS * P RF(N) TLDS10 SEGMENT LOADED IN CORE? 6 P ST A2,TTB:SA,A3 d P CM PRUN | P* P* ACTIVATE LOAD TASK P* 6 P CF A15,QLTDSK ACTIVATE LOAD TASK AT ENTRY LT:DSK P ABL TDISP GO TO D
0x10a9ac…10ab40 Dummy {f00=0x00e8, f01=0x0190, f02=»4 ADJUST STACKPOINTER . P ST A2,4,A15 SET DISPATCH ADDRESS ON STACK P* P ( P* REMOVE PAGE BLOCK FROM PAGE QUEUE Z P* P XIF P* & PTLDS15 EQU * ENTRY USED BY LDTASK P IFT DSKPAG=1 & P LDR* A2,A1 GET QUEUE LINK FORWARD
0x10ab40…10acd4 (0, 338) Opaque[0x194]
0x10acd4…10ae68 # DirEnt {nam=»MONTIM«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x1d08, f03=0x0000}
0x10acd4…10ae68 IdxSect {
0x10acd4…10ae68 f00 = 0x00e8 // 0x10acd4 @0x0
0x10acd4…10ae68 f01 = 0x0006 // 0x10acd6 @0x2
0x10acd4…10ae68 gno = [ // 0x10acd8 @0x4
0x10acd4…10ae68 [0x00]: C0x00e8.0x1.0
0x10acd4…10ae68 [0x01]: C0x00e8.0x2.0
0x10acd4…10ae68 [0x02]: C0x00e8.0x3.0
0x10acd4…10ae68 ]
0x10acd4…10ae68 }
0x10ae68…10affc Dummy {f00=0x00e8, f01=0x0190, f02=» 2 P IDENT MONTIM REL 9.2 79-11-16 870105040920 P : P* B P* L < P******************************************************* V P* $ P* PHILIPS TERMINAL SYSTEM PTS P* * P* MONTIM = MONITOR CLOCK PROCESSORS P*
0x10affc…10b190 Dummy {f00=0x00e8, f01=0x0190, f02=»* THIS MODULE CONTAINS TOSS MONITOR CLOCK PROCESSORS P* @ 0 P* -GETTIM GET TIME FROM MONITOR CLOCK J P* ~ . P* -SETTIM SET TIME IN MONITOR CLOCK P* P EJECT MONTIM P* P* P*********** P* EN
0x10b190…10b324 Dummy {f00=0x00e8, f01=0x0190, f02=»TOR CLOCK r P P P " P* * P* 4 P************* > P* EXTERNALS * T P************* j P* P* P EXTRN MONCLO MONITOR CLOCK * P EXTRN LKMQDI QUEUE TASK AND DISPATCH P EXTRN TTB:SA TTAB SAVE AREA
0x10b324…10b4b8 Dummy {f00=0x00e8, f01=0x0190, f02=»* . P***************************************** P* < . P* A PROGRAM VERSION USING TOSS MMU PAGING F * P* IS OBTAINED BY SETTING MMUPAG EQU 1. x P* PMMUPAG EQU 1 P* P EJECT MONTIM P* P* P* G E T T I
0x10b4b8…10b64c Dummy {f00=0x00e8, f01=0x0190, f02=»ADDRESS TO THE USER TIMER CONTROL 2 P* BLOCK IN A8. MONITOR CLOCK IS COPIED INTO * P* TIMER CONTROL BLOCK. ` P* P* PGETTIM EQU * 6 P LDKL A7,MONCLO+6 ADDRESS TO MONITOR CLOCK SECOND P LDK A3,6 COUNTER P INH
0x10b64c…10b7e0 Dummy {f00=0x00e8, f01=0x018e, f02=» v P SUK A7,2 P LDR* A6,A7 HOURS P ENB 4 P* @ * PGETT10 CF A15,BYTASC CONVERT TO ASCII J P IFT MMUPAG=0 x * P SC A6,1,A8 STORE RIGHTHAND CHARACTER P ECR A6,A6 ( P SCR A6,A8 STORE LEFTHAND CHARACTER P XIF P*
0x10b7e0…10b974 (0, 339) Dummy {f00=0x00e8, f01=0x0190, f02=» $ P RF(Z) GETT15 TCB ADDRESS EVEN? P LDR A1,A6 0 P EL A4,1,A8 B P ANK A4,/FF V P SLL A1,8 j P ORR A1,A4 | P ES A1,1,A8 P ELR A4,A8 P SRL A6,8 P ANKL A4,/FF00 P ORR A6,A4 P* 6 PGETT15 ESR A6,A8
0x10b974…10bb08 Dummy {f00=0x00e8, f01=0x0190, f02=»ET ACTUAL TIME FROM STACK P RB GETT10 " P* 4 P EJECT MONTIM > P* V P* ` PGETT20 SUK A7,2 j . P LDR* A6,A7 GET ACCUMULATED 24 HOUR CARRY 2 P ST A6,TTB:SA+14,A5 STORE IN TTAB SAVE AREA A7 P CMR A7 CLEAR MIDNIGTH CARRY
0x10bb08…10bc9c Dummy {f00=0x00e8, f01=0x0190, f02=»S IS THE SET TIME LKM PROCESSOR. P* ( 0 P* IT IS ENTERED FROM THE LKM HANDLER WITH 2 0 P* ADDRESS TO THE USER TIMER CONTROL BLOCK f 0 P* IN A8. VALUE IN TIMER CONTROL BLOCK IS $ P* COPIED INTO MONITOR CLOCK. P* P*
0x10bc9c…10be30 Dummy {f00=0x00e8, f01=0x0190, f02=»QU * P IFT MMUPAG=0 & P LCR A6,A8 GET LEFTHAND CHARACTER " P ECR A6,A6 L ( P LC A6,1,A8 GET RIGHTHAND CHARACTER ^ P XIF P* P IFT MMUPAG=1 2 P ELR A6,A8 GET VALUE FROM TIMER CONTROL BLOCK . P LDR A4,A8 GET TIMER CONTROL
0x10be30…10bfc4 Dummy {f00=0x00e8, f01=0x0190, f02=»LL A6,8 P SRL A4,8 P ORR A6,A4 " P* 4 PSETT15 EQU * > P XIF R P* ^ P EJECT MONTIM h P* P* $ P CF A15,ASCTBY CONVERT TO BINARY P SUK A3,2 END ? P RF(E) SETT20 P ADKL A8,2 0 P STR A6,A15
0x10bfc4…10c158 Dummy {f00=0x00e8, 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 CMR A7 RESET MIDNIGTH CARRY P RB TPDIS P* P EJECT MON
0x10c158…10c2ec Dummy {f00=0x00e8, f01=0x0190, f02=» RESULT IN A6. P* P* ( PBYTASC EQU * 2 P LDK A4,0 F P* X PBYTA10 SUK A6,/A b P RF(N) BYTA20 z P ADKL A4,/100 P RB BYTA10 P* PBYTA20 ADK A6,/A P ADR A6,A4 P ORKL A6,/3030 P RTN A
0x10c2ec…10c480 Dummy {f00=0x00e8, f01=0x415c, f02=» ASCII TO BINARY. ~ P* RESULT IN A6. P* > P* H PASCTBY EQU * R P LDR A4,A6 f P ANK A6,/F x 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
0x10c480…10c614 (0, 340) Dummy {f00=0x00e8, 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
0x10c614…10c7a8 Dummy {f00=0x00e8, f01=0x018e, f02=»RESS BLOCK f 8 P LD A2,ABTADR,A2 GET ABORT ROUTINE ADDRESS (IF ANY) , P RF(Z) TABO10 NO SPECIAL ABORT ROUTINE? N & P CFR A15,A2 PERFORM ABORT ROUTINE ~ P* PTABO10 EQU * $ P CF A15,TENDIO ABORT ECHO DEVICE P LDR A6,A8 RESTORE DWT
0x10c7a8…10c93c Dummy {f00=0x00e8, f01=0x0190, f02=» n : P CF A15,FREBLK I/O AND ACTIVATE. FREE DISPATCHER BLOCK " P CM DWTWAT,A6 INDICATE NO WAIT F P* l PTABO30 EQU * v 8 P LD A2,DWTADR,A6 GET ADDRESS TO DRIVER ADDRESS BLOCK 8 P LD A2,ABTADR,A2 GET ABORT ROUTINE ADDRESS (IF ANY) , P RF(Z)
0x10c93c…10cad0 Dummy {f00=0x00e8, f01=0x40c8, f02=»CODE z P CF A15,TENDIO ABORT 0 P ABL LKMQDI QUEUE TASK AND GO TO DISPATCHER ( P* 0 PTABOER ABL LKMRQE GO AND INDICATE LKM ERROR f P* P* P* P END @ D A2,ABTADR,A2 GET ABORT ROUTINE ADDRESS (IF ANY) , P RF(Z)
0x10cad0…10cc64 Dummy {f00=0x00e8, f01=0x2008, f02=»
0x10cc64…10cdf8 Dummy {f00=0x00e8, f01=0x0190, f02=» EJECT TPROC P* P* P********** * P* TPAUSE * < P********** N P* ` P* j ( P* THIS IS THE PAUSE LKM PROCESSOR. t P* : P* THIS MODULE IS ENTERED FROM THE LKM HANDLER WHEN A : P* TASK WANTS TO (TEMPORARILY)
0x10cdf8…10cf8c Dummy {f00=0x00e8, f01=0x0190, f02=» P********** P* TMWAIT * P********** , P* > P* H 0 P* THIS IS THE MULTIPLE WAIT LKM PROCESSOR. R P* * P* IT IS ENTERED FROM THE LKM HANDLER & P* WITH THE FOLLOWING PARAMETERS: P* P* A5 = TTAB ADDRESS
0x10cf8c…10d120 Dummy {f00=0x00e8, f01=0x018e, f02=»LLING TASK VIA TENDIO t & P* WITH THE FOLLOWING PARAMETERS: P* H , P* A8 = ECB ADDRESS OF COMPLETED EVENT R P* > P* IF REQUEST ERROR, A7 := -1 (AND NO RETURN VIA TENDIO). P* ( P* NOTICE THAT ALL EVENTS MUST HAVE ( P*
0x10d120…10d2b4 (0, 341) Opaque[0x194]
0x10d2b4…10d448 # DirEnt {nam=»TASS «, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x1ef0, f03=0x0000}
0x10d2b4…10d448 IdxSect {
0x10d2b4…10d448 f00 = 0x00f7 // 0x10d2b4 @0x0
0x10d2b4…10d448 f01 = 0x000c // 0x10d2b6 @0x2
0x10d2b4…10d448 gno = [ // 0x10d2b8 @0x4
0x10d2b4…10d448 [0x00]: C0x00f7.0x2.0
0x10d2b4…10d448 [0x01]: C0x00f8.0x2.0
0x10d2b4…10d448 [0x02]: C0x00f8.0x3.0
0x10d2b4…10d448 [0x03]: C0x00f9.0x0.0
0x10d2b4…10d448 [0x04]: C0x00f9.0x1.0
0x10d2b4…10d448 [0x05]: C0x00f9.0x2.0
0x10d2b4…10d448 ]
0x10d2b4…10d448 }
0x10d448…10d5dc Dummy {f00=0x00f7, f01=0x0190, f02=» 0 P IDENT TASS REL 9.2 79-11-16 870105040920 P 8 P =1, PR 4313 @ P* REL 9.1 78-10-25 V P r P* z P* 8 P**************************************************** P* $ P* PHILIPS TERMINAL SYSTEM PTS P* 2 P*
0x10d5dc…10d770 Dummy {f00=0x00f7, f01=0x0190, f02=»**************************** x P* $ " P* THIS MODULE IS ENTERED VIA . $ P* ASSIGN REQUEST (DATA 15) OR T ( P* ASSIGN INDEX REQUEST (DATA 16). | P* P* LDK A7,TC P* LDKL A8,ASBLK P* LKM P* DATA 15 P
0x10d770…10d904 Dummy {f00=0x00f7, f01=0x018e, f02=»K IS A PARAMETER BLOCK z D P* AND TC = 1 WHEN TASK LOCAL ASSIGN IN TTAB IS WANTED B P* TC = 0 WHEN GLOBAL ASSIGN IN SCTCDT IS WANETED f P* P EJECT P* +----------+----------+ $ P* ASBLK I NO OF VOL FC I
0x10d904…10da98 Dummy {f00=0x00f7, f01=0x0190, f02=» t . P* I I P* +---------------------+ : P* I I P* I VOL NAME I ~ P* I I P* +---------------------+ P* I I P*
0x10da98…10dc2c Dummy {f00=0x00f7, f01=0x018e, f02=»* CREATED IN TTAB/CD:TAB. P* $ F P* THE FDB IS INITIALIZED WITH INFORMATION FROM THE VTOC:S OF THE . $ P* VOLUMES MENTIONED IN ASBLK. x P* J P* UPON COMPLETION OF THE ASSIGN REQUEST REG A7 WILL HAVE ONE OF THE P* FOLLOWING RE
0x10dc2c…10ddc0 Dummy {f00=0x00f7, f01=0x0190, f02=» x " P* 2 = NO FREE ENTRY IN TABLE P* 3 = NO FDB AVAILABLE . ( P* 4 = ONE OR MORE VOLUMES UNKNOWN N " P* 5 = FILE CODE ALREADY USED z P* 6 = FILE NAME UNKNOWN 0 P* 7 = FILE SECTION MISSING OR FOUND TWICE P* 8 = FAULTY DIS
0x10ddc0…10df54 (0, 342) Dummy {f00=0x00f8, f01=0x0190, f02=»K P* LKM P* DATA 16 P* 0 " P* INPUT A5 = TTAB ADDRESS : " P* A8 = ASBLK ADDRESS ` 0 P* WHERE ASBLK IS A PARAMETER BLOCK P* +----------+----------+ $ P* ASBLK I NO OF VOL FC I P* +
0x10df54…10e0e8 Dummy {f00=0x00f8, f01=0x0190, f02=»---------------------+ P* I I P* I VOL NAME I @ P* I I b P* +---------------------+ $ P* I MASTER INDEX " P* I FILE NAME P* D P* UPON C
0x10e0e8…10e27c Dummy {f00=0x00f8, f01=0x0190, f02=»ORMED j P* -1 = REQUEST ERROR P* 1 = DISC I/O ERROR , " P* 2 = NO FREE ENTRY IN TABLE J 8 P* 3 = NO FDB AVAILABLE OR MASTER INDEX CORE AVAIL p ( P* 4 = ONE OR MORE VOLUMES UNKNOWN " P* 5 = FILE CODE ALREADY USED P* 6 = FI
0x10e27c…10e410 Dummy {f00=0x00f8, f01=0x0190, f02=»S EXIST v " P* 10= NO DATA FILE ASSIGNED * P* 11= 4 INDEX FILES ALREADY ASSIGNED 6 $ P* 12= MAX KEY LENGTH TOO SMALL d 0 P* 13= REQUEST BUSY. REPEAT ASSIGN REQUEST P EJECT P* P*************** P* ENTRIES * P
0x10e410…10e5a4 Dummy {f00=0x00f8, f01=0x0190, f02=»TTA P ENTRY TASASB P ENTRY TASCVO " P ENTRY TASVOL 8 P ENTRY TASCXO N P ENTRY TASSEX d P ENTRY TASXLB z P ENTRY TASFDB P ENTRY TASVRL P ENTRY TASVLE P ENTRY TASVRN P ENTRY TASECB & P ENTRY TAS
0x10e5a4…10e738 Dummy {f00=0x00f8, f01=0x0190, f02=»HLT HALT SYSTEM DUE TO DM (SYSGEN) ERROR P EJECT 0 P* > P***************** H P* EXTERNALS * b P***************** | P* P EXTRN DFTAB P EXTRN DFTABE P EXTRN SCTCDT P EXTRN DWTVOL P EXTRN FNDTID
0x10e738…10e8cc Dummy {f00=0x00f8, f01=0x0190, f02=» TTB:TD,DMTASX P EXTRN ECBFC,ECBRC 0 P EXTRN MOV:US MOVE FROM USER TO SYSTEM AREA 0 $ P EXTRN HALT HALT SYSTEM ROUTINE d P EJECT TOSSIO P* P* . P***************************************** P* P* CONDITIONAL ASSEMB
0x10e8cc…10ea60 Dummy {f00=0x00f8, f01=0x018e, f02=»BTAINED BY SETTING MMUPAG EQU 1. P* ( PMMUPAG EQU 1 2 P* F P EJECT P P* ^ P******************* h P* DATA AREAS * P******************* P* PTASBLK DATA 0 USE INDICATOR $ PTASQUE DATA 0 ASSIGN QUEUE ANC
0x10ea60…10ebf4 (0, 343) Dummy {f00=0x00f8, f01=0x018e, f02=» 0 PTASVOL DATA 0 VOLUME IDENTIFICATION (DMI,FC) " P DATA 0,0,0 THREE MORE ENTRIES 8 6 PTASCXO DATA 0 CURRENT OFFSET IN TASSEX AND TASXLB ^ 0 PTASSEX DATA 0 SECTION NUMBER, EXTENT NUMBER * P DATA 0 OFFSET IN TASVOL FOR THIS EXT ( P DATA 0,0,0,0,
0x10ebf4…10ed88 Dummy {f00=0x00f8, f01=0x0190, f02=» PTASFDB DATA 0 FDB ADDRESS $ PTASVRL DATA 0 VTOC RECORD LENGTH & PTASVLE DATA 0 VTOC LENGTH N PTASVRN DATA 0 VTOC RECORD NO p PTASECB DATA 0,0 ECBFC,ECBBA P DATA 410 ECBRL P DATA 0,0,0 ECBEL,-RC,-CW P DATA 0 CW2 0 PTA
0x10ed88…10ef1c Dummy {f00=0x00f8, f01=0x0190, f02=»TASSPW DATA 0 TTAB ADDRESS DMTASK $ PTASFDD DATA 0 FDB ADDR DATA FILE * ( PTASTBE DATA 0 TTAB/SCTCDT ENTRY ADDR R 2 PTASLFD DATA 0,0 LOCKED FLEXDISC FILE CODES =1 ~ P DATA 0,0 P DATA 0,0 " PTASS14 EQU *-2 TASS A14 STACK P* P
0x10ef1c…10f0b0 Dummy {f00=0x00f8, f01=0x0190, f02=» * P************** P* , P* ENTRY TASCAQ CHECK ASSIGN QUEUE * P* Z P* A7= RETURN CODE d P* * P* SET OFF USE BIT IN TASBLK H P* IF TASQUE = 0 THEN RETURN ELSE QUEUE FIRST IN CHAIN AND 2 P
0x10f0b0…10f244 Dummy {f00=0x00f8, f01=0x0190, f02=»QUE P RF(Z) TASCEX EMPTY QUEUE " P LDR* A1,A5 GET NEXT IN CHAIN . , P ST A1,TASQUE AND PUT IT FIRST IN QUEUE T P LDKL A1,-4 ( P ADS A1,TTB:SA,A5 UPD DISPATCH ADDR P CF A15,QTJOB NEXT ASSIGN P RF TASC05 & PTASCEX CM TASQUE
0x10f244…10f3d8 Dummy {f00=0x00f8, f01=0x0190, f02=» CODE IN SAVED A7 r P RTN A14 P EJECT * 8 P****DESCRIPTION************************************* 8 P* t : P* VOLCHE WILL COMPARE EACH VOLUME NAME IN ASBLK WITH ~ & P* VOLUME NAMES IN DWT FOR DISCS P* 8 P****ENTRY PARAMETERS****
0x10f3d8…10f56c Dummy {f00=0x00f8, f01=0x0190, f02=»S WANTED. v : P* 1 LOCK WANTED. ONLY FROM DMTASS FOR FLEXDISC P* P 8 P****EXIT PARAMETERS********************************* Z P* P* A1 = 0 OK P* 1 VOLUME UNKNOWN P* A5 = TTAB ADDR P* 8 P****USED REG
0x10f56c…10f700 Dummy {f00=0x00f8, f01=0x0190, f02=»************** h PVOLCHE EQU * P CM TASLFD =1 * $ P CM TASLFD+2 LOCKED FLEXDISCS =1 @ P SLL A2,1 h P SUK A2,2 z P ST A2,TASCVO INIT. TASCVO P LDR A4,A8 2 P ADK A4,10 POINTER TO FIRST VOL NAME IN ASBLK PTAS110 EQU * 2
0x10f700…10f894 (0, 344) Dummy {f00=0x00f9, f01=0x0190, f02=» ADDRESS IN CD:TAB AND COMPARE DWTVOL P* . P LD* A6,SCTCDT 8 PTAS130 SUK A6,4 N 2 P RF(N) TASHLT FC NOT FOUND? SHOULD NOT OCCUR. f P LD A5,SCTCDT P ADR A5,A6 P CC A1,1,A5 P RB(NE) TAS130 NOT THIS FC P LDR A11,A11
0x10f894…10fa28 Dummy {f00=0x00f9, f01=0x0190, f02=» P* LOCK FLEXDISC P* P LDKL A8,TASECB ( " P ST A1,ECBFC,A8 FLEX FILE CODE @ P SUR A12,A12 f P LDK A7,/A6 LOCK,WAIT z P LKM P DATA 1 P LD A7,ECBRC,A8 P RF(Z) TAS131 P ANKL A7,/7FFF " P RF(NZ) TASF10 N
0x10fa28…10fbbc Dummy {f00=0x00f9, f01=0x0190, f02=»NZ) TAS150 GRAVE ERR PTAS131 EQU * P ST A1,TASVOL,A2 SAVE FC 0 P P P AD A6,SCTCDT X P LDR* A5,A6 INDEX n $ P LDK A1,0 DISC NAME DISPLACEMENT P SRL A5,8 P RF(Z) TAS135 , P* DECIDE DISC DISPL FOR THIS FILE CODE $ P
0x10fbbc…10fd50 Dummy {f00=0x00f9, f01=0x0190, f02=»AS132 PTAS135 EQU * P LD A6,2,A6 DWT ADDR " & P RF(Z) TASHLT NO DWT ADDRESS FOUND > & P ADR A6,A1 POINTER TO VOLUME NAME h P LDK A1,3 VOL NAMES 3 WORDS & P LDR A5,A4 POINTER ASBLK VOL NAME P* , P* CHECK VOLUME NAMES IN DWT
0x10fd50…10fee4 Dummy {f00=0x00f9, f01=0x0190, f02=»2 P SUK A1,1 . P RB(P) TAS140 CHECK NEXT WORD IN VOL NAME P* N P* VOL NAME MATCH X P* STORE DMI , FC IN TASVOL r P* P LD A1,TASVOL,A2 P ANK A1,/0F P CWK A1,/8 $ P RF(L) TAS143 NOT FLEXIBLE DISC P L
0x10fee4…110078 Dummy {f00=0x00f9, f01=0x0190, f02=» t P* 1 FOR DRIVE 2 " P* 2 FOR FLEXDISC , P* R P SC A1,TASVOL,A2 P* t 6 P* SAVE FILE CODES FOR NEWLY LOCKED FLEXDISCS =1 ~ 2 P* (ONLY SIGNIFICANT WHEN A11 = 1 ) =1 START P* P SUK A1,2
0x110078…11020c Dummy {f00=0x00f9, f01=0x0190, f02=»,TASVOL+1,A2 FILE CODE P SC A3,TASLFD,A1 SAVE PTAS147 EQU * =1 END < P* X P* CHECK NEXT VOL IN ASBLK b P* P LDK A1,0 RET CODE P ADK A4,6 P SUK A2,2 ( P RB(NN) TAS110 MORE VOLUMES TO CHECK * P RF TAS155 OK
0x11020c…1103a0 Dummy {f00=0x00f9, f01=0x0190, f02=» P ANK A1,/F8 P SUK A1,/F8 P RF(NZ) TAS150 NO FLEXDISC , P LDR A12,A12 LFLAG N P RF(NZ) TAS150 LOCKED BEFORE h P* P* UNLOCK P* P LDK A7,/B8 UNLOAD,WAIT P LKM P DATA 1 P* & P* NO MATCH TRY
0x1103a0…110534 (0, 345) Dummy {f00=0x00f9, f01=0x0190, f02=» LDK A1,1 PTAS155 EQU * P RTN A14 & P* 6 ( PTASHLT LDK A1,/11 INDICATE DM ERROR @ P CF A15,HALT HALT SYSTEM l P* P EJECT P* P************ P* TASS * P************ P* PIXTASS EQU * P
0x110534…1106c8 Dummy {f00=0x00f9, f01=0x0190, f02=» A7,A8 GET FIRST WORD OF USER ASSIGN BLOCK $ P ANK A7,/FF SKIP LEFT CHARACTER 2 0 P ORKL A7,/8100 BIT 0+7 IND. ASSIGN ONE INDEX Z ( P ESR A7,A8 SET WORD IN ASSIGN BLOCK P XIF P*~ ( P LDK A7,0 ONLY GLOBAL ASSIGN ALLOWED P* PTA
0x1106c8…11085c Dummy {f00=0x00f9, f01=0x0190, f02=»NOT COMPLETED t 4 P* AND IF SO QUEUE THIS REQUEST VIA THE TASQUE P* N P LD A1,TASBLK X & P RF(Z) TAS050 NO CONCURRENT ASSIGN n * P LDKL A1,TASQUE START OF ASSIGN QUEUE ( PTAS020 EQU * QUEUE AS FOR GETBUFFER P LDR A2,A1 P LDR
0x11085c…1109f0 Dummy {f00=0x00f9, f01=0x0190, f02=»QU * & P IM TASBLK INDICATE ASSIGN STARTED ! " P CM TASFDD FDB ADDR DATA FILE ! 6 P* ! 6 P ST A5,TASTTA SAVE TTAB ADDRESS OF REQUESTING TASK ! f P* ! P IFT MMUPAG=1 ! P* ! 2 P* MOVE USER ASSIGN BLOCK TO SYSTEM AREA MASBLK ! P* ! ,
0x1109f0…110b84 Dummy {f00=0x00f9, f01=0x0190, f02=»BLOCK ADDRESS ! p , P LDK A3,34 ASSIGN BLOCK LENGTH IN BYTES " $ P CF A14,MOV:US MOVE ASSIGN BLOCK " F P XIF " n P* " z $ P ST A8,TASASB SAVE ASBLK ADDRESS " P* " P LDK A1,16 " : P ST A1,TASCXO INIT. TASCXO TO LAST ENTRY IN TASSEXXLB " P*
0x110b84…110d18 Dummy {f00=0x00f9, f01=0x0190, f02=» " P LCR A2,A8 NO OF VOLUMES # . P ANK A2,/1F REMOVE INDEX BIT +DELAY+BASIC # ( P RF(Z) TAS090 NO VOL # Z P CWK A2,4 # v P RF(NG) TAS100 <=4 # PTAS090 RF TASSEM # P EJECT # P* # $ P* CHECK IF VOLUMES ARE ON LINE # P* # PTAS1
0x110d18…110eac Dummy {f00=0x00f9, f01=0x0190, f02=»1,0 SET CR # $ P RF(Z) TAS160 ALL VOLUMES FOUND $ P* $ : , P* ALL VOL NOT FOUND. ACT FLEXDISCTASK $ D P* $ t P LD A1,TASCVO $ ~ P LDK A2,2 ID DMTASK FLEXDISC $ P SC A2,TASVOL,A1 SEE TAS195 $ P EJECT $ P* $ , P* CHECK IF FILE CO
0x110eac…111040 Dummy {f00=0x00f9, f01=0x0190, f02=»D $ j P LDR A10,A10 TC % P RF(Z) TAS165 GLOBAL ASSIGN % " P LD A2,TASTTA TTAB ADDR % F P LDR A4,A2 % f P LD A2,TTB:TD,A4 % x P ADKL A4,TTB:TD+1 % P RF TAS170 % PTAS165 EQU * % P LD A4,SCTCDT % P LDR* A2,A4 % P ADK A4,1 %
0x111040…1111d4 (0, 346) Dummy {f00=0x00f9, f01=0x0190, f02=»S170 NO MATCH % P* & P* FILE CODE USED & . P* OK WHEN REQ = ASS INDEX AND INDEX = 1 & : P* & l P LDR* A2,A8 ASBLK 1ST WORD & v P RF(NN) TASSE5 NORMAL ASSIGN & P LDK A2,1 & P CC A2,-1,A1 INDEX & * P RF(NE) TASSE5 FILE CODE ALREADY
0x1111d4…111368 Dummy {f00=0x00f9, f01=0x0190, f02=»* & P* ' > P* FIND A FREE ENTRY IN TTAB/CD:TAB (FC AND DWTADR = 0 ) ' P* ' V PTAS180 EQU * ' ` P LDK A1,0 ' t P LDR A10,A10 TC ' P RF(Z) TAS185 GLOBAL ASSIGN ' P LD A2,TASTTA TTAB ADDR ' P LDR A4,A2 ' P LD A2,TTB:TD,A4 '
0x111368…1114fc Dummy {f00=0x00f9, f01=0x0190, f02=»UK A2,4 ' ( P RF(L) TASSE2 NO FREE ENTRY IN TABLE ( P LDR A9,A4 ( < P ADR A9,A2 ( N P CCR A1,A9 FILE CODE ( ` " P RB(NE) TAS190 FC NOT EQUAL 0 ( | P CW A1,1,A9 ( & P RB(NE) TAS190 DWTADR NOT EQUAL 0 ( P LDR* A1,A8 ASBLK 1ST WORD ( P RF(N)
0x1114fc…111690 Dummy {f00=0x00f9, f01=0x0190, f02=»Y ( f P ST A9,TASTBE SAVE ENTRY ) P* ) * 0 P* GET FIRST VOLUME AND ACTIVATE ITS DMTASK ) 4 P* ) h P LD A1,TASCVO ) r P LDK A7,0 ) P LC A7,TASVOL,A1 ) P ADKL A7,'#D' TID DMTASK ) P CF A15,FNDTID ) " P LDR A5,A2 TTAB ADDRESS DMTASK )
0x111690…111824 Dummy {f00=0x00f9, f01=0x0190, f02=»RY ) | P LDK A7,4 VOL UNKNOWN * P RF TASSEM * ( PTAS200 EQU * * : P LDK A2,2 * N 4 P ST A2,TASFIL MASTER INDEX LOOP IDENT IN DMTSAK * ` & P LDKL A2,DMTASS ASSIGN INDEX ENTRY * P LDR* A6,A8 * P RF(N) TAS210 INDEX ASSIGN * P CM TASFIL *
0x111824…1119b8 Dummy {f00=0x00f9, f01=0x4182, f02=»F A15,ACTOT ACTIVATE DMTASK * P ABL TDISP GO TO DISPATCHER + $ P EJECT + H P* + V P* ERROR RETURNS + ` P* + z PTASSE5 ADK A7,1 + PTASSE4 ADK A7,1 + PTASSE3 ADK A7,1 + PTASSE2 ADK A7,1 + PTASSE1 ADK A7,1 + P ADK A7,1 +
0x1119b8…111b4c Dummy {f00=0x00f9, f01=0x2008, f02=» ,
0x111b4c…111ce0 Dummy {f00=0x00f9, f01=0x2008, f02=» + t P INH , P CF A15,TENDIO , P ENB , 2 P* , > P* EXIT , H P* , X P LKM , b P DATA 3 , n P* , ~ P END , @ , RD ADDR A2:=EA BIT + & P C1R A2,A2 ONE COMPLEMENT BIT MASK + P ANRS A2,A3 SET OFF EA BIT + P* +
0x111ce0…111e74 (0, 347) Opaque[0x194]
0x111e74…112008 # DirEnt {nam=»TIODM «, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x2080, f03=0x0000}
0x111e74…112008 IdxSect {
0x111e74…112008 f00 = 0x0104 // 0x111e74 @0x0
0x111e74…112008 f01 = 0x000c // 0x111e76 @0x2
0x111e74…112008 gno = [ // 0x111e78 @0x4
0x111e74…112008 [0x00]: C0x0104.0x0.0
0x111e74…112008 [0x01]: C0x0104.0x1.0
0x111e74…112008 [0x02]: C0x0104.0x2.0
0x111e74…112008 [0x03]: C0x0104.0x3.0
0x111e74…112008 [0x04]: C0x0105.0x0.0
0x111e74…112008 [0x05]: C0x0105.0x1.0
0x111e74…112008 ]
0x111e74…112008 }
0x112008…11219c Dummy {f00=0x0104, f01=0x0190, f02=» 0 P IDENT TIODM REL 9.2 79-11-16 870105040920 P 8 P =1, PR 5649 @ P REL 9.1 79-05-23 V P* r 8 P**************************************************** | P* $ P* PHILIPS TERMINAL SYSTEM PTS P* 0 P* TIODM = DATA MA
0x11219c…112330 Dummy {f00=0x0104, f01=0x018e, f02=»******** d P* B P* THIS MODULE IS ENTERED IN THE SAME WAY AS A DRIVER VIA TIO . P* AND THE DWTADR IN FDB FOR CURRENT FILE ` P* H P* THE DM REQUEST IS PROCESSED HERE UP TO THE POINT WHERE A SECTOR $ P* FROM A DISC MUST BE ACCESSED
0x112330…1124c4 Dummy {f00=0x0104, f01=0x0190, f02=» P* A7 = ORDER P* A8 = ECB ADDRESS " P* F P* USED REGISTERS A1 - A10 P P* t D P* BEFORE EXIT A DMTASK IS ACTIVATED WITH THE FDB ADDRESS IN A1 ~ P* AS THE ONLY PARAMETER P* 4 P* THE FOLLOWING WORD
0x1124c4…112658 Dummy {f00=0x0104, f01=0x0190, f02=» FOR CALLING TASK x . P* FDBCEX CURRENT EXTENT BLOCK POINTER P* L P* V D P* IF AN ERROR CONDITION IS DETECTED THE ERROR RETURN WILL BE: ` P* LDKL A1,/<RETURN CODE> P* ABL DISEND P* P* P EJECT P
0x112658…1127ec Dummy {f00=0x0104, f01=0x0190, f02=»DBLNK P ENTRY FDBECB P ENTRY FDBSNR $ P ENTRY FDBRRO : P ENTRY FDBRLE P P ENTRY FDBBLF f P ENTRY FDBTNR | P ENTRY FDBVTO P ENTRY FDBCEX P ENTRY FDBEXT P ENTRY EXTDMI P ENTRY EXTFC P ENTRY EXT
0x1127ec…112980 Dummy {f00=0x0104, f01=0x0190, f02=»NTRY FDBAI1,CRNTID,CRNCDF,CRNCIF P ENTRY FDBMRN,FDBDBR,FDBMRO ( & P ENTRY FDBMEC MMU ECB DISPLACEMENT L 6 P ENTRY FDBKEY SAVE AREA FOR KEY IN INDEXED ACCESS v P EJECT P* P***************** P* EXTERNALS * P************
0x112980…112b14 (0, 348) Dummy {f00=0x0104, f01=0x0190, f02=» P EXTRN DISEND EXTRN DWTECB ECB ADDRESS $ EXTRN DWTOR DWT INDEX AND ORDER < & P EXTRN DWTTDM DM TASK TTAB ADDRESS d P EXTRN TTB:ID TASK ID 0 P EXTRN MOV:US MOVE FROM USER TO SYSTEM AREA " P EXTRN DMTGCA GET CRN ADDRESS , P E
0x112b14…112ca8 Dummy {f00=0x0104, f01=0x0190, f02=» ECBRL P EXTRN ECBEL P EXTRN ECBRC " P EXTRN ECBCW 6 & P EXTRN ECBCW2 SECOND CONTROL WORD J P EXTRN FDBLEN t " P EXTRN SQR SEQ READ ORDER CODE & P EXTRN EARELB,DWTST,CRNGET,EATEST & P EXTRN TASHLT HALT SYSTEM ROUTINE P EJE
0x112ca8…112e3c Dummy {f00=0x0104, f01=0x0190, f02=»* A VERSION CONTAINING INDEXED REQUEST ORDERS IS OBTAINED P* BY SETTING INDXAC EQU 1 D * P* INDXAC EQU 0 OTHRERWISE h PX:A EQU 0 PINDXAC EQU 00000 P* . P* A PROGRAM VERSION USING TOSS MMU PAGING * P* IS OBTAINE
0x112e3c…112fd0 Dummy {f00=0x0104, f01=0x0190, f02=»TA DEFINITIONS * P************************ P* : P* D P DATA 0,0 4 WORDS N P DATA 0,0 h " PTIOD14 EQU *-2 TIODM A14 STACK z P* P* & PTIODMF EQU * TIODM FUNCTION TABLE P DATA CLOSE CLOSE " P DATA REVTOC REA
0x112fd0…113164 Dummy {f00=0x0104, f01=0x0190, f02=»DELETE | P DATA IXREWR INDEXED REWRITE $ P DATA IXRARE INDEXED RANDOM READ 2 P XIF Z P IFF INDXAC=1 f P DATA TIODME | P DATA TIODME P DATA TIODME P DATA TIODME P DATA TIODME P XIF P DATA RANDEL RANDOM DELETE
0x113164…1132f8 Dummy {f00=0x0104, f01=0x0190, f02=» SEQUENTIAL WRITE " P DATA SEQREAD SEQUENTIAL READ P DATA GETCUR GET CURRENCY @ P IFT INDXAC=1 b $ P DATA INSIXR INSERT INDEX RECORD x $ P DATA DELIXR DELETE INDEX RECORD P XIF P IFF INDXAC=1 P DATA TIODME P DATA TIOD
0x1132f8…11348c Dummy {f00=0x0104, f01=0x0190, f02=»LETE r $ P DATA RANREB RAND READ REL BUFF P DATA SETLRN SET LRN 4 P* P P* Z PTIODMO EQU * DM ORDERS d $ P DATA /221E CLOSE,IND READ NEXT & P DATA /1D1C IND INSERT,IND DELETE . P DATA /1B1A INDEXED REWRITE,IND RAND READ $ P D
0x11348c…113620 Dummy {f00=0x0104, f01=0x0190, f02=»SEQ WR. , BASIC WRITE $ P DATA /0302 READ VTOC, SEQ READ ( P DATA /0123 BASIC READ,GET CURRENCY F * P DATA /1F20 INS INDEXREC,DEL INDEXREC r . P DATA /240D GET CURR INDEX,DELAYED RAND WR 0 P DATA /0E0F DELAY RAN DEL,RAN READ REL BUFF P D
0x113620…1137b4 (0, 349) Dummy {f00=0x0104, f01=0x0190, f02=»ATA /0E10 P DATA /1214 P DATA /1616 & P DATA /1616 : P DATA /0218 N P DATA /181A b P DATA /1C1E v P DATA /2022 P DATA /2426 P DATA /281A SET LRN P* $ PNOOFOR EQU 25 NO OF ORDER CODES P*
0x1137b4…113948 Dummy {f00=0x0104, f01=0x0190, f02=»RD P XIF P* P IFT MMUPAG=1 PSTART EQU DWTDRD+4 6 P XIF P P* P* f P* FDB OFFSET DEFINITIONS p P* " PFDBLNK EQU 0 LINK TO NEXT FDB PFDBECB EQU START+2 ECB START & PFDBSNR EQU START+16 SECTOR NUMBER
0x113948…113adc Dummy {f00=0x0104, f01=0x0190, f02=» l 0 PFDBTNR EQU START+23 TASK NUMBER CALLING TASK & PFDBVTO EQU START+24 VTOC RECORD NO < 4 PFDBCEX EQU START+26 CURRENT EXTENT BLOCK POINTER f 0 PFDBEXT EQU START+28 FIRST EXTENT BLOCK START PEXTDMI EQU 0 DMTAST IDENT PEXTFC EQU 1 VOLUME F
0x113adc…113c70 Dummy {f00=0x0104, f01=0x0190, f02=»+53 LAST RECORD NUMBER * PFDBNIF EQU START+52 NO OF INDEX FILES $ PFDBEAL EQU START+56 EA LINK ROOT L & PFDBCRL EQU START+58 CRN LINK ROOT t 0 PFDBKA EQU START+60 KEY ADDRESS IN DATA FILE 0 PFDBMIA EQU START+62 ADDRESS OF MASTER INDEX 0 PFD
0x113c70…113e04 Dummy {f00=0x0104, f01=0x0190, f02=»AND REL BUFFER FLAGS p , PFDBMRN EQU START+75 LAST REC NR IN FILE " PFDBMRO EQU START+78 MAX FDBRRO L , PFDBMEC EQU START+80 MMU ECB DISPLACEMENT r < PFDBKEY EQU START+94 SAVE AREA FOR KEY IN INDEXED ACCESS P* & P* CRN BUFFER OFFSET DEFINI
0x113e04…113f98 Dummy {f00=0x0104, f01=0x0190, f02=» P EJECT P* P************* P* TIODM * 2 P************* H P* ^ P* h ( P DATA 0 DATA MANAGEMENT DEVICE INDEX r & PTIODM DATA *+2 TIODM START ADDRESS P* P* SET UP A14 STACK P* P LDKL A14,TIOD14
0x113f98…11412c Dummy {f00=0x0104, f01=0x018e, f02=» A1,A2 P LD A3,2,A1 P CW A3,DWTTDM,A6 " P RF(E) TIOD10 THIS TASK : P ADK A2,2 NO Z P RB TIOD05 TRY NEXT n PTIOD10 EQU * P LC A1,TTB:ID,A3 GET TASK ID P CCK A1,'##' ( P RF(E) TIO13 JUMP IF DMTASK CALLING P*
0x11412c…1142c0 Dummy {f00=0x0104, f01=0x0190, f02=» P LDKL A4,/4000 REQ BUSY BIT PTIO11 EQU * ( P SUK A3,2 < P RF(N) TIO13 ALL FDB READY N P LDR* A5,A1 FDB ADDR p P RF(E) TIO12 NO FDB P SC A2,FDBTNR,A5 TASK ID " P ORS A4,DWTST,A5 REQ BUSY BIT PTIO12 EQU * P ADK A
0x1142c0…114454 (0, 350) Dummy {f00=0x0104, f01=0x0190, f02=»R IN A7 , P* PUT ORDER INDEX IN DWTOR RIGHT BYTE P* @ P LDKL A1,/8000 REQUEST ERROR J & P LDK A2,NOOFOR-1 NO OF ORDERS - 1 n 2 PTIOD15 CC A7,TIODMO,A2 START AT END OF TIODMO P RF(E) TIOD20 MATCH P SUK A2,1 P RB(NN) TIOD
0x114454…1145e8 Dummy {f00=0x0104, f01=0x0190, f02=»BI TIODMF,A2 BRANCH TO DM FUNCTION P EJECT * P* 8 $ PIXRARE EQU * INDEXED RANDOM READ B P LD A3,ECBCW2,A8 =1 j P ANK A3,/FF REQ KEY LGTH =1 P LD A4,FDBRLE,A6 =1 P SUK A4,6 MAX LGTH =1 P CWR A3,A4 =1 P RF(NG) IXRAR1
0x1145e8…11477c Dummy {f00=0x0104, f01=0x0190, f02=»GET USER KEY ADDRESS 0 P LDK A2,FDBKEY GET FDB KEY AREA DISPLACEMENT P ADR A2,A6 ADD FDB ADDRESS P P* =1 r 2 P CF A14,MOV:US MOVE KEY FROM USER TO FDB AREA P XIF P* $ PDELIXR EQU * DELETE INDEX RECORD P* $ PINSIXR E
0x11477c…114910 Dummy {f00=0x0104, f01=0x018e, f02=»U * CLOSE A FILE P LDK A4,0 PTIOC10 EQU * * $ P ST A4,FDBRRO,A6 MARK ORDER TYPE > P LDK A2,0 f , P ST A2,FDBSNR,A6 SECTOR #0 VOLUME LABLE x P* ( P* LET FDBCEX POINT TO FIRST EXTENT P* P LDR A4,A6 P ADK A4,FDBEXT
0x114910…114aa4 Dummy {f00=0x0104, f01=0x0190, f02=» P LDR A1,A6 FDB ADDR 0 P LDKL A2,/C000 REMOVE BUFFERS FOR THIS TASK P CF A14,EARELB T PREL090 EQU * j P LDK A1,0 CORRECT RETURN ~ P ABL TIODME P EJECT ( PSETLRN EQU * SET LAST RECORD NUMBER P LC A1,ECBCW+3,A8 P S
0x114aa4…114c38 Dummy {f00=0x0104, f01=0x0190, f02=»DATA REC p P RF GET010 . PGETCUX LDK A7,CRNCIF+1 GET CURR INDEX REC " PGET010 LDR A1,A6 FDB ADDR T " P CF A14,CRNGET GET CRN BUFFER v P ADR A7,A2 ADDR CURR REC NO P LDK A2,0 P LC A3,-1,A7 FILE CODE P CC A3,ECBFC,A8 P
0x114c38…114dcc Dummy {f00=0x0104, f01=0x0190, f02=»REC NO ~ P LD A2,1,A7 PGET030 EQU * " P ST A2,ECBCW,A8 6 P RB REL090 N P EJECT ` " PSEQREAD EQU * SEQUENTIAL READ n P* $ P* FIND CRN+1 AND TEST IF > LRN P* P LDR A1,A6 FDB ADDR " P CF A14,CRNGET GET CRN-BUFFE
0x114dcc…114f60 Dummy {f00=0x0104, f01=0x018e, f02=»ERFLOW P RF SEQR20 PSEQR10 EQU * " P ANKL A2,/7FFF REMOVE OVERFLOW 4 P ADK A1,1 ADD CARRY Z PSEQR20 EQU * v P SC A1,ECBCW+3,A8 REC NO P ST A2,ECBCW,A8 P* $ P* CONTINUE AS FOR RANDOM READ P* P EJECT
0x114f60…1150f4 (0, 351) Dummy {f00=0x0105, f01=0x0190, f02=» P LDK A2,0 P LC A2,ECBCW+3,A8 REC NO P LD A3,ECBCW,A8 6 P LDK A1,/8 INCORRECT LENGTH N P LD A4,ECBRL,A8 r * P RF(NP) TIODME ERROR RETURN IF RL <= 0 P* * P* EA MUST NOT BE SET FOR OTHER TASK P* P LDR A1,A6 FDB
0x1150f4…115288 Dummy {f00=0x0105, f01=0x018e, f02=»EQU * INDEXED INSRERT P IFT MMUPAG=1 P* 4 " P* MOVE KEYS TO FDB KEY AREAS > P* d P LDK A5,8 n PIXINS3 EQU * P LDR A2,A6 FDB DATA P ADR A2,A5 P LD A3,FDBADF,A2 FDB INDEX P RF(Z) IXINS4 NO INDEX P LD A1
0x115288…11541c Dummy {f00=0x0105, f01=0x0190, f02=» P LD A3,FDBRLE,A3 REC LGTH P SUK A3,6 KEY LGTH & " P CF A14,MOV:US KEY TO FDB AREA @ PIXINS4 EQU * f P SUK A5,2 z P RB(NZ) IXINS3 MORE INDEXS P XIF P* $ PSEQWRITE EQU * SEQUENTIAL WRITE P* 2 P* GET LRN+1 INTO
0x11541c…1155b0 Dummy {f00=0x0105, f01=0x0190, f02=» x P LDK A1,0 ! P LC A1,FDBMRN,A6 LAST REC NR ! P LD A2,FDBMRN+1,A6 ! > P LDK A6,0 ! X P LC A6,FDBLRN,A5 ! j P LD A7,FDBLRN+1,A5 LRN ! P CF A14,DSUMOD SUBTRACT ! P SUK A2,1 ! P LDR A1,A1 ! P RF(Z) SEQ005 NOT MANY ! P LDKL
0x1155b0…115744 Dummy {f00=0x0105, f01=0x0190, f02=»,FDBLRN+1,A6 LRN ! P IFT INDXAC=1 " P RF IXR020 STORE LOG REC NO " . P EJECT " R $ PIXRDNX EQU * INDEXED EREAD NEXT " ` P* " P* GET CRN " P* " P LD A1,FDBADF,A6 FDB ADDR " " P CF A14,CRNGET GET CRN BUFFER " P LDR A4,A2 BUFFA
0x115744…1158d8 Dummy {f00=0x0105, f01=0x0190, f02=»C A5,CRNCIF,A4 " . P RF(NE) IXR020 OTHER INDEX FILE IS CURRENT # P LC A1,CRNCIF+1,A4 # H " P LD A2,CRNCIF+2,A4 LOG REC NO # b PIXR020 EQU * # P XIF # P ADK A2,1 # P RF(O) IXR030 OVERFLOW # P RF IXR040 # , PIXR030 ANKL A2,/7FFF REMOVE OV
0x1158d8…115a6c Dummy {f00=0x0105, f01=0x0190, f02=»NOT CHECK EOF CONDITION # P EJECT $ P* $ . PIXREWR EQU * INDEXED REWRITE $ 8 P* $ PIXDEL EQU * INDEXED DELETE $ f P* $ PRANWRITE EQU * RANDOM WRITE $ P* $ & PRANWRD EQU * DELAYED RANDOM WRITE $ P* $ & PRANDLD EQU * DELAYED
0x115a6c…115c00 Dummy {f00=0x0105, f01=0x018e, f02=» $ P************************* % P* DMTASK ACTIVATION * % * P************************* % L P* % n PTIODMA EQU * % x P* % P* SET EOF IF CRN > LRN % P* % P LDK A1,0 % P LC A1,ECBCW+3,A8 REC NO % P LD A2,ECBCW,A8 DITTO
0x115c00…115d94 (0, 352) Dummy {f00=0x0105, f01=0x0190, f02=» % t P RF(NG) TIOD25 CRN <= LRN & PTIOD23 EQU * & * P LDKL A3,/1000 END OF FILE & > P ORS A3,ECBRC,A8 & ` P ANK A7,/3F & x P SUKL A7,SQR SEQ READ & P RF(NE) TIOD25 NOT SR & P LDR A1,A3 & P RF TIODME & PTIOD25 EQU * & 6 P CF A14,
0x115d94…115f28 Dummy {f00=0x0105, f01=0x0190, f02=»TE DMTASK WITH FDB ADDRESS IN A1 & P* ' ( PTIOD68 EQU * ' 2 P ENB ' F P ENB ' R P INH ' ^ P LDR A1,A6 FDB ADDRESS ' j P LDK A7,0 ' $ P LC A7,EXTDMI,A4 TID FOR DMTASK ' P ADKL A7,'#D' ' P CF A15,FNDTID A2:=TTAB ADDR ' P LDR A5,A2 '
0x115f28…1160bc Dummy {f00=0x0105, f01=0x0190, f02=»TE DMTASK ' | P* ( P* EXIT TO TDISP ( P* ( 6 P ABL TDISP ( @ P* ( R P EJECT ( P* ( j P************** ( t P* TIODME * ( P************** ( P* ( J P* TIODM ERROR CALL TENDIO WITH RETURN CODE IN A1 AND GOTO DISPATCHER (
0x1160bc…116250 Dummy {f00=0x0105, f01=0x4056, f02=»RESS ( , P ABL DISEND CALL TENDIO GOTO DISPATCHER ) P* ) < P END ) F@ ) R R P EJECT ( P* ( j P************** ( t P* TIODME * ( P************** ( P* ( J P* TIODM ERROR CALL TENDIO WITH RETURN CODE IN A1 AND GOTO DISPATCHER (
0x116250…1163e4 Dummy {f00=0x0105, f01=0x2008, f02=» *
0x1163e4…116578 Dummy {f00=0x0105, f01=0x0190, f02=»TIMER P CM DCTPP PHPT10 RTN A5 P EJECT 4 P IFT CODE=1 B P* V P* ` P* CALCULATION OF CRC j P* P* A2 = CHARACTER P* A7 = ACCUMULATED CRC P* P* PCRCCAL EQU * P ST A1,CRCSAV P ST
0x116578…11670c Dummy {f00=0x0105, f01=0x0190, f02=» P ANK A3,1 P RF(Z) CRC110 P XRKL A7,/A001 , PCRC110 SUK A1,1 B P RB(NZ) CRC100 Z P LD A1,CRCSAV p P LD A2,CRCSAV+2 P LD A3,CRCSAV+4 P RTN A5 PCRCSAV RES 3 P EJECT P* P* ( P* READ CRC C
0x11670c…1168a0 Dummy {f00=0x0105, f01=0x0190, f02=» NOT SKIP SYNCS NOW P CF A5,READ READ BYTE 1 P LD A8,CRCSAV+2 SAVE IT < P CF A5,READ READ BYTE 2 ( P CM SYNSW SYNCS CAN BE SKIPPED AGAIN | P LD A2,CRCSAV+2 SAVE IT P SLL A2,8 P XRR A2,A8 P ADK A5,4 . P CWR A2,A6
0x1168a0…116a34 (0, 353) Opaque[0x194]
0x116a34…116bc8 # DirEnt {nam=»DMTASK«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x10a0, f03=0x0000}
0x116a34…116bc8 IdxSect {
0x116a34…116bc8 f00 = 0x0085 // 0x116a34 @0x0
0x116a34…116bc8 f01 = 0x0026 // 0x116a36 @0x2
0x116a34…116bc8 gno = [ // 0x116a38 @0x4
0x116a34…116bc8 [0x00]: C0x0085.0x0.0
0x116a34…116bc8 [0x01]: C0x00fc.0x2.0
0x116a34…116bc8 [0x02]: C0x00fc.0x3.0
0x116a34…116bc8 [0x03]: C0x00fd.0x0.0
0x116a34…116bc8 [0x04]: C0x00fd.0x1.0
0x116a34…116bc8 [0x05]: C0x0105.0x2.0
0x116a34…116bc8 [0x06]: C0x0105.0x3.0
0x116a34…116bc8 [0x07]: C0x0106.0x1.0
0x116a34…116bc8 [0x08]: C0x0106.0x2.0
0x116a34…116bc8 [0x09]: C0x0106.0x3.0
0x116a34…116bc8 [0x0a]: C0x0107.0x0.0
0x116a34…116bc8 [0x0b]: C0x0107.0x1.0
0x116a34…116bc8 [0x0c]: C0x0107.0x2.0
0x116a34…116bc8 [0x0d]: C0x0107.0x3.0
0x116a34…116bc8 [0x0e]: C0x0108.0x0.0
0x116a34…116bc8 [0x0f]: C0x0108.0x1.0
0x116a34…116bc8 [0x10]: C0x0108.0x2.0
0x116a34…116bc8 [0x11]: C0x0108.0x3.0
0x116a34…116bc8 [0x12]: C0x0109.0x0.0
0x116a34…116bc8 ]
0x116a34…116bc8 }
0x116bc8…116d5c Dummy {f00=0x0085, f01=0x0190, f02=» 2 P IDENT DMTASK REL 9.2 79-11-16 870105040920 P : P =5, PR5649 B P REL 9.1 79-11-01 X P =4,CURRENCY INSERT t P REL 9.1 79-07-02 P =3,TEST KEY P REL 9.1 79-07-02 P =2,CH REQ P REL 8.2 P
0x116d5c…116ef0 Dummy {f00=0x0085, f01=0x0190, f02=»M PTS v P* 0 P* DMTASK = HANDLES DATAMANAGEMENT DISC I/O P* L P* V P* ` P* j P* t 8 P**************************************************** ~ P* , P* THIS MODULE IS ACTIVATED FROM TIODM. P* P* INPUT
0x116ef0…117084 Dummy {f00=0x0085, f01=0x0190, f02=» TO BE ACCESSED IS DEFINED IN FDB (FDBDMI, -FC, -SNR). : P* ALL BUFFERS ARE CHECKED TO FIND OUT IF THIS SECTOR > F P* IS ALREADY PRESENT IN A BUFFER. IF SO THE BUFFER STATUS IS SET | D P* TO USED AND ACTIONS ACCORDING TO THE ORDER ARE TAKEN. IF NOT
0x117084…117218 Dummy {f00=0x0085, f01=0x0190, f02=»N AND ARE V ( P* FOLLOWED BY AN EXIT LKM REQUEST. : P* INDEX FILES ARE HANDLED IN SUBROUTINE RDNXTR WHERE > & P* ALL I/O ARE MADE IN WAIT MODE | P* D P* BY MEANS OF CONDITIONAL ASSEMBLY THE EXCLUSIVE ACCESS CHECK 6 P* FOR INDEXED
0x117218…1173ac Dummy {f00=0x0085, f01=0x018e, f02=»SIVE ACCESS CHECK INCLUDED | 2 P* QNOEXA=0 EXCLUSIVE ACCESS CHECK EXCLUDED " P EJECT X P* f P*************** p P* ENTRIES * P*************** P* P* P ENTRY DMTASK & P ENTRY SQR EXTERNAL CODE SEQ READ
0x1173ac…117540 Dummy {f00=0x0085, f01=0x0190, f02=» | P***************** P* " P* , P EXTRN SCTTCT,SCTCDT 6 & P EXTRN TTB:ID TASK IDENTIFICATION R P EXTRN TTB:TD,FDBSTA | P EXTRN FNDTID P EXTRN TENDIO P EXTRN FDBECB P EXTRN FDBSNR P EXTRN FDBRRO P E
0x117540…1176d4 (0, 354) Dummy {f00=0x00fc, f01=0x0190, f02=» EXTDMI P EXTRN EXTFC P EXTRN EXTLEN $ P EXTRN EXTBAS : P EXTRN EXTELE P P EXTRN FDBLRN f P EXTRN FDBMIA | P EXTRN FDBEAL P EXTRN FDBADF P EXTRN FDBAI1 P EXTRN FDBCRL P EXTRN FDBDBR,FDBMRN,FDBMRO
0x1176d4…117868 Dummy {f00=0x00fc, f01=0x0190, f02=»BUF P EXTRN BUFLNK P EXTRN BUFDMI " P EXTRN BUFFC 8 P EXTRN BUFSNR L P EXTRN BUFOR b P EXTRN BUFSTA v P EXTRN CURBUF P EXTRN DWTECB P EXTRN DWTUEC P EXTRN DWTOR P EXTRN DWTST,DWTTDM,DWTTQ P EXT
0x117868…1179fc Dummy {f00=0x00fc, f01=0x0190, f02=»DIVMOD P EXTRN MPYMOD,CHKKEY P EXTRN CALSNO * P EXTRN DSUMOD @ . P EXTRN EATEST,EASETB,CRNGET,EARELB,GTBKBU V P EXTRN QTJOB,GTLGRN P EXTRN FNDKEY P EXTRN CRNCIF,CRNCDF,CRNQUE P EXTRN MXIND P EXTRN FDBKA,FDBNIF,RD
0x1179fc…117b90 Dummy {f00=0x00fc, f01=0x0190, f02=»VE FROM USER TO SYSTEM AREA 0 P EXTRN MOV:SU MOVE FROM SYSTEM TO USER AREA $ P EXTRN MONMMU X , P EXTRN PRUN TTAB ADDRESS OF RUNNING TASK n P EXTRN TTB:MT MMU TABLE ( P EXTRN SCTPLD PROGRAM LOADING DEVICE P EJECT P* P*
0x117b90…117d24 Dummy {f00=0x00fc, f01=0x0190, f02=»LUSIVE ACCESS BIT CAN BE EXCLUDED AT 8 P* RANDOM WRITE AND RANDOM DELETE BY SETTING X:A=0. , P* h P* r PX:A EQU 1 | PX:B EQU 0 PX:C EQU 0 PX:D EQU 1 PX:E EQU 0 P* PQNOEXA EQU 00001 6 P* INDEXED ACCE
0x117d24…117eb8 Dummy {f00=0x00fc, f01=0x018e, f02=»TED b PINDXAC EQU 00000 6 PRECBFZ EQU 00004 INDEX RECORD BUFFER SIZE IN WORDS $ 4 PFLXDSC EQU X:D FLEXIBLE DISC INCLUDED WHEN EQU 1 ^ 0 PINSLAS EQU X:E INSERT SAME KEY LAST WHEN = 1 P* P EJECT DMTASK P* P* . P* A PROG
0x117eb8…11804c Dummy {f00=0x00fc, f01=0x0190, f02=» . ** A PROGRAM VERSION USING TOSS DISC PAGING * &* IS OBTAINED BY SETTING DSKPAG EQU 1. 6 * d DSKPAG EQU 0 n * P* 6 P* A PROGRAM VERSION INCLUDING TOSS SWAPPABLE WORK 2 P* BLOCKS IS OBTAINED BY SETTING SWPBLK EQU 1. P*
0x11804c…1181e0 Dummy {f00=0x00fc, f01=0x0190, f02=»************** P* P* , PEABIT EQU /20 EA-BIT IN DWT STATUS BYTE * P* Z & PVTOBLK EQU 9 VTOC BLOCKING FACTOR d P* : P* THE FOLLOWING INTERNAL ORDER CODES IS THE RELATIVE & P* POSITION IN TIODM-TABLE TIODMF P*
0x1181e0…118374 (0, 355) Dummy {f00=0x00fc, f01=0x0190, f02=»XAC=1 " P DATA DMIRN INDEXED READ NEXT PQINS EQU 6 4 P DATA DMINS INDEXED INSERT F PQDEL EQU 8 h P DATA DMDEL INDEXED DELETE z PQIRW EQU 10 P DATA DMIRW INDEXED REWRITE $ P DATA DMIRR INDEXED RANDOM RESAD P XIF P
0x118374…118508 Dummy {f00=0x00fc, f01=0x0190, f02=»DOM DELETE PQRW EQU 16 P DATA DMRDWR RANDOM WRITE $ PQRR EQU 18 F P DATA DMRDRE RANDOM READ X PQREA EQU 20 x * P DATA DMTERR RELEASE EXCLUSIVE ACCESS PQSW EQU 22 " P DATA DMSQWR SEQUENTIAL WRITE * PSQR EQU 2 EXTERNAL ORD
0x118508…11869c Dummy {f00=0x00fc, f01=0x0190, f02=» INDXAC=1 PQINIX EQU 28 P DATA DMINIX INSERT INDEX & PQDELX EQU 30 H P DATA DMDELX DELETE INDEX P XIF ~ P IFF INDXAC=1 P DATA DMTERR,DMTERR P XIF PQGCURX EQU 32 " P DATA DMTERR GET CURRENT INDEX PQRWD
0x11869c…118830 Dummy {f00=0x00fc, f01=0x0190, f02=» $ P DATA DMRRRB RAND READ REL BUFF P* , $ PVTOCRL DATA 0 VTOC RECORD LENGTH 6 P EJECT ^ P* l P************** v P* DMTFRL * P************** P* , P* ENTRY DMTFRL FIND RECORD LENGTH P* 4 P* INPUT
0x118830…1189c4 Dummy {f00=0x00fc, f01=0x0190, f02=»OUTPUT A2 = RECORD LENGTH TO BE USED < P* A1 IS ORED INTO ECBRC IF ECBRL < REC LENGTH . & P* A2 IS STORED IN ECBEL n P* PDMTFRL EQU * P LD A2,ECBRL,A9 P CW A2,FDBRLE,A6 $ P RF(E) DMTF20 ECBRL = REC LENGTH
0x1189c4…118b58 Dummy {f00=0x00fc, f01=0x0190, f02=»ETURN CODE t . PDMTF20 ST A2,ECBEL,A9 SET EFFECTIVE LENGTH P RTN A14 D P EJECT T P* b P************ l P* DMTWM * P************ P* " P* ENTRY DMTWM WORD MOVE P* " P* INPUT A1 = FROM ADDRESS , P
0x118b58…118cec Dummy {f00=0x00fc, f01=0x0190, f02=» P* PDMTWM EQU * P SUK A2,2 & " P RF(N) DMTW10 LAST WORD MOVED 8 P LDR* A4,A1 ^ P STR A4,A3 r P ADK A1,2 P ADK A3,2 P RB DMTWM PDMTW10 ANK A2,/01 P RF(E) DMTW20 P LCR A4,A1 MOVE LAST CHAR
0x118cec…118e80 Dummy {f00=0x00fc, f01=0x0190, f02=» " P* ENTRY DMTBM BYTE MOVE P* . " P* INPUT A1 = FROM ADDRESS 8 , P* A2 = NO OF BYTES TO BE MOVED ^ P* A3 = TO ADDRESS P* $ P* A4 WILL BE DESTROYED P* P* OUTPUT A3 = NEXT CHAR
0x118e80…119014 (0, 356) Dummy {f00=0x00fd, f01=0x0190, f02=» P ADK A1,1 P ADK A3,1 P RB DMTBM ( PDMTB10 RTN A14 : P* P 2 P* DMTBMR HAS THE SAME FUNCTION AS DMTBM BUT Z P* MOVES FROM THE END P* PDMTBMR ADR A1,A2 P ADR A3,A2 PDMTB20 SUK A2,1 P RB(N) DMTB10
0x119014…1191a8 Dummy {f00=0x00fd, f01=0x0190, f02=»**************************** x P* $ : P* FNDFDB WILL SEARCH TTAB AND SCTCDT FOR A FILE CODE . P* l 8 P****ENTRY PARAMETERS******************************** v P* P* A1 = TTAB ADDR $ P* A2 = FILE CODE TO SEARCH FOR 4 P* A5 NOT
0x1191a8…11933c Dummy {f00=0x00fd, f01=0x0190, f02=»NCHANGED 2 P* A2 = FILE CODE. = 0 WHEN NO CODE IS FOUND 6 P* A4 = TTAB/SCTCDT ENTRY ADDR WHEN CODE IS FOUND F 2 P* A5 = 0 WHEN FOUND IN SCTCDT = 1 WHEN TTAB P* 8 P****USED REGISTERS********************************** P* P*
0x11933c…1194d0 Dummy {f00=0x00fd, f01=0x0190, f02=»* PFNDFDB EQU * & P LD A3,TTB:TD,A1 LENGTH DEV DESCR PFND030 EQU * H P SUK A3,4 ( P RF(NP) FND040 FILE CODE NOT IN TTAB n P LDR A4,A1 P ADKL A4,TTB:TD =1 P ADR A4,A3 P CWR* A2,A4 =1 P RB(NE) FND030 P
0x1194d0…119664 Dummy {f00=0x00fd, f01=0x0190, f02=» EQU * P LDR A5,A5 ( P RF(NZ) FND060 ONLY TTAB IS SEACHED P LD* A4,SCTCDT L PFND050 EQU * b P SUK A4,4 v ( P RF(NP) FND060 CODE NOT FOUND AT ALL P LD A3,SCTCDT P ADR A3,A4 P CWR* A2,A3 =1 P RB(NE) FND050
0x119664…1197f8 Dummy {f00=0x00fd, f01=0x0190, f02=» EJECT P* P************** P* DMTREM * . P************** D P* Z D P* ENTRY DMTREM MOVE RECORD FROM BUFFER TO USER RECORD AREA d P* 0 P* INPUT RELATIVE REC OFFSET IN FDBRRO,A6 $ P* BUFFER ADDRESS IN
0x1197f8…11998c Dummy {f00=0x00fd, f01=0x0190, f02=»HE RECORD > P* IF (FROM) AND (TO) ADDRESSES BOTH EVEN THEN WORD MOVE B P* IF (FROM AND (TO) ADDRESSES BOTH ODD THEN MOVE FIRST BYTE T > P* WITH BYTE INSTRUCTIONS AND THE REST WITH WORD MOVE : P* ELSE USE BYTE MOVE INSTRUCTIONS FOR THE
0x11998c…119b20 Dummy {f00=0x00fd, f01=0x0190, f02=» LDR A4,A1 P LD A3,ECBBA,A9 TO ADDRESS P XRR A4,A3 4 P ANK A4,/01 F ( P RF(Z) DMT210 BOTH ODD OR BOTH EVEN Z & P CF A14,DMTBM ONE ODD AND ONE EVEN P RF DMT225 P* PDMT210 LDR A4,A1 P ANK A4,/01 P RF(E) DMT220 BO
0x119b20…119cb4 (0, 357) Dummy {f00=0x00fd, f01=0x0190, f02=»RD MOVE z PDMT225 EQU * P XIF $ P* 0 P IFT MMUPAG=1 : & P LD A4,DWTTDM,A6 GET TTAB ADDRESS P $ P LC A3,TTB:ID,A4 ID CALLING TASK z P CCK A3,'##' P RF(NE) DMTREN NOT DMTASK P LDK A3,QRR P CC A3,DWTOR+1,A6 " P R
0x119cb4…119e48 Dummy {f00=0x00fd, f01=0x0190, f02=»SER TTAB ~ PDMTREN EQU * P INH $ $ P TL TTB:MT,A4 LOAD MMU REGISTERS 0 PDMTREP EQU * X $ P LD A4,PRUN GET DM TTAB ADDRESS l 0 P TS TTB:MT,A4 STORE USER MMU IN DM MMU TABLE P ENB P LDR A3,A2 GET LENGTH 0 P LD A2,ECBBA,A9 GET RE
0x119e48…119fdc Dummy {f00=0x00fd, f01=0x018e, f02=»PAG=1 PDMTREQ INH P TL MONMMU SYSTEM MMU P RB DMTREP > P XIF P P EJECT P* j P* SET UP A14 STACK t P* PGETA14 EQU * $ P LD A14,PRUN GET DM TTAB ADDRESS * P AD A14,TTB:TD,A14 LENGTH DEVICE DESCR P ADK
0x119fdc…11a170 Dummy {f00=0x00fd, f01=0x0190, f02=» P************** ! P* ! P* ! ( PDMTASK EQU * ! 2 P* ! F P* SET UP A14 STACK ! P P* ! l P CF A15,GETA14 ! v P LDR A6,A1 FDB ADDR ! P LDKL A5,-1 ! * P CW A5,FDBRRO,A6 SPECIAL PARAMETER -1 ! 2 P RF(E) DMT090 FOR ORDERS XR,DX
0x11a170…11a304 Dummy {f00=0x00fd, f01=0x0190, f02=»1 ! P ANK A2,/3F " P CWK A2,QCL " P RF(E) DMT024 CLOSE " 2 P CWK A2,QRV " N P RF(E) DMT024 READ VTOC " b P SUK A2,QRRRB " & P RF(E) DMT024 RAND READ REL BUFFER " P ORKL A4,/100 " PDMT024 EQU * " P ST A4,FDBDBR,A1 " PDMT0
0x11a304…11a498 Dummy {f00=0x00fd, f01=0x0190, f02=»80 BUFFER WAS BEFORE " P* # ( P* READ SECTOR INTO BUFFER AND EXIT # & P* # R P SUK A5,QCL # P RF(Z) DMT030 CLOSE # p P LDK A7,/11 PHYSICAL READ # P LKM # P DATA -1 I/O AND ACTIVATION # " P DATA DMTAR1 DMTASK RESTART #1 # P LKM
0x11a498…11a62c Dummy {f00=0x00fd, f01=0x0190, f02=»T050 CHECK RETURN CODES # P EJECT $ P************** $ . P* DMTAR1 * $ D P************** $ Z P* RESTART POINT AFTER READ $ p P* $ PDMTAR1 EQU * $ P* $ P* SET UP A14 STACK $ P* $ P CF A15,GETA14 $ PDMT050 EQU * $
0x11a62c…11a7c0 Dummy {f00=0x00fd, f01=0x0190, f02=» $ 0 PDMT080 EQU * ENTRY IF SECT ALREADY IN BUFFER % P LDR A5,A3 % < P ADK A5,8 SKIP BUFFER HEADER % N * P ST A5,ECBBA,A8 PUT BUFFER ADDR IN ECB % r PDMT090 EQU * % P* % 4 P* HANDLE ACTUAL ORDER ORDER INDEX IN DWTOR % P* % P ADK A5,
0x11a7c0…11a954 (0, 358) Dummy {f00=0x0105, f01=0x0190, f02=» TABLE % r P EJECT & $ PDMRRRB EQU * RAND READ REL BUFF & P* & D PDMSQRE EQU * SEQUENTIAL READ & N P* & r PDMRDRE EQU * RANDOM READ & | P* & 4 P* CHECK STATUS IF NOT USED THEN ERROR RETURN & P* & P LD A2,FDBRRO,A6 & P AD A2,F
0x11a954…11aae8 Dummy {f00=0x0105, f01=0x018e, f02=»A & | P ABL DMTERR ' & PDMT200 LDK A1,/8 INCORRECT LENGTH ' & P CF A14,DMTFRL A2 := RECORD LENGTH ' H P* ' r P* MOVE THE RECORD ' | P* ' P CF A14,DMTREM ' P* ' 0 P* UPDATE CRN AND SET EXCLUSIVE ACCESS BIT ' P* ' PDMT230 E
0x11aae8…11ac7c Dummy {f00=0x0105, f01=0x0190, f02=» ' t P* ( P LD A2,FDBSNR,A6 ( ( P RF(NZ) DMT270 VTOC SECTOR IN BUFFER ( * P* ( V P* VOLUME LABEL IN BUFFER ( ` H P* FIND VTOC SECTOR NUMBER AND RELATIVE RECORD OFFSET WITHIN SECTOR ( 8 P* FOR VTOC RECORD AND READ THIS SECTOR INTO BUFFER (
0x11ac7c…11ae10 Dummy {f00=0x0105, f01=0x0190, f02=»OBLK VTOC BLOCKING FACTIOR ( ( P LD A2,FDBVTO,A10 VTOC RECORD NUMBER ) " P LDK A1,0 ) N , P CF A14,DIVMOD A2=A1,A2/A6.A1=REMAINDRER ) ` P LDR A3,A2 QUOTIENT ) P LDR A6,A10 FDB ADDR ) P LDR A2,A1 REST ) P RF(Z) DMT240 REST = 0 ) $ P ADK A3,1
0x11ae10…11afa4 Dummy {f00=0x0105, f01=0x0190, f02=» P ST A3,FDBSNR,A6 * P LDK A3,0 * PDMT255 SUK A2,1 * . P RF(Z) DMT260 * F P AD A3,VLVRL-2,A5 * P ADK A3,1 SKIP STATUS BYTE * v P RB DMT255 * PDMT260 ST A3,FDBRRO,A6 * P* * P* RELEASE BUFFER * P* * P LD A3,ECBBA,A9 *
0x11afa4…11b138 Dummy {f00=0x0105, f01=0x0190, f02=» ADDR * P RB DMT020 READ VTOC SECTOR + P EJECT + 2 PDMT270 EQU * + @ P SUK A7,QRV + T $ P ABL(Z) DMT500 READ VTOC RECORD + h P* CLOSE FILE + & P* UPDATE VTOC LAST RECORD NUMBER + & P* AND WRITE SECTOR BACK ON DISC + P AD A5,FDBRRO,
0x11b138…11b2cc Dummy {f00=0x0105, f01=0x0190, f02=»E FILE. WRITE VTOC + P* , P LDK A7,/95 , $ P LKM , 8 P DATA 1 , D P* , T P LDR A1,A6 FDBADDRESS IN A1 , ^ & P CF A14,DMTIOT CHECK RETURN CODES , P LDR A1,A1 , P RF(NZ) DMT724 ERROR , PDMT720 EQU * , P LD A1,DWTTDM,A6 TTAB ADDR
0x11b2cc…11b460 Dummy {f00=0x0105, f01=0x0190, f02=» A2,1 0 OR 1 , P ECR A2,A2 =1 END - P LC A2,ECBFC,A9 FILE CODE - . " P LDK A5,0 TRY LOCAL AND GLOBAL - P . P CF A14,FNDFDB GET ENTRY IN TTAB CDTADTAB - v & P LDR A13,A5 LOCAL/GLOBAL INDICATOR - P LDR A2,A2 - P RF(NZ) DMT725 FC FOUND - P LDK
0x11b460…11b5f4 (0, 359) Dummy {f00=0x0105, f01=0x0190, f02=»R - p P LDR A12,A1 SAVE TTEAB ADDR . 4 P SUR A10,A10 MARK THAT FDB NOT SHALL BE RELEASED . . P EJECT . f 0 P* CHECK IF THIS FDB ADDR IS USED ELEWHERE . t P* . P* SEARCH ALL TTABS . P* . P LD* A2,SCTTCT . PDMT730 EQU * . P SUK A
0x11b5f4…11b788 Dummy {f00=0x0105, f01=0x018e, f02=»K ID . | P CCK A3,'##' / & P RB(E) DMT730 JUMP IF MONITOR TASK / P LD A3,TTB:TD,A1 / J ( P ADKL A1,TTB:TD+2 DEV DESCR TABLE +2 / b PDMT770 EQU * / P SUK A3,4 / $ P RB(NP) DMT730 NOT IN THIS TTAB / P LDR A4,A1 / P ADR A4,A3 / P CWR* A5
0x11b788…11b91c Dummy {f00=0x0105, f01=0x0190, f02=» / v & P RF DMT895 MORE USERS ON THIS FDB 0 P* 0 2 P* NOW SEARCH SCTCDT 0 < P* 0 Z PDMT780 EQU * 0 d P LD* A4,SCTCDT 0 x PDMT790 EQU * 0 P SUK A4,4 0 . P RF(NP) DMT800 THIS FDB HAS NO OTHER USER 0 P LD A2,SCTCDT 0 P ADR A2,A4 0
0x11b91c…11bab0 Dummy {f00=0x0105, f01=0x018e, f02=» & P RF DMT895 THIS FDB HAS MORE USERS 1 P EJECT 1 . P* 1 < P* NOW RELEASE THIS FDB 1 F P* 1 f PDMT800 EQU * 1 p P* 1 P* RELEASE EA-BUFFERS 1 P* 1 . P LDKL A2,/8000 ALL EA-BUFFERS ARE RELEASED 1 P LDR A1,A6 FDB ADDR 1 P CF
0x11bab0…11bc44 Dummy {f00=0x0105, f01=0x0190, f02=» 1 P CMR A5 CLEAR FDB 2 P RF DMT830 2 " PDMT820 EQU * 2 4 P LDR A4,A5 BUFFER ADDRESS 2 H PDMT830 EQU * 2 j & P RF(Z) DMT840 ALL BUFFER S REMOVED 2 ~ $ P LDR* A5,A4 NEXT BUFFER ADDRESS 2 P* 2 P* RETIURN BUFFER TO POOL 2 P* 2 P I
0x11bc44…11bdd8 Dummy {f00=0x0105, f01=0x0190, f02=» 2 P* 3 < P* NOW CHECK DEVICE CODES. WHEN LAST FILE IS CLOSED ON 3 > P* A FLEXIBLE DISC UNIT, AN UNLOC IS MADE FOR THIS VOLUME 3 R P* 3 P LDK A1,4 EXTENT COUNTER 3 P LDR A5,A6 FDB ADDR 3 . P ADKL A5,FDBEXT+1 ZADDR OF FIRST VOL CODE 3
0x11bdd8…11bf6c Dummy {f00=0x0105, f01=0x0190, f02=»1 LOOP 3 & P ABL(NN) DMT900 CHECK THIS EXTENT 4 P XIF 4 8 P IFT INDXAC=1 4 D P EJECT 4 Z P* 4 h P* ALL EXTENTS CHECKED 4 r P* RELEASE MASRTER INDEX 4 P* 4 P INH 4 & P LD A1,FDBMIA,A6 MASTER INDEX ADDR 4 P RF(Z) DMT894 NO MAT
0x11bf6c…11c100 Dummy {f00=0x0105, f01=0x018e, f02=» DMT894 NO MATER IX 4 P CW A1,MXIND+2,A5 5 P RB(NE) DMT885 5 6 P LD A4,MXIND,A5 5 L & P RF(N) DMT890 PREVIOUS ENTRY USED 5 d " P LD A4,MXIND+4,A5 NO OF WORDS 5 P ANKL A4,/7FFF REMOV USE BIT 5 P ADS A4,MXIND,A5 NR OF WORDS 5 P* 5 P*
0x11c100…11c294 (0, 360) Dummy {f00=0x0106, f01=0x0190, f02=» P LD A2,MXIND 6 P SUR A2,A5 6 P SUK A2,2 NO OF CHAR 6 * P CF A14,DMTWM MOVE UOP 6 F P RF DMT894 6 d PDMT890 EQU * 6 v P LDKL A4,/7FFF 6 & P ANS A4,MXIND+4,A5 REMOVE USE BIT 6 P XIF 6 P EJECT 6 PDMT894 EQU * 6 0 P LDKL A10,1 MARK
0x11c294…11c428 Dummy {f00=0x0106, f01=0x0190, f02=»11 FILE CODE 6 P CM 2,A11 FDB ADDR 7 P* 7 . * P* RELEASE DWT-QUEUQ IN THIS FDB-DWT 7 8 P* 7 f P LDR A1,A6 FDBADDR 7 p $ P ADKL A1,DWTTQ ADDR QUEUE START 7 P LDR* A5,A1 NEXT TTAB ADDR 7 P RF(Z) DMTA20 NO Q 7 P CMR A1 KILL ROOT 7 $ P
0x11c428…11c5bc Dummy {f00=0x0106, f01=0x0190, f02=» 7 P* 8 " P* NEXT ENTRY IN TTAB/CDATAB 8 P* 8 8 P LDR A1,A12 TTAB ADDR 8 B P LDK A2,0 8 ` ( P LC A2,ECBFC,A9 FILE CODE USERT ECB 8 r & P LDR A5,A13 LOCAL/GLOBAL INDICATOR 8 & P CF A14,FNDFDB SEARCH TTAB SCTCDT 8 P LDK A7,0 INDICATES A2
0x11c5bc…11c750 Dummy {f00=0x0106, f01=0x018e, f02=»ALL ALSO BE RELEASED 8 | P* 9 & P LD A7,2,A4 NEXT FDB ADDR TO CLOSE 9 & P LDK A1,2 9 P P ADR A1,A6 FROM ADDR 9 b P LDK A3,2 9 ~ P ADR A3,A7 TO ADDR 9 P LDK A2,12 NO OF BYTES 9 P CF A14,DMTWM MOVE DWT 9 P IFT MMUPAG=1 9 P LD A3,DWTUE
0x11c750…11c8e4 Dummy {f00=0x0106, f01=0x018e, f02=» 9 x P CM FDBSNR,A7 SECTOR NR : P LDKL A3,FDBEXT : ( P ADR A3,A7 : @ P ST A3,FDBCEX,A7 1ST EXTENT : R P LDR A10,A10 =1 : v P RF(Z) DMTA30 NO RELEASE =1 : P LDKL A3,/8000 : P ST A3,DWTST,A6 NOT BUSY : PDMTA30 EQU * : P XIF : P
0x11c8e4…11ca78 Dummy {f00=0x0106, f01=0x0190, f02=» P* RELEASE FDB ; P* ; P LDR A10,A10 ; & P RF(Z) DMTA40 NO RELEASE ; : P IFT INDXAC=1 ; Z P* ; p 0 P* REMOVE ALL OTHER REFERAENCES TO THIS FDB ; z P* ; P LDK A1,10 2*MAX NR OF FDBS ; PDMTA50 SUK A1,2 ; " P RF(N) DMTA70 ALL FD
0x11ca78…11cc0c Dummy {f00=0x0106, f01=0x0190, f02=»OF FDBS ; | PDMTA60 SUK A4,2 < 0 P RB(N) DMTA50 ALL ADDR CHECKED IN OTHER FDB < ( P LDR A5,A3 < P ADR A5,A4 < n P CW A6,FDBADF,A5 < P RB(NE) DMTA60 < P* < @ P* DELETE THIS REFERENCE TO THE FDB THAT SHALL BE RELEASED < P* < P C
0x11cc0c…11cda0 Dummy {f00=0x0106, f01=0x0190, f02=»SET FDB FREE < PDMTA40 EQU * = * P CF A14,CLRBUF REMOVE ALL FREE BUFFERS = ( P LDR A1,A7 NEW FDB ADDR = V P ABL(Z) DMTERX NO MORE FDBS = v P IFT INDXAC=1 = P ENB ENB = P* = 4 P* FIND WHICH DMTASK IS NEXT AND ACTIVATE THAT = P* =
0x11cda0…11cf34 (0, 361) Dummy {f00=0x0106, f01=0x0190, f02=» P LKM > P DATA 3 EXIT > P XIF > $ P IFT FLXDSC=1 > 0 P EJECT > F PDMT900 EQU * > T $ P* UNLOCK FLEXDISC IN THIS LOOP > h P* > P* REGISTERS > P* A1 = EXTENT COUNTER > 6 P* A4 = LAST VOL CODE FLEXDOISC A5 = EXT ADDR >
0x11cf34…11d0c8 Dummy {f00=0x0106, f01=0x0190, f02=»NGTH IN FDB > z P LCR A7,A5 VOLUME CODE ? P ANK A7,/FF ? 2 P ABL(Z) DMT880 NO CODE ? F P* ? d & P* FLEXDICSC IF BIT 8-13 = 111110 ? n P* ? P ANK A7,/F8 ? P SUK A7,/F8 ? P ABL(NE) DMT880 NO FLEXDISC ? P* ? 6 P* IF SAME FLEX
0x11d0c8…11d25c Dummy {f00=0x0106, f01=0x0190, f02=»THOIS FLEXIBLE DISC VOL CODE ? t P* @ $ PDMT910 EQU * @ . P LCR A4,A5 SAVE VOL CODE @ B " P LDKL A3,FDBSTA FDB LINK ROOT @ b P INH INH @ P RF DMT925 @ PDMT920 EQU * @ P LDR* A3,A3 FDB ADDR @ PDMT925 EQU * @ P ANKL A3,/FFFE FDB ADD
0x11d25c…11d3f0 Dummy {f00=0x0106, f01=0x018e, f02=» DMT920 CURRENT FDB @ P LDK A7,4 EXTENT COUNTER A P LDR A2,A3 FDB ADDR A < P ADKL A2,FDBEXT+1 A X P* ADDR OF 1ST VOL CODE A r & P SUKL A2,EXTELE EXT LENGTH IN FDB A PDMT930 EQU * A P SUK A7,1 A & P RB(N) DMT920 ALL EXTENTS CHECKED A
0x11d3f0…11d584 Dummy {f00=0x0106, f01=0x018e, f02=» A & P* ALL FSDBS CHECKED. MAKE UNLOAD B P* B 2 PDMT980 EQU * B < P ENB ENB B P P* B b 6 P* NOTE THAT ECBBUF IS ASSUMED NOT TO BE CHANGED B l P* WITH THIS REQUEST B P* B P SC A4,ECBFC,A8 VOL CODE B P* B P IFF DSKPAG+SWPB
0x11d584…11d718 Dummy {f00=0x0106, f01=0x0190, f02=» P IFT FLXDSC=1 C P LDK A7,/B8 UNLOAD WAIT C P LKM C : P DATA 1 C F P LD A1,ECBRC,A8 C V P ANK A1,1 INOPER C n P ABL(NZ) DMTERR C P ABL DMT880 CHECK NEXT EXT C P XIF C P EJECT C " PDMT500 EQU * READ VTOC RECORD C P* C "
0x11d718…11d8ac Dummy {f00=0x0106, f01=0x0190, f02=»H C v ( P ORS A1,ECBRC,A9 SET RC BUT CONTINUE D , P LD A2,ECBRL,A9 MOVE WHAT USER TOLD YOU D 6 PDMT510 EQU * D f P ST A2,ECBEL,A9 D z P CF A14,DMTREM MOVE RECORD D PDMAEX EQU * D P ABL DMTAEX EXIT D P EJECT D " PDMSQWR EQU * SEQUENTIAL WR
0x11d8ac…11da40 Dummy {f00=0x0106, f01=0x0190, f02=» D v P* E PDMDEL EQU * INDEXED DELETE E P* E 4 PDMIRW EQU * INDEXED REWRITE E > P* E b & PDMRDWD EQU * DELAYED RANDOM WRITE E l P* E & PDMRDDD EQU * DELAYED RANDOM DELETE E P* E P* TEST STATUS E P LD A10,FDBRRO,A6 E P A
0x11da40…11dbd4 (0, 362) Dummy {f00=0x0106, f01=0x0190, f02=»+2,A9 E P ANK A2,/FF F P LD A3,ECBCW,A9 LOG REC NR F " P LDK A4,0 F D P CCR A4,A10 F V P RF(E) DMS010 FREE F j P IFT INDXAC=1 F P LDR A4,A7 F P SUK A4,QINS F P RF(E) DMEAER INDEXED INSERT F P XIF F P LDR A4,A7 F P SUK A
0x11dbd4…11dd68 Dummy {f00=0x0106, f01=0x0190, f02=» P ANK A4,EABIT G " P RF(NZ) DMS020 EA=1, NO CHECK G P* EA MUST BE SET G @ P* G Z P CF A14,EATEST G d P LDR A4,A4 RTN CODE G z " P RF(NP) DMEAER NO EA THIS TASK G P XIF G P RF DMS100 G PDMS010 EQU * G P IFT INDXAC=1 G P LDR
0x11dd68…11defc Dummy {f00=0x0106, f01=0x0190, f02=»TE G v P XIF H PDMS020 EQU * H P CF A14,EATEST H * P LDR A4,A4 RTN CODE H @ P RF(N) DMEAER EA OTHER TASK H PDMS100 EQU * H P LDK A1,0 SET STATUS FREE H P IFT INDXAC=1 H P LDR A2,A7 H P SUK A2,QIRW H " P RF(E) CHK010 INDEXED
0x11defc…11e090 Dummy {f00=0x0106, f01=0x0190, f02=»HK010 INDEXED DELETE H P XIF I P LDR A2,A7 I ( P SUK A2,QRD I : P RF(E) DMT350 RANDOM DELETE I N P LDR A2,A7 I r P SUK A2,QRDD I ( P RF(E) DMT350 DELAYED RANDOM DELETE I P RF DMT310 RW,RWD,SW I P IFT INDXAC=1 I P EJECT I PCHK0
0x11e090…11e224 Dummy {f00=0x0106, f01=0x0190, f02=»* COMPARE KEYS IN FILE AND USER BUFFER I P* J 0 P LDR A1,A6 FDB ADDR J : P LDK A5,8 MAX 4 INDEX J V P SUR A12,A12 INDEX COUNTER J t PCHK040 EQU * J P SUK A5,2 J $ P RF(N) CHK100 ALL INDEX CHECKED J P LDR A2,A1 FDB ADD J P ADR A2,A5
0x11e224…11e3b8 Dummy {f00=0x0106, f01=0x0190, f02=»ORDER =3 J P ANK A2,/3F ORDER INDEX K P SUK A2,QIRW K 0 & P RB(NE) CHK040 NOT INDEXED REWRITE K D P* K n P IFT MMUPAG=1 K x P LDR A7,A1 SAVE A1 K * P LD A1,FDBKA,A6 GET KEY START ADDRESS K P AD A1,ECBBA,A9 K 2 P LDKL A2,FDBKEY GET KEY SA
0x11e3b8…11e54c Dummy {f00=0x0106, f01=0x0190, f02=»6 KEY LENGTH K P INH L & P LD A4,DWTTDM,A7 GET TTAB ADDRESS L $ P TL TTB:MT,A4 LOAD MMU REGISTERS L J $ P LD A4,PRUN GET DM TTAB ADDRESS L r 0 P TS TTB:MT,A4 STORE USER MMU IN DM MMU TABLE L P ENB L , P CF A14,MOV:US MOVE KEY TO FDB KEY AREA L
0x11e54c…11e6e0 Dummy {f00=0x0106, f01=0x0190, f02=»NDXAC=1 L P IFT MMUPAG=0 M " P LD A2,FDBKA,A6 KEY START ADDR M & P LDR A3,A2 M L " P AD A2,ECBBA,A9 KEY IN BUFFER M ^ P XIF M P* M P IFT INDXAC=1 M P AD A3,FDBRRO,A1 M P ADR A3,A11 KEY IN FILE M P LDK A7,0 M " P LD A6,FDBRLE,
0x11e6e0…11e874 (0, 363) Dummy {f00=0x0107, f01=0x0190, f02=»ECK NEXT M r P LDR A6,A1 FDB ADDR N P LDKL A1,/4000 KEY NOT FOUND N , P RF DMERR N P PCHK100 EQU * N b P LDR A6,A1 FDB ADDR N v P LD A7,DWTOR,A6 N P ANK A7,/3F ORDER INDEX N P LDK A2,0 N P LC A2,FDBNIF,A6 N P CWR A2,A12 N ( P
0x11e874…11ea08 Dummy {f00=0x0107, f01=0x0190, f02=»R N P XIF O $ PDMEAER LDKL A1,/2000 EA PROTECT O PDMERR ABL DMTERR O > P EJECT O V P* O d P* MOVE RECORD O n P* O PDMT310 EQU * O P IFT INDXAC=1 O P LDR A2,A7 O P SUK A2,QDEL O " P ABL(E) DMXDEL INDEXED DELETE O P X
0x11ea08…11eb9c Dummy {f00=0x0107, f01=0x0190, f02=»FROM ADDRESS O P* P P IFT MMUPAG=0 P P XRR A4,A1 P 4 P ANK A4,/01 P F ( P RF(E) DMT320 BOTH ODD OR BOTH EVEN P Z & P CF A14,DMTBM ONE ODD AND ONE EVEN P P RF DMT340 P P* P PDMT320 LDR A4,A3 P P ANK A4,/01 P P RF(E) DMT330 BO
0x11eb9c…11ed30 Dummy {f00=0x0107, f01=0x018e, f02=»RD MOVE P z P* Q P XIF Q P* Q & P IFT MMUPAG=1 Q 0 P LDR A3,A2 GET LENGTH Q F , P LDR A2,A4 GET RECEIVING BUFFER ADDRESS Q d P INH Q & P LD A4,DWTTDM,A6 GET TTAB ADDRESS Q $ P TL TTB:MT,A4 LOAD MMU REGISTERS Q $ P LD A4,PRUN GET DM TTA
0x11ed30…11eec4 Dummy {f00=0x0107, f01=0x0190, f02=» Q Z P XIF R P* R PDMT340 EQU * R P* R 2 P* SET STATUS USED R < P* R X P LDK A1,/FF R b PDMT350 SCR A1,A10 R v P LD A3,FDBDBR,A6 R P RF(NN) DMT394 NO DELAY R P LDR A2,A7 R P SUK A2,QSW R " P RF(E) DMT360 SEQUENTIAL W
0x11eec4…11f058 Dummy {f00=0x0107, f01=0x0190, f02=»NDOM DELETE R x P RF DMT390 S $ P* WRITE IF LAST REC IN SECTOR S & P* S N PDMT360 LD A4,FDBRRO,A6 S X P CW A4,FDBMRO,A6 S v " P RF(NE) DMT400 NOT LAST RECORD S " PDMT390 LDK A7,/05 BASIC WRITE S P SLL A3,1 S P RF(N) DMT395 BASIC WANTED S
0x11f058…11f1ec Dummy {f00=0x0107, f01=0x0190, f02=»1,A6 FDB ADDRESS AS PARAMETER S P LKM T & P DATA -1 I/O AND ACTIVATION T 2 " P DATA DMTAR2 DMTASK RESTART #2 T V P LKM T | P DATA 3 EXIT T P EJECT T P* T P************** T P* DMTAR2 * T P************** T P* T P* T ,
0x11f1ec…11f380 Dummy {f00=0x0107, f01=0x0190, f02=»4,DMTIOT CHECK DISC I/O T P LDR A1,A1 U P RF(NZ) DMTERR U 2 P LDKL A1,/C0FF U H $ P ANS A1,FDBDBR,A6 RELEASE BUFFER U ^ PDMT400 EQU * U " P LDR A1,A6 FDB ADDR DATA FILE U P LD A2,ECBCW+2,A9 U P ANK A2,/FF U P LD A3,ECBCW,A9 LOG REC NR
0x11f380…11f514 (0, 364) Dummy {f00=0x0107, f01=0x0190, f02=» RF(E) DMT460 SEQ WRITE U P LDK A4,QRD V P CWR A7,A4 V 4 P RF(E) DMT420 RAND DEL V F P LDK A4,QRDD V d P CWR A7,A4 V x ( P RF(E) DMT420 DELAYED RANDEOM DELETE V P IFT INDXAC=1 V P LDK A4,QDEL V P CWR A7,A4 V P RF(E) DMT420 INDEXED
0x11f514…11f6a8 Dummy {f00=0x0107, f01=0x0190, f02=»ET GET CRN BUFFER V P LDR A10,A2 BUFFER ADDR W P IFT INDXAC=1 =2 START W : P LDK A3,QIRW W Z P CWR A7,A3 W n " P RF(E) DMT410 INDEXED REWRITE W P XIF =2 END W P CM CRNCIF,A2 W P* CLEAR INDEX CRN W P CM CRNCIF+2,A2 W PDM
0x11f6a8…11f83c Dummy {f00=0x0107, f01=0x018e, f02=»NCDF,A10 CRN FIL E CODE W P IFT INDXAC=1 X P LDK A4,QINS X 6 P CWR A7,A4 X J P RF(E) DMT460 INDEXED INSERT X P XIF X PDMT420 EQU * X P LDK A4,QSR X P CWR A7,A4 X P RF(E) DMT450 SEQ READ X P LDK A4,QRR X P CWR A7,A4 X
0x11f83c…11f9d0 Dummy {f00=0x0107, f01=0x018e, f02=» P* Y P* RELEASE EA Y P* Y $ P CF A14,EARELB REL EA Y . P RF DMTAEX Y L PDMT450 EQU * Y ^ P LC A4,DWTST,A1 DWTSTATUS Y r P ANK A4,EABIT EA-BIT Y & P RF(NZ) DMTAEX EA=1. NO EA WANTED Y P* Y " P* CHECK IF EA IS SET ALREADY Y
0x11f9d0…11fb64 Dummy {f00=0x0107, f01=0x0190, f02=» P CF A14,EASETB Z P RF DMTAEX Z PDMT460 EQU * Z , P* Z @ P* UPDATE LRN Z J P* Z ` P SC A2,FDBLRN,A1 Z j P ST A3,FDBLRN+1,A1 Z P IFT INDXAC=1 Z P LDK A4,QINS Z P CWR A7,A4 Z " P ABL(E) DMINS2 INDEXED INSERT Z P XIF Z
0x11fb64…11fcf8 Dummy {f00=0x0107, f01=0x0190, f02=»3F00 Z ( P RF(NZ) DMTERX NO RELEASE OF BUFFER [ PDMTEX1 LD A3,ECBBA,A8 [ 8 P SUK A3,8 [ V PDMTEX2 EQU * [ h ( P CF A14,DMTRBU RELEASE BUFFER AT A3 [ | PDMTERX EQU * [ P INH [ P* A1 = RET CODE [ P* A6 = DWT ADDR [ P CF A15,TEND
0x11fcf8…11fe8c Dummy {f00=0x0107, f01=0x0190, f02=»RANDOM READ [ 2 P********************************************* " P LD A9,DWTECB,A1 USER ECB ADDR J P IFT MMUPAG=0 p P LD A8,ECBCW,A9 ADDR OF KEY P XIF P IFT INDXAC=1 P IFT MMUPAG=1 P LDR A8,A1 FDB ADDR " P ADKL A8,F
0x11fe8c…120020 Dummy {f00=0x0107, f01=0x018e, f02=» LDR A13,A1 P ADKL A13,FDBECB ECB ADDR ] $ P CF A14,FNDKEY GET INDEX RECORD ] 6 ( PDMR006 EQU * FROM INDEXED READ NEXT ] ^ P LD A9,DWTECB,A1 ] P LDR A6,A1 FDB ADR ] P LDKL A8,FDBECB ] P ADR A8,A6 ECB ADDRESS ] P LDR A2,A2 RETURN CODE
0x120020…1201b4 (0, 365) Dummy {f00=0x0107, f01=0x018e, f02=» ] " P LD A2,FDBRRO,A1 RECORD OFFSET ^ P ADK A2,10 BUFFER HEADER ^ . P ADR A2,A3 REC ADDR ^ N P LD A4,FDBRLE,A1 REC LENGTH ^ j P SUK A4,6 KEY LENGTH ^ P ADR A2,A4 ^ " P CC A4,2,A2 DUPLICATE KEY CHAR ^ $ P RF(NE) DMR020 NEXT KEY NOT SAME ^
0x1201b4…120348 Dummy {f00=0x0107, f01=0x0190, f02=» ^ P LDK A5,0 _ P LC A5,3,A2 _ P SC A5,ECBCW+3,A8 _ . P LC A5,4,A2 _ H P ECR A5,A5 _ P LC A5,5,A2 _ n P ST A5,ECBCW,A8 _ P* _ P* RELEASE BLOCK BUFFER _ P* _ P CF A14,DMTRBU _ P EJECT _ P* _ 0 P* PERFORM
0x120348…1204dc Dummy {f00=0x0107, f01=0x018e, f02=» BIT _ | P SLL A2,1 ` " P LDK A7,/A RANDOM READ NO WAIT ` P ORR A7,A2 EA BIT ` D P* ` ^ P* MOVE USER ECB ` h P* ` P LDR A1,A9 FROM ECB ADDR ` P LDR A3,A8 TO ECB ADDR ` P LDK A2,6 NO OF CHAR ` P CF A14,DMTWM MOVE ECB ` P LDR
0x1204dc…120670 Dummy {f00=0x0107, f01=0x0190, f02=» P DATA 3 EXIT a PDMTAR4 EQU * a P* a , P* SET UP A14 STACK a 6 P* a R P CF A15,GETA14 a P LDR A6,A1 a r P LDKL A8,FDBECB a P ADR A8,A6 RR ECB a P LD A9,DWTECB,A6 USER ECB a P LD A1,ECBRC,A8 a & P ORS A1,ECBRC,A9 RET COD
0x120670…120804 Dummy {f00=0x0107, f01=0x0190, f02=»LE a x P* b ( P LD A1,FDBADF,A6 FDB ADDR DATA FILEP b & P CF A14,CRNGET GET CRN BUFFER ADDR b @ P LDR A10,A2 CRN BUFFER ADDR b j " P LDR A1,A6 FDB ADDR INDEX FILE b ( P CF A14,GTLGRN GET INDE X LOG REC NO b P SC A2,CRNCIF+1,A10 b & P ST A3,CRNCI
0x120804…120998 Dummy {f00=0x0107, f01=0x0190, f02=»URN CODEXS b P* c $ P LD A2,ECBEL,A8 EFFECTIVE LENGTH c P ST A2,ECBEL,A9 c D P LDK A1,0 RETURN CODE c P ABL DMTERX TENDIO c z P EJECT c " PDMIRN EQU * INDEXED READ NEXT c 2 P********************************************* c P LDR A1,A6
0x120998…120b2c Dummy {f00=0x0107, f01=0x0190, f02=»UFFADR c P ADK A2,10 RECORD ADDR d ( P AD A2,FDBRLE,A1 ADDR OF STATUS CHAR d , P LDK A5,/FF USED MARK d X P CCR A5,A2 STATUS d v P RF(E) DMI120 USED d P LD A4,FDBMRO,A1 d & P ST A4,FDBRRO,A1 LAST REC IN SECT d P* d P* CHECK IF END O
0x120b2c…120cc0 Dummy {f00=0x0107, f01=0x0190, f02=» RF(G) DMI105 EOF d P CW A3,FDBLRN+1,A1 e P RF(L) DMI106 NOT EOF e 4 PDMI105 LDR A3,A9 e R P RF DMI030 EOF e j PDMI106 LDR A3,A9 RESTORE e P RF DMI010 NEXT REC e PDMI120 EQU * e P* INDEX RECORD IS FOUND e P* e P LDK A2,0
0x120cc0…120e54 (0, 366) Dummy {f00=0x0107, f01=0x0190, f02=»DMI100 RECORD FOUND e P LDR A6,A1 FDB ADDR f & PDMI030 LDKL A1,/4000 KEY NOT FOUND f 8 PDMI035 EQU * f b P LDR A3,A3 BUFFER ADDR f v P ABL(Z) DMTERX NO BUFFER f P ABL DMTERR ERROR AND BUFFER f P EJECT f P* f & PDMINS2 EQU * INDEXED INS
0x120e54…120fe8 Dummy {f00=0x0107, f01=0x0190, f02=»FSTA f " P CF A14,DMTRBU RELEASE BUFFER g PDMXDEL EQU * INDEXED DELETE g 2 6 P************************************************* g V P LDR A11,A7 ORDER CODE g P LDR A12,A8 PHYS ECB ADDR g P LDK A5,0 g . P SC A5,FDBDBR,A1 ZEROE INDEX FILE COUN
0x120fe8…12117c Dummy {f00=0x0107, f01=0x0190, f02=» A6,A10 g P ADR A6,A5 h ( P LD A1,FDBAI1,A6 FDB ADDR INDEX FILE h " P RB(Z) DXI020 NO INDEX h N P* h l ( P* GET FILE CODE FOR THIS FDB ADDR h v P* h P LD* A6,SCTCDT h PDXI030 SUK A6,4 h P LD A7,SCTCDT h P ADR A7,A6 h P CW A1
0x12117c…121310 Dummy {f00=0x0107, f01=0x0190, f02=»CBFC,A8 INDEX FILE h P LDR A6,A11 i P SUK A6,QINS i . P RF(E) DXI080 INDEXED DELETE i B P* i f $ P* GET ADDRESSS OF DATA RECORD i p P* i P LD A6,ECBBA,A12 SECTOR ADDR i P ADK A6,2 CYLID i $ P AD A6,FDBRRO,A10 ADDR DATA REC i P A
0x121310…1214a4 Dummy {f00=0x0107, f01=0x0190, f02=» ADDR i v $ P LD A6,ECBBA,A9 USER BUFFER ADDR j P AD A6,FDBKA,A1 KEY OFFSET j 6 P IFT MMUPAG=1 j X P LDR A6,A1 j n " P ADKL A6,FDBKEY ADDR KEY AREA j P XIF j P IFT INDXAC=1 j $ P LDK A7,/1F INSERT INDEX NOWAIT j PDXI090 EQU * j P* j
0x1214a4…121638 Dummy {f00=0x0107, f01=0x0190, f02=» DATA DMTAR5 j P LD A7,ECBRC,A8 k P RF(N) DMTAR5 REQ ERR k , P RB DXI020 NEXT INDEX DIRECT k J PDXI100 LKM k n P DATA 3 EXIT k PDMTAR5 EQU * k " P LD A6,FDBADF,A1 FDB DATA FILE k P LD A9,DWTECB,A6 USER ECB k P LDKL A8,FDBECB k P
0x121638…1217cc Dummy {f00=0x0107, f01=0x0190, f02=»A9 RC TO USER k P LDK A1,0 RETURN CODE l & P LC A2,FDBDBR,A6 NR OF READY INDEX l 4 P ADK A2,1 COUNT INDEXES l ^ $ P CC A2,FDBNIF,A6 TOT NR OF INDEX l ~ P RF(NE) DXI200 l P LD A7,DWTOR,A6 l P ANK A7,/3F ORDER CODE l P SUK A7,QINS INDEXED I
0x1217cc…121960 Dummy {f00=0x0107, f01=0x0190, f02=» P ADKL A10,2 CYLID m P AD A10,FDBRRO,A6 m & P AD A10,FDBRLE,A6 ADDR STATUS CHAR m 8 P LDK A1,0 STATUS FREE m b . P ABL DMT350 CONTINUE AS FOR RANDOM DELETE m PDXI200 EQU * m P SC A2,FDBDBR,A6 m P LKM m " P DATA 3 EXIT. MORE INDEX LEFT
0x121960…121af4 (0, 367) Dummy {f00=0x0108, f01=0x0190, f02=»*************** m r " P LD A9,DWTECB,A1 USER ECB ADDR n $ P LD A8,ECBBA,A9 BUFFER ADDR USER n > P LDR A12,A8 n f $ P LD A11,FDBRLE,A1 RECORD LENGTH n z P SUKL A11,6 KEY LENGTH n P LDR A13,A14 n 0 P ADKL A13,2 ECB ADDR TO RECORD BUFFER AREASS n $ P
0x121af4…121c88 Dummy {f00=0x0108, f01=0x0190, f02=»OR FOUND n z P LDR A13,A3 BUFFER ADDR o " P LD A4,FDBADF,A6 FDB DATA FILE o 0 P LD A5,DWTECB,A4 USER ECB o V P LD A1,DWTOR,A6 o x P ANK A1,/3F o P SUK A1,QDELX o & P ABL(E) DEL000 DELETE INDEX RECORD o P* o ( P* SET RC BIT 6 TO USER I
0x121c88…121e1c Dummy {f00=0x0108, f01=0x018e, f02=»EY NOT ALLOWED IN FILE) o P* p P LC A4,ECBFC,A5 FILE CODE p * P CC A4,FDBECB+1,A6 p L * P RF(NE) INS049 NOT REQUESTED FILE CODE p f P LDKL A4,/200 BIT 6 p " P ORS A4,ECBRC,A5 NEXT KEY SAME p PINS049 EQU * p P IFT INSLAS=1 p P* p
0x121e1c…121fb0 Dummy {f00=0x0108, f01=0x018e, f02=» P CF A14,RDNXTR GET NEXT REC q P RF INS100 OK q ( P ABL DEL045 ERROR q > PINS100 EQU * q X P ADR A2,A3 q l P ADK A2,10 REC ADDR q ~ P AD A2,FDBRLE,A1 ADDR STATUS q P LDK A5,/FF q P CCR A5,A2 q P RF(E) INS150 USED q P LD A5,FDB
0x121fb0…122144 Dummy {f00=0x0108, f01=0x0190, f02=» P CWR A5,A11 KEY LENGTH r $ P RB(E) INS080 NEXT SAME GET NEXT r " P* r J P* UPDATE LAST SAME RECORD r T P* r x P SC A11,-4,A2 NEXT SAME r P LD A7,FDBRRO,A1 r P CW A7,FDBMRO,A1 r & P RF(NE) INS160 SECT WRITTEN LATER r P* r P*
0x122144…1222d8 Dummy {f00=0x0108, f01=0x018e, f02=» P ABL(NZ) DMTERR s P* s P* GET NEXT RECORD s & P* s B PINS160 EQU * s L " P LDR A7,A5 NR OF SAME IN NEXT s ` P LDR A1,A6 FDB s P CF A14,RDNXTR GET NEXT RC s P RF INS170 OK s P ABL DEL045 ERROR s PINS170 EQU * s P LDR A
0x1222d8…12246c Dummy {f00=0x0108, f01=0x0190, f02=» s P* t ( P* CREATE AN INDE XRECORD IN AREA 1 t P* t > P LDR A1,A12 FROM ADDR t H P* t f P LDR A3,A14 t p P ADK A3,2 TO ADDR t P LDR A2,A11 KEY LENGTH t P CF A14,DMTBM MOVE KEY t P LDK A2,0 t P SCR A2,A3 DUMMY t P ADK
0x12246c…122600 Dummy {f00=0x0108, f01=0x0190, f02=»R t t P LD A2,ECBCW+2,A5 u ( P LD A3,ECBCW,A5 REC NR DATA FILE REC u $ P SCR A2,A7 u P P ADK A7,2 u b P SCR A3,A7 u t P ECR A3,A3 u P SUK A7,1 u P SCR A3,A7 LOG REC NR u P ADK A7,2 u P LDK A1,/FF USED u P SCR A1,A7 STATUS CHAR
0x122600…122794 (0, 368) Dummy {f00=0x0108, f01=0x0190, f02=» u P ST A2,-28,A14 v P ST A3,-26,A14 v P EJECT v 4 P* v B : P* BELOW IS A NEW INDEX RECORD INSERTED AND FOLLOWING v L $ P* USED RECORDS ROLLED FORWARD v $ P* A6,A11,A13 IS USED AT ENTRY v $ P ADKL A11,7 RECORD LENGTH TOTAL v P* v
0x122794…122928 Dummy {f00=0x0108, f01=0x0190, f02=»A12 = AREA INDEX 0=BUFAR1,1=BUFAR2 v $ P* A13 = BUFFER ADDRESS SECTOR w , P* w T PINS190 EQU * w ^ P LDKL A12,1 BUFADR2 w r PINS200 EQU * w P LDK A1,0 w P LDR A12,A12 w P RF(Z) INS210 BUFAR1 w ( P LDKL A1,RECBFZ RECORD BUUFFER SIZE
0x122928…122abc Dummy {f00=0x0108, f01=0x0190, f02=» LAST RECORD w P* x P LDR A1,A13 x P ADK A1,10 BUFSTA+2 x 2 . P AD A1,FDBMRO,A6 ADDR OF LAST REC IN SECT x N P LDR A2,A11 x P LDR A3,A10 x " P CF A14,DMTBM SAVE LAST RECORD x P* MOVE REST OF SECTOR x P* x P LDR A1,A13 x
0x122abc…122c50 Dummy {f00=0x0108, f01=0x0190, f02=» x t P LDR A3,A1 y P ADR A3,A11 TO ADDR y P CF A14,DMTBMR MOVE y 6 P* INSERT NEW RECORD y R P* y p P LDKL A1,RECBFZ BUFFER SIZE y z P SLL A1,1 BYTE NO y P LDR A12,A12 y P RF(Z) INS250 BUFAR1 y " P LDK A1,0 SELECT OTHER BUFFER y
0x122c50…122de4 Dummy {f00=0x0108, f01=0x0190, f02=» P CF A14,DMTBM MOVE z P* WRITE BUFFER z P* z 6 P LDR A8,A14 USE STACK AS ECB z @ P SUKL A8,24 z d $ P LC A2,FDBEXT+1,A6 VOL DEV CODE z x P ANK A2,/FF z P STR A2,A8 z P LDR A2,A13 z P ADK A2,8 BUFSTA z P ST A2,ECBBA,A8 SECT
0x122de4…122f78 Dummy {f00=0x0108, f01=0x0190, f02=» z v P LDK A7,/95 WRITE , WAIT { P LKM { ( P DATA 1 { 4 P LDR A1,A6 FDB INDEX { D P CF A14,DMTIOZ IO CHECK { ` P LDR A1,A1 { P ABL(NZ) DMTERR { P* { 6 P* IF SPILLED RECORD IS FREE, OPERATION IS READY { P* { P LDR A2,A10 RECO
0x122f78…12310c Dummy {f00=0x0108, f01=0x0190, f02=»T IN SECT { v P CCR A1,A2 | P RF(Z) INS400 FREE RECORD | $ P* | F P* GET NEXT SECTOR | P P* | l P LDR A1,A6 FDB ADDR | v P LDR A3,A13 BUFFER ADDR | 2 P CF A14,RDNXTR GET FIRST RECORD IN NEXT SECTOR | P RF INS260 OK | P LDR A1,A5
0x12310c…1232a0 Dummy {f00=0x0108, f01=0x0190, f02=»D BUFFERS | v P SUR A12,A12 } P RB INS200 } & P EJECT } 8 PINS400 EQU * } F P* } Z ( P* UPDATE LRN IF EOF IS ENCOUNTERED } d P* } P LDR A1,A6 FDB INDEX } P CF A14,GTLGRN } P CC A2,FDBLRN,A1 } P RF(L) INS430 NO EOF } P RF(G)
0x1232a0…123434 (0, 369) Dummy {f00=0x0108, f01=0x0190, f02=»T A3,FDBLRN+1,A6 } P LDKL A1,/1000 EOF ~ P ORS A1,ECBRC,A9 EOF TO USER ~ 4 PINS430 EQU * ~ X P* ~ l 0 P* UPDATE CRN-LINK FOR MOVED INDEX RECORDS ~ v P* ~ P LDKL A12,1 ADD ON E TO CRN ~ P LDR A8,A2 ~ P LDR A9,A3 LAST REC NR MOVED ~
0x123434…1235c8 Dummy {f00=0x0108, f01=0x0190, f02=»TE CRN IF SAME FILE CODE ~ P* P LD A1,FDBADF,A5 FDB DATA F * " P CF A14,CRNGET GET CRN BUFFER N & P LD A9,DWTECB,A1 USER ECB ADDR =4 t " P LC A4,ECBFC,A9 USER FILE CODE P CC A4,FDBECB+1,A5 P RF(NE) INS440 OTHRER FILE P ST A10,
0x1235c8…12375c Dummy {f00=0x0108, f01=0x0190, f02=»DK A1,0 OK RET CODE P LDR A3,A13 BUFFER ADDR P ABL DMTEX2 < P EJECT P * PDEL000 EQU * DELETE INDEX RECORD CONT ^ P LDR A12,A5 USER ECB ADDR P LDR A2,A2 PDEL010 EQU * " P ABL(NZ) DMI030 KEY NOT FOUND P* P*
0x12375c…1238f0 Dummy {f00=0x0108, f01=0x0190, f02=»7 BUFSTA+2-3=ADDR REC NR P LCR A2,A1 P CC A2,ECBCW+3,A12 REC NR 2 P RF(NE) DEL030 WRONG RECORD T P LC A2,1,A1 x P ECR A2,A2 P LC A2,2,A1 REC NR P CW A2,ECBCW,A12 P RF(E) DEL200 RECORD FOUND PDEL030 EQU * P*
0x1238f0…123a84 Dummy {f00=0x0108, f01=0x018e, f02=»DB INDEX PDEL040 EQU * ( P CF A14,RDNXTR GET NEXT INDEX RECORD $ P RF DEL050 OK P PDEL045 LDR A1,A5 ERROR CODE f P ABL DMI035 ERROR PDEL050 EQU * P* P* CHECK IF RECORD IS USED P* P LDR A13,A3 NEW BUFFER A
0x123a84…123c18 Dummy {f00=0x0108, f01=0x0190, f02=» P RB(E) DEL020 USED P LD A4,FDBMRO,A1 ( P ST A4,FDBRRO,A1 LAST REC IN SECTOR 6 P RB DEL040 NEXT REC b P EJECT ~ PDEL200 EQU * RECORD FOUND P* & P* SET RC BIT 6 IF NEXT KEY SAME P* $ P LC A2,ECBFC,A12 USER FILE C
0x123c18…123dac Dummy {f00=0x0108, f01=0x0190, f02=»A6 * P RF(NE) DEL220 NOT REQUESTED FILE CODE P CWR A11,A7 KEY LENGTH : $ P RF(NE) DEL220 NEXT KEY NOT SAME X P LDKL A4,/200 $ P ORS A4,ECBRC,A12 NEXT KEY SAME PDEL220 EQU * P* $ P* MOVE UP RECORDS OVER DELETED P*
0x123dac…123f40 Dummy {f00=0x0108, f01=0x0190, f02=» P ADR A1,A11 FROM ADDR P LD A2,FDBMRO,A6 & P SU A2,FDBRRO,A6 NR OF CHAR > P CF A14,DMTBM MOVE b P* | P* SET LAST RECORD FREE P* P ADR A3,A11 P SUK A3,1 P LDK A1,0 P SCR A1,A3 STATUS FREE P*
0x123f40…1240d4 (0, 370) Dummy {f00=0x0108, f01=0x018e, f02=» " P LDR A11,A3 FIRST REC NR MOVED P LD A12,FDBRRO,A6 OLD OFFSET * P LD A4,FDBMRO,A6 N P ST A4,FDBRRO,A6 MAX OFFSET f $ P CF A14,GTLGRN LAST REC NR MOVED P LDR A8,A2 P LDR A9,A3 REC NR " P ST A12,FDBRRO,A6 RESET OFFSET P LDK
0x1240d4…124268 Dummy {f00=0x0108, f01=0x0190, f02=» ~ $ P RF(NZ) DEL290 NOT FIRST RECORD P LDR A1,A5 FDB 0 P CF A14,GTLGRN GET REC NR F P LDR A1,A2 h P LDR A2,A3 z P LDK A6,0 P LDK A7,1 $ P CF A14,DSUMOD A1,A2 = A1,A2 - 1 P RF(Z) DEL600 FILE START P LDR A6,A5 FDB A
0x124268…1243fc Dummy {f00=0x0108, f01=0x0190, f02=»A14 P ADKL A8,2 ECB ADDR P LDR A12,A12 ( $ P RF(Z) DEL245 BUFFER NOT CHANGED < P* d P* WRITE SECTOR n P* P LDK A7,/95 WRITE WAIT P LKM P DATA 1 P LDR A1,A5 FDB P CF A14,DMTIOZ IO CHECK P LDR A1,
0x1243fc…124590 Dummy {f00=0x0108, f01=0x018e, f02=»EASE BUFFER ~ P* P* GET PREVIOUS SECTOR P* > P LDR A1,A5 FDB ADDR H P LDK A3,0 d P CF A14,RDNXTR GET SECTOR v P RF DEL250 OK P LDR A6,A1 FDB ADDR P RB DEL045 PDEL250 EQU * P LDR A5,A1 FDB P L
0x124590…124724 Dummy {f00=0x0108, f01=0x018e, f02=» PDEL300 EQU * * P ST A4,FDBRRO,A5 PREVIOS RECORD OFFSET P ADK A4,10 BUFSTA+2 F P ADR A4,A13 RECORD ADDR b & P AD A4,FDBRLE,A5 STATUS CHAR ADDR P LDK A2,/FF P CCR A2,A4 P RB(NE) DEL240 FREE . P LC A2,17,A14 NR OF SAME I
0x124724…1248b8 Dummy {f00=0x0108, f01=0x0190, f02=» v PDEL600 EQU * P LDR A12,A12 $ P RF(Z) DEL900 BUFFER NOT CHANGED 0 P* X P* WRITE SECTOR b P* z PDEL700 EQU * P LDR A8,A14 P ADKL A8,2 ECB ADDR P LDK A7,/95 WRITE WAIT P LKM P DATA 1 P LDR A
0x1248b8…124a4c Dummy {f00=0x0108, f01=0x401c, f02=» XIF P END @ LDR A12,A12 $ P RF(Z) DEL900 BUFFER NOT CHANGED 0 P* X P* WRITE SECTOR b P* z PDEL700 EQU * P LDR A8,A14 P ADKL A8,2 ECB ADDR P LDK A7,/95 WRITE WAIT P LKM P DATA 1 P LDR A
0x124a4c…124be0 Dummy {f00=0x0108, f01=0x2008, f02=» + t P INH , P CF A15,TENDIO , P ENB , 2 P* , > P* EXIT , H P* , X P LKM , b P DATA 3 , n P* , ~ P END , @ , RD ADDR A2:=EA BIT + & P C1R A2,A2 ONE COMPLEMENT BIT MASK + P ANRS A2,A3 SET OFF EA BIT + P* +
0x124be0…124d74 (0, 371) Dummy {f00=0x0109, f01=0x0000, f02=»
[…0x7…]
0x125880…125a14 (0, 372) Opaque[0x194]
0x125a14…125ba8 # DirEnt {nam=»DMINIT«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x1e88, f03=0x0000}
0x125a14…125ba8 IdxSect {
0x125a14…125ba8 f00 = 0x00f4 // 0x125a14 @0x0
0x125a14…125ba8 f01 = 0x0004 // 0x125a16 @0x2
0x125a14…125ba8 gno = [ // 0x125a18 @0x4
0x125a14…125ba8 [0x00]: C0x00f4.0x1.0
0x125a14…125ba8 [0x01]: C0x00f7.0x1.0
0x125a14…125ba8 ]
0x125a14…125ba8 }
0x125ba8…125d3c Dummy {f00=0x00f4, f01=0x0190, f02=» 2 P IDENT DMINIT REL 9.2 79-11-16 870105040920 P : P* B 8 P**************************************************** L P* $ P* PHILIPS TERMINAL SYSTEM PTS P* 0 P* DMINIT = DATA MANAGEMENT INITIALIZATION P* P*
0x125d3c…125ed0 Dummy {f00=0x00f4, f01=0x018e, f02=»FDB:S IN THE FDB AREA z > P* CLEAR THE USE BIT AND THE BUFFER HEADER IN DM BUFFERS 0 P* CLEAR USE BIT AND QUEUE ANCHOR IN TASBLK ` , P* CLEAR DM FILE CODE ENTRIES IN CD:TAB P* , P* DMINIT IS CALLED AS A PFINIT ROUTINE P* " P
0x125ed0…126064 Dummy {f00=0x00f4, f01=0x0190, f02=» P EXTRN FDBSTA P EXTRN FDBEND P EXTRN CURBUF 0 P EXTRN BUFDMI F P EXTRN BUFSNR P EXTRN BUFOR r P EXTRN TASBLK P EXTRN TASQUE P EXTRN CRNQUE,CRNEND P EXTRN CRBUFL P EJECT P* P* P*
0x126064…1261f8 Dummy {f00=0x00f4, f01=0x0190, f02=» P* DIV W. 2 FOR 16 K LIMIT P* ( P LDR A5,A4 2 P SRL A5,1 D P LDR A1,A6 V P SRL A1,1 h P CWR A5,A1 z " P RF(G) DMIN40 END OF FDB AREA P STR A4,A3 CHAIN P LDR A3,A4 P RB DMIN30 PDMIN40 EQU * P SUR A
0x1261f8…12638c Dummy {f00=0x00f4, f01=0x0190, f02=»ALIZATIONS IF POWER FAIL RESTART P* ( P LD A1,INIFLG 2 P RF(Z) DMINEX H P LDKL A2,QFDBFL FDB LENGTH ^ P* $ P* CHAIN FDB:S IN THE FDB AREA P* P LDKL A3,FDBSTA P LDKL A6,FDBEND P CF A15,DMIN30 P*
0x12638c…126520 Dummy {f00=0x00f4, f01=0x0190, f02=» P CF A15,DMIN30 P* < P* CLEAR USE BIT AND BUFFER HEADER WORDS IN DM BUFFERS $ P* d P LDKL A2,/FFFE n P LD A3,CURBUF PDMIN50 LDR* A3,A3 P ANRS A2,A3 CLEAR USE BIT P CM BUFDMI,A3 P CM BUFSNR,A3 P CM BU
0x126520…1266b4 (0, 373) Dummy {f00=0x00f7, f01=0x405a, f02=»LK P CM TASQUE P* PDMINEX EQU * & P RTN A15 : P END J@ V
0x1266b4…126848 Dummy {f00=0x00f7, 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
0x126848…1269dc Dummy {f00=0x00f7, f01=0x0190, f02=» J F IDENT DMTASS REL 9.2 79-11-16 870105040920 ( $ DMTASSK VTLRN VLVBA VLVRL SECTLEA R VLVBA ~ VLVRL VTLRN SECTLEA TASECB ECBBA ECBRC , (
0x1269dc…126b70 Dummy {f00=0x00f7, f01=0x018e, f02=» : t TASMXAE TASASB & VOLCHE 8 , ( 7H@ A A " P "" J TASCVO z CLRBUF * & Q H P @ TASVOL ECBFC ECBRL ECBCW
0x126b70…126d04 Dummy {f00=0x00f7, f01=0x0190, f02=» TASVLEP , ( L " TOP A " L TASVRL F , ( B A $ L C & @ $ X TASFIL , ( " A $Q @ A @ DMTRBU , ( ( B * D
0x126d04…126e98 Dummy {f00=0x00f7, f01=0x018e, f02=» j , ( G & @ (T , ( a A " 0" : , ( U _ L !SSP !LL j TASCXOS , ( W L @ , A ,V TASSEXR TASXLBP , (
0x126e98…12702c Dummy {f00=0x00f7, f01=0x0190, f02=» FDBVTO , ( H 4 2% P R 6 X T R FDBMIA# J , ( 8 @ "T R :T @ ( , ( 6 4 2% P QFDBFL , ( = 2 < P % DWTST
0x12702c…1271c0 Dummy {f00=0x00f7, f01=0x0190, f02=» E 3 P S F P S FDBRLE " FDBBLF 4 FDBNIF F * & F P S H P S J P % S X FDBKA FDBMEC * & L P & S N @ " S 8 DWTMEC , ( @ P S R B
0x1271c0…127354 (0, 374) Opaque[0x194]
0x127354…1274e8 # DirEnt {nam=»DMTASS«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x1ea0, f03=0x0000}
0x127354…1274e8 IdxSect {
0x127354…1274e8 f00 = 0x00f5 // 0x127354 @0x0
0x127354…1274e8 f01 = 0x0010 // 0x127356 @0x2
0x127354…1274e8 gno = [ // 0x127358 @0x4
0x127354…1274e8 [0x00]: C0x00f5.0x0.0
0x127354…1274e8 [0x01]: C0x00f5.0x2.0
0x127354…1274e8 [0x02]: C0x00f5.0x3.0
0x127354…1274e8 [0x03]: C0x00f6.0x0.0
0x127354…1274e8 [0x04]: C0x00f6.0x1.0
0x127354…1274e8 [0x05]: C0x00f6.0x2.0
0x127354…1274e8 [0x06]: C0x00f6.0x3.0
0x127354…1274e8 [0x07]: C0x00f7.0x0.0
0x127354…1274e8 ]
0x127354…1274e8 }
0x1274e8…12767c Dummy {f00=0x00f5, f01=0x0190, f02=» 2 P IDENT DMTASS REL 9.2 79-11-16 870105040920 P : P* =3 PR 5141 B P* = 79-04-06 X P* =2 WAIT AT VTOC READ n P* REL 9.1 79-04-06 P* =1, PR 3413 P* REL 9.1 78-10-25 P P P* P* 8 P******
0x12767c…127810 Dummy {f00=0x00f5, f01=0x0190, f02=»LE CODE DISC I/O HANDLING z P* " P* , P* 6 P* @ P* J P* T 8 P**************************************************** ^ P* * P* THIS MODULE IS ACTIVATED FROM TASS P* B P* INPUT A2 = TID TASK IDENT OF DMTASK AT
0x127810…1279a4 Dummy {f00=0x00f5, f01=0x0190, f02=» ASSIGNED CAN X L P* RECIDE ARE DEFINED. ON THESE VOLUMES THE VTOC:S ARE SEARCHED TO FIND D P* ALL EXTENTS FOR THE FILE TO BE ASSIGNED. FOR EACH EXTENT ITS f > P* FILE-SECTION-NO, FILE-EXTENT-NO,FILE-EXTENT-LENGTH AND . P* FILE-EXTENT-BASE ARE
0x1279a4…127b38 Dummy {f00=0x00f5, f01=0x0190, f02=»-LENGTH, BLOCKING-FACTOR AND VTOC-REC-NO r P* ARE SAVED TOO. 0 L P* WHEN THE FIRST EXTENT HAS BEEN FOUND EXISTING FDB:S CAN BE SEARCHED J L P* TO CHECK IF THE FILE TO BE ASSIGNED HAS PREVIOUSLY BEEN ASSIGNED TO L P* ANOTHER FILE CODE. IF SO T
0x127b38…127ccc Dummy {f00=0x00f5, f01=0x0190, f02=»EN A NEW FDB MUST BE INITIALIZED AND THE REST OF THE 4 P* VOLUMES ARE CHECKED TO FIND ALL FILE EXTENTS < P* t 2 P* FOR INDEX ASIGN THE PRODGRAM IS RUN TWICE. ~ 4 P* DURING THE FIRST LOOP A MASTERINDEX IS READ. . P* FC 13 IN TTAB FOR DMTASK
0x127ccc…127e60 Dummy {f00=0x00f5, f01=0x018e, f02=»MTASS P ENTRY VTLRN P ENTRY VLVBA " P ENTRY VLVRL 6 P ENTRY SECTLE J P EJECT ` P* n P***************** x P* EXTERNALS * P***************** P* P EXTRN QTJOB P EXTRN FNDTID,TTB:TD P*
0x127e60…127ff4 (0, 375) Dummy {f00=0x00f5, f01=0x0190, f02=» P EXTRN ECBRL P EXTRN ECBRC P EXTRN ECBCW , P* @ P EXTRN TIODM J P EXTRN DMTGBU ^ P EXTRN DMTRBU t P EXTRN CLRBUF P EXTRN BUFSTA P EXTRN BUFSNR P EXTRN BUFDMI P* P EXTRN QFDBFL P EXTRN
0x127ff4…128188 Dummy {f00=0x00f5, f01=0x0190, f02=»BAS P EXTRN FDBRLE P EXTRN FDBBLF " P EXTRN FDBVTO 8 P EXTRN FDBLRN N P EXTRN FDBNIF,FDBKA d & P EXTRN FDBMIA,FDBAI1,FDBADF,FDBCRL . P EXTRN FDBSNR,FDBMRN,GTLGRN,EXTELE,FDBCEX P EXTRN FDBDBR,FDBMRO . P EXTRN FDBMEC MM
0x128188…12831c Dummy {f00=0x00f5, f01=0x0190, f02=» P EXTRN TASCXO P EXTRN TASSEX P EXTRN TASXLB 0 P EXTRN TASFDB F P EXTRN TASVRL P EXTRN TASVLE r P EXTRN TASVRN P EXTRN TASECB P EXTRN TASFIL,TASTID,TASMXA P EXTRN TASSPW,TASFDD,TASTBE P EXTRN TASCA
0x12831c…1284b0 Dummy {f00=0x00f5, f01=0x018e, f02=» PX:B EQU 0 4 PINDXAC EQU 00000 INDEX ACCESS FUNCTIONS WHEN = 1 P* N . P* A PROGRAM VERSION USING TOSS MMU PAGING X * P* IS OBTAINED BY SETTING MMUPAG EQU 1. P* PMMUPAG EQU 1 P* P EJECT P* P************
0x1284b0…128644 Dummy {f00=0x00f5, f01=0x0190, f02=» PVLVRL EQU 14 PVLVER EQU 34 P* , PVTFSNO EQU 8 6 PVTFXNO EQU 10 J PVTFXLE EQU 14 ` PVTFXBA EQU 18 v PVTLRN EQU 21 PVTRLE EQU 24 PVTBLF EQU 26 PVTFIOR EQU 27 PVTNIF EQU 37 PVTKA EQU 38 P*
0x128644…1287d8 Dummy {f00=0x00f5, f01=0x0190, f02=»RDS P DATA 0,0 STACK PDMTA14 EQU *-2 $ P EJECT : P* H P************** R P* DMTIOC * h P************** ~ P* : P* ENTRY DMTIOC CHECK RETURN CODES AFTER DISC I/O > P* RETURN TO DMTASX WITH A
0x1287d8…12896c Dummy {f00=0x00f5, f01=0x0190, f02=»FF BIT 7 ONLY RETRIES P RF(Z) DMTIOX P ADKL A14,4 4 P ANK A1,/80 H $ P RF(NZ) DMT060 NEW VOLUME LOADED P SUKL A3,BUFSTA , P CM BUFDMI,A3 CLEAR VOL IDENT IN BUFFER P LDK A7,1 P ABL DMTASX DISC I/O ERROR PDMTIOX E
0x12896c…128b00 Dummy {f00=0x00f5, f01=0x0190, f02=»QU * 8 P LDKL A14,DMTA14 INITIALIZE DMTASK A14 STACK POINTER P ST A2,TASTID TASK IDENT H P CM TASMXA MASTER INDEX ADDR h P ANK A2,/2 P RF(Z) DMT010 NOT FLEXTASC P* & P* PERFORM VOLUME CHECK WITH LOCK P* P LD A8,TAS
0x128b00…128c94 (0, 376) Dummy {f00=0x00f5, f01=0x0190, f02=»DR A1,A1 P RF(Z) DMT010 OK P LDK A7,4 VOL UNKNOWN ( P SUR A8,A8 NO BUFFER =3 F P ABL DMTASX f PDMT010 EQU * z P* P LDKL A8,TASECB P* 6 P LD A1,TASCVO OFFSET INTO TASVOL FOR FIRST VOLUME PDMT050 EQU * , P
0x128c94…128e28 Dummy {f00=0x00f5, f01=0x0190, f02=» LDKL A2,SECTLE " P ST A2,ECBRL,A8 SECTOR LENGTH P LDK A2,0 > 0 P ST A2,ECBCW,A8 SECTOR #0 VL (VOLUME LABEL) P P* P* 2 P CF A14,DMTGBU GET A DM BUFFER ADDRESS IN A3 P DATA /5700 NOP. READ ALWAYS P ADKL A3,BUFSTA &
0x128e28…128fbc Dummy {f00=0x00f5, f01=0x0190, f02=»IT =2 P LKM P DATA 1 =2 . P LDKL A14,DMTA14 SET UP A14 STACK POINTER . P CF A14,DMTIOC I/O CHECK ` P LD A2,VLVER,A3 VERSION & P CWK A2,'TO' DTOSS FORMATED DISC? P RF(E) DMT100 YES P LDK A7,8 NO P ABL DMTASX ERRO
0x128fbc…129150 Dummy {f00=0x00f5, f01=0x018e, f02=»3 VTOC BASE . P ST A2,ECBCW,A8 1:ST VTOC SECTOR NO = FSAT & P LD A9,VLVRL,A3 VTOC RECORD LENGTH F P ST A9,TASVRL p P EJECT P* P* SEARCH ALL VTOC:S P* PDMT110 EQU * P LD A6,TASVLE P SUK A6,1 P ST A6
0x129150…1292e4 Dummy {f00=0x00f5, f01=0x018e, f02=» P LD A1,TASCVO P SUK A1,2 & P ABL(N) DMT300 ALL VOLUMES CHECKED 0 P ST A1,TASCVO UPDATE TASCVO Z $ P LDK A7,7 TOO MANY FILE SECTIONS ~ P LD A3,TASFIL " P ABL(NZ) DMTASX NOT DATA FILE P LD A3,ECBBA,A8 P SUKL A3,BUFST
0x1292e4…129478 Dummy {f00=0x00f5, f01=0x0190, f02=» P* ACTIVATE NEXT DM TASK P* * P ADKL A7,'#D' 4 P LKM J P DATA -4 V P DATA DMTASS f P LKM z P DATA 3 EXIT P EJECT P* & P* READ NEXT VTOC SECTOR AND EXIT P* PDMT115 EQU * P LD A3,ECBBA,A
0x129478…12960c Dummy {f00=0x00f5, f01=0x0190, f02=» LD A1,TASVOL,A1 P CF A14,DMTGBU GET BUFFER P DATA /5700 NOP. READ ALWAYS : P ADKL A3,BUFSTA ^ P ST A3,ECBBA,A8 v P ST A2,ECBCW,A8 P LDK A7,/91 WAIT =2 P LKM P DATA 1 =2 P LDKL A14,DMTA14 P CF A14,DMTIOC
0x12960c…1297a0 Dummy {f00=0x00f5, f01=0x0190, f02=» $ P RF(NE) DMT135 NOT MASTER INDEX " P ADKL A11,14 MX FILE NAME ADDR , PDMT135 EQU * R P ADK A3,2 SKIP CYLID f PDMT120 EQU * ( P IM TASVRN INCREMENT VTOC RECORD NO P LDR A4,A3 " P ADR A4,A9 ADDRESS STATUS BYTE P LCR A2,A4
0x1297a0…129934 (0, 377) Dummy {f00=0x00f6, f01=0x0190, f02=»AME MAX 4 WORDS PDMT150 EQU * P LDR* A10,A4 , P CWR* A10,A7 @ P ABL(NE) DMT250 NO MATCH T P SUK A2,1 t . P RF(NP) DMT160 ALL 4 FILE NAME WORDS MATCH P ADK A4,2 P ADK A7,2 P RB DMT150 CHECK NEXT WORD P* ( P
0x129934…129ac8 Dummy {f00=0x00f6, f01=0x0190, f02=»F(E) DMT165 YES P CCK A2,'LL' LIBRARY FILE ? P ABL(NZ) DMT250 NO < P LDK A2,0 FILE EXTENT NUMBER V P RF DMT167 z . PDMT165 LD A2,VTFSNO,A3 FILE SECTION NUMBER P EJECT PDMT167 EQU * P* . P* GET INFO FROM VTOC AND SAV
0x129ac8…129c5c Dummy {f00=0x00f6, f01=0x0190, f02=»1,4 P ST A1,TASCXO P RF(NN) DMT170 <= 4 EXTENTS " P LDK A7,9 F * P ABL DMTASX MORE THAN 4 EXTENTS EXIST X PDMT170 EQU * " P ECR A2,A2 TO LEFT HALF OF A2 4 P LC A2,VTFXNO+1,A4 EXT NO INTO RIGHT HALF OF A2 P ST A2,TASSEX,A1
0x129c5c…129df0 Dummy {f00=0x00f6, f01=0x0190, f02=» P LD A2,VTFXBA,A4 EXTENT BASE P ST A2,TASXLB+2,A1 ( P LD A2,TASSEX,A1 B $ P RF(NZ) DMT250 NOT FIRST EXTENT Z P EJECT P* FIRST FILE EXTENT < P* CHECK IF AN FDB DESCRIBING THE FILE ALREADY EXISTS. P* P LD A12,TASFDB
0x129df0…129f84 Dummy {f00=0x00f6, f01=0x0190, f02=»A12,FDBSTA PDMT200 EQU * P LDR* A5,A12 & P ANK A5,/01 : P RF(Z) DMT210 FREE N P LD A2,FDBEXT,A12 h P CW A2,TASVOL,A6 " P RF(NE) DMT210 NOT SAME VOLUME P LD A2,FDBVTO,A12 P CW A2,TASVRN $ P RF(NE) DMT210 NOT SAME
0x129f84…12a118 Dummy {f00=0x00f6, f01=0x0190, f02=»DB FOUND n PDMT205 EQU * P LDK A7,5 FILE CODE USED $ P ABL DMTASX D P* X $ PDMT210 LDR* A12,A12 GET NEXT FDB b P ANKL A12,/FFFE ( P RB(NE) DMT200 MORE FDB:S TO SEARCH P* 0 P* NO MATCHING FDB EXIST FIND A FREE FDB
0x12a118…12a2ac Dummy {f00=0x00f6, f01=0x0190, f02=» v P ANKL A12,/FFFE & P RB(NE) DMT220 MORE FDB:S TO CHECK P LDK A7,3 J P ABL DMTASX NO FDB AVAILABLE ( P* INITIALIZE FDB ZERO FROM FDB+2 P* PDMT230 EQU * P ST A12,TASFDB P LDR A10,A12 P ADKL A10,QFDBFL
0x12a2ac…12a440 Dummy {f00=0x00f6, f01=0x0190, f02=» RB DMT233 PDMT237 EQU * P LDKL A2,/8000 & P* DEV NOT BUSY < P ST A2,DWTST,A12 T P LDKL A2,TIODM l P ST A2,DWTADR,A12 P LDKL A2,SECTLE P LDR A1,A12 P ADKL A1,FDBECB P ST A2,ECBRL,A1 P LDK A2,/01
0x12a440…12a5d4 (0, 378) Dummy {f00=0x00f6, f01=0x0190, f02=» P LD A2,VTRLE,A4 P ST A2,FDBRLE,A12 P LC A2,VTBLF,A4 6 P SC A2,FDBBLF,A12 N P LC A2,VTNIF,A4 h P SC A2,FDBNIF,A12 P LD A2,VTKA,A4 P ST A2,FDBKA,A12 P LD A2,TASVRN P ST A2,FDBVTO,A12 P* P IFT M
0x12a5d4…12a768 Dummy {f00=0x00f6, f01=0x0190, f02=» ECB IN FDB l P XIF P* P EJECT * P* 8 P* CHECK NEXT VTOC RECORD B P* d PDMT250 EQU * n P* A3 = ADR 1ST REC P* A9 = VTOC REC LGTH P ADR A3,A9 P ADK A3,1 SKIP STATUS BYTE P LDR A2,A3 P SU A2
0x12a768…12a8fc Dummy {f00=0x00f6, f01=0x0190, f02=»* ALL VTOCS IN ALL VOLUMES ARE SEARCHED AT THIS POINT P* @ PDMT300 EQU * J P LDK A3,16 ^ P SU A3,TASCXO p P RF(NZ) DMT310 P LDK A7,6 P RF DMTASX FILE NAME UNKNOWN PDMT310 EQU * P LD A12,TASFDB P RF(NZ) DMT3
0x12a8fc…12aa90 Dummy {f00=0x00f6, f01=0x0190, f02=»ENDING ORDER f 8 P* ACCORDING TO INCREASING SECTOR NO AND EXTENT NO ! P* ! P PDMT320 EQU * ! Z P* ! n @ P* CHECK IF RECORD BUFFERS ARE LARGE ENOUGH FOR INDEX FILE ! x P* ! P LD A6,TASFIL ! P RF(Z) DMT330 DATA FILE ASS ! $ P LD A6,F
0x12aa90…12ac24 Dummy {f00=0x00f6, f01=0x0190, f02=» OK ! P LDK A7,12 " * P RF DMTASX RECORD BUFFER IS TOO SMALL " PDMT330 EQU * " L P LDR A6,A12 " ` P* FDB ADDR " t P ADKL A6,FDBEXT " P LDK A2,0 " P LDR A5,A3 " P SRL A5,2 NUMBER OF EXTENTS " PDMT340 EQU * " P LDK A4,16 "
0x12ac24…12adb8 Dummy {f00=0x00f6, f01=0x0190, f02=»E EXTENTS TO CHECK " ~ P* # , P* THE EXTENT SEARCHED FOR IS NOT FOUND # $ 2 P* CHECK IF RIGHT HALF OF A2 = 0 (EXT-NO = 0) # T P* # P LDR A1,A2 # P ANK A1,/FF # $ P RF(NZ) DMT370 TRY NEXT SECTION # P* # PDMT355 EQU * # P LDK A7,
0x12adb8…12af4c Dummy {f00=0x00f6, f01=0x0190, f02=» LD A1,TASSEX+2,A4 # P LD A1,TASVOL,A1 $ P ST A1,EXTDMI,A6 $ 2 P LD A1,TASXLB,A4 $ J P ST A1,EXTLEN,A6 $ b P LD A1,TASXLB+2,A4 $ z P ST A1,EXTBAS,A6 $ P ADK A6,6 $ P SUK A5,1 $ & P RF(NP) DMT500 ALL EXTENTS HANDLED $ P* $ : P*
0x12af4c…12b0e0 Dummy {f00=0x00f6, f01=0x0190, f02=» A1,3 $ " P RF(NE) DMT380 NOT EXT-NO = 3 % PDMT370 EQU * % 4 P ECR A1,A2 % H P ANK A1,/FF % Z P SUK A1,3 % n P RB(E) DMT355 SECTION-NO = 3 % " P ADK A1,4 INCREMENT SECTION-NO % P ECR A2,A1 EXT-NO = 0 % P RB DMT340 % $ PDMT380 ADK A2,
0x12b0e0…12b274 (0, 379) Dummy {f00=0x00f6, f01=0x018e, f02=»CH WERE UNLOCKED BEFORE % j P* & P LDR A5,A7 & * P LDR A6,A8 SAVE & < P LDK A1,3 LOOP & T PDMTASY EQU * & j P LC A2,TASLFD,A1 FILE CODES & ~ P ANK A2,/FF & P RF(Z) DMTASZ NO CODE & P LDKL A8,TASECB & P SC A2,TASECB+1 & P LDK
0x12b274…12b408 Dummy {f00=0x00f6, f01=0x0190, f02=» & P LDR A8,A6 ' P RF DMT401 =1 END ' P* ' 4 ( P* PUT FDB ADDRESS INTO TTAB/CD:TAB ' > P* ' j PDMT400 EQU * ' t P LDK A7,0 ' PDMT401 EQU * =1 ' , P LD A2,TASTBE TTAB/CDTAB FILE CODE ADDR ' P LDR A7,A7 ' P RF(Z) DMT420 CORREC
0x12b408…12b59c Dummy {f00=0x00f6, f01=0x018e, f02=»DDR ' t " P RF(Z) DMT410 NO MASTER INDEX ( P INH INH ( 2 ( P LD A2,MXIND SIEZE MASTERINDEXINDEX ( D P SUK A2,2 ( p PDMT405 EQU * ( P SUK A2,4 NEXT OFFSET ( P RF(NN) DMT407 OK ( * P RF DMT408 MASTER INDEX MUST BE FOUND ( PDMT407 CW A4
0x12b59c…12b730 Dummy {f00=0x00f6, f01=0x0190, f02=» ( ~ PDMT410 EQU * ) P LD A3,TASFDB ) P RF(Z) DMT430 NO FDB USED ) 2 P LDKL A2,/FFFE ) T " P ANRS A2,A3 CLEAR FDB USE BIT ) j P RF DMT430 ) PDMT420 EQU * ) P ST A12,1,A2 FDB ADDR ) PDMT430 EQU * ) P LDR A8,A8 ) P RF(Z) DMT440
0x12b730…12b8c4 Dummy {f00=0x00f6, f01=0x0190, f02=»UF RELEASE ALL FREE BUFFERS ) & P CF A14,TASCAQ CHECK ASSIGN QUEUE * $ $ P CF A15,QTJOB QUEUE CALLING TASK * N P ENB * v P LKM * P DATA 3 * P EJECT * PDMT500 EQU * * P LD A6,TASFIL * P ABL(Z) DMT700 DATA FILE * P IFF INDXAC=1 *
0x12b8c4…12ba58 Dummy {f00=0x00f6, f01=0x018e, f02=» EJECT * P* + " P* THIS IS MASTER INDEX LOOP. + 8 P* CONNECT FDB TO FILE CODE IN DMTASK TTAB AND READ + > < P* MASTER INDEX WITH SEQUENTIAL READ ON THIS FILE CODE + z P* + P LD A7,TASTID DMTASK ID + P INH + " P CF A15,FNDTID TTAB ADDR
0x12ba58…12bbec Dummy {f00=0x00f6, f01=0x0190, f02=» P SC A3,TASECB+1 , " P ST A3,TTB:TD+2,A2 TTAB ENTRY , P ST A12,TTB:TD+4,A2 FDB ADR , B P LD A3,ECBBA,A8 , f P SUKL A3,BUFSTA , ~ " P CF A14,DMTRBU RELEASE BUFFER , P* , 0 P* CALC NO OF WORDS NEEDED IN MASTRE INDEX , P* , P LD
0x12bbec…12bd80 Dummy {f00=0x00f6, f01=0x018e, f02=»RR A2,A1 GET MOST SIGN BIT , P ADK A2,5 - " P SRL A2,1 NO OF WORDS NEEDED - 4 P RF(Z) DMT570 WRONG SIZE - X P INH - x P LD A4,MXIND LENGTH MXIND - P SUK A4,4 MAX A5 VALUE - P LDKL A5,-2 OFFSET - PDMT540 EQU * - P ADK A5,4 GET ENTRY -
0x12bd80…12bf14 (0, 380) Dummy {f00=0x00f6, f01=0x0190, f02=» - | P RB(N) DMT540 ENTRY USED . P SUR A6,A2 NO OF SPARE WORDS . ( & P RB(N) DMT540 LARGER ENTRY NEEDED . L P* . v P* SUFFICIENT SPACE FOUND . P* . P LDKL A1,/8000 USED BIT . & P ORS A1,MXIND+2,A5 MARK ENTRY USED . $ P ST A3,TASMXA MAST
0x12bf14…12c0a8 Dummy {f00=0x00f6, f01=0x0190, f02=»T A1,2,A3 ENTRY LENGTH . P ADK A3,4 SKIP MX HEADRER / P ST A3,ECBBA,A8 BUFFER ADDR / @ P ST A1,ECBRL,A8 REQ LGTH / d . P LDR A1,A5 MXIND ENTRY PAR TO REACTIVATION / P CWR A1,A4 MXIND ENTRY / P RF(NL) DMT590 LAST ENTRY / P LD A3,MXIND+6,A1
0x12c0a8…12c23c Dummy {f00=0x00f6, f01=0x0190, f02=»NKL A2,/7FFF REMOVE USE BIT / P SUR A2,A6 0 $ P ORKL A2,/8000 USE BIT 0 6 P ST A2,MXIND+2,A1 0 T . P ADS A6,MXIND+6,A1 MAKE NEXT ENTRY LARGER 0 n $ P LD A7,MXIND,A1 PREVIOUS POINTER 0 P SLL A2,1 NO OF BYTES 0 P ADR A7,A2 0 P ST A7,MXIND+4,A
0x12c23c…12c3d0 Dummy {f00=0x00f6, f01=0x0190, f02=» 0 8 P* OTHER REQ TO THE SAME FILE CODE ARE NOT POSSIBLE 1 < P* BECAUSE AN INDEX FILE MUST ALWAYS BE ASSIGNED COMMON 1 D P* 1 PDMT550 EQU * 1 & P LDK A7,/42 SEQ READ,NOWAIT,NO EA 1 P LKM 1 P DATA -1 1 P DATA DMTAR5 1 P LKM 1 P
0x12c3d0…12c564 Dummy {f00=0x00f6, f01=0x0190, f02=»NKL A2,/FEFF BIT 7 ONLY RETRIES 1 P RF(Z) DMT560 NO ERROR 2 ( P* 2 F " P* REMOVE THE ONLY CRN BUFFER 2 P P* 2 v P LD A4,TASFDB FDB ADDR 2 P LD A5,FDBCRL,A4 CRN BUF ADR 2 P RF(Z) DMT553 NO CRN 2 P CM FDBCRL,A4 2 P INH 2 P LD A6,C
0x12c564…12c6f8 Dummy {f00=0x00f6, f01=0x018e, f02=»EADY ,WHOLIE MXINDEX IS READ 2 P LDK A7,7 3 $ PDMT555 SUR A8,A8 NO BUFFER 3 6 P ABL DMTASX DISC IO ERR 3 X PDMT560 EQU * 3 x P* 3 P* RECORD READ,READ NEXRT 3 P* 3 P LD A2,ECBRL,A8 3 P ADS A2,ECBBA,A8 REC LENGTH 3 P RB DMT550
0x12c6f8…12c88c Dummy {f00=0x00f6, f01=0x0190, f02=» 3 P* 4 2 P* MASTER INDE X READUY. RERUN FOR INDEX FILE 4 P* 4 H P LDK A1,1 4 R P ST A1,TASFIL INDEX FILE 4 d " P LD A3,TASSPW TTAB ADR DMTASK 4 P CM TTB:TD+2,A3 DELETE ENTRY 4 P CM TTB:TD+4,A3 4 P LD A3,TASFDB FDB ADDR 4 P LDK
0x12c88c…12ca20 Dummy {f00=0x00f6, f01=0x0190, f02=» ENTRY POSSIBLE 4 ~ P LDK A1,0 5 2 P* TASCVO REMAINS ZERO FROM MASTER INDEX LOOP 5 * P ABL DMT050 ASSIGN INDEX 5 ` P EJECT 5 PDMT600 EQU * 5 P* 5 P* INDEX FILE ASSIGN 5 P* 5 P LDK A7,10 RET CODE 5 & P LD A10,TASFDD FDB ADDR
0x12ca20…12cbb4 (0, 381) Dummy {f00=0x00f7, f01=0x0190, f02=» LC A3,DWTST,A10 5 P ANK A3,/40 6 & P RF(NZ) DMT639 OTHER REQUEST BUSY 6 , P LDK A3,8 MAX NO OF INDE*2 6 V PDMT620 EQU * 6 x P SUK A3,2 6 $ P RF(N) DMT640 MORE THAN 4 INDEX 6 P LDR A6,A10 6 P ADR A6,A3 6 P LD A2,FDBAI1,A6 6 P RB(
0x12cbb4…12cd48 Dummy {f00=0x00f7, f01=0x0190, f02=» 6 X P* 7 P LDK A5,8 NR OF INDEX *2 7 PDMT625 EQU * 7 2 P SUK A5,2 7 F " P RF(N) DMT635 ALL FDB UPPDATED 7 X P LDR A1,A10 FDB DATA 7 ~ P ADR A1,A5 7 $ P LD A3,FDBAI1,A1 FDB ADDR INDEX 7 P RB(Z) DMT625 NO INDEX FILE 7 P LDKL A1,FDBADF
0x12cd48…12cedc Dummy {f00=0x00f7, f01=0x0190, f02=»25 7 PDMT635 EQU * 8 P LC A1,DWTST,A10 8 0 P SC A1,DWTST,A12 SAME BUSY BITS AS DATA FILE 8 6 P ENB ENB 8 j P LD A1,TASMXA 8 | ( P ST A1,FDBMIA,A12 MASTER INDEX ADDR 8 P RF DMT720 8 ( PDMT639 ADK A7,2 A7=13=OTHER REQ BUSY 8 * PDMT640 ADK A
0x12cedc…12d070 Dummy {f00=0x00f7, f01=0x0190, f02=»IGN DATA FILE 8 & P ST A12,FDBADF,A12 FDB ADDR TO FDB 9 P LD* A1,TASASB ASBLK ADDR 9 @ P ANKL A1,/6000 9 b P SLL A1,1 9 x $ P ORS A1,FDBDBR,A12 DELAY + BASIC 9 PDMT720 EQU * 9 P* 9 ( P* SET FDBMRN TO MAX REC NO IN FILE 9 P* 9 P L
0x12d070…12d204 Dummy {f00=0x00f7, f01=0x018e, f02=»750 9 P AD A2,-2,A1 : P SUKL A1,EXTELE-2 : P ST A1,FDBCEX,A12 : : P SUK A2,1 : T P ST A2,FDBSNR,A12 : f P LDR A1,A12 : " P CF A14,GTLGRN GET LOG REC NO : P LDK A1,0 : " P LC A1,FDBBLF,A12 BLOCK FACTOR : P SUK A1,1 : P ADR
0x12d204…12d398 Dummy {f00=0x00f7, f01=0x4154, f02=» P ST A3,FDBMRN+1,A12 ; P* ; 4 P* CALCULATE FDBMRO WHICH IS MAX FDBRRO IN FILE ; * P* ; b P LD A6,FDBRLE,A12 REC LENGTH ; l P ADK A6,1 ; P LDK A7,0 ; P LC A7,FDBBLF,A12 BLOCK FACT ; P SUK A7,1 ; P CF A14,MPYMOD A1,A2=A6*A7 ;
0x12d398…12d52c Dummy {f00=0x00f7, f01=0x2008, f02=» < EXIT P* P ENB P LKM * P DATA 3 6 P END F@ RA2,/FFFE P " P ANRS A2,A3 CLEAR FDB USE BIT f P RF DMT430 PDMT420 EQU * P ST A12,CDTAB+2,A2 PDMT430 EQU * P LD A3,ECBBA,A8 P SUKL A3,BUFSTA
0x12d52c…12d6c0 Dummy {f00=0x00f7, f01=0x0190, f02=»SET FDB FREE < PDMTA40 EQU * = * P CF A14,CLRBUF REMOVE ALL FREE BUFFERS = ( P LDR A1,A7 NEW FDB ADDR = V P ABL(Z) DMTERX NO MORE FDBS = v P IFT INDXAC=1 = P ENB ENB = P* = 4 P* FIND WHICH DMTASK IS NEXT AND ACTIVATE THAT = P* =
0x12d6c0…12d854 (0, 382) Opaque[0x194]
0x12d854…12d9e8 # DirEnt {nam=»DMBUF «, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0928, f03=0x0000}
0x12d854…12d9e8 IdxSect {
0x12d854…12d9e8 f00 = 0x0049 // 0x12d854 @0x0
0x12d854…12d9e8 f01 = 0x0008 // 0x12d856 @0x2
0x12d854…12d9e8 gno = [ // 0x12d858 @0x4
0x12d854…12d9e8 [0x00]: C0x0049.0x1.0
0x12d854…12d9e8 [0x01]: C0x004c.0x0.0
0x12d854…12d9e8 [0x02]: C0x004c.0x1.0
0x12d854…12d9e8 [0x03]: C0x004c.0x2.0
0x12d854…12d9e8 ]
0x12d854…12d9e8 }
0x12d9e8…12db7c Dummy {f00=0x0049, f01=0x0190, f02=» 0 P IDENT DMBUF REL 9.2 79-11-16 870105040920 P 8 P* @ 8 P**************************************************** J P* $ P* PHILIPS TERMINAL SYSTEM PTS P* . P* DMBUF = DATA MANAGEMENT BUFFER AREAS P* P* P
0x12db7c…12dd10 Dummy {f00=0x0049, f01=0x018e, f02=»FOR DMTASK v P* . P* A ROUTINE DMTGBU TO GET A DISC BUFFER P* N L P* BY MEANS OF CONDITIONAL ASSEMBLY QNBUF NUMBER OF BUFFERS WILL BE ALL X P* P* MAX VALUE OF QNBUF IS 16 P* > P* AT LEAST TWO BUFFERS PER DISC DRIVE
0x12dd10…12dea4 Dummy {f00=0x0049, f01=0x018e, f02=» ( P ENTRY CURBUF CURRENT BUFFER POINTER P ENTRY BUFLNK BUFFER LINK 4 P ENTRY BUFDMI DMTASK IDENT V P ENTRY BUFFC FILE CODE x P ENTRY BUFSNR SECTOR NO P ENTRY BUFOR ORDER * P ENTRY BUFSTA DATA AREA START ADDRESS P ENTRY DMT
0x12dea4…12e038 Dummy {f00=0x0049, f01=0x0190, f02=» P EJECT $ PX:A EQU 8 NUMBER OF DISC BUFFERS PQNBUF EQU 00004 : P* R P* PCURBUF DATA BUF1 f PNEWBUF DATA 0 ~ P* P* PBUFLNK EQU 0 2 PBUF1 DATA BUF2 BUFFER LINK STATUS IN BIT 15 PBUFDMI EQU *-BUF1 DMI
0x12e038…12e1cc Dummy {f00=0x0049, f01=0x0190, f02=» LRU-WORD " P DATA 0 BUFFER STATUS,DM ORDER ( PBUFSTA EQU *-BUF1 DATA BUFFER START 8 P RES 205 d P* t P* ~ P IFT QNBUF=1 PBUF2 EQU BUF1 P XIF P* P* P IFF QNBUF=1 PBUF2 DATA BUF3 P DATA 0,0,0
0x12e1cc…12e360 Dummy {f00=0x0049, f01=0x018e, f02=»NBUF=1 P IFF QNBUF=2 PBUF3 DATA BUF4 " P DATA 0,0,0 8 P RES 205 L P XIF P* h P* r P IFT QNBUF=3 | PBUF4 EQU BUF1 P XIF P* P* P IFF QNBUF=1 P IFF QNBUF=2 P IFF QNBUF=3 PBUF4 D
0x12e360…12e4f4 (0, 383) Dummy {f00=0x004c, f01=0x0190, f02=» P* P* P IFF QNBUF=1 P IFF QNBUF=2 , P IFF QNBUF=3 @ P IFF QNBUF=4 T PBUF5 DATA BUF6 h P DATA 0,0,0 ~ P RES 205 P XIF P* P* P IFT QNBUF=5 PBUF6 EQU BUF1 P XIF P* P*
0x12e4f4…12e688 Dummy {f00=0x004c, f01=0x018e, f02=»0 P RES 205 P XIF P* & P* 0 P IFT QNBUF=6 : PBUF7 EQU BUF1 N P XIF d P* p P* z P IFF QNBUF=1 P IFF QNBUF=2 P IFF QNBUF=3 P IFF QNBUF=4 P IFF QNBUF=5 P IFF QNBUF=6 PBUF7 DATA BU
0x12e688…12e81c Dummy {f00=0x004c, f01=0x018e, 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 PBUF8 DATA BUF9 P DATA 0,0,0 P RES 205 P XIF P* P* P IFT QNBUF=8
0x12e81c…12e9b0 Dummy {f00=0x004c, f01=0x0190, f02=» P IFF QNBUF=5 P IFF QNBUF=6 P IFF QNBUF=7 , P IFF QNBUF=8 @ PBUF9 DATA BUF10 T P DATA 0,0,0 l P RES 205 P XIF P* P* P IFT QNBUF=9 PBUF10 EQU BUF1 P XIF P* P* P IFF QNBUF=1
0x12e9b0…12eb44 Dummy {f00=0x004c, f01=0x0190, f02=»=8 P IFF QNBUF=9 PBUF10 DATA BUF11 P DATA 0,0,0 6 P RES 205 J P XIF Z P IFT QNBUF=10 f PBUF11 EQU BUF1 | P XIF P* P* P IFF QNBUF=1 P IFF QNBUF=2 P IFF QNBUF=3 P IFF QNBUF=4 P IFF Q
0x12eb44…12ecd8 Dummy {f00=0x004c, f01=0x0190, f02=» P DATA 0,0,0 P RES 205 P XIF ( P IFT QNBUF=11 4 PBUF12 EQU BUF1 J P XIF ` P* l P* v P IFF QNBUF=1 P IFF QNBUF=2 P IFF QNBUF=3 P IFF QNBUF=4 P IFF QNBUF=5 P IFF QNBUF=6 P IFF QNBUF=7
0x12ecd8…12ee6c Dummy {f00=0x004c, f01=0x018e, f02=» 205 P XIF P IFT QNBUF=12 PBUF13 EQU BUF1 . P XIF D P* P P* Z P IFF QNBUF=1 d P IFF QNBUF=2 x P IFF QNBUF=3 P IFF QNBUF=4 P IFF QNBUF=5 P IFF QNBUF=6 P IFF QNBUF=7 P IFF QNBUF=8 P IFF
0x12ee6c…12f000 Dummy {f00=0x004c, f01=0x0190, f02=» P XIF P IFT QNBUF=13 PBUF14 EQU BUF1 * P XIF @ P* L P* V P IFF QNBUF=1 ` P IFF QNBUF=2 t P IFF QNBUF=3 P IFF QNBUF=4 P IFF QNBUF=5 P IFF QNBUF=6 P IFF QNBUF=7 P IFF QNBUF=8 P IFF QNB
0x12f000…12f194 (0, 384) Dummy {f00=0x004c, f01=0x018e, f02=» P RES 205 P XIF P IFT QNBUF=14 $ PBUF15 EQU BUF1 : P XIF P P* P* f P IFF QNBUF=1 p P IFF QNBUF=2 P IFF QNBUF=3 P IFF QNBUF=4 P IFF QNBUF=5 P IFF QNBUF=6 P IFF QNBUF=7 P IFF QNBUF=8
0x12f194…12f328 Dummy {f00=0x004c, f01=0x0190, f02=» PBUF15 DATA BUF16 P DATA 0,0,0 P RES 205 0 P XIF @ P IFT QNBUF=15 L PBUF16 EQU BUF1 b P XIF x P* P* P IFF QNBUF=1 P IFF QNBUF=2 P IFF QNBUF=3 P IFF QNBUF=4 P IFF QNBUF=5 P IFF QNBUF=6
0x12f328…12f4bc Dummy {f00=0x004c, f01=0x0190, f02=»FF QNBUF=13 P IFF QNBUF=14 P IFF QNBUF=15 * PBUF16 DATA BUF1 @ P DATA 0,0,0 X P RES 205 l P XIF | P EJECT P* P************** P* DMTGBU * P************** P* * P* ENTRY DMTGBU GET A D
0x12f4bc…12f650 Dummy {f00=0x004c, f01=0x0190, f02=»ER t P* $ P* OUTPUT A3 = BUFFER ADDRESS J P* SKIP RETURN (+2) IF SECTOR MUST BE READ INTO BUFFER AT A3 < , P* A5 AND A7 WILL BE DESTROYED P* 8 P* CURBUF, BUFDMI, -FC AND -SNR WILL BE SET < P*
0x12f650…12f7e4 Dummy {f00=0x004c, f01=0x0190, f02=»* SEARCHED FOR IS ALREADY PRESENT IN ANY FREE BUFFER. F P* IF THIS SECTOR IS NOT FOUND A FREE SECTOR MUS BE FOUND AND IN @ P* P* P* PDMTGBU EQU * P INH INH P* 4 P* CHECK IF THIS SECTOR IS FOUND IN ANY BUFFER
0x12f7e4…12f978 Dummy {f00=0x004c, f01=0x0190, f02=») DMT020 WRONG VOLUME P CW A2,BUFSNR,A3 P RF(E) DMT050 SAME SECTOR NO 6 PDMT020 EQU * Z P LDK A7,/01 n & P AN A7,BUFLNK,A3 STATUS IN BIT 15 P RF(NZ) DMT041 USED P IM BUFOR,A3 MAKE OLDER P RF(P) DMT030 P LDK A7,/F
0x12f978…12fb0c Dummy {f00=0x004c, f01=0x0190, f02=»T A3,NEWBUF PDMT041 EQU * P CW A3,CURBUF ( * P RB(NE) DMT010 MORE BUFFERS TO SERARCH > P LDR A5,A5 l P RF(NZ) DMT043 BUFFER FOUND ~ P LDK A1,3 LAMP 10 AND 11 P CF A15,HALT NO MORE BUFFERS PDMT043 LD A3,NEWBUF P*
0x12fb0c…12fca0 Dummy {f00=0x004c, f01=0x0190, f02=» t " P ST A2,BUFSNR,A3 SECTOR NUMBER PDMT050 EQU * . " P CM BUFOR,A3 RESET OLD-COUNTER B P ST A3,CURBUF h P LDK A7,/01 ~ ( P ORRS A7,A3 SET STATUS USED BIT 15 P ENB ENB P RTN A14 P EJECT P* P**************
0x12fca0…12fe34 (0, 385) Dummy {f00=0x004c, f01=0x0190, f02=» BUFFER ADDRESS P* A2 IS DESTROYED P* < P* F PDMTRBU EQU * P P LDKL A2,/FFFE d P ANRS A2,A3 SET OFF BIT 15 z P RTN A14 P* P* ( PCLRBUF EQU * CLEAR ALL FREE BUFFERS @ P****************************
0x12fe34…12ffc8 Dummy {f00=0x004c, f01=0x40b4, f02=» P AN A2,BUFLNK,A3 P RF(NZ) DMT750 USED P CM BUFDMI,A3 REMOVE 8 PDMT750 CW A3,CURBUF T P RB(NE) DMT700 MORE BUFFERS p P RTN A14 P END @ P* ( PCLRBUF EQU * CLEAR ALL FREE BUFFERS @ P****************************
0x12ffc8…13015c Dummy {f00=0x004c, 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
0x13015c…1302f0 Dummy {f00=0x004c, f01=0x018e, f02=»U * CLOSE A FILE P LDK A4,0 PTIOC10 EQU * * $ P ST A4,FDBRRO,A6 MARK ORDER TYPE > P LDK A2,0 f , P ST A2,FDBSNR,A6 SECTOR #0 VOLUME LABLE x P* ( P* LET FDBCEX POINT TO FIRST EXTENT P* P LDR A4,A6 P ADK A4,FDBEXT
0x1302f0…130484 Dummy {f00=0x004c, f01=0x0190, f02=» P LDR A1,A6 FDB ADDR 0 P LDKL A2,/C000 REMOVE BUFFERS FOR THIS TASK P CF A14,EARELB T PREL090 EQU * j P LDK A1,0 CORRECT RETURN ~ P ABL TIODME P EJECT ( PSETLRN EQU * SET LAST RECORD NUMBER P LC A1,ECBCW+3,A8 P S
0x130484…130618 Dummy {f00=0x004c, f01=0x0190, f02=»DATA REC p P RF GET010 . PGETCUX LDK A7,CRNCIF+1 GET CURR INDEX REC " PGET010 LDR A1,A6 FDB ADDR T " P CF A14,CRNGET GET CRN BUFFER v P ADR A7,A2 ADDR CURR REC NO P LDK A2,0 P LC A3,-1,A7 FILE CODE P CC A3,ECBFC,A8 P
0x130618…1307ac Dummy {f00=0x004c, f01=0x0190, f02=»REC NO ~ P LD A2,1,A7 PGET030 EQU * " P ST A2,ECBCW,A8 6 P RB REL090 N P EJECT ` " PSEQREAD EQU * SEQUENTIAL READ n P* $ P* FIND CRN+1 AND TEST IF > LRN P* P LDR A1,A6 FDB ADDR " P CF A14,CRNGET GET CRN-BUFFE
0x1307ac…130940 Dummy {f00=0x004c, f01=0x018e, f02=»ERFLOW P RF SEQR20 PSEQR10 EQU * " P ANKL A2,/7FFF REMOVE OVERFLOW 4 P ADK A1,1 ADD CARRY Z PSEQR20 EQU * v P SC A1,ECBCW+3,A8 REC NO P ST A2,ECBCW,A8 P* $ P* CONTINUE AS FOR RANDOM READ P* P EJECT
0x130940…130ad4 (0, 386) Opaque[0x194]
0x130ad4…130c68 # DirEnt {nam=»DMFDB «, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x1d28, f03=0x0000}
0x130ad4…130c68 IdxSect {
0x130ad4…130c68 f00 = 0x00e9 // 0x130ad4 @0x0
0x130ad4…130c68 f01 = 0x0004 // 0x130ad6 @0x2
0x130ad4…130c68 gno = [ // 0x130ad8 @0x4
0x130ad4…130c68 [0x00]: C0x00e9.0x1.0
0x130ad4…130c68 [0x01]: C0x00f3.0x3.0
0x130ad4…130c68 ]
0x130ad4…130c68 }
0x130c68…130dfc Dummy {f00=0x00e9, f01=0x0190, f02=» 0 P IDENT DMFDB REL 9.2 79-11-16 870105040920 P 8 P @ P* H P* R 8 P**************************************************** P* $ P* PHILIPS TERMINAL SYSTEM PTS P* , P* DMFDB = FILE DESCRIPTOR BLOCKS FDB P*
0x130dfc…130f90 Dummy {f00=0x00e9, f01=0x0190, f02=»TE FDB AREA H P* BY MEANS OF CONDITIONAL ASSEMBLY QFDBAR WORDS WILL BE ALLOCATED P* ` P ENTRY FDBSTA j P ENTRY FDBEND P ENTRY QFDBFL P ENTRY CRNQUE,CRBUFL P ENTRY CRNEND P ENTRY MXIND P EJECT P* 6
0x130f90…131124 Dummy {f00=0x00e9, f01=0x0190, f02=»REA r " PCRBUFL EQU 12 SIZE CRN BUFFER P* 2 < P* CRNBAR IS THE SIZE OF THE CRN BUFFER ARERA IN WORDS < 4 P* WHERE CRBUFL BYTES ARE USED FOR EACH BUFFER | P* PX:B EQU 50 " PCRNBAR EQU 00360 CURRENCY AREA P* P*
0x131124…1312b8 Dummy {f00=0x00e9, f01=0x0190, f02=» P* PQFDBAR EQU 00684 P* & PX:D EQU 96 0 ( PQFDBFL EQU 00114 FDB FIX PART LENGTH B P* n P EJECT x P* PFDBSTA EQU * P RES QFDBAR PFDBEND EQU * PCRNQUE DATA 0 CRN LINK ROOT P RES CRNBAR PCRNE
0x1312b8…13144c Dummy {f00=0x00e9, f01=0x410a, f02=» IFF MXSIZ=0 * P DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0 * P DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0 B P XIF p PMXINDE EQU * END INDEX INDEX | 2 P DATA 0,0 SIGNIFICANT ZEROES AFTER INDEXINDEX PMXAR EQU * P RES MXSIZ P END @
0x13144c…1315e0 Dummy {f00=0x00e9, f01=0x2008, f02=» PFDBSTA EQU * P RES QFDBAR PFDBEND EQU * 2 P END F@ R OF CONDITIONAL ASSEMBLY QFDBAR WORDS WILL BE ALLOCATED J P* P ENTRY FDBLEN P ENTRY FDBSTA P ENTRY FDBEND P ENTRY QFDBFL P* P*
0x1315e0…131774 (0, 387) Dummy {f00=0x00f3, f01=0x0190, f02=»MAX 4 WORDS | PDMT150 EQU * P LDR* A10,A4 ( P CWR* A10,A7 < P ABL(NE) DMT250 NO MATCH P P SUK A2,1 p . P RF(NP) DMT160 ALL 4 FILE NAME WORDS MATCH P ADK A4,2 P ADK A7,2 P RB DMT150 CHECK NEXT WORD P* ( P*
0x131774…131908 Dummy {f00=0x00f3, f01=0x0190, f02=» DMT165 YES P CCK A2,'LL' LIBRARY FILE ? P ABL(NZ) DMT250 NO 8 P LDK A2,0 FILE EXTENT NUMBER R P RF DMT167 v . PDMT165 LD A2,VTFSNO,A3 FILE SECTION NUMBER P EJECT PDMT167 EQU * P* . P* GET INFO FROM VTOC AND SAVE IN
0x131908…131a9c Dummy {f00=0x00f3, f01=0x0190, f02=» P ST A1,TASCXO P RF(NN) DMT170 <= 4 EXTENTS P LDK A7,9 B * P ABL DMTASX MORE THAN 4 EXTENTS EXIST T PDMT170 EQU * " P ECR A2,A2 TO LEFT HALF OF A2 4 P LC A2,VTFXNO+1,A4 EXT NO INTO RIGHT HALF OF A2 P ST A2,TASSEX,A1
0x131a9c…131c30 Dummy {f00=0x00f3, f01=0x0190, f02=» LD A2,VTFXBA,A4 EXTENT BASE P ST A2,TASXLB+2,A1 $ P LD A2,TASSEX,A1 > $ P RF(NZ) DMT250 NOT FIRST EXTENT V P EJECT ~ P* FIRST FILE EXTENT < P* CHECK IF AN FDB DESCRIBING THE FILE ALREADY EXISTS. P* P LD A12,TASFDB *
0x131c30…131dc4 Dummy {f00=0x00f3, f01=0x0190, f02=»FDBSTA PDMT200 EQU * P LDR* A5,A12 " P ANK A5,/01 6 P RF(Z) DMT210 FREE J P LD A2,FDBEXT,A12 d P CW A2,TASVOL,A6 ~ " P RF(NE) DMT210 NOT SAME VOLUME P LD A2,FDBVTO,A12 P CW A2,TASVRN $ P RF(NE) DMT210 NOT SAME VTOC
0x131dc4…131f58 Dummy {f00=0x00f3, f01=0x0190, f02=»OUND j PDMT205 EQU * P LDK A7,5 FILE CODE USED P ABL DMTASX @ P* T $ PDMT210 LDR* A12,A12 GET NEXT FDB ^ P ANKL A12,/FFFE ( P RB(NE) DMT200 MORE FDB:S TO SEARCH P* 0 P* NO MATCHING FDB EXIST FIND A FREE FDB P
0x131f58…1320ec Dummy {f00=0x00f3, f01=0x0190, f02=» P ANKL A12,/FFFE & P RB(NE) DMT220 MORE FDB:S TO CHECK P LDK A7,3 F P ABL DMTASX NO FDB AVAILABLE X ( P* INITIALIZE FDB ZERO FROM FDB+2 | P* PDMT230 EQU * P ST A12,TASFDB P LDR A10,A12 P ADKL A10,QFDBFL P
0x1320ec…132280 Dummy {f00=0x00f3, f01=0x0190, f02=»DMT233 PDMT237 EQU * P LDKL A2,/8000 " P* DEV NOT BUSY 8 P ST A2,DWTST,A12 P P LDKL A2,TIODM h P ST A2,DWTADR,A12 ~ P LDKL A2,SECTLE P LDR A1,A12 P ADKL A1,FDBECB P ST A2,ECBRL,A1 P LDK A2,/01 P
0x132280…132414 (0, 388) Opaque[0x194]
0x132414…1325a8 # DirEnt {nam=»DFTAB «, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x1d20, f03=0x0000}
0x132414…1325a8 IdxSect {
0x132414…1325a8 f00 = 0x00e9 // 0x132414 @0x0
0x132414…1325a8 f01 = 0x0002 // 0x132416 @0x2
0x132414…1325a8 gno = [ // 0x132418 @0x4
0x132414…1325a8 [0x00]: C0x00e9.0x0.0
0x132414…1325a8 ]
0x132414…1325a8 }
0x1325a8…13273c Dummy {f00=0x00e9, f01=0x0190, f02=» 0 P IDENT DFTAB REL 9.2 79-11-16 870105040920 P 8 P* @ 8 P**************************************************** J P* $ P* PHILIPS TERMINAL SYSTEM PTS P* & P* DFTAB = DISC FILE CODE TABLE P* P* P* LEVE
0x13273c…1328d0 Dummy {f00=0x00e9, f01=0x40ce, f02=»** ^ P* P* DISC FILE CODE TABLE P* 4 P ENTRY DFTAB > P ENTRY DFTABE R P* h P* r PDFTAB EQU * | P DATA /F8F9,/FAFB PDFTABE EQU * P END @ DISC FILE CODE TABLE P* P* P* LEVE
0x1328d0…132a64 Dummy {f00=0x00e9, 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*
0x132a64…132bf8 Dummy {f00=0x00e9, f01=0x0190, f02=»-LENGTH, BLOCKING-FACTOR AND VTOC-REC-NO r P* ARE SAVED TOO. 0 L P* WHEN THE FIRST EXTENT HAS BEEN FOUND EXISTING FDB:S CAN BE SEARCHED J L P* TO CHECK IF THE FILE TO BE ASSIGNED HAS PREVIOUSLY BEEN ASSIGNED TO L P* ANOTHER FILE CODE. IF SO T
0x132bf8…132d8c Dummy {f00=0x00e9, f01=0x0190, f02=»EN A NEW FDB MUST BE INITIALIZED AND THE REST OF THE 4 P* VOLUMES ARE CHECKED TO FIND ALL FILE EXTENTS < P* t 2 P* FOR INDEX ASIGN THE PRODGRAM IS RUN TWICE. ~ 4 P* DURING THE FIRST LOOP A MASTERINDEX IS READ. . P* FC 13 IN TTAB FOR DMTASK
0x132d8c…132f20 Dummy {f00=0x00e9, f01=0x018e, f02=»MTASS P ENTRY VTLRN P ENTRY VLVBA " P ENTRY VLVRL 6 P ENTRY SECTLE J P EJECT ` P* n P***************** x P* EXTERNALS * P***************** P* P EXTRN QTJOB P EXTRN FNDTID,TTB:TD P*
0x132f20…1330b4 (0, 389) Opaque[0x194]
0x1330b4…133248 # DirEnt {nam=»DMSUBX«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x1f38, f03=0x0000}
0x1330b4…133248 IdxSect {
0x1330b4…133248 f00 = 0x00f9 // 0x1330b4 @0x0
0x1330b4…133248 f01 = 0x000c // 0x1330b6 @0x2
0x1330b4…133248 gno = [ // 0x1330b8 @0x4
0x1330b4…133248 [0x00]: C0x00f9.0x3.0
0x1330b4…133248 [0x01]: C0x00fa.0x0.0
0x1330b4…133248 [0x02]: C0x00fa.0x1.0
0x1330b4…133248 [0x03]: C0x00fa.0x2.0
0x1330b4…133248 [0x04]: C0x00fa.0x3.0
0x1330b4…133248 [0x05]: C0x00fb.0x0.0
0x1330b4…133248 ]
0x1330b4…133248 }
0x133248…1333dc Dummy {f00=0x00f9, f01=0x0190, f02=» 2 P IDENT DMSUBX REL 9.2 79-11-16 870105040920 P : P* B 8 P**************************************************** L P* $ P* PHILIPS TERMINAL SYSTEM PTS P* 2 P* DMSUBX = DM-ROUTINES FOR INDEXED REQUESTS P* P*
0x1333dc…133570 Dummy {f00=0x00f9, f01=0x0190, f02=»ROM :***************** r P* P* DMTASK ( P* : P*************** D P* ENTRIES * P*************** t P* P ENTRY FNDKMX,CHKKEY P ENTRY RDNXTR P ENTRY FNDKEY P ENTRY CRNUPD P* P**********
0x133570…133704 Dummy {f00=0x00f9, f01=0x0190, f02=»DBRLE,FDBSNR,ECBCW l . P EXTRN FDBRRO,FDBCEX,FDBBLF,EXTBAS,BUFSNR . P EXTRN FDBLRN,FDBMRO,FDBCRL,FDBADF,CRNCIF L 4 P EXTRN DMTIOT,GTLGRN,GTBKBU,ADDMOD,CALSNO,DMTRBU ~ P EXTRN DMTIOZ P EJECT 8 P****DESCRIPTION*******************************
0x133704…133898 Dummy {f00=0x00f9, f01=0x0190, f02=»1 ALG. U. ` 4 P* THE SEARCH KEY MAY BE TERMINATED WITH A /EE. 0 P* THE FIRST TWO WORDS IN MASTER INDEX IS : J P* - NO OF ENTRIES N ~ $ P* - NO OF CHARACTERS PER ENTRY P* 8 P****ENTRY PARAMETERS********************************
0x133898…133a2c Dummy {f00=0x00f9, f01=0x0190, f02=»CF A14,FNDKMX P* 8 P****EXIT PARAMETERS********************************* " P* ^ 0 P* A1,A2 = LODGICAL RECORD NO IN INDEX FILE h P* A8,A11= UNCHANGED P* 8 P****USED REGISTERS********************************** P*
0x133a2c…133bc0 Dummy {f00=0x00f9, f01=0x0190, f02=»9,A2 P ANKL A9,/1 GET BIT 15 P SRA A2,1 * P LDR A10,A2 M=N/2 FLOOR < P ADR A9,A2 I=N/2 CEILING P ADK A5,2 TABLE BASE - 2 | PFND020 EQU * P LDK A2,0 P LDR* A7,A5 ENTRY LENGTH P LDR A6,A9 I P SUK A6,1 $ P
0x133bc0…133d54 (0, 390) Dummy {f00=0x00fa, f01=0x0190, f02=»25 EQU * " P ADR A2,A5 ADD MI BASE ADR - 2 P ADK A2,2 ENTRY KEY ADR 6 P LDR A1,A2 SAVE ENTRY ADR V P LDR A3,A8 SEARCH KEY ADR x P LDR A6,A11 MAX KEY LENGTH P LDK A7,0 CHAR ADR P CF A14,CHKKEY COMPARE KEYS P LDR A7,A10 M
0x133d54…133ee8 Dummy {f00=0x00fa, f01=0x0190, f02=» v . P RF(NG) FND040 SEARCHED KEY LESS OR EQUAL P* : P* SEARCHED KEY GREATER D P* d P LDR A10,A10 M n P RF(Z) FND050 SEARCH READY P ADR A9,A6 I=I+(M/2 CEIL) PFND030 EQU * P LDR A10,A7 M=M/2 FLOOR P RB FND020
0x133ee8…13407c Dummy {f00=0x00fa, f01=0x0190, f02=»D045 EQU * NO MASTER INDEX P LDK A1,0 " P LDK A2,1 REC NR 1 4 P RF FND070 N PFND050 EQU * ` P ADR* A1,A5 ARDR NEXT ENTRY t PFND060 EQU * P LDR A3,A1 ENTRY ADR P SUK A3,3 P ADR* A3,A5 ADR REC NO P* P* MO
0x13407c…134210 Dummy {f00=0x00fa, f01=0x0190, f02=»2,A2 P LCR A2,A3 PFND070 EQU * P RTN A14 2 P EJECT B 8 P****DESCRIPTION************************************* P P* D P* CHKKEY COMPARE TWO CHARACTER STRINGS. THE SEARCH KEY MAY BE P* TERMINATED WITH A /EE. P* 8
0x134210…1343a4 Dummy {f00=0x00fa, f01=0x0190, f02=» * P* A6 = MAX NO OF CAHARACTERS IN KEY 2 P* A7 = REL NO OF FIRST CHAR TO CHECK IN KEY 2 P* h P* CF A14,CHKKEY r P* 8 P****EXIT PARAMETERS********************************* P* : P* A3 = 0 WHEN SEARCED KEY IS CONTAINED I
0x1343a4…134538 Dummy {f00=0x00fa, f01=0x0190, f02=»CHAR TO CHECK = NO OF SAME CHARACTERS IN WHOLE KEY x " P* A6 = MAX NO OF CHAR IN KEY : P* ` 8 P****USED REGISTERS********************************** j P* P* A2-A4,A6-A7 < P******************************************************** P
0x134538…1346cc Dummy {f00=0x00fa, f01=0x0190, f02=»CR A4,A3 SEARCED KEY CHAR P CCK A4,/EE00 " " P RF(E) CHK060 END OF KEY CHAR 8 P CCR A4,A2 SC=EC? ^ P RF(G) CHK100 SC GT TH EC x " P RF(L) CHK120 SC LESS THAN EC P ADK A7,1 NO OF SAME CHAR P CWR A7,A6 NO OF CHAR $ P RF(NL)
0x1346cc…134860 Dummy {f00=0x00fa, f01=0x0190, f02=» LDK A3,0 FOUND P RF CHK140 PCHK120 EQU * * $ P LDKL A3,-1 SEARCHED KEY SMALLER > P RF CHK140 f PCHK100 EQU * x $ P LDK A3,1 SEARCHED KEY SGREATER PCHK140 EQU * P RTN A14 P EJECT 8 P****DESCRIPTION*******************
0x134860…1349f4 (0, 391) Dummy {f00=0x00fa, f01=0x0190, f02=»WHEN NO RECORD IS READ BEFORE, THE FIRST RECORD IN SPECIFIED & P* SECTOR WILL BE MADE AVAILABLE D P* n 8 P****ENTRY PARAMETERS******************************** x P* : P* A1 = FDB ADDRESS FOR CURRENT RECORD (BEFORE NEXT) P* FDB
0x1349f4…134b88 Dummy {f00=0x00fa, f01=0x0190, f02=»NTED ` : P* A3 = ADDRESS OF BLOCK BUFFER FROM PREVIOUS CALL IN > P* SAME DM-REQUEST. =0 WHEN NO BYUFFER IS ALLOCATED J P* A8 = ECB ADDRESS P* 8 P****EXIT PARAMETERS********************************* P* 2 P* RETURN AT AD
0x134b88…134d1c Dummy {f00=0x00fa, f01=0x018e, f02=»DE FOM PHYS I/O) WHEN NO BUFFER IS ALLOCATED r $ P* A2 = FDBRRO = RECORD OFFSET 4 P* A3 = BUFFER ADDRESS * P* = 0 WHEN NO BUFFER IS ALLOCATED | P* A8 = ECB ADDRESS P* 8 P****USED REGISTERS**********************************
0x134d1c…134eb0 Dummy {f00=0x00fa, f01=0x0190, f02=» X P EJECT PRDNXTR EQU * P LDR A10,A3 SAVE BUFFER ADDR * P RF(NZ) RDN200 BUFFER EXIST N P STR A7,A14 r P SUKL A14,4 P ST A6,2,A14 P* P* GET A BUFFER P* PRDN040 EQU * & P CF A14,GTBKBU GET BLOCKBU
0x134eb0…135044 Dummy {f00=0x00fa, f01=0x0190, f02=»DR A10,A3 BUFFER ADDR $ P LDK A7,/91 PHYS READ WITH WAIT P LKM F P DATA 1 R & P CF A14,DMTIOZ CHECK RETURN CODES b P LDR A1,A1 P RF(NZ) RDN900 ERROR P LDR A1,A6 FDB ADDR PRDN080 EQU * P LDR A6,A1 FDB ADDR P L
0x135044…1351d8 Dummy {f00=0x00fa, f01=0x0190, f02=»RDN200 EQU * $ P LD A2,FDBRRO,A1 REC ORD OFFSET P RF(NN) RDN220 NOT FIRST REC < P STR A7,A14 ` P SUKL A14,4 t P ST A6,2,A14 P RB RDN080 FIRST REC WANTED P* : P* CHECK IF THIS OFFSET POINTS TO LAST REC IN BUFFER P
0x1351d8…13536c Dummy {f00=0x00fa, f01=0x0190, f02=»EC IN CURRENT BLOCKBUFFER P* " $ P AD A2,FDBRLE,A1 RECOR D LENGTH , P ADK A2,1 STATUS CHAR T P ST A2,FDBRRO,A1 NEW OFFSET r P RF RDN950 RETURN P* 4 P* CHECK IF THIS RECORD ALSO IS LAST IN EXTENT P* PRDN300 EQU *
0x13536c…135500 Dummy {f00=0x00fa, f01=0x0190, f02=» AD A5,EXTLEN,A3 EXTENT LENGTH P SUK A5,1 & $ P CW A5,FDBSNR,A1 SECT NO CURRENT 8 , P RF(NG) RDN400 IT WAS LAST REC IN EXTENT ` P* P* NEW SECTOR P* P IM FDBSNR,A1 SECT NO P LDR A6,A1 FDB ADDR P RF RDN500 P*
0x135500…135694 (0, 392) Dummy {f00=0x00fa, f01=0x0190, f02=» NO v P LDR A1,A2 P LDR A2,A3 P LDK A6,0 0 P LDK A7,1 B P CF A14,ADDMOD NEXT REC NO T P LDR A6,A5 RESTORE FDB ADDR v * P CF A14,CALSNO GET NEXT REC ADDR PHYS P LDR A8,A13 $ P LDR A1,A1 CHECK EN D OF MEDIUM P RF(
0x135694…135828 Dummy {f00=0x00fa, f01=0x0190, f02=» x " P CF A14,DMTRBU RELEASE BUFFER P LDR A1,A6 FDB ADDR . P RB RDN040 NEXT SECTOR J P* h P* EXIT r P* PRDN900 EQU * P LDR A5,A1 RET CODE P LDR A1,A6 FDB ADDR P LDR A3,A10 BUFFER ADDR P RF(Z) RDN960 NO
0x135828…1359bc Dummy {f00=0x00fa, f01=0x0190, f02=»ER ADDR PRDN940 EQU * P LD A6,2,A14 $ P ADKL A14,4 8 P LDR* A7,A14 L PRDN950 EQU * ` P RTN A14 t P EJECT 8 P****DESCRIPTION************************************* P* > P* FNDKEY WILL READ THE FIRST USED INDEX RECORD
0x1359bc…135b50 Dummy {f00=0x00fa, f01=0x0190, f02=»ENTRY PARAMETERS******************************** P* 8 P* A1 = FDB ADDRESS B P* A8 = SEARCH KEY ADDR ^ & P* A11 = NO OF CHARACTERS IN KEY ~ " P* A13= PHYSICAL ECB ADDRESS P* 8 P****EXIT PARAMETERS*****************************
0x135b50…135ce4 Dummy {f00=0x00fa, f01=0x0190, f02=» 2 P* = /4000 WHEN NEXT HIGHER KEY IS FOUND . P* = RETURN CODE WHEN KEY IS NOT FOUND : 4 P* BIT 1 CAN NEVBER BE SET BY DISC DRIVER l P* A3 = BUFFER ADDRESS & P* = 0 WHEN NO RECORD IS FOUND " P* A7 = NO OF SAME CHARAC
0x135ce4…135e78 Dummy {f00=0x00fa, f01=0x0190, f02=»**** ` P* , P* A1 - A11,A13 + 4 WORDS ON A14 STACK P* F : P****************************************************** P P EJECT PFNDKEY EQU * P* & P* FIRST SEARCH THE NMASTER INDEX P* * P LD A5,FDBMIA,A1 ADDR OF M
0x135e78…13600c Dummy {f00=0x00fa, f01=0x0190, f02=» GET KEY ENTRY IN MASTER INDEX P LD A6,8,A14 FDB ADDR & P CF A14,CALSNO GET PHYS ADDR D P LDR A1,A1 h P RF(NZ) FKY900 ERROR z P LDR A1,A6 FDBADDR " P LDR A6,A11 NO OF CHAR IN KEY $ P LDK A7,0 START CHAR KEY SEARCH & P SUR A9,A9
0x13600c…1361a0 Dummy {f00=0x00fa, f01=0x018e, f02=»ECORD v P RF FKY150 P LDR A1,A5 RET CODE P RF FKY900 ERROR EXIT < P* Z " P* BUFFER AND ADATA IS FOUND d P* PFKY150 EQU * P LDR A9,A3 BUFFER ADDR P ADR A2,A3 BUFFER ADR P ADK A2,10 REC ADDR P LDR A10
0x1361a0…136334 (0, 393) Dummy {f00=0x00fa, f01=0x0190, f02=» P RF(E) FKY200 USED RECORD P* & & P* NO MORE RECORDS IN THIS SECTOR 0 P* Z * P LD A13,FDBRRO,A1 SAVE CURRENT OFFSET d P LD A4,FDBMRO,A1 & P ST A4,FDBRRO,A1 LAST REC IN SECT P* P* *CHECK IF EOF P* P LDR
0x136334…1364c8 Dummy {f00=0x00fa, f01=0x0190, f02=»N,A1 P RB(L) FKY100 NOT EOF P RF(G) FKY180 EOF * P CW A3,FDBLRN+1,A1 D P RB(L) FKY100 NOT EOF ^ PFKY180 EQU * | P* P* EOF IS IN THIS SECTOR P* 2 P ST A13,FDBRRO,A1 OFFSET TO FIRST FREE RECORD P LDK A7,0 NR
0x1364c8…13665c Dummy {f00=0x00fa, f01=0x0190, f02=» P LD A3,6,A14 SEARCH KEY ADDR P CF A14,CHKKEY COMPARE KEYS , P LDR A3,A3 P & P RF(P) FKY840 SEARCHED KEY GREATER b " P RF(N) FKY850 SEARCH KEY LESS P RF FKY870 KEY FOUNFD PFKY840 EQU * P CC A7,-4,A10 NEXT KEY FLAG 0 P
0x13665c…1367f0 Dummy {f00=0x00fa, f01=0x0190, f02=» THAT HAS BEEN CHECKED FOR THIS KEY . P LC A7,-4,A10 REDUCE NO OF SAME CHARACTERS ! 0 P RB FKY100 NEXT KEY ! b PFKY850 EQU * ! ~ P LDKL A2,/4000 KEY NOT FOUND ! P RF FKY950 ! PFKY870 EQU * ! P LDK A2,0 KEY FOUND ! P RF FKY950 !
0x1367f0…136984 Dummy {f00=0x00fa, f01=0x0190, f02=» P ADKL A14,8 RESTORE STACK " P LDR* A1,A14 FDB ADDR " & P LDR A3,A9 BUFFER ADDR " D P RTN A14 " b P EJECT " r P* " J P* CRNUPD UPDATES CRN-BUFFERS SO THAT RECORD NUMBERS FOR MOVED INDEX " P* RECORDS ARE UPDATED " P* " P* IN
0x136984…136b18 Dummy {f00=0x00fa, f01=0x0190, f02=»2 = ADD PARAMETER +1, -1 " P* # $ P* USED REGISTERS: # . P* A1 -A12 # J P* # ^ P* OUT: # h P* A5 = FDB ADDR INDEX # x P* A10,A11 = UNCHANGED # P* # PCRNUPD EQU * # P STR A12,A14 # P SUKL A14,2 # $ P LD A12,FD
0x136b18…136cac Dummy {f00=0x00fa, f01=0x0190, f02=»F(Z) CRU900 END OF LINK # P LC A7,FDBECB+1,A5 FILE CODE $ P CC A7,CRNCIF,A12 $ D P RB(NE) CRU100 WRONG FC $ ^ P CC A10,CRNCIF+1,A12 $ ~ P RB(G) CRU100 $ P RF(L) CRU200 $ P CW A11,CRNCIF+2,A12 $ P RB(G) CRU100 $ PCRU200 EQU * $
0x136cac…136e40 Dummy {f00=0x00fa, f01=0x018e, f02=» * $ P* % P* UPDATE CRN % P* % * P LD A7,2,A14 ADD PARAM % 4 P LDR A6,A7 % R P RF(N) CRU230 -1 % d P LDK A6,0 % | PCRU230 EQU * % P ANKL A7,/7FFF % P LDK A1,0 % P LC A1,CRNCIF+1,A12 % P LD A2,CRNCIF+2,A12 % P CF A1
0x136e40…136fd4 (0, 394) Dummy {f00=0x00fb, f01=0x4028, f02=» % P RTN A14 & P END & @ & $
0x136fd4…137168 Dummy {f00=0x00fb, f01=0x2008, f02=» ' + t P INH , P CF A15,TENDIO , P ENB , 2 P* , > P* EXIT , H P* , X P LKM , b P DATA 3 , n P* , ~ P END , @ , RD ADDR A2:=EA BIT + & P C1R A2,A2 ONE COMPLEMENT BIT MASK + P ANRS A2,A3 SET OFF EA BIT + P* +
0x137168…1372fc Dummy {f00=0x00fb, f01=0x0190, f02=»TASSPW DATA 0 TTAB ADDRESS DMTASK $ PTASFDD DATA 0 FDB ADDR DATA FILE * ( PTASTBE DATA 0 TTAB/SCTCDT ENTRY ADDR R 2 PTASLFD DATA 0,0 LOCKED FLEXDISC FILE CODES =1 ~ P DATA 0,0 P DATA 0,0 " PTASS14 EQU *-2 TASS A14 STACK P* P
0x1372fc…137490 Dummy {f00=0x00fb, f01=0x0190, f02=» * P************** P* , P* ENTRY TASCAQ CHECK ASSIGN QUEUE * P* Z P* A7= RETURN CODE d P* * P* SET OFF USE BIT IN TASBLK H P* IF TASQUE = 0 THEN RETURN ELSE QUEUE FIRST IN CHAIN AND 2 P
0x137490…137624 Dummy {f00=0x00fb, f01=0x0190, f02=»QUE P RF(Z) TASCEX EMPTY QUEUE " P LDR* A1,A5 GET NEXT IN CHAIN . , P ST A1,TASQUE AND PUT IT FIRST IN QUEUE T P LDKL A1,-4 ( P ADS A1,TTB:SA,A5 UPD DISPATCH ADDR P CF A15,QTJOB NEXT ASSIGN P RF TASC05 & PTASCEX CM TASQUE
0x137624…1377b8 Dummy {f00=0x00fb, f01=0x0190, f02=» CODE IN SAVED A7 r P RTN A14 P EJECT * 8 P****DESCRIPTION************************************* 8 P* t : P* VOLCHE WILL COMPARE EACH VOLUME NAME IN ASBLK WITH ~ & P* VOLUME NAMES IN DWT FOR DISCS P* 8 P****ENTRY PARAMETERS****
0x1377b8…13794c Dummy {f00=0x00fb, f01=0x0190, f02=»S WANTED. v : P* 1 LOCK WANTED. ONLY FROM DMTASS FOR FLEXDISC P* P 8 P****EXIT PARAMETERS********************************* Z P* P* A1 = 0 OK P* 1 VOLUME UNKNOWN P* A5 = TTAB ADDR P* 8 P****USED REG
0x13794c…137ae0 Dummy {f00=0x00fb, f01=0x0190, f02=»************** h PVOLCHE EQU * P CM TASLFD =1 * $ P CM TASLFD+2 LOCKED FLEXDISCS =1 @ P SLL A2,1 h P SUK A2,2 z P ST A2,TASCVO INIT. TASCVO P LDR A4,A8 2 P ADK A4,10 POINTER TO FIRST VOL NAME IN ASBLK PTAS110 EQU * 2
0x137ae0…137c74 (0, 395) Opaque[0x194]
0x137c74…137e08 # DirEnt {nam=»ADDMOD«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x1f68, f03=0x0000}
0x137c74…137e08 IdxSect {
0x137c74…137e08 f00 = 0x00fb // 0x137c74 @0x0
0x137c74…137e08 f01 = 0x0004 // 0x137c76 @0x2
0x137c74…137e08 gno = [ // 0x137c78 @0x4
0x137c74…137e08 [0x00]: C0x00fb.0x1.0
0x137c74…137e08 [0x01]: C0x00fb.0x3.0
0x137c74…137e08 ]
0x137c74…137e08 }
0x137e08…137f9c Dummy {f00=0x00fb, f01=0x0190, f02=» 2 P IDENT ADDMOD REL 9.2 79-11-16 870105040920 P : P* =1 RETURN CONDITION B P* b 8 P**************************************************** l P* $ P* PHILIPS TERMINAL SYSTEM PTS P* P* TOSS DATA MANAGEMENT P*
0x137f9c…138130 Dummy {f00=0x00fb, f01=0x0190, f02=»CTION ON THE ALPHA ^ P* COMPUTER P*CALLING SEQUENCE: , $ P* A1-A2 = ARG1 F $ P* AG-A7 = ARG2 n P* CF A14,ADDMOD & P*RETURN : RESULT IN A1-A2 4 P* CAUTION REGISTERS A3,A4,A6,A7 A
0x138130…1382c4 Dummy {f00=0x00fb, f01=0x0190, f02=»NDITIONAL ASSEMBLY P* . P***************************************** $ P* V 6 P* A PROGRAM VERSION USING THE EXTENDED INSTRUCTION ` . P* SET IS OBTAINED BY SETTING CPU852 EQU 0. P* PCPU852 EQU 0 P* P EJECT PADDMOD
0x1382c4…138458 Dummy {f00=0x00fb, f01=0x0190, f02=».L A7,/7FFF P ANK.L A2,/7FFF P ADR A2,A7 8 P RF(3) OVER1 X 0 PNOVER ADR A1,A6 * NO OVERFLOW x P RF(1) END1 P RF(2) END2 P RF(3) END3 PNO
0x138458…1385ec Dummy {f00=0x00fb, f01=0x018e, f02=» A1,1 P RF(3) OVER3 P RB(7) NOVER 0 POVER3 ADR A1,A6 P P RF(2) END3 p P ADK A1,0 P RF(1) END1 P RB(7) NOVER1 P XIF =1 P IFT CPU852=
0x1385ec…138780 Dummy {f00=0x00fb, f01=0x4184, f02=» t PEND2 ADK A3,/80 PEND1 ADK A3,/80 * B PEND0 SLL A3,1 ********************************** L P ANK.L A3,/0300 P LDK.L A4,/FCFF P AN.S A4,2,A14 B P OR.S
0x138780…138914 (0, 396) Dummy {f00=0x00fb, 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
0x138914…138aa8 Dummy {f00=0x00fb, f01=0x0190, f02=»* & P* ' > P* FIND A FREE ENTRY IN TTAB/CD:TAB (FC AND DWTADR = 0 ) ' P* ' V PTAS180 EQU * ' ` P LDK A1,0 ' t P LDR A10,A10 TC ' P RF(Z) TAS185 GLOBAL ASSIGN ' P LD A2,TASTTA TTAB ADDR ' P LDR A4,A2 ' P LD A2,TTB:TD,A4 '
0x138aa8…138c3c Dummy {f00=0x00fb, f01=0x0190, f02=»UK A2,4 ' ( P RF(L) TASSE2 NO FREE ENTRY IN TABLE ( P LDR A9,A4 ( < P ADR A9,A2 ( N P CCR A1,A9 FILE CODE ( ` " P RB(NE) TAS190 FC NOT EQUAL 0 ( | P CW A1,1,A9 ( & P RB(NE) TAS190 DWTADR NOT EQUAL 0 ( P LDR* A1,A8 ASBLK 1ST WORD ( P RF(N)
0x138c3c…138dd0 Dummy {f00=0x00fb, f01=0x0190, f02=»Y ( f P ST A9,TASTBE SAVE ENTRY ) P* ) * 0 P* GET FIRST VOLUME AND ACTIVATE ITS DMTASK ) 4 P* ) h P LD A1,TASCVO ) r P LDK A7,0 ) P LC A7,TASVOL,A1 ) P ADKL A7,'#D' TID DMTASK ) P CF A15,FNDTID ) " P LDR A5,A2 TTAB ADDRESS DMTASK )
0x138dd0…138f64 Dummy {f00=0x00fb, f01=0x0190, f02=»RY ) | P LDK A7,4 VOL UNKNOWN * P RF TASSEM * ( PTAS200 EQU * * : P LDK A2,2 * N 4 P ST A2,TASFIL MASTER INDEX LOOP IDENT IN DMTSAK * ` & P LDKL A2,DMTASS ASSIGN INDEX ENTRY * P LDR* A6,A8 * P RF(N) TAS210 INDEX ASSIGN * P CM TASFIL *
0x138f64…1390f8 Dummy {f00=0x00fb, f01=0x4182, f02=»F A15,ACTOT ACTIVATE DMTASK * P ABL TDISP GO TO DISPATCHER + $ P EJECT + H P* + V P* ERROR RETURNS + ` P* + z PTASSE5 ADK A7,1 + PTASSE4 ADK A7,1 + PTASSE3 ADK A7,1 + PTASSE2 ADK A7,1 + PTASSE1 ADK A7,1 + P ADK A7,1 +
0x1390f8…13928c Dummy {f00=0x00fb, f01=0x2008, f02=» ,
0x13928c…139420 Dummy {f00=0x00fb, f01=0x0190, f02=»****************************************** T 6 P* * U 2 6 P* RDBLK - READ ONE CASSETTE BLOCK * U l 6 P* =============================== * U 6 P*
0x139420…1395b4 (0, 397) Opaque[0x194]
0x1395b4…139748 # DirEnt {nam=»DSUMOD«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x1f80, f03=0x0000}
0x1395b4…139748 IdxSect {
0x1395b4…139748 f00 = 0x00fc // 0x1395b4 @0x0
0x1395b4…139748 f01 = 0x0004 // 0x1395b6 @0x2
0x1395b4…139748 gno = [ // 0x1395b8 @0x4
0x1395b4…139748 [0x00]: C0x00fc.0x0.0
0x1395b4…139748 [0x01]: C0x00fd.0x2.0
0x1395b4…139748 ]
0x1395b4…139748 }
0x139748…1398dc Dummy {f00=0x00fc, f01=0x0190, f02=» 2 P IDENT DSUMOD REL 9.2 79-11-16 870105040920 P : P* =1 RETURN CONDITION B P* b 8 P**************************************************** l P* $ P* PHILIPS TERMINAL SYSTEM PTS P* P* TOSS DATA MANAGEMENT P*
0x1398dc…139a70 Dummy {f00=0x00fc, f01=0x0190, f02=»STRUCTION ON THE ALPHA ^ P*COMPUTER P*CALLING SEQUENCE 0 $ P* A1-A2 = ARG1 J $ P* A6-A7 = ARG2 r P* CF A14,DSUMOD & P*RETURN: RESULT IN A1-A2 4 P* CAUTION REGISTERS A3,A4,A6,A
0x139a70…139c04 Dummy {f00=0x00fc, f01=0x0190, f02=»* CONDITIONAL ASSEMBLY P* . P***************************************** ( P* Z 6 P* A PROGRAM VERSION USING THE EXTENDED INSTRUCTION d . P* SET IS OBTAINED BY SETTING CPU852 EQU 0. P* PCPU852 EQU 0 P* P EJECT PDS
0x139c04…139d98 Dummy {f00=0x00fc, f01=0x0190, f02=» C1R A6,A6 P C1R A7,A7 P ANK.L A7,X'7FFF' 8 P ANK.L A2,/7FFF P ADK A7,1 ~ P RF(1) NOVER1 P ADK A6,1 P RF(3) OVER4 P RF(7)
0x139d98…139f2c Dummy {f00=0x00fc, f01=0x0190, f02=» z P RF(2) END2 P RF(3) END3 & P ADK A2,0 D P RF(0) END0 b P RF(7) END1 POVER1 ANK.L A2,X'7FFF' P ADK A1,1 P RF(3) OVER4 P
0x139f2c…13a0c0 Dummy {f00=0x00fc, f01=0x0190, f02=»VER2 | P XIF =1 P IFT CPU852=0 6813 =1 P RF(0) END0 =1 < P RF(1) END1 =1 T P RF(2) END2 =1 l P XIF =1 PEND3 ADK A3,/80 PEND2 ADK A3,/80 PEND1 ADK A3,/80 F PEND0 SLL
0x13a0c0…13a254 (0, 398) Dummy {f00=0x00fd, f01=0x40a8, f02=» AN.S A4,2,A14 B P OR.S A3,2,A14 UPDATE CR IN PSW CALLING PROGRAM P* =1 b P RTN A14 r P END @
0x13a254…13a3e8 Dummy {f00=0x00fd, f01=0x2008, f02=» ,0 P RB(7) NOVER2 PEND3 ADK A3,/80 6 PEND2 ADK A3,/80 X PEND1 ADK A3,/80 z PEND0 SLL1 A3 P ANK.L A3,/0300 P LDK.L A4,/FCFF P A
0x13a3e8…13a57c Dummy {f00=0x00fd, f01=0x0190, f02=» 0 P IDENT DMFDB REL 9.2 79-11-16 870105040920 P 8 P @ P* H P* R 8 P**************************************************** P* $ P* PHILIPS TERMINAL SYSTEM PTS P* , P* DMFDB = FILE DESCRIPTOR BLOCKS FDB P*
0x13a57c…13a710 Dummy {f00=0x00fd, f01=0x0190, f02=»TE FDB AREA H P* BY MEANS OF CONDITIONAL ASSEMBLY QFDBAR WORDS WILL BE ALLOCATED P* ` P ENTRY FDBSTA j P ENTRY FDBEND P ENTRY QFDBFL P ENTRY CRNQUE,CRBUFL P ENTRY CRNEND P ENTRY MXIND P EJECT P* 6
0x13a710…13a8a4 Dummy {f00=0x00fd, f01=0x0190, f02=»A r " PCRBUFL EQU 12 SIZE CRN BUFFER P* 0 < P* CRNBAR IS THE SIZE OF THE CRN BUFFER ARERA IN WORDS : 4 P* WHERE CRBUFL BYTES ARE USED FOR EACH BUFFER z P* PX:B EQU 50 PCRNBAR EQU X:B CURRENCY AREA P* P* PX:
0x13a8a4…13aa38 Dummy {f00=0x00fd, f01=0x0190, f02=»* PQFDBAR EQU X:A P* PX:D EQU 96 * & PQFDBFL EQU X:D FDB FIX PART LENGTH < P* f P EJECT p P* ~ PFDBSTA EQU * P RES QFDBAR PFDBEND EQU * PCRNQUE DATA 0 CRN LINK ROOT P RES CRNBAR PCRNEND EQU *
0x13aa38…13abcc Dummy {f00=0x00fd, f01=0x4102, f02=»IZ=0 * P DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0 * P DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0 : P XIF h PMXINDE EQU * END INDEX INDEX t 2 P DATA 0,0 SIGNIFICANT ZEROES AFTER INDEXINDEX PMXAR EQU * P RES MXSIZ P END @ EQU *
0x13abcc…13ad60 Dummy {f00=0x00fd, f01=0x2008, f02=» PFDBSTA EQU * P RES QFDBAR PFDBEND EQU * 2 P END F@ R OF CONDITIONAL ASSEMBLY QFDBAR WORDS WILL BE ALLOCATED J P* P ENTRY FDBLEN P ENTRY FDBSTA P ENTRY FDBEND P ENTRY QFDBFL P* P*
0x13ad60…13aef4 (0, 399) Opaque[0x194]
0x13aef4…13b088 # DirEnt {nam=»MPYMOD«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x1fb8, f03=0x0000}
0x13aef4…13b088 IdxSect {
0x13aef4…13b088 f00 = 0x00fd // 0x13aef4 @0x0
0x13aef4…13b088 f01 = 0x0004 // 0x13aef6 @0x2
0x13aef4…13b088 gno = [ // 0x13aef8 @0x4
0x13aef4…13b088 [0x00]: C0x00fd.0x3.0
0x13aef4…13b088 [0x01]: C0x00fe.0x1.0
0x13aef4…13b088 ]
0x13aef4…13b088 }
0x13b088…13b21c Dummy {f00=0x00fd, f01=0x0190, f02=» 2 P IDENT MPYMOD REL 9.2 79-11-16 870105040920 P : P* =1 RETURN CONDITIONS B P* b 8 P**************************************************** l P* $ P* PHILIPS TERMINAL SYSTEM PTS P* P* TOSS DATA MANAGEMENT P*
0x13b21c…13b3b0 Dummy {f00=0x00fd, f01=0x0190, f02=»N THE ALPLA COMPUTER ^ P* CALLING SEQUENCE: ( P* LD A6,ARG1 8 ( P* LD A7,ARG1 d P* CF A14,MPYMOD ( P* RETURN : RESULT IN A1,A2 0 P* REGISTERS A3,A4,A6,A7, ARE CRU
0x13b3b0…13b544 Dummy {f00=0x00fd, f01=0x0190, f02=»L ASSEMBLY P* . P***************************************** P* N 6 P* A PROGRAM VERSION USING THE EXTENDED INSTRUCTION X . P* SET IS OBTAINED BY SETTING CPU852 EQU 0. P* PCPU852 EQU 0 P* P EJECT PMPYMOD EQU *
0x13b544…13b6d8 Dummy {f00=0x00fd, f01=0x0190, f02=»A3,/8000 IF A6=A7=/8000 RETURN IN ERROR EXIT ~ P CWR A3,A6 8 P RF(4) SUITE X P CWR A3,A7 x P RF(0) END3 < P LDR A6,A7 * A6= X'8000' A7# X'8000' 4 P LDR
0x13b6d8…13b86c Dummy {f00=0x00fd, f01=0x0190, f02=»A3,0 ~ P LDK A4,15 P ADK A6,0 , P RF(0) END0 J P RF(6) ARG1PS h 0 P ADK A3,1 *ARG1 NEGATIVE P C1R A6,A6 P ADK A6,1 PARG1PS ADK
0x13b86c…13ba00 Dummy {f00=0x00fd, f01=0x0190, f02=» C1R A7,A7 P ADK A7,1 P RF(3) CASSPE 8 PARG2PS SRC A7,1 X P RF(6) NOVER1 v P ADR A1,A6 PNOVER1 SRA A2,1 P SRC A1,1 P RF(6) NOVE
0x13ba00…13bb94 (0, 400) Dummy {f00=0x00fe, f01=0x0190, f02=» 4 PNOVER3 ADK A3,0 *END* RESTORE SI=N P RF(0) END1 < P C1R A1,A1 Z P C1R A2,A2 z P ADK A2,1 D P*CAUTION THE NEXT INSTRUCTION IS ABSOLUTELY NECESSARY TO SET CR < P* WHEN T
0x13bb94…13bd28 Dummy {f00=0x00fe, f01=0x0190, f02=»A1,1 ~ PNOVER4 ANK.L A2,/7FFF P RF(7) END2 . P XIF =1 L P IFT CPU852=0 6813 =1 ^ P RF(0) END0 =1 | P RF(1) END1 =1 P RF(2) END2 =1 P XIF =1 PEND3 ADK A3,/81 PEND2 ADK
0x13bd28…13bebc Dummy {f00=0x00fe, f01=0x4168, f02=» v P AN.S A4,2,A14 B P OR.S A3,2,A14 UPDATE CR IN PSW CALLING PROGRAM * P* =1 p P RTN A14 P IFT CPU852=1 : PCASSPE LDR A1,A6 *A7=X'8000' THEN A4= 1 . P*
0x13bebc…13c050 Dummy {f00=0x00fe, f01=0x2008, f02=» 4 : PCASSPE LDR A1,A6 *A7=X'8000' THEN A4= 1 . P* *AND A1= A6 P P RB(7) NOVER3 P END @
0x13c050…13c1e4 Dummy {f00=0x00fe, f01=0x0190, f02=»DBRLE,FDBSNR,ECBCW l . P EXTRN FDBRRO,FDBCEX,FDBBLF,EXTBAS,BUFSNR . P EXTRN FDBLRN,FDBMRO,FDBCRL,FDBADF,CRNCIF L 4 P EXTRN DMTIOT,GTLGRN,GTBKBU,ADDMOD,CALSNO,DMTRBU ~ P EXTRN DMTIOZ P EJECT 8 P****DESCRIPTION*******************************
0x13c1e4…13c378 Dummy {f00=0x00fe, f01=0x0190, f02=»1 ALG. U. ` 4 P* THE SEARCH KEY MAY BE TERMINATED WITH A /EE. 0 P* THE FIRST TWO WORDS IN MASTER INDEX IS : J P* - NO OF ENTRIES N ~ $ P* - NO OF CHARACTERS PER ENTRY P* 8 P****ENTRY PARAMETERS********************************
0x13c378…13c50c Dummy {f00=0x00fe, f01=0x0190, f02=»CF A14,FNDKMX P* 8 P****EXIT PARAMETERS********************************* " P* ^ 0 P* A1,A2 = LODGICAL RECORD NO IN INDEX FILE h P* A8,A11= UNCHANGED P* 8 P****USED REGISTERS********************************** P*
0x13c50c…13c6a0 Dummy {f00=0x00fe, f01=0x0190, f02=»9,A2 P ANKL A9,/1 GET BIT 15 P SRA A2,1 * P LDR A10,A2 M=N/2 FLOOR < P ADR A9,A2 I=N/2 CEILING P ADK A5,2 TABLE BASE - 2 | PFND020 EQU * P LDK A2,0 P LDR* A7,A5 ENTRY LENGTH P LDR A6,A9 I P SUK A6,1 $ P
0x13c6a0…13c834 (0, 401) Opaque[0x194]
0x13c834…13c9c8 # DirEnt {nam=»DIVMOD«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x1fd0, f03=0x0000}
0x13c834…13c9c8 IdxSect {
0x13c834…13c9c8 f00 = 0x00fe // 0x13c834 @0x0
0x13c834…13c9c8 f01 = 0x0004 // 0x13c836 @0x2
0x13c834…13c9c8 gno = [ // 0x13c838 @0x4
0x13c834…13c9c8 [0x00]: C0x00fe.0x2.0
0x13c834…13c9c8 [0x01]: C0x00ff.0x0.0
0x13c834…13c9c8 ]
0x13c834…13c9c8 }
0x13c9c8…13cb5c Dummy {f00=0x00fe, f01=0x0190, f02=» 2 P IDENT DIVMOD REL 9.2 79-11-16 870105040920 P : P* =1 RET COND B P* Z 8 P**************************************************** d P* $ P* PHILIPS TERMINAL SYSTEM PTS P* P* TOSS DATA MANAGEMENT P* P*
0x13cb5c…13ccf0 Dummy {f00=0x00fe, f01=0x018e, f02=»A COMPUTER V P* CALLING SEQUENCE & P* A1-A2= DIVIDEND , $ P* A6 = DIVISOR V P* CF A14,DIVMOD ~ B P*RETURN* RESUT IN A1-A2 ; A1= REMAINDER;A2= QUOTIENT 6 P* CAUTION : REGISTERS A3,A4,A6,A
0x13ccf0…13ce84 Dummy {f00=0x00fe, f01=0x0190, f02=» P* CONDITIONAL ASSEMBLY P* " . P***************************************** , P* ^ 6 P* A PROGRAM VERSION USING THE EXTENDED INSTRUCTION h . P* SET IS OBTAINED BY SETTING CPU852 EQU 0. P* PCPU852 EQU 0 P* P EJECT
0x13ce84…13d018 Dummy {f00=0x00fe, f01=0x0190, f02=»,A1 SAVE DIVIDEND SIGN | P* =1 $ P ADK A6,0 4 @ P RF(0) END3 * IF DIVISOR IS NULL, OVREFLOW R P ADK A1,0 P RF(4) SIGNE P ANK.L A2,/7FFF @ P RF(0)
0x13d018…13d1ac Dummy {f00=0x00fe, f01=0x018e, f02=» P LDK A4,16 4 P ADK A1,0 *SIGN OF DIVIDEND $ P RF(6) DIVENP 8 P ADK A3,1 * DIVIDEND IS NEGATIVE | P C1R A1,A1 P C1R A2,A2 P ANK.L
0x13d1ac…13d340 Dummy {f00=0x00fe, f01=0x018e, f02=» x 2 PDIVENP ADK A6,0 *SIGN OF DIVISOR P RF(6) DIVORP > 4 P SUK A3,1 *NEGATIVE DIVISOR ^ P C1R A6,A6 P ADK A6,1 < P ADK A6,0 RESET IF OVER
0x13d340…13d4d4 (0, 402) Dummy {f00=0x00ff, f01=0x0190, f02=» 2 PSHIFT SUK A4,1 *A1 LESS THAN A6 P RF(0) END : P SLL A1,1 X P SLL A7,1 v P SLL A2,1 P RF(6) *+4 P ADK A1,1 P ADK A1,0
0x13d4d4…13d668 Dummy {f00=0x00ff, f01=0x0190, f02=» ADK A7,1 P RB(7) SHIFT 4 P*THIS SEQUENCE RESTORES THE SIGN OF THE RESULTS : PEND LDR A2,A7 r P ADK A3,0 P RF(0) NOSIGN 8 P RF(2) AA DIVIDEND +. DIVISOR +
0x13d668…13d7fc Dummy {f00=0x00ff, f01=0x018e, f02=» ADK A2,1 D P*CAUTION THE NEXT INSTRUCTION IS ABSOLUTELY NECESSARY TO SET CR > P* WHEN THE ADK A2,1 SET AN OVERFLOW CR EX (QUOTIENT=8000) ` P ADK A2,0 P XIF =1 P IFT CPU852=0 6813 =1 P RF(1) END1 =1 P
0x13d7fc…13d990 Dummy {f00=0x00ff, f01=0x0190, f02=» v PEND1 ADK A3,/81 B PEND0 SLL A3,1 ********************************** ( P ANK.L A3,/0300 n P LDK.L A4,/FCFF P AN.S A4,2,A14 B P OR.S A3,2,A14 UPDATE CR IN PSW CALLI
0x13d990…13db24 Dummy {f00=0x00ff, f01=0x0190, f02=»N ^ P RF(6) BB 6 P C1R A1,A1 DIVIDEND- .DIVISOR - & . P ADK A1,1 REMAINDER - ` PBB ADK A2,0 P RB(0) END0 P RB(2) END2 P RB(7) END1
0x13db24…13dcb8 Dummy {f00=0x00ff, f01=0x4056, f02=» LDK A1,0 P RB(7) END P XIF 2 P END >@ R - & . P ADK A1,1 REMAINDER - ` PBB ADK A2,0 P RB(0) END0 P RB(2) END2 P RB(7) END1
0x13dcb8…13de4c Dummy {f00=0x00ff, f01=0x2008, f02=» A2,0 P RB(0) END0 P RB(2) END2 2 P RB(7) END1 P PCASSPE LDR A7,A1 n P LDR A1,A2 P CWK A1,/8000 P RB(4) END P LDK A1,0 P
0x13de4c…13dfe0 Dummy {f00=0x00ff, f01=0x018e, f02=»ECORD v P RF FKY150 P LDR A1,A5 RET CODE P RF FKY900 ERROR EXIT < P* Z " P* BUFFER AND ADATA IS FOUND d P* PFKY150 EQU * P LDR A9,A3 BUFFER ADDR P ADR A2,A3 BUFFER ADR P ADK A2,10 REC ADDR P LDR A10
0x13dfe0…13e174 (0, 403) Opaque[0x194]
0x13e174…13e308 # DirEnt {nam=»DMSUBR«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x1fe8, f03=0x0000}
0x13e174…13e308 IdxSect {
0x13e174…13e308 f00 = 0x00ff // 0x13e174 @0x0
0x13e174…13e308 f01 = 0x0012 // 0x13e176 @0x2
0x13e174…13e308 gno = [ // 0x13e178 @0x4
0x13e174…13e308 [0x00]: C0x00ff.0x1.0
0x13e174…13e308 [0x01]: C0x00ff.0x3.0
0x13e174…13e308 [0x02]: C0x0100.0x0.0
0x13e174…13e308 [0x03]: C0x0100.0x1.0
0x13e174…13e308 [0x04]: C0x0100.0x2.0
0x13e174…13e308 [0x05]: C0x0100.0x3.0
0x13e174…13e308 [0x06]: C0x0101.0x0.0
0x13e174…13e308 [0x07]: C0x0101.0x1.0
0x13e174…13e308 [0x08]: C0x0101.0x2.0
0x13e174…13e308 ]
0x13e174…13e308 }
0x13e308…13e49c Dummy {f00=0x00ff, f01=0x0190, f02=» 2 P IDENT DMSUBR REL 9.2 79-11-16 870105040920 P : P =1 CLEAR ECB B P REL 9.1 79-04-06 Z P* v 8 P**************************************************** P* $ P* PHILIPS TERMINAL SYSTEM PTS P* $ P* DMSUBR = COM
0x13e49c…13e630 Dummy {f00=0x00ff, f01=0x0190, f02=» 8 P****THIS MODULE IS ACTIVATED FROM :***************** P* D P* DMTASK,TIODM,DMTASS N P* n P*************** x P* ENTRIES * P*************** P* P* & P ENTRY EATEST,EASETB,EARELB,CRNGET P ENTRY CAL
0x13e630…13e7c4 Dummy {f00=0x00ff, f01=0x0190, f02=»USER TO SYSTEM AREA x 0 P ENTRY MOV:SU MOVE FROM SYSTEM TO USER AREA P* P P***************** Z P* EXTERNALS * t P***************** P* P* 4 P EXTRN FDBEAL,FDBTNR,FDBCRL,FDBRLE,FDBSNR,FDBRRO P EXTRN FDBCEX,FDBBLF
0x13e7c4…13e958 Dummy {f00=0x00ff, f01=0x0190, f02=»D | P EXTRN DWTTDM,DWTTQ P EXTRN QTJOB & P EXTRN ECBRL,SECTLE : P EXTRN DIVMOD,MPYMOD V P EXTRN EXTELE r P EXTRN CRNTID P EXTRN DMTGBU P EXTRN EXTLEN,EXTBAS P EXTRN CRNQUE,GETBLK,FREQUE P EXTRN HALT P
0x13e958…13eaec Dummy {f00=0x00ff, f01=0x0190, f02=»UTINE t P EJECT DMSUBR TOSSIO P* . P* 8 . P***************************************** B P* t P* CONDITIONAL ASSEMBLY ~ P* . P***************************************** P* . P* A PROGRAM VERSION USING TOSS MMU PAG
0x13eaec…13ec80 Dummy {f00=0x00ff, f01=0x0190, f02=»CHKIND IS USED FROM FNDDWT TO SELECT DM-DWT 2 P* INDEX FILE (INDEX 0) SHALL BE SELECTED FOR 4 ( P* DX,IX,XR,XN, DATA FILE OTHERWISE j P* PCHKIND EQU * P STR A1,A15 P STR A2,A15 " P LDK A2,1 INDEX FOR DATA FILE P LDR A
0x13ec80…13ee14 (0, 404) Dummy {f00=0x00ff, f01=0x0190, f02=»AD x P ANK A1,/3E REMOVE BIT 15 P SUK A1,/1E , 4 P RF(E) FND320 INSERT INDEX OR INDEXED READ NEXT @ P RF FND340 x ( PFND320 LDK A2,0 INDEX FOR INDEX FILE PFND340 EQU * P CCR A2,A6 INDEX P RF(E) FND390 ENTRY FOUND P LDK
0x13ee14…13efa8 Dummy {f00=0x00ff, f01=0x0190, f02=»ED IN TENDIO TO RESET REQUEST BUSY BIT P* FOR ALL FILES . " P* AND TO RESOLVE ALL QUEUES H P* n PREQEND EQU * x P LC A2,TTB:ID,A5 GET TASK ID P CCK A2,'##' ( P RF(E) TEN117 JUMP IF DMTASK CALLING P* , P* RESET REQU
0x13efa8…13f13c Dummy {f00=0x00ff, f01=0x0190, f02=»QU * P SUK A2,2 P RF(N) TEN115 NO MORE FILES P LDR A3,A6 B P ADR A3,A2 T P LD A3,FDBADF,A3 FDB ADDR f P RB(Z) TEN112 P CWR A3,A6 DWT ADDR P RF(E) TEN114 MASTER DWT P LD A5,DWTTQ,A3 P RF(Z) TEN113 NO QUEUE
0x13f13c…13f2d0 Dummy {f00=0x00ff, f01=0x0190, f02=»TEN114 EQU * $ P LDKL A4,/BFFF REQUEST BUSY BIT P ANS A4,DWTST,A3 RESET < P LDKL A4,/8000 Z $ P ORS A4,DWTST,A3 DEVICE NOT BUSY r P RB TEN112 PTEN115 EQU * P LDR* A4,A15 RESTORE A4 P* PTEN117 EQU * P ABL IHRTN
0x13f2d0…13f464 Dummy {f00=0x00ff, f01=0x0190, f02=» FOR A LOG RECORD NO. n P* 8 P****ENTRY PARAMETERS******************************** ( P* d P* A1 = FDB ADRESS n P* A2,A3 = LOG RECORD NO P* P* CF A14,EATEST P* 8 P****EXIT PARAMETERS*************************
0x13f464…13f5f8 Dummy {f00=0x00ff, f01=0x018e, f02=»* = -1 EA FOUND FO R OTHER TASK P* . 8 P****USED REGISTERS********************************** 8 P* t P* A1 - A4 ~ P EJECT DMSUBR PEATEST EQU * " P LD A4,FDBEAL,A1 BUFFER QUEUE P RF EAT030 PEAT020 EQU *
0x13f5f8…13f78c Dummy {f00=0x00ff, f01=0x018e, f02=» P* P CC A2,3,A4 FIRST CHAR P RB(NE) EAT020 , P CW A3,4,A4 2 AND 3 CHAR B P RB(NE) EAT020 b P* x P* RECORD NO FOUND P* P LC A4,2,A4 P CC A4,FDBTNR,A1 TASK ID P RF(E) EAT060 P LDKL A4,-1 EA OTHER T
0x13f78c…13f920 Dummy {f00=0x00ff, f01=0x0190, f02=» ~ 8 P****DESCRIPTION************************************* P* D B P* EASETB WILL UNCONDITIONALLY PUT A NEW EA BUFFER IN EA-LINK N L P* IF NO BUFFERS ARE AVAILABLE THE SYSTEM WILL HALT AND LITE SOP-LAMPS P* 8 P****ENTRY PARAMETERS******
0x13f920…13fab4 (0, 405) Dummy {f00=0x0100, f01=0x018e, f02=»B ~ P* 8 P****EXIT PARAMETERS********************************* P* P P* A6 = FDB ADDR Z P* t 8 P****USED REGISTERS********************************** ~ P* P* A1-A4,A6 P* < P**************************************
0x13fab4…13fc48 Dummy {f00=0x0100, f01=0x0190, f02=» P LDR A1,A3 LOG REC NO P INH " , P CF A15,GETBLK GET BUFF AND STORE A1,A2 . P* ^ P* LINK BUFFER TO FDB h P* P LD A2,FDBEAL,A6 LINK ROOT P STR A2,A4 THREAD P ST A4,FDBEAL,A6 NEW ROOT P RTN A14 P EJECT D
0x13fc48…13fddc Dummy {f00=0x0100, f01=0x0190, f02=» P* TIO THE FREE LINK. P* & 8 P****ENTRY PARAMETERS******************************** 0 P* l P* A1 = FDB-ADDRESS v " P* A2,A3 = LOGICAL RECORD NO B P* A2: BIT 0=1,BIT 1=1 ALL BUFFERS WITH TASK ID SAME AS FDB ( P*
0x13fddc…13ff70 Dummy {f00=0x0100, f01=0x0190, f02=»FER WITH TASK ID AND LOG REC NO j 0 P* AS SPEC IS REMOVED. ( P* 8 P****EXIT PARAMETERS********************************* f P* P* A1 = UNCHANGED P* 8 P****USED REGISTERS**********************************
0x13ff70…140104 Dummy {f00=0x0100, f01=0x0190, f02=»,A5 EA ROOT P RF EAR030 PEAR020 EQU * & P LDR A5,A4 SAVE OLD ROOT : P LDR* A4,A4 NEXT BUFFER ADR Z PEAR030 EQU * ~ P RF(Z) EAR100 EA LINK END P LDR A2,A2 REC NO & P RF(N) EAR050 RELEASE MANY BUFFERS P* P* SE
0x140104…140298 Dummy {f00=0x0100, f01=0x018e, f02=»EAR050 EQU * P CWK A2,/A000 CHECK BIT 1 0 P RF(L) EAR080 BIT 1 ZERO,ALL BUFFERS REMOVED 6 PEAR060 EQU * j P* ~ P* SEARCH TASK IDENT P* P LC A3,FDBTNR,A1 TAK ID P CC A3,2,A4 P RB(NE) EAR020 P* P*
0x140298…14042c Dummy {f00=0x0100, f01=0x0190, f02=» P* RETURN BUFFER TO POOL P* & P INH 0 P LD A3,FREQUE < P STR A3,A4 NEXT FREE R P ST A4,FREQUE NEW ROOT n P LDR A4,A5 BUFFER ROOT P LDR A2,A2 P RB(N) EAR020 RELEASE MORE PEAR100 EQU * P RTN A14 P EJECT
0x14042c…1405c0 Dummy {f00=0x0100, f01=0x0190, f02=» IF NO BUFFER IS ` D P* FOUND A NEW IS FETCHED FROM THE FREE LINK AND B FILLED WITH H P* ZEROES AND PUT ON THE CRN LINK. IF NO FREE BUFFERS ARE AVAILABLE ` 0 P* THE SYSTEM WILL HALT AND LITE SOP-LAMPS. ( P* TASK ID IS PLACED IN THE BUFFER
0x1405c0…140754 (0, 406) Dummy {f00=0x0100, f01=0x0190, f02=»EXIT PARAMETERS********************************* P* 8 P* A1 = UNCHANGED B ( P* A2 = ADDRESS OF FOUND CRN-BUFFER P* 8 P****USED REGISTERS********************************** P* P* A1 - A4 P EJECT DMSUBR PCRNG
0x140754…1408e8 Dummy {f00=0x0100, f01=0x0190, f02=» P RF(Z) CRN100 LINK END P* " P* CHECK ATASK IDENT , P* J P LC A3,FDBTNR,A1 TASK ID T P CC A3,CRNTID,A2 t P RB(NE) CRN020 OTHER TASK P RF CRN200 BUFFER FOUND P* P* GET NEW BUFFER P* PCRN100 EQU *
0x1408e8…140a7c Dummy {f00=0x0100, f01=0x018e, f02=»RS v PCRN120 EQU * P LDR* A3,A2 NEXT FREE P ST A3,CRNQUE UPD ROOT < P* Z P* FILL BUFFER WITH ZEROES d P* * P LDKL A3,CRBUFL BUFFER LENGTH IN BYTES PCRN140 EQU * P SUK A3,2 ZEROE WORDS 2 - N P RF(NP) CRN160 B
0x140a7c…140c10 Dummy {f00=0x0100, f01=0x0190, f02=» " P* CONNECT NEW BUFFER TO LINK P* . PCRN160 EQU * 8 P LC A3,FDBTNR,A1 L P SC A3,CRNTID,A2 TASK ID d P LD A3,FDBCRL,A1 LINK ROOT P STR A3,A2 THREAD P ST A2,FDBCRL,A1 NEW ROOT PCRN200 EQU * P RTN A14 P E
0x140c10…140da4 Dummy {f00=0x0100, f01=0x018e, f02=»TO d P* SECTOR AND OFFSET P* ( 8 P****ENTRY PARAMETERS******************************** 2 P* n " P* A1,A2 = LOGICAL RECORD NO x P* A6 = FDB ADDR P* P* CF A14,CALSNO P* 8 P****EXIT PARAMETERS*************
0x140da4…140f38 Dummy {f00=0x0100, f01=0x0190, f02=» P* A6 = UNCHANGED $ P* IN FDB : FDBSNR = SECTOR NR , P* FDBRRO = OFFSET IN SECTOR F * P* FDBCEX = CURRENT EXTENT v P* 8 P****USED REGISTERS********************************** P* P* A1 - A9 P
0x140f38…1410cc Dummy {f00=0x0100, f01=0x0190, f02=»DK A6,0 $ P LC A6,FDBBLF,A5 BLOCKING FACTOR , P CF A14,DIVMOD A2=A1,A2//A6,A1=REMAINDER 8 P RF(O) TIOD99 OVERFLOW h P LDR A3,A2 QUOTIENT P LDR A6,A5 FDB ADDR P LDR A2,A1 REMAINDER P RF(Z) TIOD30 REST = 0 $ P ADK A3,1 RECORD
0x1410cc…141260 Dummy {f00=0x0100, f01=0x018e, f02=» PTIOD40 EQU * P LDR A4,A6 & P ADKL A4,FDBEXT FIRST FILE EXTENT * , P LD A9,EXTLEN,A4 LENGTH OF FIRST EXTENT T P LDK A5,4 NUMBER OF EXTENTS PTIOD45 CWR A3,A9 ( P RF(NG) TIOD55 SECTOR IN THIS EXTENT P SUK A5,1 NO & P RF(NP)
0x141260…1413f4 (0, 407) Dummy {f00=0x0100, f01=0x0190, f02=» P* * P* SAVE CURRENT EXTENT BLOCK POINTER P* < PTIOD55 ST A4,FDBCEX,A6 F P* d * P* FIND LOGICAL SECTOR NUMBER ON DISC n P* 6 P SU A9,EXTLEN,A4 NO OF SECTORS IN PREVIOUS EXTENTS $ P SUR A3,A9 SECTOR NO WITHIN EXT P
0x1413f4…141588 Dummy {f00=0x0100, f01=0x0190, f02=»GICAL SECTOR NUMBER x 2 P* FIND RELATIVE RECORD OFFSET WITHIN SECTOR P* R P LDK A3,0 & PTIOD60 SUK A2,1 A2=RELATIVE REC NO n ( P RF(Z) TIOD65 REL REC OFFS IN A3 NOW * P AD A3,FDBRLE,A6 NO ADD RECORD LENGTH P ADK A3,1 SKIP STATUS
0x141588…14171c Dummy {f00=0x0100, f01=0x0190, f02=»RELATIVE REC OFFSET IN FBDRRO P* & PTIOD65 EQU * 0 P LDK A1,0 OK D P ST A3,FDBRRO,A6 X PTIODMF EQU * p P RTN A14 P EJECT DMSUBR P* P************** P* DMTIOT P************** P* > P* ENTRY
0x14171c…1418b0 Dummy {f00=0x0100, f01=0x0190, f02=»RESS x P* A1 = 0 WHEN OK ! $ P* = ERROR CODE ELSE ! . $ P* A9 = DM ECB ADDRESS ! V * P* A8 = PHYS I/O ECB ADDRESS ! ~ $ P* A2 WILL BE DESTROYED ! P* ! ( P* USED REGISTERS : A1,A2,A6,A8,A9 !
0x1418b0…141a44 Dummy {f00=0x0100, f01=0x0190, f02=»B ADDRESS ! z PDMTIT0 EQU * " P LD A1,ECBRC,A8 " & P RF(Z) DMTIOX DISC I/O OK " > P ANKL A1,/FEFF " ` $ P RF(NZ) DMTIT1 NOT ONLY RETRIES " v P LDKL A2,/100 " P ORS A2,ECBRC,A9 USER RC " P RF DMTIOX " PDMTIT1 EQU * " P LD A2,FDBDBR,
0x141a44…141bd8 Dummy {f00=0x0100, f01=0x0190, f02=» A2,8 BUFSTA " , P CM BUFDMI,A2 CLEAR VOL IDENT IN BUFFER # P LDK A1,/02 DISC IO ERROR # D " P LDKL A2,/FF7E NOT BIT 8 OR 15 # f P AN A2,ECBRC,A8 # P RF(NZ) DMTIOX # P LD A1,ECBRC,A8 BIT 8 OR 15 # PDMTIOX RTN A14 # P EJECT # P* #
0x141bd8…141d6c Dummy {f00=0x0100, f01=0x0190, f02=» P* A8 = ECB ADDR $ P* OUT: $ P* A1 = RET CODE $ . P* A2 = DESTROYED $ H P* A6 = FDB ADDR $ b P* A8 = ECB ADDR $ | P* A9 == USER ECB $ P* $ PDMTIOZ LDR A6,A1 $ P LD A2,DWTOR,A6 ORDER $ P ANK A2,/3F $ P CWK
0x141d6c…141f00 Dummy {f00=0x0100, f01=0x0190, f02=»DB DATA FILE $ ~ PDMTIZ1 EQU * % P LD A9,DWTECB,A1 USER ECB % ( P RB DMTIT0 % J P EJECT DMSUBR % 8 P****DESCRIPTION************************************* % t P* % 8 P* GTBKBU WILL GET A BLOCK BUFFER FOR DISC I/O AND % 2 P* PREPARE IT. EC
0x141f00…142094 (0, 408) Dummy {f00=0x0100, f01=0x0190, f02=» % | , P* FDB-CEX,ECB,SNR,RRO & 8 P* ECB-FC,CW,BA,DWT-OR,ECB,EXTDMI & 8 P* A8 = ECB ADDR & t P* & 8 P****EXIT PARAMETERS********************************* & P* & P* A1 = A6 = FDB ADDR & 0 P* A2 = FDB
0x142094…142228 Dummy {f00=0x0100, f01=0x0190, f02=» THE FOUND CORE BUFFER & v P* A3 = BUFFER ADDRESS ' & P* A5 = ORDE R CODE ' F P* A8 = ECB ADDR ' b P* A9 = DM ECB ADDR ' | P* ' 8 P****USED REGISTERS********************************** ' P* ' P* A1 - A9 ' P* ' : P**
0x142228…1423bc Dummy {f00=0x0100, f01=0x0190, f02=»RENT EXTENT BLOCK POINTER ' | P LD A1,EXTDMI,A4 DMIDENT, FC ( " " P LD A2,FDBSNR,A6 SECTOR NUMBER ( F P LD A9,DWTECB,A6 DM ECB ( l P ANK A1,/FF =1 ( $ P STR A1,A8 DISC VOL FILE CODE =1 ( P LDR A4,A2 SAVE ( P LDKL A5,SECTLE ( " P ST A5,ECBRL
0x1423bc…142550 Dummy {f00=0x0100, f01=0x0190, f02=»SECTOR MUST BE READ FROM DISC ( P LDKL A2,-1 RET CODE ) & PGTB040 EQU * ) B P ST A4,ECBCW,A8 SECTOR NR ) V P LDR A5,A3 ) x 2 P ADKL A5,BUFSTA A5 = DATA BUFFER START ADDRESS ) P ST A5,ECBBA,A8 ) P LD A5,DWTOR,A6 ) P ANK A5,/3F ) ( P LDR
0x142550…1426e4 Dummy {f00=0x0100, f01=0x018e, f02=» ORDER CODE ) P EJECT DMSUBR * 8 P****DESCRIPTION************************************* * , P* * h D P* GTLGRN WILL CONVERT FDBSNR AND FDBRRO TO A LOGICAL RECORD NO * r P* * 8 P****ENTRY PARAMETERS******************************** * P* *
0x1426e4…142878 Dummy {f00=0x0100, f01=0x0190, f02=» * Z P* + P* A1=A5=A6= FDB ADDRESS + P* A2,A3 = LOG RECORD NO + 4 P* + V 8 P****USED REGISTERS********************************** + ` P* + P* A1 - A7 + P* + : P****************************************************** + P EJECT
0x142878…142a0c Dummy {f00=0x0100, f01=0x0190, f02=» + p P LD A7,FDBCEX,A1 EXT ADDR , ( P ADKL A7,EXTLEN ADDR TO LAST LENGTH , * PGTL050 EQU * , V P CWR A3,A7 , j . P RF(E) GTL100 ALL PREVIOUS EXTENTS COUNTED , | ( P* NOTE THAT ONLY (E) CAN BE TESTED , $ P ADR* A6,A3 NO OF SECT IN EXTENT , $ P ADKL
0x142a0c…142ba0 Dummy {f00=0x0100, f01=0x0190, f02=»OTAL NO OF SECTORS , ~ ( P AD A6,FDBSNR,A1 TOTAL NR OF SECTORS - P* - F ( P* CONVERT FDBRRO TO NO OF RECORDS - P P* - | P LDK A7,0 - " P LC A7,FDBBLF,A1 BLOCK FACTOR - P LDR A5,A1 SAVE FDB ADDR - P CF A14,MPYMOD A1,A2=A6*A7 - P LD A4,F
0x142ba0…142d34 (0, 409) Dummy {f00=0x0101, f01=0x0190, f02=» PGTL150 EQU * . P ADK A7,1 RECORD COUNTER . P SUR A6,A4 . 8 * P RB(NN) GTL150 COUNT RECORDS IN SECTOR . J P* . x , P* ADD SECT*BLOCFACT AND RECINCURRSECT . P* . P ADR A2,A7 . P RF(O) GTL160 OVERFLOW . P RF GTL170 . PGTL160 EQU
0x142d34…142ec8 Dummy {f00=0x0101, f01=0x0190, f02=» LDR A1,A5 FDB ADDR . P LDR A6,A5 / P RTN A14 / . P EJECT DMSUBR / > P* / V P* / ` P IFT MMUPAG=1 / j P* / P* M O V : U S / P* / D P* THIS ROUTINE MOVES DATA FROM THE USER AREA (SENDING BUFFER) TO / L P* THE SYSTEM AREA (REC
0x142ec8…14305c Dummy {f00=0x0101, f01=0x0190, f02=»* / 8 P* INPUT: A1 = ADDRESS OF SENDING BUFFER (USER AREA) 0 < P* A2 = ADDRESS OF RECEIVING BUFFER (SYSTEM AREA) 0 F . P* A3 = NUMBER OF BYTES TO BE MOVED 0 P* 0 " P* OUTPUT: A1-A4 ARE DESTROYED 0 P* 0 , PMOV:US LDR A3,A3 CHECK
0x14305c…1431f0 Dummy {f00=0x0101, f01=0x0190, f02=»ER ADDRESS 0 v P ANK A4,1 1 . P RF(NZ) MVUS40 USER BUFFER ADDRESS UNEVEN? 1 $ . P LDR A4,A2 NO, CHECK SYSTEM BUFFER ADDRESS 1 V P ANK A4,1 1 0 P RF(NZ) MVUS55 SYSTEM BUFFER ADDRESS UNEVEN? 1 P* 1 , PMVUS10 LDR A4,A3 CHECK REQUESTED LENGTH 1 P
0x1431f0…143384 Dummy {f00=0x0101, f01=0x0190, f02=»5 1 t P* 2 PMVUS35 RTN A14 2 P* 2 * P EJECT DMSUBR 2 4 P* 2 L P* 2 V 0 PMVUS40 EQU * USER BUFFER ADDRESS WAS UNEVEN 2 ` * P LDR A4,A2 CHECK SYSTEM BUFFER ADDRESS 2 P ANK A4,1 2 0 P RF(NZ) MVUS80 SYSTEM BUFFER ADDRESS UNEVEN? 2 4 P
0x143384…143518 Dummy {f00=0x0101, f01=0x0190, f02=» SYSTEM BUFFER ADDRESS 2 ( P SUK A3,1 DECREMENT REQUESTED LENGTH 3 $ P RB(NP) MVUS30 LAST CHAR. MOVED? 3 J , P ADK A1,2 NO, UPDATE USER BUFFER ADDRESS 3 r P* 3 8 PMVUS55 ELR A4,A1 GET NEXT TWO CHAR. FROM USER BUFFER 3 P ECR A5,A4 3 0 P SCR A5,A2 STO
0x143518…1436ac Dummy {f00=0x0101, f01=0x0190, f02=»VUS50 MORE CHAR. TO MOVE? 3 P RB MVUS30 NO, RETURN 4 " P* 4 @ P EJECT DMSUBR 4 J P* 4 b P* 4 l , PMVUS60 EQU * REQUESTED LENGTH WAS UNEVEN 4 v ( P SUK A3,1 MAKE REQUESTED LENGTH EVEN 4 * P RF(NP) MVUS70 ONLY ONE CHAR. TO MOVE? 4 P LDR A4,
0x1436ac…143840 Dummy {f00=0x0101, f01=0x0190, f02=»FROM USER BUFFER 4 v P* 5 PMVUS65 ECR A5,A5 5 " 0 P SCR A5,A2 STORE LAST CHAR. IN SYSTEM BUFFER 5 : P RB MVUS30 RETURN 5 n P* 5 4 PMVUS70 ELR A5,A1 GET LAST CHAR. FROM USER BUFFER 5 P RB MVUS65 5 P* 5 2 PMVUS80 EQU * BOTH BUFFER ADDRESSES
0x143840…1439d4 (0, 410) Dummy {f00=0x0101, f01=0x0190, f02=»UPDATE BUFFER ADDRESSES 5 P ADK A2,1 6 ( P SUK A3,1 DECREMENT REQUESTED LENGTH 6 2 & P RB(P) MVUS10 MORE CHAR. TO MOVE? 6 ^ P RB MVUS30 NO, RETURN 6 P* 6 P EJECT DMSUBR 6 P* 6 P* M O V : S U 6 P* 6 F P* THIS ROUTINE MOVES D
0x1439d4…143b68 Dummy {f00=0x0101, f01=0x0190, f02=»USED, DEPENDING ON WHETHER THE BUFFER ADDRESSES ARE EVEN OR NOT. 6 P* 7 H : P* INPUT: A1 = ADDRESS OF SENDING BUFFER (SYSTEM AREA) 7 R : P* A2 = ADDRESS OF RECEIVING BUFFER (USER AREA) 7 . P* A3 = NUMBER OF BYTES TO BE MOVED 7 P* 7 "
0x143b68…143cfc Dummy {f00=0x0101, f01=0x0190, f02=»F REQUESTED LENGTH <= 0 7 x P STR A5,A14 SAVE A5 8 ( P LDR A4,A2 CHECK USER BUFFER ADDRESS 8 < P ANK A4,1 8 h . P RF(NZ) MVSU40 USER BUFFER ADDRESS UNEVEN? 8 z . P LDR A4,A1 NO, CHECK SYSTEM BUFFER ADDRESS 8 P ANK A4,1 8 0 P RF(NZ) MVSU60 SYSTEM BU
0x143cfc…143e90 Dummy {f00=0x0101, f01=0x018e, f02=»UNEVEN? 8 p P* 9 PMVSU20 MVSU A3 9 P* 9 0 " PMVSU30 LDR* A5,A14 RESTORE A5 9 : P* 9 ` PMVSU35 RTN A14 9 j P* 9 P EJECT DMSUBR 9 P* 9 P* 9 0 PMVSU40 EQU * USER BUFFER ADDRESS WAS UNEVEN 9 * P LDR A4,A1 CHECK SYSTEM BUFFER
0x143e90…144024 Dummy {f00=0x0101, f01=0x0190, f02=» 9 ^ P RF MVSU65 : P* : 2 PMVSU60 EQU * SYSTEM BUFFER ADDRESS WAS UNEVEN : $ 0 P LCR A4,A1 GET ONE CHAR. FROM SYSTEM BUFFER : Z P ECR A4,A4 : * P ADK A1,1 UPDATE SYSTEM BUFFER ADDRESS : ( P SUK A3,1 DECREMENT REQUESTED LENGTH : * P RF(NP) MVSU70
0x144024…1441b8 Dummy {f00=0x0101, f01=0x0190, f02=»ER BUFFER : p & P ADK A1,1 UPDATE BUFFER ADDRESSES ; P ADK A2,2 ; < ( P SUK A3,1 DECREMENT REQUESTED LENGTH ; N & P RB(P) MVSU60 MORE CHAR. TO MOVE? ; z P RB MVSU30 NO, RETURN ; P* ; 4 PMVSU70 ELR A3,A2 GET LAST CHAR. FROM USER BUFFER ; $ P ANK
0x1441b8…14434c Dummy {f00=0x0101, f01=0x018e, f02=»FFER ; j P RB MVSU30 RETURN < P* < & P EJECT DMSUBR < 0 P* < H P* < R 2 PMVSU80 EQU * BOTH BUFFER ADDRESSES WERE UNEVEN < 2 P LDR* A4,A1 GET FIRST CHAR. FROM SYSTEM BUFFER < 0 P ELR A5,A2 GET FIRST CHAR. FROM USER BUFFER < $ P ANK A4,/FF
0x14434c…1444e0 Dummy {f00=0x0101, f01=0x0190, f02=» < b & P ADK A1,1 UPDATE BUFFER ADDRESSES = P ADK A2,1 = 2 ( P SUK A3,1 DECREMENT REQUESTED LENGTH = D * P RB(P) MVSU10 MORE CHARACTERS TO MOVE? = p P RB MVSU30 NO, RETURN = P* = , PMVSU90 EQU * REQUESTED LENGTH WAS UNEVEN = ( P SUK A3,1 MAKE REQ
0x1444e0…144674 (0, 411) Dummy {f00=0x0101, f01=0x0190, f02=» = & P ADR A4,A5 UPDATE BUFFER ADDRESSES > P ADR A2,A5 > 2 2 P LDR* A4,A4 GET LAST CHAR. FROM SYSTEM BUFFER > D P RB MVSU70 > z P* > 8 PMVSU95 LDR* A4,A1 GET LAST CHAR. FROM SYSTEM BUFFER > P RB MVSU70 > P XIF > P* > P IFT MMUPAG=0
0x144674…144808 Dummy {f00=0x0101, f01=0x402e, f02=»IF > P* ? P* ? P END ? @ ? * P ADR A2,A5 > 2 2 P LDR* A4,A4 GET LAST CHAR. FROM SYSTEM BUFFER > D P RB MVSU70 > z P* > 8 PMVSU95 LDR* A4,A1 GET LAST CHAR. FROM SYSTEM BUFFER > P RB MVSU70 > P XIF > P* > P IFT MMUPAG=0
0x144808…14499c Dummy {f00=0x0101, f01=0x2008, f02=» @ + t P INH , P CF A15,TENDIO , P ENB , 2 P* , > P* EXIT , H P* , X P LKM , b P DATA 3 , n P* , ~ P END , @ , RD ADDR A2:=EA BIT + & P C1R A2,A2 ONE COMPLEMENT BIT MASK + P ANRS A2,A3 SET OFF EA BIT + P* +
0x14499c…144b30 Dummy {f00=0x0101, f01=0x0190, f02=» v PEND1 ADK A3,/81 B PEND0 SLL A3,1 ********************************** ( P ANK.L A3,/0300 n P LDK.L A4,/FCFF P AN.S A4,2,A14 B P OR.S A3,2,A14 UPDATE CR IN PSW CALLI
0x144b30…144cc4 Dummy {f00=0x0101, f01=0x0190, f02=»N ^ P RF(6) BB 6 P C1R A1,A1 DIVIDEND- .DIVISOR - & . P ADK A1,1 REMAINDER - ` PBB ADK A2,0 P RB(0) END0 P RB(2) END2 P RB(7) END1
0x144cc4…144e58 Dummy {f00=0x0101, f01=0x4056, f02=» LDK A1,0 P RB(7) END P XIF 2 P END >@ R - & . P ADK A1,1 REMAINDER - ` PBB ADK A2,0 P RB(0) END0 P RB(2) END2 P RB(7) END1
0x144e58…144fec Dummy {f00=0x0101, f01=0x2008, f02=» A2,0 P RB(0) END0 P RB(2) END2 2 P RB(7) END1 P PCASSPE LDR A7,A1 n P LDR A1,A2 P CWK A1,/8000 P RB(4) END P LDK A1,0 P
0x144fec…145180 Dummy {f00=0x0101, f01=0x018e, f02=» 4 | P XIF 5 P IFT CHR14=1 5 & P CCK A7,/1414 SPECIAL CHARACTER ? 5 ( P RF(E) PRB230 YES 5 R P XIF 5 l P* 5 x " P LDK A1,CCERR CODE CHECK ERROR 5 * P ORS A1,ECBRC,A8 STORE IN RETURN CODE 5 P LD A7,DWTOR,A6 GET ORDER 5 P ANK A7,/FF 5
0x145180…145314 (0, 412) Opaque[0x194]
0x145314…1454a8 # DirEnt {nam=»DVKB00«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0e18, f03=0x0000}
0x145314…1454a8 IdxSect {
0x145314…1454a8 f00 = 0x0070 // 0x145314 @0x0
0x145314…1454a8 f01 = 0x0002 // 0x145316 @0x2
0x145314…1454a8 gno = [ // 0x145318 @0x4
0x145314…1454a8 [0x00]: C0x0070.0x3.0
0x145314…1454a8 ]
0x145314…1454a8 }
0x1454a8…14563c Dummy {f00=0x0070, f01=0x0190, f02=» 2 P IDENT DVKB00 REL 9.2 79-11-16 870105040920 P : " P* KEYBOARD DEVICE WORK TABLE B P* h P ENTRY DVKB00 TABLE ENTRY r P EXTRN CTAB01 ( P EXTRN KBAD3 POINTER TO ADDRESSBLOCK P EXTRN DVDY00 PMMUPAG EQU 1 P*
0x14563c…1457d0 Dummy {f00=0x0070, f01=0x0190, f02=»ADDRESS P DATA DWTEND-DVKB00 ORDER ( P DATA KBAD3 POINTER TO ADDRESS BLOCK 2 P DATA 'KB' TTAB-ADDRESS ^ $ P DATA 0 WAIT/ACTIVATE INDICATOR ~ P DATA 0 TERMINAL QUEUE IFT MMUPAG=1 & " DATA 0 SAVE AREA USER ECB ADDRESS DAT
0x1457d0…145964 Dummy {f00=0x0070, f01=0x0190, f02=»VE AREA FOR A4 P DATA 0 SAVE AREA FOR A5 P RES 4 DWT-STACK 6 P DATA 0 TIMER POINTER N P DATA DVDY00 DVDY00O DEVICE l $ P DATA /FFFF BACKSPACE AND CANCEL $ P DATA /FFBA EOR AND DOUBLE ZERO 6 P DATA DWTSQ+DVKB00 POINTER TO FIRST PLAC
0x145964…145af8 Dummy {f00=0x0070, f01=0x4100, f02=»A 0,0,0,0,0,0,0,0 P DATA 0,0,0,0 P IFT MMUPAG=1 0 PDEVECB EQU * F P DATA 0,0,0,0,0,0 Z P DATA 0,0,0,0,0,0,0,0 t P DATA 0,0,0,0,0,0,0,0 P DATA 0,0,0,0 P XIF PDWTEND EQU * P* P END @ RST PLAC
0x145af8…145c8c Dummy {f00=0x0070, f01=0x2008, f02=» BLE ZERO 6 P DATA DWTSQ+DVTKB POINTER TO FIRST PLACE IN QUEUE 4 P DATA DWTSQ+DVTKB POINTER TO LAST PLACE IN QUEUE R PDWTSQ EQU *-DVTKB P RES 0 P* P END @ 0 SAVE AREA FOR A4 P DATA 0 SAVE AREA FOR A5 P R
0x145c8c…145e20 Dummy {f00=0x0070, f01=0x0190, f02=» ORDER v EXTRN DWTA2 SAVE AREA A2 EXTRN DWTA5 SAVE AREA A5 0 & ! EXTRN DWTSB2 STACK BASE 2 IN DWT R ( P EXTRN SCTPLD PROGRAM LOADING DEVICE | ( P EXTRN SAVE8 SAVE A1-A8 ON A15 STACK P EXTRN SETIMP TIMER & P EXTRN INTSAV INTERRUPT
0x145e20…145fb4 (0, 413) Opaque[0x194]
0x145fb4…146148 # DirEnt {nam=»DVDY00«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x1088, f03=0x0000}
0x145fb4…146148 IdxSect {
0x145fb4…146148 f00 = 0x0084 // 0x145fb4 @0x0
0x145fb4…146148 f01 = 0x0002 // 0x145fb6 @0x2
0x145fb4…146148 gno = [ // 0x145fb8 @0x4
0x145fb4…146148 [0x00]: C0x0084.0x1.0
0x145fb4…146148 ]
0x145fb4…146148 }
0x146148…1462dc Dummy {f00=0x0084, f01=0x0190, f02=» 2 P IDENT DVDY00 REL 9.2 79-11-16 870105040920 P : * P* DEVICE WORK TABLE FOR VIDEO DISPLAY B P* p P ENTRY DVDY00 TABLE ENTRY z P* P* ( P EXTRN DYAD POINTER TO ADDRESS BLOCK PMMUPAG EQU 1 P* PDVDY00 EQU * T
0x1462dc…146470 Dummy {f00=0x0084, f01=0x0190, f02=» DATA DWTEND-DVDY00 ORDER ( P DATA DYAD POINTER TO ADDRESS-BLOCK " P DATA 'DY' TTAB-ADDRESS N $ P DATA 0 WAIT/ACTIVATE INDICATOR n P DATA 0 TERMINAL QUEUE IFT MMUPAG=1 & " DATA 0 SAVE AREA USER ECB ADDRESS DATA DEVECB MMU ECB
0x146470…146604 Dummy {f00=0x0084, f01=0x4158, f02=»VE AREA FOR A5 P RES 4 DWT-STACK P DATA 0 TIMER POINTER . P DATA /101 CURSOR POINTER L * P DATA /1850 LEFT BYTE=NUMBER OF LINES n " P RIGHT BYTE=CHARACTERS/LINE P DATA 0 BUFFER INDEX P IFT MMUPAG=1 PDEVECB DATA 0,0,0,0,
0x146604…146798 Dummy {f00=0x0084, 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
0x146798…14692c Dummy {f00=0x0084, f01=0x0190, f02=»A ILLINT 60 P DATA ILLINT 61 P DATA ILLINT 62 4 P DATA IHINPT IHINPT ROUTINE P P EJECT SYSTAB t P P* " P* SYSTEM CONTROL TABLE POINTER P* P DATA SCT P P P* P* SYSTEM TRAP
0x14692c…146ac0 Dummy {f00=0x0084, f01=0x0190, f02=» P XRR A13,A13 P XRR A14,A14 P LD A1,SCTBUG 0 P ABR(NZ) A1 F P HLT Z P f P EJECT SYSTAB n P P* P* SYSTEM CONTROL TABLE P* P PSCT EQU * P * PSCTMSZ DATA 0 MEMORY SIZE MOD K BYTES
0x146ac0…146c54 (0, 414) Opaque[0x194]
0x146c54…146de8 # DirEnt {nam=»DVKB01«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x2058, f03=0x0000}
0x146c54…146de8 IdxSect {
0x146c54…146de8 f00 = 0x0102 // 0x146c54 @0x0
0x146c54…146de8 f01 = 0x0002 // 0x146c56 @0x2
0x146c54…146de8 gno = [ // 0x146c58 @0x4
0x146c54…146de8 [0x00]: C0x0102.0x3.0
0x146c54…146de8 ]
0x146c54…146de8 }
0x146de8…146f7c Dummy {f00=0x0102, f01=0x0190, f02=» 2 P IDENT DVKB01 REL 9.2 79-11-16 870105040920 P : " P* KEYBOARD DEVICE WORK TABLE B P* h P ENTRY DVKB01 TABLE ENTRY r P EXTRN CTAB02 ( P EXTRN KBAD3 POINTER TO ADDRESSBLOCK P EXTRN DVDY01 PMMUPAG EQU 1 P*
0x146f7c…147110 Dummy {f00=0x0102, f01=0x0190, f02=»ADDRESS P DATA DWTEND-DVKB01 ORDER ( P DATA KBAD3 POINTER TO ADDRESS BLOCK 2 P DATA 'KB' TTAB-ADDRESS ^ $ P DATA 0 WAIT/ACTIVATE INDICATOR ~ P DATA 0 TERMINAL QUEUE IFT MMUPAG=1 & " DATA 0 SAVE AREA USER ECB ADDRESS DAT
0x147110…1472a4 Dummy {f00=0x0102, f01=0x0190, f02=»VE AREA FOR A4 P DATA 0 SAVE AREA FOR A5 P RES 4 DWT-STACK 6 P DATA 0 TIMER POINTER N P DATA DVDY01 DVDY01O DEVICE l $ P DATA /FFFF BACKSPACE AND CANCEL $ P DATA /FFBA EOR AND DOUBLE ZERO 6 P DATA DWTSQ+DVKB01 POINTER TO FIRST PLAC
0x1472a4…147438 Dummy {f00=0x0102, f01=0x4100, f02=»A 0,0,0,0,0,0,0,0 P DATA 0,0,0,0 P IFT MMUPAG=1 0 PDEVECB EQU * F P DATA 0,0,0,0,0,0 Z P DATA 0,0,0,0,0,0,0,0 t P DATA 0,0,0,0,0,0,0,0 P DATA 0,0,0,0 P XIF PDWTEND EQU * P* P END @ RST PLAC
0x147438…1475cc Dummy {f00=0x0102, f01=0x2008, f02=» BLE ZERO 6 P DATA DWTSQ+DVTKB POINTER TO FIRST PLACE IN QUEUE 4 P DATA DWTSQ+DVTKB POINTER TO LAST PLACE IN QUEUE R PDWTSQ EQU *-DVTKB P RES 0 P* P END @ 0 SAVE AREA FOR A4 P DATA 0 SAVE AREA FOR A5 P R
0x1475cc…147760 Dummy {f00=0x0102, f01=0x0190, f02=»DB DATA FILE $ ~ PDMTIZ1 EQU * % P LD A9,DWTECB,A1 USER ECB % ( P RB DMTIT0 % J P EJECT DMSUBR % 8 P****DESCRIPTION************************************* % t P* % 8 P* GTBKBU WILL GET A BLOCK BUFFER FOR DISC I/O AND % 2 P* PREPARE IT. EC
0x147760…1478f4 (0, 415) Opaque[0x194]
0x1478f4…147a88 # DirEnt {nam=»DVTP01«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x2068, f03=0x0000}
0x1478f4…147a88 IdxSect {
0x1478f4…147a88 f00 = 0x0103 // 0x1478f4 @0x0
0x1478f4…147a88 f01 = 0x0002 // 0x1478f6 @0x2
0x1478f4…147a88 gno = [ // 0x1478f8 @0x4
0x1478f4…147a88 [0x00]: C0x0103.0x1.0
0x1478f4…147a88 ]
0x1478f4…147a88 }
0x147a88…147c1c Dummy {f00=0x0103, f01=0x018e, f02=» 2 P IDENT DVTP01 REL 9.2 79-11-16 870105040920 P : 4 P* DEVICE WORK TABLE FOR TELLER TERMINAL PRINTER B P* z P ENTRY DVTP01 TABLE ENTRY P* P* ( P EXTRN TPAD POINTER TO ADDRESS-BLOCK $ PMMUPAG EQU 1 MEM. MAN.UNIT COND.
0x147c1c…147db0 Dummy {f00=0x0103, f01=0x018e, f02=» P DATA 0 ECB ADDRESS P DATA DWTEND-DVTP01 ORDER ( P DATA TPAD POINTER TO ADDRESS BLOCK B P DATA 'TP' TTAB-ADDRESS n $ P DATA 0 WAIT/ACTIVATE INDICATOR P DATA 0 TERMINAL QUEUE IFT MMUPAG=1 & " DATA 0 SAVE AREA USER ECB ADD
0x147db0…147f44 Dummy {f00=0x0103, f01=0x40f6, f02=» f P DATA 0,0,0,0 STACK P DATA 0 TIMER POINTER $ ( P DATA 0 REQUESTED,ACTUAL LINE NUMBER B P IFT MMUPAG=1 n PDEVECB EQU * P DATA 0,0,0,0,0,0 P XIF PDWTEND EQU * P* P* P END @ AREA USER ECB ADD
0x147f44…1480d8 Dummy {f00=0x0103, 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
0x1480d8…14826c Dummy {f00=0x0103, f01=0x0190, f02=»VUS50 MORE CHAR. TO MOVE? 3 P RB MVUS30 NO, RETURN 4 " P* 4 @ P EJECT DMSUBR 4 J P* 4 b P* 4 l , PMVUS60 EQU * REQUESTED LENGTH WAS UNEVEN 4 v ( P SUK A3,1 MAKE REQUESTED LENGTH EVEN 4 * P RF(NP) MVUS70 ONLY ONE CHAR. TO MOVE? 4 P LDR A4,
0x14826c…148400 Dummy {f00=0x0103, f01=0x0190, f02=»FROM USER BUFFER 4 v P* 5 PMVUS65 ECR A5,A5 5 " 0 P SCR A5,A2 STORE LAST CHAR. IN SYSTEM BUFFER 5 : P RB MVUS30 RETURN 5 n P* 5 4 PMVUS70 ELR A5,A1 GET LAST CHAR. FROM USER BUFFER 5 P RB MVUS65 5 P* 5 2 PMVUS80 EQU * BOTH BUFFER ADDRESSES
0x148400…148594 (0, 416) Opaque[0x194]
0x148594…148728 # DirEnt {nam=»DVDY01«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x2078, f03=0x0000}
0x148594…148728 IdxSect {
0x148594…148728 f00 = 0x0103 // 0x148594 @0x0
0x148594…148728 f01 = 0x0002 // 0x148596 @0x2
0x148594…148728 gno = [ // 0x148598 @0x4
0x148594…148728 [0x00]: C0x0103.0x3.0
0x148594…148728 ]
0x148594…148728 }
0x148728…1488bc Dummy {f00=0x0103, f01=0x0190, f02=» 2 P IDENT DVDY01 REL 9.2 79-11-16 870105040920 P : * P* DEVICE WORK TABLE FOR VIDEO DISPLAY B P* p P ENTRY DVDY01 TABLE ENTRY z P* P* ( P EXTRN DYAD POINTER TO ADDRESS BLOCK PMMUPAG EQU 1 P* PDVDY01 EQU * T
0x1488bc…148a50 Dummy {f00=0x0103, f01=0x0190, f02=» DATA DWTEND-DVDY01 ORDER ( P DATA DYAD POINTER TO ADDRESS-BLOCK " P DATA 'DY' TTAB-ADDRESS N $ P DATA 0 WAIT/ACTIVATE INDICATOR n P DATA 0 TERMINAL QUEUE IFT MMUPAG=1 & " DATA 0 SAVE AREA USER ECB ADDRESS DATA DEVECB MMU ECB
0x148a50…148be4 Dummy {f00=0x0103, f01=0x4158, f02=»VE AREA FOR A5 P RES 4 DWT-STACK P DATA 0 TIMER POINTER . P DATA /101 CURSOR POINTER L * P DATA /1850 LEFT BYTE=NUMBER OF LINES n " P RIGHT BYTE=CHARACTERS/LINE P DATA 0 BUFFER INDEX P IFT MMUPAG=1 PDEVECB DATA 0,0,0,0,
0x148be4…148d78 Dummy {f00=0x0103, 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
0x148d78…148f0c Dummy {f00=0x0103, f01=0x0190, f02=»1,0 SET CR # $ P RF(Z) TAS160 ALL VOLUMES FOUND $ P* $ : , P* ALL VOL NOT FOUND. ACT FLEXDISCTASK $ D P* $ t P LD A1,TASCVO $ ~ P LDK A2,2 ID DMTASK FLEXDISC $ P SC A2,TASVOL,A1 SEE TAS195 $ P EJECT $ P* $ , P* CHECK IF FILE CO
0x148f0c…1490a0 Dummy {f00=0x0103, f01=0x0190, f02=»D $ j P LDR A10,A10 TC % P RF(Z) TAS165 GLOBAL ASSIGN % " P LD A2,TASTTA TTAB ADDR % F P LDR A4,A2 % f P LD A2,TTB:TD,A4 % x P ADKL A4,TTB:TD+1 % P RF TAS170 % PTAS165 EQU * % P LD A4,SCTCDT % P LDR* A2,A4 % P ADK A4,1 %
0x1490a0…149234 (0, 417) Opaque[0x194]
0x149234…1493c8 # DirEnt {nam=»DVKB02«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x2130, f03=0x0000}
0x149234…1493c8 IdxSect {
0x149234…1493c8 f00 = 0x0109 // 0x149234 @0x0
0x149234…1493c8 f01 = 0x0002 // 0x149236 @0x2
0x149234…1493c8 gno = [ // 0x149238 @0x4
0x149234…1493c8 [0x00]: C0x0109.0x2.0
0x149234…1493c8 ]
0x149234…1493c8 }
0x1493c8…14955c Dummy {f00=0x0109, f01=0x0190, f02=» 2 P IDENT DVKB02 REL 9.2 79-11-16 870105040920 P : " P* KEYBOARD DEVICE WORK TABLE B P* h P ENTRY DVKB02 TABLE ENTRY r P EXTRN CTAB03 ( P EXTRN KBAD3 POINTER TO ADDRESSBLOCK P EXTRN DVDY02 PMMUPAG EQU 1 P*
0x14955c…1496f0 Dummy {f00=0x0109, f01=0x0190, f02=»ADDRESS P DATA DWTEND-DVKB02 ORDER ( P DATA KBAD3 POINTER TO ADDRESS BLOCK 2 P DATA 'KB' TTAB-ADDRESS ^ $ P DATA 0 WAIT/ACTIVATE INDICATOR ~ P DATA 0 TERMINAL QUEUE IFT MMUPAG=1 & " DATA 0 SAVE AREA USER ECB ADDRESS DAT
0x1496f0…149884 Dummy {f00=0x0109, f01=0x0190, f02=»VE AREA FOR A4 P DATA 0 SAVE AREA FOR A5 P RES 4 DWT-STACK 6 P DATA 0 TIMER POINTER N P DATA DVDY02 DVDY02O DEVICE l $ P DATA /FFFF BACKSPACE AND CANCEL $ P DATA /FFBA EOR AND DOUBLE ZERO 6 P DATA DWTSQ+DVKB02 POINTER TO FIRST PLAC
0x149884…149a18 Dummy {f00=0x0109, f01=0x4100, f02=»A 0,0,0,0,0,0,0,0 P DATA 0,0,0,0 P IFT MMUPAG=1 0 PDEVECB EQU * F P DATA 0,0,0,0,0,0 Z P DATA 0,0,0,0,0,0,0,0 t P DATA 0,0,0,0,0,0,0,0 P DATA 0,0,0,0 P XIF PDWTEND EQU * P* P END @ RST PLAC
0x149a18…149bac Dummy {f00=0x0109, f01=0x2008, f02=» BLE ZERO 6 P DATA DWTSQ+DVTKB POINTER TO FIRST PLACE IN QUEUE 4 P DATA DWTSQ+DVTKB POINTER TO LAST PLACE IN QUEUE R PDWTSQ EQU *-DVTKB P RES 0 P* P END @ 0 SAVE AREA FOR A4 P DATA 0 SAVE AREA FOR A5 P R
0x149bac…149d40 Dummy {f00=0x0109, f01=0x0000, f02=»
0x149d40…149ed4 (0, 418) Opaque[0x194]
0x149ed4…14a068 # DirEnt {nam=»DVDI02«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x2160, f03=0x0000}
0x149ed4…14a068 IdxSect {
0x149ed4…14a068 f00 = 0x010b // 0x149ed4 @0x0
0x149ed4…14a068 f01 = 0x0002 // 0x149ed6 @0x2
0x149ed4…14a068 gno = [ // 0x149ed8 @0x4
0x149ed4…14a068 [0x00]: C0x010b.0x0.0
0x149ed4…14a068 ]
0x149ed4…14a068 }
0x14a068…14a1fc Dummy {f00=0x010b, f01=0x0190, f02=» 2 P IDENT DVDI02 REL 9.2 79-11-16 870105040920 P : P =1,HANG UP AT /03 OUTPUT B P REL 9.1 79-05-23 f P* . P* DEVICE WORK TABLE FOR DISPLAY INDICATOR P* P* & P ENTRY DVDI02 DISPLAY INDICATOR 03 P* P*
0x14a1fc…14a390 Dummy {f00=0x010b, f01=0x0190, f02=»RAMETER z 0 P DATA /8000 STATUS. /8000 MEANS DEVICE READY P DATA 0 ECB ADDRESS D P DATA DWTEND-DVDI02 ORDER ` ( P DATA DIAD POINTER TO ADDRESS-BLOCK 6 P DATA 'DI',0 TERM.NUMBER AND PROGRAM START ADDRESS $ P DATA 0 ECB QUEUE ANCHOR ADDRESS
0x14a390…14a524 Dummy {f00=0x010b, f01=0x4162, f02=»UEUE P DATA /0000 P DATA /3F4F,/5F6F * P DATA 0 SAVE AREA FOR FLASHING LIGHTS : P DATA 0 TIMER POINTER h P DATA 0 DUMMY WORD =1 P DATA 0 DUMMY WORD =1 " P DATA 0 DUMMY TIMER POINTER =1 P IFT MMUPAG=1 PDEVECB DAT
0x14a524…14a6b8 Dummy {f00=0x010b, 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
0x14a6b8…14a84c Dummy {f00=0x010b, f01=0x0000, f02=»
[…0x1…]
0x14a9e0…14ab74 (0, 419) Opaque[0x194]
0x14ab74…14ad08 # DirEnt {nam=»DVDY02«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x2170, f03=0x0000}
0x14ab74…14ad08 IdxSect {
0x14ab74…14ad08 f00 = 0x010b // 0x14ab74 @0x0
0x14ab74…14ad08 f01 = 0x0002 // 0x14ab76 @0x2
0x14ab74…14ad08 gno = [ // 0x14ab78 @0x4
0x14ab74…14ad08 [0x00]: C0x010b.0x2.0
0x14ab74…14ad08 ]
0x14ab74…14ad08 }
0x14ad08…14ae9c Dummy {f00=0x010b, f01=0x0190, f02=» 2 P IDENT DVDY02 REL 9.2 79-11-16 870105040920 P : * P* DEVICE WORK TABLE FOR VIDEO DISPLAY B P* p P ENTRY DVDY02 TABLE ENTRY z P* P* ( P EXTRN DYAD POINTER TO ADDRESS BLOCK PMMUPAG EQU 1 P* PDVDY02 EQU * T
0x14ae9c…14b030 Dummy {f00=0x010b, f01=0x0190, f02=» DATA DWTEND-DVDY02 ORDER ( P DATA DYAD POINTER TO ADDRESS-BLOCK " P DATA 'DY' TTAB-ADDRESS N $ P DATA 0 WAIT/ACTIVATE INDICATOR n P DATA 0 TERMINAL QUEUE IFT MMUPAG=1 & " DATA 0 SAVE AREA USER ECB ADDRESS DATA DEVECB MMU ECB
0x14b030…14b1c4 Dummy {f00=0x010b, f01=0x4158, f02=»VE AREA FOR A5 P RES 4 DWT-STACK P DATA 0 TIMER POINTER . P DATA /101 CURSOR POINTER L * P DATA /1850 LEFT BYTE=NUMBER OF LINES n " P RIGHT BYTE=CHARACTERS/LINE P DATA 0 BUFFER INDEX P IFT MMUPAG=1 PDEVECB DATA 0,0,0,0,
0x14b1c4…14b358 Dummy {f00=0x010b, 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
0x14b358…14b4ec Dummy {f00=0x010b, f01=0x0000, f02=»
[…0x1…]
0x14b680…14b814 (0, 420) Opaque[0x194]
0x14b814…14b9a8 # DirEnt {nam=»DVGP03«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x2180, f03=0x0000}
0x14b814…14b9a8 IdxSect {
0x14b814…14b9a8 f00 = 0x010c // 0x14b814 @0x0
0x14b814…14b9a8 f01 = 0x0002 // 0x14b816 @0x2
0x14b814…14b9a8 gno = [ // 0x14b818 @0x4
0x14b814…14b9a8 [0x00]: C0x010c.0x0.0
0x14b814…14b9a8 ]
0x14b814…14b9a8 }
0x14b9a8…14bb3c Dummy {f00=0x010c, f01=0x018e, f02=» 2 P IDENT DVGP03 REL 9.2 79-11-16 870105040920 P : , P* DEVICE WORK TABLE FOR GENERAL PRINTER B P* r P ENTRY DVGP03 TABLE ENTRY | P* P* ( P EXTRN GPAD POINTER TO ADDRESS BLOCK PMMUPAG EQU 1 P* PDVGP03 EQU *
0x14bb3c…14bcd0 Dummy {f00=0x010c, f01=0x0190, f02=» P DATA DWTEND-DVGP03 ORDER ( P DATA GPAD POINTER TO ADDRESS-BLOCK & P DATA 'GP' TTAB-ADDRESS R $ P DATA 0 WAIT/ACTIVATE INDICATOR r P DATA 0 TERMINAL QUEUE IFT MMUPAG=1 & " DATA 0 SAVE AREA USER ECB ADDRESS DATA DEVECB MMU
0x14bcd0…14be64 Dummy {f00=0x010c, f01=0x40f0, f02=»0 SAVE AREA FOR A5 P RES 4 DWT-STACK P DATA 0 TIMER POINTER 2 " P DATA 0 HEAD POSITIPN POINTER P P IFT MMUPAG=1 v PDEVECB DATA 0,0,0,0,0,0 P XIF PDWTEND EQU * P* P* P END @ DATA DEVECB MMU
0x14be64…14bff8 Dummy {f00=0x010c, f01=0x2008, f02=» ESS-BLOCK ~ P DATA 0 TTAB-ADDRESS $ P DATA 0 WAIT/ACTIVATE INDICATOR 6 P DATA 0 TERMINAL QUEUE ^ P DATA 0 OUTPUT QUEUE LINK | P DATA 0 SAVE AREA FOR A3 P DATA 0 SAVE AREA FOR A4 P DATA 0 SAVE AREA FOR A5 P RES 4 DWT
0x14bff8…14c18c Dummy {f00=0x010c, f01=0x0000, f02=»
[…0x1…]
0x14c320…14c4b4 (0, 421) Opaque[0x194]
0x14c4b4…14c648 # DirEnt {nam=»M:92NA«, typ=»LM«, f00=0x0000, f01=0x0000, f02=0x0ee0, f03=0x0000}
0x14c4b4…14c648 IdxSect {
0x14c4b4…14c648 f00 = 0x0077 // 0x14c4b4 @0x0
0x14c4b4…14c648 f01 = 0x001e // 0x14c4b6 @0x2
0x14c4b4…14c648 gno = [ // 0x14c4b8 @0x4
0x14c4b4…14c648 [0x00]: C0x0077.0x0.0
0x14c4b4…14c648 [0x01]: C0x0077.0x1.0
0x14c4b4…14c648 [0x02]: C0x0077.0x2.0
0x14c4b4…14c648 [0x03]: C0x007e.0x3.0
0x14c4b4…14c648 [0x04]: C0x007f.0x0.0
0x14c4b4…14c648 [0x05]: C0x007f.0x1.0
0x14c4b4…14c648 [0x06]: C0x007f.0x2.0
0x14c4b4…14c648 [0x07]: C0x007f.0x3.0
0x14c4b4…14c648 [0x08]: C0x0080.0x0.0
0x14c4b4…14c648 [0x09]: C0x0080.0x3.0
0x14c4b4…14c648 [0x0a]: C0x0087.0x0.0
0x14c4b4…14c648 [0x0b]: C0x008e.0x2.0
0x14c4b4…14c648 [0x0c]: C0x008e.0x3.0
0x14c4b4…14c648 [0x0d]: C0x008f.0x2.0
0x14c4b4…14c648 [0x0e]: C0x0090.0x0.0
0x14c4b4…14c648 ]
0x14c4b4…14c648 }
0x14c648…14c7dc Dummy {f00=0x0077, f01=0x0190, f02=» 8 v J h h h h h h < h h%>%d $ . 8 h h h h h h $ h h h h h h h h h h h h h h h h h h h h h h h h h h h h h h h h h h h h h n c @ Tg t z ^ b bLPL H b2 Z ` z
0x14c7dc…14c970 Dummy {f00=0x0077, f01=0x0190, f02=» 4c @S{ D d 2Z $"z y B % y D Dbf d * F :P }B W [~ ? d j% L "~ T &b ICn 1 d _ A d " _ @ > > U # T @ H ( ( P c P W: P, A @ V ( U P" @C V LC W @C
0x14c970…14cb04 Dummy {f00=0x0077, f01=0x0190, f02=» 6 8 Q Z P 0 9 t t_ $ @ _, ? P H H #P h A d A FQ ? @ : ) A _ @ @ A H ( A _ ? ? ? ? ? ^ A _ _ ^ $P T I R $ 5 % > ? W ? W ? T T$ U U U U
0x14cb04…14cc98 Dummy {f00=0x0077, f01=0x0190, f02=» Q Q > > 0 @ l 1 A l P P > ? * X " R" Y T ? X D D T> X W8 > _& @ 8 R" Y T ? X D D T X W > _& W2 > 8 X W( ? ` @ @ P $ H W W > > > > > > @ `V ? ` > _ > ? _ > > ? ^ ! Y ^ _ n ?
0x14cc98…14ce2c Dummy {f00=0x0077, f01=0x0190, f02=» < $ ( , 0 4 8 < C 8W T 8P Y ^ 5 ) P U XH D #DP @ R XV Y @ P, D T W X &P T X I Y T # C C W4 O " # X Y ) C
0x14ce2c…14cfc0 Dummy {f00=0x0077, f01=0x0190, f02=» P j$ > > F C F C > B R Q F ! P C > C > F :c" H :b"? #" : C > B R Q~ P0 B P* 0$ T # R QL > X B U( H Q2 X
0x14cfc0…14d154 (0, 422) Dummy {f00=0x0077, f01=0x0190, f02=» P PL $ # Q > P _0 # T p > P p (_H _2 B U X > ? _ X T (@ H ^ > > ? _ X T X X T % T ?C L Rl _@(@ L U L Q0 M & X
0x14d154…14d2e8 Dummy {f00=0x0077, f01=0x0190, f02=» 0P X T 4 Y X D X T X X 1 1 X P - M T $ PD _ T " # p X L R P RP (@ ^ X P8 P0 # P T P 0P 1 _ t W Y > > rJ B B zJ B B pU
0x14d2e8…14d47c Dummy {f00=0x0077, f01=0x0190, f02=» 0 R t B " P Q :A H P P H !@T I T ! 1 U A d ? W A d ? W A d ? W U R ; V ~# T R p 4 # PJ P 4 RL P 4 ] P $ P ] U PD P< P0 P,
0x14d47c…14d610 Dummy {f00=0x0077, f01=0x0190, f02=» ' T P X P " >Wh T # Y U T ] W 8V X $P y $W $ CP P 8R R Y $ X Z ;BR 8% =A Y T Z& h_, X ' X 4X< XB U T T U 5 U R " ] ~ ;h # <c$
0x14d610…14d7a4 Dummy {f00=0x0077, f01=0x0190, f02=»X <d$ _D $?:D" Y X P Y # P 4T U # P 4 4 P _r T _$ U _ ? 4 U 5 R PF "P2 R T T R X # X h > P P P ` X XF _H Wj ? T T CP W u > > E D E
0x14d7a4…14d938 Dummy {f00=0x0077, f01=0x0190, f02=»XB Y X X X X ' 4 B U B (" W C (@ > ?" 8' ?A R 8;b# 4T RT T T ] ] 8 W< TrW T ] _ P T V WT 8V T P U 8 ~ U Q2P X H 5 U R " ] ~ Y > > V P
0x14d938…14dacc Dummy {f00=0x0077, f01=0x0190, f02=» 4XR XX 5 h_b Y Y Y X 9BV$ X & Y " X D V & X . T 8TV 9WD B 7P P A W A @ A.W ? A dI.9 X R C C & ?A @ A. X V 9_: @
0x14dacc…14dc60 Dummy {f00=0x0077, f01=0x0190, f02=» Pb P Pv Pz * 6 + A @ A. H CP d Y HW A @ A. Wx ! * X , X P ! ! BW< ! * _ ! * _& ! X , X P ! H X , X P B B ! f ! B ! T Y *W X * p ! H# f & ! H ! " 0 TOT
0x14dc60…14ddf4 (0, 423) Dummy {f00=0x0077, f01=0x0190, f02=»& Ph B @ @ :C P ! H 9DV ! (@ B r ! ! R ! j ! ! b ! ( ! ! Z ! X Y . X * f " ! H_ Y * 4 ! ~ PT C ! l ! H ! (@ ! ~ R _ ! V 1 ;h 1 ! V 1 ! ! l* ! B ! ! ~ ) ! H Y *# T X
0x14ddf4…14df88 Dummy {f00=0x0077, f01=0x0190, f02=» ! B ! ~ ! T )WL WP ! ~ Xz R ! ( - j ! ) W. Y PW Y P Y L Y N Y B S W W B C & _ ? , Y " X $ T X Y $ Y X HP 1 Y H 0 Y J 1 0B. X (P y (_^ ( CP _n Y ( " X . P Y : ! F ! H X # P
0x14df88…14e11c Dummy {f00=0x0077, f01=0x0190, f02=» D C Y B K & E % Y B K , X ;AR@;a X &P Y & P 7P < $ <C ! 9 4 X t " _ W B RZ X , X P W P Q8 U _ T,: B R(' P Q 9BW Q 9C B ! T 4 x @ P ;A _ 4
0x14e11c…14e2b0 Dummy {f00=0x0077, f01=0x0190, f02=»U P jW kQ 4 Y * ! 0" Z Y" P Z _ 4 A ;D A 4 R _ ;H 4 r ! (:C 4 Z ! ( 4 X " 4 ! ) 4 X P t 4 P y _^ _n Y " X P Y : ! ! H X # P
0x14e2b0…14e444 Dummy {f00=0x0077, f01=0x0190, f02=» P Y P 7P < $ <C ! 9 4 X t " _ W B R X X P W P Q U _ T : B R ' P Q 9BW Q 9C B ! T 4 x @ P ;A _ 4
0x14e444…14e5d8 Dummy {f00=0x0077, f01=0x0190, f02=»U P jW kQ 4 Y ! 0" Z Y" P Z _ 4 A ;D A 4 R _ ;H 4 ! (:C 4 ! ( 4 X " 4 ! ) 4 X P t 4 P y _^ & & P Y : ! ! H X # P
0x14e5d8…14e76c Dummy {f00=0x0077, f01=0x0190, f02=» @B8P 0P _ % AB6 AB: &_^ B Q< R_r X P 0 Y P C x_ _ B Y _N X P A CN Y Wb Y @_x X X A CN Y _& Y h @ 0 A ^ A _: X P ( y Y W & (P 0 ) > (P _ ) 1_
0x14e76c…14e900 Dummy {f00=0x0077, f01=0x0190, f02=» @ @ A X &_" X P y Y X P T h @ T A ^ A > A > A B A F A J A N RW > 4 " !% B !% T P P ! ! ! !% Tf Tb A& P A& TR !% TL !% TD T@ !%
0x14e900…14ea94 (0, 424) Dummy {f00=0x007e, f01=0x0190, f02=» @ `P @& X@ !#: T< A d !# ~ @ ^P @& P @ 8 !"f !" A h_: !% X6_Z A d @& @ tT 1 R 0 2P P P A r > @ Z 8 HB| @& P E & PF X R@ X P X T2 P C * C X T ! W xW( &W" X R X T & ! !# ~_ A
0x14ea94…14ec28 Dummy {f00=0x007e, f01=0x0190, f02=» @ @ t @ n A r " !&~ @ ^XN !% T @ hP !# !&N_h 1T& @ hX @ bP !" !# A f_ A h " < A ^ @ bT _, _0 @ ^T8W ~ @& T !# _ !"f !# _ A ` A r E A d A Z 4 @ ^P !# !&N ~ !&*W ~ @ T !# _ T h_ l A 8 C P B B A
0x14ec28…14edbc Dummy {f00=0x007e, f01=0x0190, f02=» @ dT @ t A r @ r A t A d !% T2 P4 PJ PL P P. 1 A r @ r ]6W P _@ @& @ r E !& P !% 4 _$ !& 2_l 1 A hT 0W ;W A z A {W W W A z A { !%$ @ z !% @ { !% !% !% B J 4 !%$ !% @ n @ r A t @ rT(
0x14edbc…14ef50 Dummy {f00=0x007e, f01=0x0190, f02=» T 0 !% W R !% A r @ p @ rU< Zx Q P Q T 0 !% A r 0 !% A r !% !% $ A b _ B J B !% !% 4 A d ? <J T A jT PD 4 !%p ~ A d ? <_ I " P A d A 4 A _$B P W " " * 9AY X 2 _ !% 9AP ^
0x14ef50…14f0e4 Dummy {f00=0x007e, f01=0x0190, f02=» a 4 CN& X A > CN&^ Z A x 4 A x !% @ ^P !# !&N ~ @ xP a x A x 4 A j !% T ' A j 4 & & / {W W W A z A { ! @ z ! @ { ! ! ! B J 4 ! ! @ n @ r A t @ rT
0x14f0e4…14f278 Dummy {f00=0x007e, f01=0x0190, f02=» T 0 ! W R ! A r @ p @ rU Zx Q P Q T 0 ! A r 0 ! A r ! ! $ A b _ B J B ! ! 4 A d ? <J T A jT P 4 ! ~ A d ? <_ I " P A d A 4 A _$B P W " " * 9AY X 2 _ !% 9AP ^
0x14f278…14f40c Dummy {f00=0x007e, f01=0x0190, f02=» a 4 & X A > Z A x 4 A x !% @ ^P !# !&N ~ @ xP a x A x 4 A j !% T ' A j 4 & / {W W W A z A { ! @ z ! @ { ! ! ! B J 4 ! ! @ n @ r A t @ rT
0x14f40c…14f5a0 Dummy {f00=0x007e, f01=0x0190, f02=» T 0 ! W R ! A r @ p @ rU Zx Q P Q T 0 ! A r 0 ! A r ! ! $ A b _ B J B ! ! 4 A d ? <J T A jT P 4 ! ~ A d ? <_ I " P A d A 4 A _$B P W " " * 9AY X 2 _ !% 9AP ^
0x14f5a0…14f734 (0, 425) Dummy {f00=0x007f, f01=0x0190, f02=» a 4 & X A > Z A x 4 A x !% @ ^P !# !&N ~ @ xP a x A x 4 A j !% T ' A j 4 & / {W W W A z A { ! @ z ! @ { ! ! ! B J 4 ! ! @ n @ r A t @ rT
0x14f734…14f8c8 Dummy {f00=0x007f, f01=0x0190, f02=» T 0 ! W R ! A r @ p @ rU Zx Q P Q T 0 ! A r 0 ! A r ! ! $ A b _ B J B ! ! 4 A d ? <J T A jT P 4 ! ~ A d ? <_ I " P A d A 4 A _$B P W " " * 9AY X 2 _ !% 9AP ^
0x14f8c8…14fa5c Dummy {f00=0x007f, f01=0x0190, f02=» a 4 & X A > Z A x 4 A x !% @ ^P !# !&N ~ @ xP a x A x 4 A j !% T ' A j 4 & / {W W W A z A { ! @ z ! @ { ! ! ! B J 4 ! ! @ n @ r A t @ rT
0x14fa5c…14fbf0 Dummy {f00=0x007f, f01=0x0190, f02=» T 0 ! W R ! A r @ p @ rU Zx Q P Q T 0 ! A r 0 ! A r ! ! $ A b _ B J B ! ! 4 A d ? <J T A jT P 4 ! ~ A d ? <_ I " P A d A 4 A _$B P W " " * 9AY X 2 _ !% 9AP ^
0x14fbf0…14fd84 Dummy {f00=0x007f, f01=0x0190, f02=» a 4 & X A > Z A x 4 A x !% @ ^P !# !&N ~ @ xP a x A x 4 A j !% T ' A j 4 & / {W W W A z A { ! @ z ! @ { ! ! ! B J 4 ! ! @ n @ r A t @ rT
0x14fd84…14ff18 Dummy {f00=0x007f, f01=0x0190, f02=» T 0 ! W R ! A r @ p @ rU Zx Q P Q T 0 ! A r 0 ! A r ! ! $ A b _ B J B ! ! 4 A d ? <J T A jT P 4 ! ~ A d ? <_ I " P A d A 4 A _$B P W " " * 9AY X 2 _ !% 9AP ^
0x14ff18…1500ac Dummy {f00=0x007f, f01=0x0190, f02=» a 4 & X A > Z A x 4 A x !% @ ^P !# !&N ~ @ xP a x A x 4 A j !% T ' A j 4 & / {W W W A z A { ! @ z ! @ { ! ! ! B J 4 ! ! @ n @ r A t @ rT
0x1500ac…150240 Dummy {f00=0x007f, f01=0x0190, f02=» T 0 ! W R ! A r @ p @ rU Zx Q P Q T 0 ! A r 0 ! A r ! ! $ A b _ B J B ! ! 4 A d ? <J T A jT P 4 ! ~ A d ? <_ I " P A d A 4 A _$B P W " " * 9AY X 2 _ !% 9AP ^
0x150240…1503d4 (0, 426) Dummy {f00=0x007f, f01=0x0190, f02=» a 4 & X A > Z A x 4 A x !% @ ^P !# !&N ~ @ xP a x A x 4 A j !% T ' A j 4 & / {W W W A z A { ! @ z ! @ { ! ! ! B J 4 ! ! @ n @ r A t @ rT
0x1503d4…150568 Dummy {f00=0x007f, f01=0x0190, f02=» T 0 ! W R ! A r @ p @ rU Zx Q P Q T 0 ! A r 0 ! A r ! ! $ A b _ B J B ! ! 4 A d ? <J T A jT P 4 ! ~ A d ? <_ I " P A d A 4 A _$B P W " " * 9AY X 2 _ !% 9AP ^
0x150568…1506fc Dummy {f00=0x007f, f01=0x0190, f02=» a 4 & X A > Z A x 4 A x !% @ ^P !# !&N ~ @ xP a x A x 4 A j !% T ' A j 4 & / {W W W A z A { ! @ z ! @ { ! ! ! B J 4 ! ! @ n @ r A t @ rT
0x1506fc…150890 Dummy {f00=0x007f, f01=0x0190, f02=» T 0 ! W R ! A r @ p @ rU Zx Q P Q T 0 ! A r 0 ! A r ! ! $ A b _ B J B ! ! 4 A d ? <J T A jT P 4 ! ~ A d ? <_ I " P A d A 4 A _$B P W " " * 9AY X 2 _ !% 9AP ^
0x150890…150a24 Dummy {f00=0x007f, f01=0x0190, f02=» a 4 & X A > Z A x 4 A x !% @ ^P !# !&N ~ @ xP a x A x 4 A j !% T ' A j 4 & / {W W W A z A { ! @ z ! @ { ! ! ! B J 4 ! ! @ n @ r A t @ rT
0x150a24…150bb8 Dummy {f00=0x007f, f01=0x0190, f02=» T 0 ! W R ! A r @ p @ rU Zx Q P Q T 0 ! A r 0 ! A r ! ! $ A b _ B J B ! ! 4 A d ? <J T A jT P 4 ! ~ A d ? <_ I " P A d A 4 A _$B P W " " * 9AY X 2 _ !% 9AP ^
0x150bb8…150d4c Dummy {f00=0x007f, f01=0x0190, f02=» a 4 & X A > Z A x 4 A x !% @ ^P !# !&N ~ @ xP a x A x 4 A j !% T ' A j 4 & / {W W W A z A { ! @ z ! @ { ! ! ! B J 4 ! ! @ n @ r A t @ rT
0x150d4c…150ee0 Dummy {f00=0x007f, f01=0x0190, f02=»STUVWXYZ@,%_>?0123456789:[ '="B<B: 7- <=2&p ?' @O JZlP}M] Nk`Ka z^L~noj {|[_m TOSS T C CNC:
0x150ee0…151074 (0, 427) Dummy {f00=0x007f, f01=0x0190, f02=» D]*]<]D]@C ]`v v wR w x z z v v D D F0F0F0F0F0E E E@D E E D F0F0D E E E@D " # $ % "$&( D C @ D X P _ L !##P T @ R $P U + U _ (@(@ IC P ^ F0 HD Y HC B # X ( U
0x151074…151208 Dummy {f00=0x007f, f01=0x0190, f02=» W < C C _H Y H H S W C C B B B U Y$ R Wp H TP L P B r L ( [ $ X _ X ` T I T J X< P C X I X J S W C C W, B B Y IR Q X JU C '? T W6 Z T.(@(@ P
0x151208…15139c Dummy {f00=0x007f, f01=0x0190, f02=» - _ " P $ - : R $ - _ : Z $ -_ D ( U ( 0 W T ` U @ , @ W : X & X P !##T Y T( X P P P @ Q (@ F [ : @ _ ( H > G8 X &Pj D ^V" D "? P P &P E ^ Z
0x15139c…151530 Dummy {f00=0x007f, f01=0x0190, f02=» T AF J , X P W T Y $ P T _ Y & F ^ f(@ _ J X & X I U X J U ( Zn T$ X X RP F F T Kv P ` U0 @ , D !##X D ( * ]" 0 X Wf ` U @ H @ X
0x151530…1516c4 Dummy {f00=0x007f, f01=0x0190, f02=» F (@ B ^ P 9 f K 4' I<' I< 5 I< 4 P W , P& ,' X X 1 Z" ) I<_ (@ C ( B ! Kv I< @F F U G F G F Kt & ( F " F +P P* X $ T Y$ U W Y$ R P> $P8W
0x1516c4…151858 Dummy {f00=0x007f, f01=0x0190, f02=» T Y ^ F " F D '? P P( $ P" Y I I K K P P & P YjW D $ T Y$ T YNW E I E J X ^V ? T B ^ &(@( x B B P ! Tn M N : K Ax Ax " P xt "" y P
0x151858…1519ec Dummy {f00=0x007f, f01=0x0190, f02=»x @x Ax Q< @xv Nl Axv @x N B ^ Dxx ExzX #D( K ( B ^ B @xv Dxx W C C ( K K x xt @x T Ax 0" NV NV U _ L !SSP !LL NV W L @x Ax V N P Ex @xv Ex P
0x1519ec…151b80 Dummy {f00=0x007f, f01=0x0190, f02=»N x r P %_ S D S E 3 P S I P S J P S ( P S * P % S H P & S P @x S , d S B | L Lb @x T W x T Wz @x P R ( >a U Wb 0 =b Px P @x ! T. W< Px Dxx Y Px Y Px Y
0x151b80…151d14 (0, 428) Dummy {f00=0x007f, f01=0x0190, f02=»X6(@ @x P -W P B ^ f x (@( @x O _ T `xt ` 9A S ^ H $X D S . S $ [ R * S W S _ S ` R ( R * X` S b O" U _ L !SSP !LL W L @ A V P E @ E P
0x151d14…151ea8 Dummy {f00=0x007f, f01=0x0190, f02=» P %_ S D S E 3 P S I P S J P S ( P S * P % S H P & S P @ S , d S B | L Lb @ T W T W @ P R ( >a U W 0 =b P P @ ! T W P D Y P Y P Y
0x151ea8…15203c Dummy {f00=0x007f, f01=0x0190, f02=» (@ @ P -W P B (@( @ O _ T ` ` 9A S ^ H $X D S . S $ R * S W S _ S ` R ( R * S b O" U _ L !SSP !LL W L @ A V P E @ E P
0x15203c…1521d0 Dummy {f00=0x007f, f01=0x0190, f02=» P %_ S D S E 3 P S I P S J P S ( P S * P % S H P & S P @ S , d S B | L Lb @ T W T W @ P R ( >a U W 0 =b P P @ ! T W P D Y P Y P Y
0x1521d0…152364 Dummy {f00=0x007f, f01=0x0190, f02=» (@ @ P -W P B (@( @ O _ T ` ` 9A S ^ H $X D S . S $ R * S W S _ S ` R ( R * S b O" U _ L !SSP !LL W L @ A V P E @ E P
0x152364…1524f8 Dummy {f00=0x007f, f01=0x0190, f02=» P %_ S D S E 3 P S I P S J P S ( P S * P % S H P & S P @ S , d S B | L Lb @ T W T W @ P R ( >a U W 0 =b P P @ ! T W P D Y P Y P Y
0x1524f8…15268c Dummy {f00=0x007f, f01=0x0190, f02=» (@ @ P -W X< P Q R ;A [ [ : P Q R ;A [ [ : Q R P ;A [ [ : ? ? !? P P !> P W 9P _ T !##P> ? R4 L TX P L P 4 M X M M _8 > & D L
0x15268c…152820 Dummy {f00=0x007f, f01=0x0190, f02=» ( 0 5 @ l 1 A l Z> : D NW (P D + I W6 @U`T n ( AU` U 1_ D + I D N ) E N : T * X SP P W X * 0 U U. _ Y . R P Y $ P X ( _ W Y & : B P6 T G W& X ^ Y ^ B
0x152820…1529b4 (0, 429) Dummy {f00=0x0080, f01=0x0190, f02=» %? : X &_ 0 D . P , _ D . D $ D * X` T ( T & ^ S W : U ; $ T $ T $ T&x : : $ T2 $ ) ] $ ) Y _$ U x 0 )_8 $_ $ ) YP_J U ; $ T $ T $ TNp : : $ T* (W $ U $
0x1529b4…152b48 Dummy {f00=0x0080, f01=0x0190, f02=» k ] a d g,g > > @ 0 A W & ^ ! Z( (X0 @ P T M ]@ , ) A P* P Y U ( ) 5 & > > [ [ Z Z Z ? Z > P "R Y W 0 Pl T Pb _ <UR "R4 PB X R< X T6 X T0. T
0x152b48…152cdc Dummy {f00=0x0080, f01=0x0190, f02=» ` X , ) Y . ` X P Y P C W~ 8!@P$ X $P y $W $ CP` ` Y $ X " PP:A: R Q W Y <D X ? ?: T p > aZ > Ph P C ` B ` T B % X . $ 4 T % _ X ,T ! P ` aj Y . V aZ !
0x152cdc…152e70 Dummy {f00=0x0080, f01=0x0190, f02=»R W " ! B ^Z Wr W 0 Z aZ ! B Z Z& X . 0T X W X ,P Y . 0 %_. % Y . W _p P aZ _ X $P y $ Y $ C ! " ` QfR$ X # P X R6;GV2 X $P y $ ` P8 X R2;GV. X " ^Z X , $4 P
0x152e70…153004 Dummy {f00=0x0080, f01=0x0190, f02=»WP R`P R&P8 R P W 9 WD $ P W _ $ P _$ _*_, _ %0=c X 0P > 0 > >_ B 1 > XT 0 _ d a d d !"&';<>@^_ 9: X ! Y Ma P ^ Y La a a b2b b a c c ! ! !
0x153004…153198 Dummy {f00=0x0080, f01=0x0190, f02=» W !d !c Y ! T ! V a ! B C ! ! T " T W Q " T ) !d a Y _ ! !dz Y &P Q W ! Y '" d0_" a~_< !dn_n !d _t B B , ! T _ D ! P ! P W C V B P ! ! ! Y
0x153198…15332c Dummy {f00=0x0080, f01=0x0190, f02=»R !__U C X ' W Y ! _ X RT U TJ X b ? Y X P " ! Y ' ! X T ! a R _ 4 ! ! ! " T ! ! ! ! 4 X ' 4 Y ' a ! ! " P ,$ , ! 4!"$&;<>@^_ d f f
0x15332c…1534c0 Dummy {f00=0x0080, f01=0x0190, f02=» F U P" T Y &_. P4 R( Pj O]> V _F T Y Y & V Y _^ C _P F F" $ P X & X ]r ! Y Y Y _ F" Hd _ ! ! f & X C _ X Y & Y > B B U$ $ ! T _ U D ! T _ C > X
0x1534c0…153654 (0, 430) Dummy {f00=0x0080, f01=0x0190, f02=»^ Y _( ? X Z ! P4 P f f X " d ! ! X & e f g4 grg B 8# T $ # ;D 7P P Y W Y X Y 8# T W$ T( X $ P X P B V *@ Y h ? X _F g k i j j^ i ! P P
0x153654…1537e8 Dummy {f00=0x0080, f01=0x0190, f02=» i B B U4 $ ! T _ U D ! T _ $$ X" X& X* C F i X`" Eg P( 8'0P Eg TD ! T 9 _ ! T @_ ! F B P !kV B C i ^N P R ?] _ C _ F F" $ P X ' X ] !
0x1537e8…15397c Dummy {f00=0x0080, f01=0x0190, f02=» T X & C & X Y & Y > X " X &" Y )Q Y > X Z2<BR J ? Y ! T X ! Y & Zl i T _ ! X $ P !j h R V P P" ! i W i X $ X !j _ X $ X X & !kt !kV Y _8 X " X &" Y
0x15397c…153b10 Dummy {f00=0x0080, f01=0x0190, f02=» X $ X & !kt X * h hF `R Y ! ! ! 4 ! V ! V W :h ! 4 X )" X '# R 4 i > t v F B P ! B C ^N P R ?] _ C _ F F" $ P X ' X ] !
0x153b10…153ca4 Dummy {f00=0x0080, f01=0x0190, f02=» T X & C & X Y & Y > X " X &" Y )Q Y > X Z2<BR J ? Y ! T X ! Y & Zl i T _ ! X $ P ! h R V P P ! i W i X $ X ! _ X $ X X & ! ! Y _8 X " X &" Y
0x153ca4…153e38 Dummy {f00=0x0080, f01=0x0190, f02=» X $ X & !kt X * h hF `R Y ! ! ! 4 ! V ! V W :h ! 4 X )" X '# R 4 i > F B P ! B C ^N P R ?] _ C _ F F" $ P X ' X ] !
0x153e38…153fcc Dummy {f00=0x0080, f01=0x0190, f02=» T X & C & X Y & Y > X " X &" Y )Q Y > X Z2<BR J ? Y ! T X ! Y & Zl i T _ ! X $ P ! h R V P P ! i W i X $ X ! _ X $ X X & ! ! Y _8 X " X &" Y
0x153fcc…154160 Dummy {f00=0x0080, f01=0x0190, f02=» X $ X & !kt X * h hF `R Y ! ! ! 4 ! V ! V W :h ! 4 X )" X '# R 4 i > F B P ! B C ^N P R ?] _ C _ F F" $ P X ' X ] !
0x154160…1542f4 (0, 431) Dummy {f00=0x0087, f01=0x0190, f02=» T X & C & X Y & Y > X " X &" Y )Q Y > X Z2<BR J ? Y ! T X ! Y & Zl i T _ ! X $ P ! h R V P P ! i W i X $ X ! _ X $ X X & ! ! Y _8 X " X &" Y
0x1542f4…154488 Dummy {f00=0x0087, f01=0x0190, f02=» X $ X & !kt X * h hF `R Y ! ! ! 4 ! V ! V W :h ! 4 X )" X '# R 4 i > F B P ! B C ^N P u P P .T B Y Wx B P X P ( ( 7 R (
0x154488…15461c Dummy {f00=0x0087, f01=0x0190, f02=» Au CPv Y X T Q (P H U ^ 9 1_N X T @k P ( Ak vF _ ( Y _ k _x X T @k P ( Ak vF_ ( Y _ k _ i v$ 9 @_ vH H k P k P $ $ 1 ) > ) $P e % > (@ B Z F U F Z k P U
0x15461c…1547b0 Dummy {f00=0x0087, f01=0x0190, f02=» 9C @ _ T M D W. D D " @ @ - U _ 9B @ T W X > "RT PL X TF X R@? V X & X H P & X P t Y X H P & < ? < ? <(@ xF $ P B $ 9H C ">h # P >_2 < U
0x1547b0…154944 Dummy {f00=0x0087, f01=0x0190, f02=» k _x X T @k P ( Ak vF_ ( Y @xpP 4 Axp U W Axp Axn @xr U : Ax Ax :A Axv , ` R @ U P. ,% T& x C ( B P T
0x154944…154ad8 Dummy {f00=0x0087, f01=0x0190, f02=»P ,! T T ( : n "' # x @xnP xp $ ) 5 Axn Ax Axr x " [ xt Ax "" P U W y xt P @xv Exx "# P P @xr P ( )W @ 0 R % "V E T D Ax _" P @xr P ( )W @ 0
0x154ad8…154c6c Dummy {f00=0x0087, f01=0x0190, f02=» {f } k _x X T @k P ( Ak vF_ ( Y @xpP 4 Axp U W Axp Axn @xr U : Ax Ax :A Axv , ` R @ U P ,% T x C ( B P T
0x154c6c…154e00 Dummy {f00=0x0087, f01=0x0190, f02=»P ,! T T ( : n "' #~ @xnP xp $ ) 5 Axn Ax Axr x " [ xt Ax "" P U W y xt P @xv Exx "# P P @xr P ( )W @ 0 R % "V E T D Ax _" P @xr P ( )W @ 0
0x154e00…154f94 (0, 432) Dummy {f00=0x008e, f01=0x0190, f02=» L k _x X T @k P ( Ak vF_ ( Y @xpP 4 Axp U W Axp Axn @xr U : Ax Ax :A Axv , ` R @ U P ,% T x C ( B P T
0x154f94…155128 Dummy {f00=0x008e, f01=0x0190, f02=»P ,! T T ( : n "' # @xnP xp $ ) 5 Axn Ax Axr x " [ xt Ax "" P {f y xt P @xv Exx "# P P @xr P ( )W @ 0 R % "V E T D Ax _" P @xr P ( )W @ 0
0x155128…1552bc Dummy {f00=0x008e, f01=0x0190, f02=» k _x X T @k P ( Ak vF_ ( Y @xpP 4 Axp U W Axp Axn @xr U : @{b , L T L PF L T M Q M L V L A{d @{b : T n @{d [ [ M
0x1552bc…155450 Dummy {f00=0x008e, f01=0x0190, f02=» U` Ub AU` X2 @{b , - M M M @{b Axn Axp > 8 h 0123456789 & 0123456789 & < +.-, 0123456789 `ABCDEFGHIJKLMNOPQRSTUVWXYZ []' ^ > ?:_; =!"#$%&/
0x155450…1555e4 Dummy {f00=0x008e, f01=0x0190, f02=»$SWAP A A A A. UU @ @ ! P$>B @ A @ E D P _ $ % $P _ % A @ " Q A ( : R W2 A A P. _ " :c* A W " :d2 * A Z & W F ` W F W F CRT
0x1555e4…155778 Dummy {f00=0x008e, f01=0x0190, f02=» 8 !RRT W V P A Y W @ " T> W @ V W Q > Y P @ T W - P _ T <B :L A W A A W T F
0x155778…15590c Dummy {f00=0x008e, f01=0x0190, f02=»V W Q W @ @ A @ CRT @ P @ ! P W @ V P _ @ ! P !RRP V @ P W _: V @ PZ W @ @ ! T _ P :l
0x15590c…155aa0 Dummy {f00=0x008e, f01=0x0190, f02=» !;;T X$ W _J T W v : W W V 0 !;;P P V Xb _ P !;;T X$ W nP XZ_V S A s A : @ R @ ! T A A " V @ R V V I W
0x155aa0…155c34 (0, 433) Dummy {f00=0x008e, f01=0x0190, f02=» A T.I T P 1 I P < R P A _> : A A A @ A V A A A A : 9e9C) A I " 9A ! 9B r @ (r A I ! ( : A A A @ A V A ! T A A I ! : 9E @ (r s A I T )
0x155c34…155dc8 Dummy {f00=0x008e, f01=0x0190, f02=»_ P =H P . @ T X W n : YX d C !CCTZ B. X B.9 H * Q _ Z_ !SST& 0 U 0 R X A X W : @ ' R xW V W$ V P P W P V V T V T W P
0x155dc8…155f5c Dummy {f00=0x008e, f01=0x0190, f02=» W 0 . " A T I T P 1 I 2 ; Z [ : : [ [ : ^ j A A A A ! T A W Z A. c
0x155f5c…1560f0 Dummy {f00=0x008e, f01=0x0190, f02=» v p R( W V W ^< _@ V _P V V : V J P n r V U n _ V n Z K W W :K W r Q R t V 2 v : V
0x1560f0…156284 Dummy {f00=0x008e, f01=0x0190, f02=» V M : W V R RR > R W > <B V x V |P v 1 v W V z ` _f V : W R R P W x _ V : " D Pd W V PL $;A^ D E D P. V P P T
0x156284…156418 Dummy {f00=0x008e, f01=0x0190, f02=» v : V W 0 : V P 9a _ " ( ) 8 ( ) : " $ V P 9A _ 0 : W W W ?AP ^ 0 : W ; V : : , X G : J @ 0 V @ 0 H W : ? ? R 0 R P
0x156418…1565ac Dummy {f00=0x008e, f01=0x0190, f02=» @ ` V b pP ` $ $ W $ H @ ) P _ " = D 4 Q _d @ 2 = G $ t V W $ V E J K _N V r V :B A V 9n A @ A A , @ @ !
0x1565ac…156740 Dummy {f00=0x008e, f01=0x0190, f02=» P( P V W U " @ Q @ P A. @ P _b A 9n A :B A @ .V 3 S Y& P4 n n S P 3 _ n 3 p B A. @ D @ W x A (
0x156740…1568d4 (0, 434) Dummy {f00=0x008f, f01=0x0190, f02=» W v W n V ~P W x _v V d , V P _ N L % V d V f v G G v U v G v : P V : V ~P W x _$ 8 V V x % V v % : V V 2 9k!
0x1568d4…156a68 Dummy {f00=0x008f, f01=0x0190, f02=» W f v ) G v ` " W p W ~ pP0 z R P _ W ~ R X4 _ ` @ ` W W ~ pPn V W % z R , " E R j W ~ R j R P 6 R Xv 6_|W T : W x
0x156a68…156bfc Dummy {f00=0x008f, f01=0x0190, f02=» E @ v H v E 2 #_v W | ;b W W t V b v ( v W p V ` $ W ` 2 ;h 0 :C # : .=H N . .=H N . N : d 8" R _ ZY QY : @ V H W z W | CRP W
0x156bfc…156d90 Dummy {f00=0x008f, f01=0x0190, f02=» 2 " T @ N =H N . @ ) H !TTXX !CCT L !UUT d Wh 2 .:H N P V _ R :h " YV : v `?A @ W W :b /
0x156d90…156f24 Dummy {f00=0x008f, f01=0x0190, f02=» R Z0 _ W l a w ` :A W V d 4 W P _ W ` W d V V W W V V >k 8 W W t V V : x A ( *P W r * W @ @ % V , P@
0x156f24…1570b8 Dummy {f00=0x008f, f01=0x0190, f02=» " P W W . !TTP @ T Y H !TTX" A 9 A : @ @ P. @ " P #D " P #E " P #F : @ " P @ P 3 _ @ " P S 1 S 9J S ( 3 ( 9B @ @ T :
0x1570b8…15724c Dummy {f00=0x008f, f01=0x0190, f02=» % P P0 r " U _2 P0 " U _2 V V tPJ S ( V | S =J @ " S V l S W l V p S W p W _L @ % P W @ % P
0x15724c…1573e0 Dummy {f00=0x008f, f01=0x0190, f02=» t S @ t PP t !RRP @ ! T 3 @ & P t 3 t 3 YL @ @ T : l ` @ P _ 3 S S V V W @ @ T : P S S _
0x1573e0…157574 (0, 435) Dummy {f00=0x0090, f01=0x0190, f02=» W V 8 8 4 D P$ @ # P H I K T + Y@ V p _j V t Y H !TTX @ @ T : H @ R @ T P / _ T @ A V W W
0x157574…157708 Dummy {f00=0x0090, f01=0x0190, f02=» H !TTX @ @ T : H !TTX !CCTr P, V r 4 U $ $ _. P, V 4 U $ $ _. @ @ @ ! P V 8 8 8 @ >B 3 . !CCP W
0x157708…15789c Dummy {f00=0x0090, f01=0x0190, f02=» @ # P H I K T + Y@ _`R& @ @ @ % P V 4 4 4 _r @ @ T : W N V @ 0 V P _ W $ q > R P >b W >b & 8P D P U & E W 8 V W R 9 W D
0x15789c…157a30 Dummy {f00=0x0090, f01=0x0190, f02=» H T P( H U V U W < + + P V : V $ F !LLT # W ;I # ;b W ;a WR# T W W,# T W W # T W W W R _ $ W : W | v z
0x157a30…157bc4 Dummy {f00=0x0090, f01=0x0190, f02=» W P _ V |P V v ] rW v P _ @ @ T : N =H N . : N =H N . : &=H F . : F =H F . : F =H F . : P N =H N T H_ : 00=H 00 P P _ _ : @
0x157bc4…157d58 Dummy {f00=0x0090, f01=0x0190, f02=» $ ! 1 ~ 0 B 1 B 2 B P v @ : P l 0 6 @ F L R l a `& , , , , ,k k ,k k . DC
0x157d58…157eec Dummy {f00=0x0090, f01=0x0190, f02=» 8g DY _ @ P @ ] KB =H N v 4a TP j
0x157eec…158080 Dummy {f00=0x0090, f01=0x0190, f02=» 2g,DI ` ?O_o 8g DY , P 4d GP
0x158080…158214 (0, 436) Opaque[0x194]
0x158214…1583a8 # DirEnt {nam=»CTAB01«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x07e0, f03=0x0000}
0x158214…1583a8 IdxSect {
0x158214…1583a8 f00 = 0x003f // 0x158214 @0x0
0x158214…1583a8 f01 = 0x0004 // 0x158216 @0x2
0x158214…1583a8 gno = [ // 0x158218 @0x4
0x158214…1583a8 [0x00]: C0x003f.0x0.0
0x158214…1583a8 [0x01]: C0x0090.0x3.0
0x158214…1583a8 ]
0x158214…1583a8 }
0x1583a8…15853c Dummy {f00=0x003f, f01=0x0190, f02=» . P IDENT CTAB01 80.12.15/EV NORDJYLLANDS AMT ENTRY CTAB01 6 P ENTRY CTAB02 L P ENTRY CTAB03 b P ENTRY CTAB04 x PCTAB01 EQU * PCTAB02 EQU * PCTAB03 EQU * 0 PCTAB04 DATA FUNC,FUNCSH,UNSC,SHIFT,CTRL,CTRL *
0x15853c…1586d0 Dummy {f00=0x003f, f01=0x018e, f02=»/9A9B D16,D17 P DATA /BFB5 A16,A17 P DATA /AAA3 A18,C18 2 DATA /8BA5 D18,A23 N DATA /3031 j DATA /3233 ~ DATA /3435 DATA /3637 DATA /3839 DATA /BA26 A20,A21 DATA /ABB3 A22,C22 P D
0x1586d0…158864 Dummy {f00=0x003f, f01=0x0190, f02=» DATA /7F7F DATA /7F7F DATA /7F7F , DATA /7F7F @ * T PFUNCSH EQU * ^ P DATA /7F9F A15,B15 r P DATA /BDBE B16,B17 P DATA /9C9D C15,C16 P DATA /9E99 C17,D15 P DATA /9A9B D16,D17 P DATA /BFB
0x158864…1589f8 Dummy {f00=0x003f, f01=0x018e, f02=»ATA /3637 DATA /3839 DATA /BA26 A20,A21 & P DATA /ABB4 A22,C22 B P DATA /B2A2 D22,D23 ^ DATA /A1A0 E15,E17 z DATA /AEAF E18,E19 DATA /8C80 E20,E21 DATA /B0B1 E22,E23 DATA /7F7F DATA /7F7
0x1589f8…158b8c Dummy {f00=0x003f, f01=0x0190, f02=» P DATA /7F7F ,C12 P DATA /B63C E00,A00 P DATA /7F2B ,E11 < P DATA /2E2D B08,B10 T P DATA /2C7F B09 p P DATA /3031 P DATA /3233 P DATA /3435 P DATA /3637 P DATA /3839 P DATA /ACA9 B12,C13 P
0x158b8c…158d20 Dummy {f00=0x003f, f01=0x0190, f02=» P DATA /4849 P DATA /4A4B P DATA /4C4D , P DATA /4E4F @ P DATA /5051 T P DATA /5253 h P DATA /5455 | P DATA /5657 P DATA /5859 P DATA /5A5C P DATA /5B5D P DATA /277F D12 P* PSHIFT
0x158d20…158eb4 (0, 437) Dummy {f00=0x0090, f01=0x0190, f02=»/7F3F ,E11 P DATA /3A5F B08,B10 P DATA /3B7F B09 . P DATA /3D21 F P DATA /2223 Z P DATA /2425 n P DATA /262F P DATA /2829 P DATA /ACA9 B12,C13 P DATA /ADA7 E13,D13 P DATA /A8A6 D14,E14 P DATA /404
0x158eb4…159048 Dummy {f00=0x0090, f01=0x018e, f02=»ATA /4E4F P DATA /5051 P DATA /5253 & P DATA /5455 : P DATA /5657 N P DATA /5859 b P DATA /5A5C v P DATA /5B5D P DATA /2A7F D12 P* PCTRL EQU * P DATA /207F A01 P DATA /7F7F P DATA /7F7
0x159048…1591dc Dummy {f00=0x0090, f01=0x0190, f02=» P DATA /300D P DATA /3233 P DATA /3435 , P DATA /3637 @ P DATA /3839 T P DATA /ACA9 B12,C13 h P DATA /ADA7 E13,D13 P DATA /A8A6 D14,E14 P DATA /6041 E12 P DATA /4243 P DATA /4445 P DATA /4647
0x1591dc…159370 Dummy {f00=0x0090, f01=0x408e, f02=»455 P DATA /5657 P DATA /5859 P DATA /5A5C 4 P DATA /5B5D H P DATA /277F D12 P* t END ~@ 7 E13,D13 P DATA /A8A6 D14,E14 P DATA /6041 E12 P DATA /4243 P DATA /4445 P DATA /4647
0x159370…159504 Dummy {f00=0x0090, f01=0x2008, f02=» 233 DATA /3435 DATA /3637 ( DATA /3839 < DATA /BA26 A20,A21 P DATA /ABB3 A22,C22 l DATA /B292 D22,D23 DATA /A1A0 E15,E17 DATA /AEAF E18,E19 DATA /8C80 E20,E21 DATA /B0B1 E22,
0x159504…159698 Dummy {f00=0x0090, f01=0x0190, f02=»EGSET v & PDK03 DSET FC=C3 FD999003 CYCLE SET $ PDK04 DSET FC=C4 FD999004 KT PLAN 8 PDSSOPI DSET FC=10 ` PDSSOPO DSET FC=11 z " P FMTCTL INDS=KEYB,OUTDS=SCREEN P* P* P* P* P* P START REGGO P STACK 1
0x159698…15982c Dummy {f00=0x0090, f01=0x0190, f02=»TA DIVISION FOR IBM-3270 EMULATION PACKAGE. z B P* THIS MODULE ALSO CONTAINS THE CREDIT CODED 4 * P* START-UP ROUTINES. z P* H P******************************************************************** P P E
0x15982c…1599c0 Dummy {f00=0x0090, f01=0x0190, f02=»E F=NO SALDO AT ALL IN KORT . PCCLKTFLG BOOL FALSE T=KONTOKORT I KASSELUK $ 0 PCTESTFLG BOOL FALSE T=CONVERSION, TEST MODE V , PCTRVALG BOOL FALSE T: SKOVBO. F: VIBORG . PCFLT46 BOOL FALSE T=SPECIAL FIELD 46,TR=8 . PCFLT48 BOOL FALSE T=SPECIAL
0x1599c0…159b54 (0, 438) Opaque[0x194]
0x159b54…159ce8 # DirEnt {nam=»M:92NE«, typ=»UF«, f00=0x0000, f01=0x0000, f02=0x1100, f03=0x0000}
0x159b54…159ce8 IdxSect {
0x159b54…159ce8 f00 = 0x0088 // 0x159b54 @0x0
0x159b54…159ce8 f01 = 0x0002 // 0x159b56 @0x2
0x159b54…159ce8 gno = [ // 0x159b58 @0x4
0x159b54…159ce8 [0x00]: C0x0088.0x0.0
0x159b54…159ce8 ]
0x159b54…159ce8 }
0x159ce8…159e7c Dummy {f00=0x0088, f01=0x0190, f02=» SCR LED DRDC15,/S * &!!CH $$TBLEN EQU 2300$$TBLEN EQU 252$$ & $ !!CH $$CODE EQU 0$$CODE EQU 1$$ T !!EN | ASM /S,NL KPF /O SCR LED EBCDIC,/S $ !!CH $$CODE EQU 0$$CODE EQU 1$$ !!EN ASM /S,NL
0x159e7c…15a010 Dummy {f00=0x0088, f01=0x004c, f02=»SCR ASM EBCDIC,NL KPF /O " SCR 0 ASG /E0,TY10 < & $ !!CH $$CODE EQU 0$$CODE EQU 1$$ T !!EN | ASM /S,NL KPF /O SCR LED EBCDIC,/S $ !!CH $$CODE EQU 0$$CODE EQU 1$$ !!EN ASM /S,NL
0x15a010…15a1a4 Dummy {f00=0x0088, f01=0x2008, f02=» ASM EBCDIC,NL KPF /O " SCR 0 ASG /E0,TY10 < & $ !!CH $$CODE EQU 0$$CODE EQU 1$$ T !!EN | ASM /S,NL KPF /O SCR LED EBCDIC,/S $ !!CH $$CODE EQU 0$$CODE EQU 1$$ !!EN ASM /S,NL
0x15a1a4…15a338 Dummy {f00=0x0088, f01=0x0190, f02=» , ( a , ( q 4 HALTN d t SCTMSZK SCTSFA SCTEFA SCTPLD SCTANO SCTADA S
0x15a338…15a4cc Dummy {f00=0x0088, f01=0x0190, f02=» SCTPSZ SCTMMC SCTLACL 0 SCTMMP D SCTLAP X SCTNPE l SCTSTB SCTOPT SCTTCT SCTCDT SCTBUG~ SCTDMT , (
0x15a4cc…15a660 Dummy {f00=0x0088, f01=0x4062, f02=» _ , L@ ^ X SCTNPE l SCTSTB SCTOPT SCTTCT SCTCDT SCTBUG~ SCTDMT , (
0x15a660…15a7f4 (0, 439) Opaque[0x194]
0x15a7f4…15a988 # DirEnt {nam=»M:92NE«, typ=»LM«, f00=0x0000, f01=0x0000, f02=0x0890, f03=0x0000}
0x15a7f4…15a988 IdxSect {
0x15a7f4…15a988 f00 = 0x0044 // 0x15a7f4 @0x0
0x15a7f4…15a988 f01 = 0x0020 // 0x15a7f6 @0x2
0x15a7f4…15a988 gno = [ // 0x15a7f8 @0x4
0x15a7f4…15a988 [0x00]: C0x0044.0x2.0
0x15a7f4…15a988 [0x01]: C0x0044.0x3.0
0x15a7f4…15a988 [0x02]: C0x0045.0x0.0
0x15a7f4…15a988 [0x03]: C0x0045.0x1.0
0x15a7f4…15a988 [0x04]: C0x0045.0x2.0
0x15a7f4…15a988 [0x05]: C0x0045.0x3.0
0x15a7f4…15a988 [0x06]: C0x0046.0x0.0
0x15a7f4…15a988 [0x07]: C0x0046.0x1.0
0x15a7f4…15a988 [0x08]: C0x0046.0x2.0
0x15a7f4…15a988 [0x09]: C0x0046.0x3.0
0x15a7f4…15a988 [0x0a]: C0x0047.0x0.0
0x15a7f4…15a988 [0x0b]: C0x0047.0x1.0
0x15a7f4…15a988 [0x0c]: C0x0047.0x2.0
0x15a7f4…15a988 [0x0d]: C0x007e.0x1.0
0x15a7f4…15a988 [0x0e]: C0x007e.0x2.0
0x15a7f4…15a988 [0x0f]: C0x008e.0x1.0
0x15a7f4…15a988 ]
0x15a7f4…15a988 }
0x15a988…15ab1c Dummy {f00=0x0044, f01=0x0190, f02=» X w J h h h h h h < h h%b% $ . 8 h h h h h h $ h h h h h h h h h h h h h h h h h h h h h h h h h h h h h h h h h h h h h n c @ Tg t z ^ b bLPL H b2 Z ` z
0x15ab1c…15acb0 Dummy {f00=0x0044, f01=0x0190, f02=» 4c @S{ D d 2Z $"z y B % y D Dbf d * F :P }B W [~ ? d j% L "~ T &b ICn 1 d _ A d " ] _ @] > > U # T @ H ( ( P c P W: P, A] @ V ( U P" @D V LD W @E
0x15acb0…15ae44 Dummy {f00=0x0044, f01=0x0190, f02=» 6 8 ^ Q Z P 0 9 t t_ $ @ _, ? P H H #P h A d A FQ ? @] : ) A] _ @ @ A H ( A] _ ? ? ? ? ? ^ A _ _ ^ ] $P T I R $ 5 % > ? W ? W ? T T$ U U U U
0x15ae44…15afd8 Dummy {f00=0x0044, f01=0x0190, f02=» Q Q > > 0 @] 1 A] P P > ? * X " R" Y T ? X D E|T> Z W8 > _& @ 8 R" Y T ? X D E|T Z W > _& W2 > 8 X W( ? ` @ @ P $ H W W > > > > > > @] V ? ] > _ > ? _ > > ? ^ ! Y ^ _ n ?
0x15afd8…15b16c Dummy {f00=0x0044, f01=0x0190, f02=» < $ ( , 0 4 8 < C 8W T 8P Y ^ 5 ) P U ^ XH D #DP @ R XV Y @ P, E|T W X &P T X I Y T # C C W4 O " # X Y ) C
0x15b16c…15b300 Dummy {f00=0x0044, f01=0x0190, f02=» P j$ > > F C F C > B R Q F ! P C > C > F :c" H :b"? #" : C > B R Q~ P0 B P* 0$ T # R QL > X B U( H Q2 X
0x15b300…15b494 (0, 440) Dummy {f00=0x0044, f01=0x0190, f02=» P PL $ # Q > P _0 # T p > P p (_H _2 B U X > ? _ X T (@ H ^ > > ? _ X T X X T % T ?C L Rl _@(@ L U L Q0 M & X
0x15b494…15b628 Dummy {f00=0x0044, f01=0x0190, f02=» 0P X T 4 Y X E| X T X Z8 1 1 X P - M T $ PD _ T " # p X L R P RP (@ ^ X P8 P0 # P T P 0P 1 _ t W Y > > ] J B B ] J B B pU
0x15b628…15b7bc Dummy {f00=0x0044, f01=0x0190, f02=» 0 R t B " P Q :A H P P ^ H !@T I ^ T ! 1 U ^ A d ? W A d ? W A d ? W U R ; V ~# T R p 4 # PJ P 4 RL P 4 ] P $ P ] U PD P< P0 P,
0x15b7bc…15b950 Dummy {f00=0x0044, f01=0x0190, f02=» ' T P X P " >Wh T # Y U T ] W 8V X $P y $W $ D P 8R R ^ Y $ X Z ;BR 8% =A Y T Z& h_, X ' X 4X< XB U T T U 5 U R " ] ~ ^ ;h # <c$
0x15b950…15bae4 Dummy {f00=0x0044, f01=0x0190, f02=»X <d$ _D $?:D" Y X P Y # P 4T U # P 4 4 P _r T _$ U _ ? 4 U 5 R PF "P2 R T T R X # X h > P P P ` X XF _H Wj ? T T D W u > > E D E
0x15bae4…15bc78 Dummy {f00=0x0044, f01=0x0190, f02=»XB Y X X X X ' 4 B U B (" W C (@ > ?" 8' ?A R 8;b# 4T RT T T ] ] 8 W< TrW T ] _ P T V WT 8V T P U 8 ~ U Q2P X H 5 U R " ] ~ Y > > V P
0x15bc78…15be0c Dummy {f00=0x0044, f01=0x0190, f02=» 4XR XX 5 h_b Y Y Y X 9BV$ X & Y " X D V & X . T 8TV 9WD B 7P P ^ A] W A] @] A.W ? A dI.9 X R C C & ^ ?A @] A. X V 9_: @
0x15be0c…15bfa0 Dummy {f00=0x0044, f01=0x0190, f02=» Pb P Pv Pz * 6 + ^ A] @] A. H D d ^ Y HW A] @] A. Wx ! * X , X P ! ! BW< ! * _ ! * _& ! X , X P ! H X , X P B B ! f ! B ! T Y *W X * p ! H# f & ! H ! " 0 TOT
0x15bfa0…15c134 (0, 441) Dummy {f00=0x0045, f01=0x0190, f02=»& Ph B @ @ :C P ! H 9DV ! (@ B r ! ! R ! j ! ! b ! ( ! ! Z ! X Y . X * f " ! H_ Y * 4 ! ~ PT C ! l ! H ! (@ ! ~ R _ ! V 1 ;h 1 ! V 1 ! ! l* ! B ! ! ~ ) ! H Y *# T X
0x15c134…15c2c8 Dummy {f00=0x0045, f01=0x0190, f02=» ! B ! ~ ! T )WL WP ! ~ Xz R ! ( - j ! ) W. Y PW Y P Y L Y N Y B S W W B C & ^ _ ? , Y " X $ T X Y $ Y X HP 1 Y H ] 0 Y J 1 0B. X (P y (_^ ( D _n Y ( " X . P Y : ! F ! H X # P
0x15c2c8…15c45c Dummy {f00=0x0045, f01=0x0190, f02=» D C Y B ^ K & E % Y B K , X ;AR@;a X &P Y & P 7P < $ <C ! 9 4 X t " _ W B RZ X , X P W P Q8 U _ T,: B R(' P Q 9BW Q 9C B ! T 4 x @ P ;A _ 4
0x15c45c…15c5f0 Dummy {f00=0x0045, f01=0x0190, f02=»U P jW kQ 4 Y * ! 0" Z Y" P Z _ 4 A ;D A 4 R _ ;H 4 r ! (:C 4 Z ! ( 4 X " 4 ! ) 4 X P t 4 P y _^ _n Y " X P Y : ! ! H X # P
0x15c5f0…15c784 Dummy {f00=0x0045, f01=0x0190, f02=» P Y P 7P < $ <C ! 9 4 X t " _ W B R X X P W P Q U _ T : B R ' P Q 9BW Q 9C B ! T 4 x @ P ;A _ 4
0x15c784…15c918 Dummy {f00=0x0045, f01=0x0190, f02=»U P jW kQ 4 Y ! 0" Z Y" P Z _ 4 A ;D A 4 R _ ;H 4 ! (:C 4 ! ( 4 X " 4 ! ) 4 X P t 4 P y _^ '2 '2 P Y : ! ! H X # P
0x15c918…15caac Dummy {f00=0x0045, f01=0x0190, f02=» @B B ^ @B `B @B P 0P _ % AB AB &_r B Q< f_ X P 0 Y P C x_ _ B Y _N ^ X P A D Y Wb Y @_x X X A D " Y _& Y | @ p 0 A r A p_: X P ( y Y W '2 (P 0 ) >
0x15caac…15cc40 Dummy {f00=0x0045, f01=0x0190, f02=» C x > @ @ @ A X &_" X P y Y X P T | @ p T A r A p > A R A V A Z A ^ A b fW > X P !% 2B !% T P P ! ! ! !% Tf Tb A' P A' TR !
0x15cc40…15cdd4 (0, 442) Dummy {f00=0x0045, f01=0x0190, f02=» !# A r A t_ !& @ tP @'2X@ !#R T< A x !$ @ rP @'2P @ p 0 8 !"z !# A |_: !% X6_Z A x @'2 @ T 1 R 0 2P P P A R @ n 8 HC @'2P E ' PF X R@ X P X T2 P C > C X T ! W xW( &W" X R X T &
0x15cdd4…15cf68 Dummy {f00=0x0045, f01=0x0190, f02=» 6 D ! ^ P @ p @ @ A " !& @ rXN !% T @ |P !$ !&j_h /T& @ |X @ vP !# !$ A z_ A | " < A r @ vT _, _0 @ rT<W @'2T !# _ !"z !# _ A t A HC E A x A n 4 @ rP !$ !&j !&FW @ T !$ _ T |_ A
0x15cf68…15d0fc Dummy {f00=0x0045, f01=0x0190, f02=» & | A r A p 4 @'2 @ xT @ A @ A A x !% T2 P4 PJ PL P P. 1 A @ ]6W P _@ @'2 @ E !& P !% 4 _$ !& 2_l / A |T W ,W A A W W W A A !%H @ !% @ !% !% !% B J 4 !%H !%
0x15d0fc…15d290 Dummy {f00=0x0045, f01=0x0190, f02=»% P " ! " :A *@ HB T 0 !% W R !% A @ @ UH Zx Q P Q T 0 !% A 0 !% A !% " !% " !% $* A v _" B J B !% !% 4 A d ? PJ T A ~T 2PX !& HB 4 !% A d ? P_ I " P A x A 4 A _$"
0x15d290…15d424 Dummy {f00=0x0045, f01=0x0190, f02=» @ A &X ^ A a 4 D &0 X A > D &z Z A 4 A !% @ rP !$ !&j @ P a A 4 A& A& A& ?a :a# P @& @& @& 4 |T A ~ !% & !% A ~ @& :H 4 '& '408
0x15d424…15d5b8 Dummy {f00=0x0045, f01=0x0190, f02=» P " ! " :A *@ H T 0 ! W R ! A @ @ U Zx Q P Q T 0 ! A 0 ! A ! " ! " ! $* A v _" B J B ! ! 4 A d ? PJ T A ~T 2P ! H 4 ! A d ? P_ I " P A x A 4 A _$"
0x15d5b8…15d74c Dummy {f00=0x0045, f01=0x0190, f02=» @ A A a 4 &0 X A > Z A 4 A !% @ rP !$ !&j @ P a A 4 A A A ?a :a# P @ @ @ 4 |T A ~ !% & !% A ~ @& :H 4 '408
0x15d74c…15d8e0 Dummy {f00=0x0045, f01=0x0190, f02=» P " ! " :A *@ H T 0 ! W R ! A @ @ U Zx Q P Q T 0 ! A 0 ! A ! " ! " ! $* A v _" B J B ! ! 4 A d ? PJ T A ~T 2P ! H 4 ! A d ? P_ I " P A x A 4 A _$"
0x15d8e0…15da74 (0, 443) Dummy {f00=0x0045, f01=0x0190, f02=» @ A A a 4 &0 X A > Z A 4 A !% @ rP !$ !&j @ P a A 4 A A A ?a :a# P @ @ @ 4 |T A ~ !% & !% A ~ @& :H 4 '408
0x15da74…15dc08 Dummy {f00=0x0045, f01=0x0190, f02=» P " ! " :A *@ H T 0 ! W R ! A @ @ U Zx Q P Q T 0 ! A 0 ! A ! " ! " ! $* A v _" B J B ! ! 4 A d ? PJ T A ~T 2P ! H 4 ! A d ? P_ I " P A x A 4 A _$"
0x15dc08…15dd9c Dummy {f00=0x0045, f01=0x0190, f02=» @ A A a 4 &0 X A > Z A 4 A !% @ rP !$ !&j @ P a A 4 A A A ?a :a# P @ @ @ 4 |T A ~ !% & !% A ~ @& :H 4 '408
0x15dd9c…15df30 Dummy {f00=0x0045, f01=0x0190, f02=» P " ! " :A *@ H T 0 ! W R ! A @ @ U Zx Q P Q T 0 ! A 0 ! A ! " ! " ! $* A v _" B J B ! ! 4 A d ? PJ T A ~T 2P ! H 4 ! A d ? P_ I " P A x A 4 A _$"
0x15df30…15e0c4 Dummy {f00=0x0045, f01=0x0190, f02=» @ A A a 4 &0 X A > Z A 4 A !% @ rP !$ !&j @ P a A 4 A A A ?a :a# P @ @ @ 4 |T A ~ !% & !% A ~ @& :H 4 '408
0x15e0c4…15e258 Dummy {f00=0x0045, f01=0x0190, f02=» P " ! " :A *@ H T 0 ! W R ! A @ @ U Zx Q P Q T 0 ! A 0 ! A ! " ! " ! $* A v _" B J B ! ! 4 A d ? PJ T A ~T 2P ! H 4 ! A d ? P_ I " P A x A 4 A _$"
0x15e258…15e3ec Dummy {f00=0x0045, f01=0x0190, f02=» @ A A a 4 &0 X A > Z A 4 A !% @ rP !$ !&j @ P a A 4 A A A ?a :a# P @ @ @ 4 |T A ~ !% & !% A ~ @& :H 4 '408
0x15e3ec…15e580 Dummy {f00=0x0045, f01=0x0190, f02=» P " ! " :A *@ H T 0 ! W R ! A @ @ U Zx Q P Q T 0 ! A 0 ! A ! " ! " ! $* A v _" B J B ! ! 4 A d ? PJ T A ~T 2P ! H 4 ! A d ? P_ I " P A x A 4 A _$"
0x15e580…15e714 (0, 444) Dummy {f00=0x0045, f01=0x0190, f02=» @ A A a 4 &0 X A > Z A 4 A !% @ rP !$ !&j @ P a A 4 A A A ?a :a# P @ @ @ 4 |T A ~ !% & !% A ~ @& :H 4 '408
0x15e714…15e8a8 Dummy {f00=0x0045, f01=0x0190, f02=» P " ! " :A *@ H T 0 ! W R ! A @ @ U Zx Q P Q T 0 ! A 0 ! A ! " ! " ! $* A v _" B J B ! ! 4 A d ? PJ T A ~T 2P ! H 4 ! A d ? P_ I " P A x A 4 A _$"
0x15e8a8…15ea3c Dummy {f00=0x0045, f01=0x0190, f02=» @ A A a 4 &0 X A > Z A 4 A !% @ rP !$ !&j @ P a A 4 A A A ?a :a# P @ @ @ 4 |T A ~ !% & !% A ~ @& :H 4 '408
0x15ea3c…15ebd0 Dummy {f00=0x0045, f01=0x0190, f02=» P " ! " :A *@ H T 0 ! W R ! A @ @ U Zx Q P Q T 0 ! A 0 ! A ! " ! " ! $* A v _" B J B ! ! 4 A d ? PJ T A ~T 2P ! H 4 ! A d ? P_ I " P A x A 4 A _$"
0x15ebd0…15ed64 Dummy {f00=0x0045, f01=0x0190, f02=» @ A A a 4 &0 X A > Z A 4 A !% @ rP !$ !&j @ P a A 4 A A A ?a :a# P @ @ @ 4 |T A ~ !% & !% A ~ @& :H 4 '408
0x15ed64…15eef8 Dummy {f00=0x0045, f01=0x0190, f02=» P " ! " :A *@ H T 0 ! W R ! A @ @ U Zx Q P Q T 0 ! A 0 ! A ! " ! " ! $* A v _" B J B ! ! 4 A d ? PJ T A ~T 2P ! H 4 ! A d ? P_ I " P A x A 4 A _$"
0x15eef8…15f08c Dummy {f00=0x0045, f01=0x0190, f02=» @ A A a 4 &0 X A > Z A 4 A !% @ rP !$ !&j @ P a A 4 A A A ?a :a# P @ @ @ 4 |T A ~ !% & !% A ~ @& :H 4 '408
0x15f08c…15f220 Dummy {f00=0x0045, f01=0x0190, f02=» P " ! " :A *@ H T 0 ! :f"? HBV !% "? HBV !% 4 ABCDEFGHI#.<(+!&JKLMNOPQR$]*);^-/STUVWXYZ@,%_>?0123456789:[ '="B B ABC
0x15f220…15f3b4 (0, 445) Dummy {f00=0x0046, f01=0x0190, f02=»456789:#@'=" ABCDEFGHI[.<(+!&JKLMNOPQR]$*);^ /STUVWXYZ|,%_>?0123456789:#@'= 7- <=2&p ?' @O JZlP}M] Nk`Ka z^L~noj {|[_m TOSS T Dp D D ^ P D D D
0x15f3b4…15f548 Dummy {f00=0x0046, f01=0x0190, f02=»yf {z{nw x F F G G G G G G.G.F F*F F|FLG G FPG.G.F F:" # $ % "$&( E~ E @ D X P _ L !##P T @ R $P U + U _ (@(@ IEFP ^ G HE` Y HE B # X ( U G B r
0x15f548…15f6dc Dummy {f00=0x0046, f01=0x0190, f02=»[ H H S W C C B B B U Z R Wp H TP L P B r L ( $ X _ X ` T I T J Y P C X I X J S W C C W, B B Y IR Q X JU C '? T W6 [b T.(@(@ P #D {h H
0x15f6dc…15f870 Dummy {f00=0x0046, f01=0x0190, f02=» - _ : Z $ -_ D ( U ( 0 W T ` U @ , @ W : X & X P !##T Y T( X P P P @] Q (@ F ]D : @ _ ] ( H > H X &Pj D ^V" D "? P P &P E ^ 6 V, P ( I ( (
0x15f870…15fa04 Dummy {f00=0x0046, f01=0x0190, f02=» P W T Y $ P T _ Y & F (@ _ Kd X & X I U X J U ( [ T$ X X RP F H T L P ` U0 @ , D !##X D ( * ]" 0 X Wf ` U @ H @ X WF Z N 4 5W
0x15fa04…15fb98 Dummy {f00=0x0046, f01=0x0190, f02=» 9 L 4' J ' J 5 J 4 Qh W , P& ,' X X 1 Z" ) J _ (@ C ( B ! L J @G F U G F G HL L & ( F " F +P P* X $ T Z U W Z R P> $P8W L X ( X & F
0x15fb98…15fd2c Dummy {f00=0x0046, f01=0x0190, f02=» D '? P P( $ P" [ I I K K P P & P Z W D $ T Z T Z W E I E J X ^V ? T B &(@( z B B P ! Tn M P : L Az Az " P y "" z~ P P z @y (@ Dy
0x15fd2c…15fec0 Dummy {f00=0x0046, f01=0x0190, f02=» Ay @z P B Dy Ey X #D( M*( B B @y Dy NW C C ( L M z y @z T Az 0" O O U _ L !SSP !LL O W L @y Ay V P P Ey @y Ey P Ey P Ey Dy T z
0x15fec0…160054 (0, 446) Dummy {f00=0x0046, f01=0x0190, f02=»_ S E| S E 3 P S I P S J P S ( P S * P % S H P & S P @z S , d S B | N^ M @y T W z T Wz @z P R ( >a U Wb 0 =b Py P @y ! T. W< Py Dy Y Py Y Py Y U ! T ! X6 _R
0x160054…1601e8 Dummy {f00=0x0046, f01=0x0190, f02=»P B zR (@( @z P _ T `y ` 9A S ^ H $X D S . S $ ~ R * S W S _ S ` R ( R * Y S b P U _ L !SSP !LL W L @ A V P E @ E P E P E D T
0x1601e8…16037c Dummy {f00=0x0046, f01=0x0190, f02=»_ S E| S E 3 P S I P S J P S ( P S * P % S H P & S P @ S , d S B | N^ M @ T W T W @ P R ( >a U W 0 =b P P @ ! T W P D Y P Y P Y U ! T ! X6 _R
0x16037c…160510 Dummy {f00=0x0046, f01=0x0190, f02=»P B (@( @ P _ T ` ` 9A S ^ H $X D S . S $ R * S W S _ S ` R ( R * S b P U _ L !SSP !LL W L @ A V P E @ E P E P E D T
0x160510…1606a4 Dummy {f00=0x0046, f01=0x0190, f02=»_ S E| S E 3 P S I P S J P S ( P S * P % S H P & S P @ S , d S B | N^ M @ T W T W @ P R ( >a U W 0 =b P P @ ! T W P D Y P Y P Y U ! T ! X6 _R
0x1606a4…160838 Dummy {f00=0x0046, f01=0x0190, f02=»P B (@( @ P _ T ` ` 9A S ^ H $X D S . S $ R * S W S _ S ` R ( R * S b P U _ L !SSP !LL W L @ A V P E @ E P E P E D T
0x160838…1609cc Dummy {f00=0x0046, f01=0x0190, f02=»_ S E| S E 3 P S I P S J P S ( P S * P % S H P & S P @ S , d S B | N^ M @ T W T W @ P R ( >a U W 0 =b P P @ ! T W P D Y P Y P Y U ! T ! X6 _R
0x1609cc…160b60 Dummy {f00=0x0046, f01=0x0190, f02=» P Q R ;A [ [ : P Q R ;A [ [ : Q R P ;A [ [ : ? ? !? P P !> P W 9P _ T !##P> ? R4 L TX P L P 4 M X M M _8 > & D LW 0P Q P P E
0x160b60…160cf4 (0, 447) Dummy {f00=0x0046, f01=0x0190, f02=»Z> : D NW (P D + I W6 @V T n ( AV U 1_ D + I D N ) E N : T * Y SP P W X * 0 U U. _ Y . R P Y $ P X ( _ W Y & : B P6 T G W& X ^ Y ^ B I ~ B T B :
0x160cf4…160e88 Dummy {f00=0x0046, f01=0x0190, f02=» D . P , _ D . D $ D * Y T ( T & ^ S W : U ; $ T $ T $ T&x : : $ T2 $ ) ] $ ) Y _$ U x 0 )_8 $_ $ ) YP_J U ; $ T $ T $ TNp : : $ T* (W $ U $ ) Y _& (# )
0x160e88…16101c Dummy {f00=0x0046, f01=0x0190, f02=» @] 0 A] W & ^ ! Z( ] (X0 @] P T M ]@ , ) A] P* P Y U ( ) 5 & > > [ [ ] Z Z Z ? Z > P "R Y W 0 ^ Pl T Pb _ <UR "R4 PB X R< X T6 X T0. T G Y6 G _b
0x16101c…1611b0 Dummy {f00=0x0046, f01=0x0190, f02=» P Y P C W~ 8!@P$ X $P y $W $ D a ` Y $ X " PP:A: R Q W Y <D X ? ?: T p > b > Ph P C a` B a` T B % X . $ 4 T % aF X ,T ! P ar b Y . V b ! B P X " _` B P$
0x1611b0…161344 Dummy {f00=0x0046, f01=0x0190, f02=» W 0 Z b ! B Z Z& X . 0T X W X ,P Y . 0 %_. % Y . W _p P b _ X $P y $ Y $ C ! ^ " b8 QfR$ X # P X R6;GV2 X $P y $ b P8 X R2;GV. X " _ X , $4 P b X .T * W Y , - ^
0x161344…1614d8 Dummy {f00=0x0046, f01=0x0190, f02=» 9 WD $ P W _ $ P _$ _*_, _ %0=c X 0P > 0 > >_ B 1 > XT 0 _ d c ede !"&';<>@^_ 9: X ! Y Mc P ^ ^ Y Lc6cFcFc d(c`cZdldr ! ! ! W B W$ B L # 9Q
0x1614d8…16166c Dummy {f00=0x0046, f01=0x0190, f02=» ! T ! V c ! B C ! ! T " T W Q " T ) ^ !f b Y _ ! !e Y &P Q W ! Y '" e _" b _< !e _n !f _t B B , ! T _ D ! P ! P W C V B P ! ! ! Y 4 RNQ " PH _ " P
0x16166c…161800 Dummy {f00=0x0046, f01=0x0190, f02=» ! _ X RT U TJ X d$ ? Y X P " ! Y ' ! X T ! ^ c ^ R _ 4 ! ! ! " T ! ! ! ! 4 X ' 4 Y ' b ! ! " P ,$ , ! 4!"$&;<>@^_ fJ g h:g PB P8 ^ B P
0x161800…161994 (0, 448) Dummy {f00=0x0046, f01=0x0190, f02=»P4 R( Pj O]> V _F T Y Y & V Y _^ C _P F F" $ P X & X ]r ! Y Y Y _ F" Hf2_ ! ! gr & ^ X C _ X Y & Y > B B U$ $ ! T _ U D ! T _ C > X Z^<BR P j X _x
0x161994…161b28 Dummy {f00=0x0046, f01=0x0190, f02=» P4 P g` gd X " fJ ! ! X & g, gh h h i B 8# T $ # ;D 7P P ^ Y W Y X Y 8# T W$ T( X $ P X P B V *@ Y h ^ ^ ? X _F i m k knk k ! P P j & j ^ B P
0x161b28…161cbc Dummy {f00=0x0046, f01=0x0190, f02=» $ ! T _ U D ! T _ $$ X" X& X* C F j X`" Ei P( 8'0P Ei TD ! T 9 _ ! T @_ ! F B P !l B C j ^N P R ?] _ C _ F F" $ P X ' X ] ! kD i B !l !l
0x161cbc…161e50 Dummy {f00=0x0046, f01=0x0190, f02=» Y & Y > X " X &" Y )Q Y > X Z2<BR J ? Y ! T X ! Y & Zl k T _ ! X $ P !l i R V P P" ! kDW k4 X $ X !l _ X $ X X & !l !l Y _8 X " X &" Y )U W ! ! !
0x161e50…161fe4 Dummy {f00=0x0046, f01=0x0190, f02=» i `R Y ! ! ! 4 ! V ! V W :h ! 4 X )" X '# R 4 k4 > v*w~ F B P ! B C ^N P R ?] _ C _ F F" $ P X ' X ] ! i B ! !
0x161fe4…162178 Dummy {f00=0x0046, f01=0x0190, f02=» Y & Y > X " X &" Y )Q Y > X Z2<BR J ? Y ! T X ! Y & Zl k T _ ! X $ P ! i R V P P ! kDW k4 X $ X ! _ X $ X X & ! ! Y _8 X " X &" Y )U W ! ! !
0x162178…16230c Dummy {f00=0x0046, f01=0x0190, f02=» i `R Y ! ! ! 4 ! V ! V W :h ! 4 X )" X '# R 4 k4 > F B P ! B C ^N P R ?] _ C _ F F" $ P X ' X ] ! i B ! !
0x16230c…1624a0 Dummy {f00=0x0046, f01=0x0190, f02=» Y & Y > X " X &" Y )Q Y > X Z2<BR J ? Y ! T X ! Y & Zl k T _ ! X $ P ! i R V P P ! kDW k4 X $ X ! _ X $ X X & ! ! Y _8 X " X &" Y )U W ! ! !
0x1624a0…162634 (0, 449) Dummy {f00=0x0047, f01=0x0190, f02=» i `R Y ! ! ! 4 ! V ! V W :h ! 4 X )" X '# R 4 k4 > F B P ! B C ^N P R ?] _ C _ F F" $ P X ' X ] ! i B ! !
0x162634…1627c8 Dummy {f00=0x0047, f01=0x0190, f02=» Y & Y > X " X &" Y )Q Y > X Z2<BR J ? Y ! T X ! Y & Zl k T _ ! X $ P ! i R V P P ! kDW k4 X $ X ! _ X $ X X & ! ! Y _8 X " X &" Y )U W ! ! !
0x1627c8…16295c Dummy {f00=0x0047, f01=0x0190, f02=» i `R Y ! ! ! 4 ! V ! V W :h ! 4 X )" X '# R 4 k4 > F B P ! B C ^N P wF P P .T B Y Wx B P X P ( ( 7 R ( P H RN H P '
0x16295c…162af0 Dummy {f00=0x0047, f01=0x0190, f02=» Q (P H U ^ 9 1_N ^ X T @m*P ( Am* w _ ( Y _ m(_x X T @m(P ( Am( w _ ( Y _ m*_ i w 9 @_ w H m(P m*P $ $ 1 ) > ) $P e % > (@ B Z F U F Z m$ P U ^ C G 4' "?
0x162af0…162c84 Dummy {f00=0x0047, f01=0x0190, f02=» D W. D D " @ @ - U _ 9B @ T W X > "RT PL X TF X R@? V X & X H P & X P t Y X H P & < ? < ? <(@ y $ P B $ 9H C ">h # P >_2 < U = (@ " $ P B
0x162c84…162e18 Dummy {f00=0x0047, f01=0x0190, f02=» m(_x X T @m(P ( Am( w _ ( Y @y P 4 Ay U W Ay Ay @y U : Az$ Az&:A Ay , ` R @ U P. ,% T& z C ( B P T W ' T| Iy @ 8 =hP
0x162e18…162fac Dummy {f00=0x0047, f01=0x0190, f02=» : n "' # z. @y P y $ ) 5 ^ Ay Az Ay z0 " y Ay "" P U W z~ y P @y Ey "# P P @y P ( )W @ 0 R % "V E T D Az _" P @y P ( )W @ 0 Rb ' F "R
0x162fac…163140 Dummy {f00=0x0047, f01=0x0190, f02=» m(_x X T @m(P ( Am( w _ ( Y @y P 4 Ay U W Ay Ay @y U : Az$ Az&:A Ay , ` R @ U P ,% T z C ( B P T W ' T Iy @ 8 =hP
0x163140…1632d4 (0, 450) Dummy {f00=0x0047, f01=0x0190, f02=» : n "' # @y P y $ ) 5 ^ Ay Az Ay z0 " y Ay "" P U W z~ y P @y Ey "# P P @y P ( )W @ 0 R % "V E T D Az _" P @y P ( )W @ 0 Rb ' F "R
0x1632d4…163468 Dummy {f00=0x0047, f01=0x0190, f02=» m(_x X T @m(P ( Am( w _ ( Y @y P 4 Ay U W Ay Ay @y U : Az$ Az&:A Ay , ` R @ U P ,% T z C ( B P T W ' T Iy @ 8 =hP
0x163468…1635fc Dummy {f00=0x0047, f01=0x0190, f02=» : n "' # @y P y $ ) 5 ^ Ay Az Ay z0 " y Ay "" P | z~ y P @y Ey "# P P @y P ( )W @ 0 R % "V E T D Az _" P @y P ( )W @ 0 Rb ' F "R
0x1635fc…163790 Dummy {f00=0x0047, f01=0x0190, f02=» m(_x X T @m(P ( Am( w _ ( Y @y P 4 Ay U W Ay Ay @y U : @| , L T L PF L T M Q M L V L A| @| : T n @| [ [ M M M A| -(@ :
0x163790…163924 Dummy {f00=0x0047, f01=0x0190, f02=» @| , - M M M @| Ay Ay > h 0123456789 & 0123456789 & < +.-, 0123456789 `ABCDEFGHIJKLMNOPQRSTUVWXYZ []' ^ > ?:_; =!"#$%&/() @ABCDEFGHIJKLMNO
0x163924…163ab8 Dummy {f00=0x0047, f01=0x0190, f02=» $ % $P _ % A @ " Q A H : R W2 A 0 A 0 P. _ " :c* A W " :d2 * A z & W F ` W F W F CRT F A @ @ ! P2 @ P ;b=H F CR F W =J F CRTT F
0x163ab8…163c4c Dummy {f00=0x0047, f01=0x0190, f02=» ^ Y P @ T W - P _ T <B :L A W A A W T F W V = V W Y* P Z( = :L <
0x163c4c…163de0 Dummy {f00=0x0047, f01=0x0190, f02=» @ V P _ @ ! P !RRP V @ P W _: V @ PZ W @ @ ! T _ P :l 9b ) V _ @ V W W 0 0 P 0 TJ V 0 !;;P
0x163de0…163f74 (0, 451) Dummy {f00=0x0047, f01=0x0190, f02=» V 0 !;;P P V Xb _ P !;;T X$ W & nP XZ_V S A A Z @ R @ ! T A . A B V @ R V V I & W V $ ) H A I. : ( C. X C.9h! ( (#
0x163f74…164108 Dummy {f00=0x0047, f01=0x0190, f02=» ` A v A A A A : 9e9C) A I " 9A ! 9B r @ Hr A I ! ( : A A A ` A v A .! T A 2 A . I ! : 9E @ Hr s A I T ) A _ I N T : ` v 9PJ S Y T@ $ 1
0x164108…16429c Dummy {f00=0x0047, f01=0x0190, f02=»Q _ z_ !SST& 0 U P R X A X W : @ ' R xW V W$ V P P W P V V T V T W P V W @ $ P p W & T : A L _ 0V , - P X 9A_ : @
0x16429c…164430 Dummy {f00=0x0047, f01=0x0190, f02=» j A A A A ! T A W Z A. c @ V W U R $ )_ : W W W W W Q@
0x164430…1645c4 Dummy {f00=0x0047, f01=0x0190, f02=» J P r V U _ V Z K W W :K W r Q R t V R v : V W V ) : V <B W |P v v : $ V |P v w v
0x1645c4…164758 Dummy {f00=0x0047, f01=0x0190, f02=» x V |P v 1 v W V z ` _f V : W R R P W x " _ V : " D Pd W V PL $;A^ D E D P. V P P T E _J E _T " D T E E D E % : " R ;B "
0x164758…1648ec Dummy {f00=0x0047, f01=0x0190, f02=» _ 0 : W W W ?AP ^ 0 : W ; V : : , X G : J @ 0 V @ 0 H W : ? ? R 0 R P P B _ ] : V ) v : 4P: " D > , H H $ M v
0x1648ec…164a80 Dummy {f00=0x0047, f01=0x0190, f02=» _ " = D 4 Q _d > ` R = G $ V W $ V E J K _N V r V :B A V 9n A @ A A , @ @ ! @ P P P P|_ _ @ 9N @ :b @ :b V W U6
0x164a80…164c14 (0, 452) Dummy {f00=0x007e, f01=0x0190, f02=» @ .V 3 S Y& P4 ] ] S P 3 _ ] 3 ] B A. @ D @ W x A ( : A ^ > l : R W n V pT : N V l W H V
0x164c14…164da8 Dummy {f00=0x007e, f01=0x0190, f02=» _ N L % V d V f v G G v U v G v : P V : V ~P 0 W x "_$ 8 V V x % V v % : V V R 9k! P % _ V V W W r W V v ) W b G
0x164da8…164f3c Dummy {f00=0x007e, f01=0x0190, f02=» _ ` @ ` W W ~ pPn 4 V W % R , " E R W ~ R R P V R Xv V_|W T : W x " _ V P > I W z ` pPl 4 H - V I " R
0x164f3c…1650d0 Dummy {f00=0x007e, f01=0x0190, f02=» ` $ W ` R ;h 0 :C # : .=H N N .=H N N N : d 8" R _ ZY QY : @ V H W z W | CRP W ` ` H W d 2 ;A @ R - @ - N !TTP
0x1650d0…165264 Dummy {f00=0x007e, f01=0x0190, f02=» d Wh 2 .:H N P V _ R :h " YV : v `?A @ W W :b / W : W @ W D V W W ` " W p @ p
0x165264…1653f8 Dummy {f00=0x007e, f01=0x0190, f02=» V V W W V V >k 8 W W t V V : x A H JP W r J W @ @ % V , P@ , - 4 ] 4 Y 5 X * _6 : @ ] @
0x1653f8…16558c Dummy {f00=0x007e, f01=0x0190, f02=» @ P. @ " P #D " P #E " P #F : @ " P @ P 3 _ @ " P S 1 S 9J S ( 3 ( 9B @ @ T : @ :B W . !TTP W t N =H N W l N =H N > W p N =H N N W |
0x16558c…165720 Dummy {f00=0x007e, f01=0x0190, f02=» P0 " U _2 V V tPJ S ( V | S =J @ " S V l S W l V p S W p W _L @ % P W @ % P h !TTT n @ @ T : @ ! P @ @ CRT
0x165720…1658b4 (0, 453) Dummy {f00=0x007e, f01=0x0190, f02=» 3 YL @ @ T : ] ` @ P (_ ( 3 S S V V W @ @ T : P S S _ : . !TTP V W t * P r
0x1658b4…165a48 Dummy {f00=0x007e, f01=0x0190, f02=» V p _j V t Y h !TTX @ @ T : h @ R @ T P / _ T @ A V W W t PT W f ( W d . j G =h G V d V r < V f P W f
0x165a48…165bdc Dummy {f00=0x007e, f01=0x0190, f02=» V r 4 U $ $ _. P, V 4 U $ $ _. @ @ @ ! P V 8 8 8 @ >B 3 . !CCP W P0 W f W d . V d V r < V f _2 U^ V 8
0x165bdc…165d70 Dummy {f00=0x007e, f01=0x0190, f02=» 4 4 _r @ @ T : W n V @ 0 V P _ W $ q > R P >b W >b & 8P D P U & E W X V W R 9 W D & ) $ P@ D L T@ D &P V U 0 I , I . $# P V -W H P U & I
0x165d70…165f04 Dummy {f00=0x007e, f01=0x0190, f02=» $ F !LLT # W ;I # ;b W ;a WR# T W W,# T W W # T W W W R _ $ W : W | v z *T P _ / P *_ *T P$ _ .P _ / V z U
0x165f04…166098 Dummy {f00=0x007e, f01=0x0190, f02=» : N =H N N : N =H N N : &=H F N : F =H F N : F =H F N : P N =H N T h_ : 00=H 00 P P _ _ : @ ! P (W ( : L B B R @ CRT" @ ! P ` @ E "W
0x166098…16622c Dummy {f00=0x007e, f01=0x0190, f02=» a `' , , , , ,m% m, ,m$ m, . DC _&KB j B B
0x16622c…1663c0 Dummy {f00=0x007e, f01=0x0190, f02=» _&KB . =H N 4b TP 8i DY R @ P _&KB
0x1663c0…166554 (0, 454) Dummy {f00=0x008e, f01=0x0190, f02=» 2h DI ?O_o 8i DY , P 4f@GP _&KB j B B
0x166554…1666e8 Dummy {f00=0x008e, f01=0x0190, f02=»LCUZ P ANK A2,6 SALCUZ P RF(Z) SST100 SALCUZ & P ANK A2,2 SALCUZ D & P RF(NZ) SST050 THROUGH PUT SALCUZ ^ & P LDK A1,1 SET PARITY ERROR SALCUZ P RF SSTRET SALCUZ P XIF SALCUZ PSST050 EQU * SALCUZ P CM XSTA T
0x1666e8…16687c Dummy {f00=0x008e, f01=0x0190, f02=»A15,CKMESS CHECK IF STATUS CHANGE P RTN A5 * P XIF SALCUZ : P IFT P6805=1 SALCUZ P P ANK A1,/21 SALCUZ l P RF(Z) SST200 LSALCUZ 6 P CF A15,SETIME LINE ERROR, WAIT 0.2 SECONDS SALCUZ P DATA BRM RESTART SALCUZ P DATA 2
0x16687c…166a10 Dummy {f00=0x008e, f01=0x018e, f02=» CR SALCUZ P ABR* A5 RETURN SALCUZ P XIF SALCUZ 0 P* F P* P P* HALT INPUT Z P* n P* x PHALTIN LDK A1,0 SALCUZ P CIO A1,0,LCUIN P IFT P6805=0 SALCUZ 4 P RB SST PERFORM SST INSTRUCTION AND STATUS CHECK
0x166a10…166ba4 Dummy {f00=0x008e, f01=0x0190, f02=» P* P* , P* WRITE FROM OR READ ONE CHARACTER TO A2 P* H P* R PWRITE EQU * P IFT CODE=1 p P ANK A2,/FF P CWK A2,/FF 0 P RF(E) WRIT05 NO TRANSLATION OF TRAILING PAD * P LC A2,TEBCDIC,A2 TRANSLATE TO EBCDIC
0x166ba4…166d38 Dummy {f00=0x008e, f01=0x0190, f02=» CODE=1 $ PWRIT10 XRR A7,A2 ACCUMULATE BCC P XIF 8 P IFT CODE=1 D & PWRIT10 CF A5,CRCCAL CALCULATE CRC X P XIF P IFF LOGG=0 & P CF A5,LOGOUT LOG OUTPUT CHARACTER P XIF P* PREAD CF A15,STREG P ABL TDISP
0x166d38…166ecc Dummy {f00=0x008e, f01=0x018e, f02=»0 SALCUZ PWRITEP ANK A2,/FF P ECR A1,A2 , P ORK A2,/80 > PWRI100 SLL A1,1 R P RB(P) WRI100 j P RB(Z) WRITE WRITE P XRK A2,/80 P RB WRI100 P XIF P IFF CODE+P6805=0 SALCUZ PWRITEP RB WRITE P X
0x166ecc…167060 Dummy {f00=0x008e, f01=0x0190, f02=» PREADP CF A5,READ P IFT CODE+P6805=0 SALCUZ P ECR A1,A2 > PRE100 SLL A1,1 P P RF(Z) RE110 f P RB(NN) RE100 z P XRK A2,/80 P RB RE100 PRE110 LDR A1,A2 P ANK A2,/7F P XIF P IFF CODE+P6805=0 SALCUZ
0x167060…1671f4 (0, 455) Opaque[0x194]
0x1671f4…167388 # DirEnt {nam=»M:92N1«, typ=»UF«, f00=0x0000, f01=0x0000, f02=0x1378, f03=0x0000}
0x1671f4…167388 IdxSect {
0x1671f4…167388 f00 = 0x009b // 0x1671f4 @0x0
0x1671f4…167388 f01 = 0x0002 // 0x1671f6 @0x2
0x1671f4…167388 gno = [ // 0x1671f8 @0x4
0x1671f4…167388 [0x00]: C0x009b.0x3.0
0x1671f4…167388 ]
0x1671f4…167388 }
0x167388…16751c Dummy {f00=0x009b, f01=0x010c, f02=» SCR LED DRDC15,/S ( #!!CH $$RBUFNR EQU 2$$RBUFNR EQU 1$$ & !!EN R ASM /S,NL ^ KPF /O p SCR ~ INC SYSTAB LKE M KPF /L,M:92N1 SCR ASM DRDC15,NL KPF /O SCR ASG /E0,TY10
0x16751c…1676b0 Dummy {f00=0x009b, f01=0x2008, f02=» LED DRDC15,/S ( #!!CH $$RBUFNR EQU 2$$RBUFNR EQU 1$$ & !!EN R ASM /S,NL ^ KPF /O p SCR ~ INC SYSTAB LKE M KPF /L,M:92N1 SCR ASM DRDC15,NL KPF /O SCR ASG /E0,TY10
0x1676b0…167844 Dummy {f00=0x009b, f01=0x0190, f02=» 6 = 1 [ B w p w P 8 J v 1 W . * s E = 2 S 3 ^ c . 0 < d!& &01GEBRATRTEASSIGN DISCFEJL ! & 0 F V
0x167844…1679d8 Dummy {f00=0x009b, f01=0x018e, f02=» $ 4 D T d t C J F " D R2 RRRW50X ! L A H L R( 2 R
0x1679d8…167b6c Dummy {f00=0x009b, f01=0x0190, f02=» 4 B ( 8 H X h z J F " D L90X _;0XW 0XW 0XW 0XW 0XW 0XW 0XW 0X8R:R;R R L8R7 GG;GG;7;; .
0x167b6c…167d00 Dummy {f00=0x009b, f01=0x0190, f02=» 4 7 $ 9 & ; 6 = F J F " D ;7;7?R L1X L?R L0X T b ! L LA _ LWK0X ) L R?R0X K V B K N Q S * Z @
0x167d00…167e94 (0, 456) Opaque[0x194]
0x167e94…168028 # DirEnt {nam=»M:92N1«, typ=»LM«, f00=0x0000, f01=0x0000, f02=0x1050, f03=0x0000}
0x167e94…168028 IdxSect {
0x167e94…168028 f00 = 0x0082 // 0x167e94 @0x0
0x167e94…168028 f01 = 0x001e // 0x167e96 @0x2
0x167e94…168028 gno = [ // 0x167e98 @0x4
0x167e94…168028 [0x00]: C0x0082.0x2.0
0x167e94…168028 [0x01]: C0x0082.0x3.0
0x167e94…168028 [0x02]: C0x0083.0x0.0
0x167e94…168028 [0x03]: C0x0093.0x3.0
0x167e94…168028 [0x04]: C0x0094.0x0.0
0x167e94…168028 [0x05]: C0x0094.0x1.0
0x167e94…168028 [0x06]: C0x0094.0x2.0
0x167e94…168028 [0x07]: C0x0095.0x2.0
0x167e94…168028 [0x08]: C0x0095.0x3.0
0x167e94…168028 [0x09]: C0x0096.0x0.0
0x167e94…168028 [0x0a]: C0x0096.0x1.0
0x167e94…168028 [0x0b]: C0x0096.0x3.0
0x167e94…168028 [0x0c]: C0x0097.0x0.0
0x167e94…168028 [0x0d]: C0x0097.0x1.0
0x167e94…168028 [0x0e]: C0x0097.0x2.0
0x167e94…168028 ]
0x167e94…168028 }
0x168028…1681bc Dummy {f00=0x0082, f01=0x0190, f02=»z p J h h h h h h < h h%>%d $ . 8 h h h h h h $ h h h h h h h h h h h h h h h h h h h h h h h h h h h h h h h h h h h h h n c @ Tg t z ^ b bLPL H b2 Z ` z
0x1681bc…168350 Dummy {f00=0x0082, f01=0x0190, f02=» 4c @S{ D d 2Z $"z y B % y D Dbf d * F :P }B W [~ ? d j% L "~ T &b ICn 1 d _ A d " S _ @S > > U # T @ H ( ( P c P W: P, AS @ V ( U P" @: V L: W @:
0x168350…1684e4 Dummy {f00=0x0082, f01=0x0190, f02=» 6 8 S Q Z P 0 9 t t_ $ @ _, ? P H H #P h A d A FQ ? @S : ) AS _ @ @ A H ( AS _ ? ? ? ? ? ^ A _ _ ^ S $P T I R $ 5 % > ? W ? W ? T T$ U U U U
0x1684e4…168678 Dummy {f00=0x0082, f01=0x0190, f02=» Q Q > > 0 @Sh 1 ASh P P > ? * X " R" Y T ? X D ; T> O W8 > _& @ 8 R" Y T ? X D ; T O W > _& W2 > 8 X W( ? ` @ @ P $ H W W > > > > > > @S V ? S > _ > ? _ > > ? ^ ! Y ^ _ n ?
0x168678…16880c Dummy {f00=0x0082, f01=0x0190, f02=» < $ ( , 0 4 8 < C 8W T 8P Y ^ 5 ) P U S XH D #DP @ R XV Y @ P, ; T W X &P T X I Y T # C C W4 O " # X Y ) C
0x16880c…1689a0 Dummy {f00=0x0082, f01=0x0190, f02=» P j$ > > F C F C > B R Q F ! P C > C > F :c" H :b"? #" : C > B R Q~ P0 B P* 0$ T # R QL > X B U( H Q2 X
0x1689a0…168b34 (0, 457) Dummy {f00=0x0082, f01=0x0190, f02=» P PL $ # Q > P _0 # T p > P p (_H _2 B U X > ? _ X T (@ H ^ > > ? _ X T X X T % T ?C L Rl _@(@ L U L Q0 M & X
0x168b34…168cc8 Dummy {f00=0x0082, f01=0x0190, f02=» 0P X T 4 Y X ; X T X O 1 1 X P - M T $ PD _ T " # p X L R P RP (@ ^ X P8 P0 # P T P 0P 1 _ t W Y > > SnJ B B SvJ B B pU
0x168cc8…168e5c Dummy {f00=0x0082, f01=0x0190, f02=» 0 R t B " P Q :A H P P S H !@T I S T ! 1 U S A d ? W A d ? W A d ? W U R ; V ~# T R p 4 # PJ P 4 RL P 4 ] P $ P ] U PD P< P0 P,
0x168e5c…168ff0 Dummy {f00=0x0082, f01=0x0190, f02=» ' T P X P " >Wh T # Y U T ] W 8V X $P y $W $ :L P 8R R S Y $ X Z ;BR 8% =A Y T Z& h_, X ' X 4X< XB U T T U 5 U R " ] ~ S ;h # <c$
0x168ff0…169184 Dummy {f00=0x0082, f01=0x0190, f02=»X <d$ _D $?:D" Y X P Y # P 4T U # P 4 4 P _r T _$ U _ ? 4 U 5 R PF "P2 R T T R X # X h > P P P ` X XF _H Wj ? T T :L W u > > E D E
0x169184…169318 Dummy {f00=0x0082, f01=0x0190, f02=»XB Y X X X X ' 4 B U B (" W C (@ > ?" 8' ?A R 8;b# 4T RT T T ] ] 8 W< TrW T ] _ P T V WT 8V T P U 8 ~ U Q2P X H 5 U R " ] ~ Y > > V P
0x169318…1694ac Dummy {f00=0x0082, f01=0x0190, f02=» 4XR XX 5 h_b Y Y Y X 9BV$ X & Y " X D V & X . T 8TV 9WD B 7P P S AS W AS @S A.W ? A dI.9 X R C C & S ?A @S A. X V 9_: @
0x1694ac…169640 Dummy {f00=0x0082, f01=0x0190, f02=» Pb P Pv Pz * 6 + S AS @S A. H :L d S Y HW AS @S A. Wx ! * X , X P ! ! BW< ! * _ ! * _& ! X , X P ! H X , X P B B ! f ! B ! T Y *W X * p ! H# f & ! H ! " 0 TOT
0x169640…1697d4 (0, 458) Dummy {f00=0x0083, f01=0x0190, f02=»& Ph B @ @ :C P ! H 9DV ! (@ B r ! ! R ! j ! ! b ! ( ! ! Z ! X Y . X * f " ! H_ Y * 4 ! ~ PT C ! l ! H ! (@ ! ~ R _ ! V 1 ;h 1 ! V 1 ! ! l* ! B ! ! ~ ) ! H Y *# T X
0x1697d4…169968 Dummy {f00=0x0083, f01=0x0190, f02=» ! B ! ~ ! T )WL WP ! ~ Xz R ! ( - j ! ) W. Y PW Y P Y L Y N Y B S W W B C & S _ ? , Y " X $ T X Y $ Y X HP 1 Y H S 0 Y J 1 0B. X (P y (_^ ( :L _n Y ( " X . P Y : ! F ! H X # P
0x169968…169afc Dummy {f00=0x0083, f01=0x0190, f02=» D C Y B S K & E % Y B K , X ;AR@;a X &P Y & P 7P < $ <C ! 9 4 X t " _ W B RZ X , X P W P Q8 U _ T,: B R(' P Q 9BW Q 9C B ! T 4 x @ P ;A _ 4
0x169afc…169c90 Dummy {f00=0x0083, f01=0x0190, f02=»U P jW kQ 4 Y * ! 0" Z Y" P Z _ 4 A ;D A 4 R _ ;H 4 r ! (:C 4 Z ! ( 4 X " 4 ! ) 4 X P t 4 P y _^ _n Y " X P Y : ! ! H X # P
0x169c90…169e24 Dummy {f00=0x0083, f01=0x0190, f02=» P Y P 7P < $ <C ! 9 4 X t " _ W B R X X P W P Q U _ T : B R ' P Q 9BW Q 9C B ! T 4 x @ P ;A _ 4
0x169e24…169fb8 Dummy {f00=0x0083, f01=0x0190, f02=»U P jW kQ 4 Y ! 0" Z Y" P Z _ 4 A ;D A 4 R _ ;H 4 ! (:C 4 ! ( 4 X " 4 ! ) 4 X P t 4 P y _^ & & P Y : ! ! H X # P
0x169fb8…16a14c Dummy {f00=0x0083, f01=0x0190, f02=» @94P 0P _ % A92 A96 &_^ B Q< R_r X P 0 Y P C x_ _ B Y _N S X P A :J Y Wb Y @_x X X A :J Y _& Y h @ 0 A ^ A _: X P ( y Y W & (P 0 ) > (P _ ) 1_
0x16a14c…16a2e0 Dummy {f00=0x0083, f01=0x0190, f02=» @ @ A X &_" X P y Y X P T h @ T A ^ A > A > A B A F A J A N RW > 4 " !% B !% T P P ! ! ! !% Tf Tb A& P A& TR !% TL !% TD T@ !%
0x16a2e0…16a474 (0, 459) Dummy {f00=0x0093, f01=0x0190, f02=» @ `P @& X@ !#: T< A d !# ~ @ ^P @& P @ 8 !"f !" A h_: !% X6_Z A d @& @ tT 1 R 0 2P P P A r > @ Z 8 H9x @& P E & PF X R@ X P X T2 P C * C X T ! W xW( &W" X R X T & ! !# ~_ A
0x16a474…16a608 Dummy {f00=0x0093, f01=0x0190, f02=» @ @ t @ n A r " !&~ @ ^XN !% T @ hP !# !&N_h 1T& @ hX @ bP !" !# A f_ A h " < A ^ @ bT _, _0 @ ^T8W ~ @& T !# _ !"f !# _ A ` A r E A d A Z 4 @ ^P !# !&N ~ !&*W ~ @ T !# _ T h_ l A / C P B B A
0x16a608…16a79c Dummy {f00=0x0093, f01=0x0190, f02=» @ dT @ t A r @ r A t A d !% T2 P4 PJ PL P P. 1 A r @ r ]6W P _@ @& @ r E !& P !% 4 _$ !& 2_l 1 A hT 0W ;W A z A {W W W A z A { !%$ @ z !% @ { !% !% !% B J 4 !%$ !% @ n @ r A t @ rT(
0x16a79c…16a930 Dummy {f00=0x0093, f01=0x0190, f02=» T 0 !% W R !% A r @ p @ rU< Zx Q P Q T 0 !% A r 0 !% A r !% !% $ A b _ B J B !% !% 4 A d ? <J T A jT PD 4 !%p ~ A d ? <_ I " P A d A 4 A _$B P W " S " * 9AY X 2 _ !% 9AP ^
0x16a930…16aac4 Dummy {f00=0x0093, f01=0x0190, f02=» a 4 :J& X A > :J&^ Z A x 4 A x !% @ ^P !# !&N ~ @ xP a x A x 4 A j !% T ' A j 4 & & {W W W A z A { ! @ z ! @ { ! ! ! B J 4 ! ! @ n @ r A t @ rT
0x16aac4…16ac58 Dummy {f00=0x0093, f01=0x0190, f02=» T 0 ! W R ! A r @ p @ rU Zx Q P Q T 0 ! A r 0 ! A r ! ! $ A b _ B J B ! ! 4 A d ? <J T A jT P 4 ! ~ A d ? <_ I " P A d A 4 A _$B P W " " * 9AY X 2 _ !% 9AP ^
0x16ac58…16adec Dummy {f00=0x0093, f01=0x0190, f02=» a 4 & X A > Z A x 4 A x !% @ ^P !# !&N ~ @ xP a x A x 4 A j !% T ' A j 4 & {W W W A z A { ! @ z ! @ { ! ! ! B J 4 ! ! @ n @ r A t @ rT
0x16adec…16af80 Dummy {f00=0x0093, f01=0x0190, f02=» T 0 ! W R ! A r @ p @ rU Zx Q P Q T 0 ! A r 0 ! A r ! ! $ A b _ B J B ! ! 4 A d ? <J T A jT P 4 ! ~ A d ? <_ I " P A d A 4 A _$B P W " " * 9AY X 2 _ !% 9AP ^
0x16af80…16b114 (0, 460) Dummy {f00=0x0094, f01=0x0190, f02=» a 4 & X A > Z A x 4 A x !% @ ^P !# !&N ~ @ xP a x A x 4 A j !% T ' A j 4 & {W W W A z A { ! @ z ! @ { ! ! ! B J 4 ! ! @ n @ r A t @ rT
0x16b114…16b2a8 Dummy {f00=0x0094, f01=0x0190, f02=» T 0 ! W R ! A r @ p @ rU Zx Q P Q T 0 ! A r 0 ! A r ! ! $ A b _ B J B ! ! 4 A d ? <J T A jT P 4 ! ~ A d ? <_ I " P A d A 4 A _$B P W " " * 9AY X 2 _ !% 9AP ^
0x16b2a8…16b43c Dummy {f00=0x0094, f01=0x0190, f02=» a 4 & X A > Z A x 4 A x !% @ ^P !# !&N ~ @ xP a x A x 4 A j !% T ' A j 4 & {W W W A z A { ! @ z ! @ { ! ! ! B J 4 ! ! @ n @ r A t @ rT
0x16b43c…16b5d0 Dummy {f00=0x0094, f01=0x0190, f02=» T 0 ! W R ! A r @ p @ rU Zx Q P Q T 0 ! A r 0 ! A r ! ! $ A b _ B J B ! ! 4 A d ? <J T A jT P 4 ! ~ A d ? <_ I " P A d A 4 A _$B P W " " * 9AY X 2 _ !% 9AP ^
0x16b5d0…16b764 Dummy {f00=0x0094, f01=0x0190, f02=» a 4 & X A > Z A x 4 A x !% @ ^P !# !&N ~ @ xP a x A x 4 A j !% T ' A j 4 & {W W W A z A { ! @ z ! @ { ! ! ! B J 4 ! ! @ n @ r A t @ rT
0x16b764…16b8f8 Dummy {f00=0x0094, f01=0x0190, f02=» T 0 ! W R ! A r @ p @ rU Zx Q P Q T 0 ! A r 0 ! A r ! ! $ A b _ B J B ! ! 4 A d ? <J T A jT P 4 ! ~ A d ? <_ I " P A d A 4 A _$B P W " " * 9AY X 2 _ !% 9AP ^
0x16b8f8…16ba8c Dummy {f00=0x0094, f01=0x0190, f02=» a 4 & X A > Z A x 4 A x !% @ ^P !# !&N ~ @ xP a x A x 4 A j !% T ' A j 4 & {W W W A z A { ! @ z ! @ { ! ! ! B J 4 ! ! @ n @ r A t @ rT
0x16ba8c…16bc20 Dummy {f00=0x0094, f01=0x0190, f02=» T 0 ! W R ! A r @ p @ rU Zx Q P Q T 0 ! A r 0 ! A r ! ! $ A b _ B J B ! ! 4 A d ? <J T A jT P 4 ! ~ A d ? <_ I " P A d A 4 A _$B P W " " * 9AY X 2 _ !% 9AP ^
0x16bc20…16bdb4 (0, 461) Dummy {f00=0x0094, f01=0x0190, f02=» a 4 & X A > Z A x 4 A x !% @ ^P !# !&N ~ @ xP a x A x 4 A j !% T ' A j 4 & {W W W A z A { ! @ z ! @ { ! ! ! B J 4 ! ! @ n @ r A t @ r
0x16bdb4…16bf48 Dummy {f00=0x0094, f01=0x0190, f02=» 7- <=2&p ?' @O JZlP}M] Nk`Ka z^L~noj {|[_m TOSS T : :J:6 S P :0 :J:: _ t _< ?
0x16bf48…16c0dc Dummy {f00=0x0094, f01=0x0190, f02=»=,=,=,< < <<; < < ; =,=,; < < <<; " # $ % "$&( ; : @ D X P _ L !##P T @ R $P U + U _ (@(@ I: P ^ =, H: Y H: B # X ( U =, B r R| W Y & Y $ 0 Y . <
0x16c0dc…16c270 Dummy {f00=0x0094, f01=0x0190, f02=» C B B B U P R Wp H TP L P B r L ( R| $ X _ X ` T I T J O8 P C X I X J S W C C W, B B Y IR Q X JU C '? T W6 P T.(@(@ P #D q >B S S > > BrBrBrBrBrA
0x16c270…16c404 Dummy {f00=0x0094, f01=0x0190, f02=» D ( U ( 0 W T ` U @ , @ W : X & X P !##T Y T( X P P P @S Q (@ F R : @ _ S ( H > >4 X &Pj D ^V" D "? P P &P E ^ Q V, P ( > ( ( W >4 Qj Br B W
0x16c404…16c598 Dummy {f00=0x0094, f01=0x0190, f02=» T _ Y & F yZ yb(@ _ A X & X I U X J U ( Qj T$ X X RP F = T Br P ` U0 @ , D !##X D ( * ]" 0 X Wf ` U @ H @ X WF Pf N 4 5W P 0 @L 1 AL (@_
0x16c598…16c72c Dummy {f00=0x0094, f01=0x0190, f02=»' @8 5 @8 4 G W , P& ,' X X 1 Z" ) @8_ (@ C ( B ! Br @8 @=X F U G F G = Bp & ( F " F +P P* X $ T P U W P R P> $P8W Br X ( X & F X P @S Q (@ R| + X
0x16c72c…16c8c0 Dummy {f00=0x0094, f01=0x0190, f02=» P I I K K P P & P PfW D $ T P T PJW E I E J X ^V ? T B yZ &(@( o B B P ! Tn M E : B Ao Ao " P op "" p P E o @or yb(@ Dot C C C x W
0x16c8c0…16ca54 (0, 462) Dummy {f00=0x0094, f01=0x0190, f02=»ot EovX #D( B ( B yZ B @or Dot x W C C ( B B o op @o T Ao 0" ER ER U _ L !SSP !LL ER W L @o| Ao|V E P Eo~ @or Eo P Eo P Eo Do~T o P E G 2% P( R 0 XotT
0x16ca54…16cbe8 Dummy {f00=0x0094, f01=0x0190, f02=» E 3 P S I P S J P S ( P S * P % S H P & S P @o S , d S B | C C^ @o|T W o T Wz @o P R ( >a U Wb 0 =b Po~P @o| ! T. W< Po Dot Y Po Y Po Y U ! T ! X6 _R _V Do " P o Ao
0x16cbe8…16cd7c Dummy {f00=0x0094, f01=0x0190, f02=»( @o F _ T `op ` 9A S ^ H $X D S . S $ R R * S W S _ S ` R ( R * O S b F U _ L !SSP !LL W L @ A V P E @ E P E P E D T P 2% P R 0 X T
0x16cd7c…16cf10 Dummy {f00=0x0094, f01=0x0190, f02=» E 3 P S I P S J P S ( P S * P % S H P & S P @ S , d S B | C C^ @ T W T W @ P R ( >a U W 0 =b P P @ ! T W P D Y P Y P Y U ! T ! X6 _R _V D " P A
0x16cf10…16d0a4 Dummy {f00=0x0094, f01=0x0190, f02=»( @ F _ T ` ` 9A S ^ H $X D S . S $ R * S W S _ S ` R ( R * S b F U _ L !SSP !LL W L @ A V P E @ E P E P E D T P 2% P R 0 X T
0x16d0a4…16d238 Dummy {f00=0x0094, f01=0x0190, f02=» E 3 P S I P S J P S ( P S * P % S H P & S P @ S , d S B | C C^ @ T W T W @ P R ( >a U W 0 =b P P @ ! T W P D Y P Y P Y U ! T ! X6 _R _V D " P A
0x16d238…16d3cc Dummy {f00=0x0094, f01=0x0190, f02=»( @ F _ T ` ` 9A S ^ H $X D S . S $ R * S W S _ S ` R ( R * S b F U _ L !SSP !LL W L @ A V P E @ E P E P E D T P 2% P R 0 X T
0x16d3cc…16d560 Dummy {f00=0x0094, f01=0x0190, f02=» E 3 P S I P S J P S ( P S * P % S H P & S P @ S , d S B | C C^ @ T W T W @ P R ( >a U W 0 =b P P @ ! T W P D Y P Y P Y U ! T ! X6 _R _V D " P A
0x16d560…16d6f4 (0, 463) Dummy {f00=0x0095, f01=0x0190, f02=» [ [ : P Q R ;A [ [ : Q R P ;A [ [ : ? ? !? P P !> P W 9P _ T !##P> ? R4 L TX P L P 4 M X M M _8 > & D LW 0P Q P P E +P W : X +
0x16d6f4…16d888 Dummy {f00=0x0095, f01=0x0190, f02=» @L T n ( AL U 1_ D + I D N ) E N : T * O SP P W X * 0 U U. _ Y . R P Y $ P X ( _ W Y & : B P6 T G W& X ^ Y ^ B I ~ B T B : X "? P P X T
0x16d888…16da1c Dummy {f00=0x0095, f01=0x0190, f02=» D $ D * O T ( T & ^ S W : U ; $ T $ T $ T&x : : $ T2 $ ) ] $ ) Y _$ U x 0 )_8 $_ $ ) YP_J U ; $ T $ T $ TNp : : $ T* (W $ U $ ) Y _& (# )_4 $ ($ ) YR_L
0x16da1c…16dbb0 Dummy {f00=0x0095, f01=0x0190, f02=» ! Z( S (X0 @S P T M ]@ , ) AS P* P Y U ( ) 5 & > > [ [ S Z Z Z ? Z > P "R Y W 0 S Pl T Pb _ <UR "R4 PB X R< X T6 X T0. T G Y6 G _b P ,P - _ ( (
0x16dbb0…16dd44 Dummy {f00=0x0095, f01=0x0190, f02=»P$ X $P y $W $ :LW ` Y $ X " PP:A: R Q W Y <D X ? ?: T p > XV > Ph P C V B V T B % X . $ 4 T % V X ,T ! P W Xf Y . V XV ! B P X " _` B P$ $$ R % C XV
0x16dd44…16ded8 Dummy {f00=0x0095, f01=0x0190, f02=»Z Z& X . 0T X W X ,P Y . 0 %_. % Y . W _p P XV _ X $P y $ Y $ C ! S " W QfR$ X # P X R6;GV2 X $P y $ W P8 X R2;GV. X " UV X , $4 P Xf X .T * W Y , - S @ Y $ X Z _X ? X :a
0x16ded8…16e06c Dummy {f00=0x0095, f01=0x0190, f02=»$ P _$ _*_, _ %0=c X 0P > 0 > >_ B 1 > XT 0 _ d X [ [ !"&';<>@^_ 9: X ! Y MX P ^ S Y LX X X Y.Y X X Z Z ! ! ! W B W$ B L # 9Q T W Q P X & V T
0x16e06c…16e200 Dummy {f00=0x0095, f01=0x0190, f02=» B C ! ! T " T W Q " T ) S ![ X Y _ ! ![v Y &P Q W ! Y '" [,_" Xz_< ![j_n ![ _t B B , ! T _ D ! P ! P W C V B P ! ! ! Y 4 RNQ " PH _ " P R: M T2 ! L ,!
0x16e200…16e394 (0, 464) Dummy {f00=0x0095, f01=0x0190, f02=» X Y ? Y X P " ! Y ' ! X T ! S X S R _ 4 ! ! ! " T ! ! ! ! 4 X ' 4 Y ' X ! ! " P ,$ , ! 4!"$&;<>@^_ [ ]X] ]t PB P8 S B P B L # +P ! !
0x16e394…16e528 Dummy {f00=0x0095, f01=0x0190, f02=» Y & V Y _^ C _P F F" $ P X & X ]r ! Y Y Y _ F" H[ _ ! ! ] & S X C _ X Y & Y > B B U$ $ ! T _ U D ! T _ C > X Z^<BR P j X _x R0 V0 ! P* P P
0x16e528…16e6bc Dummy {f00=0x0095, f01=0x0190, f02=»" [ ! ! X & ] ^0 ^n^ B 8# T $ # ;D 7P P S Y W Y X Y 8# T W$ T( X $ P X P B V *@ Y h S S ? X _F ^ b ` a aZ ` ! P P `n & `V S B P B H " +P P. T
0x16e6bc…16e850 Dummy {f00=0x0095, f01=0x0190, f02=» _ $$ X" X& X* C F ` X`" E^ P( 8'0P E^ TD ! T 9 _ ! T @_ ! F B P !bR B C ` ^N P R ?] _ C _ F F" $ P X ' X ] ! ` _ B !b !bR ! ` B Y & !bpW
0x16e850…16e9e4 Dummy {f00=0x0095, f01=0x0190, f02=»Q Y > X Z2<BR J ? Y ! T X ! Y & Zl ` T _ ! X $ P !a _ R V P P" ! ` W ` X $ X !a _ X $ X X & !bp !bR Y _8 X " X &" Y )U W ! ! ! Y 4 B _B
0x16e9e4…16eb78 Dummy {f00=0x0095, f01=0x0190, f02=» ! 4 ! V ! V W :h ! 4 X )" X '# R 4 ` > k m F B P ! B C ^N P R ?] _ C _ F F" $ P X ' X ] ! _ B ! ! ! B Y & ! W
0x16eb78…16ed0c Dummy {f00=0x0095, f01=0x0190, f02=»Q Y > X Z2<BR J ? Y ! T X ! Y & Zl ` T _ ! X $ P ! _ R V P P ! ` W ` X $ X ! _ X $ X X & ! ! Y _8 X " X &" Y )U W ! ! ! Y 4 B _B
0x16ed0c…16eea0 Dummy {f00=0x0095, f01=0x0190, f02=» ! 4 ! V ! V W :h ! 4 X )" X '# R 4 ` > F B P ! B C ^N P R ?] _ C _ F F" $ P X ' X ] ! _ B ! ! ! B Y & ! W
0x16eea0…16f034 (0, 465) Dummy {f00=0x0096, f01=0x0190, f02=»Q Y > X Z2<BR J ? Y ! T X ! Y & Zl ` T _ ! X $ P ! _ R V P P ! ` W ` X $ X ! _ X $ X X & ! ! Y _8 X " X &" Y )U W ! ! ! Y 4 B _B
0x16f034…16f1c8 Dummy {f00=0x0096, f01=0x0190, f02=» ! 4 ! V ! V W :h ! 4 X )" X '# R 4 ` > F B P ! B C ^N P R ?] _ C _ F F" $ P X ' X ] ! _ B ! ! ! B Y & ! W
0x16f1c8…16f35c Dummy {f00=0x0096, f01=0x0190, f02=»Q Y > X Z2<BR J ? Y ! T X ! Y & Zl ` T _ ! X $ P ! _ R V P P ! ` W ` X $ X ! _ X $ X X & ! ! Y _8 X " X &" Y )U W ! ! ! Y 4 B _B
0x16f35c…16f4f0 Dummy {f00=0x0096, f01=0x0190, f02=» ! 4 ! V ! V W :h ! 4 X )" X '# R 4 ` > F B P ! B C ^N P l P P .T B Y Wx B P X P ( ( 7 R ( P H RN H P ' P b P W< b T6 m ' P
0x16f4f0…16f684 Dummy {f00=0x0096, f01=0x0190, f02=»_N S X T @b P ( Ab mB _ ( Y _ b _x X T @b P ( Ab mB_ ( Y _ b _ i m 9 @_ mD H b P b P $ $ 1 ) > ) $P e % > (@ B Z F U F Z b P U S C G 4' "?:B ] P H U _
0x16f684…16f818 Dummy {f00=0x0096, f01=0x0190, f02=» - U _ 9B @ T W X > "RT PL X TF X R@? V X & X H P & X P t Y X H P & < ? < ? <(@ oB $ P B $ 9H C ">h # P >_2 < U = (@ " $ P B >H<h oX P ?_" =
0x16f818…16f9ac Dummy {f00=0x0096, f01=0x0190, f02=» b _x X T @b P ( Ab mB_ ( Y @olP 4 Aol U W Aol Aoj @on U : Ao Ao :A Aor y , ` R @ U P. ,% T& o C ( B P T W ' T| Iot @ 8 =hP Y X Pl 0T<
0x16f9ac…16fb40 Dummy {f00=0x0096, f01=0x0190, f02=»o @ojP ol $ ) 5 S Aoj Ao Aon o " R| op Ao| "" P U W p op P @or Eot "# P P @on P ( )W @ 0 R % "V E T D Ao _" P @on P ( )W @ 0 Rb ' F "R G o @or Dot #D
0x16fb40…16fcd4 (0, 466) Dummy {f00=0x0096, f01=0x0190, f02=» b _x X T @b P ( Ab mB_ ( Y @olP 4 Aol U W Aol Aoj @on U : Ao Ao :A Aor , ` R @ U P ,% T o C ( B P T W ' T Iot @ 8 =hP Y X P 0T
0x16fcd4…16fe68 Dummy {f00=0x0096, f01=0x0190, f02=» @ojP ol $ ) 5 S Aoj Ao Aon o " R| op Ao| "" P U W p op P @or Eot "# P P @on P ( )W @ 0 R % "V E T D Ao _" P @on P ( )W @ 0 Rb ' F "R G o @or Dot #D
0x16fe68…16fffc Dummy {f00=0x0096, f01=0x0190, f02=» wH b _x X T @b P ( Ab mB_ ( Y @olP 4 Aol U W Aol Aoj @on U : Ao Ao :A Aor , ` R @ U P ,% T o C ( B P T W ' T Iot @ 8 =hP Y X P 0T
0x16fffc…170190 Dummy {f00=0x0096, f01=0x0190, f02=» @ojP ol $ ) 5 S Aoj Ao Aon o " R| op Ao| "" P rb p op P @or Eot "# P P @on P ( )W @ 0 R % "V E T D Ao _" P @on P ( )W @ 0 Rb ' F "R G o @or Dot #D
0x170190…170324 Dummy {f00=0x0096, f01=0x0190, f02=» b _x X T @b P ( Ab mB_ ( Y @olP 4 Aol U W Aol Aoj @on U : @r^ , L T L PF L T M Q M L V L Ar` @r^ : T n @r` [ [ M M M Ar^ -(@ : - : @r^ , L T M
0x170324…1704b8 Dummy {f00=0x0096, f01=0x0190, f02=» @r^ Aoj Aol >z z4zdz zdz 0123456789 & 0123456789 & < +.-, 0123456789 `ABCDEFGHIJKLMNOPQRSTUVWXYZ []' ^ > ?:_; =!"#$%&/() @ABCDEFGHIJKLMNOPQRSTUVWXYZ []* ($SWA
0x1704b8…17064c Dummy {f00=0x0096, f01=0x0190, f02=» @ " Q A z : R W2 A A z P. _ " :c* A z W " :d2 * A < & W F ` W F W F CRT F A @ @ ! P2 @ P ;b=H F CR }L F }LW =J F CRTT F PN A @ $ P( @ R W
0x17064c…1707e0 Dummy {f00=0x0096, f01=0x0190, f02=» Y P @ T W - P _ T <B :L A W A A W T F W V = V W Y* P Z( = :L < P W <9B @ V
0x1707e0…170974 (0, 467) Dummy {f00=0x0096, f01=0x0190, f02=»P !RRP V @ P W _: p V @ PZ W @ @ ! T _ P :l 9b ) V _ @ V W W P TJ V 0 !;;P P V P$ _ P !;;
0x170974…170b08 Dummy {f00=0x0096, f01=0x0190, f02=» V Xb _ P !;;T X$ W nP XZ_V S A / A u @ R @ ! T A A V @ R V V I W V $ ) H A I. : C. X C.9h! # " :A K :
0x170b08…170c9c Dummy {f00=0x0096, f01=0x0190, f02=»9C) A I " 9A ! 9B r @z r A I ! ( : A z A A A A ! T A A I ! : 9E @z r s A I T ) A _ I N T : 9PJ S Y T@ $ 1T: C !CCTt : 1P P$_ P
0x170c9c…170e30 Dummy {f00=0x0096, f01=0x0190, f02=» R X A X W : @ ' R xW V W$ V P P ~ W P V V T ~ V T W P V W @ $ P p W T : A z_ 0V , - P X 9A_ : @ ! P (W ( :W> 2 W 0
0x170e30…170fc4 Dummy {f00=0x0096, f01=0x0190, f02=» j A A A A ! T A W Z A. c @ V W U R $ )_ : W W W W W >Q@ V V v x W V V
0x170fc4…171158 Dummy {f00=0x0096, f01=0x0190, f02=» >V U * _ V * Z K W W :K W r >Q R t >V v : V W V ) : V <B W |P v v : $ | V |P v w v : V $ V l $ | V
0x171158…1712ec Dummy {f00=0x0096, f01=0x0190, f02=» z ` _f V : W R R P L r W x _ V : " D Pd W V PL $;A^ D E D P. V P P T E _J | E _T " D T E | E D E % : " R ;B | " R P( |P v
0x1712ec…171480 Dummy {f00=0x0096, f01=0x0190, f02=»^ 0 : W ; V : : , X G : J @ 0 V @ 0 H W : ? ? R 0 R P P B _ S : V ) v : 4P: " D , H H $ M v b - I Y0 : @
0x171480…171614 (0, 468) Dummy {f00=0x0097, f01=0x0190, f02=»_d D = G $ 0 V W $ ^ V E J K _N V r V :B A V 9n A @ A A , @ @ ! @ P P P P|_ _ @ 9N @ :b @ :b V W U6 T 9BW P
0x171614…1717a8 Dummy {f00=0x0097, f01=0x0190, f02=» 3 S Y& P4 Sj Sj S P 3 _ Sj 3 Sl B A. @ D @ W x A ( : A S > l : pR L W n V pT : N V l W H V ]" . nT" W
0x1717a8…17193c Dummy {f00=0x0097, f01=0x0190, f02=» G G v U r v G v : P L pV : r V ~P W x _$ 8 V V x % V v % : V V 9k! P % _ V V W W r W V | v ) W b G | v ) - V | W
0x17193c…171ad0 Dummy {f00=0x0097, f01=0x0190, f02=» pPn D V W % 6 R , | " E R & W ~ R & R P R Xv _|W T : L W x _ V P I D W z ` pPl H - V I 0 " R E R T E D E
0x171ad0…171c64 Dummy {f00=0x0097, f01=0x0190, f02=» 0 :C # : .=H N .=H N N : d 8" R _ ZY QY : @ V H W z W | CRP W ` ` H W d 2 ;A @ >R - @ - N !TTP N :H N TBT W W8 2
0x171c64…171df8 Dummy {f00=0x0097, f01=0x0190, f02=» .:H N P V _ R :h " B YV : v `?A @ W W :b / W : W @ W D V W W ` " W p @ pP. " 4X 1
0x171df8…171f8c Dummy {f00=0x0097, f01=0x0190, f02=» V >k 8 W W t V V : x A z P h W r h W @ @ % @ V , P@ , - 4 ] 4 >Y 5 X * _6 : @ ] @ P @ P " P " P "
0x171f8c…172120 Dummy {f00=0x0097, f01=0x0190, f02=»" P #E t " P #F t : @ " P @ P 3 _ @ " P S 1 S 9J S ( 3 ( 9B @ @ T : @ :B W . !TTP W t N =H N W l N =H N W p N =H N W | ( @ % P W @ %
0x172120…1722b4 (0, 469) Dummy {f00=0x0097, f01=0x0190, f02=» _2 V V tPJ S ( V | S =J @ " S V l S W l V p S W p W _L @ % P W @ % P !TTT @ @ T : @ ! P @ @ 0 CRT 3 @ 0 0
0x1722b4…172448 Dummy {f00=0x0097, f01=0x0190, f02=» @ T : Sh ` @ P _ 3 S S V V W @ @ T : P S S _ : . !TTP V W t * P r _ Ph W p W
0x172448…1725dc Dummy {f00=0x0097, f01=0x0190, f02=» @ T : @ R @ T P / _ T @ A V W W t PT W f ( W d G =h G V d V r < V f P W f _B V W V t Yr
0x1725dc…172770 Dummy {f00=0x0097, f01=0x0190, f02=» _. P, V 4 U $ $ _. @ @ @ ! P V 8 8 8 @ >B 3 . !CCP W P0 W f W d V d V r < V f _2 U^ V 8 8 8 4 D P$ @
0x172770…172904 Dummy {f00=0x0097, f01=0x0190, f02=» : W V @ 0 V P _ W $ q > R P >b W >b & 8P D P U & E W z V W R 9 W D ) $ P@ D L T@ D &P V U 0 I , I . $# P V -W H P U & I @ % PD H I H
0x172904…172a98 Dummy {f00=0x0097, f01=0x0190, f02=»;I # ;b W ;a WR# T W W,# T W W # T W W W R _ $ W : W | v z *T P _ / P *_ *T P$ _ .P _ / V z U Y$ P W | V z 3 %
0x172a98…172c2c Dummy {f00=0x0097, f01=0x0190, f02=»=H N : &=H F : F =H F : F =H F : P N =H N T _ : 00=H 00 P P _ _ : @ ! P (W ( : 4 ` @ 0 CRT" @ ! P ` @ E "W ` @ E "
0x172c2c…172dc0 Dummy {f00=0x0097, f01=0x0190, f02=» , , , , ,b H b ,b t b . DC T KB y :
0x172dc0…172f54 (0, 470) Dummy {f00=0x0097, f01=0x0190, f02=»=H N 2 4X TP & 8^ DY ^ @ P T KB y " (
0x172f54…1730e8 Dummy {f00=0x0097, f01=0x0190, f02=» ?O_o 8^ DY T , P 4[ GP T KB y
0x1730e8…17327c Dummy {f00=0x0097, f01=0x018e, f02=» P ABL BRM SALCUZ " PTRS005 CIO A2,1,LCUUT SALCUZ PTRS010 EQU * SALCUZ B P LDK A2,SYNEBC SALCUZ ^ 2 P OTR A2,1,LCUUT SPECIFY SYNC CHARACTER SALCUZ | P XIF SALCUZ P IFT P6805=1 SALCUZ P IFT CODE=0 SALCUZ P LDK A2,
0x17327c…173410 Dummy {f00=0x0097, f01=0x0190, f02=» x P ABL BRM SALCUZ " PTRS005 CIO A2,1,LCUUT SALCUZ PTRS010 EQU * F P LDK A2,SYN SALCUZ Z 2 P OTR A2,1,LCUUT SPECIFY SYNC CHARACTER SALCUZ v P XIF SALCUZ * P CF A5,READ WAIT FOR OUTPUT INTERRUPT P LDK A3,4 4 SYNS P
0x173410…1735a4 Dummy {f00=0x0097, f01=0x0190, f02=»* P* RECEIVER INTERRUPT P* ( P* 2 PIH1501 EQU * < P ST P,INTSAV P P IFT CPU852=1 d P CF A15,SAVE8 SAVE A1-A8 z P XIF P P IFF CPU852=1 P MSR 8,A15 SAVE A1-A8 =1 P XIF * P CF A15,LDREG RESTORE DC
0x1735a4…173738 Dummy {f00=0x0097, f01=0x0190, f02=» LOG RECEIVED CHARACTER P XIF P IFF CODE=1 , P C2 SYNSW @ P RF(NZ) IHLCI2 R P CWK A2,SYN SKIP SYNS h P RF(E) READ " PIHLCI2 XRR A7,A2 CALCULATE LRC P XIF P IFT CODE=1 P C2 SYNSW 2 P RF(NZ) IHLCI1 DO NOT
0x173738…1738cc Dummy {f00=0x0097, f01=0x0190, f02=»C v ( P LC A2,TASCII,A2 TRANSLATE TO ASCII P XIF 6 PIHIN10 RTN A5 B P IFT P6805=0 SALCUZ X PIHIN20 CF A5,SST PERFORM SST t P ABL BRM P XIF SALCUZ P IFT P6805=1 SALCUZ $ PIHIN20 RF SST PERFORM SST SALCUZ P XIF
0x1738cc…173a60 Dummy {f00=0x0097, f01=0x0190, f02=» P IFT CPU852=1 P CF A15,SAVE8 SAVE A1 - A8 P XIF @ P L P IFF CPU852=1 T P MSR 8,A15 SAVE A1-A8 =1 j P XIF * P CF A15,LDREG RESTORE DC REGS A3 - A8 P RB IHIN10 P EJECT P* P* & P* SST INSTRUCTIO
0x173a60…173bf4 (0, 471) Opaque[0x194]
0x173bf4…173d88 # DirEnt {nam=»NJDC15«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0878, f03=0x0000}
0x173bf4…173d88 IdxSect {
0x173bf4…173d88 f00 = 0x0043 // 0x173bf4 @0x0
0x173bf4…173d88 f01 = 0x002a // 0x173bf6 @0x2
0x173bf4…173d88 gno = [ // 0x173bf8 @0x4
0x173bf4…173d88 [0x00]: C0x0043.0x3.0
0x173bf4…173d88 [0x01]: C0x004d.0x3.0
0x173bf4…173d88 [0x02]: C0x004e.0x3.0
0x173bf4…173d88 [0x03]: C0x008f.0x0.0
0x173bf4…173d88 [0x04]: C0x008f.0x1.0
0x173bf4…173d88 [0x05]: C0x008f.0x3.0
0x173bf4…173d88 [0x06]: C0x0091.0x3.0
0x173bf4…173d88 [0x07]: C0x0092.0x0.0
0x173bf4…173d88 [0x08]: C0x0092.0x2.0
0x173bf4…173d88 [0x09]: C0x0092.0x3.0
0x173bf4…173d88 [0x0a]: C0x0093.0x0.0
0x173bf4…173d88 [0x0b]: C0x0094.0x3.0
0x173bf4…173d88 [0x0c]: C0x0095.0x0.0
0x173bf4…173d88 [0x0d]: C0x0095.0x1.0
0x173bf4…173d88 [0x0e]: C0x0096.0x2.0
0x173bf4…173d88 [0x0f]: C0x0098.0x2.0
0x173bf4…173d88 [0x10]: C0x0099.0x0.0
0x173bf4…173d88 [0x11]: C0x0099.0x1.0
0x173bf4…173d88 [0x12]: C0x009a.0x0.0
0x173bf4…173d88 [0x13]: C0x009a.0x3.0
0x173bf4…173d88 [0x14]: C0x009b.0x0.0
0x173bf4…173d88 ]
0x173bf4…173d88 }
0x173d88…173f1c Dummy {f00=0x0043, f01=0x0190, f02=» 2 P IDENT DRDC15 9.2DK 3 80-01-03 870105040920 P : P DK3, RBUFNR = 1 ALLOWED B P DK2, TBUFL d P 80-03-11 z 0 P DK, COND.ASM., TIMPRO, TIMNAK, READ BUF. P 80-03-11 P REL 9.1 79-08-16 P =8, ASCII-MODE FOR
0x173f1c…1740b0 Dummy {f00=0x0043, f01=0x018e, f02=»RESS DESTROYED x P REL 9.1 79-05-23 $ P =5, INCOMPLETE POLL SEQUENCE 2 P REL 9.1 79-05-23 Z P =3, TRANSFER PARAMETER v P PRR 9.1 79-04-06 P =4, ANY MESSAGE ORDER P PRR 9.1 79-04-06 P =2, ABORT HANDLING
0x1740b0…174244 Dummy {f00=0x0043, f01=0x0190, f02=» P* 2 P********************************************* P* D $ P* PHILIPS TERMINAL SYSTEM PTS N P* v * P* DRDC15: DRIVER DATA COMMUNICATION . P* BSC MULTIPOINT LINE PROCEDURE P* OR SIEMENS MSV1 P*
0x174244…1743d8 Dummy {f00=0x0043, f01=0x0190, f02=»* ENTRY POINTS P* 2 P ENTRY DC15AD ADDRESS BLOCK TERMINAL REQUESTS " P ENTRY IH1501 INPUT INTERRUPT V " P ENTRY IH1502 OUTPUT INTERRUPT | " P ENTRY DC15ON POWER ON ROUTINE " P ENTRY DW1500 DWT FOR DC TASK P* P* P* EXTE
0x1743d8…17456c Dummy {f00=0x0043, f01=0x018e, f02=»DIO COMPLETE I/O EVENT P EXTRN DISIOE REQUEST ERROR P EXTRN SETIME SET TIMER B P EXTRN DWTST DWT STATUS b P EXTRN DWTOR DWT ORDER P EXTRN DWTECB DWT ECB * P EXTRN INTSAV SAVE AREA LAST INTERRUPT ( P EXTRN TEBCDIC ASCII TO EBCD
0x17456c…174700 Dummy {f00=0x0043, f01=0x0190, f02=» l & P EXTRN ECBEL ECB EFFECTIVE LENGTH P EXTRN ECBRC ECB RETURN CODE 2 " P EXTRN ECBCW ECB CONTROL WORD V * P EXTRN DC:MIN MOVE DATA TO USER BUFFER | , P EXTRN DC:MOT MOVE DATA FROM USER BUFFER 0 P EXTRN DISEND COMPLETE REQUEST AND DISPATCH
0x174700…174894 (0, 472) Dummy {f00=0x004d, f01=0x018e, f02=» P* P* DWT CONTENTS P* ( J P* DWTCHP TERMINAL ADDRESS AS GIVEN AT PARAMETER TRANSFER (BIT #08-#15) 2 P* P < P******************************************************* P* * P* PARAMETERS FOR CONDITIONAL ASSEMBLY
0x174894…174a28 Dummy {f00=0x004d, f01=0x0190, f02=» p & PX:A EQU 2000 RECEIVE BUFFER LENGTH PRBUFL EQU 650+X:X DK 2 PX:B EQU /60 DCTASK FILE CODE P PDC15FC EQU /60 t $ PX:C EQU 1 IF 1 INTERRUPT LOGGING PLOGG EQU 0 P* * PTIMPOL EQU 600 POLL TIMEOUT VALUE DK * PX:E EQU 1 ST
0x174a28…174bbc Dummy {f00=0x004d, f01=0x0190, f02=»LOCK LENGTH z PTBLEN EQU 2300 ( PX:H EQU 1 CODE , 0=ASCII , 1=EBCDIC * PCODE EQU 0 V * PX:I EQU 0 IF 1 SPECIFIC POLL HANDLING h PSPECP EQU 0 , PX:J EQU 1 IF = 1 LINE SPEED SET TO HIGH ( P IF = 0 LINE SPEED IS SET TO LOW PSP
0x174bbc…174d50 Dummy {f00=0x004d, f01=0x0190, f02=»NR EQU 2 ( PX:M EQU 0 IF = 1 PTS 6805 ADAPTION PP6805 EQU 00 < PX:N EQU /02 P P IFT P6805=0 d , PLCUIN EQU 02 DEVICE ADDRESS OF RECEIVER x P XIF P IFT P6805=1 , PLCUIN EQU /0A DEVICE ADDRESS OF RECEIVER P XIF PX:O
0x174d50…174ee4 Dummy {f00=0x004d, f01=0x0190, f02=»EQU 0 IBM-3270 EMULATION PACKAGE, IF NOT = 0 PEM3270 EQU 1 4 PX:R EQU 1000 H P DK2 * PBINTRM EQU 0 IF 1 BINARY TRANSMISSION l , PTSTREQ EQU 0 IF 1 TEST REQUEST HANDLING , PDMRK EQU 1 SPECIAL CONDITION FOR DENMARK 4 PNOWACK EQU 0 W
0x174ee4…175078 Dummy {f00=0x004d, f01=0x0190, f02=». f , P ONLY WORKING IF STAT IS SET TO "ONE". P IFT P6805=0 : 6 PLCUUT EQU LCUIN+/10 DEVICE ADDRESS OF TRANSMITTER P P XIF P IFT P6805=1 6 PLCUUT EQU LCUIN+/01 DEVICE ADDRESS OF TRANSMITTER P XIF P* P P
0x175078…17520c Dummy {f00=0x004d, f01=0x0190, f02=»************************* P* " . P* A PROGRAM VERSION USING TOSS MMU PAGING , * P* IS OBTAINED BY SETTING MMUPAG EQU 1. ^ P* PMMUPAG EQU 1 P* P DB P IFT MMUPAG=0 DK2 PTBUFL EQU 0 DK2 P XIF DK2 P*
0x17520c…1753a0 Dummy {f00=0x004d, f01=0x0190, f02=»RSION USING THE EXTENDED INSTRUCTION . P* SET IS OBTAINED BY SETTING CPU852 EQU 0. , P* ^ PCPU852 EQU 0 h P* | 2 PDEVIND EQU -2 DEVICE INDEX DATA COMMUNICATION * PBUFLEN EQU TBUFL+TBUFL MMU BUFFER SIZE P* P P* P
0x1753a0…175534 (0, 473) Dummy {f00=0x004e, f01=0x0190, f02=»RD P XIF P* P IFT MMUPAG=1 PSTART EQU DWTDRD+4 6 P XIF P P* 4 PDWTTP EQU START+/00 TIMER POINTER ORDER PROCESS f . PDWTWQ EQU START+/02 WRITE/GET BUFFER QUEUE $ PDWTSQ EQU START+/04 STATUS QUEUE & PDWTRQ EQU START+
0x175534…1756c8 Dummy {f00=0x004e, f01=0x018e, f02=»+/0C REQUEST TIMER VALUE P* P * P* 4 P* REQUEST HANDLING > P* X P* b P* l P* A7=ORDER v P* P* /02: READ P* /06: WRITE P* /37: TRANSFER PARAMETERS P* /38: SET STATUS $ P* /39: SET REQUEST
0x1756c8…17585c Dummy {f00=0x004e, f01=0x0190, f02=» * PDCSTOL DATA 0 OLD DC EQUIPMENT STATUS PDCSTCU DATA 0 CURRENT STATUS 2 $ PDCWRQ DATA 0 WRITE REQUEST QUEUE V , PDCTPGP DATA 0 TIMER POINTER GENERAL POLL ~ P P* P* DC TASK ADDRESS BLOCK P* $ P DATA 0 INDICATES NO MMU BUF
0x17585c…1759f0 Dummy {f00=0x004e, f01=0x0190, f02=»ATA DCRBUF REC. BUFFER ANCHOR P* & P* DRIVER ADDRESS BLOCK 0 P* N P DATA BUFLEN MMU BUFFER SIZE X P DATA DEVIND DEVICE INDEX | ( PDC15AD DATA DCACT ACTIVATION ADDRESS 4 P DATA ABORT ABORT ROUTINE ABORT ROUTINE ADDRESS $ P DATA
0x1759f0…175b84 Dummy {f00=0x004e, f01=0x0190, f02=»RAM v PSTB2 RES 1 P P IFT SPEED=1 & PLSPEED EQU /0200 : P XIF R P IFT SPEED=0 ^ PLSPEED EQU 0 r P XIF P P* P* $ P* ACTIVATION FROM TERMINAL TASKS P* PDCACT EQU * P LDK A1,0 PRESET R
0x175b84…175d18 Dummy {f00=0x004e, f01=0x0190, f02=» P RF(Z) DCRD READ SPECIFIC P SUK A7,/06-/02 & P RF(Z) DCWR > P SUK A7,/37-/06 R $ P RF(Z) DCTP TRANSFER PARAMETERS j P IFF STAT=0 P SUK A7,/38-/37 P RF(Z) DCSS SET STATUS P SUK A7,/39-/38 $ P ABL(Z) REQTIM SET R
0x175d18…175eac Dummy {f00=0x004e, f01=0x0190, f02=» RF DCA100 P P* P* & P* ACTIVATION FROM DCTASK 0 P* P P* Z PDCACTD EQU * d $ P SUR A1,A1 PRESET RETURN CODE =4 x P IFT EM3270=1 =4 P LDR A7,A7 =4 & P RF(Z) ANYMSG ANY MESSAGE ORDER =4 P XIF P S
0x175eac…176040 Dummy {f00=0x004e, f01=0x0190, f02=» ERROR | P ABL DISIOE INVALID ORDER P* 0 P* : P* READ FROM DCTASK D P* ^ P* h P* REQUEST FROM DC-TASK r P* COMPLETE WHEN: & P* STATUS CHANGE ON DC EQUIPMENT $ P* SPONTANOUS MESSAGE RECEPTION P* PDCRD
0x176040…1761d4 (0, 474) Dummy {f00=0x008f, f01=0x0190, f02=»4 P . P***************************************** P* F P* ANY MESSAGE ORDER P P* n " P***************************** x P 2 PANYMSG LD A4,DWTRQ,A6 ANY QUEUED MESSAGE ?? =4 P RF(Z) DCRD10 NO!! =4 ( P RF ENDIO YES!
0x1761d4…176368 Dummy {f00=0x008f, f01=0x0190, f02=» DC-TASK: TRANSFER TERMINAL COMPUTER ADDRESS : P* FROM TERMINALS: TRANSFER TERMINAL ADDRESSES 4 P* r P* | P IFF CODE=1 & PDCTP LD A2,ECBCW,A8 GET PARAMETER P XIF P IFT CODE=1 & PDCTP LC A2,ECBCW,A8 GET TCS IF ANY
0x176368…1764fc Dummy {f00=0x008f, f01=0x0190, f02=»,ECBCW+1,A8 GET TCP OR DV P ANK A3,/FF " ( P LC A2,TASCII,A3 TRANSLATE TO ASCII 6 P XIF b ( P STR A2,A6 SAVE IN FIRST WORD OF DWT n P P IFT RCOM=1 * P LD A3,ECBBA,A8 DEVICE BUFFER ADDRESS P ST A3,DWTBUF,A6 ( P LD A3,ECBRL
0x1764fc…176690 Dummy {f00=0x008f, f01=0x0190, f02=»OT BE IN DC:TAB r * P LD A1,DC:IN GET DC:TAB INPUT POINTER * P CWK A1,DC:END TABLE ALREADY FULL ???? F & P ABL(E) DISIOE YES!! REQUEST ERROR t P P P PDCTP20 EQU * " P LD A4,DCTAB DC:TAB ADDRESS =3 $ P AD* A4,DCTAB LAST TAB
0x176690…176824 Dummy {f00=0x008f, f01=0x0190, f02=»IN TABLE =3 v P CWR* A6,A4 IN TABLE ?? =3 P RF(E) DCTP30 YES!! =3 6 " P RB DCTP22 CHECK NEXT ENTRY =3 T PDCTP25 EQU * =3 z P $ P STR A6,A1 INSERT DWT IN DC:TAB P LDK A1,2 * P ADS A1,DC:IN UPDATE DC:TAB IN POINTER P *
0x176824…1769b8 Dummy {f00=0x008f, f01=0x0190, f02=»SERT IN STATUS QUEUE P XIF PDCTP30 EQU * ( P SUR A1,A1 RETURN CODE ::= 0 < PENDIO EQU * ` $ P CF A15,TENDIO COMPLETE REQUEST t P RB DCRTN P P* P* P* WRITE P* P* P* COMPLETE WHEN: P
0x1769b8…176b4c Dummy {f00=0x008f, f01=0x0190, f02=»TED LENGTH z " P CWK A1,BUFLEN ILLEGAL LENGTH? P RF(G) IL:LEN YES!! 8 P XIF T P CF A15,TIMEWR SET TIMER ` P CF A15,INSWQ QUEUE REQUEST P RB DCRTN P* P* P* P* READ P* P* P* COMPLETE WHEN:
0x176b4c…176ce0 Dummy {f00=0x008f, f01=0x0190, f02=»,A6 AND RECEIVE MESSAGE QUEUE " P RF(Z) DCRD10 NOTHING IN QUEUE & P L P T P ( P LDR* A2,A4 TAKE THE FIRST IN QUEUE d P ST A2,DWTRQ,A6 P ADK A4,6 " P LD A3,-4,A4 EFFECTIVE LENGTH P ST A3,ECBEL,A8 P P LDK A1,
0x176ce0…176e74 (0, 475) Dummy {f00=0x008f, f01=0x0190, f02=» P RB DCRTN P P* P* * P* SET STATUS 4 P* H P* R P IFF STAT=0 PDCSS EQU * p * P LD A1,ECBCW,A8 GET STATUS INFORMATION P ANK A1,3 MASK DB,IR P RF(Z) DCSS20 DEVICE END PDCSS10 EQU * P ST A1,D
0x176e74…177008 Dummy {f00=0x008f, f01=0x0190, f02=» NOT BEEN SENT z PDCSS30 EQU * , P CF A15,INSSQ INSERT DWT IN STATUS QUEUE * P LDK A1,4 SET DE Z P RB DCSS10 r P XIF P P P* " P* SET REQUEST TIMEOUT VALUE P* P* P PREQTIM EQU * " P LD A2
0x177008…17719c Dummy {f00=0x008f, f01=0x018e, f02=»L APPLICATION BUFFER SIZE P* " P , 8 PIL:LEN LDKL A1,/8008 REQUEST ERROR + ILLEGAL LENGTH 4 P ABL DISEND COMPLETE REQUEST p P P* P* P* P* TIMER HANDLING PART P* P* P* P* READ TIMER=TIM
0x17719c…177330 Dummy {f00=0x008f, f01=0x0190, f02=» v P ST A2,TIMERR ! P CF A15,SETIME ! P DATA TOUTRE ! 4 PTIMERR DATA 0 ! H ( P ST A4,DWTTP,A6 STORE TIMER POINTER ! ^ PTIME10 EQU * ! P RF GBUF10 RETURN ! P* ! P* TIMEOUT READ TIMER ! P* ! PTOUTRE EQU * ! P LDR A6,A1 F
0x177330…1774c4 Dummy {f00=0x008f, f01=0x0190, f02=» ! P* WRITE TIMER=TIMWR " P* " $ PTIMEWR LDR A1,A6 " . . P LD A2,DWTTIM,A6 GET REQUEST TIMEOUT VALUE " F P RB(Z) TIME10 NO TIMING " x P ST A2,TIMWR " P CF A15,SETIME " P DATA TOUTWR " PTIMWR DATA 0 " P ST A4,DWTTP,A6 " P RB TI
0x1774c4…177658 Dummy {f00=0x008f, f01=0x0190, f02=» * P CF A15,REMOVW REMOVE FROM WRITE QUEUE # P* # 2 & P* THIS INSTRUCTION DOES NOT BELONG # < P* TO THE STANDARD INTERFACE # f P LD A2,FDWTUT # P CWR A2,A6 # * P RB(NE) TOUTR1 THIS DWT IS NOT WRITING # ( P CM XACK INDICATE 'ACK NOT EXPECTED' #
0x177658…1777ec Dummy {f00=0x008f, f01=0x0190, f02=»INING TIME IS RETURNED IN A2 # P* $ $ P* $ . PCTIME EQU * $ 8 & P LD A2,DWTTP,A6 GET TIMER POINTER $ L P RF(Z) CTIM10 NOT RUNNING $ v P LDR* A2,A2 $ " P NGR A2,A2 GET REMAINING TIME $ P CM* DWTTP,A6 STOP TIMER $ P CM DWTTP,A6 $ PCT
0x1777ec…177980 Dummy {f00=0x008f, f01=0x0190, f02=»A4=0 IF NO BUFFER IS FREE $ & P* ELSE A4 CONTAINS BUFFER ADDRESS % " P* A2 AND A3 ARE DESTROYED % L P* % n P* % x ( PGRBUF LDKL A2,DCRBUF RECEIVE BUFFERS % PGBUF INH % P LDR* A4,A2 % P RF(Z) GBUF10 NO BUFFER FREE % . P LDR* A3,A4 REMOVE
0x177980…177b14 (0, 476) Dummy {f00=0x008f, f01=0x018e, f02=» P* & P* & ( P* INSERT DWT IN WRITE REQUEST QUEUE & P* & D P* A2,A3,A4 DESTROYED & N P* A6=DWT & j P* & z ( PINSWQ LDKL A2,DCWRQ GET QUEUE ANCHOR & PINSWQ1 LDK A4,DWTWQ & PINSWQ2 LDR* A3,A2 & $ P RF(Z) INSWQ3 END OF QUEUE FOUND &
0x177b14…177ca8 Dummy {f00=0x008f, f01=0x0190, f02=» P RB GBUF10 RETURN ' P* ' P* ' ( * P* REMOVE DWT FROM WRITE REQUEST QUEUE ' 2 P* ' ` P* A2,A3,A4 DESTROYED ' j P* A6=DWT ' P* ' * PREMOVW LDKL A2,DCWRQ GET QUEUE ANCHOR ' 2 PREM05 LDK A4,DWTWQ GET DWT-LINK TO BE REMOVED ' PREM0
0x177ca8…177e3c Dummy {f00=0x008f, f01=0x0190, f02=» P LDR A2,A3 GET NEXT ( P RB REM10 ( PREM15 LDR* A3,A4 REMOVE ( 2 P STR A3,A2 ( R P RB GBUF10 RETURN ( d P ( ~ P* ( P* ( P* INSERT DWT IN STATUS QUEUE ( P* ( P IFF STAT=0 ( P* A2,A3,A4 DESTROYED ( P* A6=DWT (
0x177e3c…177fd0 Dummy {f00=0x008f, f01=0x018e, f02=»ATUS QUEUE ( | P* ) P* A2,A3,A4 DESTROYED ) P* A6=DWT ) 8 P* ) H * PREMOVS LDKL A2,DCSTQ GET QUEUE ANCHOR ) R P LDK A4,DWTSQ ) P RB REM06 ) P XIF ) P ) P* ) P* ) $ P* QUEUE ALLOCATED RECEIVE BUFFER ) P* ) P* A4
0x177fd0…178164 Dummy {f00=0x008f, f01=0x0190, f02=» ) j P XIF * P IFT MESPAS=0 * $ P LDR A2,A6 QUEUE ON TERMINAL DWT * * P XIF * R , P ADK A2,DWTRQ BEGINNING OF RECEIVE QUEUE * ^ PQR100 EQU * * P LDR* A3,A2 * $ P RF(Z) QR200 END OF QUEUE FOUND * P LDR A2,A3 * P RB QR100 * & PQR200
0x178164…1782f8 Dummy {f00=0x008f, f01=0x018e, f02=»ECTED MESSAGE OR STATUS CHANGE * P* + & 4 P* REGISTERS A1,A2,A3,A4,A6 AND A8 ARE DESTROYED + 0 P* + h PCKMESS LDKL A6,DW1500 + r P LD A1,DWTST,A6 + P RF(N) CKM110 NO REQUEST + P LDK A1,2 READ REQUEST ? + P CW A1,DWTOR,A6 + P RF(NE)
0x1782f8…17848c Dummy {f00=0x008f, f01=0x0190, f02=» + p P , P , , P LDR* A2,A3 A2=ADDR TO NEXT READ BUFFER , . P ST A2,DWTRQ,A6 STORE THIS ADDR INTO QUEUE , H " P ADK A3,6 MOVE POINTER TO TEXT , z & P DONT DESTROY BUFFER ADDRESS =6 , P LD A4,-4,A3 , 0 P ST A4,ECBEL,A8 STORE NUMBERS OF CHARACTER
0x17848c…178620 Dummy {f00=0x008f, f01=0x0190, f02=»ECEIVE BUFFER ADDRESS , , P CF A15,DC:MIN MOVE DATA TO USER BUFFER - * PCKM110 ADKL A15,4 ADJUST STACK POINTER - N P ABR* A15 RETURN - | 8 PCKM200 LD A1,DCSTCU NO MESSAGE RECEIVED,CHECK STATUS - , P OR A1,DCONOF TAKE CARE OF POLL TIME OUT - P CW A1,D
0x178620…1787b4 (0, 477) Dummy {f00=0x0091, f01=0x0190, f02=»IO COMPLETE READ GENERAL REQUEST - P RB CKM110 . ( P . : P . D @ P************************************************************ . L P* . P* ABORT ROUTINE . P* . P************************ . P . & PABORT LD A1,DWTTP,A6 TIMER POINTER
0x1787b4…178948 Dummy {f00=0x0091, f01=0x0190, f02=»E . r P SUK A1,2 / * P RF(Z) AB:RTN READ REQUEST. NO ACTION / P SUK A1,4 / J . P RF(NZ) AB:RTN NO ACTION IF NOT READ/WRITE / P / . P CF A15,REMOVW REMOVE DWT FROM WRITE QUEUE / & P LD A2,FDWTUT WRITING DWT ADDRESS / P CWR A2,A6 / P RF(
0x178948…178adc Dummy {f00=0x0091, f01=0x0190, f02=» CPU852=1 / P ADKL A15,4 0 $ P ABR* A15 RETURN IN INHIBIT MODE 0 & P XIF 0 N P IFF CPU852=1 0 Z P RTN A15 0 p P XIF 0 P 0 P 0 P 0 P* 0 P* 0 P* STORE REGISTER A3-A8 0 $ P* CALLING SEQUENSE: CF A15,STREG 0 P* 0
0x178adc…178c70 Dummy {f00=0x0091, f01=0x0190, f02=»5 0 P ST A6,LCA6 1 P ST A7,LCA7 1 P ST A8,LCA8 1 2 P RF RTNA15 RETURN 1 F P 1 ` PLDREG LDKL A3,0 1 j PLCA3 EQU *-2 1 P LDKL A4,0 1 PLCA4 EQU *-2 1 P LDKL A5,0 1 PLCA5 EQU *-2 1 P LDKL A6,0 1 PLCA6 EQU *-2 1 P
0x178c70…178e04 Dummy {f00=0x0091, f01=0x0190, f02=» 1 P* 2 P* 2 P* TIMER VALUES 2 P* 2 2 P* 2 < * PTIMPRO EQU 90 PROCEDURE TIMER 9 SEC DK 2 F " PTIMNAK EQU 3 DELAY FOR NAK DK 2 t P* 2 P* 2 P* CHARACTER EQUATES 2 P* 2 & PSF EQU X'1D' START FIELD CHARACTER 2 PSYN EQU /1
0x178e04…178f98 Dummy {f00=0x0091, f01=0x0190, f02=»U /10 2 PEOT EQU /04 3 PNAK EQU /15 3 " PESC EQU /1B 3 6 PSBA EQU /11 3 J PGP EQU /22 3 ^ PRDBCOM EQU /32 3 p PRDMCOM EQU /36 3 P IFT CODE=0 3 PPAR EQU /80 3 PRVI EQU /3C 3 PACK0 EQU /30 3 PACK1 EQU /31 3 PDC1 EQU
0x178f98…17912c Dummy {f00=0x0091, f01=0x0190, f02=»1 PROCEDURE 3 p P XIF 4 P IFT CODE=1 4 PPAR EQU /00 4 4 PWACK EQU /2C 4 H PRVI EQU XRVI DK 4 PACK0 EQU /18 4 t PACK1 EQU /2F 4 PSYNEBC EQU /32 4 P XIF 4 P 4 P* 4 P* 4 P* PROCEDURE WORK AREAS 4 P* 4 P* 4
0x17912c…1792c0 Dummy {f00=0x0091, f01=0x0190, f02=»EL DATA 0 SELECTED 4 PXETX DATA 0 ETX SENT 5 2 PXSTA DATA 0 STATUS SENT / MESSAGE INPUT RESULT 5 6 " PXRB DATA 0 READ BUFFER SWITCH 5 l PCACK DATA 0 ACK COUNTER 5 * PSYNSW DATA 0 0=SKIP SYNS, 1=DON'T SKIP 5 P* 5 PFECB RES 1 WRITING ECB 5 ( P
0x1792c0…179454 (0, 478) Dummy {f00=0x0092, f01=0x018e, f02=» OF LAST TRANSMITTED BLOCK 5 ~ $ PDCSTQ DATA 0 STATUS QUEUE ANCHOR 6 " . PDCTPP DATA 0 POINTER FOR PROCEDURE TIMING 6 J , PRESEND DATA 0 CONTROL SEQUENCE SAVE AREA 6 | ( PCRDBUF DATA 0 READ BUFFER COUNTER DK 6 P* 6 P* 6 $ P* 3270 SENSE/STATUS INFORMAT
0x179454…1795e8 Dummy {f00=0x0092, f01=0x0190, f02=» 6 P DATA /4242 7 P* 7 2 PNOIR EQU /20 S/S 1 : NO INTERVENTION REQUIRED 7 & , PIR EQU /26 S/S 1 : INTERVENTION REQUIRED 7 P XIF 7 P 7 P* 7 P* 7 P* BASIC RECEIVE MODE 7 P* 7 " P* ENTERED EVERY TIME A MESSAGE 7 & P* IS E
0x1795e8…17977c Dummy {f00=0x0092, f01=0x0190, f02=»M EQU * 7 P LDKL A5,STB LOAD STACKBASE 8 P IFT P6805=0 8 4 2 P CF A5,HALTIN HALT RECEIVER AND UPDATE STATUS 8 J P XIF 8 P IFT P6805=1 8 * P CF A15,CKMESS CHECK IF STATUS CHANGE 8 P XIF 8 PBRM010 EQU * 8 P IFT CODE+P6805=0 8
0x17977c…179910 Dummy {f00=0x0092, f01=0x0190, f02=»YNEBC SPECIFY SYN PATTERN 8 z P XIF 9 " P IFT P6805=0 9 0 " P CIO A2,1,LCUIN START RECEIVER 9 F P XIF 9 l P IFT P6805=1 9 z P IFF CODE=1 9 P LDK A2,/0C 9 " P CIO A2,1,LCUIN START RECEIVER 9 P LDK A2,SYN 9 * P OTR A2,1,LCUIN SPECIF
0x179910…179aa4 Dummy {f00=0x0092, f01=0x018e, f02=» 9 r P LDK A2,SYNEBC : * P OTR A2,1,LCUIN SPECIFY SYNC CHARACTER : P RB(NA) BRMHLT : N P XIF : f PBRM100 EQU * : t $ P CF A5,READP READ ONE CHARACTER : P RF(NZ) BRM150 PARITY ERROR : P LDR A1,A2 : P SUK A1,STX : P RF(Z) BRM300
0x179aa4…179c38 Dummy {f00=0x0092, f01=0x0190, f02=» P SUK A1,DLE-ENQ ; P ABL(Z) BRM600 DLE RECEIVED ; P SUK A1,NAK-DLE ; @ P ABL(Z) BRM500 NAK RECEIVED ; X P IFT MSV1=0 ; | P LDR A8,A2 ; $ P CF A5,READP READ ONE CHARACTER ; P RF(NZ) BRM150 PARITY ERROR ; P CWR A2,A8 ; & P RF(NE)
0x179c38…179dcc Dummy {f00=0x0092, f01=0x0190, f02=» CC A2,DW1500 ; P RF(NE) BRM150 NOT THIS TCU < PBRM110 EQU * < : P CF A5,READP READ 1:ST STA < N P RF(NZ) BRM150 PARITY ERROR < p P LDR A8,A2 < P IFT MSV1=0 < P CF A5,READP READ 2:ND STA < P RF(NZ) BRM150 PARITY ERROR < P CWR A2,
0x179dcc…179f60 Dummy {f00=0x0092, f01=0x0190, f02=»2,ENQ+PAR < P XIF = P IFT P6805=1 = P SUK A2,ENQ = 6 P XIF = J P RF(NZ) BRM150 NOT ENQ = X P IFT P6805=0 = v $ P CF A5,READ READ LAST CHARACTER = P = " P* TRAILING PAD CAN BE CHECKED = P = P CIO A1,0,LCUIN HALT INPUT =
0x179f60…17a0f4 (0, 479) Dummy {f00=0x0092, f01=0x0190, f02=» = P LDK A1,1 > P ST A1,CACK LOAD ACK COUNTER > P LDR A2,A8 > @ P SUK A3,2 > R P RF(Z) BRM120 SELECTING > d P CWK A8,GP > P ABL(E) GPOLL GENERAL POLL > P IFT MSV1=1 > 6 P CF A5,FINTEP CHECK IF STA PRESENT (POLL ADDRESS) > P X
0x17a0f4…17a288 Dummy {f00=0x0092, f01=0x0190, f02=»CIFIC POLL > ~ P RB BRM INVALID POLL ? PBRM120 EQU * ? . & P CF A5,FINTER CHECK IF STA PRESENT ? B P LDR A6,A3 LOAD DWT TO A6 ? l P RF(NZ) BRM130 STA FOUND ? P IFT MSV1=0 ? $ P LDKL A6,DW1500 SELECT TO DCTASK ? PBRM130 EQU * ? P ABL SEL
0x17a288…17a41c Dummy {f00=0x0092, f01=0x0190, f02=»SYNCHRONIZE ? t P* @ PBRM150 EQU * @ P ANK A2,/7F @ 2 P SUK A2,/7F @ F P RB(Z) BRM RESYNCHRONIZE @ Z & P CF A5,READ READ ANOTHER CHARACTER @ z P RB BRM150 @ P @ P* @ P* @ P* EOT HAS BEEN RECEIVED @ P* @ P* @ P
0x17a41c…17a5b0 Dummy {f00=0x0092, f01=0x0190, f02=»ACK @ & P RF(Z) BRM220 ACK IS NOT EXPECTED A " P LD A6,FDWTUT GET WRITING DWT A 6 P RF(Z) BRM210 NO ONE WRITING A P LDK A1,2 SET RC=2 A ( P CF A5,CWRITE COMPLETE WRITE REQUEST A PBRM210 EQU * A " P CM XACK RESET 'ACK EXPECTED' A PBRM220 E
0x17a5b0…17a744 Dummy {f00=0x0092, f01=0x0190, f02=» A PBRM300 EQU * B P CF A5,HPTIM B P LD A1,XSEL B 0 P RF(Z) BRM315 NOT SELECTED B D P LD A1,DCRBUF B f ( P*********************CHAINED COMMAND B | & P RB(Z) BRM150 NO BUFFER AVAILABLE B P********************* B PBRM305 EQU * B P CF
0x17a744…17a8d8 Dummy {f00=0x0092, f01=0x0190, f02=»' B n PBRM312 EQU * C P CF A5,TRNAK SEND NAK C P ABL BRM C < PBRM315 EQU * C L P IFT RCOM=1 C ` P LD A1,XACK C t & P RF(Z) BRM316 ACK IS NOT EXPECTED C P LD A1,DCRBUF C & P RF(Z) BRM316 NO BUFFER AVAILABLE C " P LD A6,FDWTUT GET WRIT
0x17a8d8…17aa6c Dummy {f00=0x0092, f01=0x0190, f02=»RREC PREPARE FOR TEXT RECEPTION C P LDK A1,0 SET RC=0 D ( ( P CF A5,CWRITE COMPLETE WRITE REQUEST D B P CM CACK PRESET ACK-1 =7 D n P RB BRM305 READ THE MESSAGE D P XIF D ( PBRM316 CF A5,READ READ ONE CHARACTER D P IFF P6805=1 =8 D P SUK A
0x17aa6c…17ac00 Dummy {f00=0x0092, f01=0x0190, f02=»CE D n P RB BRM220 E PBRM320 EQU * E P IM XSTA INDICATE MESSAGE OK E 0 $ P LD A4,DCRBUF GET BUFFER ADDRESS E T P ADK A4,6 E | P CW A4,FBLST E " P RF(NE) BRM325 NOT FIRST BLOCK E P IFF RCOM=0 E P LDK A1,ESC E P CCR A1,A4 E P RB(NE
0x17ac00…17ad94 (0, 480) Dummy {f00=0x0092, f01=0x0190, f02=» READ MODIFIED RECEIVED E P SUK A1,RDMCOM-RDBCOM F & P RF(Z) RDMOD READ BUFFER RECEIVED F > P XIF F h PBRM325 EQU * F t P SUK A7,1 F & P RF(Z) BRM340 MESSAGE ENDED BY ETB F P CM FBAX F * P CF A15,GRBUF ALLOCATE RECEIVE BUFFER F P ADK A
0x17ad94…17af28 Dummy {f00=0x0092, f01=0x0190, f02=»6 F P LC A2,TEBCDIC,A2 G P LD A1,DCRBUF G $ P RF(Z) BRM326 G : P ST A2,+4,A1 G P P XIF G d PBRM326 EQU * G p P CWK A6,DW1500 G , P RF(E) BRM330 MESSAGE IS MENT FOR DCTASK G P LD A2,DWTST,A6 GET STATUS G P RF(N) BRM330 NO REQUEST G
0x17af28…17b0bc Dummy {f00=0x0092, f01=0x0190, f02=» P CW A2,DWTOR,A6 H " P RF(NE) BRM330 NO READ REQUEST H PBRM327 EQU * H B P LDK A1,0 SET RC=0 H V $ P LD A8,DWTECB,A6 GET ECB ADDRESS H p P LD A3,-4,A4 GET LENGTH H * P ST A3,ECBEL,A8 STORE EFFECTIVE LENGTH H & P CF A15,CTIME STOP REQUEST TIMING
0x17b0bc…17b250 Dummy {f00=0x0092, f01=0x0190, f02=» H P* I P IFT STAT=1 I P LC A2,+2,A4 GET WCC/CCC I & P ANK A2,/FF I F P LC A2,TEBCDI,A2 TRANSLATE I Z P ANK A2,8 I | P RF(Z) BRM328 I P LD A2,DWTST,A6 GET STATUS I P ORK A2,/A I P ST A2,DWTST,A6 I PBRM328 EQU * I P XIF
0x17b250…17b3e4 Dummy {f00=0x0092, f01=0x0190, f02=»R ADDRESS =4 I z ( P CF A5,QRBUF QUEUE MESSAGE ON DWT =4 J P RF BRM32A =4 J @ P XIF =4 J V PBRM329 EQU * =4 J f P J ~ P LDK A1,0 RESET RETURN CODE J & P CF A15,DC:MIN MOVE TO USER BUFFER J P RF BRM345 J PBRM32A EQU * =4 J P J $ P C
0x17b3e4…17b578 Dummy {f00=0x0092, f01=0x0190, f02=»4 J x P RF(N) BRM335 NO REQUEST =4 K P LD A1,DWTOR,A6 ORDER =4 K . , P RF(NZ) BRM335 NOT ANY MESSAGE ORDER =4 K N & P CF A15,TENDIO COMPLETE REQUEST =4 K ~ PBRM335 EQU * =4 K P XIF =4 K P SUK A4,6 GET BUFFER BASE K ( P CF A5,QRBUF QUEUE B
0x17b578…17b70c Dummy {f00=0x0092, f01=0x0190, f02=» K PBRM345 EQU * L P IFT STAT=1 L P LD A1,DWTST,A6 L 0 P ANK A1,8 L H $ P RB(Z) BRM340 ACK SHOULD BE SENT L Z P CF A5,TRWACK SEND WACK L P RF BRM410 L P XIF L P IFF STAT=1 L P RB BRM340 L P XIF L P L P* L P*
0x17b70c…17b8a0 Dummy {f00=0x0092, f01=0x0190, f02=»RDMOD EQU * L " P CM XSEL RESET SELECT EXPECTED M 4 P LD A6,FDWTIN DWT-ADDRESS FOR ADDRESSED TERMINAL M : $ P LD A4,DWTBUF,A6 BUFFER ADDRESS M r $ P SUK A4,2 SDJUST BUFFER ADDRESS M " P LDKL A3,1922 REQUESTED LENGTH M " P IM XRB SET READ BUFFER SWITCH M
0x17b8a0…17ba34 (0, 481) Dummy {f00=0x0093, f01=0x0190, f02=» M j P ADK A1,1 COUNTER DK N P ST A1,CRDBUF DK N $ P DE N > P ABL POL127 N L P XIF N ` P* N l P* N v P* ENQ HAS BEEN RECEIVED N P* N P* N PBRM400 EQU * N & P CF A5,HPTIM STOP PROCEDURE TIMER N P LD A1,XACK N , P R
0x17ba34…17bbc8 Dummy {f00=0x0093, f01=0x0190, f02=» SEQUENCE N p PBRM410 EQU * O P ABL BRM O & P O 6 P* O @ P* O J P* NAK HAS BEEN RECEIVED O T P* O t P* O ~ PBRM500 EQU * O & P CF A5,HPTIM STOP PROCEDURE TIMER O P LD A1,XACK O P RF(NZ) BRM510 ACK EXPECTED O P OR A1,XSE
0x17bbc8…17bd5c Dummy {f00=0x0093, f01=0x0190, f02=»K O ~ P SST A1,LCUIN DK P P CF A15,STREG DK P $ P CF A15,SETIME DK P > P DATA BRM520,TIMNAK DK P X P ABL TDISP DK P x PBRM520 EQU * DK P P CF A15,LDREG DK P P DE P " P LD A6,FDWTUT GET WRITING DWT P P IFF STAT=0 P P
0x17bd5c…17bef0 Dummy {f00=0x0093, f01=0x018e, f02=» SU A1,FECBBA COMPUTE BUFFER INDEX P P ST A1,FBAX Q * P ABL POL130 Q > P* Q R P* Q P* DLE HAS BEEN RECEIVED Q f P* Q P* Q PBRM600 EQU * Q & P CF A5,HPTIM STOP PROCEDURE TIMER Q P LD A1,XACK Q " P RB(Z) BRM410 ACK NOT EXPECT
0x17bef0…17c084 Dummy {f00=0x0093, f01=0x018e, f02=» Q ~ P CWK A2,ACK0 =8 R P XIF =8 R P RF(NE) BRM620 R 2 P* R H P* ACK , 0 RECEIVED R R P* R l P LD A1,CACK GET ACKCOUNTER R v P RF(Z) BRM630 ACK,0 EXPECTED R PBRM610 EQU * R P CF A5,TRENQ SEND ENQ R & P CF A5,SPTIM START PROCEDU
0x17c084…17c218 Dummy {f00=0x0093, f01=0x0190, f02=» R P LD A1,CACK GET ACK COUNTER S $ P RB(Z) BRM610 ACK,1 NOT EXPECTED S , PBRM630 EQU * S T P LD A1,XETX S h P RF(Z) BRM640 ETX NOT SENT S | P S P* S , P* ACK HAS BEEN RECEIVED TO AN ETX BLOCK S P* S P LDK A1,0 SET RC=0 S PBR
0x17c218…17c3ac Dummy {f00=0x0093, f01=0x0190, f02=»MPLETE WRITE REQUEST S PBRM636 EQU * T P CF A5,TREOT SEND EOT T 0 P IFT RCOM=1 T N P T b P CM XRB RESET READ BUFFER T j P XIF T P RB BRM410 T PBRM640 EQU * T P LDK A1,1 T & P XRS A1,CACK INCREMENT ACK COUNTER T P ABL POL130 T
0x17c3ac…17c540 Dummy {f00=0x0093, f01=0x0190, f02=» P XIF =8 U ( P RB(NE) BRM610 INVALID DLE SEQUENCE U " P CM XACK RESET 'EXPECTING ACK' U B P LD A1,XETX U h $ P RF(NZ) BRM660 ETX HAS BEEN SENT U | P LDK A1,2 SET RC=2 U P RB BRM635 U PBRM660 EQU * U P LDK A1,0 SET RC=0 U P RB BRM635
0x17c540…17c6d4 (0, 482) Dummy {f00=0x0094, f01=0x0190, f02=» LD A6,FDWTUT GET DWT ADDRESS U , P CF A15,REMOVS REMOVE FROM STATUS QUEUE V & P CM XSTA CLEAR 'STATUS SENT' V V " P CM XACK CLEAR 'ACK EXPECTED' V z P LD A1,DWTST,A6 GET STATUS V P ANK A1,4 V P RB(Z) BRM636 NOT DE V P LDKL A1,/8000 V " P A
0x17c6d4…17c868 Dummy {f00=0x0094, f01=0x0190, f02=» P* W PSELECT EQU * W P LD A1,XACK =5 W " * P RF(NZ) POL010 ERROR. ACK EXPECTED =5 W : P IFF STAT=0 W h P LD A1,DWTST,A6 GET STATUS W | P LDR A3,A1 W P ANK A1,1 W $ P RF(Z) SEL110 NO PENDING STATUS W P CF A5,TRRVI SEND RVI W P
0x17c868…17c9fc Dummy {f00=0x0094, f01=0x018e, f02=» W ~ P ANK A3,8 X P RF(NZ) SEL115 BUSY X P XIF X 6 P IFT STAT+NOWACK=2 X B P ANK A3,8 X " P RF(Z) SEL111 DEVICE NOT BUSY X n P CF A5,TRWACK TRANSMIT WACK X P ABL BRM X PSEL111 EQU * X P XIF X P LD A1,DCRBUF X $ P RF(NZ) SE
0x17c9fc…17cb90 Dummy {f00=0x0094, f01=0x0190, f02=» PSEL120 EQU * Y , P CF A5,PRREC PREPARE FOR TEXT RECEPTION Y P CF A5,TRACK SEND ACK,0 Y H P RB SEL100 Y h P Y z P* Y P* Y P* PREPARE FOR TEXT RECEPTION Y P* Y P* Y PPRREC EQU * Y P IM XSEL SET 'SELECTED' Y P CM
0x17cb90…17cd24 Dummy {f00=0x0094, f01=0x0190, f02=»IN BUFFER Y z P IM XSTA Z " P ST A6,FDWTIN STORE INPUT DWT Z " P RTN A5 Z H P Z X P* Z b P* Z l $ P* GENERAL POLL HAS BEEN RECEIVED Z v P* Z P* Z PGPOLL EQU * Z P LD A1,XACK =5 Z & P RF(Z) POL020 ACK NOT EXPECTED =5 Z " P
0x17cd24…17ceb8 Dummy {f00=0x0094, f01=0x0190, f02=»=5 Z " P CF A5,CPTIM CHECK POLL TIMER [ P IFF STAT=0 [ 0 P LD A6,DCSTQ [ D & P RF(Z) POL110 NO STATUS TO BE SENT [ Z " P SUK A6,DWTSQ GET DWT ADDRESS [ PPOL050 EQU * [ P CF A5,TRSTA SEND STATUS [ & P CF A5,SPTIM START PROCEDURE TIMER [ P
0x17ceb8…17d04c Dummy {f00=0x0094, f01=0x0190, f02=»L110 EQU * [ P LD A6,DCWRQ " P RF(NZ) POL120 WRITE ON QUEUE & PPOL115 EQU * L P CF A5,TREOT SEND EOT ` P RB POL100 ~ PPOL120 EQU * " P SUK A6,DWTWQ GET DWT ADDRESS PPOL125 EQU * $ P LD A8,DWTECB,A6 GET ECB ADDRESS P R
0x17d04c…17d1e0 Dummy {f00=0x0094, f01=0x0190, f02=»6 | P ] P IFF MMUPAG=0 ] $ P LDKL A4,MMUBUF MMU WORK BUFFER ] ( P ST A4,ECBBA,A8 ] P . P CF A15,DC:MOT MOVE DATA FROM USER BUFFER ] h P XIF ] & P LD A4,ECBBA,A8 GET BUFFER ADDRESS ] P LD A3,ECBRL,A8 GET LENGTH ] PPOL127 EQU * ] & P S
0x17d1e0…17d374 (0, 483) Dummy {f00=0x0095, f01=0x0190, f02=»FER INDEX ] ~ PPOL130 EQU * ^ P CM XETX RESET 'ETX SENT' ^ & P CM XSTA ^ H P CF A5,TRTEXT SEND ONE BLOCK ^ X & P CF A5,SPTIM START PROCEDURE TIMER ^ | P IM XACK SET 'ACK EXPECTED' ^ P RB POL100 ^ P ^ P* ^ P* ^ & P* SPECIFIC POL
0x17d374…17d508 Dummy {f00=0x0095, f01=0x0190, f02=» EXPECTED =5 ^ ~ P LDR A7,A6 SAVE A6 _ P CF A5,CPTIM CHECK POLLTIMER _ . P LDR A6,A7 RESTORE A6 _ R P IFT STAT=1 _ p P LD A1,DWTST,A6 GET STATUS _ P ANK A1,7 _ " P RB(NZ) POL050 PENDING STATUS _ P XIF _ P IFF STAT+SPECP=0 _ P LD
0x17d508…17d69c Dummy {f00=0x0095, f01=0x0190, f02=» P SUK A1,2 ` " P RB(Z) POL125 EXCHANGE REQUEST ` P XIF ` < P RB POL115 SEND EOT ` H P ` d P* ` n P* ` x 8 P* CHECK IF THERE IS A WRITE REQUEST TO BE COMPLETED ` P* ` P* A1 CONTAINS RETURN CODE ` P* ` P* ` PCWRITE LD
0x17d69c…17d830 Dummy {f00=0x0095, f01=0x0190, f02=»DER ` z P SUK A2,6 a P RF(Z) CWR100 WRITE REQUEST a P SUK A2,2 a B ( P RF(NZ) CWR900 NOT EXCHANGE REQUEST a T P LDR A1,A1 a 2 P RF(NZ) CWR100 TRANSMISSION ERROR, RC NOT ZERO a P LDK A2,2 TRANMISSION OK a ( P ST A2,DWTOR,A6 INDICATE READ OR
0x17d830…17d9c4 Dummy {f00=0x0095, f01=0x0190, f02=»0 a P ST A2,ECBCW,A8 b $ P CF A15,TENDIO COMPLETE REQUEST b " PCWR150 EQU * b J * P CF A15,REMOVW REMOVE FROM WRITE QUEUE b ^ PCWR200 EQU * b PCWR900 EQU * b " P CM XACK RESET 'ACK EXPECTED' b P CM FDWTUT b P RTN A5 b P b P*
0x17d9c4…17db58 Dummy {f00=0x0095, f01=0x0190, f02=»1 : IF LRC OR PARITY ERROR , BUFFER OVERFLOW b ( P* 2 : IF CORRECT ETB BLOCK RECEIVED c 4 P* c ` PRDMESS EQU * c j $ P LD A4,DCRBUF GET BUFFER ADDRESS c ~ P ADK A4,6 RESERVE HEADER c P LDK A3,0 c P LD A1,XSTA c $ P RF(NZ) RDM050 LAST INPUT WA
0x17db58…17dcec Dummy {f00=0x0095, f01=0x0190, f02=» c t ( P ST A4,FBLST REMEMBER START OF BLOCK d PRDM075 EQU * d 4 P CM XSTA d H P LDK A7,0 RESET LRC d X P d t P IFT IBMCHR=1 d | P LD A1,FBAX d " P RF(NZ) RDM100 NOT FIRST BLOCK d P CF A5,READP d P RF(NZ) RDM120 PARITY ERROR d P CWK
0x17dcec…17de80 Dummy {f00=0x0095, f01=0x0190, f02=» CF A5,READP READ ONE CHARACTER d P RF(NZ) RDM120 PARITY ERROR e ( PRDM110 EQU * e L P CWK A2,ETX e ` P RF(E) RDM130 ETX RECEIVED e t P CWK A2,ETB e P RF(E) RDM160 ETB RECEIVED e P CWK A2,ITB e P RF(E) RDM170 ITB RECEIVED e P CWK A
0x17de80…17e014 (0, 484) Dummy {f00=0x0095, f01=0x0190, f02=» IFT CODE=0 e P IFT BINTRM=1 f P f * P LDR A1,A2 f 2 P SUK A1,DC1+3 f D P RF(P) RDM115 NOT DC1-DC3 f Z P ADK A1,3 f | P RF(N) RDM115 NOT DC1-DC3 f P SLL A1,6 f P LDR A8,A1 f * P CF A5,READP 8-BIT CHAR GET NEXT PART f P RF(NZ
0x17e014…17e1a8 Dummy {f00=0x0095, f01=0x0190, f02=»CR A2,A4 STORE CHARACTER f P ADK A4,1 INCREMENT POINTER g $ P IM FBAX INCREMENT BUFFER INDEX g D P LD A1,FBAX g l P CWK A1,RBUFL+RBUFL g P RB(NG) RDM100 NOT OVERFLOW g P* g P* BUFFER OVERFLOW g P* g P RF RDM140 ABORT INPUT g
0x17e1a8…17e33c Dummy {f00=0x0095, f01=0x0190, f02=» g P* h P* ETX RECEIVED h P* h ( PRDM130 EQU * h 2 $ P LD A1,DCRBUF GET BUFFER ADDRESS h F P LD A2,FBAX GET BUFFER INDEX h n 2 P ST A2,+2,A1 STORE EFFECTIVE LENGTH IN HEADER h P IFF CODE=1 h P CF A5,RDLRC h P RF(Z) RDM150 LRC WAS OK
0x17e33c…17e4d0 Dummy {f00=0x0095, f01=0x0190, f02=» * h & P LDK A3,1 INDICATE INVALID MESSAGE i PRDM150 EQU * i 4 $ P LDR A7,A3 SAVE RESULT REGISTER i H P CF A5,HALTIN HALT INPUT i p P IFT P6805=1 i P ORR A7,A1 PARITY ERROR i P XIF i P RTN A5 i P* i P* ETB RECEIVED i P* i
0x17e4d0…17e664 Dummy {f00=0x0095, f01=0x0190, f02=»* i P* ITB RECEIVED j P* j PRDM170 EQU * j * P IFF CODE=1 j > P CF A5,RDLRC j R " P RB(NZ) RDM120 LRC WAS NOT OK j f P XIF j P IFT CODE=1 j & P CF A5,RDCRC READ CRC AND CHECK IT j " P RB(NE) RDM120 CRC WAS NOT OK j P XIF j P
0x17e664…17e7f8 Dummy {f00=0x0095, f01=0x0190, f02=»RS A2,CACK INCREMENT ACK COUNTER j P RF(NZ) TRDLE k ( P LDK A3,ACK0 LOAD ACK0 k > P RF TRDLE k P* k n P* TRANSMIT WACK k x P* k PTRWACK LDK A3,WACK LOAD WACK k P RF TRDLE k P* k P* TRANSMIT RVI k P* k P IFF STAT=0 k
0x17e7f8…17e98c Dummy {f00=0x0095, f01=0x0190, f02=»ESEND PUT INSAVE AREA k P SC A3,RESEND+1 l P RF TRREP l 6 P l H P* l R P* TRANSMIT NAK l P* l r PTRNAK LDK A3,NAK LOAD NAK l | P RF TREN10 l P* l P* TRANSMIT EOT l P* l PTREOT LDK A3,EOT LOAD EOT l P RF TREN10 l
0x17e98c…17eb20 Dummy {f00=0x0095, f01=0x018e, f02=» LDK A2,/FF l P SC A2,RESEND+1 m $ PTRREP CF A5,TRSYNC START OUTPUT m , & P LC A2,RESEND GET FIRST CHARACTER m T P CF A5,WRITEP SEND IT m ~ & P LC A2,RESEND+1 GET NEXT CHARACTER m P CF A5,WRITEP SEND IT m PTRRE10 LDK A2,/FF m P CF A5,WRI
0x17eb20…17ecb4 (0, 485) Dummy {f00=0x0096, f01=0x0190, f02=» m P CF A5,READ WAIT FOR END n P XIF n ( & P SST A2,LCUUT PERFORM SST AT ONCE n 6 P IFF LOGG=0 n ` ( P CF A5,LOGSST LOG TRANSMITTER STATUS n t P XIF n P RTN A5 n P n P* n P* n P* TRANSMIT ONE TEXT BLOCK n P* n P*
0x17ecb4…17ee48 Dummy {f00=0x0096, f01=0x018e, f02=»* n P* o P LD A4,FBAX o ( P RF(NZ) TRT050 NOT START OF MESSAGE o ( P o T 2 P LD A1,XRB READ BUFFER COMMAND IN PROCESS ??? o P RF(NZ) TRT050 YES !! o P o P LD A4,FECBBA o " P LC A3,+2,A4 GET AID CHARACTER o P SUK A3,/30 o $ P
0x17ee48…17efdc Dummy {f00=0x0096, f01=0x0190, f02=» P CF A5,WRITE SEND % p P LDK A2,'/' p P CF A5,WRITE SEND / p 4 P LDK A2,STX p P P CF A5,WRITE SEND STX p d ( P ST A4,FBLST REMEMBER START OF BLOCK p ( P ADK A4,5 SKIP AID + CURSOR ADDRESS p P LDK A3,5 ADJUST LENGTH p P LDK A2,3 p
0x17efdc…17f170 Dummy {f00=0x0096, f01=0x0190, f02=» SEND STX p P LDK A7,0 RESET LRC q $ P LD A4,FECBBA GET BUFFER ADDRESS q . P AD A4,FBAX ADD BUFFER INDEX q V ( P ST A4,FBLST REMEMBER START OF BLOCK q z ( P ADK A4,2 SKIP FIRST WORD OF BUFFER q & P LDK A3,0 RESET CHARACTER COUNTER q P LD A1,FBAX
0x17f170…17f304 Dummy {f00=0x0096, f01=0x0190, f02=»GET STA q P CF A5,WRITEP SEND STA r P IFT IBMCHR=1 r . P IFF RCOM=1 r D " P LDK A2,/27 SEND ENTER AS AID r X P CF A5,WRITEP r ~ " P LDK A2,/20 AND CURSOR ADDRESS r P CF A5,WRITEP r P LDK A2,/20 r P CF A5,WRITEP r P XIF r P I
0x17f304…17f498 Dummy {f00=0x0096, f01=0x0190, f02=»DK A2,X'2D' AID FOR DISPLAY r PTRT060 CF A5,WRITEP SEND AID s $ P s H $ P LD* A3,DWTCUR,A6 CURSOR ADDRESS s P . P CF A5,LINCOL SEND LINE AND COLUMN NUMBER s x P LDK A3,5 SET BLOCK COUNT s P RF TRT100 s PTRT070 EQU * s P XIF s P s P L
0x17f498…17f62c Dummy {f00=0x0096, f01=0x0190, f02=»M=1 s & P LD A1,XRB READ BUFFER COMMAND ??? t P RF(Z) TRT105 NO!! t 6 P t P @ P************************************************************ t X P* t , P* CHECK IF ATTRIBUTE CHARACTER OR NULL t P* t 4 P****************************************
0x17f62c…17f7c0 Dummy {f00=0x0096, f01=0x0190, f02=»E LINE FEED ? t " P RF(NE) TRT102 NO,GO TO TRT102 u P LDK A2,/0A u < PTRT102 EQU * u P P CWK A2,/7D END OF MESSAGE ? u d " P RF(NE) TRT103 NO,GO TO TRT103 u P LDK A2,/19 u PTRT103 EQU * u P CWK A2,X'7F' NULL ?? u P RF(NE) TRT105 u
0x17f7c0…17f954 (0, 486) Dummy {f00=0x0098, f01=0x0190, f02=»P SEND START FIELD u P v ( P LC A2,-1,A4 GET ATTRIBUTE CHARACTER v " P ANK A2,X'7F' v N ( P LDR A1,A2 CONVERT TO IBM ATTRIBUTE v d P ANK A1,1 v P ANK A2,/1E MASK v P SLL A2,1 v & P ORR A2,A1 IBM ATTRIBUTE COMPOSED v " P ORK A2,/40 BIT AL
0x17f954…17fae8 Dummy {f00=0x0098, f01=0x0190, f02=»QU * v P CF A5,WRITEP SEND ATTRIBUTE w P ADK A3,1 w 0 P RF TRT110 w B PTRT105 EQU * w T P XIF w h P w t P CWK A2,/07 w ~ ( P RF(L) TRT110 ILLEGAL CODE : SKIP IT w P CF A5,WRITEP SEND CHARACTER w PTRT110 EQU * w $ P IM FBAX INCREMENT
0x17fae8…17fc7c Dummy {f00=0x0098, f01=0x0190, f02=»EMENT CHARACTER COUNTER w P CWK A3,TBLEN x P RB(L) TRT100 NOT FULL BLOCK x 6 P IFT RCOM=1 x Z , P LDK A1,SBA CHECK IF SBA AT END OF BLOCK x n P CC A1,-2,A4 x P RF(E) TRT115 YES x P CC A1,-1,A4 x P RF(NE) TRT116 NO SEND ETB x ( P LCR A
0x17fc7c…17fe10 Dummy {f00=0x0098, f01=0x018e, f02=»T115 LCR A2,A4 GET SECOND BYTE AFTER SBA x P CF A5,WRITEP SEND IT y 0 P IM FBAX INCREMENT INDEX y N P XIF y n PTRT116 EQU * y z P LDK A2,ETB LOAD ETB y PTRT120 EQU * y P CF A5,WRITEP SEND IT y P IFF CODE=1 y P LDR A2,A7 GET LRC y
0x17fe10…17ffa4 Dummy {f00=0x0098, f01=0x018e, f02=» " P CF A5,WRIT05 SEND CRC BYTE 1 z P ECR A2,A8 z * P ANK A2,/FF z < " P CF A5,WRIT05 SEND CRC BYTE 2 z P P XIF z v P ABL TRRE10 HALT OUTPUT z PTRT130 EQU * z P IM XETX INDICATE 'ETX SENT' z PTRT140 EQU * z P LDK A2,ETX LOAD ETX z
0x17ffa4…180138 Dummy {f00=0x0098, f01=0x0190, f02=» z PTRSTA EQU * { $ P IM XSTA INDICATE 'STATUS SENT' { P ST A6,FDWTUT SAVE A6 { D P CF A5,TRSYNC START OUTPUT { b P LDK A2,SOH { P CF A5,WRITE SEND SOH { P LDK A7,0 REST LRC { P LDK A2,'%' { P CF A5,WRITEP SEND '%' { P LDK A
0x180138…1802cc Dummy {f00=0x0098, f01=0x018e, f02=» TCA { ~ P LDR* A2,A6 | P CF A5,WRITEP SEND STA | P LD A1,DWTST,A6 GET STATUS | > P ANK A1,/06 MASK FOR S/S 0 | ` P SRL A1,1 | $ P LC A2,SSTAB,A1 GET STATUS BYTE | P CF A5,WRITEP SEND S/S 0 | P LDK A2,NOIR PRELOAD S/S 1 | P LD A1,DWT
0x1802cc…180460 Dummy {f00=0x0098, f01=0x0190, f02=» | PTRST10 EQU * } P CF A5,WRITEP SEND S/S 1 } P RB TRT130 SEND ETX AND LRC } < P XIF } ` P } l P* } v P* } P* TRANSMIT SYNC SEQUENCE } P* } P* } PTRSYNC EQU * } P LDK A2,0 } * P CIO A2,0,LCUIN HALT INPUT IF NOT DO
0x180460…1805f4 (0, 487) Dummy {f00=0x0099, f01=0x0190, f02=» } P IFT CODE=1 ~ P LDK A2,0 ~ & P CIO A2,1,LCUUT START TRANSMITTER ~ . P RF(A) TRS010 ~ X P SST A1,LCUUT ~ n P RF(A) TRS005 ~ P ABL BRM ~ PTRS005 CIO A2,1,LCUUT ~ PTRS010 EQU * ~ P LDK A2,SYNEBC ~ * P OTR A2,1,LCUUT
0x1805f4…180788 Dummy {f00=0x0099, f01=0x0190, f02=» TRS010 ~ P SST A1,LCUUT P RF(A) TRS005 & P ABL BRM < PTRS005 CIO A2,1,LCUUT N PTRS010 EQU * l P LDK A2,SYN * P OTR A2,1,LCUUT SPECIFY SYNC CHARACTER P XIF * P CF A5,READ WAIT FOR OUTPUT INTERRUPT P LDK A3,4
0x180788…18091c Dummy {f00=0x0099, f01=0x0190, f02=»* P* P* RECEIVER INTERRUPT P* 2 P* < PIH1501 EQU * F P ST P,INTSAV Z P IFT CPU852=1 n P CF A15,SAVE8 SAVE A1-A8 P XIF P P IFF CPU852=1 P MSR 8,A15 SAVE A1-A8 =1 P XIF * P CF A15,LDREG
0x18091c…180ab0 Dummy {f00=0x0099, f01=0x0190, f02=»F A5,LOGIN LOG RECEIVED CHARACTER P XIF * P IFF CODE=1 6 P C2 SYNSW J P RF(NZ) IHLCI2 P CWK A2,SYN SKIP SYNS r P RF(E) READ " PIHLCI2 XRR A7,A2 CALCULATE LRC P XIF P IFT CODE=1 P C2 SYNSW 2 P RF(NZ) IHLC
0x180ab0…180c44 Dummy {f00=0x0099, f01=0x018e, f02=»LCULATE CRC ( P LC A2,TASCII,A2 TRANSLATE TO ASCII P XIF @ PIHIN10 RTN A5 L P IFT P6805=0 b PIHIN20 CF A5,SST PERFORM SST x P ABL BRM P XIF P IFT P6805=1 PIHIN20 RF SST PERFORM SST P XIF P
0x180c44…180dd8 Dummy {f00=0x0099, f01=0x0190, f02=» P CF A15,SAVE8 SAVE A1 - A8 P XIF & P 2 P IFF CPU852=1 : P MSR 8,A15 SAVE A1-A8 =1 P P XIF p * P CF A15,LDREG RESTORE DC REGS A3 - A8 | P RB IHIN10 P P* P* & P* SST INSTRUCTION AND STATUS CHECK P*
0x180dd8…180f6c Dummy {f00=0x0099, f01=0x0190, f02=» , P* BIT 15=MODEM NOT READY P* 4 PSST SST A1,LCUIN > P IFT P6805=1 V & P RF(NA) SST200 ALREADY INACTIVE l P XIF P LDR A2,A1 P IFF LOGG=0 & P CF A5,LOGSST LOG SST INFORMATION P XIF P IFT P68
0x180f6c…181100 Dummy {f00=0x0099, f01=0x0190, f02=»2,2 P RF(NZ) SST050 THROUGH PUT P LDK A1,1 SET PARITY ERROR . P RF SSTRET P P XIF d PSST050 EQU * r P CM XSTA TROUHHPUT ERROR P LDKL A5,STB P ABL BRM010 PSST100 EQU * P ST A1,DCSTCU P IFT P6805=0
0x181100…181294 (0, 488) Dummy {f00=0x0099, f01=0x0190, f02=»200 LSALCUZ 0 P CF A15,SETIME LINE ERROR, WAIT 0.2 SECONDS P DATA BRM RESTART H P DATA 2 WAIT TIME b P RF READ | P* PSST200 LDK A1,0 PSSTRET ADK A5,4 P LDR A1,A1 SET CR P ABR* A5 RETURN P XIF P
0x181294…181428 Dummy {f00=0x0099, f01=0x0190, f02=»T PERFORM SST INSTRUCTION AND STATUS CHECK P XIF 2 P IFT P6805=1 @ $ P RF READ WAIT FOR SST INTERRUPT V P XIF ~ P P* P* , P* WRITE FROM OR READ ONE CHARACTER TO A2 P* P* PWRITE EQU * P IFT C
0x181428…1815bc Dummy {f00=0x0099, f01=0x0190, f02=» EBCDIC r P XIF PWRIT05 EQU * " P OTR A2,0,LCUUT SEND CHARACTER 0 P RF(A) WRIT10 V P RF READ THROUGHPUT ERROR l P IFF CODE=1 $ PWRIT10 XRR A7,A2 ACCUMULATE BCC P XIF P IFT CODE=1 & PWRIT10 CF A5,CRCCAL CALCULATE
0x1815bc…181750 Dummy {f00=0x0099, f01=0x0190, f02=»BL TDISP P P* P* $ P*** WRITEP . P* @ P* WRITE A2 WITH PARITY J P* j P* t P IFT CODE+P6805=0 ~ PWRITEP ANK A2,/FF P ECR A1,A2 P ORK A2,/80 PWRI100 SLL A1,1 P RB(P) WRI100 P R
0x181750…1818e4 Dummy {f00=0x0099, f01=0x0190, f02=»* P* P* P*** READP P* 0 . P* READ CHARACTER TO A2 AND CHECK PARITY : P* l P* v PREADP CF A5,READ P IFT CODE+P6805=0 P ECR A1,A2 PRE100 SLL A1,1 P RF(Z) RE110 P RB(NN) RE100 P XRK
0x1818e4…181a78 Dummy {f00=0x0099, f01=0x0190, f02=» XIF P ADK A5,4 P ANK A1,/80 P XRK A1,/80 2 P ABR* A5 F P* V P* ` P j P* t < P* FIND DWT CONTAINING SUBTERMINAL ADDRESS AS GIVEN IN A2 ~ P* $ P* CALLING SEQUENCE: CF A5,FINTER P* A2=SUBTERMINAL ADDRESS
0x181a78…181c0c Dummy {f00=0x0099, f01=0x0190, f02=»SES V * P* ENTRY: FINTER - CHECK SELECT ADDRESS , P* FINTEP - CHECK SPECIFIC POLL ADDRESS : P* j . PRBYTE DATA 0 IF 1 COMPARE WITH RIGTH BYTE t P* P* PFINTEP EQU * P IFT MSV1=0 PFINTER EQU * P XIF P IM RB
0x181c0c…181da0 Dummy {f00=0x0099, f01=0x0190, f02=»F DC:TAB r PFINT10 SUK A4,2 P LDK A3,0 DEFAULT VALUE ( P CW A4,DCTAB END OF TABLE H ( P RF(E) FINT20 SUBTERMINAL NOT FOUND j P LDR* A3,A4 LOAD DWT ADDRESS P IFT MSV1=1 $ P AD A3,RBYTE CHOOSE ADDRESS TYPE * P CCR A2,A3 COMPARE
0x181da0…181f34 (0, 489) Dummy {f00=0x009a, f01=0x0190, f02=» TAKE NEXT TERMINAL PFINT20 CM RBYTE P ANKL A3,/FFFE 4 P RTN A5 J P Z P* d P* n P* POWER ON FUNCTIONS x P* P* PDC15ON EQU * P IFT CPU852=1 P CF A15,SAVE8 SAVE A1-A8 P XIF P P I
0x181f34…1820c8 Dummy {f00=0x009a, f01=0x0190, f02=» AD* A1,DCTAB GET ADDRESS TO END OF TABLE PDRDC05 SUK A1,2 2 P CW A1,DCTAB J P RF(E) DRDC06 END OF TABLE ^ P LDR* A6,A1 GET DWT ADDRESS 0 P ORS A5,DWTST,A6 STORE DEVICE END FOR DEVICE ( P CF A15,INSSQ INSERT IN STATUS QUEUE P RB
0x1820c8…18225c Dummy {f00=0x009a, f01=0x0190, f02=»ER POINTER v " P RF(NZ) DRDC20 ALREADY STARTED * PDRDC10 CF A15,SPOTIM START POLL TIMER 8 PDRDC20 ABL BRM f P | P* P* POLL TIME OUT P* ( PPTOUT LDKL A5,STB LOAD A5 STACK BASE P LDK A2,/40 ( P ST A2,DCONOF INDICATE
0x18225c…1823f0 Dummy {f00=0x009a, f01=0x018e, f02=»* RESTART POLL TIMER WHEN POLL HAS BEEN RECEIVED P* 8 $ PCPTIM CM DCONOF INDICATE POLLING B P LDKL A2,-TIMPOL j P ST* A2,DCTPGP RESTART TIMER * P CF A15,CKMESS CHECK IF STATUS CHANGE P RTN A5 P* P* START POLL TIMER P
0x1823f0…182584 Dummy {f00=0x009a, f01=0x0190, f02=» P ABR* A15 P P* P* START PROCEDURE TIMER * P* J PSPTIM EQU * T $ P LDR A1,A6 LOAD DWT AS PARAMETER h P CF A15,SETIME P DATA PRTOUT,TIMPRO $ P ST A4,DCTPP SAVE TIMER POINTER P RTN A5 P* P* PR
0x182584…182718 Dummy {f00=0x009a, f01=0x0190, f02=»HALT INPUT IF OPEN P LD A1,XACK " P RF(Z) PRT10 ACK NOT EXPECTED . P CF A5,TRENQ SEND ENQ T & P CF A5,SPTIM START PROCEDURE TIMER r PPRT10 ABL BRM P P* P* STOP PROCEDURE TIMER P* ( PHPTIM LD A1,DCTPP GET TIME
0x182718…1828ac Dummy {f00=0x009a, f01=0x0190, f02=»E=1 P* P* P* CALCULATION OF CRC P* < P* A2 = CHARACTER F P* A7 = ACCUMULATED CRC ^ P* | P* PCRCCAL EQU * P ST A1,CRCSAV P ST A2,CRCSAV+2 P ST A3,CRCSAV+4 P LDK A1,8 PCRC100 LDR A
0x1828ac…182a40 Dummy {f00=0x009a, f01=0x0190, f02=»UK A1,1 P RB(NZ) CRC100 P LD A1,CRCSAV & P LD A2,CRCSAV+2 < P LD A3,CRCSAV+4 T P RTN A5 l PCRCSAV RES 3 | P P* P* ( P* READ CRC CHARACTERS AND CHECK THEM P* CR = (E) IF CRC WAS OK P* P*
0x182a40…182bd4 (0, 490) Dummy {f00=0x009a, f01=0x0190, f02=»VE IT ~ P CF A5,READ READ BYTE 2 ( P CM SYNSW SYNCS CAN BE SKIPPED AGAIN . P LD A2,CRCSAV+2 SAVE IT Z P SLL A2,8 z P XRR A2,A8 P ADK A5,4 . P CWR A2,A6 COMPARE RECEIVED WITH COMPUTED P ABR* A5 P XIF P IFT CODE=
0x182bd4…182d68 Dummy {f00=0x009a, f01=0x0190, f02=»A5,READP P ADK A5,4 P LDR A1,A1 " P RF(NZ) LRCEND 4 P ANK A7,/7F J PLRCEND EQU * ^ P CM SYNSW r P ABR* A5 P P XIF P P* P* " P* DEVICE WORK TABLE FOR DCTASK P* P* PDW1500 E
0x182d68…182efc Dummy {f00=0x009a, f01=0x0190, f02=»A DC15DC POINTER TO ADDRESS BLOCK P DATA 0 TTAB ADDRESS * $ P DATA 0 WAIT/ACTIVATE INDICATOR F P DATA 0 TASK QUEUE n P* P IFT MMUPAG=1 P DATA 0 USER ECB ADDRESS P DATA DC:ECB MMU ECB ADDRESS P XIF P* P DATA
0x182efc…183090 Dummy {f00=0x009a, f01=0x0190, f02=»SSAGE QUEUE ~ , P DATA 0 SIMULATED DEVICE BUFFER ADDRESS P DATA 0 CURSOR ADDRESS D " P DATA 0 REQUEST TIMEOUT VALUE b P* P IFT MMUPAG=1 PDC:ECB EQU * MMU ECB P DATA 0,0,0,0,0,0 P XIF P* P P* P
0x183090…183224 Dummy {f00=0x009a, f01=0x0190, f02=»ANCHOR z P IFF RBUFNR=1 DK3 P IFF RBUFNR=2 ( P DATA *+RLINK > P RES RBUFL+3 T P IFF RBUFNR=3 h P DATA *+RLINK ~ P RES RBUFL+3 P IFF RBUFNR=4 P DATA *+RLINK P RES RBUFL+3 P XIF P IFF RBUFNR=1 DK3
0x183224…1833b8 Dummy {f00=0x009a, f01=0x0190, f02=» & PMMUBUF RES TBUFL+1 MMU WORK BUFFER P XIF 2 P > P* H P* R P* INTERRUPT LOGGING ROUTINE P* P* P IFF LOGG=0 PLOGSST ST A2,SAVE2 P ORKL A2,/F000 P RF LOG10 PLOGOUT ST A2,SAVE2 P ORK
0x1833b8…18354c Dummy {f00=0x009a, f01=0x0190, f02=»OGPNT P STR A2,A3 P ADK A3,2 P CWK A3,LOGEND 2 P RF(L) LOGEXI H P LDKL A3,LOGSTA ^ PLOGEXI ST A3,LOGPNT v P LD A2,SAVE2 P LD A3,SAVE3 PLOGE10 RTN A5 P P* P* PLOGPNT DATA LOGSTA P
0x18354c…1836e0 Dummy {f00=0x009a, f01=0x0190, f02=» P IFT RCOM=1 P < P******************************************************* " P* b P* L I N C O L l P* : P* CONVERT CURSOR ADDRESS TO LINE AND COLUMN NUMBER P* > P************************************************
0x1836e0…183874 (0, 491) Dummy {f00=0x009b, f01=0x0190, f02=»T,A2 ASCII LINE NUMBER " P CF A5,WRITEP SEND LINE NUMBER P D P LDR A2,A3 L P ANK A2,X'3F' ^ ( P LC A2,LICO:T,A2 ASCII COLUMN NUMBER t $ P CF A5,WRITEP SEND COLUMN NUMBER P RTN A5 RETURN P* P* P* P P
0x183874…183a08 Dummy {f00=0x009b, f01=0x018e, f02=»32E,/3C28,/2B21 /08-/0F * P DATA /264A,/4B4C,/4D4E,/4F50 /10-/17 * P DATA /5152,/245D,/2A29,/3B5E /18-/1F N * P DATA /2D2F,/5354,/5556,/5758 /20-/27 | * P DATA /595A,/402C,/255F,/3E3F /28-/2F ( P DATA /3031,/3233,/3435,/3637 /30-37 ( P DAT
0x183a08…183b9c Dummy {f00=0x009b, f01=0x40be, f02=» " PDC:TAB DATA 2 LENGTH OF DC:TAB * P DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0 * * P DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0 X PDC:END EQU * P* P* P END @ 55F,/3E3F /28-/2F ( P DATA /3031,/3233,/3435,/3637 /30-37 ( P DAT
0x183b9c…183d30 Dummy {f00=0x009b, f01=0x2008, f02=» H P X ` h p x
0x183d30…183ec4 Dummy {f00=0x009b, f01=0x0190, f02=»/08-/0F r * P DATA /264A,/4B4C,/4D4E,/4F50 /10-/17 * P DATA /5152,/245D,/2A29,/3B5E /18-/1F > * P DATA /2D2F,/5354,/5556,/5758 /20-/27 l * P DATA /595A,/402C,/255F,/3E3F /28-/2F ( P DATA /3031,/3233,/3435,/3637 /30-37 ( P DATA /3839,/3A5B,/5
0x183ec4…184058 Dummy {f00=0x009b, f01=0x40b0, f02=»A 2 LENGTH OF DC:TAB * P DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0 * P DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0 J PDC:END EQU * x P* P* P END @ F,/3E3F /28-/2F ( P DATA /3031,/3233,/3435,/3637 /30-37 ( P DATA /3839,/3A5B,/5
0x184058…1841ec Dummy {f00=0x009b, f01=0x2008, f02=» H P X ` h p x
0x1841ec…184380 Dummy {f00=0x009b, f01=0x0190, f02=» ! ! 4 0 P W W }H } +*4 + 4 4@ @ 4 Iv H{ I! u( H! u!0 0, I HP ) 4 4 u0- Q P I 0 @ 4 ! y"! ) H @ A A @ )W 4 0* 0. T w
0x184380…184514 (0, 492) Opaque[0x194]
0x184514…1846a8 # DirEnt {nam=»TEST «, typ=»UF«, f00=0x0000, f01=0x0000, f02=0x0838, f03=0x0000}
0x184514…1846a8 IdxSect {
0x184514…1846a8 f00 = 0x0041 // 0x184514 @0x0
0x184514…1846a8 f01 = 0x0002 // 0x184516 @0x2
0x184514…1846a8 gno = [ // 0x184518 @0x4
0x184514…1846a8 [0x00]: C0x0041.0x3.0
0x184514…1846a8 ]
0x184514…1846a8 }
0x1846a8…18483c Dummy {f00=0x0041, f01=0x006a, f02=» SKF ASM DRDC15 ASM EBCDIC " SCR 4 BYE @ NJ-AMT L ASG /E0,TY10 Z
0x18483c…1849d0 Dummy {f00=0x0041, f01=0x2008, f02=» ASM DRDC15 ASM EBCDIC " SCR 4 BYE @ NJ-AMT L ASG /E0,TY10 Z
0x1849d0…184b64 Dummy {f00=0x0041, f01=0x2008, f02=» MES FOLLOWING COMBINATIONS ARE VALID: " HMES 1 A,A+AU,A+AOUT,A+AU+AOUT 6 " HMES 2 C,C+CU,C+COUT,C+CU+COUT " HMES 3 M,M+MU,M+MOUT,M+MU+MOUT HMES 4 FC : HMES ANY COMBINATION OF ALTERNATIVE 1,2 AND 3 IS VALID, 0 HMES AND AT LEAST O
0x184b64…184cf8 Dummy {f00=0x0041, f01=0x018e, f02=»EGSET v & PDK03 DSET FC=C3 FD999003 CYCLE SET $ PDK04 DSET FC=C4 FD999004 KT PLAN 8 PDSSOPI DSET FC=10 ` PDSSOPO DSET FC=11 z PDCOMM DSET FC=61 " P FMTCTL INDS=KEYB,OUTDS=SCREEN P* P* P* P* P* P STA
0x184cf8…184e8c Dummy {f00=0x0041, f01=0x0190, f02=» F P* D A T D I V : DATA DIVISION FOR IBM-3270 EMULATION PACKAGE. B P* THIS MODULE ALSO CONTAINS THE CREDIT CODED N * P* START-UP ROUTINES. P* H P************************************************************
0x184e8c…185020 Dummy {f00=0x0041, f01=0x0190, f02=» TERMINAL P* P TERM KA P* , P CWB CB9 6 P TWB TB9 F P* V P START KBVGO ` P* t PDSDC DSET FC=61 ~ $ PDSICR DSET FC=E0,DEV=II COPCMD=1 PDSICW DSET FC=E1,DEV=IO $ PDSVDU DSET FC=50,DEV=DY,BUFL=162 $ PDS
0x185020…1851b4 (0, 493) Opaque[0x194]
0x1851b4…185348 # DirEnt {nam=»M:92LP«, typ=»LM«, f00=0x0000, f01=0x0000, f02=0x1bf8, f03=0x0000}
0x1851b4…185348 IdxSect {
0x1851b4…185348 f00 = 0x00df // 0x1851b4 @0x0
0x1851b4…185348 f01 = 0x0020 // 0x1851b6 @0x2
0x1851b4…185348 gno = [ // 0x1851b8 @0x4
0x1851b4…185348 [0x00]: C0x00df.0x3.0
0x1851b4…185348 [0x01]: C0x00e0.0x0.0
0x1851b4…185348 [0x02]: C0x00e1.0x0.0
0x1851b4…185348 [0x03]: C0x00e2.0x0.0
0x1851b4…185348 [0x04]: C0x00e2.0x1.0
0x1851b4…185348 [0x05]: C0x00e2.0x2.0
0x1851b4…185348 [0x06]: C0x00e2.0x3.0
0x1851b4…185348 [0x07]: C0x00e3.0x0.0
0x1851b4…185348 [0x08]: C0x00e3.0x3.0
0x1851b4…185348 [0x09]: C0x00e4.0x0.0
0x1851b4…185348 [0x0a]: C0x00ee.0x0.0
0x1851b4…185348 [0x0b]: C0x00ee.0x1.0
0x1851b4…185348 [0x0c]: C0x00ee.0x2.0
0x1851b4…185348 [0x0d]: C0x00ee.0x3.0
0x1851b4…185348 [0x0e]: C0x00ef.0x0.0
0x1851b4…185348 [0x0f]: C0x00ef.0x1.0
0x1851b4…185348 ]
0x1851b4…185348 }
0x185348…1854dc Dummy {f00=0x00df, f01=0x0190, f02=» * x J h h h h h h < h h'.'T $ L . 8 h h h h h h $ h h h h h L h h h ~ h h h h h h h h h h h h h h h h h h h h h h h h h h h h n c @ Tg t z ^ b bLPL H b2 Z ` z
0x1854dc…185670 Dummy {f00=0x00df, f01=0x0190, f02=» 4c @S{ D d 2Z $"z y B % y D Dbf d * F :P }B W [~ ? d j% L "~ T &b ICn 1 d _ A d " ^ _ @^ > > U # T @ H ( ( P c P W: P, A^ @ V ( U P" @E~V LE~W @E
0x185670…185804 Dummy {f00=0x00df, f01=0x0190, f02=» 6 8 ^ Q Z P 0 9 t t_ $ @ _, ? P H H #P h A d A FQ ? @^ : ) A^ _ @ @ A H ( A^ _ ? ? ? ? ? ^ A _ _ ^ ^ $P T I R $ 5 % > ? W ? W ? T T$ U U U U
0x185804…185998 Dummy {f00=0x00df, f01=0x0190, f02=» Q Q > > 0 @^^ 1 A^^ P P > ? * X " R" Y T ? X D F T> Z W8 > _& @ 8 R" Y T ? X D F T Z W > _& W2 > 8 X W( ? ` @ @ P $ H W W > > > > > > @^PV ? ^P > _ > ? _ > > ? ^ ! Y ^ _ n ?
0x185998…185b2c Dummy {f00=0x00df, f01=0x0190, f02=» < $ ( , 0 4 8 < C 8W T 8P Y ^ 5 ) P U ^ XH D #DP @ R XV Y @ P, F T W X &P T X I Y T # C C W4 O " # X Y ) C
0x185b2c…185cc0 Dummy {f00=0x00df, f01=0x0190, f02=» P j$ > > F C F C > B R Q F ! P C > C > F :c" H :b"? #" : C > B R Q~ P0 B P* 0$ T # R QL > X B U( H Q2 X
0x185cc0…185e54 (0, 494) Dummy {f00=0x00e0, f01=0x0190, f02=» P PL $ # Q > P _0 # T p > P p (_H _2 B U X > ? _ X T (@ H ^ > > ? _ X T X X T % T ?C L Rl _@(@ L U L Q0 M & X
0x185e54…185fe8 Dummy {f00=0x00e0, f01=0x0190, f02=» 0P X T 4 Y X F X T X Z 1 1 X P - M T $ PD _ T " # p X L R P RP (@ ^ X P8 P0 # P T P 0P 1 _ t W Y > > ^dJ B B ^lJ B B pU
0x185fe8…18617c Dummy {f00=0x00e0, f01=0x0190, f02=» 0 R t B " P Q :A H P P ^ H !@T I ^ T ! 1 U ^ A d ? W A d ? W A d ? W U R ; V ~# T R p 4 # PJ P 4 RL P 4 ] P $ P ] U PD P< P0 P,
0x18617c…186310 Dummy {f00=0x00e0, f01=0x0190, f02=» ' T P X P " >Wh T # Y U T ] W 8V X $P y $W $ E@ P 8R R ^ Y $ X Z ;BR 8% =A Y T Z& h_, X ' X 4X< XB U T T U 5 U R " ] ~ ^ ;h # <c$
0x186310…1864a4 Dummy {f00=0x00e0, f01=0x0190, f02=»X <d$ _D $?:D" Y X P Y # P 4T U # P 4 4 P _r T _$ U _ ? 4 U 5 R PF "P2 R T T R X # X h > P P P ` X XF _H Wj ? T T E@ W u > > E D E
0x1864a4…186638 Dummy {f00=0x00e0, f01=0x0190, f02=»XB Y X X X X ' 4 B U B (" W C (@ > ?" 8' ?A R 8;b# 4T RT T T ] ] 8 W< TrW T ] _ P T V WT 8V T P U 8 ~ U Q2P X H 5 U R " ] ~ Y > > V P
0x186638…1867cc Dummy {f00=0x00e0, f01=0x0190, f02=» 4XR XX 5 h_b Y Y Y X 9BV$ X & Y " X D V & X . T 8TV 9WD B 7P P ^ A^ W A^ @^ A.W ? A dI.9 X R C C & ^ ?A @^ A. X V 9_: @
0x1867cc…186960 Dummy {f00=0x00e0, f01=0x0190, f02=» W Q P P 1 ! X T V C B Q 1 & ^ Y Y Y B X _ ? X Z(W@ A d ? ? H $B T I H T B > > > ? ? ? ? ? I X ' X T B C X 4 ~ Y V P
0x186960…186af4 (0, 495) Dummy {f00=0x00e1, f01=0x0190, f02=» 4XR XX 5 h_b Y Y Y X !Pp P X ! 6 Y * X . ! j Y T & ` P Pb P Pv Pz 6 + ^ A^ @^ A. H E@ T ^ Y HW A^ @^ A. Wx ! * X , X P ! ! 2W< ! * _ ! *
0x186af4…186c88 Dummy {f00=0x00e1, f01=0x0190, f02=» 0 TOT 0 SST X Y ,W 0 X Y , Y * ! 8 ! X *' P ! ! x D ) P _ X " X ! Tr X !& Ph B 0 0 :C P ! 8 9DV ! (@ B r ! ! R ! j ! ! b ! ( ! ! Z ! X Y . X * V " ! 8_ Y *
0x186c88…186e1c Dummy {f00=0x00e1, f01=0x0190, f02=»# T X Y ._ Y *# 4 ! n ^ ( C V ! ! 8 B B ! j ! xW0 W ! n X@ b ! x C (Q ! ! * ! 2 ! n ! T )WL WP ! n Xz R ! x ( - j ! x ) W. Y PW Y P Y L Y N Y B S W W B C & ^ _ ? Y " X $ T X
0x186e1c…186fb0 Dummy {f00=0x00e1, f01=0x0190, f02=» X # P Y .:A , X J A^ Y J @^ B. X $ Y Y $ Y X h Y & X '? A d ? (@ X L X N K P6 X PT $ D C Y B ^ K & E % Y B K X ;AR@;a X &P Y & P 7P < $ <C ! 9 4 X d " _ W
0x186fb0…187144 Dummy {f00=0x00e1, f01=0x0190, f02=»;A _ 4 X 0 # P _ 4(@ R DDl 1_ W (@ R 0 DDl ] _ ! 4 ! ;E :B 9A ! U P jW kQ 4 Y * ! 0" Z Y" P Z _ 4 A L;D A L 4 R _ ;H 4 r ! x (:C 4 Z ! x ( 4
0x187144…1872d8 Dummy {f00=0x00e1, f01=0x0190, f02=» X # P Y :A , X A Y @ B. X Y Y P Y P 7P < $ <C ! 9 4 X d " _ W
0x1872d8…18746c Dummy {f00=0x00e1, f01=0x0190, f02=»;A _ 4 X # P _ 4(@ R D 1_ W (@ R 0 D ] _ ! 4 ! ;E :B 9A ! U P jW kQ 4 Y ! 0" Z Y" P Z _ 4 A L;D A L 4 R _ ;H 4 ! (:C 4 ! ( 4
0x18746c…187600 Dummy {f00=0x00e1, f01=0x0190, f02=» X # P Y :A P, P P~ 1P( P W P P 5P ^ ^ X P WL B 9 B Y B Y ( P. @D& Dl ^ @D( `D( @D(P 0P _ % AD& AD* &_^ B Q< B_r X P 0 Y P C x_ _ B Y _N ^ X P A E> Y Wb Y
0x187600…187794 (0, 496) Dummy {f00=0x00e2, f01=0x0190, f02=» ) 1_ (X( P _ 0 )_6 (P _ ) 1 4 ( X R2 X T* X P& , Y L C L C x > @ @ @ A X &_" X P y Y X P T X @!L T A!N A!L > A!. A!2 A!6 A!: A!> !BW > 4
0x187794…187928 Dummy {f00=0x00e2, f01=0x0190, f02=» T@ !' T8 !' A I A!X P " $l !' $ _ !' T ( $4" X !' _ !(n A!V @!NP @!LP !$ A!N A!P_ !(n @!PP @( X@ !%* T< A!T !% !n @!NP @( P @!L " 8 !$V !$ A!X_: !' X6_Z A!T @( @!dT 1 R 0 2P P P A!b . @!J 8 HDl @(
0x187928…187abc Dummy {f00=0x00e2, f01=0x0190, f02=» !n_ A!P @!J X A!V A!L A!X @!l A!l $ !(n @!NT @!PP !% !n !(n @!NT @!PX Wj A I ! E># ^ !, @!L @!d @!^ A!b $ !(n @!NXN !' T @!XP !% !(>_h 1T& @!XX @!RP !$ !% A!V_ A!X $ < A!N @!RT _, _0 @!NT8W !n @( T !
0x187abc…187c50 Dummy {f00=0x00e2, f01=0x0190, f02=» B A!^ A!` A!b A!R A!T !& !(> A!N_^_V @!LP6 X R0 X P T$ T Y W ! P C & X A!N A!L 4 @( @!TT @!d A!b @!b A!d A!T !' T2 P4 PJ PL P P. 1 A!b @!b ]6W P _@ @( @!b E !(~P !'~ 4 _$ !(~ 2_l 1
0x187c50…187de4 Dummy {f00=0x00e2, f01=0x0190, f02=» @!bT( @( !' 8 !' @!VP - !' x !C W 0 " @!VPL R ~T }T T0 W, !' P " ! " :A *@ HDl T 0 !' W R !' A!b @!` @!bU< Zx Q P Q T 0 !' A!b 0 !' A!b !' !' & A!R _ B J B !' !' 4 A d ? !,
0x187de4…187f78 Dummy {f00=0x00e2, f01=0x0190, f02=» 9AP ^ 2 _ " ! 1 4 A' @D( `D( @D(P 0 M A' 4 ? @ A @ T (, !n @ A (, ^ A a 4 E>( X A > E>(N Z A!h 4 A!h !'~ @!NP !% !(> !n @!hP a!h A!h 4 A!Z !' T ' A!Z 4 (
0x187f78…18810c Dummy {f00=0x00e2, f01=0x0190, f02=» @!bT @ ! 8 ! @!VP - ! x ! W 0 " @!VP R ~T }T T W ! P " ! " :A *@ H T 0 ! W R ! A!b @!` @!bU Zx Q P Q T 0 ! A!b 0 ! A!b ! ! & A!R _ B J B ! ! 4 A d ? !,
0x18810c…1882a0 Dummy {f00=0x00e2, f01=0x0190, f02=» 9AP ^ 2 _ " ! 1 4 A' @ ` @ P 0 M A' 4 ? @ A @ T !n @ A A a 4 ( X A > Z A!h 4 A!h !'~ @!NP !% !(> !n @!hP a!h A!h 4 A!Z !' T ' A!Z 4
0x1882a0…188434 (0, 497) Dummy {f00=0x00e2, f01=0x0190, f02=» @!bT @ ! 8 ! @!VP - ! x ! W 0 " @!VP R ~T }T T W ! P " ! " :A *@ H T 0 ! W R ! A!b @!` @!bU Zx Q P Q T 0 ! A!b 0 ! A!b ! ! & A!R _ B J B ! ! 4 A d ? !,
0x188434…1885c8 Dummy {f00=0x00e2, f01=0x0190, f02=» 9AP ^ 2 _ " ! 1 4 A' @ ` @ P 0 M A' 4 ? @ A @ T !n @ A A a 4 ( X A > Z A!h 4 A!h !'~ @!NP !% !(> !n @!hP a!h A!h 4 A!Z !' T ' A!Z 4
0x1885c8…18875c Dummy {f00=0x00e2, f01=0x0190, f02=» @!bT @ ! 8 ! @!VP - ! x ! W 0 " @!VP R ~T }T T W ! P " ! " :A *@ H T 0 ! W R ! A!b @!` @!bU Zx Q P Q T 0 ! A!b 0 ! A!b ! ! & A!R _ B J B ! ! 4 A d ? !,
0x18875c…1888f0 Dummy {f00=0x00e2, f01=0x0190, f02=» 9AP ^ 2 _ " ! 1 4 A' @ ` @ P 0 M A' 4 ? @ A @ T !n @ A A a 4 ( X A > Z A!h 4 A!h !'~ @!NP !% !(> !n @!hP a!h A!h 4 A!Z !' T ' A!Z 4
0x1888f0…188a84 Dummy {f00=0x00e2, f01=0x0190, f02=» @!bT @ ! 8 ! @!VP - ! x ! W 0 " @!VP R ~T }T T W ! P " ! " :A *@ H T 0 ! W R ! A!b @!` @!bU Zx Q P Q T 0 ! A!b 0 ! A!b ! ! & A!R _ B J B ! ! 4 A d ? !,
0x188a84…188c18 Dummy {f00=0x00e2, f01=0x0190, f02=» 9AP ^ 2 _ " ! 1 4 A' @ ` @ P 0 M A' 4 ? @ A @ T !n @ A A a 4 ( X A > Z A!h 4 A!h !'~ @!NP !% !(> !n @!hP a!h A!h 4 A!Z !' T ' A!Z 4
0x188c18…188dac Dummy {f00=0x00e2, f01=0x0190, f02=» @!bT @ ! 8 ! @!VP - ! x ! W 0 " @!VP R ~T }T T W ! P " ! " :A *@ H T 0 ! W R ! A!b @!` @!bU Zx Q P Q T 0 ! A!b 0 ! A!b ! ! & A!R _ B J B ! ! 4 A d ? !,
0x188dac…188f40 Dummy {f00=0x00e2, f01=0x0190, f02=» 9AP ^ 2 _ " ! 1 4 A' @ ` @ P 0 M A' 4 ? @ A @ T !n @ A A a 4 ( X A > Z A!h 4 A!h !'~ @!NP !% !(> !n @!hP a!h A!h 4 A!Z !' T ' A!Z 4
0x188f40…1890d4 (0, 498) Dummy {f00=0x00e2, f01=0x0190, f02=» @!bT @ ! 8 ! @!VP - ! x ! W 0 " @!VP R ~T }T T W ! P " ! " :A *@ H T 0 ! W R ! A!b @!` @!bU Zx Q P Q T 0 ! A!b 0 ! A!b ! ! & A!R _ B J B ! ! 4 A d ? !,
0x1890d4…189268 Dummy {f00=0x00e2, f01=0x0190, f02=» 9AP ^ 2 _ " ! 1 4 A' @ ` @ P 0 M A' 4 ? @ A @ T !n @ A A a 4 ( X A > Z A!h 4 A!h !'~ @!NP !% !(> !n @!hP a!h A!h 4 A!Z !' T ' A!Z 4
0x189268…1893fc Dummy {f00=0x00e2, f01=0x0190, f02=» @!bT @ ! 8 ! @!VP - ! x ! W 0 " @!VP R ~T }T T W ! P " ! " :A *@ H T 0 ! W R ! A!b @!` @!bU Zx Q P Q T 0 ! A!b 0 ! A!b ! ! & A!R _ B J B ! ! 4 A d ? !,
0x1893fc…189590 Dummy {f00=0x00e2, f01=0x0190, f02=» 9AP ^ 2 _ " ! 1 4 A' @ ` @ P 0 M A' 4 ? @ A @ T !n @ A A a 4 ( X A > Z A!h 4 A!h !'~ @!NP !% !(> !n @!hP a!h A!h 4 A!Z !' T ' A!Z 4
0x189590…189724 Dummy {f00=0x00e2, f01=0x0190, f02=» @!bT @ ! 8 ! @!VP - ! x ! W 0 " @!VP R ~T }T T W ! P " ! " :A *@ H T 0 ! W R ! A!b @!` @!bU Zx Q P Q T 0 ! A!b 0 ! A!b ! ! & A!R _ B J B ! ! 4 A d ? !,
0x189724…1898b8 Dummy {f00=0x00e2, f01=0x0190, f02=» 9AP ^ 2 _ " ! 1 4 A' @ ` @ P 0 M A' 4 ? @ A @ T !n @ A A a 4 ( X A > Z A!h 4 A!h !'~ @!NP !% !(> !n @!hP a!h A!h 4 A!Z !' T ' A!Z 4
0x1898b8…189a4c Dummy {f00=0x00e2, f01=0x0190, f02=» @!bT @ ! 8 ! @!VP - ! x ! W 0 " @!VP R ~T }T T W ! P " ! " :A *@ H T 0 ! W R ! A!b @!` @!bU Zx Q P Q T 0 ! A!b 0 ! A!b ! ! & A!R _ B J B ! ! 4 A d ? !,
0x189a4c…189be0 Dummy {f00=0x00e2, f01=0x0190, f02=» 9AP ^ 2 _ " ! 1 4 A' @ ` @ P 0 M A' 4 ? @ A @ T !n @ A A a 4 ( X A > Z A!h 4 A!h !'~ @!NP !% !(> !n @!hP a!h A!h 4 A!Z !' T ' A!Z 4
0x189be0…189d74 (0, 499) Dummy {f00=0x00e2, f01=0x0190, f02=» @!bT @ ! 8 ! @!VP - ! x ! W 0 " @!V :f"? HC !' "? HC !' 4 ABCDEFGHI#.<(+!&JKLMNOPQR$]*);^-/STUVWXYZ@,%_>?0123456789:[ '="D,D* 7- <=2&p ?' @O JZlP}M] N
0x189d74…189f08 Dummy {f00=0x00e2, f01=0x0190, f02=» P E$ E>E. _ t _< ? ^ 4 _ P P @ 6 1 A 6 _ P 9 > > & D_ _._6_2D _Rx x yD y y | | x x F F H H H H H G G G0F GtG F H H F G G G0F " # $ % "$&( F
0x189f08…18a09c Dummy {f00=0x00e2, f01=0x0190, f02=» ( U H B r ]p W Y & Y $ 0 Y . G [Z H B Y I B Y J_ W [ C P C W < C C _H [ H H S W C C B B B U [ R Wp H TP L P B r L ( ]p $ X _ X ` T I T
0x18a09c…18a230 Dummy {f00=0x00e2, f01=0x0190, f02=» P #D { I6 ^ ^ I I MfMfMfMfMfL L I MfL I MfMfMfMfL L I F X (P R X (W G G : R $ - _ " P $ - : R $ - _ : Z $ -_ D ( U ( 0 W T ` U @ , @ W : X & X P !##T Y T( X P
0x18a230…18a3c4 Dummy {f00=0x00e2, f01=0x0190, f02=» V, P ( I ( ( W I( ^ Mf B W C X '? H$ X & X ( )T Mf HN H L X $TT T AHL J , Zv P W T Y $ P T _ Y & F P X(@ _ K X & X I U X J U ( ^ T$ X X RP
0x18a3c4…18a558 Dummy {f00=0x00e2, f01=0x0190, f02=» @ X WF [Z N 4 5W P 0 @WP 1 AWP(@_ 1 (@ K / O $P % 4 F H (@ B P P 9 X M| 4' K,' K, 5 K, 4 Q W , P& ,' X X 1 Z" ) K,_ (@ C ( B ! Mf
0x18a558…18a6ec Dummy {f00=0x00e2, f01=0x0190, f02=»W Mf X ( X & F X P @^ Q (@ ]p + X ^V" P "P8 $P4W X & X bT( ;AR ( L ( I( ^ T Y ^ F " F D '? P P( $ P" [ I I K K P P & P [ZW D $ T [ T [>W E I E J X
0x18a6ec…18a880 Dummy {f00=0x00e2, f01=0x0190, f02=»{ P P z @zh X(@ Dzj C C C W C ( M M L " TOP P Az L Az L C z @z Az Q< @zh P Azh @z P B P Dzj EzlX #D( M ( B P B @zh Dzj W C C ( M M z zf
0x18a880…18aa14 (0, 500) Dummy {f00=0x00e3, f01=0x0190, f02=»zh Ezv P Ez P Ez DztT z P P Q 2% P( R 0 XzjT R , @z T R RT @z Q P 6 Q 2% P P z r P %_ S F S E 3 P S I P S J P S ( P S * P % S H P & S P @z S , d S B | N
0x18aa14…18aba8 Dummy {f00=0x00e3, f01=0x0190, f02=» Y U ! T ! X6 _R _V Dz " P z Az ( ^ W @z P6 I @z P @Z" V W HZ$ IZ&(@ @z P -W P B P X z (@( @z Q _ T `zf ` 9A S ^ H $X D S . S $ ] R * S W
0x18aba8…18ad3c Dummy {f00=0x00e3, f01=0x0190, f02=» E P E P E D T P 2% P R 0 X T R , @ T R RT @ 6 2% P P %_ S F S E 3 P S I P S J P S ( P S * P % S H P & S P @ S , d S B | N
0x18ad3c…18aed0 Dummy {f00=0x00e3, f01=0x0190, f02=» Y U ! T ! X6 _R _V D " P A ( ^ W @ P6 I @ P @ V W H I (@ @ P -W P B (@( @ Q _ T ` ` 9A S ^ H $X D S . S $ R * S W
0x18aed0…18b064 Dummy {f00=0x00e3, f01=0x0190, f02=» E P E P E D T P 2% P R 0 X T R , @ T R RT @ 6 2% P P %_ S F S E 3 P S I P S J P S ( P S * P % S H P & S P @ S , d S B | N
0x18b064…18b1f8 Dummy {f00=0x00e3, f01=0x0190, f02=» Y U ! T ! X6 _R _V D " P A ( ^ W @ P6 I @ P @ V W H I (@ @ P -W P B (@( @ Q _ T ` ` 9A S ^ H $X D S . S $ R * S W
0x18b1f8…18b38c Dummy {f00=0x00e3, f01=0x0190, f02=» E P E P E D T P 2% P R 0 X T R , @ T R RT @ 6 2% P P %_ S F S E 3 P S I P S J P S ( P S * P % S H P & S P @ S , d S B | N
0x18b38c…18b520 Dummy {f00=0x00e3, f01=0x0190, f02=» Y U ! T ! X6 _R _V D " P A ( ^ W @ P6 I @ P @ V W H I (@ @ P -W Z, P Q R ;A [ [ : P Q R ;A [ [ : Q R P ;A [ [ : ? ?
0x18b520…18b6b4 (0, 501) Dummy {f00=0x00e3, f01=0x0190, f02=» & D LW 0P Q P P E +P W : X + P X L 1 Y L : L 4W 0P8 R Q P W R D + Q ( 0 5 @^^ 1 A^^ Z> : D NW (P D + I W6 @WPT n ( AWP U 1_ D + I D N ) E N : T * ZvSP P W X * 0
0x18b6b4…18b848 Dummy {f00=0x00e3, f01=0x0190, f02=» Y ^ B I ~ B T B : X "? P P X T _ X . P X $ ! # C W C C X %? : X &_ 0 D . P , _ D . D $ D * ZP T ( T & ^ S W : U ; $ T $ T $ T&x : :
0x18b848…18b9dc Dummy {f00=0x00e3, f01=0x0190, f02=» U $ ) Y _& (# )_4 $ ($ ) YR_L U p 0_8 $_< ' h N l n * m _ c f i i > > @^ 0 A^ W & ^ ! Z( ^ (X0 @^ P T M ]@ , ) A^ P* P Y U ( ) 5 & > > [ [ ^
0x18b9dc…18bb70 Dummy {f00=0x00e3, f01=0x0190, f02=»T0. T G Y6 G _b P ,P - _ ( ( _ b _ ? X V Y ^ ! 2W< Y U R -P b X , ) Y . a X P Y P C W~ 8!@P$ X $P y $W $ E@b ` Y $ X " PP:A: R Q W Y <D X ? ?: T
0x18bb70…18bd04 Dummy {f00=0x00e3, f01=0x0190, f02=» V cL ! B P X " _` B P$ $$ R % C cL* ! W Y +PH Y *P> Y (P Y )P cL R _Q P OR R W " ! B `L Wr W 0 Z cL ! B Z Z& X . 0T X W X ,P Y . 0 %_. % Y . W _p P cL _ X
0x18bd04…18be98 Dummy {f00=0x00e3, f01=0x0190, f02=» $4 P c X .T * W Y , - ^ @ Y $ X Z _X ? X :a Z T T W P X :d Y > > ? 8 R @RT V @% =cWP R`P R&P8 R P W 9 WD $ P W _ $ P _$ _*_, _ %0=c X 0P > 0 > >_ B 1 > XT 0 _
0x18be98…18c02c Dummy {f00=0x00e3, f01=0x0190, f02=» ! ! W B W$ B L # 9Q T W Q P X & V T Y &W cl X ! T6 B R0Q$ B D ! V ! ! ! W !f !e Y ! T ! V c ! B C ! ! T " T W Q " T ) ^ !f cv Y _ ! !fl Y &P Q W
0x18c02c…18c1c0 Dummy {f00=0x00e3, f01=0x0190, f02=» ! Y 4 RNQ " PH _ " P R: M T2 ! L ,! :D" !fT Y Y U ! _$ W4 , ! T ,' c ! R !__U C X ' W Y ! _ X RT U TJ X d ? Y X P " ! Y ' ! X T ! ^ c ^ R _ 4
0x18c1c0…18c354 (0, 502) Dummy {f00=0x00e4, f01=0x0190, f02=» f hNh hj PB P8 ^ B P B L # +P ! ! T ! Y & ! W ! ! W ! Y Y h F U P" T Y &_. P4 R( Pj O]> V _F T Y Y & V Y _^ C _P F F" $ P X & X ]r ! Y Y Y _
0x18c354…18c4e8 Dummy {f00=0x00e4, f01=0x0190, f02=» C > X Z^<BR P j X _x R0 V0 ! P* P P P" R ?Q ! Y R Q h -_ ? _ X # ! ^ Y _( ? X Z ! P4 P g g X " f ! ! X & g g i& idi B 8# T $ # ;D 7P P ^ Y W Y
0x18c4e8…18c67c Dummy {f00=0x00e4, f01=0x0190, f02=» P P kd & kL ^ B P B H " +P P. T Y ' ! R| X ( Y &R Y & _ Y &_. B 1 l ! k B B U4 $ ! T _ U D ! T _ $$ X" X& X* C F kx X`" Ei P( 8'0P Ei TD ! T 9 _ ! T @
0x18c67c…18c810 Dummy {f00=0x00e4, f01=0x0190, f02=» ! k j B !m !mH ! k B Y & !mfW j 8!0T 8 !@P ! $ P ! ! k ! T Y & T X & C & ^ X Y & Y > X " X &" Y )Q Y > X Z2<BR J ? Y ! T X ! Y & Zl k T _ ! X
0x18c810…18c9a4 Dummy {f00=0x00e4, f01=0x0190, f02=»" X &" Y )U W ! ! ! Y 4 B j8 U )X R@ X X &" Y * X ) V Y !mH X $ X & !mf X * j j8 `R Y ! ! ! 4 ! V ! V W :h ! 4 X )" X '# R 4 k > v
0x18c9a4…18cb38 Dummy {f00=0x00e4, f01=0x0190, f02=» ! j B ! ! ! B Y & ! W j 8!0T 8 !@P ! $ P ! ! ! T Y & T X & C & ^ X Y & Y > X " X &" Y )Q Y > X Z2<BR J ? Y ! T X ! Y & Zl k T _ ! X
0x18cb38…18cccc Dummy {f00=0x00e4, f01=0x0190, f02=»" X &" Y )U W ! ! ! Y 4 B j8 U )X R@ X X &" Y * X ) V Y !mH X $ X & !mf X * j j8 `R Y ! ! ! 4 ! V ! V W :h ! 4 X )" X '# R 4 k >
0x18cccc…18ce60 Dummy {f00=0x00e4, f01=0x0190, f02=» ! j B ! ! ! B Y & ! W j 8!0T 8 !@P ! $ P ! ! ! T Y & T X & C & ^ X Y & Y > X " X &" Y )Q Y > X Z2<BR J ? Y ! T X ! Y & Zl k T _ ! X
0x18ce60…18cff4 (0, 503) Dummy {f00=0x00ee, f01=0x0190, f02=»" X &" Y )U W ! ! ! Y 4 B j8 U )X R@ X X &" Y * X ) V Y !mH X $ X & !mf X * j j8 `R Y ! ! ! 4 ! V ! V W :h ! 4 X )" X '# R 4 k >
0x18cff4…18d188 Dummy {f00=0x00ee, f01=0x0190, f02=» ! j B ! ! ! B Y & ! W j 8!0T 8 !@P ! $ P ! ! ! T Y & T X & C & ^ X Y & Y > X " X &" Y )Q Y > X Z2<BR J ? Y ! T X ! Y & Zl k T _ ! X
0x18d188…18d31c Dummy {f00=0x00ee, f01=0x0190, f02=»" X &" Y )U W ! ! ! Y 4 B j8 U )X R@ X X &" Y * X ) V Y !mH X $ X & !mf X * j j8 `R Y ! ! ! 4 ! V ! V W :h ! 4 X )" X '# R 4 k >
0x18d31c…18d4b0 Dummy {f00=0x00ee, f01=0x0190, f02=»7 R ( P H RN H P ' P m P W< m T6 x ' P !xJ & B # P G W G & ^ X P P R: Aw~ E@w Y X T Q (P H U ^ 9 1_N ^ X T @m P ( Am x8 _ ( Y _ m _x X T @m P ( Am x8_ ( Y _ m _
0x18d4b0…18d644 Dummy {f00=0x00ee, f01=0x0190, f02=» U ^ C G 4' "?:B ] P H U _ U @ U 9C @ $$ T %_< %_B R @ U P 9C @ _ T M D W. D D " @ @ - U _ 9B @ T W X > "RT PL X TF X R@? V X & X H P & X
0x18d644…18d7d8 Dummy {f00=0x00ee, f01=0x0190, f02=»_2 < U = (@ " $ P B >H<h zN P ?_" = > = > = =_D R _ 00 > & <h$ P > m _x X T @m P ( Am _ ( Y @zbP 4 Azb
0x18d7d8…18d96c Dummy {f00=0x00ee, f01=0x0190, f02=»P T W ' T| Izj @ 8 =hP Y X Pl 0T< Y Hzj! R W 9a Izj T T 9a Hzk Ez ^ W P ,! T T ( | : n "' # z @z`P zb $ ) 5 ^ Az` Az Azd z " ]p zf Azr "" P U W {
0x18d96c…18db00 Dummy {f00=0x00ee, f01=0x0190, f02=» @ 0 Rb ' F "R G z @zh Dzj #D T G W, Az M "R Az Az ^ z }X ~ m _x X T @m P ( Am _ ( Y @zbP 4 Azb
0x18db00…18dc94 (0, 504) Dummy {f00=0x00ee, f01=0x0190, f02=»P T W ' T Izj @ 8 =hP Y X P 0T Y Hzj! R W 9a Izj T T 9a Hzk Ez ^ W P ,! T T ( : n "' # @z`P zb $ ) 5 ^ Az` Az Azd z " ]p zf Azr "" P U W {
0x18dc94…18de28 Dummy {f00=0x00ee, f01=0x0190, f02=» @ 0 Rb ' F "R G z @zh Dzj #D T G W, Az M "R Az Az ^ z > m _x X T @m P ( Am _ ( Y @zbP 4 Azb
0x18de28…18dfbc Dummy {f00=0x00ee, f01=0x0190, f02=»P T W ' T Izj @ 8 =hP Y X P 0T Y Hzj! R W 9a Izj T T 9a Hzk Ez ^ W P ,! T T ( : n "' # @z`P zb $ ) 5 ^ Az` Az Azd z " ]p zf Azr "" P }X {
0x18dfbc…18e150 Dummy {f00=0x00ee, f01=0x0190, f02=» @ 0 Rb ' F "R G z @zh Dzj #D T G W, Az M "R Az Az ^ z m _x X T @m P ( Am _ ( Y @zbP 4 Azb
0x18e150…18e2e4 Dummy {f00=0x00ee, f01=0x0190, f02=» [ [ M M M A}T -(@ : - : @}T , L T M @}T : =a 9a Q - _ - > @ HPJ r Q WP | WR AWP Z" | @}T , - M M M @}T Az` Azb > * Z 0123456789 &
0x18e2e4…18e478 Dummy {f00=0x00ee, f01=0x0190, f02=»; =!"#$%&/() @ABCDEFGHIJKLMNOPQRSTUVWXYZ []* < +.-, 0 23456789 `ABCDEFGHIJKLMNOPQRSTUVWXYZ []' ($SWAP A A A A. UU @ @ ! P$>B @ A @ E D P _ $ % $P _ % A @ " Q A
0x18e478…18e60c Dummy {f00=0x00ee, f01=0x0190, f02=» F CRT F A @ @ ! P2 @ P ;b=H F CR F W =J F CRTT F PN A @ $ P( @ R W 8 !RRT W V P A Y W @ " T> W @ V W Q 0
0x18e60c…18e7a0 Dummy {f00=0x00ee, f01=0x0190, f02=» F W V = V W Y* P Z( = :L < P W <9B @ V W Q W @ @ A @ CRT @ P @ ! P W @ V P _ @ ! P !RRP V @ P
0x18e7a0…18e934 (0, 505) Dummy {f00=0x00ee, f01=0x0190, f02=» :l 9b ) V _ @ V W W P TJ V 0 !;;P P V P$ _ P !;;T X$ W _J T W h , W W V 0 !;;P P V Xb _ P !;;T
0x18e934…18eac8 Dummy {f00=0x00ee, f01=0x0190, f02=» W V $ ) H A I. : C. X C.9h! # " :A K : A T.I T P 1 I P < R P A _> : r A A A 2 A H A z A ~ A A : 9e9C) A I " 9A !
0x18eac8…18ec5c Dummy {f00=0x00ee, f01=0x0190, f02=»A I T ) A _ I N T : 2 H 9PJ S Y T@ $ 1T: C !CCTt : 1P P$_ P =H P @ T X W n : YX d C !CCTZ B. X B.9 H Q _ L_ !SST& 0 U " R X A X
0x18ec5c…18edf0 Dummy {f00=0x00ee, f01=0x0190, f02=» P V W @ $ P p W T : A _ 0V , - P X 9A_ : @ ! P (W ( :W> 2 W 0 . " A T I T P 1 I 2 ; Z [ : : [ [ : P
0x18edf0…18ef84 Dummy {f00=0x00ee, f01=0x0190, f02=» A. c @ V W U R $ )_ : W W W W W tQ@ V V v x W V V v p R( W V W ^< _@ V _P V V : V J P ` r tV U ` _
0x18ef84…18f118 Dummy {f00=0x00ee, f01=0x0190, f02=» V W V ) : V <B W |P v v : $ V |P v w v : V $ V l $ V M : W V R RR > R W > <B V x V |P v 1 v W V z ` _f V : W R R
0x18f118…18f2ac Dummy {f00=0x00ee, f01=0x0190, f02=» P T E _J E _T " D T E E D E % : " R ;B " R P( |P v v : V W 0 : V P 9a _ " ( ) 8 ( ) : " $ V P 9A _ 0 : W W W ?AP ^ 0 : W ; V :
0x18f2ac…18f440 Dummy {f00=0x00ee, f01=0x0190, f02=» 0 R P P B _ ^ : V ) v : 4P: " D , H H $ M v b - I Y0 : @ ` V b pP ` $ $ W $ H 2 ) P _ " = D 4 Q _d 2 z $ = G $
0x18f440…18f5d4 (0, 506) Dummy {f00=0x00ee, f01=0x0190, f02=» @ P P P P|_ _ @ 9N @ :b @ :b V W U6 T 9BW P P( P V W U " @ Q @ P A. @ P _b A 9n A :B A @ .V 3 S
0x18f5d4…18f768 Dummy {f00=0x00ee, f01=0x0190, f02=» ( : A ^ > l : R W n V pT : N V l W H V ]" . nT" W v W n V ~P W x _v V d , V P _ N L % V d V f v G G v U v
0x18f768…18f8fc Dummy {f00=0x00ee, f01=0x0190, f02=»! P % _ V V W W r W V v ) W b G v ) - V W f v ) G v ` " W p W ~ pP0 l R P x _ W ~ R X4 x _ ` @ ` W W ~ pPn z V W
0x18f8fc…18fa90 Dummy {f00=0x00ee, f01=0x0190, f02=» W x _ V P I z W z ` pPl H - V I f " R E R T E D E @ v H v E $ #_v W | ;b W W t V b v ( v W p V ` $ W ` $ ;h 0 :C # : .
0x18fa90…18fc24 Dummy {f00=0x00ee, f01=0x0190, f02=» | CRP W ` ` H W d 2 ;A @ tR - @ - N !TTP N :H N TBT W W8 2 " T @ N =H N @ ) : !TTXX !CCT > !UUT d Wh x 2 .:H N P V
0x18fc24…18fdb8 Dummy {f00=0x00ee, f01=0x0190, f02=» W : W @ W D V W W ` " W p @ pP. " 4X 1 R Z0 _ W l a w ` :A W V d 4 W P _ W ` W d V V W W V V >k 8 W
0x18fdb8…18ff4c Dummy {f00=0x00ee, f01=0x0190, f02=» , P@ , - 4 ] 4 tY 5 X * _6 : @ ] @ P @ P " P " P " P W W . !TTP @ T Y : !TTX" A 9 A : @ @ P. @ " P #D " P #E " P #F
0x18ff4c…1900e0 Dummy {f00=0x00ee, f01=0x0190, f02=» : @ :B W . !TTP W t N =H N W l N =H N W p N =H N W | ( @ % P W @ % P P0 r " U _2 P0 " U _2
0x1900e0…190274 (0, 507) Dummy {f00=0x00ef, f01=0x0190, f02=»% P : !TTT @ @ @ T : @ ! P @ @ f CRT 3 @ f f S @ f PP f !RRP @ ! T 3 @ & P f 3 f 3 YL @ @ T :
0x190274…190408 Dummy {f00=0x00ef, f01=0x0190, f02=» S _ : . !TTP V W t * P r _ Ph W p W V 8 8 4 D P$ @ # P H I K T + Y@ V p _j V t Y : !TTX @ @ T
0x190408…19059c Dummy {f00=0x00ef, f01=0x0190, f02=» W W t PT W f ( W d < G =h G V d V r < V f P W f _B V W V t Yr : !TTX @ @ T : : !TTX !CCTr P, V r 4 U $ $ _. P,
0x19059c…190730 Dummy {f00=0x00ef, f01=0x0190, f02=» W P0 W f W d V d V r < V f _2 U^ V 8 8 8 4 D P$ @ # P H I K T + Y@ _`R& @ @ @ % P V 4 4 4 _r @ @ T : W
0x190730…1908c4 Dummy {f00=0x00ef, f01=0x0190, f02=» D ) $ P@ D L T@ D &P V U 0 I , I . $# P V -W H P U & I @ % PD H I H T P( H U V U W < + + P V : V $ F !LLT # W ;I # ;b W ;a WR# T
0x1908c4…190a58 Dummy {f00=0x00ef, f01=0x0190, f02=» z *T P _ / P *_ *T P$ _ .P _ / V z U Y$ P W | V z 3 % W P _ V |P V v ]^dW v P _ @ @ T : N =H N : N =H N : &=H F :
0x190a58…190bec Dummy {f00=0x00ef, f01=0x0190, f02=»_ : @ ! P (W ( : j $ @ f CRT" @ ! P ` @ E "W ` @ E " ! 1 x 0 < 1 < 2 < P p @ 4 P f 0 * 4 : @ F L f a `(
0x190bec…190d80 Dummy {f00=0x00ef, f01=0x0190, f02=» _ KB D *_ x 8i DY @ T P @ _ KB : & p
0x190d80…190f14 (0, 508) Dummy {f00=0x00ef, f01=0x0190, f02=» 8i DY P _ KB f 2i DI Z ?O_o
0x190f14…1910a8 Dummy {f00=0x00ef, f01=0x0190, f02=» _ KB D *_ 8i DY @ T P @ _ KB : &
0x1910a8…19123c Dummy {f00=0x00ef, f01=0x0000, f02=»
[…0x5…]
0x191a20…1926c0 (1, 0) DirGranule ((1, 0)) {
0x191a20…1926c0 DirEnt {nam=»R n«, typ=» «, f00=0x0050, f01=0x2a20, f02=0x001e, f03=0x000a}
0x191a20…1926c0 DirEnt {nam=» P X«, typ=»IF«, f00=0x001e, f01=0x0014, f02=0x0006, f03=0x0050}
0x191a20…1926c0 DirEnt {nam=»* «, typ=» «, f00=0x0050, f01=0x5c49, f02=0x4654, f03=0x5c4c}
0x191a20…1926c0 DirEnt {nam=»OCHAN=«, typ=»4 «, f00=0x001e, f01=0x002a, f02=0x0006, f03=0x0050}
0x191a20…1926c0 DirEnt {nam=»* @«, typ=» «, f00=0x0050, f01=0x2a20, f02=0x001e, f03=0x004a}
0x191a20…1926c0 DirEnt {nam=» P* «, typ=» «, f00=0x0054, f01=0x0020, f02=0x0050, f03=0x4457}
0x191a20…1926c0 DirEnt {nam=»A3 EQU«, typ=» /«, f00=0x3233, f01=0x5c44, f02=0x4556, f03=0x4943}
0x191a20…1926c0 DirEnt {nam=»E ADDR«, typ=»ES«, f00=0x5320, f01=0x001e, f02=0x005e, f03=0x0006}
0x191a20…1926c0 DirEnt {nam=» P* «, typ=» «, f00=0x001c, f01=0x0050, f02=0x5c44, f03=0x4154}
0x191a20…1926c0 DirEnt {nam=»A 0 LA«, typ=»ST«, f00=0x204f, f01=0x5554, f02=0x5055, f03=0x5420}
0x191a20…1926c0 DirEnt {nam=»DWT «, typ=» «, f00=0x001c, f01=0x0050, f02=0x5c44, f03=0x4154}
0x191a20…1926c0 DirEnt {nam=»A 0 LA«, typ=»ST«, f00=0x204f, f01=0x5554, f02=0x5055, f03=0x5420}
0x191a20…1926c0 DirEnt {nam=»WORD «, typ=» «, f00=0x0020, f01=0x0050, f02=0x5c44, f03=0x4154}
0x191a20…1926c0 DirEnt {nam=»A INTL«, typ=»T3«, f00=0x5c49, f01=0x4e54, f02=0x4552, f03=0x5255}
0x191a20…1926c0 DirEnt {nam=»PT TAB«, typ=»LE«, f00=0x001e, f01=0x00cc, f02=0x0016, f03=0x0050}
0x191a20…1926c0 DirEnt {nam=» INR A«, typ=»2,«, f00=0x302c, f01=0x4457, f02=0x4133, f03=0x5c49}
0x191a20…1926c0 DirEnt {nam=»NR «, typ=» «, f00=0x0050, f01=0x5c4f, f02=0x5452, f03=0x5c41}
0x191a20…1926c0 DirEnt {nam=»2,0,DW«, typ=»A3«, f00=0x5c4f, f01=0x5452, f02=0x001e, f03=0x010a}
0x191a20…1926c0 DirEnt {nam=» P C«, typ=»IO«, f00=0x5c41, f01=0x322c, f02=0x312c, f03=0x4457}
0x191a20…1926c0 DirEnt {nam=»A3 CIO«, typ=»-S«, f00=0x5441, f01=0x5254, f02=0x001e, f03=0x0124}
0x191a20…1926c0 DirEnt {nam=» " P D«, typ=»AT«, f00=0x415c, f01=0x305c, f02=0x5245, f03=0x5452}
0x191a20…1926c0 DirEnt {nam=»ANSMIS«, typ=»SI«, f00=0x4f4e, f01=0x2043, f02=0x4f55, f03=0x4e54}
0x191a20…1926c0 DirEnt {nam=»ER D«, typ=» «, f00=0x0050, f01=0x5c44, f02=0x4154, f03=0x415c}
0x191a20…1926c0 DirEnt {nam=»0 QUEU«, typ=»E «, f00=0x001e, f01=0x016a, f02=0x0018, f03=0x0050}
0x191a20…1926c0 DirEnt {nam=» DATA «, typ=»0 «, f00=0x5345, f01=0x434f, f02=0x4e44, f03=0x2051}
0x191a20…1926c0 DirEnt {nam=»UEUE «, typ=» «, f00=0x0006, f01=0x0050, f02=0x2a20, f03=0x001f}
0x191a20…1926c0 DirEnt {nam=» P«, typ=» I«, f00=0x4654, f01=0x5c41, f02=0x434b, f03=0x4d55}
0x191a20…1926c0 DirEnt {nam=»L=1 «, typ=» «, f00=0x0006, f01=0x0050, f02=0x2a20, f03=0x001f}
0x191a20…1926c0 DirEnt {nam=» , P«, typ=» D«, f00=0x4154, f01=0x415c, f02=0x305c, f03=0x4e41}
0x191a20…1926c0 DirEnt {nam=»K-ACKU«, typ=»MU«, f00=0x4c41, f01=0x544f, f02=0x5220, f03=0x001f}
0x191a20…1926c0 DirEnt {nam=» 6 $ P«, typ=» D«, f00=0x4154, f01=0x415c, f02=0x305c, f03=0x5245}
0x191a20…1926c0 DirEnt {nam=»TR. FA«, typ=»UL«, f00=0x542d, f01=0x4143, f02=0x4b55, f03=0x4d55}
0x191a20…1926c0 DirEnt {nam=»LATOR «, typ=» «, f00=0x0056, f01=0x002c, f02=0x0050, f03=0x5c44}
0x191a20…1926c0 DirEnt {nam=»ATA 0 «, typ=»UN«, f00=0x4445, f01=0x4649, f02=0x4e45, f03=0x442d}
0x191a20…1926c0 DirEnt {nam=» INTER«, typ=»RU«, f00=0x5054, f01=0x2d41, f02=0x434b, f03=0x554d}
0x191a20…1926c0 DirEnt {nam=»ULATOR«, typ=» «, f00=0x007e, f01=0x0028, f02=0x0050, f03=0x5c44}
0x191a20…1926c0 DirEnt {nam=»ATA 0 «, typ=»PR«, f00=0x494e, f01=0x5445, f02=0x5220, f03=0x5449}
0x191a20…1926c0 DirEnt {nam=»MEOUT «, typ=»AC«, f00=0x4b55, f01=0x4d55, f02=0x4c41, f03=0x544f}
0x191a20…1926c0 DirEnt {nam=»R «, typ=» «, f00=0x0050, f01=0x2a20, f02=0x001f, f03=0x00da}
0x191a20…1926c0 DirEnt {nam=» P X«, typ=»IF«, f00=0x001f, f01=0x00e4, f02=0x0006, f03=0x0050}
0x191a20…1926c0 DirEnt {nam=»* «, typ=» «, f00=0x0050, f01=0x5c45, f02=0x4a45, f03=0x4354}
0x191a20…1926c0 DirEnt {nam=» «, typ=» P«, f00=0x2a20, f01=0x001f, f02=0x0108, f03=0x0006}
0x191a20…1926c0 DirEnt {nam=» P* «, typ=» «, f00=0x003a, f01=0x0050, f02=0x2a2a, f03=0x2a2a}
0x191a20…1926c0 DirEnt {nam=»******«, typ=»**«, f00=0x2a2a, f01=0x2a2a, f02=0x2a2a, f03=0x2a2a}
[…0x2…]
0x191a20…1926c0 DirEnt {nam=»* «, typ=» :«, f00=0x0050, f01=0x2a20, f02=0x2020, f03=0x2043}
0x191a20…1926c0 DirEnt {nam=» W T L«, typ=» T«, f00=0x2034, f01=0x2020, f02=0x2020, f03=0x2020}
0x191a20…1926c0 DirEnt {nam=» «, typ=» «, f00=0x2020, f01=0x2020, f02=0x2020, f03=0x2020}
0x191a20…1926c0 DirEnt {nam=» «, typ=» «, f00=0x2020, f01=0x2020, f02=0x2020, f03=0x2a20}
0x191a20…1926c0 DirEnt {nam=» Z :«, typ=» P«, f00=0x2a2a, f01=0x2a2a, f02=0x2a2a, f03=0x2a2a}
0x191a20…1926c0 DirEnt {nam=»******«, typ=»**«, f00=0x2a2a, f01=0x2a2a, f02=0x2a2a, f03=0x2a2a}
[…0x1…]
0x191a20…1926c0 DirEnt {nam=»******«, typ=»**«, f00=0x2a2a, f01=0x2a2a, f02=0x2a20, f03=0x0020}
0x191a20…1926c0 DirEnt {nam=» P«, typ=»* «, f00=0x0020, f01=0x0046, f02=0x0034, f03=0x0050}
0x191a20…1926c0 DirEnt {nam=»* C«, typ=»ON«, f00=0x5452, f01=0x4f4c, f02=0x2057, f03=0x4f52}
0x191a20…1926c0 DirEnt {nam=»K TABL«, typ=»E «, f00=0x464f, f01=0x5220, f02=0x4c4f, f03=0x4341}
0x191a20…1926c0 DirEnt {nam=»L CHAN«, typ=»NE«, f00=0x4c20, f01=0x4e4f, f02=0x2e20, f03=0x3420}
0x191a20…1926c0 DirEnt {nam=» P «, typ=» P«, f00=0x2a20, f01=0x0020, f02=0x0088, f03=0x0010}
0x191a20…1926c0 DirEnt {nam=» PCWTL«, typ=»T4«, f00=0x5c45, f01=0x5155, f02=0x5c2a, f03=0x0020}
0x191a20…1926c0 DirEnt {nam=» P«, typ=»* «, f00=0x0020, f01=0x00a6, f02=0x0012, f03=0x0050}
0x191a20…1926c0 DirEnt {nam=» IFT L«, typ=»OC«, f00=0x4841, f01=0x4e3d, f02=0x3420, f03=0x0020}
0x191a20…1926c0 DirEnt {nam=» P«, typ=»* «, f00=0x0020, f01=0x00c6, f02=0x0006, f03=0x0050}
0x191a20…1926c0 DirEnt {nam=»* «, typ=» «, f00=0x0050, f01=0x2a20, f02=0x0020, f03=0x00da}
0x191a20…1926c0 DirEnt {nam=» PDW«, typ=»A4«, f00=0x5c45, f01=0x5155, f02=0x5c2f, f03=0x3333}
0x191a20…1926c0 DirEnt {nam=» «, typ=» P«, f00=0x2a20, f01=0x0020, f02=0x00f8, f03=0x001c}
0x191a20…1926c0 DirEnt {nam=» P DAT«, typ=»A «, f00=0x305c, f01=0x4c41, f02=0x5354, f03=0x204f}
0x191a20…1926c0 DirEnt {nam=»UTPUT «, typ=»DW«, f00=0x5420, f01=0x0020, f02=0x0102, f03=0x001c}
0x191a20…1926c0 DirEnt {nam=» P DAT«, typ=»A «, f00=0x305c, f01=0x4c41, f02=0x5354, f03=0x204f}
0x191a20…1926c0 DirEnt {nam=»UTPUT «, typ=»WO«, f00=0x5244, f01=0x0020, f02=0x0122, f03=0x0020}
0x191a20…1926c0 DirEnt {nam=» P DAT«, typ=»A «, f00=0x494e, f01=0x544c, f02=0x5434, f03=0x5c49}
0x191a20…1926c0 DirEnt {nam=»NTERRU«, typ=»PT«, f00=0x2054, f01=0x4142, f02=0x4c45, f03=0x0020}
0x191a20…1926c0 DirEnt {nam=» B P«, typ=» I«, f00=0x4e52, f01=0x5c41, f02=0x322c, f03=0x302c}
0x191a20…1926c0 DirEnt {nam=»DWA4 I«, typ=»NR«, f00=0x0020, f01=0x0166, f02=0x0016, f03=0x0050}
0x191a20…1926c0 DirEnt {nam=» OTR A«, typ=»2,«, f00=0x302c, f01=0x4457, f02=0x4134, f03=0x5c4f}
0x191a20…1926c0 DirEnt {nam=»TR «, typ=» «, f00=0x0050, f01=0x5c43, f02=0x494f, f03=0x5c41}
0x191a20…1926c0 DirEnt {nam=»2,1,DW«, typ=»A4«, f00=0x5c43, f01=0x494f, f02=0x2d53, f03=0x5441}
0x191a20…1926c0 DirEnt {nam=»RT ! «, typ=» "«, f00=0x0050, f01=0x5c44, f02=0x4154, f03=0x415c}
0x191a20…1926c0 DirEnt {nam=»0 RETR«, typ=»AN«, f00=0x534d, f01=0x4953, f02=0x5349, f03=0x4f4e}
0x191a20…1926c0 DirEnt {nam=» COUNT«, typ=»ER«, f00=0x0021, f01=0x002a, f02=0x0012, f03=0x0050}
0x191a20…1926c0 DirEnt {nam=» DATA «, typ=»0 «, f00=0x5155, f01=0x4555, f02=0x4520, f03=0x0021}
0x191a20…1926c0 DirEnt {nam=» P P«, typ=» D«, f00=0x4154, f01=0x415c, f02=0x305c, f03=0x5345}
0x191a20…1926c0 DirEnt {nam=»COND Q«, typ=»UE«, f00=0x5545, f01=0x0021, f02=0x0066, f03=0x0006}
0x191a20…1926c0 DirEnt {nam=» P* !«, typ=» «, f00=0x0012, f01=0x0050, f02=0x5c49, f03=0x4654}
0x191a20…1926c0 DirEnt {nam=» ACKMU«, typ=»L=«, f00=0x3120, f01=0x0021, f02=0x008c, f03=0x0006}
0x191a20…1926c0 DirEnt {nam=» P* !«, typ=» «, f00=0x001c, f01=0x0050, f02=0x5c44, f03=0x4154}
0x191a20…1926c0 DirEnt {nam=»A 0 NA«, typ=»K-«, f00=0x4143, f01=0x4b55, f02=0x4d55, f03=0x4c41}
0x191a20…1926c0 DirEnt {nam=»TOR !«, typ=» «, f00=0x0024, f01=0x0050, f02=0x5c44, f03=0x4154}
0x191a20…1926c0 DirEnt {nam=»A 0 RE«, typ=»TR«, f00=0x2e20, f01=0x4641, f02=0x554c, f03=0x542d}
0x191a20…1926c0 DirEnt {nam=»ACKUMU«, typ=»LA«, f00=0x544f, f01=0x5220, f02=0x0021, f03=0x00cc}
0x191a20…1926c0 DirEnt {nam=» , P D«, typ=»AT«, f00=0x415c, f01=0x305c, f02=0x554e, f03=0x4445}
0x191a20…1926c0 DirEnt {nam=»FINED-«, typ=» I«, f00=0x4e54, f01=0x4552, f02=0x5255, f03=0x5054}
0x191a20…1926c0 DirEnt {nam=»-ACKUM«, typ=»UL«, f00=0x4154, f01=0x4f52, f02=0x0021, f03=0x00f4}
0x191a20…1926c0 DirEnt {nam=» ( P D«, typ=»AT«, f00=0x415c, f01=0x305c, f02=0x5052, f03=0x494e}
0x191a20…1926c0 DirEnt {nam=»TER TI«, typ=»ME«, f00=0x4f55, f01=0x5420, f02=0x4143, f03=0x4b55}
0x191a20…1926c0 DirEnt {nam=»MULATO«, typ=»R «, f00=0x0021, f01=0x0124, f02=0x0006, f03=0x0050}
0x191a20…1926c0 DirEnt {nam=»* ! P«, typ=» «, f00=0x0050, f01=0x5c58, f02=0x4946, f03=0x0021}
0x191a20…1926c0 DirEnt {nam=» Z P«, typ=»* «, f00=0x0021, f01=0x0166, f02=0x000a, f03=0x0050}
0x191a20…1926c0 DirEnt {nam=» EJECT«, typ=» !«, f00=0x0170, f01=0x0024, f02=0x0050, f03=0x2a2a}
0x191a20…1926c0 DirEnt {nam=»******«, typ=»**«, f00=0x2a2a, f01=0x2a2a, f02=0x2a2a, f03=0x2a2a}
0x191a20…1926c0 DirEnt {nam=»******«, typ=»**«, f00=0x2a2a, f01=0x2a2a, f02=0x2a20, f03=0x0021}
0x191a20…1926c0 DirEnt {nam=» ~ $ P«, typ=»* «, f00=0x2020, f01=0x2043, f02=0x2057, f03=0x2054}
0x191a20…1926c0 DirEnt {nam=» R T 1«, typ=» «, f00=0x2020, f01=0x2020, f02=0x2020, f03=0x2020}
0x191a20…1926c0 DirEnt {nam=» * «, typ=» "«, f00=0x0016, f01=0x0024, f02=0x0050, f03=0x2a2a}
0x191a20…1926c0 DirEnt {nam=»******«, typ=»**«, f00=0x2a2a, f01=0x2a2a, f02=0x2a2a, f03=0x2a2a}
0x191a20…1926c0 DirEnt {nam=»******«, typ=»**«, f00=0x2a2a, f01=0x2a2a, f02=0x2a20, f03=0x0022}
0x191a20…1926c0 DirEnt {nam=» > 4 P«, typ=»* «, f00=0x2020, f01=0x2043, f02=0x4f4e, f03=0x5452}
0x191a20…1926c0 DirEnt {nam=»OL WOR«, typ=»K «, f00=0x5441, f01=0x424c, f02=0x4520, f03=0x464f}
0x191a20…1926c0 DirEnt {nam=»R REMO«, typ=»TE«, f00=0x2043, f01=0x4841, f02=0x4e4e, f03=0x454c}
0x191a20…1926c0 DirEnt {nam=» NO. 1«, typ=» "«, f00=0x0066, f01=0x0020, f02=0x0050, f03=0x2a20}
0x191a20…1926c0 DirEnt {nam=» CON«, typ=»NE«, f00=0x4354, f01=0x4544, f02=0x2054, f03=0x4f20}
0x191a20…1926c0 DirEnt {nam=»FIRST «, typ=»CH«, f00=0x5254, f01=0x0022, f02=0x009e, f03=0x0006}
0x191a20…1926c0 DirEnt {nam=» P* "«, typ=» «, f00=0x001e, f01=0x0050, f02=0x4457, f03=0x4135}
0x191a20…1926c0 DirEnt {nam=» EQU /«, typ=»1 «, f00=0x4445, f01=0x5649, f02=0x4345, f03=0x2041}
0x191a20…1926c0 DirEnt {nam=»DDRESS«, typ=» "«, f00=0x00cc, f01=0x0010, f02=0x0050, f03=0x4357}
0x191a20…1926c0 DirEnt {nam=»TRT1 E«, typ=»QU«, f00=0x5c2a, f01=0x0022, f02=0x00ee, f03=0x001c}
0x191a20…1926c0 DirEnt {nam=» P DAT«, typ=»A «, f00=0x305c, f01=0x4c41, f02=0x5354, f03=0x204f}
0x191a20…1926c0 DirEnt {nam=»UTPUT «, typ=»DW«, f00=0x5420, f01=0x0022, f02=0x0102, f03=0x001c}
0x191a20…1926c0 DirEnt {nam=» P DAT«, typ=»A «, f00=0x305c, f01=0x4c41, f02=0x5354, f03=0x204f}
0x191a20…1926c0 DirEnt {nam=»UTPUT «, typ=»WO«, f00=0x5244, f01=0x0022, f02=0x0122, f03=0x0020}
0x191a20…1926c0 DirEnt {nam=» P DAT«, typ=»A «, f00=0x494e, f01=0x5452, f02=0x5431, f03=0x5c49}
0x191a20…1926c0 DirEnt {nam=»NTERRU«, typ=»PT«, f00=0x2054, f01=0x4142, f02=0x4c45, f03=0x0022}
0x191a20…1926c0 DirEnt {nam=» B P«, typ=» I«, f00=0x4e52, f01=0x5c41, f02=0x322c, f03=0x302c}
0x191a20…1926c0 DirEnt {nam=»DWA5 I«, typ=»NR«, f00=0x0022, f01=0x0166, f02=0x0016, f03=0x0050}
0x191a20…1926c0 DirEnt {nam=» OTR A«, typ=»2,«, f00=0x302c, f01=0x4457, f02=0x4135, f03=0x5c4f}
0x191a20…1926c0 DirEnt {nam=»TR " «, typ=» «, f00=0x0050, f01=0x5c43, f02=0x494f, f03=0x5c41}
0x191a20…1926c0 DirEnt {nam=»2,1,DW«, typ=»A5«, f00=0x5c43, f01=0x494f, f02=0x2d53, f03=0x5441}
0x191a20…1926c0 DirEnt {nam=»RT # «, typ=» "«, f00=0x0050, f01=0x5c44, f02=0x4154, f03=0x415c}
0x191a20…1926c0 DirEnt {nam=»0 RETR«, typ=»AN«, f00=0x534d, f01=0x4953, f02=0x5349, f03=0x4f4e}
0x191a20…1926c0 DirEnt {nam=» COUNT«, typ=»ER«, f00=0x0023, f01=0x002a, f02=0x001c, f03=0x0050}
0x191a20…1926c0 DirEnt {nam=» DATA «, typ=»0 «, f00=0x5155, f01=0x4555, f02=0x4520, f03=0x5445}
0x191a20…1926c0 DirEnt {nam=»RMINAL«, typ=» 1«, f00=0x0023, f01=0x0050, f02=0x001c, f03=0x0050}
0x191a20…1926c0 DirEnt {nam=» DATA «, typ=»0 «, f00=0x5155, f01=0x4555, f02=0x4520, f03=0x5445}
0x191a20…1926c0 DirEnt {nam=»RMINAL«, typ=» 2«, f00=0x0023, f01=0x0070, f02=0x0006, f03=0x0050}
0x191a20…1926c0 DirEnt {nam=»* # «, typ=» «, f00=0x0050, f01=0x5c49, f02=0x4654, f03=0x5c41}
0x191a20…1926c0 DirEnt {nam=»CKMUL=«, typ=»1 «, f00=0x0023, f01=0x009a, f02=0x0006, f03=0x0050}
0x191a20…1926c0 DirEnt {nam=»* # «, typ=» «, f00=0x0050, f01=0x5c44, f02=0x4154, f03=0x415c}
0x191a20…1926c0 DirEnt {nam=»0 NAK-«, typ=»AC«, f00=0x4b55, f01=0x4d55, f02=0x4c41, f03=0x544f}
0x191a20…1926c0 DirEnt {nam=»R # «, typ=» $«, f00=0x0050, f01=0x5c44, f02=0x4154, f03=0x415c}
0x191a20…1926c0 DirEnt {nam=»0 BLOC«, typ=»K «, f00=0x4552, f01=0x524f, f02=0x5220, f03=0x4143}
0x191a20…1926c0 DirEnt {nam=»KUMULA«, typ=»TO«, f00=0x5220, f01=0x0023, f02=0x00da, f03=0x002c}
0x191a20…1926c0 DirEnt {nam=» P DAT«, typ=»A «, f00=0x305c, f01=0x554e, f02=0x4445, f03=0x4649}
0x191a20…1926c0 DirEnt {nam=»NED-IN«, typ=»TE«, f00=0x5252, f01=0x5550, f02=0x542d, f03=0x4143}
0x191a20…1926c0 DirEnt {nam=»KUMULA«, typ=»TO«, f00=0x5220, f01=0x0023, f02=0x0102, f03=0x0028}
0x191a20…1926c0 DirEnt {nam=» P DAT«, typ=»A «, f00=0x305c, f01=0x5052, f02=0x494e, f03=0x5445}
0x191a20…1926c0 DirEnt {nam=»R TIME«, typ=»OU«, f00=0x5420, f01=0x4143, f02=0x4b55, f03=0x4d55}
0x191a20…1926c0 DirEnt {nam=»LATOR «, typ=» #«, f00=0x0132, f01=0x0006, f02=0x0050, f03=0x2a20}
0x191a20…1926c0 DirEnt {nam=» # ^ «, typ=» P«, f00=0x5c58, f01=0x4946, f02=0x0023, f03=0x0168}
0x191a20…1926c0 DirEnt {nam=» P* «, typ=» #«, f00=0x0174, f01=0x0016, f02=0x0050, f03=0x4357}
0x191a20…1926c0 DirEnt {nam=»TTP EQ«, typ=»U «, f00=0x2a2d, f01=0x4357, f02=0x5452, f03=0x5431}
0x191a20…1926c0 DirEnt {nam=» # ~ «, typ=» P«, f00=0x5c44, f01=0x4154, f02=0x415c, f03=0x305c}
0x191a20…1926c0 DirEnt {nam=»TIMER «, typ=»PO«, f00=0x494e, f01=0x5445, f02=0x5220, f03=0x0024}
0x191a20…1926c0 DirEnt {nam=» P«, typ=»CW«, f00=0x5359, f01=0x4e43, f02=0x5c45, f03=0x5155}
0x191a20…1926c0 DirEnt {nam=» *-CWT«, typ=»RT«, f00=0x3120, f01=0x0024, f02=0x0026, f03=0x001e}
0x191a20…1926c0 DirEnt {nam=» P DAT«, typ=»A «, f00=0x2f37, f01=0x3035, f02=0x355c, f03=0x5359}
0x191a20…1926c0 DirEnt {nam=»NC CHA«, typ=»RA«, f00=0x4354, f01=0x4552, f02=0x0024, f03=0x0042}
0x191a20…1926c0 DirEnt {nam=» PLR«, typ=»CD«, f00=0x5754, f01=0x5c45, f02=0x5155, f03=0x5c2a}
0x191a20…1926c0 DirEnt {nam=»-CWTRT«, typ=»1 «, f00=0x0024, f01=0x0064, f02=0x0030, f03=0x0050}
0x191a20…1926c0 DirEnt {nam=» DATA «, typ=»0 «, f00=0x4457, f01=0x5420, f02=0x4f46, f03=0x2047}
0x191a20…1926c0 DirEnt {nam=»OING L«, typ=»RC«, f00=0x2d50, f01=0x524f, f02=0x4345, f03=0x5353}
0x191a20…1926c0 DirEnt {nam=» TERMI«, typ=»NA«, f00=0x4c20, f01=0x3120, f02=0x0024, f03=0x0080}
0x191a20…1926c0 DirEnt {nam=» 0 P D«, typ=»AT«, f00=0x415c, f01=0x305c, f02=0x4457, f03=0x5420}
0x191a20…1926c0 DirEnt {nam=»OF GOI«, typ=»NG«, f00=0x204c, f01=0x5243, f02=0x2d50, f03=0x524f}
0x191a20…1926c0 DirEnt {nam=»CESS T«, typ=»ER«, f00=0x4d49, f01=0x4e41, f02=0x4c20, f03=0x3220}
0x191a20…1926c0 DirEnt {nam=» $ «, typ=» P«, f00=0x4c52, f01=0x4341, f02=0x434b, f03=0x5c45}
0x191a20…1926c0 DirEnt {nam=»QU *-C«, typ=»WT«, f00=0x5254, f01=0x3120, f02=0x0024, f03=0x00e8}
0x191a20…1926c0 DirEnt {nam=» & P D«, typ=»AT«, f00=0x415c, f01=0x305c, f02=0x4c52, f03=0x432d}
0x191a20…1926c0 DirEnt {nam=»ACKUMU«, typ=»LA«, f00=0x544f, f01=0x5220, f02=0x5445, f03=0x524d}
0x191a20…1926c0 DirEnt {nam=»INAL 1«, typ=» $«, f00=0x0104, f01=0x0026, f02=0x0050, f03=0x5c44}
0x191a20…1926c0 DirEnt {nam=»ATA 0 «, typ=»LR«, f00=0x432d, f01=0x4143, f02=0x4b55, f03=0x4d55}
0x191a20…1926c0 DirEnt {nam=»LATOR «, typ=»TE«, f00=0x524d, f01=0x494e, f02=0x414c, f03=0x2032}
0x191a20…1926c0 DirEnt {nam=» $ . «, typ=» P«, f00=0x4357, f01=0x5452, f02=0x5354, f03=0x5c45}
0x191a20…1926c0 DirEnt {nam=»QU *-C«, typ=»WT«, f00=0x5254, f01=0x3120, f02=0x0024, f03=0x0158}
0x191a20…1926c0 DirEnt {nam=» , P D«, typ=»AT«, f00=0x415c, f01=0x305c, f02=0x4348, f03=0x414e}
0x191a20…1926c0 DirEnt {nam=»NEL ST«, typ=»AT«, f00=0x5553, f01=0x2057, f02=0x4f52, f03=0x4420}
0x191a20…1926c0 DirEnt {nam=»(LOOP-«, typ=»TE«, f00=0x5354, f01=0x5329, f02=0x0024, f03=0x0174}
0x191a20…1926c0 DirEnt {nam=» 0 PCW«, typ=»TB«, f00=0x4c4b, f01=0x5c45, f02=0x5155, f03=0x5c2a}
0x191a20…1926c0 DirEnt {nam=»-CWTRT«, typ=»1 «, f00=0x424c, f01=0x4f43, f02=0x4b20, f03=0x5345}
0x191a20…1926c0 DirEnt {nam=»NDING «, typ=»IN«, f00=0x4449, f01=0x4341, f02=0x544f, f03=0x5220}
0x191a20…1926c0 DirEnt {nam=» % («, typ=» P«, f00=0x5c44, f01=0x4154, f02=0x415c, f03=0x305c}
0x191a20…1926c0 DirEnt {nam=»BIT 0«, typ=»: «, f00=0x424c, f01=0x4f43, f02=0x4b53, f03=0x454e}
0x191a20…1926c0 DirEnt {nam=»DING R«, typ=»UN«, f00=0x4e49, f01=0x4e47, f02=0x0025, f03=0x0048}
0x191a20…1926c0 DirEnt {nam=» $ P «, typ=» B«, f00=0x4954, f01=0x2031, f02=0x353a, f03=0x2042}
0x191a20…1926c0 DirEnt {nam=»LOCKSE«, typ=»ND«, f00=0x494e, f01=0x4720, f02=0x414c, f03=0x4c4f}
0x191a20…1926c0 DirEnt {nam=»WED %«, typ=» t«, f00=0x000a, f01=0x0050, f02=0x5c45, f03=0x4a45}
0x191a20…1926c0 DirEnt {nam=»CT % «, typ=» $«, f00=0x0050, f01=0x2a2a, f02=0x2a2a, f03=0x2a2a}
0x191a20…1926c0 DirEnt {nam=»******«, typ=»**«, f00=0x2a2a, f01=0x2a2a, f02=0x2a2a, f03=0x2a2a}
0x191a20…1926c0 DirEnt {nam=»******«, typ=»**«, f00=0x2a2a, f01=0x0025, f02=0x00aa, f03=0x0024}
0x191a20…1926c0 DirEnt {nam=» P* «, typ=» C«, f00=0x2057, f01=0x2054, f02=0x2052, f03=0x2054}
0x191a20…1926c0 DirEnt {nam=» 2 «, typ=» «, f00=0x2020, f01=0x2020, f02=0x2020, f03=0x2020}
0x191a20…1926c0 DirEnt {nam=» * % «, typ=» $«, f00=0x0050, f01=0x2a2a, f02=0x2a2a, f03=0x2a2a}
0x191a20…1926c0 DirEnt {nam=»******«, typ=»**«, f00=0x2a2a, f01=0x2a2a, f02=0x2a2a, f03=0x2a2a}
0x191a20…1926c0 DirEnt {nam=»******«, typ=»**«, f00=0x2a2a, f01=0x0025, f02=0x00fa, f03=0x003a}
0x191a20…1926c0 DirEnt {nam=» P* «, typ=» C«, f00=0x4841, f01=0x4e4e, f02=0x454c, f03=0x2055}
0x191a20…1926c0 DirEnt {nam=»NIT WO«, typ=»RK«, f00=0x2054, f01=0x4142, f02=0x4c45, f03=0x2046}
0x191a20…1926c0 DirEnt {nam=»OR REM«, typ=»OT«, f00=0x4520, f01=0x4348, f02=0x414e, f03=0x4e45}
0x191a20…1926c0 DirEnt {nam=»L NO. «, typ=»2 «, f00=0x0025, f01=0x0122, f02=0x0020, f03=0x0050}
0x191a20…1926c0 DirEnt {nam=»* C«, typ=»ON«, f00=0x4e45, f01=0x4354, f02=0x4544, f03=0x2054}
0x191a20…1926c0 DirEnt {nam=»O FIRS«, typ=»T «, f00=0x4348, f01=0x5254, f02=0x0025, f03=0x0160}
0x191a20…1926c0 DirEnt {nam=» P* «, typ=» %«, f00=0x0184, f01=0x0010, f02=0x0050, f03=0x4357}
0x191a20…1926c0 }
0x1926c0…248b20 (1, 1) [
0x1926c0…248b20 [0x000]: Pad {f00=0x00d5, f01=0x0190, f02=»TRT2 EQU * % P DATA 0 LAST OUTPUT DWT & P DATA 0 LAST OUTPUT WORD & 2 P & R P DATA INTRT1 INTERRUPT TABLE & Z P INR A2,0,DWA5 INR & ~ P OTR A2,1,DWA5 OTR & P CIO A2,1,DWA5 CIO-START & " P DATA 0 RETRANSMISSION COUNTER & P DATA 0 QUEUE TERM
0x1926c0…248b20 [0x001]: Pad {f00=0x00d5, f01=0x018e, f02=»ERROR ACKUMULATOR & , P DATA 0 UNDEFINED-INTERRUPT-ACKUMULATOR ' ( P DATA 0 PRINTER TIMEOUT ACKUMULATOR ' J P* ' v P XIF ' P* ' P DATA 0 TIMER POINTER ' P DATA /7255 SYNC-CHARACTER ' 0 P DATA 0 DWT OF GOING LRC-PROCESS TERMINAL 1 ' 0 P
0x1926c0…248b20 [0x002]: Pad {f00=0x00d5, f01=0x0190, f02=» , P DATA 0 CHANNEL STATUS WORD (LOOP-TESTS) ( $ P DATA 0 BLOCK SENDING INDICATOR ( 4 P EJECT ( $ P******************************** ( j $ P* C W T R T 3 * ( $ P******************************** ( P* ( : P* CHANNEL UNIT WORK TABLE F
0x1926c0…248b20 [0x003]: Pad {f00=0x00d5, f01=0x0190, f02=» ( PDWA6 EQU /11 DEVICE ADDRESS ) P* ) , P DATA 0 LAST OUTPUT DWT ) 6 P DATA 0 LAST OUTPUT WORD ) V P DATA INTRT2 INTERRUPT TABLE ) v P INR A2,0,DWA6 INR ) P OTR A2,0,DWA6 OTR ) P CIO A2,1,DWA6 CIO-START ) " P DATA 0 RETRANSMISSION COUNT
0x1926c0…248b20 [0x004]: Pad {f00=0x00d5, f01=0x0190, f02=» $ P DATA 0 BLOCK ERROR ACKUMULATOR * , P DATA 0 UNDEFINED-INTERRUPT-ACKUMULATOR * , ( P DATA 0 PRINTER TIMEOUT ACKUMULATOR * P* * P XIF * P IFT RECHAN=3 * PDWA6 EQU /11 DEVICE ADDRESS * P* * P DATA 0 LAST OUTPUT DWT * P DATA 0
0x1926c0…248b20 [0x005]: Pad {f00=0x00d5, f01=0x0190, f02=»RT * z " P DATA 0 RETRANSMISSION COUNTER + P DATA 0 QUEUE TERMINAL 1 + 0 P DATA 0 QUEUE TERMINAL 2 + P P* + p P IFT ACKMUL=1 + z P DATA 0 NAK-ACKUMULATOR + $ P DATA 0 BLOCK ERROR ACKUMULATOR + , P DATA 0 UNDEFINED-INTERRUPT-ACKUMULATOR + ( P D
0x1926c0…248b20 [0x006]: Pad {f00=0x00d5, f01=0x0190, f02=»ATA 0 LAST OUTPUT DWT + P DATA 0 LAST OUTPUT WORD , P DATA INTRT2 INTERRUPT TABLE , > P INR A2,0,DWA6 INR , b P OTR A2,0,DWA6 OTR , | P CIO A2,1,DWA6 CIO-START , " P DATA 0 RETRANSMISSION COUNTER , P DATA 0 QUEUE TERMINAL 1 , P DATA 0 QUEUE
0x1926c0…248b20 [0x007]: Pad {f00=0x00d5, f01=0x0190, f02=»FINED-INTERRUPT-ACKUMULATOR , ( P DATA 0 PRINTER TIMEOUT ACKUMULATOR - $ P* - P P XIF - Z P IFT RECHAN=2 - f P DATA 0 TIMER POINTER - | P DATA /7055 SYNC-CHARACTER - 0 P DATA 0 DWT OF GOING LRC-PROCESS TERMINAL 1 - 0 P DATA 0 DWT OF GOING LRC-P
0x1926c0…248b20 [0x008]: Pad {f00=0x00d5, f01=0x0190, f02=»ORD (LOOP-TESTS) - x $ P DATA 0 BLOCK SENDING INDICATOR . P XIF . @ P IFT RECHAN=3 . L P DATA 0 TIMER POINTER . b P DATA /7055 SYNC-CHARACTER . 0 P DATA 0 DWT OF GOING LRC-PROCESS TERMINAL 1 . 0 P DATA 0 DWT OF GOING LRC-PROCESS TERMINAL 2 . & P
0x1926c0…248b20 [0x009]: Pad {f00=0x00d5, f01=0x0190, f02=»ATA 0 BLOCK SENDING INDICATOR . P XIF / & P IFT RECHAN=4 / 2 P DATA 0 TIMER POINTER / H P DATA /7055 SYNC-CHARACTER / f 0 P DATA 0 DWT OF GOING LRC-PROCESS TERMINAL 1 / 0 P DATA 0 DWT OF GOING LRC-PROCESS TERMINAL 2 / & P DATA 0 LRC-ACKUMULATOR TE
0x1926c0…248b20 [0x00a]: Pad {f00=0x00d5, f01=0x0190, f02=»TOR / t P XIF 0 P EJECT 0 $ P******************************** 0 & $ P* C W T R T 4 * 0 N $ P******************************** 0 v P* 0 : P* CHANNEL UNIT WORK TABLE FOR REMOTE CHANNEL NO. 2 0 " P* CONNECTED TO SECOND CHRT 0
0x1926c0…248b20 [0x00b]: Pad {f00=0x00d5, f01=0x0190, f02=»INTRT2 INTERRUPT TABLE 0 P INR A2,0,DWA6 INR 1 P OTR A2,1,DWA6 OTR 1 8 P CIO A2,1,DWA6 CIO-START 1 R " P DATA 0 RETRANSMISSION COUNTER 1 r P DATA 0 QUEUE TERMINAL 1 1 P DATA 0 QUEUE TERMINAL 2 1 P* 1 P IFT ACKMUL=1 1 P DATA 0 NAK-ACKUMU
0x1926c0…248b20 [0x00c]: Pad {f00=0x00d5, f01=0x0190, f02=»TOR 1 p P XIF 2 P IFT RECHAN=3 2 P DATA 0 LAST OUTPUT DWT 2 . P DATA 0 LAST OUTPUT WORD 2 N P DATA INTRT2 INTERRUPT TABLE 2 n P INR A2,0,DWA6 INR 2 P OTR A2,1,DWA6 OTR 2 P CIO A2,1,DWA6 CIO-START 2 " P DATA 0 RETRANSMISSION COUNTER 2
0x1926c0…248b20 [0x00d]: Pad {f00=0x00d5, f01=0x0190, f02=»A 0 BLOCK ERROR ACKUMULATOR 2 , P DATA 0 UNDEFINED-INTERRUPT-ACKUMULATOR 3 $ ( P DATA 0 PRINTER TIMEOUT ACKUMULATOR 3 T P XIF 3 P IFT RECHAN=4 3 P DATA 0 LAST OUTPUT DWT 3 P DATA 0 LAST OUTPUT WORD 3 P DATA INTRT2 INTERRUPT TABLE 3 P INR
0x1926c0…248b20 [0x00e]: Pad {f00=0x00d5, f01=0x0190, f02=»RMINAL 1 3 P DATA 0 QUEUE TERMINAL 2 4 P* 4 0 P IFT ACKMUL=1 4 : P DATA 0 NAK-ACKUMULATOR 4 P $ P DATA 0 BLOCK ERROR ACKUMULATOR 4 p , P DATA 0 UNDEFINED-INTERRUPT-ACKUMULATOR 4 ( P DATA 0 PRINTER TIMEOUT ACKUMULATOR 4 P XIF 4 P IFT RECHA
0x1926c0…248b20 [0x00f]: Pad {f00=0x00d5, f01=0x0190, f02=» 0 P DATA 0 DWT OF GOING LRC-PROCESS TERMINAL 2 5 & P DATA 0 LRC-ACKUMULATOR TERMINAL 1 5 8 & P DATA 0 LRC-ACKUMULATOR TERMINAL 2 5 b , P DATA 0 CHANNEL STATUS WORD (LOOP-TESTS) 5 $ P DATA 0 BLOCK SENDING INDICATOR 5 P* 5 P XIF 5 P* 5 P IFT R
0x1926c0…248b20 [0x010]: Pad {f00=0x00d6, f01=0x0190, f02=»ATA 0 DWT OF GOING LRC-PROCESS TERMINAL 2 5 & P DATA 0 LRC-ACKUMULATOR TERMINAL 1 6 2 & P DATA 0 LRC-ACKUMULATOR TERMINAL 2 6 , P DATA 0 CHANNEL STATUS WORD (LOOP-TESTS) 6 $ P DATA 0 BLOCK SENDING INDICATOR 6 P* 6 P XIF 6 P* 6 P IFT RECHAN=
0x1926c0…248b20 [0x011]: Pad {f00=0x00d6, f01=0x0190, f02=»DWT OF GOING LRC-PROCESS TERMINAL 2 6 & P DATA 0 LRC-ACKUMULATOR TERMINAL 1 7 , & P DATA 0 LRC-ACKUMULATOR TERMINAL 2 7 V , P DATA 0 CHANNEL STATUS WORD (LOOP-TESTS) 7 $ P DATA 0 BLOCK SENDING INDICATOR 7 P* 7 P XIF 7 P* 7 P EJECT 7 $ P****
0x1926c0…248b20 [0x012]: Pad {f00=0x00d6, f01=0x0190, f02=»NNEL UNIT WORK TABLE FOR REMOTE CHANNEL NO. 1 7 P* CONNECTED TO THIRD CHRT 8 6 P 8 Z P* 8 b PCWTRT5 EQU * 8 l P* 8 P IFT RECHAN=3 8 P* 8 PDWA7 EQU /21 DEVICE ADDRESS 8 P* 8 P DATA 0 LAST OUTPUT DWT 8 P DATA 0 LAST OUTPU
0x1926c0…248b20 [0x013]: Pad {f00=0x00d6, f01=0x0190, f02=» DATA 0 RETRANSMISSION COUNTER 8 P DATA 0 QUEUE TERMINAL 1 9 & P DATA 0 QUEUE TERMINAL 2 9 F P* 9 f P IFT ACKMUL=1 9 p P DATA 0 NAK-ACKUMULATOR 9 $ P DATA 0 BLOCK ERROR ACKUMULATOR 9 , P DATA 0 UNDEFINED-INTERRUPT-ACKUMULATOR 9 ( P DATA 0 PRIN
0x1926c0…248b20 [0x014]: Pad {f00=0x00d6, f01=0x0190, f02=»ATA 0 LAST OUTPUT DWT 9 P DATA 0 LAST OUTPUT WORD : P DATA INTRT3 INTERRUPT TABLE : > P INR A2,0,DWA7 INR : b P OTR A2,0,DWA7 OTR : | P CIO A2,1,DWA7 CIO-START : " P DATA 0 RETRANSMISSION COUNTER : P DATA 0 QUEUE TERMINAL 1 : P DATA 0 QUEUE
0x1926c0…248b20 [0x015]: Pad {f00=0x00d6, f01=0x0190, f02=»FINED-INTERRUPT-ACKUMULATOR : ( P DATA 0 PRINTER TIMEOUT ACKUMULATOR ; $ P* ; P P XIF ; Z P IFT RECHAN=3 ; f P DATA 0 TIMER POINTER ; | P DATA /7055 SYNC-CHARACTER ; 0 P DATA 0 DWT OF GOING LRC-PROCESS TERMINAL 1 ; 0 P DATA 0 DWT OF GOING LRC-P
0x1926c0…248b20 [0x016]: Pad {f00=0x00d6, f01=0x0190, f02=»ORD (LOOP-TESTS) ; x $ P DATA 0 BLOCK SENDING INDICATOR < P XIF < @ P IFT RECHAN=4 < L P DATA 0 TIMER POINTER < b P DATA /7055 SYNC-CHARACTER < 0 P DATA 0 DWT OF GOING LRC-PROCESS TERMINAL 1 < 0 P DATA 0 DWT OF GOING LRC-PROCESS TERMINAL 2 < & P
0x1926c0…248b20 [0x017]: Pad {f00=0x00d6, f01=0x0190, f02=»ATA 0 BLOCK SENDING INDICATOR < P XIF = & P EJECT = 2 $ P******************************** = @ $ P* C W T R T 6 * = h $ P******************************** = P* = : P* CHANNEL UNIT WORK TABLE FOR REMOTE CHANNEL NO. 2 = P* CONNE
0x1926c0…248b20 [0x018]: Pad {f00=0x00d6, f01=0x0190, f02=»UTPUT WORD = P DATA INTRT3 INTERRUPT TABLE > P INR A2,0,DWA7 INR > 6 P OTR A2,1,DWA7 OTR > P P CIO A2,1,DWA7 CIO-START > j " P DATA 0 RETRANSMISSION COUNTER > P DATA 0 QUEUE TERMINAL 1 > P DATA 0 QUEUE TERMINAL 2 > P* > P IFT ACKMUL=1 >
0x1926c0…248b20 [0x019]: Pad {f00=0x00d6, f01=0x0190, f02=»PRINTER TIMEOUT ACKUMULATOR > P XIF ? $ P IFT RECHAN=4 ? 0 P DATA 0 LAST OUTPUT DWT ? F P DATA 0 LAST OUTPUT WORD ? f P DATA INTRT3 INTERRUPT TABLE ? P INR A2,0,DWA7 INR ? P OTR A2,1,DWA7 OTR ? P CIO A2,1,DWA7 CIO-START ? " P DATA 0 RETR
0x1926c0…248b20 [0x01a]: Pad {f00=0x00d6, f01=0x018e, f02=»ACKUMULATOR ? $ P DATA 0 BLOCK ERROR ACKUMULATOR @ , P DATA 0 UNDEFINED-INTERRUPT-ACKUMULATOR @ < ( P DATA 0 PRINTER TIMEOUT ACKUMULATOR @ l P XIF @ P* @ P IFT RECHAN=3 @ P DATA 0 TIMER POINTER @ P DATA /7255 SYNC-CHARACTER @ 0 P DATA
0x1926c0…248b20 [0x01b]: Pad {f00=0x00d6, f01=0x0190, f02=» @ l & P DATA 0 LRC-ACKUMULATOR TERMINAL 2 A , P DATA 0 CHANNEL STATUS WORD (LOOP-TESTS) A 2 $ P DATA 0 BLOCK SENDING INDICATOR A b P* A P XIF A P* A P IFT RECHAN=4 A P* A P DATA 0 TIMER POINTER A P DATA /7255 SYNC-CHARACTER A 0 P
0x1926c0…248b20 [0x01c]: Pad {f00=0x00d6, f01=0x0190, f02=»AL 1 A r & P DATA 0 LRC-ACKUMULATOR TERMINAL 2 B , P DATA 0 CHANNEL STATUS WORD (LOOP-TESTS) B 6 $ P DATA 0 BLOCK SENDING INDICATOR B f P* B P XIF B P* B P EJECT B $ P******************************** B $ P* C W T R T 7 * B $
0x1926c0…248b20 [0x01d]: Pad {f00=0x00d6, f01=0x0190, f02=»URTH CHRT B | P* C PCWTRT7 EQU * C P* C 0 P IFT RECHAN=4 C : P* C P PDWA8 EQU /31 DEVICE ADDRESS C Z P* C ~ P DATA 0 LAST OUTPUT DWT C P DATA 0 LAST OUTPUT WORD C P DATA INTRT4 INTERRUPT TABLE C P INR A2,0,DWA8 INR C P OTR
0x1926c0…248b20 [0x01e]: Pad {f00=0x00d6, f01=0x0190, f02=»EUE TERMINAL 2 C P* D P IFT ACKMUL=1 D P DATA 0 NAK-ACKUMULATOR D 6 $ P DATA 0 BLOCK ERROR ACKUMULATOR D V , P DATA 0 UNDEFINED-INTERRUPT-ACKUMULATOR D ~ ( P DATA 0 PRINTER TIMEOUT ACKUMULATOR D P* D P XIF D P IFT RECHAN=4 D P DAT
0x1926c0…248b20 [0x01f]: Pad {f00=0x00d6, f01=0x0190, f02=»RC-PROCESS TERMINAL 2 D z & P DATA 0 LRC-ACKUMULATOR TERMINAL 1 E & P DATA 0 LRC-ACKUMULATOR TERMINAL 2 E H , P DATA 0 CHANNEL STATUS WORD (LOOP-TESTS) E r $ P DATA 0 BLOCK SENDING INDICATOR E P XIF E P EJECT E $ P******************************** E $
0x1926c0…248b20 [0x020]: Pad {f00=0x00d6, f01=0x018e, f02=»ANNEL NO. 2 E f " P* CONNECTED TO FOURTH CHRT F P* F : PCWTRT8 EQU * F D P* F X P IFT RECHAN=4 F b P DATA 0 LAST OUTPUT DWT F x P DATA 0 LAST OUTPUT WORD F P DATA INTRT4 INTERRUPT TABLE F P INR A2,0,DWA8 INR F P OTR A2,1,DWA8 OTR F
0x1926c0…248b20 [0x021]: Pad {f00=0x00d6, f01=0x0190, f02=» F v P* G P IFT ACKMUL=1 G P DATA 0 NAK-ACKUMULATOR G ( $ P DATA 0 BLOCK ERROR ACKUMULATOR G H , P DATA 0 UNDEFINED-INTERRUPT-ACKUMULATOR G p ( P DATA 0 PRINTER TIMEOUT ACKUMULATOR G P XIF G P IFT RECHAN=4 G P* G P DATA 0 TIMER POIN
0x1926c0…248b20 [0x022]: Pad {f00=0x00d6, f01=0x0190, f02=»MINAL 2 G l & P DATA 0 LRC-ACKUMULATOR TERMINAL 1 H & P DATA 0 LRC-ACKUMULATOR TERMINAL 2 H : , P DATA 0 CHANNEL STATUS WORD (LOOP-TESTS) H d $ P DATA 0 BLOCK SENDING INDICATOR H P* H P XIF H P* H P EJECT H 6 P********************************
0x1926c0…248b20 [0x023]: Pad {f00=0x00d6, f01=0x0190, f02=» H ^ P* I 6 P* THIS TABLE HOLDS ADDRESSES OF CONTROLLER WORK I 8 P* TABLES CWT TO CHANNEL UNITS FOR LOCAL OR REMOTE I L P* TERMINALS. I P* I P* I P* I PCHTAB EQU * I P DATA CHTABE-* TABLE LENGTH I P IFT LOCHAN=1 I P
0x1926c0…248b20 [0x024]: Pad {f00=0x00d6, f01=0x0190, f02=» DATA CWTLT2 I P DATA 0 J P DATA 0 J $ P XIF J 4 P* J @ P IFT LOCHAN=3 J J P DATA CWTLT1 J ` P DATA CWTLT2 J t P DATA CWTLT3 J P DATA 0 J P XIF J P IFT LOCHAN=4 J P DATA CWTLT1 J P DATA CWTLT2 J P DATA CWTLT3 J P
0x1926c0…248b20 [0x025]: Pad {f00=0x00d6, f01=0x0190, f02=» DATA CWTRT4 J P DATA CWTRT5 K P DATA CWTRT6 K ( P* K < P XIF K F P* K R P IFT RECHAN=2 K P DATA CWTRT3 K r P DATA CWTRT4 K P XIF K P* K P IFT RECHAN=4 K P DATA CWTRT3 K P DATA CWTRT4 K P DATA CWTRT5 K P DATA CW
0x1926c0…248b20 [0x026]: Pad {f00=0x00d6, f01=0x0190, f02=» K P* L ( P************************************ L ( P* D W R E M U * L > ( P************************************ L j P* L . P* DUMMY TABLE USED WHEN LOOP-TESTING OF L $ P* REMOTE CHANNELS ARE NEEDED. L P* L PDWREMU
0x1926c0…248b20 [0x027]: Pad {f00=0x00d6, f01=0x0190, f02=» P EJECT M P* M P* M * P* L O O P - T E S T S E C T I O N M & P* M T P* M ^ 2 P* ORDER /00: TEST REMOTE CHANNEL CONNECTION M h P* M : P* CHANNEL TO TEST IS GIVEN IN CONTROL WORD OF ECB. M 6 P* THE REQUEST IS COMPLETED WITH F
0x1926c0…248b20 [0x028]: Pad {f00=0x00d6, f01=0x0190, f02=» M . P* BIT 14: ACK NOT RECEIVED AFTER OUTPUT N P* N : 0 P* BIT 15: SYNC NOT RECEIVED AFTER OUTPUT N D PAREM DATA LOPTST N x " P DATA 0 ABORT ROUTINE ADDRESS N " P DATA IHLOP INTERRUPT HANDLER N PLOPTST EQU * N $ P LD A2,10,A8 GET CHANNEL N
0x1926c0…248b20 [0x029]: Pad {f00=0x00d6, f01=0x0190, f02=» N & P LD A2,CHTAB+8,A2 GET CWT-ADDRESS O P RF(E) DISIIE O 2 P LDR A7,A7 WRONG ORDER ? O H P RF(E) LOPT10 NO O h ( PDISIIE ABL DISIOE I/O REQUEST ERROR O PLOPT10 EQU * O , P LD A1,CWTRST,A2 GET CHANNEL LOOP STATUS O P ANK A1,/40 O ( P RF(NE
0x1926c0…248b20 [0x02a]: Pad {f00=0x00d6, f01=0x0190, f02=»SP O P EJECT P P* P P* P " P* END OF LOOP-TEST P , P* P J PIHLOP EQU * P T P LDR A5,A1 GET CWT-ADDRESS P h , P LD A1,CWTRST,A5 GET CHANNEL LOOP STATUS P P ANK A1,3 P P XRK A1,3 P PIHLP10 EQU * P P LDK A2,0 P : P SC A2
0x1926c0…248b20 [0x02b]: Pad {f00=0x00d6, f01=0x0190, f02=» 2 P x P* Q P* C H R T 1 / C H R T 2 Q P* Q 6 8 P* THIS IS THE INTERRUPT HANDLER FOR CHLT AND CHRT Q @ P* Q | 2 P* WHEN INTERRUPT FROM A CHANNEL UNIT OCCURS Q 2 P* DRIVER FIRST RELATES INTERRUPT TO A CWT. Q 0 P* THEN DRIVER GETS TH
0x1926c0…248b20 [0x02c]: Pad {f00=0x00d6, f01=0x0190, f02=»* INTERRUPT. Q P* R 2 P* FOLLOWING TYPES OF INTERRUPT ARE RELEVANT R " P* R X . P* D = DEVICE ADDRESS C = CHARACTER R b P* R 8 P* ACK OUTPUT ACKNOWLEDGED D = 0 C = 7 R 8 P* NAK OUTPUT ERROR D = 0 C
0x1926c0…248b20 [0x02d]: Pad {f00=0x00d6, f01=0x0190, f02=» DRI DATA REQUEST IMMEDIATE SIGN BIT SET R 8 P* ABC+ BLOCK TR. ACKNOWLEDGED D = 0 C = 8 S : 8 P* ABC-L LRC ERROR IN BLOCK D = 0 C = A S v 8 P* ABC-V VRC ERROR IN BLOCK D = 0 C = C S 8 P* ABC-LV LRC O VRC ERR
0x1926c0…248b20 [0x02e]: Pad {f00=0x00d6, f01=0x018e, f02=» BE DIFFERENT FROM ZERO S f 8 P* STD STATUS MESSAGE D # 0 C # 0 T 2 P* DIN DATA INPUT D # 0 T P EJECT T P* T P* C H L T 1 T P* T P* INTERRUPT FROM CHLT1 T P* T PCHLT1 EQU * T P
0x1926c0…248b20 [0x02f]: Pad {f00=0x00d6, f01=0x0190, f02=» P* U P IFT CPU852=0 U " P MSR 8,A15 SAVE A1-A8 ON STACK U $ P XIF U J P* U V P LDK A7,2 INDICATE CHLT1 U ` P RF CLT010 U P* U PCHLT2 EQU * U P* U P* U P* U P* U P* C H L T 2 U P* U P* INTERRUPT FRO
0x1926c0…248b20 [0x030]: Pad {f00=0x00d7, f01=0x018e, f02=»SAVE A1-A8 ON STACK U P XIF V P* V ( P IFT LOCHAN=2 V 2 P IFT CPU852=0 V H " P MSR 8,A15 SAVE A1-A8 ON STACK V ^ P XIF V P* V P IFT LOCHAN=2 V P LDK A7,4 INDICATE CHLT2 V P RF CLT010 V P* V P XIF V P* V P IFT LOC
0x1926c0…248b20 [0x031]: Pad {f00=0x00d7, f01=0x018e, f02=» V P* W P IFT LOCHAN=3 W P IFT CPU852=0 W ( " P MSR 8,A15 SAVE A1-A8 ON STACK W > P XIF W d P* W p P IFT LOCHAN=3 W z P LDK A7,4 INDICATE CHLT2 W P RF CLT010 W P* W P XIF W P* W P IFT LOCHAN=4 W $ P ST P,INTSAV SAVE
0x1926c0…248b20 [0x032]: Pad {f00=0x00d7, f01=0x0190, f02=» W P IFT CPU852=0 X " P MSR 8,A15 SAVE A1-A8 ON STACK X P XIF X D P* X P P IFT LOCHAN=4 X Z P LDK A7,4 INDICATE CHLT2 X p P RF CLT010 X P* X P XIF X P* X PCHLT3 EQU * X P* X P* X P* X P* C H L T 3 X P
0x1926c0…248b20 [0x033]: Pad {f00=0x00d7, f01=0x0190, f02=»852=1 X & P CF A15,SAVE8 SAVE A1-A8 ON STACK Y P XIF Y 8 P* Y D P IFT LOCHAN=4 Y N P IFT CPU852=0 Y d " P MSR 8,A15 SAVE A1-A8 ON STACK Y z P XIF Y P* Y P IFT LOCHAN=4 Y P LDK A7,6 INDICATE CHLT3 Y P RF CLT010 Y P XIF Y P
0x1926c0…248b20 [0x034]: Pad {f00=0x00d7, f01=0x0190, f02=»1-A8 ON STACK Y | P XIF Z P* Z " P IFT LOCHAN=3 Z , P IFT CPU852=0 Z B " P MSR 8,A15 SAVE A1-A8 ON STACK Z X P XIF Z ~ P* Z P IFT LOCHAN=3 Z P LDK A7,6 INDICATE CHLT3 Z P RF CLT010 Z P* Z P XIF Z P* Z PCHLT4 EQU * Z
0x1926c0…248b20 [0x035]: Pad {f00=0x00d7, f01=0x0190, f02=» ST P,INTSAV SAVE LAST INTERRUPT Z P* [ ( P IFT CPU852=1 [ 2 & P CF A15,SAVE8 SAVE A1-A8 ON STACK [ H P XIF [ r P* [ ~ P IFT LOCHAN=4 [ P IFT CPU852=0 [ " P MSR 8,A15 SAVE A1-A8 ON STACK [ P XIF [ P* [ P IFT LOCHAN=4 [ P LDK
0x1926c0…248b20 [0x036]: Pad {f00=0x00d7, f01=0x0190, f02=»* INTERRUPT FROM CHRT1 [ P* " PCHRT1 EQU * , P ST P,INTSAV @ P* T P IFT CPU852=1 ^ & P CF A15,SAVE8 SAVE A1-A8 ON STACK t P XIF P* P IFT CPU852=0 " P MSR 8,A15 SAVE A1-A8 ON STACK P XIF P* P LDK
0x1926c0…248b20 [0x037]: Pad {f00=0x00d7, f01=0x0190, f02=»CHRT2 EQU * P IFT RECHAN=2 ] $ P ST P,INTSAV SAVE LAST INTERRUPT ] * P* ] R P IFT CPU852=1 ] & P CF A15,SAVE8 SAVE A1-A8 ON STACK ] r P XIF ] P* ] P IFT RECHAN=2 ] P IFT CPU852=0 ] " P MSR 8,A15 SAVE A1-A8 ON STACK ] P XIF ]
0x1926c0…248b20 [0x038]: Pad {f00=0x00ec, f01=0x0190, f02=» ST P,INTSAV STORE LAST INTERRUPT ] P* ^ * P IFT CPU852=1 ^ 4 & P CF A15,SAVE8 SAVE A1-A8 ON STACK ^ J P XIF ^ t P* ^ P IFT RECHAN=3 ^ P IFT CPU852=0 ^ " P MSR 8,A15 SAVE A1-A8 ON STACK ^ P XIF ^ P* ^ P IFT RECHAN=3 ^ P L
0x1926c0…248b20 [0x039]: Pad {f00=0x00ec, f01=0x018e, f02=»* ^ P IFT CPU852=1 _ & P CF A15,SAVE8 SAVE A1-A8 ON STACK _ P XIF _ J P* _ V P IFT RECHAN=4 _ ` P IFT CPU852=0 _ v " P MSR 8,A15 SAVE A1-A8 ON STACK _ P XIF _ P* _ P IFT RECHAN=4 _ P LDK A7,14 INDICATE CHRT2 _ P RF CLT010
0x1926c0…248b20 [0x03a]: Pad {f00=0x00ec, f01=0x0190, f02=» P IFT RECHAN=3 ` $ P ST P,INTSAV SAVE LAST INTERRUPT ` P* ` B P IFT CPU852=1 ` L & P CF A15,SAVE8 SAVE A1-A8 ON STACK ` b P XIF ` P* ` P IFT RECHAN=3 ` P IFT CPU852=0 ` " P MSR 8,A15 SAVE A1-A8 ON STACK ` P XIF ` P* ` P
0x1926c0…248b20 [0x03b]: Pad {f00=0x00ec, f01=0x018e, f02=»E LAST INTERRUPT ` P* a P IFT CPU852=1 a " & P CF A15,SAVE8 SAVE A1-A8 ON STACK a 8 P XIF a b P* a n P IFT RECHAN=4 a x P IFT CPU852=0 a " P MSR 8,A15 SAVE A1-A8 ON STACK a P XIF a P* a P IFT RECHAN=4 a P LDK A7,18 INDICATE
0x1926c0…248b20 [0x03c]: Pad {f00=0x00ec, f01=0x0190, f02=» a PCHRT4 EQU * b P IFT RECHAN=4 b $ P ST P,INTSAV SAVE LAST INTERRUPT b 2 P* b Z P IFT CPU852=1 b d & P CF A15,SAVE8 SAVE A1-A8 ON STACK b z P XIF b P* b P IFT RECHAN=4 b P IFT CPU852=0 b " P MSR 8,A15 SAVE A1-A8 ON STACK b
0x1926c0…248b20 [0x03d]: Pad {f00=0x00ec, f01=0x0190, f02=»DRESS b p P* c P XIF c P* c $ * P EX CWTINR,A5 EXECUTE INR-INSTRUCTION c . P* c P IFT LOGING=1 c f P* c | 4 PCLT012 CF A15,LOGG ** LOGG OF INPUT CHARACTER ** c P* c P XIF c P EJECT c P* c & P* DETERMINE TYPE OF INTERRU
0x1926c0…248b20 [0x03e]: Pad {f00=0x00ec, f01=0x0190, f02=»UK A7,10 c " P RF(N) CLT018 LOCAL INTERRUPT d P LDR A3,A2 d 6 . P SLC A3,6 REMOTE FIRST OR SECOND CHANNEL ? d H P RF(NN) CLT015 FIRST d z > P LD A5,CHTAB+12,A7 GET CWT-ADDRESS SECOND CHANNEL OF CHRT d 4 PCLT015 CF A15,RESTSY START OR RESTART SYNC-TIMER d
0x1926c0…248b20 [0x03f]: Pad {f00=0x00ec, f01=0x0190, f02=»(N) CLT170 YES d & PCLT018 LDK A1,0 RESET RETURN CODE e ( P LDR A3,A2 DATA REQUEST IMMEDIATE ? e @ P RF(N) CLT050 e l $ P ANKL A3,/7000 DEVICE ADDRESS ? e ( P ABL(NE) CLT100 YES, DIN, STD OR DRD e P EJECT e P* e P* e , P* DETERMINE TYP
0x1926c0…248b20 [0x040]: Pad {f00=0x00ec, f01=0x018e, f02=» SUK A3,7 e P RF(E) CLT050 ACK f P ADK A3,2 f , P ABL(E) CLT080 NAK f > P ADK A3,2 f X P ABL(E) CLT100 POWER ON f j P LDR A7,A7 LOCAL ? f P RF(N) CLTQUE YES f P LC A4,LRCACK,A7 f $ P LDK A6,/80 ABC-ANSWER ALLOWED ? f P TM A6,A4 f
0x1926c0…248b20 [0x041]: Pad {f00=0x00ec, f01=0x0190, f02=» P RF(E) EXIIT g P ANK A4,/7F g P RF(Z) CLT046 YES g , * P CM LRCDWT,A7 RESET LRC-DEVICE POINTER g F ( P LDK A4,1 RESET BLOCKSENDING RUNNING g t P ANS A4,CWTBLK,A5 g P SUK A3,5 g & P RF(E) CLT043 ABC+ , GO TO DRIVER g P IFT ACKMUL=1 g
0x1926c0…248b20 [0x042]: Pad {f00=0x00ec, f01=0x0190, f02=» P LDK A4,1 h P SUK A3,2 h P RF(E) CLT033 h ( P ADK A3,4 h > P RF(E) CLT033 h P P EJECT h f P* h t 0 P* RESOLVE QUEUE AND EXAMINE RECOVERY BIT. h ~ . P* ONE RECOVERY ATTEMPT IS MADE AND THEN h , P* RETURN CODE NOT OPERABLE IS SENT
0x1926c0…248b20 [0x043]: Pad {f00=0x00ec, f01=0x0190, f02=»C-DEVICE ? h P RF(NE) CLTQUE i * P CM LRCDWT,A7 RESET LRC-DEVICE POINTER i ( P LDK A4,1 i V 2 P ANS A4,CWTBLK,A5 RESET BLOCKSENDING RUNNNING i h & PCLTQUE CF A15,QUEUE RESOLVE QUEUE i 6 PCLT031 LC A2,DWTST,A6 GET LEFT BYTE OF STATUS WORD i P LDR A3,
0x1926c0…248b20 [0x044]: Pad {f00=0x00ec, f01=0x0190, f02=»,A6 STORE i PCLT032 LDK A4,0 j 0 PCLT033 LDK A3,2 INDICATE RECOVERY OF DEVICE j * P LDK A4,1 =3 j ^ P RF CPO025 j t P EJECT j P* j P* ABC- VRC-ERROR j P* j 8 P* IF BLOCKSENDING SAME PROCEDURE AS FOR THE OTHER j P* ERROR
0x1926c0…248b20 [0x045]: Pad {f00=0x00ec, f01=0x0190, f02=»DR* A4,A6 BLOCK SENDING ? j P RB(N) CLT031 k " PCLT043 ABL CLT107 k 8 P EJECT k R P* k ` P* POWER ON k j P* k 8 P* RECOVERY ROUTINES ARE STARTED FOR EVERY DEVICE k < P* ON ACTUAL LINE EXCEPT THOSE OCCUPYING CHANNEL UNIT k P*
0x1926c0…248b20 [0x046]: Pad {f00=0x00ec, f01=0x0190, f02=»T-ADDRESS k P* l PCHPOWO EQU * l , P LDR* A2,A5 GET CHANNEL OCCUPYING DEVICE l 0 . P CM CWTRTC,A5 RESET RETRANSMISSION COUNTER l ` P LDR A7,A7 REMOTE ? l P RF(N) CPO010 NO l * P CM LRCDWT,A7 RESET LRC-DEVICE POINTER l P LDK A7,1 l 0 P ANS
0x1926c0…248b20 [0x047]: Pad {f00=0x00ec, f01=0x018e, f02=»NTER l v PCPO020 ADK A1,2 m P LDR* A6,A1 GET DWT-ADDRESS m $ P RF(E) CPO030 m H P SRC A6,1 m ^ P RF(N) CPO030 m p P SLC A6,1 m ( P LCR A7,A6 GET LEFT OF CHANNEL PAR. m P ANK A7,1 INPUT DEVICE ? m P RF(NE) CPO025 YES m & P LDKL A7,/EF
0x1926c0…248b20 [0x048]: Pad {f00=0x00ed, f01=0x0190, f02=» 0 P CWR A6,A2 DEVICE WAITING FOR CHANNEL ANSWER n P RF(E) CPO030 YES n 8 : PCPO025 LD A7,DWTADR,A6 ADDRESS TO ADDRESS-BLOCK IN A7 n R 6 P LD A7,RECADR,A7 ADDRESS TO RECOVERY ROUTINE IN A7 n P RF(E) CPO030 n P LDKL A5,DWTSB2 STACK BASE n P ADR A5,
0x1926c0…248b20 [0x049]: Pad {f00=0x00ed, f01=0x0190, f02=»EXT n x PEXIIT RF EXIT o P EJECT o " P* o 0 6 P* INDICATE NOT OPERABLE BEFORE GOING TO DRIVER o : P* o t PCLT045 EQU * o ~ ( P LDK A1,NOERR INDICATE NOT OPERABLE o PCLT046 EQU * o P ABL CLT110 o P EJECT o P* o P* A C K ,
0x1926c0…248b20 [0x04a]: Pad {f00=0x00ed, f01=0x0190, f02=»OR AND GO TO DISPATCHER. IF SYNC-ACK o P* DROP IT. p , 8 P* NORMAL ACK OR DRI WILL RESULT IN A RESETTING OF p B 8 P* RECOVERY BIT IN DWT. THEN A SIMULATION OF DATA p ~ < P* REQUEST FOR DEVICES WITHOUT DATA REQUEST IS CARRIED p < P* OUT. FOR DE
0x1926c0…248b20 [0x04b]: Pad {f00=0x00ed, f01=0x018e, f02=»MADE TO THE DATA REQUEST SECTION. p x * P* IF ACK WE HAVE TO WAIT FOR A DRD. q * PCLT050 EQU * q X & P LC A3,CWTLOW,A5 LAST OUTPUT WORD q l " P ANK A3,/F0 KEEP DEVICE NUMBER q P CF A15,QUEUE RESOLVE QUEUE q P LDKL A4,/EFFF q 6 P ANS A4,DWTST,A6 RES
0x1926c0…248b20 [0x04c]: Pad {f00=0x00ed, f01=0x018e, f02=» q z P RF(NE) CLT052 r P LDKL A3,/8000 r * P ORS A3,LRCACK,A7 INDICATE ABC ALLOWED r 4 P RF CLT055 r b PCLT052 EQU * r t . P LDR* A3,A6 DEVICE WITHOUT DATA REQUEST ? r P RF(NN) CLT055 r P CW A6,LRCDWT,A7 r P ABL(NE) CLT110 r P EJECT r
0x1926c0…248b20 [0x04d]: Pad {f00=0x00ed, f01=0x0190, f02=» r h P RF(E) CLT060 s P* s P* RESTART TIMER s ( P* s B " P LDKL A3,-DRQTIM RESTART TIMER s L P ST* A3,DWTTP,A6 s r P RF CLT068 s P* s P* START TIMER s P* s PCLT060 EQU * s P LDR A1,A6 PARAMETER s P LDKL A4,DWTTP TIM
0x1926c0…248b20 [0x04e]: Pad {f00=0x00ed, f01=0x0190, f02=»INE AND DELAY s d PCLT068 EQU * t P LDR A8,A8 OBC-ACK ? t * P RF(E) EXIT YES t F P LDK A1,0 t ^ & P LDR* A4,A6 GET CHANNEL PARAMETER t p . P RF(N) CLT110 DEVICE WITHOUT DATA REQUEST t ( P LDR A2,A2 DATA REQUEST IMMEDIATE ? t P RF(N) CLT125 YES
0x1926c0…248b20 [0x04f]: Pad {f00=0x00ed, f01=0x0190, f02=» FROM PRINTERS AND , FOR REMOTLY CONNECTED DEVICES t 8 P* USING THE LRC-FUNCTION , MISSING BLOCK CONTROL u : . P* CHARACTERS (ABC) FROM SELECTOR UNIT. u v P* u PDRQTUT EQU * u P LDR A6,A1 GET DWT-ADDRESS u . P CM DWTTP,A6 RESET POINTER TO TIME
0x1926c0…248b20 [0x050]: Pad {f00=0x00ed, f01=0x018e, f02=»L PARAMETER u ~ P ANK A5,/F v P SLL A5,1 2 * INDEX v & P LDK A2,/83 v B P CC A2,DWTOCH,A6 v V P RF(NE) DRQT10 v n P SUK A5,8 LOCAL DEVICE ? =4 v P RB(N) EXIT v P CF A15,OUTLIN v P RB EXIT v PDRQT10 EQU * v P* v P IFT ACKMU
0x1926c0…248b20 [0x051]: Pad {f00=0x00ed, f01=0x0190, f02=» v $ P LD A7,DWTOR,A6 TEST ORDER ? =1 w P ANK A7,/FE U =9(=1) w 0 2 P RB(E) CLT045 YES, GO TO DEV. INT. HANDLER =1 w L , P ABL CLT032 NO, EXECUTE DEV. RECOVERY =1 w P EJECT w P* w P* N A K w P* w 8 P* ERROR ACKUMULATOR AND RETRANSMI
0x1926c0…248b20 [0x052]: Pad {f00=0x00ed, f01=0x0190, f02=»UCCESS w ^ < P* RETURN CODE NOT OPERABLE IS SENT TO DEVICE DRIVER. x P* x N PCLT080 EQU * x X $ P LDR* A6,A5 GET LAST OUTPUT DWT x l P RB(E) EXIT x P* x P IFT ACKMUL=1 x P* x * P IM CWTADD,A5 UPDATE ERROR ACKUMULATOR x P* x P
0x1926c0…248b20 [0x053]: Pad {f00=0x00ed, f01=0x0190, f02=» LD A4,CWTRTC,A5 GET COUNTER x P SUK A4,7 SEVEN TIMES ? y $ P ABL(E) CLT030 y D * P LD A2,CWTLOW,A5 GET LAST OUTPUT WORD y Z $ P EX CWTOTR,A5 EXECUTE OTR-INSTR. y P IFT LOGING=1 y 2 P CF A15,LOGG ** LOGG INPUT CHARACTER ** y P XIF y P S
0x1926c0…248b20 [0x054]: Pad {f00=0x00ed, f01=0x018e, f02=» A2,/FF y , P XRS A2,LRCACK,A7 UPDATE LRC-ACKUMULATOR z . P CF A15,RESTSY START OR RESTART SYNC-TIMER z @ PCLT090 ABL TDISP z r P EJECT z P* z P* z $ P* DATA INPUT AND DATA REQUEST z P* z 6 P* LOCAL DEVICES: GET DWT-ADDRESS, GET ORD
0x1926c0…248b20 [0x055]: Pad {f00=0x00ed, f01=0x0190, f02=» P* { > P* DATA INPUT: SAME PROCEDURE AS FOR LOCAL DEVICES { : P* DATA REQUEST: INPUT WORD IS COMPLEMENTED WITH { P 8 P* STATUS FROM CHANNEL PARAMETER. { : P* STATUS MESSAGE: NEW STATUS IS STORED IN CHANNEL { @ P*
0x1926c0…248b20 [0x056]: Pad {f00=0x00ed, f01=0x0190, f02=» WAITING FOR A STATUS CHANGE. IF SO { > P* GET ORDER AND ECB-ADDRESS AND GO TO | < < P* DEVICE WITH THE NEW STATUS. IF NO | ~ > P* WAITING FOR STATUS, CONTROL IS GIVEN | ( P*
0x1926c0…248b20 [0x057]: Pad {f00=0x00ed, f01=0x0190, f02=»3,/E 2 * LINE NUMBER | P SRL A4,3 } P ANK A4,/E 2 * DEVICE NUMBER } . P CWK A4,/E SYNC-INPUT ? } R P RF(E) CLT150 YES } r P LOOP SWITCH SET } 0 P LD* A8,CWTITA,A5 ADDRESS TO INTERRUPT TABLE } P RB(Z) EXIT =7 } P ADR A8,A3 } , P LDR*
0x1926c0…248b20 [0x058]: Pad {f00=0x00ed, f01=0x0190, f02=»T UNDEFINED INTERRUPT } " P LDR A4,A4 NO DEVICE NUMBER ? ~ P ABL(E) CHPOWO POWER ON ~ D & P ADR A8,A4 ADDRESS TO DWT-ADDRESS ~ d P LDR* A6,A8 GET DWT-ADDRESS ~ P RB(E) EXIT ~ P ANKL A6,/FFFE ~ 2 P LCR A3,A6 GET FIRST BYTE IN CHANNEL PARAMETER
0x1926c0…248b20 [0x059]: Pad {f00=0x00ed, f01=0x0190, f02=»A7 REMOTE ? ~ P RF(NN) CLT120 YES PCLT105 LC A3,DWTOCH,A6 . P ANK A3,/7F L P SUK A3,DUMMSP ` P RF(NE) CLT110 v . P LDR* A3,A6 DEVICE WITHOUT DATA REQUEST =9 4 P RF(N) CLT110 YES, DO NOT TOUCH TIMER POINTER =9 P* P**********
0x1926c0…248b20 [0x05a]: Pad {f00=0x00ed, f01=0x0190, f02=»Y RESET v P* P************************* P* < P CM* DWTTP,A6 F P CM DWTTP,A6 PCLT110 LD A7,DWTOR,A6 ORDER p P ANK A7,/FF P LD A8,DWTECB,A6 ECB-ADDRESS , P LD A3,DWTADR,A6 ADDRESS TO ADDRESSBLOCK P ENB * P A
0x1926c0…248b20 [0x05b]: Pad {f00=0x00ed, f01=0x0190, f02=» $ P CWR* A6,A5 DRD BEFORE ANSWER ? P RB(E) EXIT YES 0 PCLT125 SRL A4,4 H P ANK A4,/C ` P ORR A2,A4 STATUS IN A2 r P RB CLT105 PCLT130 EQU * P LDR A3,A4 SAVE OLD STATUS P ANK A4,/3F RESET OLD STATUS P SLL A2,4
0x1926c0…248b20 [0x05c]: Pad {f00=0x00ed, f01=0x0190, f02=»A4,/200 STATUS CHANGE ALLOWED ? P RF(E) CLT154 EG. EXIT ( P XRS A4,DWTST,A6 RESET BIT F ( P XRR A3,A2 VOUCHER STATUS CHANGED ? h P ANK A3,/80 P RF(E) CLT154 EG. EXIT P ABL CLT033 P EJECT P* P* P* TFU IN LO
0x1926c0…248b20 [0x05d]: Pad {f00=0x00ed, f01=0x0190, f02=»NDICATE LOOP MODE AND SYNC-ACK RECEIVED PCLT152 EQU * 0 P ORS A4,CWTRST,A5 D PCLT154 ABL EXIT ^ P EJECT v P* P* LOOP MODE P* PCLT170 EQU * P LDR A3,A2 P ANK A3,/FF P SUK A3,3 POWER ON ? P RF(E)
0x1926c0…248b20 [0x05e]: Pad {f00=0x00ed, f01=0x018e, f02=» A1,NOERR INDICATE NOT OPERABLE PCLT177 RB CLT110 ( PCLT178 EQU * @ P SUK A3,4 ACK ? T P RF(NE) EXITA NO l $ P LDK A4,2 INDICATE ACK RECEIVED P RB CLT152 P EJECT P* P* POWER ON P* PCLT179 EQU * P
0x1926c0…248b20 [0x05f]: Pad {f00=0x00ed, f01=0x018e, f02=» 2 P* GET LAST OUTPUT DWT AND SET CHANNEL FREE. 4 P* IF LOCAL DEVICE CHECK OUTPUT QUEUE AND SEND : P* IF SOMETHING THERE. r 8 P* IF REMOTE DEVICE CHECK QUEUE OF CHANNEL'S OTHER < P* TERMINAL AND SEND IF SOMETHING THERE. IF NOTHING I
0x1926c0…248b20 [0x060]: Pad {f00=0x00ee, f01=0x0190, f02=» P STR A2,A15 SAVE A2 $ P LDR* A4,A5 GET LAST OUTPUT DWT $ . P CM CWTRTC,A5 RESET RETRANSMISSION COUNTER L P CMR A5 SET CHANNEL FREE ~ P LDK A1,0 P LDR A7,A7 LOCAL ? P RF(N) QUEU01 YES " P LDK A1,1 INDICATE FIRST TRIAL " P
0x1926c0…248b20 [0x061]: Pad {f00=0x00ee, f01=0x0190, f02=»WT-TABLE-ADDRESS z PQUEU04 EQU * P LDR* A6,A8 QUEUE EMPTY ? , P RF(E) QUEU10 YES N P LDR A7,A7 =5 h $ P RF(N) QUEU06 PREVENT HANG UP =5 ~ P LD A2,CWTBLK,A5 P LD A2,CWTBLK,A5 ( P RF(N) QUEU05 BLOCK SENDING RUNNING PQUEU06 E
0x1926c0…248b20 [0x062]: Pad {f00=0x00ee, f01=0x0190, f02=»OUTPUT CHARACTER v P CF A15,OUTLIN SEND IT PQUEU05 LDR* A2,A15 RELOAD A2 6 0 P CWR A6,A4 DEVICE ALREADY IN OUTPUT QUEUE ? Z P RF(E) QUEU30 " P LDR A6,A4 GET LAST OUTPUT DWT & P RF(E) QUEU30 UNDEFINED INTERRUPT P CWK A6,1 SYNC ANSWER
0x1926c0…248b20 [0x063]: Pad {f00=0x00ee, f01=0x0190, f02=»1,0 " P CWR A7,A5 TERMINAL 2 REMOTE ? P RB(E) QUEU01 NO 2 & PQUEU20 LDKL A8,CWTEQ+2 NEXT QUEUE J P RB QUEU03 t PQUEU30 ADKL A15,4 P RF EXITA P EJECT P* P* 0 P* RESTSY = SUBROUTINE TO START OR RESTART * P*
0x1926c0…248b20 [0x064]: Pad {f00=0x00ee, f01=0x0190, f02=» P RF(NE) RESY20 P LDR A1,A5 P LDK A4,CWTTP TIMER POINTER , P ADR A4,A5 ADD CWT-ADDRESS P P CF A15,SETIMP SET TIMER r P DATA SYNCUT,TIME P RF RESY30 PRESY20 LDKL A4,-TIME " P ST* A4,CWTTP,A5 RESTART TIME PRESY30 LDR
0x1926c0…248b20 [0x065]: Pad {f00=0x00ee, f01=0x0190, f02=»DING n 0 P* IF NOTHING HAPPENS ON A LINE IN 500 MS P* SYNC-CHARACTER IS SENT. @ P* d PSYNCUT EQU * n $ P CM CWTTP,A1 RESET TIMER POINTER P LDR A5,A1 ( P LD A2,CWSYNC,A1 GET SYNC CHARACTER ( P XRKL A2,/800 CHANGE TERMINAL NUMB
0x1926c0…248b20 [0x066]: Pad {f00=0x00ee, f01=0x0190, f02=» OUTPUT DWT t P* P IFT LOGING=1 P* 4 * P CF A15,LOGG LOGG OF OUTPUT CHARACTER > P XIF l P* x P LDR A3,A2 P SLL A3,4 P RF(NN) SYNC05 P ADK A5,2 PSYNC05 EQU * P ANK A2,/FF , P XRS A2,LRCACK,A5 UP
0x1926c0…248b20 [0x067]: Pad {f00=0x00ee, f01=0x0190, f02=»/60 P RF(E) SYNC20 THIRD SYNC P SUK A3,/20 , P RF(NE) SYNC10 FIRST SYNC @ P LDK A3,/20 SECOND SYNC b * PSYNC10 XRS A3,CWTRST,A1 CHANGE COUNTER PEXITA ABL TDISP DISPATCH * PSYNC20 LDKL A6,DWREMU SET DWT-ADDRESS P RB CLT177
0x1926c0…248b20 [0x068]: Pad {f00=0x00ee, f01=0x018e, f02=»LOWED AND SAVE A3-A5 IN DWT. P* $ POUTPUT EQU * . P ANK A2,/FF B P LDR A1,A2 V P SUK A1,/82 STX ? h P RF(E) OUTP05 P SUK A1,/15 ETB ? P RF(NE) OUTP10 ( POUTP05 LDR* A1,A6 CHANNEL PARAMETER P ANK A1,/C REMOTE ?
0x1926c0…248b20 [0x069]: Pad {f00=0x00ee, f01=0x0190, f02=» P* : P* INDICATE INTERRUPTS ALLOWED AND SAVE A3-A5 IN DWT P* P PSTREG EQU * Z P INH n P LDKL A1,/100 z 0 P ORS A1,DWTST,A6 INDICATE INTERRUPTS ALLOWED $ P ST A3,DWTA3,A6 SAVE REGISTER A3 $ P ST A4,DWTA4,A6
0x1926c0…248b20 [0x06a]: Pad {f00=0x00ee, f01=0x018e, f02=»NTERRUPT ALLOWED RESTORE A3-A5 FROM DWT AND RETURN & P* VIA A5. ELSE GO TO DISPATCHER. : P* d P* n PLDREG EQU * x P LD A3,DWTST,A6 P ANKL A3,/100 P RB(Z) EXITA P XRS A3,DWTST,A6 P* P* P* L D R E G E
0x1926c0…248b20 [0x06b]: Pad {f00=0x00ee, f01=0x018e, f02=» l PLDREGE EQU * & P LD A3,DWTA3,A6 RELOAD REGISTER A3 & P LD A4,DWTA4,A6 A4 F $ PLDRE10 LD A7,DWTOR,A6 GET ORDER p P ANK A7,/FF P LD A8,DWTECB,A6 P RTN A5 RETURN VIA A5-STACK P EJECT P* P* P
0x1926c0…248b20 [0x06c]: Pad {f00=0x00ee, f01=0x0190, f02=» P* A3 = BUFFER INDEX P* A8 = ECB-ADDRESS " P* @ P* ON EXIT: J P* ` P* A2 = CHARACTER j * P* A1 = 0 IF LAST CHARACTER ELSE # 0 P* J P* IF LAST CHARACTER IS REACHED A3 IS STORED IN ECB EFFECTIVE LENGTH
0x1926c0…248b20 [0x06d]: Pad {f00=0x00ee, f01=0x0190, f02=» j " P LD A2,2,A8 GET BUFFER ADDRESS P ADR A2,A3 . P LCR A2,A2 CHAR. TO A2 @ P ANK A2,/FF ^ $ P ADK A3,1 INCREMENT BUFFER INDEX r P RF GCH020 , PGCH010 ST A3,6,A8 STORE EFFECTIVE LENGTH PGCH020 EQU * ( PRTNA15 ADKL A15,2 RETURN A
0x1926c0…248b20 [0x06e]: Pad {f00=0x00ee, f01=0x0190, f02=» ^ P* CHANNEL UNIT P* * P* 4 B P* GET CWT-ADDRESS AND IF CHANNEL UNIT FREE SEND CHARACTER. > 8 P* RUNNING LRC-PROCESS CAN STOP OUTPUT FROM OTHER 8 P* DEVICES ON SAME LINE. IF CHANNEL UNIT NOT FREE P* QUEUE OUT
0x1926c0…248b20 [0x06f]: Pad {f00=0x00ee, f01=0x0190, f02=»PU852=0 " P MSR 8,A15 SAVE A1-A8 ON STACK P XIF 6 P* B P ANK A2,/FF L " P LDR* A7,A6 CHANNEL PARAMETER ` P ANK A7,/F P SLL A7,1 DOUBLE INDEX & P LD A5,CHTAB+2,A7 GET CWT-ADDRESS P SUK A7,8 REMOTE ? P RF(N) OUL100 NO
0x1926c0…248b20 [0x070]: Pad {f00=0x00ee, f01=0x0190, f02=»ET CWT-ADDRESS , P ADR A7,A3 TERMINAL ADJUSTED CWT-ADDRESS P EJECT F POUL100 INH T P* f ( P* IF UNIT NOT FREE QUEUE OUTPUT. p 2 P* IF REMOTE DEVICE AND LRC-PROCESS ALREADY 0 P* RUNNINGON TERMINAL FOR ANOTHER DEVICE, 0 P*
0x1926c0…248b20 [0x071]: Pad {f00=0x00ee, f01=0x0190, f02=»NEL UNIT FREE ? P RF(NE) OUL800 NO P LDR A7,A7 REMOTE ? 2 P RF(N) OUL500 N P LDR A3,A2 d P SUK A3,/82 STX ? v P RF(NE) OUL200 NO P EJECT P* P* S T X P* * P LD A3,LRCDWT,A7 LRC-PROCESS RUNNING ?
0x1926c0…248b20 [0x072]: Pad {f00=0x00ee, f01=0x0190, f02=» INDICATE FIRST OBC , POUL150 LDR* A3,A6 GET CHANNEL PARAMETER , P ANKL A3,/E00 SET DEVICE NUMBER TO ZERO N P RF OUL510 ~ & POUL175 CWR A3,A6 SAME LRC-DEVICE ? P RF(NE) OUL800 QUEUE OUTPUT P RF OUL350 POUL200 SUK A3,/15 ETB ?
0x1926c0…248b20 [0x073]: Pad {f00=0x00ee, f01=0x0190, f02=»RCACK+1,A7 GET LRC-ACKUMULATOR P RB OUL150 & P* 8 P* OTHER OUTPUT B P* 8 POUL300 CW A6,LRCDWT,A7 SAME DEVICE SENDING WITH LRC f P RF(Z) OUL350 YES P LD A3,CWTBLK,A5 , P RF(NN) OUL500 BLOCKSENDING NOT RUNNING * P RF OU
0x1926c0…248b20 [0x074]: Pad {f00=0x00ee, f01=0x0190, f02=» P LD A3,CWTBLK,A5 P RF(Z) OUL500 ( P ORKL A2,/8000 INDICATE BLOCKSENDING 2 P LDK A3,/80 ^ 2 P SC A3,CWTBLK,A5 INDICATE BLOCKSENDING RUNNING r P EJECT P* P* & P* SEND CHARACTER SECTION. 2 P* CHARACTER IS
0x1926c0…248b20 [0x075]: Pad {f00=0x00ee, f01=0x0190, f02=»ERS FOR f . P* DWT AND ACKUMULATOR IS UPDATED. P B POUL500 EQU * J " P LDR* A3,A6 CHANNEL PARAMETER ^ P ANKL A3,/7E00 & POUL510 ORR A2,A3 OUTPUT WORD IN A2 P* P* P* POUL515 EX CWTOTR,A5 OTR P RF(R) O
0x1926c0…248b20 [0x076]: Pad {f00=0x00ee, f01=0x0190, f02=»ESSBLOCK p . P ABI INTADR,A2 GO TO INTERRUPT HANDLER =8 POUL520 EQU * B P* V P IFT LOGING=1 ` P* v 0 P CF A15,LOGG ** LOGG OF OUTPUT CHARACTER ** P* P XIF P* P STR A6,A5 SET CHANNEL BUSY , P ST A2,CWTLOW,A5 S
0x1926c0…248b20 [0x077]: Pad {f00=0x00ee, f01=0x018e, f02=»ULATOR n . P CF A15,RESTSY START OR RESTART SYNC-TIMER 4 POUL600 SC A2,DWTOCH,A6 SET LAST OUTPUT CHARACTER @ POUL700 EQU * x P IFT CPU852=1 ( P ABL IHRET8 RESTORE A1-A8 AND RETURN P XIF P* P IFT CPU852=0 * P MLR 8,A15 RESTO
0x1926c0…248b20 [0x078]: Pad {f00=0x00ee, f01=0x0190, f02=» P EJECT P* : P* NORMALLY DWT-ADDRESS IS PUT LAST IN OUTPUT QUEUE P* Z POUL800 EQU * d P LDR A7,A7 REMOTE ? x P RF(NN) OUL805 YES P LDR A7,A5 CWT-ADDRESS , POUL805 LD A4,CWTEQ,A7 GET QUEUE POINTER P RF(E) OUL820
0x1926c0…248b20 [0x079]: Pad {f00=0x00ee, f01=0x0190, f02=»LOW THE THREAD P RB OUL810 $ POUL820 ST A6,CWTEQ,A7 QUEUE DWT ( P RF OUL840 P $ POUL830 ST A6,DWTOTQ,A4 QUEUE DWT b P LDK A4,0 : POUL840 ST A4,DWTOTQ,A6 SET OR RESET OUTPUT QUEUE LINK P RB OUL600 P EJECT P* P*
0x1926c0…248b20 [0x07a]: Pad {f00=0x00ee, f01=0x0190, f02=»TINE IS ENTERED FROM 'PFINIT' r P* & P* 0 P* : PCHLTON EQU * D P LD A4,CHTAB X " PCON010 SUK A4,2 ALL TREATED ? l P RF(NZ) CON020 NO TAKE NEXT P ABL RTNA15 PCON020 EQU * P INH $ P LD A5,CHTAB,A4 LOAD CWT-ADDRESS
0x1926c0…248b20 [0x07b]: Pad {f00=0x00ee, f01=0x0190, f02=» BUSY p $ P EX CWTCIS,A5 EXECUTE CIO-START P RF(U) CON027 6 $ P LDK A3,0 INDICATE CHANNEL BUSY L . P CF A15,RESTSY START OR RESTART SYNC-TIMER t PCON027 EQU * 4 P ST A3,CWTRST,A5 INDICATE C.U. PRESENT OR NOT =6 P LD* A1,CWTITA,A5
0x1926c0…248b20 [0x07c]: Pad {f00=0x00ee, f01=0x0190, f02=»OWED n . P LD A2,10,A1 ANY DEVICE ON SECOND TERMONAL 0 P RF(NZ) CON029 YES BLOCK SENDING NOT ALLOWED > 8 PCON028 LDK A2,BLOCK INDICATE BLOCKSENDING OR NOT DK1 r PCONRET ST A2,CWTBLK,A5 P RF CON035 PCON029 LDK A2,0 4 P RB CONRET INDICATE
0x1926c0…248b20 [0x07d]: Pad {f00=0x00ee, f01=0x018e, f02=»ST DWT ~ P RB(Z) CON010 P CWK A6,1 SYNC ? $ P RB(E) CON010 < P CMR A5 RESET LAST OUTPUT R P LDK A2,/00 DUMMY t P CF A15,OUTLIN SEND IT P RB CON010 P EJECT P* P* P* L O G G P* 8 P* IF CONDI
0x1926c0…248b20 [0x07e]: Pad {f00=0x00ee, f01=0x0190, f02=» P* PLOGG STR A1,A15 P LD A1,POINT * P ADK A1,2 > & P CWK A1,BUFE BUFE IS MAX LOGG AREA P P RF(NE) L1 z ( P LDKL A1,BUF SET FIRST LOGG ADDRESS PL1 ST A1,POINT & P STR A2,A1 LOGG OF INR OR OTR WORD P LDR* A1,A15
0x1926c0…248b20 [0x07f]: Pad {f00=0x00ee, f01=0x0190, f02=»EA (500) DK1 | PBUFE EQU * P* & P XIF 0 P* < P EJECT F P* T P* ^ P* E C H O , E C H E N D h P* < P* SUBROUTINE TO ECHO CHARACTER CONTAINING TWO PARTS, . P* ONE GENERAL AND ONE DEVICE-DEPENDENT P*
0x1926c0…248b20 [0x080]: Pad {f00=0x00ef, f01=0x0190, f02=»DEVICE-DEPENDENT ECHO-ROUTINE ~ P* & . P* PART TWO: ECHO ONE OR MORE CHARACTERS 0 2 P* CORRESPONDING TO ONE CHARACTER b 4 P* TO BE STORED IN INPUT ECB-BUFFER P* P* 4 P* PART ONE FOLLOWS AND PART TWO CAN
0x1926c0…248b20 [0x081]: Pad {f00=0x00ef, f01=0x0190, f02=»ICE DEPENDENT ECHO DRIVER x P* " " P* A7 MUST NOT BE DESTROYED , 6 P* THE ECHO-ROUTINE SHOULD BE TERMINATED WITH A R P* JUMP TO 'ECHRTN'. P* PECHEND EQU * P* P IFT CECHO=1 P* $ P LDKL A7,/8000 INDICATE EN
0x1926c0…248b20 [0x082]: Pad {f00=0x00ef, f01=0x0190, f02=»A5,DWTA5,A6 P LD A1,DWTST,A6 STATUS P SLL A1,2 2 $ P RF(NN) RETUR NO ECHO REQUESTED D 0 P LDR A4,A6 SAVE DWT-ADDRESS OF INPUT DEVICE l 2 P LD A6,DWTECH,A6 DWT-ADDRESS OF OUTPUT DEVICE 6 P ST A4,DWTWAT,A6 SAVE DWT-ADDRESS OF INPUT DEVICE
0x1926c0…248b20 [0x083]: Pad {f00=0x00ef, f01=0x414a, f02=»A1 GO TO ECHO-ROUTINE DEVICE-DEPENDENT P XIF . PECHRTN EQU * : P IFT CECHO=1 N P LDR A7,A7 END? b P RF(NN) ERETUR NO z ( P CF A15,TENDIO END I/O OUTPUT DEVICE > PERETUR LD A6,DWTWAT,A6 RELOAD DWT-ADDRESS OF INPUT DEVICE 4 PRETUR AB
0x1926c0…248b20 [0x084]: Pad {f00=0x00ef, 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
0x1926c0…248b20 [0x085]: Pad {f00=0x00ef, f01=0x0190, f02=»E INDICATOR | P DATA 0 TASK QUEUE P* . P IFT MMUPAG=1 8 P DATA 0 USER ECB ADDRESS N P DATA DC:ECB MMU ECB ADDRESS n P XIF P* P DATA 0 TIMER POINTER ( P DATA 0 WRITE QUEUE OR BUFFER QUEUE . P DATA 0 STATUS QUEUE (NO
0x1926c0…248b20 [0x086]: Pad {f00=0x00ef, f01=0x0190, f02=» z " P DATA 0 REQUEST TIMEOUT VALUE P* . P IFT MMUPAG=1 8 PDC:ECB EQU * MMU ECB N P DATA 0,0,0,0,0,0 j P XIF P* P EJECT P* P* P* DC RECEIVE BUFFER POOL P* PRLINK EQU RBUFL+RBUFL+8 P*
0x1926c0…248b20 [0x087]: Pad {f00=0x00ef, f01=0x0190, f02=»FNR=3 P DATA *+RLINK P RES RBUFL+3 $ P IFF RBUFNR=4 8 P DATA *+RLINK N P RES RBUFL+3 d P XIF x P DATA *+RLINK P RES RBUFL+3 P DATA 0 END OF CHAIN P RES RBUFL+3 P P IFF MMUPAG=0 & PMMUBUF RES TBU
0x1926c0…248b20 [0x088]: Pad {f00=0x00d7, f01=0x0190, f02=» J F IDENT TPROC REL 9.1 79-05-23 870105040910 * & TWAIT TEXIT TACTOT TPAUSE TMWAIT R FNDDWT TWAIT DWTWAT TEXIT EXITN TDISP * & @ P "R Y W
0x1926c0…248b20 [0x089]: Pad {f00=0x00d7, f01=0x000a, f02=»
0x1926c0…248b20 [0x08a]: Pad {f00=0x00d7, f01=0x018e, f02=» 2 P IDENT DRSOP1 REL 9.2 79-11-16 870105040920 P : P* B P* L @ P************************************************************ V P* $ P* PHILIPS TERMINAL SYSTEM PTS P* 2 P* DRSOP1 = DRIVER FOR SYSTEM OPERATORS PANEL
0x1926c0…248b20 [0x08b]: Pad {f00=0x00d7, 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 TAKE
0x1926c0…248b20 [0x08c]: Pad {f00=0x00d7, 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 NOT
0x1926c0…248b20 [0x08d]: Pad {f00=0x00d7, 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 FOLLOWING
0x1926c0…248b20 [0x08e]: Pad {f00=0x00d7, 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
0x1926c0…248b20 [0x08f]: Pad {f00=0x00d7, 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 (ALIAS
0x1926c0…248b20 [0x090]: Pad {f00=0x00d7, 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 A1
0x1926c0…248b20 [0x091]: Pad {f00=0x00d7, 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 D
0x1926c0…248b20 [0x092]: Pad {f00=0x00d7, 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 FLA
0x1926c0…248b20 [0x093]: Pad {f00=0x00d7, f01=0x0190, f02=» P PX:A EQU 0 PSOPX EQU 0 " P** 4 P** > 8 P* THIS DRIVER CAN BE MADE TO HANDLE CREDIT ORDERS H P* BY SETTING CREDIT = 1 4 P* ORDERS 05 AND 06 ARE THEN REPLACED BY ORDERS P* /37 AND /38 RESPECTIVLY B P* BY S
0x1926c0…248b20 [0x094]: Pad {f00=0x00d7, f01=0x0190, f02=»N ZERO IS STORED IN THE CONTROL WORD z P* OF THE ECB. , P** D P N PCREDIT EQU 1 V P** j P** t @ P* THE ORDER /39, WRITE FLASHING LIGHTS CAN BE INCLUDED BY ~ P* SETTING X:B=1 P* PX:B EQU 0 PWRFLA EQU 0
0x1926c0…248b20 [0x095]: Pad {f00=0x00d7, f01=0x0190, f02=» EQU 1 P* P* 6 P* A PROGRAM VERSION USING THE EXTENDED INSTRUCTION " . P* SET IS OBTAINED BY SETTING CPU852 EQU 0. P* PCPU852 EQU 0 P* PDVBLEN EQU 0 MMU BUFFER SIZE " PDEVIND EQU -2 SOP DEVICE INDEX P* P
0x1926c0…248b20 [0x096]: Pad {f00=0x00d7, f01=0x018e, f02=» P XIF P* P IFT MMUPAG=1 PSTART EQU DWTDRD+4 4 P XIF N P* Z & PDWTTP EQU START+/00 TIMER POINTER d P* P EJECT P* P************************** P* S.O.P. DEVICE ADDRESS: * P**********************
0x1926c0…248b20 [0x097]: Pad {f00=0x00d7, f01=0x0190, f02=» " P* * " P* S.O.P. CHANNEL UNIT TABLE * * " P* * P " P****************************** v P* P* 0 PSOPCT EQU * TABLE STARTS WITH ADDRESS BLOCK: P* P DATA DVBLEN MMU BUFFER SIZE
0x1926c0…248b20 [0x098]: Pad {f00=0x00d7, f01=0x0190, f02=»TCHES ENTRY x " P DATA 0 ABORT ROUTINE ADDRESS P* : P DATA DVBLEN MMU BUFFER SIZE D P DATA DEVIND DEVICE INDEX h & PSOPADU EQU * ACTIVATE LIGHTS ENTRY P* & P DATA SOPAL ACTIVATE LIGHTS ENTRY " P DATA 0 ABORT ROUTINE ADDRESS
0x1926c0…248b20 [0x099]: Pad {f00=0x00d7, f01=0x0190, f02=» " P* * " P* S.O.P. ACTIVATION ROUTINE: * * " P* * P " P****************************** v P* > P* THE ORDER IS ANALYZED AND THE CORRESPONDING I/O ACTION P* IS CARRIED OUT. P*
0x1926c0…248b20 [0x09a]: Pad {f00=0x00d7, f01=0x0190, f02=» P* * P RF(NZ) SOPER ERROR IF NOT READ ORDER P* < P* INPUT SWITCH VALUE F P* d * PSOPIN LDR* A2,A6 POWER UP INDICATION ? n P IFT CREDIT=0 P RF(Z) EXIT NO $ P CMR A6 YES CLEAR FOR NEXT REQ. P XIF P IFT CREDIT=1
0x1926c0…248b20 [0x09b]: Pad {f00=0x00d7, f01=0x0190, f02=»HANGES OF S.O.P. LIGHTS P* & PSOPAL EQU * ACTIVATE LIGHTS ENTRY * P* T P LD A3,10,A8 CHANGED LIGHTS ^ , P ANKL A3,/07FF BITS 5-15 CONTROLS LIGHTS P* P LDR A4,A7 COPY ORDER P IFT WRFLA=1 P CCK A4,/3939 P RF(E)
0x1926c0…248b20 [0x09c]: Pad {f00=0x00d7, f01=0x0190, f02=»/37 P XIF & P RF(Z) SOPON IF SO, TURN ON LIGHTS P* B & P SUK A4,1 SEE IF LIGHTS OFF ORDER L P RF(Z) SOPOFF v & PSOPER ABL(NZ) DISIOE ILLEGAL ORDER P IFT WRFLA=1 P EJECT P* P* P* FLASH LIGHTS P*
0x1926c0…248b20 [0x09d]: Pad {f00=0x00d7, f01=0x018e, f02=»A6 P LDR A1,A6 P CF A15,SETIMP P DATA FLTUT,TIME 2 P ST A4,DWTTP,A6 J P LDKL A1,/FFBF b P ANS A1,DWTST,A6 SET ON FLAG x PFL010 EQU * . P* A3 CONTAINS LIGHTS THAT SHOULD FLASH * P ORS A3,FLASH STORE NEW LAMPS TO FLASH
0x1926c0…248b20 [0x09e]: Pad {f00=0x00d7, f01=0x0190, f02=» PFL020 EQU * P C1R A3,A3 P ANS A3,SPDLCI * P RF SOPONOF @ P* T P EJECT ^ P* l PFLTUT EQU * FLASH TIME OUT v P LDKL A6,DWSO01 P LD A3,FLASH 0 P RF(Z) FL030 NO MORE FLASHING FOR THIS TIME P LDKL A1,-TIME RES
0x1926c0…248b20 [0x09f]: Pad {f00=0x00d7, f01=0x0190, f02=»EXIT END I/O P XIF P EJECT P* . PSOPOFF EQU * 8 , P C1R A3,A3 GET COMPLEMENTED CONTROL WORD L 4 P ANS A3,SPDLCI MASK OUT LIGHTS TO BE TURNED OFF | P IFT WRFLA=1 $ P ANS A3,FLASH STOP SOME FLASHING P XIF , P RF SOPONOF BR
0x1926c0…248b20 [0x0a0]: Pad {f00=0x00d8, f01=0x0190, f02=» A3 CONTAINS CONTROL WORD . P ORS A3,SPDLCI SET LIGHTS TO BE TURNED ON $ P IFT WRFLA=1 V P C1R A3,A3 j * P ANS A3,FLASH STOP SOME OTHER FLASHING | P XIF P* P* COMMON ON/OFF PATH: P* 0 PSOPONOFF LD A1,SPDLCI GET LIGHTS'
0x1926c0…248b20 [0x0a1]: Pad {f00=0x00d8, f01=0x0190, f02=»********************** P* * P* S.O.P. INTERRUPT HANDLER * B P* * f P**************************** P* P* @ P* THE INTERRUPT HANDLER WILL TAKE CARE OF ALL INTERRUPTS. P*
0x1926c0…248b20 [0x0a2]: Pad {f00=0x00d8, f01=0x018e, f02=» CF A15,SAVE8 SAVE A1-A8 ON STACK P XIF * P* 6 P IFT CPU852=0 @ " P MSR 8,A15 SAVE A1-A8 ON STACK V P XIF | P* $ P ST P,INTSAV SAVE LAST INTERRUPT P INR A1,0,SOPDA GET SWITCH P SRN A1,A2 CALC INDEX P IFT CREDIT=0
0x1926c0…248b20 [0x0a3]: Pad {f00=0x00d8, f01=0x0190, f02=» " P LDKL A6,DWSI02 ANY REQUEST ON P LD A4,DWTST,A6 STATUS WORD * P RF(N) IHSOP2 NO N $ P LD A8,DWTECB,A6 GET ECB-ADDRESS f P ST A2,ECBCW,A8 STORE INDEX ( P CM ECBEL,A8 RESET EFFECTIVE LENGTH P LDK A1,0 P CF A15,TENDIO END I/O
0x1926c0…248b20 [0x0a4]: Pad {f00=0x00d8, f01=0x0190, f02=»WTECB,A6 GET ECB-ADDRESS P & PIHSOP3 ST A2,ECBCW,A8 STORE INDEX ( P R , PENDIO CM ECBEL,A8 RESET EFFECTIVE LENGTH Z P LDK A1,0 P CF A15,TENDIO END I/O P $ PEXIT ABL TDISP GO TO DISPATCHER P EJECT P* * P********
0x1926c0…248b20 [0x0a5]: Pad {f00=0x00d8, f01=0x0190, f02=» * * P************************************* * P* X P* b : P* THIS ROUTINE IS A SUBROUTINE TO THE POWER FAILURE l 8 P* RECOVERY ROUTINE (PFAR). IT'S ENTRY POINT SHOULD @ P* BE PRESENT IN THE POWER FAILURE
0x1926c0…248b20 [0x0a6]: Pad {f00=0x00d8, f01=0x018e, f02=»DWTCHP j P* P* PSOPR EQU * ENTRY POINT " P IFT CPU852=1 B & P CF A15,SAVE8 SAVE A1-A8 ON STACK X P XIF P* P IFT CPU852=0 " P MSR 8,A15 SAVE A1-A8 ON STACK P XIF P* " P CIO A1,1,SOPDA ACTIVATE INPUT
0x1926c0…248b20 [0x0a7]: Pad {f00=0x00d8, f01=0x0190, f02=» " P LDKL A2,-2 POWER UP INDICATOR P XIF . P IFT CREDIT=1 : P LDK A2,0 P P XIF b P n P IFF SOPX=0 v " P LDKL A6,DWSI02 ANY REQUEST ON $ P LD A4,DWTST,A6 GET STATUS WORD P RF(NN) SOPR1 YES P STR A2,A6 IND POWER UP
0x1926c0…248b20 [0x0a8]: Pad {f00=0x00d8, f01=0x0190, f02=» STR A2,A6 IND POWER UP P PSOPR2 RB IHSOP1 ( P EJECT @ P* N P* D W S I 0 1 : INPUT DWT X P* | PDWSI01 EQU * , P DATA 0 CHANNEL PARAMETER: POWER UP IND , P DATA /8000 /8000 MEANS DEVICE IS READY P DATA 0 ECB ADDR
0x1926c0…248b20 [0x0a9]: Pad {f00=0x00d8, f01=0x0190, f02=» & " DATA 0 SAVE AREA USER ECB ADDRESS P DATA DEVECI MMU ECB ADDRESS . PDEVECI EQU * R P DATA 0,0,0,0,0,0 f P XIF P* P* D W S O 0 1 : OUTPUT DWT P* P* PDWSO01 EQU * " P DATA /0040 CHANNEL PARAMETER , P D
0x1926c0…248b20 [0x0aa]: Pad {f00=0x00d8, f01=0x0190, f02=» j P DATA 0 TTAB-ADDRESS $ P DATA 0 WAIT/ACTIVATE INDICATOR $ P DATA 0 TERMINAL QUEUE L IFT MMUPAG=1 j & " DATA 0 SAVE AREA USER ECB ADDRESS P DATA DEVECO MMU ECB ADDRESS XIF P DATA 0 TIMER POINTER . PFLASH DATA 0 SAVE
0x1926c0…248b20 [0x0ab]: Pad {f00=0x00d8, f01=0x0190, f02=»* * P* D W S I 0 2 : EXTENDED INPUT DWT ! P* ! 8 P ! B PDWSI02 EQU * ! J P IFF SOPX=0 ! ^ P DATA 0 ! r P DATA /8000 ! P DATA 0 ECB ADDRESS ! P DATA 0 ORDER ! P DATA SOPADI ! P DATA 0,0,0 ! IFT MMUPAG=1 ! & " DAT
0x1926c0…248b20 [0x0ac]: Pad {f00=0x00d8, f01=0x402c, f02=» ! P* " P* " P END " @ " (DWT ! P* ! 8 P ! B PDWSI02 EQU * ! J P IFF SOPX=0 ! ^ P DATA 0 ! r P DATA /8000 ! P DATA 0 ECB ADDRESS ! P DATA 0 ORDER ! P DATA SOPADI ! P DATA 0,0,0 ! IFT MMUPAG=1 ! & " DAT
0x1926c0…248b20 [0x0ad]: Pad {f00=0x00d8, 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 /8
0x1926c0…248b20 [0x0ae]: Pad {f00=0x00d8, f01=0x0190, f02=»*-CWTRT1 # P DATA 0 TIMER POINTER $ PCWSYNC EQU *-CWTRT1 $ . P DATA /7055 SYNC CHARACTER $ J PLRCDWT EQU *-CWTRT1 $ l 0 P DATA 0 DWT OF GOING LRC-PROCESS TERMINAL 1 $ 0 P DATA 0 DWT OF GOING LRC-PROCESS TERMINAL 2 $ PLRCACK EQU *-CWTRT1 $ &
0x1926c0…248b20 [0x0af]: Pad {f00=0x00d8, f01=0x018e, f02=»US WORD (LOOP-TESTS) $ | 0 PCWTBLK EQU *-CWTRT1 BLOCK SENDING INDICATOR % ( P DATA 0 BIT 0: BLOCKSENDING RUNNING % P $ P BIT 15: BLOCKSENDING ALLOWED % | P EJECT % $ P******************************** % $ P* C W T R T 2 * % $ P********
0x1926c0…248b20 [0x0b0]: Pad {f00=0x00d8, f01=0x0190, f02=» % PCWTRT2 EQU * & P DATA 0 LAST OUTPUT DWT & P DATA 0 LAST OUTPUT WORD & < P & P DATA INTRT1 INTERRUPT TABLE & d P INR A2,0,DWA5 INR & P OTR A2,1,DWA5 OTR & P CIO A2,1,DWA5 CIO-START & " P DATA 0 RETRANSMISSION COUNTER & P DATA 0
0x1926c0…248b20 [0x0b1]: Pad {f00=0x00d8, f01=0x0020, f02=» ( 0 8 @ H P X ` h p x
0x1926c0…248b20 [0x0b2]: Pad {f00=0x00d8, f01=0x0190, f02=» 2 P IDENT DRFD01 REL 9.2 79-12-05 870105040920 P : * P =2,TIMING PROBLEMS IN INT. HANDLER B P REL 9.2 79-11-16 p $ P =1,CHANGED INTERRUPT HANDLER P REL 9.1 79-05-23 P* 2 P**********************************************
0x1926c0…248b20 [0x0b3]: Pad {f00=0x00d8, f01=0x0190, f02=» P* P* P* 2 P********************************************* " 0 P* THIS DISK DRIVER HANDLES UP TO FOUR DAISY X . P* CHAINED FLEXIBLE DISK DRIVES PTS 6879, 0 P* CONNECTED TO CPU VIA CHANNEL UNIT CHFD ON & P* MULTIPLEX OR PROGRAMM
0x1926c0…248b20 [0x0b4]: Pad {f00=0x00d8, f01=0x0190, f02=»L READ B P* /02 SEQUENTIAL READ -IBM DISC ONLY- P* /05 BASIC WRITE T D P* /06 SEQUENTIAL WRITE -IBM DISC ONLY- p P* /11 PHYSICAL READ P* /15 PHYSICAL WRITE P* /1A SEARCH KEY
0x1926c0…248b20 [0x0b5]: Pad {f00=0x00d8, f01=0x0190, f02=» -IBM DISC ONLY- t P* /37 LOAD , P* /38 UNLOAD B P* Z P* ENTRY PARAMETERS: d P* P* A5 STACK BASE P* A6 DWT-ADDRESS P* A7 ORDER P* A8 ECB-ADDRESS P EJECT DRFD01
0x1926c0…248b20 [0x0b6]: Pad {f00=0x00d8, f01=0x0190, f02=»R ACTIVATION ADDRESS " P ENTRY IHFD INTERRUPT HANDLER P ENTRY FDON RECOVERY ROUTINE B P ENTRY DWFD01 DWT-ADDRESS f P EJECT DRFD01 P* P************* P* * P* EXTERNALS * P* * P********
0x1926c0…248b20 [0x0b7]: Pad {f00=0x00d8, f01=0x0190, f02=»TATUS EXTRN DWTECB ECB ADDRESS $ EXTRN DWTOR DWT INDEX AND ORDER 0 EXTRN DWTA2 SAVE AREA A2 X EXTRN DWTA5 SAVE AREA A5 z & ! EXTRN DWTSB2 STACK BASE 2 IN DWT ( P EXTRN SCTPLD PROGRAM LOADING DEVICE ( P EXTRN SAVE8 SAVE A1-A8
0x1926c0…248b20 [0x0b8]: Pad {f00=0x00d9, f01=0x0190, f02=»XTRN TASCII EBCDIC TO ASCII TAB & P EXTRN TEBCDIC ASCII TO EBCDIC TAB ( 0 P EXTRN SPDLCI OPEN/CLOSE STATUS FOR FD DRIVE R $ P EXTRN ECBBA ECB BUFFER ADDRESS & P EXTRN ECBRL ECB REQUESTED LENGTH & P EXTRN ECBEL ECB EFFECTIVE LENGTH P EXTRN E
0x1926c0…248b20 [0x0b9]: Pad {f00=0x00d9, f01=0x0190, f02=» * P* CONDITIONAL ASSEMBLY * P* * > P************************ ^ P* ~ . P* MULTIPLEX CHANNEL INSTEAD OF PROGRAMMED P* CHANNEL BY SETTING X:A = 0 P* PX:A EQU 1 PCHAN EQU 1
0x1926c0…248b20 [0x0ba]: Pad {f00=0x00d9, f01=0x0190, f02=» PTOSS EQU 1 P* 2 P* A PROGRAM VERSION INCLUDING IBM DISC FORMAT ( P* IS OBTAINED BY SETTING IBM EQU 1. V P* PX:C EQU 0 PIBM EQU 1 P* . P* A PROGRAM VERSION USING TOSS MMU PAGING * P* IS OBTAINED BY SETTING MMUPA
0x1926c0…248b20 [0x0bb]: Pad {f00=0x00d9, f01=0x0190, f02=»BTAINED BY SETTING CPU852 EQU 0. P* ( PCPU852 EQU 0 2 P* F P EJECT DRFD01 P P* h * r . ** A PROGRAM VERSION USING TOSS DISC PAGING | * &* IS OBTAINED BY SETTING DSKPAG EQU 1. * PDSKPAG EQU 0 * P*
0x1926c0…248b20 [0x0bc]: Pad {f00=0x00d9, f01=0x0190, f02=»QU 0 P* P* @ P* ORDERS /21 OPEN AND /22 CLOSE WHICH CONTROLS THE POWER D P* TO THE DISK DRIVE UNIT CAN BE INCLUDED BY SETTING OPCLOS =1 d P* PX:D EQU 0 POPCLOS EQU 1 P* P EJECT DRFD01 P* P*
0x1926c0…248b20 [0x0bd]: Pad {f00=0x00d9, f01=0x018e, f02=»CE INDEX P* P* P IFT CHAN=1 $ PDEVIND EQU 2 8 P XIF L P* X P IFT CHAN=0 b PDEVIND EQU 4-IBM-IBM v P XIF P* P EJECT DRFD01 P* P************* P* * P* CONSTANTS *
0x1926c0…248b20 [0x0be]: Pad {f00=0x00d9, f01=0x0190, f02=» l ( PSOPDA EQU /2E S.O.P. DEVICE ADDRESS * PSTALEN EQU 512 MAX STANDARD SEC. LEN. 4 ( PTOSLEN EQU 410 MAX TOSS SEC. LENGTH b " PIBMLEN EQU 128 IBM SEC. LENGTH ( PBOE EQU 28 BEGIN OF EXTENT POSITION & PEOE EQU 34 END OF EXTENT POSITION $ P
0x1926c0…248b20 [0x0bf]: Pad {f00=0x00d9, f01=0x018e, f02=»************** P* * P* DWT-DISPLACEMENTS* 2 P* * N P******************** j P* 0 PDWTDRD EQU /10 START OF DRIVER DEFINED PART P* P IFT MMUPAG=0 PSTART EQU DWTDRD P XIF P*
0x1926c0…248b20 [0x0c0]: Pad {f00=0x00d9, f01=0x018e, f02=» ~ P* P********** P* * $ P* TABLES * 6 P* * H P********** Z P* l P IFT DEVIND=2 v ( P DATA DVBLEN+DVBLEN MMU BUFFER SIZE P XIF P* P IFT DEVIND=4 " P DATA 0 INDICATE NO MMU BUFFER P
0x1926c0…248b20 [0x0c1]: Pad {f00=0x00d9, f01=0x0190, f02=» P* P EJECT DRFD01 P* & P************** 0 P* * F P* ACTIVATION * P* * r P************** P* PFDAD EQU * ACTIVATION ENTRY P* P IFT OPCLOS=1 & P* CHECK IF OPEN OR CLOSE OR
0x1926c0…248b20 [0x0c2]: Pad {f00=0x00d9, f01=0x0190, f02=»* P EJECT P XIF P* $ P LDK A3,0 . P LC A3,DWTOR,A6 INDEX @ P LDR A2,A3 SAVE FOR FDIX ^ P* ~ & P* PUT DRIVE NO IN CIO-INSTRUCTION P* P CF A5,SETCIO A3,A4 AFFECTED ( P CM DWTRCW,A6 SAVE RETURN CODE WORD
0x1926c0…248b20 [0x0c3]: Pad {f00=0x00d9, f01=0x0190, f02=»WTA3,A6 SAVE DRIVE INDEX MASK P ANR A1,A3 & P RF(NZ) FD:ORD LOCKED 8 P LDR A1,A7 V P SUK A1,/26 h P ABL(Z) LOAD LOCK ORDER | P SUK A1,/11 P ABL(Z) LOAD LOAD ORDER P LDKL A1,/8001 RETURN CODE P ABL END:IO ENDIO
0x1926c0…248b20 [0x0c4]: Pad {f00=0x00d9, f01=0x0190, f02=» DSKPAG+SWPBLK=0 & P LD A2,ECBBA,A8 GET BUFFER ADDRESS & P LDR* A1,A8 GET FIRST WORD OF ECB B 4 P ANKL A1,/3000 GET BITS 16-17 IN BUFFER ADDRESS l . P RF(NZ) FD:000 BUFFER NOT IN SYSTEM AREA? P LDR A3,A2 P RF(NN) FD:005 6 P ADKL A3,TOS
0x1926c0…248b20 [0x0c5]: Pad {f00=0x00d9, f01=0x018e, f02=» LDR A3,A2 P ANKL A2,/F000 P SRL A2,2 ( P SLL A1,2 : P ORR A1,A2 L P ANKL A3,/FFF ^ 2 P ST A1,DWT:PA,A6 6 BIT PHYSICAL BUFFER ADDRESS t , P ADKL A1,/400 CREATE ONE MORE MMU ENTRY P ST A1,DWT:PA+2,A6 P LDR A1,A3 ( P ORK
0x1926c0…248b20 [0x0c6]: Pad {f00=0x00d9, f01=0x0190, f02=» ` P* 8 PFD:005 ST A1,DWT:LA,A6 16 BIT LOGICAL BUFFER ADDRESS P* N P EJECT DRFD01 X P XIF p P* | P LDR A1,A7 P ABL(Z) FD:070 TEST STATUS P SUK A1,1 P RF(Z) FD:040 PHYSICAL READ P SUK A1,4 P RF(Z) F
0x1926c0…248b20 [0x0c7]: Pad {f00=0x00d9, f01=0x018e, f02=» SUK A1,15 $ P RF(Z) FD:030 WRITE DELETED DATA P SUK A1,/14 : P ABL(Z) UNLOAD UNLOAD ORDER N P IFT IBM=1 r P ADK A1,/36 " P ABL(Z) SQREAD SEQUENTIAL READ P SUK A1,4 $ P ABL(Z) SQWRIT SEQUENTIAL WRITE P SUK A1,/2B
0x1926c0…248b20 [0x0c8]: Pad {f00=0x00d9, f01=0x0190, f02=» v P XIF P PFD:DIS EQU * P ABL DISIOE REQUEST ERROR 0 P* R P IFT OPCLOS=1 P EJECT r P* P******** P* * P* OPEN * P* * P******** P* 4 P* OPEN IS PERFORMED BY WRITING A ZE
0x1926c0…248b20 [0x0c9]: Pad {f00=0x00d9, f01=0x0190, f02=» ( P ANS A1,SPDLCI CLEAR OPEN/CLOSE BIT 0 P LD A1,SPDLCI SOP LIGHTS AND OPEN/CLOSE DATA 0 " P OTR A1,0,SOPDA OPEN FD DRIVE d P* * P* WAIT FOR DRIVE TO BECOME OPERABLE ( P LDK A4,DWTTP2 TIMER POINTER OFFSET ( P ADR A4,A6 A4:=TIMER POINTER
0x1926c0…248b20 [0x0ca]: Pad {f00=0x00d9, f01=0x0190, f02=»SP EXIT P* POPENRE EQU * P* TIME HAS EXPIRED . P LDR A6,A1 GET DWT-ADDR L , P CM DWTTP2,A6 INDICATE NO TIMER RUNNING l & P RF OCLEXI COMMON OPEN/CLOSE EXIT P* P EJECT P* P********* P* *
0x1926c0…248b20 [0x0cb]: Pad {f00=0x00d9, f01=0x0190, f02=» THE SOP LIGHTS EXTERNAL REGISTER P* * PCLOSE EQU * 4 " P LDKL A1,/8000 MASK FOR BIT 0 H & P ORS A1,SPDLCI SET OPEN/CLOSE BIT n 0 P LD A1,SPDLCI SOP LIGHTS AND OPEN/CLOSE DATA " P OTR A1,0,SOPDA CLOSE FD DRIVE P* POCLEXI EQU *
0x1926c0…248b20 [0x0cc]: Pad {f00=0x00d9, f01=0x0190, f02=»JECT DRFD01 P* P*************** P* * 8 P* BASIC WRITE * P P* * h P*************** P* PFD:010 CF A5,BIO P ORK A2,1 PFD:015 EQU * P IFT TOSS+IBM=2 P LD A1,DWTLAB,A6
0x1926c0…248b20 [0x0cd]: Pad {f00=0x00d9, f01=0x0190, f02=» P CF A5,EBCDIC PFD:018 EQU * P XIF . P* : P IFT CHAN+TOSS=2 D P IFT MMUPAG+SWPBLK=2 4 P LD A1,DWT:LA,A6 GET FLAG/LOGICAL BUFFER ADDRESS x ( P RF(Z) FD:019 BUFFER IN SYSTEM AREA? ( P LD A7,ECBRL,A8 GET REQUESTED LENGTH P L
0x1926c0…248b20 [0x0ce]: Pad {f00=0x00d9, f01=0x0190, f02=»MMU TABLE v 2 P MVUS A7 MOVE BUFFER FROM USER TO SYSTEM AREA & P TL -30,A15 RESTORE MMU FROM STACK H P LDR A2,A8 RESTORE A2 r P* P EJECT DRFD01 P* P* PFD:019 EQU * P XIF P* " P CF A5,FD:WRITE PERFORME W
0x1926c0…248b20 [0x0cf]: Pad {f00=0x00d9, f01=0x0190, f02=» WAS IN SYSTEM AREA? | . P LD A1,DWT:BF,A6 GET SAVED BUFFER ADDRESS & P ST A1,ECBBA,A8 RESTORE IT IN ECB N P* x PFD:025 EQU * P XIF P* P RF FD:048 GOTO FD:RC P* P****************** P* * P*
0x1926c0…248b20 [0x0d0]: Pad {f00=0x00d9, f01=0x018e, f02=»S 13-15 x P RB FD:015 P EJECT DRFD01 " P* : P********************** D P* * b P* WRITE DELETED DATA * P* * P********************** P* PFD:030 CF A5,BIO P ORK A2,6
0x1926c0…248b20 [0x0d1]: Pad {f00=0x00d9, f01=0x0190, f02=» P***************** P* PFD:040 CF A5,BIO:RE ( P IFT TOSS+IBM=2 D P LD A1,DWTLAB,A6 P AN A1,DWTA3,A6 t P RF(Z) FD:042 TOSS DISC P XIF P IFT IBM=1 P LDKL A4,BUF PFD:042 EQU * P XIF $ PFD:045 CF A5
0x1926c0…248b20 [0x0d2]: Pad {f00=0x00d9, f01=0x0190, f02=»SKPAG+SWPBLK=0 4 P LD A2,DWT:LA,A6 GET FLAG/LOGICAL BUFFER ADDRESS ( P RF(Z) FD:046 BUFFER IN SYSTEM AREA? N ( P LD A7,ECBRL,A8 GET REQUESTED LENGTH z * P LDKL A1,FD:BUF GET DWT BUFFER ADDRESS & P TS -30,A15 SAVE RUNNING TASK MMU ( P TL DWT:PA,A
0x1926c0…248b20 [0x0d3]: Pad {f00=0x00d9, f01=0x0190, f02=»,DWT:BF,A6 GET SAVED BUFFER ADDRESS & P ST A2,ECBBA,A8 RESTORE IT IN ECB ! , P RF FD:048 ! V P* ! h PFD:046 EQU * ! r P XIF ! P* ! P IFT TOSS+IBM=2 ! P LD A1,DWTLAB,A6 ! P AN A1,DWTA3,A6 ! P RF(Z) FD:047 NOT IBM ! P XIF !
0x1926c0…248b20 [0x0d4]: Pad {f00=0x00d9, f01=0x0190, f02=» P XIF " PFD:048 EQU * " P ABL FD:RC " $ P* " 6 P EJECT DRFD01 " @ P* " X P IFT TOSS+IBM=0 " b P IFT MMUPAG=0 " z P* " P************** " P* * " P* SEARCH KEY * " P* * " P************** " P*
0x1926c0…248b20 [0x0d5]: Pad {f00=0x00d9, f01=0x018e, f02=»0 ILLEGAL LENGTH " P SUK A1,128 # " P ABL(P) END:10 ILLEGAL LENGTH # , P LDR A3,A2 # R P* # d * P* IF ODD CHANGE TO EVEN NO OF BYTES # n P* # P ADK A3,1 # P SRL A3,1 # P SLL A3,1 # P* # P SLL A2,3 # P ORK A2,7 BIO #
0x1926c0…248b20 [0x0d6]: Pad {f00=0x00d9, f01=0x0190, f02=» P* $ P EJECT DRFD01 $ P* $ & $ P* READ RECORD WITH KEY COMMAND $ 0 P* $ X PFD:060 EQU * $ b P LDK A2,4 BIO $ v P LD A3,4,A8 REQUESTED LENGTH $ P CWK A3,130 $ " P ABL(NE) END:10 ILLEGAL LENGTH $ P LD A4,2,A8 BUFFER ADDRESS $
0x1926c0…248b20 [0x0d7]: Pad {f00=0x00d9, f01=0x0190, f02=»TUS * $ P* * % P*************** % & P* % > PFD:070 EQU * % H P LDKL A2,/FFF9 BIO DUMMY % P CF A5,FD:WRI % | P LDR A1,A3 % P ANK A1,1 % & P RF(NZ) FD:090 DISC NOT OPERABEL? % " P ANKL A3,/200 WRITE PROTECTED? % P ORS
0x1926c0…248b20 [0x0d8]: Pad {f00=0x00da, f01=0x018e, f02=»RCW,A6 GET RETURN CODE % PFD:090 ABL END:IO & P* & 8 P EJECT DRFD01 & B P* & Z P******** & d P* * & t P* LOAD * & P* * & P******** & P* & PLOAD EQU * & P LDK A2,/14 LOCK & P CF A5,FD:REA & P ANK A3,1 &
0x1926c0…248b20 [0x0d9]: Pad {f00=0x00da, f01=0x0190, f02=» & P LDK A2,0 BIO ' P LDKL A4,BUF ' P LDK A3,38 NO OF BYTES ' 2 P CF A5,FD:REA ' P P CF A5,LD:RC ' f P ADK A4,34 ' z P LDR* A2,A4 ' P CWK A2,'TO' ' ( P RF(NE) LOA:10 IBM LABEL PREASSUMED ' P ADK A4,2 ' P LDR* A2,A4 ' P CWK
0x1926c0…248b20 [0x0da]: Pad {f00=0x00da, f01=0x0190, f02=»* ' P* READ VOLUME NAME ( P* ( & P LDK A3,8 LENGTH ( 0 P LDK A2,0 BIO ( H * P C1 A1,DWTA3,A6 1 COMP. DRIVE BIT MASK ( ^ * P ANS A1,DWTLAB,A6 INDICATE TOSS LABEL ( P RF LOA:15 ( P XIF ( P IFT IBM=1 ( PLOA:10 LDK A3,10 LENGTH ( P
0x1926c0…248b20 [0x0db]: Pad {f00=0x00da, f01=0x018e, f02=»BIT 10 ( x P ORS A1,DWTRCW,A6 ) P XIF ) ( P IFF TOSS+IBM=0 ) 4 PLOA:15 EQU * ) L P LDKL A4,BUF BUFFER ADDRESS ) ` P CF A5,FD:REA ) P CF A5,LD:RC ) P LDK A1,2 ) P XIF ) P IFT IBM=1 ) P LD A7,DWTRCW,A6 ) $ P ANK A7,/20 CHECK TY
0x1926c0…248b20 [0x0dc]: Pad {f00=0x00da, f01=0x0190, f02=» ) P XIF * P* * P EJECT DRFD01 * P* * 6 P* * @ P IFF TOSS+IBM=0 * J P* * b P* GET DWT VOL NAME ADDRESS * l P* * P CF A5,VOLADR ADDRESS TO A2 * P* * P* STORE NAME IN DWT * P* * P LDK A3,3 * PLOA:40 LD
0x1926c0…248b20 [0x0dd]: Pad {f00=0x00da, f01=0x018e, f02=»50 EQU * * P LC A2,DWTOR+1,A6 GET ORDER + P ANK A2,/FF + 4 & P RB(Z) FD:075 JUMP IF TEST STATUS + H P XIF + r P IFT IBM=1 + ~ P* + P* DATA SET OPENING WANTED? + P* + " P ANK A1,/2 A1: TOSS=6, IBM=8 + P RF(NZ) LOA:70 TOSS LABEL +
0x1926c0…248b20 [0x0de]: Pad {f00=0x00da, f01=0x0190, f02=» + P LD A2,ECBCW,A8 SECTOR NO , P SUK A2,7 , * P ABL(N) FD:DIS REQUEST ERROR , < P SUK A2,18 , ` P ABL(P) FD:DIS REQUEST ERROR , r P ADK A2,25 , P SLL A2,3 BIO , P LDK A3,80 LENGTH , P LDKL A4,BUF , P CF A5,FD:REA , P LDR A1,
0x1926c0…248b20 [0x0df]: Pad {f00=0x00da, f01=0x0190, f02=»ABEL , f PLOA:60 EQU * - P CF A5,LD:RC - P ENB - 4 * P LD A3,ECBCW,A8 DATA SET LABEL SECTOR - @ P LDK A1,DWTDSS - n P CF A5,STDWT SAVE IN DWT - P ADK A4,BOE BOE ADDRESS - . P CF A5,LOGSEC TRANSFORM TO LOGICAL SECTOR - P LDK A1,DWTBOE - $
0x1926c0…248b20 [0x0e0]: Pad {f00=0x00da, f01=0x0190, f02=» - t P CF A5,LOGSEC . P LDK A1,DWTEOE . $ P CF A5,STDWT STORE EOE NO IN DWT . 4 P ADK A4,EOD-EOE EOD ADDRESS . P CF A5,LOGSEC . P CF A5,SETINH INHIBIT . P LDK A1,DWTEOD . $ P CF A5,STDWT STORE EOD NO IN DWT . P* . PLOA:70 EQU * .
0x1926c0…248b20 [0x0e1]: Pad {f00=0x00da, f01=0x0190, f02=»D:RC . P* / P EJECT DRFD01 / P* / . P* / 8 P IFF TOSS+IBM=0 / B P* / Z P* ERROR , UNLOCK / d P* / ~ PLOA:90 EQU * / P LDR A5,A6 / P ADKL A5,DWTSB2 STACK BASE / P LDK A2,/C UNLOCK / P CF A5,FD:REA / P RB LOA:75
0x1926c0…248b20 [0x0e2]: Pad {f00=0x00da, f01=0x0190, f02=»WTRCW,A6 / P ANKL A3,/2007 FATAL ERROR 0 P RB(NZ) LOA:90 0 2 & P LDKL A4,BUF DRIVER BUFFER ADDRESS 0 H P RTN A5 0 r P XIF 0 P EJECT DRFD01 0 P* 0 P********** 0 P* * 0 P* UNLOAD * 0 P* * 0 P********** 0 P
0x1926c0…248b20 [0x0e3]: Pad {f00=0x00da, f01=0x0190, f02=» A7,A7 EOD 0 P RF(Z) UNL:70 NOT OPEN 1 4 P ST A7,10,A8 STORE EOD-NO IN CONTROL WORD OF ECB 1 0 P* 1 h , P* READ DATA SET LABEL TO DRIVER BUFFER 1 r P* 1 P CF A5,DSLIO PREPARE FOR I/O 1 & P CF A5,FD:REA READ DATA SET LABEL 1 $ P CF A5,UNL:RC RE
0x1926c0…248b20 [0x0e4]: Pad {f00=0x00da, f01=0x0190, f02=»C-CODED) 1 ` P* 2 P CF A5,DSOPCH EOD-NO TO A7 2 P* 2 < P* DIVIDE EOD BY 26 2 F P* 2 b P LDK A1,0 2 l PUNL:10 SUK A7,26 2 ~ P RF(N) UNL:20 2 P ADK A1,1 2 P RB UNL:10 2 PUNL:20 ADK A7,27 2 P* 2 P* A1 = BINARY TRACK NO
0x1926c0…248b20 [0x0e5]: Pad {f00=0x00da, f01=0x0190, f02=» TO POS 79 2 v P SCR A3,A4 3 P SUK A4,1 3 $ P SRL A3,8 LEFT BYTE 3 6 P SCR A3,A4 STORE IN BUFFER 3 R P LDR A7,A1 TRACK 3 t ( P CF A5,BINDEC DEC EBCDIC-CODED IN A3 3 P SUK A4,3 3 P STR A3,A4 TRACK INTO BUF 3 P CF A5,SETINH INHIBIT 3 P
0x1926c0…248b20 [0x0e6]: Pad {f00=0x00da, f01=0x0190, f02=»E WRITE DATA SET LEBEL 3 $ P CF A5,UNL:RC CHECK RETURN CODE 4 P CF A5,DSOPCH 4 F P CMR A2 INDICATE NOT OPEN 4 P* 4 ~ P* UNLOCK 4 P* 4 P XIF 4 PUNL:70 EQU * 4 P LDK A2,/C UNLOCK 4 P CF A5,FD:REA 4 P ORS A3,DWTRCW,A6 4
0x1926c0…248b20 [0x0e7]: Pad {f00=0x00da, f01=0x018e, f02=»LOCK IN DWT 4 t PUNL:80 EQU * 5 P RB LOA:75 END:IO 5 ( P IFF TOSS+IBM=0 5 B P* 5 Z P* UNLOAD RETURN CODE CHECK 5 d P* 5 PUNL:RC ORS A3,DWTRCW,A6 5 P ANK A3,/7 FATAL ERROR? 5 P RB(NZ) UNL:80 ENDIO 5 P RTN A5 5 P XIF 5 P
0x1926c0…248b20 [0x0e8]: Pad {f00=0x00da, f01=0x0190, f02=» P* 6 PSQREAD EQU * 6 * P CF A5,DSOPCH GET EOD AND EOD ADDRESS 6 " P LDR A7,A7 EOD 6 P " PSQR:05 ABL(Z) DISIOE NOT OPEN 6 f . P ADK A2,DWTCRN-DWTEOD A2 = ADDRESS TO CRN 6 P LDR* A3,A2 CRN 6 P ADK A3,1 CRN+1 6 & P ST A3,ECBCW,A8 STORE CRN+1
0x1926c0…248b20 [0x0e9]: Pad {f00=0x00da, f01=0x0190, f02=»REA READ SECTOR POINTED AT BY CRN+1 6 ( P LD A4,ECBBA,A8 USER BUFFER ADDRESS 7 , $ P LD A7,ECBRL,A8 REQUESTED LENGTH 7 X $ P CF A5,ASCII TRANSFORM TO ASCII 7 P LDK A1,DWTCRN 7 P CF A5,DSPAD 7 P RF SQW:10 UPDATE CRN 7 P* 7 P* END OF DATA
0x1926c0…248b20 [0x0ea]: Pad {f00=0x00da, f01=0x0190, f02=» P* SEQUENTIAL WRITE * 8 P******************* 8 P* 8 < PSQWRIT EQU * 8 F P CF A5,DSOPCH GET EOD 8 Z P ADK A7,0 EOD-NO (SET CR) 8 x P RB(Z) SQR:05 NOT OPEN 8 P* 8 P* CHECK IF END OF EXTENT 8 P* 8 P LDK A1,DWTEOE 8 & P CF A5
0x1926c0…248b20 [0x0eb]: Pad {f00=0x00da, f01=0x018e, f02=»F A5,BIO 8 P LDK A7,128 9 , P CF A5,EBCDIC TRANSFORM AND MOVE TO BUF 9 $ P ORK A2,5 PHYS. WRITE 9 T P CF A5,FD:WRI 9 r P CF A5,DSOPCH 9 PSQW:10 LDR A1,A3 RETURN CODE 9 P ANK A1,/1 9 P RF(NZ) SQW:15 NOT OPERABLE 9 * P IMR A2 EOD=EOD+1
0x1926c0…248b20 [0x0ec]: Pad {f00=0x00da, f01=0x0190, f02=» P RF END:IO : P EJECT DRFD01 : P* : . P********** : 8 P* REWIND * : J P********** : P* : n PREWIND EQU * : x P CF A5,DSOPCH : P ADK A7,0 EOD (SET CR) : $ P RB(Z) SQR:05 DATA SET NOT OPEN : P LDR A3,A2 SAVE EOD ADDRESS :
0x1926c0…248b20 [0x0ed]: Pad {f00=0x00da, f01=0x0190, f02=» P SUK A4,1 BOE - 1 ; P STR A4,A2 CRN = BOE -1 ; P LDK A1,0 RETURN CODE ; > P RF END:IO ; P XIF ; n P EJECT DRFD01 ; z P* ; P***************** ; P* * ; P* PERFORM ORDER * ; P* * ; P******
0x1926c0…248b20 [0x0ee]: Pad {f00=0x00da, f01=0x018e, f02=» A4 BUFFER ADDRESS ; P* < PFD:WRI EQU * < * P IFT CHAN=0 < > P LDKL A1,/C000 WORDS,WRITE < R P XIF < t P IFT CHAN=1 < ( P CM DWTRW,A6 INDICATOR TO WRITE MODE < P XIF < P RF FD:800 < P* < PFD:REA EQU * < P IFT CHAN=1 <
0x1926c0…248b20 [0x0ef]: Pad {f00=0x00da, f01=0x0190, f02=» PFD:800 EQU * = P IFT CHAN=0 = " P SRL A3,1 FROM BYTES TO WORDS = , P* = R P IFT MMUPAG=1 = & P ORR* A1,A8 GET FIRST WORD OF ECB = r * P ANKL A1,/F000 KEEP FOUR LEFTMOST BITS = P XIF = P* = P IFT CHAN=0 = P ORR A3,A1 = PWER1
0x1926c0…248b20 [0x0f0]: Pad {f00=0x00da, f01=0x0190, f02=» P* > . P* PUT BUFFER START AND END ADDRESS IN DWT > P* > @ P ST A4,DWTUB,A6 > J P ADR A3,A4 > b " P ST A3,DWTUBE,A6 END ADDRESS+2 > t P XIF > PFD:820 EQU * > & P ST A5,DWTA5,A6 SAVE STACK POINTER > $ PFD:CIO CIO A2,1,CUADR CIO-START > (
0x1926c0…248b20 [0x0f1]: Pad {f00=0x00da, f01=0x0190, f02=» > P* ? * P************************************* ? * P* * ? @ * P* FD:RC - STORE EFF LEN, END:IO * ? n * P* * ? * P************************************* ? P* ? P* INPUT
0x1926c0…248b20 [0x0f2]: Pad {f00=0x00da, f01=0x0190, f02=»D A2,ECBRL,A8 REQ LENGTH ? P ST A2,ECBEL,A8 EFF LENGTH @ P EJECT DRFD01 @ B P* @ Z P********** @ d P* * @ v P* END:IO * @ P* * @ P********** @ P* @ PEND:IO EQU * @ P CF A15,TENDIO @ PT:DISP ABL TDISP @ P
0x1926c0…248b20 [0x0f3]: Pad {f00=0x00da, f01=0x018e, f02=»END:10 LDK A1,8 RETURN CODE @ P RB END:IO A $ P EJECT DRFD01 A 6 P* A N P******************** A X P* * A t P* RECOVERY ROUTINE * A P* * A P******************** A P* A PFDON EQU * A P IFT CPU85
0x1926c0…248b20 [0x0f4]: Pad {f00=0x00da, f01=0x0190, f02=» P XIF B P* B P LDKL A6,DWFD01 DWT ADDRESS B P* B > PFDON05 EQU * B H P IM DWTA2,A6 SET FDON FLAG B P LDKL A5,DWTSB2 B ~ P ADR A5,A6 GET STACK BASE B P* B P IFF DSKPAG+SWPBLK=0 B , P LD A2,INIFLG CHECK INITIALIZATION FLAG B
0x1926c0…248b20 [0x0f5]: Pad {f00=0x00da, f01=0x0190, f02=»T FLEXIBLE DISC? B P LDR A3,A2 C . P CF A5,SETCIO DRIVE NR IN CIO INSTRUCTION C * ( P CF A5,FDIX GET DRIVE BIT INDICATOR C * P ORS A3,DWTLC,A6 INDICATE DRIVE LOCKED C P* C P EJECT DRFD01 C P* C P* C P C1R A3,A3 C * P ANS A3,DWTL
0x1926c0…248b20 [0x0f6]: Pad {f00=0x00da, f01=0x0190, f02=» P CF A5,FD:REA D P LD A3,SCTPLD D 0 P CF A5,VOLA05 GET VOLUME NAME ADDRESS IN DWT D 0 P LDK A1,2 D d P LDK A3,3 D v P* D P* MOVE VOLUME NAME TO DWT D P* D PFDON06 LD A4,BUF,A1 D P STR A4,A2 D P ADK A1,2 D P ADK A2,2 D
0x1926c0…248b20 [0x0f7]: Pad {f00=0x00da, f01=0x0190, f02=» SAVE DWTST TO DWTST2 IF NOT ALREADY DONE. D P* DWTST IS SET BUSY E 2 P* E P P LD A2,DWTST2,A6 E Z P CWK A2,-1 E r P RF(NE) FDON08 ALREADY SAVED E P LD A2,DWTST,A6 E P ST A2,DWTST2,A6 E PFDON08 CM DWTST,A6 SET BUSY E P* E P IFT
0x1926c0…248b20 [0x0f8]: Pad {f00=0x00db, f01=0x0190, f02=»ER POINTER E | P RF(Z) FDON09 NOT RUNNING F P CMR A4 STOP TIMER F 4 $ P CM DWTTP2,A6 INDICATE NO TIMER F N PFDON09 EQU * F v P* F 6 P* OPEN FD TO MAKE FOLLOWING LOCK ORDER POSSIBLE F 2 P LDKL A4,SPDLCI OPEN/CLOSE STATUS WORD ADDRESS F P* F
0x1926c0…248b20 [0x0f9]: Pad {f00=0x00db, f01=0x0190, f02=»ATUS WORD TO OPEN F ~ P* G P LDR* A2,A4 G $ & P OTR A2,0,SOPDA SET DRIVE TO OPEN G 8 P* G b P XIF G l P* G x P EJECT G P* G P* DELAY 2 SEC G P* G P LD A4,DWTTP,A6 G P RF(Z) FDON10 NO TIMER SET G P LDKL A4,-TIME G " P
0x1926c0…248b20 [0x0fa]: Pad {f00=0x00db, f01=0x018e, f02=»5,SETIMP G P DATA FDON20,TIME H P RB T:DISP H * P* H < P* TIME OUT ROUTINE H F P* H b PFDON20 LDR A6,A1 H l P CM DWTTP,A6 H P LDKL A5,DWTSB2 H P ADR A5,A6 STACK BASE H P* H P* LOCK DOORS H P* H P LDK A2,1 H P
0x1926c0…248b20 [0x0fb]: Pad {f00=0x00db, f01=0x0190, f02=» P* I P EJECT I P* I P* PUT DRIVE NO IN CIO INSTR I & P* I J P SRN A2,A3 DRIVE NO IN A3 I T * P CF A5,SETCIO PUT DRVE NO IN CIO-INSTR I v P LDK A2,/14 LOCK I P CF A5,FD:REA I P LD A2,DWTA3,A6 DRIVE IND. I P ANK A3,1 I P RF(
0x1926c0…248b20 [0x0fc]: Pad {f00=0x00db, f01=0x018e, f02=» I P* J P IFT OPCLOS=1 J P* J ( D P* RESTORE OPEN/CLOSE STATUS TO SAME VALUE AS BEFORE POWER OFF J 2 $ P LD A2,DWTOCF,A6 OPEN/CLOSE FLAG J z " P ORS A2,SPDLCI TO STATUS WORD J P CM DWTOCF,A6 CLEAR FLAG J P* J $ P LD A2,SPDLCI OPEN/CLOSE
0x1926c0…248b20 [0x0fd]: Pad {f00=0x00db, f01=0x018e, f02=» P* K P* ANY REQUEST? K P* K & . P* RESTORE STATUS SAVED IN DWST2 TO DWTST. K 0 P* SET DWTST2 TO -1 K b " P LD A2,DWTST2,A6 SAVED STATUS K ~ * P ST A2,DWTST,A6 PUT IN CUURENT STATUS K P LDKL A2,-1 K ( P ST A2,DWTST2,A6 INDICATE NOT SAVED
0x1926c0…248b20 [0x0fe]: Pad {f00=0x00db, f01=0x0190, f02=» K b P* L P* RETRY REQUEST L P* L * P IM DWTRTY,A6 INDICATE RETRY L 4 P LD A7,DWTOR,A6 L X P ANK A7,/3F ORDER L p P LD A8,DWTECB,A6 ECB ADDRESS L P ABL FDAD REACTIVATE L P EJECT DRFD01 L P* L P********************* L P
0x1926c0…248b20 [0x0ff]: Pad {f00=0x00db, f01=0x0190, f02=» EQU * L $ P ST P,INTSAV SAVE LAST INTERRUPT M " P******************** =1 START M 6 P IFT CPU852=1 M * P CF A15,SAVE8 SAVE REGISTERS ON STACK M r P XIF M P* M P IFT CPU852=0 M " P MSR 8,A15 SAVE A1-A8 ON STACK M P XIF M P* M P L
0x1926c0…248b20 [0x100]: Pad {f00=0x00db, f01=0x0190, f02=»FFER M v P SUR A2,A1 LENGTH N PIH005 EQU * N & P SST A3,CUADR GET STATUS N : " P RF(A) IH:000 READY INTERRUPT N Z ( P LD A3,DWTRW,A6 READ/WRITE INDICATOR N P RF(NZ) IH050 READ N P* N P EJECT DRFD01 N P* N P* N PIH010 EQU * N
0x1926c0…248b20 [0x101]: Pad {f00=0x00db, f01=0x0190, f02=»WRITE N P RB(NA) IH005 O $ P ADK A1,2 UPDATE BUFFER POINTER O $ P SUK A2,2 O L P RB(P) IH010 O ^ P CIO A2,0,CUADR CIO HALT O r P ABL TDISP GOTO DISPATCHER O P* O PIH050 EQU * O P INR A3,0,CUADR READ O P RB(NA) IH005 O $ P SC A3
0x1926c0…248b20 [0x102]: Pad {f00=0x00db, f01=0x0190, f02=» A2,2 O P RB(P) IH050 P P CIO A2,0,CUADR CIO HALT P " P SST A3,CUADR STATUS =2 P B P RB(NA) *-2 =2 P b PIH:000 EQU * =1 P z P XIF P P* P P EJECT DRFD01 P P* P P* P P******************** =1 END P P IFT CHAN=0 =2 P
0x1926c0…248b20 [0x103]: Pad {f00=0x00db, f01=0x0190, f02=»,A6 STACK POINTER P P SLL A3,1 Q P RF(N) FDRE READY INTERRUPT Q , P SRL A3,1 Q P P LD A2,DWTRTY,A6 RETRY? Q b P RF(Z) IH:10 NO Q " P CM DWTRTY,A6 RESET RETRY FLAG Q P LDR A1,A3 Q P ANKL A1,/0405 Q P RF(Z) IH:10 RETURN CODE OK Q
0x1926c0…248b20 [0x104]: Pad {f00=0x00db, f01=0x0190, f02=» CU - ECB Q x P* R P ANKL A3,/FF37 R P RF(Z) IH:80 R 2 P LDR A1,A3 R F " P ANKL A3,/0A05 UNCHANGED BITS R X P LDR A4,A1 R ~ P ANKL A4,/0400 BIT 5 R P SLC A4,7 TO BIT 14 R P ORR A3,A4 R P IFT TOSS+IBM=0 R P LDR A4,A1 R P ANKL
0x1926c0…248b20 [0x105]: Pad {f00=0x00db, f01=0x0190, f02=» BIT 7 R P ORR A3,A4 S P ANK A1,/10 BIT 11 S P SRC A1,5 TO BIT 0 S : P ORR A3,A1 S T PIH:80 EQU * S f P IFT CHAN=1 =1 S z P INH =1 S P XIF =1 S P RTN A5 S P EJECT DRFD01 S P* S P******************** S P*
0x1926c0…248b20 [0x106]: Pad {f00=0x00db, f01=0x0190, f02=»,DWTA2,A6 S , P ABL(NZ) T:DISP POWER ON ROUTINE ACTIVE T P LDKL A5,DWTSB2 T B P ADR A5,A6 STACK BASE T Z P RB FDON60 T x P EJECT DRFD01 T P* T 0 P******************************************* T 0 P*
0x1926c0…248b20 [0x107]: Pad {f00=0x00db, f01=0x0190, f02=»*********************** T | P* U P******* U * P* * U : P* BIO * U J P* * U Z P******* U j P* U z P* U P* INPUT: A8 ECB ADDRESS U P* U > P* OUTPUT: A2 BITS 0-12 OF CONTROL WORD USED BY CIO START U 0 P* A3
0x1926c0…248b20 [0x108]: Pad {f00=0x00db, f01=0x0190, f02=»10 U PBIO:RE LDK A4,1 V PBIO010 EQU * V " P LD A3,ECBRL,A8 REQ LEN V 6 P RF(N) BIOERR ILLEGAL LENGTH V V P IFT TOSS+IBM=2 V z P LD A2,DWTLAB,A6 V P AN A2,DWTA3,A6 V P RF(Z) BIO020 TOSS DISC V P XIF V P IFT IBM=1 V P LDK A7,IB
0x1926c0…248b20 [0x109]: Pad {f00=0x00db, f01=0x0190, f02=»LEN V ~ P LDK A2,3 W PBIO030 EQU * W P XIF W 2 P IFF TOSS+IBM=0 W > P ADK A4,0 SET CR W V P RF(Z) BIO060 WRITE W n P LDK A2,0 W P LDR A1,A3 REQ LEN W & P CWR A3,A7 REQ LENGTH WITHIN RANGE W P RF(G) BIOERR NO W PBIO040 SUK A1,128
0x1926c0…248b20 [0x10a]: Pad {f00=0x00db, f01=0x018e, f02=»* W PBIO060 CWR A3,A7 X " P RF(NE) BIOERR ILLEGAL REQ LEN X " P XIF X H P IFT TOSS+IBM=0 X T P* X l > P* FIND NO OF SECTORS TO BE READ/WRITTEN, CHECK REQ LENGTH X v P* X P LDR A1,A3 REQ LENGTH X P LDK A2,0 NO OF SECTORS-1 X $ PBIO015 L
0x1926c0…248b20 [0x10b]: Pad {f00=0x00db, f01=0x0190, f02=» P* Y PBIO035 SUK A1,128 Y & P RF(NP) BIO100 REQ LENGTH ACCEPTED Y ( PBIO045 ADK A2,1 Y R P CWK A2,3 Y j P RB(NG) BIO015 Y | $ P RF BIOERR REQ LEN OUTSIDE RANGE Y P XIF Y P* Y 6 PBIO100 SRC A2,2 SHIFT NO OF SECTORS-1 INTO POS 0-1 Y P
0x1926c0…248b20 [0x10c]: Pad {f00=0x00db, f01=0x0190, f02=»SECTOR NO Y P RF(N) BIOER2 OUTSIDE RANGE Z P IFT TOSS+IBM=2 Z 6 P ANK A7,/A Z N P RF(Z) BIO110 IBM DISC Z ` P XIF Z ~ P IFT TOSS=1 Z P CWK A1,499 Z P RF(G) BIOER2 OUT OF RANGE Z , P SLL A1,2 MULTIPLY BY 4TO GET DM SECTOR Z P XIF Z
0x1926c0…248b20 [0x10d]: Pad {f00=0x00db, f01=0x0190, f02=» P XIF [ P IFT TOSS+IBM=0 [ ( P CWK A1,2001 SECTOR NO OUT OF RANGE [ ( P RF(G) BIOER2 YES! [ T P XIF [ n PBIO120 EQU * [ z P SLL A1,3 [ P ORR A2,A1 [ " P LD A4,ECBBA,A8 BUFFER ADDRESS [ P LDR A1,A3 REQ LENGTH [ P ANK A1,1 [ $ P R
0x1926c0…248b20 [0x10e]: Pad {f00=0x00db, f01=0x0190, f02=» PBIOERR ABL END:10 P* ILLEGAL SECTOR NO PBIOER2 ABL FD:DIS < P* V P EJECT DRFD01 ` P* x P********* P* * P* FDIX * P* * P********* P* P* INPUT: A2 X P* P
0x1926c0…248b20 [0x10f]: Pad {f00=0x00db, f01=0x018e, f02=»LL A3,1 P SUK A2,1 ] P RB FDIX10 ] " PFDIX20 RTN A5 ] 4 P EJECT DRFD01 ] J P IFF TOSS+IBM=0 ] b P****************** ] z P* * ] P* VOLADR * ] P* * ] P****************** ] P* ] P* I
0x1926c0…248b20 [0x110]: Pad {f00=0x00db, f01=0x0190, f02=» ] P LC A3,DWTOR,A6 DRIVE NO ^ PVOLA05 EQU * ^ ( P LDK A2,DWTVO0 ^ < P ADR A2,A6 ^ R P ANK A3,/3 ^ d PVOLA10 EQU * ^ v P RF(Z) VOLA20 ^ P ADK A2,6 UPDATE ADDRESS ^ P SUK A3,1 ^ P RB VOLA10 ^ PVOLA20 RTN A5 ^ P XIF ^ P ^
0x1926c0…248b20 [0x111]: Pad {f00=0x00db, f01=0x0190, f02=»ASCII TRANSFORMS A STRING FROM EBCDIC TO ^ P* ASCII CODE _ 0 . P* INPUT STRING ADDRESS IS BUF _ P & P* INPUT: A7 NO OF CHARACTERS _ , P* A4 OUTPUT STRING ADDRESS _ P* OUTPUT: A1 CHANGED _ P*
0x1926c0…248b20 [0x112]: Pad {f00=0x00db, f01=0x0190, f02=»C:10 SUK A7,1 _ P RF(N) ASC:20 ` P SUK A4,1 ` , " P LC A1,BUF,A7 GET EBCDIC CHAR ` > ( P LC A1,TASCII,A1 TRANSFORM TO ASCII ` d 0 P SCR A1,A4 PUT ASCII CHAR. IN OUTPUT BUFFER ` P RB ASC:10 ` PASC:20 EQU * ` " P RF EBC:90 SET INH AND RETURN `
0x1926c0…248b20 [0x113]: Pad {f00=0x00db, f01=0x018e, f02=»ES A STRING FROM ASCII TO ` r P* EBCDIC CODE a " 8 P* OUTPUT STRING IS PUT IN DRIVER BUFFER a D P* a & P* INPUT: A7 NO OF CHARACTERS a * P* A4 INPUT STRING ADDRESS a P* a P* OUTPUT: A1 CHANGED a
0x1926c0…248b20 [0x114]: Pad {f00=0x00db, f01=0x0190, f02=» P LDK A1,0 b PEBC:10 SUK A7,1 b P RF(N) EBC:80 b . P SUK A4,1 b D P LCR A1,A4 GET ASCII CHAR. b V P LC A1,TEBCDIC,A1 b x P SC A1,BUF,A7 b P RB EBC:10 b PEBC:80 EQU * b P LDKL A4,BUF b PEBC:90 EQU * b P CF A5,SETINH b
0x1926c0…248b20 [0x115]: Pad {f00=0x00db, f01=0x0190, f02=»EC TRANSFORMS PHYSICAL SECTOR TO STANDARD b ~ , P* LOGICAL SECTOR (BINARY). c 2 < P* FORMAT OF PHYS. SEC. TT0SS (EBCDIC CODE) c b * P* TT = TRACK, SS=SECTOR c P* c , P* INPUT: A4 ADDRESS TO PHYS. SECTOR c P
0x1926c0…248b20 [0x116]: Pad {f00=0x00db, f01=0x0190, f02=»F A5,DECBIN c P LDR A3,A1 SAVE d P ADK A4,2 d , P* d > P* MULTIPLY BY 26 d H P* d b P SLL A3,5 *32 d l P LDR A2,A1 d P SLL A2,2 d P SUR A3,A2 *28 d P SLL A1,1 d P SUR A3,A1 *26 d P CF A5,DECBIN d P SUK A1,1 d
0x1926c0…248b20 [0x117]: Pad {f00=0x00db, f01=0x0190, f02=»F+EOD+4 EOD? d P RF(E) LOG:02 YES! e P SUKL A1,1898 e . P RF LOG:04 e D P* e V " P* CHECK EOD LESS/EQUAL 74001 e ` P* e PLOG:02 SUKL A1,1899 e PLOG:04 EQU * e " P RF(P) LOG:10 NOT ACC SEC. NO e " P SUK A4,4 RESET BUFFER POINTER e
0x1926c0…248b20 [0x118]: Pad {f00=0x00dc, f01=0x0190, f02=»DE e r P ORS A1,DWTRCW,A6 f P CF A5,SETINH f $ P ABL LOA:90 ERROR ROUTINE f : P* f P EJECT DRFD01 f f P* f ~ P********** f P* DECBIN* f P********** f P* f > P* FUNCTION: DECBIN TRANSFORMS TWO EBCDIC CODED DIGITS TO f D P
0x1926c0…248b20 [0x119]: Pad {f00=0x00dc, f01=0x0190, f02=» BINARY f P* WORKING REG: A2,A7 g P* g 0 PDECBIN LDK A1,0 g : P LDK A7,2 g R PDEC:10 LCR A2,A4 DIGIT g d P ANK A2,/FF g P SUK A2,/F0 g P RB(N) LOG:05 g P SUK A2,9 g P RB(P) LOG:05 NOT DIGIT g P ADK A2,9 g P SUK A
0x1926c0…248b20 [0x11a]: Pad {f00=0x00dc, f01=0x0190, f02=»DK A1,/A MULTIPLY BY 10 g P RB DEC:20 h PDEC:30 ADR A1,A2 h 2 P RTN A5 h J P XIF h Z P EJECT DRFD01 h f P* h ~ P********** h P* SETCIO * h P********** h P* h 2 P* FUNCTION: PUT DRIVE NO IN CIO INSTRUCTION h P* h 8 P*
0x1926c0…248b20 [0x11b]: Pad {f00=0x00dc, f01=0x0190, f02=» PSETCIO LDKL A4,/FFCF i P ANS A4,FD:CIO i P SLL A3,4 i 6 P ORS A3,FD:CIO i H P RTN A5 i ^ P IFT IBM=1 i n P EJECT DRFD01 i P* i P********** i P* BINDEC * i P********** i P* i : P* FUNCTION: BINDEC TRANSFORMS A BINARY
0x1926c0…248b20 [0x11c]: Pad {f00=0x00dc, f01=0x0190, f02=»UTPUT: A3 EBCDIC CODED DECIMAL DIGITS i P* A7 CHANGED j . P* j L PBINDEC LDK A3,0 j V PBIN:10 SUK A7,10 j n P RF(N) BIN:20 j P ADK A3,1 j P RB BIN:10 j PBIN:20 ADK A7,10 j P SLL A3,8 j * P ORR A3,A7 DECIMAL CONVERTED NO
0x1926c0…248b20 [0x11d]: Pad {f00=0x00dc, f01=0x0190, f02=»* j P* k 4 P* FUNCTION: PREPARE FOR READING DATA SET LABEL k P* k L P* INPUT: A6 DWT ADDRESS k V P* k x : P* OUTPUT: A2 BITS 0-12 SECTOR NO, BITS 13-15 ZEROES k P* A3 128 k ( P* A4 DRIVER BUFFER ADDRESS k P*
0x1926c0…248b20 [0x11e]: Pad {f00=0x00dc, f01=0x018e, f02=»2 k P SLL A2,3 l P LDK A3,128 l P LDKL A4,BUF l 0 P RTN A5 l D P EJECT DRFD01 l T P* l l P********** l v P* DSOPCH * l P********** l P* l 6 P* FUNCTION: GET EOD-NO AND EOD-NO ADDRESS IN DWT l P* l P* INPUT: A6 D
0x1926c0…248b20 [0x11f]: Pad {f00=0x00dc, f01=0x0190, f02=» l x PDSOPCH LDK A1,DWTEOD m P CF A5,DSPAD m $ P LDR* A7,A2 EOD-NO m 8 P RTN A5 m R P EJECT DRFD01 m b P* m z P********* m P* DSPAD * m P********* m P* m 2 P* FUNCTION: GET ABSOLUTE ADDRESS OF SPECIFIED m 6 P* TYP
0x1926c0…248b20 [0x120]: Pad {f00=0x00dc, f01=0x0190, f02=»UTPUT: A2 ADDRESS TO DATA m P* A6 DWT ADDRESS n " P* n D " PDSPAD LC A2,DWTOR,A6 DRIVE NO n N P ANK A2,/3 n t P ADR A2,A2 n P ADR A2,A6 n P ADR A2,A1 n P RTN A5 n P EJECT DRFD01 n P* n P********* n P* STDWT *
0x1926c0…248b20 [0x121]: Pad {f00=0x00dc, f01=0x018e, f02=» ( P* INPUT: A1 OFFSET TO DWT AREA o . P* A3 WORD TO BE STORED IN DWT o 0 P* A6 DWT ADDRESS o b P* o P* OUTPUT: A1 UNCHANGED o 0 P* A2 ADDRESS TO WORD IN DWT AREA o P* A3 UNCHANGED o P*
0x1926c0…248b20 [0x122]: Pad {f00=0x00dc, f01=0x018e, f02=» o ~ P* p P********** p P* SETINH * p $ P********** p 6 P* p H @ P* FUNCTION: INHIBIT INTERRUPTS, IF FDON ROUTINE IS ACTIVE p R > P* ESCAPE VIA DISPATCHER ELSE RESET DWTENB AND p P* RETURN p P* p " P* INPUT:
0x1926c0…248b20 [0x123]: Pad {f00=0x00dc, f01=0x0190, f02=» p | PSET:10 RTN A5 q P XIF q P* q * " P* D R I V E R B U F F E R q 4 PBUF DATA 0,0,0,0 q Z P* q r P IFT IBM=1 q | P RES 60 q P XIF q P* q P EJECT DRFD01 q P* q P********************* q P* *
0x1926c0…248b20 [0x124]: Pad {f00=0x00dc, f01=0x0190, f02=»0 q P DATA /8000 DWT STATUS r P DATA 0 ECB ADDRESS r ( P DATA 0 ORDER r D " P DATA FDADR ACTIVATION ADDRESS r Z P DATA 0 TTAB-ADDRESS r $ P DATA 0 WAIT/ACTIVATE INDICATOR r P DATA 0 TERMINAL QUEUE r P* r IFT MMUPAG=1 r & " DATA 0
0x1926c0…248b20 [0x125]: Pad {f00=0x00dc, f01=0x0190, f02=» DATA 0 r P DATA 0 s P DATA 0,0,0,0 STACK s ( PDWTST2 EQU *-DWFD01 SAVE STATUS WORD s < P DATA -1 s h * PDWTRTY EQU *-DWFD01 RETRY REQUEST FLAG s x P DATA 0 s $ PDWTTP EQU *-DWFD01 TIMER POINTER s P DATA 0 s ( PDWTRCW EQU *-DWFD01 TEMP RET
0x1926c0…248b20 [0x126]: Pad {f00=0x00dc, f01=0x0190, f02=»R s j P DATA 0 t ( PDWTVO0 EQU *-DWFD01 VOLUME NAME NO 0 t P DATA 0,0,0 t F ( PDWTVO1 EQU *-DWFD01 VOLUME NAME NO 1 t Z P DATA 0,0,0 t ( PDWTVO2 EQU *-DWFD01 VOLUME NAME NO 2 t P DATA 0,0,0 t ( PDWTVO3 EQU *-DWFD01 VOLUME NAME NO 3 t P DAT
0x1926c0…248b20 [0x127]: Pad {f00=0x00dc, f01=0x0190, f02=» FLAG AT POWER ON t r P DATA 0 u P XIF u * P* u 6 P IFT CHAN=1 u @ 6 PDWTUB EQU *-DWFD01 POINTER AT NEXT WORD IN BUFFER u T P DATA 0 u , PDWTUBE EQU *-DWFD01 BUFFER END ADDRESS+2 u P DATA 0 u , PDWTRW EQU *-DWFD01 READ/WRITE INDICATOR u
0x1926c0…248b20 [0x128]: Pad {f00=0x00dc, f01=0x0190, f02=»OD EQU *-DWFD01 END OF DATA u P DATA 0,0,0,0 v $ & PDWTEOE EQU *-DWFD01 END OF EXTENT v : P DATA 0,0,0,0 v d * PDWTCRN EQU *-DWFD01 CURRENT RECORD NO v z P DATA 0,0,0,0 v . PDWTDSS EQU *-DWFD01 DATA SET LABEL SECTOR v P DATA 0,0,0,0 v P XIF
0x1926c0…248b20 [0x129]: Pad {f00=0x00dc, f01=0x0190, f02=»PHYSICAL BUFFER ADDRESS v P DATA 0 SECOND MMU ENTRY w P* w @ PDWT:LA EQU *-DWFD01 w J * P DATA 0 16 BIT LOGICAL BUFFER ADDRESS w f P* w PDWT:BF EQU *-DWFD01 w $ P DATA 0 SAVE AREA BUFFER ADDRESS w P XIF w P* w P IFT MMUPAG=1 w
0x1926c0…248b20 [0x12a]: Pad {f00=0x00dc, f01=0x4098, f02=» w | P XIF x P* x P IFT MMUPAG=1 x P IFT DEVIND=4 x 4 PFD:BUF EQU 0 x J P XIF x ^ P* x j P* x t P* x ~ P END x @ x PDWT:BF EQU *-DWFD01 w $ P DATA 0 SAVE AREA BUFFER ADDRESS w P XIF w P* w P IFT MMUPAG=1 w
0x1926c0…248b20 [0x12b]: Pad {f00=0x00dc, f01=0x2008, f02=» y END @
0x1926c0…248b20 [0x12c]: Pad {f00=0x00dc, 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
0x1926c0…248b20 [0x12d]: Pad {f00=0x00dc, f01=0x0190, f02=» ABC-LV LRC O VRC ERROR IN BLOCK D = 0 C = E R 8 P* DRD DATA REQUEST DELAYED D # 0 C = 0 S 8 F P* LOCAL CHAR. MAY BE DIFFERENT FROM ZERO S t 8 P* STD STATUS MESSAGE D # 0 C # 0 S 2 P* DIN D
0x1926c0…248b20 [0x12e]: Pad {f00=0x00dc, f01=0x0190, f02=» PCHLT1 EQU * T P* T $ P ST P,INTSAV SAVE LAST INTERRUPT T " P* T J P IFT CPU852=1 T T & P CF A15,SAVE8 SAVE A1-A8 ON STACK T j P XIF T P* T P IFT CPU852=0 T " P MSR 8,A15 SAVE A1-A8 ON STACK T P XIF T P* T P LDK A7,2 INDI
0x1926c0…248b20 [0x12f]: Pad {f00=0x00dc, f01=0x0190, f02=» P* INTERRUPT FROM CHLT2 U P* U & P IFT LOCHAN=2 U 0 $ P ST P,INTSAV SAVE LAST INTERRUPT U F P* U n P IFT CPU852=1 U x & P CF A15,SAVE8 SAVE A1-A8 ON STACK U P XIF U P* U P IFT LOCHAN=2 U P IFT CPU852=0 U " P MSR 8,A15 SAVE
0x1926c0…248b20 [0x130]: Pad {f00=0x00dc, f01=0x0190, f02=» @ F R +P P X T$ T , ( V U W V R P $ , * & ; P W X X F * & U H X P @ Q MOV:USX , ( k @ (@ X + X "V P FDBMROV ,
0x1926c0…248b20 [0x131]: Pad {f00=0x00dc, f01=0x000a, f02=»
0x1926c0…248b20 [0x132]: Pad {f00=0x00dc, f01=0x0190, f02=» 2 P IDENT DRIC01 9.2DK 0 80-01-02 870105040920 P : P =DK0, MMU BUF SIZE B P 80-03-11 ` P* t P* ~ 2 P********************************************** P* $ P* PHILIPS TERMINAL SYSTEM PTS P* 0 P* DRIC01 = INT
0x1926c0…248b20 [0x133]: Pad {f00=0x00dc, f01=0x0190, f02=»******** j P* 8 P* THIS MODULE HANDLES THE INTERTASK COMMUNICATION P* V P EJECT DRIC01 ` P* x P* ORDERS: P* P* /02 READ, NOT ADDRESSED " P* /06 WRITE, NOT ADDRESSED P* /0A READ, ADDRESSED P
0x1926c0…248b20 [0x134]: Pad {f00=0x00dc, f01=0x018e, f02=» z P* A6 DWT ADDRESS P* A7 ORDER CODE $ P* A8 ECB ADDRESS @ , P* A12 ADDRESS TO DRIVER ADDRESS BLOCK P* P EJECT DRIC01 P* P* P*********** P* ENTRIES * P*********** P* P*
0x1926c0…248b20 [0x135]: Pad {f00=0x00dc, f01=0x0190, f02=» b 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 DISPATC
0x1926c0…248b20 [0x136]: Pad {f00=0x00dc, f01=0x0190, f02=»T TTAB ADDRESS & P EXTRN DWTSB1 STACK BASE 1 IN DWT & P EXTRN BUFLEN DRIVER BUFFER LENGTH @ P EXTRN SETIMP TIMER j , P EXTRN FNDTID FIND TTAB ADDRESS FROM TID P EXTRN TTB:ST TASK STATUS " P EXTRN TTB:TD TERMINAL DEVICES 4 P EXTRN IHRTN
0x1926c0…248b20 [0x137]: Pad {f00=0x00dc, f01=0x0190, f02=»CBEL ECB EFFECTIVE LENGTH P EXTRN ECBRC ECB RETURN CODE " " P EXTRN ECBCW ECB CONTROL WORD F P EJECT DRIC01 TOSSIO l P* P* . P***************************************** P* P* CONDITIONAL ASSEMBLY P* . P******
0x1926c0…248b20 [0x138]: Pad {f00=0x00dd, f01=0x018e, f02=»G EQU 1. r P* PMMUPAG EQU 1 P* . 6 P* A PROGRAM VERSION USING THE EXTENDED INSTRUCTION 8 . P* SET IS OBTAINED BY SETTING CPU852 EQU 0. r P* PCPU852 EQU 0 P* P* MMU BUFFER SIZE P* PX:A EQU 50 PX:Q EQU
0x1926c0…248b20 [0x139]: Pad {f00=0x00dd, f01=0x0190, f02=» P* P EJECT DRIC01 P* * P* 4 P********************* > P* DWT DISPLACEMENTS * P********************* z P* P* 0 PDWTDRD EQU /10 START OF DRIVER DEFINED PART P* P IFT MMUPAG=0 PSTART EQU
0x1926c0…248b20 [0x13a]: Pad {f00=0x00dd, f01=0x0190, f02=»INTER t PDWTIME EQU START+/02 TIME 6 PDWTANC EQU START+/04 POINTER TO FIRST DWT IN QUEUE 0 . PDWTQUE EQU START+/06 QUEUE ANCHOR ADDRESS j P* P EJECT DRIC01 P* P* P***************** P* ADDRESS BLOCK * P****
0x1926c0…248b20 [0x13b]: Pad {f00=0x00dd, f01=0x018e, f02=» DATA ICAD ACTIVATION ADDRESS P DATA ITABRT ABORT ADDRESS & P* H P* R 6 PRD:QUE DATA 0 QUEUE ANCHOR NOT ADDRESSED READ REQ. 8 PWR:QUE DATA 0 QUEUE ANCHOR NOT ADDRESSED WRITE REQ. P* $ P* INTERTASK DRIVER BUFFER (MMU) P*
0x1926c0…248b20 [0x13c]: Pad {f00=0x00dd, f01=0x0190, f02=» P* A C T I V A T I O N P* " PICAD EQU * , P LDR A1,A7 ORDER CODE TO A1 > P SUK A1,2 b & P RF(Z) RD:NAD READ NOT ADDRESSED? t P SUK A1,4 ( P ABL(Z) WR:NAD WRITE NOT ADDRESSED? P SUK A1,4 " P RF(Z) RD:ADR READ ADDRESSED
0x1926c0…248b20 [0x13d]: Pad {f00=0x00dd, f01=0x0190, f02=»* S E T T I M E O U T P* " P LD A2,ECBCW,A8 GET TIME , P ST A2,DWTIME,A6 L P RF END:IO d P* v P EJECT DRIC01 P* P* R E A D, A D D R E S S E D P* " P* W R I T E, A D D R E S S E D P* PRD:ADR EQU
0x1926c0…248b20 [0x13e]: Pad {f00=0x00dd, f01=0x0190, f02=»CW,A8 TID & P CF A15,FNDTID TTAB ADDRESS TO A2 P ADK A2,0 SET CR < P RF(Z) DIS:OE NOT FOUND? T P CW A2,DWTTAB,A6 t P RF(E) DIS:OE ILLEGAL TID? 4 P ADKL A2,TTB:TD ADDRESS TO TERMINAL DEVICE TABLE P LDR* A1,A2 TABLE LENGTH $ P LDR
0x1926c0…248b20 [0x13f]: Pad {f00=0x00dd, f01=0x0190, f02=» $ P* FIND DWT OF ADDRESSED TASK P* , 0 PADR:20 ADK A2,4 ADDRESS TO NEXT DWT ADDRESS 6 P SUK A1,4 j P RF(N) DIS:OE NOT FOUND? | P* P LDR* A4,A2 DWT ADDRESS " P CW A7,DWTADR,A4 SEARCHED DWT? P RB(NE) ADR:20 NO, TRY NEXT
0x1926c0…248b20 [0x140]: Pad {f00=0x00dd, f01=0x0190, f02=»NCHOR ADDRESS t " P CWR A1,A6 CHECK QUEUE ANCHOR 0 P RF(E) ADR:30 REQUEST ISSUED FOR THIS TASK? < P* p P ANK A7,1 z P RF(Z) ADR:25 READ? P CWK A1,RD:QUE ( P RF(E) ADR:30 COMPLEMENTARY REQUEST? P RF ADR:50 NO P* P
0x1926c0…248b20 [0x141]: Pad {f00=0x00dd, f01=0x0190, f02=» ABORT TIMER IF ANY P* > PADR:30 CF A15,ITAB05 ABORT TIMER AND REMOVE DWT FROM QUEUE & P ANK A7,1 h P RF(Z) RD:N05 READ? z P* P* MOVE BUFFER P* PADR:35 EQU * " P LDKL A5,DWTSB1 GET STACK BASE P ADR A5,A6
0x1926c0…248b20 [0x142]: Pad {f00=0x00dd, f01=0x0190, f02=»G BUFFER ADDRESS v P ANK A3,1 & P RF(Z) ADR:38 BUFFER ADDRESS EVEN? * : P ORS A3,ECBBA,A9 MAKE RECEIVING BUFFER ADDRESS UNEVEN T P RF END:IO P* PADR:38 EQU * P SUK A3,2 A3 := /FFFE 8 P ANS A3,ECBBA,A9 MAKE RECEIVING BUFFER ADD
0x1926c0…248b20 [0x143]: Pad {f00=0x00dd, f01=0x0190, f02=»C01 P* P* OUEUE REQUEST P* . . PADR:40 LDK A7,0 INDICATE ADDRESSED REQUEST 8 P* j PADR:50 EQU * t P LD A3,DWTIME,A6 TIME P RF(Z) TWR:30 P ADK A3,1 $ P RF(Z) ADR:70 NO TIMING WANTED? P SUK A3,1 P R
0x1926c0…248b20 [0x144]: Pad {f00=0x00dd, f01=0x0190, f02=»NTER | P ST A3,TIME P CF A15,SETIMP SET TIMER P DATA TIMOUT TIMEOUT ADDRESS @ PTIME DATA 0 d P* x P EJECT DRIC01 P* ( P* INSERT IN QUEUE WITHIN PRIORITY P* PADR:70 EQU * . P ST A2,DWTQUE,A6 STORE QUEUE
0x1926c0…248b20 [0x145]: Pad {f00=0x00dd, f01=0x0190, f02=»SED REQUEST? x : P ADK A2,DWTANC POINT TO ADDRESS OF FIRST DWT IN QUEUE P* R PADR:80 LDR A4,A2 SAVE P LDR* A2,A2 NEXT IN QUEUE z P RF(Z) ADR:90 END FOUND? " P LD A5,DWTTAB,A2 TTAB ADDRESS & P CC A1,TTB:ST+1,A5 COMPARE LEVELS
0x1926c0…248b20 [0x146]: Pad {f00=0x00dd, f01=0x0190, f02=»IOE REQUEST ERROR P* P EJECT DRIC01 $ P* < ( P* R E A D, N O T A D D R E S S E D F P* r $ PRD:NAD EQU * READ, NOT ADDRESSED | < P LD A2,DWTANC,A6 CHECK QUEUE OF ADDRESSED WRITE REQUESTS & P RF(NZ) RD:N10 ANYTHING IN QUEUE?
0x1926c0…248b20 [0x147]: Pad {f00=0x00dd, f01=0x0190, f02=» n & P ST A3,WR:QUE UPDATE QUEUE ANCHOR P* 2 PRD:N00 EQU * < & P CF A15,ABTIM2 ABORT TIMER IF ANY P P* z PRD:N05 EQU * " P LDR A4,A6 EXCHANGE A2 AND A6 P LDR A6,A2 P LDR A2,A4 P RB ADR:35 P* ( PRD:N10 LDR*
0x1926c0…248b20 [0x148]: Pad {f00=0x00de, f01=0x0190, f02=»UE ADDRESS r P RB ADR:50 INSERT IN QUEUE P* 4 P EJECT DRIC01 > P* V * P* W R I T E, N O T A D D R E S S E D ` P* & PWR:NAD EQU * WRITE, NOT ADDRESSED < P LD A2,DWTANC,A6 CHECK QUEUE OF ADDRESSED READ REQUESTS & P RF(NZ)
0x1926c0…248b20 [0x149]: Pad {f00=0x00de, f01=0x0190, f02=»A3,A2 NO, REMOVE FROM QUEUE & P ST A3,RD:QUE UPDATE QUEUE ANCHOR $ P* N , PWR:N05 CF A15,ABTIM2 ABORT TIMER IF ANY X P RB ADR:35 P* ( PWR:N10 LDR* A3,A2 REMOVE FROM QUEUE ( P ST A3,DWTANC,A6 UPDATE QUEUE ANCHOR P RB WR:N05
0x1926c0…248b20 [0x14a]: Pad {f00=0x00de, f01=0x0190, f02=»O U T P* PTIMOUT LDR A6,A1 DWT ADDRESS " P CM* 0,A2 RESET TIMER POINTER < P LDR A2,A6 b $ P CF A15,ITAB10 REMOVE FROM QUEUE t P* PTWR:30 EQU * P CMR A6 RESET QUEUE LINK P LDK A1,/40 RETURN CODE P RB END:IO
0x1926c0…248b20 [0x14b]: Pad {f00=0x00de, f01=0x0190, f02=»WILL UPDATE QUEUE AND ABORT TIMER (IF ANY). P* 4 P* INPUT: A6 = DWT ADDRESS > P* b " P* OUTPUT: A1-A4 ARE DESTROYED l P* PITABRT EQU * P LDR A2,A6 P* PITAB05 EQU * P CF A15,ABTIM ABORT TIMER P*
0x1926c0…248b20 [0x14c]: Pad {f00=0x00de, f01=0x0190, f02=» ITAB20 NOT-ADDRESSED READ REQUEST? P CWK A1,WR:QUE , . P RF(E) ITAB20 NOT-ADDRESSED WRITE REQUEST? B : P ADK A1,DWTANC POINT TO ADDRESS OF FIRST DWT IN QUEUE t P* P EJECT DRIC01 P* P* PITAB20 LDR A4,A1 SAVE P LDR
0x1926c0…248b20 [0x14d]: Pad {f00=0x00de, f01=0x0190, f02=»A4 UPDATE QUEUE LINKS P CMR A2 RESET QUEUE LINK P* > P IFT CPU852=1 H P RF IH:RTN ^ P XIF p P* | P IFT CPU852=0 P RTN A15 P XIF P* P EJECT DRIC01 P* P* A B T I M P* . P* SUBRO
0x1926c0…248b20 [0x14e]: Pad {f00=0x00de, f01=0x0190, f02=» P* PABTIM2 EQU * P CMR A2 RESET QUEUE LINK " P* B PABTIM LDK A1,DWTTP L $ P ADR A1,A2 TIMER POINTER ADDRESS f 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
0x1926c0…248b20 [0x14f]: Pad {f00=0x00de, f01=0x018e, f02=» EJECT DRIC01 P* P* M O V B U F " P* 8 4 P* SUBROUTINE TO MOVE BUFFER FROM SENDING TASK B P* TO ADDRESSED TASK. z > P* EFFECTIVE LENGTH IN BOTH INPUT AND OUTPUT ECB ARE SET. B P* A1 WILL CONTAIN RETURN CODE /8 IF SENDING RE
0x1926c0…248b20 [0x150]: Pad {f00=0x00de, f01=0x0190, f02=» X P* P* INPUT PARAMETERS: P* A2 RECEIVING DWT 0 P* A5 STACK POINTER N P* A6 SENDING DWT l P* P* REGISTER USAGE: P* A1 RETURN CODE P* A2 DWT RECEIVING TASK P* A3 WORKING REGISTER
0x1926c0…248b20 [0x151]: Pad {f00=0x00de, f01=0x0190, f02=» A8 ECB ADDRESS SENDING TASK & P* A9 ECB ADDRESS RECEIVING TASK & P* P PMOVBUF EQU * Z P LD A8,DWTECB,A6 SENDING ECB n $ P ENB GIVE OTHER TASKS A CHANCE P* P EJECT DRIC01 P* P* P LDK A1,0 " P LD A9,D
0x1926c0…248b20 [0x152]: Pad {f00=0x00de, f01=0x0190, f02=»V:05 , P LDK A1,8 RETURN CODE (INCORRECT LENGTH) P LD A3,ECBRL,A9 < P RB(N) DIS:OE T P* j PMOV:05 EQU * t P IFT MMUPAG=1 6 P LDKL A4,ITAD GET ADDRESS TO DRIVER ADDRESS BLOCK * P CW A3,BUFLEN,A4 CHECK MMU BUFFER SIZE , P RF(
0x1926c0…248b20 [0x153]: Pad {f00=0x00de, f01=0x018e, f02=» P* ! PMOV:10 EQU * ! P XIF ! " P* ! . P ! 8 $ P ST A3,ECBEL,A8 EFFECTIVE LENGTH ! @ $ P ST A3,ECBEL,A9 EFFECTIVE LENGTH ! h P* ! P EJECT DRIC01 ! P* ! P* ! P IFT MMUPAG=0 ! * P LD A4,ECBBA,A8 SENDING BUFFER ADDRESS ! , P
0x1926c0…248b20 [0x154]: Pad {f00=0x00de, f01=0x40e0, f02=» ! j P LCR A9,A4 " P SCR A9,A7 " P ADK A4,1 " , P ADK A7,1 " > P RB MOV:15 " P P* " b PMOV:20 EQU * " l P XIF " P* " P INH " P RTN A5 " P* " P* " P* " P END " @ " A4,ECBBA,A8 SENDING BUFFER ADDRESS ! , P
0x1926c0…248b20 [0x155]: Pad {f00=0x00de, 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 L
0x1926c0…248b20 [0x156]: Pad {f00=0x00de, f01=0x018e, f02=»-ADDRESS v ( PSOPDA EQU /2E S.O.P. DEVICE ADDRESS * PSTALEN EQU 512 MAX STANDARD SEC. LEN. < ( PTOSLEN EQU 410 MAX TOSS SEC. LENGTH j " PIBMLEN EQU 128 IBM SEC. LENGTH ( PBOE EQU 28 BEGIN OF EXTENT POSITION & PEOE EQU 34 END OF EXTENT POSITION
0x1926c0…248b20 [0x157]: Pad {f00=0x00de, f01=0x0190, f02=» P******************** P* * P* DWT-DISPLACEMENTS* < P* * X P******************** t P* 0 PDWTDRD EQU /10 START OF DRIVER DEFINED PART P* P IFT MMUPAG=0 PSTART EQU DWTDRD P XIF
0x1926c0…248b20 [0x158]: Pad {f00=0x003e, f01=0x0092, f02=»TOSSUTIL UTI91 LM UTI91MLM @ SRT91 LM CON91 UF h MON91 LM p MON91MLM /OBJCTOB CNF91 UF @ EG7 LM CSEG8 LM CSEG9 LM CSEGA LM CSEGB LM CSEGC LM CSEGD LM ( CSEGE LM
0x1926c0…248b20 [0x159]: Pad {f00=0x003e, f01=0x002a, f02=» P X ( 0 8 @ H P
0x1926c0…248b20 [0x15a]: Pad {f00=0x003e, f01=0x0190, f02=» 2 P IDENT DRDC15 9.2DK 3 80-01-03 870105040920 P : P DK3, RBUFNR = 1 ALLOWED B P DK2, TBUFL d P 80-03-11 z 0 P DK, COND.ASM., TIMPRO, TIMNAK, READ BUF. P 80-03-11 P REL 9.1 79-08-16 P =8, ASCII-MODE FOR SA
0x1926c0…248b20 [0x15b]: Pad {f00=0x003e, f01=0x018e, f02=»RESS DESTROYED x P REL 9.1 79-05-23 $ P =5, INCOMPLETE POLL SEQUENCE 2 P REL 9.1 79-05-23 Z P =3, TRANSFER PARAMETER v P PRR 9.1 79-04-06 P =4, ANY MESSAGE ORDER P PRR 9.1 79-04-06 P =2, ABORT HANDLING
0x1926c0…248b20 [0x15c]: Pad {f00=0x003e, f01=0x0190, f02=» P* 2 P********************************************* P* D $ P* PHILIPS TERMINAL SYSTEM PTS N P* v * P* DRDC15: DRIVER DATA COMMUNICATION . P* BSC MULTIPOINT LINE PROCEDURE P* OR SIEMENS MSV1 P*
0x1926c0…248b20 [0x15d]: Pad {f00=0x003e, f01=0x0190, f02=»* ENTRY POINTS P* 2 P ENTRY DC15AD ADDRESS BLOCK TERMINAL REQUESTS " P ENTRY IH1501 INPUT INTERRUPT V " P ENTRY IH1502 OUTPUT INTERRUPT | " P ENTRY DC15ON POWER ON ROUTINE " P ENTRY DW1500 DWT FOR DC TASK P* P* P* EXTERN
0x1926c0…248b20 [0x15e]: Pad {f00=0x003e, f01=0x018e, f02=»DIO COMPLETE I/O EVENT P EXTRN DISIOE REQUEST ERROR P EXTRN SETIME SET TIMER B P EXTRN DWTST DWT STATUS b P EXTRN DWTOR DWT ORDER P EXTRN DWTECB DWT ECB * P EXTRN INTSAV SAVE AREA LAST INTERRUPT ( P EXTRN TEBCDIC ASCII TO EBCDIC
0x1926c0…248b20 [0x15f]: Pad {f00=0x003e, f01=0x0190, f02=» l & P EXTRN ECBEL ECB EFFECTIVE LENGTH P EXTRN ECBRC ECB RETURN CODE 2 " P EXTRN ECBCW ECB CONTROL WORD V * P EXTRN DC:MIN MOVE DATA TO USER BUFFER | , P EXTRN DC:MOT MOVE DATA FROM USER BUFFER 0 P EXTRN DISEND COMPLETE REQUEST AND DISPATCH
0x1926c0…248b20 [0x160]: Pad {f00=0x0040, f01=0x018e, f02=» P* P* DWT CONTENTS P* ( J P* DWTCHP TERMINAL ADDRESS AS GIVEN AT PARAMETER TRANSFER (BIT #08-#15) 2 P* P < P******************************************************* P* * P* PARAMETERS FOR CONDITIONAL ASSEMBLY
0x1926c0…248b20 [0x161]: Pad {f00=0x0040, f01=0x0190, f02=» p & PX:A EQU 2000 RECEIVE BUFFER LENGTH PRBUFL EQU 650+X:X DK 2 PX:B EQU /60 DCTASK FILE CODE P PDC15FC EQU /60 t $ PX:C EQU 1 IF 1 INTERRUPT LOGGING PLOGG EQU 0 P* * PTIMPOL EQU 600 POLL TIMEOUT VALUE DK * PX:E EQU 1 STAT
0x1926c0…248b20 [0x162]: Pad {f00=0x0040, f01=0x0190, f02=»LOCK LENGTH z PTBLEN EQU 2300 ( PX:H EQU 1 CODE , 0=ASCII , 1=EBCDIC * PCODE EQU 0 V * PX:I EQU 0 IF 1 SPECIFIC POLL HANDLING h PSPECP EQU 0 , PX:J EQU 1 IF = 1 LINE SPEED SET TO HIGH ( P IF = 0 LINE SPEED IS SET TO LOW PSPEE
0x1926c0…248b20 [0x163]: Pad {f00=0x0040, f01=0x018e, f02=»NR EQU 2 . PX:M EQU 0 IF = 1 PTS 6805 ADAPTION SALCUZ PP6805 EQU 00 B PX:N EQU /02 V P IFT P6805=0 j , PLCUIN EQU 02 DEVICE ADDRESS OF RECEIVER ~ P XIF P IFT P6805=1 , PLCUIN EQU /0A DEVICE ADDRESS OF RECEIVER P XIF P
0x1926c0…248b20 [0x164]: Pad {f00=0x0040, f01=0x0190, f02=» 4 PX:Q EQU 0 IBM-3270 EMULATION PACKAGE, IF NOT = 0 PEM3270 EQU 1 < PX:R EQU 1000 P P DK2 d * PBINTRM EQU 0 IF 1 BINARY TRANSMISSION t , PTSTREQ EQU 0 IF 1 TEST REQUEST HANDLING , PDMRK EQU 1 SPECIAL CONDITION FOR DENMARK 4 PNOWACK E
0x1926c0…248b20 [0x165]: Pad {f00=0x0040, f01=0x0190, f02=»TO "ONE". n , P ONLY WORKING IF STAT IS SET TO "ONE". P IFT P6805=0 SALCUZ B < PLCUUT EQU LCUIN+/10 DEVICE ADDRESS OF TRANSMITTER SALCUZ ^ P XIF SALCUZ P IFT P6805=1 < PLCUUT EQU LCUIN+/01 DEVICE ADDRESS OF TRANSMITTER SALCUZ P X
0x1926c0…248b20 [0x166]: Pad {f00=0x0040, f01=0x0190, f02=»ASSEMBLY P* . P***************************************** P* L . P* A PROGRAM VERSION USING TOSS MMU PAGING V * P* IS OBTAINED BY SETTING MMUPAG EQU 1. P* PMMUPAG EQU 1 P* P DB P IFT MMUPAG=0 DK2 PTBUF
0x1926c0…248b20 [0x167]: Pad {f00=0x0040, f01=0x018e, f02=» P DE P* 6 P* A PROGRAM VERSION USING THE EXTENDED INSTRUCTION . P* SET IS OBTAINED BY SETTING CPU852 EQU 0. V P* PCPU852 EQU 0 P* 2 PDEVIND EQU -2 DEVICE INDEX DATA COMMUNICATION * PBUFLEN EQU TBUFL+TBUFL MMU BUFFER SI
0x1926c0…248b20 [0x168]: Pad {f00=0x0042, f01=0x0190, f02=» P IFT MMUPAG=0 PSTART EQU DWTDRD P XIF 6 P* B P IFT MMUPAG=1 L PSTART EQU DWTDRD+4 b P XIF | P* 4 PDWTTP EQU START+/00 TIMER POINTER ORDER PROCESS . PDWTWQ EQU START+/02 WRITE/GET BUFFER QUEUE $ PDWTSQ EQU STAR
0x1926c0…248b20 [0x169]: Pad {f00=0x0042, f01=0x0190, f02=»+/0A CURSOR ADDRESS , PDWTTIM EQU START+/0C REQUEST TIMER VALUE P* L P V P* ` P* REQUEST HANDLING j P* P* P* P* A7=ORDER P* P* /02: READ P* /06: WRITE P* /37: TRANSFER PARAMETERS P*
0x1926c0…248b20 [0x16a]: Pad {f00=0x0042, f01=0x0190, f02=» & PDCONOF DATA 0 ON- / OFFLINESWITCH * PDCSTOL DATA 0 OLD DC EQUIPMENT STATUS . PDCSTCU DATA 0 CURRENT STATUS $ PDCWRQ DATA 0 WRITE REQUEST QUEUE , PDCTPGP DATA 0 TIMER POINTER GENERAL POLL P P* P* DC TASK ADDRESS BLOCK
0x1926c0…248b20 [0x16b]: Pad {f00=0x0042, f01=0x0190, f02=»ATA ABORT ABORT ROUTINE ADDRESS $ P DATA DCRBUF REC. BUFFER ANCHOR ( P* P P* DRIVER ADDRESS BLOCK Z P* x P DATA BUFLEN MMU BUFFER SIZE P DATA DEVIND DEVICE INDEX ( PDC15AD DATA DCACT ACTIVATION ADDRESS 4 P DATA ABORT ABORT ROUT
0x1926c0…248b20 [0x16c]: Pad {f00=0x0042, f01=0x0190, f02=»B RES 1 " P RES 1 AND FOR TRANSFER PARAM PSTB2 RES 1 6 P H P IFT SPEED=1 P PLSPEED EQU /0200 d P XIF | P IFT SPEED=0 PLSPEED EQU 0 P XIF P P* P* $ P* ACTIVATION FROM TERMINAL TASKS P*
0x1926c0…248b20 [0x16d]: Pad {f00=0x0042, f01=0x0190, f02=»DER =4 t P XIF P SUK A7,/02 P RF(Z) DCRD READ SPECIFIC . P SUK A7,/06-/02 P P RF(Z) DCWR h P SUK A7,/37-/06 | $ P RF(Z) DCTP TRANSFER PARAMETERS P IFF STAT=0 P SUK A7,/38-/37 P RF(Z) DCSS SET STATUS P SUK
0x1926c0…248b20 [0x16e]: Pad {f00=0x0042, f01=0x0190, f02=»TIM SET REQUEST TIMER P XIF P RF DCA100 * P < P* F P* P P* ACTIVATION FROM DCTASK Z P* z P* PDCACTD EQU * $ P SUR A1,A1 PRESET RETURN CODE =4 P IFT EM3270=1 =4 P LDR A7,A7 =4 & P RF(Z) ANYMSG AN
0x1926c0…248b20 [0x16f]: Pad {f00=0x0042, f01=0x0190, f02=»ETERS v P PDCA100 EQU * REQUEST ERROR P ABL DISIOE INVALID ORDER 8 P* Z P* d P* READ FROM DCTASK n P* P* P* REQUEST FROM DC-TASK P* COMPLETE WHEN: & P* STATUS CHANGE ON DC EQUIPMENT $ P* SPONTANOUS
0x1926c0…248b20 [0x170]: Pad {f00=0x0042, f01=0x0190, f02=» GO TO DISPATCHER P IFT EM3270=1 =4 P 4 . P***************************************** > P* p P* ANY MESSAGE ORDER z P* " P***************************** P 2 PANYMSG LD A4,DWTRQ,A6 ANY QUEUED MESSAGE ?? =4 P RF(
0x1926c0…248b20 [0x171]: Pad {f00=0x0042, f01=0x0190, f02=» z P* P* > P* REQUEST FROM DC-TASK: TRANSFER TERMINAL COMPUTER ADDRESS : P* FROM TERMINALS: TRANSFER TERMINAL ADDRESSES ^ P* P* P IFF CODE=1 & PDCTP LD A2,ECBCW,A8 GET PARAMETER P XIF P IFT CODE=1
0x1926c0…248b20 [0x172]: Pad {f00=0x0042, f01=0x0190, f02=»LL A2,8 PDCTP10 EQU * $ P LC A3,ECBCW+1,A8 GET TCP OR DV $ P ANK A3,/FF L ( P LC A2,TASCII,A3 TRANSLATE TO ASCII ` P XIF ( P STR A2,A6 SAVE IN FIRST WORD OF DWT P P IFT RCOM=1 * P LD A3,ECBBA,A8 DEVICE BUFFER ADDRESS
0x1926c0…248b20 [0x173]: Pad {f00=0x0042, f01=0x0190, f02=»??? v 2 P RF(E) DCTP30 YES!!! SHOULD NOT BE IN DC:TAB * P LD A1,DC:IN GET DC:TAB INPUT POINTER B * P CWK A1,DC:END TABLE ALREADY FULL ???? p & P ABL(E) DISIOE YES!! REQUEST ERROR P P P PDCTP20 EQU * " P LD A4,DCTAB DC:TAB
0x1926c0…248b20 [0x174]: Pad {f00=0x0042, f01=0x018e, f02=»ED?? =3 r * P RF(E) DCTP25 YES.DWT NOT IN TABLE =3 P CWR* A6,A4 IN TABLE ?? =3 > P RF(E) DCTP30 YES!! =3 ` " P RB DCTP22 CHECK NEXT ENTRY =3 ~ PDCTP25 EQU * =3 P $ P STR A6,A1 INSERT DWT IN DC:TAB P LDK A1,2 * P ADS A1,DC:I
0x1926c0…248b20 [0x175]: Pad {f00=0x0042, f01=0x0190, f02=» P ORS A1,DWTST,A6 ( P CF A15,INSSQ INSERT IN STATUS QUEUE P XIF H PDCTP30 EQU * T P SUR A1,A1 RETURN CODE ::= 0 h PENDIO EQU * $ P CF A15,TENDIO COMPLETE REQUEST P RB DCRTN P P* P* P* WRITE P*
0x1926c0…248b20 [0x176]: Pad {f00=0x0042, f01=0x0190, f02=» IFT MMUPAG=1 $ P LD A1,ECBRL,A8 REQUESTED LENGTH " P CWK A1,BUFLEN ILLEGAL LENGTH? > P RF(G) IL:LEN YES!! d P XIF P CF A15,TIMEWR SET TIMER P CF A15,INSWQ QUEUE REQUEST P RB DCRTN P* P* P* P* READ
0x1926c0…248b20 [0x177]: Pad {f00=0x0042, f01=0x0190, f02=» LD A8,DWTECB,A6 GET ECB . P LD A4,DWTRQ,A6 AND RECEIVE MESSAGE QUEUE " P RF(Z) DCRD10 NOTHING IN QUEUE R P x P P ( P LDR* A2,A4 TAKE THE FIRST IN QUEUE P ST A2,DWTRQ,A6 P ADK A4,6 " P LD A3,-4,A4 EFFECTIVE LENGTH
0x1926c0…248b20 [0x178]: Pad {f00=0x00a0, f01=0x0190, f02=» $ PDCRD10 CF A15,TIMERE START TIMER P RB DCRTN 0 P B P* L P* V P* SET STATUS ` P* t P* ~ P IFF STAT=0 PDCSS EQU * * P LD A1,ECBCW,A8 GET STATUS INFORMATION P ANK A1,3 MASK DB,IR P RF(Z) DCSS20 DEVI
0x1926c0…248b20 [0x179]: Pad {f00=0x00a0, f01=0x0190, f02=» P ANK A1,9 ( P RB(Z) DCSS10 WACK HAS NOT BEEN SENT PDCSS30 EQU * B , P CF A15,INSSQ INSERT DWT IN STATUS QUEUE V P LDK A1,4 SET DE P RB DCSS10 P XIF P P P* " P* SET REQUEST TIMEOUT VALUE P* P*
0x1926c0…248b20 [0x17a]: Pad {f00=0x00a0, f01=0x0190, f02=»DISPATCH | P P* ( P* ILLEGAL APPLICATION BUFFER SIZE " P* N P X 8 PIL:LEN LDKL A1,/8008 REQUEST ERROR + ILLEGAL LENGTH ` P ABL DISEND COMPLETE REQUEST P P* P* P* P* TIMER HANDLING PART P*
0x1926c0…248b20 [0x17b]: Pad {f00=0x00a0, f01=0x0190, f02=»EOUT VALUE p P RF(Z) TIME10 NO TIMING ! P ST A2,TIMERR ! 2 P CF A15,SETIME ! H P DATA TOUTRE ! ^ PTIMERR DATA 0 ! r ( P ST A4,DWTTP,A6 STORE TIMER POINTER ! PTIME10 EQU * ! P RF GBUF10 RETURN ! P* ! P* TIMEOUT READ TIMER ! P*
0x1926c0…248b20 [0x17c]: Pad {f00=0x00a0, f01=0x0190, f02=»TOUTR2 RB ENDIO COMPLETE REQUEST ! P* " ( P* WRITE TIMER=TIMWR " 2 P* " N PTIMEWR LDR A1,A6 " X . P LD A2,DWTTIM,A6 GET REQUEST TIMEOUT VALUE " p P RB(Z) TIME10 NO TIMING " P ST A2,TIMWR " P CF A15,SETIME " P DATA TOUTWR " PTIMWR DATA
0x1926c0…248b20 [0x17d]: Pad {f00=0x00a0, f01=0x0190, f02=»DR A6,A1 FETCH DWT " P CM DWTTP,A6 # * P CF A15,REMOVW REMOVE FROM WRITE QUEUE # . P* # & P* THIS INSTRUCTION DOES NOT BELONG # f P* TO THE STANDARD INTERFACE # P LD A2,FDWTUT # P CWR A2,A6 # * P RB(NE) TOUTR1 THIS DWT IS NOT WRITING # ( P
0x1926c0…248b20 [0x17e]: Pad {f00=0x00a0, f01=0x0190, f02=»OP REQUEST TIMING # P* $ & P* REMAINING TIME IS RETURNED IN A2 $ $ P* $ N P* $ X PCTIME EQU * $ b & P LD A2,DWTTP,A6 GET TIMER POINTER $ v P RF(Z) CTIM10 NOT RUNNING $ P LDR* A2,A2 $ " P NGR A2,A2 GET REMAINING TIME $ P CM* DWTTP,A6
0x1926c0…248b20 [0x17f]: Pad {f00=0x00a0, f01=0x018e, f02=»* CALLING SEQUENCE: CF A15,GRBUF $ P* A4=0 IF NO BUFFER IS FREE % ( & P* ELSE A4 CONTAINS BUFFER ADDRESS % L P* A2 AND A3 ARE DESTROYED % v P* % P* % ( PGRBUF LDKL A2,DCRBUF RECEIVE BUFFERS % PGBUF INH % P LDR* A4,A2 % P RF(Z) GBUF10
0x1926c0…248b20 [0x180]: Pad {f00=0x00a0, f01=0x0190, f02=» P ABR* A15 RETURN TO CALLER & P & & P* & 0 P* & : ( P* INSERT DWT IN WRITE REQUEST QUEUE & D P* & p P* A2,A3,A4 DESTROYED & z P* A6=DWT & P* & ( PINSWQ LDKL A2,DCWRQ GET QUEUE ANCHOR & PINSWQ1 LDK A4,DWTWQ & PINSWQ2 LDR* A3,A2
0x1926c0…248b20 [0x181]: Pad {f00=0x00a0, f01=0x0190, f02=» & v " P CMR A4 INDICATE END OF QUEUE ' P RB GBUF10 RETURN ' . P* ' H P* ' R * P* REMOVE DWT FROM WRITE REQUEST QUEUE ' P* ' P* A2,A3,A4 DESTROYED ' P* A6=DWT ' P* ' * PREMOVW LDKL A2,DCWRQ GET QUEUE ANCHOR ' 2 PREM05 LDK A4,DWTWQ
0x1926c0…248b20 [0x182]: Pad {f00=0x00a0, f01=0x018e, f02=» ' n P CWR A3,A4 ( P RF(E) REM15 ( P LDR A2,A3 GET NEXT ( . P RB REM10 ( J PREM15 LDR* A3,A4 REMOVE ( P STR A3,A2 ( | P RB GBUF10 RETURN ( P ( P* ( P* ( P* INSERT DWT IN STATUS QUEUE ( P* ( P IFF STAT=0 ( P*
0x1926c0…248b20 [0x183]: Pad {f00=0x00a0, f01=0x018e, f02=» P* ) P* ) " P* REMOVE DWT FROM STATUS QUEUE ) P* ) > P* A2,A3,A4 DESTROYED ) H P* A6=DWT ) d P* ) t * PREMOVS LDKL A2,DCSTQ GET QUEUE ANCHOR ) ~ P LDK A4,DWTSQ ) P RB REM06 ) P XIF ) P ) P* ) P* ) $ P* QUEUE ALLO
0x1926c0…248b20 [0x184]: Pad {f00=0x00a0, f01=0x0190, f02=» ) ( P LDKL A2,DW1500 QUEUE ON DC-TASK DWT * P XIF * 4 P IFT MESPAS=0 * @ $ P LDR A2,A6 QUEUE ON TERMINAL DWT * V P XIF * ~ , P ADK A2,DWTRQ BEGINNING OF RECEIVE QUEUE * PQR100 EQU * * P LDR* A3,A2 * $ P RF(Z) QR200 END OF QUEUE FOUND * P
0x1926c0…248b20 [0x185]: Pad {f00=0x00a0, f01=0x0190, f02=» * P* + P* + 2 P* CHECK IF UNEXPECTED MESSAGE OR STATUS CHANGE + P* + R 4 P* REGISTERS A1,A2,A3,A4,A6 AND A8 ARE DESTROYED + P* + PCKMESS LDKL A6,DW1500 + P LD A1,DWTST,A6 + P RF(N) CKM110 NO REQUEST + P LDK A1,2 READ REQUEST
0x1926c0…248b20 [0x186]: Pad {f00=0x00a0, f01=0x0190, f02=»EUE + n " P RF(Z) CKM200 NO READ IN QUEUE , P , 2 P , : , P LDR* A2,A3 A2=ADDR TO NEXT READ BUFFER , B . P ST A2,DWTRQ,A6 STORE THIS ADDR INTO QUEUE , r " P ADK A3,6 MOVE POINTER TO TEXT , & P DONT DESTROY BUFFER ADDRESS =6 , P LD A4,-4,A3 , 0 P S
0x1926c0…248b20 [0x187]: Pad {f00=0x00a0, f01=0x0190, f02=»1,0 RESET RETURN CODE , & P LDR A4,A3 RECEIVE BUFFER ADDRESS - , P CF A15,DC:MIN MOVE DATA TO USER BUFFER - H * PCKM110 ADKL A15,4 ADJUST STACK POINTER - x P ABR* A15 RETURN - 8 PCKM200 LD A1,DCSTCU NO MESSAGE RECEIVED,CHECK STATUS - , P OR A1,DCONOF TA
0x1926c0…248b20 [0x188]: Pad {f00=0x00a1, f01=0x0190, f02=»NDICATE STATUS CHANGE - 0 P CF A15,TENDIO COMPLETE READ GENERAL REQUEST . P RB CKM110 . R P . d P . n @ P************************************************************ . v P* . P* ABORT ROUTINE . P* . P************************ . P .
0x1926c0…248b20 [0x189]: Pad {f00=0x00a1, f01=0x0190, f02=» P / $ PAB:10 LD A1,DWTOR,A6 ORDER CODE / P SUK A1,2 / 4 * P RF(Z) AB:RTN READ REQUEST. NO ACTION / F P SUK A1,4 / t . P RF(NZ) AB:RTN NO ACTION IF NOT READ/WRITE / P / . P CF A15,REMOVW REMOVE DWT FROM WRITE QUEUE / & P LD A2,FDWTUT WRITING DW
0x1926c0…248b20 [0x18a]: Pad {f00=0x00a1, f01=0x0190, f02=»WT / v P 0 PAB:RTN EQU * 0 P IFT CPU852=1 0 & P ADKL A15,4 0 < $ P ABR* A15 RETURN IN INHIBIT MODE 0 P P XIF 0 x P IFF CPU852=1 0 P RTN A15 0 P XIF 0 P 0 P 0 P 0 P* 0 P* 0 P* STORE REGISTER A3-A8 0 $ P* CALL
0x1926c0…248b20 [0x18b]: Pad {f00=0x00a1, f01=0x018e, f02=»LCA3 0 P ST A4,LCA4 1 P ST A5,LCA5 1 P ST A6,LCA6 1 4 P ST A7,LCA7 1 H P ST A8,LCA8 1 P RF RTNA15 RETURN 1 p P 1 PLDREG LDKL A3,0 1 PLCA3 EQU *-2 1 P LDKL A4,0 1 PLCA4 EQU *-2 1 P LDKL A5,0 1 PLCA5 EQU *-2 1
0x1926c0…248b20 [0x18c]: Pad {f00=0x00a1, f01=0x0190, f02=» P ADKL A15,4 2 P ABR* A15 2 P 2 * P* 2 4 P* 2 > P* TIMER VALUES 2 H P* 2 ^ P* 2 h * PTIMPRO EQU 90 PROCEDURE TIMER 9 SEC DK 2 r " PTIMNAK EQU 3 DELAY FOR NAK DK 2 P* 2 P* 2 P* CHARACTER EQUATES 2 P* 2 & PSF EQU X'1
0x1926c0…248b20 [0x18d]: Pad {f00=0x00a1, f01=0x0190, f02=»H EQU /01 2 PENQ EQU /05 3 PDLE EQU /10 3 & PEOT EQU /04 3 : PNAK EQU /15 3 N PESC EQU /1B 3 b PSBA EQU /11 3 v PGP EQU /22 3 PRDBCOM EQU /32 3 PRDMCOM EQU /36 3 P IFT CODE=0 3 PPAR EQU /80 3 PRVI EQU /3C 3 PACK0 E
0x1926c0…248b20 [0x18e]: Pad {f00=0x00a1, f01=0x0190, f02=»1=1 3 0 PWACK EQU /BF =WABT - SIEMENS MSV1 PROCEDURE 4 P XIF 4 @ P IFT CODE=1 4 L PPAR EQU /00 4 ` PWACK EQU /2C 4 t PRVI EQU XRVI DK 4 PACK0 EQU /18 4 PACK1 EQU /2F 4 PSYNEBC EQU /32 4 P XIF 4 P 4 P* 4 P* 4 P*
0x1926c0…248b20 [0x18f]: Pad {f00=0x00a1, f01=0x0190, f02=»N 4 h PXACK DATA 0 ACK EXPECTED 5 PXSEL DATA 0 SELECTED 5 * PXETX DATA 0 ETX SENT 5 F 2 PXSTA DATA 0 STATUS SENT / MESSAGE INPUT RESULT 5 b " PXRB DATA 0 READ BUFFER SWITCH 5 PCACK DATA 0 ACK COUNTER 5 * PSYNSW DATA 0 0=SKIP SYNS, 1=DON'T SKIP 5
0x1926c0…248b20 [0x190]: Pad {f00=0x00a1, f01=0x0190, f02=»ATA 0 BUFFER INDEX 5 0 PFBLST DATA 0 START OF LAST TRANSMITTED BLOCK 6 $ PDCSTQ DATA 0 STATUS QUEUE ANCHOR 6 N . PDCTPP DATA 0 POINTER FOR PROCEDURE TIMING 6 v , PRESEND DATA 0 CONTROL SEQUENCE SAVE AREA 6 ( PCRDBUF DATA 0 READ BUFFER COUNTER DK 6 P* 6
0x1926c0…248b20 [0x191]: Pad {f00=0x00a1, f01=0x0190, f02=»E 6 h P* 7 P* 7 P DATA /4248 7 P DATA /4242 7 2 P* 7 F 2 PNOIR EQU /20 S/S 1 : NO INTERVENTION REQUIRED 7 P , PIR EQU /26 S/S 1 : INTERVENTION REQUIRED 7 P XIF 7 P 7 P* 7 P* 7 P* BASIC RECEIVE MODE 7 P* 7 " P* EN
0x1926c0…248b20 [0x192]: Pad {f00=0x00a1, f01=0x0190, f02=»A5,HALTIN HALT RECEIVER SALCUZ 7 P XIF SALCUZ 8 & PBRM EQU * 8 < P LDKL A5,STB LOAD STACKBASE 8 N P IFT P6805=0 SALCUZ 8 r 2 P CF A5,HALTIN HALT RECEIVER AND UPDATE STATUS 8 P XIF SALCUZ 8 P IFT P6805=1 SALCUZ 8 0 P CF A15,CKMESS CHECK
0x1926c0…248b20 [0x193]: Pad {f00=0x00a1, f01=0x0190, f02=»PECIFY SYN PATTERN 8 v P XIF SALCUZ 9 P IFT P6805=0 SALCUZ 9 0 P IFT CODE=1 9 L 4 P LDKL A2,/100+LSPEED+SYNEBC SPECIFY SYN PATTERN 9 ` P XIF SALCUZ 9 P IFT P6805=0 SALCUZ 9 " P CIO A2,1,LCUIN START RECEIVER 9 P XIF SALCUZ 9 P IFT
0x1926c0…248b20 [0x194]: Pad {f00=0x00a1, f01=0x0190, f02=»SYN SALCUZ 9 2 P OTR A2,1,LCUIN SPECIFY SYNC CHARACTER SALCUZ : P RB(NA) BRMHLT SALCUZ : J P XIF SALCUZ : h P IFT CODE+P6805=2 SALCUZ : ~ P LDK A2,0 SALCUZ : * P CIO A2,1,LCUIN START RECEIVER SALCUZ : P LDK A2,SYNEBC SALCUZ : 2 P OTR
0x1926c0…248b20 [0x195]: Pad {f00=0x00a1, f01=0x0190, f02=» READ ONE CHARACTER : P RF(NZ) BRM150 PARITY ERROR ; P LDR A1,A2 ; @ P SUK A1,STX ; R P RF(Z) BRM300 STX RECEIVED ; f P SUK A1,EOT-STX ; P RF(Z) BRM200 EOT RECEIVED ; P SUK A1,ENQ-EOT ; P ABL(Z) BRM400 ENQ RECEIVED ; P SUK A1,DLE-
0x1926c0…248b20 [0x196]: Pad {f00=0x00a1, f01=0x0190, f02=»8,A2 ; $ P CF A5,READP READ ONE CHARACTER < P RF(NZ) BRM150 PARITY ERROR < 4 P CWR A2,A8 < X & P RF(NE) BRM150 INVALID ADDRESSING < j P XIF < P LDK A3,0 < P CC A2,DW1500+1 < P RF(E) BRM110 POLLING < P LDK A3,2 < P CC A2,DW1500 <
0x1926c0…248b20 [0x197]: Pad {f00=0x00a1, f01=0x0190, f02=»DR A8,A2 < P IFT MSV1=0 = P CF A5,READP READ 2:ND STA = $ P RF(NZ) BRM150 PARITY ERROR = F P CWR A2,A8 = j , P RF(NE) BRM150 INVALID ADDRESS SEQUENCE = | P XIF = " P CF A5,READ READ ONE CHARACTER = P IFT P6805=0 SALCUZ = P SUK A2,ENQ+PAR
0x1926c0…248b20 [0x198]: Pad {f00=0x00a1, f01=0x0190, f02=» P IFT P6805=0 SALCUZ > $ P CF A5,READ READ LAST CHARACTER > P > H " P* TRAILING PAD CAN BE CHECKED > P P > v P CIO A1,0,LCUIN HALT INPUT > ~ P SST A1,LCUIN > P XIF SALCUZ > P IFT P6805=1 SALCUZ > $ P CF A5,HALTIN HALT INPUT SALCUZ >
0x1926c0…248b20 [0x199]: Pad {f00=0x00a1, f01=0x0190, f02=»DR A2,A8 > P SUK A3,2 ? P RF(Z) BRM120 SELECTING ? " P CWK A8,GP ? B P ABL(E) GPOLL GENERAL POLL ? T P IFT MSV1=1 ? v 6 P CF A5,FINTEP CHECK IF STA PRESENT (POLL ADDRESS) ? P XIF ? P IFT MSV1=0 ? & P CF A5,FINTER CHECK IF STA PRESENT ?
0x1926c0…248b20 [0x19a]: Pad {f00=0x00a1, f01=0x0190, f02=» CF A5,FINTER CHECK IF STA PRESENT ? P LDR A6,A3 LOAD DWT TO A6 @ * P RF(NZ) BRM130 STA FOUND @ L P IFT MSV1=0 @ l $ P LDKL A6,DW1500 SELECT TO DCTASK @ PBRM130 EQU * @ P ABL SELECT @ P XIF @ P IFT MSV1=1 @ P ABL BRM INVALID A
0x1926c0…248b20 [0x19b]: Pad {f00=0x00a1, f01=0x0190, f02=» P SUK A2,/7F A P RB(Z) BRM RESYNCHRONIZE A & P CF A5,READ READ ANOTHER CHARACTER A 8 P RB BRM150 A b P A t P* A ~ P* A P* EOT HAS BEEN RECEIVED A P* A P* A PBRM200 EQU * A & P CF A5,HPTIM STOP PROCEDURE TIMER A P IFT R
0x1926c0…248b20 [0x19c]: Pad {f00=0x00a1, f01=0x018e, f02=»T GET WRITING DWT A P RF(Z) BRM210 NO ONE WRITING B P LDK A1,2 SET RC=2 B > ( P CF A5,CWRITE COMPLETE WRITE REQUEST B X PBRM210 EQU * B " P CM XACK RESET 'ACK EXPECTED' B PBRM220 EQU * B P CM XSEL RESET 'SELECTED' B P RB BRM B P B
0x1926c0…248b20 [0x19d]: Pad {f00=0x00a1, f01=0x0190, f02=» P RF(Z) BRM315 NOT SELECTED C P LD A1,DCRBUF C & ( P*********************CHAINED COMMAND C < & P RB(Z) BRM150 NO BUFFER AVAILABLE C h P********************* C PBRM305 EQU * C P CF A5,RDMESS READ MESSAGE C P SUK A7,1 C P RF(NZ) BRM320 MES
0x1926c0…248b20 [0x19e]: Pad {f00=0x00a1, f01=0x018e, f02=» BRM C PBRM315 EQU * D P IFT RCOM=1 D P LD A1,XACK D 4 & P RF(Z) BRM316 ACK IS NOT EXPECTED D H P LD A1,DCRBUF D r & P RF(Z) BRM316 NO BUFFER AVAILABLE D " P LD A6,FDWTUT GET WRITING DWT D 0 P ABL(Z) BRM150 NO ONE WRITING. RESYNCHRONIZE D
0x1926c0…248b20 [0x19f]: Pad {f00=0x00a1, f01=0x0190, f02=» ( P CF A5,CWRITE COMPLETE WRITE REQUEST E P CM CACK PRESET ACK-1 =7 E 0 P RB BRM305 READ THE MESSAGE E P P XIF E t ( PBRM316 CF A5,READ READ ONE CHARACTER E P IFF P6805=1 =8 E P SUK A2,ENQ+PAR E P XIF =8 E P IFT P6805=1 =8 E P SUK
0x1926c0…248b20 [0x1a0]: Pad {f00=0x00a2, f01=0x0190, f02=»ATE MESSAGE OK E $ P LD A4,DCRBUF GET BUFFER ADDRESS F P ADK A4,6 F > P CW A4,FBLST F P " P RF(NE) BRM325 NOT FIRST BLOCK F d P IFF RCOM=0 F P LDK A1,ESC F P CCR A1,A4 F P RB(NE) BRM310 ESC NOT FOUND F P ADK A4,1 F P LCR A1,A4 GET C
0x1926c0…248b20 [0x1a1]: Pad {f00=0x00a2, f01=0x0190, f02=» RF(Z) RDMOD READ BUFFER RECEIVED F P XIF G * PBRM325 EQU * G 6 P SUK A7,1 G J & P RF(Z) BRM340 MESSAGE ENDED BY ETB G P CM FBAX G * P CF A15,GRBUF ALLOCATE RECEIVE BUFFER G P ADK A4,6 G P LD A6,FDWTIN GET INPUT DWT G P* G " P* PREP
0x1926c0…248b20 [0x1a2]: Pad {f00=0x00a2, f01=0x0190, f02=»Z) BRM326 G P ST A2,+4,A1 H P XIF H & PBRM326 EQU * H 2 P CWK A6,DW1500 H F , P RF(E) BRM330 MESSAGE IS MENT FOR DCTASK H P LD A2,DWTST,A6 GET STATUS H P RF(N) BRM330 NO REQUEST H P IFT EM3270=1 =4 H P LD A2,DWTOR,A6 ORDER =4 H & P R
0x1926c0…248b20 [0x1a3]: Pad {f00=0x00a2, f01=0x0190, f02=» PBRM327 EQU * I P LDK A1,0 SET RC=0 I $ P LD A8,DWTECB,A6 GET ECB ADDRESS I 2 P LD A3,-4,A4 GET LENGTH I Z * P ST A3,ECBEL,A8 STORE EFFECTIVE LENGTH I z & P CF A15,CTIME STOP REQUEST TIMING I ( P ST A2,ECBCW,A8 STORE REMAINING TIME I P I P*
0x1926c0…248b20 [0x1a4]: Pad {f00=0x00a2, f01=0x018e, f02=» I x P ANK A2,/FF J P LC A2,TEBCDI,A2 TRANSLATE J P ANK A2,8 J > P RF(Z) BRM328 J P P LD A2,DWTST,A6 GET STATUS J f P ORK A2,/A J P ST A2,DWTST,A6 J PBRM328 EQU * J P XIF J P IFT EM3270=1 =4 J P LD A2,DWTOR,A6 ORDER =4 J ,
0x1926c0…248b20 [0x1a5]: Pad {f00=0x00a2, f01=0x0190, f02=» P RF BRM32A =4 K P XIF =4 K PBRM329 EQU * =4 K * P K B P LDK A1,0 RESET RETURN CODE K J & P CF A15,DC:MIN MOVE TO USER BUFFER K n P RF BRM345 K PBRM32A EQU * =4 K P K $ P CF A15,TENDIO COMPLETE REQUEST K P RF BRM345 K P K
0x1926c0…248b20 [0x1a6]: Pad {f00=0x00a2, f01=0x0190, f02=»6 ORDER =4 K , P RF(NZ) BRM335 NOT ANY MESSAGE ORDER =4 L & P CF A15,TENDIO COMPLETE REQUEST =4 L B PBRM335 EQU * =4 L l P XIF =4 L P SUK A4,6 GET BUFFER BASE L ( P CF A5,QRBUF QUEUE BUFFER FOR DCTASK L . P CF A15,CKMESS COMPLETE DCTASK READ IF
0x1926c0…248b20 [0x1a7]: Pad {f00=0x00a2, f01=0x0190, f02=»,A6 L P ANK A1,8 M $ P RB(Z) BRM340 ACK SHOULD BE SENT M P CF A5,TRWACK SEND WACK M F P RF BRM410 M f P XIF M x P IFF STAT=1 M P RB BRM340 M P XIF M P M P* M P* M , P* READ MODIFIED OR READ BUFFER RECEIVED M P* M
0x1926c0…248b20 [0x1a8]: Pad {f00=0x00a2, f01=0x018e, f02=»D A6,FDWTIN DWT-ADDRESS FOR ADDRESSED TERMINAL M $ P LD A4,DWTBUF,A6 BUFFER ADDRESS N 6 $ P SUK A4,2 SDJUST BUFFER ADDRESS N ^ " P LDKL A3,1922 REQUESTED LENGTH N " P IM XRB SET READ BUFFER SWITCH N P CM FDWTUT N P LDK A1,1 N & P XRS A1,CACK INCREME
0x1926c0…248b20 [0x1a9]: Pad {f00=0x00a2, f01=0x018e, f02=» P DE O P ABL POL127 O P XIF O & P* O 2 P* O < P* ENQ HAS BEEN RECEIVED O F P* O f P* O p PBRM400 EQU * O z & P CF A5,HPTIM STOP PROCEDURE TIMER O P LD A1,XACK O , P RF(NZ) BRM510 RETRANSMISSION OF MESSAGE O P OR A1,XSEL O
0x1926c0…248b20 [0x1aa]: Pad {f00=0x00a2, f01=0x018e, f02=» O P* P P* P P* NAK HAS BEEN RECEIVED P P* P < P* P F PBRM500 EQU * P P & P CF A5,HPTIM STOP PROCEDURE TIMER P d P LD A1,XACK P P RF(NZ) BRM510 ACK EXPECTED P P OR A1,XSEL P " P RB(Z) BRM410 IN CONTROL STATE P P RF BRM636
0x1926c0…248b20 [0x1ab]: Pad {f00=0x00a2, f01=0x0190, f02=» P | P CF A15,SETIME DK Q P DATA BRM520,TIMNAK DK Q " P ABL TDISP DK Q B PBRM520 EQU * DK Q X P CF A15,LDREG DK Q p P DE Q " P LD A6,FDWTUT GET WRITING DWT Q P IFF STAT=0 Q P LD A1,XSTA Q 0 P ABL(NZ) POL050 STATUS HAS BEEN TRAN
0x1926c0…248b20 [0x1ac]: Pad {f00=0x00a2, f01=0x0190, f02=» Q P ABL POL130 R P* R P* R & P* DLE HAS BEEN RECEIVED R 0 P* R P P* R Z PBRM600 EQU * R d & P CF A5,HPTIM STOP PROCEDURE TIMER R x P LD A1,XACK R " P RB(Z) BRM410 ACK NOT EXPECTED R & P CF A5,READ READ SECOND CHARACTER R P IFF
0x1926c0…248b20 [0x1ad]: Pad {f00=0x00a2, f01=0x0190, f02=») BRM620 R P* S P* ACK , 0 RECEIVED S P* S 4 P LD A1,CACK GET ACKCOUNTER S > P RF(Z) BRM630 ACK,0 EXPECTED S ` PBRM610 EQU * S P CF A5,TRENQ SEND ENQ S & P CF A5,SPTIM START PROCEDURE TIMER S P RB BRM410 S PBRM620 EQU * S P CWK
0x1926c0…248b20 [0x1ae]: Pad {f00=0x00a2, f01=0x0190, f02=»ACK,1 NOT EXPECTED S PBRM630 EQU * T P LD A1,XETX T . P RF(Z) BRM640 ETX NOT SENT T B P T d P* T n , P* ACK HAS BEEN RECEIVED TO AN ETX BLOCK T x P* T P LDK A1,0 SET RC=0 T PBRM635 EQU * T P IFF STAT=0 T P LD A2,XSTA T . P R
0x1926c0…248b20 [0x1af]: Pad {f00=0x00a2, f01=0x0190, f02=»OT SEND EOT T P IFT RCOM=1 U P U ( P CM XRB RESET READ BUFFER U 0 P XIF U R P RB BRM410 U ^ PBRM640 EQU * U p P LDK A1,1 U & P XRS A1,CACK INCREMENT ACK COUNTER U P ABL POL130 U PBRM650 EQU * U P IFF P6805=1 =8 U P CWK A2,RV
0x1926c0…248b20 [0x1b0]: Pad {f00=0x00a2, f01=0x0190, f02=» U l " P CM XACK RESET 'EXPECTING ACK' V P LD A1,XETX V . $ P RF(NZ) BRM660 ETX HAS BEEN SENT V B P LDK A1,2 SET RC=2 V j P RB BRM635 V PBRM660 EQU * V P LDK A1,0 SET RC=0 V P RB BRM635 V P IFF STAT=0 V P V P* V P* V " P*
0x1926c0…248b20 [0x1b1]: Pad {f00=0x00a2, f01=0x0190, f02=»E FROM STATUS QUEUE V | P CM XSTA CLEAR 'STATUS SENT' W " P CM XACK CLEAR 'ACK EXPECTED' W @ P LD A1,DWTST,A6 GET STATUS W f P ANK A1,4 W P RB(Z) BRM636 NOT DE W P LDKL A1,/8000 W " P ANS A1,DWTST,A6 CLEAR STATUS W P RB BRM636 W P XIF W
0x1926c0…248b20 [0x1b2]: Pad {f00=0x00a2, f01=0x0190, f02=» RF(NZ) POL010 ERROR. ACK EXPECTED =5 W P IFF STAT=0 X . P LD A1,DWTST,A6 GET STATUS X B P LDR A3,A1 X d P ANK A1,1 X v $ P RF(Z) SEL110 NO PENDING STATUS X P CF A5,TRRVI SEND RVI X P XIF X P IFF STAT=1 X P RF SEL110 X P XIF X
0x1926c0…248b20 [0x1b3]: Pad {f00=0x00a2, f01=0x0190, f02=» X P IFT STAT+NOWACK=2 Y P ANK A3,8 Y " " P RF(Z) SEL111 DEVICE NOT BUSY Y 4 P CF A5,TRWACK TRANSMIT WACK Y Z P ABL BRM Y ~ PSEL111 EQU * Y P XIF Y P LD A1,DCRBUF Y $ P RF(NZ) SEL120 BUFFER AVAILABLE Y PSEL115 EQU * Y P IFF STAT+
0x1926c0…248b20 [0x1b4]: Pad {f00=0x00a2, f01=0x0190, f02=»ION Y l P CF A5,TRACK SEND ACK,0 Z P RB SEL100 Z , P Z > P* Z H P* Z R P* PREPARE FOR TEXT RECEPTION Z P* Z P* Z PPRREC EQU * Z P IM XSEL SET 'SELECTED' Z P CM FBAX RESET BUFFER INDEX Z P IFT CODE=1 Z . P LC A2,TEB
0x1926c0…248b20 [0x1b5]: Pad {f00=0x00a2, f01=0x0190, f02=»DWT Z v P RTN A5 [ P [ P* [ & P* [ 0 $ P* GENERAL POLL HAS BEEN RECEIVED [ : P* [ b P* [ l PGPOLL EQU * [ v P LD A1,XACK =5 [ & P RF(Z) POL020 ACK NOT EXPECTED =5 [ " PPOL010 CF A5,TRENQ SEND ENQ =5 [ * P CF A5,SPTIM START PROCE
0x1926c0…248b20 [0x1b6]: Pad {f00=0x00a2, f01=0x0190, f02=» [ P LD A6,DCSTQ & P RF(Z) POL110 NO STATUS TO BE SENT " P SUK A6,DWTSQ GET DWT ADDRESS H PPOL050 EQU * n P CF A5,TRSTA SEND STATUS & P CF A5,SPTIM START PROCEDURE TIMER P IM XACK SET 'ACK EXPECTED' P XIF P IFF STAT=1
0x1926c0…248b20 [0x1b7]: Pad {f00=0x00a2, f01=0x0190, f02=»N QUEUE z PPOL115 EQU * ] P CF A5,TREOT SEND EOT ] $ P RB POL100 ] B PPOL120 EQU * ] T " P SUK A6,DWTWQ GET DWT ADDRESS ] h PPOL125 EQU * ] $ P LD A8,DWTECB,A6 GET ECB ADDRESS ] P RF(NZ) POL126 ] P CF A15,REMOVW ] P RB POL115 ] PPO
0x1926c0…248b20 [0x1b8]: Pad {f00=0x00a4, f01=0x0190, f02=»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 ^ j P LD A3,ECBRL,A8 GET LENGTH ^ PPOL127 EQU * ^ & P ST A4,FECBBA SAVE BUFFER ADDRESS ^ ( P SUK A3,2 SKIP FIRST W
0x1926c0…248b20 [0x1b9]: Pad {f00=0x00a4, f01=0x0190, f02=»NT' ^ z P CM XSTA _ P CF A5,TRTEXT SEND ONE BLOCK _ & P CF A5,SPTIM START PROCEDURE TIMER _ @ P IM XACK SET 'ACK EXPECTED' _ j P RB POL100 _ P _ P* _ P* _ & P* SPECIFIC POLL HAS BEEN RECEIVED _ P* _ P* _ PSPOLL EQU * _
0x1926c0…248b20 [0x1ba]: Pad {f00=0x00a4, f01=0x0190, f02=»HECK POLLTIMER _ P LDR A6,A7 RESTORE A6 ` P IFT STAT=1 ` 4 P LD A1,DWTST,A6 GET STATUS ` H P ANK A1,7 ` j " P RB(NZ) POL050 PENDING STATUS ` | P XIF ` P IFF STAT+SPECP=0 ` P LD A1,DWTST,A6 ` P RB(N) POL115 NO REQUEST ` P LD A1,DWT
0x1926c0…248b20 [0x1bb]: Pad {f00=0x00a4, f01=0x018e, f02=» XIF ` P RB POL115 SEND EOT a P a ( P* a 2 P* a < 8 P* CHECK IF THERE IS A WRITE REQUEST TO BE COMPLETED a F P* a P* A1 CONTAINS RETURN CODE a P* a P* a PCWRITE LD A6,FDWTUT a $ P RF(Z) CWR900 NO WRITE GOING ON a P LD
0x1926c0…248b20 [0x1bc]: Pad {f00=0x00a4, f01=0x0190, f02=» a r P SUK A2,2 b ( P RF(NZ) CWR900 NOT EXCHANGE REQUEST b P LDR A1,A1 b F 2 P RF(NZ) CWR100 TRANSMISSION ERROR, RC NOT ZERO b X P LDK A2,2 TRANMISSION OK b ( P ST A2,DWTOR,A6 INDICATE READ ORDER b P RF CWR150 b & PCWR100 LD A8,FECB GET ECB ADDR
0x1926c0…248b20 [0x1bd]: Pad {f00=0x00a4, f01=0x0190, f02=»REQUEST b x PCWR150 EQU * c * P CF A15,REMOVW REMOVE FROM WRITE QUEUE c $ PCWR200 EQU * c R PCWR900 EQU * c f " P CM XACK RESET 'ACK EXPECTED' c z P CM FDWTUT c P RTN A5 c P c P* c P* c P* READ ONE TEXT BLOCK c P* c P*
0x1926c0…248b20 [0x1be]: Pad {f00=0x00a4, f01=0x0190, f02=»IF CORRECT ETB BLOCK RECEIVED c P* d & PRDMESS EQU * d 0 $ P LD A4,DCRBUF GET BUFFER ADDRESS d D P ADK A4,6 RESERVE HEADER d l P LDK A3,0 d P LD A1,XSTA d $ P RF(NZ) RDM050 LAST INPUT WAS OK d " P LD A1,FBLST COMPUTE NEW INDEX d P SUR A1,A4
0x1926c0…248b20 [0x1bf]: Pad {f00=0x00a4, f01=0x0190, f02=» EQU * d P CM XSTA e P LDK A7,0 RESET LRC e P e : P IFT IBMCHR=1 e B P LD A1,FBAX e X " P RF(NZ) RDM100 NOT FIRST BLOCK e l P CF A5,READP e P RF(NZ) RDM120 PARITY ERROR e P CWK A2,ESC e P RF(NE) RDM110 e * P CF A5,READP SKIP NEXT
0x1926c0…248b20 [0x1c0]: Pad {f00=0x00a4, f01=0x0190, f02=»ITY ERROR e ~ PRDM110 EQU * f P CWK A2,ETX f & P RF(E) RDM130 ETX RECEIVED f : P CWK A2,ETB f P RF(E) RDM160 ETB RECEIVED f p P CWK A2,ITB f P RF(E) RDM170 ITB RECEIVED f P CWK A2,ENQ f 2 P RF(E) RDM120 SKIP IF ENQ EMBEDDED IN MESSAGE
0x1926c0…248b20 [0x1c1]: Pad {f00=0x00a4, f01=0x0190, f02=»A2 f P SUK A1,DC1+3 g P RF(P) RDM115 NOT DC1-DC3 g P ADK A1,3 g B P RF(N) RDM115 NOT DC1-DC3 g T P SLL A1,6 g v P LDR A8,A1 g * P CF A5,READP 8-BIT CHAR GET NEXT PART g P RF(NZ) RDM120 PARITY ERROR g * P SUK A2,/20 ASSEMBLE TO ONE CH
0x1926c0…248b20 [0x1c2]: Pad {f00=0x00a4, f01=0x0190, f02=»R g v $ P IM FBAX INCREMENT BUFFER INDEX h P LD A1,FBAX h 2 P CWK A1,RBUFL+RBUFL h F P RB(NG) RDM100 NOT OVERFLOW h b P* h P* BUFFER OVERFLOW h P* h P RF RDM140 ABORT INPUT h PRDM120 EQU * h & P LDK A3,1 INDICATE INVALID MESSAGE h
0x1926c0…248b20 [0x1c3]: Pad {f00=0x00a4, f01=0x0190, f02=»QU * h $ P LD A1,DCRBUF GET BUFFER ADDRESS i P LD A2,FBAX GET BUFFER INDEX i 4 2 P ST A2,+2,A1 STORE EFFECTIVE LENGTH IN HEADER i X P IFF CODE=1 i P CF A5,RDLRC i P RF(Z) RDM150 LRC WAS OK i P XIF i P IFT CODE=1 i & P CF A5,RDCRC READ CR
0x1926c0…248b20 [0x1c4]: Pad {f00=0x00a4, f01=0x0190, f02=» EQU * i $ P LDR A7,A3 SAVE RESULT REGISTER j P CF A5,HALTIN HALT INPUT j 6 P IFT P6805=1 j V " P ORR A7,A1 PARITY ERROR SALCUZ j j P XIF SALCUZ j P RTN A5 j P* j P* ETB RECEIVED j P* j PRDM160 EQU * j P LDR A3,A3 j " P RB(
0x1926c0…248b20 [0x1c5]: Pad {f00=0x00a4, f01=0x0190, f02=»M170 EQU * j P IFF CODE=1 k P CF A5,RDLRC k & " P RB(NZ) RDM120 LRC WAS NOT OK k : P XIF k ` P IFT CODE=1 k l & P CF A5,RDCRC READ CRC AND CHECK IT k " P RB(NE) RDM120 CRC WAS NOT OK k P XIF k P RB RDM100 k P k P* k P* TRANSM
0x1926c0…248b20 [0x1c6]: Pad {f00=0x00a4, f01=0x0190, f02=»NZ) TRDLE k P LDK A3,ACK0 LOAD ACK0 l P RF TRDLE l 0 P* l B P* TRANSMIT WACK l L P* l d PTRWACK LDK A3,WACK LOAD WACK l n P RF TRDLE l P* l P* TRANSMIT RVI l P* l P IFF STAT=0 l PTRRVI LDK A3,RVI LOAD RVI l P XIF l
0x1926c0…248b20 [0x1c7]: Pad {f00=0x00a4, f01=0x0190, f02=»1 l P RF TRREP m P m P* m & P* TRANSMIT NAK m 0 P* m F PTRNAK LDK A3,NAK LOAD NAK m P P RF TREN10 m r P* m P* TRANSMIT EOT m P* m PTREOT LDK A3,EOT LOAD EOT m P RF TREN10 m P* m P* TRANSMIT ENQ m P* m
0x1926c0…248b20 [0x1c8]: Pad {f00=0x00a4, f01=0x0190, f02=»TRREP CF A5,TRSYNC START OUTPUT m & P LC A2,RESEND GET FIRST CHARACTER n ( P CF A5,WRITEP SEND IT n R & P LC A2,RESEND+1 GET NEXT CHARACTER n p P CF A5,WRITEP SEND IT n PTRRE10 LDK A2,/FF n P CF A5,WRIT05 SEND PAD n P LDK A2,/FF n P CF A5
0x1926c0…248b20 [0x1c9]: Pad {f00=0x00a4, f01=0x0190, f02=» SALCUZ n x P XIF SALCUZ o & P SST A2,LCUUT PERFORM SST AT ONCE o & P IFF LOGG=0 o P ( P CF A5,LOGSST LOG TRANSMITTER STATUS o d P XIF o P RTN A5 o P o P* o P* o P* TRANSMIT ONE TEXT BLOCK o P* o P* o PTRTEXT EQU
0x1926c0…248b20 [0x1ca]: Pad {f00=0x00a4, f01=0x0190, f02=» P LD A4,FBAX p ( P RF(NZ) TRT050 NOT START OF MESSAGE p P p D 2 P LD A1,XRB READ BUFFER COMMAND IN PROCESS ??? p L P RF(NZ) TRT050 YES !! p P p P LD A4,FECBBA p " P LC A3,+2,A4 GET AID CHARACTER p P SUK A3,/30 p $ P RF(NZ) TRT050 NOT
0x1926c0…248b20 [0x1cb]: Pad {f00=0x00a4, f01=0x0190, f02=»END % p P LDK A2,'/' q P CF A5,WRITE SEND / q " P LDK A2,STX q > P CF A5,WRITE SEND STX q R ( P ST A4,FBLST REMEMBER START OF BLOCK q p ( P ADK A4,5 SKIP AID + CURSOR ADDRESS q P LDK A3,5 ADJUST LENGTH q P LDK A2,3 q P ST A2,FBAX q
0x1926c0…248b20 [0x1cc]: Pad {f00=0x00a4, f01=0x0190, f02=» LDK A7,0 RESET LRC q $ P LD A4,FECBBA GET BUFFER ADDRESS r P AD A4,FBAX ADD BUFFER INDEX r D ( P ST A4,FBLST REMEMBER START OF BLOCK r h ( P ADK A4,2 SKIP FIRST WORD OF BUFFER r & P LDK A3,0 RESET CHARACTER COUNTER r P LD A1,FBAX GET BUFFER INDEX r
0x1926c0…248b20 [0x1cd]: Pad {f00=0x00a4, f01=0x0190, f02=»F A5,WRITEP SEND STA r P IFT IBMCHR=1 s P IFF RCOM=1 s 2 " P LDK A2,/27 SEND ENTER AS AID s F P CF A5,WRITEP s l " P LDK A2,/20 AND CURSOR ADDRESS s P CF A5,WRITEP s P LDK A2,/20 s P CF A5,WRITEP s P XIF s P IFT RCOM=1 s P s
0x1926c0…248b20 [0x1ce]: Pad {f00=0x00a4, f01=0x0190, f02=»R DISPLAY s | PTRT060 CF A5,WRITEP SEND AID t P t 6 $ P LD* A3,DWTCUR,A6 CURSOR ADDRESS t > . P CF A5,LINCOL SEND LINE AND COLUMN NUMBER t f P LDK A3,5 SET BLOCK COUNT t P RF TRT100 t PTRT070 EQU * t P XIF t P t P LDK A3,2 t PTRT1
0x1926c0…248b20 [0x1cf]: Pad {f00=0x00a4, f01=0x0190, f02=»,XRB READ BUFFER COMMAND ??? t P RF(Z) TRT105 NO!! u $ P u > @ P************************************************************ u F P* u , P* CHECK IF ATTRIBUTE CHARACTER OR NULL u P* u 4 P*********************************************** u P u
0x1926c0…248b20 [0x1d0]: Pad {f00=0x00a5, f01=0x0190, f02=» " P RF(NE) TRT102 NO,GO TO TRT102 v P LDK A2,/0A v * PTRT102 EQU * v > P CWK A2,/7D END OF MESSAGE ? v R " P RF(NE) TRT103 NO,GO TO TRT103 v v P LDK A2,/19 v PTRT103 EQU * v P CWK A2,X'7F' NULL ?? v P RF(NE) TRT105 v P SUK A2,1 v P
0x1926c0…248b20 [0x1d1]: Pad {f00=0x00a5, f01=0x0190, f02=» v r P w ( P LC A2,-1,A4 GET ATTRIBUTE CHARACTER w P ANK A2,X'7F' w < ( P LDR A1,A2 CONVERT TO IBM ATTRIBUTE w R P ANK A1,1 w ~ P ANK A2,/1E MASK w P SLL A2,1 w & P ORR A2,A1 IBM ATTRIBUTE COMPOSED w " P ORK A2,/40 BIT ALWAYS SET ONE w P
0x1926c0…248b20 [0x1d2]: Pad {f00=0x00a5, f01=0x0190, f02=»,WRITEP SEND ATTRIBUTE w P ADK A3,1 x P RF TRT110 x 0 PTRT105 EQU * x B P XIF x V P x b P CWK A2,/07 x l ( P RF(L) TRT110 ILLEGAL CODE : SKIP IT x P CF A5,WRITEP SEND CHARACTER x PTRT110 EQU * x $ P IM FBAX INCREMENT BUFFER INDEX x &
0x1926c0…248b20 [0x1d3]: Pad {f00=0x00a5, f01=0x0190, f02=»UNTER x p P CWK A3,TBLEN y P RB(L) TRT100 NOT FULL BLOCK y $ P IFT RCOM=1 y H , P LDK A1,SBA CHECK IF SBA AT END OF BLOCK y P CC A1,-2,A4 y P RF(E) TRT115 YES y P CC A1,-1,A4 y P RF(NE) TRT116 NO SEND ETB y ( P LCR A2,A4 GET FIRST BYTE
0x1926c0…248b20 [0x1d4]: Pad {f00=0x00a5, f01=0x0190, f02=» SECOND BYTE AFTER SBA y | P CF A5,WRITEP SEND IT z P IM FBAX INCREMENT INDEX z < P XIF z PTRT116 EQU * z h P LDK A2,ETB LOAD ETB z | PTRT120 EQU * z P CF A5,WRITEP SEND IT z P IFF CODE=1 z P LDR A2,A7 GET LRC z P CF A5,WRITEP SEND
0x1926c0…248b20 [0x1d5]: Pad {f00=0x00a5, f01=0x018e, f02=»ND CRC BYTE 1 z P ECR A2,A8 { P ANK A2,/FF { ( " P CF A5,WRIT05 SEND CRC BYTE 2 { < P XIF { b P ABL TRRE10 HALT OUTPUT { n PTRT130 EQU * { P IM XETX INDICATE 'ETX SENT' { PTRT140 EQU * { P LDK A2,ETX LOAD ETX { P RB TRT120 SEND ETX
0x1926c0…248b20 [0x1d6]: Pad {f00=0x00a5, f01=0x0190, f02=» { $ P IM XSTA INDICATE 'STATUS SENT' | P ST A6,FDWTUT SAVE A6 | 0 P CF A5,TRSYNC START OUTPUT | N P LDK A2,SOH | p P CF A5,WRITE SEND SOH | P LDK A7,0 REST LRC | P LDK A2,'%' | P CF A5,WRITEP SEND '%' | P LDK A2,'R' | P CF A5,W
0x1926c0…248b20 [0x1d7]: Pad {f00=0x00a5, f01=0x018e, f02=»,A6 | P CF A5,WRITEP SEND STA } P LD A1,DWTST,A6 GET STATUS } * P ANK A1,/06 MASK FOR S/S 0 } L P SRL A1,1 } n $ P LC A2,SSTAB,A1 GET STATUS BYTE } P CF A5,WRITEP SEND S/S 0 } P LDK A2,NOIR PRELOAD S/S 1 } P LD A1,DWTST,A6 GET STATUS }
0x1926c0…248b20 [0x1d8]: Pad {f00=0x00ad, f01=0x0190, f02=» } P CF A5,WRITEP SEND S/S 1 ~ P RB TRT130 SEND ETX AND LRC ~ ( P XIF ~ L P ~ X P* ~ b P* ~ l P* TRANSMIT SYNC SEQUENCE ~ v P* ~ P* ~ PTRSYNC EQU * ~ P LDK A2,0 SALCUZ ~ * P CIO A2,0,LCUIN HALT INPUT IF NOT DONE ~ P SST
0x1926c0…248b20 [0x1d9]: Pad {f00=0x00ad, f01=0x0190, f02=» SALCUZ ~ P IFT CODE=1 SALCUZ P LDK A2,0 SALCUZ , , P CIO A2,1,LCUUT START TRANSMITTER SALCUZ F P RF(A) TRS010 SALCUZ v P SST A1,LCUUT SALCUZ P RF(A) TRS005 SALCUZ P ABL BRM SALCUZ " PTRS005 CIO A2,1,LCUUT SALCUZ
0x1926c0…248b20 [0x1da]: Pad {f00=0x00ad, f01=0x0190, f02=» P IFT P6805=1 SALCUZ P IFT CODE=0 SALCUZ P LDK A2,/0C SALCUZ < P CIO A2,1,LCUUT SALCUZ X P RF(A) TRS010 SALCUZ x P SST A1,LCUUT SALCUZ P RF(A) TRS005 SALCUZ P ABL BRM SALCUZ " PTRS005 CIO A2,1,LCUUT SALCUZ
0x1926c0…248b20 [0x1db]: Pad {f00=0x00ad, f01=0x0190, f02=»A5,READ WAIT FOR OUTPUT INTERRUPT P LDK A3,4 4 SYNS * PTRS100 LDK A2,SYN B P CF A5,WRITE SEND SYN P SUK A3,1 z P RB(NZ) TRS100 P RTN A5 P P* P* P* RECEIVER INTERRUPT P* P* PIH1501 E
0x1926c0…248b20 [0x1dc]: Pad {f00=0x00ad, f01=0x018e, f02=»,A15 SAVE A1-A8 =1 P XIF * P CF A15,LDREG RESTORE DC REGS A3 - A8 & P INR A2,0,LCUIN READ CHAR T , P RF(NA) IHIN20 NOT ACCEPTED,CHECK STATUS v P IFF LOGG=0 ( P CF A5,LOGIN LOG RECEIVED CHARACTER P XIF P IFF CODE=1 P C2
0x1926c0…248b20 [0x1dd]: Pad {f00=0x00ad, f01=0x0190, f02=» P IFT CODE=1 P C2 SYNSW 2 P RF(NZ) IHLCI1 DO NOT SKIP SYNCS IN BCC FRAME * P CWK A2,SYNEBC ` P RF(E) READ SKIP EBCDIC SYN v PIHLCI1 EQU * P CF A5,CRCCAL CALCULATE CRC ( P LC A2,TASCII,A2 TRANSLATE TO ASCII P XIF P
0x1926c0…248b20 [0x1de]: Pad {f00=0x00ad, f01=0x0190, f02=»=1 SALCUZ $ PIHIN20 RF SST PERFORM SST SALCUZ P XIF SALCUZ : P P P* Z P* d P* TRANSMITTER INTERRUPT n P* P* PIH1502 EQU * P ST P,INTSAV P IFT CPU852=1 P CF A15,SAVE8 SAVE A1 - A8 P XIF
0x1926c0…248b20 [0x1df]: Pad {f00=0x00ad, f01=0x0190, f02=»10 P P* P* & P* SST INSTRUCTION AND STATUS CHECK ( P* R ( P* LCU STATUS : BIT 10=CARRIER OFF . P* BIT 13=PARITY ERROR (6805 ONLY) SALCUZ , P* BIT 14=THROUGHPUT ERROR , P* BIT 15=MODEM NO
0x1926c0…248b20 [0x1e0]: Pad {f00=0x00ad, f01=0x0190, f02=»IF SALCUZ P LDR A2,A1 P IFF LOGG=0 & & P CF A5,LOGSST LOG SST INFORMATION : P XIF d P IFT P6805=0 SALCUZ p P ANK A2,2 P RF(Z) SST100 P XIF SALCUZ P IFT P6805=1 SALCUZ P ANK A2,6 SALCUZ P RF(Z) SST
0x1926c0…248b20 [0x1e1]: Pad {f00=0x00ad, f01=0x0190, f02=»SSTRET SALCUZ P XIF SALCUZ PSST050 EQU * SALCUZ , P CM XSTA TROUHHPUT ERROR H P LDKL A5,STB h P ABL BRM010 | PSST100 EQU * P ST A1,DCSTCU P IFT P6805=0 SALCUZ * P CF A15,CKMESS CHECK IF STATUS CHANGE P RTN A
0x1926c0…248b20 [0x1e2]: Pad {f00=0x00ad, f01=0x0190, f02=»INE ERROR, WAIT 0.2 SECONDS SALCUZ P DATA BRM RESTART SALCUZ * P DATA 2 WAIT TIME SALCUZ J P RF READ SALCUZ j P* PSST200 LDK A1,0 SALCUZ PSSTRET ADK A5,4 SALCUZ P LDR A1,A1 SET CR SALCUZ P ABR* A5 RETURN SALCUZ P
0x1926c0…248b20 [0x1e3]: Pad {f00=0x00ad, f01=0x0190, f02=» P IFT P6805=0 SALCUZ 4 P RB SST PERFORM SST INSTRUCTION AND STATUS CHECK P XIF SALCUZ X P IFT P6805=1 SALCUZ n * P RF READ WAIT FOR SST INTERRUPT SALCUZ P XIF SALCUZ P P* P* , P* WRITE FROM OR READ ONE CHARA
0x1926c0…248b20 [0x1e4]: Pad {f00=0x00ad, f01=0x0190, f02=» TRANSLATION OF TRAILING PAD * P LC A2,TEBCDIC,A2 TRANSLATE TO EBCDIC $ P XIF R PWRIT05 EQU * ^ " P OTR A2,0,LCUUT SEND CHARACTER r P RF(A) WRIT10 P RF READ THROUGHPUT ERROR P IFF CODE=1 $ PWRIT10 XRR A7,A2 ACCUMULATE BCC
0x1926c0…248b20 [0x1e5]: Pad {f00=0x00ad, f01=0x0190, f02=»HARACTER v P XIF P* PREAD CF A15,STREG & P ABL TDISP @ P R P* P* f P*** WRITEP p P* P* WRITE A2 WITH PARITY P* P* P IFT CODE+P6805=0 SALCUZ PWRITEP ANK A2,/FF P ECR A1,A2
0x1926c0…248b20 [0x1e6]: Pad {f00=0x00ad, f01=0x0190, f02=» XIF P IFF CODE+P6805=0 SALCUZ PWRITEP RB WRITE . P XIF F P* R P* P* f P*** READP p P* . P* READ CHARACTER TO A2 AND CHECK PARITY P* P* PREADP CF A5,READ P IFT CODE+P6805=0 SALCUZ
0x1926c0…248b20 [0x1e7]: Pad {f00=0x00ad, f01=0x0190, f02=»,A2 P ANK A2,/7F P XIF P IFF CODE+P6805=0 SALCUZ , P LDK A1,/80 N P XIF b P ADK A5,4 n P ANK A1,/80 P XRK A1,/80 P ABR* A5 P* P* P P* < P* FIND DWT CONTAINING SUBTERMINAL ADDRESS
0x1926c0…248b20 [0x1e8]: Pad {f00=0x00ae, f01=0x0190, f02=»DWT TO FOUND TERMINAL P* B P* NOTE: FOR SIEMENS MSV1 - SEPARATE SELECT AND POLL ADDRESSES ( * P* ENTRY: FINTER - CHECK SELECT ADDRESS n , P* FINTEP - CHECK SPECIFIC POLL ADDRESS P* . PRBYTE DATA 0 IF 1 COMPARE WITH RIGTH BYTE P*
0x1926c0…248b20 [0x1e9]: Pad {f00=0x00ae, f01=0x018e, f02=» EQU * P XIF & P LD A4,DCTAB GET ADDRESS TO DC:TAB * P AD* A4,DCTAB ADDRESS TO END OF DC:TAB D PFINT10 SUK A4,2 r P LDK A3,0 DEFAULT VALUE P CW A4,DCTAB END OF TABLE ( P RF(E) FINT20 SUBTERMINAL NOT FOUND P LDR* A3,A4 LOAD D
0x1926c0…248b20 [0x1ea]: Pad {f00=0x00ae, f01=0x0190, f02=» P IFT MSV1=0 . P CC A2,1,A3 COMPARE TO SUBTERMINAL ADDRESS P XIF J & P RB(NE) FINT10 TAKE NEXT TERMINAL V PFINT20 CM RBYTE P ANKL A3,/FFFE P RTN A5 P P* P* P* POWER ON FUNCTIONS P* P*
0x1926c0…248b20 [0x1eb]: Pad {f00=0x00ae, f01=0x0190, f02=»A1-A8 =1 P XIF P IFT STAT=1 P LDK A5,4 SET DEVICE END 0 P LD A1,DCTAB P . P AD* A1,DCTAB GET ADDRESS TO END OF TABLE d PDRDC05 SUK A1,2 P CW A1,DCTAB P RF(E) DRDC06 END OF TABLE P LDR* A6,A1 GET DWT ADDRESS 0 P O
0x1926c0…248b20 [0x1ec]: Pad {f00=0x00ae, f01=0x0190, f02=»IF P LDK A2,/40 P ORS A2,DCONOF P CF A15,CKMESS 4 ( P LD A2,DCTPGP GET POLL TIMER POINTER J " P RF(NZ) DRDC20 ALREADY STARTED v * PDRDC10 CF A15,SPOTIM START POLL TIMER PDRDC20 ABL BRM P P* P* POLL TIME OUT
0x1926c0…248b20 [0x1ed]: Pad {f00=0x00ae, f01=0x0190, f02=» CHECK IF STATUS CHANGE $ P CF A15,SPOTIM START POLL TIMER P ABL TDISP H P* Z 4 P* RESTART POLL TIMER WHEN POLL HAS BEEN RECEIVED d P* $ PCPTIM CM DCONOF INDICATE POLLING P LDKL A2,-TIMPOL P ST* A2,DCTPGP RESTART TIMER * P
0x1926c0…248b20 [0x1ee]: Pad {f00=0x00ae, f01=0x0190, f02=» TIMER v P DATA PTOUT,TIMPOL & P ST A4,DCTPGP STORE TIMER POINTER ( P ADKL A15,4 R P ABR* A15 f P x P* P* START PROCEDURE TIMER P* PSPTIM EQU * $ P LDR A1,A6 LOAD DWT AS PARAMETER P CF A15,SETIME P D
0x1926c0…248b20 [0x1ef]: Pad {f00=0x00ae, f01=0x0190, f02=»UT CM DCTPP P LDR A6,A1 RELOAD A6 P LDKL A5,STB LOAD STACK BASE 0 , P CF A5,HALTIN HALT INPUT IF OPEN SALCUZ T P LD A1,XACK " P RF(Z) PRT10 ACK NOT EXPECTED P CF A5,TRENQ SEND ENQ & P CF A5,SPTIM START PROCEDURE TIMER PPRT1
0x1926c0…248b20 [0x1f0]: Pad {f00=0x00ae, f01=0x0190, f02=» NOT RUNNING P CM* DCTPP STOP TIMER P CM DCTPP 2 PHPT10 RTN A5 D P X P IFT CODE=1 b P* v P* P* CALCULATION OF CRC P* P* A2 = CHARACTER P* A7 = ACCUMULATED CRC P* P* PCRCCAL EQU *
0x1926c0…248b20 [0x1f1]: Pad {f00=0x00ae, f01=0x0190, f02=» XRR A3,A2 P SRL A2,1 P ANK A3,1 $ P RF(Z) CRC110 6 P XRKL A7,/A001 L PCRC110 SUK A1,1 b P RB(NZ) CRC100 z P LD A1,CRCSAV P LD A2,CRCSAV+2 P LD A3,CRCSAV+4 P RTN A5 PCRCSAV RES 3 P P*
0x1926c0…248b20 [0x1f2]: Pad {f00=0x00ae, f01=0x0190, f02=»RENT CRC x $ P IM SYNSW DO NOT SKIP SYNCS NOW P CF A5,READ READ BYTE 1 8 P LD A8,CRCSAV+2 SAVE IT X P CF A5,READ READ BYTE 2 x ( P CM SYNSW SYNCS CAN BE SKIPPED AGAIN P LD A2,CRCSAV+2 SAVE IT P SLL A2,8 P XRR A2,A8 P A
0x1926c0…248b20 [0x1f3]: Pad {f00=0x00ae, f01=0x0190, f02=» READ LRC CHARACTER " P* CR=0 IF LRC OK P* F PRDLRC IM SYNSW P P CF A5,READP f P ADK A5,4 z P LDR A1,A1 P RF(NZ) LRCEND P ANK A7,/7F PLRCEND EQU * P CM SYNSW P ABR* A5 P P XIF
0x1926c0…248b20 [0x1f4]: Pad {f00=0x00ae, f01=0x0190, f02=»0 CU LINE ADDRESS P DATA /8000 STATUS P DATA 0 ECB ADDRESS 4 P DATA 0 ORDER P * P DATA DC15DC POINTER TO ADDRESS BLOCK f P DATA 0 TTAB ADDRESS $ P DATA 0 WAIT/ACTIVATE INDICATOR P DATA 0 TASK QUEUE P* P IFT MMUPAG=1
0x1926c0…248b20 [0x1f5]: Pad {f00=0x00ae, f01=0x0190, f02=»0 WRITE QUEUE OR BUFFER QUEUE . P DATA 0 STATUS QUEUE (NOT USED BY DC-TASK) & " P DATA 0 RECEIVE MESSAGE QUEUE X , P DATA 0 SIMULATED DEVICE BUFFER ADDRESS ~ P DATA 0 CURSOR ADDRESS " P DATA 0 REQUEST TIMEOUT VALUE P* P IFT MMUPAG=1
0x1926c0…248b20 [0x1f6]: Pad {f00=0x00ae, f01=0x0190, f02=»POOL | P* PRLINK EQU RBUFL+RBUFL+8 P* 6 PDCRBUF EQU * @ P DATA *+2 FREE BUFFER ANCHOR T P IFF RBUFNR=1 DK3 x P IFF RBUFNR=2 P DATA *+RLINK P RES RBUFL+3 P IFF RBUFNR=3 P DATA *+RLINK P RES RBUFL+3
0x1926c0…248b20 [0x1f7]: Pad {f00=0x00ae, f01=0x018e, f02=»ES RBUFL+3 P XIF DK3 P DATA 0 END OF CHAIN $ P RES RBUFL+3 @ P T P IFF MMUPAG=0 & PMMUBUF RES TBUFL+1 MMU WORK BUFFER r P XIF P P* P* P* INTERRUPT LOGGING ROUTINE P* P* P IFF LOGG=0
0x1926c0…248b20 [0x1f8]: Pad {f00=0x00ae, f01=0x0190, f02=» PLOGIN CWK A2,/FF P RF(E) LOGE10 P ST A2,SAVE2 6 PLOG10 ST A3,SAVE3 J P LD A3,LOGPNT d P STR A2,A3 z P ADK A3,2 P CWK A3,LOGEND P RF(L) LOGEXI P LDKL A3,LOGSTA PLOGEXI ST A3,LOGPNT P LD A2,SAVE2
0x1926c0…248b20 [0x1f9]: Pad {f00=0x00ae, f01=0x0190, 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 < P******************************************************* P* P* L I N C O L P* : P* CONVERT
0x1926c0…248b20 [0x1fa]: Pad {f00=0x00ae, f01=0x0190, f02=»NCOL EQU * " P LDR A2,A3 COPY CURSOR ADDRESS P SRL A2,6 8 P ANK A2,X'3F' J & P LC A2,LICO:T,A2 ASCII LINE NUMBER ` " 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 NUMBER $
0x1926c0…248b20 [0x1fb]: Pad {f00=0x00ae, f01=0x0190, f02=»HABET z P DB PLICO:T EQU * * P DATA /2041,/4243,/4445,/4647 /00-/07 0 * P DATA /4849,/232E,/3C28,/2B21 /08-/0F ^ * P DATA /264A,/4B4C,/4D4E,/4F50 /10-/17 * P DATA /5152,/245D,/2A29,/3B5E /18-/1F * P DATA /2D2F,/5354,/5556,/5758 /20-
0x1926c0…248b20 [0x1fc]: Pad {f00=0x00ae, f01=0x4128, f02=»8-3F p P DE P XIF P & P 0 PDC:IN DATA DC:TAB+2 8 PDCTAB DATA DC:TAB T " PDC:TAB DATA 2 LENGTH OF DC:TAB n * P DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0 * P DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0 PDC:END EQU * P*
0x1926c0…248b20 [0x1fd]: Pad {f00=0x00ae, f01=0x2008, f02=» H P X ` h p x
0x1926c0…248b20 [0x1fe]: Pad {f00=0x00ae, f01=0x0190, f02=», gW , 4 , ' ( wM T-! y) $ LbM ( >4a> T T 4 4 C C ( wM CT yP M h M Pb (hM P _ + C W# ! ( 3 (dM ( ( m> _i C0 1 TF TB_ T5 T1 >4m> & T I
0x1926c0…248b20 [0x1ff]: Pad {f00=0x00ae, f01=0x0190, f02=» > P ) 4 4 ( > 0 4 h> T >4 4 4 0 $ # X h> PK h> T: $ - M3h> T bM > 1 )W W+4 % " "h> L T M3 bM > 1 M3% bM > 1 4 . p
0x1926c0…248b20 [0x200]: Pad {f00=0x0087, f01=0x0190, f02=» ) _ 0 ! ? 2 W50 ! A H ( 2 4 90 _;0 W 0 W 0 W 0 W 0!W 0"W 0#W 0$8 : ; 8 7 GG;GG;7;;;7;7? 1% ? 0& T b ! 3 A _ WK0 ) ? 0' ? I H 0 S 0 P 0 Q 4 0 C! m!
0x1926c0…248b20 [0x201]: Pad {f00=0x0087, f01=0x0004, f02=»
0x1926c0…248b20 [0x202]: Pad {f00=0x0087, f01=0x018e, f02=» 0 P IDENT EBCDIC 9.2DK 1 79-11-16 870105040920 P 8 P* @ 4 P************************************************ J P* $ P* PHILIPS TERMINAL SYSTEM PTS P* $ P* EBCDIC = EBCDIC/ASCII TABLE P* P* P* P*
0x1926c0…248b20 [0x203]: Pad {f00=0x0087, 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 0 4 PX:B EQU 1 READ COMMAND HANDLING IF = 1 (DRDC15) PRCOM EQU X:B P* : P* VERSION FOR SCAND. AL
0x1926c0…248b20 [0x204]: Pad {f00=0x0087, f01=0x0190, f02=»* 7C 5C P* 00 7C P* 5A 24 P* 6A 40 0 P EJECT @ P* N P* X 2 P* TABLE FOR CONVERSION OF EBCDIC CODE TO ASCII b P* P* PTASCII EQU * P IFT CODE=1 ( P DATA /7F01,/0203,/0009,/0000 00-07 ( P DATA /000
0x1926c0…248b20 [0x205]: Pad {f00=0x0087, f01=0x0190, f02=»/0000,/0000,/171B 20-27 ( P DATA /0000,/0000,/0005,/0000 28-2F ( P DATA /0000,/1600,/0000,/0004 30-37 L ( P DATA /0000,/0000,/1415,/001A 38-3F x ( P DATA /2041,/4243,/4445,/4647 40-47 ( P DATA /4849,/232E,/3C28,/2B21 48-4F ( P DATA /264A,/4
0x1926c0…248b20 [0x206]: Pad {f00=0x0087, f01=0x0190, f02=»C,/255F,/3E3F 68-6F ( P DATA /1831,/3233,/3435,/3637 70-77 ( P DATA /3839,/3A5B,/5C27,/3D22 78-7F H ( P DATA /2061,/6263,/6465,/6667 80-87 t ( P DATA /6869,/5B2E,/3C28,/2B21 88-8F ( P DATA /266A,/6B6C,/6D6E,/6F70 90-97 ( P DATA /7172,/5D24,
0x1926c0…248b20 [0x207]: Pad {f00=0x0087, f01=0x0190, f02=»435,/3637 B0-B7 | ( P DATA /3839,/3A23,/4027,/3D22 B8-BF ( P DATA /2041,/4243,/4445,/4647 C0-C7 D ( P DATA /4849,/5B2E,/3C28,/2B21 C8-CF p ( P DATA /264A,/4B4C,/4D4E,/4F50 D0-D7 ( P DATA /5152,/5D24,/2A29,/3B5E D8-DF ( P DATA /7F2F,/5354,/555
0x1926c0…248b20 [0x208]: Pad {f00=0x0087, f01=0x018e, f02=»/3DFF F8-FF x P XIF P EJECT P* . P* 8 2 P* TABLE FOR CONVERSION OF ASCII CODE TO EBCDIC B P* x P* PTEBCDIC EQU * P IFF CODE+RCOM=0 ( P DATA /0001,/0203,/372D,/0000 00-07 ( P DATA /0005,/1500,/0C00,/0000 08-0F
0x1926c0…248b20 [0x209]: Pad {f00=0x0087, f01=0x0190, f02=» j ( P DATA /4D5D,/5C4E,/6B60,/4B61 28-2F ( P DATA /F0F1,/F2F3,/F4F5,/F6F7 30-37 4 ( P DATA /F8F9,/7A5E,/4C7E,/6E6F 38-3F ` ( P DATA /6AC1,/C2C3,/C4C5,/C6C7 40-47 ( P DATA /C8C9,/D1D2,/D3D4,/D5D6 48-4F ( P DATA /D7D8,/D9E2,/E3E4,/E5E6 50-57
0x1926c0…248b20 [0x20a]: Pad {f00=0x0087, f01=0x40b0, f02=» ( P DATA /9798,/99A2,/A3A4,/A5A6 70-77 ( P DATA /A7A8,/A91C,/0000,/00E0 78-7F 0 4 P DATA /544F,/5353 SPEC. FLEX CHAR. 'TOSS' 80-84 P XIF P END @ ( P DATA /C8C9,/D1D2,/D3D4,/D5D6 48-4F ( P DATA /D7D8,/D9E2,/E3E4,/E5E6 50-57
0x1926c0…248b20 [0x20b]: Pad {f00=0x0087, f01=0x2008, f02=» 68-6F z ( P DATA /9798,/99A2,/A3A4,/A5A6 70-77 ( P DATA /A7A8,/A91C,/0000,/00E0 78-7F B 4 P DATA /544F,/5353 SPEC. FLEX CHAR. 'TOSS' 80-84 n P XIF P END @ ( P DATA /C8C9,/D1D2,/D3D4,/D5D6 48-4F ( P DATA /D7D8,/D9E2,/E
0x1926c0…248b20 [0x20c]: Pad {f00=0x0087, f01=0x0190, f02=» I 0/ Q P 4 @'A TuI ThW 0 0 # 9 T ! y I T _$ X+W* A'I _; L_ I' I 0 W 0 @ 4 I 0 W 0 @'@ 4 A TlI T_W 0 # . I T ! y W T
0x1926c0…248b20 [0x20d]: Pad {f00=0x0087, f01=0x0190, f02=»M!! _/ 3b M < 3b M 3b M 8 > O O |8 _ BC%< hM B hM T b M 3b M P Y P ( ! K"e , / 6h ( T 2 | |_ h (L 2_ 3
0x1926c0…248b20 [0x20e]: Pad {f00=0x0087, f01=0x0190, f02=» I" ? I" ? @ @ 4 @ A 4 @ A @ 4 A @ v H A W @ W A 2@ I 4 @ W I W !I " "A 6 _5 W @ _ _EA 4 #A 6 <MW _Z @ $_BK ( @ % $_U$ 0 0 A &_nI 0 4@ @ _ K P 4@ _W A
0x1926c0…248b20 [0x20f]: Pad {f00=0x0087, f01=0x0190, f02=»T 4 ,T ! W 4 -T 4 .T W * TyW /TsWy * 4 2 + TLWR + TEWK + T>WD 0T8 4 I 0 4 I % 4 I 4 H 4 * 4 4 4 6 ! !1 4 4 I 1T 6 4 4 4 0 4 4 A @ @ 6
0x1926c0…248b20 [0x210]: Pad {f00=0x00f2, f01=0x0190, f02=» ! 6 V W :h ! 6 4 X )" X '# R 4 e > p q` B P ! B C ^N P R ?] _ C _ " $ P X ' X ] ! 6 c B ! ! ! 6 B Y & ! W c 8!0T 8 !@P ! 6$ P
0x1926c0…248b20 [0x211]: Pad {f00=0x00f2, f01=0x0006, f02=» @ H P
0x1926c0…248b20 [0x212]: Pad {f00=0x00f2, f01=0x0190, f02=» 0 P IDENT TIMER REL 9.2 79-11-16 870105040920 P 8 P* @ P* J 8 P*************************************************** T P* $ P* PHILIPS TERMINAL SYSTEM PTS P* P* TIMER = TIMER FUNCTIONS P* P* P*
0x1926c0…248b20 [0x213]: Pad {f00=0x00f2, 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*
0x1926c0…248b20 [0x214]: Pad {f00=0x00f2, f01=0x0190, f02=» . P ENTRY SETIMP SETIME + STORE TIMER POINTER P 6 P > P F P* N P* X P*********** b P* EXTRNALS * v P************ P* P* P EXTRN TDISP DISPATCHER . P EXTRN LKMQDI QUEUE TERMINAL AND DISPATCH $ P EXTRN
0x1926c0…248b20 [0x215]: Pad {f00=0x00f2, f01=0x018e, f02=»ADDRESS x $ P EXTRN ACTOT ACTIVATE A TERMINAL * P EXTRN SAVE8 SAVE 8 REGISTERS ON STACK 8 8 P EXTRN TIMQUE POINTER TO FIRST BLOCK IN TIMER QUEUE f 0 P EXTRN IHRET8 RESTORE 8 REGISTERS FROM STACK P EJECT TIMER P* P* . P**********
0x1926c0…248b20 [0x216]: Pad {f00=0x00f2, f01=0x0190, f02=» d P* 6 P* A PROGRAM VERSION USING THE EXTENDED INSTRUCTION . P* SET IS OBTAINED BY SETTING CPU852 EQU 0. L P* ~ PCPU852 EQU 0 P* P EJECT TIMER P* P* P* T I M E R P* ( P* THIS IS THE TIMER LKM
0x1926c0…248b20 [0x217]: Pad {f00=0x00f2, f01=0x018e, f02=»ELAY P* P* A4 = 0 P* A5 = TTAB ADDRESS ( P* A8 = DELAY F P* P* f P* 2. TIMING AND ACTIVATION p P* P* A1 = PARAMETER 8 P* A4 = DISPATCH ADDRESS OF PROGRAM TO BE ACTIVATED , P* A5 = TTAB ADDRESS
0x1926c0…248b20 [0x218]: Pad {f00=0x00f2, f01=0x0190, f02=» PTIMER EQU * P ADK A4,0 SET CR * P RF(NZ) TIM010 TIMING AND ACTIVATION? 0 P* ^ P EJECT TIMER h P* ~ P* PROGRAM DELAY P* P LDR A1,A5 SET PARAMETER P ST A8,PAR1+2 SET TIME P CF A15,SETIME PPAR1 DATA
0x1926c0…248b20 [0x219]: Pad {f00=0x00f2, f01=0x0190, f02=» PTIM010 EQU * $ P CF A15,FNDTID FIND TTAB ADDRESS P ADK A2,0 SET CR D " P ABL(Z) LKMRQE TTAB NOT FOUND? ( P LDR A3,A2 IN BLOCK: A3=TTAB ADDRESS , P LDR A2,A4 A2=DISPATCH ADDRESS ( P CF A15,GETBLK A1=PARAMETER . P
0x1926c0…248b20 [0x21a]: Pad {f00=0x00f2, f01=0x0190, f02=» PQUEDIS EQU * P ABL LKMQDI P* , P EJECT TIMER 6 P* L P* V P* RETURN AFTER TIME OUT ` P* P* 1.PROGRAM DELAY P* PDELAY EQU * P LDR A5,A1 SET TTAB ADDRESS * P RB QUEDIS QUEUE TASK FOR DISPAT
0x1926c0…248b20 [0x21b]: Pad {f00=0x00f2, f01=0x0190, f02=»FREBLK AND SET IT FREE P LDR A5,A3 SET TTAB ADDRESS * P LDK A7,0 MONITOR ACTIVATION PARAMETER B ( P CF A15,ACTOT AND ACTIVATE TERMINAL p P RB TTDIS P* P EJECT TIMER P* P* " P* S E T I M E , S E T I M P P*
0x1926c0…248b20 [0x21c]: Pad {f00=0x00f2, f01=0x0190, f02=»RS:- ~ P* P* A1 = PARAMETER . P* A4 = IF SETIMP: TIMER POINTER ADDRESS 0 , P* P1 = DISPATCH ADDRESS AFTER TIME OUT b P* P2 = DELAY P* : P* P1 AND P2 ARE STORED AFTER THE SUBROUTINE REQUEST. P* P* EXIT PARAMET
0x1926c0…248b20 [0x21d]: Pad {f00=0x00f2, f01=0x018e, f02=» * P IFT CPU852=1 & P CF A15,SAVE8 SAVE A1-A8 ON STACK P XIF J P* V P IFT CPU852=0 ` P INH v " P MSR 8,A15 SAVE A1-A8 ON STACK P XIF P* P EJECT TIMER P* P* * P LDR A6,A4 SAVE TIMER POINTER ADDR
0x1926c0…248b20 [0x21e]: Pad {f00=0x00f2, f01=0x0190, f02=» P LDR* A8,A5 TIME IN A8 P ADK A5,2 & ( P ST A5,20,A15 ADJUST PROGRAM COUNTER 8 $ P CF A15,GETBLK GET A FREE BLOCK d P LDR A2,A4 P C1R A1,A8 " P CF A15,GETBLK GET TIMER BLOCK P LD A1,TIMQUE " P STR A1,A4 SET BLOCK IN QUEUE
0x1926c0…248b20 [0x21f]: Pad {f00=0x00f2, f01=0x417a, f02=»ETIME? , P STR A4,A6 -SETIMP. STORE TIMER POINTER P* > P EJECT TIMER H P* ^ P* h PSETEND EQU * r P IFT CPU852=1 ( P ABL IHRET8 RESTORE A1-A8 AND RETURN P XIF P* P IFT CPU852=0 * P MLR 8,A15 RESTORE A1-
0x1926c0…248b20 [0x220]: Pad {f00=0x00f2, 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 BLOCK
0x1926c0…248b20 [0x221]: Pad {f00=0x00f2, f01=0x0190, f02=»W ! f* T ! X $P y $ Y $ C ! [ 0 Z , ! B Z ZX X . 0T N W X ,P Y . 0 %_. % Y . _t _ P , _ ?" 8 T ! )_ W ! T "? 9 0 R Q > 4 >_ <k$ Y T #? 0R R * W ?W X P $ <c ,P $
0x1926c0…248b20 [0x222]: Pad {f00=0x00f2, f01=0x0190, f02=» NT 0 (@ > ($SWAP A A A A. UU @ @ ! P$>B @ A @ E D P _ $ % $P _ % A @ " Q A R : R W2 A ( A ( P. _ " :c* A W " :d2 * A r & W F `
0x1926c0…248b20 [0x223]: Pad {f00=0x00f2, f01=0x0190, f02=» PN A @ $ P( @ R W 8 !RRT W V P A Y W @ " T> W @ V W Q h Y P @ T W - P _ T <B :L A W A A W
0x1926c0…248b20 [0x224]: Pad {f00=0x00f2, f01=0x0190, f02=» < P W <9B @ V W Q W @ 6 @ CRT @ P @ ! P W @ V P _ @ ! P !RRP V @ P W _: V @ PZ W @ @ ! T _ P
0x1926c0…248b20 [0x225]: Pad {f00=0x00f2, f01=0x0190, f02=» P$ _ P !;;T X$ W _J ( T (W R W W V 0 !;;P P V Xb _ P !;;T X$ W nP XZ_V S A A R @ R @ ! T A & A : V @ R V V
0x1926c0…248b20 [0x226]: Pad {f00=0x00f2, f01=0x0190, f02=»A K : A T.I T P 1 I P < R P A _> : A A A X A n A A A A : 9e9C) A I " 9A ! 9B r @ Rr A I ! ( : A A A X A n A &! T A * A & I ! : 9E @ Rr s A
0x1926c0…248b20 [0x227]: Pad {f00=0x00f2, f01=0x0190, f02=»P P$_ P =H P @ T X W n : YX d C !CCT B. X B.9 H T Q _ r_ !SST( 0 U Z R X A X W : @ ' R xW V W$ V P P W P V T W V W
0x1926c0…248b20 [0x228]: Pad {f00=0x00e7, f01=0x0190, f02=»***************** u r P v & P CWK A2,X'20' ATTRIBUTE CHARACTER v " P RF(L) TRT101 YES!!! v L P XIF v h P IFT DMRK=1 v t P CWK A2,/7E LINE FEED ? v " P RF(NE) TRT102 NO,GO TO TRT102 v P LDK A2,/0A v PTRT102 EQU * v P CWK A2,/7D END OF M
0x1926c0…248b20 [0x229]: Pad {f00=0x00e7, f01=0x0006, f02=»
0x1926c0…248b20 [0x22a]: Pad {f00=0x00e7, f01=0x0190, f02=» 2 P IDENT TMMLKM REL 9.2 79-11-16 870105040920 P : P* B P* L 6 P************************************************** V P* $ P* PHILIPS TERMINAL SYSTEM PTS P* ( P* TMMLKM = TOSS MMU LKM PROCESSORS P* P*
0x1926c0…248b20 [0x22b]: Pad {f00=0x00e7, 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****
0x1926c0…248b20 [0x22c]: Pad {f00=0x00e7, f01=0x0190, f02=» MMU TABLE | & P ENTRY TLUSEG LOCK/UNLOCK SEGMENT P < P D P L P* T P* ^ P************* h P* EXTERNALS * ~ P************* P* P* 0 P EXTRN FNDTID FIND TTAB ADDRESS FROM TASK ID , P EXTRN LKMQDI QUEUE TASK
0x1926c0…248b20 [0x22d]: Pad {f00=0x00e7, f01=0x0190, f02=»AB ADDRESS ~ $ P EXTRN SCTNOS NUMBER OF SEGMENTS P EJECT TMMLKM : P* R P* P********** f P* TCHPAG * x P********** P* P* 2 P* THIS IS THE CHANGE MMU PAGE LKM PROCESSOR. P* B P* TCHPAG WILL CHANGE THE
0x1926c0…248b20 [0x22e]: Pad {f00=0x00e7, f01=0x0190, f02=»TERED FROM THE LKM HANDLER & P* WITH THE FOLLOWING PARAMETERS: " P* L P* A5 = TTAB ADDRESS V ( P* A7 = PAGE TO BE CHANGED, 0 - 15 t * P* A8 = NEW LOCATION OF PAGE, 0 - 63 P* < P* IT RETURNS TO CALLING TASK WITH A7 AND A8 UNCH
0x1926c0…248b20 [0x22f]: Pad {f00=0x00e7, f01=0x0190, f02=»XING IN MMU TABLE v P ADR A7,A5 ADD TTAB ADDRESS P LDR A2,A8 NEW PAGE LOCATION > . P ANK A2,/3F SKIP IRRELEVANT BITS (IF ANY) b P SLL A2,2 < P SC A2,TTB:MT,A7 STORE NEW LOCATION OF PAGE IN MMU TABLE P* 0 PT:DISP ABL LKMQDI QUEUE TA
0x1926c0…248b20 [0x230]: Pad {f00=0x00e7, f01=0x018e, f02=»* P* 4 P* THIS IS THE CHANGE MMU TABLE LKM PROCESSOR. P* L D P* TCHMMU WILL CHANGE THE MMU TABLE CONTENTS OF REQUESTING TASK V 4 P* TO THE MMU TABLE CONTENTS OF SPECIFIED TASK. P* * P* IT IS ENTERED FROM THE LKM HANDLER
0x1926c0…248b20 [0x231]: Pad {f00=0x00e7, f01=0x0190, f02=» ` P* ( P* IT RETURNS TO CALLING TASK WITH P* THE FOLLOWING PARAMETER: > P* b 2 P* A7 = UNCHANGED IF REQUEST SUCCESSFUL, ELSE l & P* A7 = -1 IF TASK NOT IN SYSTEM P* " PTCHMMU EQU * CHANGE MMU TABLE * P CF A15,FNDTID
0x1926c0…248b20 [0x232]: Pad {f00=0x00e7, f01=0x0190, f02=»NTENTS h 4 P TS TTB:MT,A5 STORE IN MMU TABLE OF CALLING TASK * P RB T:DISP QUEUE TASK FOR DISPATCHING F P* t P EJECT TMMLKM ~ P* P* P********** P* TLUSEG * P********** P* P* 6 P* THIS IS THE LOCK/U
0x1926c0…248b20 [0x233]: Pad {f00=0x00e7, f01=0x0190, f02=»OCK SEGMENT REQUEST IS ISSUED FOR THAT SEGMENT. P* 8 * P* IT IS ENTERED FROM THE LKM HANDLER B & P* WITH THE FOLLOWING PARAMETERS: p P* P* A5 = TTAB ADDRESS P* A7 = SEGMENT NUMBER & P* A8 = 0 IF LOCK SEGMENT REQUEST (
0x1926c0…248b20 [0x234]: Pad {f00=0x00e7, f01=0x0190, f02=» P* > P* A7 = UNCHANGED IF SEGMENT LOADING IS SUCCESSFUL, ELSE & P* A7 = -1 IF REQUEST ERROR, ELSE P P* z P* P EJECT TMMLKM P* P* $ PTLUSEG EQU * LOCK/UNLOCK SEGMENT * P LDR A1,A7 CHECK IF SEGMENT NUMBER < 0
0x1926c0…248b20 [0x235]: Pad {f00=0x00e7, f01=0x0190, f02=»TLCERR EQU * , P ABL LKMRQE BRANCH TO LKM REQUEST ERROR P* D PTLUS00 EQU * N , P SLL A1,3 ADJUST FOR INDEXING IN SEGTAB b $ P AD A1,SCTSEG ADD SEGTAB ADDRESS " P LCR A4,A1 GET SEGMENT STATUS P ANK A4,/8 " P RB(NZ) TLCERR CORE RESI
0x1926c0…248b20 [0x236]: Pad {f00=0x00e7, f01=0x4164, f02=» P EJECT TMMLKM P* P* LOCK SEGMENT & P* < 4 P ORRS A4,A1 INDICATE SEGMENT TO BE CORE RESIDENT F P RB T:DISP ~ P* P* UNLOCK SEGMENT P* PTLUS10 EQU * P C1R A4,A4 A4 := /FDFF 2 P ANRS A4,A1 INDICATE SEGMENT
0x1926c0…248b20 [0x237]: Pad {f00=0x00e7, f01=0x2008, f02=» NT TCHPAG PRR 9.1 78-10-16 870105040910 END <@ H
0x1926c0…248b20 [0x238]: Pad {f00=0x00e7, f01=0x0190, f02=» n P LDK A3,0 P* P IFT MMUPAG=0 $ * P LDR* A1,A7 GET NO OF ECB:S IN ECBBLK : P XIF h P* t P IFT MMUPAG=1 ~ ( P ELR A1,A7 GET NO OF ECB:S IN ECBBLK P XIF P* ( P RF(NP) TP:RQE REQUEST ERROR IF <= 0 P*
0x1926c0…248b20 [0x239]: Pad {f00=0x00e7, f01=0x0190, f02=»S v & P LDR* A2,A8 GET FIRST WORD OF ECB P XIF 4 P* @ P IFT MMUPAG=1 J P ELR A8,A7 GET ECB ADDRESS ` $ P ELR A2,A8 GET FIRST WORD OF ECB P XIF P* ( P RF(N) TMW:30 I/O ALREADY COMPLETED? 8 P CF A15,FNDDWT NO, SEARCH DWT
0x1926c0…248b20 [0x23a]: Pad {f00=0x00e7, f01=0x0190, f02=» " P LD A2,DWTST,A6 GET DWT STATUS P RF(N) TP:RQE NOT BUSY? * P CW A5,DWTTAB,A6 J 4 P RF(NE) TP:RQE REQUEST NOT ISSUED BY THIS TASK? b 0 P LD A2,DWTWAT,A6 GET WAIT/ACTIVATE INDICATOR , P RF(NZ) TP:RQE REQUEST ISSUED WITH WAIT? P ORK A6,1 SE
0x1926c0…248b20 [0x23b]: Pad {f00=0x00e7, f01=0x0190, f02=»AVE FIRST DWT ADDRESS P LDR A3,A6 P* 0 PTMW:20 EQU * : 8 P ST A6,DWTWAT,A9 CHAIN THIS DWT WITH THE ONE BEFORE N $ P LDR A9,A6 SAVE THIS DWT ADDRESS P SUK A1,1 ( P RB(P) TMW:10 MORE ECB:S IN ECBBLK? : P ST A3,DWTWAT,A9 NO, SET F
0x1926c0…248b20 [0x23c]: Pad {f00=0x00e7, f01=0x0190, f02=» TTAB SAVE AREA p 2 P ADK A3,0 CHECK FLAG IF FIRST ECB TO WAIT FOR & P RF(Z) TP:QDI FIRST ECB IN ECBBLK? N P* x : PTMW:40 ADKL A3,DWTWAT POINT TO WAIT/ACTIVATE INDICATOR $ P LDR* A2,A3 GET NEXT DWT ADDRESS P RF(Z) TP:QDI NO MORE DWT:S?
0x1926c0…248b20 [0x23d]: Pad {f00=0x00e7, f01=0x40aa, f02=»QU * " P ABL LKMRQE LKM REQUEST ERROR P* 2 PTP:QDI EQU * < ( P ABL LKMQDI QUEUE TASK AND DISPATCH P P* | P* P* P END @ VATE INDICATOR $ P LDR* A2,A3 GET NEXT DWT ADDRESS P RF(Z) TP:QDI NO MORE DWT:S?
0x1926c0…248b20 [0x23e]: Pad {f00=0x00e7, 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
0x1926c0…248b20 [0x23f]: Pad {f00=0x00e7, f01=0x0000, f02=»
0x1926c0…248b20 [0x240]: Pad {f00=0x004c, f01=0x0190, f02=» 4 F IDENT I:EDT P,REL=4.2,791116,870136940420 F B I:EDT I:EDW I:ED1 I:EDSK I:EVT I:ETAB I:EXITL I:ETXT I:ECPY < D @ I:ECTR I:ESL I:ENL I:EOR I:ECW I:ECWC I:EFIL` I:EFLA I:SCB I:FFSN , ( !! gg++
0x1926c0…248b20 [0x241]: Pad {f00=0x004c, f01=0x0006, f02=»
0x1926c0…248b20 [0x242]: Pad {f00=0x004c, f01=0x0190, f02=» 2 P IDENT TLDSEG REL 9.2 79-11-16 870105040920 P : P* B P* L 6 P************************************************** V P* $ P* PHILIPS TERMINAL SYSTEM PTS P* P* TLDSEG = LOAD SEGMENT P* P* P*
0x1926c0…248b20 [0x243]: Pad {f00=0x004c, f01=0x0190, f02=»M PROCESSOR, d 0 P* USED IN TOSS MEMORY MANAGEMENT SYSTEMS. P* H P* R P EJECT TLDSEG P* t P* ~ P*********** P* ENTRIES * P*********** P* P* P ENTRY TLDSEG LOAD SEGMENT & P ENTRY TLDS15 EN
0x1926c0…248b20 [0x244]: Pad {f00=0x004c, f01=0x0190, f02=»* EXTERNALS * P************* P* , P* 6 0 P EXTRN PRUN TTAB ADDRESS OF RUNNING PROGRAM @ P EXTRN TDISP DISPATCHER t $ P EXTRN LKM030 LKM REQUEST ERROR & P EXTRN PAG:QB QUEUE LINK BACKWARDS P EXTRN PAG:PA PAGE ADDRESS & P E
0x1926c0…248b20 [0x245]: Pad {f00=0x004c, f01=0x018e, f02=»A TTAB SAVE AREA P EXTRN TTB:MT MMU TABLE ( P EXTRN TTB:SB SEGMENT BLOCK ADDRESS 8 2 P EXTRN QLTDSK ACTIVATE LDTASK AT ENTRY LT:DSK d P EXTRN SCTSEG SEGTAB ADDRESS $ P EXTRN SCTNOS NUMBER OF SEGMENTS & P EXTRN SCTMMP MMU TABLE PAGE ENTRY
0x1926c0…248b20 [0x246]: Pad {f00=0x004c, 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*
0x1926c0…248b20 [0x247]: Pad {f00=0x004c, f01=0x0190, f02=» CPU852 EQU 0. t P* PCPU852 EQU 0 P* 4 * > . ** A PROGRAM VERSION USING TOSS DISC PAGING H * &* IS OBTAINED BY SETTING DSKPAG EQU 1. z * PDSKPAG EQU 0 * P* 4 P* A PROGRAM VERSION USING TOSS ASSEMBLER OVERLAY
0x1926c0…248b20 [0x248]: Pad {f00=0x004d, f01=0x0190, f02=» P********** P* TLDSEG * P********** ( P* : P* D 0 P* THIS IS THE LOAD SEGMENT LKM PROCESSOR. N P* * P* IT IS ENTERED FROM THE LKM HANDLER & P* WITH THE FOLLOWING PARAMETERS: P* 4 P* A2 = DISPATCH ADDRESS (N
0x1926c0…248b20 [0x249]: Pad {f00=0x004d, f01=0x0190, f02=»S) d P* ( P* IT RETURNS TO CALLING TASK WITH " P* THE FOLLOWING PARAMETERS: @ P* f > P* A7 = UNCHANGED IF SEGMENT LOADING IS SUCCESSFUL, ELSE p & P* A7 = -1 IF REQUEST ERROR, ELSE ( P* A7 = -2 IF DISC I/O ERROR, ELSE $ P*
0x1926c0…248b20 [0x24a]: Pad {f00=0x004d, f01=0x018e, f02=»UGH THE DISPATCHER AFTER p > P* COMPLETION, THUS NO TASK SWITCHING WILL BE PERFORMED, < P* IN PURPOSE TO MAKE THE REQUEST AS FAST AS POSSIBLE. b P* : P* WHEN REQUESTED SEGMENT IS NOT IN CORE TLDSEG WILL : P* ACTIVATE LDTASK WHICH WILL L
0x1926c0…248b20 [0x24b]: Pad {f00=0x004d, f01=0x018e, f02=» PTLDSEG EQU * LOAD SEGMENT * P LDR A1,A7 CHECK IF SEGMENT NUMBER < 0 & P RF(N) TLDERR REQUEST ERROR? T 2 P CW A1,SCTNOS CHECK IF SEGMENT NUMBER TOO BIG x P RF(NG) TLDS00 OK? P* $ PTLDERR LDK A6,/FF INDICATE ERROR , P ABL LKM030 BRAN
0x1926c0…248b20 [0x24c]: Pad {f00=0x004d, f01=0x0190, f02=» P LDR A3,A5 GET TTAB ADDRESS , P SLL A1,3 ADJUST FOR INDEXING IN SEGTAB , $ P AD A1,SCTSEG ADD SEGTAB ADDRESS & P ADK A2,2 UPDATE DISPATCH ADDRESS P* P IFT DSKPAG=0 $ P SUKL A15,4 ADJUST STACKPOINTER . P ST A2,4,A15 SET DIS
0x1926c0…248b20 [0x24d]: Pad {f00=0x004d, f01=0x0190, f02=»,TTB:SB,A3 RESET SEGMENT BLOCK ADDRESS 6 P LD A1,SEG:DS,A1 GET LOGICAL ADDRESS OF SEGMENT 0 . P* h P IFT DSKPAG=1 r $ P SUKL A15,4 ADJUST STACKPOINTER . P ST A2,4,A15 SET DISPATCH ADDRESS ON STACK P XIF P* P RF TLDS40 P
0x1926c0…248b20 [0x24e]: Pad {f00=0x004d, f01=0x0190, f02=»ADDRESS j " P LDR* A4,A1 GET SEGMENT STATUS * P RF(N) TLDS10 SEGMENT LOADED IN CORE? 6 P ST A2,TTB:SA,A3 d P CM PRUN | P* P* ACTIVATE LOAD TASK P* 6 P CF A15,QLTDSK ACTIVATE LOAD TASK AT ENTRY LT:DSK P ABL TDISP GO TO DIS
0x1926c0…248b20 [0x24f]: Pad {f00=0x004d, f01=0x0190, f02=»4 ADJUST STACKPOINTER . P ST A2,4,A15 SET DISPATCH ADDRESS ON STACK P* P ( P* REMOVE PAGE BLOCK FROM PAGE QUEUE Z P* P XIF P* & PTLDS15 EQU * ENTRY USED BY LDTASK P IFT DSKPAG=1 & P LDR* A2,A1 GET QUEUE LINK FORWARD
0x1926c0…248b20 [0x250]: Pad {f00=0x0051, f01=0x0190, f02=»F REMOVED BLK n " P STR A2,A4 UPDATE QUEUE LINKS P ST A4,PAG:QB,A2 < P XIF T P* ` P EJECT TLDSEG j P* , P* GET PAGE ADDRESS OF REQUESTED SEGMENT P* & PTLDS20 EQU * ENTRY USED BY LDTASK & P LD A1,PAG:PA,A1 GET PAGE
0x1926c0…248b20 [0x251]: Pad {f00=0x0051, f01=0x0190, f02=»MMU TABLE j P* 0 P AD A3,SCTMMP POINT TO FIRST USED PAGE ENTRY , P LD A4,SCTNPE GET NUMBER OF PAGE ENTRIES P P* P* UPDATE PAGE ENTRY/ENTRIES P* PTLDS25 EQU * P SCR A2,A3 UPDATE PAGE ENTRY P SUK A4,1 ( P RF(NP)
0x1926c0…248b20 [0x252]: Pad {f00=0x0051, f01=0x0190, f02=»* P EJECT TLDSEG P* " P* , 4 PTLDS30 ANKL A1,/300 COMPUTE CURRENT SEGMENT BASE 6 P SLL A1,2 n P OR A1,SCTLAP $ P TL TTB:MT,A5 LOAD MMU REGISTERS P* PTLDS40 EQU * P IFT ASSOLY=0 2 P ES A1,T:ACSB,A13 UPDATE
0x1926c0…248b20 [0x253]: Pad {f00=0x0051, f01=0x0190, f02=» BASE h P XIF P* P IFT CPU852=0 $ P LDR A6,A5 : $ P ML 6,TTB:SA+2,A6 RESTORE A1-A6 L $ P RTN A15 RETURN TO CALLING TASK t P XIF P* P IFT CPU852=1 $ P LD A1,TTB:SA+2,A5 RESTORE A1-A6 P LD A2,TTB:SA+4,A5 P
0x1926c0…248b20 [0x254]: Pad {f00=0x0051, f01=0x4048, f02=» TASK v P XIF P* P* $ P* . END 8@ D $ P ML 6,TTB:SA+2,A6 RESTORE A1-A6 L $ P RTN A15 RETURN TO CALLING TASK t P XIF P* P IFT CPU852=1 $ P LD A1,TTB:SA+2,A5 RESTORE A1-A6 P LD A2,TTB:SA+4,A5 P
0x1926c0…248b20 [0x255]: Pad {f00=0x0051, f01=0x2008, f02=» NT TLDSEG PREREL.9.1 780907 BOFE END 6@ B
0x1926c0…248b20 [0x256]: Pad {f00=0x0051, f01=0x0190, f02=»D OF QUEUE P IM 4,A4 INCREMENT TIMER P RB(N) CLK10 NOT TIME OUT? 2 P RF(Z) CLK30 TIME OUT? T P LDR* A3,A4 RELEASE TIMER r P STR A3,A6 P CF A15,FREBLK P LDR A4,A2 P CF A15,FREBLK P RB CLK20 P* P EJECT L
0x1926c0…248b20 [0x257]: Pad {f00=0x0051, f01=0x018e, f02=» P IFT CPU852=1 & P CF A15,SAVE8 SAVE A1-A8 ON STACK P XIF H P* T P IFT CPU852=0 ^ " P MSR 8,A15 SAVE A1-A8 ON STACK t P XIF P* $ P CF A15,SWL48 SWITCH TO LEVEL 48 P INH P LD A2,2,A4 LOAD DISP BLOCK P L
0x1926c0…248b20 [0x258]: Pad {f00=0x00e7, f01=0x0190, f02=» P EJECT P* < P* FIND DWT CONTAINING SUBTERMINAL ADDRESS AS GIVEN IN A2 P* $ P* CALLING SEQUENCE: CF A5,FINTER f P* A2=SUBTERMINAL ADDRESS P* A4 DESTROYED " P* A3#0: DWT TO FOUND TERMINAL P* B P* NOTE: FOR SIEMENS MS
0x1926c0…248b20 [0x259]: Pad {f00=0x00e7, f01=0x0004, f02=»
0x1926c0…248b20 [0x25a]: Pad {f00=0x00e7, f01=0x0190, f02=» 2 P IDENT TABORT REL 9.2 79-11-16 870105040920 P : P* B P* L 6 P************************************************* V P* $ P* PHILIPS TERMINAL SYSTEM PTS P* " P* TABORT = ABORT I/O REQUEST P* P* P*
0x1926c0…248b20 [0x25b]: Pad {f00=0x00e7, 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 P P P* P*
0x1926c0…248b20 [0x25c]: Pad {f00=0x00e7, f01=0x0190, f02=» DWTST DWT STATUS & P EXTRN DWTADR DRIVER ADDRESS BLOCK & P EXTRN DWTTAB TTAB ADDRESS IN DWT D 0 P EXTRN DWTWAT WAIT ACTIVATE INDICATOR IN DWT n " P EXTRN DWTECH ECHO DEVICE DWT ( P EXTRN ABTADR ABORT ROUTINE ADDRESS P EXTRN TENDIO END I/O
0x1926c0…248b20 [0x25d]: Pad {f00=0x00e7, f01=0x0190, f02=» TABORT P* P* . P***************************************** & P* X P* CONDITIONAL ASSEMBLY b P* . P***************************************** P* . P* A PROGRAM VERSION USING TOSS MMU PAGING * P* IS OBTAINED BY S
0x1926c0…248b20 [0x25e]: Pad {f00=0x00e7, f01=0x0190, f02=»BORT * P********** P* P* * 4 P* THIS IS THE ABORT I/O REQUEST LKM PROCESSOR. 4 P* l * P* IT IS ENTERED FROM THE LKM HANDLER v & P* WITH THE FOLLOWING PARAMETERS: P* P* A5 = TTAB ADDRESS P* A8 = ECB ADDRESS
0x1926c0…248b20 [0x25f]: Pad {f00=0x00e7, f01=0x0190, f02=»AT MADE THE I/O REQUEST. THUS I/O WITH WAIT CAN P* NOT BE ABORTED. 8 P* T P* ^ PTABORT EQU * h P IFT MMUPAG=0 | & P LDR* A3,A8 GET FIRST WORD OF ECB P XIF P* P IFT MMUPAG=1 $ P ELR A3,A8 GET FIRST WORD OF ECB
0x1926c0…248b20 [0x260]: Pad {f00=0x00e8, f01=0x0190, f02=» P RF(Z) TABOER DWT UNKNOWN? P* & P EJECT TABORT 0 P* H P* R P CW A5,DWTTAB,A6 P RF(NE) TABOER ILLEGAL TASK? t P LD A7,DWTST,A6 " P RF(N) TABOER DEVICE NOT BUSY? P SLC A7,2 $ P RF(NN) TABO20 NOT ECHO REQUEST?
0x1926c0…248b20 [0x261]: Pad {f00=0x00e8, f01=0x018e, f02=»RESS BLOCK f 8 P LD A2,ABTADR,A2 GET ABORT ROUTINE ADDRESS (IF ANY) , P RF(Z) TABO10 NO SPECIAL ABORT ROUTINE? N & P CFR A15,A2 PERFORM ABORT ROUTINE ~ P* PTABO10 EQU * $ P CF A15,TENDIO ABORT ECHO DEVICE P LDR A6,A8 RESTORE DWT
0x1926c0…248b20 [0x262]: Pad {f00=0x00e8, f01=0x0190, f02=» n : P CF A15,FREBLK I/O AND ACTIVATE. FREE DISPATCHER BLOCK " P CM DWTWAT,A6 INDICATE NO WAIT F P* l PTABO30 EQU * v 8 P LD A2,DWTADR,A6 GET ADDRESS TO DRIVER ADDRESS BLOCK 8 P LD A2,ABTADR,A2 GET ABORT ROUTINE ADDRESS (IF ANY) , P RF(Z) T
0x1926c0…248b20 [0x263]: Pad {f00=0x00e8, f01=0x40c8, f02=»CODE z P CF A15,TENDIO ABORT 0 P ABL LKMQDI QUEUE TASK AND GO TO DISPATCHER ( P* 0 PTABOER ABL LKMRQE GO AND INDICATE LKM ERROR f P* P* P* P END @ D A2,ABTADR,A2 GET ABORT ROUTINE ADDRESS (IF ANY) , P RF(Z) T
0x1926c0…248b20 [0x264]: Pad {f00=0x00e8, f01=0x2008, f02=»
0x1926c0…248b20 [0x265]: Pad {f00=0x00e8, f01=0x0190, f02=»,TTB:SB,A3 RESET SEGMENT BLOCK ADDRESS 6 P LD A1,SEG:DS,A1 GET LOGICAL ADDRESS OF SEGMENT 0 . P* h P IFT DSKPAG=1 r $ P SUKL A15,4 ADJUST STACKPOINTER . P ST A2,4,A15 SET DISPATCH ADDRESS ON STACK P XIF P* P RF TLDS40 P
0x1926c0…248b20 [0x266]: Pad {f00=0x00e8, f01=0x0190, f02=»ADDRESS j " P LDR* A4,A1 GET SEGMENT STATUS * P RF(N) TLDS10 SEGMENT LOADED IN CORE? 6 P ST A2,TTB:SA,A3 d P CM PRUN | P* P* ACTIVATE LOAD TASK P* 6 P CF A15,QLTDSK ACTIVATE LOAD TASK AT ENTRY LT:DSK P ABL TDISP GO TO DIS
0x1926c0…248b20 [0x267]: Pad {f00=0x00e8, f01=0x0190, f02=»4 ADJUST STACKPOINTER . P ST A2,4,A15 SET DISPATCH ADDRESS ON STACK P* P ( P* REMOVE PAGE BLOCK FROM PAGE QUEUE Z P* P XIF P* & PTLDS15 EQU * ENTRY USED BY LDTASK P IFT DSKPAG=1 & P LDR* A2,A1 GET QUEUE LINK FORWARD
0x1926c0…248b20 [0x268]: Pad {f00=0x00e8, f01=0x0190, f02=»F REMOVED BLK n " P STR A2,A4 UPDATE QUEUE LINKS P ST A4,PAG:QB,A2 < P XIF T P* ` P EJECT TLDSEG j P* , P* GET PAGE ADDRESS OF REQUESTED SEGMENT P* & PTLDS20 EQU * ENTRY USED BY LDTASK & P LD A1,PAG:PA,A1 GET PAGE
0x1926c0…248b20 [0x269]: Pad {f00=0x00e8, f01=0x0006, f02=»
0x1926c0…248b20 [0x26a]: Pad {f00=0x00e8, f01=0x0190, f02=» 2 P IDENT MONTIM REL 9.2 79-11-16 870105040920 P : P* B P* L < P******************************************************* V P* $ P* PHILIPS TERMINAL SYSTEM PTS P* * P* MONTIM = MONITOR CLOCK PROCESSORS P* P
0x1926c0…248b20 [0x26b]: Pad {f00=0x00e8, f01=0x0190, f02=»* THIS MODULE CONTAINS TOSS MONITOR CLOCK PROCESSORS P* @ 0 P* -GETTIM GET TIME FROM MONITOR CLOCK J P* ~ . P* -SETTIM SET TIME IN MONITOR CLOCK P* P EJECT MONTIM P* P* P*********** P* ENTR
0x1926c0…248b20 [0x26c]: Pad {f00=0x00e8, f01=0x0190, f02=»TOR CLOCK r P P P " P* * P* 4 P************* > P* EXTERNALS * T P************* j P* P* P EXTRN MONCLO MONITOR CLOCK * P EXTRN LKMQDI QUEUE TASK AND DISPATCH P EXTRN TTB:SA TTAB SAVE AREA P
0x1926c0…248b20 [0x26d]: Pad {f00=0x00e8, f01=0x0190, f02=»* . P***************************************** P* < . P* A PROGRAM VERSION USING TOSS MMU PAGING F * P* IS OBTAINED BY SETTING MMUPAG EQU 1. x P* PMMUPAG EQU 1 P* P EJECT MONTIM P* P* P* G E T T I M
0x1926c0…248b20 [0x26e]: Pad {f00=0x00e8, f01=0x0190, f02=»ADDRESS TO THE USER TIMER CONTROL 2 P* BLOCK IN A8. MONITOR CLOCK IS COPIED INTO * P* TIMER CONTROL BLOCK. ` P* P* PGETTIM EQU * 6 P LDKL A7,MONCLO+6 ADDRESS TO MONITOR CLOCK SECOND P LDK A3,6 COUNTER P INH P
0x1926c0…248b20 [0x26f]: Pad {f00=0x00e8, f01=0x018e, f02=» v P SUK A7,2 P LDR* A6,A7 HOURS P ENB 4 P* @ * PGETT10 CF A15,BYTASC CONVERT TO ASCII J P IFT MMUPAG=0 x * P SC A6,1,A8 STORE RIGHTHAND CHARACTER P ECR A6,A6 ( P SCR A6,A8 STORE LEFTHAND CHARACTER P XIF P*
0x1926c0…248b20 [0x270]: Pad {f00=0x00e8, f01=0x0190, f02=» $ P RF(Z) GETT15 TCB ADDRESS EVEN? P LDR A1,A6 0 P EL A4,1,A8 B P ANK A4,/FF V P SLL A1,8 j P ORR A1,A4 | P ES A1,1,A8 P ELR A4,A8 P SRL A6,8 P ANKL A4,/FF00 P ORR A6,A4 P* 6 PGETT15 ESR A6,A8 S
0x1926c0…248b20 [0x271]: Pad {f00=0x00e8, f01=0x0190, f02=»ET ACTUAL TIME FROM STACK P RB GETT10 " P* 4 P EJECT MONTIM > P* V P* ` PGETT20 SUK A7,2 j . P LDR* A6,A7 GET ACCUMULATED 24 HOUR CARRY 2 P ST A6,TTB:SA+14,A5 STORE IN TTAB SAVE AREA A7 P CMR A7 CLEAR MIDNIGTH CARRY
0x1926c0…248b20 [0x272]: Pad {f00=0x00e8, f01=0x0190, f02=»S IS THE SET TIME LKM PROCESSOR. P* ( 0 P* IT IS ENTERED FROM THE LKM HANDLER WITH 2 0 P* ADDRESS TO THE USER TIMER CONTROL BLOCK f 0 P* IN A8. VALUE IN TIMER CONTROL BLOCK IS $ P* COPIED INTO MONITOR CLOCK. P* P* P
0x1926c0…248b20 [0x273]: Pad {f00=0x00e8, f01=0x0190, f02=»QU * P IFT MMUPAG=0 & P LCR A6,A8 GET LEFTHAND CHARACTER " P ECR A6,A6 L ( P LC A6,1,A8 GET RIGHTHAND CHARACTER ^ P XIF P* P IFT MMUPAG=1 2 P ELR A6,A8 GET VALUE FROM TIMER CONTROL BLOCK . P LDR A4,A8 GET TIMER CONTROL B
0x1926c0…248b20 [0x274]: Pad {f00=0x00e8, f01=0x0190, f02=»LL A6,8 P SRL A4,8 P ORR A6,A4 " P* 4 PSETT15 EQU * > P XIF R P* ^ P EJECT MONTIM h P* P* $ P CF A15,ASCTBY CONVERT TO BINARY P SUK A3,2 END ? P RF(E) SETT20 P ADKL A8,2 0 P STR A6,A15 SA
0x1926c0…248b20 [0x275]: Pad {f00=0x00e8, 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 CMR A7 RESET MIDNIGTH CARRY P RB TPDIS P* P EJECT MONTI
0x1926c0…248b20 [0x276]: Pad {f00=0x00e8, f01=0x0190, f02=» RESULT IN A6. P* P* ( PBYTASC EQU * 2 P LDK A4,0 F P* X PBYTA10 SUK A6,/A b P RF(N) BYTA20 z P ADKL A4,/100 P RB BYTA10 P* PBYTA20 ADK A6,/A P ADR A6,A4 P ORKL A6,/3030 P RTN A15
0x1926c0…248b20 [0x277]: Pad {f00=0x00e8, f01=0x415c, f02=» ASCII TO BINARY. ~ P* RESULT IN A6. P* > P* H PASCTBY EQU * R P LDR A4,A6 f P ANK A6,/F x 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
0x1926c0…248b20 [0x278]: Pad {f00=0x00e8, 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* RESULT
0x1926c0…248b20 [0x279]: Pad {f00=0x00e8, f01=0x018e, f02=»RESS BLOCK f 8 P LD A2,ABTADR,A2 GET ABORT ROUTINE ADDRESS (IF ANY) , P RF(Z) TABO10 NO SPECIAL ABORT ROUTINE? N & P CFR A15,A2 PERFORM ABORT ROUTINE ~ P* PTABO10 EQU * $ P CF A15,TENDIO ABORT ECHO DEVICE P LDR A6,A8 RESTORE DWT
0x1926c0…248b20 [0x27a]: Pad {f00=0x00e8, f01=0x0190, f02=» n : P CF A15,FREBLK I/O AND ACTIVATE. FREE DISPATCHER BLOCK " P CM DWTWAT,A6 INDICATE NO WAIT F P* l PTABO30 EQU * v 8 P LD A2,DWTADR,A6 GET ADDRESS TO DRIVER ADDRESS BLOCK 8 P LD A2,ABTADR,A2 GET ABORT ROUTINE ADDRESS (IF ANY) , P RF(Z) T
0x1926c0…248b20 [0x27b]: Pad {f00=0x00e8, f01=0x40c8, f02=»CODE z P CF A15,TENDIO ABORT 0 P ABL LKMQDI QUEUE TASK AND GO TO DISPATCHER ( P* 0 PTABOER ABL LKMRQE GO AND INDICATE LKM ERROR f P* P* P* P END @ D A2,ABTADR,A2 GET ABORT ROUTINE ADDRESS (IF ANY) , P RF(Z) T
0x1926c0…248b20 [0x27c]: Pad {f00=0x00e8, f01=0x2008, f02=»
0x1926c0…248b20 [0x27d]: Pad {f00=0x00e8, f01=0x0190, f02=» EJECT TPROC P* P* P********** * P* TPAUSE * < P********** N P* ` P* j ( P* THIS IS THE PAUSE LKM PROCESSOR. t P* : P* THIS MODULE IS ENTERED FROM THE LKM HANDLER WHEN A : P* TASK WANTS TO (TEMPORARILY) HA
0x1926c0…248b20 [0x27e]: Pad {f00=0x00e8, f01=0x0190, f02=» P********** P* TMWAIT * P********** , P* > P* H 0 P* THIS IS THE MULTIPLE WAIT LKM PROCESSOR. R P* * P* IT IS ENTERED FROM THE LKM HANDLER & P* WITH THE FOLLOWING PARAMETERS: P* P* A5 = TTAB ADDRESS
0x1926c0…248b20 [0x27f]: Pad {f00=0x00e8, f01=0x018e, f02=»LLING TASK VIA TENDIO t & P* WITH THE FOLLOWING PARAMETERS: P* H , P* A8 = ECB ADDRESS OF COMPLETED EVENT R P* > P* IF REQUEST ERROR, A7 := -1 (AND NO RETURN VIA TENDIO). P* ( P* NOTICE THAT ALL EVENTS MUST HAVE ( P* BE
0x1926c0…248b20 [0x280]: Pad {f00=0x00f7, f01=0x0190, f02=»P @ , t EXTDMIH EXTLENT & , ( ! ! T W P . D Y T P 0 8 EXTBAS h , ( 9I Y V P 0 Y X U ! T z TASLFD , ( S ! X6 _R _V D Z" TASTBE , ( q$ P
0x1926c0…248b20 [0x281]: Pad {f00=0x00f7, f01=0x000c, f02=» ( 0
0x1926c0…248b20 [0x282]: Pad {f00=0x00f7, f01=0x0190, f02=» 0 P IDENT TASS REL 9.2 79-11-16 870105040920 P 8 P =1, PR 4313 @ P* REL 9.1 78-10-25 V P r P* z P* 8 P**************************************************** P* $ P* PHILIPS TERMINAL SYSTEM PTS P* 2 P*
0x1926c0…248b20 [0x283]: Pad {f00=0x00f7, f01=0x0190, f02=»**************************** x P* $ " P* THIS MODULE IS ENTERED VIA . $ P* ASSIGN REQUEST (DATA 15) OR T ( P* ASSIGN INDEX REQUEST (DATA 16). | P* P* LDK A7,TC P* LDKL A8,ASBLK P* LKM P* DATA 15 P*
0x1926c0…248b20 [0x284]: Pad {f00=0x00f7, f01=0x018e, f02=»K IS A PARAMETER BLOCK z D P* AND TC = 1 WHEN TASK LOCAL ASSIGN IN TTAB IS WANTED B P* TC = 0 WHEN GLOBAL ASSIGN IN SCTCDT IS WANETED f P* P EJECT P* +----------+----------+ $ P* ASBLK I NO OF VOL FC I
0x1926c0…248b20 [0x285]: Pad {f00=0x00f7, f01=0x0190, f02=» t . P* I I P* +---------------------+ : P* I I P* I VOL NAME I ~ P* I I P* +---------------------+ P* I I P*
0x1926c0…248b20 [0x286]: Pad {f00=0x00f7, f01=0x018e, f02=»* CREATED IN TTAB/CD:TAB. P* $ F P* THE FDB IS INITIALIZED WITH INFORMATION FROM THE VTOC:S OF THE . $ P* VOLUMES MENTIONED IN ASBLK. x P* J P* UPON COMPLETION OF THE ASSIGN REQUEST REG A7 WILL HAVE ONE OF THE P* FOLLOWING RETU
0x1926c0…248b20 [0x287]: Pad {f00=0x00f7, f01=0x0190, f02=» x " P* 2 = NO FREE ENTRY IN TABLE P* 3 = NO FDB AVAILABLE . ( P* 4 = ONE OR MORE VOLUMES UNKNOWN N " P* 5 = FILE CODE ALREADY USED z P* 6 = FILE NAME UNKNOWN 0 P* 7 = FILE SECTION MISSING OR FOUND TWICE P* 8 = FAULTY DISC
0x1926c0…248b20 [0x288]: Pad {f00=0x00f8, f01=0x0190, f02=»K P* LKM P* DATA 16 P* 0 " P* INPUT A5 = TTAB ADDRESS : " P* A8 = ASBLK ADDRESS ` 0 P* WHERE ASBLK IS A PARAMETER BLOCK P* +----------+----------+ $ P* ASBLK I NO OF VOL FC I P* +--
0x1926c0…248b20 [0x289]: Pad {f00=0x00f8, f01=0x0190, f02=»---------------------+ P* I I P* I VOL NAME I @ P* I I b P* +---------------------+ $ P* I MASTER INDEX " P* I FILE NAME P* D P* UPON COM
0x1926c0…248b20 [0x28a]: Pad {f00=0x00f8, f01=0x0190, f02=»ORMED j P* -1 = REQUEST ERROR P* 1 = DISC I/O ERROR , " P* 2 = NO FREE ENTRY IN TABLE J 8 P* 3 = NO FDB AVAILABLE OR MASTER INDEX CORE AVAIL p ( P* 4 = ONE OR MORE VOLUMES UNKNOWN " P* 5 = FILE CODE ALREADY USED P* 6 = FILE
0x1926c0…248b20 [0x28b]: Pad {f00=0x00f8, f01=0x0190, f02=»S EXIST v " P* 10= NO DATA FILE ASSIGNED * P* 11= 4 INDEX FILES ALREADY ASSIGNED 6 $ P* 12= MAX KEY LENGTH TOO SMALL d 0 P* 13= REQUEST BUSY. REPEAT ASSIGN REQUEST P EJECT P* P*************** P* ENTRIES * P**
0x1926c0…248b20 [0x28c]: Pad {f00=0x00f8, f01=0x0190, f02=»TTA P ENTRY TASASB P ENTRY TASCVO " P ENTRY TASVOL 8 P ENTRY TASCXO N P ENTRY TASSEX d P ENTRY TASXLB z P ENTRY TASFDB P ENTRY TASVRL P ENTRY TASVLE P ENTRY TASVRN P ENTRY TASECB & P ENTRY TASFI
0x1926c0…248b20 [0x28d]: Pad {f00=0x00f8, f01=0x0190, f02=»HLT HALT SYSTEM DUE TO DM (SYSGEN) ERROR P EJECT 0 P* > P***************** H P* EXTERNALS * b P***************** | P* P EXTRN DFTAB P EXTRN DFTABE P EXTRN SCTCDT P EXTRN DWTVOL P EXTRN FNDTID
0x1926c0…248b20 [0x28e]: Pad {f00=0x00f8, f01=0x0190, f02=» TTB:TD,DMTASX P EXTRN ECBFC,ECBRC 0 P EXTRN MOV:US MOVE FROM USER TO SYSTEM AREA 0 $ P EXTRN HALT HALT SYSTEM ROUTINE d P EJECT TOSSIO P* P* . P***************************************** P* P* CONDITIONAL ASSEMBLY
0x1926c0…248b20 [0x28f]: Pad {f00=0x00f8, f01=0x018e, f02=»BTAINED BY SETTING MMUPAG EQU 1. P* ( PMMUPAG EQU 1 2 P* F P EJECT P P* ^ P******************* h P* DATA AREAS * P******************* P* PTASBLK DATA 0 USE INDICATOR $ PTASQUE DATA 0 ASSIGN QUEUE ANCOR
0x1926c0…248b20 [0x290]: Pad {f00=0x00f8, f01=0x018e, f02=» 0 PTASVOL DATA 0 VOLUME IDENTIFICATION (DMI,FC) " P DATA 0,0,0 THREE MORE ENTRIES 8 6 PTASCXO DATA 0 CURRENT OFFSET IN TASSEX AND TASXLB ^ 0 PTASSEX DATA 0 SECTION NUMBER, EXTENT NUMBER * P DATA 0 OFFSET IN TASVOL FOR THIS EXT ( P DATA 0,0,0,0,0,
0x1926c0…248b20 [0x291]: Pad {f00=0x00f8, f01=0x0190, f02=» PTASFDB DATA 0 FDB ADDRESS $ PTASVRL DATA 0 VTOC RECORD LENGTH & PTASVLE DATA 0 VTOC LENGTH N PTASVRN DATA 0 VTOC RECORD NO p PTASECB DATA 0,0 ECBFC,ECBBA P DATA 410 ECBRL P DATA 0,0,0 ECBEL,-RC,-CW P DATA 0 CW2 0 PTASF
0x1926c0…248b20 [0x292]: Pad {f00=0x00f8, f01=0x0190, f02=»TASSPW DATA 0 TTAB ADDRESS DMTASK $ PTASFDD DATA 0 FDB ADDR DATA FILE * ( PTASTBE DATA 0 TTAB/SCTCDT ENTRY ADDR R 2 PTASLFD DATA 0,0 LOCKED FLEXDISC FILE CODES =1 ~ P DATA 0,0 P DATA 0,0 " PTASS14 EQU *-2 TASS A14 STACK P* P I
0x1926c0…248b20 [0x293]: Pad {f00=0x00f8, f01=0x0190, f02=» * P************** P* , P* ENTRY TASCAQ CHECK ASSIGN QUEUE * P* Z P* A7= RETURN CODE d P* * P* SET OFF USE BIT IN TASBLK H P* IF TASQUE = 0 THEN RETURN ELSE QUEUE FIRST IN CHAIN AND 2 P*
0x1926c0…248b20 [0x294]: Pad {f00=0x00f8, f01=0x0190, f02=»QUE P RF(Z) TASCEX EMPTY QUEUE " P LDR* A1,A5 GET NEXT IN CHAIN . , P ST A1,TASQUE AND PUT IT FIRST IN QUEUE T P LDKL A1,-4 ( P ADS A1,TTB:SA,A5 UPD DISPATCH ADDR P CF A15,QTJOB NEXT ASSIGN P RF TASC05 & PTASCEX CM TASQUE A
0x1926c0…248b20 [0x295]: Pad {f00=0x00f8, f01=0x0190, f02=» CODE IN SAVED A7 r P RTN A14 P EJECT * 8 P****DESCRIPTION************************************* 8 P* t : P* VOLCHE WILL COMPARE EACH VOLUME NAME IN ASBLK WITH ~ & P* VOLUME NAMES IN DWT FOR DISCS P* 8 P****ENTRY PARAMETERS******
0x1926c0…248b20 [0x296]: Pad {f00=0x00f8, f01=0x0190, f02=»S WANTED. v : P* 1 LOCK WANTED. ONLY FROM DMTASS FOR FLEXDISC P* P 8 P****EXIT PARAMETERS********************************* Z P* P* A1 = 0 OK P* 1 VOLUME UNKNOWN P* A5 = TTAB ADDR P* 8 P****USED REGIS
0x1926c0…248b20 [0x297]: Pad {f00=0x00f8, f01=0x0190, f02=»************** h PVOLCHE EQU * P CM TASLFD =1 * $ P CM TASLFD+2 LOCKED FLEXDISCS =1 @ P SLL A2,1 h P SUK A2,2 z P ST A2,TASCVO INIT. TASCVO P LDR A4,A8 2 P ADK A4,10 POINTER TO FIRST VOL NAME IN ASBLK PTAS110 EQU * 2 P
0x1926c0…248b20 [0x298]: Pad {f00=0x00f9, f01=0x0190, f02=» ADDRESS IN CD:TAB AND COMPARE DWTVOL P* . P LD* A6,SCTCDT 8 PTAS130 SUK A6,4 N 2 P RF(N) TASHLT FC NOT FOUND? SHOULD NOT OCCUR. f P LD A5,SCTCDT P ADR A5,A6 P CC A1,1,A5 P RB(NE) TAS130 NOT THIS FC P LDR A11,A11
0x1926c0…248b20 [0x299]: Pad {f00=0x00f9, f01=0x0190, f02=» P* LOCK FLEXDISC P* P LDKL A8,TASECB ( " P ST A1,ECBFC,A8 FLEX FILE CODE @ P SUR A12,A12 f P LDK A7,/A6 LOCK,WAIT z P LKM P DATA 1 P LD A7,ECBRC,A8 P RF(Z) TAS131 P ANKL A7,/7FFF " P RF(NZ) TASF10 NOT
0x1926c0…248b20 [0x29a]: Pad {f00=0x00f9, f01=0x0190, f02=»NZ) TAS150 GRAVE ERR PTAS131 EQU * P ST A1,TASVOL,A2 SAVE FC 0 P P P AD A6,SCTCDT X P LDR* A5,A6 INDEX n $ P LDK A1,0 DISC NAME DISPLACEMENT P SRL A5,8 P RF(Z) TAS135 , P* DECIDE DISC DISPL FOR THIS FILE CODE $ P*
0x1926c0…248b20 [0x29b]: Pad {f00=0x00f9, f01=0x0190, f02=»AS132 PTAS135 EQU * P LD A6,2,A6 DWT ADDR " & P RF(Z) TASHLT NO DWT ADDRESS FOUND > & P ADR A6,A1 POINTER TO VOLUME NAME h P LDK A1,3 VOL NAMES 3 WORDS & P LDR A5,A4 POINTER ASBLK VOL NAME P* , P* CHECK VOLUME NAMES IN DWT AN
0x1926c0…248b20 [0x29c]: Pad {f00=0x00f9, f01=0x0190, f02=»2 P SUK A1,1 . P RB(P) TAS140 CHECK NEXT WORD IN VOL NAME P* N P* VOL NAME MATCH X P* STORE DMI , FC IN TASVOL r P* P LD A1,TASVOL,A2 P ANK A1,/0F P CWK A1,/8 $ P RF(L) TAS143 NOT FLEXIBLE DISC P LDK
0x1926c0…248b20 [0x29d]: Pad {f00=0x00f9, f01=0x0190, f02=» t P* 1 FOR DRIVE 2 " P* 2 FOR FLEXDISC , P* R P SC A1,TASVOL,A2 P* t 6 P* SAVE FILE CODES FOR NEWLY LOCKED FLEXDISCS =1 ~ 2 P* (ONLY SIGNIFICANT WHEN A11 = 1 ) =1 START P* P SUK A1,2 P
0x1926c0…248b20 [0x29e]: Pad {f00=0x00f9, f01=0x0190, f02=»,TASVOL+1,A2 FILE CODE P SC A3,TASLFD,A1 SAVE PTAS147 EQU * =1 END < P* X P* CHECK NEXT VOL IN ASBLK b P* P LDK A1,0 RET CODE P ADK A4,6 P SUK A2,2 ( P RB(NN) TAS110 MORE VOLUMES TO CHECK * P RF TAS155 OK AL
0x1926c0…248b20 [0x29f]: Pad {f00=0x00f9, f01=0x0190, f02=» P ANK A1,/F8 P SUK A1,/F8 P RF(NZ) TAS150 NO FLEXDISC , P LDR A12,A12 LFLAG N P RF(NZ) TAS150 LOCKED BEFORE h P* P* UNLOCK P* P LDK A7,/B8 UNLOAD,WAIT P LKM P DATA 1 P* & P* NO MATCH TRY N
0x1926c0…248b20 [0x2a0]: Pad {f00=0x00f9, f01=0x0190, f02=» LDK A1,1 PTAS155 EQU * P RTN A14 & P* 6 ( PTASHLT LDK A1,/11 INDICATE DM ERROR @ P CF A15,HALT HALT SYSTEM l P* P EJECT P* P************ P* TASS * P************ P* PIXTASS EQU * P I
0x1926c0…248b20 [0x2a1]: Pad {f00=0x00f9, f01=0x0190, f02=» A7,A8 GET FIRST WORD OF USER ASSIGN BLOCK $ P ANK A7,/FF SKIP LEFT CHARACTER 2 0 P ORKL A7,/8100 BIT 0+7 IND. ASSIGN ONE INDEX Z ( P ESR A7,A8 SET WORD IN ASSIGN BLOCK P XIF P*~ ( P LDK A7,0 ONLY GLOBAL ASSIGN ALLOWED P* PTASS
0x1926c0…248b20 [0x2a2]: Pad {f00=0x00f9, f01=0x0190, f02=»NOT COMPLETED t 4 P* AND IF SO QUEUE THIS REQUEST VIA THE TASQUE P* N P LD A1,TASBLK X & P RF(Z) TAS050 NO CONCURRENT ASSIGN n * P LDKL A1,TASQUE START OF ASSIGN QUEUE ( PTAS020 EQU * QUEUE AS FOR GETBUFFER P LDR A2,A1 P LDR*
0x1926c0…248b20 [0x2a3]: Pad {f00=0x00f9, f01=0x0190, f02=»QU * & P IM TASBLK INDICATE ASSIGN STARTED ! " P CM TASFDD FDB ADDR DATA FILE ! 6 P* ! 6 P ST A5,TASTTA SAVE TTAB ADDRESS OF REQUESTING TASK ! f P* ! P IFT MMUPAG=1 ! P* ! 2 P* MOVE USER ASSIGN BLOCK TO SYSTEM AREA MASBLK ! P* ! , P
0x1926c0…248b20 [0x2a4]: Pad {f00=0x00f9, f01=0x0190, f02=»BLOCK ADDRESS ! p , P LDK A3,34 ASSIGN BLOCK LENGTH IN BYTES " $ P CF A14,MOV:US MOVE ASSIGN BLOCK " F P XIF " n P* " z $ P ST A8,TASASB SAVE ASBLK ADDRESS " P* " P LDK A1,16 " : P ST A1,TASCXO INIT. TASCXO TO LAST ENTRY IN TASSEXXLB " P* "
0x1926c0…248b20 [0x2a5]: Pad {f00=0x00f9, f01=0x0190, f02=» " P LCR A2,A8 NO OF VOLUMES # . P ANK A2,/1F REMOVE INDEX BIT +DELAY+BASIC # ( P RF(Z) TAS090 NO VOL # Z P CWK A2,4 # v P RF(NG) TAS100 <=4 # PTAS090 RF TASSEM # P EJECT # P* # $ P* CHECK IF VOLUMES ARE ON LINE # P* # PTAS100
0x1926c0…248b20 [0x2a6]: Pad {f00=0x00f9, f01=0x0190, f02=»1,0 SET CR # $ P RF(Z) TAS160 ALL VOLUMES FOUND $ P* $ : , P* ALL VOL NOT FOUND. ACT FLEXDISCTASK $ D P* $ t P LD A1,TASCVO $ ~ P LDK A2,2 ID DMTASK FLEXDISC $ P SC A2,TASVOL,A1 SEE TAS195 $ P EJECT $ P* $ , P* CHECK IF FILE CODE
0x1926c0…248b20 [0x2a7]: Pad {f00=0x00f9, f01=0x0190, f02=»D $ j P LDR A10,A10 TC % P RF(Z) TAS165 GLOBAL ASSIGN % " P LD A2,TASTTA TTAB ADDR % F P LDR A4,A2 % f P LD A2,TTB:TD,A4 % x P ADKL A4,TTB:TD+1 % P RF TAS170 % PTAS165 EQU * % P LD A4,SCTCDT % P LDR* A2,A4 % P ADK A4,1 %
0x1926c0…248b20 [0x2a8]: Pad {f00=0x00f9, f01=0x0190, f02=»S170 NO MATCH % P* & P* FILE CODE USED & . P* OK WHEN REQ = ASS INDEX AND INDEX = 1 & : P* & l P LDR* A2,A8 ASBLK 1ST WORD & v P RF(NN) TASSE5 NORMAL ASSIGN & P LDK A2,1 & P CC A2,-1,A1 INDEX & * P RF(NE) TASSE5 FILE CODE ALREADY U
0x1926c0…248b20 [0x2a9]: Pad {f00=0x00f9, f01=0x0190, f02=»* & P* ' > P* FIND A FREE ENTRY IN TTAB/CD:TAB (FC AND DWTADR = 0 ) ' P* ' V PTAS180 EQU * ' ` P LDK A1,0 ' t P LDR A10,A10 TC ' P RF(Z) TAS185 GLOBAL ASSIGN ' P LD A2,TASTTA TTAB ADDR ' P LDR A4,A2 ' P LD A2,TTB:TD,A4 '
0x1926c0…248b20 [0x2aa]: Pad {f00=0x00f9, f01=0x0190, f02=»UK A2,4 ' ( P RF(L) TASSE2 NO FREE ENTRY IN TABLE ( P LDR A9,A4 ( < P ADR A9,A2 ( N P CCR A1,A9 FILE CODE ( ` " P RB(NE) TAS190 FC NOT EQUAL 0 ( | P CW A1,1,A9 ( & P RB(NE) TAS190 DWTADR NOT EQUAL 0 ( P LDR* A1,A8 ASBLK 1ST WORD ( P RF(N) T
0x1926c0…248b20 [0x2ab]: Pad {f00=0x00f9, f01=0x0190, f02=»Y ( f P ST A9,TASTBE SAVE ENTRY ) P* ) * 0 P* GET FIRST VOLUME AND ACTIVATE ITS DMTASK ) 4 P* ) h P LD A1,TASCVO ) r P LDK A7,0 ) P LC A7,TASVOL,A1 ) P ADKL A7,'#D' TID DMTASK ) P CF A15,FNDTID ) " P LDR A5,A2 TTAB ADDRESS DMTASK )
0x1926c0…248b20 [0x2ac]: Pad {f00=0x00f9, f01=0x0190, f02=»RY ) | P LDK A7,4 VOL UNKNOWN * P RF TASSEM * ( PTAS200 EQU * * : P LDK A2,2 * N 4 P ST A2,TASFIL MASTER INDEX LOOP IDENT IN DMTSAK * ` & P LDKL A2,DMTASS ASSIGN INDEX ENTRY * P LDR* A6,A8 * P RF(N) TAS210 INDEX ASSIGN * P CM TASFIL * P
0x1926c0…248b20 [0x2ad]: Pad {f00=0x00f9, f01=0x4182, f02=»F A15,ACTOT ACTIVATE DMTASK * P ABL TDISP GO TO DISPATCHER + $ P EJECT + H P* + V P* ERROR RETURNS + ` P* + z PTASSE5 ADK A7,1 + PTASSE4 ADK A7,1 + PTASSE3 ADK A7,1 + PTASSE2 ADK A7,1 + PTASSE1 ADK A7,1 + P ADK A7,1 +
0x1926c0…248b20 [0x2ae]: Pad {f00=0x00f9, f01=0x2008, f02=» ,
0x1926c0…248b20 [0x2af]: Pad {f00=0x00f9, f01=0x2008, f02=» + t P INH , P CF A15,TENDIO , P ENB , 2 P* , > P* EXIT , H P* , X P LKM , b P DATA 3 , n P* , ~ P END , @ , RD ADDR A2:=EA BIT + & P C1R A2,A2 ONE COMPLEMENT BIT MASK + P ANRS A2,A3 SET OFF EA BIT + P* + P
0x1926c0…248b20 [0x2b0]: Pad {f00=0x0104, f01=0x4068, f02=»EYCNV , ( j : @ R@ dCNV R TASCIIK t , ( ABCDEFGHI[.<(+!&JKLMNOPQR]$*);^ TEBCDI @ , ( ! -/STUVWXYZ|,%_>?0123456789:#@'=" , ( A
0x1926c0…248b20 [0x2b1]: Pad {f00=0x0104, f01=0x000c, f02=»
0x1926c0…248b20 [0x2b2]: Pad {f00=0x0104, f01=0x0190, f02=» 0 P IDENT TIODM REL 9.2 79-11-16 870105040920 P 8 P =1, PR 5649 @ P REL 9.1 79-05-23 V P* r 8 P**************************************************** | P* $ P* PHILIPS TERMINAL SYSTEM PTS P* 0 P* TIODM = DATA MANA
0x1926c0…248b20 [0x2b3]: Pad {f00=0x0104, f01=0x018e, f02=»******** d P* B P* THIS MODULE IS ENTERED IN THE SAME WAY AS A DRIVER VIA TIO . P* AND THE DWTADR IN FDB FOR CURRENT FILE ` P* H P* THE DM REQUEST IS PROCESSED HERE UP TO THE POINT WHERE A SECTOR $ P* FROM A DISC MUST BE ACCESSED
0x1926c0…248b20 [0x2b4]: Pad {f00=0x0104, f01=0x0190, f02=» P* A7 = ORDER P* A8 = ECB ADDRESS " P* F P* USED REGISTERS A1 - A10 P P* t D P* BEFORE EXIT A DMTASK IS ACTIVATED WITH THE FDB ADDRESS IN A1 ~ P* AS THE ONLY PARAMETER P* 4 P* THE FOLLOWING WORDS
0x1926c0…248b20 [0x2b5]: Pad {f00=0x0104, f01=0x0190, f02=» FOR CALLING TASK x . P* FDBCEX CURRENT EXTENT BLOCK POINTER P* L P* V D P* IF AN ERROR CONDITION IS DETECTED THE ERROR RETURN WILL BE: ` P* LDKL A1,/<RETURN CODE> P* ABL DISEND P* P* P EJECT P*
0x1926c0…248b20 [0x2b6]: Pad {f00=0x0104, f01=0x0190, f02=»DBLNK P ENTRY FDBECB P ENTRY FDBSNR $ P ENTRY FDBRRO : P ENTRY FDBRLE P P ENTRY FDBBLF f P ENTRY FDBTNR | P ENTRY FDBVTO P ENTRY FDBCEX P ENTRY FDBEXT P ENTRY EXTDMI P ENTRY EXTFC P ENTRY EXTLE
0x1926c0…248b20 [0x2b7]: Pad {f00=0x0104, f01=0x0190, f02=»NTRY FDBAI1,CRNTID,CRNCDF,CRNCIF P ENTRY FDBMRN,FDBDBR,FDBMRO ( & P ENTRY FDBMEC MMU ECB DISPLACEMENT L 6 P ENTRY FDBKEY SAVE AREA FOR KEY IN INDEXED ACCESS v P EJECT P* P***************** P* EXTERNALS * P**************
0x1926c0…248b20 [0x2b8]: Pad {f00=0x0104, f01=0x0190, f02=» P EXTRN DISEND EXTRN DWTECB ECB ADDRESS $ EXTRN DWTOR DWT INDEX AND ORDER < & P EXTRN DWTTDM DM TASK TTAB ADDRESS d P EXTRN TTB:ID TASK ID 0 P EXTRN MOV:US MOVE FROM USER TO SYSTEM AREA " P EXTRN DMTGCA GET CRN ADDRESS , P EXT
0x1926c0…248b20 [0x2b9]: Pad {f00=0x0104, f01=0x0190, f02=» ECBRL P EXTRN ECBEL P EXTRN ECBRC " P EXTRN ECBCW 6 & P EXTRN ECBCW2 SECOND CONTROL WORD J P EXTRN FDBLEN t " P EXTRN SQR SEQ READ ORDER CODE & P EXTRN EARELB,DWTST,CRNGET,EATEST & P EXTRN TASHLT HALT SYSTEM ROUTINE P EJECT
0x1926c0…248b20 [0x2ba]: Pad {f00=0x0104, f01=0x0190, f02=»* A VERSION CONTAINING INDEXED REQUEST ORDERS IS OBTAINED P* BY SETTING INDXAC EQU 1 D * P* INDXAC EQU 0 OTHRERWISE h PX:A EQU 0 PINDXAC EQU 00000 P* . P* A PROGRAM VERSION USING TOSS MMU PAGING * P* IS OBTAINED
0x1926c0…248b20 [0x2bb]: Pad {f00=0x0104, f01=0x0190, f02=»TA DEFINITIONS * P************************ P* : P* D P DATA 0,0 4 WORDS N P DATA 0,0 h " PTIOD14 EQU *-2 TIODM A14 STACK z P* P* & PTIODMF EQU * TIODM FUNCTION TABLE P DATA CLOSE CLOSE " P DATA REVTOC READ
0x1926c0…248b20 [0x2bc]: Pad {f00=0x0104, f01=0x0190, f02=»DELETE | P DATA IXREWR INDEXED REWRITE $ P DATA IXRARE INDEXED RANDOM READ 2 P XIF Z P IFF INDXAC=1 f P DATA TIODME | P DATA TIODME P DATA TIODME P DATA TIODME P DATA TIODME P XIF P DATA RANDEL RANDOM DELETE
0x1926c0…248b20 [0x2bd]: Pad {f00=0x0104, f01=0x0190, f02=» SEQUENTIAL WRITE " P DATA SEQREAD SEQUENTIAL READ P DATA GETCUR GET CURRENCY @ P IFT INDXAC=1 b $ P DATA INSIXR INSERT INDEX RECORD x $ P DATA DELIXR DELETE INDEX RECORD P XIF P IFF INDXAC=1 P DATA TIODME P DATA TIODME
0x1926c0…248b20 [0x2be]: Pad {f00=0x0104, f01=0x0190, f02=»LETE r $ P DATA RANREB RAND READ REL BUFF P DATA SETLRN SET LRN 4 P* P P* Z PTIODMO EQU * DM ORDERS d $ P DATA /221E CLOSE,IND READ NEXT & P DATA /1D1C IND INSERT,IND DELETE . P DATA /1B1A INDEXED REWRITE,IND RAND READ $ P DAT
0x1926c0…248b20 [0x2bf]: Pad {f00=0x0104, f01=0x0190, f02=»SEQ WR. , BASIC WRITE $ P DATA /0302 READ VTOC, SEQ READ ( P DATA /0123 BASIC READ,GET CURRENCY F * P DATA /1F20 INS INDEXREC,DEL INDEXREC r . P DATA /240D GET CURR INDEX,DELAYED RAND WR 0 P DATA /0E0F DELAY RAN DEL,RAN READ REL BUFF P DAT
0x1926c0…248b20 [0x2c0]: Pad {f00=0x0104, f01=0x0190, f02=»ATA /0E10 P DATA /1214 P DATA /1616 & P DATA /1616 : P DATA /0218 N P DATA /181A b P DATA /1C1E v P DATA /2022 P DATA /2426 P DATA /281A SET LRN P* $ PNOOFOR EQU 25 NO OF ORDER CODES P* P
0x1926c0…248b20 [0x2c1]: Pad {f00=0x0104, f01=0x0190, f02=»RD P XIF P* P IFT MMUPAG=1 PSTART EQU DWTDRD+4 6 P XIF P P* P* f P* FDB OFFSET DEFINITIONS p P* " PFDBLNK EQU 0 LINK TO NEXT FDB PFDBECB EQU START+2 ECB START & PFDBSNR EQU START+16 SECTOR NUMBER
0x1926c0…248b20 [0x2c2]: Pad {f00=0x0104, f01=0x0190, f02=» l 0 PFDBTNR EQU START+23 TASK NUMBER CALLING TASK & PFDBVTO EQU START+24 VTOC RECORD NO < 4 PFDBCEX EQU START+26 CURRENT EXTENT BLOCK POINTER f 0 PFDBEXT EQU START+28 FIRST EXTENT BLOCK START PEXTDMI EQU 0 DMTAST IDENT PEXTFC EQU 1 VOLUME FIL
0x1926c0…248b20 [0x2c3]: Pad {f00=0x0104, f01=0x0190, f02=»+53 LAST RECORD NUMBER * PFDBNIF EQU START+52 NO OF INDEX FILES $ PFDBEAL EQU START+56 EA LINK ROOT L & PFDBCRL EQU START+58 CRN LINK ROOT t 0 PFDBKA EQU START+60 KEY ADDRESS IN DATA FILE 0 PFDBMIA EQU START+62 ADDRESS OF MASTER INDEX 0 PFDBA
0x1926c0…248b20 [0x2c4]: Pad {f00=0x0104, f01=0x0190, f02=»AND REL BUFFER FLAGS p , PFDBMRN EQU START+75 LAST REC NR IN FILE " PFDBMRO EQU START+78 MAX FDBRRO L , PFDBMEC EQU START+80 MMU ECB DISPLACEMENT r < PFDBKEY EQU START+94 SAVE AREA FOR KEY IN INDEXED ACCESS P* & P* CRN BUFFER OFFSET DEFINITI
0x1926c0…248b20 [0x2c5]: Pad {f00=0x0104, f01=0x0190, f02=» P EJECT P* P************* P* TIODM * 2 P************* H P* ^ P* h ( P DATA 0 DATA MANAGEMENT DEVICE INDEX r & PTIODM DATA *+2 TIODM START ADDRESS P* P* SET UP A14 STACK P* P LDKL A14,TIOD14
0x1926c0…248b20 [0x2c6]: Pad {f00=0x0104, f01=0x018e, f02=» A1,A2 P LD A3,2,A1 P CW A3,DWTTDM,A6 " P RF(E) TIOD10 THIS TASK : P ADK A2,2 NO Z P RB TIOD05 TRY NEXT n PTIOD10 EQU * P LC A1,TTB:ID,A3 GET TASK ID P CCK A1,'##' ( P RF(E) TIO13 JUMP IF DMTASK CALLING P*
0x1926c0…248b20 [0x2c7]: Pad {f00=0x0104, f01=0x0190, f02=» P LDKL A4,/4000 REQ BUSY BIT PTIO11 EQU * ( P SUK A3,2 < P RF(N) TIO13 ALL FDB READY N P LDR* A5,A1 FDB ADDR p P RF(E) TIO12 NO FDB P SC A2,FDBTNR,A5 TASK ID " P ORS A4,DWTST,A5 REQ BUSY BIT PTIO12 EQU * P ADK A1,
0x1926c0…248b20 [0x2c8]: Pad {f00=0x0104, f01=0x0190, f02=»R IN A7 , P* PUT ORDER INDEX IN DWTOR RIGHT BYTE P* @ P LDKL A1,/8000 REQUEST ERROR J & P LDK A2,NOOFOR-1 NO OF ORDERS - 1 n 2 PTIOD15 CC A7,TIODMO,A2 START AT END OF TIODMO P RF(E) TIOD20 MATCH P SUK A2,1 P RB(NN) TIOD15
0x1926c0…248b20 [0x2c9]: Pad {f00=0x0104, f01=0x0190, f02=»BI TIODMF,A2 BRANCH TO DM FUNCTION P EJECT * P* 8 $ PIXRARE EQU * INDEXED RANDOM READ B P LD A3,ECBCW2,A8 =1 j P ANK A3,/FF REQ KEY LGTH =1 P LD A4,FDBRLE,A6 =1 P SUK A4,6 MAX LGTH =1 P CWR A3,A4 =1 P RF(NG) IXRAR1 O
0x1926c0…248b20 [0x2ca]: Pad {f00=0x0104, f01=0x0190, f02=»GET USER KEY ADDRESS 0 P LDK A2,FDBKEY GET FDB KEY AREA DISPLACEMENT P ADR A2,A6 ADD FDB ADDRESS P P* =1 r 2 P CF A14,MOV:US MOVE KEY FROM USER TO FDB AREA P XIF P* $ PDELIXR EQU * DELETE INDEX RECORD P* $ PINSIXR EQU
0x1926c0…248b20 [0x2cb]: Pad {f00=0x0104, f01=0x018e, f02=»U * CLOSE A FILE P LDK A4,0 PTIOC10 EQU * * $ P ST A4,FDBRRO,A6 MARK ORDER TYPE > P LDK A2,0 f , P ST A2,FDBSNR,A6 SECTOR #0 VOLUME LABLE x P* ( P* LET FDBCEX POINT TO FIRST EXTENT P* P LDR A4,A6 P ADK A4,FDBEXT
0x1926c0…248b20 [0x2cc]: Pad {f00=0x0104, f01=0x0190, f02=» P LDR A1,A6 FDB ADDR 0 P LDKL A2,/C000 REMOVE BUFFERS FOR THIS TASK P CF A14,EARELB T PREL090 EQU * j P LDK A1,0 CORRECT RETURN ~ P ABL TIODME P EJECT ( PSETLRN EQU * SET LAST RECORD NUMBER P LC A1,ECBCW+3,A8 P SC
0x1926c0…248b20 [0x2cd]: Pad {f00=0x0104, f01=0x0190, f02=»DATA REC p P RF GET010 . PGETCUX LDK A7,CRNCIF+1 GET CURR INDEX REC " PGET010 LDR A1,A6 FDB ADDR T " P CF A14,CRNGET GET CRN BUFFER v P ADR A7,A2 ADDR CURR REC NO P LDK A2,0 P LC A3,-1,A7 FILE CODE P CC A3,ECBFC,A8 P R
0x1926c0…248b20 [0x2ce]: Pad {f00=0x0104, f01=0x0190, f02=»REC NO ~ P LD A2,1,A7 PGET030 EQU * " P ST A2,ECBCW,A8 6 P RB REL090 N P EJECT ` " PSEQREAD EQU * SEQUENTIAL READ n P* $ P* FIND CRN+1 AND TEST IF > LRN P* P LDR A1,A6 FDB ADDR " P CF A14,CRNGET GET CRN-BUFFER
0x1926c0…248b20 [0x2cf]: Pad {f00=0x0104, f01=0x018e, f02=»ERFLOW P RF SEQR20 PSEQR10 EQU * " P ANKL A2,/7FFF REMOVE OVERFLOW 4 P ADK A1,1 ADD CARRY Z PSEQR20 EQU * v P SC A1,ECBCW+3,A8 REC NO P ST A2,ECBCW,A8 P* $ P* CONTINUE AS FOR RANDOM READ P* P EJECT
0x1926c0…248b20 [0x2d0]: Pad {f00=0x0105, f01=0x0190, f02=» P LDK A2,0 P LC A2,ECBCW+3,A8 REC NO P LD A3,ECBCW,A8 6 P LDK A1,/8 INCORRECT LENGTH N P LD A4,ECBRL,A8 r * P RF(NP) TIODME ERROR RETURN IF RL <= 0 P* * P* EA MUST NOT BE SET FOR OTHER TASK P* P LDR A1,A6 FDB A
0x1926c0…248b20 [0x2d1]: Pad {f00=0x0105, f01=0x018e, f02=»EQU * INDEXED INSRERT P IFT MMUPAG=1 P* 4 " P* MOVE KEYS TO FDB KEY AREAS > P* d P LDK A5,8 n PIXINS3 EQU * P LDR A2,A6 FDB DATA P ADR A2,A5 P LD A3,FDBADF,A2 FDB INDEX P RF(Z) IXINS4 NO INDEX P LD A1,F
0x1926c0…248b20 [0x2d2]: Pad {f00=0x0105, f01=0x0190, f02=» P LD A3,FDBRLE,A3 REC LGTH P SUK A3,6 KEY LGTH & " P CF A14,MOV:US KEY TO FDB AREA @ PIXINS4 EQU * f P SUK A5,2 z P RB(NZ) IXINS3 MORE INDEXS P XIF P* $ PSEQWRITE EQU * SEQUENTIAL WRITE P* 2 P* GET LRN+1 INTO F
0x1926c0…248b20 [0x2d3]: Pad {f00=0x0105, f01=0x0190, f02=» x P LDK A1,0 ! P LC A1,FDBMRN,A6 LAST REC NR ! P LD A2,FDBMRN+1,A6 ! > P LDK A6,0 ! X P LC A6,FDBLRN,A5 ! j P LD A7,FDBLRN+1,A5 LRN ! P CF A14,DSUMOD SUBTRACT ! P SUK A2,1 ! P LDR A1,A1 ! P RF(Z) SEQ005 NOT MANY ! P LDKL A2
0x1926c0…248b20 [0x2d4]: Pad {f00=0x0105, f01=0x0190, f02=»,FDBLRN+1,A6 LRN ! P IFT INDXAC=1 " P RF IXR020 STORE LOG REC NO " . P EJECT " R $ PIXRDNX EQU * INDEXED EREAD NEXT " ` P* " P* GET CRN " P* " P LD A1,FDBADF,A6 FDB ADDR " " P CF A14,CRNGET GET CRN BUFFER " P LDR A4,A2 BUFFADR
0x1926c0…248b20 [0x2d5]: Pad {f00=0x0105, f01=0x0190, f02=»C A5,CRNCIF,A4 " . P RF(NE) IXR020 OTHER INDEX FILE IS CURRENT # P LC A1,CRNCIF+1,A4 # H " P LD A2,CRNCIF+2,A4 LOG REC NO # b PIXR020 EQU * # P XIF # P ADK A2,1 # P RF(O) IXR030 OVERFLOW # P RF IXR040 # , PIXR030 ANKL A2,/7FFF REMOVE OVER
0x1926c0…248b20 [0x2d6]: Pad {f00=0x0105, f01=0x0190, f02=»NOT CHECK EOF CONDITION # P EJECT $ P* $ . PIXREWR EQU * INDEXED REWRITE $ 8 P* $ PIXDEL EQU * INDEXED DELETE $ f P* $ PRANWRITE EQU * RANDOM WRITE $ P* $ & PRANWRD EQU * DELAYED RANDOM WRITE $ P* $ & PRANDLD EQU * DELAYED R
0x1926c0…248b20 [0x2d7]: Pad {f00=0x0105, f01=0x018e, f02=» $ P************************* % P* DMTASK ACTIVATION * % * P************************* % L P* % n PTIODMA EQU * % x P* % P* SET EOF IF CRN > LRN % P* % P LDK A1,0 % P LC A1,ECBCW+3,A8 REC NO % P LD A2,ECBCW,A8 DITTO %
0x1926c0…248b20 [0x2d8]: Pad {f00=0x0105, f01=0x0190, f02=» % t P RF(NG) TIOD25 CRN <= LRN & PTIOD23 EQU * & * P LDKL A3,/1000 END OF FILE & > P ORS A3,ECBRC,A8 & ` P ANK A7,/3F & x P SUKL A7,SQR SEQ READ & P RF(NE) TIOD25 NOT SR & P LDR A1,A3 & P RF TIODME & PTIOD25 EQU * & 6 P CF A14,CA
0x1926c0…248b20 [0x2d9]: Pad {f00=0x0105, f01=0x0190, f02=»TE DMTASK WITH FDB ADDRESS IN A1 & P* ' ( PTIOD68 EQU * ' 2 P ENB ' F P ENB ' R P INH ' ^ P LDR A1,A6 FDB ADDRESS ' j P LDK A7,0 ' $ P LC A7,EXTDMI,A4 TID FOR DMTASK ' P ADKL A7,'#D' ' P CF A15,FNDTID A2:=TTAB ADDR ' P LDR A5,A2 '
0x1926c0…248b20 [0x2da]: Pad {f00=0x0105, f01=0x0190, f02=»TE DMTASK ' | P* ( P* EXIT TO TDISP ( P* ( 6 P ABL TDISP ( @ P* ( R P EJECT ( P* ( j P************** ( t P* TIODME * ( P************** ( P* ( J P* TIODM ERROR CALL TENDIO WITH RETURN CODE IN A1 AND GOTO DISPATCHER (
0x1926c0…248b20 [0x2db]: Pad {f00=0x0105, f01=0x4056, f02=»RESS ( , P ABL DISEND CALL TENDIO GOTO DISPATCHER ) P* ) < P END ) F@ ) R R P EJECT ( P* ( j P************** ( t P* TIODME * ( P************** ( P* ( J P* TIODM ERROR CALL TENDIO WITH RETURN CODE IN A1 AND GOTO DISPATCHER (
0x1926c0…248b20 [0x2dc]: Pad {f00=0x0105, f01=0x2008, f02=» *
0x1926c0…248b20 [0x2dd]: Pad {f00=0x0105, f01=0x0190, f02=»TIMER P CM DCTPP PHPT10 RTN A5 P EJECT 4 P IFT CODE=1 B P* V P* ` P* CALCULATION OF CRC j P* P* A2 = CHARACTER P* A7 = ACCUMULATED CRC P* P* PCRCCAL EQU * P ST A1,CRCSAV P ST A2
0x1926c0…248b20 [0x2de]: Pad {f00=0x0105, f01=0x0190, f02=» P ANK A3,1 P RF(Z) CRC110 P XRKL A7,/A001 , PCRC110 SUK A1,1 B P RB(NZ) CRC100 Z P LD A1,CRCSAV p P LD A2,CRCSAV+2 P LD A3,CRCSAV+4 P RTN A5 PCRCSAV RES 3 P EJECT P* P* ( P* READ CRC CHA
0x1926c0…248b20 [0x2df]: Pad {f00=0x0105, f01=0x0190, f02=» NOT SKIP SYNCS NOW P CF A5,READ READ BYTE 1 P LD A8,CRCSAV+2 SAVE IT < P CF A5,READ READ BYTE 2 ( P CM SYNSW SYNCS CAN BE SKIPPED AGAIN | P LD A2,CRCSAV+2 SAVE IT P SLL A2,8 P XRR A2,A8 P ADK A5,4 . P CWR A2,A6 C
0x1926c0…248b20 [0x2e0]: Pad {f00=0x0085, f01=0x0190, f02=» P LDK A2,0 P LC A2,ECBCW+3,A8 REC NO P LD A3,ECBCW,A8 6 P LDK A1,/8 INCORRECT LENGTH N P LD A4,ECBRL,A8 r * P RF(NP) TIODME ERROR RETURN IF RL <= 0 P* * P* EA MUST NOT BE SET FOR OTHER TASK P* P LDR A1,A6 FDB A
0x1926c0…248b20 [0x2e1]: Pad {f00=0x0085, f01=0x0026, f02=» ! ! ! ! !
0x1926c0…248b20 [0x2e2]: Pad {f00=0x0085, f01=0x0190, f02=» 2 P IDENT DMTASK REL 9.2 79-11-16 870105040920 P : P =5, PR5649 B P REL 9.1 79-11-01 X P =4,CURRENCY INSERT t P REL 9.1 79-07-02 P =3,TEST KEY P REL 9.1 79-07-02 P =2,CH REQ P REL 8.2 P =
0x1926c0…248b20 [0x2e3]: Pad {f00=0x0085, f01=0x0190, f02=»M PTS v P* 0 P* DMTASK = HANDLES DATAMANAGEMENT DISC I/O P* L P* V P* ` P* j P* t 8 P**************************************************** ~ P* , P* THIS MODULE IS ACTIVATED FROM TIODM. P* P* INPUT PA
0x1926c0…248b20 [0x2e4]: Pad {f00=0x0085, f01=0x0190, f02=» TO BE ACCESSED IS DEFINED IN FDB (FDBDMI, -FC, -SNR). : P* ALL BUFFERS ARE CHECKED TO FIND OUT IF THIS SECTOR > F P* IS ALREADY PRESENT IN A BUFFER. IF SO THE BUFFER STATUS IS SET | D P* TO USED AND ACTIONS ACCORDING TO THE ORDER ARE TAKEN. IF NOT
0x1926c0…248b20 [0x2e5]: Pad {f00=0x0085, f01=0x0190, f02=»N AND ARE V ( P* FOLLOWED BY AN EXIT LKM REQUEST. : P* INDEX FILES ARE HANDLED IN SUBROUTINE RDNXTR WHERE > & P* ALL I/O ARE MADE IN WAIT MODE | P* D P* BY MEANS OF CONDITIONAL ASSEMBLY THE EXCLUSIVE ACCESS CHECK 6 P* FOR INDEXED DE
0x1926c0…248b20 [0x2e6]: Pad {f00=0x0085, f01=0x018e, f02=»SIVE ACCESS CHECK INCLUDED | 2 P* QNOEXA=0 EXCLUSIVE ACCESS CHECK EXCLUDED " P EJECT X P* f P*************** p P* ENTRIES * P*************** P* P* P ENTRY DMTASK & P ENTRY SQR EXTERNAL CODE SEQ READ
0x1926c0…248b20 [0x2e7]: Pad {f00=0x0085, f01=0x0190, f02=» | P***************** P* " P* , P EXTRN SCTTCT,SCTCDT 6 & P EXTRN TTB:ID TASK IDENTIFICATION R P EXTRN TTB:TD,FDBSTA | P EXTRN FNDTID P EXTRN TENDIO P EXTRN FDBECB P EXTRN FDBSNR P EXTRN FDBRRO P EXT
0x1926c0…248b20 [0x2e8]: Pad {f00=0x00fc, f01=0x0190, f02=» EXTDMI P EXTRN EXTFC P EXTRN EXTLEN $ P EXTRN EXTBAS : P EXTRN EXTELE P P EXTRN FDBLRN f P EXTRN FDBMIA | P EXTRN FDBEAL P EXTRN FDBADF P EXTRN FDBAI1 P EXTRN FDBCRL P EXTRN FDBDBR,FDBMRN,FDBMRO
0x1926c0…248b20 [0x2e9]: Pad {f00=0x00fc, f01=0x0190, f02=»BUF P EXTRN BUFLNK P EXTRN BUFDMI " P EXTRN BUFFC 8 P EXTRN BUFSNR L P EXTRN BUFOR b P EXTRN BUFSTA v P EXTRN CURBUF P EXTRN DWTECB P EXTRN DWTUEC P EXTRN DWTOR P EXTRN DWTST,DWTTDM,DWTTQ P EXTRN
0x1926c0…248b20 [0x2ea]: Pad {f00=0x00fc, f01=0x0190, f02=»DIVMOD P EXTRN MPYMOD,CHKKEY P EXTRN CALSNO * P EXTRN DSUMOD @ . P EXTRN EATEST,EASETB,CRNGET,EARELB,GTBKBU V P EXTRN QTJOB,GTLGRN P EXTRN FNDKEY P EXTRN CRNCIF,CRNCDF,CRNQUE P EXTRN MXIND P EXTRN FDBKA,FDBNIF,RDNX
0x1926c0…248b20 [0x2eb]: Pad {f00=0x00fc, f01=0x0190, f02=»VE FROM USER TO SYSTEM AREA 0 P EXTRN MOV:SU MOVE FROM SYSTEM TO USER AREA $ P EXTRN MONMMU X , P EXTRN PRUN TTAB ADDRESS OF RUNNING TASK n P EXTRN TTB:MT MMU TABLE ( P EXTRN SCTPLD PROGRAM LOADING DEVICE P EJECT P* P*
0x1926c0…248b20 [0x2ec]: Pad {f00=0x00fc, f01=0x0190, f02=»LUSIVE ACCESS BIT CAN BE EXCLUDED AT 8 P* RANDOM WRITE AND RANDOM DELETE BY SETTING X:A=0. , P* h P* r PX:A EQU 1 | PX:B EQU 0 PX:C EQU 0 PX:D EQU 1 PX:E EQU 0 P* PQNOEXA EQU 00001 6 P* INDEXED ACCEXS
0x1926c0…248b20 [0x2ed]: Pad {f00=0x00fc, f01=0x018e, f02=»TED b PINDXAC EQU 00000 6 PRECBFZ EQU 00004 INDEX RECORD BUFFER SIZE IN WORDS $ 4 PFLXDSC EQU X:D FLEXIBLE DISC INCLUDED WHEN EQU 1 ^ 0 PINSLAS EQU X:E INSERT SAME KEY LAST WHEN = 1 P* P EJECT DMTASK P* P* . P* A PROGRA
0x1926c0…248b20 [0x2ee]: Pad {f00=0x00fc, f01=0x0190, f02=» . ** A PROGRAM VERSION USING TOSS DISC PAGING * &* IS OBTAINED BY SETTING DSKPAG EQU 1. 6 * d DSKPAG EQU 0 n * P* 6 P* A PROGRAM VERSION INCLUDING TOSS SWAPPABLE WORK 2 P* BLOCKS IS OBTAINED BY SETTING SWPBLK EQU 1. P*
0x1926c0…248b20 [0x2ef]: Pad {f00=0x00fc, f01=0x0190, f02=»************** P* P* , PEABIT EQU /20 EA-BIT IN DWT STATUS BYTE * P* Z & PVTOBLK EQU 9 VTOC BLOCKING FACTOR d P* : P* THE FOLLOWING INTERNAL ORDER CODES IS THE RELATIVE & P* POSITION IN TIODM-TABLE TIODMF P* P
0x1926c0…248b20 [0x2f0]: Pad {f00=0x00fc, f01=0x0190, f02=»XAC=1 " P DATA DMIRN INDEXED READ NEXT PQINS EQU 6 4 P DATA DMINS INDEXED INSERT F PQDEL EQU 8 h P DATA DMDEL INDEXED DELETE z PQIRW EQU 10 P DATA DMIRW INDEXED REWRITE $ P DATA DMIRR INDEXED RANDOM RESAD P XIF PQI
0x1926c0…248b20 [0x2f1]: Pad {f00=0x00fc, f01=0x0190, f02=»DOM DELETE PQRW EQU 16 P DATA DMRDWR RANDOM WRITE $ PQRR EQU 18 F P DATA DMRDRE RANDOM READ X PQREA EQU 20 x * P DATA DMTERR RELEASE EXCLUSIVE ACCESS PQSW EQU 22 " P DATA DMSQWR SEQUENTIAL WRITE * PSQR EQU 2 EXTERNAL ORDER
0x1926c0…248b20 [0x2f2]: Pad {f00=0x00fc, f01=0x0190, f02=» INDXAC=1 PQINIX EQU 28 P DATA DMINIX INSERT INDEX & PQDELX EQU 30 H P DATA DMDELX DELETE INDEX P XIF ~ P IFF INDXAC=1 P DATA DMTERR,DMTERR P XIF PQGCURX EQU 32 " P DATA DMTERR GET CURRENT INDEX PQRWD E
0x1926c0…248b20 [0x2f3]: Pad {f00=0x00fc, f01=0x0190, f02=» $ P DATA DMRRRB RAND READ REL BUFF P* , $ PVTOCRL DATA 0 VTOC RECORD LENGTH 6 P EJECT ^ P* l P************** v P* DMTFRL * P************** P* , P* ENTRY DMTFRL FIND RECORD LENGTH P* 4 P* INPUT A1
0x1926c0…248b20 [0x2f4]: Pad {f00=0x00fc, f01=0x0190, f02=»OUTPUT A2 = RECORD LENGTH TO BE USED < P* A1 IS ORED INTO ECBRC IF ECBRL < REC LENGTH . & P* A2 IS STORED IN ECBEL n P* PDMTFRL EQU * P LD A2,ECBRL,A9 P CW A2,FDBRLE,A6 $ P RF(E) DMTF20 ECBRL = REC LENGTH
0x1926c0…248b20 [0x2f5]: Pad {f00=0x00fc, f01=0x0190, f02=»ETURN CODE t . PDMTF20 ST A2,ECBEL,A9 SET EFFECTIVE LENGTH P RTN A14 D P EJECT T P* b P************ l P* DMTWM * P************ P* " P* ENTRY DMTWM WORD MOVE P* " P* INPUT A1 = FROM ADDRESS , P*
0x1926c0…248b20 [0x2f6]: Pad {f00=0x00fc, f01=0x0190, f02=» P* PDMTWM EQU * P SUK A2,2 & " P RF(N) DMTW10 LAST WORD MOVED 8 P LDR* A4,A1 ^ P STR A4,A3 r P ADK A1,2 P ADK A3,2 P RB DMTWM PDMTW10 ANK A2,/01 P RF(E) DMTW20 P LCR A4,A1 MOVE LAST CHAR
0x1926c0…248b20 [0x2f7]: Pad {f00=0x00fc, f01=0x0190, f02=» " P* ENTRY DMTBM BYTE MOVE P* . " P* INPUT A1 = FROM ADDRESS 8 , P* A2 = NO OF BYTES TO BE MOVED ^ P* A3 = TO ADDRESS P* $ P* A4 WILL BE DESTROYED P* P* OUTPUT A3 = NEXT CHAR
0x1926c0…248b20 [0x2f8]: Pad {f00=0x00fd, f01=0x0190, f02=» P ADK A1,1 P ADK A3,1 P RB DMTBM ( PDMTB10 RTN A14 : P* P 2 P* DMTBMR HAS THE SAME FUNCTION AS DMTBM BUT Z P* MOVES FROM THE END P* PDMTBMR ADR A1,A2 P ADR A3,A2 PDMTB20 SUK A2,1 P RB(N) DMTB10
0x1926c0…248b20 [0x2f9]: Pad {f00=0x00fd, f01=0x0190, f02=»**************************** x P* $ : P* FNDFDB WILL SEARCH TTAB AND SCTCDT FOR A FILE CODE . P* l 8 P****ENTRY PARAMETERS******************************** v P* P* A1 = TTAB ADDR $ P* A2 = FILE CODE TO SEARCH FOR 4 P* A5 NOT=
0x1926c0…248b20 [0x2fa]: Pad {f00=0x00fd, f01=0x0190, f02=»NCHANGED 2 P* A2 = FILE CODE. = 0 WHEN NO CODE IS FOUND 6 P* A4 = TTAB/SCTCDT ENTRY ADDR WHEN CODE IS FOUND F 2 P* A5 = 0 WHEN FOUND IN SCTCDT = 1 WHEN TTAB P* 8 P****USED REGISTERS********************************** P* P*
0x1926c0…248b20 [0x2fb]: Pad {f00=0x00fd, f01=0x0190, f02=»* PFNDFDB EQU * & P LD A3,TTB:TD,A1 LENGTH DEV DESCR PFND030 EQU * H P SUK A3,4 ( P RF(NP) FND040 FILE CODE NOT IN TTAB n P LDR A4,A1 P ADKL A4,TTB:TD =1 P ADR A4,A3 P CWR* A2,A4 =1 P RB(NE) FND030 P*
0x1926c0…248b20 [0x2fc]: Pad {f00=0x00fd, f01=0x0190, f02=» EQU * P LDR A5,A5 ( P RF(NZ) FND060 ONLY TTAB IS SEACHED P LD* A4,SCTCDT L PFND050 EQU * b P SUK A4,4 v ( P RF(NP) FND060 CODE NOT FOUND AT ALL P LD A3,SCTCDT P ADR A3,A4 P CWR* A2,A3 =1 P RB(NE) FND050 P
0x1926c0…248b20 [0x2fd]: Pad {f00=0x00fd, f01=0x0190, f02=» EJECT P* P************** P* DMTREM * . P************** D P* Z D P* ENTRY DMTREM MOVE RECORD FROM BUFFER TO USER RECORD AREA d P* 0 P* INPUT RELATIVE REC OFFSET IN FDBRRO,A6 $ P* BUFFER ADDRESS IN A5
0x1926c0…248b20 [0x2fe]: Pad {f00=0x00fd, f01=0x0190, f02=»HE RECORD > P* IF (FROM) AND (TO) ADDRESSES BOTH EVEN THEN WORD MOVE B P* IF (FROM AND (TO) ADDRESSES BOTH ODD THEN MOVE FIRST BYTE T > P* WITH BYTE INSTRUCTIONS AND THE REST WITH WORD MOVE : P* ELSE USE BYTE MOVE INSTRUCTIONS FOR THE WH
0x1926c0…248b20 [0x2ff]: Pad {f00=0x00fd, f01=0x0190, f02=» LDR A4,A1 P LD A3,ECBBA,A9 TO ADDRESS P XRR A4,A3 4 P ANK A4,/01 F ( P RF(Z) DMT210 BOTH ODD OR BOTH EVEN Z & P CF A14,DMTBM ONE ODD AND ONE EVEN P RF DMT225 P* PDMT210 LDR A4,A1 P ANK A4,/01 P RF(E) DMT220 BOTH
0x1926c0…248b20 [0x300]: Pad {f00=0x00fd, f01=0x0190, f02=»RD MOVE z PDMT225 EQU * P XIF $ P* 0 P IFT MMUPAG=1 : & P LD A4,DWTTDM,A6 GET TTAB ADDRESS P $ P LC A3,TTB:ID,A4 ID CALLING TASK z P CCK A3,'##' P RF(NE) DMTREN NOT DMTASK P LDK A3,QRR P CC A3,DWTOR+1,A6 " P RF(
0x1926c0…248b20 [0x301]: Pad {f00=0x00fd, f01=0x0190, f02=»SER TTAB ~ PDMTREN EQU * P INH $ $ P TL TTB:MT,A4 LOAD MMU REGISTERS 0 PDMTREP EQU * X $ P LD A4,PRUN GET DM TTAB ADDRESS l 0 P TS TTB:MT,A4 STORE USER MMU IN DM MMU TABLE P ENB P LDR A3,A2 GET LENGTH 0 P LD A2,ECBBA,A9 GET RECE
0x1926c0…248b20 [0x302]: Pad {f00=0x00fd, f01=0x018e, f02=»PAG=1 PDMTREQ INH P TL MONMMU SYSTEM MMU P RB DMTREP > P XIF P P EJECT P* j P* SET UP A14 STACK t P* PGETA14 EQU * $ P LD A14,PRUN GET DM TTAB ADDRESS * P AD A14,TTB:TD,A14 LENGTH DEVICE DESCR P ADKL
0x1926c0…248b20 [0x303]: Pad {f00=0x00fd, f01=0x0190, f02=» P************** ! P* ! P* ! ( PDMTASK EQU * ! 2 P* ! F P* SET UP A14 STACK ! P P* ! l P CF A15,GETA14 ! v P LDR A6,A1 FDB ADDR ! P LDKL A5,-1 ! * P CW A5,FDBRRO,A6 SPECIAL PARAMETER -1 ! 2 P RF(E) DMT090 FOR ORDERS XR,DX,I
0x1926c0…248b20 [0x304]: Pad {f00=0x00fd, f01=0x0190, f02=»1 ! P ANK A2,/3F " P CWK A2,QCL " P RF(E) DMT024 CLOSE " 2 P CWK A2,QRV " N P RF(E) DMT024 READ VTOC " b P SUK A2,QRRRB " & P RF(E) DMT024 RAND READ REL BUFFER " P ORKL A4,/100 " PDMT024 EQU * " P ST A4,FDBDBR,A1 " PDMT025
0x1926c0…248b20 [0x305]: Pad {f00=0x00fd, f01=0x0190, f02=»80 BUFFER WAS BEFORE " P* # ( P* READ SECTOR INTO BUFFER AND EXIT # & P* # R P SUK A5,QCL # P RF(Z) DMT030 CLOSE # p P LDK A7,/11 PHYSICAL READ # P LKM # P DATA -1 I/O AND ACTIVATION # " P DATA DMTAR1 DMTASK RESTART #1 # P LKM #
0x1926c0…248b20 [0x306]: Pad {f00=0x00fd, f01=0x0190, f02=»T050 CHECK RETURN CODES # P EJECT $ P************** $ . P* DMTAR1 * $ D P************** $ Z P* RESTART POINT AFTER READ $ p P* $ PDMTAR1 EQU * $ P* $ P* SET UP A14 STACK $ P* $ P CF A15,GETA14 $ PDMT050 EQU * $ 4
0x1926c0…248b20 [0x307]: Pad {f00=0x00fd, f01=0x0190, f02=» $ 0 PDMT080 EQU * ENTRY IF SECT ALREADY IN BUFFER % P LDR A5,A3 % < P ADK A5,8 SKIP BUFFER HEADER % N * P ST A5,ECBBA,A8 PUT BUFFER ADDR IN ECB % r PDMT090 EQU * % P* % 4 P* HANDLE ACTUAL ORDER ORDER INDEX IN DWTOR % P* % P ADK A5,2
0x1926c0…248b20 [0x308]: Pad {f00=0x0105, f01=0x0190, f02=» TABLE % r P EJECT & $ PDMRRRB EQU * RAND READ REL BUFF & P* & D PDMSQRE EQU * SEQUENTIAL READ & N P* & r PDMRDRE EQU * RANDOM READ & | P* & 4 P* CHECK STATUS IF NOT USED THEN ERROR RETURN & P* & P LD A2,FDBRRO,A6 & P AD A2,FDB
0x1926c0…248b20 [0x309]: Pad {f00=0x0105, f01=0x018e, f02=»A & | P ABL DMTERR ' & PDMT200 LDK A1,/8 INCORRECT LENGTH ' & P CF A14,DMTFRL A2 := RECORD LENGTH ' H P* ' r P* MOVE THE RECORD ' | P* ' P CF A14,DMTREM ' P* ' 0 P* UPDATE CRN AND SET EXCLUSIVE ACCESS BIT ' P* ' PDMT230 EQU
0x1926c0…248b20 [0x30a]: Pad {f00=0x0105, f01=0x0190, f02=» ' t P* ( P LD A2,FDBSNR,A6 ( ( P RF(NZ) DMT270 VTOC SECTOR IN BUFFER ( * P* ( V P* VOLUME LABEL IN BUFFER ( ` H P* FIND VTOC SECTOR NUMBER AND RELATIVE RECORD OFFSET WITHIN SECTOR ( 8 P* FOR VTOC RECORD AND READ THIS SECTOR INTO BUFFER ( P
0x1926c0…248b20 [0x30b]: Pad {f00=0x0105, f01=0x0190, f02=»OBLK VTOC BLOCKING FACTIOR ( ( P LD A2,FDBVTO,A10 VTOC RECORD NUMBER ) " P LDK A1,0 ) N , P CF A14,DIVMOD A2=A1,A2/A6.A1=REMAINDRER ) ` P LDR A3,A2 QUOTIENT ) P LDR A6,A10 FDB ADDR ) P LDR A2,A1 REST ) P RF(Z) DMT240 REST = 0 ) $ P ADK A3,1 RE
0x1926c0…248b20 [0x30c]: Pad {f00=0x0105, f01=0x0190, f02=» P ST A3,FDBSNR,A6 * P LDK A3,0 * PDMT255 SUK A2,1 * . P RF(Z) DMT260 * F P AD A3,VLVRL-2,A5 * P ADK A3,1 SKIP STATUS BYTE * v P RB DMT255 * PDMT260 ST A3,FDBRRO,A6 * P* * P* RELEASE BUFFER * P* * P LD A3,ECBBA,A9 *
0x1926c0…248b20 [0x30d]: Pad {f00=0x0105, f01=0x0190, f02=» ADDR * P RB DMT020 READ VTOC SECTOR + P EJECT + 2 PDMT270 EQU * + @ P SUK A7,QRV + T $ P ABL(Z) DMT500 READ VTOC RECORD + h P* CLOSE FILE + & P* UPDATE VTOC LAST RECORD NUMBER + & P* AND WRITE SECTOR BACK ON DISC + P AD A5,FDBRRO,A6
0x1926c0…248b20 [0x30e]: Pad {f00=0x0105, f01=0x0190, f02=»E FILE. WRITE VTOC + P* , P LDK A7,/95 , $ P LKM , 8 P DATA 1 , D P* , T P LDR A1,A6 FDBADDRESS IN A1 , ^ & P CF A14,DMTIOT CHECK RETURN CODES , P LDR A1,A1 , P RF(NZ) DMT724 ERROR , PDMT720 EQU * , P LD A1,DWTTDM,A6 TTAB ADDR ,
0x1926c0…248b20 [0x30f]: Pad {f00=0x0105, f01=0x0190, f02=» A2,1 0 OR 1 , P ECR A2,A2 =1 END - P LC A2,ECBFC,A9 FILE CODE - . " P LDK A5,0 TRY LOCAL AND GLOBAL - P . P CF A14,FNDFDB GET ENTRY IN TTAB CDTADTAB - v & P LDR A13,A5 LOCAL/GLOBAL INDICATOR - P LDR A2,A2 - P RF(NZ) DMT725 FC FOUND - P LDKL
0x1926c0…248b20 [0x310]: Pad {f00=0x0105, f01=0x0190, f02=»R - p P LDR A12,A1 SAVE TTEAB ADDR . 4 P SUR A10,A10 MARK THAT FDB NOT SHALL BE RELEASED . . P EJECT . f 0 P* CHECK IF THIS FDB ADDR IS USED ELEWHERE . t P* . P* SEARCH ALL TTABS . P* . P LD* A2,SCTTCT . PDMT730 EQU * . P SUK A2,
0x1926c0…248b20 [0x311]: Pad {f00=0x0105, f01=0x018e, f02=»K ID . | P CCK A3,'##' / & P RB(E) DMT730 JUMP IF MONITOR TASK / P LD A3,TTB:TD,A1 / J ( P ADKL A1,TTB:TD+2 DEV DESCR TABLE +2 / b PDMT770 EQU * / P SUK A3,4 / $ P RB(NP) DMT730 NOT IN THIS TTAB / P LDR A4,A1 / P ADR A4,A3 / P CWR* A5,A
0x1926c0…248b20 [0x312]: Pad {f00=0x0105, f01=0x0190, f02=» / v & P RF DMT895 MORE USERS ON THIS FDB 0 P* 0 2 P* NOW SEARCH SCTCDT 0 < P* 0 Z PDMT780 EQU * 0 d P LD* A4,SCTCDT 0 x PDMT790 EQU * 0 P SUK A4,4 0 . P RF(NP) DMT800 THIS FDB HAS NO OTHER USER 0 P LD A2,SCTCDT 0 P ADR A2,A4 0
0x1926c0…248b20 [0x313]: Pad {f00=0x0105, f01=0x018e, f02=» & P RF DMT895 THIS FDB HAS MORE USERS 1 P EJECT 1 . P* 1 < P* NOW RELEASE THIS FDB 1 F P* 1 f PDMT800 EQU * 1 p P* 1 P* RELEASE EA-BUFFERS 1 P* 1 . P LDKL A2,/8000 ALL EA-BUFFERS ARE RELEASED 1 P LDR A1,A6 FDB ADDR 1 P CF A1
0x1926c0…248b20 [0x314]: Pad {f00=0x0105, f01=0x0190, f02=» 1 P CMR A5 CLEAR FDB 2 P RF DMT830 2 " PDMT820 EQU * 2 4 P LDR A4,A5 BUFFER ADDRESS 2 H PDMT830 EQU * 2 j & P RF(Z) DMT840 ALL BUFFER S REMOVED 2 ~ $ P LDR* A5,A4 NEXT BUFFER ADDRESS 2 P* 2 P* RETIURN BUFFER TO POOL 2 P* 2 P INH
0x1926c0…248b20 [0x315]: Pad {f00=0x0105, f01=0x0190, f02=» 2 P* 3 < P* NOW CHECK DEVICE CODES. WHEN LAST FILE IS CLOSED ON 3 > P* A FLEXIBLE DISC UNIT, AN UNLOC IS MADE FOR THIS VOLUME 3 R P* 3 P LDK A1,4 EXTENT COUNTER 3 P LDR A5,A6 FDB ADDR 3 . P ADKL A5,FDBEXT+1 ZADDR OF FIRST VOL CODE 3 &
0x1926c0…248b20 [0x316]: Pad {f00=0x0105, f01=0x0190, f02=»1 LOOP 3 & P ABL(NN) DMT900 CHECK THIS EXTENT 4 P XIF 4 8 P IFT INDXAC=1 4 D P EJECT 4 Z P* 4 h P* ALL EXTENTS CHECKED 4 r P* RELEASE MASRTER INDEX 4 P* 4 P INH 4 & P LD A1,FDBMIA,A6 MASTER INDEX ADDR 4 P RF(Z) DMT894 NO MATER
0x1926c0…248b20 [0x317]: Pad {f00=0x0105, f01=0x018e, f02=» DMT894 NO MATER IX 4 P CW A1,MXIND+2,A5 5 P RB(NE) DMT885 5 6 P LD A4,MXIND,A5 5 L & P RF(N) DMT890 PREVIOUS ENTRY USED 5 d " P LD A4,MXIND+4,A5 NO OF WORDS 5 P ANKL A4,/7FFF REMOV USE BIT 5 P ADS A4,MXIND,A5 NR OF WORDS 5 P* 5 P*
0x1926c0…248b20 [0x318]: Pad {f00=0x0106, f01=0x0190, f02=» P LD A2,MXIND 6 P SUR A2,A5 6 P SUK A2,2 NO OF CHAR 6 * P CF A14,DMTWM MOVE UOP 6 F P RF DMT894 6 d PDMT890 EQU * 6 v P LDKL A4,/7FFF 6 & P ANS A4,MXIND+4,A5 REMOVE USE BIT 6 P XIF 6 P EJECT 6 PDMT894 EQU * 6 0 P LDKL A10,1 MARK T
0x1926c0…248b20 [0x319]: Pad {f00=0x0106, f01=0x0190, f02=»11 FILE CODE 6 P CM 2,A11 FDB ADDR 7 P* 7 . * P* RELEASE DWT-QUEUQ IN THIS FDB-DWT 7 8 P* 7 f P LDR A1,A6 FDBADDR 7 p $ P ADKL A1,DWTTQ ADDR QUEUE START 7 P LDR* A5,A1 NEXT TTAB ADDR 7 P RF(Z) DMTA20 NO Q 7 P CMR A1 KILL ROOT 7 $ PDM
0x1926c0…248b20 [0x31a]: Pad {f00=0x0106, f01=0x0190, f02=» 7 P* 8 " P* NEXT ENTRY IN TTAB/CDATAB 8 P* 8 8 P LDR A1,A12 TTAB ADDR 8 B P LDK A2,0 8 ` ( P LC A2,ECBFC,A9 FILE CODE USERT ECB 8 r & P LDR A5,A13 LOCAL/GLOBAL INDICATOR 8 & P CF A14,FNDFDB SEARCH TTAB SCTCDT 8 P LDK A7,0 INDICATES A2 =
0x1926c0…248b20 [0x31b]: Pad {f00=0x0106, f01=0x018e, f02=»ALL ALSO BE RELEASED 8 | P* 9 & P LD A7,2,A4 NEXT FDB ADDR TO CLOSE 9 & P LDK A1,2 9 P P ADR A1,A6 FROM ADDR 9 b P LDK A3,2 9 ~ P ADR A3,A7 TO ADDR 9 P LDK A2,12 NO OF BYTES 9 P CF A14,DMTWM MOVE DWT 9 P IFT MMUPAG=1 9 P LD A3,DWTUEC,
0x1926c0…248b20 [0x31c]: Pad {f00=0x0106, f01=0x018e, f02=» 9 x P CM FDBSNR,A7 SECTOR NR : P LDKL A3,FDBEXT : ( P ADR A3,A7 : @ P ST A3,FDBCEX,A7 1ST EXTENT : R P LDR A10,A10 =1 : v P RF(Z) DMTA30 NO RELEASE =1 : P LDKL A3,/8000 : P ST A3,DWTST,A6 NOT BUSY : PDMTA30 EQU * : P XIF : P E
0x1926c0…248b20 [0x31d]: Pad {f00=0x0106, f01=0x0190, f02=» P* RELEASE FDB ; P* ; P LDR A10,A10 ; & P RF(Z) DMTA40 NO RELEASE ; : P IFT INDXAC=1 ; Z P* ; p 0 P* REMOVE ALL OTHER REFERAENCES TO THIS FDB ; z P* ; P LDK A1,10 2*MAX NR OF FDBS ; PDMTA50 SUK A1,2 ; " P RF(N) DMTA70 ALL FDBS
0x1926c0…248b20 [0x31e]: Pad {f00=0x0106, f01=0x0190, f02=»OF FDBS ; | PDMTA60 SUK A4,2 < 0 P RB(N) DMTA50 ALL ADDR CHECKED IN OTHER FDB < ( P LDR A5,A3 < P ADR A5,A4 < n P CW A6,FDBADF,A5 < P RB(NE) DMTA60 < P* < @ P* DELETE THIS REFERENCE TO THE FDB THAT SHALL BE RELEASED < P* < P CM
0x1926c0…248b20 [0x31f]: Pad {f00=0x0106, f01=0x0190, f02=»SET FDB FREE < PDMTA40 EQU * = * P CF A14,CLRBUF REMOVE ALL FREE BUFFERS = ( P LDR A1,A7 NEW FDB ADDR = V P ABL(Z) DMTERX NO MORE FDBS = v P IFT INDXAC=1 = P ENB ENB = P* = 4 P* FIND WHICH DMTASK IS NEXT AND ACTIVATE THAT = P* =
0x1926c0…248b20 [0x320]: Pad {f00=0x0106, f01=0x0190, f02=» P LKM > P DATA 3 EXIT > P XIF > $ P IFT FLXDSC=1 > 0 P EJECT > F PDMT900 EQU * > T $ P* UNLOCK FLEXDISC IN THIS LOOP > h P* > P* REGISTERS > P* A1 = EXTENT COUNTER > 6 P* A4 = LAST VOL CODE FLEXDOISC A5 = EXT ADDR > P
0x1926c0…248b20 [0x321]: Pad {f00=0x0106, f01=0x0190, f02=»NGTH IN FDB > z P LCR A7,A5 VOLUME CODE ? P ANK A7,/FF ? 2 P ABL(Z) DMT880 NO CODE ? F P* ? d & P* FLEXDICSC IF BIT 8-13 = 111110 ? n P* ? P ANK A7,/F8 ? P SUK A7,/F8 ? P ABL(NE) DMT880 NO FLEXDISC ? P* ? 6 P* IF SAME FLEXDI
0x1926c0…248b20 [0x322]: Pad {f00=0x0106, f01=0x0190, f02=»THOIS FLEXIBLE DISC VOL CODE ? t P* @ $ PDMT910 EQU * @ . P LCR A4,A5 SAVE VOL CODE @ B " P LDKL A3,FDBSTA FDB LINK ROOT @ b P INH INH @ P RF DMT925 @ PDMT920 EQU * @ P LDR* A3,A3 FDB ADDR @ PDMT925 EQU * @ P ANKL A3,/FFFE FDB ADDR
0x1926c0…248b20 [0x323]: Pad {f00=0x0106, f01=0x018e, f02=» DMT920 CURRENT FDB @ P LDK A7,4 EXTENT COUNTER A P LDR A2,A3 FDB ADDR A < P ADKL A2,FDBEXT+1 A X P* ADDR OF 1ST VOL CODE A r & P SUKL A2,EXTELE EXT LENGTH IN FDB A PDMT930 EQU * A P SUK A7,1 A & P RB(N) DMT920 ALL EXTENTS CHECKED A
0x1926c0…248b20 [0x324]: Pad {f00=0x0106, f01=0x018e, f02=» A & P* ALL FSDBS CHECKED. MAKE UNLOAD B P* B 2 PDMT980 EQU * B < P ENB ENB B P P* B b 6 P* NOTE THAT ECBBUF IS ASSUMED NOT TO BE CHANGED B l P* WITH THIS REQUEST B P* B P SC A4,ECBFC,A8 VOL CODE B P* B P IFF DSKPAG+SWPBLK
0x1926c0…248b20 [0x325]: Pad {f00=0x0106, f01=0x0190, f02=» P IFT FLXDSC=1 C P LDK A7,/B8 UNLOAD WAIT C P LKM C : P DATA 1 C F P LD A1,ECBRC,A8 C V P ANK A1,1 INOPER C n P ABL(NZ) DMTERR C P ABL DMT880 CHECK NEXT EXT C P XIF C P EJECT C " PDMT500 EQU * READ VTOC RECORD C P* C " P
0x1926c0…248b20 [0x326]: Pad {f00=0x0106, f01=0x0190, f02=»H C v ( P ORS A1,ECBRC,A9 SET RC BUT CONTINUE D , P LD A2,ECBRL,A9 MOVE WHAT USER TOLD YOU D 6 PDMT510 EQU * D f P ST A2,ECBEL,A9 D z P CF A14,DMTREM MOVE RECORD D PDMAEX EQU * D P ABL DMTAEX EXIT D P EJECT D " PDMSQWR EQU * SEQUENTIAL WRIT
0x1926c0…248b20 [0x327]: Pad {f00=0x0106, f01=0x0190, f02=» D v P* E PDMDEL EQU * INDEXED DELETE E P* E 4 PDMIRW EQU * INDEXED REWRITE E > P* E b & PDMRDWD EQU * DELAYED RANDOM WRITE E l P* E & PDMRDDD EQU * DELAYED RANDOM DELETE E P* E P* TEST STATUS E P LD A10,FDBRRO,A6 E P AD
0x1926c0…248b20 [0x328]: Pad {f00=0x0106, f01=0x0190, f02=»+2,A9 E P ANK A2,/FF F P LD A3,ECBCW,A9 LOG REC NR F " P LDK A4,0 F D P CCR A4,A10 F V P RF(E) DMS010 FREE F j P IFT INDXAC=1 F P LDR A4,A7 F P SUK A4,QINS F P RF(E) DMEAER INDEXED INSERT F P XIF F P LDR A4,A7 F P SUK A4,
0x1926c0…248b20 [0x329]: Pad {f00=0x0106, f01=0x0190, f02=» P ANK A4,EABIT G " P RF(NZ) DMS020 EA=1, NO CHECK G P* EA MUST BE SET G @ P* G Z P CF A14,EATEST G d P LDR A4,A4 RTN CODE G z " P RF(NP) DMEAER NO EA THIS TASK G P XIF G P RF DMS100 G PDMS010 EQU * G P IFT INDXAC=1 G P LDR A
0x1926c0…248b20 [0x32a]: Pad {f00=0x0106, f01=0x0190, f02=»TE G v P XIF H PDMS020 EQU * H P CF A14,EATEST H * P LDR A4,A4 RTN CODE H @ P RF(N) DMEAER EA OTHER TASK H PDMS100 EQU * H P LDK A1,0 SET STATUS FREE H P IFT INDXAC=1 H P LDR A2,A7 H P SUK A2,QIRW H " P RF(E) CHK010 INDEXED RE
0x1926c0…248b20 [0x32b]: Pad {f00=0x0106, f01=0x0190, f02=»HK010 INDEXED DELETE H P XIF I P LDR A2,A7 I ( P SUK A2,QRD I : P RF(E) DMT350 RANDOM DELETE I N P LDR A2,A7 I r P SUK A2,QRDD I ( P RF(E) DMT350 DELAYED RANDOM DELETE I P RF DMT310 RW,RWD,SW I P IFT INDXAC=1 I P EJECT I PCHK010
0x1926c0…248b20 [0x32c]: Pad {f00=0x0106, f01=0x0190, f02=»* COMPARE KEYS IN FILE AND USER BUFFER I P* J 0 P LDR A1,A6 FDB ADDR J : P LDK A5,8 MAX 4 INDEX J V P SUR A12,A12 INDEX COUNTER J t PCHK040 EQU * J P SUK A5,2 J $ P RF(N) CHK100 ALL INDEX CHECKED J P LDR A2,A1 FDB ADD J P ADR A2,A5 J
0x1926c0…248b20 [0x32d]: Pad {f00=0x0106, f01=0x0190, f02=»ORDER =3 J P ANK A2,/3F ORDER INDEX K P SUK A2,QIRW K 0 & P RB(NE) CHK040 NOT INDEXED REWRITE K D P* K n P IFT MMUPAG=1 K x P LDR A7,A1 SAVE A1 K * P LD A1,FDBKA,A6 GET KEY START ADDRESS K P AD A1,ECBBA,A9 K 2 P LDKL A2,FDBKEY GET KEY SAVE
0x1926c0…248b20 [0x32e]: Pad {f00=0x0106, f01=0x0190, f02=»6 KEY LENGTH K P INH L & P LD A4,DWTTDM,A7 GET TTAB ADDRESS L $ P TL TTB:MT,A4 LOAD MMU REGISTERS L J $ P LD A4,PRUN GET DM TTAB ADDRESS L r 0 P TS TTB:MT,A4 STORE USER MMU IN DM MMU TABLE L P ENB L , P CF A14,MOV:US MOVE KEY TO FDB KEY AREA L P
0x1926c0…248b20 [0x32f]: Pad {f00=0x0106, f01=0x0190, f02=»NDXAC=1 L P IFT MMUPAG=0 M " P LD A2,FDBKA,A6 KEY START ADDR M & P LDR A3,A2 M L " P AD A2,ECBBA,A9 KEY IN BUFFER M ^ P XIF M P* M P IFT INDXAC=1 M P AD A3,FDBRRO,A1 M P ADR A3,A11 KEY IN FILE M P LDK A7,0 M " P LD A6,FDBRLE,A6
0x1926c0…248b20 [0x330]: Pad {f00=0x0107, f01=0x0190, f02=»ECK NEXT M r P LDR A6,A1 FDB ADDR N P LDKL A1,/4000 KEY NOT FOUND N , P RF DMERR N P PCHK100 EQU * N b P LDR A6,A1 FDB ADDR N v P LD A7,DWTOR,A6 N P ANK A7,/3F ORDER INDEX N P LDK A2,0 N P LC A2,FDBNIF,A6 N P CWR A2,A12 N ( P R
0x1926c0…248b20 [0x331]: Pad {f00=0x0107, f01=0x0190, f02=»R N P XIF O $ PDMEAER LDKL A1,/2000 EA PROTECT O PDMERR ABL DMTERR O > P EJECT O V P* O d P* MOVE RECORD O n P* O PDMT310 EQU * O P IFT INDXAC=1 O P LDR A2,A7 O P SUK A2,QDEL O " P ABL(E) DMXDEL INDEXED DELETE O P XIF
0x1926c0…248b20 [0x332]: Pad {f00=0x0107, f01=0x0190, f02=»FROM ADDRESS O P* P P IFT MMUPAG=0 P P XRR A4,A1 P 4 P ANK A4,/01 P F ( P RF(E) DMT320 BOTH ODD OR BOTH EVEN P Z & P CF A14,DMTBM ONE ODD AND ONE EVEN P P RF DMT340 P P* P PDMT320 LDR A4,A3 P P ANK A4,/01 P P RF(E) DMT330 BOTH
0x1926c0…248b20 [0x333]: Pad {f00=0x0107, f01=0x018e, f02=»RD MOVE P z P* Q P XIF Q P* Q & P IFT MMUPAG=1 Q 0 P LDR A3,A2 GET LENGTH Q F , P LDR A2,A4 GET RECEIVING BUFFER ADDRESS Q d P INH Q & P LD A4,DWTTDM,A6 GET TTAB ADDRESS Q $ P TL TTB:MT,A4 LOAD MMU REGISTERS Q $ P LD A4,PRUN GET DM TTAB
0x1926c0…248b20 [0x334]: Pad {f00=0x0107, f01=0x0190, f02=» Q Z P XIF R P* R PDMT340 EQU * R P* R 2 P* SET STATUS USED R < P* R X P LDK A1,/FF R b PDMT350 SCR A1,A10 R v P LD A3,FDBDBR,A6 R P RF(NN) DMT394 NO DELAY R P LDR A2,A7 R P SUK A2,QSW R " P RF(E) DMT360 SEQUENTIAL WRI
0x1926c0…248b20 [0x335]: Pad {f00=0x0107, f01=0x0190, f02=»NDOM DELETE R x P RF DMT390 S $ P* WRITE IF LAST REC IN SECTOR S & P* S N PDMT360 LD A4,FDBRRO,A6 S X P CW A4,FDBMRO,A6 S v " P RF(NE) DMT400 NOT LAST RECORD S " PDMT390 LDK A7,/05 BASIC WRITE S P SLL A3,1 S P RF(N) DMT395 BASIC WANTED S
0x1926c0…248b20 [0x336]: Pad {f00=0x0107, f01=0x0190, f02=»1,A6 FDB ADDRESS AS PARAMETER S P LKM T & P DATA -1 I/O AND ACTIVATION T 2 " P DATA DMTAR2 DMTASK RESTART #2 T V P LKM T | P DATA 3 EXIT T P EJECT T P* T P************** T P* DMTAR2 * T P************** T P* T P* T , P
0x1926c0…248b20 [0x337]: Pad {f00=0x0107, f01=0x0190, f02=»4,DMTIOT CHECK DISC I/O T P LDR A1,A1 U P RF(NZ) DMTERR U 2 P LDKL A1,/C0FF U H $ P ANS A1,FDBDBR,A6 RELEASE BUFFER U ^ PDMT400 EQU * U " P LDR A1,A6 FDB ADDR DATA FILE U P LD A2,ECBCW+2,A9 U P ANK A2,/FF U P LD A3,ECBCW,A9 LOG REC NR U
0x1926c0…248b20 [0x338]: Pad {f00=0x0107, f01=0x0190, f02=» RF(E) DMT460 SEQ WRITE U P LDK A4,QRD V P CWR A7,A4 V 4 P RF(E) DMT420 RAND DEL V F P LDK A4,QRDD V d P CWR A7,A4 V x ( P RF(E) DMT420 DELAYED RANDEOM DELETE V P IFT INDXAC=1 V P LDK A4,QDEL V P CWR A7,A4 V P RF(E) DMT420 INDEXED DE
0x1926c0…248b20 [0x339]: Pad {f00=0x0107, f01=0x0190, f02=»ET GET CRN BUFFER V P LDR A10,A2 BUFFER ADDR W P IFT INDXAC=1 =2 START W : P LDK A3,QIRW W Z P CWR A7,A3 W n " P RF(E) DMT410 INDEXED REWRITE W P XIF =2 END W P CM CRNCIF,A2 W P* CLEAR INDEX CRN W P CM CRNCIF+2,A2 W PDMT4
0x1926c0…248b20 [0x33a]: Pad {f00=0x0107, f01=0x018e, f02=»NCDF,A10 CRN FIL E CODE W P IFT INDXAC=1 X P LDK A4,QINS X 6 P CWR A7,A4 X J P RF(E) DMT460 INDEXED INSERT X P XIF X PDMT420 EQU * X P LDK A4,QSR X P CWR A7,A4 X P RF(E) DMT450 SEQ READ X P LDK A4,QRR X P CWR A7,A4 X P
0x1926c0…248b20 [0x33b]: Pad {f00=0x0107, f01=0x018e, f02=» P* Y P* RELEASE EA Y P* Y $ P CF A14,EARELB REL EA Y . P RF DMTAEX Y L PDMT450 EQU * Y ^ P LC A4,DWTST,A1 DWTSTATUS Y r P ANK A4,EABIT EA-BIT Y & P RF(NZ) DMTAEX EA=1. NO EA WANTED Y P* Y " P* CHECK IF EA IS SET ALREADY Y P
0x1926c0…248b20 [0x33c]: Pad {f00=0x0107, f01=0x0190, f02=» P CF A14,EASETB Z P RF DMTAEX Z PDMT460 EQU * Z , P* Z @ P* UPDATE LRN Z J P* Z ` P SC A2,FDBLRN,A1 Z j P ST A3,FDBLRN+1,A1 Z P IFT INDXAC=1 Z P LDK A4,QINS Z P CWR A7,A4 Z " P ABL(E) DMINS2 INDEXED INSERT Z P XIF Z P
0x1926c0…248b20 [0x33d]: Pad {f00=0x0107, f01=0x0190, f02=»3F00 Z ( P RF(NZ) DMTERX NO RELEASE OF BUFFER [ PDMTEX1 LD A3,ECBBA,A8 [ 8 P SUK A3,8 [ V PDMTEX2 EQU * [ h ( P CF A14,DMTRBU RELEASE BUFFER AT A3 [ | PDMTERX EQU * [ P INH [ P* A1 = RET CODE [ P* A6 = DWT ADDR [ P CF A15,TENDIO
0x1926c0…248b20 [0x33e]: Pad {f00=0x0107, f01=0x0190, f02=»RANDOM READ [ 2 P********************************************* " P LD A9,DWTECB,A1 USER ECB ADDR J P IFT MMUPAG=0 p P LD A8,ECBCW,A9 ADDR OF KEY P XIF P IFT INDXAC=1 P IFT MMUPAG=1 P LDR A8,A1 FDB ADDR " P ADKL A8,FDB
0x1926c0…248b20 [0x33f]: Pad {f00=0x0107, f01=0x018e, f02=» LDR A13,A1 P ADKL A13,FDBECB ECB ADDR ] $ P CF A14,FNDKEY GET INDEX RECORD ] 6 ( PDMR006 EQU * FROM INDEXED READ NEXT ] ^ P LD A9,DWTECB,A1 ] P LDR A6,A1 FDB ADR ] P LDKL A8,FDBECB ] P ADR A8,A6 ECB ADDRESS ] P LDR A2,A2 RETURN CODE ]
0x1926c0…248b20 [0x340]: Pad {f00=0x0107, f01=0x018e, f02=» ] " P LD A2,FDBRRO,A1 RECORD OFFSET ^ P ADK A2,10 BUFFER HEADER ^ . P ADR A2,A3 REC ADDR ^ N P LD A4,FDBRLE,A1 REC LENGTH ^ j P SUK A4,6 KEY LENGTH ^ P ADR A2,A4 ^ " P CC A4,2,A2 DUPLICATE KEY CHAR ^ $ P RF(NE) DMR020 NEXT KEY NOT SAME ^ P
0x1926c0…248b20 [0x341]: Pad {f00=0x0107, f01=0x0190, f02=» ^ P LDK A5,0 _ P LC A5,3,A2 _ P SC A5,ECBCW+3,A8 _ . P LC A5,4,A2 _ H P ECR A5,A5 _ P LC A5,5,A2 _ n P ST A5,ECBCW,A8 _ P* _ P* RELEASE BLOCK BUFFER _ P* _ P CF A14,DMTRBU _ P EJECT _ P* _ 0 P* PERFORM RA
0x1926c0…248b20 [0x342]: Pad {f00=0x0107, f01=0x018e, f02=» BIT _ | P SLL A2,1 ` " P LDK A7,/A RANDOM READ NO WAIT ` P ORR A7,A2 EA BIT ` D P* ` ^ P* MOVE USER ECB ` h P* ` P LDR A1,A9 FROM ECB ADDR ` P LDR A3,A8 TO ECB ADDR ` P LDK A2,6 NO OF CHAR ` P CF A14,DMTWM MOVE ECB ` P LDR A
0x1926c0…248b20 [0x343]: Pad {f00=0x0107, f01=0x0190, f02=» P DATA 3 EXIT a PDMTAR4 EQU * a P* a , P* SET UP A14 STACK a 6 P* a R P CF A15,GETA14 a P LDR A6,A1 a r P LDKL A8,FDBECB a P ADR A8,A6 RR ECB a P LD A9,DWTECB,A6 USER ECB a P LD A1,ECBRC,A8 a & P ORS A1,ECBRC,A9 RET CODE
0x1926c0…248b20 [0x344]: Pad {f00=0x0107, f01=0x0190, f02=»LE a x P* b ( P LD A1,FDBADF,A6 FDB ADDR DATA FILEP b & P CF A14,CRNGET GET CRN BUFFER ADDR b @ P LDR A10,A2 CRN BUFFER ADDR b j " P LDR A1,A6 FDB ADDR INDEX FILE b ( P CF A14,GTLGRN GET INDE X LOG REC NO b P SC A2,CRNCIF+1,A10 b & P ST A3,CRNCIF+
0x1926c0…248b20 [0x345]: Pad {f00=0x0107, f01=0x0190, f02=»URN CODEXS b P* c $ P LD A2,ECBEL,A8 EFFECTIVE LENGTH c P ST A2,ECBEL,A9 c D P LDK A1,0 RETURN CODE c P ABL DMTERX TENDIO c z P EJECT c " PDMIRN EQU * INDEXED READ NEXT c 2 P********************************************* c P LDR A1,A6 F
0x1926c0…248b20 [0x346]: Pad {f00=0x0107, f01=0x0190, f02=»UFFADR c P ADK A2,10 RECORD ADDR d ( P AD A2,FDBRLE,A1 ADDR OF STATUS CHAR d , P LDK A5,/FF USED MARK d X P CCR A5,A2 STATUS d v P RF(E) DMI120 USED d P LD A4,FDBMRO,A1 d & P ST A4,FDBRRO,A1 LAST REC IN SECT d P* d P* CHECK IF END OF
0x1926c0…248b20 [0x347]: Pad {f00=0x0107, f01=0x0190, f02=» RF(G) DMI105 EOF d P CW A3,FDBLRN+1,A1 e P RF(L) DMI106 NOT EOF e 4 PDMI105 LDR A3,A9 e R P RF DMI030 EOF e j PDMI106 LDR A3,A9 RESTORE e P RF DMI010 NEXT REC e PDMI120 EQU * e P* INDEX RECORD IS FOUND e P* e P LDK A2,0 MA
0x1926c0…248b20 [0x348]: Pad {f00=0x0107, f01=0x0190, f02=»DMI100 RECORD FOUND e P LDR A6,A1 FDB ADDR f & PDMI030 LDKL A1,/4000 KEY NOT FOUND f 8 PDMI035 EQU * f b P LDR A3,A3 BUFFER ADDR f v P ABL(Z) DMTERX NO BUFFER f P ABL DMTERR ERROR AND BUFFER f P EJECT f P* f & PDMINS2 EQU * INDEXED INSER
0x1926c0…248b20 [0x349]: Pad {f00=0x0107, f01=0x0190, f02=»FSTA f " P CF A14,DMTRBU RELEASE BUFFER g PDMXDEL EQU * INDEXED DELETE g 2 6 P************************************************* g V P LDR A11,A7 ORDER CODE g P LDR A12,A8 PHYS ECB ADDR g P LDK A5,0 g . P SC A5,FDBDBR,A1 ZEROE INDEX FILE COUNTE
0x1926c0…248b20 [0x34a]: Pad {f00=0x0107, f01=0x0190, f02=» A6,A10 g P ADR A6,A5 h ( P LD A1,FDBAI1,A6 FDB ADDR INDEX FILE h " P RB(Z) DXI020 NO INDEX h N P* h l ( P* GET FILE CODE FOR THIS FDB ADDR h v P* h P LD* A6,SCTCDT h PDXI030 SUK A6,4 h P LD A7,SCTCDT h P ADR A7,A6 h P CW A1,2
0x1926c0…248b20 [0x34b]: Pad {f00=0x0107, f01=0x0190, f02=»CBFC,A8 INDEX FILE h P LDR A6,A11 i P SUK A6,QINS i . P RF(E) DXI080 INDEXED DELETE i B P* i f $ P* GET ADDRESSS OF DATA RECORD i p P* i P LD A6,ECBBA,A12 SECTOR ADDR i P ADK A6,2 CYLID i $ P AD A6,FDBRRO,A10 ADDR DATA REC i P AD
0x1926c0…248b20 [0x34c]: Pad {f00=0x0107, f01=0x0190, f02=» ADDR i v $ P LD A6,ECBBA,A9 USER BUFFER ADDR j P AD A6,FDBKA,A1 KEY OFFSET j 6 P IFT MMUPAG=1 j X P LDR A6,A1 j n " P ADKL A6,FDBKEY ADDR KEY AREA j P XIF j P IFT INDXAC=1 j $ P LDK A7,/1F INSERT INDEX NOWAIT j PDXI090 EQU * j P* j
0x1926c0…248b20 [0x34d]: Pad {f00=0x0107, f01=0x0190, f02=» DATA DMTAR5 j P LD A7,ECBRC,A8 k P RF(N) DMTAR5 REQ ERR k , P RB DXI020 NEXT INDEX DIRECT k J PDXI100 LKM k n P DATA 3 EXIT k PDMTAR5 EQU * k " P LD A6,FDBADF,A1 FDB DATA FILE k P LD A9,DWTECB,A6 USER ECB k P LDKL A8,FDBECB k P A
0x1926c0…248b20 [0x34e]: Pad {f00=0x0107, f01=0x0190, f02=»A9 RC TO USER k P LDK A1,0 RETURN CODE l & P LC A2,FDBDBR,A6 NR OF READY INDEX l 4 P ADK A2,1 COUNT INDEXES l ^ $ P CC A2,FDBNIF,A6 TOT NR OF INDEX l ~ P RF(NE) DXI200 l P LD A7,DWTOR,A6 l P ANK A7,/3F ORDER CODE l P SUK A7,QINS INDEXED INS
0x1926c0…248b20 [0x34f]: Pad {f00=0x0107, f01=0x0190, f02=» P ADKL A10,2 CYLID m P AD A10,FDBRRO,A6 m & P AD A10,FDBRLE,A6 ADDR STATUS CHAR m 8 P LDK A1,0 STATUS FREE m b . P ABL DMT350 CONTINUE AS FOR RANDOM DELETE m PDXI200 EQU * m P SC A2,FDBDBR,A6 m P LKM m " P DATA 3 EXIT. MORE INDEX LEFT m
0x1926c0…248b20 [0x350]: Pad {f00=0x0108, f01=0x0190, f02=»*************** m r " P LD A9,DWTECB,A1 USER ECB ADDR n $ P LD A8,ECBBA,A9 BUFFER ADDR USER n > P LDR A12,A8 n f $ P LD A11,FDBRLE,A1 RECORD LENGTH n z P SUKL A11,6 KEY LENGTH n P LDR A13,A14 n 0 P ADKL A13,2 ECB ADDR TO RECORD BUFFER AREASS n $ P C
0x1926c0…248b20 [0x351]: Pad {f00=0x0108, f01=0x0190, f02=»OR FOUND n z P LDR A13,A3 BUFFER ADDR o " P LD A4,FDBADF,A6 FDB DATA FILE o 0 P LD A5,DWTECB,A4 USER ECB o V P LD A1,DWTOR,A6 o x P ANK A1,/3F o P SUK A1,QDELX o & P ABL(E) DEL000 DELETE INDEX RECORD o P* o ( P* SET RC BIT 6 TO USER IF
0x1926c0…248b20 [0x352]: Pad {f00=0x0108, f01=0x018e, f02=»EY NOT ALLOWED IN FILE) o P* p P LC A4,ECBFC,A5 FILE CODE p * P CC A4,FDBECB+1,A6 p L * P RF(NE) INS049 NOT REQUESTED FILE CODE p f P LDKL A4,/200 BIT 6 p " P ORS A4,ECBRC,A5 NEXT KEY SAME p PINS049 EQU * p P IFT INSLAS=1 p P* p P
0x1926c0…248b20 [0x353]: Pad {f00=0x0108, f01=0x018e, f02=» P CF A14,RDNXTR GET NEXT REC q P RF INS100 OK q ( P ABL DEL045 ERROR q > PINS100 EQU * q X P ADR A2,A3 q l P ADK A2,10 REC ADDR q ~ P AD A2,FDBRLE,A1 ADDR STATUS q P LDK A5,/FF q P CCR A5,A2 q P RF(E) INS150 USED q P LD A5,FDBMR
0x1926c0…248b20 [0x354]: Pad {f00=0x0108, f01=0x0190, f02=» P CWR A5,A11 KEY LENGTH r $ P RB(E) INS080 NEXT SAME GET NEXT r " P* r J P* UPDATE LAST SAME RECORD r T P* r x P SC A11,-4,A2 NEXT SAME r P LD A7,FDBRRO,A1 r P CW A7,FDBMRO,A1 r & P RF(NE) INS160 SECT WRITTEN LATER r P* r P*
0x1926c0…248b20 [0x355]: Pad {f00=0x0108, f01=0x018e, f02=» P ABL(NZ) DMTERR s P* s P* GET NEXT RECORD s & P* s B PINS160 EQU * s L " P LDR A7,A5 NR OF SAME IN NEXT s ` P LDR A1,A6 FDB s P CF A14,RDNXTR GET NEXT RC s P RF INS170 OK s P ABL DEL045 ERROR s PINS170 EQU * s P LDR A13
0x1926c0…248b20 [0x356]: Pad {f00=0x0108, f01=0x0190, f02=» s P* t ( P* CREATE AN INDE XRECORD IN AREA 1 t P* t > P LDR A1,A12 FROM ADDR t H P* t f P LDR A3,A14 t p P ADK A3,2 TO ADDR t P LDR A2,A11 KEY LENGTH t P CF A14,DMTBM MOVE KEY t P LDK A2,0 t P SCR A2,A3 DUMMY t P ADK A
0x1926c0…248b20 [0x357]: Pad {f00=0x0108, f01=0x0190, f02=»R t t P LD A2,ECBCW+2,A5 u ( P LD A3,ECBCW,A5 REC NR DATA FILE REC u $ P SCR A2,A7 u P P ADK A7,2 u b P SCR A3,A7 u t P ECR A3,A3 u P SUK A7,1 u P SCR A3,A7 LOG REC NR u P ADK A7,2 u P LDK A1,/FF USED u P SCR A1,A7 STATUS CHAR u
0x1926c0…248b20 [0x358]: Pad {f00=0x0108, f01=0x0190, f02=» u P ST A2,-28,A14 v P ST A3,-26,A14 v P EJECT v 4 P* v B : P* BELOW IS A NEW INDEX RECORD INSERTED AND FOLLOWING v L $ P* USED RECORDS ROLLED FORWARD v $ P* A6,A11,A13 IS USED AT ENTRY v $ P ADKL A11,7 RECORD LENGTH TOTAL v P* v
0x1926c0…248b20 [0x359]: Pad {f00=0x0108, f01=0x0190, f02=»A12 = AREA INDEX 0=BUFAR1,1=BUFAR2 v $ P* A13 = BUFFER ADDRESS SECTOR w , P* w T PINS190 EQU * w ^ P LDKL A12,1 BUFADR2 w r PINS200 EQU * w P LDK A1,0 w P LDR A12,A12 w P RF(Z) INS210 BUFAR1 w ( P LDKL A1,RECBFZ RECORD BUUFFER SIZE w
0x1926c0…248b20 [0x35a]: Pad {f00=0x0108, f01=0x0190, f02=» LAST RECORD w P* x P LDR A1,A13 x P ADK A1,10 BUFSTA+2 x 2 . P AD A1,FDBMRO,A6 ADDR OF LAST REC IN SECT x N P LDR A2,A11 x P LDR A3,A10 x " P CF A14,DMTBM SAVE LAST RECORD x P* MOVE REST OF SECTOR x P* x P LDR A1,A13 x
0x1926c0…248b20 [0x35b]: Pad {f00=0x0108, f01=0x0190, f02=» x t P LDR A3,A1 y P ADR A3,A11 TO ADDR y P CF A14,DMTBMR MOVE y 6 P* INSERT NEW RECORD y R P* y p P LDKL A1,RECBFZ BUFFER SIZE y z P SLL A1,1 BYTE NO y P LDR A12,A12 y P RF(Z) INS250 BUFAR1 y " P LDK A1,0 SELECT OTHER BUFFER y
0x1926c0…248b20 [0x35c]: Pad {f00=0x0108, f01=0x0190, f02=» P CF A14,DMTBM MOVE z P* WRITE BUFFER z P* z 6 P LDR A8,A14 USE STACK AS ECB z @ P SUKL A8,24 z d $ P LC A2,FDBEXT+1,A6 VOL DEV CODE z x P ANK A2,/FF z P STR A2,A8 z P LDR A2,A13 z P ADK A2,8 BUFSTA z P ST A2,ECBBA,A8 SECTOR
0x1926c0…248b20 [0x35d]: Pad {f00=0x0108, f01=0x0190, f02=» z v P LDK A7,/95 WRITE , WAIT { P LKM { ( P DATA 1 { 4 P LDR A1,A6 FDB INDEX { D P CF A14,DMTIOZ IO CHECK { ` P LDR A1,A1 { P ABL(NZ) DMTERR { P* { 6 P* IF SPILLED RECORD IS FREE, OPERATION IS READY { P* { P LDR A2,A10 RECORD
0x1926c0…248b20 [0x35e]: Pad {f00=0x0108, f01=0x0190, f02=»T IN SECT { v P CCR A1,A2 | P RF(Z) INS400 FREE RECORD | $ P* | F P* GET NEXT SECTOR | P P* | l P LDR A1,A6 FDB ADDR | v P LDR A3,A13 BUFFER ADDR | 2 P CF A14,RDNXTR GET FIRST RECORD IN NEXT SECTOR | P RF INS260 OK | P LDR A1,A5 |
0x1926c0…248b20 [0x35f]: Pad {f00=0x0108, f01=0x0190, f02=»D BUFFERS | v P SUR A12,A12 } P RB INS200 } & P EJECT } 8 PINS400 EQU * } F P* } Z ( P* UPDATE LRN IF EOF IS ENCOUNTERED } d P* } P LDR A1,A6 FDB INDEX } P CF A14,GTLGRN } P CC A2,FDBLRN,A1 } P RF(L) INS430 NO EOF } P RF(G) I
0x1926c0…248b20 [0x360]: Pad {f00=0x0108, f01=0x0190, f02=»T A3,FDBLRN+1,A6 } P LDKL A1,/1000 EOF ~ P ORS A1,ECBRC,A9 EOF TO USER ~ 4 PINS430 EQU * ~ X P* ~ l 0 P* UPDATE CRN-LINK FOR MOVED INDEX RECORDS ~ v P* ~ P LDKL A12,1 ADD ON E TO CRN ~ P LDR A8,A2 ~ P LDR A9,A3 LAST REC NR MOVED ~
0x1926c0…248b20 [0x361]: Pad {f00=0x0108, f01=0x0190, f02=»TE CRN IF SAME FILE CODE ~ P* P LD A1,FDBADF,A5 FDB DATA F * " P CF A14,CRNGET GET CRN BUFFER N & P LD A9,DWTECB,A1 USER ECB ADDR =4 t " P LC A4,ECBFC,A9 USER FILE CODE P CC A4,FDBECB+1,A5 P RF(NE) INS440 OTHRER FILE P ST A10,CR
0x1926c0…248b20 [0x362]: Pad {f00=0x0108, f01=0x0190, f02=»DK A1,0 OK RET CODE P LDR A3,A13 BUFFER ADDR P ABL DMTEX2 < P EJECT P * PDEL000 EQU * DELETE INDEX RECORD CONT ^ P LDR A12,A5 USER ECB ADDR P LDR A2,A2 PDEL010 EQU * " P ABL(NZ) DMI030 KEY NOT FOUND P* P* CH
0x1926c0…248b20 [0x363]: Pad {f00=0x0108, f01=0x0190, f02=»7 BUFSTA+2-3=ADDR REC NR P LCR A2,A1 P CC A2,ECBCW+3,A12 REC NR 2 P RF(NE) DEL030 WRONG RECORD T P LC A2,1,A1 x P ECR A2,A2 P LC A2,2,A1 REC NR P CW A2,ECBCW,A12 P RF(E) DEL200 RECORD FOUND PDEL030 EQU * P*
0x1926c0…248b20 [0x364]: Pad {f00=0x0108, f01=0x018e, f02=»DB INDEX PDEL040 EQU * ( P CF A14,RDNXTR GET NEXT INDEX RECORD $ P RF DEL050 OK P PDEL045 LDR A1,A5 ERROR CODE f P ABL DMI035 ERROR PDEL050 EQU * P* P* CHECK IF RECORD IS USED P* P LDR A13,A3 NEW BUFFER ADD
0x1926c0…248b20 [0x365]: Pad {f00=0x0108, f01=0x0190, f02=» P RB(E) DEL020 USED P LD A4,FDBMRO,A1 ( P ST A4,FDBRRO,A1 LAST REC IN SECTOR 6 P RB DEL040 NEXT REC b P EJECT ~ PDEL200 EQU * RECORD FOUND P* & P* SET RC BIT 6 IF NEXT KEY SAME P* $ P LC A2,ECBFC,A12 USER FILE COD
0x1926c0…248b20 [0x366]: Pad {f00=0x0108, f01=0x0190, f02=»A6 * P RF(NE) DEL220 NOT REQUESTED FILE CODE P CWR A11,A7 KEY LENGTH : $ P RF(NE) DEL220 NEXT KEY NOT SAME X P LDKL A4,/200 $ P ORS A4,ECBRC,A12 NEXT KEY SAME PDEL220 EQU * P* $ P* MOVE UP RECORDS OVER DELETED P*
0x1926c0…248b20 [0x367]: Pad {f00=0x0108, f01=0x0190, f02=» P ADR A1,A11 FROM ADDR P LD A2,FDBMRO,A6 & P SU A2,FDBRRO,A6 NR OF CHAR > P CF A14,DMTBM MOVE b P* | P* SET LAST RECORD FREE P* P ADR A3,A11 P SUK A3,1 P LDK A1,0 P SCR A1,A3 STATUS FREE P*
0x1926c0…248b20 [0x368]: Pad {f00=0x0108, f01=0x018e, f02=» " P LDR A11,A3 FIRST REC NR MOVED P LD A12,FDBRRO,A6 OLD OFFSET * P LD A4,FDBMRO,A6 N P ST A4,FDBRRO,A6 MAX OFFSET f $ P CF A14,GTLGRN LAST REC NR MOVED P LDR A8,A2 P LDR A9,A3 REC NR " P ST A12,FDBRRO,A6 RESET OFFSET P LDKL
0x1926c0…248b20 [0x369]: Pad {f00=0x0108, f01=0x0190, f02=» ~ $ P RF(NZ) DEL290 NOT FIRST RECORD P LDR A1,A5 FDB 0 P CF A14,GTLGRN GET REC NR F P LDR A1,A2 h P LDR A2,A3 z P LDK A6,0 P LDK A7,1 $ P CF A14,DSUMOD A1,A2 = A1,A2 - 1 P RF(Z) DEL600 FILE START P LDR A6,A5 FDB ADD
0x1926c0…248b20 [0x36a]: Pad {f00=0x0108, f01=0x0190, f02=»A14 P ADKL A8,2 ECB ADDR P LDR A12,A12 ( $ P RF(Z) DEL245 BUFFER NOT CHANGED < P* d P* WRITE SECTOR n P* P LDK A7,/95 WRITE WAIT P LKM P DATA 1 P LDR A1,A5 FDB P CF A14,DMTIOZ IO CHECK P LDR A1,A1
0x1926c0…248b20 [0x36b]: Pad {f00=0x0108, f01=0x018e, f02=»EASE BUFFER ~ P* P* GET PREVIOUS SECTOR P* > P LDR A1,A5 FDB ADDR H P LDK A3,0 d P CF A14,RDNXTR GET SECTOR v P RF DEL250 OK P LDR A6,A1 FDB ADDR P RB DEL045 PDEL250 EQU * P LDR A5,A1 FDB P LDR
0x1926c0…248b20 [0x36c]: Pad {f00=0x0108, f01=0x018e, f02=» PDEL300 EQU * * P ST A4,FDBRRO,A5 PREVIOS RECORD OFFSET P ADK A4,10 BUFSTA+2 F P ADR A4,A13 RECORD ADDR b & P AD A4,FDBRLE,A5 STATUS CHAR ADDR P LDK A2,/FF P CCR A2,A4 P RB(NE) DEL240 FREE . P LC A2,17,A14 NR OF SAME IN
0x1926c0…248b20 [0x36d]: Pad {f00=0x0108, f01=0x0190, f02=» v PDEL600 EQU * P LDR A12,A12 $ P RF(Z) DEL900 BUFFER NOT CHANGED 0 P* X P* WRITE SECTOR b P* z PDEL700 EQU * P LDR A8,A14 P ADKL A8,2 ECB ADDR P LDK A7,/95 WRITE WAIT P LKM P DATA 1 P LDR A1,
0x1926c0…248b20 [0x36e]: Pad {f00=0x0108, f01=0x401c, f02=» XIF P END @ LDR A12,A12 $ P RF(Z) DEL900 BUFFER NOT CHANGED 0 P* X P* WRITE SECTOR b P* z PDEL700 EQU * P LDR A8,A14 P ADKL A8,2 ECB ADDR P LDK A7,/95 WRITE WAIT P LKM P DATA 1 P LDR A1,
0x1926c0…248b20 [0x36f]: Pad {f00=0x0108, f01=0x2008, f02=» + t P INH , P CF A15,TENDIO , P ENB , 2 P* , > P* EXIT , H P* , X P LKM , b P DATA 3 , n P* , ~ P END , @ , RD ADDR A2:=EA BIT + & P C1R A2,A2 ONE COMPLEMENT BIT MASK + P ANRS A2,A3 SET OFF EA BIT + P* + P
0x1926c0…248b20 [0x370]: Pad {f00=0x0109, f01=0x0000, f02=»
0x1926c0…248b20 [0x371]: Pad {f00=0x0109, f01=0x0000, f02=»
0x1926c0…248b20 [0x372]: Pad {f00=0x0109, f01=0x0000, f02=»
0x1926c0…248b20 [0x373]: Pad {f00=0x0109, f01=0x0000, f02=»
0x1926c0…248b20 [0x374]: Pad {f00=0x0109, f01=0x0000, f02=»
0x1926c0…248b20 [0x375]: Pad {f00=0x0109, f01=0x0000, f02=»
0x1926c0…248b20 [0x376]: Pad {f00=0x0109, f01=0x0000, f02=»
0x1926c0…248b20 [0x377]: Pad {f00=0x0109, f01=0x0000, f02=»
0x1926c0…248b20 [0x378]: Pad {f00=0x00f4, f01=0x0190, f02=» LD A2,VTRLE,A4 P ST A2,FDBRLE,A12 P LC A2,VTBLF,A4 2 P SC A2,FDBBLF,A12 J P LC A2,VTNIF,A4 d P SC A2,FDBNIF,A12 | P LD A2,VTKA,A4 P ST A2,FDBKA,A12 P LD A2,TASVRN P ST A2,FDBVTO,A12 P* P IFT MMUPAG=
0x1926c0…248b20 [0x379]: Pad {f00=0x00f4, f01=0x0004, f02=»
0x1926c0…248b20 [0x37a]: Pad {f00=0x00f4, f01=0x0190, f02=» 2 P IDENT DMINIT REL 9.2 79-11-16 870105040920 P : P* B 8 P**************************************************** L P* $ P* PHILIPS TERMINAL SYSTEM PTS P* 0 P* DMINIT = DATA MANAGEMENT INITIALIZATION P* P*
0x1926c0…248b20 [0x37b]: Pad {f00=0x00f4, f01=0x018e, f02=»FDB:S IN THE FDB AREA z > P* CLEAR THE USE BIT AND THE BUFFER HEADER IN DM BUFFERS 0 P* CLEAR USE BIT AND QUEUE ANCHOR IN TASBLK ` , P* CLEAR DM FILE CODE ENTRIES IN CD:TAB P* , P* DMINIT IS CALLED AS A PFINIT ROUTINE P* " P*
0x1926c0…248b20 [0x37c]: Pad {f00=0x00f4, f01=0x0190, f02=» P EXTRN FDBSTA P EXTRN FDBEND P EXTRN CURBUF 0 P EXTRN BUFDMI F P EXTRN BUFSNR P EXTRN BUFOR r P EXTRN TASBLK P EXTRN TASQUE P EXTRN CRNQUE,CRNEND P EXTRN CRBUFL P EJECT P* P* P* I
0x1926c0…248b20 [0x37d]: Pad {f00=0x00f4, f01=0x0190, f02=» P* DIV W. 2 FOR 16 K LIMIT P* ( P LDR A5,A4 2 P SRL A5,1 D P LDR A1,A6 V P SRL A1,1 h P CWR A5,A1 z " P RF(G) DMIN40 END OF FDB AREA P STR A4,A3 CHAIN P LDR A3,A4 P RB DMIN30 PDMIN40 EQU * P SUR A3,
0x1926c0…248b20 [0x37e]: Pad {f00=0x00f4, f01=0x0190, f02=»ALIZATIONS IF POWER FAIL RESTART P* ( P LD A1,INIFLG 2 P RF(Z) DMINEX H P LDKL A2,QFDBFL FDB LENGTH ^ P* $ P* CHAIN FDB:S IN THE FDB AREA P* P LDKL A3,FDBSTA P LDKL A6,FDBEND P CF A15,DMIN30 P*
0x1926c0…248b20 [0x37f]: Pad {f00=0x00f4, f01=0x0190, f02=» P CF A15,DMIN30 P* < P* CLEAR USE BIT AND BUFFER HEADER WORDS IN DM BUFFERS $ P* d P LDKL A2,/FFFE n P LD A3,CURBUF PDMIN50 LDR* A3,A3 P ANRS A2,A3 CLEAR USE BIT P CM BUFDMI,A3 P CM BUFSNR,A3 P CM BUFO
0x1926c0…248b20 [0x380]: Pad {f00=0x00f7, f01=0x405a, f02=»LK P CM TASQUE P* PDMINEX EQU * & P RTN A15 : P END J@ V
0x1926c0…248b20 [0x381]: Pad {f00=0x00f7, 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
0x1926c0…248b20 [0x382]: Pad {f00=0x00f7, f01=0x0190, f02=» J F IDENT DMTASS REL 9.2 79-11-16 870105040920 ( $ DMTASSK VTLRN VLVBA VLVRL SECTLEA R VLVBA ~ VLVRL VTLRN SECTLEA TASECB ECBBA ECBRC , (
0x1926c0…248b20 [0x383]: Pad {f00=0x00f7, f01=0x018e, f02=» : t TASMXAE TASASB & VOLCHE 8 , ( 7H@ A A " P "" J TASCVO z CLRBUF * & Q H P @ TASVOL ECBFC ECBRL ECBCW
0x1926c0…248b20 [0x384]: Pad {f00=0x00f7, f01=0x0190, f02=» TASVLEP , ( L " TOP A " L TASVRL F , ( B A $ L C & @ $ X TASFIL , ( " A $Q @ A @ DMTRBU , ( ( B * D *
0x1926c0…248b20 [0x385]: Pad {f00=0x00f7, f01=0x018e, f02=» j , ( G & @ (T , ( a A " 0" : , ( U _ L !SSP !LL j TASCXOS , ( W L @ , A ,V TASSEXR TASXLBP , (
0x1926c0…248b20 [0x386]: Pad {f00=0x00f7, f01=0x0190, f02=» FDBVTO , ( H 4 2% P R 6 X T R FDBMIA# J , ( 8 @ "T R :T @ ( , ( 6 4 2% P QFDBFL , ( = 2 < P % DWTST
0x1926c0…248b20 [0x387]: Pad {f00=0x00f7, f01=0x0190, f02=» E 3 P S F P S FDBRLE " FDBBLF 4 FDBNIF F * & F P S H P S J P % S X FDBKA FDBMEC * & L P & S N @ " S 8 DWTMEC , ( @ P S R B |
0x1926c0…248b20 [0x388]: Pad {f00=0x00f5, f01=0x4076, f02=» T P P U W P #P 'P 7W CR OV WT gP wW Rb R T W, R < `@ r
0x1926c0…248b20 [0x389]: Pad {f00=0x00f5, f01=0x0010, f02=»
0x1926c0…248b20 [0x38a]: Pad {f00=0x00f5, f01=0x0190, f02=» 2 P IDENT DMTASS REL 9.2 79-11-16 870105040920 P : P* =3 PR 5141 B P* = 79-04-06 X P* =2 WAIT AT VTOC READ n P* REL 9.1 79-04-06 P* =1, PR 3413 P* REL 9.1 78-10-25 P P P* P* 8 P********
0x1926c0…248b20 [0x38b]: Pad {f00=0x00f5, f01=0x0190, f02=»LE CODE DISC I/O HANDLING z P* " P* , P* 6 P* @ P* J P* T 8 P**************************************************** ^ P* * P* THIS MODULE IS ACTIVATED FROM TASS P* B P* INPUT A2 = TID TASK IDENT OF DMTASK AT P
0x1926c0…248b20 [0x38c]: Pad {f00=0x00f5, f01=0x0190, f02=» ASSIGNED CAN X L P* RECIDE ARE DEFINED. ON THESE VOLUMES THE VTOC:S ARE SEARCHED TO FIND D P* ALL EXTENTS FOR THE FILE TO BE ASSIGNED. FOR EACH EXTENT ITS f > P* FILE-SECTION-NO, FILE-EXTENT-NO,FILE-EXTENT-LENGTH AND . P* FILE-EXTENT-BASE ARE S
0x1926c0…248b20 [0x38d]: Pad {f00=0x00f5, f01=0x0190, f02=»-LENGTH, BLOCKING-FACTOR AND VTOC-REC-NO r P* ARE SAVED TOO. 0 L P* WHEN THE FIRST EXTENT HAS BEEN FOUND EXISTING FDB:S CAN BE SEARCHED J L P* TO CHECK IF THE FILE TO BE ASSIGNED HAS PREVIOUSLY BEEN ASSIGNED TO L P* ANOTHER FILE CODE. IF SO THE
0x1926c0…248b20 [0x38e]: Pad {f00=0x00f5, f01=0x0190, f02=»EN A NEW FDB MUST BE INITIALIZED AND THE REST OF THE 4 P* VOLUMES ARE CHECKED TO FIND ALL FILE EXTENTS < P* t 2 P* FOR INDEX ASIGN THE PRODGRAM IS RUN TWICE. ~ 4 P* DURING THE FIRST LOOP A MASTERINDEX IS READ. . P* FC 13 IN TTAB FOR DMTASK I
0x1926c0…248b20 [0x38f]: Pad {f00=0x00f5, f01=0x018e, f02=»MTASS P ENTRY VTLRN P ENTRY VLVBA " P ENTRY VLVRL 6 P ENTRY SECTLE J P EJECT ` P* n P***************** x P* EXTERNALS * P***************** P* P EXTRN QTJOB P EXTRN FNDTID,TTB:TD P* P
0x1926c0…248b20 [0x390]: Pad {f00=0x00f5, f01=0x0190, f02=» P EXTRN ECBRL P EXTRN ECBRC P EXTRN ECBCW , P* @ P EXTRN TIODM J P EXTRN DMTGBU ^ P EXTRN DMTRBU t P EXTRN CLRBUF P EXTRN BUFSTA P EXTRN BUFSNR P EXTRN BUFDMI P* P EXTRN QFDBFL P EXTRN F
0x1926c0…248b20 [0x391]: Pad {f00=0x00f5, f01=0x0190, f02=»BAS P EXTRN FDBRLE P EXTRN FDBBLF " P EXTRN FDBVTO 8 P EXTRN FDBLRN N P EXTRN FDBNIF,FDBKA d & P EXTRN FDBMIA,FDBAI1,FDBADF,FDBCRL . P EXTRN FDBSNR,FDBMRN,GTLGRN,EXTELE,FDBCEX P EXTRN FDBDBR,FDBMRO . P EXTRN FDBMEC MMU
0x1926c0…248b20 [0x392]: Pad {f00=0x00f5, f01=0x0190, f02=» P EXTRN TASCXO P EXTRN TASSEX P EXTRN TASXLB 0 P EXTRN TASFDB F P EXTRN TASVRL P EXTRN TASVLE r P EXTRN TASVRN P EXTRN TASECB P EXTRN TASFIL,TASTID,TASMXA P EXTRN TASSPW,TASFDD,TASTBE P EXTRN TASCAQ
0x1926c0…248b20 [0x393]: Pad {f00=0x00f5, f01=0x018e, f02=» PX:B EQU 0 4 PINDXAC EQU 00000 INDEX ACCESS FUNCTIONS WHEN = 1 P* N . P* A PROGRAM VERSION USING TOSS MMU PAGING X * P* IS OBTAINED BY SETTING MMUPAG EQU 1. P* PMMUPAG EQU 1 P* P EJECT P* P************
0x1926c0…248b20 [0x394]: Pad {f00=0x00f5, f01=0x0190, f02=» PVLVRL EQU 14 PVLVER EQU 34 P* , PVTFSNO EQU 8 6 PVTFXNO EQU 10 J PVTFXLE EQU 14 ` PVTFXBA EQU 18 v PVTLRN EQU 21 PVTRLE EQU 24 PVTBLF EQU 26 PVTFIOR EQU 27 PVTNIF EQU 37 PVTKA EQU 38 P*
0x1926c0…248b20 [0x395]: Pad {f00=0x00f5, f01=0x0190, f02=»RDS P DATA 0,0 STACK PDMTA14 EQU *-2 $ P EJECT : P* H P************** R P* DMTIOC * h P************** ~ P* : P* ENTRY DMTIOC CHECK RETURN CODES AFTER DISC I/O > P* RETURN TO DMTASX WITH A7=
0x1926c0…248b20 [0x396]: Pad {f00=0x00f5, f01=0x0190, f02=»FF BIT 7 ONLY RETRIES P RF(Z) DMTIOX P ADKL A14,4 4 P ANK A1,/80 H $ P RF(NZ) DMT060 NEW VOLUME LOADED P SUKL A3,BUFSTA , P CM BUFDMI,A3 CLEAR VOL IDENT IN BUFFER P LDK A7,1 P ABL DMTASX DISC I/O ERROR PDMTIOX EQU
0x1926c0…248b20 [0x397]: Pad {f00=0x00f5, f01=0x0190, f02=»QU * 8 P LDKL A14,DMTA14 INITIALIZE DMTASK A14 STACK POINTER P ST A2,TASTID TASK IDENT H P CM TASMXA MASTER INDEX ADDR h P ANK A2,/2 P RF(Z) DMT010 NOT FLEXTASC P* & P* PERFORM VOLUME CHECK WITH LOCK P* P LD A8,TASAS
0x1926c0…248b20 [0x398]: Pad {f00=0x00f5, f01=0x0190, f02=»DR A1,A1 P RF(Z) DMT010 OK P LDK A7,4 VOL UNKNOWN ( P SUR A8,A8 NO BUFFER =3 F P ABL DMTASX f PDMT010 EQU * z P* P LDKL A8,TASECB P* 6 P LD A1,TASCVO OFFSET INTO TASVOL FOR FIRST VOLUME PDMT050 EQU * , P C
0x1926c0…248b20 [0x399]: Pad {f00=0x00f5, f01=0x0190, f02=» LDKL A2,SECTLE " P ST A2,ECBRL,A8 SECTOR LENGTH P LDK A2,0 > 0 P ST A2,ECBCW,A8 SECTOR #0 VL (VOLUME LABEL) P P* P* 2 P CF A14,DMTGBU GET A DM BUFFER ADDRESS IN A3 P DATA /5700 NOP. READ ALWAYS P ADKL A3,BUFSTA & P
0x1926c0…248b20 [0x39a]: Pad {f00=0x00f5, f01=0x0190, f02=»IT =2 P LKM P DATA 1 =2 . P LDKL A14,DMTA14 SET UP A14 STACK POINTER . P CF A14,DMTIOC I/O CHECK ` P LD A2,VLVER,A3 VERSION & P CWK A2,'TO' DTOSS FORMATED DISC? P RF(E) DMT100 YES P LDK A7,8 NO P ABL DMTASX ERROR
0x1926c0…248b20 [0x39b]: Pad {f00=0x00f5, f01=0x018e, f02=»3 VTOC BASE . P ST A2,ECBCW,A8 1:ST VTOC SECTOR NO = FSAT & P LD A9,VLVRL,A3 VTOC RECORD LENGTH F P ST A9,TASVRL p P EJECT P* P* SEARCH ALL VTOC:S P* PDMT110 EQU * P LD A6,TASVLE P SUK A6,1 P ST A6,T
0x1926c0…248b20 [0x39c]: Pad {f00=0x00f5, f01=0x018e, f02=» P LD A1,TASCVO P SUK A1,2 & P ABL(N) DMT300 ALL VOLUMES CHECKED 0 P ST A1,TASCVO UPDATE TASCVO Z $ P LDK A7,7 TOO MANY FILE SECTIONS ~ P LD A3,TASFIL " P ABL(NZ) DMTASX NOT DATA FILE P LD A3,ECBBA,A8 P SUKL A3,BUFSTA
0x1926c0…248b20 [0x39d]: Pad {f00=0x00f5, f01=0x0190, f02=» P* ACTIVATE NEXT DM TASK P* * P ADKL A7,'#D' 4 P LKM J P DATA -4 V P DATA DMTASS f P LKM z P DATA 3 EXIT P EJECT P* & P* READ NEXT VTOC SECTOR AND EXIT P* PDMT115 EQU * P LD A3,ECBBA,A8
0x1926c0…248b20 [0x39e]: Pad {f00=0x00f5, f01=0x0190, f02=» LD A1,TASVOL,A1 P CF A14,DMTGBU GET BUFFER P DATA /5700 NOP. READ ALWAYS : P ADKL A3,BUFSTA ^ P ST A3,ECBBA,A8 v P ST A2,ECBCW,A8 P LDK A7,/91 WAIT =2 P LKM P DATA 1 =2 P LDKL A14,DMTA14 P CF A14,DMTIOC
0x1926c0…248b20 [0x39f]: Pad {f00=0x00f5, f01=0x0190, f02=» $ P RF(NE) DMT135 NOT MASTER INDEX " P ADKL A11,14 MX FILE NAME ADDR , PDMT135 EQU * R P ADK A3,2 SKIP CYLID f PDMT120 EQU * ( P IM TASVRN INCREMENT VTOC RECORD NO P LDR A4,A3 " P ADR A4,A9 ADDRESS STATUS BYTE P LCR A2,A4
0x1926c0…248b20 [0x3a0]: Pad {f00=0x00f6, f01=0x0190, f02=»AME MAX 4 WORDS PDMT150 EQU * P LDR* A10,A4 , P CWR* A10,A7 @ P ABL(NE) DMT250 NO MATCH T P SUK A2,1 t . P RF(NP) DMT160 ALL 4 FILE NAME WORDS MATCH P ADK A4,2 P ADK A7,2 P RB DMT150 CHECK NEXT WORD P* ( P*
0x1926c0…248b20 [0x3a1]: Pad {f00=0x00f6, f01=0x0190, f02=»F(E) DMT165 YES P CCK A2,'LL' LIBRARY FILE ? P ABL(NZ) DMT250 NO < P LDK A2,0 FILE EXTENT NUMBER V P RF DMT167 z . PDMT165 LD A2,VTFSNO,A3 FILE SECTION NUMBER P EJECT PDMT167 EQU * P* . P* GET INFO FROM VTOC AND SAVE
0x1926c0…248b20 [0x3a2]: Pad {f00=0x00f6, f01=0x0190, f02=»1,4 P ST A1,TASCXO P RF(NN) DMT170 <= 4 EXTENTS " P LDK A7,9 F * P ABL DMTASX MORE THAN 4 EXTENTS EXIST X PDMT170 EQU * " P ECR A2,A2 TO LEFT HALF OF A2 4 P LC A2,VTFXNO+1,A4 EXT NO INTO RIGHT HALF OF A2 P ST A2,TASSEX,A1
0x1926c0…248b20 [0x3a3]: Pad {f00=0x00f6, f01=0x0190, f02=» P LD A2,VTFXBA,A4 EXTENT BASE P ST A2,TASXLB+2,A1 ( P LD A2,TASSEX,A1 B $ P RF(NZ) DMT250 NOT FIRST EXTENT Z P EJECT P* FIRST FILE EXTENT < P* CHECK IF AN FDB DESCRIBING THE FILE ALREADY EXISTS. P* P LD A12,TASFDB
0x1926c0…248b20 [0x3a4]: Pad {f00=0x00f6, f01=0x0190, f02=»A12,FDBSTA PDMT200 EQU * P LDR* A5,A12 & P ANK A5,/01 : P RF(Z) DMT210 FREE N P LD A2,FDBEXT,A12 h P CW A2,TASVOL,A6 " P RF(NE) DMT210 NOT SAME VOLUME P LD A2,FDBVTO,A12 P CW A2,TASVRN $ P RF(NE) DMT210 NOT SAME VT
0x1926c0…248b20 [0x3a5]: Pad {f00=0x00f6, f01=0x0190, f02=»DB FOUND n PDMT205 EQU * P LDK A7,5 FILE CODE USED $ P ABL DMTASX D P* X $ PDMT210 LDR* A12,A12 GET NEXT FDB b P ANKL A12,/FFFE ( P RB(NE) DMT200 MORE FDB:S TO SEARCH P* 0 P* NO MATCHING FDB EXIST FIND A FREE FDB
0x1926c0…248b20 [0x3a6]: Pad {f00=0x00f6, f01=0x0190, f02=» v P ANKL A12,/FFFE & P RB(NE) DMT220 MORE FDB:S TO CHECK P LDK A7,3 J P ABL DMTASX NO FDB AVAILABLE ( P* INITIALIZE FDB ZERO FROM FDB+2 P* PDMT230 EQU * P ST A12,TASFDB P LDR A10,A12 P ADKL A10,QFDBFL
0x1926c0…248b20 [0x3a7]: Pad {f00=0x00f6, f01=0x0190, f02=» RB DMT233 PDMT237 EQU * P LDKL A2,/8000 & P* DEV NOT BUSY < P ST A2,DWTST,A12 T P LDKL A2,TIODM l P ST A2,DWTADR,A12 P LDKL A2,SECTLE P LDR A1,A12 P ADKL A1,FDBECB P ST A2,ECBRL,A1 P LDK A2,/01
0x1926c0…248b20 [0x3a8]: Pad {f00=0x00f6, f01=0x0190, f02=» P LD A2,VTRLE,A4 P ST A2,FDBRLE,A12 P LC A2,VTBLF,A4 6 P SC A2,FDBBLF,A12 N P LC A2,VTNIF,A4 h P SC A2,FDBNIF,A12 P LD A2,VTKA,A4 P ST A2,FDBKA,A12 P LD A2,TASVRN P ST A2,FDBVTO,A12 P* P IFT MMU
0x1926c0…248b20 [0x3a9]: Pad {f00=0x00f6, f01=0x0190, f02=» ECB IN FDB l P XIF P* P EJECT * P* 8 P* CHECK NEXT VTOC RECORD B P* d PDMT250 EQU * n P* A3 = ADR 1ST REC P* A9 = VTOC REC LGTH P ADR A3,A9 P ADK A3,1 SKIP STATUS BYTE P LDR A2,A3 P SU A2,E
0x1926c0…248b20 [0x3aa]: Pad {f00=0x00f6, f01=0x0190, f02=»* ALL VTOCS IN ALL VOLUMES ARE SEARCHED AT THIS POINT P* @ PDMT300 EQU * J P LDK A3,16 ^ P SU A3,TASCXO p P RF(NZ) DMT310 P LDK A7,6 P RF DMTASX FILE NAME UNKNOWN PDMT310 EQU * P LD A12,TASFDB P RF(NZ) DMT320
0x1926c0…248b20 [0x3ab]: Pad {f00=0x00f6, f01=0x0190, f02=»ENDING ORDER f 8 P* ACCORDING TO INCREASING SECTOR NO AND EXTENT NO ! P* ! P PDMT320 EQU * ! Z P* ! n @ P* CHECK IF RECORD BUFFERS ARE LARGE ENOUGH FOR INDEX FILE ! x P* ! P LD A6,TASFIL ! P RF(Z) DMT330 DATA FILE ASS ! $ P LD A6,FDB
0x1926c0…248b20 [0x3ac]: Pad {f00=0x00f6, f01=0x0190, f02=» OK ! P LDK A7,12 " * P RF DMTASX RECORD BUFFER IS TOO SMALL " PDMT330 EQU * " L P LDR A6,A12 " ` P* FDB ADDR " t P ADKL A6,FDBEXT " P LDK A2,0 " P LDR A5,A3 " P SRL A5,2 NUMBER OF EXTENTS " PDMT340 EQU * " P LDK A4,16 "
0x1926c0…248b20 [0x3ad]: Pad {f00=0x00f6, f01=0x0190, f02=»E EXTENTS TO CHECK " ~ P* # , P* THE EXTENT SEARCHED FOR IS NOT FOUND # $ 2 P* CHECK IF RIGHT HALF OF A2 = 0 (EXT-NO = 0) # T P* # P LDR A1,A2 # P ANK A1,/FF # $ P RF(NZ) DMT370 TRY NEXT SECTION # P* # PDMT355 EQU * # P LDK A7,7
0x1926c0…248b20 [0x3ae]: Pad {f00=0x00f6, f01=0x0190, f02=» LD A1,TASSEX+2,A4 # P LD A1,TASVOL,A1 $ P ST A1,EXTDMI,A6 $ 2 P LD A1,TASXLB,A4 $ J P ST A1,EXTLEN,A6 $ b P LD A1,TASXLB+2,A4 $ z P ST A1,EXTBAS,A6 $ P ADK A6,6 $ P SUK A5,1 $ & P RF(NP) DMT500 ALL EXTENTS HANDLED $ P* $ : P* FI
0x1926c0…248b20 [0x3af]: Pad {f00=0x00f6, f01=0x0190, f02=» A1,3 $ " P RF(NE) DMT380 NOT EXT-NO = 3 % PDMT370 EQU * % 4 P ECR A1,A2 % H P ANK A1,/FF % Z P SUK A1,3 % n P RB(E) DMT355 SECTION-NO = 3 % " P ADK A1,4 INCREMENT SECTION-NO % P ECR A2,A1 EXT-NO = 0 % P RB DMT340 % $ PDMT380 ADK A2,1
0x1926c0…248b20 [0x3b0]: Pad {f00=0x00f6, f01=0x018e, f02=»CH WERE UNLOCKED BEFORE % j P* & P LDR A5,A7 & * P LDR A6,A8 SAVE & < P LDK A1,3 LOOP & T PDMTASY EQU * & j P LC A2,TASLFD,A1 FILE CODES & ~ P ANK A2,/FF & P RF(Z) DMTASZ NO CODE & P LDKL A8,TASECB & P SC A2,TASECB+1 & P LDK A
0x1926c0…248b20 [0x3b1]: Pad {f00=0x00f6, f01=0x0190, f02=» & P LDR A8,A6 ' P RF DMT401 =1 END ' P* ' 4 ( P* PUT FDB ADDRESS INTO TTAB/CD:TAB ' > P* ' j PDMT400 EQU * ' t P LDK A7,0 ' PDMT401 EQU * =1 ' , P LD A2,TASTBE TTAB/CDTAB FILE CODE ADDR ' P LDR A7,A7 ' P RF(Z) DMT420 CORRECT
0x1926c0…248b20 [0x3b2]: Pad {f00=0x00f6, f01=0x018e, f02=»DDR ' t " P RF(Z) DMT410 NO MASTER INDEX ( P INH INH ( 2 ( P LD A2,MXIND SIEZE MASTERINDEXINDEX ( D P SUK A2,2 ( p PDMT405 EQU * ( P SUK A2,4 NEXT OFFSET ( P RF(NN) DMT407 OK ( * P RF DMT408 MASTER INDEX MUST BE FOUND ( PDMT407 CW A4,M
0x1926c0…248b20 [0x3b3]: Pad {f00=0x00f6, f01=0x0190, f02=» ( ~ PDMT410 EQU * ) P LD A3,TASFDB ) P RF(Z) DMT430 NO FDB USED ) 2 P LDKL A2,/FFFE ) T " P ANRS A2,A3 CLEAR FDB USE BIT ) j P RF DMT430 ) PDMT420 EQU * ) P ST A12,1,A2 FDB ADDR ) PDMT430 EQU * ) P LDR A8,A8 ) P RF(Z) DMT440 NO
0x1926c0…248b20 [0x3b4]: Pad {f00=0x00f6, f01=0x0190, f02=»UF RELEASE ALL FREE BUFFERS ) & P CF A14,TASCAQ CHECK ASSIGN QUEUE * $ $ P CF A15,QTJOB QUEUE CALLING TASK * N P ENB * v P LKM * P DATA 3 * P EJECT * PDMT500 EQU * * P LD A6,TASFIL * P ABL(Z) DMT700 DATA FILE * P IFF INDXAC=1 *
0x1926c0…248b20 [0x3b5]: Pad {f00=0x00f6, f01=0x018e, f02=» EJECT * P* + " P* THIS IS MASTER INDEX LOOP. + 8 P* CONNECT FDB TO FILE CODE IN DMTASK TTAB AND READ + > < P* MASTER INDEX WITH SEQUENTIAL READ ON THIS FILE CODE + z P* + P LD A7,TASTID DMTASK ID + P INH + " P CF A15,FNDTID TTAB ADDR T
0x1926c0…248b20 [0x3b6]: Pad {f00=0x00f6, f01=0x0190, f02=» P SC A3,TASECB+1 , " P ST A3,TTB:TD+2,A2 TTAB ENTRY , P ST A12,TTB:TD+4,A2 FDB ADR , B P LD A3,ECBBA,A8 , f P SUKL A3,BUFSTA , ~ " P CF A14,DMTRBU RELEASE BUFFER , P* , 0 P* CALC NO OF WORDS NEEDED IN MASTRE INDEX , P* , P LD A6
0x1926c0…248b20 [0x3b7]: Pad {f00=0x00f6, f01=0x018e, f02=»RR A2,A1 GET MOST SIGN BIT , P ADK A2,5 - " P SRL A2,1 NO OF WORDS NEEDED - 4 P RF(Z) DMT570 WRONG SIZE - X P INH - x P LD A4,MXIND LENGTH MXIND - P SUK A4,4 MAX A5 VALUE - P LDKL A5,-2 OFFSET - PDMT540 EQU * - P ADK A5,4 GET ENTRY -
0x1926c0…248b20 [0x3b8]: Pad {f00=0x00f6, f01=0x0190, f02=» - | P RB(N) DMT540 ENTRY USED . P SUR A6,A2 NO OF SPARE WORDS . ( & P RB(N) DMT540 LARGER ENTRY NEEDED . L P* . v P* SUFFICIENT SPACE FOUND . P* . P LDKL A1,/8000 USED BIT . & P ORS A1,MXIND+2,A5 MARK ENTRY USED . $ P ST A3,TASMXA MASTER
0x1926c0…248b20 [0x3b9]: Pad {f00=0x00f6, f01=0x0190, f02=»T A1,2,A3 ENTRY LENGTH . P ADK A3,4 SKIP MX HEADRER / P ST A3,ECBBA,A8 BUFFER ADDR / @ P ST A1,ECBRL,A8 REQ LGTH / d . P LDR A1,A5 MXIND ENTRY PAR TO REACTIVATION / P CWR A1,A4 MXIND ENTRY / P RF(NL) DMT590 LAST ENTRY / P LD A3,MXIND+6,A1 /
0x1926c0…248b20 [0x3ba]: Pad {f00=0x00f6, f01=0x0190, f02=»NKL A2,/7FFF REMOVE USE BIT / P SUR A2,A6 0 $ P ORKL A2,/8000 USE BIT 0 6 P ST A2,MXIND+2,A1 0 T . P ADS A6,MXIND+6,A1 MAKE NEXT ENTRY LARGER 0 n $ P LD A7,MXIND,A1 PREVIOUS POINTER 0 P SLL A2,1 NO OF BYTES 0 P ADR A7,A2 0 P ST A7,MXIND+4,A1
0x1926c0…248b20 [0x3bb]: Pad {f00=0x00f6, f01=0x0190, f02=» 0 8 P* OTHER REQ TO THE SAME FILE CODE ARE NOT POSSIBLE 1 < P* BECAUSE AN INDEX FILE MUST ALWAYS BE ASSIGNED COMMON 1 D P* 1 PDMT550 EQU * 1 & P LDK A7,/42 SEQ READ,NOWAIT,NO EA 1 P LKM 1 P DATA -1 1 P DATA DMTAR5 1 P LKM 1 P D
0x1926c0…248b20 [0x3bc]: Pad {f00=0x00f6, f01=0x0190, f02=»NKL A2,/FEFF BIT 7 ONLY RETRIES 1 P RF(Z) DMT560 NO ERROR 2 ( P* 2 F " P* REMOVE THE ONLY CRN BUFFER 2 P P* 2 v P LD A4,TASFDB FDB ADDR 2 P LD A5,FDBCRL,A4 CRN BUF ADR 2 P RF(Z) DMT553 NO CRN 2 P CM FDBCRL,A4 2 P INH 2 P LD A6,CRN
0x1926c0…248b20 [0x3bd]: Pad {f00=0x00f6, f01=0x018e, f02=»EADY ,WHOLIE MXINDEX IS READ 2 P LDK A7,7 3 $ PDMT555 SUR A8,A8 NO BUFFER 3 6 P ABL DMTASX DISC IO ERR 3 X PDMT560 EQU * 3 x P* 3 P* RECORD READ,READ NEXRT 3 P* 3 P LD A2,ECBRL,A8 3 P ADS A2,ECBBA,A8 REC LENGTH 3 P RB DMT550 R
0x1926c0…248b20 [0x3be]: Pad {f00=0x00f6, f01=0x0190, f02=» 3 P* 4 2 P* MASTER INDE X READUY. RERUN FOR INDEX FILE 4 P* 4 H P LDK A1,1 4 R P ST A1,TASFIL INDEX FILE 4 d " P LD A3,TASSPW TTAB ADR DMTASK 4 P CM TTB:TD+2,A3 DELETE ENTRY 4 P CM TTB:TD+4,A3 4 P LD A3,TASFDB FDB ADDR 4 P LDKL
0x1926c0…248b20 [0x3bf]: Pad {f00=0x00f6, f01=0x0190, f02=» ENTRY POSSIBLE 4 ~ P LDK A1,0 5 2 P* TASCVO REMAINS ZERO FROM MASTER INDEX LOOP 5 * P ABL DMT050 ASSIGN INDEX 5 ` P EJECT 5 PDMT600 EQU * 5 P* 5 P* INDEX FILE ASSIGN 5 P* 5 P LDK A7,10 RET CODE 5 & P LD A10,TASFDD FDB ADDR DA
0x1926c0…248b20 [0x3c0]: Pad {f00=0x00f7, f01=0x0190, f02=» LC A3,DWTST,A10 5 P ANK A3,/40 6 & P RF(NZ) DMT639 OTHER REQUEST BUSY 6 , P LDK A3,8 MAX NO OF INDE*2 6 V PDMT620 EQU * 6 x P SUK A3,2 6 $ P RF(N) DMT640 MORE THAN 4 INDEX 6 P LDR A6,A10 6 P ADR A6,A3 6 P LD A2,FDBAI1,A6 6 P RB(NZ
0x1926c0…248b20 [0x3c1]: Pad {f00=0x00f7, f01=0x0190, f02=» 6 X P* 7 P LDK A5,8 NR OF INDEX *2 7 PDMT625 EQU * 7 2 P SUK A5,2 7 F " P RF(N) DMT635 ALL FDB UPPDATED 7 X P LDR A1,A10 FDB DATA 7 ~ P ADR A1,A5 7 $ P LD A3,FDBAI1,A1 FDB ADDR INDEX 7 P RB(Z) DMT625 NO INDEX FILE 7 P LDKL A1,FDBADF 7
0x1926c0…248b20 [0x3c2]: Pad {f00=0x00f7, f01=0x0190, f02=»25 7 PDMT635 EQU * 8 P LC A1,DWTST,A10 8 0 P SC A1,DWTST,A12 SAME BUSY BITS AS DATA FILE 8 6 P ENB ENB 8 j P LD A1,TASMXA 8 | ( P ST A1,FDBMIA,A12 MASTER INDEX ADDR 8 P RF DMT720 8 ( PDMT639 ADK A7,2 A7=13=OTHER REQ BUSY 8 * PDMT640 ADK A7,
0x1926c0…248b20 [0x3c3]: Pad {f00=0x00f7, f01=0x0190, f02=»IGN DATA FILE 8 & P ST A12,FDBADF,A12 FDB ADDR TO FDB 9 P LD* A1,TASASB ASBLK ADDR 9 @ P ANKL A1,/6000 9 b P SLL A1,1 9 x $ P ORS A1,FDBDBR,A12 DELAY + BASIC 9 PDMT720 EQU * 9 P* 9 ( P* SET FDBMRN TO MAX REC NO IN FILE 9 P* 9 P LDR
0x1926c0…248b20 [0x3c4]: Pad {f00=0x00f7, f01=0x018e, f02=»750 9 P AD A2,-2,A1 : P SUKL A1,EXTELE-2 : P ST A1,FDBCEX,A12 : : P SUK A2,1 : T P ST A2,FDBSNR,A12 : f P LDR A1,A12 : " P CF A14,GTLGRN GET LOG REC NO : P LDK A1,0 : " P LC A1,FDBBLF,A12 BLOCK FACTOR : P SUK A1,1 : P ADR A
0x1926c0…248b20 [0x3c5]: Pad {f00=0x00f7, f01=0x4154, f02=» P ST A3,FDBMRN+1,A12 ; P* ; 4 P* CALCULATE FDBMRO WHICH IS MAX FDBRRO IN FILE ; * P* ; b P LD A6,FDBRLE,A12 REC LENGTH ; l P ADK A6,1 ; P LDK A7,0 ; P LC A7,FDBBLF,A12 BLOCK FACT ; P SUK A7,1 ; P CF A14,MPYMOD A1,A2=A6*A7 ;
0x1926c0…248b20 [0x3c6]: Pad {f00=0x00f7, f01=0x2008, f02=» < EXIT P* P ENB P LKM * P DATA 3 6 P END F@ RA2,/FFFE P " P ANRS A2,A3 CLEAR FDB USE BIT f P RF DMT430 PDMT420 EQU * P ST A12,CDTAB+2,A2 PDMT430 EQU * P LD A3,ECBBA,A8 P SUKL A3,BUFSTA
0x1926c0…248b20 [0x3c7]: Pad {f00=0x00f7, f01=0x0190, f02=»SET FDB FREE < PDMTA40 EQU * = * P CF A14,CLRBUF REMOVE ALL FREE BUFFERS = ( P LDR A1,A7 NEW FDB ADDR = V P ABL(Z) DMTERX NO MORE FDBS = v P IFT INDXAC=1 = P ENB ENB = P* = 4 P* FIND WHICH DMTASK IS NEXT AND ACTIVATE THAT = P* =
0x1926c0…248b20 [0x3c8]: Pad {f00=0x0049, f01=0x0190, f02=» _R" 2 O P " P W ] _r PR sd V 0 s " 1 ZJ_, C N C PR C P_ C ( O : B s& E _D {T * `T ; : B P = ] Y B : % PD 7 P R C ( B ! PV$ B + E E
0x1926c0…248b20 [0x3c9]: Pad {f00=0x0049, f01=0x0008, f02=» (
0x1926c0…248b20 [0x3ca]: Pad {f00=0x0049, f01=0x0190, f02=» 0 P IDENT DMBUF REL 9.2 79-11-16 870105040920 P 8 P* @ 8 P**************************************************** J P* $ P* PHILIPS TERMINAL SYSTEM PTS P* . P* DMBUF = DATA MANAGEMENT BUFFER AREAS P* P* P*
0x1926c0…248b20 [0x3cb]: Pad {f00=0x0049, f01=0x018e, f02=»FOR DMTASK v P* . P* A ROUTINE DMTGBU TO GET A DISC BUFFER P* N L P* BY MEANS OF CONDITIONAL ASSEMBLY QNBUF NUMBER OF BUFFERS WILL BE ALL X P* P* MAX VALUE OF QNBUF IS 16 P* > P* AT LEAST TWO BUFFERS PER DISC DRIVE MU
0x1926c0…248b20 [0x3cc]: Pad {f00=0x0049, f01=0x018e, f02=» ( P ENTRY CURBUF CURRENT BUFFER POINTER P ENTRY BUFLNK BUFFER LINK 4 P ENTRY BUFDMI DMTASK IDENT V P ENTRY BUFFC FILE CODE x P ENTRY BUFSNR SECTOR NO P ENTRY BUFOR ORDER * P ENTRY BUFSTA DATA AREA START ADDRESS P ENTRY DMTGB
0x1926c0…248b20 [0x3cd]: Pad {f00=0x0049, f01=0x0190, f02=» P EJECT $ PX:A EQU 8 NUMBER OF DISC BUFFERS PQNBUF EQU 00004 : P* R P* PCURBUF DATA BUF1 f PNEWBUF DATA 0 ~ P* P* PBUFLNK EQU 0 2 PBUF1 DATA BUF2 BUFFER LINK STATUS IN BIT 15 PBUFDMI EQU *-BUF1 DMI
0x1926c0…248b20 [0x3ce]: Pad {f00=0x0049, f01=0x0190, f02=» LRU-WORD " P DATA 0 BUFFER STATUS,DM ORDER ( PBUFSTA EQU *-BUF1 DATA BUFFER START 8 P RES 205 d P* t P* ~ P IFT QNBUF=1 PBUF2 EQU BUF1 P XIF P* P* P IFF QNBUF=1 PBUF2 DATA BUF3 P DATA 0,0,0
0x1926c0…248b20 [0x3cf]: Pad {f00=0x0049, f01=0x018e, f02=»NBUF=1 P IFF QNBUF=2 PBUF3 DATA BUF4 " P DATA 0,0,0 8 P RES 205 L P XIF P* h P* r P IFT QNBUF=3 | PBUF4 EQU BUF1 P XIF P* P* P IFF QNBUF=1 P IFF QNBUF=2 P IFF QNBUF=3 PBUF4 DAT
0x1926c0…248b20 [0x3d0]: Pad {f00=0x004c, f01=0x0190, f02=» P* P* P IFF QNBUF=1 P IFF QNBUF=2 , P IFF QNBUF=3 @ P IFF QNBUF=4 T PBUF5 DATA BUF6 h P DATA 0,0,0 ~ P RES 205 P XIF P* P* P IFT QNBUF=5 PBUF6 EQU BUF1 P XIF P* P*
0x1926c0…248b20 [0x3d1]: Pad {f00=0x004c, f01=0x018e, f02=»0 P RES 205 P XIF P* & P* 0 P IFT QNBUF=6 : PBUF7 EQU BUF1 N P XIF d P* p P* z P IFF QNBUF=1 P IFF QNBUF=2 P IFF QNBUF=3 P IFF QNBUF=4 P IFF QNBUF=5 P IFF QNBUF=6 PBUF7 DATA BUF8
0x1926c0…248b20 [0x3d2]: Pad {f00=0x004c, f01=0x018e, 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 PBUF8 DATA BUF9 P DATA 0,0,0 P RES 205 P XIF P* P* P IFT QNBUF=8
0x1926c0…248b20 [0x3d3]: Pad {f00=0x004c, f01=0x0190, f02=» P IFF QNBUF=5 P IFF QNBUF=6 P IFF QNBUF=7 , P IFF QNBUF=8 @ PBUF9 DATA BUF10 T P DATA 0,0,0 l P RES 205 P XIF P* P* P IFT QNBUF=9 PBUF10 EQU BUF1 P XIF P* P* P IFF QNBUF=1
0x1926c0…248b20 [0x3d4]: Pad {f00=0x004c, f01=0x0190, f02=»=8 P IFF QNBUF=9 PBUF10 DATA BUF11 P DATA 0,0,0 6 P RES 205 J P XIF Z P IFT QNBUF=10 f PBUF11 EQU BUF1 | P XIF P* P* P IFF QNBUF=1 P IFF QNBUF=2 P IFF QNBUF=3 P IFF QNBUF=4 P IFF QNB
0x1926c0…248b20 [0x3d5]: Pad {f00=0x004c, f01=0x0190, f02=» P DATA 0,0,0 P RES 205 P XIF ( P IFT QNBUF=11 4 PBUF12 EQU BUF1 J P XIF ` P* l P* v P IFF QNBUF=1 P IFF QNBUF=2 P IFF QNBUF=3 P IFF QNBUF=4 P IFF QNBUF=5 P IFF QNBUF=6 P IFF QNBUF=7
0x1926c0…248b20 [0x3d6]: Pad {f00=0x004c, f01=0x018e, f02=» 205 P XIF P IFT QNBUF=12 PBUF13 EQU BUF1 . P XIF D P* P P* Z P IFF QNBUF=1 d P IFF QNBUF=2 x P IFF QNBUF=3 P IFF QNBUF=4 P IFF QNBUF=5 P IFF QNBUF=6 P IFF QNBUF=7 P IFF QNBUF=8 P IFF Q
0x1926c0…248b20 [0x3d7]: Pad {f00=0x004c, f01=0x0190, f02=» P XIF P IFT QNBUF=13 PBUF14 EQU BUF1 * P XIF @ P* L P* V P IFF QNBUF=1 ` P IFF QNBUF=2 t P IFF QNBUF=3 P IFF QNBUF=4 P IFF QNBUF=5 P IFF QNBUF=6 P IFF QNBUF=7 P IFF QNBUF=8 P IFF QNBUF
0x1926c0…248b20 [0x3d8]: Pad {f00=0x004c, f01=0x018e, f02=» P RES 205 P XIF P IFT QNBUF=14 $ PBUF15 EQU BUF1 : P XIF P P* P* f P IFF QNBUF=1 p P IFF QNBUF=2 P IFF QNBUF=3 P IFF QNBUF=4 P IFF QNBUF=5 P IFF QNBUF=6 P IFF QNBUF=7 P IFF QNBUF=8
0x1926c0…248b20 [0x3d9]: Pad {f00=0x004c, f01=0x0190, f02=» PBUF15 DATA BUF16 P DATA 0,0,0 P RES 205 0 P XIF @ P IFT QNBUF=15 L PBUF16 EQU BUF1 b P XIF x P* P* P IFF QNBUF=1 P IFF QNBUF=2 P IFF QNBUF=3 P IFF QNBUF=4 P IFF QNBUF=5 P IFF QNBUF=6
0x1926c0…248b20 [0x3da]: Pad {f00=0x004c, f01=0x0190, f02=»FF QNBUF=13 P IFF QNBUF=14 P IFF QNBUF=15 * PBUF16 DATA BUF1 @ P DATA 0,0,0 X P RES 205 l P XIF | P EJECT P* P************** P* DMTGBU * P************** P* * P* ENTRY DMTGBU GET A DIS
0x1926c0…248b20 [0x3db]: Pad {f00=0x004c, f01=0x0190, f02=»ER t P* $ P* OUTPUT A3 = BUFFER ADDRESS J P* SKIP RETURN (+2) IF SECTOR MUST BE READ INTO BUFFER AT A3 < , P* A5 AND A7 WILL BE DESTROYED P* 8 P* CURBUF, BUFDMI, -FC AND -SNR WILL BE SET < P*
0x1926c0…248b20 [0x3dc]: Pad {f00=0x004c, f01=0x0190, f02=»* SEARCHED FOR IS ALREADY PRESENT IN ANY FREE BUFFER. F P* IF THIS SECTOR IS NOT FOUND A FREE SECTOR MUS BE FOUND AND IN @ P* P* P* PDMTGBU EQU * P INH INH P* 4 P* CHECK IF THIS SECTOR IS FOUND IN ANY BUFFER
0x1926c0…248b20 [0x3dd]: Pad {f00=0x004c, f01=0x0190, f02=») DMT020 WRONG VOLUME P CW A2,BUFSNR,A3 P RF(E) DMT050 SAME SECTOR NO 6 PDMT020 EQU * Z P LDK A7,/01 n & P AN A7,BUFLNK,A3 STATUS IN BIT 15 P RF(NZ) DMT041 USED P IM BUFOR,A3 MAKE OLDER P RF(P) DMT030 P LDK A7,/FF
0x1926c0…248b20 [0x3de]: Pad {f00=0x004c, f01=0x0190, f02=»T A3,NEWBUF PDMT041 EQU * P CW A3,CURBUF ( * P RB(NE) DMT010 MORE BUFFERS TO SERARCH > P LDR A5,A5 l P RF(NZ) DMT043 BUFFER FOUND ~ P LDK A1,3 LAMP 10 AND 11 P CF A15,HALT NO MORE BUFFERS PDMT043 LD A3,NEWBUF P* *
0x1926c0…248b20 [0x3df]: Pad {f00=0x004c, f01=0x0190, f02=» t " P ST A2,BUFSNR,A3 SECTOR NUMBER PDMT050 EQU * . " P CM BUFOR,A3 RESET OLD-COUNTER B P ST A3,CURBUF h P LDK A7,/01 ~ ( P ORRS A7,A3 SET STATUS USED BIT 15 P ENB ENB P RTN A14 P EJECT P* P**************
0x1926c0…248b20 [0x3e0]: Pad {f00=0x004c, f01=0x0190, f02=» BUFFER ADDRESS P* A2 IS DESTROYED P* < P* F PDMTRBU EQU * P P LDKL A2,/FFFE d P ANRS A2,A3 SET OFF BIT 15 z P RTN A14 P* P* ( PCLRBUF EQU * CLEAR ALL FREE BUFFERS @ P******************************
0x1926c0…248b20 [0x3e1]: Pad {f00=0x004c, f01=0x40b4, f02=» P AN A2,BUFLNK,A3 P RF(NZ) DMT750 USED P CM BUFDMI,A3 REMOVE 8 PDMT750 CW A3,CURBUF T P RB(NE) DMT700 MORE BUFFERS p P RTN A14 P END @ P* ( PCLRBUF EQU * CLEAR ALL FREE BUFFERS @ P******************************
0x1926c0…248b20 [0x3e2]: Pad {f00=0x004c, 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 A
0x1926c0…248b20 [0x3e3]: Pad {f00=0x004c, f01=0x018e, f02=»U * CLOSE A FILE P LDK A4,0 PTIOC10 EQU * * $ P ST A4,FDBRRO,A6 MARK ORDER TYPE > P LDK A2,0 f , P ST A2,FDBSNR,A6 SECTOR #0 VOLUME LABLE x P* ( P* LET FDBCEX POINT TO FIRST EXTENT P* P LDR A4,A6 P ADK A4,FDBEXT
0x1926c0…248b20 [0x3e4]: Pad {f00=0x004c, f01=0x0190, f02=» P LDR A1,A6 FDB ADDR 0 P LDKL A2,/C000 REMOVE BUFFERS FOR THIS TASK P CF A14,EARELB T PREL090 EQU * j P LDK A1,0 CORRECT RETURN ~ P ABL TIODME P EJECT ( PSETLRN EQU * SET LAST RECORD NUMBER P LC A1,ECBCW+3,A8 P SC
0x1926c0…248b20 [0x3e5]: Pad {f00=0x004c, f01=0x0190, f02=»DATA REC p P RF GET010 . PGETCUX LDK A7,CRNCIF+1 GET CURR INDEX REC " PGET010 LDR A1,A6 FDB ADDR T " P CF A14,CRNGET GET CRN BUFFER v P ADR A7,A2 ADDR CURR REC NO P LDK A2,0 P LC A3,-1,A7 FILE CODE P CC A3,ECBFC,A8 P R
0x1926c0…248b20 [0x3e6]: Pad {f00=0x004c, f01=0x0190, f02=»REC NO ~ P LD A2,1,A7 PGET030 EQU * " P ST A2,ECBCW,A8 6 P RB REL090 N P EJECT ` " PSEQREAD EQU * SEQUENTIAL READ n P* $ P* FIND CRN+1 AND TEST IF > LRN P* P LDR A1,A6 FDB ADDR " P CF A14,CRNGET GET CRN-BUFFER
0x1926c0…248b20 [0x3e7]: Pad {f00=0x004c, f01=0x018e, f02=»ERFLOW P RF SEQR20 PSEQR10 EQU * " P ANKL A2,/7FFF REMOVE OVERFLOW 4 P ADK A1,1 ADD CARRY Z PSEQR20 EQU * v P SC A1,ECBCW+3,A8 REC NO P ST A2,ECBCW,A8 P* $ P* CONTINUE AS FOR RANDOM READ P* P EJECT
0x1926c0…248b20 [0x3e8]: Pad {f00=0x00e9, f01=0x0190, f02=» P EXTRN ECBRL P EXTRN ECBRC P EXTRN ECBCW , P* @ P EXTRN TIODM J P EXTRN DMTGBU ^ P EXTRN DMTRBU t P EXTRN CLRBUF P EXTRN BUFSTA P EXTRN BUFSNR P EXTRN BUFDMI P* P EXTRN QFDBFL P EXTRN F
0x1926c0…248b20 [0x3e9]: Pad {f00=0x00e9, f01=0x0004, f02=» ( x
0x1926c0…248b20 [0x3ea]: Pad {f00=0x00e9, f01=0x0190, f02=» 0 P IDENT DMFDB REL 9.2 79-11-16 870105040920 P 8 P @ P* H P* R 8 P**************************************************** P* $ P* PHILIPS TERMINAL SYSTEM PTS P* , P* DMFDB = FILE DESCRIPTOR BLOCKS FDB P*
0x1926c0…248b20 [0x3eb]: Pad {f00=0x00e9, f01=0x0190, f02=»TE FDB AREA H P* BY MEANS OF CONDITIONAL ASSEMBLY QFDBAR WORDS WILL BE ALLOCATED P* ` P ENTRY FDBSTA j P ENTRY FDBEND P ENTRY QFDBFL P ENTRY CRNQUE,CRBUFL P ENTRY CRNEND P ENTRY MXIND P EJECT P* 6 P
0x1926c0…248b20 [0x3ec]: Pad {f00=0x00e9, f01=0x0190, f02=»REA r " PCRBUFL EQU 12 SIZE CRN BUFFER P* 2 < P* CRNBAR IS THE SIZE OF THE CRN BUFFER ARERA IN WORDS < 4 P* WHERE CRBUFL BYTES ARE USED FOR EACH BUFFER | P* PX:B EQU 50 " PCRNBAR EQU 00360 CURRENCY AREA P* P* P
0x1926c0…248b20 [0x3ed]: Pad {f00=0x00e9, f01=0x0190, f02=» P* PQFDBAR EQU 00684 P* & PX:D EQU 96 0 ( PQFDBFL EQU 00114 FDB FIX PART LENGTH B P* n P EJECT x P* PFDBSTA EQU * P RES QFDBAR PFDBEND EQU * PCRNQUE DATA 0 CRN LINK ROOT P RES CRNBAR PCRNEND
0x1926c0…248b20 [0x3ee]: Pad {f00=0x00e9, f01=0x410a, f02=» IFF MXSIZ=0 * P DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0 * P DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0 B P XIF p PMXINDE EQU * END INDEX INDEX | 2 P DATA 0,0 SIGNIFICANT ZEROES AFTER INDEXINDEX PMXAR EQU * P RES MXSIZ P END @
0x1926c0…248b20 [0x3ef]: Pad {f00=0x00e9, f01=0x2008, f02=» PFDBSTA EQU * P RES QFDBAR PFDBEND EQU * 2 P END F@ R OF CONDITIONAL ASSEMBLY QFDBAR WORDS WILL BE ALLOCATED J P* P ENTRY FDBLEN P ENTRY FDBSTA P ENTRY FDBEND P ENTRY QFDBFL P* P* ,
0x1926c0…248b20 [0x3f0]: Pad {f00=0x00f3, f01=0x0190, f02=»MAX 4 WORDS | PDMT150 EQU * P LDR* A10,A4 ( P CWR* A10,A7 < P ABL(NE) DMT250 NO MATCH P P SUK A2,1 p . P RF(NP) DMT160 ALL 4 FILE NAME WORDS MATCH P ADK A4,2 P ADK A7,2 P RB DMT150 CHECK NEXT WORD P* ( P* ON
0x1926c0…248b20 [0x3f1]: Pad {f00=0x00f3, f01=0x0190, f02=» DMT165 YES P CCK A2,'LL' LIBRARY FILE ? P ABL(NZ) DMT250 NO 8 P LDK A2,0 FILE EXTENT NUMBER R P RF DMT167 v . PDMT165 LD A2,VTFSNO,A3 FILE SECTION NUMBER P EJECT PDMT167 EQU * P* . P* GET INFO FROM VTOC AND SAVE IN T
0x1926c0…248b20 [0x3f2]: Pad {f00=0x00f3, f01=0x0190, f02=» P ST A1,TASCXO P RF(NN) DMT170 <= 4 EXTENTS P LDK A7,9 B * P ABL DMTASX MORE THAN 4 EXTENTS EXIST T PDMT170 EQU * " P ECR A2,A2 TO LEFT HALF OF A2 4 P LC A2,VTFXNO+1,A4 EXT NO INTO RIGHT HALF OF A2 P ST A2,TASSEX,A1
0x1926c0…248b20 [0x3f3]: Pad {f00=0x00f3, f01=0x0190, f02=» LD A2,VTFXBA,A4 EXTENT BASE P ST A2,TASXLB+2,A1 $ P LD A2,TASSEX,A1 > $ P RF(NZ) DMT250 NOT FIRST EXTENT V P EJECT ~ P* FIRST FILE EXTENT < P* CHECK IF AN FDB DESCRIBING THE FILE ALREADY EXISTS. P* P LD A12,TASFDB * P
0x1926c0…248b20 [0x3f4]: Pad {f00=0x00f3, f01=0x0190, f02=»FDBSTA PDMT200 EQU * P LDR* A5,A12 " P ANK A5,/01 6 P RF(Z) DMT210 FREE J P LD A2,FDBEXT,A12 d P CW A2,TASVOL,A6 ~ " P RF(NE) DMT210 NOT SAME VOLUME P LD A2,FDBVTO,A12 P CW A2,TASVRN $ P RF(NE) DMT210 NOT SAME VTOC R
0x1926c0…248b20 [0x3f5]: Pad {f00=0x00f3, f01=0x0190, f02=»OUND j PDMT205 EQU * P LDK A7,5 FILE CODE USED P ABL DMTASX @ P* T $ PDMT210 LDR* A12,A12 GET NEXT FDB ^ P ANKL A12,/FFFE ( P RB(NE) DMT200 MORE FDB:S TO SEARCH P* 0 P* NO MATCHING FDB EXIST FIND A FREE FDB P*
0x1926c0…248b20 [0x3f6]: Pad {f00=0x00f3, f01=0x0190, f02=» P ANKL A12,/FFFE & P RB(NE) DMT220 MORE FDB:S TO CHECK P LDK A7,3 F P ABL DMTASX NO FDB AVAILABLE X ( P* INITIALIZE FDB ZERO FROM FDB+2 | P* PDMT230 EQU * P ST A12,TASFDB P LDR A10,A12 P ADKL A10,QFDBFL P L
0x1926c0…248b20 [0x3f7]: Pad {f00=0x00f3, f01=0x0190, f02=»DMT233 PDMT237 EQU * P LDKL A2,/8000 " P* DEV NOT BUSY 8 P ST A2,DWTST,A12 P P LDKL A2,TIODM h P ST A2,DWTADR,A12 ~ P LDKL A2,SECTLE P LDR A1,A12 P ADKL A1,FDBECB P ST A2,ECBRL,A1 P LDK A2,/01 P O
0x1926c0…248b20 [0x3f8]: Pad {f00=0x00e9, f01=0x0190, f02=»RSION USING TOSS MMU PAGING * P* IS OBTAINED BY SETTING MMUPAG EQU 1. $ P* R PMMUPAG EQU 1 P* p P* z 6 P* A PROGRAM VERSION USING THE EXTENDED INSTRUCTION . P* SET IS OBTAINED BY SETTING CPU852 EQU 0. P* PCPU852 EQU 0
0x1926c0…248b20 [0x3f9]: Pad {f00=0x00e9, f01=0x0002, f02=»
0x1926c0…248b20 [0x3fa]: Pad {f00=0x00e9, f01=0x0190, f02=» 0 P IDENT DFTAB REL 9.2 79-11-16 870105040920 P 8 P* @ 8 P**************************************************** J P* $ P* PHILIPS TERMINAL SYSTEM PTS P* & P* DFTAB = DISC FILE CODE TABLE P* P* P* LEVEL
0x1926c0…248b20 [0x3fb]: Pad {f00=0x00e9, f01=0x40ce, f02=»** ^ P* P* DISC FILE CODE TABLE P* 4 P ENTRY DFTAB > P ENTRY DFTABE R P* h P* r PDFTAB EQU * | P DATA /F8F9,/FAFB PDFTABE EQU * P END @ DISC FILE CODE TABLE P* P* P* LEVEL
0x1926c0…248b20 [0x3fc]: Pad {f00=0x00e9, 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* ,
0x1926c0…248b20 [0x3fd]: Pad {f00=0x00e9, f01=0x0190, f02=»-LENGTH, BLOCKING-FACTOR AND VTOC-REC-NO r P* ARE SAVED TOO. 0 L P* WHEN THE FIRST EXTENT HAS BEEN FOUND EXISTING FDB:S CAN BE SEARCHED J L P* TO CHECK IF THE FILE TO BE ASSIGNED HAS PREVIOUSLY BEEN ASSIGNED TO L P* ANOTHER FILE CODE. IF SO THE
0x1926c0…248b20 [0x3fe]: Pad {f00=0x00e9, f01=0x0190, f02=»EN A NEW FDB MUST BE INITIALIZED AND THE REST OF THE 4 P* VOLUMES ARE CHECKED TO FIND ALL FILE EXTENTS < P* t 2 P* FOR INDEX ASIGN THE PRODGRAM IS RUN TWICE. ~ 4 P* DURING THE FIRST LOOP A MASTERINDEX IS READ. . P* FC 13 IN TTAB FOR DMTASK I
0x1926c0…248b20 [0x3ff]: Pad {f00=0x00e9, f01=0x018e, f02=»MTASS P ENTRY VTLRN P ENTRY VLVBA " P ENTRY VLVRL 6 P ENTRY SECTLE J P EJECT ` P* n P***************** x P* EXTERNALS * P***************** P* P EXTRN QTJOB P EXTRN FNDTID,TTB:TD P* P
0x1926c0…248b20 [0x400]: Pad {f00=0x00f9, f01=0x0190, f02=» * | : P* EXIT: * * : P* * h : P* SUBROUTINES: CASSIN,SOPIN,CHCRIO,LODCOM * : P* LODSEG,REBUF,MOVBUF,R
0x1926c0…248b20 [0x401]: Pad {f00=0x00f9, f01=0x000c, f02=» 8 @ H P X `
0x1926c0…248b20 [0x402]: Pad {f00=0x00f9, f01=0x0190, f02=» 2 P IDENT DMSUBX REL 9.2 79-11-16 870105040920 P : P* B 8 P**************************************************** L P* $ P* PHILIPS TERMINAL SYSTEM PTS P* 2 P* DMSUBX = DM-ROUTINES FOR INDEXED REQUESTS P* P*
0x1926c0…248b20 [0x403]: Pad {f00=0x00f9, f01=0x0190, f02=»ROM :***************** r P* P* DMTASK ( P* : P*************** D P* ENTRIES * P*************** t P* P ENTRY FNDKMX,CHKKEY P ENTRY RDNXTR P ENTRY FNDKEY P ENTRY CRNUPD P* P************
0x1926c0…248b20 [0x404]: Pad {f00=0x00f9, f01=0x0190, f02=»DBRLE,FDBSNR,ECBCW l . P EXTRN FDBRRO,FDBCEX,FDBBLF,EXTBAS,BUFSNR . P EXTRN FDBLRN,FDBMRO,FDBCRL,FDBADF,CRNCIF L 4 P EXTRN DMTIOT,GTLGRN,GTBKBU,ADDMOD,CALSNO,DMTRBU ~ P EXTRN DMTIOZ P EJECT 8 P****DESCRIPTION*********************************
0x1926c0…248b20 [0x405]: Pad {f00=0x00f9, f01=0x0190, f02=»1 ALG. U. ` 4 P* THE SEARCH KEY MAY BE TERMINATED WITH A /EE. 0 P* THE FIRST TWO WORDS IN MASTER INDEX IS : J P* - NO OF ENTRIES N ~ $ P* - NO OF CHARACTERS PER ENTRY P* 8 P****ENTRY PARAMETERS******************************** P
0x1926c0…248b20 [0x406]: Pad {f00=0x00f9, f01=0x0190, f02=»CF A14,FNDKMX P* 8 P****EXIT PARAMETERS********************************* " P* ^ 0 P* A1,A2 = LODGICAL RECORD NO IN INDEX FILE h P* A8,A11= UNCHANGED P* 8 P****USED REGISTERS********************************** P* P
0x1926c0…248b20 [0x407]: Pad {f00=0x00f9, f01=0x0190, f02=»9,A2 P ANKL A9,/1 GET BIT 15 P SRA A2,1 * P LDR A10,A2 M=N/2 FLOOR < P ADR A9,A2 I=N/2 CEILING P ADK A5,2 TABLE BASE - 2 | PFND020 EQU * P LDK A2,0 P LDR* A7,A5 ENTRY LENGTH P LDR A6,A9 I P SUK A6,1 $ P R
0x1926c0…248b20 [0x408]: Pad {f00=0x00fa, f01=0x0190, f02=»25 EQU * " P ADR A2,A5 ADD MI BASE ADR - 2 P ADK A2,2 ENTRY KEY ADR 6 P LDR A1,A2 SAVE ENTRY ADR V P LDR A3,A8 SEARCH KEY ADR x P LDR A6,A11 MAX KEY LENGTH P LDK A7,0 CHAR ADR P CF A14,CHKKEY COMPARE KEYS P LDR A7,A10 M
0x1926c0…248b20 [0x409]: Pad {f00=0x00fa, f01=0x0190, f02=» v . P RF(NG) FND040 SEARCHED KEY LESS OR EQUAL P* : P* SEARCHED KEY GREATER D P* d P LDR A10,A10 M n P RF(Z) FND050 SEARCH READY P ADR A9,A6 I=I+(M/2 CEIL) PFND030 EQU * P LDR A10,A7 M=M/2 FLOOR P RB FND020
0x1926c0…248b20 [0x40a]: Pad {f00=0x00fa, f01=0x0190, f02=»D045 EQU * NO MASTER INDEX P LDK A1,0 " P LDK A2,1 REC NR 1 4 P RF FND070 N PFND050 EQU * ` P ADR* A1,A5 ARDR NEXT ENTRY t PFND060 EQU * P LDR A3,A1 ENTRY ADR P SUK A3,3 P ADR* A3,A5 ADR REC NO P* P* MOVE
0x1926c0…248b20 [0x40b]: Pad {f00=0x00fa, f01=0x0190, f02=»2,A2 P LCR A2,A3 PFND070 EQU * P RTN A14 2 P EJECT B 8 P****DESCRIPTION************************************* P P* D P* CHKKEY COMPARE TWO CHARACTER STRINGS. THE SEARCH KEY MAY BE P* TERMINATED WITH A /EE. P* 8 P
0x1926c0…248b20 [0x40c]: Pad {f00=0x00fa, f01=0x0190, f02=» * P* A6 = MAX NO OF CAHARACTERS IN KEY 2 P* A7 = REL NO OF FIRST CHAR TO CHECK IN KEY 2 P* h P* CF A14,CHKKEY r P* 8 P****EXIT PARAMETERS********************************* P* : P* A3 = 0 WHEN SEARCED KEY IS CONTAINED IN
0x1926c0…248b20 [0x40d]: Pad {f00=0x00fa, f01=0x0190, f02=»CHAR TO CHECK = NO OF SAME CHARACTERS IN WHOLE KEY x " P* A6 = MAX NO OF CHAR IN KEY : P* ` 8 P****USED REGISTERS********************************** j P* P* A2-A4,A6-A7 < P******************************************************** P E
0x1926c0…248b20 [0x40e]: Pad {f00=0x00fa, f01=0x0190, f02=»CR A4,A3 SEARCED KEY CHAR P CCK A4,/EE00 " " P RF(E) CHK060 END OF KEY CHAR 8 P CCR A4,A2 SC=EC? ^ P RF(G) CHK100 SC GT TH EC x " P RF(L) CHK120 SC LESS THAN EC P ADK A7,1 NO OF SAME CHAR P CWR A7,A6 NO OF CHAR $ P RF(NL) CH
0x1926c0…248b20 [0x40f]: Pad {f00=0x00fa, f01=0x0190, f02=» LDK A3,0 FOUND P RF CHK140 PCHK120 EQU * * $ P LDKL A3,-1 SEARCHED KEY SMALLER > P RF CHK140 f PCHK100 EQU * x $ P LDK A3,1 SEARCHED KEY SGREATER PCHK140 EQU * P RTN A14 P EJECT 8 P****DESCRIPTION*********************
0x1926c0…248b20 [0x410]: Pad {f00=0x00fa, f01=0x0190, f02=»WHEN NO RECORD IS READ BEFORE, THE FIRST RECORD IN SPECIFIED & P* SECTOR WILL BE MADE AVAILABLE D P* n 8 P****ENTRY PARAMETERS******************************** x P* : P* A1 = FDB ADDRESS FOR CURRENT RECORD (BEFORE NEXT) P* FDBCE
0x1926c0…248b20 [0x411]: Pad {f00=0x00fa, f01=0x0190, f02=»NTED ` : P* A3 = ADDRESS OF BLOCK BUFFER FROM PREVIOUS CALL IN > P* SAME DM-REQUEST. =0 WHEN NO BYUFFER IS ALLOCATED J P* A8 = ECB ADDRESS P* 8 P****EXIT PARAMETERS********************************* P* 2 P* RETURN AT ADDR
0x1926c0…248b20 [0x412]: Pad {f00=0x00fa, f01=0x018e, f02=»DE FOM PHYS I/O) WHEN NO BUFFER IS ALLOCATED r $ P* A2 = FDBRRO = RECORD OFFSET 4 P* A3 = BUFFER ADDRESS * P* = 0 WHEN NO BUFFER IS ALLOCATED | P* A8 = ECB ADDRESS P* 8 P****USED REGISTERS**********************************
0x1926c0…248b20 [0x413]: Pad {f00=0x00fa, f01=0x0190, f02=» X P EJECT PRDNXTR EQU * P LDR A10,A3 SAVE BUFFER ADDR * P RF(NZ) RDN200 BUFFER EXIST N P STR A7,A14 r P SUKL A14,4 P ST A6,2,A14 P* P* GET A BUFFER P* PRDN040 EQU * & P CF A14,GTBKBU GET BLOCKBUFF
0x1926c0…248b20 [0x414]: Pad {f00=0x00fa, f01=0x0190, f02=»DR A10,A3 BUFFER ADDR $ P LDK A7,/91 PHYS READ WITH WAIT P LKM F P DATA 1 R & P CF A14,DMTIOZ CHECK RETURN CODES b P LDR A1,A1 P RF(NZ) RDN900 ERROR P LDR A1,A6 FDB ADDR PRDN080 EQU * P LDR A6,A1 FDB ADDR P LDK
0x1926c0…248b20 [0x415]: Pad {f00=0x00fa, f01=0x0190, f02=»RDN200 EQU * $ P LD A2,FDBRRO,A1 REC ORD OFFSET P RF(NN) RDN220 NOT FIRST REC < P STR A7,A14 ` P SUKL A14,4 t P ST A6,2,A14 P RB RDN080 FIRST REC WANTED P* : P* CHECK IF THIS OFFSET POINTS TO LAST REC IN BUFFER P*
0x1926c0…248b20 [0x416]: Pad {f00=0x00fa, f01=0x0190, f02=»EC IN CURRENT BLOCKBUFFER P* " $ P AD A2,FDBRLE,A1 RECOR D LENGTH , P ADK A2,1 STATUS CHAR T P ST A2,FDBRRO,A1 NEW OFFSET r P RF RDN950 RETURN P* 4 P* CHECK IF THIS RECORD ALSO IS LAST IN EXTENT P* PRDN300 EQU *
0x1926c0…248b20 [0x417]: Pad {f00=0x00fa, f01=0x0190, f02=» AD A5,EXTLEN,A3 EXTENT LENGTH P SUK A5,1 & $ P CW A5,FDBSNR,A1 SECT NO CURRENT 8 , P RF(NG) RDN400 IT WAS LAST REC IN EXTENT ` P* P* NEW SECTOR P* P IM FDBSNR,A1 SECT NO P LDR A6,A1 FDB ADDR P RF RDN500 P*
0x1926c0…248b20 [0x418]: Pad {f00=0x00fa, f01=0x0190, f02=» NO v P LDR A1,A2 P LDR A2,A3 P LDK A6,0 0 P LDK A7,1 B P CF A14,ADDMOD NEXT REC NO T P LDR A6,A5 RESTORE FDB ADDR v * P CF A14,CALSNO GET NEXT REC ADDR PHYS P LDR A8,A13 $ P LDR A1,A1 CHECK EN D OF MEDIUM P RF(Z)
0x1926c0…248b20 [0x419]: Pad {f00=0x00fa, f01=0x0190, f02=» x " P CF A14,DMTRBU RELEASE BUFFER P LDR A1,A6 FDB ADDR . P RB RDN040 NEXT SECTOR J P* h P* EXIT r P* PRDN900 EQU * P LDR A5,A1 RET CODE P LDR A1,A6 FDB ADDR P LDR A3,A10 BUFFER ADDR P RF(Z) RDN960 NO B
0x1926c0…248b20 [0x41a]: Pad {f00=0x00fa, f01=0x0190, f02=»ER ADDR PRDN940 EQU * P LD A6,2,A14 $ P ADKL A14,4 8 P LDR* A7,A14 L PRDN950 EQU * ` P RTN A14 t P EJECT 8 P****DESCRIPTION************************************* P* > P* FNDKEY WILL READ THE FIRST USED INDEX RECORD W
0x1926c0…248b20 [0x41b]: Pad {f00=0x00fa, f01=0x0190, f02=»ENTRY PARAMETERS******************************** P* 8 P* A1 = FDB ADDRESS B P* A8 = SEARCH KEY ADDR ^ & P* A11 = NO OF CHARACTERS IN KEY ~ " P* A13= PHYSICAL ECB ADDRESS P* 8 P****EXIT PARAMETERS*******************************
0x1926c0…248b20 [0x41c]: Pad {f00=0x00fa, f01=0x0190, f02=» 2 P* = /4000 WHEN NEXT HIGHER KEY IS FOUND . P* = RETURN CODE WHEN KEY IS NOT FOUND : 4 P* BIT 1 CAN NEVBER BE SET BY DISC DRIVER l P* A3 = BUFFER ADDRESS & P* = 0 WHEN NO RECORD IS FOUND " P* A7 = NO OF SAME CHARACTE
0x1926c0…248b20 [0x41d]: Pad {f00=0x00fa, f01=0x0190, f02=»**** ` P* , P* A1 - A11,A13 + 4 WORDS ON A14 STACK P* F : P****************************************************** P P EJECT PFNDKEY EQU * P* & P* FIRST SEARCH THE NMASTER INDEX P* * P LD A5,FDBMIA,A1 ADDR OF MAS
0x1926c0…248b20 [0x41e]: Pad {f00=0x00fa, f01=0x0190, f02=» GET KEY ENTRY IN MASTER INDEX P LD A6,8,A14 FDB ADDR & P CF A14,CALSNO GET PHYS ADDR D P LDR A1,A1 h P RF(NZ) FKY900 ERROR z P LDR A1,A6 FDBADDR " P LDR A6,A11 NO OF CHAR IN KEY $ P LDK A7,0 START CHAR KEY SEARCH & P SUR A9,A9 N
0x1926c0…248b20 [0x41f]: Pad {f00=0x00fa, f01=0x018e, f02=»ECORD v P RF FKY150 P LDR A1,A5 RET CODE P RF FKY900 ERROR EXIT < P* Z " P* BUFFER AND ADATA IS FOUND d P* PFKY150 EQU * P LDR A9,A3 BUFFER ADDR P ADR A2,A3 BUFFER ADR P ADK A2,10 REC ADDR P LDR A10,A
0x1926c0…248b20 [0x420]: Pad {f00=0x00fa, f01=0x0190, f02=» P RF(E) FKY200 USED RECORD P* & & P* NO MORE RECORDS IN THIS SECTOR 0 P* Z * P LD A13,FDBRRO,A1 SAVE CURRENT OFFSET d P LD A4,FDBMRO,A1 & P ST A4,FDBRRO,A1 LAST REC IN SECT P* P* *CHECK IF EOF P* P LDR A
0x1926c0…248b20 [0x421]: Pad {f00=0x00fa, f01=0x0190, f02=»N,A1 P RB(L) FKY100 NOT EOF P RF(G) FKY180 EOF * P CW A3,FDBLRN+1,A1 D P RB(L) FKY100 NOT EOF ^ PFKY180 EQU * | P* P* EOF IS IN THIS SECTOR P* 2 P ST A13,FDBRRO,A1 OFFSET TO FIRST FREE RECORD P LDK A7,0 NR O
0x1926c0…248b20 [0x422]: Pad {f00=0x00fa, f01=0x0190, f02=» P LD A3,6,A14 SEARCH KEY ADDR P CF A14,CHKKEY COMPARE KEYS , P LDR A3,A3 P & P RF(P) FKY840 SEARCHED KEY GREATER b " P RF(N) FKY850 SEARCH KEY LESS P RF FKY870 KEY FOUNFD PFKY840 EQU * P CC A7,-4,A10 NEXT KEY FLAG 0 P R
0x1926c0…248b20 [0x423]: Pad {f00=0x00fa, f01=0x0190, f02=» THAT HAS BEEN CHECKED FOR THIS KEY . P LC A7,-4,A10 REDUCE NO OF SAME CHARACTERS ! 0 P RB FKY100 NEXT KEY ! b PFKY850 EQU * ! ~ P LDKL A2,/4000 KEY NOT FOUND ! P RF FKY950 ! PFKY870 EQU * ! P LDK A2,0 KEY FOUND ! P RF FKY950 ! P
0x1926c0…248b20 [0x424]: Pad {f00=0x00fa, f01=0x0190, f02=» P ADKL A14,8 RESTORE STACK " P LDR* A1,A14 FDB ADDR " & P LDR A3,A9 BUFFER ADDR " D P RTN A14 " b P EJECT " r P* " J P* CRNUPD UPDATES CRN-BUFFERS SO THAT RECORD NUMBERS FOR MOVED INDEX " P* RECORDS ARE UPDATED " P* " P* IN:
0x1926c0…248b20 [0x425]: Pad {f00=0x00fa, f01=0x0190, f02=»2 = ADD PARAMETER +1, -1 " P* # $ P* USED REGISTERS: # . P* A1 -A12 # J P* # ^ P* OUT: # h P* A5 = FDB ADDR INDEX # x P* A10,A11 = UNCHANGED # P* # PCRNUPD EQU * # P STR A12,A14 # P SUKL A14,2 # $ P LD A12,FDBA
0x1926c0…248b20 [0x426]: Pad {f00=0x00fa, f01=0x0190, f02=»F(Z) CRU900 END OF LINK # P LC A7,FDBECB+1,A5 FILE CODE $ P CC A7,CRNCIF,A12 $ D P RB(NE) CRU100 WRONG FC $ ^ P CC A10,CRNCIF+1,A12 $ ~ P RB(G) CRU100 $ P RF(L) CRU200 $ P CW A11,CRNCIF+2,A12 $ P RB(G) CRU100 $ PCRU200 EQU * $
0x1926c0…248b20 [0x427]: Pad {f00=0x00fa, f01=0x018e, f02=» * $ P* % P* UPDATE CRN % P* % * P LD A7,2,A14 ADD PARAM % 4 P LDR A6,A7 % R P RF(N) CRU230 -1 % d P LDK A6,0 % | PCRU230 EQU * % P ANKL A7,/7FFF % P LDK A1,0 % P LC A1,CRNCIF+1,A12 % P LD A2,CRNCIF+2,A12 % P CF A14,
0x1926c0…248b20 [0x428]: Pad {f00=0x00fb, f01=0x4028, f02=» % P RTN A14 & P END & @ & $
0x1926c0…248b20 [0x429]: Pad {f00=0x00fb, f01=0x2008, f02=» ' + t P INH , P CF A15,TENDIO , P ENB , 2 P* , > P* EXIT , H P* , X P LKM , b P DATA 3 , n P* , ~ P END , @ , RD ADDR A2:=EA BIT + & P C1R A2,A2 ONE COMPLEMENT BIT MASK + P ANRS A2,A3 SET OFF EA BIT + P* + P
0x1926c0…248b20 [0x42a]: Pad {f00=0x00fb, f01=0x0190, f02=»TASSPW DATA 0 TTAB ADDRESS DMTASK $ PTASFDD DATA 0 FDB ADDR DATA FILE * ( PTASTBE DATA 0 TTAB/SCTCDT ENTRY ADDR R 2 PTASLFD DATA 0,0 LOCKED FLEXDISC FILE CODES =1 ~ P DATA 0,0 P DATA 0,0 " PTASS14 EQU *-2 TASS A14 STACK P* P I
0x1926c0…248b20 [0x42b]: Pad {f00=0x00fb, f01=0x0190, f02=» * P************** P* , P* ENTRY TASCAQ CHECK ASSIGN QUEUE * P* Z P* A7= RETURN CODE d P* * P* SET OFF USE BIT IN TASBLK H P* IF TASQUE = 0 THEN RETURN ELSE QUEUE FIRST IN CHAIN AND 2 P*
0x1926c0…248b20 [0x42c]: Pad {f00=0x00fb, f01=0x0190, f02=»QUE P RF(Z) TASCEX EMPTY QUEUE " P LDR* A1,A5 GET NEXT IN CHAIN . , P ST A1,TASQUE AND PUT IT FIRST IN QUEUE T P LDKL A1,-4 ( P ADS A1,TTB:SA,A5 UPD DISPATCH ADDR P CF A15,QTJOB NEXT ASSIGN P RF TASC05 & PTASCEX CM TASQUE A
0x1926c0…248b20 [0x42d]: Pad {f00=0x00fb, f01=0x0190, f02=» CODE IN SAVED A7 r P RTN A14 P EJECT * 8 P****DESCRIPTION************************************* 8 P* t : P* VOLCHE WILL COMPARE EACH VOLUME NAME IN ASBLK WITH ~ & P* VOLUME NAMES IN DWT FOR DISCS P* 8 P****ENTRY PARAMETERS******
0x1926c0…248b20 [0x42e]: Pad {f00=0x00fb, f01=0x0190, f02=»S WANTED. v : P* 1 LOCK WANTED. ONLY FROM DMTASS FOR FLEXDISC P* P 8 P****EXIT PARAMETERS********************************* Z P* P* A1 = 0 OK P* 1 VOLUME UNKNOWN P* A5 = TTAB ADDR P* 8 P****USED REGIS
0x1926c0…248b20 [0x42f]: Pad {f00=0x00fb, f01=0x0190, f02=»************** h PVOLCHE EQU * P CM TASLFD =1 * $ P CM TASLFD+2 LOCKED FLEXDISCS =1 @ P SLL A2,1 h P SUK A2,2 z P ST A2,TASCVO INIT. TASCVO P LDR A4,A8 2 P ADK A4,10 POINTER TO FIRST VOL NAME IN ASBLK PTAS110 EQU * 2 P
0x1926c0…248b20 [0x430]: Pad {f00=0x00fb, f01=0x0190, f02=» ADDRESS IN CD:TAB AND COMPARE DWTVOL P* . P LD* A6,SCTCDT 8 PTAS130 SUK A6,4 N 2 P RF(N) TASHLT FC NOT FOUND? SHOULD NOT OCCUR. f P LD A5,SCTCDT P ADR A5,A6 P CC A1,1,A5 P RB(NE) TAS130 NOT THIS FC P LDR A11,A11
0x1926c0…248b20 [0x431]: Pad {f00=0x00fb, f01=0x0004, f02=» h x
0x1926c0…248b20 [0x432]: Pad {f00=0x00fb, f01=0x0190, f02=» 2 P IDENT ADDMOD REL 9.2 79-11-16 870105040920 P : P* =1 RETURN CONDITION B P* b 8 P**************************************************** l P* $ P* PHILIPS TERMINAL SYSTEM PTS P* P* TOSS DATA MANAGEMENT P*
0x1926c0…248b20 [0x433]: Pad {f00=0x00fb, f01=0x0190, f02=»CTION ON THE ALPHA ^ P* COMPUTER P*CALLING SEQUENCE: , $ P* A1-A2 = ARG1 F $ P* AG-A7 = ARG2 n P* CF A14,ADDMOD & P*RETURN : RESULT IN A1-A2 4 P* CAUTION REGISTERS A3,A4,A6,A7 ARE
0x1926c0…248b20 [0x434]: Pad {f00=0x00fb, f01=0x0190, f02=»NDITIONAL ASSEMBLY P* . P***************************************** $ P* V 6 P* A PROGRAM VERSION USING THE EXTENDED INSTRUCTION ` . P* SET IS OBTAINED BY SETTING CPU852 EQU 0. P* PCPU852 EQU 0 P* P EJECT PADDMOD E
0x1926c0…248b20 [0x435]: Pad {f00=0x00fb, f01=0x0190, f02=».L A7,/7FFF P ANK.L A2,/7FFF P ADR A2,A7 8 P RF(3) OVER1 X 0 PNOVER ADR A1,A6 * NO OVERFLOW x P RF(1) END1 P RF(2) END2 P RF(3) END3 PNOVE
0x1926c0…248b20 [0x436]: Pad {f00=0x00fb, f01=0x018e, f02=» A1,1 P RF(3) OVER3 P RB(7) NOVER 0 POVER3 ADR A1,A6 P P RF(2) END3 p P ADK A1,0 P RF(1) END1 P RB(7) NOVER1 P XIF =1 P IFT CPU852=0
0x1926c0…248b20 [0x437]: Pad {f00=0x00fb, f01=0x4184, f02=» t PEND2 ADK A3,/80 PEND1 ADK A3,/80 * B PEND0 SLL A3,1 ********************************** L P ANK.L A3,/0300 P LDK.L A4,/FCFF P AN.S A4,2,A14 B P OR.S
0x1926c0…248b20 [0x438]: Pad {f00=0x00fb, 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) NOVE
0x1926c0…248b20 [0x439]: Pad {f00=0x00fb, f01=0x0190, f02=»* & P* ' > P* FIND A FREE ENTRY IN TTAB/CD:TAB (FC AND DWTADR = 0 ) ' P* ' V PTAS180 EQU * ' ` P LDK A1,0 ' t P LDR A10,A10 TC ' P RF(Z) TAS185 GLOBAL ASSIGN ' P LD A2,TASTTA TTAB ADDR ' P LDR A4,A2 ' P LD A2,TTB:TD,A4 '
0x1926c0…248b20 [0x43a]: Pad {f00=0x00fb, f01=0x0190, f02=»UK A2,4 ' ( P RF(L) TASSE2 NO FREE ENTRY IN TABLE ( P LDR A9,A4 ( < P ADR A9,A2 ( N P CCR A1,A9 FILE CODE ( ` " P RB(NE) TAS190 FC NOT EQUAL 0 ( | P CW A1,1,A9 ( & P RB(NE) TAS190 DWTADR NOT EQUAL 0 ( P LDR* A1,A8 ASBLK 1ST WORD ( P RF(N) T
0x1926c0…248b20 [0x43b]: Pad {f00=0x00fb, f01=0x0190, f02=»Y ( f P ST A9,TASTBE SAVE ENTRY ) P* ) * 0 P* GET FIRST VOLUME AND ACTIVATE ITS DMTASK ) 4 P* ) h P LD A1,TASCVO ) r P LDK A7,0 ) P LC A7,TASVOL,A1 ) P ADKL A7,'#D' TID DMTASK ) P CF A15,FNDTID ) " P LDR A5,A2 TTAB ADDRESS DMTASK )
0x1926c0…248b20 [0x43c]: Pad {f00=0x00fb, f01=0x0190, f02=»RY ) | P LDK A7,4 VOL UNKNOWN * P RF TASSEM * ( PTAS200 EQU * * : P LDK A2,2 * N 4 P ST A2,TASFIL MASTER INDEX LOOP IDENT IN DMTSAK * ` & P LDKL A2,DMTASS ASSIGN INDEX ENTRY * P LDR* A6,A8 * P RF(N) TAS210 INDEX ASSIGN * P CM TASFIL * P
0x1926c0…248b20 [0x43d]: Pad {f00=0x00fb, f01=0x4182, f02=»F A15,ACTOT ACTIVATE DMTASK * P ABL TDISP GO TO DISPATCHER + $ P EJECT + H P* + V P* ERROR RETURNS + ` P* + z PTASSE5 ADK A7,1 + PTASSE4 ADK A7,1 + PTASSE3 ADK A7,1 + PTASSE2 ADK A7,1 + PTASSE1 ADK A7,1 + P ADK A7,1 +
0x1926c0…248b20 [0x43e]: Pad {f00=0x00fb, f01=0x2008, f02=» ,
0x1926c0…248b20 [0x43f]: Pad {f00=0x00fb, f01=0x0190, f02=»****************************************** T 6 P* * U 2 6 P* RDBLK - READ ONE CASSETTE BLOCK * U l 6 P* =============================== * U 6 P*
0x1926c0…248b20 [0x440]: Pad {f00=0x00fc, f01=0x0190, f02=» RB(N) DMT540 ENTRY USED - P SUR A6,A2 NO OF SPARE WORDS . & P RB(N) DMT540 LARGER ENTRY NEEDED . D P* . n P* SUFFICIENT SPACE FOUND . x P* . P LDKL A1,/8000 USED BIT . & P ORS A1,MXIND+2,A5 MARK ENTRY USED . $ P ST A3,TASMXA MASTER INDEX A
0x1926c0…248b20 [0x441]: Pad {f00=0x00fc, f01=0x0004, f02=»
0x1926c0…248b20 [0x442]: Pad {f00=0x00fc, f01=0x0190, f02=» 2 P IDENT DSUMOD REL 9.2 79-11-16 870105040920 P : P* =1 RETURN CONDITION B P* b 8 P**************************************************** l P* $ P* PHILIPS TERMINAL SYSTEM PTS P* P* TOSS DATA MANAGEMENT P*
0x1926c0…248b20 [0x443]: Pad {f00=0x00fc, f01=0x0190, f02=»STRUCTION ON THE ALPHA ^ P*COMPUTER P*CALLING SEQUENCE 0 $ P* A1-A2 = ARG1 J $ P* A6-A7 = ARG2 r P* CF A14,DSUMOD & P*RETURN: RESULT IN A1-A2 4 P* CAUTION REGISTERS A3,A4,A6,A7
0x1926c0…248b20 [0x444]: Pad {f00=0x00fc, f01=0x0190, f02=»* CONDITIONAL ASSEMBLY P* . P***************************************** ( P* Z 6 P* A PROGRAM VERSION USING THE EXTENDED INSTRUCTION d . P* SET IS OBTAINED BY SETTING CPU852 EQU 0. P* PCPU852 EQU 0 P* P EJECT PDSUM
0x1926c0…248b20 [0x445]: Pad {f00=0x00fc, f01=0x0190, f02=» C1R A6,A6 P C1R A7,A7 P ANK.L A7,X'7FFF' 8 P ANK.L A2,/7FFF P ADK A7,1 ~ P RF(1) NOVER1 P ADK A6,1 P RF(3) OVER4 P RF(7)
0x1926c0…248b20 [0x446]: Pad {f00=0x00fc, f01=0x0190, f02=» z P RF(2) END2 P RF(3) END3 & P ADK A2,0 D P RF(0) END0 b P RF(7) END1 POVER1 ANK.L A2,X'7FFF' P ADK A1,1 P RF(3) OVER4 P R
0x1926c0…248b20 [0x447]: Pad {f00=0x00fc, f01=0x0190, f02=»VER2 | P XIF =1 P IFT CPU852=0 6813 =1 P RF(0) END0 =1 < P RF(1) END1 =1 T P RF(2) END2 =1 l P XIF =1 PEND3 ADK A3,/80 PEND2 ADK A3,/80 PEND1 ADK A3,/80 F PEND0 SLL
0x1926c0…248b20 [0x448]: Pad {f00=0x00fd, f01=0x40a8, f02=» AN.S A4,2,A14 B P OR.S A3,2,A14 UPDATE CR IN PSW CALLING PROGRAM P* =1 b P RTN A14 r P END @
0x1926c0…248b20 [0x449]: Pad {f00=0x00fd, f01=0x2008, f02=» ,0 P RB(7) NOVER2 PEND3 ADK A3,/80 6 PEND2 ADK A3,/80 X PEND1 ADK A3,/80 z PEND0 SLL1 A3 P ANK.L A3,/0300 P LDK.L A4,/FCFF P AN.
0x1926c0…248b20 [0x44a]: Pad {f00=0x00fd, f01=0x0190, f02=» 0 P IDENT DMFDB REL 9.2 79-11-16 870105040920 P 8 P @ P* H P* R 8 P**************************************************** P* $ P* PHILIPS TERMINAL SYSTEM PTS P* , P* DMFDB = FILE DESCRIPTOR BLOCKS FDB P*
0x1926c0…248b20 [0x44b]: Pad {f00=0x00fd, f01=0x0190, f02=»TE FDB AREA H P* BY MEANS OF CONDITIONAL ASSEMBLY QFDBAR WORDS WILL BE ALLOCATED P* ` P ENTRY FDBSTA j P ENTRY FDBEND P ENTRY QFDBFL P ENTRY CRNQUE,CRBUFL P ENTRY CRNEND P ENTRY MXIND P EJECT P* 6 P
0x1926c0…248b20 [0x44c]: Pad {f00=0x00fd, f01=0x0190, f02=»A r " PCRBUFL EQU 12 SIZE CRN BUFFER P* 0 < P* CRNBAR IS THE SIZE OF THE CRN BUFFER ARERA IN WORDS : 4 P* WHERE CRBUFL BYTES ARE USED FOR EACH BUFFER z P* PX:B EQU 50 PCRNBAR EQU X:B CURRENCY AREA P* P* PX:A
0x1926c0…248b20 [0x44d]: Pad {f00=0x00fd, f01=0x0190, f02=»* PQFDBAR EQU X:A P* PX:D EQU 96 * & PQFDBFL EQU X:D FDB FIX PART LENGTH < P* f P EJECT p P* ~ PFDBSTA EQU * P RES QFDBAR PFDBEND EQU * PCRNQUE DATA 0 CRN LINK ROOT P RES CRNBAR PCRNEND EQU *
0x1926c0…248b20 [0x44e]: Pad {f00=0x00fd, f01=0x4102, f02=»IZ=0 * P DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0 * P DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0 : P XIF h PMXINDE EQU * END INDEX INDEX t 2 P DATA 0,0 SIGNIFICANT ZEROES AFTER INDEXINDEX PMXAR EQU * P RES MXSIZ P END @ EQU *
0x1926c0…248b20 [0x44f]: Pad {f00=0x00fd, f01=0x2008, f02=» PFDBSTA EQU * P RES QFDBAR PFDBEND EQU * 2 P END F@ R OF CONDITIONAL ASSEMBLY QFDBAR WORDS WILL BE ALLOCATED J P* P ENTRY FDBLEN P ENTRY FDBSTA P ENTRY FDBEND P ENTRY QFDBFL P* P* ,
0x1926c0…248b20 [0x450]: Pad {f00=0x00fd, f01=0x0190, f02=» P LKM > P DATA 3 EXIT > P XIF > $ P IFT FLXDSC=1 > 0 P EJECT > F PDMT900 EQU * > T $ P* UNLOCK FLEXDISC IN THIS LOOP > h P* > P* REGISTERS > P* A1 = EXTENT COUNTER > 6 P* A4 = LAST VOL CODE FLEXDOISC A5 = EXT ADDR > P
0x1926c0…248b20 [0x451]: Pad {f00=0x00fd, f01=0x0004, f02=»
0x1926c0…248b20 [0x452]: Pad {f00=0x00fd, f01=0x0190, f02=» 2 P IDENT MPYMOD REL 9.2 79-11-16 870105040920 P : P* =1 RETURN CONDITIONS B P* b 8 P**************************************************** l P* $ P* PHILIPS TERMINAL SYSTEM PTS P* P* TOSS DATA MANAGEMENT P*
0x1926c0…248b20 [0x453]: Pad {f00=0x00fd, f01=0x0190, f02=»N THE ALPLA COMPUTER ^ P* CALLING SEQUENCE: ( P* LD A6,ARG1 8 ( P* LD A7,ARG1 d P* CF A14,MPYMOD ( P* RETURN : RESULT IN A1,A2 0 P* REGISTERS A3,A4,A6,A7, ARE CRUSH
0x1926c0…248b20 [0x454]: Pad {f00=0x00fd, f01=0x0190, f02=»L ASSEMBLY P* . P***************************************** P* N 6 P* A PROGRAM VERSION USING THE EXTENDED INSTRUCTION X . P* SET IS OBTAINED BY SETTING CPU852 EQU 0. P* PCPU852 EQU 0 P* P EJECT PMPYMOD EQU *
0x1926c0…248b20 [0x455]: Pad {f00=0x00fd, f01=0x0190, f02=»A3,/8000 IF A6=A7=/8000 RETURN IN ERROR EXIT ~ P CWR A3,A6 8 P RF(4) SUITE X P CWR A3,A7 x P RF(0) END3 < P LDR A6,A7 * A6= X'8000' A7# X'8000' 4 P LDR A7
0x1926c0…248b20 [0x456]: Pad {f00=0x00fd, f01=0x0190, f02=»A3,0 ~ P LDK A4,15 P ADK A6,0 , P RF(0) END0 J P RF(6) ARG1PS h 0 P ADK A3,1 *ARG1 NEGATIVE P C1R A6,A6 P ADK A6,1 PARG1PS ADK
0x1926c0…248b20 [0x457]: Pad {f00=0x00fd, f01=0x0190, f02=» C1R A7,A7 P ADK A7,1 P RF(3) CASSPE 8 PARG2PS SRC A7,1 X P RF(6) NOVER1 v P ADR A1,A6 PNOVER1 SRA A2,1 P SRC A1,1 P RF(6) NOVER2
0x1926c0…248b20 [0x458]: Pad {f00=0x00fe, f01=0x0190, f02=» 4 PNOVER3 ADK A3,0 *END* RESTORE SI=N P RF(0) END1 < P C1R A1,A1 Z P C1R A2,A2 z P ADK A2,1 D P*CAUTION THE NEXT INSTRUCTION IS ABSOLUTELY NECESSARY TO SET CR < P* WHEN THE
0x1926c0…248b20 [0x459]: Pad {f00=0x00fe, f01=0x0190, f02=»A1,1 ~ PNOVER4 ANK.L A2,/7FFF P RF(7) END2 . P XIF =1 L P IFT CPU852=0 6813 =1 ^ P RF(0) END0 =1 | P RF(1) END1 =1 P RF(2) END2 =1 P XIF =1 PEND3 ADK A3,/81 PEND2 ADK A3
0x1926c0…248b20 [0x45a]: Pad {f00=0x00fe, f01=0x4168, f02=» v P AN.S A4,2,A14 B P OR.S A3,2,A14 UPDATE CR IN PSW CALLING PROGRAM * P* =1 p P RTN A14 P IFT CPU852=1 : PCASSPE LDR A1,A6 *A7=X'8000' THEN A4= 1 . P*
0x1926c0…248b20 [0x45b]: Pad {f00=0x00fe, f01=0x2008, f02=» 4 : PCASSPE LDR A1,A6 *A7=X'8000' THEN A4= 1 . P* *AND A1= A6 P P RB(7) NOVER3 P END @
0x1926c0…248b20 [0x45c]: Pad {f00=0x00fe, f01=0x0190, f02=»DBRLE,FDBSNR,ECBCW l . P EXTRN FDBRRO,FDBCEX,FDBBLF,EXTBAS,BUFSNR . P EXTRN FDBLRN,FDBMRO,FDBCRL,FDBADF,CRNCIF L 4 P EXTRN DMTIOT,GTLGRN,GTBKBU,ADDMOD,CALSNO,DMTRBU ~ P EXTRN DMTIOZ P EJECT 8 P****DESCRIPTION*********************************
0x1926c0…248b20 [0x45d]: Pad {f00=0x00fe, f01=0x0190, f02=»1 ALG. U. ` 4 P* THE SEARCH KEY MAY BE TERMINATED WITH A /EE. 0 P* THE FIRST TWO WORDS IN MASTER INDEX IS : J P* - NO OF ENTRIES N ~ $ P* - NO OF CHARACTERS PER ENTRY P* 8 P****ENTRY PARAMETERS******************************** P
0x1926c0…248b20 [0x45e]: Pad {f00=0x00fe, f01=0x0190, f02=»CF A14,FNDKMX P* 8 P****EXIT PARAMETERS********************************* " P* ^ 0 P* A1,A2 = LODGICAL RECORD NO IN INDEX FILE h P* A8,A11= UNCHANGED P* 8 P****USED REGISTERS********************************** P* P
0x1926c0…248b20 [0x45f]: Pad {f00=0x00fe, f01=0x0190, f02=»9,A2 P ANKL A9,/1 GET BIT 15 P SRA A2,1 * P LDR A10,A2 M=N/2 FLOOR < P ADR A9,A2 I=N/2 CEILING P ADK A5,2 TABLE BASE - 2 | PFND020 EQU * P LDK A2,0 P LDR* A7,A5 ENTRY LENGTH P LDR A6,A9 I P SUK A6,1 $ P R
0x1926c0…248b20 [0x460]: Pad {f00=0x00fe, f01=0x0190, f02=»25 EQU * " P ADR A2,A5 ADD MI BASE ADR - 2 P ADK A2,2 ENTRY KEY ADR 6 P LDR A1,A2 SAVE ENTRY ADR V P LDR A3,A8 SEARCH KEY ADR x P LDR A6,A11 MAX KEY LENGTH P LDK A7,0 CHAR ADR P CF A14,CHKKEY COMPARE KEYS P LDR A7,A10 M
0x1926c0…248b20 [0x461]: Pad {f00=0x00fe, f01=0x0004, f02=»
0x1926c0…248b20 [0x462]: Pad {f00=0x00fe, f01=0x0190, f02=» 2 P IDENT DIVMOD REL 9.2 79-11-16 870105040920 P : P* =1 RET COND B P* Z 8 P**************************************************** d P* $ P* PHILIPS TERMINAL SYSTEM PTS P* P* TOSS DATA MANAGEMENT P* P*
0x1926c0…248b20 [0x463]: Pad {f00=0x00fe, f01=0x018e, f02=»A COMPUTER V P* CALLING SEQUENCE & P* A1-A2= DIVIDEND , $ P* A6 = DIVISOR V P* CF A14,DIVMOD ~ B P*RETURN* RESUT IN A1-A2 ; A1= REMAINDER;A2= QUOTIENT 6 P* CAUTION : REGISTERS A3,A4,A6,A7,
0x1926c0…248b20 [0x464]: Pad {f00=0x00fe, f01=0x0190, f02=» P* CONDITIONAL ASSEMBLY P* " . P***************************************** , P* ^ 6 P* A PROGRAM VERSION USING THE EXTENDED INSTRUCTION h . P* SET IS OBTAINED BY SETTING CPU852 EQU 0. P* PCPU852 EQU 0 P* P EJECT P
0x1926c0…248b20 [0x465]: Pad {f00=0x00fe, f01=0x0190, f02=»,A1 SAVE DIVIDEND SIGN | P* =1 $ P ADK A6,0 4 @ P RF(0) END3 * IF DIVISOR IS NULL, OVREFLOW R P ADK A1,0 P RF(4) SIGNE P ANK.L A2,/7FFF @ P RF(0) EN
0x1926c0…248b20 [0x466]: Pad {f00=0x00fe, f01=0x018e, f02=» P LDK A4,16 4 P ADK A1,0 *SIGN OF DIVIDEND $ P RF(6) DIVENP 8 P ADK A3,1 * DIVIDEND IS NEGATIVE | P C1R A1,A1 P C1R A2,A2 P ANK.L
0x1926c0…248b20 [0x467]: Pad {f00=0x00fe, f01=0x018e, f02=» x 2 PDIVENP ADK A6,0 *SIGN OF DIVISOR P RF(6) DIVORP > 4 P SUK A3,1 *NEGATIVE DIVISOR ^ P C1R A6,A6 P ADK A6,1 < P ADK A6,0 RESET IF OVERFL
0x1926c0…248b20 [0x468]: Pad {f00=0x00ff, f01=0x0190, f02=» 2 PSHIFT SUK A4,1 *A1 LESS THAN A6 P RF(0) END : P SLL A1,1 X P SLL A7,1 v P SLL A2,1 P RF(6) *+4 P ADK A1,1 P ADK A1,0
0x1926c0…248b20 [0x469]: Pad {f00=0x00ff, f01=0x0190, f02=» ADK A7,1 P RB(7) SHIFT 4 P*THIS SEQUENCE RESTORES THE SIGN OF THE RESULTS : PEND LDR A2,A7 r P ADK A3,0 P RF(0) NOSIGN 8 P RF(2) AA DIVIDEND +. DIVISOR + ,
0x1926c0…248b20 [0x46a]: Pad {f00=0x00ff, f01=0x018e, f02=» ADK A2,1 D P*CAUTION THE NEXT INSTRUCTION IS ABSOLUTELY NECESSARY TO SET CR > P* WHEN THE ADK A2,1 SET AN OVERFLOW CR EX (QUOTIENT=8000) ` P ADK A2,0 P XIF =1 P IFT CPU852=0 6813 =1 P RF(1) END1 =1 P X
0x1926c0…248b20 [0x46b]: Pad {f00=0x00ff, f01=0x0190, f02=» v PEND1 ADK A3,/81 B PEND0 SLL A3,1 ********************************** ( P ANK.L A3,/0300 n P LDK.L A4,/FCFF P AN.S A4,2,A14 B P OR.S A3,2,A14 UPDATE CR IN PSW CALLING
0x1926c0…248b20 [0x46c]: Pad {f00=0x00ff, f01=0x0190, f02=»N ^ P RF(6) BB 6 P C1R A1,A1 DIVIDEND- .DIVISOR - & . P ADK A1,1 REMAINDER - ` PBB ADK A2,0 P RB(0) END0 P RB(2) END2 P RB(7) END1 P
0x1926c0…248b20 [0x46d]: Pad {f00=0x00ff, f01=0x4056, f02=» LDK A1,0 P RB(7) END P XIF 2 P END >@ R - & . P ADK A1,1 REMAINDER - ` PBB ADK A2,0 P RB(0) END0 P RB(2) END2 P RB(7) END1 P
0x1926c0…248b20 [0x46e]: Pad {f00=0x00ff, f01=0x2008, f02=» A2,0 P RB(0) END0 P RB(2) END2 2 P RB(7) END1 P PCASSPE LDR A7,A1 n P LDR A1,A2 P CWK A1,/8000 P RB(4) END P LDK A1,0 P
0x1926c0…248b20 [0x46f]: Pad {f00=0x00ff, f01=0x018e, f02=»ECORD v P RF FKY150 P LDR A1,A5 RET CODE P RF FKY900 ERROR EXIT < P* Z " P* BUFFER AND ADATA IS FOUND d P* PFKY150 EQU * P LDR A9,A3 BUFFER ADDR P ADR A2,A3 BUFFER ADR P ADK A2,10 REC ADDR P LDR A10,A
0x1926c0…248b20 [0x470]: Pad {f00=0x00ff, f01=0x0190, f02=» P RF(E) FKY200 USED RECORD P* & & P* NO MORE RECORDS IN THIS SECTOR 0 P* Z * P LD A13,FDBRRO,A1 SAVE CURRENT OFFSET d P LD A4,FDBMRO,A1 & P ST A4,FDBRRO,A1 LAST REC IN SECT P* P* *CHECK IF EOF P* P LDR A
0x1926c0…248b20 [0x471]: Pad {f00=0x00ff, f01=0x0012, f02=» ( 0
0x1926c0…248b20 [0x472]: Pad {f00=0x00ff, f01=0x0190, f02=» 2 P IDENT DMSUBR REL 9.2 79-11-16 870105040920 P : P =1 CLEAR ECB B P REL 9.1 79-04-06 Z P* v 8 P**************************************************** P* $ P* PHILIPS TERMINAL SYSTEM PTS P* $ P* DMSUBR = COMMO
0x1926c0…248b20 [0x473]: Pad {f00=0x00ff, f01=0x0190, f02=» 8 P****THIS MODULE IS ACTIVATED FROM :***************** P* D P* DMTASK,TIODM,DMTASS N P* n P*************** x P* ENTRIES * P*************** P* P* & P ENTRY EATEST,EASETB,EARELB,CRNGET P ENTRY CALSN
0x1926c0…248b20 [0x474]: Pad {f00=0x00ff, f01=0x0190, f02=»USER TO SYSTEM AREA x 0 P ENTRY MOV:SU MOVE FROM SYSTEM TO USER AREA P* P P***************** Z P* EXTERNALS * t P***************** P* P* 4 P EXTRN FDBEAL,FDBTNR,FDBCRL,FDBRLE,FDBSNR,FDBRRO P EXTRN FDBCEX,FDBBLF,F
0x1926c0…248b20 [0x475]: Pad {f00=0x00ff, f01=0x0190, f02=»D | P EXTRN DWTTDM,DWTTQ P EXTRN QTJOB & P EXTRN ECBRL,SECTLE : P EXTRN DIVMOD,MPYMOD V P EXTRN EXTELE r P EXTRN CRNTID P EXTRN DMTGBU P EXTRN EXTLEN,EXTBAS P EXTRN CRNQUE,GETBLK,FREQUE P EXTRN HALT P E
0x1926c0…248b20 [0x476]: Pad {f00=0x00ff, f01=0x0190, f02=»UTINE t P EJECT DMSUBR TOSSIO P* . P* 8 . P***************************************** B P* t P* CONDITIONAL ASSEMBLY ~ P* . P***************************************** P* . P* A PROGRAM VERSION USING TOSS MMU PAGIN
0x1926c0…248b20 [0x477]: Pad {f00=0x00ff, f01=0x0190, f02=»CHKIND IS USED FROM FNDDWT TO SELECT DM-DWT 2 P* INDEX FILE (INDEX 0) SHALL BE SELECTED FOR 4 ( P* DX,IX,XR,XN, DATA FILE OTHERWISE j P* PCHKIND EQU * P STR A1,A15 P STR A2,A15 " P LDK A2,1 INDEX FOR DATA FILE P LDR A1,
0x1926c0…248b20 [0x478]: Pad {f00=0x00ff, f01=0x0190, f02=»AD x P ANK A1,/3E REMOVE BIT 15 P SUK A1,/1E , 4 P RF(E) FND320 INSERT INDEX OR INDEXED READ NEXT @ P RF FND340 x ( PFND320 LDK A2,0 INDEX FOR INDEX FILE PFND340 EQU * P CCR A2,A6 INDEX P RF(E) FND390 ENTRY FOUND P LDK A
0x1926c0…248b20 [0x479]: Pad {f00=0x00ff, f01=0x0190, f02=»ED IN TENDIO TO RESET REQUEST BUSY BIT P* FOR ALL FILES . " P* AND TO RESOLVE ALL QUEUES H P* n PREQEND EQU * x P LC A2,TTB:ID,A5 GET TASK ID P CCK A2,'##' ( P RF(E) TEN117 JUMP IF DMTASK CALLING P* , P* RESET REQUES
0x1926c0…248b20 [0x47a]: Pad {f00=0x00ff, f01=0x0190, f02=»QU * P SUK A2,2 P RF(N) TEN115 NO MORE FILES P LDR A3,A6 B P ADR A3,A2 T P LD A3,FDBADF,A3 FDB ADDR f P RB(Z) TEN112 P CWR A3,A6 DWT ADDR P RF(E) TEN114 MASTER DWT P LD A5,DWTTQ,A3 P RF(Z) TEN113 NO QUEUE
0x1926c0…248b20 [0x47b]: Pad {f00=0x00ff, f01=0x0190, f02=»TEN114 EQU * $ P LDKL A4,/BFFF REQUEST BUSY BIT P ANS A4,DWTST,A3 RESET < P LDKL A4,/8000 Z $ P ORS A4,DWTST,A3 DEVICE NOT BUSY r P RB TEN112 PTEN115 EQU * P LDR* A4,A15 RESTORE A4 P* PTEN117 EQU * P ABL IHRTN
0x1926c0…248b20 [0x47c]: Pad {f00=0x00ff, f01=0x0190, f02=» FOR A LOG RECORD NO. n P* 8 P****ENTRY PARAMETERS******************************** ( P* d P* A1 = FDB ADRESS n P* A2,A3 = LOG RECORD NO P* P* CF A14,EATEST P* 8 P****EXIT PARAMETERS***************************
0x1926c0…248b20 [0x47d]: Pad {f00=0x00ff, f01=0x018e, f02=»* = -1 EA FOUND FO R OTHER TASK P* . 8 P****USED REGISTERS********************************** 8 P* t P* A1 - A4 ~ P EJECT DMSUBR PEATEST EQU * " P LD A4,FDBEAL,A1 BUFFER QUEUE P RF EAT030 PEAT020 EQU * P
0x1926c0…248b20 [0x47e]: Pad {f00=0x00ff, f01=0x018e, f02=» P* P CC A2,3,A4 FIRST CHAR P RB(NE) EAT020 , P CW A3,4,A4 2 AND 3 CHAR B P RB(NE) EAT020 b P* x P* RECORD NO FOUND P* P LC A4,2,A4 P CC A4,FDBTNR,A1 TASK ID P RF(E) EAT060 P LDKL A4,-1 EA OTHER TAS
0x1926c0…248b20 [0x47f]: Pad {f00=0x00ff, f01=0x0190, f02=» ~ 8 P****DESCRIPTION************************************* P* D B P* EASETB WILL UNCONDITIONALLY PUT A NEW EA BUFFER IN EA-LINK N L P* IF NO BUFFERS ARE AVAILABLE THE SYSTEM WILL HALT AND LITE SOP-LAMPS P* 8 P****ENTRY PARAMETERS********
0x1926c0…248b20 [0x480]: Pad {f00=0x0100, f01=0x018e, f02=»B ~ P* 8 P****EXIT PARAMETERS********************************* P* P P* A6 = FDB ADDR Z P* t 8 P****USED REGISTERS********************************** ~ P* P* A1-A4,A6 P* < P****************************************
0x1926c0…248b20 [0x481]: Pad {f00=0x0100, f01=0x0190, f02=» P LDR A1,A3 LOG REC NO P INH " , P CF A15,GETBLK GET BUFF AND STORE A1,A2 . P* ^ P* LINK BUFFER TO FDB h P* P LD A2,FDBEAL,A6 LINK ROOT P STR A2,A4 THREAD P ST A4,FDBEAL,A6 NEW ROOT P RTN A14 P EJECT DMS
0x1926c0…248b20 [0x482]: Pad {f00=0x0100, f01=0x0190, f02=» P* TIO THE FREE LINK. P* & 8 P****ENTRY PARAMETERS******************************** 0 P* l P* A1 = FDB-ADDRESS v " P* A2,A3 = LOGICAL RECORD NO B P* A2: BIT 0=1,BIT 1=1 ALL BUFFERS WITH TASK ID SAME AS FDB ( P*
0x1926c0…248b20 [0x483]: Pad {f00=0x0100, f01=0x0190, f02=»FER WITH TASK ID AND LOG REC NO j 0 P* AS SPEC IS REMOVED. ( P* 8 P****EXIT PARAMETERS********************************* f P* P* A1 = UNCHANGED P* 8 P****USED REGISTERS**********************************
0x1926c0…248b20 [0x484]: Pad {f00=0x0100, f01=0x0190, f02=»,A5 EA ROOT P RF EAR030 PEAR020 EQU * & P LDR A5,A4 SAVE OLD ROOT : P LDR* A4,A4 NEXT BUFFER ADR Z PEAR030 EQU * ~ P RF(Z) EAR100 EA LINK END P LDR A2,A2 REC NO & P RF(N) EAR050 RELEASE MANY BUFFERS P* P* SEAR
0x1926c0…248b20 [0x485]: Pad {f00=0x0100, f01=0x018e, f02=»EAR050 EQU * P CWK A2,/A000 CHECK BIT 1 0 P RF(L) EAR080 BIT 1 ZERO,ALL BUFFERS REMOVED 6 PEAR060 EQU * j P* ~ P* SEARCH TASK IDENT P* P LC A3,FDBTNR,A1 TAK ID P CC A3,2,A4 P RB(NE) EAR020 P* P* EA
0x1926c0…248b20 [0x486]: Pad {f00=0x0100, f01=0x0190, f02=» P* RETURN BUFFER TO POOL P* & P INH 0 P LD A3,FREQUE < P STR A3,A4 NEXT FREE R P ST A4,FREQUE NEW ROOT n P LDR A4,A5 BUFFER ROOT P LDR A2,A2 P RB(N) EAR020 RELEASE MORE PEAR100 EQU * P RTN A14 P EJECT
0x1926c0…248b20 [0x487]: Pad {f00=0x0100, f01=0x0190, f02=» IF NO BUFFER IS ` D P* FOUND A NEW IS FETCHED FROM THE FREE LINK AND B FILLED WITH H P* ZEROES AND PUT ON THE CRN LINK. IF NO FREE BUFFERS ARE AVAILABLE ` 0 P* THE SYSTEM WILL HALT AND LITE SOP-LAMPS. ( P* TASK ID IS PLACED IN THE BUFFER
0x1926c0…248b20 [0x488]: Pad {f00=0x0100, f01=0x0190, f02=»EXIT PARAMETERS********************************* P* 8 P* A1 = UNCHANGED B ( P* A2 = ADDRESS OF FOUND CRN-BUFFER P* 8 P****USED REGISTERS********************************** P* P* A1 - A4 P EJECT DMSUBR PCRNGET
0x1926c0…248b20 [0x489]: Pad {f00=0x0100, f01=0x0190, f02=» P RF(Z) CRN100 LINK END P* " P* CHECK ATASK IDENT , P* J P LC A3,FDBTNR,A1 TASK ID T P CC A3,CRNTID,A2 t P RB(NE) CRN020 OTHER TASK P RF CRN200 BUFFER FOUND P* P* GET NEW BUFFER P* PCRN100 EQU *
0x1926c0…248b20 [0x48a]: Pad {f00=0x0100, f01=0x018e, f02=»RS v PCRN120 EQU * P LDR* A3,A2 NEXT FREE P ST A3,CRNQUE UPD ROOT < P* Z P* FILL BUFFER WITH ZEROES d P* * P LDKL A3,CRBUFL BUFFER LENGTH IN BYTES PCRN140 EQU * P SUK A3,2 ZEROE WORDS 2 - N P RF(NP) CRN160 BUF
0x1926c0…248b20 [0x48b]: Pad {f00=0x0100, f01=0x0190, f02=» " P* CONNECT NEW BUFFER TO LINK P* . PCRN160 EQU * 8 P LC A3,FDBTNR,A1 L P SC A3,CRNTID,A2 TASK ID d P LD A3,FDBCRL,A1 LINK ROOT P STR A3,A2 THREAD P ST A2,FDBCRL,A1 NEW ROOT PCRN200 EQU * P RTN A14 P EJE
0x1926c0…248b20 [0x48c]: Pad {f00=0x0100, f01=0x018e, f02=»TO d P* SECTOR AND OFFSET P* ( 8 P****ENTRY PARAMETERS******************************** 2 P* n " P* A1,A2 = LOGICAL RECORD NO x P* A6 = FDB ADDR P* P* CF A14,CALSNO P* 8 P****EXIT PARAMETERS***************
0x1926c0…248b20 [0x48d]: Pad {f00=0x0100, f01=0x0190, f02=» P* A6 = UNCHANGED $ P* IN FDB : FDBSNR = SECTOR NR , P* FDBRRO = OFFSET IN SECTOR F * P* FDBCEX = CURRENT EXTENT v P* 8 P****USED REGISTERS********************************** P* P* A1 - A9 P E
0x1926c0…248b20 [0x48e]: Pad {f00=0x0100, f01=0x0190, f02=»DK A6,0 $ P LC A6,FDBBLF,A5 BLOCKING FACTOR , P CF A14,DIVMOD A2=A1,A2//A6,A1=REMAINDER 8 P RF(O) TIOD99 OVERFLOW h P LDR A3,A2 QUOTIENT P LDR A6,A5 FDB ADDR P LDR A2,A1 REMAINDER P RF(Z) TIOD30 REST = 0 $ P ADK A3,1 RECORD I
0x1926c0…248b20 [0x48f]: Pad {f00=0x0100, f01=0x018e, f02=» PTIOD40 EQU * P LDR A4,A6 & P ADKL A4,FDBEXT FIRST FILE EXTENT * , P LD A9,EXTLEN,A4 LENGTH OF FIRST EXTENT T P LDK A5,4 NUMBER OF EXTENTS PTIOD45 CWR A3,A9 ( P RF(NG) TIOD55 SECTOR IN THIS EXTENT P SUK A5,1 NO & P RF(NP) TI
0x1926c0…248b20 [0x490]: Pad {f00=0x0100, f01=0x0190, f02=» P* * P* SAVE CURRENT EXTENT BLOCK POINTER P* < PTIOD55 ST A4,FDBCEX,A6 F P* d * P* FIND LOGICAL SECTOR NUMBER ON DISC n P* 6 P SU A9,EXTLEN,A4 NO OF SECTORS IN PREVIOUS EXTENTS $ P SUR A3,A9 SECTOR NO WITHIN EXT P S
0x1926c0…248b20 [0x491]: Pad {f00=0x0100, f01=0x0190, f02=»GICAL SECTOR NUMBER x 2 P* FIND RELATIVE RECORD OFFSET WITHIN SECTOR P* R P LDK A3,0 & PTIOD60 SUK A2,1 A2=RELATIVE REC NO n ( P RF(Z) TIOD65 REL REC OFFS IN A3 NOW * P AD A3,FDBRLE,A6 NO ADD RECORD LENGTH P ADK A3,1 SKIP STATUS BY
0x1926c0…248b20 [0x492]: Pad {f00=0x0100, f01=0x0190, f02=»RELATIVE REC OFFSET IN FBDRRO P* & PTIOD65 EQU * 0 P LDK A1,0 OK D P ST A3,FDBRRO,A6 X PTIODMF EQU * p P RTN A14 P EJECT DMSUBR P* P************** P* DMTIOT P************** P* > P* ENTRY
0x1926c0…248b20 [0x493]: Pad {f00=0x0100, f01=0x0190, f02=»RESS x P* A1 = 0 WHEN OK ! $ P* = ERROR CODE ELSE ! . $ P* A9 = DM ECB ADDRESS ! V * P* A8 = PHYS I/O ECB ADDRESS ! ~ $ P* A2 WILL BE DESTROYED ! P* ! ( P* USED REGISTERS : A1,A2,A6,A8,A9 ! P
0x1926c0…248b20 [0x494]: Pad {f00=0x0100, f01=0x0190, f02=»B ADDRESS ! z PDMTIT0 EQU * " P LD A1,ECBRC,A8 " & P RF(Z) DMTIOX DISC I/O OK " > P ANKL A1,/FEFF " ` $ P RF(NZ) DMTIT1 NOT ONLY RETRIES " v P LDKL A2,/100 " P ORS A2,ECBRC,A9 USER RC " P RF DMTIOX " PDMTIT1 EQU * " P LD A2,FDBDBR,A6
0x1926c0…248b20 [0x495]: Pad {f00=0x0100, f01=0x0190, f02=» A2,8 BUFSTA " , P CM BUFDMI,A2 CLEAR VOL IDENT IN BUFFER # P LDK A1,/02 DISC IO ERROR # D " P LDKL A2,/FF7E NOT BIT 8 OR 15 # f P AN A2,ECBRC,A8 # P RF(NZ) DMTIOX # P LD A1,ECBRC,A8 BIT 8 OR 15 # PDMTIOX RTN A14 # P EJECT # P* # :
0x1926c0…248b20 [0x496]: Pad {f00=0x0100, f01=0x0190, f02=» P* A8 = ECB ADDR $ P* OUT: $ P* A1 = RET CODE $ . P* A2 = DESTROYED $ H P* A6 = FDB ADDR $ b P* A8 = ECB ADDR $ | P* A9 == USER ECB $ P* $ PDMTIOZ LDR A6,A1 $ P LD A2,DWTOR,A6 ORDER $ P ANK A2,/3F $ P CWK A
0x1926c0…248b20 [0x497]: Pad {f00=0x0100, f01=0x0190, f02=»DB DATA FILE $ ~ PDMTIZ1 EQU * % P LD A9,DWTECB,A1 USER ECB % ( P RB DMTIT0 % J P EJECT DMSUBR % 8 P****DESCRIPTION************************************* % t P* % 8 P* GTBKBU WILL GET A BLOCK BUFFER FOR DISC I/O AND % 2 P* PREPARE IT. ECB
0x1926c0…248b20 [0x498]: Pad {f00=0x0100, f01=0x0190, f02=» % | , P* FDB-CEX,ECB,SNR,RRO & 8 P* ECB-FC,CW,BA,DWT-OR,ECB,EXTDMI & 8 P* A8 = ECB ADDR & t P* & 8 P****EXIT PARAMETERS********************************* & P* & P* A1 = A6 = FDB ADDR & 0 P* A2 = FDBRR
0x1926c0…248b20 [0x499]: Pad {f00=0x0100, f01=0x0190, f02=» THE FOUND CORE BUFFER & v P* A3 = BUFFER ADDRESS ' & P* A5 = ORDE R CODE ' F P* A8 = ECB ADDR ' b P* A9 = DM ECB ADDR ' | P* ' 8 P****USED REGISTERS********************************** ' P* ' P* A1 - A9 ' P* ' : P****
0x1926c0…248b20 [0x49a]: Pad {f00=0x0100, f01=0x0190, f02=»RENT EXTENT BLOCK POINTER ' | P LD A1,EXTDMI,A4 DMIDENT, FC ( " " P LD A2,FDBSNR,A6 SECTOR NUMBER ( F P LD A9,DWTECB,A6 DM ECB ( l P ANK A1,/FF =1 ( $ P STR A1,A8 DISC VOL FILE CODE =1 ( P LDR A4,A2 SAVE ( P LDKL A5,SECTLE ( " P ST A5,ECBRL,A
0x1926c0…248b20 [0x49b]: Pad {f00=0x0100, f01=0x0190, f02=»SECTOR MUST BE READ FROM DISC ( P LDKL A2,-1 RET CODE ) & PGTB040 EQU * ) B P ST A4,ECBCW,A8 SECTOR NR ) V P LDR A5,A3 ) x 2 P ADKL A5,BUFSTA A5 = DATA BUFFER START ADDRESS ) P ST A5,ECBBA,A8 ) P LD A5,DWTOR,A6 ) P ANK A5,/3F ) ( P LDR A
0x1926c0…248b20 [0x49c]: Pad {f00=0x0100, f01=0x018e, f02=» ORDER CODE ) P EJECT DMSUBR * 8 P****DESCRIPTION************************************* * , P* * h D P* GTLGRN WILL CONVERT FDBSNR AND FDBRRO TO A LOGICAL RECORD NO * r P* * 8 P****ENTRY PARAMETERS******************************** * P* * P
0x1926c0…248b20 [0x49d]: Pad {f00=0x0100, f01=0x0190, f02=» * Z P* + P* A1=A5=A6= FDB ADDRESS + P* A2,A3 = LOG RECORD NO + 4 P* + V 8 P****USED REGISTERS********************************** + ` P* + P* A1 - A7 + P* + : P****************************************************** + P EJECT
0x1926c0…248b20 [0x49e]: Pad {f00=0x0100, f01=0x0190, f02=» + p P LD A7,FDBCEX,A1 EXT ADDR , ( P ADKL A7,EXTLEN ADDR TO LAST LENGTH , * PGTL050 EQU * , V P CWR A3,A7 , j . P RF(E) GTL100 ALL PREVIOUS EXTENTS COUNTED , | ( P* NOTE THAT ONLY (E) CAN BE TESTED , $ P ADR* A6,A3 NO OF SECT IN EXTENT , $ P ADKL A3
0x1926c0…248b20 [0x49f]: Pad {f00=0x0100, f01=0x0190, f02=»OTAL NO OF SECTORS , ~ ( P AD A6,FDBSNR,A1 TOTAL NR OF SECTORS - P* - F ( P* CONVERT FDBRRO TO NO OF RECORDS - P P* - | P LDK A7,0 - " P LC A7,FDBBLF,A1 BLOCK FACTOR - P LDR A5,A1 SAVE FDB ADDR - P CF A14,MPYMOD A1,A2=A6*A7 - P LD A4,FDB
0x1926c0…248b20 [0x4a0]: Pad {f00=0x0101, f01=0x0190, f02=» PGTL150 EQU * . P ADK A7,1 RECORD COUNTER . P SUR A6,A4 . 8 * P RB(NN) GTL150 COUNT RECORDS IN SECTOR . J P* . x , P* ADD SECT*BLOCFACT AND RECINCURRSECT . P* . P ADR A2,A7 . P RF(O) GTL160 OVERFLOW . P RF GTL170 . PGTL160 EQU *
0x1926c0…248b20 [0x4a1]: Pad {f00=0x0101, f01=0x0190, f02=» LDR A1,A5 FDB ADDR . P LDR A6,A5 / P RTN A14 / . P EJECT DMSUBR / > P* / V P* / ` P IFT MMUPAG=1 / j P* / P* M O V : U S / P* / D P* THIS ROUTINE MOVES DATA FROM THE USER AREA (SENDING BUFFER) TO / L P* THE SYSTEM AREA (RECEI
0x1926c0…248b20 [0x4a2]: Pad {f00=0x0101, f01=0x0190, f02=»* / 8 P* INPUT: A1 = ADDRESS OF SENDING BUFFER (USER AREA) 0 < P* A2 = ADDRESS OF RECEIVING BUFFER (SYSTEM AREA) 0 F . P* A3 = NUMBER OF BYTES TO BE MOVED 0 P* 0 " P* OUTPUT: A1-A4 ARE DESTROYED 0 P* 0 , PMOV:US LDR A3,A3 CHECK R
0x1926c0…248b20 [0x4a3]: Pad {f00=0x0101, f01=0x0190, f02=»ER ADDRESS 0 v P ANK A4,1 1 . P RF(NZ) MVUS40 USER BUFFER ADDRESS UNEVEN? 1 $ . P LDR A4,A2 NO, CHECK SYSTEM BUFFER ADDRESS 1 V P ANK A4,1 1 0 P RF(NZ) MVUS55 SYSTEM BUFFER ADDRESS UNEVEN? 1 P* 1 , PMVUS10 LDR A4,A3 CHECK REQUESTED LENGTH 1 P A
0x1926c0…248b20 [0x4a4]: Pad {f00=0x0101, f01=0x0190, f02=»5 1 t P* 2 PMVUS35 RTN A14 2 P* 2 * P EJECT DMSUBR 2 4 P* 2 L P* 2 V 0 PMVUS40 EQU * USER BUFFER ADDRESS WAS UNEVEN 2 ` * P LDR A4,A2 CHECK SYSTEM BUFFER ADDRESS 2 P ANK A4,1 2 0 P RF(NZ) MVUS80 SYSTEM BUFFER ADDRESS UNEVEN? 2 4 P E
0x1926c0…248b20 [0x4a5]: Pad {f00=0x0101, f01=0x0190, f02=» SYSTEM BUFFER ADDRESS 2 ( P SUK A3,1 DECREMENT REQUESTED LENGTH 3 $ P RB(NP) MVUS30 LAST CHAR. MOVED? 3 J , P ADK A1,2 NO, UPDATE USER BUFFER ADDRESS 3 r P* 3 8 PMVUS55 ELR A4,A1 GET NEXT TWO CHAR. FROM USER BUFFER 3 P ECR A5,A4 3 0 P SCR A5,A2 STORE
0x1926c0…248b20 [0x4a6]: Pad {f00=0x0101, f01=0x0190, f02=»VUS50 MORE CHAR. TO MOVE? 3 P RB MVUS30 NO, RETURN 4 " P* 4 @ P EJECT DMSUBR 4 J P* 4 b P* 4 l , PMVUS60 EQU * REQUESTED LENGTH WAS UNEVEN 4 v ( P SUK A3,1 MAKE REQUESTED LENGTH EVEN 4 * P RF(NP) MVUS70 ONLY ONE CHAR. TO MOVE? 4 P LDR A4,A1
0x1926c0…248b20 [0x4a7]: Pad {f00=0x0101, f01=0x0190, f02=»FROM USER BUFFER 4 v P* 5 PMVUS65 ECR A5,A5 5 " 0 P SCR A5,A2 STORE LAST CHAR. IN SYSTEM BUFFER 5 : P RB MVUS30 RETURN 5 n P* 5 4 PMVUS70 ELR A5,A1 GET LAST CHAR. FROM USER BUFFER 5 P RB MVUS65 5 P* 5 2 PMVUS80 EQU * BOTH BUFFER ADDRESSES W
0x1926c0…248b20 [0x4a8]: Pad {f00=0x0101, f01=0x0190, f02=»UPDATE BUFFER ADDRESSES 5 P ADK A2,1 6 ( P SUK A3,1 DECREMENT REQUESTED LENGTH 6 2 & P RB(P) MVUS10 MORE CHAR. TO MOVE? 6 ^ P RB MVUS30 NO, RETURN 6 P* 6 P EJECT DMSUBR 6 P* 6 P* M O V : S U 6 P* 6 F P* THIS ROUTINE MOVES DAT
0x1926c0…248b20 [0x4a9]: Pad {f00=0x0101, f01=0x0190, f02=»USED, DEPENDING ON WHETHER THE BUFFER ADDRESSES ARE EVEN OR NOT. 6 P* 7 H : P* INPUT: A1 = ADDRESS OF SENDING BUFFER (SYSTEM AREA) 7 R : P* A2 = ADDRESS OF RECEIVING BUFFER (USER AREA) 7 . P* A3 = NUMBER OF BYTES TO BE MOVED 7 P* 7 " P
0x1926c0…248b20 [0x4aa]: Pad {f00=0x0101, f01=0x0190, f02=»F REQUESTED LENGTH <= 0 7 x P STR A5,A14 SAVE A5 8 ( P LDR A4,A2 CHECK USER BUFFER ADDRESS 8 < P ANK A4,1 8 h . P RF(NZ) MVSU40 USER BUFFER ADDRESS UNEVEN? 8 z . P LDR A4,A1 NO, CHECK SYSTEM BUFFER ADDRESS 8 P ANK A4,1 8 0 P RF(NZ) MVSU60 SYSTEM BUFF
0x1926c0…248b20 [0x4ab]: Pad {f00=0x0101, f01=0x018e, f02=»UNEVEN? 8 p P* 9 PMVSU20 MVSU A3 9 P* 9 0 " PMVSU30 LDR* A5,A14 RESTORE A5 9 : P* 9 ` PMVSU35 RTN A14 9 j P* 9 P EJECT DMSUBR 9 P* 9 P* 9 0 PMVSU40 EQU * USER BUFFER ADDRESS WAS UNEVEN 9 * P LDR A4,A1 CHECK SYSTEM BUFFER A
0x1926c0…248b20 [0x4ac]: Pad {f00=0x0101, f01=0x0190, f02=» 9 ^ P RF MVSU65 : P* : 2 PMVSU60 EQU * SYSTEM BUFFER ADDRESS WAS UNEVEN : $ 0 P LCR A4,A1 GET ONE CHAR. FROM SYSTEM BUFFER : Z P ECR A4,A4 : * P ADK A1,1 UPDATE SYSTEM BUFFER ADDRESS : ( P SUK A3,1 DECREMENT REQUESTED LENGTH : * P RF(NP) MVSU70 I
0x1926c0…248b20 [0x4ad]: Pad {f00=0x0101, f01=0x0190, f02=»ER BUFFER : p & P ADK A1,1 UPDATE BUFFER ADDRESSES ; P ADK A2,2 ; < ( P SUK A3,1 DECREMENT REQUESTED LENGTH ; N & P RB(P) MVSU60 MORE CHAR. TO MOVE? ; z P RB MVSU30 NO, RETURN ; P* ; 4 PMVSU70 ELR A3,A2 GET LAST CHAR. FROM USER BUFFER ; $ P ANK A
0x1926c0…248b20 [0x4ae]: Pad {f00=0x0101, f01=0x018e, f02=»FFER ; j P RB MVSU30 RETURN < P* < & P EJECT DMSUBR < 0 P* < H P* < R 2 PMVSU80 EQU * BOTH BUFFER ADDRESSES WERE UNEVEN < 2 P LDR* A4,A1 GET FIRST CHAR. FROM SYSTEM BUFFER < 0 P ELR A5,A2 GET FIRST CHAR. FROM USER BUFFER < $ P ANK A4,/FF SK
0x1926c0…248b20 [0x4af]: Pad {f00=0x0101, f01=0x0190, f02=» < b & P ADK A1,1 UPDATE BUFFER ADDRESSES = P ADK A2,1 = 2 ( P SUK A3,1 DECREMENT REQUESTED LENGTH = D * P RB(P) MVSU10 MORE CHARACTERS TO MOVE? = p P RB MVSU30 NO, RETURN = P* = , PMVSU90 EQU * REQUESTED LENGTH WAS UNEVEN = ( P SUK A3,1 MAKE REQUE
0x1926c0…248b20 [0x4b0]: Pad {f00=0x0101, f01=0x0190, f02=» = & P ADR A4,A5 UPDATE BUFFER ADDRESSES > P ADR A2,A5 > 2 2 P LDR* A4,A4 GET LAST CHAR. FROM SYSTEM BUFFER > D P RB MVSU70 > z P* > 8 PMVSU95 LDR* A4,A1 GET LAST CHAR. FROM SYSTEM BUFFER > P RB MVSU70 > P XIF > P* > P IFT MMUPAG=0 >
0x1926c0…248b20 [0x4b1]: Pad {f00=0x0101, f01=0x402e, f02=»IF > P* ? P* ? P END ? @ ? * P ADR A2,A5 > 2 2 P LDR* A4,A4 GET LAST CHAR. FROM SYSTEM BUFFER > D P RB MVSU70 > z P* > 8 PMVSU95 LDR* A4,A1 GET LAST CHAR. FROM SYSTEM BUFFER > P RB MVSU70 > P XIF > P* > P IFT MMUPAG=0 >
0x1926c0…248b20 [0x4b2]: Pad {f00=0x0101, f01=0x2008, f02=» @ + t P INH , P CF A15,TENDIO , P ENB , 2 P* , > P* EXIT , H P* , X P LKM , b P DATA 3 , n P* , ~ P END , @ , RD ADDR A2:=EA BIT + & P C1R A2,A2 ONE COMPLEMENT BIT MASK + P ANRS A2,A3 SET OFF EA BIT + P* + P
0x1926c0…248b20 [0x4b3]: Pad {f00=0x0101, f01=0x0190, f02=» v PEND1 ADK A3,/81 B PEND0 SLL A3,1 ********************************** ( P ANK.L A3,/0300 n P LDK.L A4,/FCFF P AN.S A4,2,A14 B P OR.S A3,2,A14 UPDATE CR IN PSW CALLING
0x1926c0…248b20 [0x4b4]: Pad {f00=0x0101, f01=0x0190, f02=»N ^ P RF(6) BB 6 P C1R A1,A1 DIVIDEND- .DIVISOR - & . P ADK A1,1 REMAINDER - ` PBB ADK A2,0 P RB(0) END0 P RB(2) END2 P RB(7) END1 P
0x1926c0…248b20 [0x4b5]: Pad {f00=0x0101, f01=0x4056, f02=» LDK A1,0 P RB(7) END P XIF 2 P END >@ R - & . P ADK A1,1 REMAINDER - ` PBB ADK A2,0 P RB(0) END0 P RB(2) END2 P RB(7) END1 P
0x1926c0…248b20 [0x4b6]: Pad {f00=0x0101, f01=0x2008, f02=» A2,0 P RB(0) END0 P RB(2) END2 2 P RB(7) END1 P PCASSPE LDR A7,A1 n P LDR A1,A2 P CWK A1,/8000 P RB(4) END P LDK A1,0 P
0x1926c0…248b20 [0x4b7]: Pad {f00=0x0101, f01=0x018e, f02=» 4 | P XIF 5 P IFT CHR14=1 5 & P CCK A7,/1414 SPECIAL CHARACTER ? 5 ( P RF(E) PRB230 YES 5 R P XIF 5 l P* 5 x " P LDK A1,CCERR CODE CHECK ERROR 5 * P ORS A1,ECBRC,A8 STORE IN RETURN CODE 5 P LD A7,DWTOR,A6 GET ORDER 5 P ANK A7,/FF 5
0x1926c0…248b20 [0x4b8]: Pad {f00=0x0070, f01=0x018e, f02=»R ? % t P RF(NE) SKIP30 NO & P SUK A1,2 DECR BA & & P SUK A2,2 DECR RL & @ P RB SKIP07 GET NEXT & Z P* & v " PSKIP30 ST A2,4,A8 STORE NEW RL & P RTN A15 & P XIF & P EJECT & P* & P* I H G P & P* & P* INTERRUPT &
0x1926c0…248b20 [0x4b9]: Pad {f00=0x0070, f01=0x0002, f02=»
0x1926c0…248b20 [0x4ba]: Pad {f00=0x0070, f01=0x0190, f02=» 2 P IDENT DVKB00 REL 9.2 79-11-16 870105040920 P : " P* KEYBOARD DEVICE WORK TABLE B P* h P ENTRY DVKB00 TABLE ENTRY r P EXTRN CTAB01 ( P EXTRN KBAD3 POINTER TO ADDRESSBLOCK P EXTRN DVDY00 PMMUPAG EQU 1 P* P
0x1926c0…248b20 [0x4bb]: Pad {f00=0x0070, f01=0x0190, f02=»ADDRESS P DATA DWTEND-DVKB00 ORDER ( P DATA KBAD3 POINTER TO ADDRESS BLOCK 2 P DATA 'KB' TTAB-ADDRESS ^ $ P DATA 0 WAIT/ACTIVATE INDICATOR ~ P DATA 0 TERMINAL QUEUE IFT MMUPAG=1 & " DATA 0 SAVE AREA USER ECB ADDRESS DATA
0x1926c0…248b20 [0x4bc]: Pad {f00=0x0070, f01=0x0190, f02=»VE AREA FOR A4 P DATA 0 SAVE AREA FOR A5 P RES 4 DWT-STACK 6 P DATA 0 TIMER POINTER N P DATA DVDY00 DVDY00O DEVICE l $ P DATA /FFFF BACKSPACE AND CANCEL $ P DATA /FFBA EOR AND DOUBLE ZERO 6 P DATA DWTSQ+DVKB00 POINTER TO FIRST PLACE
0x1926c0…248b20 [0x4bd]: Pad {f00=0x0070, f01=0x4100, f02=»A 0,0,0,0,0,0,0,0 P DATA 0,0,0,0 P IFT MMUPAG=1 0 PDEVECB EQU * F P DATA 0,0,0,0,0,0 Z P DATA 0,0,0,0,0,0,0,0 t P DATA 0,0,0,0,0,0,0,0 P DATA 0,0,0,0 P XIF PDWTEND EQU * P* P END @ RST PLACE
0x1926c0…248b20 [0x4be]: Pad {f00=0x0070, f01=0x2008, f02=» BLE ZERO 6 P DATA DWTSQ+DVTKB POINTER TO FIRST PLACE IN QUEUE 4 P DATA DWTSQ+DVTKB POINTER TO LAST PLACE IN QUEUE R PDWTSQ EQU *-DVTKB P RES 0 P* P END @ 0 SAVE AREA FOR A4 P DATA 0 SAVE AREA FOR A5 P RES
0x1926c0…248b20 [0x4bf]: Pad {f00=0x0070, f01=0x0190, f02=» ORDER v EXTRN DWTA2 SAVE AREA A2 EXTRN DWTA5 SAVE AREA A5 0 & ! EXTRN DWTSB2 STACK BASE 2 IN DWT R ( P EXTRN SCTPLD PROGRAM LOADING DEVICE | ( P EXTRN SAVE8 SAVE A1-A8 ON A15 STACK P EXTRN SETIMP TIMER & P EXTRN INTSAV INTERRUPT SA
0x1926c0…248b20 [0x4c0]: Pad {f00=0x0084, f01=0x0190, f02=» r P* 6 P* DISPLACEMENTS IN SEGTAB, PAGTAB, SWBTAB AND T:A P* L PSEG:ST EQU 0 STATUS V $ PSEG:DS EQU 2 DISC SECTOR ADDRESS r " PSEG:EL EQU 4 EFFECTIVE LENGTH $ PSEG:PB EQU 6 PAGE BLOCK ADDRESS P* & PPAG:QF EQU 0 QUEUE POINT
0x1926c0…248b20 [0x4c1]: Pad {f00=0x0084, f01=0x0002, f02=»
0x1926c0…248b20 [0x4c2]: Pad {f00=0x0084, f01=0x0190, f02=» 2 P IDENT DVDY00 REL 9.2 79-11-16 870105040920 P : * P* DEVICE WORK TABLE FOR VIDEO DISPLAY B P* p P ENTRY DVDY00 TABLE ENTRY z P* P* ( P EXTRN DYAD POINTER TO ADDRESS BLOCK PMMUPAG EQU 1 P* PDVDY00 EQU * TAB
0x1926c0…248b20 [0x4c3]: Pad {f00=0x0084, f01=0x0190, f02=» DATA DWTEND-DVDY00 ORDER ( P DATA DYAD POINTER TO ADDRESS-BLOCK " P DATA 'DY' TTAB-ADDRESS N $ P DATA 0 WAIT/ACTIVATE INDICATOR n P DATA 0 TERMINAL QUEUE IFT MMUPAG=1 & " DATA 0 SAVE AREA USER ECB ADDRESS DATA DEVECB MMU ECB A
0x1926c0…248b20 [0x4c4]: Pad {f00=0x0084, f01=0x4158, f02=»VE AREA FOR A5 P RES 4 DWT-STACK P DATA 0 TIMER POINTER . P DATA /101 CURSOR POINTER L * P DATA /1850 LEFT BYTE=NUMBER OF LINES n " P RIGHT BYTE=CHARACTERS/LINE P DATA 0 BUFFER INDEX P IFT MMUPAG=1 PDEVECB DATA 0,0,0,0,0,
0x1926c0…248b20 [0x4c5]: Pad {f00=0x0084, 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-STA
0x1926c0…248b20 [0x4c6]: Pad {f00=0x0084, f01=0x0190, f02=»A ILLINT 60 P DATA ILLINT 61 P DATA ILLINT 62 4 P DATA IHINPT IHINPT ROUTINE P P EJECT SYSTAB t P P* " P* SYSTEM CONTROL TABLE POINTER P* P DATA SCT P P P* P* SYSTEM TRAP
0x1926c0…248b20 [0x4c7]: Pad {f00=0x0084, f01=0x0190, f02=» P XRR A13,A13 P XRR A14,A14 P LD A1,SCTBUG 0 P ABR(NZ) A1 F P HLT Z P f P EJECT SYSTAB n P P* P* SYSTEM CONTROL TABLE P* P PSCT EQU * P * PSCTMSZ DATA 0 MEMORY SIZE MOD K BYTES
0x1926c0…248b20 [0x4c8]: Pad {f00=0x0102, f01=0x2008, f02=»
0x1926c0…248b20 [0x4c9]: Pad {f00=0x0102, f01=0x0002, f02=» X
0x1926c0…248b20 [0x4ca]: Pad {f00=0x0102, f01=0x0190, f02=» 2 P IDENT DVKB01 REL 9.2 79-11-16 870105040920 P : " P* KEYBOARD DEVICE WORK TABLE B P* h P ENTRY DVKB01 TABLE ENTRY r P EXTRN CTAB02 ( P EXTRN KBAD3 POINTER TO ADDRESSBLOCK P EXTRN DVDY01 PMMUPAG EQU 1 P* P
0x1926c0…248b20 [0x4cb]: Pad {f00=0x0102, f01=0x0190, f02=»ADDRESS P DATA DWTEND-DVKB01 ORDER ( P DATA KBAD3 POINTER TO ADDRESS BLOCK 2 P DATA 'KB' TTAB-ADDRESS ^ $ P DATA 0 WAIT/ACTIVATE INDICATOR ~ P DATA 0 TERMINAL QUEUE IFT MMUPAG=1 & " DATA 0 SAVE AREA USER ECB ADDRESS DATA
0x1926c0…248b20 [0x4cc]: Pad {f00=0x0102, f01=0x0190, f02=»VE AREA FOR A4 P DATA 0 SAVE AREA FOR A5 P RES 4 DWT-STACK 6 P DATA 0 TIMER POINTER N P DATA DVDY01 DVDY01O DEVICE l $ P DATA /FFFF BACKSPACE AND CANCEL $ P DATA /FFBA EOR AND DOUBLE ZERO 6 P DATA DWTSQ+DVKB01 POINTER TO FIRST PLACE
0x1926c0…248b20 [0x4cd]: Pad {f00=0x0102, f01=0x4100, f02=»A 0,0,0,0,0,0,0,0 P DATA 0,0,0,0 P IFT MMUPAG=1 0 PDEVECB EQU * F P DATA 0,0,0,0,0,0 Z P DATA 0,0,0,0,0,0,0,0 t P DATA 0,0,0,0,0,0,0,0 P DATA 0,0,0,0 P XIF PDWTEND EQU * P* P END @ RST PLACE
0x1926c0…248b20 [0x4ce]: Pad {f00=0x0102, f01=0x2008, f02=» BLE ZERO 6 P DATA DWTSQ+DVTKB POINTER TO FIRST PLACE IN QUEUE 4 P DATA DWTSQ+DVTKB POINTER TO LAST PLACE IN QUEUE R PDWTSQ EQU *-DVTKB P RES 0 P* P END @ 0 SAVE AREA FOR A4 P DATA 0 SAVE AREA FOR A5 P RES
0x1926c0…248b20 [0x4cf]: Pad {f00=0x0102, f01=0x0190, f02=»DB DATA FILE $ ~ PDMTIZ1 EQU * % P LD A9,DWTECB,A1 USER ECB % ( P RB DMTIT0 % J P EJECT DMSUBR % 8 P****DESCRIPTION************************************* % t P* % 8 P* GTBKBU WILL GET A BLOCK BUFFER FOR DISC I/O AND % 2 P* PREPARE IT. ECB
0x1926c0…248b20 [0x4d0]: Pad {f00=0x0103, f01=0x0190, f02=» PGTL150 EQU * . P ADK A7,1 RECORD COUNTER . P SUR A6,A4 . 8 * P RB(NN) GTL150 COUNT RECORDS IN SECTOR . J P* . x , P* ADD SECT*BLOCFACT AND RECINCURRSECT . P* . P ADR A2,A7 . P RF(O) GTL160 OVERFLOW . P RF GTL170 . PGTL160 EQU *
0x1926c0…248b20 [0x4d1]: Pad {f00=0x0103, f01=0x0002, f02=» h
0x1926c0…248b20 [0x4d2]: Pad {f00=0x0103, f01=0x018e, f02=» 2 P IDENT DVTP01 REL 9.2 79-11-16 870105040920 P : 4 P* DEVICE WORK TABLE FOR TELLER TERMINAL PRINTER B P* z P ENTRY DVTP01 TABLE ENTRY P* P* ( P EXTRN TPAD POINTER TO ADDRESS-BLOCK $ PMMUPAG EQU 1 MEM. MAN.UNIT COND.
0x1926c0…248b20 [0x4d3]: Pad {f00=0x0103, f01=0x018e, f02=» P DATA 0 ECB ADDRESS P DATA DWTEND-DVTP01 ORDER ( P DATA TPAD POINTER TO ADDRESS BLOCK B P DATA 'TP' TTAB-ADDRESS n $ P DATA 0 WAIT/ACTIVATE INDICATOR P DATA 0 TERMINAL QUEUE IFT MMUPAG=1 & " DATA 0 SAVE AREA USER ECB ADDRE
0x1926c0…248b20 [0x4d4]: Pad {f00=0x0103, f01=0x40f6, f02=» f P DATA 0,0,0,0 STACK P DATA 0 TIMER POINTER $ ( P DATA 0 REQUESTED,ACTUAL LINE NUMBER B P IFT MMUPAG=1 n PDEVECB EQU * P DATA 0,0,0,0,0,0 P XIF PDWTEND EQU * P* P* P END @ AREA USER ECB ADDRE
0x1926c0…248b20 [0x4d5]: Pad {f00=0x0103, 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 TI
0x1926c0…248b20 [0x4d6]: Pad {f00=0x0103, f01=0x0190, f02=»VUS50 MORE CHAR. TO MOVE? 3 P RB MVUS30 NO, RETURN 4 " P* 4 @ P EJECT DMSUBR 4 J P* 4 b P* 4 l , PMVUS60 EQU * REQUESTED LENGTH WAS UNEVEN 4 v ( P SUK A3,1 MAKE REQUESTED LENGTH EVEN 4 * P RF(NP) MVUS70 ONLY ONE CHAR. TO MOVE? 4 P LDR A4,A1
0x1926c0…248b20 [0x4d7]: Pad {f00=0x0103, f01=0x0190, f02=»FROM USER BUFFER 4 v P* 5 PMVUS65 ECR A5,A5 5 " 0 P SCR A5,A2 STORE LAST CHAR. IN SYSTEM BUFFER 5 : P RB MVUS30 RETURN 5 n P* 5 4 PMVUS70 ELR A5,A1 GET LAST CHAR. FROM USER BUFFER 5 P RB MVUS65 5 P* 5 2 PMVUS80 EQU * BOTH BUFFER ADDRESSES W
0x1926c0…248b20 [0x4d8]: Pad {f00=0x0103, f01=0x0190, f02=» = & P ADR A4,A5 UPDATE BUFFER ADDRESSES > P ADR A2,A5 > 2 2 P LDR* A4,A4 GET LAST CHAR. FROM SYSTEM BUFFER > D P RB MVSU70 > z P* > 8 PMVSU95 LDR* A4,A1 GET LAST CHAR. FROM SYSTEM BUFFER > P RB MVSU70 > P XIF > P* > P IFT MMUPAG=0 >
0x1926c0…248b20 [0x4d9]: Pad {f00=0x0103, f01=0x0002, f02=» x
0x1926c0…248b20 [0x4da]: Pad {f00=0x0103, f01=0x0190, f02=» 2 P IDENT DVDY01 REL 9.2 79-11-16 870105040920 P : * P* DEVICE WORK TABLE FOR VIDEO DISPLAY B P* p P ENTRY DVDY01 TABLE ENTRY z P* P* ( P EXTRN DYAD POINTER TO ADDRESS BLOCK PMMUPAG EQU 1 P* PDVDY01 EQU * TAB
0x1926c0…248b20 [0x4db]: Pad {f00=0x0103, f01=0x0190, f02=» DATA DWTEND-DVDY01 ORDER ( P DATA DYAD POINTER TO ADDRESS-BLOCK " P DATA 'DY' TTAB-ADDRESS N $ P DATA 0 WAIT/ACTIVATE INDICATOR n P DATA 0 TERMINAL QUEUE IFT MMUPAG=1 & " DATA 0 SAVE AREA USER ECB ADDRESS DATA DEVECB MMU ECB A
0x1926c0…248b20 [0x4dc]: Pad {f00=0x0103, f01=0x4158, f02=»VE AREA FOR A5 P RES 4 DWT-STACK P DATA 0 TIMER POINTER . P DATA /101 CURSOR POINTER L * P DATA /1850 LEFT BYTE=NUMBER OF LINES n " P RIGHT BYTE=CHARACTERS/LINE P DATA 0 BUFFER INDEX P IFT MMUPAG=1 PDEVECB DATA 0,0,0,0,0,
0x1926c0…248b20 [0x4dd]: Pad {f00=0x0103, 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-STA
0x1926c0…248b20 [0x4de]: Pad {f00=0x0103, f01=0x0190, f02=»1,0 SET CR # $ P RF(Z) TAS160 ALL VOLUMES FOUND $ P* $ : , P* ALL VOL NOT FOUND. ACT FLEXDISCTASK $ D P* $ t P LD A1,TASCVO $ ~ P LDK A2,2 ID DMTASK FLEXDISC $ P SC A2,TASVOL,A1 SEE TAS195 $ P EJECT $ P* $ , P* CHECK IF FILE CODE
0x1926c0…248b20 [0x4df]: Pad {f00=0x0103, f01=0x0190, f02=»D $ j P LDR A10,A10 TC % P RF(Z) TAS165 GLOBAL ASSIGN % " P LD A2,TASTTA TTAB ADDR % F P LDR A4,A2 % f P LD A2,TTB:TD,A4 % x P ADKL A4,TTB:TD+1 % P RF TAS170 % PTAS165 EQU * % P LD A4,SCTCDT % P LDR* A2,A4 % P ADK A4,1 %
0x1926c0…248b20 [0x4e0]: Pad {f00=0x0109, f01=0x0190, f02=» MPYMODF , ( 0 D $ V T 2 T , ( 4 ^ S W B MOV:US r , ( : U ; $ T $ T $ T x : : , ( $ T $ ) ] $ ) Y _$ , ( U x 0 )_8 $_ $ )
0x1926c0…248b20 [0x4e1]: Pad {f00=0x0109, f01=0x0002, f02=»!0
0x1926c0…248b20 [0x4e2]: Pad {f00=0x0109, f01=0x0190, f02=» 2 P IDENT DVKB02 REL 9.2 79-11-16 870105040920 P : " P* KEYBOARD DEVICE WORK TABLE B P* h P ENTRY DVKB02 TABLE ENTRY r P EXTRN CTAB03 ( P EXTRN KBAD3 POINTER TO ADDRESSBLOCK P EXTRN DVDY02 PMMUPAG EQU 1 P* P
0x1926c0…248b20 [0x4e3]: Pad {f00=0x0109, f01=0x0190, f02=»ADDRESS P DATA DWTEND-DVKB02 ORDER ( P DATA KBAD3 POINTER TO ADDRESS BLOCK 2 P DATA 'KB' TTAB-ADDRESS ^ $ P DATA 0 WAIT/ACTIVATE INDICATOR ~ P DATA 0 TERMINAL QUEUE IFT MMUPAG=1 & " DATA 0 SAVE AREA USER ECB ADDRESS DATA
0x1926c0…248b20 [0x4e4]: Pad {f00=0x0109, f01=0x0190, f02=»VE AREA FOR A4 P DATA 0 SAVE AREA FOR A5 P RES 4 DWT-STACK 6 P DATA 0 TIMER POINTER N P DATA DVDY02 DVDY02O DEVICE l $ P DATA /FFFF BACKSPACE AND CANCEL $ P DATA /FFBA EOR AND DOUBLE ZERO 6 P DATA DWTSQ+DVKB02 POINTER TO FIRST PLACE
0x1926c0…248b20 [0x4e5]: Pad {f00=0x0109, f01=0x4100, f02=»A 0,0,0,0,0,0,0,0 P DATA 0,0,0,0 P IFT MMUPAG=1 0 PDEVECB EQU * F P DATA 0,0,0,0,0,0 Z P DATA 0,0,0,0,0,0,0,0 t P DATA 0,0,0,0,0,0,0,0 P DATA 0,0,0,0 P XIF PDWTEND EQU * P* P END @ RST PLACE
0x1926c0…248b20 [0x4e6]: Pad {f00=0x0109, f01=0x2008, f02=» BLE ZERO 6 P DATA DWTSQ+DVTKB POINTER TO FIRST PLACE IN QUEUE 4 P DATA DWTSQ+DVTKB POINTER TO LAST PLACE IN QUEUE R PDWTSQ EQU *-DVTKB P RES 0 P* P END @ 0 SAVE AREA FOR A4 P DATA 0 SAVE AREA FOR A5 P RES
0x1926c0…248b20 [0x4e7]: Pad {f00=0x0109, f01=0x0000, f02=»
0x1926c0…248b20 [0x4e8]: Pad {f00=0x010b, f01=0x0000, f02=»
0x1926c0…248b20 [0x4e9]: Pad {f00=0x010b, f01=0x0002, f02=»!`
0x1926c0…248b20 [0x4ea]: Pad {f00=0x010b, f01=0x0190, f02=» 2 P IDENT DVDI02 REL 9.2 79-11-16 870105040920 P : P =1,HANG UP AT /03 OUTPUT B P REL 9.1 79-05-23 f P* . P* DEVICE WORK TABLE FOR DISPLAY INDICATOR P* P* & P ENTRY DVDI02 DISPLAY INDICATOR 03 P* P*
0x1926c0…248b20 [0x4eb]: Pad {f00=0x010b, f01=0x0190, f02=»RAMETER z 0 P DATA /8000 STATUS. /8000 MEANS DEVICE READY P DATA 0 ECB ADDRESS D P DATA DWTEND-DVDI02 ORDER ` ( P DATA DIAD POINTER TO ADDRESS-BLOCK 6 P DATA 'DI',0 TERM.NUMBER AND PROGRAM START ADDRESS $ P DATA 0 ECB QUEUE ANCHOR ADDRESS
0x1926c0…248b20 [0x4ec]: Pad {f00=0x010b, f01=0x4162, f02=»UEUE P DATA /0000 P DATA /3F4F,/5F6F * P DATA 0 SAVE AREA FOR FLASHING LIGHTS : P DATA 0 TIMER POINTER h P DATA 0 DUMMY WORD =1 P DATA 0 DUMMY WORD =1 " P DATA 0 DUMMY TIMER POINTER =1 P IFT MMUPAG=1 PDEVECB DATA
0x1926c0…248b20 [0x4ed]: Pad {f00=0x010b, 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
0x1926c0…248b20 [0x4ee]: Pad {f00=0x010b, f01=0x0000, f02=»
0x1926c0…248b20 [0x4ef]: Pad {f00=0x010b, f01=0x0000, f02=»
0x1926c0…248b20 [0x4f0]: Pad {f00=0x010b, f01=0x0000, f02=»
0x1926c0…248b20 [0x4f1]: Pad {f00=0x010b, f01=0x0002, f02=»!p
0x1926c0…248b20 [0x4f2]: Pad {f00=0x010b, f01=0x0190, f02=» 2 P IDENT DVDY02 REL 9.2 79-11-16 870105040920 P : * P* DEVICE WORK TABLE FOR VIDEO DISPLAY B P* p P ENTRY DVDY02 TABLE ENTRY z P* P* ( P EXTRN DYAD POINTER TO ADDRESS BLOCK PMMUPAG EQU 1 P* PDVDY02 EQU * TAB
0x1926c0…248b20 [0x4f3]: Pad {f00=0x010b, f01=0x0190, f02=» DATA DWTEND-DVDY02 ORDER ( P DATA DYAD POINTER TO ADDRESS-BLOCK " P DATA 'DY' TTAB-ADDRESS N $ P DATA 0 WAIT/ACTIVATE INDICATOR n P DATA 0 TERMINAL QUEUE IFT MMUPAG=1 & " DATA 0 SAVE AREA USER ECB ADDRESS DATA DEVECB MMU ECB A
0x1926c0…248b20 [0x4f4]: Pad {f00=0x010b, f01=0x4158, f02=»VE AREA FOR A5 P RES 4 DWT-STACK P DATA 0 TIMER POINTER . P DATA /101 CURSOR POINTER L * P DATA /1850 LEFT BYTE=NUMBER OF LINES n " P RIGHT BYTE=CHARACTERS/LINE P DATA 0 BUFFER INDEX P IFT MMUPAG=1 PDEVECB DATA 0,0,0,0,0,
0x1926c0…248b20 [0x4f5]: Pad {f00=0x010b, 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-STA
0x1926c0…248b20 [0x4f6]: Pad {f00=0x010b, f01=0x0000, f02=»
0x1926c0…248b20 [0x4f7]: Pad {f00=0x010b, f01=0x0000, f02=»
0x1926c0…248b20 [0x4f8]: Pad {f00=0x010c, f01=0x0000, f02=»
0x1926c0…248b20 [0x4f9]: Pad {f00=0x010c, f01=0x0002, f02=»!
0x1926c0…248b20 [0x4fa]: Pad {f00=0x010c, f01=0x018e, f02=» 2 P IDENT DVGP03 REL 9.2 79-11-16 870105040920 P : , P* DEVICE WORK TABLE FOR GENERAL PRINTER B P* r P ENTRY DVGP03 TABLE ENTRY | P* P* ( P EXTRN GPAD POINTER TO ADDRESS BLOCK PMMUPAG EQU 1 P* PDVGP03 EQU * T
0x1926c0…248b20 [0x4fb]: Pad {f00=0x010c, f01=0x0190, f02=» P DATA DWTEND-DVGP03 ORDER ( P DATA GPAD POINTER TO ADDRESS-BLOCK & P DATA 'GP' TTAB-ADDRESS R $ P DATA 0 WAIT/ACTIVATE INDICATOR r P DATA 0 TERMINAL QUEUE IFT MMUPAG=1 & " DATA 0 SAVE AREA USER ECB ADDRESS DATA DEVECB MMU E
0x1926c0…248b20 [0x4fc]: Pad {f00=0x010c, f01=0x40f0, f02=»0 SAVE AREA FOR A5 P RES 4 DWT-STACK P DATA 0 TIMER POINTER 2 " P DATA 0 HEAD POSITIPN POINTER P P IFT MMUPAG=1 v PDEVECB DATA 0,0,0,0,0,0 P XIF PDWTEND EQU * P* P* P END @ DATA DEVECB MMU E
0x1926c0…248b20 [0x4fd]: Pad {f00=0x010c, f01=0x2008, f02=» ESS-BLOCK ~ P DATA 0 TTAB-ADDRESS $ P DATA 0 WAIT/ACTIVATE INDICATOR 6 P DATA 0 TERMINAL QUEUE ^ P DATA 0 OUTPUT QUEUE LINK | P DATA 0 SAVE AREA FOR A3 P DATA 0 SAVE AREA FOR A4 P DATA 0 SAVE AREA FOR A5 P RES 4 DWT-S
0x1926c0…248b20 [0x4fe]: Pad {f00=0x010c, f01=0x0000, f02=»
0x1926c0…248b20 [0x4ff]: Pad {f00=0x010c, f01=0x0000, f02=»
0x1926c0…248b20 [0x500]: Pad {f00=0x007e, f01=0x0190, f02=» P > v W T : T ( 3 r 7 H D ! @ EP6 KR0 SP WT$ [T cW oP T T2 P4 PJ PL P P. < H D !6 W P P !T %W )W 5W 9W =W M p U ] H D ! ` c i u p { T( P %& W
0x1926c0…248b20 [0x501]: Pad {f00=0x007e, f01=0x001e, f02=» ( 0 8 @ H
0x1926c0…248b20 [0x502]: Pad {f00=0x007e, f01=0x0190, f02=» v J h h h h h h < h h%>%d $ . 8 h h h h h h $ h h h h h h h h h h h h h h h h h h h h h h h h h h h h h h h h h h h h h n c @ Tg t z ^ b bLPL H b2 Z ` zP
0x1926c0…248b20 [0x503]: Pad {f00=0x007e, f01=0x0190, f02=» 4c @S{ D d 2Z $"z y B % y D Dbf d * F :P }B W [~ ? d j% L "~ T &b ICn 1 d _ A d " _ @ > > U # T @ H ( ( P c P W: P, A @ V ( U P" @C V LC W @C
0x1926c0…248b20 [0x504]: Pad {f00=0x007e, f01=0x0190, f02=» 6 8 Q Z P 0 9 t t_ $ @ _, ? P H H #P h A d A FQ ? @ : ) A _ @ @ A H ( A _ ? ? ? ? ? ^ A _ _ ^ $P T I R $ 5 % > ? W ? W ? T T$ U U U U T
0x1926c0…248b20 [0x505]: Pad {f00=0x007e, f01=0x0190, f02=» Q Q > > 0 @ l 1 A l P P > ? * X " R" Y T ? X D D T> X W8 > _& @ 8 R" Y T ? X D D T X W > _& W2 > 8 X W( ? ` @ @ P $ H W W > > > > > > @ `V ? ` > _ > ? _ > > ? ^ ! Y ^ _ n ?
0x1926c0…248b20 [0x506]: Pad {f00=0x007e, f01=0x0190, f02=» < $ ( , 0 4 8 < C 8W T 8P Y ^ 5 ) P U XH D #DP @ R XV Y @ P, D T W X &P T X I Y T # C C W4 O " # X Y ) C
0x1926c0…248b20 [0x507]: Pad {f00=0x007e, f01=0x0190, f02=» P j$ > > F C F C > B R Q F ! P C > C > F :c" H :b"? #" : C > B R Q~ P0 B P* 0$ T # R QL > X B U( H Q2 X
0x1926c0…248b20 [0x508]: Pad {f00=0x007f, f01=0x0190, f02=» P PL $ # Q > P _0 # T p > P p (_H _2 B U X > ? _ X T (@ H ^ > > ? _ X T X X T % T ?C L Rl _@(@ L U L Q0 M & X
0x1926c0…248b20 [0x509]: Pad {f00=0x007f, f01=0x0190, f02=» 0P X T 4 Y X D X T X X 1 1 X P - M T $ PD _ T " # p X L R P RP (@ ^ X P8 P0 # P T P 0P 1 _ t W Y > > rJ B B zJ B B pU
0x1926c0…248b20 [0x50a]: Pad {f00=0x007f, f01=0x0190, f02=» 0 R t B " P Q :A H P P H !@T I T ! 1 U A d ? W A d ? W A d ? W U R ; V ~# T R p 4 # PJ P 4 RL P 4 ] P $ P ] U PD P< P0 P,
0x1926c0…248b20 [0x50b]: Pad {f00=0x007f, f01=0x0190, f02=» ' T P X P " >Wh T # Y U T ] W 8V X $P y $W $ CP P 8R R Y $ X Z ;BR 8% =A Y T Z& h_, X ' X 4X< XB U T T U 5 U R " ] ~ ;h # <c$
0x1926c0…248b20 [0x50c]: Pad {f00=0x007f, f01=0x0190, f02=»X <d$ _D $?:D" Y X P Y # P 4T U # P 4 4 P _r T _$ U _ ? 4 U 5 R PF "P2 R T T R X # X h > P P P ` X XF _H Wj ? T T CP W u > > E D E
0x1926c0…248b20 [0x50d]: Pad {f00=0x007f, f01=0x0190, f02=»XB Y X X X X ' 4 B U B (" W C (@ > ?" 8' ?A R 8;b# 4T RT T T ] ] 8 W< TrW T ] _ P T V WT 8V T P U 8 ~ U Q2P X H 5 U R " ] ~ Y > > V P X
0x1926c0…248b20 [0x50e]: Pad {f00=0x007f, f01=0x0190, f02=» 4XR XX 5 h_b Y Y Y X 9BV$ X & Y " X D V & X . T 8TV 9WD B 7P P A W A @ A.W ? A dI.9 X R C C & ?A @ A. X V 9_: @
0x1926c0…248b20 [0x50f]: Pad {f00=0x007f, f01=0x0190, f02=» Pb P Pv Pz * 6 + A @ A. H CP d Y HW A @ A. Wx ! * X , X P ! ! BW< ! * _ ! * _& ! X , X P ! H X , X P B B ! f ! B ! T Y *W X * p ! H# f & ! H ! " 0 TOT
0x1926c0…248b20 [0x510]: Pad {f00=0x007f, f01=0x0190, f02=»& Ph B @ @ :C P ! H 9DV ! (@ B r ! ! R ! j ! ! b ! ( ! ! Z ! X Y . X * f " ! H_ Y * 4 ! ~ PT C ! l ! H ! (@ ! ~ R _ ! V 1 ;h 1 ! V 1 ! ! l* ! B ! ! ~ ) ! H Y *# T X Y
0x1926c0…248b20 [0x511]: Pad {f00=0x007f, f01=0x0190, f02=» ! B ! ~ ! T )WL WP ! ~ Xz R ! ( - j ! ) W. Y PW Y P Y L Y N Y B S W W B C & _ ? , Y " X $ T X Y $ Y X HP 1 Y H 0 Y J 1 0B. X (P y (_^ ( CP _n Y ( " X . P Y : ! F ! H X # P Y
0x1926c0…248b20 [0x512]: Pad {f00=0x007f, f01=0x0190, f02=» D C Y B K & E % Y B K , X ;AR@;a X &P Y & P 7P < $ <C ! 9 4 X t " _ W B RZ X , X P W P Q8 U _ T,: B R(' P Q 9BW Q 9C B ! T 4 x @ P ;A _ 4 X
0x1926c0…248b20 [0x513]: Pad {f00=0x007f, f01=0x0190, f02=»U P jW kQ 4 Y * ! 0" Z Y" P Z _ 4 A ;D A 4 R _ ;H 4 r ! (:C 4 Z ! ( 4 X " 4 ! ) 4 X P t 4 P y _^ _n Y " X P Y : ! ! H X # P Y
0x1926c0…248b20 [0x514]: Pad {f00=0x007f, f01=0x0190, f02=» P Y P 7P < $ <C ! 9 4 X t " _ W B R X X P W P Q U _ T : B R ' P Q 9BW Q 9C B ! T 4 x @ P ;A _ 4 X
0x1926c0…248b20 [0x515]: Pad {f00=0x007f, f01=0x0190, f02=»U P jW kQ 4 Y ! 0" Z Y" P Z _ 4 A ;D A 4 R _ ;H 4 ! (:C 4 ! ( 4 X " 4 ! ) 4 X P t 4 P y _^ & & P Y : ! ! H X # P Y
0x1926c0…248b20 [0x516]: Pad {f00=0x007f, f01=0x0190, f02=» @B8P 0P _ % AB6 AB: &_^ B Q< R_r X P 0 Y P C x_ _ B Y _N X P A CN Y Wb Y @_x X X A CN Y _& Y h @ 0 A ^ A _: X P ( y Y W & (P 0 ) > (P _ ) 1_
0x1926c0…248b20 [0x517]: Pad {f00=0x007f, f01=0x0190, f02=» @ @ A X &_" X P y Y X P T h @ T A ^ A > A > A B A F A J A N RW > 4 " !% B !% T P P ! ! ! !% Tf Tb A& P A& TR !% TL !% TD T@ !%
0x1926c0…248b20 [0x518]: Pad {f00=0x007f, f01=0x0190, f02=» @ `P @& X@ !#: T< A d !# ~ @ ^P @& P @ 8 !"f !" A h_: !% X6_Z A d @& @ tT 1 R 0 2P P P A r > @ Z 8 HB| @& P E & PF X R@ X P X T2 P C * C X T ! W xW( &W" X R X T & ! !# ~_ A `
0x1926c0…248b20 [0x519]: Pad {f00=0x007f, f01=0x0190, f02=» @ @ t @ n A r " !&~ @ ^XN !% T @ hP !# !&N_h 1T& @ hX @ bP !" !# A f_ A h " < A ^ @ bT _, _0 @ ^T8W ~ @& T !# _ !"f !# _ A ` A r E A d A Z 4 @ ^P !# !&N ~ !&*W ~ @ T !# _ T h_ l A 8 C P B B A n
0x1926c0…248b20 [0x51a]: Pad {f00=0x007f, f01=0x0190, f02=» @ dT @ t A r @ r A t A d !% T2 P4 PJ PL P P. 1 A r @ r ]6W P _@ @& @ r E !& P !% 4 _$ !& 2_l 1 A hT 0W ;W A z A {W W W A z A { !%$ @ z !% @ { !% !% !% B J 4 !%$ !% @ n @ r A t @ rT( @
0x1926c0…248b20 [0x51b]: Pad {f00=0x007f, f01=0x0190, f02=» T 0 !% W R !% A r @ p @ rU< Zx Q P Q T 0 !% A r 0 !% A r !% !% $ A b _ B J B !% !% 4 A d ? <J T A jT PD 4 !%p ~ A d ? <_ I " P A d A 4 A _$B P W " " * 9AY X 2 _ !% 9AP ^ 2
0x1926c0…248b20 [0x51c]: Pad {f00=0x007f, f01=0x0190, f02=» a 4 CN& X A > CN&^ Z A x 4 A x !% @ ^P !# !&N ~ @ xP a x A x 4 A j !% T ' A j 4 & & / {W W W A z A { ! @ z ! @ { ! ! ! B J 4 ! ! @ n @ r A t @ rT @
0x1926c0…248b20 [0x51d]: Pad {f00=0x007f, f01=0x0190, f02=» T 0 ! W R ! A r @ p @ rU Zx Q P Q T 0 ! A r 0 ! A r ! ! $ A b _ B J B ! ! 4 A d ? <J T A jT P 4 ! ~ A d ? <_ I " P A d A 4 A _$B P W " " * 9AY X 2 _ !% 9AP ^ 2
0x1926c0…248b20 [0x51e]: Pad {f00=0x007f, f01=0x0190, f02=» a 4 & X A > Z A x 4 A x !% @ ^P !# !&N ~ @ xP a x A x 4 A j !% T ' A j 4 & / {W W W A z A { ! @ z ! @ { ! ! ! B J 4 ! ! @ n @ r A t @ rT @
0x1926c0…248b20 [0x51f]: Pad {f00=0x007f, f01=0x0190, f02=» T 0 ! W R ! A r @ p @ rU Zx Q P Q T 0 ! A r 0 ! A r ! ! $ A b _ B J B ! ! 4 A d ? <J T A jT P 4 ! ~ A d ? <_ I " P A d A 4 A _$B P W " " * 9AY X 2 _ !% 9AP ^ 2
0x1926c0…248b20 [0x520]: Pad {f00=0x007f, f01=0x0190, f02=» a 4 & X A > Z A x 4 A x !% @ ^P !# !&N ~ @ xP a x A x 4 A j !% T ' A j 4 & / {W W W A z A { ! @ z ! @ { ! ! ! B J 4 ! ! @ n @ r A t @ rT @
0x1926c0…248b20 [0x521]: Pad {f00=0x007f, f01=0x0190, f02=» T 0 ! W R ! A r @ p @ rU Zx Q P Q T 0 ! A r 0 ! A r ! ! $ A b _ B J B ! ! 4 A d ? <J T A jT P 4 ! ~ A d ? <_ I " P A d A 4 A _$B P W " " * 9AY X 2 _ !% 9AP ^ 2
0x1926c0…248b20 [0x522]: Pad {f00=0x007f, f01=0x0190, f02=» a 4 & X A > Z A x 4 A x !% @ ^P !# !&N ~ @ xP a x A x 4 A j !% T ' A j 4 & / {W W W A z A { ! @ z ! @ { ! ! ! B J 4 ! ! @ n @ r A t @ rT @
0x1926c0…248b20 [0x523]: Pad {f00=0x007f, f01=0x0190, f02=» T 0 ! W R ! A r @ p @ rU Zx Q P Q T 0 ! A r 0 ! A r ! ! $ A b _ B J B ! ! 4 A d ? <J T A jT P 4 ! ~ A d ? <_ I " P A d A 4 A _$B P W " " * 9AY X 2 _ !% 9AP ^ 2
0x1926c0…248b20 [0x524]: Pad {f00=0x007f, f01=0x0190, f02=» a 4 & X A > Z A x 4 A x !% @ ^P !# !&N ~ @ xP a x A x 4 A j !% T ' A j 4 & / {W W W A z A { ! @ z ! @ { ! ! ! B J 4 ! ! @ n @ r A t @ rT @
0x1926c0…248b20 [0x525]: Pad {f00=0x007f, f01=0x0190, f02=» T 0 ! W R ! A r @ p @ rU Zx Q P Q T 0 ! A r 0 ! A r ! ! $ A b _ B J B ! ! 4 A d ? <J T A jT P 4 ! ~ A d ? <_ I " P A d A 4 A _$B P W " " * 9AY X 2 _ !% 9AP ^ 2
0x1926c0…248b20 [0x526]: Pad {f00=0x007f, f01=0x0190, f02=» a 4 & X A > Z A x 4 A x !% @ ^P !# !&N ~ @ xP a x A x 4 A j !% T ' A j 4 & / {W W W A z A { ! @ z ! @ { ! ! ! B J 4 ! ! @ n @ r A t @ rT @
0x1926c0…248b20 [0x527]: Pad {f00=0x007f, f01=0x0190, f02=» T 0 ! W R ! A r @ p @ rU Zx Q P Q T 0 ! A r 0 ! A r ! ! $ A b _ B J B ! ! 4 A d ? <J T A jT P 4 ! ~ A d ? <_ I " P A d A 4 A _$B P W " " * 9AY X 2 _ !% 9AP ^ 2
0x1926c0…248b20 [0x528]: Pad {f00=0x0080, f01=0x0190, f02=» a 4 & X A > Z A x 4 A x !% @ ^P !# !&N ~ @ xP a x A x 4 A j !% T ' A j 4 & / {W W W A z A { ! @ z ! @ { ! ! ! B J 4 ! ! @ n @ r A t @ rT @
0x1926c0…248b20 [0x529]: Pad {f00=0x0080, f01=0x0190, f02=» T 0 ! W R ! A r @ p @ rU Zx Q P Q T 0 ! A r 0 ! A r ! ! $ A b _ B J B ! ! 4 A d ? <J T A jT P 4 ! ~ A d ? <_ I " P A d A 4 A _$B P W " " * 9AY X 2 _ !% 9AP ^ 2
0x1926c0…248b20 [0x52a]: Pad {f00=0x0080, f01=0x0190, f02=» a 4 & X A > Z A x 4 A x !% @ ^P !# !&N ~ @ xP a x A x 4 A j !% T ' A j 4 & / {W W W A z A { ! @ z ! @ { ! ! ! B J 4 ! ! @ n @ r A t @ rT @
0x1926c0…248b20 [0x52b]: Pad {f00=0x0080, f01=0x0190, f02=» T 0 ! W R ! A r @ p @ rU Zx Q P Q T 0 ! A r 0 ! A r ! ! $ A b _ B J B ! ! 4 A d ? <J T A jT P 4 ! ~ A d ? <_ I " P A d A 4 A _$B P W " " * 9AY X 2 _ !% 9AP ^ 2
0x1926c0…248b20 [0x52c]: Pad {f00=0x0080, f01=0x0190, f02=» a 4 & X A > Z A x 4 A x !% @ ^P !# !&N ~ @ xP a x A x 4 A j !% T ' A j 4 & / {W W W A z A { ! @ z ! @ { ! ! ! B J 4 ! ! @ n @ r A t @ rT @
0x1926c0…248b20 [0x52d]: Pad {f00=0x0080, f01=0x0190, f02=» T 0 ! W R ! A r @ p @ rU Zx Q P Q T 0 ! A r 0 ! A r ! ! $ A b _ B J B ! ! 4 A d ? <J T A jT P 4 ! ~ A d ? <_ I " P A d A 4 A _$B P W " " * 9AY X 2 _ !% 9AP ^ 2
0x1926c0…248b20 [0x52e]: Pad {f00=0x0080, f01=0x0190, f02=» a 4 & X A > Z A x 4 A x !% @ ^P !# !&N ~ @ xP a x A x 4 A j !% T ' A j 4 & / {W W W A z A { ! @ z ! @ { ! ! ! B J 4 ! ! @ n @ r A t @ rT @
0x1926c0…248b20 [0x52f]: Pad {f00=0x0080, f01=0x0190, f02=»STUVWXYZ@,%_>?0123456789:[ '="B<B: 7- <=2&p ?' @O JZlP}M] Nk`Ka z^L~noj {|[_m TOSS T C CNC:
0x1926c0…248b20 [0x530]: Pad {f00=0x0080, f01=0x0190, f02=» D]*]<]D]@C ]`v v wR w x z z v v D D F0F0F0F0F0E E E@D E E D F0F0D E E E@D " # $ % "$&( D C @ D X P _ L !##P T @ R $P U + U _ (@(@ IC P ^ F0 HD Y HC B # X ( U
0x1926c0…248b20 [0x531]: Pad {f00=0x0080, f01=0x0190, f02=» W < C C _H Y H H S W C C B B B U Y$ R Wp H TP L P B r L ( [ $ X _ X ` T I T J X< P C X I X J S W C C W, B B Y IR Q X JU C '? T W6 Z T.(@(@ P
0x1926c0…248b20 [0x532]: Pad {f00=0x0080, f01=0x0190, f02=» - _ " P $ - : R $ - _ : Z $ -_ D ( U ( 0 W T ` U @ , @ W : X & X P !##T Y T( X P P P @ Q (@ F [ : @ _ ( H > G8 X &Pj D ^V" D "? P P &P E ^ Z
0x1926c0…248b20 [0x533]: Pad {f00=0x0080, f01=0x0190, f02=» T AF J , X P W T Y $ P T _ Y & F ^ f(@ _ J X & X I U X J U ( Zn T$ X X RP F F T Kv P ` U0 @ , D !##X D ( * ]" 0 X Wf ` U @ H @ X WF
0x1926c0…248b20 [0x534]: Pad {f00=0x0080, f01=0x0190, f02=» F (@ B ^ P 9 f K 4' I<' I< 5 I< 4 P W , P& ,' X X 1 Z" ) I<_ (@ C ( B ! Kv I< @F F U G F G F Kt & ( F " F +P P* X $ T Y$ U W Y$ R P> $P8W Kv
0x1926c0…248b20 [0x535]: Pad {f00=0x0080, f01=0x0190, f02=» T Y ^ F " F D '? P P( $ P" Y I I K K P P & P YjW D $ T Y$ T YNW E I E J X ^V ? T B ^ &(@( x B B P ! Tn M N : K Ax Ax " P xt "" y P
0x1926c0…248b20 [0x536]: Pad {f00=0x0080, f01=0x0190, f02=»x @x Ax Q< @xv Nl Axv @x N B ^ Dxx ExzX #D( K ( B ^ B @xv Dxx W C C ( K K x xt @x T Ax 0" NV NV U _ L !SSP !LL NV W L @x Ax V N P Ex @xv Ex P
0x1926c0…248b20 [0x537]: Pad {f00=0x0080, f01=0x0190, f02=»N x r P %_ S D S E 3 P S I P S J P S ( P S * P % S H P & S P @x S , d S B | L Lb @x T W x T Wz @x P R ( >a U Wb 0 =b Px P @x ! T. W< Px Dxx Y Px Y Px Y U
0x1926c0…248b20 [0x538]: Pad {f00=0x0080, f01=0x0190, f02=»X6(@ @x P -W P B ^ f x (@( @x O _ T `xt ` 9A S ^ H $X D S . S $ [ R * S W S _ S ` R ( R * X` S b O" U _ L !SSP !LL W L @ A V P E @ E P
0x1926c0…248b20 [0x539]: Pad {f00=0x0080, f01=0x0190, f02=» P %_ S D S E 3 P S I P S J P S ( P S * P % S H P & S P @ S , d S B | L Lb @ T W T W @ P R ( >a U W 0 =b P P @ ! T W P D Y P Y P Y U
0x1926c0…248b20 [0x53a]: Pad {f00=0x0080, f01=0x0190, f02=» (@ @ P -W P B (@( @ O _ T ` ` 9A S ^ H $X D S . S $ R * S W S _ S ` R ( R * S b O" U _ L !SSP !LL W L @ A V P E @ E P
0x1926c0…248b20 [0x53b]: Pad {f00=0x0080, f01=0x0190, f02=» P %_ S D S E 3 P S I P S J P S ( P S * P % S H P & S P @ S , d S B | L Lb @ T W T W @ P R ( >a U W 0 =b P P @ ! T W P D Y P Y P Y U
0x1926c0…248b20 [0x53c]: Pad {f00=0x0080, f01=0x0190, f02=» (@ @ P -W P B (@( @ O _ T ` ` 9A S ^ H $X D S . S $ R * S W S _ S ` R ( R * S b O" U _ L !SSP !LL W L @ A V P E @ E P
0x1926c0…248b20 [0x53d]: Pad {f00=0x0080, f01=0x0190, f02=» P %_ S D S E 3 P S I P S J P S ( P S * P % S H P & S P @ S , d S B | L Lb @ T W T W @ P R ( >a U W 0 =b P P @ ! T W P D Y P Y P Y U
0x1926c0…248b20 [0x53e]: Pad {f00=0x0080, f01=0x0190, f02=» (@ @ P -W X< P Q R ;A [ [ : P Q R ;A [ [ : Q R P ;A [ [ : ? ? !? P P !> P W 9P _ T !##P> ? R4 L TX P L P 4 M X M M _8 > & D LW
0x1926c0…248b20 [0x53f]: Pad {f00=0x0080, f01=0x0190, f02=» ( 0 5 @ l 1 A l Z> : D NW (P D + I W6 @U`T n ( AU` U 1_ D + I D N ) E N : T * X SP P W X * 0 U U. _ Y . R P Y $ P X ( _ W Y & : B P6 T G W& X ^ Y ^ B
0x1926c0…248b20 [0x540]: Pad {f00=0x0081, f01=0x0190, f02=» %? : X &_ 0 D . P , _ D . D $ D * X` T ( T & ^ S W : U ; $ T $ T $ T&x : : $ T2 $ ) ] $ ) Y _$ U x 0 )_8 $_ $ ) YP_J U ; $ T $ T $ TNp : : $ T* (W $ U $ )
0x1926c0…248b20 [0x541]: Pad {f00=0x0081, f01=0x0190, f02=» k ] a d g,g > > @ 0 A W & ^ ! Z( (X0 @ P T M ]@ , ) A P* P Y U ( ) 5 & > > [ [ Z Z Z ? Z > P "R Y W 0 Pl T Pb _ <UR "R4 PB X R< X T6 X T0. T
0x1926c0…248b20 [0x542]: Pad {f00=0x0081, f01=0x0190, f02=» ` X , ) Y . ` X P Y P C W~ 8!@P$ X $P y $W $ CP` ` Y $ X " PP:A: R Q W Y <D X ? ?: T p > aZ > Ph P C ` B ` T B % X . $ 4 T % _ X ,T ! P ` aj Y . V aZ !
0x1926c0…248b20 [0x543]: Pad {f00=0x0081, f01=0x0190, f02=»R W " ! B ^Z Wr W 0 Z aZ ! B Z Z& X . 0T X W X ,P Y . 0 %_. % Y . W _p P aZ _ X $P y $ Y $ C ! " ` QfR$ X # P X R6;GV2 X $P y $ ` P8 X R2;GV. X " ^Z X , $4 P aj
0x1926c0…248b20 [0x544]: Pad {f00=0x0081, f01=0x0190, f02=»WP R`P R&P8 R P W 9 WD $ P W _ $ P _$ _*_, _ %0=c X 0P > 0 > >_ B 1 > XT 0 _ d a d d !"&';<>@^_ 9: X ! Y Ma P ^ Y La a a b2b b a c c ! ! ! W
0x1926c0…248b20 [0x545]: Pad {f00=0x0081, f01=0x0190, f02=» W !d !c Y ! T ! V a ! B C ! ! T " T W Q " T ) !d a Y _ ! !dz Y &P Q W ! Y '" d0_" a~_< !dn_n !d _t B B , ! T _ D ! P ! P W C V B P ! ! ! Y
0x1926c0…248b20 [0x546]: Pad {f00=0x0081, f01=0x0190, f02=»R !__U C X ' W Y ! _ X RT U TJ X b ? Y X P " ! Y ' ! X T ! a R _ 4 ! ! ! " T ! ! ! ! 4 X ' 4 Y ' a ! ! " P ,$ , ! 4!"$&;<>@^_ d f f fx
0x1926c0…248b20 [0x547]: Pad {f00=0x0081, f01=0x0190, f02=» F U P" T Y &_. P4 R( Pj O]> V _F T Y Y & V Y _^ C _P F F" $ P X & X ]r ! Y Y Y _ F" Hd _ ! ! f & X C _ X Y & Y > B B U$ $ ! T _ U D ! T _ C > X Z^
0x1926c0…248b20 [0x548]: Pad {f00=0x0081, f01=0x0190, f02=»^ Y _( ? X Z ! P4 P f f X " d ! ! X & e f g4 grg B 8# T $ # ;D 7P P Y W Y X Y 8# T W$ T( X $ P X P B V *@ Y h ? X _F g k i j j^ i ! P P
0x1926c0…248b20 [0x549]: Pad {f00=0x0081, f01=0x0190, f02=» i B B U4 $ ! T _ U D ! T _ $$ X" X& X* C F i X`" Eg P( 8'0P Eg TD ! T 9 _ ! T @_ ! F B P !kV B C i ^N P R ?] _ C _ F F" $ P X ' X ] ! i
0x1926c0…248b20 [0x54a]: Pad {f00=0x0081, f01=0x0190, f02=» T X & C & X Y & Y > X " X &" Y )Q Y > X Z2<BR J ? Y ! T X ! Y & Zl i T _ ! X $ P !j h R V P P" ! i W i X $ X !j _ X $ X X & !kt !kV Y _8 X " X &" Y )
0x1926c0…248b20 [0x54b]: Pad {f00=0x0081, f01=0x0190, f02=» X $ X & !kt X * h hF `R Y ! ! ! 4 ! V ! V W :h ! 4 X )" X '# R 4 i > t v F B P ! B C ^N P R ?] _ C _ F F" $ P X ' X ] !
0x1926c0…248b20 [0x54c]: Pad {f00=0x0081, f01=0x0190, f02=» T X & C & X Y & Y > X " X &" Y )Q Y > X Z2<BR J ? Y ! T X ! Y & Zl i T _ ! X $ P ! h R V P P ! i W i X $ X ! _ X $ X X & ! ! Y _8 X " X &" Y )
0x1926c0…248b20 [0x54d]: Pad {f00=0x0081, f01=0x0190, f02=» X $ X & !kt X * h hF `R Y ! ! ! 4 ! V ! V W :h ! 4 X )" X '# R 4 i > F B P ! B C ^N P R ?] _ C _ F F" $ P X ' X ] !
0x1926c0…248b20 [0x54e]: Pad {f00=0x0081, f01=0x0190, f02=» T X & C & X Y & Y > X " X &" Y )Q Y > X Z2<BR J ? Y ! T X ! Y & Zl i T _ ! X $ P ! h R V P P ! i W i X $ X ! _ X $ X X & ! ! Y _8 X " X &" Y )
0x1926c0…248b20 [0x54f]: Pad {f00=0x0081, f01=0x0190, f02=» X $ X & !kt X * h hF `R Y ! ! ! 4 ! V ! V W :h ! 4 X )" X '# R 4 i > F B P ! B C ^N P R ?] _ C _ F F" $ P X ' X ] !
0x1926c0…248b20 [0x550]: Pad {f00=0x0081, f01=0x0190, f02=» T X & C & X Y & Y > X " X &" Y )Q Y > X Z2<BR J ? Y ! T X ! Y & Zl i T _ ! X $ P ! h R V P P ! i W i X $ X ! _ X $ X X & ! ! Y _8 X " X &" Y )
0x1926c0…248b20 [0x551]: Pad {f00=0x0081, f01=0x0190, f02=» X $ X & !kt X * h hF `R Y ! ! ! 4 ! V ! V W :h ! 4 X )" X '# R 4 i > F B P ! B C ^N P u P P .T B Y Wx B P X P ( ( 7 R ( P
0x1926c0…248b20 [0x552]: Pad {f00=0x0081, f01=0x0190, f02=» Au CPv Y X T Q (P H U ^ 9 1_N X T @k P ( Ak vF _ ( Y _ k _x X T @k P ( Ak vF_ ( Y _ k _ i v$ 9 @_ vH H k P k P $ $ 1 ) > ) $P e % > (@ B Z F U F Z k P U
0x1926c0…248b20 [0x553]: Pad {f00=0x0081, f01=0x0190, f02=» 9C @ _ T M D W. D D " @ @ - U _ 9B @ T W X > "RT PL X TF X R@? V X & X H P & X P t Y X H P & < ? < ? <(@ xF $ P B $ 9H C ">h # P >_2 < U =
0x1926c0…248b20 [0x554]: Pad {f00=0x0081, f01=0x0190, f02=» k _x X T @k P ( Ak vF_ ( Y @xpP 4 Axp U W Axp Axn @xr U : Ax Ax :A Axv , ` R @ U P. ,% T& x C ( B P T
0x1926c0…248b20 [0x555]: Pad {f00=0x0081, f01=0x0190, f02=»P ,! T T ( : n "' # x @xnP xp $ ) 5 Axn Ax Axr x " [ xt Ax "" P U W y xt P @xv Exx "# P P @xr P ( )W @ 0 R % "V E T D Ax _" P @xr P ( )W @ 0 Rb
0x1926c0…248b20 [0x556]: Pad {f00=0x0081, f01=0x0190, f02=» {f } k _x X T @k P ( Ak vF_ ( Y @xpP 4 Axp U W Axp Axn @xr U : Ax Ax :A Axv , ` R @ U P ,% T x C ( B P T
0x1926c0…248b20 [0x557]: Pad {f00=0x0081, f01=0x0190, f02=»P ,! T T ( : n "' #~ @xnP xp $ ) 5 Axn Ax Axr x " [ xt Ax "" P U W y xt P @xv Exx "# P P @xr P ( )W @ 0 R % "V E T D Ax _" P @xr P ( )W @ 0 R
0x1926c0…248b20 [0x558]: Pad {f00=0x0081, f01=0x0190, f02=» L k _x X T @k P ( Ak vF_ ( Y @xpP 4 Axp U W Axp Axn @xr U : Ax Ax :A Axv , ` R @ U P ,% T x C ( B P T
0x1926c0…248b20 [0x559]: Pad {f00=0x0081, f01=0x0190, f02=»P ,! T T ( : n "' # @xnP xp $ ) 5 Axn Ax Axr x " [ xt Ax "" P {f y xt P @xv Exx "# P P @xr P ( )W @ 0 R % "V E T D Ax _" P @xr P ( )W @ 0 R
0x1926c0…248b20 [0x55a]: Pad {f00=0x0081, f01=0x0190, f02=» k _x X T @k P ( Ak vF_ ( Y @xpP 4 Axp U W Axp Axn @xr U : @{b , L T L PF L T M Q M L V L A{d @{b : T n @{d [ [ M
0x1926c0…248b20 [0x55b]: Pad {f00=0x0081, f01=0x0190, f02=» U` Ub AU` X2 @{b , - M M M @{b Axn Axp > 8 h h 0123456789 & 0123456789 & < +.-, 0123456789 `ABCDEFGHIJKLMNOPQRSTUVWXYZ []' ^ > ?:_; =!"#$%&/()
0x1926c0…248b20 [0x55c]: Pad {f00=0x0081, f01=0x0190, f02=» A @ E D P _ $ % $P _ % A @ " Q A : R W2 A A ~ P. _ " :c* A ~ W " :d2 * A @ & W F ` W F W F CRT F A @ @ ! P2 @ P ;b=H F CR P F
0x1926c0…248b20 [0x55d]: Pad {f00=0x0081, f01=0x0190, f02=» @ V W Q Y P @ T W - P _ T <B :L A W A A W T F W V = V W Y* P Z( =
0x1926c0…248b20 [0x55e]: Pad {f00=0x0081, f01=0x0190, f02=» CRT @ P @ ! P W @ V P _ @ ! P !RRP V @ P W _: t V @ PZ W @ @ ! T _ P :l 9b ) V _ @ V W W P
0x1926c0…248b20 [0x55f]: Pad {f00=0x0081, f01=0x0190, f02=» W W V 0 !;;P P V Xb _ P !;;T X$ W nP XZ_V S A 3 A y @ R @ ! T A A V @ R V V I W V $ ) H A I. : C. X
0x1926c0…248b20 [0x560]: Pad {f00=0x0082, f01=0x0190, f02=» : @ A ~ A A A A H A L A l A p : 9e9C) A I " 9A ! 9B r @ r A I ! ( : A ~ A A A A ! T A A I ! : 9E @ r s A I T ) A _ I N T :
0x1926c0…248b20 [0x561]: Pad {f00=0x0082, f01=0x0190, f02=» X B.9 H Q ~_ _ !SST& 0 U R X A X W : @ ' R xW V W$ V P P W P V V T V T W P V W @ $ P p W T : A ~_ 0V ,
0x1926c0…248b20 [0x562]: Pad {f00=0x0082, f01=0x0190, f02=» [ : j A A A A ! T A W Z A. c @ V W U R $ )_ : W W W W W
0x1926c0…248b20 [0x563]: Pad {f00=0x0082, f01=0x0190, f02=» : V J P . r BV U . _ V . Z K W W :K W r BQ R t BV v : V W V ) : V <B W |P v v : $
0x1926c0…248b20 [0x564]: Pad {f00=0x0082, f01=0x0190, f02=»> <B V x V |P v 1 v W V z ` _f V : W R R P P v W x _ V : " D Pd W V PL $;A^ D E D P. V P P T E _J E _T " D T E E D E % : " R ;B
0x1926c0…248b20 [0x565]: Pad {f00=0x0082, f01=0x0190, f02=» ) 8 ( ) : " $ V P 9A _ 0 : W W W ?AP ^ 0 : W ; V : : , X G : J @ 0 V @ 0 H W : ? ? R 0 R P P B _ : V ) v : 4P: " D
0x1926c0…248b20 [0x566]: Pad {f00=0x0082, f01=0x0190, f02=» ) P _ " = D 4 Q ^_d H = G $ 4 V W $ b V E J K _N V r V :B A V 9n A @ A A , @ @ ! @ P P P P|_ _ @ 9N @ :b @ :b
0x1926c0…248b20 [0x567]: Pad {f00=0x0082, f01=0x0190, f02=» A 9n A :B A @ .V 3 S Y& P4 n n S P 3 _ n 3 p B A. @ D @ W x A ( : A > l : tR P W n V pT
0x1926c0…248b20 [0x568]: Pad {f00=0x0082, f01=0x0190, f02=» V d , V P _ N L % V d V f v G G v U v v G v : P P tV : v V ~P W x _$ 8 V V x % V v % : V V 9k! P % _ V V W W r W V v
0x1926c0…248b20 [0x569]: Pad {f00=0x0082, f01=0x0190, f02=» F _ W ~ R X4 F _ ` @ ` W W ~ pPn H V W % : R , " E R * W ~ R * R P R Xv _|W T : P W x _ V P I H W z ` pPl H - V
0x1926c0…248b20 [0x56a]: Pad {f00=0x0082, f01=0x0190, f02=» t V b v ( v W p V ` $ W ` ;h 0 :C # : .=H N .=H N N : d 8" R _ ZY QY : @ V H W z W | CRP W ` ` H W d 2 ;A @ BR - @
0x1926c0…248b20 [0x56b]: Pad {f00=0x0082, f01=0x0190, f02=»XX !CCT !UUT d XWh F 2 .:H N P V _ R :h " F YV : v `?A @ W W :b / W : W @ W D V W W ` " W p
0x1926c0…248b20 [0x56c]: Pad {f00=0x0082, f01=0x0190, f02=» _ W ` W d V V W W V V >k 8 W W t V V : x A P l W r l W @ @ % D V , P@ , - 4 ] 4 BY 5 X * _6 :
0x1926c0…248b20 [0x56d]: Pad {f00=0x0082, f01=0x0190, f02=»X" A 9 A : @ @ P. @ " P #D x " P #E x " P #F x : @ " P @ P 3 _ @ " P S 1 S 9J S ( 3 ( 9B @ @ T : @ :B W . !TTP W t N =H N W l N =H N
0x1926c0…248b20 [0x56e]: Pad {f00=0x0082, f01=0x0190, f02=» _2 P0 " U _2 V V tPJ S ( V | S =J @ " S V l S W l V p S W p W _L @ % P W @ % P !TTT @ @ T : @ ! P @
0x1926c0…248b20 [0x56f]: Pad {f00=0x0082, f01=0x0190, f02=» @ & P 4 3 4 3 YL @ @ T : l ` @ P _ 3 S S V V W @ @ T : P S S _ : . !TTP V W t * P
0x1926c0…248b20 [0x570]: Pad {f00=0x0088, f01=0x0190, f02=» K T + Y@ V p _j V t Y !TTX @ @ T : @ R @ T P / _ T @ A V W W t PT W f ( W d G =h G V d V
0x1926c0…248b20 [0x571]: Pad {f00=0x0088, f01=0x0190, f02=»CCTr P, V r 4 U $ $ _. P, V 4 U $ $ _. @ @ @ ! P V 8 8 8 @ >B 3 . !CCP W P0 W f W d V d V r < V f _2
0x1926c0…248b20 [0x572]: Pad {f00=0x0088, f01=0x0190, f02=» @ % P V 4 4 4 _r @ @ T : W V @ 0 V P _ W $ q > R P >b W >b & 8P D P U & E W V W R 9 W D ) $ P@ D L T@ D &P V U 0 I , I . $# P
0x1926c0…248b20 [0x573]: Pad {f00=0x0088, f01=0x0190, f02=» + P V : V $ F !LLT # W ;I # ;b W ;a WR# T W W,# T W W # T W W W R _ $ W : W | v z *T P _ / P *_ *T P$ _ .P
0x1926c0…248b20 [0x574]: Pad {f00=0x0088, f01=0x0190, f02=» @ T : N =H N : N =H N : &=H F : F =H F : F =H F : P N =H N T _ : 00=H 00 P P _ _ : @ ! P (W ( : 8 d @ 4 CRT"
0x1926c0…248b20 [0x575]: Pad {f00=0x0088, f01=0x0190, f02=» d , X a `& , , , , ,k L k ,k x k . DC ] KB >
0x1926c0…248b20 [0x576]: Pad {f00=0x0088, f01=0x0190, f02=» P @ ] KB =H N 6 4a TP * 8g DY b @ P
0x1926c0…248b20 [0x577]: Pad {f00=0x0088, f01=0x0190, f02=» 2g,DI ?O_o 8g DY X , P 4d GP ] KB
0x1926c0…248b20 [0x578]: Pad {f00=0x003e, f01=0x0190, f02=» , ( [ T { [ [ Q [ I:ADD 4 , ( yP { R [ _ D , ( Z ! Z $ t * & P Z %_N [ Q * & R [ Z { , (
0x1926c0…248b20 [0x579]: Pad {f00=0x003e, f01=0x0004, f02=»
0x1926c0…248b20 [0x57a]: Pad {f00=0x003e, f01=0x0190, f02=» . P IDENT CTAB01 80.09.17/EV NORDJYLLANDS AMT ENTRY CTAB01 6 P ENTRY CTAB02 L P ENTRY CTAB03 b P ENTRY CTAB04 x PCTAB01 EQU * PCTAB02 EQU * PCTAB03 EQU * 2 PCTAB04 DATA FUNC,FUNCSH,UNSC,SHIFT,UNSC,SHIFT *
0x1926c0…248b20 [0x57b]: Pad {f00=0x003e, f01=0x0190, f02=»A /9A9B D16,D17 P DATA /BFB5 A16,A17 P DATA /AAA3 A18,C18 4 DATA /8BA5 D18,A23 P DATA /3031 l DATA /3233 DATA /3435 DATA /3637 DATA /3839 DATA /BA26 A20,A21 DATA /ABB3 A22,C22 P D
0x1926c0…248b20 [0x57c]: Pad {f00=0x003e, f01=0x0190, f02=» DATA /7F7F DATA /7F7F DATA /7F7F , DATA /7F7F @ * T PFUNCSH EQU * ^ P DATA /7F9F A15,B15 r P DATA /BDBE B16,B17 P DATA /9C9D C15,C16 P DATA /9E99 C17,D15 P DATA /9A9B D16,D17 P DATA /BFB5
0x1926c0…248b20 [0x57d]: Pad {f00=0x003e, f01=0x018e, f02=»ATA /3637 DATA /3839 DATA /BA26 A20,A21 & P DATA /ABB4 A22,C22 B P DATA /B2A2 D22,D23 ^ DATA /A1A0 E15,E17 z DATA /AEAF E18,E19 DATA /8C80 E20,E21 DATA /B0B1 E22,E23 DATA /7F7F DATA /7F7F
0x1926c0…248b20 [0x57e]: Pad {f00=0x003e, f01=0x0190, f02=» P DATA /7F7F ,C12 P DATA /B63C E00,A00 P DATA /7F2B ,E11 < P DATA /2E2D B08,B10 T P DATA /2C7F B09 p P DATA /3031 P DATA /3233 P DATA /3435 P DATA /3637 P DATA /3839 P DATA /ACA9 B12,C13 P D
0x1926c0…248b20 [0x57f]: Pad {f00=0x003e, f01=0x0190, f02=» P DATA /4849 P DATA /4A4B P DATA /4C4D , P DATA /4E4F @ P DATA /5051 T P DATA /5253 h P DATA /5455 | P DATA /5657 P DATA /5859 P DATA /5A5C P DATA /5B5D P DATA /277F D12 P* PSHIFT EQ
0x1926c0…248b20 [0x580]: Pad {f00=0x004f, f01=0x0190, f02=»/7F3F ,E11 P DATA /3A5F B08,B10 P DATA /3B7F B09 . P DATA /3D21 F P DATA /2223 Z P DATA /2425 n P DATA /262F P DATA /2829 P DATA /ACA9 B12,C13 P DATA /ADA7 E13,D13 P DATA /A8A6 D14,E14 P DATA /4041
0x1926c0…248b20 [0x581]: Pad {f00=0x004f, f01=0x40d0, f02=»ATA /4E4F P DATA /5051 P DATA /5253 & P DATA /5455 : P DATA /5657 N P DATA /5859 b P DATA /5A5C v P DATA /5B5D P DATA /2A7F D12 P* END @ 7 E13,D13 P DATA /A8A6 D14,E14 P DATA /4041
0x1926c0…248b20 [0x582]: Pad {f00=0x004f, f01=0x2008, f02=» 233 DATA /3435 DATA /3637 ( DATA /3839 < DATA /BA26 A20,A21 P DATA /ABB3 A22,C22 l DATA /B292 D22,D23 DATA /A1A0 E15,E17 DATA /AEAF E18,E19 DATA /8C80 E20,E21 DATA /B0B1 E22,E2
0x1926c0…248b20 [0x583]: Pad {f00=0x004f, f01=0x40de, f02=» 6789 `ABCDEFGHIJKLMNOPQRSTU , ( VWXYZ []' ^ > ?:_; =!"#$% * , ( &/() @ABCDEFGHIJKLMNOPQRSTU Z VWXYZ []* : j j @ 012345 , ( ! 6789 &
0x1926c0…248b20 [0x584]: Pad {f00=0x004f, f01=0x0190, f02=»
0x1926c0…248b20 [0x585]: Pad {f00=0x004f, f01=0x0190, f02=»
0x1926c0…248b20 [0x586]: Pad {f00=0x004f, f01=0x0190, f02=»
0x1926c0…248b20 [0x587]: Pad {f00=0x004f, f01=0x0190, f02=»
0x1926c0…248b20 [0x588]: Pad {f00=0x0088, f01=0x0190, f02=» [ B w p w P 8 = i $ J ! * f E = / S 3 ^ c . 0 < d!& &01GEBRATRTEASSIGN DISCFEJL ! & 0 F V
0x1926c0…248b20 [0x589]: Pad {f00=0x0088, f01=0x0002, f02=»
0x1926c0…248b20 [0x58a]: Pad {f00=0x0088, f01=0x0190, f02=» SCR LED DRDC15,/S * &!!CH $$TBLEN EQU 2300$$TBLEN EQU 252$$ & $ !!CH $$CODE EQU 0$$CODE EQU 1$$ T !!EN | ASM /S,NL KPF /O SCR LED EBCDIC,/S $ !!CH $$CODE EQU 0$$CODE EQU 1$$ !!EN ASM /S,NL
0x1926c0…248b20 [0x58b]: Pad {f00=0x0088, f01=0x004c, f02=»SCR ASM EBCDIC,NL KPF /O " SCR 0 ASG /E0,TY10 < & $ !!CH $$CODE EQU 0$$CODE EQU 1$$ T !!EN | ASM /S,NL KPF /O SCR LED EBCDIC,/S $ !!CH $$CODE EQU 0$$CODE EQU 1$$ !!EN ASM /S,NL
0x1926c0…248b20 [0x58c]: Pad {f00=0x0088, f01=0x2008, f02=» ASM EBCDIC,NL KPF /O " SCR 0 ASG /E0,TY10 < & $ !!CH $$CODE EQU 0$$CODE EQU 1$$ T !!EN | ASM /S,NL KPF /O SCR LED EBCDIC,/S $ !!CH $$CODE EQU 0$$CODE EQU 1$$ !!EN ASM /S,NL
0x1926c0…248b20 [0x58d]: Pad {f00=0x0088, f01=0x0190, f02=» , ( a , ( q 4 HALTN d t SCTMSZK SCTSFA SCTEFA SCTPLD SCTANO SCTADA SCT
0x1926c0…248b20 [0x58e]: Pad {f00=0x0088, f01=0x0190, f02=» SCTPSZ SCTMMC SCTLACL 0 SCTMMP D SCTLAP X SCTNPE l SCTSTB SCTOPT SCTTCT SCTCDT SCTBUG~ SCTDMT , (
0x1926c0…248b20 [0x58f]: Pad {f00=0x0088, f01=0x4062, f02=» _ , L@ ^ X SCTNPE l SCTSTB SCTOPT SCTTCT SCTCDT SCTBUG~ SCTDMT , (
0x1926c0…248b20 [0x590]: Pad {f00=0x0044, f01=0x018e, f02=» PSTART EQU DWTDRD P XIF P* , P IFT MMUPAG=1 6 PSTART EQU DWTDRD+4 L P XIF f P* r 4 PDWTTP EQU START+/00 TIMER POINTER ORDER PROCESS | . PDWTWQ EQU START+/02 WRITE/GET BUFFER QUEUE $ PDWTSQ EQU START+/04 STATUS QUEUE
0x1926c0…248b20 [0x591]: Pad {f00=0x0044, f01=0x0020, f02=»
0x1926c0…248b20 [0x592]: Pad {f00=0x0044, f01=0x0190, f02=» X w J h h h h h h < h h%b% $ . 8 h h h h h h $ h h h h h h h h h h h h h h h h h h h h h h h h h h h h h h h h h h h h h n c @ Tg t z ^ b bLPL H b2 Z ` zP
0x1926c0…248b20 [0x593]: Pad {f00=0x0044, f01=0x0190, f02=» 4c @S{ D d 2Z $"z y B % y D Dbf d * F :P }B W [~ ? d j% L "~ T &b ICn 1 d _ A d " ] _ @] > > U # T @ H ( ( P c P W: P, A] @ V ( U P" @D V LD W @E
0x1926c0…248b20 [0x594]: Pad {f00=0x0044, f01=0x0190, f02=» 6 8 ^ Q Z P 0 9 t t_ $ @ _, ? P H H #P h A d A FQ ? @] : ) A] _ @ @ A H ( A] _ ? ? ? ? ? ^ A _ _ ^ ] $P T I R $ 5 % > ? W ? W ? T T$ U U U U T
0x1926c0…248b20 [0x595]: Pad {f00=0x0044, f01=0x0190, f02=» Q Q > > 0 @] 1 A] P P > ? * X " R" Y T ? X D E|T> Z W8 > _& @ 8 R" Y T ? X D E|T Z W > _& W2 > 8 X W( ? ` @ @ P $ H W W > > > > > > @] V ? ] > _ > ? _ > > ? ^ ! Y ^ _ n ?
0x1926c0…248b20 [0x596]: Pad {f00=0x0044, f01=0x0190, f02=» < $ ( , 0 4 8 < C 8W T 8P Y ^ 5 ) P U ^ XH D #DP @ R XV Y @ P, E|T W X &P T X I Y T # C C W4 O " # X Y ) C
0x1926c0…248b20 [0x597]: Pad {f00=0x0044, f01=0x0190, f02=» P j$ > > F C F C > B R Q F ! P C > C > F :c" H :b"? #" : C > B R Q~ P0 B P* 0$ T # R QL > X B U( H Q2 X
0x1926c0…248b20 [0x598]: Pad {f00=0x0044, f01=0x0190, f02=» P PL $ # Q > P _0 # T p > P p (_H _2 B U X > ? _ X T (@ H ^ > > ? _ X T X X T % T ?C L Rl _@(@ L U L Q0 M & X
0x1926c0…248b20 [0x599]: Pad {f00=0x0044, f01=0x0190, f02=» 0P X T 4 Y X E| X T X Z8 1 1 X P - M T $ PD _ T " # p X L R P RP (@ ^ X P8 P0 # P T P 0P 1 _ t W Y > > ] J B B ] J B B pU
0x1926c0…248b20 [0x59a]: Pad {f00=0x0044, f01=0x0190, f02=» 0 R t B " P Q :A H P P ^ H !@T I ^ T ! 1 U ^ A d ? W A d ? W A d ? W U R ; V ~# T R p 4 # PJ P 4 RL P 4 ] P $ P ] U PD P< P0 P,
0x1926c0…248b20 [0x59b]: Pad {f00=0x0044, f01=0x0190, f02=» ' T P X P " >Wh T # Y U T ] W 8V X $P y $W $ D P 8R R ^ Y $ X Z ;BR 8% =A Y T Z& h_, X ' X 4X< XB U T T U 5 U R " ] ~ ^ ;h # <c$
0x1926c0…248b20 [0x59c]: Pad {f00=0x0044, f01=0x0190, f02=»X <d$ _D $?:D" Y X P Y # P 4T U # P 4 4 P _r T _$ U _ ? 4 U 5 R PF "P2 R T T R X # X h > P P P ` X XF _H Wj ? T T D W u > > E D E
0x1926c0…248b20 [0x59d]: Pad {f00=0x0044, f01=0x0190, f02=»XB Y X X X X ' 4 B U B (" W C (@ > ?" 8' ?A R 8;b# 4T RT T T ] ] 8 W< TrW T ] _ P T V WT 8V T P U 8 ~ U Q2P X H 5 U R " ] ~ Y > > V P X
0x1926c0…248b20 [0x59e]: Pad {f00=0x0044, f01=0x0190, f02=» 4XR XX 5 h_b Y Y Y X 9BV$ X & Y " X D V & X . T 8TV 9WD B 7P P ^ A] W A] @] A.W ? A dI.9 X R C C & ^ ?A @] A. X V 9_: @
0x1926c0…248b20 [0x59f]: Pad {f00=0x0044, f01=0x0190, f02=» Pb P Pv Pz * 6 + ^ A] @] A. H D d ^ Y HW A] @] A. Wx ! * X , X P ! ! BW< ! * _ ! * _& ! X , X P ! H X , X P B B ! f ! B ! T Y *W X * p ! H# f & ! H ! " 0 TOT
0x1926c0…248b20 [0x5a0]: Pad {f00=0x0045, f01=0x0190, f02=»& Ph B @ @ :C P ! H 9DV ! (@ B r ! ! R ! j ! ! b ! ( ! ! Z ! X Y . X * f " ! H_ Y * 4 ! ~ PT C ! l ! H ! (@ ! ~ R _ ! V 1 ;h 1 ! V 1 ! ! l* ! B ! ! ~ ) ! H Y *# T X Y
0x1926c0…248b20 [0x5a1]: Pad {f00=0x0045, f01=0x0190, f02=» ! B ! ~ ! T )WL WP ! ~ Xz R ! ( - j ! ) W. Y PW Y P Y L Y N Y B S W W B C & ^ _ ? , Y " X $ T X Y $ Y X HP 1 Y H ] 0 Y J 1 0B. X (P y (_^ ( D _n Y ( " X . P Y : ! F ! H X # P Y
0x1926c0…248b20 [0x5a2]: Pad {f00=0x0045, f01=0x0190, f02=» D C Y B ^ K & E % Y B K , X ;AR@;a X &P Y & P 7P < $ <C ! 9 4 X t " _ W B RZ X , X P W P Q8 U _ T,: B R(' P Q 9BW Q 9C B ! T 4 x @ P ;A _ 4 X
0x1926c0…248b20 [0x5a3]: Pad {f00=0x0045, f01=0x0190, f02=»U P jW kQ 4 Y * ! 0" Z Y" P Z _ 4 A ;D A 4 R _ ;H 4 r ! (:C 4 Z ! ( 4 X " 4 ! ) 4 X P t 4 P y _^ _n Y " X P Y : ! ! H X # P Y
0x1926c0…248b20 [0x5a4]: Pad {f00=0x0045, f01=0x0190, f02=» P Y P 7P < $ <C ! 9 4 X t " _ W B R X X P W P Q U _ T : B R ' P Q 9BW Q 9C B ! T 4 x @ P ;A _ 4 X
0x1926c0…248b20 [0x5a5]: Pad {f00=0x0045, f01=0x0190, f02=»U P jW kQ 4 Y ! 0" Z Y" P Z _ 4 A ;D A 4 R _ ;H 4 ! (:C 4 ! ( 4 X " 4 ! ) 4 X P t 4 P y _^ '2 '2 P Y : ! ! H X # P Y
0x1926c0…248b20 [0x5a6]: Pad {f00=0x0045, f01=0x0190, f02=» @B B ^ @B `B @B P 0P _ % AB AB &_r B Q< f_ X P 0 Y P C x_ _ B Y _N ^ X P A D Y Wb Y @_x X X A D " Y _& Y | @ p 0 A r A p_: X P ( y Y W '2 (P 0 ) >
0x1926c0…248b20 [0x5a7]: Pad {f00=0x0045, f01=0x0190, f02=» C x > @ @ @ A X &_" X P y Y X P T | @ p T A r A p > A R A V A Z A ^ A b fW > X P !% 2B !% T P P ! ! ! !% Tf Tb A' P A' TR !%
0x1926c0…248b20 [0x5a8]: Pad {f00=0x0045, f01=0x0190, f02=» !# A r A t_ !& @ tP @'2X@ !#R T< A x !$ @ rP @'2P @ p 0 8 !"z !# A |_: !% X6_Z A x @'2 @ T 1 R 0 2P P P A R @ n 8 HC @'2P E ' PF X R@ X P X T2 P C > C X T ! W xW( &W" X R X T & !
0x1926c0…248b20 [0x5a9]: Pad {f00=0x0045, f01=0x0190, f02=» 6 D ! ^ P @ p @ @ A " !& @ rXN !% T @ |P !$ !&j_h /T& @ |X @ vP !# !$ A z_ A | " < A r @ vT _, _0 @ rT<W @'2T !# _ !"z !# _ A t A HC E A x A n 4 @ rP !$ !&j !&FW @ T !$ _ T |_ A p
0x1926c0…248b20 [0x5aa]: Pad {f00=0x0045, f01=0x0190, f02=» & | A r A p 4 @'2 @ xT @ A @ A A x !% T2 P4 PJ PL P P. 1 A @ ]6W P _@ @'2 @ E !& P !% 4 _$ !& 2_l / A |T W ,W A A W W W A A !%H @ !% @ !% !% !% B J 4 !%H !%
0x1926c0…248b20 [0x5ab]: Pad {f00=0x0045, f01=0x0190, f02=»% P " ! " :A *@ HB T 0 !% W R !% A @ @ UH Zx Q P Q T 0 !% A 0 !% A !% " !% " !% $* A v _" B J B !% !% 4 A d ? PJ T A ~T 2PX !& HB 4 !% A d ? P_ I " P A x A 4 A _$"
0x1926c0…248b20 [0x5ac]: Pad {f00=0x0045, f01=0x0190, f02=» @ A &X ^ A a 4 D &0 X A > D &z Z A 4 A !% @ rP !$ !&j @ P a A 4 A& A& A& ?a :a# P @& @& @& 4 |T A ~ !% & !% A ~ @& :H 4 '& '408
0x1926c0…248b20 [0x5ad]: Pad {f00=0x0045, f01=0x0190, f02=» P " ! " :A *@ H T 0 ! W R ! A @ @ U Zx Q P Q T 0 ! A 0 ! A ! " ! " ! $* A v _" B J B ! ! 4 A d ? PJ T A ~T 2P ! H 4 ! A d ? P_ I " P A x A 4 A _$"
0x1926c0…248b20 [0x5ae]: Pad {f00=0x0045, f01=0x0190, f02=» @ A A a 4 &0 X A > Z A 4 A !% @ rP !$ !&j @ P a A 4 A A A ?a :a# P @ @ @ 4 |T A ~ !% & !% A ~ @& :H 4 '408
0x1926c0…248b20 [0x5af]: Pad {f00=0x0045, f01=0x0190, f02=» P " ! " :A *@ H T 0 ! W R ! A @ @ U Zx Q P Q T 0 ! A 0 ! A ! " ! " ! $* A v _" B J B ! ! 4 A d ? PJ T A ~T 2P ! H 4 ! A d ? P_ I " P A x A 4 A _$"
0x1926c0…248b20 [0x5b0]: Pad {f00=0x0045, f01=0x0190, f02=» @ A A a 4 &0 X A > Z A 4 A !% @ rP !$ !&j @ P a A 4 A A A ?a :a# P @ @ @ 4 |T A ~ !% & !% A ~ @& :H 4 '408
0x1926c0…248b20 [0x5b1]: Pad {f00=0x0045, f01=0x0190, f02=» P " ! " :A *@ H T 0 ! W R ! A @ @ U Zx Q P Q T 0 ! A 0 ! A ! " ! " ! $* A v _" B J B ! ! 4 A d ? PJ T A ~T 2P ! H 4 ! A d ? P_ I " P A x A 4 A _$"
0x1926c0…248b20 [0x5b2]: Pad {f00=0x0045, f01=0x0190, f02=» @ A A a 4 &0 X A > Z A 4 A !% @ rP !$ !&j @ P a A 4 A A A ?a :a# P @ @ @ 4 |T A ~ !% & !% A ~ @& :H 4 '408
0x1926c0…248b20 [0x5b3]: Pad {f00=0x0045, f01=0x0190, f02=» P " ! " :A *@ H T 0 ! W R ! A @ @ U Zx Q P Q T 0 ! A 0 ! A ! " ! " ! $* A v _" B J B ! ! 4 A d ? PJ T A ~T 2P ! H 4 ! A d ? P_ I " P A x A 4 A _$"
0x1926c0…248b20 [0x5b4]: Pad {f00=0x0045, f01=0x0190, f02=» @ A A a 4 &0 X A > Z A 4 A !% @ rP !$ !&j @ P a A 4 A A A ?a :a# P @ @ @ 4 |T A ~ !% & !% A ~ @& :H 4 '408
0x1926c0…248b20 [0x5b5]: Pad {f00=0x0045, f01=0x0190, f02=» P " ! " :A *@ H T 0 ! W R ! A @ @ U Zx Q P Q T 0 ! A 0 ! A ! " ! " ! $* A v _" B J B ! ! 4 A d ? PJ T A ~T 2P ! H 4 ! A d ? P_ I " P A x A 4 A _$"
0x1926c0…248b20 [0x5b6]: Pad {f00=0x0045, f01=0x0190, f02=» @ A A a 4 &0 X A > Z A 4 A !% @ rP !$ !&j @ P a A 4 A A A ?a :a# P @ @ @ 4 |T A ~ !% & !% A ~ @& :H 4 '408
0x1926c0…248b20 [0x5b7]: Pad {f00=0x0045, f01=0x0190, f02=» P " ! " :A *@ H T 0 ! W R ! A @ @ U Zx Q P Q T 0 ! A 0 ! A ! " ! " ! $* A v _" B J B ! ! 4 A d ? PJ T A ~T 2P ! H 4 ! A d ? P_ I " P A x A 4 A _$"
0x1926c0…248b20 [0x5b8]: Pad {f00=0x0045, f01=0x0190, f02=» @ A A a 4 &0 X A > Z A 4 A !% @ rP !$ !&j @ P a A 4 A A A ?a :a# P @ @ @ 4 |T A ~ !% & !% A ~ @& :H 4 '408
0x1926c0…248b20 [0x5b9]: Pad {f00=0x0045, f01=0x0190, f02=» P " ! " :A *@ H T 0 ! W R ! A @ @ U Zx Q P Q T 0 ! A 0 ! A ! " ! " ! $* A v _" B J B ! ! 4 A d ? PJ T A ~T 2P ! H 4 ! A d ? P_ I " P A x A 4 A _$"
0x1926c0…248b20 [0x5ba]: Pad {f00=0x0045, f01=0x0190, f02=» @ A A a 4 &0 X A > Z A 4 A !% @ rP !$ !&j @ P a A 4 A A A ?a :a# P @ @ @ 4 |T A ~ !% & !% A ~ @& :H 4 '408
0x1926c0…248b20 [0x5bb]: Pad {f00=0x0045, f01=0x0190, f02=» P " ! " :A *@ H T 0 ! W R ! A @ @ U Zx Q P Q T 0 ! A 0 ! A ! " ! " ! $* A v _" B J B ! ! 4 A d ? PJ T A ~T 2P ! H 4 ! A d ? P_ I " P A x A 4 A _$"
0x1926c0…248b20 [0x5bc]: Pad {f00=0x0045, f01=0x0190, f02=» @ A A a 4 &0 X A > Z A 4 A !% @ rP !$ !&j @ P a A 4 A A A ?a :a# P @ @ @ 4 |T A ~ !% & !% A ~ @& :H 4 '408
0x1926c0…248b20 [0x5bd]: Pad {f00=0x0045, f01=0x0190, f02=» P " ! " :A *@ H T 0 ! W R ! A @ @ U Zx Q P Q T 0 ! A 0 ! A ! " ! " ! $* A v _" B J B ! ! 4 A d ? PJ T A ~T 2P ! H 4 ! A d ? P_ I " P A x A 4 A _$"
0x1926c0…248b20 [0x5be]: Pad {f00=0x0045, f01=0x0190, f02=» @ A A a 4 &0 X A > Z A 4 A !% @ rP !$ !&j @ P a A 4 A A A ?a :a# P @ @ @ 4 |T A ~ !% & !% A ~ @& :H 4 '408
0x1926c0…248b20 [0x5bf]: Pad {f00=0x0045, f01=0x0190, f02=» P " ! " :A *@ H T 0 ! :f"? HBV !% "? HBV !% 4 ABCDEFGHI#.<(+!&JKLMNOPQR$]*);^-/STUVWXYZ@,%_>?0123456789:[ '="B B ABCDE
0x1926c0…248b20 [0x5c0]: Pad {f00=0x0046, f01=0x0190, f02=»456789:#@'=" ABCDEFGHI[.<(+!&JKLMNOPQR]$*);^ /STUVWXYZ|,%_>?0123456789:#@'= 7- <=2&p ?' @O JZlP}M] Nk`Ka z^L~noj {|[_m TOSS T Dp D D ^ P D D D
0x1926c0…248b20 [0x5c1]: Pad {f00=0x0046, f01=0x0190, f02=»yf {z{nw x F F G G G G G G.G.F F*F F|FLG G FPG.G.F F:" # $ % "$&( E~ E @ D X P _ L !##P T @ R $P U + U _ (@(@ IEFP ^ G HE` Y HE B # X ( U G B r W
0x1926c0…248b20 [0x5c2]: Pad {f00=0x0046, f01=0x0190, f02=»[ H H S W C C B B B U Z R Wp H TP L P B r L ( $ X _ X ` T I T J Y P C X I X J S W C C W, B B Y IR Q X JU C '? T W6 [b T.(@(@ P #D {h H
0x1926c0…248b20 [0x5c3]: Pad {f00=0x0046, f01=0x0190, f02=» - _ : Z $ -_ D ( U ( 0 W T ` U @ , @ W : X & X P !##T Y T( X P P P @] Q (@ F ]D : @ _ ] ( H > H X &Pj D ^V" D "? P P &P E ^ 6 V, P ( I ( (
0x1926c0…248b20 [0x5c4]: Pad {f00=0x0046, f01=0x0190, f02=» P W T Y $ P T _ Y & F (@ _ Kd X & X I U X J U ( [ T$ X X RP F H T L P ` U0 @ , D !##X D ( * ]" 0 X Wf ` U @ H @ X WF Z N 4 5W
0x1926c0…248b20 [0x5c5]: Pad {f00=0x0046, f01=0x0190, f02=» 9 L 4' J ' J 5 J 4 Qh W , P& ,' X X 1 Z" ) J _ (@ C ( B ! L J @G F U G F G HL L & ( F " F +P P* X $ T Z U W Z R P> $P8W L X ( X & F X
0x1926c0…248b20 [0x5c6]: Pad {f00=0x0046, f01=0x0190, f02=» D '? P P( $ P" [ I I K K P P & P Z W D $ T Z T Z W E I E J X ^V ? T B &(@( z B B P ! Tn M P : L Az Az " P y "" z~ P P z @y (@ Dy C
0x1926c0…248b20 [0x5c7]: Pad {f00=0x0046, f01=0x0190, f02=» Ay @z P B Dy Ey X #D( M*( B B @y Dy NW C C ( L M z y @z T Az 0" O O U _ L !SSP !LL O W L @y Ay V P P Ey @y Ey P Ey P Ey Dy T z P
0x1926c0…248b20 [0x5c8]: Pad {f00=0x0046, f01=0x0190, f02=»_ S E| S E 3 P S I P S J P S ( P S * P % S H P & S P @z S , d S B | N^ M @y T W z T Wz @z P R ( >a U Wb 0 =b Py P @y ! T. W< Py Dy Y Py Y Py Y U ! T ! X6 _R
0x1926c0…248b20 [0x5c9]: Pad {f00=0x0046, f01=0x0190, f02=»P B zR (@( @z P _ T `y ` 9A S ^ H $X D S . S $ ~ R * S W S _ S ` R ( R * Y S b P U _ L !SSP !LL W L @ A V P E @ E P E P E D T P
0x1926c0…248b20 [0x5ca]: Pad {f00=0x0046, f01=0x0190, f02=»_ S E| S E 3 P S I P S J P S ( P S * P % S H P & S P @ S , d S B | N^ M @ T W T W @ P R ( >a U W 0 =b P P @ ! T W P D Y P Y P Y U ! T ! X6 _R
0x1926c0…248b20 [0x5cb]: Pad {f00=0x0046, f01=0x0190, f02=»P B (@( @ P _ T ` ` 9A S ^ H $X D S . S $ R * S W S _ S ` R ( R * S b P U _ L !SSP !LL W L @ A V P E @ E P E P E D T P
0x1926c0…248b20 [0x5cc]: Pad {f00=0x0046, f01=0x0190, f02=»_ S E| S E 3 P S I P S J P S ( P S * P % S H P & S P @ S , d S B | N^ M @ T W T W @ P R ( >a U W 0 =b P P @ ! T W P D Y P Y P Y U ! T ! X6 _R
0x1926c0…248b20 [0x5cd]: Pad {f00=0x0046, f01=0x0190, f02=»P B (@( @ P _ T ` ` 9A S ^ H $X D S . S $ R * S W S _ S ` R ( R * S b P U _ L !SSP !LL W L @ A V P E @ E P E P E D T P
0x1926c0…248b20 [0x5ce]: Pad {f00=0x0046, f01=0x0190, f02=»_ S E| S E 3 P S I P S J P S ( P S * P % S H P & S P @ S , d S B | N^ M @ T W T W @ P R ( >a U W 0 =b P P @ ! T W P D Y P Y P Y U ! T ! X6 _R
0x1926c0…248b20 [0x5cf]: Pad {f00=0x0046, f01=0x0190, f02=» P Q R ;A [ [ : P Q R ;A [ [ : Q R P ;A [ [ : ? ? !? P P !> P W 9P _ T !##P> ? R4 L TX P L P 4 M X M M _8 > & D LW 0P Q P P E +
0x1926c0…248b20 [0x5d0]: Pad {f00=0x0046, f01=0x0190, f02=»Z> : D NW (P D + I W6 @V T n ( AV U 1_ D + I D N ) E N : T * Y SP P W X * 0 U U. _ Y . R P Y $ P X ( _ W Y & : B P6 T G W& X ^ Y ^ B I ~ B T B :
0x1926c0…248b20 [0x5d1]: Pad {f00=0x0046, f01=0x0190, f02=» D . P , _ D . D $ D * Y T ( T & ^ S W : U ; $ T $ T $ T&x : : $ T2 $ ) ] $ ) Y _$ U x 0 )_8 $_ $ ) YP_J U ; $ T $ T $ TNp : : $ T* (W $ U $ ) Y _& (# )_4
0x1926c0…248b20 [0x5d2]: Pad {f00=0x0046, f01=0x0190, f02=» @] 0 A] W & ^ ! Z( ] (X0 @] P T M ]@ , ) A] P* P Y U ( ) 5 & > > [ [ ] Z Z Z ? Z > P "R Y W 0 ^ Pl T Pb _ <UR "R4 PB X R< X T6 X T0. T G Y6 G _b P
0x1926c0…248b20 [0x5d3]: Pad {f00=0x0046, f01=0x0190, f02=» P Y P C W~ 8!@P$ X $P y $W $ D a ` Y $ X " PP:A: R Q W Y <D X ? ?: T p > b > Ph P C a` B a` T B % X . $ 4 T % aF X ,T ! P ar b Y . V b ! B P X " _` B P$ $
0x1926c0…248b20 [0x5d4]: Pad {f00=0x0046, f01=0x0190, f02=» W 0 Z b ! B Z Z& X . 0T X W X ,P Y . 0 %_. % Y . W _p P b _ X $P y $ Y $ C ! ^ " b8 QfR$ X # P X R6;GV2 X $P y $ b P8 X R2;GV. X " _ X , $4 P b X .T * W Y , - ^ @
0x1926c0…248b20 [0x5d5]: Pad {f00=0x0046, f01=0x0190, f02=» 9 WD $ P W _ $ P _$ _*_, _ %0=c X 0P > 0 > >_ B 1 > XT 0 _ d c ede !"&';<>@^_ 9: X ! Y Mc P ^ ^ Y Lc6cFcFc d(c`cZdldr ! ! ! W B W$ B L # 9Q T
0x1926c0…248b20 [0x5d6]: Pad {f00=0x0046, f01=0x0190, f02=» ! T ! V c ! B C ! ! T " T W Q " T ) ^ !f b Y _ ! !e Y &P Q W ! Y '" e _" b _< !e _n !f _t B B , ! T _ D ! P ! P W C V B P ! ! ! Y 4 RNQ " PH _ " P
0x1926c0…248b20 [0x5d7]: Pad {f00=0x0046, f01=0x0190, f02=» ! _ X RT U TJ X d$ ? Y X P " ! Y ' ! X T ! ^ c ^ R _ 4 ! ! ! " T ! ! ! ! 4 X ' 4 Y ' b ! ! " P ,$ , ! 4!"$&;<>@^_ fJ g h:g PB P8 ^ B P B
0x1926c0…248b20 [0x5d8]: Pad {f00=0x0046, f01=0x0190, f02=»P4 R( Pj O]> V _F T Y Y & V Y _^ C _P F F" $ P X & X ]r ! Y Y Y _ F" Hf2_ ! ! gr & ^ X C _ X Y & Y > B B U$ $ ! T _ U D ! T _ C > X Z^<BR P j X _x
0x1926c0…248b20 [0x5d9]: Pad {f00=0x0046, f01=0x0190, f02=» P4 P g` gd X " fJ ! ! X & g, gh h h i B 8# T $ # ;D 7P P ^ Y W Y X Y 8# T W$ T( X $ P X P B V *@ Y h ^ ^ ? X _F i m k knk k ! P P j & j ^ B P B
0x1926c0…248b20 [0x5da]: Pad {f00=0x0046, f01=0x0190, f02=» $ ! T _ U D ! T _ $$ X" X& X* C F j X`" Ei P( 8'0P Ei TD ! T 9 _ ! T @_ ! F B P !l B C j ^N P R ?] _ C _ F F" $ P X ' X ] ! kD i B !l !l
0x1926c0…248b20 [0x5db]: Pad {f00=0x0046, f01=0x0190, f02=» Y & Y > X " X &" Y )Q Y > X Z2<BR J ? Y ! T X ! Y & Zl k T _ ! X $ P !l i R V P P" ! kDW k4 X $ X !l _ X $ X X & !l !l Y _8 X " X &" Y )U W ! ! !
0x1926c0…248b20 [0x5dc]: Pad {f00=0x0046, f01=0x0190, f02=» i `R Y ! ! ! 4 ! V ! V W :h ! 4 X )" X '# R 4 k4 > v*w~ F B P ! B C ^N P R ?] _ C _ F F" $ P X ' X ] ! i B ! !
0x1926c0…248b20 [0x5dd]: Pad {f00=0x0046, f01=0x0190, f02=» Y & Y > X " X &" Y )Q Y > X Z2<BR J ? Y ! T X ! Y & Zl k T _ ! X $ P ! i R V P P ! kDW k4 X $ X ! _ X $ X X & ! ! Y _8 X " X &" Y )U W ! ! !
0x1926c0…248b20 [0x5de]: Pad {f00=0x0046, f01=0x0190, f02=» i `R Y ! ! ! 4 ! V ! V W :h ! 4 X )" X '# R 4 k4 > F B P ! B C ^N P R ?] _ C _ F F" $ P X ' X ] ! i B ! !
0x1926c0…248b20 [0x5df]: Pad {f00=0x0046, f01=0x0190, f02=» Y & Y > X " X &" Y )Q Y > X Z2<BR J ? Y ! T X ! Y & Zl k T _ ! X $ P ! i R V P P ! kDW k4 X $ X ! _ X $ X X & ! ! Y _8 X " X &" Y )U W ! ! !
0x1926c0…248b20 [0x5e0]: Pad {f00=0x0047, f01=0x0190, f02=» i `R Y ! ! ! 4 ! V ! V W :h ! 4 X )" X '# R 4 k4 > F B P ! B C ^N P R ?] _ C _ F F" $ P X ' X ] ! i B ! !
0x1926c0…248b20 [0x5e1]: Pad {f00=0x0047, f01=0x0190, f02=» Y & Y > X " X &" Y )Q Y > X Z2<BR J ? Y ! T X ! Y & Zl k T _ ! X $ P ! i R V P P ! kDW k4 X $ X ! _ X $ X X & ! ! Y _8 X " X &" Y )U W ! ! !
0x1926c0…248b20 [0x5e2]: Pad {f00=0x0047, f01=0x0190, f02=» i `R Y ! ! ! 4 ! V ! V W :h ! 4 X )" X '# R 4 k4 > F B P ! B C ^N P wF P P .T B Y Wx B P X P ( ( 7 R ( P H RN H P ' P
0x1926c0…248b20 [0x5e3]: Pad {f00=0x0047, f01=0x0190, f02=» Q (P H U ^ 9 1_N ^ X T @m*P ( Am* w _ ( Y _ m(_x X T @m(P ( Am( w _ ( Y _ m*_ i w 9 @_ w H m(P m*P $ $ 1 ) > ) $P e % > (@ B Z F U F Z m$ P U ^ C G 4' "?:B
0x1926c0…248b20 [0x5e4]: Pad {f00=0x0047, f01=0x0190, f02=» D W. D D " @ @ - U _ 9B @ T W X > "RT PL X TF X R@? V X & X H P & X P t Y X H P & < ? < ? <(@ y $ P B $ 9H C ">h # P >_2 < U = (@ " $ P B
0x1926c0…248b20 [0x5e5]: Pad {f00=0x0047, f01=0x0190, f02=» m(_x X T @m(P ( Am( w _ ( Y @y P 4 Ay U W Ay Ay @y U : Az$ Az&:A Ay , ` R @ U P. ,% T& z C ( B P T W ' T| Iy @ 8 =hP
0x1926c0…248b20 [0x5e6]: Pad {f00=0x0047, f01=0x0190, f02=» : n "' # z. @y P y $ ) 5 ^ Ay Az Ay z0 " y Ay "" P U W z~ y P @y Ey "# P P @y P ( )W @ 0 R % "V E T D Az _" P @y P ( )W @ 0 Rb ' F "R G
0x1926c0…248b20 [0x5e7]: Pad {f00=0x0047, f01=0x0190, f02=» m(_x X T @m(P ( Am( w _ ( Y @y P 4 Ay U W Ay Ay @y U : Az$ Az&:A Ay , ` R @ U P ,% T z C ( B P T W ' T Iy @ 8 =hP
0x1926c0…248b20 [0x5e8]: Pad {f00=0x0047, f01=0x0190, f02=» : n "' # @y P y $ ) 5 ^ Ay Az Ay z0 " y Ay "" P U W z~ y P @y Ey "# P P @y P ( )W @ 0 R % "V E T D Az _" P @y P ( )W @ 0 Rb ' F "R G
0x1926c0…248b20 [0x5e9]: Pad {f00=0x0047, f01=0x0190, f02=» m(_x X T @m(P ( Am( w _ ( Y @y P 4 Ay U W Ay Ay @y U : Az$ Az&:A Ay , ` R @ U P ,% T z C ( B P T W ' T Iy @ 8 =hP
0x1926c0…248b20 [0x5ea]: Pad {f00=0x0047, f01=0x0190, f02=» : n "' # @y P y $ ) 5 ^ Ay Az Ay z0 " y Ay "" P | z~ y P @y Ey "# P P @y P ( )W @ 0 R % "V E T D Az _" P @y P ( )W @ 0 Rb ' F "R G
0x1926c0…248b20 [0x5eb]: Pad {f00=0x0047, f01=0x0190, f02=» m(_x X T @m(P ( Am( w _ ( Y @y P 4 Ay U W Ay Ay @y U : @| , L T L PF L T M Q M L V L A| @| : T n @| [ [ M M M A| -(@ :
0x1926c0…248b20 [0x5ec]: Pad {f00=0x0047, f01=0x0190, f02=» @| , - M M M @| Ay Ay > h 0123456789 & 0123456789 & < +.-, 0123456789 `ABCDEFGHIJKLMNOPQRSTUVWXYZ []' ^ > ?:_; =!"#$%&/() @ABCDEFGHIJKLMNOPQ
0x1926c0…248b20 [0x5ed]: Pad {f00=0x0047, f01=0x0190, f02=» $ % $P _ % A @ " Q A H : R W2 A 0 A 0 P. _ " :c* A W " :d2 * A z & W F ` W F W F CRT F A @ @ ! P2 @ P ;b=H F CR F W =J F CRTT F PN
0x1926c0…248b20 [0x5ee]: Pad {f00=0x0047, f01=0x0190, f02=» ^ Y P @ T W - P _ T <B :L A W A A W T F W V = V W Y* P Z( = :L <
0x1926c0…248b20 [0x5ef]: Pad {f00=0x0047, f01=0x0190, f02=» @ V P _ @ ! P !RRP V @ P W _: V @ PZ W @ @ ! T _ P :l 9b ) V _ @ V W W 0 0 P 0 TJ V 0 !;;P
0x1926c0…248b20 [0x5f0]: Pad {f00=0x0047, f01=0x0190, f02=» V 0 !;;P P V Xb _ P !;;T X$ W & nP XZ_V S A A Z @ R @ ! T A . A B V @ R V V I & W V $ ) H A I. : ( C. X C.9h! ( (# "
0x1926c0…248b20 [0x5f1]: Pad {f00=0x0047, f01=0x0190, f02=» ` A v A A A A : 9e9C) A I " 9A ! 9B r @ Hr A I ! ( : A A A ` A v A .! T A 2 A . I ! : 9E @ Hr s A I T ) A _ I N T : ` v 9PJ S Y T@ $ 1T:
0x1926c0…248b20 [0x5f2]: Pad {f00=0x0047, f01=0x0190, f02=»Q _ z_ !SST& 0 U P R X A X W : @ ' R xW V W$ V P P W P V V T V T W P V W @ $ P p W & T : A L _ 0V , - P X 9A_ : @ !
0x1926c0…248b20 [0x5f3]: Pad {f00=0x0047, f01=0x0190, f02=» j A A A A ! T A W Z A. c @ V W U R $ )_ : W W W W W Q@ V
0x1926c0…248b20 [0x5f4]: Pad {f00=0x0047, f01=0x0190, f02=» J P r V U _ V Z K W W :K W r Q R t V R v : V W V ) : V <B W |P v v : $ V |P v w v :
0x1926c0…248b20 [0x5f5]: Pad {f00=0x0047, f01=0x0190, f02=» x V |P v 1 v W V z ` _f V : W R R P W x " _ V : " D Pd W V PL $;A^ D E D P. V P P T E _J E _T " D T E E D E % : " R ;B "
0x1926c0…248b20 [0x5f6]: Pad {f00=0x0047, f01=0x0190, f02=» _ 0 : W W W ?AP ^ 0 : W ; V : : , X G : J @ 0 V @ 0 H W : ? ? R 0 R P P B _ ] : V ) v : 4P: " D > , H H $ M v b
0x1926c0…248b20 [0x5f7]: Pad {f00=0x0047, f01=0x0190, f02=» _ " = D 4 Q _d > ` R = G $ V W $ V E J K _N V r V :B A V 9n A @ A A , @ @ ! @ P P P P|_ _ @ 9N @ :b @ :b V W U6
0x1926c0…248b20 [0x5f8]: Pad {f00=0x007e, f01=0x0190, f02=» @ .V 3 S Y& P4 ] ] S P 3 _ ] 3 ] B A. @ D @ W x A ( : A ^ > l : R W n V pT : N V l W H V
0x1926c0…248b20 [0x5f9]: Pad {f00=0x007e, f01=0x0190, f02=» _ N L % V d V f v G G v U v G v : P V : V ~P 0 W x "_$ 8 V V x % V v % : V V R 9k! P % _ V V W W r W V v ) W b G
0x1926c0…248b20 [0x5fa]: Pad {f00=0x007e, f01=0x0190, f02=» _ ` @ ` W W ~ pPn 4 V W % R , " E R W ~ R R P V R Xv V_|W T : W x " _ V P > I W z ` pPl 4 H - V I " R E
0x1926c0…248b20 [0x5fb]: Pad {f00=0x007e, f01=0x0190, f02=» ` $ W ` R ;h 0 :C # : .=H N N .=H N N N : d 8" R _ ZY QY : @ V H W z W | CRP W ` ` H W d 2 ;A @ R - @ - N !TTP
0x1926c0…248b20 [0x5fc]: Pad {f00=0x007e, f01=0x0190, f02=» d Wh 2 .:H N P V _ R :h " YV : v `?A @ W W :b / W : W @ W D V W W ` " W p @ pP.
0x1926c0…248b20 [0x5fd]: Pad {f00=0x007e, f01=0x0190, f02=» V V W W V V >k 8 W W t V V : x A H JP W r J W @ @ % V , P@ , - 4 ] 4 Y 5 X * _6 : @ ] @ P
0x1926c0…248b20 [0x5fe]: Pad {f00=0x007e, f01=0x0190, f02=» @ P. @ " P #D " P #E " P #F : @ " P @ P 3 _ @ " P S 1 S 9J S ( 3 ( 9B @ @ T : @ :B W . !TTP W t N =H N W l N =H N > W p N =H N N W |
0x1926c0…248b20 [0x5ff]: Pad {f00=0x007e, f01=0x0190, f02=» P0 " U _2 V V tPJ S ( V | S =J @ " S V l S W l V p S W p W _L @ % P W @ % P h !TTT n @ @ T : @ ! P @ @ CRT
0x1926c0…248b20 [0x600]: Pad {f00=0x007e, f01=0x0190, f02=» 3 YL @ @ T : ] ` @ P (_ ( 3 S S V V W @ @ T : P S S _ : . !TTP V W t * P r
0x1926c0…248b20 [0x601]: Pad {f00=0x007e, f01=0x0190, f02=» V p _j V t Y h !TTX @ @ T : h @ R @ T P / _ T @ A V W W t PT W f ( W d . j G =h G V d V r < V f P W f
0x1926c0…248b20 [0x602]: Pad {f00=0x007e, f01=0x0190, f02=» V r 4 U $ $ _. P, V 4 U $ $ _. @ @ @ ! P V 8 8 8 @ >B 3 . !CCP W P0 W f W d . V d V r < V f _2 U^ V 8 8
0x1926c0…248b20 [0x603]: Pad {f00=0x007e, f01=0x0190, f02=» 4 4 _r @ @ T : W n V @ 0 V P _ W $ q > R P >b W >b & 8P D P U & E W X V W R 9 W D & ) $ P@ D L T@ D &P V U 0 I , I . $# P V -W H P U & I @
0x1926c0…248b20 [0x604]: Pad {f00=0x007e, f01=0x0190, f02=» $ F !LLT # W ;I # ;b W ;a WR# T W W,# T W W # T W W W R _ $ W : W | v z *T P _ / P *_ *T P$ _ .P _ / V z U
0x1926c0…248b20 [0x605]: Pad {f00=0x007e, f01=0x0190, f02=» : N =H N N : N =H N N : &=H F N : F =H F N : F =H F N : P N =H N T h_ : 00=H 00 P P _ _ : @ ! P (W ( : L B B R @ CRT" @ ! P ` @ E "W `
0x1926c0…248b20 [0x606]: Pad {f00=0x007e, f01=0x0190, f02=» a `' , , , , ,m% m, ,m$ m, . DC _&KB j B B
0x1926c0…248b20 [0x607]: Pad {f00=0x007e, f01=0x0190, f02=» _&KB . =H N 4b TP 8i DY R @ P _&KB &
0x1926c0…248b20 [0x608]: Pad {f00=0x008e, f01=0x0190, f02=» 2h DI ?O_o 8i DY , P 4f@GP _&KB j B B
0x1926c0…248b20 [0x609]: Pad {f00=0x008e, f01=0x0190, f02=»LCUZ P ANK A2,6 SALCUZ P RF(Z) SST100 SALCUZ & P ANK A2,2 SALCUZ D & P RF(NZ) SST050 THROUGH PUT SALCUZ ^ & P LDK A1,1 SET PARITY ERROR SALCUZ P RF SSTRET SALCUZ P XIF SALCUZ PSST050 EQU * SALCUZ P CM XSTA TRO
0x1926c0…248b20 [0x60a]: Pad {f00=0x008e, f01=0x0190, f02=»A15,CKMESS CHECK IF STATUS CHANGE P RTN A5 * P XIF SALCUZ : P IFT P6805=1 SALCUZ P P ANK A1,/21 SALCUZ l P RF(Z) SST200 LSALCUZ 6 P CF A15,SETIME LINE ERROR, WAIT 0.2 SECONDS SALCUZ P DATA BRM RESTART SALCUZ P DATA 2 WA
0x1926c0…248b20 [0x60b]: Pad {f00=0x008e, f01=0x018e, f02=» CR SALCUZ P ABR* A5 RETURN SALCUZ P XIF SALCUZ 0 P* F P* P P* HALT INPUT Z P* n P* x PHALTIN LDK A1,0 SALCUZ P CIO A1,0,LCUIN P IFT P6805=0 SALCUZ 4 P RB SST PERFORM SST INSTRUCTION AND STATUS CHECK
0x1926c0…248b20 [0x60c]: Pad {f00=0x008e, f01=0x0190, f02=» P* P* , P* WRITE FROM OR READ ONE CHARACTER TO A2 P* H P* R PWRITE EQU * P IFT CODE=1 p P ANK A2,/FF P CWK A2,/FF 0 P RF(E) WRIT05 NO TRANSLATION OF TRAILING PAD * P LC A2,TEBCDIC,A2 TRANSLATE TO EBCDIC
0x1926c0…248b20 [0x60d]: Pad {f00=0x008e, f01=0x0190, f02=» CODE=1 $ PWRIT10 XRR A7,A2 ACCUMULATE BCC P XIF 8 P IFT CODE=1 D & PWRIT10 CF A5,CRCCAL CALCULATE CRC X P XIF P IFF LOGG=0 & P CF A5,LOGOUT LOG OUTPUT CHARACTER P XIF P* PREAD CF A15,STREG P ABL TDISP
0x1926c0…248b20 [0x60e]: Pad {f00=0x008e, f01=0x018e, f02=»0 SALCUZ PWRITEP ANK A2,/FF P ECR A1,A2 , P ORK A2,/80 > PWRI100 SLL A1,1 R P RB(P) WRI100 j P RB(Z) WRITE WRITE P XRK A2,/80 P RB WRI100 P XIF P IFF CODE+P6805=0 SALCUZ PWRITEP RB WRITE P XIF
0x1926c0…248b20 [0x60f]: Pad {f00=0x008e, f01=0x0190, f02=» PREADP CF A5,READ P IFT CODE+P6805=0 SALCUZ P ECR A1,A2 > PRE100 SLL A1,1 P P RF(Z) RE110 f P RB(NN) RE100 z P XRK A2,/80 P RB RE100 PRE110 LDR A1,A2 P ANK A2,/7F P XIF P IFF CODE+P6805=0 SALCUZ
0x1926c0…248b20 [0x610]: Pad {f00=0x009b, f01=0x0190, f02=» I 0 4 I 01 Q P 4 @'A TuI ThW 0 0 # 9 T ! y I T _$ X+W* A'I _; L_ I' I 0 W 0 @ 4 I 0 W 0 @'@ 4 A TlI T_W 0 # . I T ! y
0x1926c0…248b20 [0x611]: Pad {f00=0x009b, f01=0x0002, f02=» x
0x1926c0…248b20 [0x612]: Pad {f00=0x009b, f01=0x010c, f02=» SCR LED DRDC15,/S ( #!!CH $$RBUFNR EQU 2$$RBUFNR EQU 1$$ & !!EN R ASM /S,NL ^ KPF /O p SCR ~ INC SYSTAB LKE M KPF /L,M:92N1 SCR ASM DRDC15,NL KPF /O SCR ASG /E0,TY10
0x1926c0…248b20 [0x613]: Pad {f00=0x009b, f01=0x2008, f02=» LED DRDC15,/S ( #!!CH $$RBUFNR EQU 2$$RBUFNR EQU 1$$ & !!EN R ASM /S,NL ^ KPF /O p SCR ~ INC SYSTAB LKE M KPF /L,M:92N1 SCR ASM DRDC15,NL KPF /O SCR ASG /E0,TY10
0x1926c0…248b20 [0x614]: Pad {f00=0x009b, f01=0x0190, f02=» 6 = 1 [ B w p w P 8 J v 1 W . * s E = 2 S 3 ^ c . 0 < d!& &01GEBRATRTEASSIGN DISCFEJL ! & 0 F V
0x1926c0…248b20 [0x615]: Pad {f00=0x009b, f01=0x018e, f02=» $ 4 D T d t C J F " D R2 RRRW50X ! L A H L R( 2 RRR
0x1926c0…248b20 [0x616]: Pad {f00=0x009b, f01=0x0190, f02=» 4 B ( 8 H X h z J F " D L90X _;0XW 0XW 0XW 0XW 0XW 0XW 0XW 0X8R:R;R R L8R7 GG;GG;7;; .
0x1926c0…248b20 [0x617]: Pad {f00=0x009b, f01=0x0190, f02=» 4 7 $ 9 & ; 6 = F J F " D ;7;7?R L1X L?R L0X T b ! L LA _ LWK0X ) L R?R0X K V B K N Q S * Z @
0x1926c0…248b20 [0x618]: Pad {f00=0x0082, f01=0x0190, f02=»T f P* P IFT MMUPAG=0 PSTART EQU DWTDRD * P XIF B P* N P IFT MMUPAG=1 X PSTART EQU DWTDRD+4 n P XIF P* 4 PDWTTP EQU START+/00 TIMER POINTER ORDER PROCESS . PDWTWQ EQU START+/02 WRITE/GET BUFFER QUEUE $ PDW
0x1926c0…248b20 [0x619]: Pad {f00=0x0082, f01=0x001e, f02=» P X ` x
0x1926c0…248b20 [0x61a]: Pad {f00=0x0082, f01=0x0190, f02=»z p J h h h h h h < h h%>%d $ . 8 h h h h h h $ h h h h h h h h h h h h h h h h h h h h h h h h h h h h h h h h h h h h h n c @ Tg t z ^ b bLPL H b2 Z ` zP
0x1926c0…248b20 [0x61b]: Pad {f00=0x0082, f01=0x0190, f02=» 4c @S{ D d 2Z $"z y B % y D Dbf d * F :P }B W [~ ? d j% L "~ T &b ICn 1 d _ A d " S _ @S > > U # T @ H ( ( P c P W: P, AS @ V ( U P" @: V L: W @:
0x1926c0…248b20 [0x61c]: Pad {f00=0x0082, f01=0x0190, f02=» 6 8 S Q Z P 0 9 t t_ $ @ _, ? P H H #P h A d A FQ ? @S : ) AS _ @ @ A H ( AS _ ? ? ? ? ? ^ A _ _ ^ S $P T I R $ 5 % > ? W ? W ? T T$ U U U U T
0x1926c0…248b20 [0x61d]: Pad {f00=0x0082, f01=0x0190, f02=» Q Q > > 0 @Sh 1 ASh P P > ? * X " R" Y T ? X D ; T> O W8 > _& @ 8 R" Y T ? X D ; T O W > _& W2 > 8 X W( ? ` @ @ P $ H W W > > > > > > @S V ? S > _ > ? _ > > ? ^ ! Y ^ _ n ?
0x1926c0…248b20 [0x61e]: Pad {f00=0x0082, f01=0x0190, f02=» < $ ( , 0 4 8 < C 8W T 8P Y ^ 5 ) P U S XH D #DP @ R XV Y @ P, ; T W X &P T X I Y T # C C W4 O " # X Y ) C
0x1926c0…248b20 [0x61f]: Pad {f00=0x0082, f01=0x0190, f02=» P j$ > > F C F C > B R Q F ! P C > C > F :c" H :b"? #" : C > B R Q~ P0 B P* 0$ T # R QL > X B U( H Q2 X
0x1926c0…248b20 [0x620]: Pad {f00=0x0082, f01=0x0190, f02=» P PL $ # Q > P _0 # T p > P p (_H _2 B U X > ? _ X T (@ H ^ > > ? _ X T X X T % T ?C L Rl _@(@ L U L Q0 M & X
0x1926c0…248b20 [0x621]: Pad {f00=0x0082, f01=0x0190, f02=» 0P X T 4 Y X ; X T X O 1 1 X P - M T $ PD _ T " # p X L R P RP (@ ^ X P8 P0 # P T P 0P 1 _ t W Y > > SnJ B B SvJ B B pU
0x1926c0…248b20 [0x622]: Pad {f00=0x0082, f01=0x0190, f02=» 0 R t B " P Q :A H P P S H !@T I S T ! 1 U S A d ? W A d ? W A d ? W U R ; V ~# T R p 4 # PJ P 4 RL P 4 ] P $ P ] U PD P< P0 P,
0x1926c0…248b20 [0x623]: Pad {f00=0x0082, f01=0x0190, f02=» ' T P X P " >Wh T # Y U T ] W 8V X $P y $W $ :L P 8R R S Y $ X Z ;BR 8% =A Y T Z& h_, X ' X 4X< XB U T T U 5 U R " ] ~ S ;h # <c$
0x1926c0…248b20 [0x624]: Pad {f00=0x0082, f01=0x0190, f02=»X <d$ _D $?:D" Y X P Y # P 4T U # P 4 4 P _r T _$ U _ ? 4 U 5 R PF "P2 R T T R X # X h > P P P ` X XF _H Wj ? T T :L W u > > E D E
0x1926c0…248b20 [0x625]: Pad {f00=0x0082, f01=0x0190, f02=»XB Y X X X X ' 4 B U B (" W C (@ > ?" 8' ?A R 8;b# 4T RT T T ] ] 8 W< TrW T ] _ P T V WT 8V T P U 8 ~ U Q2P X H 5 U R " ] ~ Y > > V P X
0x1926c0…248b20 [0x626]: Pad {f00=0x0082, f01=0x0190, f02=» 4XR XX 5 h_b Y Y Y X 9BV$ X & Y " X D V & X . T 8TV 9WD B 7P P S AS W AS @S A.W ? A dI.9 X R C C & S ?A @S A. X V 9_: @
0x1926c0…248b20 [0x627]: Pad {f00=0x0082, f01=0x0190, f02=» Pb P Pv Pz * 6 + S AS @S A. H :L d S Y HW AS @S A. Wx ! * X , X P ! ! BW< ! * _ ! * _& ! X , X P ! H X , X P B B ! f ! B ! T Y *W X * p ! H# f & ! H ! " 0 TOT
0x1926c0…248b20 [0x628]: Pad {f00=0x0083, f01=0x0190, f02=»& Ph B @ @ :C P ! H 9DV ! (@ B r ! ! R ! j ! ! b ! ( ! ! Z ! X Y . X * f " ! H_ Y * 4 ! ~ PT C ! l ! H ! (@ ! ~ R _ ! V 1 ;h 1 ! V 1 ! ! l* ! B ! ! ~ ) ! H Y *# T X Y
0x1926c0…248b20 [0x629]: Pad {f00=0x0083, f01=0x0190, f02=» ! B ! ~ ! T )WL WP ! ~ Xz R ! ( - j ! ) W. Y PW Y P Y L Y N Y B S W W B C & S _ ? , Y " X $ T X Y $ Y X HP 1 Y H S 0 Y J 1 0B. X (P y (_^ ( :L _n Y ( " X . P Y : ! F ! H X # P Y
0x1926c0…248b20 [0x62a]: Pad {f00=0x0083, f01=0x0190, f02=» D C Y B S K & E % Y B K , X ;AR@;a X &P Y & P 7P < $ <C ! 9 4 X t " _ W B RZ X , X P W P Q8 U _ T,: B R(' P Q 9BW Q 9C B ! T 4 x @ P ;A _ 4 X
0x1926c0…248b20 [0x62b]: Pad {f00=0x0083, f01=0x0190, f02=»U P jW kQ 4 Y * ! 0" Z Y" P Z _ 4 A ;D A 4 R _ ;H 4 r ! (:C 4 Z ! ( 4 X " 4 ! ) 4 X P t 4 P y _^ _n Y " X P Y : ! ! H X # P Y
0x1926c0…248b20 [0x62c]: Pad {f00=0x0083, f01=0x0190, f02=» P Y P 7P < $ <C ! 9 4 X t " _ W B R X X P W P Q U _ T : B R ' P Q 9BW Q 9C B ! T 4 x @ P ;A _ 4 X
0x1926c0…248b20 [0x62d]: Pad {f00=0x0083, f01=0x0190, f02=»U P jW kQ 4 Y ! 0" Z Y" P Z _ 4 A ;D A 4 R _ ;H 4 ! (:C 4 ! ( 4 X " 4 ! ) 4 X P t 4 P y _^ & & P Y : ! ! H X # P Y
0x1926c0…248b20 [0x62e]: Pad {f00=0x0083, f01=0x0190, f02=» @94P 0P _ % A92 A96 &_^ B Q< R_r X P 0 Y P C x_ _ B Y _N S X P A :J Y Wb Y @_x X X A :J Y _& Y h @ 0 A ^ A _: X P ( y Y W & (P 0 ) > (P _ ) 1_
0x1926c0…248b20 [0x62f]: Pad {f00=0x0083, f01=0x0190, f02=» @ @ A X &_" X P y Y X P T h @ T A ^ A > A > A B A F A J A N RW > 4 " !% B !% T P P ! ! ! !% Tf Tb A& P A& TR !% TL !% TD T@ !%
0x1926c0…248b20 [0x630]: Pad {f00=0x0093, f01=0x0190, f02=» @ `P @& X@ !#: T< A d !# ~ @ ^P @& P @ 8 !"f !" A h_: !% X6_Z A d @& @ tT 1 R 0 2P P P A r > @ Z 8 H9x @& P E & PF X R@ X P X T2 P C * C X T ! W xW( &W" X R X T & ! !# ~_ A `
0x1926c0…248b20 [0x631]: Pad {f00=0x0093, f01=0x0190, f02=» @ @ t @ n A r " !&~ @ ^XN !% T @ hP !# !&N_h 1T& @ hX @ bP !" !# A f_ A h " < A ^ @ bT _, _0 @ ^T8W ~ @& T !# _ !"f !# _ A ` A r E A d A Z 4 @ ^P !# !&N ~ !&*W ~ @ T !# _ T h_ l A / C P B B A n
0x1926c0…248b20 [0x632]: Pad {f00=0x0093, f01=0x0190, f02=» @ dT @ t A r @ r A t A d !% T2 P4 PJ PL P P. 1 A r @ r ]6W P _@ @& @ r E !& P !% 4 _$ !& 2_l 1 A hT 0W ;W A z A {W W W A z A { !%$ @ z !% @ { !% !% !% B J 4 !%$ !% @ n @ r A t @ rT( @
0x1926c0…248b20 [0x633]: Pad {f00=0x0093, f01=0x0190, f02=» T 0 !% W R !% A r @ p @ rU< Zx Q P Q T 0 !% A r 0 !% A r !% !% $ A b _ B J B !% !% 4 A d ? <J T A jT PD 4 !%p ~ A d ? <_ I " P A d A 4 A _$B P W " S " * 9AY X 2 _ !% 9AP ^ 2
0x1926c0…248b20 [0x634]: Pad {f00=0x0093, f01=0x0190, f02=» a 4 :J& X A > :J&^ Z A x 4 A x !% @ ^P !# !&N ~ @ xP a x A x 4 A j !% T ' A j 4 & & {W W W A z A { ! @ z ! @ { ! ! ! B J 4 ! ! @ n @ r A t @ rT @
0x1926c0…248b20 [0x635]: Pad {f00=0x0093, f01=0x0190, f02=» T 0 ! W R ! A r @ p @ rU Zx Q P Q T 0 ! A r 0 ! A r ! ! $ A b _ B J B ! ! 4 A d ? <J T A jT P 4 ! ~ A d ? <_ I " P A d A 4 A _$B P W " " * 9AY X 2 _ !% 9AP ^ 2
0x1926c0…248b20 [0x636]: Pad {f00=0x0093, f01=0x0190, f02=» a 4 & X A > Z A x 4 A x !% @ ^P !# !&N ~ @ xP a x A x 4 A j !% T ' A j 4 & {W W W A z A { ! @ z ! @ { ! ! ! B J 4 ! ! @ n @ r A t @ rT @
0x1926c0…248b20 [0x637]: Pad {f00=0x0093, f01=0x0190, f02=» T 0 ! W R ! A r @ p @ rU Zx Q P Q T 0 ! A r 0 ! A r ! ! $ A b _ B J B ! ! 4 A d ? <J T A jT P 4 ! ~ A d ? <_ I " P A d A 4 A _$B P W " " * 9AY X 2 _ !% 9AP ^ 2
0x1926c0…248b20 [0x638]: Pad {f00=0x0094, f01=0x0190, f02=» a 4 & X A > Z A x 4 A x !% @ ^P !# !&N ~ @ xP a x A x 4 A j !% T ' A j 4 & {W W W A z A { ! @ z ! @ { ! ! ! B J 4 ! ! @ n @ r A t @ rT @
0x1926c0…248b20 [0x639]: Pad {f00=0x0094, f01=0x0190, f02=» T 0 ! W R ! A r @ p @ rU Zx Q P Q T 0 ! A r 0 ! A r ! ! $ A b _ B J B ! ! 4 A d ? <J T A jT P 4 ! ~ A d ? <_ I " P A d A 4 A _$B P W " " * 9AY X 2 _ !% 9AP ^ 2
0x1926c0…248b20 [0x63a]: Pad {f00=0x0094, f01=0x0190, f02=» a 4 & X A > Z A x 4 A x !% @ ^P !# !&N ~ @ xP a x A x 4 A j !% T ' A j 4 & {W W W A z A { ! @ z ! @ { ! ! ! B J 4 ! ! @ n @ r A t @ rT @
0x1926c0…248b20 [0x63b]: Pad {f00=0x0094, f01=0x0190, f02=» T 0 ! W R ! A r @ p @ rU Zx Q P Q T 0 ! A r 0 ! A r ! ! $ A b _ B J B ! ! 4 A d ? <J T A jT P 4 ! ~ A d ? <_ I " P A d A 4 A _$B P W " " * 9AY X 2 _ !% 9AP ^ 2
0x1926c0…248b20 [0x63c]: Pad {f00=0x0094, f01=0x0190, f02=» a 4 & X A > Z A x 4 A x !% @ ^P !# !&N ~ @ xP a x A x 4 A j !% T ' A j 4 & {W W W A z A { ! @ z ! @ { ! ! ! B J 4 ! ! @ n @ r A t @ rT @
0x1926c0…248b20 [0x63d]: Pad {f00=0x0094, f01=0x0190, f02=» T 0 ! W R ! A r @ p @ rU Zx Q P Q T 0 ! A r 0 ! A r ! ! $ A b _ B J B ! ! 4 A d ? <J T A jT P 4 ! ~ A d ? <_ I " P A d A 4 A _$B P W " " * 9AY X 2 _ !% 9AP ^ 2
0x1926c0…248b20 [0x63e]: Pad {f00=0x0094, f01=0x0190, f02=» a 4 & X A > Z A x 4 A x !% @ ^P !# !&N ~ @ xP a x A x 4 A j !% T ' A j 4 & {W W W A z A { ! @ z ! @ { ! ! ! B J 4 ! ! @ n @ r A t @ rT @
0x1926c0…248b20 [0x63f]: Pad {f00=0x0094, f01=0x0190, f02=» T 0 ! W R ! A r @ p @ rU Zx Q P Q T 0 ! A r 0 ! A r ! ! $ A b _ B J B ! ! 4 A d ? <J T A jT P 4 ! ~ A d ? <_ I " P A d A 4 A _$B P W " " * 9AY X 2 _ !% 9AP ^ 2
0x1926c0…248b20 [0x640]: Pad {f00=0x0094, f01=0x0190, f02=» a 4 & X A > Z A x 4 A x !% @ ^P !# !&N ~ @ xP a x A x 4 A j !% T ' A j 4 & {W W W A z A { ! @ z ! @ { ! ! ! B J 4 ! ! @ n @ r A t @ r :f
0x1926c0…248b20 [0x641]: Pad {f00=0x0094, f01=0x0190, f02=» 7- <=2&p ?' @O JZlP}M] Nk`Ka z^L~noj {|[_m TOSS T : :J:6 S P :0 :J:: _ t _< ?
0x1926c0…248b20 [0x642]: Pad {f00=0x0094, f01=0x0190, f02=»=,=,=,< < <<; < < ; =,=,; < < <<; " # $ % "$&( ; : @ D X P _ L !##P T @ R $P U + U _ (@(@ I: P ^ =, H: Y H: B # X ( U =, B r R| W Y & Y $ 0 Y . <
0x1926c0…248b20 [0x643]: Pad {f00=0x0094, f01=0x0190, f02=» C B B B U P R Wp H TP L P B r L ( R| $ X _ X ` T I T J O8 P C X I X J S W C C W, B B Y IR Q X JU C '? T W6 P T.(@(@ P #D q >B S S > > BrBrBrBrBrA A
0x1926c0…248b20 [0x644]: Pad {f00=0x0094, f01=0x0190, f02=» D ( U ( 0 W T ` U @ , @ W : X & X P !##T Y T( X P P P @S Q (@ F R : @ _ S ( H > >4 X &Pj D ^V" D "? P P &P E ^ Q V, P ( > ( ( W >4 Qj Br B W C
0x1926c0…248b20 [0x645]: Pad {f00=0x0094, f01=0x0190, f02=» T _ Y & F yZ yb(@ _ A X & X I U X J U ( Qj T$ X X RP F = T Br P ` U0 @ , D !##X D ( * ]" 0 X Wf ` U @ H @ X WF Pf N 4 5W P 0 @L 1 AL (@_ 1
0x1926c0…248b20 [0x646]: Pad {f00=0x0094, f01=0x0190, f02=»' @8 5 @8 4 G W , P& ,' X X 1 Z" ) @8_ (@ C ( B ! Br @8 @=X F U G F G = Bp & ( F " F +P P* X $ T P U W P R P> $P8W Br X ( X & F X P @S Q (@ R| + X ^
0x1926c0…248b20 [0x647]: Pad {f00=0x0094, f01=0x0190, f02=» P I I K K P P & P PfW D $ T P T PJW E I E J X ^V ? T B yZ &(@( o B B P ! Tn M E : B Ao Ao " P op "" p P E o @or yb(@ Dot C C C x W C
0x1926c0…248b20 [0x648]: Pad {f00=0x0094, f01=0x0190, f02=»ot EovX #D( B ( B yZ B @or Dot x W C C ( B B o op @o T Ao 0" ER ER U _ L !SSP !LL ER W L @o| Ao|V E P Eo~ @or Eo P Eo P Eo Do~T o P E G 2% P( R 0 XotT R
0x1926c0…248b20 [0x649]: Pad {f00=0x0094, f01=0x0190, f02=» E 3 P S I P S J P S ( P S * P % S H P & S P @o S , d S B | C C^ @o|T W o T Wz @o P R ( >a U Wb 0 =b Po~P @o| ! T. W< Po Dot Y Po Y Po Y U ! T ! X6 _R _V Do " P o Ao (
0x1926c0…248b20 [0x64a]: Pad {f00=0x0094, f01=0x0190, f02=»( @o F _ T `op ` 9A S ^ H $X D S . S $ R R * S W S _ S ` R ( R * O S b F U _ L !SSP !LL W L @ A V P E @ E P E P E D T P 2% P R 0 X T R
0x1926c0…248b20 [0x64b]: Pad {f00=0x0094, f01=0x0190, f02=» E 3 P S I P S J P S ( P S * P % S H P & S P @ S , d S B | C C^ @ T W T W @ P R ( >a U W 0 =b P P @ ! T W P D Y P Y P Y U ! T ! X6 _R _V D " P A (
0x1926c0…248b20 [0x64c]: Pad {f00=0x0094, f01=0x0190, f02=»( @ F _ T ` ` 9A S ^ H $X D S . S $ R * S W S _ S ` R ( R * S b F U _ L !SSP !LL W L @ A V P E @ E P E P E D T P 2% P R 0 X T R
0x1926c0…248b20 [0x64d]: Pad {f00=0x0094, f01=0x0190, f02=» E 3 P S I P S J P S ( P S * P % S H P & S P @ S , d S B | C C^ @ T W T W @ P R ( >a U W 0 =b P P @ ! T W P D Y P Y P Y U ! T ! X6 _R _V D " P A (
0x1926c0…248b20 [0x64e]: Pad {f00=0x0094, f01=0x0190, f02=»( @ F _ T ` ` 9A S ^ H $X D S . S $ R * S W S _ S ` R ( R * S b F U _ L !SSP !LL W L @ A V P E @ E P E P E D T P 2% P R 0 X T R
0x1926c0…248b20 [0x64f]: Pad {f00=0x0094, f01=0x0190, f02=» E 3 P S I P S J P S ( P S * P % S H P & S P @ S , d S B | C C^ @ T W T W @ P R ( >a U W 0 =b P P @ ! T W P D Y P Y P Y U ! T ! X6 _R _V D " P A (
0x1926c0…248b20 [0x650]: Pad {f00=0x0095, f01=0x0190, f02=» [ [ : P Q R ;A [ [ : Q R P ;A [ [ : ? ? !? P P !> P W 9P _ T !##P> ? R4 L TX P L P 4 M X M M _8 > & D LW 0P Q P P E +P W : X + P
0x1926c0…248b20 [0x651]: Pad {f00=0x0095, f01=0x0190, f02=» @L T n ( AL U 1_ D + I D N ) E N : T * O SP P W X * 0 U U. _ Y . R P Y $ P X ( _ W Y & : B P6 T G W& X ^ Y ^ B I ~ B T B : X "? P P X T _
0x1926c0…248b20 [0x652]: Pad {f00=0x0095, f01=0x0190, f02=» D $ D * O T ( T & ^ S W : U ; $ T $ T $ T&x : : $ T2 $ ) ] $ ) Y _$ U x 0 )_8 $_ $ ) YP_J U ; $ T $ T $ TNp : : $ T* (W $ U $ ) Y _& (# )_4 $ ($ ) YR_L U
0x1926c0…248b20 [0x653]: Pad {f00=0x0095, f01=0x0190, f02=» ! Z( S (X0 @S P T M ]@ , ) AS P* P Y U ( ) 5 & > > [ [ S Z Z Z ? Z > P "R Y W 0 S Pl T Pb _ <UR "R4 PB X R< X T6 X T0. T G Y6 G _b P ,P - _ ( (
0x1926c0…248b20 [0x654]: Pad {f00=0x0095, f01=0x0190, f02=»P$ X $P y $W $ :LW ` Y $ X " PP:A: R Q W Y <D X ? ?: T p > XV > Ph P C V B V T B % X . $ 4 T % V X ,T ! P W Xf Y . V XV ! B P X " _` B P$ $$ R % C XV*
0x1926c0…248b20 [0x655]: Pad {f00=0x0095, f01=0x0190, f02=»Z Z& X . 0T X W X ,P Y . 0 %_. % Y . W _p P XV _ X $P y $ Y $ C ! S " W QfR$ X # P X R6;GV2 X $P y $ W P8 X R2;GV. X " UV X , $4 P Xf X .T * W Y , - S @ Y $ X Z _X ? X :a Z
0x1926c0…248b20 [0x656]: Pad {f00=0x0095, f01=0x0190, f02=»$ P _$ _*_, _ %0=c X 0P > 0 > >_ B 1 > XT 0 _ d X [ [ !"&';<>@^_ 9: X ! Y MX P ^ S Y LX X X Y.Y X X Z Z ! ! ! W B W$ B L # 9Q T W Q P X & V T Y
0x1926c0…248b20 [0x657]: Pad {f00=0x0095, f01=0x0190, f02=» B C ! ! T " T W Q " T ) S ![ X Y _ ! ![v Y &P Q W ! Y '" [,_" Xz_< ![j_n ![ _t B B , ! T _ D ! P ! P W C V B P ! ! ! Y 4 RNQ " PH _ " P R: M T2 ! L ,! :D
0x1926c0…248b20 [0x658]: Pad {f00=0x0095, f01=0x0190, f02=» X Y ? Y X P " ! Y ' ! X T ! S X S R _ 4 ! ! ! " T ! ! ! ! 4 X ' 4 Y ' X ! ! " P ,$ , ! 4!"$&;<>@^_ [ ]X] ]t PB P8 S B P B L # +P ! ! T
0x1926c0…248b20 [0x659]: Pad {f00=0x0095, f01=0x0190, f02=» Y & V Y _^ C _P F F" $ P X & X ]r ! Y Y Y _ F" H[ _ ! ! ] & S X C _ X Y & Y > B B U$ $ ! T _ U D ! T _ C > X Z^<BR P j X _x R0 V0 ! P* P P
0x1926c0…248b20 [0x65a]: Pad {f00=0x0095, f01=0x0190, f02=»" [ ! ! X & ] ^0 ^n^ B 8# T $ # ;D 7P P S Y W Y X Y 8# T W$ T( X $ P X P B V *@ Y h S S ? X _F ^ b ` a aZ ` ! P P `n & `V S B P B H " +P P. T
0x1926c0…248b20 [0x65b]: Pad {f00=0x0095, f01=0x0190, f02=» _ $$ X" X& X* C F ` X`" E^ P( 8'0P E^ TD ! T 9 _ ! T @_ ! F B P !bR B C ` ^N P R ?] _ C _ F F" $ P X ' X ] ! ` _ B !b !bR ! ` B Y & !bpW _
0x1926c0…248b20 [0x65c]: Pad {f00=0x0095, f01=0x0190, f02=»Q Y > X Z2<BR J ? Y ! T X ! Y & Zl ` T _ ! X $ P !a _ R V P P" ! ` W ` X $ X !a _ X $ X X & !bp !bR Y _8 X " X &" Y )U W ! ! ! Y 4 B _B
0x1926c0…248b20 [0x65d]: Pad {f00=0x0095, f01=0x0190, f02=» ! 4 ! V ! V W :h ! 4 X )" X '# R 4 ` > k m F B P ! B C ^N P R ?] _ C _ F F" $ P X ' X ] ! _ B ! ! ! B Y & ! W _
0x1926c0…248b20 [0x65e]: Pad {f00=0x0095, f01=0x0190, f02=»Q Y > X Z2<BR J ? Y ! T X ! Y & Zl ` T _ ! X $ P ! _ R V P P ! ` W ` X $ X ! _ X $ X X & ! ! Y _8 X " X &" Y )U W ! ! ! Y 4 B _B
0x1926c0…248b20 [0x65f]: Pad {f00=0x0095, f01=0x0190, f02=» ! 4 ! V ! V W :h ! 4 X )" X '# R 4 ` > F B P ! B C ^N P R ?] _ C _ F F" $ P X ' X ] ! _ B ! ! ! B Y & ! W _
0x1926c0…248b20 [0x660]: Pad {f00=0x0096, f01=0x0190, f02=»Q Y > X Z2<BR J ? Y ! T X ! Y & Zl ` T _ ! X $ P ! _ R V P P ! ` W ` X $ X ! _ X $ X X & ! ! Y _8 X " X &" Y )U W ! ! ! Y 4 B _B
0x1926c0…248b20 [0x661]: Pad {f00=0x0096, f01=0x0190, f02=» ! 4 ! V ! V W :h ! 4 X )" X '# R 4 ` > F B P ! B C ^N P R ?] _ C _ F F" $ P X ' X ] ! _ B ! ! ! B Y & ! W _
0x1926c0…248b20 [0x662]: Pad {f00=0x0096, f01=0x0190, f02=»Q Y > X Z2<BR J ? Y ! T X ! Y & Zl ` T _ ! X $ P ! _ R V P P ! ` W ` X $ X ! _ X $ X X & ! ! Y _8 X " X &" Y )U W ! ! ! Y 4 B _B
0x1926c0…248b20 [0x663]: Pad {f00=0x0096, f01=0x0190, f02=» ! 4 ! V ! V W :h ! 4 X )" X '# R 4 ` > F B P ! B C ^N P l P P .T B Y Wx B P X P ( ( 7 R ( P H RN H P ' P b P W< b T6 m ' P
0x1926c0…248b20 [0x664]: Pad {f00=0x0096, f01=0x0190, f02=»_N S X T @b P ( Ab mB _ ( Y _ b _x X T @b P ( Ab mB_ ( Y _ b _ i m 9 @_ mD H b P b P $ $ 1 ) > ) $P e % > (@ B Z F U F Z b P U S C G 4' "?:B ] P H U _
0x1926c0…248b20 [0x665]: Pad {f00=0x0096, f01=0x0190, f02=» - U _ 9B @ T W X > "RT PL X TF X R@? V X & X H P & X P t Y X H P & < ? < ? <(@ oB $ P B $ 9H C ">h # P >_2 < U = (@ " $ P B >H<h oX P ?_" =
0x1926c0…248b20 [0x666]: Pad {f00=0x0096, f01=0x0190, f02=» b _x X T @b P ( Ab mB_ ( Y @olP 4 Aol U W Aol Aoj @on U : Ao Ao :A Aor y , ` R @ U P. ,% T& o C ( B P T W ' T| Iot @ 8 =hP Y X Pl 0T<
0x1926c0…248b20 [0x667]: Pad {f00=0x0096, f01=0x0190, f02=»o @ojP ol $ ) 5 S Aoj Ao Aon o " R| op Ao| "" P U W p op P @or Eot "# P P @on P ( )W @ 0 R % "V E T D Ao _" P @on P ( )W @ 0 Rb ' F "R G o @or Dot #D T
0x1926c0…248b20 [0x668]: Pad {f00=0x0096, f01=0x0190, f02=» b _x X T @b P ( Ab mB_ ( Y @olP 4 Aol U W Aol Aoj @on U : Ao Ao :A Aor , ` R @ U P ,% T o C ( B P T W ' T Iot @ 8 =hP Y X P 0T
0x1926c0…248b20 [0x669]: Pad {f00=0x0096, f01=0x0190, f02=» @ojP ol $ ) 5 S Aoj Ao Aon o " R| op Ao| "" P U W p op P @or Eot "# P P @on P ( )W @ 0 R % "V E T D Ao _" P @on P ( )W @ 0 Rb ' F "R G o @or Dot #D T
0x1926c0…248b20 [0x66a]: Pad {f00=0x0096, f01=0x0190, f02=» wH b _x X T @b P ( Ab mB_ ( Y @olP 4 Aol U W Aol Aoj @on U : Ao Ao :A Aor , ` R @ U P ,% T o C ( B P T W ' T Iot @ 8 =hP Y X P 0T
0x1926c0…248b20 [0x66b]: Pad {f00=0x0096, f01=0x0190, f02=» @ojP ol $ ) 5 S Aoj Ao Aon o " R| op Ao| "" P rb p op P @or Eot "# P P @on P ( )W @ 0 R % "V E T D Ao _" P @on P ( )W @ 0 Rb ' F "R G o @or Dot #D T
0x1926c0…248b20 [0x66c]: Pad {f00=0x0096, f01=0x0190, f02=» b _x X T @b P ( Ab mB_ ( Y @olP 4 Aol U W Aol Aoj @on U : @r^ , L T L PF L T M Q M L V L Ar` @r^ : T n @r` [ [ M M M Ar^ -(@ : - : @r^ , L T M
0x1926c0…248b20 [0x66d]: Pad {f00=0x0096, f01=0x0190, f02=» @r^ Aoj Aol >z z4zdz zdz 0123456789 & 0123456789 & < +.-, 0123456789 `ABCDEFGHIJKLMNOPQRSTUVWXYZ []' ^ > ?:_; =!"#$%&/() @ABCDEFGHIJKLMNOPQRSTUVWXYZ []* ($SWAP
0x1926c0…248b20 [0x66e]: Pad {f00=0x0096, f01=0x0190, f02=» @ " Q A z : R W2 A A z P. _ " :c* A z W " :d2 * A < & W F ` W F W F CRT F A @ @ ! P2 @ P ;b=H F CR }L F }LW =J F CRTT F PN A @ $ P( @ R W
0x1926c0…248b20 [0x66f]: Pad {f00=0x0096, f01=0x0190, f02=» Y P @ T W - P _ T <B :L A W A A W T F W V = V W Y* P Z( = :L < P W <9B @ V W
0x1926c0…248b20 [0x670]: Pad {f00=0x0096, f01=0x0190, f02=»P !RRP V @ P W _: p V @ PZ W @ @ ! T _ P :l 9b ) V _ @ V W W P TJ V 0 !;;P P V P$ _ P !;;T
0x1926c0…248b20 [0x671]: Pad {f00=0x0096, f01=0x0190, f02=» V Xb _ P !;;T X$ W nP XZ_V S A / A u @ R @ ! T A A V @ R V V I W V $ ) H A I. : C. X C.9h! # " :A K :
0x1926c0…248b20 [0x672]: Pad {f00=0x0096, f01=0x0190, f02=»9C) A I " 9A ! 9B r @z r A I ! ( : A z A A A A ! T A A I ! : 9E @z r s A I T ) A _ I N T : 9PJ S Y T@ $ 1T: C !CCTt : 1P P$_ P
0x1926c0…248b20 [0x673]: Pad {f00=0x0096, f01=0x0190, f02=» R X A X W : @ ' R xW V W$ V P P ~ W P V V T ~ V T W P V W @ $ P p W T : A z_ 0V , - P X 9A_ : @ ! P (W ( :W> 2 W 0
0x1926c0…248b20 [0x674]: Pad {f00=0x0096, f01=0x0190, f02=» j A A A A ! T A W Z A. c @ V W U R $ )_ : W W W W W >Q@ V V v x W V V v
0x1926c0…248b20 [0x675]: Pad {f00=0x0096, f01=0x0190, f02=» >V U * _ V * Z K W W :K W r >Q R t >V v : V W V ) : V <B W |P v v : $ | V |P v w v : V $ V l $ | V
0x1926c0…248b20 [0x676]: Pad {f00=0x0096, f01=0x0190, f02=» z ` _f V : W R R P L r W x _ V : " D Pd W V PL $;A^ D E D P. V P P T E _J | E _T " D T E | E D E % : " R ;B | " R P( |P v
0x1926c0…248b20 [0x677]: Pad {f00=0x0096, f01=0x0190, f02=»^ 0 : W ; V : : , X G : J @ 0 V @ 0 H W : ? ? R 0 R P P B _ S : V ) v : 4P: " D , H H $ M v b - I Y0 : @
0x1926c0…248b20 [0x678]: Pad {f00=0x0097, f01=0x0190, f02=»_d D = G $ 0 V W $ ^ V E J K _N V r V :B A V 9n A @ A A , @ @ ! @ P P P P|_ _ @ 9N @ :b @ :b V W U6 T 9BW P P(
0x1926c0…248b20 [0x679]: Pad {f00=0x0097, f01=0x0190, f02=» 3 S Y& P4 Sj Sj S P 3 _ Sj 3 Sl B A. @ D @ W x A ( : A S > l : pR L W n V pT : N V l W H V ]" . nT" W v
0x1926c0…248b20 [0x67a]: Pad {f00=0x0097, f01=0x0190, f02=» G G v U r v G v : P L pV : r V ~P W x _$ 8 V V x % V v % : V V 9k! P % _ V V W W r W V | v ) W b G | v ) - V | W f
0x1926c0…248b20 [0x67b]: Pad {f00=0x0097, f01=0x0190, f02=» pPn D V W % 6 R , | " E R & W ~ R & R P R Xv _|W T : L W x _ V P I D W z ` pPl H - V I 0 " R E R T E D E @
0x1926c0…248b20 [0x67c]: Pad {f00=0x0097, f01=0x0190, f02=» 0 :C # : .=H N .=H N N : d 8" R _ ZY QY : @ V H W z W | CRP W ` ` H W d 2 ;A @ >R - @ - N !TTP N :H N TBT W W8 2
0x1926c0…248b20 [0x67d]: Pad {f00=0x0097, f01=0x0190, f02=» .:H N P V _ R :h " B YV : v `?A @ W W :b / W : W @ W D V W W ` " W p @ pP. " 4X 1 R
0x1926c0…248b20 [0x67e]: Pad {f00=0x0097, f01=0x0190, f02=» V >k 8 W W t V V : x A z P h W r h W @ @ % @ V , P@ , - 4 ] 4 >Y 5 X * _6 : @ ] @ P @ P " P " P " P
0x1926c0…248b20 [0x67f]: Pad {f00=0x0097, f01=0x0190, f02=»" P #E t " P #F t : @ " P @ P 3 _ @ " P S 1 S 9J S ( 3 ( 9B @ @ T : @ :B W . !TTP W t N =H N W l N =H N W p N =H N W | ( @ % P W @ % P
0x1926c0…248b20 [0x680]: Pad {f00=0x0097, f01=0x0190, f02=» _2 V V tPJ S ( V | S =J @ " S V l S W l V p S W p W _L @ % P W @ % P !TTT @ @ T : @ ! P @ @ 0 CRT 3 @ 0 0 S
0x1926c0…248b20 [0x681]: Pad {f00=0x0097, f01=0x0190, f02=» @ T : Sh ` @ P _ 3 S S V V W @ @ T : P S S _ : . !TTP V W t * P r _ Ph W p W
0x1926c0…248b20 [0x682]: Pad {f00=0x0097, f01=0x0190, f02=» @ T : @ R @ T P / _ T @ A V W W t PT W f ( W d G =h G V d V r < V f P W f _B V W V t Yr !
0x1926c0…248b20 [0x683]: Pad {f00=0x0097, f01=0x0190, f02=» _. P, V 4 U $ $ _. @ @ @ ! P V 8 8 8 @ >B 3 . !CCP W P0 W f W d V d V r < V f _2 U^ V 8 8 8 4 D P$ @ #
0x1926c0…248b20 [0x684]: Pad {f00=0x0097, f01=0x0190, f02=» : W V @ 0 V P _ W $ q > R P >b W >b & 8P D P U & E W z V W R 9 W D ) $ P@ D L T@ D &P V U 0 I , I . $# P V -W H P U & I @ % PD H I H
0x1926c0…248b20 [0x685]: Pad {f00=0x0097, f01=0x0190, f02=»;I # ;b W ;a WR# T W W,# T W W # T W W W R _ $ W : W | v z *T P _ / P *_ *T P$ _ .P _ / V z U Y$ P W | V z 3 % W
0x1926c0…248b20 [0x686]: Pad {f00=0x0097, f01=0x0190, f02=»=H N : &=H F : F =H F : F =H F : P N =H N T _ : 00=H 00 P P _ _ : @ ! P (W ( : 4 ` @ 0 CRT" @ ! P ` @ E "W ` @ E "
0x1926c0…248b20 [0x687]: Pad {f00=0x0097, f01=0x0190, f02=» , , , , ,b H b ,b t b . DC T KB y :
0x1926c0…248b20 [0x688]: Pad {f00=0x0097, f01=0x0190, f02=»=H N 2 4X TP & 8^ DY ^ @ P T KB y " (
0x1926c0…248b20 [0x689]: Pad {f00=0x0097, f01=0x0190, f02=» ?O_o 8^ DY T , P 4[ GP T KB y
0x1926c0…248b20 [0x68a]: Pad {f00=0x0097, f01=0x018e, f02=» P ABL BRM SALCUZ " PTRS005 CIO A2,1,LCUUT SALCUZ PTRS010 EQU * SALCUZ B P LDK A2,SYNEBC SALCUZ ^ 2 P OTR A2,1,LCUUT SPECIFY SYNC CHARACTER SALCUZ | P XIF SALCUZ P IFT P6805=1 SALCUZ P IFT CODE=0 SALCUZ P LDK A2,/0
0x1926c0…248b20 [0x68b]: Pad {f00=0x0097, f01=0x0190, f02=» x P ABL BRM SALCUZ " PTRS005 CIO A2,1,LCUUT SALCUZ PTRS010 EQU * F P LDK A2,SYN SALCUZ Z 2 P OTR A2,1,LCUUT SPECIFY SYNC CHARACTER SALCUZ v P XIF SALCUZ * P CF A5,READ WAIT FOR OUTPUT INTERRUPT P LDK A3,4 4 SYNS PTR
0x1926c0…248b20 [0x68c]: Pad {f00=0x0097, f01=0x0190, f02=»* P* RECEIVER INTERRUPT P* ( P* 2 PIH1501 EQU * < P ST P,INTSAV P P IFT CPU852=1 d P CF A15,SAVE8 SAVE A1-A8 z P XIF P P IFF CPU852=1 P MSR 8,A15 SAVE A1-A8 =1 P XIF * P CF A15,LDREG RESTORE DC R
0x1926c0…248b20 [0x68d]: Pad {f00=0x0097, f01=0x0190, f02=» LOG RECEIVED CHARACTER P XIF P IFF CODE=1 , P C2 SYNSW @ P RF(NZ) IHLCI2 R P CWK A2,SYN SKIP SYNS h P RF(E) READ " PIHLCI2 XRR A7,A2 CALCULATE LRC P XIF P IFT CODE=1 P C2 SYNSW 2 P RF(NZ) IHLCI1 DO NOT SK
0x1926c0…248b20 [0x68e]: Pad {f00=0x0097, f01=0x0190, f02=»C v ( P LC A2,TASCII,A2 TRANSLATE TO ASCII P XIF 6 PIHIN10 RTN A5 B P IFT P6805=0 SALCUZ X PIHIN20 CF A5,SST PERFORM SST t P ABL BRM P XIF SALCUZ P IFT P6805=1 SALCUZ $ PIHIN20 RF SST PERFORM SST SALCUZ P XIF S
0x1926c0…248b20 [0x68f]: Pad {f00=0x0097, f01=0x0190, f02=» P IFT CPU852=1 P CF A15,SAVE8 SAVE A1 - A8 P XIF @ P L P IFF CPU852=1 T P MSR 8,A15 SAVE A1-A8 =1 j P XIF * P CF A15,LDREG RESTORE DC REGS A3 - A8 P RB IHIN10 P EJECT P* P* & P* SST INSTRUCTION
0x1926c0…248b20 [0x690]: Pad {f00=0x0043, f01=0x0190, f02=» & PNEWLIN EQU /7E NEW LINE CHARACTER $ PENDMES EQU /7D END MESSAGE CHAR . " PFORMFD EQU /7C FORM FEED CHAR V PDUPCH EQU /7B | PFMCH EQU /60 P EJECT P* P* P* EQUATES P* " P* COMMON EQU FOR ECB HANDLING
0x1926c0…248b20 [0x691]: Pad {f00=0x0043, f01=0x002a, f02=» x 8 @ P X ` ( @ X `
0x1926c0…248b20 [0x692]: Pad {f00=0x0043, f01=0x0190, f02=» 2 P IDENT DRDC15 9.2DK 3 80-01-03 870105040920 P : P DK3, RBUFNR = 1 ALLOWED B P DK2, TBUFL d P 80-03-11 z 0 P DK, COND.ASM., TIMPRO, TIMNAK, READ BUF. P 80-03-11 P REL 9.1 79-08-16 P =8, ASCII-MODE FOR SA
0x1926c0…248b20 [0x693]: Pad {f00=0x0043, f01=0x018e, f02=»RESS DESTROYED x P REL 9.1 79-05-23 $ P =5, INCOMPLETE POLL SEQUENCE 2 P REL 9.1 79-05-23 Z P =3, TRANSFER PARAMETER v P PRR 9.1 79-04-06 P =4, ANY MESSAGE ORDER P PRR 9.1 79-04-06 P =2, ABORT HANDLING
0x1926c0…248b20 [0x694]: Pad {f00=0x0043, f01=0x0190, f02=» P* 2 P********************************************* P* D $ P* PHILIPS TERMINAL SYSTEM PTS N P* v * P* DRDC15: DRIVER DATA COMMUNICATION . P* BSC MULTIPOINT LINE PROCEDURE P* OR SIEMENS MSV1 P*
0x1926c0…248b20 [0x695]: Pad {f00=0x0043, f01=0x0190, f02=»* ENTRY POINTS P* 2 P ENTRY DC15AD ADDRESS BLOCK TERMINAL REQUESTS " P ENTRY IH1501 INPUT INTERRUPT V " P ENTRY IH1502 OUTPUT INTERRUPT | " P ENTRY DC15ON POWER ON ROUTINE " P ENTRY DW1500 DWT FOR DC TASK P* P* P* EXTERN
0x1926c0…248b20 [0x696]: Pad {f00=0x0043, f01=0x018e, f02=»DIO COMPLETE I/O EVENT P EXTRN DISIOE REQUEST ERROR P EXTRN SETIME SET TIMER B P EXTRN DWTST DWT STATUS b P EXTRN DWTOR DWT ORDER P EXTRN DWTECB DWT ECB * P EXTRN INTSAV SAVE AREA LAST INTERRUPT ( P EXTRN TEBCDIC ASCII TO EBCDIC
0x1926c0…248b20 [0x697]: Pad {f00=0x0043, f01=0x0190, f02=» l & P EXTRN ECBEL ECB EFFECTIVE LENGTH P EXTRN ECBRC ECB RETURN CODE 2 " P EXTRN ECBCW ECB CONTROL WORD V * P EXTRN DC:MIN MOVE DATA TO USER BUFFER | , P EXTRN DC:MOT MOVE DATA FROM USER BUFFER 0 P EXTRN DISEND COMPLETE REQUEST AND DISPATCH
0x1926c0…248b20 [0x698]: Pad {f00=0x004d, f01=0x018e, f02=» P* P* DWT CONTENTS P* ( J P* DWTCHP TERMINAL ADDRESS AS GIVEN AT PARAMETER TRANSFER (BIT #08-#15) 2 P* P < P******************************************************* P* * P* PARAMETERS FOR CONDITIONAL ASSEMBLY
0x1926c0…248b20 [0x699]: Pad {f00=0x004d, f01=0x0190, f02=» p & PX:A EQU 2000 RECEIVE BUFFER LENGTH PRBUFL EQU 650+X:X DK 2 PX:B EQU /60 DCTASK FILE CODE P PDC15FC EQU /60 t $ PX:C EQU 1 IF 1 INTERRUPT LOGGING PLOGG EQU 0 P* * PTIMPOL EQU 600 POLL TIMEOUT VALUE DK * PX:E EQU 1 STAT
0x1926c0…248b20 [0x69a]: Pad {f00=0x004d, f01=0x0190, f02=»LOCK LENGTH z PTBLEN EQU 2300 ( PX:H EQU 1 CODE , 0=ASCII , 1=EBCDIC * PCODE EQU 0 V * PX:I EQU 0 IF 1 SPECIFIC POLL HANDLING h PSPECP EQU 0 , PX:J EQU 1 IF = 1 LINE SPEED SET TO HIGH ( P IF = 0 LINE SPEED IS SET TO LOW PSPEE
0x1926c0…248b20 [0x69b]: Pad {f00=0x004d, f01=0x0190, f02=»NR EQU 2 ( PX:M EQU 0 IF = 1 PTS 6805 ADAPTION PP6805 EQU 00 < PX:N EQU /02 P P IFT P6805=0 d , PLCUIN EQU 02 DEVICE ADDRESS OF RECEIVER x P XIF P IFT P6805=1 , PLCUIN EQU /0A DEVICE ADDRESS OF RECEIVER P XIF PX:O EQ
0x1926c0…248b20 [0x69c]: Pad {f00=0x004d, f01=0x0190, f02=»EQU 0 IBM-3270 EMULATION PACKAGE, IF NOT = 0 PEM3270 EQU 1 4 PX:R EQU 1000 H P DK2 * PBINTRM EQU 0 IF 1 BINARY TRANSMISSION l , PTSTREQ EQU 0 IF 1 TEST REQUEST HANDLING , PDMRK EQU 1 SPECIAL CONDITION FOR DENMARK 4 PNOWACK EQU 0 WHE
0x1926c0…248b20 [0x69d]: Pad {f00=0x004d, f01=0x0190, f02=». f , P ONLY WORKING IF STAT IS SET TO "ONE". P IFT P6805=0 : 6 PLCUUT EQU LCUIN+/10 DEVICE ADDRESS OF TRANSMITTER P P XIF P IFT P6805=1 6 PLCUUT EQU LCUIN+/01 DEVICE ADDRESS OF TRANSMITTER P XIF P* P P*
0x1926c0…248b20 [0x69e]: Pad {f00=0x004d, f01=0x0190, f02=»************************* P* " . P* A PROGRAM VERSION USING TOSS MMU PAGING , * P* IS OBTAINED BY SETTING MMUPAG EQU 1. ^ P* PMMUPAG EQU 1 P* P DB P IFT MMUPAG=0 DK2 PTBUFL EQU 0 DK2 P XIF DK2 P*
0x1926c0…248b20 [0x69f]: Pad {f00=0x004d, f01=0x0190, f02=»RSION USING THE EXTENDED INSTRUCTION . P* SET IS OBTAINED BY SETTING CPU852 EQU 0. , P* ^ PCPU852 EQU 0 h P* | 2 PDEVIND EQU -2 DEVICE INDEX DATA COMMUNICATION * PBUFLEN EQU TBUFL+TBUFL MMU BUFFER SIZE P* P P* P*
0x1926c0…248b20 [0x6a0]: Pad {f00=0x004e, f01=0x0190, f02=»RD P XIF P* P IFT MMUPAG=1 PSTART EQU DWTDRD+4 6 P XIF P P* 4 PDWTTP EQU START+/00 TIMER POINTER ORDER PROCESS f . PDWTWQ EQU START+/02 WRITE/GET BUFFER QUEUE $ PDWTSQ EQU START+/04 STATUS QUEUE & PDWTRQ EQU START+/0
0x1926c0…248b20 [0x6a1]: Pad {f00=0x004e, f01=0x018e, f02=»+/0C REQUEST TIMER VALUE P* P * P* 4 P* REQUEST HANDLING > P* X P* b P* l P* A7=ORDER v P* P* /02: READ P* /06: WRITE P* /37: TRANSFER PARAMETERS P* /38: SET STATUS $ P* /39: SET REQUEST T
0x1926c0…248b20 [0x6a2]: Pad {f00=0x004e, f01=0x0190, f02=» * PDCSTOL DATA 0 OLD DC EQUIPMENT STATUS PDCSTCU DATA 0 CURRENT STATUS 2 $ PDCWRQ DATA 0 WRITE REQUEST QUEUE V , PDCTPGP DATA 0 TIMER POINTER GENERAL POLL ~ P P* P* DC TASK ADDRESS BLOCK P* $ P DATA 0 INDICATES NO MMU BUFFE
0x1926c0…248b20 [0x6a3]: Pad {f00=0x004e, f01=0x0190, f02=»ATA DCRBUF REC. BUFFER ANCHOR P* & P* DRIVER ADDRESS BLOCK 0 P* N P DATA BUFLEN MMU BUFFER SIZE X P DATA DEVIND DEVICE INDEX | ( PDC15AD DATA DCACT ACTIVATION ADDRESS 4 P DATA ABORT ABORT ROUTINE ABORT ROUTINE ADDRESS $ P DATA DC
0x1926c0…248b20 [0x6a4]: Pad {f00=0x004e, f01=0x0190, f02=»RAM v PSTB2 RES 1 P P IFT SPEED=1 & PLSPEED EQU /0200 : P XIF R P IFT SPEED=0 ^ PLSPEED EQU 0 r P XIF P P* P* $ P* ACTIVATION FROM TERMINAL TASKS P* PDCACT EQU * P LDK A1,0 PRESET RET
0x1926c0…248b20 [0x6a5]: Pad {f00=0x004e, f01=0x0190, f02=» P RF(Z) DCRD READ SPECIFIC P SUK A7,/06-/02 & P RF(Z) DCWR > P SUK A7,/37-/06 R $ P RF(Z) DCTP TRANSFER PARAMETERS j P IFF STAT=0 P SUK A7,/38-/37 P RF(Z) DCSS SET STATUS P SUK A7,/39-/38 $ P ABL(Z) REQTIM SET REQ
0x1926c0…248b20 [0x6a6]: Pad {f00=0x004e, f01=0x0190, f02=» RF DCA100 P P* P* & P* ACTIVATION FROM DCTASK 0 P* P P* Z PDCACTD EQU * d $ P SUR A1,A1 PRESET RETURN CODE =4 x P IFT EM3270=1 =4 P LDR A7,A7 =4 & P RF(Z) ANYMSG ANY MESSAGE ORDER =4 P XIF P SUK
0x1926c0…248b20 [0x6a7]: Pad {f00=0x004e, f01=0x0190, f02=» ERROR | P ABL DISIOE INVALID ORDER P* 0 P* : P* READ FROM DCTASK D P* ^ P* h P* REQUEST FROM DC-TASK r P* COMPLETE WHEN: & P* STATUS CHANGE ON DC EQUIPMENT $ P* SPONTANOUS MESSAGE RECEPTION P* PDCRDDC
0x1926c0…248b20 [0x6a8]: Pad {f00=0x008f, f01=0x0190, f02=»4 P . P***************************************** P* F P* ANY MESSAGE ORDER P P* n " P***************************** x P 2 PANYMSG LD A4,DWTRQ,A6 ANY QUEUED MESSAGE ?? =4 P RF(Z) DCRD10 NO!! =4 ( P RF ENDIO YES!!
0x1926c0…248b20 [0x6a9]: Pad {f00=0x008f, f01=0x0190, f02=» DC-TASK: TRANSFER TERMINAL COMPUTER ADDRESS : P* FROM TERMINALS: TRANSFER TERMINAL ADDRESSES 4 P* r P* | P IFF CODE=1 & PDCTP LD A2,ECBCW,A8 GET PARAMETER P XIF P IFT CODE=1 & PDCTP LC A2,ECBCW,A8 GET TCS IF ANY
0x1926c0…248b20 [0x6aa]: Pad {f00=0x008f, f01=0x0190, f02=»,ECBCW+1,A8 GET TCP OR DV P ANK A3,/FF " ( P LC A2,TASCII,A3 TRANSLATE TO ASCII 6 P XIF b ( P STR A2,A6 SAVE IN FIRST WORD OF DWT n P P IFT RCOM=1 * P LD A3,ECBBA,A8 DEVICE BUFFER ADDRESS P ST A3,DWTBUF,A6 ( P LD A3,ECBRL,A
0x1926c0…248b20 [0x6ab]: Pad {f00=0x008f, f01=0x0190, f02=»OT BE IN DC:TAB r * P LD A1,DC:IN GET DC:TAB INPUT POINTER * P CWK A1,DC:END TABLE ALREADY FULL ???? F & P ABL(E) DISIOE YES!! REQUEST ERROR t P P P PDCTP20 EQU * " P LD A4,DCTAB DC:TAB ADDRESS =3 $ P AD* A4,DCTAB LAST TABLE
0x1926c0…248b20 [0x6ac]: Pad {f00=0x008f, f01=0x0190, f02=»IN TABLE =3 v P CWR* A6,A4 IN TABLE ?? =3 P RF(E) DCTP30 YES!! =3 6 " P RB DCTP22 CHECK NEXT ENTRY =3 T PDCTP25 EQU * =3 z P $ P STR A6,A1 INSERT DWT IN DC:TAB P LDK A1,2 * P ADS A1,DC:IN UPDATE DC:TAB IN POINTER P * P
0x1926c0…248b20 [0x6ad]: Pad {f00=0x008f, f01=0x0190, f02=»SERT IN STATUS QUEUE P XIF PDCTP30 EQU * ( P SUR A1,A1 RETURN CODE ::= 0 < PENDIO EQU * ` $ P CF A15,TENDIO COMPLETE REQUEST t P RB DCRTN P P* P* P* WRITE P* P* P* COMPLETE WHEN: P*
0x1926c0…248b20 [0x6ae]: Pad {f00=0x008f, f01=0x0190, f02=»TED LENGTH z " P CWK A1,BUFLEN ILLEGAL LENGTH? P RF(G) IL:LEN YES!! 8 P XIF T P CF A15,TIMEWR SET TIMER ` P CF A15,INSWQ QUEUE REQUEST P RB DCRTN P* P* P* P* READ P* P* P* COMPLETE WHEN:
0x1926c0…248b20 [0x6af]: Pad {f00=0x008f, f01=0x0190, f02=»,A6 AND RECEIVE MESSAGE QUEUE " P RF(Z) DCRD10 NOTHING IN QUEUE & P L P T P ( P LDR* A2,A4 TAKE THE FIRST IN QUEUE d P ST A2,DWTRQ,A6 P ADK A4,6 " P LD A3,-4,A4 EFFECTIVE LENGTH P ST A3,ECBEL,A8 P P LDK A1,0
0x1926c0…248b20 [0x6b0]: Pad {f00=0x008f, f01=0x0190, f02=» P RB DCRTN P P* P* * P* SET STATUS 4 P* H P* R P IFF STAT=0 PDCSS EQU * p * P LD A1,ECBCW,A8 GET STATUS INFORMATION P ANK A1,3 MASK DB,IR P RF(Z) DCSS20 DEVICE END PDCSS10 EQU * P ST A1,DWT
0x1926c0…248b20 [0x6b1]: Pad {f00=0x008f, f01=0x0190, f02=» NOT BEEN SENT z PDCSS30 EQU * , P CF A15,INSSQ INSERT DWT IN STATUS QUEUE * P LDK A1,4 SET DE Z P RB DCSS10 r P XIF P P P* " P* SET REQUEST TIMEOUT VALUE P* P* P PREQTIM EQU * " P LD A2,E
0x1926c0…248b20 [0x6b2]: Pad {f00=0x008f, f01=0x018e, f02=»L APPLICATION BUFFER SIZE P* " P , 8 PIL:LEN LDKL A1,/8008 REQUEST ERROR + ILLEGAL LENGTH 4 P ABL DISEND COMPLETE REQUEST p P P* P* P* P* TIMER HANDLING PART P* P* P* P* READ TIMER=TIMER
0x1926c0…248b20 [0x6b3]: Pad {f00=0x008f, f01=0x0190, f02=» v P ST A2,TIMERR ! P CF A15,SETIME ! P DATA TOUTRE ! 4 PTIMERR DATA 0 ! H ( P ST A4,DWTTP,A6 STORE TIMER POINTER ! ^ PTIME10 EQU * ! P RF GBUF10 RETURN ! P* ! P* TIMEOUT READ TIMER ! P* ! PTOUTRE EQU * ! P LDR A6,A1 FET
0x1926c0…248b20 [0x6b4]: Pad {f00=0x008f, f01=0x0190, f02=» ! P* WRITE TIMER=TIMWR " P* " $ PTIMEWR LDR A1,A6 " . . P LD A2,DWTTIM,A6 GET REQUEST TIMEOUT VALUE " F P RB(Z) TIME10 NO TIMING " x P ST A2,TIMWR " P CF A15,SETIME " P DATA TOUTWR " PTIMWR DATA 0 " P ST A4,DWTTP,A6 " P RB TIME
0x1926c0…248b20 [0x6b5]: Pad {f00=0x008f, f01=0x0190, f02=» * P CF A15,REMOVW REMOVE FROM WRITE QUEUE # P* # 2 & P* THIS INSTRUCTION DOES NOT BELONG # < P* TO THE STANDARD INTERFACE # f P LD A2,FDWTUT # P CWR A2,A6 # * P RB(NE) TOUTR1 THIS DWT IS NOT WRITING # ( P CM XACK INDICATE 'ACK NOT EXPECTED' #
0x1926c0…248b20 [0x6b6]: Pad {f00=0x008f, f01=0x0190, f02=»INING TIME IS RETURNED IN A2 # P* $ $ P* $ . PCTIME EQU * $ 8 & P LD A2,DWTTP,A6 GET TIMER POINTER $ L P RF(Z) CTIM10 NOT RUNNING $ v P LDR* A2,A2 $ " P NGR A2,A2 GET REMAINING TIME $ P CM* DWTTP,A6 STOP TIMER $ P CM DWTTP,A6 $ PCTIM
0x1926c0…248b20 [0x6b7]: Pad {f00=0x008f, f01=0x0190, f02=»A4=0 IF NO BUFFER IS FREE $ & P* ELSE A4 CONTAINS BUFFER ADDRESS % " P* A2 AND A3 ARE DESTROYED % L P* % n P* % x ( PGRBUF LDKL A2,DCRBUF RECEIVE BUFFERS % PGBUF INH % P LDR* A4,A2 % P RF(Z) GBUF10 NO BUFFER FREE % . P LDR* A3,A4 REMOVE B
0x1926c0…248b20 [0x6b8]: Pad {f00=0x008f, f01=0x018e, f02=» P* & P* & ( P* INSERT DWT IN WRITE REQUEST QUEUE & P* & D P* A2,A3,A4 DESTROYED & N P* A6=DWT & j P* & z ( PINSWQ LDKL A2,DCWRQ GET QUEUE ANCHOR & PINSWQ1 LDK A4,DWTWQ & PINSWQ2 LDR* A3,A2 & $ P RF(Z) INSWQ3 END OF QUEUE FOUND &
0x1926c0…248b20 [0x6b9]: Pad {f00=0x008f, f01=0x0190, f02=» P RB GBUF10 RETURN ' P* ' P* ' ( * P* REMOVE DWT FROM WRITE REQUEST QUEUE ' 2 P* ' ` P* A2,A3,A4 DESTROYED ' j P* A6=DWT ' P* ' * PREMOVW LDKL A2,DCWRQ GET QUEUE ANCHOR ' 2 PREM05 LDK A4,DWTWQ GET DWT-LINK TO BE REMOVED ' PREM06
0x1926c0…248b20 [0x6ba]: Pad {f00=0x008f, f01=0x0190, f02=» P LDR A2,A3 GET NEXT ( P RB REM10 ( PREM15 LDR* A3,A4 REMOVE ( 2 P STR A3,A2 ( R P RB GBUF10 RETURN ( d P ( ~ P* ( P* ( P* INSERT DWT IN STATUS QUEUE ( P* ( P IFF STAT=0 ( P* A2,A3,A4 DESTROYED ( P* A6=DWT ( P
0x1926c0…248b20 [0x6bb]: Pad {f00=0x008f, f01=0x018e, f02=»ATUS QUEUE ( | P* ) P* A2,A3,A4 DESTROYED ) P* A6=DWT ) 8 P* ) H * PREMOVS LDKL A2,DCSTQ GET QUEUE ANCHOR ) R P LDK A4,DWTSQ ) P RB REM06 ) P XIF ) P ) P* ) P* ) $ P* QUEUE ALLOCATED RECEIVE BUFFER ) P* ) P* A4=B
0x1926c0…248b20 [0x6bc]: Pad {f00=0x008f, f01=0x0190, f02=» ) j P XIF * P IFT MESPAS=0 * $ P LDR A2,A6 QUEUE ON TERMINAL DWT * * P XIF * R , P ADK A2,DWTRQ BEGINNING OF RECEIVE QUEUE * ^ PQR100 EQU * * P LDR* A3,A2 * $ P RF(Z) QR200 END OF QUEUE FOUND * P LDR A2,A3 * P RB QR100 * & PQR200 ST
0x1926c0…248b20 [0x6bd]: Pad {f00=0x008f, f01=0x018e, f02=»ECTED MESSAGE OR STATUS CHANGE * P* + & 4 P* REGISTERS A1,A2,A3,A4,A6 AND A8 ARE DESTROYED + 0 P* + h PCKMESS LDKL A6,DW1500 + r P LD A1,DWTST,A6 + P RF(N) CKM110 NO REQUEST + P LDK A1,2 READ REQUEST ? + P CW A1,DWTOR,A6 + P RF(NE) CK
0x1926c0…248b20 [0x6be]: Pad {f00=0x008f, f01=0x0190, f02=» + p P , P , , P LDR* A2,A3 A2=ADDR TO NEXT READ BUFFER , . P ST A2,DWTRQ,A6 STORE THIS ADDR INTO QUEUE , H " P ADK A3,6 MOVE POINTER TO TEXT , z & P DONT DESTROY BUFFER ADDRESS =6 , P LD A4,-4,A3 , 0 P ST A4,ECBEL,A8 STORE NUMBERS OF CHARACTERS
0x1926c0…248b20 [0x6bf]: Pad {f00=0x008f, f01=0x0190, f02=»ECEIVE BUFFER ADDRESS , , P CF A15,DC:MIN MOVE DATA TO USER BUFFER - * PCKM110 ADKL A15,4 ADJUST STACK POINTER - N P ABR* A15 RETURN - | 8 PCKM200 LD A1,DCSTCU NO MESSAGE RECEIVED,CHECK STATUS - , P OR A1,DCONOF TAKE CARE OF POLL TIME OUT - P CW A1,DCS
0x1926c0…248b20 [0x6c0]: Pad {f00=0x0091, f01=0x0190, f02=»IO COMPLETE READ GENERAL REQUEST - P RB CKM110 . ( P . : P . D @ P************************************************************ . L P* . P* ABORT ROUTINE . P* . P************************ . P . & PABORT LD A1,DWTTP,A6 TIMER POINTER .
0x1926c0…248b20 [0x6c1]: Pad {f00=0x0091, f01=0x0190, f02=»E . r P SUK A1,2 / * P RF(Z) AB:RTN READ REQUEST. NO ACTION / P SUK A1,4 / J . P RF(NZ) AB:RTN NO ACTION IF NOT READ/WRITE / P / . P CF A15,REMOVW REMOVE DWT FROM WRITE QUEUE / & P LD A2,FDWTUT WRITING DWT ADDRESS / P CWR A2,A6 / P RF(NE
0x1926c0…248b20 [0x6c2]: Pad {f00=0x0091, f01=0x0190, f02=» CPU852=1 / P ADKL A15,4 0 $ P ABR* A15 RETURN IN INHIBIT MODE 0 & P XIF 0 N P IFF CPU852=1 0 Z P RTN A15 0 p P XIF 0 P 0 P 0 P 0 P* 0 P* 0 P* STORE REGISTER A3-A8 0 $ P* CALLING SEQUENSE: CF A15,STREG 0 P* 0
0x1926c0…248b20 [0x6c3]: Pad {f00=0x0091, f01=0x0190, f02=»5 0 P ST A6,LCA6 1 P ST A7,LCA7 1 P ST A8,LCA8 1 2 P RF RTNA15 RETURN 1 F P 1 ` PLDREG LDKL A3,0 1 j PLCA3 EQU *-2 1 P LDKL A4,0 1 PLCA4 EQU *-2 1 P LDKL A5,0 1 PLCA5 EQU *-2 1 P LDKL A6,0 1 PLCA6 EQU *-2 1 P L
0x1926c0…248b20 [0x6c4]: Pad {f00=0x0091, f01=0x0190, f02=» 1 P* 2 P* 2 P* TIMER VALUES 2 P* 2 2 P* 2 < * PTIMPRO EQU 90 PROCEDURE TIMER 9 SEC DK 2 F " PTIMNAK EQU 3 DELAY FOR NAK DK 2 t P* 2 P* 2 P* CHARACTER EQUATES 2 P* 2 & PSF EQU X'1D' START FIELD CHARACTER 2 PSYN EQU /16
0x1926c0…248b20 [0x6c5]: Pad {f00=0x0091, f01=0x0190, f02=»U /10 2 PEOT EQU /04 3 PNAK EQU /15 3 " PESC EQU /1B 3 6 PSBA EQU /11 3 J PGP EQU /22 3 ^ PRDBCOM EQU /32 3 p PRDMCOM EQU /36 3 P IFT CODE=0 3 PPAR EQU /80 3 PRVI EQU /3C 3 PACK0 EQU /30 3 PACK1 EQU /31 3 PDC1 EQU /1
0x1926c0…248b20 [0x6c6]: Pad {f00=0x0091, f01=0x0190, f02=»1 PROCEDURE 3 p P XIF 4 P IFT CODE=1 4 PPAR EQU /00 4 4 PWACK EQU /2C 4 H PRVI EQU XRVI DK 4 PACK0 EQU /18 4 t PACK1 EQU /2F 4 PSYNEBC EQU /32 4 P XIF 4 P 4 P* 4 P* 4 P* PROCEDURE WORK AREAS 4 P* 4 P* 4
0x1926c0…248b20 [0x6c7]: Pad {f00=0x0091, f01=0x0190, f02=»EL DATA 0 SELECTED 4 PXETX DATA 0 ETX SENT 5 2 PXSTA DATA 0 STATUS SENT / MESSAGE INPUT RESULT 5 6 " PXRB DATA 0 READ BUFFER SWITCH 5 l PCACK DATA 0 ACK COUNTER 5 * PSYNSW DATA 0 0=SKIP SYNS, 1=DON'T SKIP 5 P* 5 PFECB RES 1 WRITING ECB 5 ( PFE
0x1926c0…248b20 [0x6c8]: Pad {f00=0x0092, f01=0x018e, f02=» OF LAST TRANSMITTED BLOCK 5 ~ $ PDCSTQ DATA 0 STATUS QUEUE ANCHOR 6 " . PDCTPP DATA 0 POINTER FOR PROCEDURE TIMING 6 J , PRESEND DATA 0 CONTROL SEQUENCE SAVE AREA 6 | ( PCRDBUF DATA 0 READ BUFFER COUNTER DK 6 P* 6 P* 6 $ P* 3270 SENSE/STATUS INFORMATIO
0x1926c0…248b20 [0x6c9]: Pad {f00=0x0092, f01=0x0190, f02=» 6 P DATA /4242 7 P* 7 2 PNOIR EQU /20 S/S 1 : NO INTERVENTION REQUIRED 7 & , PIR EQU /26 S/S 1 : INTERVENTION REQUIRED 7 P XIF 7 P 7 P* 7 P* 7 P* BASIC RECEIVE MODE 7 P* 7 " P* ENTERED EVERY TIME A MESSAGE 7 & P* IS EXP
0x1926c0…248b20 [0x6ca]: Pad {f00=0x0092, f01=0x0190, f02=»M EQU * 7 P LDKL A5,STB LOAD STACKBASE 8 P IFT P6805=0 8 4 2 P CF A5,HALTIN HALT RECEIVER AND UPDATE STATUS 8 J P XIF 8 P IFT P6805=1 8 * P CF A15,CKMESS CHECK IF STATUS CHANGE 8 P XIF 8 PBRM010 EQU * 8 P IFT CODE+P6805=0 8
0x1926c0…248b20 [0x6cb]: Pad {f00=0x0092, f01=0x0190, f02=»YNEBC SPECIFY SYN PATTERN 8 z P XIF 9 " P IFT P6805=0 9 0 " P CIO A2,1,LCUIN START RECEIVER 9 F P XIF 9 l P IFT P6805=1 9 z P IFF CODE=1 9 P LDK A2,/0C 9 " P CIO A2,1,LCUIN START RECEIVER 9 P LDK A2,SYN 9 * P OTR A2,1,LCUIN SPECIFY
0x1926c0…248b20 [0x6cc]: Pad {f00=0x0092, f01=0x018e, f02=» 9 r P LDK A2,SYNEBC : * P OTR A2,1,LCUIN SPECIFY SYNC CHARACTER : P RB(NA) BRMHLT : N P XIF : f PBRM100 EQU * : t $ P CF A5,READP READ ONE CHARACTER : P RF(NZ) BRM150 PARITY ERROR : P LDR A1,A2 : P SUK A1,STX : P RF(Z) BRM300 ST
0x1926c0…248b20 [0x6cd]: Pad {f00=0x0092, f01=0x0190, f02=» P SUK A1,DLE-ENQ ; P ABL(Z) BRM600 DLE RECEIVED ; P SUK A1,NAK-DLE ; @ P ABL(Z) BRM500 NAK RECEIVED ; X P IFT MSV1=0 ; | P LDR A8,A2 ; $ P CF A5,READP READ ONE CHARACTER ; P RF(NZ) BRM150 PARITY ERROR ; P CWR A2,A8 ; & P RF(NE) BR
0x1926c0…248b20 [0x6ce]: Pad {f00=0x0092, f01=0x0190, f02=» CC A2,DW1500 ; P RF(NE) BRM150 NOT THIS TCU < PBRM110 EQU * < : P CF A5,READP READ 1:ST STA < N P RF(NZ) BRM150 PARITY ERROR < p P LDR A8,A2 < P IFT MSV1=0 < P CF A5,READP READ 2:ND STA < P RF(NZ) BRM150 PARITY ERROR < P CWR A2,A8
0x1926c0…248b20 [0x6cf]: Pad {f00=0x0092, f01=0x0190, f02=»2,ENQ+PAR < P XIF = P IFT P6805=1 = P SUK A2,ENQ = 6 P XIF = J P RF(NZ) BRM150 NOT ENQ = X P IFT P6805=0 = v $ P CF A5,READ READ LAST CHARACTER = P = " P* TRAILING PAD CAN BE CHECKED = P = P CIO A1,0,LCUIN HALT INPUT =
0x1926c0…248b20 [0x6d0]: Pad {f00=0x0092, f01=0x0190, f02=» = P LDK A1,1 > P ST A1,CACK LOAD ACK COUNTER > P LDR A2,A8 > @ P SUK A3,2 > R P RF(Z) BRM120 SELECTING > d P CWK A8,GP > P ABL(E) GPOLL GENERAL POLL > P IFT MSV1=1 > 6 P CF A5,FINTEP CHECK IF STA PRESENT (POLL ADDRESS) > P XIF
0x1926c0…248b20 [0x6d1]: Pad {f00=0x0092, f01=0x0190, f02=»CIFIC POLL > ~ P RB BRM INVALID POLL ? PBRM120 EQU * ? . & P CF A5,FINTER CHECK IF STA PRESENT ? B P LDR A6,A3 LOAD DWT TO A6 ? l P RF(NZ) BRM130 STA FOUND ? P IFT MSV1=0 ? $ P LDKL A6,DW1500 SELECT TO DCTASK ? PBRM130 EQU * ? P ABL SELEC
0x1926c0…248b20 [0x6d2]: Pad {f00=0x0092, f01=0x0190, f02=»SYNCHRONIZE ? t P* @ PBRM150 EQU * @ P ANK A2,/7F @ 2 P SUK A2,/7F @ F P RB(Z) BRM RESYNCHRONIZE @ Z & P CF A5,READ READ ANOTHER CHARACTER @ z P RB BRM150 @ P @ P* @ P* @ P* EOT HAS BEEN RECEIVED @ P* @ P* @ PBR
0x1926c0…248b20 [0x6d3]: Pad {f00=0x0092, f01=0x0190, f02=»ACK @ & P RF(Z) BRM220 ACK IS NOT EXPECTED A " P LD A6,FDWTUT GET WRITING DWT A 6 P RF(Z) BRM210 NO ONE WRITING A P LDK A1,2 SET RC=2 A ( P CF A5,CWRITE COMPLETE WRITE REQUEST A PBRM210 EQU * A " P CM XACK RESET 'ACK EXPECTED' A PBRM220 EQU
0x1926c0…248b20 [0x6d4]: Pad {f00=0x0092, f01=0x0190, f02=» A PBRM300 EQU * B P CF A5,HPTIM B P LD A1,XSEL B 0 P RF(Z) BRM315 NOT SELECTED B D P LD A1,DCRBUF B f ( P*********************CHAINED COMMAND B | & P RB(Z) BRM150 NO BUFFER AVAILABLE B P********************* B PBRM305 EQU * B P CF A5
0x1926c0…248b20 [0x6d5]: Pad {f00=0x0092, f01=0x0190, f02=»' B n PBRM312 EQU * C P CF A5,TRNAK SEND NAK C P ABL BRM C < PBRM315 EQU * C L P IFT RCOM=1 C ` P LD A1,XACK C t & P RF(Z) BRM316 ACK IS NOT EXPECTED C P LD A1,DCRBUF C & P RF(Z) BRM316 NO BUFFER AVAILABLE C " P LD A6,FDWTUT GET WRITIN
0x1926c0…248b20 [0x6d6]: Pad {f00=0x0092, f01=0x0190, f02=»RREC PREPARE FOR TEXT RECEPTION C P LDK A1,0 SET RC=0 D ( ( P CF A5,CWRITE COMPLETE WRITE REQUEST D B P CM CACK PRESET ACK-1 =7 D n P RB BRM305 READ THE MESSAGE D P XIF D ( PBRM316 CF A5,READ READ ONE CHARACTER D P IFF P6805=1 =8 D P SUK A2,
0x1926c0…248b20 [0x6d7]: Pad {f00=0x0092, f01=0x0190, f02=»CE D n P RB BRM220 E PBRM320 EQU * E P IM XSTA INDICATE MESSAGE OK E 0 $ P LD A4,DCRBUF GET BUFFER ADDRESS E T P ADK A4,6 E | P CW A4,FBLST E " P RF(NE) BRM325 NOT FIRST BLOCK E P IFF RCOM=0 E P LDK A1,ESC E P CCR A1,A4 E P RB(NE)
0x1926c0…248b20 [0x6d8]: Pad {f00=0x0092, f01=0x0190, f02=» READ MODIFIED RECEIVED E P SUK A1,RDMCOM-RDBCOM F & P RF(Z) RDMOD READ BUFFER RECEIVED F > P XIF F h PBRM325 EQU * F t P SUK A7,1 F & P RF(Z) BRM340 MESSAGE ENDED BY ETB F P CM FBAX F * P CF A15,GRBUF ALLOCATE RECEIVE BUFFER F P ADK A4,
0x1926c0…248b20 [0x6d9]: Pad {f00=0x0092, f01=0x0190, f02=»6 F P LC A2,TEBCDIC,A2 G P LD A1,DCRBUF G $ P RF(Z) BRM326 G : P ST A2,+4,A1 G P P XIF G d PBRM326 EQU * G p P CWK A6,DW1500 G , P RF(E) BRM330 MESSAGE IS MENT FOR DCTASK G P LD A2,DWTST,A6 GET STATUS G P RF(N) BRM330 NO REQUEST G
0x1926c0…248b20 [0x6da]: Pad {f00=0x0092, f01=0x0190, f02=» P CW A2,DWTOR,A6 H " P RF(NE) BRM330 NO READ REQUEST H PBRM327 EQU * H B P LDK A1,0 SET RC=0 H V $ P LD A8,DWTECB,A6 GET ECB ADDRESS H p P LD A3,-4,A4 GET LENGTH H * P ST A3,ECBEL,A8 STORE EFFECTIVE LENGTH H & P CF A15,CTIME STOP REQUEST TIMING H
0x1926c0…248b20 [0x6db]: Pad {f00=0x0092, f01=0x0190, f02=» H P* I P IFT STAT=1 I P LC A2,+2,A4 GET WCC/CCC I & P ANK A2,/FF I F P LC A2,TEBCDI,A2 TRANSLATE I Z P ANK A2,8 I | P RF(Z) BRM328 I P LD A2,DWTST,A6 GET STATUS I P ORK A2,/A I P ST A2,DWTST,A6 I PBRM328 EQU * I P XIF I
0x1926c0…248b20 [0x6dc]: Pad {f00=0x0092, f01=0x0190, f02=»R ADDRESS =4 I z ( P CF A5,QRBUF QUEUE MESSAGE ON DWT =4 J P RF BRM32A =4 J @ P XIF =4 J V PBRM329 EQU * =4 J f P J ~ P LDK A1,0 RESET RETURN CODE J & P CF A15,DC:MIN MOVE TO USER BUFFER J P RF BRM345 J PBRM32A EQU * =4 J P J $ P CF
0x1926c0…248b20 [0x6dd]: Pad {f00=0x0092, f01=0x0190, f02=»4 J x P RF(N) BRM335 NO REQUEST =4 K P LD A1,DWTOR,A6 ORDER =4 K . , P RF(NZ) BRM335 NOT ANY MESSAGE ORDER =4 K N & P CF A15,TENDIO COMPLETE REQUEST =4 K ~ PBRM335 EQU * =4 K P XIF =4 K P SUK A4,6 GET BUFFER BASE K ( P CF A5,QRBUF QUEUE BUF
0x1926c0…248b20 [0x6de]: Pad {f00=0x0092, f01=0x0190, f02=» K PBRM345 EQU * L P IFT STAT=1 L P LD A1,DWTST,A6 L 0 P ANK A1,8 L H $ P RB(Z) BRM340 ACK SHOULD BE SENT L Z P CF A5,TRWACK SEND WACK L P RF BRM410 L P XIF L P IFF STAT=1 L P RB BRM340 L P XIF L P L P* L P* L
0x1926c0…248b20 [0x6df]: Pad {f00=0x0092, f01=0x0190, f02=»RDMOD EQU * L " P CM XSEL RESET SELECT EXPECTED M 4 P LD A6,FDWTIN DWT-ADDRESS FOR ADDRESSED TERMINAL M : $ P LD A4,DWTBUF,A6 BUFFER ADDRESS M r $ P SUK A4,2 SDJUST BUFFER ADDRESS M " P LDKL A3,1922 REQUESTED LENGTH M " P IM XRB SET READ BUFFER SWITCH M
0x1926c0…248b20 [0x6e0]: Pad {f00=0x0093, f01=0x0190, f02=» M j P ADK A1,1 COUNTER DK N P ST A1,CRDBUF DK N $ P DE N > P ABL POL127 N L P XIF N ` P* N l P* N v P* ENQ HAS BEEN RECEIVED N P* N P* N PBRM400 EQU * N & P CF A5,HPTIM STOP PROCEDURE TIMER N P LD A1,XACK N , P RF(
0x1926c0…248b20 [0x6e1]: Pad {f00=0x0093, f01=0x0190, f02=» SEQUENCE N p PBRM410 EQU * O P ABL BRM O & P O 6 P* O @ P* O J P* NAK HAS BEEN RECEIVED O T P* O t P* O ~ PBRM500 EQU * O & P CF A5,HPTIM STOP PROCEDURE TIMER O P LD A1,XACK O P RF(NZ) BRM510 ACK EXPECTED O P OR A1,XSEL
0x1926c0…248b20 [0x6e2]: Pad {f00=0x0093, f01=0x0190, f02=»K O ~ P SST A1,LCUIN DK P P CF A15,STREG DK P $ P CF A15,SETIME DK P > P DATA BRM520,TIMNAK DK P X P ABL TDISP DK P x PBRM520 EQU * DK P P CF A15,LDREG DK P P DE P " P LD A6,FDWTUT GET WRITING DWT P P IFF STAT=0 P P L
0x1926c0…248b20 [0x6e3]: Pad {f00=0x0093, f01=0x018e, f02=» SU A1,FECBBA COMPUTE BUFFER INDEX P P ST A1,FBAX Q * P ABL POL130 Q > P* Q R P* Q P* DLE HAS BEEN RECEIVED Q f P* Q P* Q PBRM600 EQU * Q & P CF A5,HPTIM STOP PROCEDURE TIMER Q P LD A1,XACK Q " P RB(Z) BRM410 ACK NOT EXPECTED
0x1926c0…248b20 [0x6e4]: Pad {f00=0x0093, f01=0x018e, f02=» Q ~ P CWK A2,ACK0 =8 R P XIF =8 R P RF(NE) BRM620 R 2 P* R H P* ACK , 0 RECEIVED R R P* R l P LD A1,CACK GET ACKCOUNTER R v P RF(Z) BRM630 ACK,0 EXPECTED R PBRM610 EQU * R P CF A5,TRENQ SEND ENQ R & P CF A5,SPTIM START PROCEDURE
0x1926c0…248b20 [0x6e5]: Pad {f00=0x0093, f01=0x0190, f02=» R P LD A1,CACK GET ACK COUNTER S $ P RB(Z) BRM610 ACK,1 NOT EXPECTED S , PBRM630 EQU * S T P LD A1,XETX S h P RF(Z) BRM640 ETX NOT SENT S | P S P* S , P* ACK HAS BEEN RECEIVED TO AN ETX BLOCK S P* S P LDK A1,0 SET RC=0 S PBRM6
0x1926c0…248b20 [0x6e6]: Pad {f00=0x0093, f01=0x0190, f02=»MPLETE WRITE REQUEST S PBRM636 EQU * T P CF A5,TREOT SEND EOT T 0 P IFT RCOM=1 T N P T b P CM XRB RESET READ BUFFER T j P XIF T P RB BRM410 T PBRM640 EQU * T P LDK A1,1 T & P XRS A1,CACK INCREMENT ACK COUNTER T P ABL POL130 T
0x1926c0…248b20 [0x6e7]: Pad {f00=0x0093, f01=0x0190, f02=» P XIF =8 U ( P RB(NE) BRM610 INVALID DLE SEQUENCE U " P CM XACK RESET 'EXPECTING ACK' U B P LD A1,XETX U h $ P RF(NZ) BRM660 ETX HAS BEEN SENT U | P LDK A1,2 SET RC=2 U P RB BRM635 U PBRM660 EQU * U P LDK A1,0 SET RC=0 U P RB BRM635 U
0x1926c0…248b20 [0x6e8]: Pad {f00=0x0094, f01=0x0190, f02=» LD A6,FDWTUT GET DWT ADDRESS U , P CF A15,REMOVS REMOVE FROM STATUS QUEUE V & P CM XSTA CLEAR 'STATUS SENT' V V " P CM XACK CLEAR 'ACK EXPECTED' V z P LD A1,DWTST,A6 GET STATUS V P ANK A1,4 V P RB(Z) BRM636 NOT DE V P LDKL A1,/8000 V " P ANS
0x1926c0…248b20 [0x6e9]: Pad {f00=0x0094, f01=0x0190, f02=» P* W PSELECT EQU * W P LD A1,XACK =5 W " * P RF(NZ) POL010 ERROR. ACK EXPECTED =5 W : P IFF STAT=0 W h P LD A1,DWTST,A6 GET STATUS W | P LDR A3,A1 W P ANK A1,1 W $ P RF(Z) SEL110 NO PENDING STATUS W P CF A5,TRRVI SEND RVI W P X
0x1926c0…248b20 [0x6ea]: Pad {f00=0x0094, f01=0x018e, f02=» W ~ P ANK A3,8 X P RF(NZ) SEL115 BUSY X P XIF X 6 P IFT STAT+NOWACK=2 X B P ANK A3,8 X " P RF(Z) SEL111 DEVICE NOT BUSY X n P CF A5,TRWACK TRANSMIT WACK X P ABL BRM X PSEL111 EQU * X P XIF X P LD A1,DCRBUF X $ P RF(NZ) SEL1
0x1926c0…248b20 [0x6eb]: Pad {f00=0x0094, f01=0x0190, f02=» PSEL120 EQU * Y , P CF A5,PRREC PREPARE FOR TEXT RECEPTION Y P CF A5,TRACK SEND ACK,0 Y H P RB SEL100 Y h P Y z P* Y P* Y P* PREPARE FOR TEXT RECEPTION Y P* Y P* Y PPRREC EQU * Y P IM XSEL SET 'SELECTED' Y P CM FB
0x1926c0…248b20 [0x6ec]: Pad {f00=0x0094, f01=0x0190, f02=»IN BUFFER Y z P IM XSTA Z " P ST A6,FDWTIN STORE INPUT DWT Z " P RTN A5 Z H P Z X P* Z b P* Z l $ P* GENERAL POLL HAS BEEN RECEIVED Z v P* Z P* Z PGPOLL EQU * Z P LD A1,XACK =5 Z & P RF(Z) POL020 ACK NOT EXPECTED =5 Z " PPO
0x1926c0…248b20 [0x6ed]: Pad {f00=0x0094, f01=0x0190, f02=»=5 Z " P CF A5,CPTIM CHECK POLL TIMER [ P IFF STAT=0 [ 0 P LD A6,DCSTQ [ D & P RF(Z) POL110 NO STATUS TO BE SENT [ Z " P SUK A6,DWTSQ GET DWT ADDRESS [ PPOL050 EQU * [ P CF A5,TRSTA SEND STATUS [ & P CF A5,SPTIM START PROCEDURE TIMER [ P I
0x1926c0…248b20 [0x6ee]: Pad {f00=0x0094, f01=0x0190, f02=»L110 EQU * [ P LD A6,DCWRQ " P RF(NZ) POL120 WRITE ON QUEUE & PPOL115 EQU * L P CF A5,TREOT SEND EOT ` P RB POL100 ~ PPOL120 EQU * " P SUK A6,DWTWQ GET DWT ADDRESS PPOL125 EQU * $ P LD A8,DWTECB,A6 GET ECB ADDRESS P RF(
0x1926c0…248b20 [0x6ef]: Pad {f00=0x0094, f01=0x0190, f02=»6 | P ] P IFF MMUPAG=0 ] $ P LDKL A4,MMUBUF MMU WORK BUFFER ] ( P ST A4,ECBBA,A8 ] P . P CF A15,DC:MOT MOVE DATA FROM USER BUFFER ] h P XIF ] & P LD A4,ECBBA,A8 GET BUFFER ADDRESS ] P LD A3,ECBRL,A8 GET LENGTH ] PPOL127 EQU * ] & P ST
0x1926c0…248b20 [0x6f0]: Pad {f00=0x0095, f01=0x0190, f02=»FER INDEX ] ~ PPOL130 EQU * ^ P CM XETX RESET 'ETX SENT' ^ & P CM XSTA ^ H P CF A5,TRTEXT SEND ONE BLOCK ^ X & P CF A5,SPTIM START PROCEDURE TIMER ^ | P IM XACK SET 'ACK EXPECTED' ^ P RB POL100 ^ P ^ P* ^ P* ^ & P* SPECIFIC POLL
0x1926c0…248b20 [0x6f1]: Pad {f00=0x0095, f01=0x0190, f02=» EXPECTED =5 ^ ~ P LDR A7,A6 SAVE A6 _ P CF A5,CPTIM CHECK POLLTIMER _ . P LDR A6,A7 RESTORE A6 _ R P IFT STAT=1 _ p P LD A1,DWTST,A6 GET STATUS _ P ANK A1,7 _ " P RB(NZ) POL050 PENDING STATUS _ P XIF _ P IFF STAT+SPECP=0 _ P LD A1
0x1926c0…248b20 [0x6f2]: Pad {f00=0x0095, f01=0x0190, f02=» P SUK A1,2 ` " P RB(Z) POL125 EXCHANGE REQUEST ` P XIF ` < P RB POL115 SEND EOT ` H P ` d P* ` n P* ` x 8 P* CHECK IF THERE IS A WRITE REQUEST TO BE COMPLETED ` P* ` P* A1 CONTAINS RETURN CODE ` P* ` P* ` PCWRITE LD A6
0x1926c0…248b20 [0x6f3]: Pad {f00=0x0095, f01=0x0190, f02=»DER ` z P SUK A2,6 a P RF(Z) CWR100 WRITE REQUEST a P SUK A2,2 a B ( P RF(NZ) CWR900 NOT EXCHANGE REQUEST a T P LDR A1,A1 a 2 P RF(NZ) CWR100 TRANSMISSION ERROR, RC NOT ZERO a P LDK A2,2 TRANMISSION OK a ( P ST A2,DWTOR,A6 INDICATE READ ORDE
0x1926c0…248b20 [0x6f4]: Pad {f00=0x0095, f01=0x0190, f02=»0 a P ST A2,ECBCW,A8 b $ P CF A15,TENDIO COMPLETE REQUEST b " PCWR150 EQU * b J * P CF A15,REMOVW REMOVE FROM WRITE QUEUE b ^ PCWR200 EQU * b PCWR900 EQU * b " P CM XACK RESET 'ACK EXPECTED' b P CM FDWTUT b P RTN A5 b P b P* b
0x1926c0…248b20 [0x6f5]: Pad {f00=0x0095, f01=0x0190, f02=»1 : IF LRC OR PARITY ERROR , BUFFER OVERFLOW b ( P* 2 : IF CORRECT ETB BLOCK RECEIVED c 4 P* c ` PRDMESS EQU * c j $ P LD A4,DCRBUF GET BUFFER ADDRESS c ~ P ADK A4,6 RESERVE HEADER c P LDK A3,0 c P LD A1,XSTA c $ P RF(NZ) RDM050 LAST INPUT WAS
0x1926c0…248b20 [0x6f6]: Pad {f00=0x0095, f01=0x0190, f02=» c t ( P ST A4,FBLST REMEMBER START OF BLOCK d PRDM075 EQU * d 4 P CM XSTA d H P LDK A7,0 RESET LRC d X P d t P IFT IBMCHR=1 d | P LD A1,FBAX d " P RF(NZ) RDM100 NOT FIRST BLOCK d P CF A5,READP d P RF(NZ) RDM120 PARITY ERROR d P CWK A
0x1926c0…248b20 [0x6f7]: Pad {f00=0x0095, f01=0x0190, f02=» CF A5,READP READ ONE CHARACTER d P RF(NZ) RDM120 PARITY ERROR e ( PRDM110 EQU * e L P CWK A2,ETX e ` P RF(E) RDM130 ETX RECEIVED e t P CWK A2,ETB e P RF(E) RDM160 ETB RECEIVED e P CWK A2,ITB e P RF(E) RDM170 ITB RECEIVED e P CWK A2,
0x1926c0…248b20 [0x6f8]: Pad {f00=0x0095, f01=0x0190, f02=» IFT CODE=0 e P IFT BINTRM=1 f P f * P LDR A1,A2 f 2 P SUK A1,DC1+3 f D P RF(P) RDM115 NOT DC1-DC3 f Z P ADK A1,3 f | P RF(N) RDM115 NOT DC1-DC3 f P SLL A1,6 f P LDR A8,A1 f * P CF A5,READP 8-BIT CHAR GET NEXT PART f P RF(NZ)
0x1926c0…248b20 [0x6f9]: Pad {f00=0x0095, f01=0x0190, f02=»CR A2,A4 STORE CHARACTER f P ADK A4,1 INCREMENT POINTER g $ P IM FBAX INCREMENT BUFFER INDEX g D P LD A1,FBAX g l P CWK A1,RBUFL+RBUFL g P RB(NG) RDM100 NOT OVERFLOW g P* g P* BUFFER OVERFLOW g P* g P RF RDM140 ABORT INPUT g
0x1926c0…248b20 [0x6fa]: Pad {f00=0x0095, f01=0x0190, f02=» g P* h P* ETX RECEIVED h P* h ( PRDM130 EQU * h 2 $ P LD A1,DCRBUF GET BUFFER ADDRESS h F P LD A2,FBAX GET BUFFER INDEX h n 2 P ST A2,+2,A1 STORE EFFECTIVE LENGTH IN HEADER h P IFF CODE=1 h P CF A5,RDLRC h P RF(Z) RDM150 LRC WAS OK h
0x1926c0…248b20 [0x6fb]: Pad {f00=0x0095, f01=0x0190, f02=» * h & P LDK A3,1 INDICATE INVALID MESSAGE i PRDM150 EQU * i 4 $ P LDR A7,A3 SAVE RESULT REGISTER i H P CF A5,HALTIN HALT INPUT i p P IFT P6805=1 i P ORR A7,A1 PARITY ERROR i P XIF i P RTN A5 i P* i P* ETB RECEIVED i P* i
0x1926c0…248b20 [0x6fc]: Pad {f00=0x0095, f01=0x0190, f02=»* i P* ITB RECEIVED j P* j PRDM170 EQU * j * P IFF CODE=1 j > P CF A5,RDLRC j R " P RB(NZ) RDM120 LRC WAS NOT OK j f P XIF j P IFT CODE=1 j & P CF A5,RDCRC READ CRC AND CHECK IT j " P RB(NE) RDM120 CRC WAS NOT OK j P XIF j P R
0x1926c0…248b20 [0x6fd]: Pad {f00=0x0095, f01=0x0190, f02=»RS A2,CACK INCREMENT ACK COUNTER j P RF(NZ) TRDLE k ( P LDK A3,ACK0 LOAD ACK0 k > P RF TRDLE k P* k n P* TRANSMIT WACK k x P* k PTRWACK LDK A3,WACK LOAD WACK k P RF TRDLE k P* k P* TRANSMIT RVI k P* k P IFF STAT=0 k
0x1926c0…248b20 [0x6fe]: Pad {f00=0x0095, f01=0x0190, f02=»ESEND PUT INSAVE AREA k P SC A3,RESEND+1 l P RF TRREP l 6 P l H P* l R P* TRANSMIT NAK l P* l r PTRNAK LDK A3,NAK LOAD NAK l | P RF TREN10 l P* l P* TRANSMIT EOT l P* l PTREOT LDK A3,EOT LOAD EOT l P RF TREN10 l
0x1926c0…248b20 [0x6ff]: Pad {f00=0x0095, f01=0x018e, f02=» LDK A2,/FF l P SC A2,RESEND+1 m $ PTRREP CF A5,TRSYNC START OUTPUT m , & P LC A2,RESEND GET FIRST CHARACTER m T P CF A5,WRITEP SEND IT m ~ & P LC A2,RESEND+1 GET NEXT CHARACTER m P CF A5,WRITEP SEND IT m PTRRE10 LDK A2,/FF m P CF A5,WRIT0
0x1926c0…248b20 [0x700]: Pad {f00=0x0096, f01=0x0190, f02=» m P CF A5,READ WAIT FOR END n P XIF n ( & P SST A2,LCUUT PERFORM SST AT ONCE n 6 P IFF LOGG=0 n ` ( P CF A5,LOGSST LOG TRANSMITTER STATUS n t P XIF n P RTN A5 n P n P* n P* n P* TRANSMIT ONE TEXT BLOCK n P* n P* n
0x1926c0…248b20 [0x701]: Pad {f00=0x0096, f01=0x018e, f02=»* n P* o P LD A4,FBAX o ( P RF(NZ) TRT050 NOT START OF MESSAGE o ( P o T 2 P LD A1,XRB READ BUFFER COMMAND IN PROCESS ??? o P RF(NZ) TRT050 YES !! o P o P LD A4,FECBBA o " P LC A3,+2,A4 GET AID CHARACTER o P SUK A3,/30 o $ P R
0x1926c0…248b20 [0x702]: Pad {f00=0x0096, f01=0x0190, f02=» P CF A5,WRITE SEND % p P LDK A2,'/' p P CF A5,WRITE SEND / p 4 P LDK A2,STX p P P CF A5,WRITE SEND STX p d ( P ST A4,FBLST REMEMBER START OF BLOCK p ( P ADK A4,5 SKIP AID + CURSOR ADDRESS p P LDK A3,5 ADJUST LENGTH p P LDK A2,3 p
0x1926c0…248b20 [0x703]: Pad {f00=0x0096, f01=0x0190, f02=» SEND STX p P LDK A7,0 RESET LRC q $ P LD A4,FECBBA GET BUFFER ADDRESS q . P AD A4,FBAX ADD BUFFER INDEX q V ( P ST A4,FBLST REMEMBER START OF BLOCK q z ( P ADK A4,2 SKIP FIRST WORD OF BUFFER q & P LDK A3,0 RESET CHARACTER COUNTER q P LD A1,FBAX GE
0x1926c0…248b20 [0x704]: Pad {f00=0x0096, f01=0x0190, f02=»GET STA q P CF A5,WRITEP SEND STA r P IFT IBMCHR=1 r . P IFF RCOM=1 r D " P LDK A2,/27 SEND ENTER AS AID r X P CF A5,WRITEP r ~ " P LDK A2,/20 AND CURSOR ADDRESS r P CF A5,WRITEP r P LDK A2,/20 r P CF A5,WRITEP r P XIF r P IFT
0x1926c0…248b20 [0x705]: Pad {f00=0x0096, f01=0x0190, f02=»DK A2,X'2D' AID FOR DISPLAY r PTRT060 CF A5,WRITEP SEND AID s $ P s H $ P LD* A3,DWTCUR,A6 CURSOR ADDRESS s P . P CF A5,LINCOL SEND LINE AND COLUMN NUMBER s x P LDK A3,5 SET BLOCK COUNT s P RF TRT100 s PTRT070 EQU * s P XIF s P s P LDK
0x1926c0…248b20 [0x706]: Pad {f00=0x0096, f01=0x0190, f02=»M=1 s & P LD A1,XRB READ BUFFER COMMAND ??? t P RF(Z) TRT105 NO!! t 6 P t P @ P************************************************************ t X P* t , P* CHECK IF ATTRIBUTE CHARACTER OR NULL t P* t 4 P******************************************
0x1926c0…248b20 [0x707]: Pad {f00=0x0096, f01=0x0190, f02=»E LINE FEED ? t " P RF(NE) TRT102 NO,GO TO TRT102 u P LDK A2,/0A u < PTRT102 EQU * u P P CWK A2,/7D END OF MESSAGE ? u d " P RF(NE) TRT103 NO,GO TO TRT103 u P LDK A2,/19 u PTRT103 EQU * u P CWK A2,X'7F' NULL ?? u P RF(NE) TRT105 u P
0x1926c0…248b20 [0x708]: Pad {f00=0x0098, f01=0x0190, f02=»P SEND START FIELD u P v ( P LC A2,-1,A4 GET ATTRIBUTE CHARACTER v " P ANK A2,X'7F' v N ( P LDR A1,A2 CONVERT TO IBM ATTRIBUTE v d P ANK A1,1 v P ANK A2,/1E MASK v P SLL A2,1 v & P ORR A2,A1 IBM ATTRIBUTE COMPOSED v " P ORK A2,/40 BIT ALWA
0x1926c0…248b20 [0x709]: Pad {f00=0x0098, f01=0x0190, f02=»QU * v P CF A5,WRITEP SEND ATTRIBUTE w P ADK A3,1 w 0 P RF TRT110 w B PTRT105 EQU * w T P XIF w h P w t P CWK A2,/07 w ~ ( P RF(L) TRT110 ILLEGAL CODE : SKIP IT w P CF A5,WRITEP SEND CHARACTER w PTRT110 EQU * w $ P IM FBAX INCREMENT B
0x1926c0…248b20 [0x70a]: Pad {f00=0x0098, f01=0x0190, f02=»EMENT CHARACTER COUNTER w P CWK A3,TBLEN x P RB(L) TRT100 NOT FULL BLOCK x 6 P IFT RCOM=1 x Z , P LDK A1,SBA CHECK IF SBA AT END OF BLOCK x n P CC A1,-2,A4 x P RF(E) TRT115 YES x P CC A1,-1,A4 x P RF(NE) TRT116 NO SEND ETB x ( P LCR A2,
0x1926c0…248b20 [0x70b]: Pad {f00=0x0098, f01=0x018e, f02=»T115 LCR A2,A4 GET SECOND BYTE AFTER SBA x P CF A5,WRITEP SEND IT y 0 P IM FBAX INCREMENT INDEX y N P XIF y n PTRT116 EQU * y z P LDK A2,ETB LOAD ETB y PTRT120 EQU * y P CF A5,WRITEP SEND IT y P IFF CODE=1 y P LDR A2,A7 GET LRC y P
0x1926c0…248b20 [0x70c]: Pad {f00=0x0098, f01=0x018e, f02=» " P CF A5,WRIT05 SEND CRC BYTE 1 z P ECR A2,A8 z * P ANK A2,/FF z < " P CF A5,WRIT05 SEND CRC BYTE 2 z P P XIF z v P ABL TRRE10 HALT OUTPUT z PTRT130 EQU * z P IM XETX INDICATE 'ETX SENT' z PTRT140 EQU * z P LDK A2,ETX LOAD ETX z P
0x1926c0…248b20 [0x70d]: Pad {f00=0x0098, f01=0x0190, f02=» z PTRSTA EQU * { $ P IM XSTA INDICATE 'STATUS SENT' { P ST A6,FDWTUT SAVE A6 { D P CF A5,TRSYNC START OUTPUT { b P LDK A2,SOH { P CF A5,WRITE SEND SOH { P LDK A7,0 REST LRC { P LDK A2,'%' { P CF A5,WRITEP SEND '%' { P LDK A2,
0x1926c0…248b20 [0x70e]: Pad {f00=0x0098, f01=0x018e, f02=» TCA { ~ P LDR* A2,A6 | P CF A5,WRITEP SEND STA | P LD A1,DWTST,A6 GET STATUS | > P ANK A1,/06 MASK FOR S/S 0 | ` P SRL A1,1 | $ P LC A2,SSTAB,A1 GET STATUS BYTE | P CF A5,WRITEP SEND S/S 0 | P LDK A2,NOIR PRELOAD S/S 1 | P LD A1,DWTST
0x1926c0…248b20 [0x70f]: Pad {f00=0x0098, f01=0x0190, f02=» | PTRST10 EQU * } P CF A5,WRITEP SEND S/S 1 } P RB TRT130 SEND ETX AND LRC } < P XIF } ` P } l P* } v P* } P* TRANSMIT SYNC SEQUENCE } P* } P* } PTRSYNC EQU * } P LDK A2,0 } * P CIO A2,0,LCUIN HALT INPUT IF NOT DONE
0x1926c0…248b20 [0x710]: Pad {f00=0x0099, f01=0x0190, f02=» } P IFT CODE=1 ~ P LDK A2,0 ~ & P CIO A2,1,LCUUT START TRANSMITTER ~ . P RF(A) TRS010 ~ X P SST A1,LCUUT ~ n P RF(A) TRS005 ~ P ABL BRM ~ PTRS005 CIO A2,1,LCUUT ~ PTRS010 EQU * ~ P LDK A2,SYNEBC ~ * P OTR A2,1,LCUUT SP
0x1926c0…248b20 [0x711]: Pad {f00=0x0099, f01=0x0190, f02=» TRS010 ~ P SST A1,LCUUT P RF(A) TRS005 & P ABL BRM < PTRS005 CIO A2,1,LCUUT N PTRS010 EQU * l P LDK A2,SYN * P OTR A2,1,LCUUT SPECIFY SYNC CHARACTER P XIF * P CF A5,READ WAIT FOR OUTPUT INTERRUPT P LDK A3,4 4
0x1926c0…248b20 [0x712]: Pad {f00=0x0099, f01=0x0190, f02=»* P* P* RECEIVER INTERRUPT P* 2 P* < PIH1501 EQU * F P ST P,INTSAV Z P IFT CPU852=1 n P CF A15,SAVE8 SAVE A1-A8 P XIF P P IFF CPU852=1 P MSR 8,A15 SAVE A1-A8 =1 P XIF * P CF A15,LDREG RE
0x1926c0…248b20 [0x713]: Pad {f00=0x0099, f01=0x0190, f02=»F A5,LOGIN LOG RECEIVED CHARACTER P XIF * P IFF CODE=1 6 P C2 SYNSW J P RF(NZ) IHLCI2 P CWK A2,SYN SKIP SYNS r P RF(E) READ " PIHLCI2 XRR A7,A2 CALCULATE LRC P XIF P IFT CODE=1 P C2 SYNSW 2 P RF(NZ) IHLCI1
0x1926c0…248b20 [0x714]: Pad {f00=0x0099, f01=0x018e, f02=»LCULATE CRC ( P LC A2,TASCII,A2 TRANSLATE TO ASCII P XIF @ PIHIN10 RTN A5 L P IFT P6805=0 b PIHIN20 CF A5,SST PERFORM SST x P ABL BRM P XIF P IFT P6805=1 PIHIN20 RF SST PERFORM SST P XIF P P
0x1926c0…248b20 [0x715]: Pad {f00=0x0099, f01=0x0190, f02=» P CF A15,SAVE8 SAVE A1 - A8 P XIF & P 2 P IFF CPU852=1 : P MSR 8,A15 SAVE A1-A8 =1 P P XIF p * P CF A15,LDREG RESTORE DC REGS A3 - A8 | P RB IHIN10 P P* P* & P* SST INSTRUCTION AND STATUS CHECK P*
0x1926c0…248b20 [0x716]: Pad {f00=0x0099, f01=0x0190, f02=» , P* BIT 15=MODEM NOT READY P* 4 PSST SST A1,LCUIN > P IFT P6805=1 V & P RF(NA) SST200 ALREADY INACTIVE l P XIF P LDR A2,A1 P IFF LOGG=0 & P CF A5,LOGSST LOG SST INFORMATION P XIF P IFT P6805
0x1926c0…248b20 [0x717]: Pad {f00=0x0099, f01=0x0190, f02=»2,2 P RF(NZ) SST050 THROUGH PUT P LDK A1,1 SET PARITY ERROR . P RF SSTRET P P XIF d PSST050 EQU * r P CM XSTA TROUHHPUT ERROR P LDKL A5,STB P ABL BRM010 PSST100 EQU * P ST A1,DCSTCU P IFT P6805=0
0x1926c0…248b20 [0x718]: Pad {f00=0x0099, f01=0x0190, f02=»200 LSALCUZ 0 P CF A15,SETIME LINE ERROR, WAIT 0.2 SECONDS P DATA BRM RESTART H P DATA 2 WAIT TIME b P RF READ | P* PSST200 LDK A1,0 PSSTRET ADK A5,4 P LDR A1,A1 SET CR P ABR* A5 RETURN P XIF P*
0x1926c0…248b20 [0x719]: Pad {f00=0x0099, f01=0x0190, f02=»T PERFORM SST INSTRUCTION AND STATUS CHECK P XIF 2 P IFT P6805=1 @ $ P RF READ WAIT FOR SST INTERRUPT V P XIF ~ P P* P* , P* WRITE FROM OR READ ONE CHARACTER TO A2 P* P* PWRITE EQU * P IFT COD
0x1926c0…248b20 [0x71a]: Pad {f00=0x0099, f01=0x0190, f02=» EBCDIC r P XIF PWRIT05 EQU * " P OTR A2,0,LCUUT SEND CHARACTER 0 P RF(A) WRIT10 V P RF READ THROUGHPUT ERROR l P IFF CODE=1 $ PWRIT10 XRR A7,A2 ACCUMULATE BCC P XIF P IFT CODE=1 & PWRIT10 CF A5,CRCCAL CALCULATE CR
0x1926c0…248b20 [0x71b]: Pad {f00=0x0099, f01=0x0190, f02=»BL TDISP P P* P* $ P*** WRITEP . P* @ P* WRITE A2 WITH PARITY J P* j P* t P IFT CODE+P6805=0 ~ PWRITEP ANK A2,/FF P ECR A1,A2 P ORK A2,/80 PWRI100 SLL A1,1 P RB(P) WRI100 P RB(
0x1926c0…248b20 [0x71c]: Pad {f00=0x0099, f01=0x0190, f02=»* P* P* P*** READP P* 0 . P* READ CHARACTER TO A2 AND CHECK PARITY : P* l P* v PREADP CF A5,READ P IFT CODE+P6805=0 P ECR A1,A2 PRE100 SLL A1,1 P RF(Z) RE110 P RB(NN) RE100 P XRK A
0x1926c0…248b20 [0x71d]: Pad {f00=0x0099, f01=0x0190, f02=» XIF P ADK A5,4 P ANK A1,/80 P XRK A1,/80 2 P ABR* A5 F P* V P* ` P j P* t < P* FIND DWT CONTAINING SUBTERMINAL ADDRESS AS GIVEN IN A2 ~ P* $ P* CALLING SEQUENCE: CF A5,FINTER P* A2=SUBTERMINAL ADDRESS
0x1926c0…248b20 [0x71e]: Pad {f00=0x0099, f01=0x0190, f02=»SES V * P* ENTRY: FINTER - CHECK SELECT ADDRESS , P* FINTEP - CHECK SPECIFIC POLL ADDRESS : P* j . PRBYTE DATA 0 IF 1 COMPARE WITH RIGTH BYTE t P* P* PFINTEP EQU * P IFT MSV1=0 PFINTER EQU * P XIF P IM RBYT
0x1926c0…248b20 [0x71f]: Pad {f00=0x0099, f01=0x0190, f02=»F DC:TAB r PFINT10 SUK A4,2 P LDK A3,0 DEFAULT VALUE ( P CW A4,DCTAB END OF TABLE H ( P RF(E) FINT20 SUBTERMINAL NOT FOUND j P LDR* A3,A4 LOAD DWT ADDRESS P IFT MSV1=1 $ P AD A3,RBYTE CHOOSE ADDRESS TYPE * P CCR A2,A3 COMPARE S
0x1926c0…248b20 [0x720]: Pad {f00=0x009a, f01=0x0190, f02=» TAKE NEXT TERMINAL PFINT20 CM RBYTE P ANKL A3,/FFFE 4 P RTN A5 J P Z P* d P* n P* POWER ON FUNCTIONS x P* P* PDC15ON EQU * P IFT CPU852=1 P CF A15,SAVE8 SAVE A1-A8 P XIF P P IFF
0x1926c0…248b20 [0x721]: Pad {f00=0x009a, f01=0x0190, f02=» AD* A1,DCTAB GET ADDRESS TO END OF TABLE PDRDC05 SUK A1,2 2 P CW A1,DCTAB J P RF(E) DRDC06 END OF TABLE ^ P LDR* A6,A1 GET DWT ADDRESS 0 P ORS A5,DWTST,A6 STORE DEVICE END FOR DEVICE ( P CF A15,INSSQ INSERT IN STATUS QUEUE P RB DR
0x1926c0…248b20 [0x722]: Pad {f00=0x009a, f01=0x0190, f02=»ER POINTER v " P RF(NZ) DRDC20 ALREADY STARTED * PDRDC10 CF A15,SPOTIM START POLL TIMER 8 PDRDC20 ABL BRM f P | P* P* POLL TIME OUT P* ( PPTOUT LDKL A5,STB LOAD A5 STACK BASE P LDK A2,/40 ( P ST A2,DCONOF INDICATE P
0x1926c0…248b20 [0x723]: Pad {f00=0x009a, f01=0x018e, f02=»* RESTART POLL TIMER WHEN POLL HAS BEEN RECEIVED P* 8 $ PCPTIM CM DCONOF INDICATE POLLING B P LDKL A2,-TIMPOL j P ST* A2,DCTPGP RESTART TIMER * P CF A15,CKMESS CHECK IF STATUS CHANGE P RTN A5 P* P* START POLL TIMER P*
0x1926c0…248b20 [0x724]: Pad {f00=0x009a, f01=0x0190, f02=» P ABR* A15 P P* P* START PROCEDURE TIMER * P* J PSPTIM EQU * T $ P LDR A1,A6 LOAD DWT AS PARAMETER h P CF A15,SETIME P DATA PRTOUT,TIMPRO $ P ST A4,DCTPP SAVE TIMER POINTER P RTN A5 P* P* PROC
0x1926c0…248b20 [0x725]: Pad {f00=0x009a, f01=0x0190, f02=»HALT INPUT IF OPEN P LD A1,XACK " P RF(Z) PRT10 ACK NOT EXPECTED . P CF A5,TRENQ SEND ENQ T & P CF A5,SPTIM START PROCEDURE TIMER r PPRT10 ABL BRM P P* P* STOP PROCEDURE TIMER P* ( PHPTIM LD A1,DCTPP GET TIMER
0x1926c0…248b20 [0x726]: Pad {f00=0x009a, f01=0x0190, f02=»E=1 P* P* P* CALCULATION OF CRC P* < P* A2 = CHARACTER F P* A7 = ACCUMULATED CRC ^ P* | P* PCRCCAL EQU * P ST A1,CRCSAV P ST A2,CRCSAV+2 P ST A3,CRCSAV+4 P LDK A1,8 PCRC100 LDR A3,
0x1926c0…248b20 [0x727]: Pad {f00=0x009a, f01=0x0190, f02=»UK A1,1 P RB(NZ) CRC100 P LD A1,CRCSAV & P LD A2,CRCSAV+2 < P LD A3,CRCSAV+4 T P RTN A5 l PCRCSAV RES 3 | P P* P* ( P* READ CRC CHARACTERS AND CHECK THEM P* CR = (E) IF CRC WAS OK P* P*
0x1926c0…248b20 [0x728]: Pad {f00=0x009a, f01=0x0190, f02=»VE IT ~ P CF A5,READ READ BYTE 2 ( P CM SYNSW SYNCS CAN BE SKIPPED AGAIN . P LD A2,CRCSAV+2 SAVE IT Z P SLL A2,8 z P XRR A2,A8 P ADK A5,4 . P CWR A2,A6 COMPARE RECEIVED WITH COMPUTED P ABR* A5 P XIF P IFT CODE=0
0x1926c0…248b20 [0x729]: Pad {f00=0x009a, f01=0x0190, f02=»A5,READP P ADK A5,4 P LDR A1,A1 " P RF(NZ) LRCEND 4 P ANK A7,/7F J PLRCEND EQU * ^ P CM SYNSW r P ABR* A5 P P XIF P P* P* " P* DEVICE WORK TABLE FOR DCTASK P* P* PDW1500 EQU
0x1926c0…248b20 [0x72a]: Pad {f00=0x009a, f01=0x0190, f02=»A DC15DC POINTER TO ADDRESS BLOCK P DATA 0 TTAB ADDRESS * $ P DATA 0 WAIT/ACTIVATE INDICATOR F P DATA 0 TASK QUEUE n P* P IFT MMUPAG=1 P DATA 0 USER ECB ADDRESS P DATA DC:ECB MMU ECB ADDRESS P XIF P* P DATA 0
0x1926c0…248b20 [0x72b]: Pad {f00=0x009a, f01=0x0190, f02=»SSAGE QUEUE ~ , P DATA 0 SIMULATED DEVICE BUFFER ADDRESS P DATA 0 CURSOR ADDRESS D " P DATA 0 REQUEST TIMEOUT VALUE b P* P IFT MMUPAG=1 PDC:ECB EQU * MMU ECB P DATA 0,0,0,0,0,0 P XIF P* P P* P*
0x1926c0…248b20 [0x72c]: Pad {f00=0x009a, f01=0x0190, f02=»ANCHOR z P IFF RBUFNR=1 DK3 P IFF RBUFNR=2 ( P DATA *+RLINK > P RES RBUFL+3 T P IFF RBUFNR=3 h P DATA *+RLINK ~ P RES RBUFL+3 P IFF RBUFNR=4 P DATA *+RLINK P RES RBUFL+3 P XIF P IFF RBUFNR=1 DK3
0x1926c0…248b20 [0x72d]: Pad {f00=0x009a, f01=0x0190, f02=» & PMMUBUF RES TBUFL+1 MMU WORK BUFFER P XIF 2 P > P* H P* R P* INTERRUPT LOGGING ROUTINE P* P* P IFF LOGG=0 PLOGSST ST A2,SAVE2 P ORKL A2,/F000 P RF LOG10 PLOGOUT ST A2,SAVE2 P ORKL
0x1926c0…248b20 [0x72e]: Pad {f00=0x009a, f01=0x0190, f02=»OGPNT P STR A2,A3 P ADK A3,2 P CWK A3,LOGEND 2 P RF(L) LOGEXI H P LDKL A3,LOGSTA ^ PLOGEXI ST A3,LOGPNT v P LD A2,SAVE2 P LD A3,SAVE3 PLOGE10 RTN A5 P P* P* PLOGPNT DATA LOGSTA PLO
0x1926c0…248b20 [0x72f]: Pad {f00=0x009a, f01=0x0190, f02=» P IFT RCOM=1 P < P******************************************************* " P* b P* L I N C O L l P* : P* CONVERT CURSOR ADDRESS TO LINE AND COLUMN NUMBER P* > P**************************************************
0x1926c0…248b20 [0x730]: Pad {f00=0x009b, f01=0x0190, f02=»T,A2 ASCII LINE NUMBER " P CF A5,WRITEP SEND LINE NUMBER P D P LDR A2,A3 L P ANK A2,X'3F' ^ ( P LC A2,LICO:T,A2 ASCII COLUMN NUMBER t $ P CF A5,WRITEP SEND COLUMN NUMBER P RTN A5 RETURN P* P* P* P P
0x1926c0…248b20 [0x731]: Pad {f00=0x009b, f01=0x018e, f02=»32E,/3C28,/2B21 /08-/0F * P DATA /264A,/4B4C,/4D4E,/4F50 /10-/17 * P DATA /5152,/245D,/2A29,/3B5E /18-/1F N * P DATA /2D2F,/5354,/5556,/5758 /20-/27 | * P DATA /595A,/402C,/255F,/3E3F /28-/2F ( P DATA /3031,/3233,/3435,/3637 /30-37 ( P DATA
0x1926c0…248b20 [0x732]: Pad {f00=0x009b, f01=0x40be, f02=» " PDC:TAB DATA 2 LENGTH OF DC:TAB * P DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0 * * P DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0 X PDC:END EQU * P* P* P END @ 55F,/3E3F /28-/2F ( P DATA /3031,/3233,/3435,/3637 /30-37 ( P DATA
0x1926c0…248b20 [0x733]: Pad {f00=0x009b, f01=0x2008, f02=» H P X ` h p x
0x1926c0…248b20 [0x734]: Pad {f00=0x009b, f01=0x0190, f02=»/08-/0F r * P DATA /264A,/4B4C,/4D4E,/4F50 /10-/17 * P DATA /5152,/245D,/2A29,/3B5E /18-/1F > * P DATA /2D2F,/5354,/5556,/5758 /20-/27 l * P DATA /595A,/402C,/255F,/3E3F /28-/2F ( P DATA /3031,/3233,/3435,/3637 /30-37 ( P DATA /3839,/3A5B,/5C2
0x1926c0…248b20 [0x735]: Pad {f00=0x009b, f01=0x40b0, f02=»A 2 LENGTH OF DC:TAB * P DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0 * P DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0 J PDC:END EQU * x P* P* P END @ F,/3E3F /28-/2F ( P DATA /3031,/3233,/3435,/3637 /30-37 ( P DATA /3839,/3A5B,/5C2
0x1926c0…248b20 [0x736]: Pad {f00=0x009b, f01=0x2008, f02=» H P X ` h p x
0x1926c0…248b20 [0x737]: Pad {f00=0x009b, f01=0x0190, f02=» ! ! 4 0 P W W }H } +*4 + 4 4@ @ 4 Iv H{ I! u( H! u!0 0, I HP ) 4 4 u0- Q P I 0 @ 4 ! y"! ) H @ A A @ )W 4 0* 0. T w
0x1926c0…248b20 ]
0x248b20…2497c0 (2, 0) DirGranule ((2, 0)) {
0x248b20…2497c0 DirEnt {nam=»MUKDCM«, typ=» «, f00=0x0000, f01=0x0000, f02=0x0b48, f03=0x0000}
0x248b20…2497c0 DirEnt {nam=»MUKDCM«, typ=»UF«, f00=0x019a, f01=0x0198, f02=0x0b50, f03=0x0008}
0x248b20…2497c0 DirEnt {nam=»SYSTAB«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0e20, f03=0x0000}
0x248b20…2497c0 DirEnt {nam=»CTABX «, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0e38, f03=0x0000}
0x248b20…2497c0 DirEnt {nam=»EBCDIC«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0e40, f03=0x0000}
0x248b20…2497c0 DirEnt {nam=»CTAB02«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0e50, f03=0x0000}
0x248b20…2497c0 DirEnt {nam=»MUKDCM«, typ=»LM«, f00=0x0000, f01=0x0000, f02=0x0e58, f03=0x0000}
0x248b20…2497c0 DirEnt {nam=»CTAB01«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0ed8, f03=0x0000}
0x248b20…2497c0 DirEnt {nam=»CTAB03«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0ee8, f03=0x0000}
0x248b20…2497c0 }
0x2497c0…249954 (2, 1) Opaque[0x194]
0x249954…249ae8 # DirEnt {nam=»MUKDCM«, typ=»UF«, f00=0x019a, f01=0x0198, f02=0x0b50, f03=0x0008}
0x249954…249ae8 IdxSect {
0x249954…249ae8 f00 = 0x005a // 0x249954 @0x0
0x249954…249ae8 f01 = 0x0014 // 0x249956 @0x2
0x249954…249ae8 gno = [ // 0x249958 @0x4
0x249954…249ae8 [0x00]: C0x005a.0x2.0
0x249954…249ae8 [0x01]: C0x005a.0x3.0
0x249954…249ae8 [0x02]: C0x005b.0x0.0
0x249954…249ae8 [0x03]: C0x005b.0x1.0
0x249954…249ae8 [0x04]: C0x005b.0x2.0
0x249954…249ae8 [0x05]: C0x005b.0x3.0
0x249954…249ae8 [0x06]: C0x005c.0x0.0
0x249954…249ae8 [0x07]: C0x005c.0x1.0
0x249954…249ae8 [0x08]: C0x005c.0x2.0
0x249954…249ae8 [0x09]: C0x005c.0x3.0
0x249954…249ae8 ]
0x249954…249ae8 }
0x249ae8…249c7c Dummy {f00=0x005a, f01=0x0190, f02=» ASG /02,NO MOV TCLASS,/S,TOSSWORK KPF /S,TCLASS 4 SCR J INC TCLASS,TOSSWORK V KPF /O r MOV SCLASS,/S,TOSSWORK KPF /S,SCLASS SCR INC SCLASS,TOSSWORK KPF /O MOV MONTAB,/S,TOSSWORK
0x249c7c…249e10 Dummy {f00=0x005a, f01=0x0190, f02=» MOV TDISP,/S,TOSSWORK KPF /S,TDISP " SCR 6 MOV LRPINT,/S,TOSSWORK B KPF /S,LRPINT ` SCR v MOV TPROC,/S,TOSSWORK KPF /S,TPROC SCR MOV MSUBS,/S,TOSSWORK KPF /S,MSUBS SCR MOV TTMJOB
0x249e10…249fa4 Dummy {f00=0x005a, f01=0x0190, f02=»WORK ~ KPF /S,SYSLDM SCR " MOV SYSLDA,/S,TOSSWORK . KPF /S,SYSLDA L SCR b MOV LDTASK,/S,TOSSWORK n KPF /S,LDTASK SCR MOV PFTAB,/S,TOSSWORK KPF /S,PFTAB SCR MOV LKMAL,/S,TOSSWORK
0x249fa4…24a138 Dummy {f00=0x005a, f01=0x0190, f02=»REDIT EQU 1$$ z ( #!!CH $$MMUPAG EQU 0$$MMUPAG EQU 1$$ ( #!!CH $$CPU852 EQU 1$$CPU852 EQU 0$$ B !!EN n ASM /S z KPF /O KPF /S SCR LED TDISP ( #!!CH $$CREDIT EQU 0$$CREDIT EQU 1$$ ( #!!CH $$MMUPAG EQU 0$$MMUPA
0x24a138…24a2cc Dummy {f00=0x005a, f01=0x0190, f02=»NT ( #!!CH $$CREDIT EQU 0$$CREDIT EQU 1$$ ( #!!CH $$MMUPAG EQU 0$$MMUPAG EQU 1$$ 6 ( #!!CH $$CPU852 EQU 1$$CPU852 EQU 0$$ b !!EN ASM /S KPF /O KPF /S SCR LED TPROC ( #!!CH $$CREDIT EQU 0$$CREDIT EQU 1$$
0x24a2cc…24a460 Dummy {f00=0x005a, f01=0x018e, f02=»F /S SCR LED MSUBS ( #!!CH $$CREDIT EQU 0$$CREDIT EQU 1$$ * ( #!!CH $$MMUPAG EQU 0$$MMUPAG EQU 1$$ V ( #!!CH $$CPU852 EQU 1$$CPU852 EQU 0$$ !!EN ASM /S KPF /O KPF /S SCR LED TTMJOB ( #!!CH $
0x24a460…24a5f4 (2, 2) Dummy {f00=0x005a, f01=0x0190, f02=» ASM /S KPF /O KPF /S SCR . LED TOSSIO : ( #!!CH $$CREDIT EQU 0$$CREDIT EQU 1$$ L ( #!!CH $$MMUPAG EQU 0$$MMUPAG EQU 1$$ x ( #!!CH $$CPU852 EQU 1$$CPU852 EQU 0$$ !!EN ASM /S KPF /O KPF /S SC
0x24a5f4…24a788 Dummy {f00=0x005a, f01=0x0190, f02=»$CPU852 EQU 0$$ | !!EN ASM /S $ KPF /O 2 KPF /S @ SCR N LED SYSLDA Z ( #!!CH $$CREDIT EQU 0$$CREDIT EQU 1$$ l ( #!!CH $$MMUPAG EQU 0$$MMUPAG EQU 1$$ ( #!!CH $$CPU852 EQU 1$$CPU852 EQU 0$$ !!EN ASM /S
0x24a788…24a91c Dummy {f00=0x005a, f01=0x0190, f02=»1$$ p ( #!!CH $$CPU852 EQU 1$$CPU852 EQU 0$$ !!EN 8 ASM /S D KPF /O R KPF /S ` SCR n MOV DVTKB,/S,TOSSWORK z KPF /S,DVTKB SCR MOV DVTTP,/S,TOSSWORK KPF /S,DVTTP SCR MOV DVTGP,/S,TOSS
0x24a91c…24aab0 Dummy {f00=0x005a, f01=0x0190, f02=»KPF /S,DVTDY SCR MOV DWII01,/S,TOSSWORK KPF /S,DWII01 > SCR T INC DWII01,TOSSWORK ` KPF /O | MOV DWIO01,/S,TOSSWORK KPF /S,DWIO01 SCR INC DWIO01,TOSSWORK KPF /O MOV DW1501,/S,TOSSWO
0x24aab0…24ac44 Dummy {f00=0x005a, f01=0x0190, f02=»1$$ p ( #!!CH $$MMUPAG EQU 0$$MMUPAG EQU 1$$ ( #!!CH $$CPU852 EQU 1$$CPU852 EQU 0$$ 8 !!EN d ASM /S p KPF /O ~ KPF /S SCR LED DWIO01 ( #!!CH $$CREDIT EQU 0$$CREDIT EQU 1$$ ( #!!CH $$MMUPAG EQU 0$$MMUPAG EQU 1$$
0x24ac44…24add8 Dummy {f00=0x005a, f01=0x0190, f02=»!!CH $$CREDIT EQU 0$$CREDIT EQU 1$$ ( #!!CH $$MMUPAG EQU 0$$MMUPAG EQU 1$$ , ( #!!CH $$CPU852 EQU 1$$CPU852 EQU 0$$ X !!EN ASM /S KPF /O KPF /S SCR MOV DRKB03,/S,TOSSWORK KPF /S,DRKB03 SCR MO
0x24add8…24af6c Dummy {f00=0x005a, f01=0x0190, f02=»,/S,TOSSWORK KPF /S,DRGP01 SCR * MOV DRDI01,/S,TOSSWORK 6 KPF /S,DRDI01 T SCR j MOV DRDY01,/S,TOSSWORK v KPF /S,DRDY01 SCR MOV DRRT01,/S,TOSSWORK KPF /S,DRRT01 SCR MOV DRSOP1,/S,TOSS
0x24af6c…24b100 Dummy {f00=0x005a, f01=0x0190, f02=» KPF /S,DRIC01 SCR MOV DRDC15,/S,TOSSWORK & KPF /S,DRDC15 D SCR Z LED DRKB01 f !!CH $$ X:A$$ 1$$ x !!CH $$ X:B$$ 1$$ !!CH $$ X:C$$ 1$$ !!CH $$ X:D$$ 2$$ !!CH $$ X:E$$ 0$$ !!CH $$ X:F$$
0x24b100…24b294 (2, 3) Dummy {f00=0x005b, f01=0x018e, f02=» ~ ( #!!CH $$CREDIT EQU 0$$CREDIT EQU 1$$ ( #!!CH $$MMUPAG EQU 0$$MMUPAG EQU 1$$ 4 ( #!!CH $$CPU852 EQU 1$$CPU852 EQU 0$$ ` !!EN ASM /S KPF /O KPF /S SCR LED DRTP02 !!CH $$ X:A$$ 0$$ !!CH $$ X:B$$
0x24b294…24b428 Dummy {f00=0x005b, f01=0x0190, f02=» | !!CH $$ X:H$$ 100$$ J E!!CH $$/2122,/2426,/3B3C,/3E40,/5E5F$$/2122,/2627,/3B3C,/3E40,/5E5F$$ $ ( #!!CH $$CREDIT EQU 0$$CREDIT EQU 1$$ r ( #!!CH $$MMUPAG EQU 0$$MMUPAG EQU 1$$ ( #!!CH $$CPU852 EQU 1$$CPU852 EQU 0$$ !!EN ASM /S
0x24b428…24b5bc Dummy {f00=0x005b, f01=0x0190, f02=» ~ !!CH $$ X:D$$ 0$$ !!CH $$ X:E$$ 0$$ " !!CH $$ X:F$$ 1$$ < !!CH $$ X:G$$ 0$$ V !!CH $$ X:H$$ 162$$ p ( #!!CH $$CREDIT EQU 0$$CREDIT EQU 1$$ ( #!!CH $$MMUPAG EQU 0$$MMUPAG EQU 1$$ ( #!!CH $$CPU852 EQU 1$$CPU852 EQU 0$$
0x24b5bc…24b750 Dummy {f00=0x005b, f01=0x018e, f02=» ~ ( #!!CH $$CREDIT EQU 0$$CREDIT EQU 1$$ ( #!!CH $$MMUPAG EQU 0$$MMUPAG EQU 1$$ 4 ( #!!CH $$CPU852 EQU 1$$CPU852 EQU 0$$ ` !!EN ASM /S KPF /O KPF /S SCR LED DRDY01 !!CH $$ X:A$$ 0$$ !!CH $$ X:B$$
0x24b750…24b8e4 Dummy {f00=0x005b, f01=0x0190, f02=» | !!CH $$ X:H$$ 162$$ ( #!!CH $$CREDIT EQU 0$$CREDIT EQU 1$$ $ ( #!!CH $$MMUPAG EQU 0$$MMUPAG EQU 1$$ P ( #!!CH $$CPU852 EQU 1$$CPU852 EQU 0$$ | !!EN ASM /S KPF /O KPF /S SCR LED DRRT01 !!CH $$ X:A$
0x24b8e4…24ba78 Dummy {f00=0x005b, f01=0x0190, f02=»$$ ( #!!CH $$CREDIT EQU 0$$CREDIT EQU 1$$ ( #!!CH $$MMUPAG EQU 0$$MMUPAG EQU 1$$ 6 ( #!!CH $$CPU852 EQU 1$$CPU852 EQU 0$$ b !!EN ASM /S KPF /O KPF /S SCR LED DRSOP1 !!CH $$ X:A$$ 1$$ !!CH $$ X:B$
0x24ba78…24bc0c Dummy {f00=0x005b, f01=0x0190, f02=»$ n !!EN ASM /S KPF /O $ KPF /S 2 SCR @ LED DRFD01 L !!CH $$ X:A$$ 1$$ ^ !!CH $$ X:B$$ 1$$ x !!CH $$ X:C$$ 1$$ !!CH $$ X:D$$ 1$$ !!CH $$ X:E$$ 256$$ ( #!!CH $$CREDIT EQU 0$$CREDIT EQU 1$$
0x24bc0c…24bda0 Dummy {f00=0x005b, f01=0x0190, f02=»F /S SCR LED DRIC01 !!CH $$ X:A$$ 575$$ * ( #!!CH $$CREDIT EQU 0$$CREDIT EQU 1$$ F ( #!!CH $$MMUPAG EQU 0$$MMUPAG EQU 1$$ r ( #!!CH $$CPU852 EQU 1$$CPU852 EQU 0$$ !!EN ASM /S KPF /O KPF /S SCR
0x24bda0…24bf34 (2, 4) Dummy {f00=0x005b, f01=0x0190, f02=» $$ X:E$$ 1$$ !!CH $$ X:F$$ 1$$ !!CH $$ X:G$$ 252$$ 0 !!CH $$ X:H$$ 1$$ L !!CH $$ X:I$$ 0$$ f !!CH $$ X:J$$ 1$$ !!CH $$ X:K$$ 0$$ !!CH $$ X:L$$ 2$$ !!CH $$ X:M$$ 00$$ !!CH $$ X:N$$ 02$$ !!CH $
0x24bf34…24c0c8 Dummy {f00=0x005b, f01=0x018e, f02=» l ( #!!CH $$MMUPAG EQU 0$$MMUPAG EQU 1$$ ( #!!CH $$CPU852 EQU 1$$CPU852 EQU 0$$ 4 !!EN ` ASM /S l KPF /O z KPF /S SCR MOV EBCDIC,/S,TOSSWORK KPF /S,EBCDIC SCR LED EBCDIC ( #!!CH $$CREDIT EQU 0$
0x24c0c8…24c25c Dummy {f00=0x005b, f01=0x0190, f02=» KPF /O KPF /S SCR LED DRKB03 , !!CH $$ X:A$$ 1$$ > !!CH $$ X:B$$ 1$$ X !!CH $$ X:C$$ 1$$ r !!CH $$ X:D$$ 2$$ !!CH $$ X:E$$ 0$$ !!CH $$ X:F$$ 30$$ !!CH $$ X:G$$ 1$$ !!CH $$ X:H$$ 1$$
0x24c25c…24c3f0 Dummy {f00=0x005b, f01=0x0190, f02=»$MMUPAG EQU 0$$MMUPAG EQU 1$$ ( #!!CH $$CPU852 EQU 1$$CPU852 EQU 0$$ & !!EN R ASM /S ^ KPF /O l KPF /S z SCR LED DVTKB !!DL 35 DATA 0,0,0,0,0,0,0,0 DATA 0,0,0,0,0,0,0, !!IL 38 DATA 0,
0x24c3f0…24c584 Dummy {f00=0x005b, f01=0x0190, f02=» LED TOSSIO !!CH $$ X:A$$ 1$$ !!EN 0 ASM /S < KPF /O J KPF /S X SCR f MOV TIMER,/S,TOSSWORK r KPF /S,TIMER SCR MOV TPROC,/S,TOSSWORK KPF /S,TPROC SCR MOV TMMLKM,/S,TOSSWORK
0x24c584…24c718 Dummy {f00=0x005b, f01=0x0190, f02=»/S,TABORT SCR MOV MONTIM,/S,TOSSWORK KPF /S,MONTIM < SCR R MOV TASS,/S,TOSSWORK ^ KPF /S,TASSI | SCR LED TIMER ( #!!CH $$CREDIT EQU 0$$CREDIT EQU 1$$ ( #!!CH $$MMUPAG EQU 0$$MMUPAG EQU 1$$ ( #!!
0x24c718…24c8ac Dummy {f00=0x005b, f01=0x0190, f02=»DIT EQU 0$$CREDIT EQU 1$$ ( #!!CH $$MMUPAG EQU 0$$MMUPAG EQU 1$$ " ( #!!CH $$CPU852 EQU 1$$CPU852 EQU 0$$ N !!EN z ASM /S KPF /O KPF /S SCR LED TMMLKM ( #!!CH $$CREDIT EQU 0$$CREDIT EQU 1$$ ( #!!CH $$MMUPAG
0x24c8ac…24ca40 Dummy {f00=0x005b, f01=0x0190, f02=» LED TLDSEG ( #!!CH $$CREDIT EQU 0$$CREDIT EQU 1$$ ( #!!CH $$MMUPAG EQU 0$$MMUPAG EQU 1$$ B ( #!!CH $$CPU852 EQU 1$$CPU852 EQU 0$$ n !!EN ASM /S KPF /O KPF /S SCR LED TABORT ( #!!CH $$CREDIT EQU 0$$CREDI
0x24ca40…24cbd4 (2, 5) Dummy {f00=0x005b, f01=0x018e, f02=»/O KPF /S SCR LED MONTIM $ ( #!!CH $$CREDIT EQU 0$$CREDIT EQU 1$$ 6 ( #!!CH $$MMUPAG EQU 0$$MMUPAG EQU 1$$ b ( #!!CH $$CPU852 EQU 1$$CPU852 EQU 0$$ !!EN ASM /S KPF /O KPF /S SCR LED TASS
0x24cbd4…24cd68 Dummy {f00=0x005b, f01=0x0190, f02=» !!EN ASM /S KPF /O KPF /S , SCR : LED LKMAL F !!DL 019 X !!DL 022 h !!DL 027 x !!DL 028 !!DL 042 DATA 00 !!DL 045 DATA 00 !!DL 050 !!DL 051
0x24cd68…24cefc Dummy {f00=0x005b, f01=0x0190, f02=» KPF /O KPF /S SCR $ MOV TIODM,/S,TOSSWORK 0 KPF /S,TIODM N SCR b MOV DMTASK,/S,TOSSWORK n KPF /S,DMTASK SCR MOV DMINIT,/S,TOSSWORK KPF /S,DMINIT SCR MOV TASS,/S,TOSSWORK
0x24cefc…24d090 Dummy {f00=0x005b, f01=0x018e, f02=»,DMBUF SCR ! MOV DMFDB,/S,TOSSWORK ! KPF /S,DMFDB ! 8 SCR ! L MOV DFTAB,/S,TOSSWORK ! X KPF /S,DFTAB ! v SCR ! MOV DMSUBX,/S,TOSSWORK ! KPF /S,DMSUBX ! SCR ! MOV ADDMOD,/S,TOSSWORK ! KPF /S,ADDMOD !
0x24d090…24d224 Dummy {f00=0x005b, f01=0x0190, f02=» ! MOV DIVMOD,/S,TOSSWORK " KPF /S,DIVMOD " & SCR " < MOV DMSUBR,/S,TOSSWORK " H KPF /S,DMSUBR " f SCR " | LED TIODM " !!CH $$ X:A$$ 00000$$ " ( #!!CH $$CREDIT EQU 0$$CREDIT EQU 1$$ " ( #!!CH $$MMUPAG EQU 0$$MMUPAG EQU 1$$
0x24d224…24d3b8 Dummy {f00=0x005b, f01=0x0190, f02=»!!CH $$ X:A$$ 00004$$ " ( #!!CH $$CREDIT EQU 0$$CREDIT EQU 1$$ # ( #!!CH $$MMUPAG EQU 0$$MMUPAG EQU 1$$ # J ( #!!CH $$CPU852 EQU 1$$CPU852 EQU 0$$ # v !!EN # ASM /S # KPF /O # KPF /S # SCR # LED DMTASK # !!CH $$ X:A$$ 0000
0x24d3b8…24d54c Dummy {f00=0x005b, f01=0x0190, f02=»$MMUPAG EQU 1$$ # | ( #!!CH $$CPU852 EQU 1$$CPU852 EQU 0$$ $ !!EN $ D ASM /S $ P KPF /O $ ^ KPF /S $ l SCR $ z LED DMTASS $ !!CH $$ X:A$$ 00004$$ $ !!CH $$ X:B$$ 00000$$ $ ( #!!CH $$CREDIT EQU 0$$CREDIT EQU 1$$ $ ( #!!CH $$M
0x24d54c…24d6e0 Dummy {f00=0x005b, f01=0x018e, f02=»R $ LED DFTAB % !!DL 23 % !!EN % , ASM /S % 8 KPF /O % F KPF /S % T SCR % b LED DMFDB % n !!CH $$ X:A$$ 00570$$ % !!CH $$ X:B$$ 00180$$ % !!CH $$ X:C$$ 00000$$ % !!CH $$ X:D$$ 00114$$ % ( #!!CH $$CREDIT EQ
0x24d6e0…24d874 (2, 6) Dummy {f00=0x005b, f01=0x0190, f02=» % KPF /O & KPF /S & SCR & $ LED DMINIT & 0 ( #!!CH $$CREDIT EQU 0$$CREDIT EQU 1$$ & B ( #!!CH $$MMUPAG EQU 0$$MMUPAG EQU 1$$ & n ( #!!CH $$CPU852 EQU 1$$CPU852 EQU 0$$ & !!EN & ASM /S & KPF /O & KPF /S & SCR &
0x24d874…24da08 Dummy {f00=0x005b, f01=0x018e, f02=»U 0$$ & r !!EN ' ASM /S ' KPF /O ' ( KPF /S ' 6 SCR ' D LED DMSUBX ' P ( #!!CH $$CREDIT EQU 0$$CREDIT EQU 1$$ ' b ( #!!CH $$MMUPAG EQU 0$$MMUPAG EQU 1$$ ' ( #!!CH $$CPU852 EQU 1$$CPU852 EQU 0$$ ' !!EN ' ASM /S ' KPF /O '
0x24da08…24db9c Dummy {f00=0x005b, f01=0x0190, f02=» ( #!!CH $$CPU852 EQU 1$$CPU852 EQU 0$$ ( !!EN ( 0 ASM /S ( < KPF /O ( J KPF /S ( X SCR ( f LED DSUMOD ( r ( #!!CH $$CREDIT EQU 0$$CREDIT EQU 1$$ ( ( #!!CH $$MMUPAG EQU 0$$MMUPAG EQU 1$$ ( ( #!!CH $$CPU852 EQU 1$$CPU852 EQU 0$$ (
0x24db9c…24dd30 Dummy {f00=0x005b, f01=0x0190, f02=»MUPAG EQU 0$$MMUPAG EQU 1$$ ( ( #!!CH $$CPU852 EQU 1$$CPU852 EQU 0$$ ) $ !!EN ) P ASM /S ) KPF /O ) j KPF /S ) x SCR ) LED DIVMOD ) ( #!!CH $$CREDIT EQU 0$$CREDIT EQU 1$$ ) ( #!!CH $$MMUPAG EQU 0$$MMUPAG EQU 1$$ ) ( #!!CH $$CPU85
0x24dd30…24dec4 Dummy {f00=0x005b, f01=0x0190, f02=»$CREDIT EQU 1$$ ) | ( #!!CH $$MMUPAG EQU 0$$MMUPAG EQU 1$$ * ( #!!CH $$CPU852 EQU 1$$CPU852 EQU 0$$ * D !!EN * p ASM /S * | KPF /O * KPF /S * SCR * LED CTABX * !!CH $$X$$02$$ * N J!!CH $$C2 EQU 0$$C2 DATA /2021,/2223,/2425,/26
0x24dec4…24e058 Dummy {f00=0x005b, f01=0x0190, f02=»RAP$$ * !!CH $$ X:A$$ 00001$$ + !!CH $$ EXTRN BUG$$*$$ + , !!CH $$ BUG$$ 0$$ + J !!CH $$ X:B$$ 00004$$ + d !!CH $$ X:C$$ 00004$$ + !!CH $$ X:D$$ 00000$$ + !!CH $$ X:E$$ 00010$$ + !!CH $$ X:F$$ 00001$$ + , '!!CH $$ILLINT
0x24e058…24e1ec Dummy {f00=0x005b, f01=0x0190, f02=» EXTRN IH1502 + !!DL 056 , !!DL 057 , * !!DL 067 , : !!DL 068 , J !!DL 069 , Z !!DL 070 , j !!DL 071 , z !!DL 073 , !!DL 074 , !!DL 075 , !!DL 077 , !!DL 078 , !!DL 079 , !!DL 080 , !!DL 081 ,
0x24e1ec…24e380 Dummy {f00=0x005b, f01=0x0190, f02=» DATA ILLINT , !!DL 134 - DATA ILLINT - * !!DL 135 - J DATA ILLINT - Z !!DL 136 - z DATA ILLINT - !!DL 138 - DATA ILLINT - !!DL 140 - DATA ILLINT -
0x24e380…24e514 (2, 7) Dummy {f00=0x005c, f01=0x0190, f02=»NT - z !!DL 150 . DATA ILLINT . !!DL 155 . : DATA ILLINT . J !!DL 156 . j DATA ILLINT . z !!DL 159 . DATA ILLINT . !!EN . ASM /S . KPF /O . KPF /S . SCR .
0x24e514…24e6a8 Dummy {f00=0x005c, f01=0x0190, f02=»DL 020 . !!DL 022 / !!DL 023 / !!DL 024 / . !!DL 025 / > !!DL 026 / N !!DL 027 / ^ !!DL 028 / n !!DL 029 / ~ !!DL 030 / !!DL 031 / !!DL 032 / !!DL 034 / !!DL 035 / !!DL 036 / !!DL 037 / !!DL 038 /
0x24e6a8…24e83c Dummy {f00=0x005c, f01=0x0190, f02=»DL 050 / !!DL 051 0 !!DL 052 0 !!DL 053 0 . !!DL 054 0 > !!DL 055 0 N !!DL 056 0 ^ !!DL 057 0 n !!DL 058 0 ~ !!DL 059 0 !!DL 060 0 !!DL 062 0 !!DL 063 0 !!DL 064 0 !!DL 065 0 !!DL 066 0 !!EN 0
0x24e83c…24e9d0 Dummy {f00=0x005c, f01=0x0190, f02=»0$$MMUPAG EQU 1$$ 0 ~ ( #!!CH $$CPU852 EQU 1$$CPU852 EQU 0$$ 1 !!CH $$DVTKB$$DVKB00$$ 1 F !!CH $$KBAD$$KBAD3$$ 1 d !!CH $$/1111$$/1140$$ 1 !!CH $$BCA$$8791$$ 1 !!CH $$ED0$$FFBA$$ 1 " !!CH $$0 CODE $$CTAB01 CODE $$ 1 !!CH $$ECH$$DVDY
0x24e9d0…24eb64 Dummy {f00=0x005c, f01=0x0190, f02=» $$CREDIT EQU 0$$CREDIT EQU 1$$ 1 ( #!!CH $$MMUPAG EQU 0$$MMUPAG EQU 1$$ 2 ( ( #!!CH $$CPU852 EQU 1$$CPU852 EQU 0$$ 2 T !!CH $$DVTTP$$DVTP00$$ 2 !!CH $$/1111$$/2000$$ 2 !!EN 2 ASM /S 2 KPF /O 2 KPF /S 2 SCR 2 LED DVTTP
0x24eb64…24ecf8 Dummy {f00=0x005c, f01=0x018e, f02=» !!CH $$DVTTP$$DVTP00$$ 3 !!CH $$/1111$$/2000$$ 3 " !!EN 3 @ ASM /S 3 L KPF /O 3 Z KPF /S 3 h SCR 3 v LED DVTTP 3 ( #!!CH $$CREDIT EQU 0$$CREDIT EQU 1$$ 3 ( #!!CH $$MMUPAG EQU 0$$MMUPAG EQU 1$$ 3 ( #!!CH $$CPU852 EQU 1$$CPU852
0x24ecf8…24ee8c Dummy {f00=0x005c, f01=0x0190, f02=» 3 LED DVTDY 4 ( #!!CH $$CREDIT EQU 0$$CREDIT EQU 1$$ 4 ( #!!CH $$MMUPAG EQU 0$$MMUPAG EQU 1$$ 4 F ( #!!CH $$CPU852 EQU 1$$CPU852 EQU 0$$ 4 r !!CH $$DVTDY$$DVDY00$$ 4 !!CH $$/ABC$$/1850$$ 4 !!CH $$/1111$$/C000$$ 4 !!EN 4 ASM /S
0x24ee8c…24f020 Dummy {f00=0x005c, f01=0x0190, f02=»G EQU 1$$ 4 v ( #!!CH $$CPU852 EQU 1$$CPU852 EQU 0$$ 5 !!CH $$DVTKB$$DVKB01$$ 5 > !!CH $$/1111$$/1110$$ 5 !!CH $$BCA$$95A3$$ 5 z !!CH $$ED0$$FFBA$$ 5 !!CH $$ECH$$DVDY01$$ 5 !!EN 5 ASM /S 5 KPF /O 5 KPF /S 5 SCR 5
0x24f020…24f1b4 (2, 8) Dummy {f00=0x005c, f01=0x0190, f02=»2 EQU 0$$ 5 v !!CH $$DVTKB$$DVKB01$$ 6 !!CH $$/1111$$/1115$$ 6 0 !!CH $$BCA$$95A3$$ 6 N !!CH $$ED0$$FFBA$$ 6 h !!CH $$8000$$8002$$ 6 !!CH $$0 CODE $$CTAB02 $$$ 6 !!CH $$***$$ EXTRN CTAB02$$ 6 !!CH $$ECH$$DVDY01$$ 6 !!EN 6
0x24f1b4…24f348 Dummy {f00=0x005c, f01=0x018e, f02=»U 0$$MMUPAG EQU 1$$ 6 ( #!!CH $$CPU852 EQU 1$$CPU852 EQU 0$$ 7 !!CH $$DVTDY$$DVDY01$$ 7 H !!CH $$/ABC$$/1850$$ 7 f !!CH $$/1111$$/C000$$ 7 !!EN 7 ASM /S 7 KPF /O 7 KPF /S 7 SCR 7 LED DVTKB 7 ( #!!CH $$CREDIT EQU 0$
0x24f348…24f4dc Dummy {f00=0x005c, f01=0x0190, f02=» 7 x !!CH $$KBAD$$KBAD3$$ 8 !!CH $$/1111$$/1100$$ 8 $ !!CH $$BCA$$FFFF$$ 8 B !!CH $$ED0$$FFBA$$ 8 " !!CH $$0 CODE $$CTAB03 CODE $$ 8 v !!CH $$ECH$$DVDY02$$ 8 !!DL 5 8 EXTRN CTAB03 8 !!EN 8 ASM /S 8 KPF /O 8 KPF
0x24f4dc…24f670 Dummy {f00=0x005c, f01=0x0190, f02=»PU852 EQU 1$$CPU852 EQU 0$$ 8 !!CH $$DVTDI$$DVDI02$$ 9 $ !!CH $$2010$$0000$$ 9 B !!CH $$/1111$$/9010$$ 9 ^ !!EN 9 | ASM /S 9 KPF /O 9 KPF /S 9 SCR 9 LED DVTDY 9 ( #!!CH $$CREDIT EQU 0$$CREDIT EQU 1$$ 9 ( #!!CH $$MMUPA
0x24f670…24f804 Dummy {f00=0x005c, f01=0x018e, f02=»CH $$/1111$$/C000$$ 9 !!EN : ASM /S : ( KPF /O : 6 KPF /S : D SCR : R LED DVTGP : ^ ( #!!CH $$CREDIT EQU 0$$CREDIT EQU 1$$ : p ( #!!CH $$MMUPAG EQU 0$$MMUPAG EQU 1$$ : ( #!!CH $$CPU852 EQU 1$$CPU852 EQU 0$$ : !!CH $$DVTGP$$DVGP03
0x24f804…24f998 Dummy {f00=0x005c, f01=0x0190, f02=» EXTRN DVKB00 ; EXTRN DVTP00 ; $ EXTRN DVDY00 ; D EXTRN DVKB01 ; d EXTRN DVDY01 ; EXTRN DVKB02 ; EXTRN DVDI02 ; EXTRN DVDY02 ;
0x24f998…24fb2c Dummy {f00=0x005c, f01=0x0190, f02=» DATA TC03 ; !!IL 12 < TC00 DATA TC00E-* < , DATA /0020 < N DATA DVKB00 < n DATA /00300 < DATA DVTP00 < DATA /02310 < DATA DVTP00 <
0x24fb2c…24fcc0 Dummy {f00=0x005c, f01=0x0190, f02=»00E EQU * < TC01 DATA TC01E-* = DATA /00210 = < DATA DVKB01 = DATA /00211 = | DATA DVKB01 = DATA /00311 = DATA DVDY01 = TC01E EQU
0x24fcc0…24fe54 (2, 9) Dummy {f00=0x005c, f01=0x0190, f02=»02 = z DATA DVDI02 > DATA /00502 > * DATA DVDY02 > J TC02E EQU * > j TC03 DATA TC03E-* > DATA /00302 > DATA DVGP03 > TC03E EQU * > !!EN
0x24fe54…24ffe8 Dummy {f00=0x005c, f01=0x0190, f02=»XTRN DWSO01 > EXTRN DWII01 ? EXTRN DWIO01 ? 6 EXTRN DW1501 ? V EXTRN DW1500 ? v EXTRN DWREMU ? EXTRN DWFD01 ? !!IL 11 ? DATA TC00 ? DATA
0x24ffe8…25017c Dummy {f00=0x005c, f01=0x0190, f02=» TC00E-* ? DATA /00101 @ DATA DWSI01 @ 4 DATA /00111 @ T DATA DWSO01 @ t TC00E EQU * @ TC01 DATA TC01E-* @ DATA /00E01 @ DATA DWII
0x25017c…250310 Dummy {f00=0x005c, f01=0x0190, f02=»TC02E EQU * @ TC03 DATA TC03E-* A DATA /00611 A > DATA DW1501 A ^ TC03E EQU * A ~ TC04 DATA TC04E-* A DATA /00601 A DATA DW1500 A DATA /015 A
0x250310…2504a4 Dummy {f00=0x005c, f01=0x0190, f02=» DATA /02FA0 A DATA DWFD01 B DATA /03FB0 B 4 DATA DWFD01 B T TC04E EQU * B j !!EN B ASM /S B KPF /O B KPF /S B SCR B LED MONTAB B !!IL 19 B **** B EXTRN CTAB01 B
0x2504a4…250638 Dummy {f00=0x005c, f01=0x0190, f02=» 031 B !!DL 032 C !!DL 033 C !!IL 47 C , **** C < DATA CTAB01 C H DATA CTAB02 C ^ DATA CTAB03 C t DATA ITAD C !!DL 052 C !!DL 055 C !!DL 057 C !!DL 058 C !!DL 059 C !!DL 060 C !!DL 061 C
0x250638…2507cc Dummy {f00=0x005c, f01=0x0026, f02=»KPF /L,MUKDCM C ASG /E0,TY10 D !!IL 47 C , **** C < DATA CTAB01 C H DATA CTAB02 C ^ DATA CTAB03 C t DATA ITAD C !!DL 052 C !!DL 055 C !!DL 057 C !!DL 058 C !!DL 059 C !!DL 060 C !!DL 061 C
0x2507cc…250960 Dummy {f00=0x005c, f01=0x2008, f02=» E UKDCM C ASG /E0,TY10 D !!IL 47 C , **** C < DATA CTAB01 C H DATA CTAB02 C ^ DATA CTAB03 C t DATA ITAD C !!DL 052 C !!DL 055 C !!DL 057 C !!DL 058 C !!DL 059 C !!DL 060 C !!DL 061 C
0x250960…250af4 (2, 10) Dummy {f00=0x005c, f01=0x0190, f02=»HANDLING RUTIN ] x $ P RTN A14 GO TO MAIN READ MODULE ^ P ^ > P ^ F PPF EQU * ^ N P SUK A2,/5C ^ ^ P RB ENT100 ^ r P IFT OFLIN=1 ^ P ^ @ P************************************************************ ^ P* ^ P* OFLINE ^ < P*
0x250af4…250c88 Dummy {f00=0x005c, f01=0x018e, f02=»*************************************************** ^ POFLINE EQU * _ < P CF A14,CLEAR _ P POFLI05 EQU * _ f P CF A14,RESET _ z P IFT DCLIN=2 _ P LD A7,MAIN,TCABAS _ P XRK A7,1 _ P ST A7,MAIN,TCABAS _ 0 P CF A14,DCABOR ABORT REQUEST N
0x250c88…250e1c Dummy {f00=0x005c, f01=0x0190, f02=» _ x & P CF A14,EMULA TRANSFER PARAMETERS ` P IFT DCLIN=2 ` 2 P LDKL A8,ECBDC2 MF # 2 ` F & P CF A14,EMULA TRANSFER PARAMETERS ` d P XIF ` P IFT OFLIN=1 ` P CF A14,LMF1OF ` P CF A14,LMF2OF ` P CF A14,LSAVOF ` ( P CF A14,LIOLON TURN ON O
0x250e1c…250fb0 Dummy {f00=0x005c, f01=0x0190, f02=»-A13 ` n P LD A12,4,A14 a $ P ADKL A14,4 UPDATE STACK POINTER a " * P ABL I:RT1 RETURN TO "OFFLINE" PROGRAM a J P a x P XIF a P IFT DCLIN=2 a P a @ P*********************************************************** a P* a P* MAINFRAME CHAN
0x250fb0…251144 Dummy {f00=0x005c, f01=0x0190, f02=»*********************************************************** a P* b D PMFCHGE EQU * b N P CF A14,CLEAR b b PMFCH05 EQU * b x P CF A14,RESET b P CF A14,LMF1OF b P CF A14,LMF2OF b P CF A14,LSAVOF b P LD A1,MAIN,TCABAS b P XRK A1,1
0x251144…2512d8 Dummy {f00=0x005c, f01=0x0190, f02=»A1,MAIN,TCABAS b P RTN A14 c P XIF c & P c 2 P* c < < P******************************************************** c F P* c P* CLEAR c P* c : P* PROGRAM ATTENTION KEY WHICH CAUSES AN I/O OPERATION c 8 P* AND GENERATE AN AID CHARACTER.
0x2512d8…25146c Dummy {f00=0x005c, f01=0x018e, f02=»************************************** c ~ P* d . PCLEAR EQU * d 8 P LDK A2,/2D POS FOR 'CLEAR' d L P LC A2,TASCII,A2 d p . P CF A14,LINHON TURN ON "KEYBOARD INHIBIT" d ( P CF A14,TRPA UPDATE AID AND TRANSMIT d & P CF A14,ERASE ERASE ENTIRE SCREEN
0x25146c…251600 Dummy {f00=0x005c, f01=0x0190, f02=» P* e P* ERASE TO END OF FIELD e P* e . @ P************************************************************ e 8 P* e | PEREOF EQU * e P LDK A6,1 e & P LD A3,ATTRIB,TCABAS GET ATTRIBUTE e P ANK A3,/10 UNPROTECTED? e P RF(E) ERE100 YES
0x251600…251794 (2, 11) Opaque[0x194]
0x251794…251928 # DirEnt {nam=»SYSTAB«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0e20, f03=0x0000}
0x251794…251928 IdxSect {
0x251794…251928 f00 = 0x0071 // 0x251794 @0x0
0x251794…251928 f01 = 0x0006 // 0x251796 @0x2
0x251794…251928 gno = [ // 0x251798 @0x4
0x251794…251928 [0x00]: C0x0071.0x0.0
0x251794…251928 [0x01]: C0x0071.0x1.0
0x251794…251928 [0x02]: C0x0071.0x2.0
0x251794…251928 ]
0x251794…251928 }
0x251928…251abc Dummy {f00=0x0071, f01=0x0190, f02=» 2 P IDENT SYSTAB REL 9.2 79-11-16 870105040920 P : P* B P* L 8 P*************************************************** V P* $ P* PHILIPS TERMINAL SYSTEM PTS P* 2 P* SYSTAB = INTERRUPT VECTORS, SYSTEM CONTROL 2 P*
0x251abc…251c50 Dummy {f00=0x0071, f01=0x0190, f02=»*************** l P* P* " P , P 4 P < P D P L P T P P d P l P t P | P P P EJECT SYSTAB P P 4 P ENTRY SCTMSZ,SCTSFA,SCTEFA SYSTEM CONTROL TABLE P ENTRY SCTPLD
0x251c50…251de4 Dummy {f00=0x0071, f01=0x0190, f02=» SCTMMP,SCTLAP,SCTNPE P ENTRY SCTSTB P ENTRY SCTOPT 4 P ENTRY SCTTCT,SCTCDT J P ENTRY SCTBUG f & P ENTRY SCTDMT,SCTDMI,SCTDML,SCTDMC | P ENTRY SCTBLK,SCTDCT & P ENTRY SEG:ST,SEG:DS,SEG:EL,SEG:PB & P ENTRY PAG:QF,PAG:QB,PAG:PA,
0x251de4…251f78 Dummy {f00=0x0071, f01=0x0190, f02=»O RESTART r P EXTRN IHLKM LKM INTERRUPT P EXTRN IHRTC REAL TIME CLOCK 4 P EXTRN IH1501 X P EXTRN IH1502 x ( P EXTRN IHSOP SYSTEM OPERATORS PANEL P P P P P P * P EXTRN CHRT1 REMOTE
0x251f78…25210c Dummy {f00=0x0071, f01=0x0190, f02=» DISCEN ~ $ P EXTRN ILLINT ILLEGAL INTERRUPT P EXTRN HALT HALT ROUTINE 8 P* DEBUGGER X PX:A EQU 0 MONITOR OPTION j ( PX:B EQU 0 DATA MAN .TASKS IN SYSTEM * PX:C EQU 0 DM INDEX RECORD BUFFER SIZE & PX:D EQU 0 DM NUMBER OF LOCAL FILES
0x25210c…2522a0 Dummy {f00=0x0071, f01=0x0190, f02=»B AND T:A h P* PSEG:ST EQU 0 STATUS $ PSEG:DS EQU 2 DISC SECTOR ADDRESS 8 " PSEG:EL EQU 4 EFFECTIVE LENGTH ` $ PSEG:PB EQU 6 PAGE BLOCK ADDRESS P* & PPAG:QF EQU 0 QUEUE POINTER FORWARD ( PPAG:QB EQU 2 QUEUE POINTER BACKWARD
0x2522a0…252434 (2, 12) Dummy {f00=0x0071, f01=0x0190, f02=»E d 2 PSWB:DS EQU 2 DISC SECTOR ADDRESS OF FIRST COPY $ PSWB:EL EQU 4 SWB LENGTH (BYTES) @ & PSWB:NS EQU 6 SWB LENGTH (SECTORS) h P* ( PT:ACSB EQU -12 CURRENT SEGMENT BASE P EJECT SYSTAB P* P* INTERRUPT VECTORS P*
0x252434…2525c8 Dummy {f00=0x0071, f01=0x0190, f02=» 4 P DATA ILLINT 5 P DATA ILLINT 6 ( P DATA ILLINT D P DATA ILLINT d P DATA IHSOP 9 P DATA ILLINT 10 P DATA ILLINT 11 P DATA IH1501 12 P DATA IH1502 13
0x2525c8…25275c Dummy {f00=0x0071, f01=0x0190, f02=»ILLINT ~ P DATA ILLINT P DATA ILLINT . P DATA ILLINT N P DATA ILLINT 22 n P DATA ILLINT P DATA CHLT1 24 P DATA ILLINT P DATA ILLINT P
0x25275c…2528f0 Dummy {f00=0x0071, f01=0x0190, f02=» P DATA ILLINT 32 P DATA ILLINT 33 P DATA ILLINT < P DATA ILLINT P DATA ILLINT 36 | P DATA ILLINT 37 P DATA ILLINT 38 P DATA ILLINT 39 P DATA ILLINT
0x2528f0…252a84 Dummy {f00=0x0071, f01=0x0190, f02=» 45 P DATA ILLINT 46 P DATA ILLINT 47 , P DATA ILLINT 48 H P DATA ILLINT 49 d P DATA ILLINT 50 P DATA ILLINT 51 P DATA ILLINT 52 P DATA ILLINT 53 P DATA ILLINT 54
0x252a84…252c18 Dummy {f00=0x0071, f01=0x018e, f02=» | P DATA ILLINT 60 P DATA ILLINT 61 $ P DATA ILLINT 62 @ P DATA TRAP TRAP ROUTINE P EJECT SYSTAB | P P* " P* SYSTEM CONTROL TABLE POINTER P* P DATA SCT P P P* P* SYST
0x252c18…252dac Dummy {f00=0x0071, f01=0x018e, f02=» x P* P XRR A13,A13 P XRR A14,A14 & P LD A1,SCTBUG : P ABR(NZ) A1 P P HLT d P p P EJECT SYSTAB x P P* P* SYSTEM CONTROL TABLE P* P PSCT EQU * P * PSCTMSZ DATA 0 MEMORY SIZE MO
0x252dac…252f40 Dummy {f00=0x0071, f01=0x0190, f02=» l ( P C0,C1 CAS F0,F1 DISC F8,F9 FLOPP $ PSCTANO DATA 0 APPLICATION NUMBER 4 2 PSCTADA DATA 0 APPLICATION DISC SECTOR ADDRESS PSCTPAG DATA 0 PAGTAB ADDRESS PSCTSEG DATA 0 SEGTAB ADDRESS PSCTSWB DATA 0 SWBTAB ADDRESS $ PSCTNOS DAT
0x252f40…2530d4 (2, 13) Dummy {f00=0x0071, f01=0x0190, f02=»ENTRY l P INDEX REL TTAB 0 PSCTLAC DATA 0 LOGICAL ADDRESS OF COMMON PART ( & PSCTMMP DATA 0 MMU TABLE PAGE ENTRY P INDEX REL TTAB * PSCTLAP DATA 0 LOGICAL ADDRESS OF PAGES ( PSCTNPE DATA 0 NUMBER OF PAGE ENTRIES & PSCTSTB DATA ST
0x2530d4…253268 Dummy {f00=0x0071, f01=0x0190, f02=»ESS x PSCTCDT DATA 0 CDTAB ADDRESS PSCTBUG DATA 0 DEBUGGER 0 ( PSCTDMT DATA 00004 DMTASKS IN SYSTEM N P BIT 13:D2,14:D1,15:D0 z 2 PSCTDMI DATA 00004 DM INDEX RECORD BUFFER SIZE * PSCTDML DATA 00000 DM NO OF LOCAL FILES , PSCTDMC DAT
0x253268…2533fc Dummy {f00=0x0071, f01=0x4110, f02=»YSTAB P P* P* SYSTEM STACK P* 6 P RES 145 @ P DATA /FCC0 AND PSW P & PSTB DATA LOOP AND PC FOR IDLE LOOP l P P P* P* IDLE LOOP P* P PLOOP RB * P P P P END
0x2533fc…253590 Dummy {f00=0x0071, 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
0x253590…253724 Dummy {f00=0x0071, f01=0x0190, f02=»B ADDRESS ! z PDMTIT0 EQU * " P LD A1,ECBRC,A8 " & P RF(Z) DMTIOX DISC I/O OK " > P ANKL A1,/FEFF " ` $ P RF(NZ) DMTIT1 NOT ONLY RETRIES " v P LDKL A2,/100 " P ORS A2,ECBRC,A9 USER RC " P RF DMTIOX " PDMTIT1 EQU * " P LD A2,FDBDBR,
0x253724…2538b8 Dummy {f00=0x0071, f01=0x0190, f02=» A2,8 BUFSTA " , P CM BUFDMI,A2 CLEAR VOL IDENT IN BUFFER # P LDK A1,/02 DISC IO ERROR # D " P LDKL A2,/FF7E NOT BIT 8 OR 15 # f P AN A2,ECBRC,A8 # P RF(NZ) DMTIOX # P LD A1,ECBRC,A8 BIT 8 OR 15 # PDMTIOX RTN A14 # P EJECT # P* #
0x2538b8…253a4c Dummy {f00=0x0071, f01=0x0190, f02=» P* A8 = ECB ADDR $ P* OUT: $ P* A1 = RET CODE $ . P* A2 = DESTROYED $ H P* A6 = FDB ADDR $ b P* A8 = ECB ADDR $ | P* A9 == USER ECB $ P* $ PDMTIOZ LDR A6,A1 $ P LD A2,DWTOR,A6 ORDER $ P ANK A2,/3F $ P CWK
0x253a4c…253be0 Dummy {f00=0x0071, f01=0x0190, f02=»DB DATA FILE $ ~ PDMTIZ1 EQU * % P LD A9,DWTECB,A1 USER ECB % ( P RB DMTIT0 % J P EJECT DMSUBR % 8 P****DESCRIPTION************************************* % t P* % 8 P* GTBKBU WILL GET A BLOCK BUFFER FOR DISC I/O AND % 2 P* PREPARE IT. EC
0x253be0…253d74 (2, 14) Opaque[0x194]
0x253d74…253f08 # DirEnt {nam=»CTABX «, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0e38, f03=0x0000}
0x253d74…253f08 IdxSect {
0x253d74…253f08 f00 = 0x0071 // 0x253d74 @0x0
0x253d74…253f08 f01 = 0x0002 // 0x253d76 @0x2
0x253d74…253f08 gno = [ // 0x253d78 @0x4
0x253d74…253f08 [0x00]: C0x0071.0x3.0
0x253d74…253f08 ]
0x253d74…253f08 }
0x253f08…25409c Dummy {f00=0x0071, f01=0x0190, f02=» 0 P IDENT CTABX REL 9.2 79-11-16 870105040920 P 8 P* @ P* CODE CONVERSION TABLE J P* l P* v P ENTRY CTABX P* P* * PC0 EQU 0 CODE CONVERSION COLUMN NO. 0 ( PC1 EQU 0 1 ( PC2 EQU
0x25409c…254230 Dummy {f00=0x0071, f01=0x4142, f02=» 5 ( PC6 EQU 0 6 " ( PC7 EQU 0 7 N P* z P* P* PCTABX DATA C0 P DATA C1 P DATA C2 P DATA C3 P DATA C4 P DATA C5 P DATA C6
0x254230…2543c4 Dummy {f00=0x0071, f01=0x2008, f02=» C7 EQU 0 7 * 4 * > * H CTABX DATA C1 R DATA C2 h DATA C2 x DATA C3 DATA C4 DATA C5 DATA C6 DATA C7 * * END @
0x2543c4…254558 Dummy {f00=0x0071, 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
0x254558…2546ec Dummy {f00=0x0071, f01=0x0190, f02=» DRFD01 P* P************* P* * 2 P* EXTERNALS * H P* * ^ P************* t P* P EXTRN TDISP DISPATCHER P EXTRN TENDIO ENDIO P EXTRN DISIOE REQUEST ERROR EXTRN DWTST STATUS
0x2546ec…254880 Dummy {f00=0x0071, f01=0x0190, f02=»EA A5 | & ! EXTRN DWTSB2 STACK BASE 2 IN DWT ( P EXTRN SCTPLD PROGRAM LOADING DEVICE 8 ( P EXTRN SAVE8 SAVE A1-A8 ON A15 STACK d P EXTRN SETIMP TIMER & P EXTRN INTSAV INTERRUPT SAVE AREA & P EXTRN INIFLG INITIALIZATION FLAG & P EXTRN T
0x254880…254a14 (2, 15) Opaque[0x194]
0x254a14…254ba8 # DirEnt {nam=»EBCDIC«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0e40, f03=0x0000}
0x254a14…254ba8 IdxSect {
0x254a14…254ba8 f00 = 0x0072 // 0x254a14 @0x0
0x254a14…254ba8 f01 = 0x0004 // 0x254a16 @0x2
0x254a14…254ba8 gno = [ // 0x254a18 @0x4
0x254a14…254ba8 [0x00]: C0x0072.0x0.0
0x254a14…254ba8 [0x01]: C0x0072.0x1.0
0x254a14…254ba8 ]
0x254a14…254ba8 }
0x254ba8…254d3c Dummy {f00=0x0072, f01=0x018e, f02=» 0 P IDENT EBCDIC 9.2DK 1 79-11-16 870105040920 P 8 P* @ 4 P************************************************ J P* $ P* PHILIPS TERMINAL SYSTEM PTS P* $ P* EBCDIC = EBCDIC/ASCII TABLE P* P* P* P*
0x254d3c…254ed0 Dummy {f00=0x0072, f01=0x018e, f02=» P* P* . P* CONDITIONAL ASSEMBLY (SEE ALSO DRDC15) P* J 2 PX:A EQU 1 CODE , 0=ASCII , 1=EBCDIC (DRDC15) T PCODE EQU X:A 4 PX:B EQU 1 READ COMMAND HANDLING IF = 1 (DRDC15) PRCOM EQU X:B P* : P* VERSION FOR SCAND
0x254ed0…255064 Dummy {f00=0x0072, f01=0x0190, f02=» P* 7C 5C P* 00 7C P* 5A 24 $ P* 6A 40 4 P EJECT D P* R P* 2 P* TABLE FOR CONVERSION OF EBCDIC CODE TO ASCII f P* P* PTASCII EQU * P IFT CODE=1 ( P DATA /7F01,/0203,/0009,/0000 00-07 ( P DAT
0x255064…2551f8 Dummy {f00=0x0072, f01=0x0190, f02=»000,/0000,/0000,/171B 20-27 ( P DATA /0000,/0000,/0005,/0000 28-2F $ ( P DATA /0000,/1600,/0000,/0004 30-37 P ( P DATA /0000,/0000,/1415,/001A 38-3F | ( P DATA /2041,/4243,/4445,/4647 40-47 ( P DATA /4849,/232E,/3C28,/2B21 48-4F ( P DATA /2
0x2551f8…25538c Dummy {f00=0x0072, f01=0x0190, f02=»/402C,/255F,/3E3F 68-6F ( P DATA /1831,/3233,/3435,/3637 70-77 ( P DATA /3839,/3A5B,/5C27,/3D22 78-7F L ( P DATA /2061,/6263,/6465,/6667 80-87 x ( P DATA /6869,/5B2E,/3C28,/2B21 88-8F ( P DATA /266A,/6B6C,/6D6E,/6F70 90-97 ( P DATA /7172,
0x25538c…255520 Dummy {f00=0x0072, f01=0x0190, f02=»3,/3435,/3637 B0-B7 ( P DATA /3839,/3A23,/4027,/3D22 B8-BF ( P DATA /2041,/4243,/4445,/4647 C0-C7 H ( P DATA /4849,/5B2E,/3C28,/2B21 C8-CF t ( P DATA /264A,/4B4C,/4D4E,/4F50 D0-D7 ( P DATA /5152,/5D24,/2A29,/3B5E D8-DF ( P DATA /7F2F,/535
0x255520…2556b4 (2, 16) Dummy {f00=0x0072, f01=0x0190, f02=»027,/3DFF F8-FF | P XIF P EJECT $ P* 2 P* < 2 P* TABLE FOR CONVERSION OF ASCII CODE TO EBCDIC F P* | P* PTEBCDIC EQU * P IFF CODE+RCOM=0 ( P DATA /0001,/0203,/372D,/0000 00-07 ( P DATA /0005,/1500,/0C00,/0000
0x2556b4…255848 Dummy {f00=0x0072, f01=0x018e, f02=»7 n ( P DATA /4D5D,/5C4E,/6B60,/4B61 28-2F ( P DATA /F0F1,/F2F3,/F4F5,/F6F7 30-37 6 ( P DATA /F8F9,/7A5E,/4C7E,/6E6F 38-3F b ( P DATA /6AC1,/C2C3,/C4C5,/C6C7 40-47 ( P DATA /C8C9,/D1D2,/D3D4,/D5D6 48-4F ( P DATA /D7D8,/D9E2,/E3E4,/E5E6 50-5
0x255848…2559dc Dummy {f00=0x0072, f01=0x40b4, f02=» j ( P DATA /9798,/99A2,/A3A4,/A5A6 70-77 ( P DATA /A7A8,/A91C,/0000,/00E0 78-7F 4 4 P DATA /544F,/5353 SPEC. FLEX CHAR. 'TOSS' 80-84 ` P XIF P END @ ( P DATA /C8C9,/D1D2,/D3D4,/D5D6 48-4F ( P DATA /D7D8,/D9E2,/E3E4,/E5E6 50-5
0x2559dc…255b70 Dummy {f00=0x0072, f01=0x2008, f02=» 68-6F z ( P DATA /9798,/99A2,/A3A4,/A5A6 70-77 ( P DATA /A7A8,/A91C,/0000,/00E0 78-7F B 4 P DATA /544F,/5353 SPEC. FLEX CHAR. 'TOSS' 80-84 n P XIF P END @ ( P DATA /C8C9,/D1D2,/D3D4,/D5D6 48-4F ( P DATA /D7D8,/D9E2,
0x255b70…255d04 Dummy {f00=0x0072, f01=0x0190, f02=» CW A4,DCTAB ALL ENTRIES CHECKED?? =3 * P RF(E) DCTP25 YES.DWT NOT IN TABLE =3 . P CWR* A6,A4 IN TABLE ?? =3 P RF(E) DCTP30 YES!! =3 ~ " P RB DCTP22 CHECK NEXT ENTRY =3 PDCTP25 EQU * =3 P $ P STR A6,A1 INSERT DWT IN DC:TAB
0x255d04…255e98 Dummy {f00=0x0072, f01=0x0190, f02=» P LDK A1,4 DEVICE END P ORS A1,DWTST,A6 ( P CF A15,INSSQ INSERT IN STATUS QUEUE 8 P XIF d PDCTP30 EQU * p P SUR A1,A1 RETURN CODE ::= 0 PENDIO EQU * $ P CF A15,TENDIO COMPLETE REQUEST P RB DCRTN P EJECT P*
0x255e98…25602c Dummy {f00=0x0072, f01=0x0190, f02=» P* PDCWR EQU * P IFT MMUPAG=1 $ P LD A1,ECBRL,A8 REQUESTED LENGTH 6 " P CWK A1,BUFLEN ILLEGAL LENGTH? ^ P RF(G) IL:LEN YES!! P XIF P CF A15,TIMEWR SET TIMER P CF A15,INSWQ QUEUE REQUEST P RB DCRTN P*
0x25602c…2561c0 Dummy {f00=0x0072, f01=0x0190, f02=» P* PDCRD EQU * P LD A8,DWTECB,A6 GET ECB . P LD A4,DWTRQ,A6 AND RECEIVE MESSAGE QUEUE @ " P RF(Z) DCRD10 NOTHING IN QUEUE r P P P ( P LDR* A2,A4 TAKE THE FIRST IN QUEUE P ST A2,DWTRQ,A6 P ADK A4,6 " P L
0x2561c0…256354 (2, 17) Opaque[0x194]
0x256354…2564e8 # DirEnt {nam=»CTAB02«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0e50, f03=0x0000}
0x256354…2564e8 IdxSect {
0x256354…2564e8 f00 = 0x0072 // 0x256354 @0x0
0x256354…2564e8 f01 = 0x0002 // 0x256356 @0x2
0x256354…2564e8 gno = [ // 0x256358 @0x4
0x256354…2564e8 [0x00]: C0x0072.0x2.0
0x256354…2564e8 ]
0x256354…2564e8 }
0x2564e8…25667c Dummy {f00=0x0072, f01=0x0190, f02=» 2 P IDENT CTAB02 REL 9.2 79-11-16 870105040920 P : P* B P* CODE CONVERSION TABLE L P* n P* x P ENTRY CTAB02 P* P* * PC0 EQU 0 CODE CONVERSION COLUMN NO. 0 ( PC1 EQU 0 1 < PC2
0x25667c…256810 Dummy {f00=0x0072, f01=0x415a, f02=» 4 r ( PC5 EQU 0 5 ( PC6 EQU 0 6 : ( PC7 EQU 0 7 f P* P* P* PCTAB02 DATA C0 P DATA C1 P DATA C2 P DATA C3 P DATA C4 P D
0x256810…2569a4 Dummy {f00=0x0072, f01=0x2008, f02=» C7 EQU 0 7 * 4 * > * H CTABX DATA C1 R DATA C2 h DATA C2 x DATA C3 DATA C4 DATA C5 DATA C6 DATA C7 * * END @
0x2569a4…256b38 Dummy {f00=0x0072, f01=0x0190, f02=»D | P EXTRN DWTTDM,DWTTQ P EXTRN QTJOB & P EXTRN ECBRL,SECTLE : P EXTRN DIVMOD,MPYMOD V P EXTRN EXTELE r P EXTRN CRNTID P EXTRN DMTGBU P EXTRN EXTLEN,EXTBAS P EXTRN CRNQUE,GETBLK,FREQUE P EXTRN HALT P
0x256b38…256ccc Dummy {f00=0x0072, f01=0x0190, f02=»UTINE t P EJECT DMSUBR TOSSIO P* . P* 8 . P***************************************** B P* t P* CONDITIONAL ASSEMBLY ~ P* . P***************************************** P* . P* A PROGRAM VERSION USING TOSS MMU PAG
0x256ccc…256e60 Dummy {f00=0x0072, f01=0x0190, f02=»CHKIND IS USED FROM FNDDWT TO SELECT DM-DWT 2 P* INDEX FILE (INDEX 0) SHALL BE SELECTED FOR 4 ( P* DX,IX,XR,XN, DATA FILE OTHERWISE j P* PCHKIND EQU * P STR A1,A15 P STR A2,A15 " P LDK A2,1 INDEX FOR DATA FILE P LDR A
0x256e60…256ff4 (2, 18) Opaque[0x194]
0x256ff4…257188 # DirEnt {nam=»MUKDCM«, typ=»LM«, f00=0x0000, f01=0x0000, f02=0x0e58, f03=0x0000}
0x256ff4…257188 IdxSect {
0x256ff4…257188 f00 = 0x0072 // 0x256ff4 @0x0
0x256ff4…257188 f01 = 0x0020 // 0x256ff6 @0x2
0x256ff4…257188 gno = [ // 0x256ff8 @0x4
0x256ff4…257188 [0x00]: C0x0072.0x3.0
0x256ff4…257188 [0x01]: C0x0073.0x0.0
0x256ff4…257188 [0x02]: C0x0073.0x1.0
0x256ff4…257188 [0x03]: C0x0073.0x2.0
0x256ff4…257188 [0x04]: C0x0073.0x3.0
0x256ff4…257188 [0x05]: C0x0074.0x0.0
0x256ff4…257188 [0x06]: C0x0074.0x1.0
0x256ff4…257188 [0x07]: C0x0074.0x2.0
0x256ff4…257188 [0x08]: C0x0074.0x3.0
0x256ff4…257188 [0x09]: C0x0075.0x0.0
0x256ff4…257188 [0x0a]: C0x0075.0x1.0
0x256ff4…257188 [0x0b]: C0x0075.0x2.0
0x256ff4…257188 [0x0c]: C0x0075.0x3.0
0x256ff4…257188 [0x0d]: C0x0076.0x0.0
0x256ff4…257188 [0x0e]: C0x0076.0x1.0
0x256ff4…257188 [0x0f]: C0x0076.0x2.0
0x256ff4…257188 ]
0x256ff4…257188 }
0x257188…25731c Dummy {f00=0x0072, f01=0x0190, f02=» y J h h h h h h h h ^ J h h h h h h h h h h h J h h h h h h h h h h h h h h h h h h h h h h h h h h h h h h h h n c @ Tg t z ^ b bLPL H b2 Z ` z
0x25731c…2574b0 Dummy {f00=0x0072, f01=0x0190, f02=» 4c @S{ D d 2Z $"z y B % y D Dbf d * F :P }B W [~ ? d j% L "~ T &b ICn 1 d _ A d " ] _ @] > > U # T @?: H ( ( P c P W: P, A] @ V ( U P" @F^V LF^W @Fp
0x2574b0…257644 Dummy {f00=0x0072, f01=0x0190, f02=» 6 8 ]& Q Z P 0 9 t t_ $ @ _, ? P H H #P h A d A FQ ? @] : ) A] _ @ @ A H ( A] _ ? ? ? ? ? ^ A _ _ ^ ] $P T I R $ 5 % > ? W ? W ? T T$ U U U U
0x257644…2577d8 Dummy {f00=0x0072, f01=0x0190, f02=» Q Q > > 0 @ 1 A P P > ? * X " R" Y T ? X D F T> Y.W8 > _& @ 8 R" Y T ? X D F T Y.W > _& W2 > 8 X W( ? ` @ @ P $ H W W > > > > > > @ V ? > _ > ? _ > > ? ^ ! Y ^ _ n ?
0x2577d8…25796c Dummy {f00=0x0072, f01=0x0190, f02=»B pU J BAB rU ] J B B pU ] J BQB rU < B " P Q :A H fP P ]6 H !@T I ]> T ! 1 U ]: A d ? W A d ? W A d ? W
0x25796c…257b00 Dummy {f00=0x0072, f01=0x0190, f02=» U PD P< P0 P, R 4T ] U X "0Tp+ Y WH 8Z * 4 U R ] U # $P4> R0> 8' T Y X ' T P X P " >Wh : T # Y U T ] W 8V : X $P y $W $ F n P
0x257b00…257c94 (2, 19) Dummy {f00=0x0073, f01=0x0190, f02=» $ ]> ;h # <c$ P X X " Z "X 8# T& 8Z V2 X # T 8R X $P y $ Y $ X ' X (@ L ' T 4X <d$ _D $?:D" Y X P Y # P 4T U j # P 4 4 P _r T _$ U _ ? 4 U 5 R PF
0x257c94…257e28 Dummy {f00=0x0073, f01=0x0190, f02=» > E D E E S( % ;DV " U D $ P #`P T E ]> p_ " P T 8! P6 Y Y Y Y _8 X XB Y X X X X ' 4 B U B (" W C (@ > ?" 8' ?A ` R 8;b# 4T RT T T ] ] 8
0x257e28…257fbc Dummy {f00=0x0073, f01=0x0190, f02=» > V P X P P _ ] W Q Y _: @ ^ T P ^X R4 @ U S $ U t " D P D T U W _ U 4XR XX 5 _b Y Y Y X 9BV$ X & Y " X D V D X T 8Tr 9W` B 7P
0x257fbc…258150 Dummy {f00=0x0073, f01=0x0190, f02=» X V 9 P X V 9_b d @ !Pp P X ! 4 Y * X . ! h Y T & ^ P Pb P Pv Pz 6 + ]6 A] @] A.
0x258150…2582e4 Dummy {f00=0x0073, f01=0x0190, f02=» , X P B B ! T ! 0 ! T Y *W X * ^ ! 6# T & ! 6 ! " 0 TOT 0 SST X Y ,W 0 X Y , Y * ! 6 ! X *' P ! ! v D ) P _ X " X ! Tr X !& Ph B . . :C P ! 6 9DV ! (@ B r !
0x2582e4…258478 Dummy {f00=0x0073, f01=0x0190, f02=» ! 6 ! (@ ! l R _ ! D 1 ;h 1 ! D 1 ! ! Z* ! 0 ! ! l ) ! 6 Y *# T X Y ._ Y *# 4 ! l ]6 ( C V ! ! 6 B B ! j ! vW0 W ! l X@ b ! v C (Q ! ! * ! 0 ! l ! T )WL WP ! l Xz R ! v ( - j ! v ) W.
0x258478…25860c Dummy {f00=0x0073, f01=0x0190, f02=» 0 Y J 1 0B. X (P y (_^ ( F _n Y ( " X . P Y : ! 4 ! 6 X # P Y .:A , X J A] Y J @] B. X $ Y Y $ Y X f Y & X '? A d ? (@ X L X N K P6 X PT $ D C Y B ]>K & E % Y B K X ;A
0x25860c…2587a0 Dummy {f00=0x0073, f01=0x0190, f02=» P Q8 U _ T,: B R(' P Q 9BW Q 9C B ! T 4 f . P ;A _ 4 X 0 # P _ 4(@ R D= 1_ W (@ R 0 D> ] _ ! 4 ! ;E :B 9A ! U P jW kQ 4 Y * ! 0" Z Y"
0x2587a0…258934 (2, 20) Dummy {f00=0x0073, f01=0x0190, f02=» P b 4 P y _^ _n Y X P Y : ! ! 6 X # P Y :A , X A Y @ B. X Y Y
0x258934…258ac8 Dummy {f00=0x0073, f01=0x0190, f02=» P Q U _ T : B R ' P Q 9BW Q 9C B ! T 4 f . P ;A _ 4 X # P _ 4(@ R D 1_ W (@ R 0 D ] _ ! 4 ! ;E :B 9A ! U P jW kQ 4 Y ! 0" Z Y"
0x258ac8…258c5c Dummy {f00=0x0073, f01=0x0190, f02=» P b 4 P y _^ X P Y : ! ! 6 X # P Y P4 P P 1P0 P W P P 5P ]6 B ]> X P WL B 9 B Y B Y ! P. @=L = ]6 @=N `=N @=NP 0P _ % A=L A=P D _^ B QN j_r
0x258c5c…258df0 Dummy {f00=0x0073, f01=0x0190, f02=» X X A F Y _& Y @ z 0 A | A z_: X P ( y Y W ! (P 0 ) > ! (P _ ) 1_ (P _ ) 1_0 (X< P _ 0 )_J (P _ ) 1 4 ! X R< X T4 X P0 , Y L C L C D* V D > @ @
0x258df0…258f84 Dummy {f00=0x0073, f01=0x0190, f02=» > 4 y _^ ! B ! T P P ! Tf Tb A! P A! TR ! TL ! TD T@ ! T8 ! A I A P " ! _ ! T ! d" X ! _ !! A @ |P @ zP ! A | A ~_ !! @ ~P @!
0x258f84…259118 Dummy {f00=0x0073, f01=0x0190, f02=» B @ x 8 H> @! P E ! PH X RB X P X T4 P C . C X T ! W D* V D W" X R X T D ! ! _ A ~ @ x X A A z A @ A !! @ |T @ ~P ! !! @ |T @ ~X Wj A I @ F ]> Z @ z @
0x259118…2592ac Dummy {f00=0x0073, f01=0x0190, f02=» _0 @ |T8W @! T ! _ ! ! _ A ~ A E A A x 4 @ |P ! !!d !!@W @ T ! _ T _ A z 3 C D B B A A A A A ! F !!d A |_^_V @ zP6 X R0 X P T$ T Y W . P C D A | A z 4 @! @ T
0x2592ac…259440 Dummy {f00=0x0073, f01=0x0190, f02=» 4 _$ !! 2_l 1 A T 0W ;W A A W W W A A ! D @ ! @ ! ! ! B J 4 ! D ! @ @ A @ T( @! ! 8 ! @ P - ! x !< W 0 " @ PL R ~T }T T0 W, ! P " ! " :A *@ H= T 0
0x259440…2595d4 (2, 21) Dummy {f00=0x0073, f01=0x0190, f02=» ! 4 A d ? ZJ T A T PD 4 ! A d ? Z_ I " P A A 4 A _$B P W @ ]>" * 9AY X 2 _ ! 9AP ^ 2 _ " ! 1 4 A @=N `=N @=NP 0 M A 4 ? @ T !R @ A !R ]> A a 4 F !*
0x2595d4…259768 Dummy {f00=0x0073, f01=0x0190, f02=» ! ! * W A A W W W A A ! @ ! @ ! ! ! B J 4 ! ! @ @ A @ T @ ! 8 ! @ P - ! x ! W 0 " @ P R ~T }T T W ! P " ! " :A *@ H T 0
0x259768…2598fc Dummy {f00=0x0073, f01=0x0190, f02=» ! 4 A d ? ZJ T A T P 4 ! A d ? Z_ I " P A A 4 A _$B P W @ " * 9AY X 2 _ ! 9AP ^ 2 _ " ! 1 4 A @ ` @ P 0 M A 4 ? @ T @ A A a 4 !*
0x2598fc…259a90 Dummy {f00=0x0073, f01=0x0190, f02=» ! * W A A W W W A A ! @ ! @ ! ! ! B J 4 ! ! @ @ A @ T @ ! 8 ! @ P - ! x ! W 0 " @ P R ~T }T T W ! P " ! " :A *@ H T 0
0x259a90…259c24 Dummy {f00=0x0073, f01=0x0190, f02=» ! 4 A d ? ZJ T A T P 4 ! A d ? Z_ I " P A A 4 A _$B P W @ " * 9AY X 2 _ ! 9AP ^ 2 _ " ! 1 4 A @ ` @ P 0 M A 4 ? @ T @ A A a 4 !*
0x259c24…259db8 Dummy {f00=0x0073, f01=0x0190, f02=» ! * W A A W W W A A ! @ ! @ ! ! ! B J 4 ! ! @ @ A @ T @ ! 8 ! @ P - ! x ! W 0 " @ P R ~T }T T W ! P " ! " :A *@ H T 0
0x259db8…259f4c Dummy {f00=0x0073, f01=0x0190, f02=» ! 4 A d ? ZJ T A T P 4 ! A d ? Z_ I " P A A 4 A _$B P W @ " * 9AY X 2 _ ! 9AP ^ 2 _ " ! 1 4 A @ ` @ P 0 M A 4 ? @ T @ A A a 4 !*
0x259f4c…25a0e0 Dummy {f00=0x0073, f01=0x0190, f02=» ! * W A A W W W A A ! @ ! @ ! ! B J 4 ! ! @ @ A @ T @ ! 8 ! @ P - ! x ! W 0 " @ P R ~T }T T W ! P " ! " :A *@ H T 0
0x25a0e0…25a274 (2, 22) Dummy {f00=0x0073, f01=0x0190, f02=» ! 4 A d ? ZJ T A T P 4 ! A d ? Z_ I " P A A 4 A _$B P W @ " * 9AY X 2 _ ! 9AP ^ 2 _ " ! 1 4 A @ ` @ P 0 M A 4 ? @ T @ A A a 4 !*
0x25a274…25a408 Dummy {f00=0x0073, f01=0x0190, f02=» ! * W A A W W W A A ! @ ! @ ! ! B J 4 ! ! @ @ A @ T @ ! 8 ! @ P - ! x ! W 0 " @ P R ~T }T T W ! P " ! " :A *@ H T 0
0x25a408…25a59c Dummy {f00=0x0073, f01=0x0190, f02=» ! 4 A d ? ZJ T A T P 4 ! A d ? Z_ I " P A A 4 A _$B P W @ " * 9AY X 2 _ ! 9AP ^ 2 _ " ! 1 4 A @ ` @ P 0 M A 4 ? @ T @ A A a 4 !*
0x25a59c…25a730 Dummy {f00=0x0073, f01=0x0190, f02=» ! * W A A W W W A A ! @ ! @ ! ! B J 4 ! ! @ @ A @ T @ ! 8 ! @ P - ! x ! W 0 " @ P R ~T }T T W ! P " ! " :A *@ H T 0
0x25a730…25a8c4 Dummy {f00=0x0073, f01=0x0190, f02=» ! 4 A d ? ZJ T A T P 4 ! A d ? Z_ I " P A A 4 A _$B P W @ " * 9AY X 2 _ ! 9AP ^ 2 _ " ! 1 4 A @ ` @ P 0 M A 4 ? @ T @ A A a 4 !*
0x25a8c4…25aa58 Dummy {f00=0x0073, f01=0x0190, f02=» ! * W A A W W W A A ! @ ! @ ! ! B J 4 ! ! @ @ A @ T @ ! 8 ! @ P - ! x ! W 0 " @ P R ~T }T T W ! P " ! " :A *@ H T 0
0x25aa58…25abec Dummy {f00=0x0073, f01=0x0190, f02=» ! 4 A d ? ZJ T A T P 4 ! A d ? Z_ I " P A A 4 A _$B P W @ " * 9AY X 2 _ ! 9AP ^ 2 _ " ! 1 4 A @ ` @ P 0 M A 4 ? @ T @ A A a 4 !*
0x25abec…25ad80 Dummy {f00=0x0073, f01=0x0190, f02=» ! * W A A W W W A A ! @ ! @ ! ! B J 4 ! ! @ @ A @ T @ ! 8 ! @ P - ! x ! W 0 " @ P R ~T }T T W ! P " ! " :A *@ H T 0
0x25ad80…25af14 (2, 23) Dummy {f00=0x0074, f01=0x0190, f02=» ! 4 A d ? ZJ T A T P 4 ! A d ? Z_ I " P A A 4 A _$B P W @ " * 9AY X 2 _ ! 9AP ^ 2 _ " ! 1 4 A @ ` @ P 0 M A 4 ? @ T @ A A a 4 !*
0x25af14…25b0a8 Dummy {f00=0x0074, f01=0x0190, f02=» ! * W A A W W W A A ! @ ! @ ! ! B J 4 ! ! @ @ A @ T @ ! 8 ! @ P - ! x ! W 0 " @ P R ~T }T T W ! P " ! " :A *@ H T 0
0x25b0a8…25b23c Dummy {f00=0x0074, f01=0x0190, f02=» ! 4 A d ? ZJ T A T P 4 ! A d ? Z_ I " P A A 4 A _$B P W @ " * 9AY X 2 _ ! 9AP ^ 2 _ " ! 1 4 A @ ` @ P 0 M A 4 ? @ T @ A A a 4 !*
0x25b23c…25b3d0 Dummy {f00=0x0074, f01=0x0190, f02=» ! * W A A W W W A A ! @ ! @ ! ! B J 4 ! ! @ @ A @ T @ ! 8 ! @ P - ! x ! W :f"? H= ! "? H= ! 4 ABCDEFGHI#.<(+!&JKLMNOPQR$]*);^-/STUVWXYZ@,%_>?0123
0x25b3d0…25b564 Dummy {f00=0x0074, f01=0x0190, f02=» ABCDEFGHI#.<(+!&JKLMNOPQR$]*);^-/STUVWXYZ@,%_>? 123456789:[ '=" abcdefghi[.<(+!&jklmnopqr]$*);^-/stuvwxyz|,%_>?0123456789:#@'=" ABCDEFGHI[.<(+!&JKLMNOPQR]$*);^ /STUVWXYZ|,%_>?0123456789:#@'= 7- <=2&p ?' @O JZl
0x25b564…25b6f8 Dummy {f00=0x0074, f01=0x0190, f02=»C^CpBlCpCpBlBlBlC $ ( , 0 4 8 < ( H T ? 0 ) t $P $ ) U @ C @?:W ? 0P P > T Z 0P R I W ? _" H P 4 I > T C T, V. Y F T ? ? Pn q 0 ) tW` X P
0x25b6f8…25b88c Dummy {f00=0x0074, f01=0x0190, f02=» T 8P Y ^ 5 ) P U ]> XH ' X X D #DP @ b P X l T _| Xv Y @ P< F T W0 X &P* T P H T _ X I Y T # C C W4 O " # X Y ) C C
0x25b88c…25ba20 Dummy {f00=0x0074, f01=0x0190, f02=» > F C F C > B R Q F ! P C > C > F :c" H :b"? #" : C > B R Q~ Bx P0 B P* 0$ T # R QL C > X B U( H Q2 X D B
0x25ba20…25bbb4 (2, 24) Dummy {f00=0x0074, f01=0x0190, f02=»# Q > P _0 # T p > P p (_H _2 B U X C > ? _ X T (@ B ^ > > ? _ X T X X T % T ?C L Rl D^_@(@ L U L Q0 M C~ D X D (
0x25bbb4…25bd48 Dummy {f00=0x0074, f01=0x0190, f02=» Y X F X T X Y 1 1 X P - M T $ PD _ T " # p X L R P B P (@ ?( ^ X P8 P0 # P T P 0P 1 _ t W Y > > T E F F ]> P F F F _
0x25bd48…25bedc Dummy {f00=0x0074, f01=0x0190, f02=»y y G G I I I I I H H H G HTG G I I G H H H G " # $ % "$&( F F @ D X P _ L !##P T @ R $P U + U _ (@(@ IF P ^ I HF Y HF B # X ( U I B r W Y &
0x25bedc…25c070 Dummy {f00=0x0074, f01=0x0190, f02=» H S W C C B B B U Y R Wp H TP L P B r L ( $ X _ X ` T I T J X P C X I X J S W C C W, B B Y IR Q X JU C '? T W6 Z T.(@(@ P #D } J ]>
0x25c070…25c204 Dummy {f00=0x0074, f01=0x0190, f02=» : Z $ -_ D ( U ( 0 W T ` U @ , @ W : X & X P !##T Y T( X P P P @] Q (@ F h : @?:_ ] ( H > J X &Pj D ^V" D "? P P &P E ^ [Z V, P ( Jt( ( W J
0x25c204…25c398 Dummy {f00=0x0074, f01=0x0190, f02=» W T Y $ P T _ Y & F l t(@ _ L X & X I U X J U ( Z T$ X X RP F I T NF P ` U0 @ , D !##X D ( * ]" 0 X Wf ` U @ H @ X WF Y N 4 5W P 0
0x25c398…25c52c Dummy {f00=0x0074, f01=0x0190, f02=» t N 4' L ' L 5 L 4 R W , P& ,' X X 1 Z" ) L _ (@ C ( B ! NF L @I, F U G F G I ND & ( F " F +P P* X $ T Y U W Y R P> $P8W NF X ( X & F X P
0x25c52c…25c6c0 Dummy {f00=0x0074, f01=0x0190, f02=»'? P P( $ P" Z8 I I K K P P & P Y W D $ T Y T Y W E I E J X ^V ? T B l D (@( { B B P ! Tn M Q : Nn A{ A{ " P { "" |, P Q { @{ t(@ D{ C
0x25c6c0…25c854 (2, 25) Dummy {f00=0x0074, f01=0x0190, f02=»{ Q B l D{ E{ X #D( N ( B l B @{ D{ W C C ( Nn Np { { @{ T A{ 0" Q& Q& U _ L !SSP !LL Q& W L @{ A{ V Q P E{ @{ E{ P E{ P E{ D{ T { P Q
0x25c854…25c9e8 Dummy {f00=0x0074, f01=0x0190, f02=» F S E 3 P S I P S J P S ( P S * P % S H P & S P @{ S , d S B | O O2 @{ T W { T Wz @{ P R ( >a U Wb 0 =b P{ P @{ ! T. W< P{ D{ Y P{ Y P{ Y U ! T ! X6 _R _V
0x25c9e8…25cb7c Dummy {f00=0x0074, f01=0x0190, f02=» l t | (@( @{ Rf _ T `{ ` 9A S ^ H $X D S . S $ [ R * S W S _ S ` R ( R * X S b Q U _ L !SSP !LL W L @ A V P E @ E P E P E D T P
0x25cb7c…25cd10 Dummy {f00=0x0074, f01=0x0190, f02=» F S E 3 P S I P S J P S ( P S * P % S H P & S P @ S , d S B | O O2 @ T W T W @ P R ( >a U W 0 =b P P @ ! T W P D Y P Y P Y U ! T ! X6 _R _V
0x25cd10…25cea4 Dummy {f00=0x0074, f01=0x0190, f02=» (@( @ Rf _ T ` ` 9A S ^ H $X D S . S $ R * S W S _ S ` R ( R * S b Q U _ L !SSP !LL W L @ A V P E @ E P E P E D T P
0x25cea4…25d038 Dummy {f00=0x0074, f01=0x0190, f02=» F S E 3 P S I P S J P S ( P S * P % S H P & S P @ S , d S B | O O2 @ T W T W @ P R ( >a U W 0 =b P P @ ! T W P D Y P Y P Y U ! T ! X6 _R _V
0x25d038…25d1cc Dummy {f00=0x0074, f01=0x0190, f02=» (@( @ Rf _ T ` ` 9A S ^ H $X D S . S $ R * S W S _ S ` R ( R * S b X P Q R ;A [ [ : P Q R ;A [ [ : Q R P ;A [
0x25d1cc…25d360 Dummy {f00=0x0074, f01=0x0190, f02=» M _8 > & D LW 0P Q P P E +P W : X + P X L 1 Y L : L 4W 0P8 R Q P W R D + Q ( 0 5 @ 1 A Z> : D NW (P D + I W6 @WLT n ( AWL U 1_ D + I D N ) E N : T * Y SP P W
0x25d360…25d4f4 (2, 26) Dummy {f00=0x0074, f01=0x0190, f02=» W& X ^ Y ^ B I ~ B T B : X "? P P X T _ X . P X $ ! # C W C C X %? : X &_ 0 D . P , _ D . D $ D * X T ( T & ^ S W : U ; $ T $ T
0x25d4f4…25d688 Dummy {f00=0x0074, f01=0x0190, f02=»$ T* (W $ U $ ) Y _& (# )_4 $ ($ ) YR_L U p 0_8 $_< ! * j * kLv$^La dhf g6 > > @] 0 A] W D ^ ! Z( ] (X0 @] P T M ]@ , ) A] P* P Y U ( ) 5 & > >
0x25d688…25d81c Dummy {f00=0x0074, f01=0x0190, f02=»R< X T6 X T0. T G Y6 G _b P ,P - _ ( ^T `P Y U -P -P R _ X , ) Y . _ 8!@P$ X $P y $W $ F ` ` Y $ B P T B % X . $ 4 T % W X ,T ! P W ` Y . V ` ! ^ B _T
0x25d81c…25d9b0 Dummy {f00=0x0074, f01=0x0190, f02=» W ` W !` * T ! ^ X $P y $ Y $ C ! Z ]: 0 Z ` ! ^ B Z ZX X . 0T N W X ,P Y . 0 %_. % Y . _t _ P ` _ ?" 8 T ! )_ W ! T "? 9 0 R Q > 4 >_ <k$ Y T #? 0R R * W ?W X P $ <c
0x25d9b0…25db44 Dummy {f00=0x0074, f01=0x0190, f02=» NT 0 (@ > d a6 c c !"&';<>@^_ 9: X ! Y Ma.P ^ ]6 Y La^anana bPa a b b ! ! ! W B W$ B L # 9Q T W Q P X & V T Y &W a X ! T6 B R0Q$ B D ! V ! ! ! W !dH
0x25db44…25dcd8 Dummy {f00=0x0074, f01=0x0190, f02=» !d Y &P Q W ! Y '" c _" a _< !c _n !d._t B B , ! T _ D ! P ! P W C V B P ! ! ! Y 4 RNQ " PH _ " P R: M T2 ! L ,! :D" !c Y Y U ! _$ W4 , ! T ,' a" ! R !__U
0x25dcd8…25de6c Dummy {f00=0x0074, f01=0x0190, f02=» aD ]> R _ 4 ! ! ! " T ! ! ! ! 4 X ' 4 Y ' a ! ! " P ,$ , ! 4!"$&;<>@^_ dr e fbf PB P8 ]6 B P B L # +P ! ! T ! Y & ! W ! ! W ! Y Y e U
0x25de6c…25e000 Dummy {f00=0x0074, f01=0x0190, f02=» Y Y Y _ " HdZ_ ! ! e D ]> X C _ X Y & Y > B B U$ $ ! T _ U D ! T _ C > X Z^<BR P j X _x R0 V0 ! P* P P P" R ?Q ! Y R Q e -_ ? _ X # ! ^ Y
0x25e000…25e194 (2, 27) Dummy {f00=0x0075, f01=0x0190, f02=» 7P P ]6 Y W Y X Y 8# T W$ T( X $ P X P B V *@ Y ]> ]: ? X _F gFkBi i i i6 ! P P h & h ]6 B P B H " +P P. T Y ' ! R| X ( Y &R Y & _ Y &_. B 1 jv ! il B
0x25e194…25e328 Dummy {f00=0x0075, f01=0x0190, f02=» ! T 9 _ ! T @_ ! B P !j B C i ^N P R ?] _ C _ " $ P X ' X ] ! il h B !k& !j ! i6 B Y & !j W h 8!0T 8 !@P ! $ P ! ! i ! T Y & T X &
0x25e328…25e4bc Dummy {f00=0x0075, f01=0x0190, f02=» iH T _ ! X $ P !j@ h R V P P" ! ilW i X $ X !j@_ X $ X X & !j !j Y _8 X " X &" Y )U W ! ! ! Y 4 B g U )X R@ X X &" Y * X ) V Y !j X $ X
0x25e4bc…25e650 Dummy {f00=0x0075, f01=0x0190, f02=»R 4 i > tRu B P ! B C ^N P R ?] _ C _ " $ P X ' X ] ! h B ! ! ! B Y & ! W h 8!0T 8 !@P ! $ P ! ! ! T Y & T X &
0x25e650…25e7e4 Dummy {f00=0x0075, f01=0x0190, f02=» iH T _ ! X $ P ! h R V P P ! ilW i X $ X ! _ X $ X X & ! ! Y _8 X " X &" Y )U W ! ! ! Y 4 B g U )X R X X &" Y * X ) V Y ! X $ X
0x25e7e4…25e978 Dummy {f00=0x0075, f01=0x0190, f02=»R 4 i > B P ! B C ^N P R ?] _ C _ " $ P X ' X ] ! h B ! ! ! B Y & ! W h 8!0T 8 !@P ! $ P ! ! ! T Y & T X &
0x25e978…25eb0c Dummy {f00=0x0075, f01=0x0190, f02=» iH T _ ! X $ P ! h R V P P ! ilW i X $ X ! _ X $ X X & ! ! Y _8 X " X &" Y )U W ! ! ! Y 4 B g U )X R X X &" Y * X ) V Y ! X $ X
0x25eb0c…25eca0 Dummy {f00=0x0075, f01=0x0190, f02=»R 4 i > B P ! B C ^N P R ?] _ C _ " $ P X ' X ] ! h B ! ! ! B Y & ! W h 8!0T 8 !@P ! $ P ! ! ! T Y & T X &
0x25eca0…25ee34 (2, 28) Dummy {f00=0x0075, f01=0x0190, f02=» iH T _ ! X $ P ! h R V P P ! ilW i X $ X ! _ X $ X X & ! ! Y _8 X " X &" Y )U W ! ! ! Y 4 B g U )X R X X &" Y * X ) V Y ! X $ X
0x25ee34…25efc8 Dummy {f00=0x0075, f01=0x0190, f02=»R 4 i > B P ! B C ^N P un P P .T B Y Wx B P X P ( ( 7 R ( P H RN H P ' P kPP W< kRT6 u ' P !u D B # P G W G D ]> X P P R: Au
0x25efc8…25f15c Dummy {f00=0x0075, f01=0x0190, f02=» u _ ( Y _ kR_ i u 9 @_ u H kPP kRP $ $ 1 ) > ) $P e % > (@ B Z F U F Z kL P U ]: C G 4 ( v, xL Y U R -P x@ X , ) Y . x, 8!@P$ X $P y $W $ F x , Y $ X
0x25f15c…25f2f0 Dummy {f00=0x0075, f01=0x0190, f02=» X . $ 4 T % x X ,T ! P x< y Y . V y ! ^ B P X " _` B P$ $$ R % C y * ! ^W Y +PH Y *P> Y (P Y )P y R _Q P OR R W " ! ^ B v Wr W 0 Z y ! ^ B Z Z& X . 0T N W X ,P Y .
0x25f2f0…25f484 Dummy {f00=0x0075, f01=0x0190, f02=» y $ x P8 X R2;GV. X " v X , $4 P y X .T * W Y , - ]> @ Y $ X Z _X ? X :a Z T T W P X :d Y > > ? 8 R @RT V @% =cWP R`P R&P8 R P W 9 WD $ P W _ $ P _$ _*_, _ %0=c X 0P
0x25f484…25f618 Dummy {f00=0x0075, f01=0x0190, f02=» T %_< %_B R @ U P 9C @ _ T M D W. D D " @ @ - U _ 9B @ T W X > "RT PL X TF X R@? V X & X H P D X P t Y X H P D < ? < ? <(@ {T $ P B $ 9H C "
0x25f618…25f7ac Dummy {f00=0x0075, f01=0x0190, f02=» 00 > & <h$ P > X :d Y > > ? 8 R @RT @{~P 4 A{~ U W A{~ A{| @{ U : A{ A{ :A A{ , ` R @ U P. ,% T&
0x25f7ac…25f940 Dummy {f00=0x0075, f01=0x0190, f02=»T T 9a H{ E{ ^ W P ,! T T ( : n "' # { @{|P {~ $ ) 5 ]> A{| A{ A{ { " { A{ "" P U W |, { P @{ E{ "# P P @{ P ( )W @ 0 R % "V E T D A{ _"
0x25f940…25fad4 (2, 29) Dummy {f00=0x0075, f01=0x0190, f02=»{ ]> | ~t X :d Y > > ? 8 R @RT @{~P 4 A{~ U W A{~ A{| @{ U : A{ A{ :A A{ , ` R @ U P ,% T
0x25fad4…25fc68 Dummy {f00=0x0075, f01=0x0190, f02=»T T 9a H{ E{ ^ W P ,! T T ( : n "' # @{|P {~ $ ) 5 ]> A{| A{ A{ { " { A{ "" P U W |, { P @{ E{ "# P P @{ P ( )W @ 0 R % "V E T D A{ _"
0x25fc68…25fdfc Dummy {f00=0x0075, f01=0x0190, f02=»{ ]> | Z :d Y > > ? 8 R @RT @{~P 4 A{~ U W A{~ A{| @{ U : A{ A{ :A A{ , ` R @ U P ,% T
0x25fdfc…25ff90 Dummy {f00=0x0075, f01=0x0190, f02=»T T 9a H{ E{ ^ W P ,! T T ( : n "' # @{|P {~ $ ) 5 ]> A{| A{ A{ { " { A{ "" P ~t |, { P @{ E{ "# P P @{ P ( )W @ 0 R % "V E T D A{ _"
0x25ff90…260124 Dummy {f00=0x0075, f01=0x0190, f02=»{ ]> | :d Y > > ? 8 R @RT @{~P 4 A{~ U W A{~ A{| @{ U : @~p , L T L PF L T M Q M L V L A~r
0x260124…2602b8 Dummy {f00=0x0075, f01=0x0190, f02=» - _ - > @ HPJ r R WL WN AWL X @~p , - M M M @~p A{| A{~ > !"#$%& () +,-./ 6 f 0123456789 & 0123456789 & < +.-, 0123456789
0x2602b8…26044c Dummy {f00=0x0075, f01=0x0190, f02=» 0123456789 & 0123456789 & < +.-, 0123456789 `ABCDEFGHIJKLMNOPQRSTUVWXYZ []' > ?:_; =!"#$%&/() @ABCDEFGHIJKLMNOPQRSTUVWXYZ []* ($SWAP A A A A.
0x26044c…2605e0 Dummy {f00=0x0075, f01=0x0190, f02=» : R W2 A A P. _ " :c* A W " :d2 * A 4 Z & W F ` W F W F CRT F A @ @ ! P2 @ P ;b=H F CR j F jW =J F CRTT F PN A @ $ P( @ R W 8 !RRT W V P
0x2605e0…260774 (2, 30) Dummy {f00=0x0075, f01=0x0190, f02=»Y P @ T W - P _ T <B :L A W A A W T F W V = V W Y* P Z( = :L < P W <9B @ V W Q W @
0x260774…260908 Dummy {f00=0x0075, f01=0x0190, f02=» W _: V @ PZ W @ @ ! T _ P :l 9b ) V _ @ V W W P TJ V 0 !;;P P V P$ _ P !;;T X$ W _J
0x260908…260a9c Dummy {f00=0x0075, f01=0x0190, f02=» X$ W nP XZ_V S A M A @ R @ ! T A A V @ R V V I W V $ ) H A I. : C. X C.9h! # " :A K : A T.I T P 1
0x260a9c…260c30 Dummy {f00=0x0075, f01=0x0190, f02=»9B r @ r A I ! ( : A A A A 0 A ! T A A I ! : 9E @ r s A I T ) A _ I N T : 0 9PJ S Y T@ $ 1T: C !CCTt : 1P P$_ P =H P @ T X W n
0x260c30…260dc4 Dummy {f00=0x0075, f01=0x0190, f02=» W : @ ' R xW V W$ V P P W P V V T V T W P V W @ $ P p W T : A _ 0V , - P X 9A_ : @ ! P (W ( :W> 2 W 0 . " A T I T P 1
0x260dc4…260f58 Dummy {f00=0x0075, f01=0x0190, f02=» j A A A A ! T A W Z A. c @ V W U R $ )_ : W W W W W Q@ V V v x W V V v p R( W V W
0x260f58…2610ec Dummy {f00=0x0075, f01=0x0190, f02=»V H Z K W W :K W r Q R t V v : V W V ) : V <B W |P v v : $ V |P v w v : V $ V l $ V M : W V
0x2610ec…261280 Dummy {f00=0x0075, f01=0x0190, f02=» P j W x _ V : " D Pd W V PL $;A^ D E D P. V P P T E _J E _T " D T E E D E % : " R ;B " R P( |P v v : V
0x261280…261414 (2, 31) Dummy {f00=0x0076, f01=0x0190, f02=» : , X G : J @ 0 V @ 0 H W : ? ? R 0 R P P B _ ]" : V ) v : 4P: " D , H H $ M v b - I Y0 : @ ` V b p
0x261414…2615a8 Dummy {f00=0x0076, f01=0x0190, f02=» N V W $ | V E J K _N V r V :B A V 9n A @ A A , @ @ ! @ P P P P|_ _ @ 9N @ :b @ :b V W U6 T 9BW P P( P V W U " @
0x2615a8…26173c Dummy {f00=0x0076, f01=0x0190, f02=»Y& P4 S P 3 _ 3 B A. @ D @ W x A ( : A ]> > l : R j W n V pT : N V l W H V ]" . nT" W v W n V ~P W x
0x26173c…2618d0 Dummy {f00=0x0076, f01=0x0190, f02=» G v : P j V : V ~P W x _$ 8 V V x % V v % : V V 9k! P % _ V V W W r W V v ) W b G v ) - V W f v ) G v ` "
0x2618d0…261a64 Dummy {f00=0x0076, f01=0x0190, f02=» % T R , " E R D W ~ R D R P R Xv _|W T : j W x _ V P I b W z ` pPl H - V I N " R E R T E D E @ v H v E |
0x261a64…261bf8 Dummy {f00=0x0076, f01=0x0190, f02=»=H N .=H N N : d 8" R _ ZY QY : @ V H W z W | CRP W ` ` H W d 2 ;A @ R - @ - N !TTP N :H N TBT W W8 2 " T @
0x261bf8…261d8c Dummy {f00=0x0076, f01=0x0190, f02=» _ R :h " ` YV : v `?A @ W W :b / W : W @ W D V W W ` " W p @ pP. " 4X 1 R Z0 _ W l a
0x261d8c…261f20 Dummy {f00=0x0076, f01=0x0190, f02=» W t V V : x A P W r W @ @ % ^ V , P@ , - 4 ] 4 Y 5 X * _6 : @ ] @ P @ P " P " P " P W W . !TTP
0x261f20…2620b4 (2, 32) Dummy {f00=0x0076, f01=0x0190, f02=» : @ " P @ P 3 _ @ " P S 1 S 9J S ( 3 ( 9B @ @ T : @ :B W . !TTP W t N =H N W l N =H N W p N =H N W | ( @ % P W @ % P
0x2620b4…262248 Dummy {f00=0x0076, f01=0x0190, f02=» V V tPJ S ( V | S =J @ " S V l S W l V p S W p W _L @ % P W @ % P " !TTT ( @ @ T : @ ! P @ @ N CRT 3 @ N N S @ N PP
0x262248…2623dc Dummy {f00=0x0076, f01=0x0190, f02=» ` @ P _ 3 S S V V W @ @ T : P S S _ : . !TTP V W t * P r _ Ph W p W V 8 8 4 D P$
0x2623dc…262570 Dummy {f00=0x0076, f01=0x0190, f02=» : " @ R @ T P / _ T @ A V W W t PT W f ( W d $ G =h G V d V r < V f P W f _B V W V t Yr " !TTX @ @ T
0x262570…262704 Dummy {f00=0x0076, f01=0x0190, f02=» V 4 U $ $ _. @ @ @ ! P V 8 8 8 @ >B 3 . !CCP W P0 W f W d V d V r < V f _2 U^ V 8 8 8 4 D P$ @ # P H I K
0x262704…262898 Dummy {f00=0x0076, f01=0x0190, f02=» ( V @ 0 V P _ W $ q > R P >b W >b & 8P D P U & E W V W R 9 W D ) $ P@ D L T@ D &P V U 0 I , I . $# P V -W H P U & I @ % PD H I H T P( H U
0x262898…262a2c Dummy {f00=0x0076, f01=0x0190, f02=» W W,# T W W # T W W W R _ $ W : W | v z *T P _ / P *_ *T P$ _ .P _ / V z U Y$ P W | V z 3 % W P _ V
0x262a2c…262bc0 Dummy {f00=0x0076, f01=0x0190, f02=» F =H F : F =H F : P N =H N T "_ : 00=H 00 P P _ _ : @ ! P (W ( : R ~ @ N CRT" @ ! P ` @ E "W ` @ E " 0 R 1 R 2
0x262bc0…262d54 (2, 33) Dummy {f00=0x0076, f01=0x0190, f02=» ,kM j kT ,kL kT . DC @ v$KB * *_
0x262d54…262ee8 Dummy {f00=0x0076, f01=0x0190, f02=»KB =H F @ 8g6DY l ~ P v$KB E "W ` ,
0x262ee8…26307c Dummy {f00=0x0076, f01=0x0190, f02=» j P 4dhGP . DC @ v$KB * *_
0x26307c…263210 Dummy {f00=0x0076, f01=0x018e, f02=» CR SALCUZ P ABR* A5 RETURN SALCUZ P XIF SALCUZ 0 P* F P* P P* HALT INPUT Z P* n P* x PHALTIN LDK A1,0 SALCUZ P CIO A1,0,LCUIN P IFT P6805=0 SALCUZ 4 P RB SST PERFORM SST INSTRUCTION AND STATUS CHECK
0x263210…2633a4 Dummy {f00=0x0076, f01=0x0190, f02=» P* P* , P* WRITE FROM OR READ ONE CHARACTER TO A2 P* H P* R PWRITE EQU * P IFT CODE=1 p P ANK A2,/FF P CWK A2,/FF 0 P RF(E) WRIT05 NO TRANSLATION OF TRAILING PAD * P LC A2,TEBCDIC,A2 TRANSLATE TO EBCDIC
0x2633a4…263538 Dummy {f00=0x0076, f01=0x0190, f02=» CODE=1 $ PWRIT10 XRR A7,A2 ACCUMULATE BCC P XIF 8 P IFT CODE=1 D & PWRIT10 CF A5,CRCCAL CALCULATE CRC X P XIF P IFF LOGG=0 & P CF A5,LOGOUT LOG OUTPUT CHARACTER P XIF P* PREAD CF A15,STREG P ABL TDISP
0x263538…2636cc Dummy {f00=0x0076, f01=0x018e, f02=»0 SALCUZ PWRITEP ANK A2,/FF P ECR A1,A2 , P ORK A2,/80 > PWRI100 SLL A1,1 R P RB(P) WRI100 j P RB(Z) WRITE WRITE P XRK A2,/80 P RB WRI100 P XIF P IFF CODE+P6805=0 SALCUZ PWRITEP RB WRITE P X
0x2636cc…263860 Dummy {f00=0x0076, f01=0x0190, f02=» PREADP CF A5,READ P IFT CODE+P6805=0 SALCUZ P ECR A1,A2 > PRE100 SLL A1,1 P P RF(Z) RE110 f P RB(NN) RE100 z P XRK A2,/80 P RB RE100 PRE110 LDR A1,A2 P ANK A2,/7F P XIF P IFF CODE+P6805=0 SALCUZ
0x263860…2639f4 (2, 34) Opaque[0x194]
0x2639f4…263b88 # DirEnt {nam=»CTAB01«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0ed8, f03=0x0000}
0x2639f4…263b88 IdxSect {
0x2639f4…263b88 f00 = 0x0076 // 0x2639f4 @0x0
0x2639f4…263b88 f01 = 0x0004 // 0x2639f6 @0x2
0x2639f4…263b88 gno = [ // 0x2639f8 @0x4
0x2639f4…263b88 [0x00]: C0x0076.0x3.0
0x2639f4…263b88 [0x01]: C0x0077.0x0.0
0x2639f4…263b88 ]
0x2639f4…263b88 }
0x263b88…263d1c Dummy {f00=0x0076, f01=0x018e, f02=» . * IDENT CTAB01 80.07.25/NJ NORDJYLLANDS AMT ENTRY CTAB01 6 2 -CTAB01 DATA FUNC,FUNCSH,UNSC,SHIFT,UNSC,SHIFT L * FUNC EQU * P DATA /7F81 A15,B15 DATA /888A B16,B17 DATA /8482 C15,C16 P DATA /838E C17,D15
0x263d1c…263eb0 Dummy {f00=0x0076, f01=0x0190, f02=» DATA /3233 DATA /3435 DATA /3637 , DATA /3839 @ DATA /BA26 A20,A21 T DATA /ABB3 A22,C22 p DATA /B292 D22,D23 DATA /A1A0 E15,E17 DATA /AEAF E18,E19 DATA /8C80 E20,E21 DATA /B0B1
0x263eb0…264044 Dummy {f00=0x0076, f01=0x0190, f02=»1 A15,B15 DATA /888A B16,B17 DATA /8482 C15,C16 . P DATA /838E C17,D15 J DATA /9394 D16,D17 f DATA /8586 A16,A17 DATA /AA89 A18,C18 DATA /8BA5 D18,A23 DATA /3031 DATA /3233 DATA /343
0x264044…2641d8 Dummy {f00=0x0076, f01=0x018e, f02=»ATA /A1A0 E15,E17 DATA /AEAF E18,E19 DATA /8C80 E20,E21 6 DATA /B0B1 E22,E23 R DATA /7F7F n DATA /7F7F DATA /7F7F DATA /7F7F P* PUNSC EQU * P DATA /207F A01 P DATA /7F7F P D
0x2641d8…26436c Dummy {f00=0x0076, f01=0x0190, f02=» ~ P DATA /3031 P DATA /3233 P DATA /3435 0 P DATA /3637 D P DATA /3839 X P DATA /ACA9 B12,C13 l P DATA /ADA7 E13,D13 P DATA /A8A6 D14,E14 P DATA /6041 E12 P DATA /4243 P DATA /4445 P DATA /4
0x26436c…264500 Dummy {f00=0x0076, f01=0x0190, f02=»A /5455 P DATA /5657 P DATA /5859 $ P DATA /5A5C 8 P DATA /5B5D L P DATA /277F D12 ` P* x PSHIFT EQU * P DATA /207F A01 P DATA /7F7F P DATA /7F7F P DATA /7F7F P DATA /B63E E00,A00 P D
0x264500…264694 (2, 35) Dummy {f00=0x0077, f01=0x018e, f02=»ATA /262F P DATA /2829 P DATA /ACA9 B12,C13 & P DATA /ADA7 E13,D13 B P DATA /A8A6 D14,E14 ^ P DATA /4041 E12 z P DATA /4243 P DATA /4445 P DATA /4647 P DATA /4849 P DATA /4A4B P DATA /4C4D
0x264694…264828 Dummy {f00=0x0077, f01=0x404e, f02=» P DATA /5B5D P DATA /2A7F D12 P* 4 END >@ JE13,D13 B P DATA /A8A6 D14,E14 ^ P DATA /4041 E12 z P DATA /4243 P DATA /4445 P DATA /4647 P DATA /4849 P DATA /4A4B P DATA /4C4D
0x264828…2649bc Dummy {f00=0x0077, f01=0x2008, f02=» 233 DATA /3435 DATA /3637 ( DATA /3839 < DATA /BA26 A20,A21 P DATA /ABB3 A22,C22 l DATA /B292 D22,D23 DATA /A1A0 E15,E17 DATA /AEAF E18,E19 DATA /8C80 E20,E21 DATA /B0B1 E22,
0x2649bc…264b50 Dummy {f00=0x0077, f01=0x0190, f02=»ORE DISPLAYING H p P LD A1,ECBVDU+ECBBA,CREBAS I P SC A5,1,A1 =1 I : P LDK A5,/1E I R P ADK A1,2 NEXT POS I f ( P SCR A5,A1 LOW INT, STORE IN BUFFER I P LDR A6,A3 I $ P ANK A3,/4 STANDARD DISPLAYING? I P RF(Z) ANC200 YES I & P ANK A6,
0x264b50…264ce4 Dummy {f00=0x0077, f01=0x0190, f02=»5,/1F SET HIGH INTENSITY I P SCR A5,A1 STORE IN BUFFER J ( PANC200 LDR A2,A4 UPDATE A2 WITH CHAR J B 0 PANC250 CF A14,WCHAR DISPLAY CHAR AND CURSOR J n & P LD A2,PCURS,TCABAS GET CURSOR POS J P ADK A2,1 J PANC252 EQU * J P CWK A2,LBVDU J P
0x264ce4…264e78 Dummy {f00=0x0077, f01=0x018e, f02=»F ATTRIBUTE CHAR? J P RF(G) ANC300 NO K P K 2 ( P CF A14,TAB SKIP TO NEXT UNPROTECTED K : PANC300 EQU * K f P LD A1,ECBCW,A8 CONTROL WORD K z P ANK A1,X'FF' LINE POSITION K ( P SUK A1,80 LAST POSITION ON LINE ?? K P RF(NZ) ANC350 NO!!! K :
0x264e78…26500c Dummy {f00=0x0077, f01=0x0190, f02=» 8 P*************************************************** L P* L @ < P* DELETE CHARACTER AT CURSOR POSITION. SHIFT CARACTERS L J . P* AT SAME LINE ONE POSITION TO THE LEFT L P* L @ P************************************************************ L
0x26500c…2651a0 Dummy {f00=0x0077, f01=0x0190, f02=» CWR A6,A2 LAST POSITION ON CURRENT LINE?? L $ P RB(L) DEL:10 NO!! TRY NEXT LINE M 2 P M Z * P CF A14,S:ATT SEARCH ATTRIBUTE FORWARD M b P SUK A1,2 ATTRIBUTE FOUND ?? M P RF(Z) DEL:20 NO!! M . P CWR A2,A6 ATTRIBUTE AFTER END OF LINE ?? M P RF(G) D
0x2651a0…265334 (2, 36) Opaque[0x194]
0x265334…2654c8 # DirEnt {nam=»CTAB03«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0ee8, f03=0x0000}
0x265334…2654c8 IdxSect {
0x265334…2654c8 f00 = 0x0077 // 0x265334 @0x0
0x265334…2654c8 f01 = 0x0004 // 0x265336 @0x2
0x265334…2654c8 gno = [ // 0x265338 @0x4
0x265334…2654c8 [0x00]: C0x0077.0x1.0
0x265334…2654c8 [0x01]: C0x0077.0x2.0
0x265334…2654c8 ]
0x265334…2654c8 }
0x2654c8…26565c Dummy {f00=0x0077, f01=0x018e, f02=» . P IDENT CTAB03 80.07.25/NJ NORDJYLLANDS AMT P ENTRY CTAB03 6 2 PCTAB03 DATA FUNC,FUNCSH,UNSC,SHIFT,UNSC,SHIFT L * FUNC EQU * P DATA /7F81 A15,B15 DATA /888A B16,B17 DATA /8482 C15,C16 P DATA /838E C17,D15
0x26565c…2657f0 Dummy {f00=0x0077, f01=0x0190, f02=» DATA /3233 DATA /3435 DATA /3637 , DATA /3839 @ DATA /BA26 A20,A21 T DATA /ABB3 A22,C22 p DATA /B292 D22,D23 DATA /A1A0 E15,E17 DATA /AEAF E18,E19 DATA /8C80 E20,E21 DATA /B0B1
0x2657f0…265984 Dummy {f00=0x0077, f01=0x0190, f02=»1 A15,B15 DATA /888A B16,B17 DATA /8482 C15,C16 . P DATA /838E C17,D15 J DATA /9394 D16,D17 f DATA /8586 A16,A17 DATA /AA89 A18,C18 DATA /8BA5 D18,A23 DATA /3031 DATA /3233 DATA /343
0x265984…265b18 Dummy {f00=0x0077, f01=0x018e, f02=»ATA /A1A0 E15,E17 DATA /AEAF E18,E19 DATA /8C80 E20,E21 6 DATA /B0B1 E22,E23 R DATA /7F7F n DATA /7F7F DATA /7F7F DATA /7F7F P* PUNSC EQU * P DATA /207F A01 P DATA /7F7F P D
0x265b18…265cac Dummy {f00=0x0077, f01=0x0190, f02=» ~ P DATA /3031 P DATA /3233 P DATA /3435 0 P DATA /3637 D P DATA /3839 X P DATA /ACA9 B12,C13 l P DATA /ADA7 E13,D13 P DATA /A8A6 D14,E14 P DATA /6041 E12 P DATA /4243 P DATA /4445 P DATA /4
0x265cac…265e40 Dummy {f00=0x0077, f01=0x0190, f02=»A /5455 P DATA /5657 P DATA /5859 $ P DATA /5A5C 8 P DATA /5B5D L P DATA /277F D12 ` P* x PSHIFT EQU * P DATA /207F A01 P DATA /7F7F P DATA /7F7F P DATA /7F7F P DATA /B63E E00,A00 P D
0x265e40…265fd4 (2, 37) Dummy {f00=0x0077, f01=0x018e, f02=»ATA /262F P DATA /2829 P DATA /ACA9 B12,C13 & P DATA /ADA7 E13,D13 B P DATA /A8A6 D14,E14 ^ P DATA /4041 E12 z P DATA /4243 P DATA /4445 P DATA /4647 P DATA /4849 P DATA /4A4B P DATA /4C4D
0x265fd4…266168 Dummy {f00=0x0077, f01=0x404e, f02=» P DATA /5B5D P DATA /2A7F D12 P* 4 END >@ JE13,D13 B P DATA /A8A6 D14,E14 ^ P DATA /4041 E12 z P DATA /4243 P DATA /4445 P DATA /4647 P DATA /4849 P DATA /4A4B P DATA /4C4D
0x266168…2662fc Dummy {f00=0x0077, f01=0x2008, f02=» 233 DATA /3435 DATA /3637 ( DATA /3839 < DATA /BA26 A20,A21 P DATA /ABB3 A22,C22 l DATA /B292 D22,D23 DATA /A1A0 E15,E17 DATA /AEAF E18,E19 DATA /8C80 E20,E21 DATA /B0B1 E22,
0x2662fc…266490 Dummy {f00=0x0077, f01=0x0190, f02=» , P* SPECIAL KEYS FOR ECHO FUNCTION * * P************************************** 4 P* b PGPBSP EQU /2D BACK SPACE l PGPCLR EQU /3F CLEAR P* P******************** P* RETURN CODES * P******************** P*
0x266490…266624 Dummy {f00=0x0077, f01=0x0190, f02=»OPERR EQU /1 NOT OPERABLE, POWER OFF P* , P EJECT 6 P* D P* N P********** X P* TABLES * j P********** | P* P* P IFT CROOM=1 P* PROMTAB EQU * * P TABLE FOR ROOMLESS POINT CHARACTERS ( P DATA
0x266624…2667b8 Dummy {f00=0x0077, f01=0x0190, f02=»DEVICE INDEX PGPAD EQU * ADDRESS BLOCK P DATA ACGP ACTIVATION DRIVER 4 " P DATA 0 ABORT ROUTINE ADDRESS X P DATA IHGP INTERRUPT HANDLER ~ P DATA RCGP RECOVERY ROUTINE . P DATA ECHOGP DEVICE-DEPENDENT ECHO-ROUTINE P EJECT P*
0x2667b8…26694c Dummy {f00=0x0077, f01=0x0190, f02=»IS SENT TO PRINTER AND RETURN CODE n < P* IS SET IF PAPER OUT OR READY SWITCH OFF. * H P* RETURN CODE IS ALSO SET IF TIME-OUT IS SIGNALLED FROM j P* CHANNEL UNIT. P* > P* ORDER 05: BASIC WRITE. CHARACTE
0x26694c…266ae0 Dummy {f00=0x0077, f01=0x0190, f02=»TER FROM V < P* ECB-BUFFER AFTER INDIVIDUAL CODE CHECK. P* P PACGP EQU * Z P LDK A2,STX START OF MESSAGE l P LDR A3,A7 =1 P RF(Z) ACGP10 ORDER 0 =2 P SUK A3,5 =1 P RF(E) ACGP09 ORDER 5 =1 P SUK A3,1 =
0x266ae0…267780 (3, 0) DirGranule ((3, 0)) {
0x266ae0…267780 DirEnt {nam=»INT:PR«, typ=»OD«, f00=0x0000, f01=0x0000, f02=0x0ef8, f03=0x0000}
0x266ae0…267780 DirEnt {nam=»/OBJCT«, typ=»OB«, f00=0x019a, f01=0x0198, f02=0x0f00, f03=0x0008}
0x266ae0…267780 }
0x267780…267914 (3, 1) Opaque[0x194]
0x267914…267aa8 # DirEnt {nam=»/OBJCT«, typ=»OB«, f00=0x019a, f01=0x0198, f02=0x0f00, f03=0x0008}
0x267914…267aa8 IdxSect {
0x267914…267aa8 f00 = 0x0078 // 0x267914 @0x0
0x267914…267aa8 f01 = 0x0030 // 0x267916 @0x2
0x267914…267aa8 gno = [ // 0x267918 @0x4
0x267914…267aa8 [0x00]: C0x0078.0x0.0
0x267914…267aa8 [0x01]: C0x0078.0x1.0
0x267914…267aa8 [0x02]: C0x0078.0x2.0
0x267914…267aa8 [0x03]: C0x0078.0x3.0
0x267914…267aa8 [0x04]: C0x0079.0x0.0
0x267914…267aa8 [0x05]: C0x0079.0x1.0
0x267914…267aa8 [0x06]: C0x0079.0x2.0
0x267914…267aa8 [0x07]: C0x0079.0x3.0
0x267914…267aa8 [0x08]: C0x007a.0x0.0
0x267914…267aa8 [0x09]: C0x007a.0x1.0
0x267914…267aa8 [0x0a]: C0x007a.0x2.0
0x267914…267aa8 [0x0b]: C0x007a.0x3.0
0x267914…267aa8 [0x0c]: C0x007b.0x0.0
0x267914…267aa8 [0x0d]: C0x007b.0x1.0
0x267914…267aa8 [0x0e]: C0x007b.0x2.0
0x267914…267aa8 [0x0f]: C0x007b.0x3.0
0x267914…267aa8 [0x10]: C0x007c.0x0.0
0x267914…267aa8 [0x11]: C0x007c.0x1.0
0x267914…267aa8 [0x12]: C0x007c.0x2.0
0x267914…267aa8 [0x13]: C0x007c.0x3.0
0x267914…267aa8 [0x14]: C0x007d.0x0.0
0x267914…267aa8 [0x15]: C0x007d.0x1.0
0x267914…267aa8 [0x16]: C0x007d.0x2.0
0x267914…267aa8 [0x17]: C0x007d.0x3.0
0x267914…267aa8 ]
0x267914…267aa8 }
0x267aa8…267c3c Dummy {f00=0x0078, f01=0x40e0, f02=» @ @ IDENT DEFDOC P,REL=4.1,79-05-23,870136940410 DEFDOC H DEFDOC Z T:FDSP n I:EVA0 T:IO2 $ H @ LDK A7,X'1B'+X'80' ORDER + WAIT P
0x267c3c…267dd0 Dummy {f00=0x0078, f01=0x4112, f02=» @ @ IDENT FMOVE P,REL=4.1,79-05-23,870136940410 FMOVE H FMOVE X I:EVA0 j I:EVA5 | , ( B & + P I:RT1 _ P (
0x267dd0…267f64 Dummy {f00=0x0078, f01=0x40ce, f02=» @ @ IDENT TYPET P,REL=4.1,79-05-23,870136940410 TYPET H TYPET X I:EVA0 j I:RT1 | ( $ D ;d # + @
0x267f64…2680f8 Dummy {f00=0x0078, f01=0x40fe, f02=» @ @ IDENT ICLEAR P,REL=4.1,79-05-23,870136940410 ICLEAR H ICLEAR Z I:EVA0 n I:RT1 , ( @ #0 0T ' ' _ T $ @
0x2680f8…26828c Dummy {f00=0x0078, f01=0x411e, f02=» @ @ IDENT EMPTYT P,REL=4.1,79-05-23,870136940410 EMPTYT H EMPTYT Z I:EVA0 n , ( @ #0 0T & ! T I:RT1 , ( P & ! X T C T T !P
0x26828c…268420 Dummy {f00=0x0078, f01=0x0190, f02=» @ @ IDENT T:STIN P,REL=4.1,79-05-23,870136940410 STRIN1 H STRIN1 Z T:STEV n , ( @ X x & Y " X R W T:RNOK T:LOFS , ( P _ Y $ I
0x268420…2685b4 (3, 2) Dummy {f00=0x0078, f01=0x4118, f02=» " j , ( u R W V R W V I:MOV : T:GRFC J , ( % _ " D $ D T:ROK & " @ X $ X y & 8 4 R W 'P [ eP gW2 wR {W V R W V
0x2685b4…268748 Dummy {f00=0x0078, f01=0x0190, f02=» @ @ IDENT T:STOU P,REL=4.1,79-05-23,870136940410 STROU1 H STROU1 Z T:STEV n T:LOFS * & @ X x & Y " I:EVA0 T:LOPS , ( !0P
0x268748…2688dc Dummy {f00=0x0078, f01=0x4100, f02=» R W V t T:DUPX T:GRFC & , ( y & Y $ 8 " X X 8 T:ROK h T:RNOK x $ x ( y $ 4 0 1P< ;T( AT GW$ WP cW mW wP R W V, @ !0P
0x2688dc…268a70 Dummy {f00=0x0078, f01=0x40f6, f02=» @ @ IDENT T:STEV P,REL=4.1,79-05-23,870136940410 T:STEV H T:STEV Z T:GRFC n I:EVA0 , ( H Y Y & ( : & @ I:ERR2 ILLEGAL TY
0x268a70…268c04 Dummy {f00=0x0078, f01=0x018e, f02=» @ @ IDENT T:EDFL P,REL=4.1,79-05-23,870136940410 T:EDFL H T:EDFL Z T:PM1 n T:PM2 ~ T:CASP , ( I Y ( x P Y * , ( x y W X " T:DUP
0x268c04…268d98 Dummy {f00=0x0078, f01=0x0190, f02=» , ( w V X ( x C T:CSEG 8 T:SCUW J , ( ( Y * X Y , , ( X X C & C C , ( ( B P 9 T:IOER , ( R
0x268d98…268f2c Dummy {f00=0x0078, f01=0x0190, f02=» T:BELL , ( K _ _ B U C Q C T:CLR1 @ T:CLR2 R , ( i @ D X X * d , ( $" ~_> @ Y X * _R X !@ , ( XX y X # x V y X X , ( * P
0x268f2c…2690c0 Dummy {f00=0x0078, f01=0x416a, f02=» y X 1 1 X , ( ? !@T X $ " P y _ $ T:CLIT T T:EKEY f , ( _ x T X H X x $ { X * , )$ P _ : H D !T P l )Wz 9 UP m l yV* Ph R^ PP +P ET YU
0x2690c0…269254 (3, 3) Dummy {f00=0x0078, f01=0x0190, f02=» @ @ IDENT T:DYKI P,REL=4.1,79-05-23,870136940410 J F " T:DYKI T:PM1 T:PM2 T:CLR1 T:CLIT T:CLR2 T:IOER T:EKEY T:BELL H T:DYKI I:EVA7 , ( @ ' Y y , ( x C y
0x269254…2693e8 Dummy {f00=0x0078, f01=0x0190, f02=» T:CASP T:CLRD * & } _` y C Q " T " , ( X ! X X ! x P , ( Y Y _ X "@P B R y , ( C B P 9 V _F9 V X ! , ( T X !@X y C _d y C C
0x2693e8…26957c Dummy {f00=0x0078, f01=0x0190, f02=» 7 " y $ c C _$ _ T:CLR2 b , T:SCUW @ , ( U y _6 x X@ X X R , ( s # C _. B ]d P , ( C Q X8_H x XD @ Y c , ( C y XR X x
0x26957c…269710 Dummy {f00=0x0078, f01=0x0190, f02=» h T:CLIT T:LOFS I:EVA0 . * & H ( @ T:LOPS n T:CLMI , ( ! ( : B C T:PM1 D T:GRFC , ( ; _J + . X 9 V
0x269710…2698a4 Dummy {f00=0x0078, f01=0x40b4, f02=» " $ : H D ! ! D z ]Tf e iR o F yT } Q T 0 P R P V 8 4 VV T #P 'Q( W P Q8 0 7 @ QV WP b @ C T:PM1 D T:GRFC , ( ; _J + . X 9 V
0x2698a4…269a38 Dummy {f00=0x0078, f01=0x0190, f02=» @ @ IDENT T:UPDF P,REL=4.1,79-05-23,870136940410 T:UPDF H T:UPDF Z T:GRFC n T:LOFS I:EVA0 , ( @ 2! Y " T:LOPS I:MOV , ( A
0x269a38…269bcc Dummy {f00=0x0078, f01=0x4034, f02=» =T P @ 070136940410 T:UPDF H T:UPDF Z T:GRFC n T:LOFS I:EVA0 , ( @ 2! Y " T:LOPS I:MOV , ( A
0x269bcc…269d60 Dummy {f00=0x0078, f01=0x0190, f02=» @ @ IDENT T:DUPL P,REL=4.1,79-05-23,870136940410 T:DUPL T:DUPX H T:DUPL b T:GRFC v I:EVA0 T:RNOK T:ROK T:DUPX , ( HB X T:LOF
0x269d60…269ef4 (3, 4) Dummy {f00=0x0078, f01=0x4052, f02=» UD : CT OV $ ` <@ N
0x269ef4…26a088 Dummy {f00=0x0078, f01=0x4142, f02=» @ @ IDENT T:GETC P,REL=4.1,79-05-23,870136940410 T:GETC H T:GETC Z T:GRFC n I:EVA0 , ( @ 2' R P P X I:RT1 , ( ' ' X _ X ' _ X '? ;
0x26a088…26a21c Dummy {f00=0x0078, f01=0x4126, f02=» @ @ IDENT T:GETA P,REL=4.1,79-05-23,870136940410 T:GETA H T:GETA Z T:GRFC n I:EVA0 T:RNOK T:ROK , ( H X ' X ! T:RCR H
0x26a21c…26a3b0 Dummy {f00=0x0078, f01=0x4110, f02=» @ @ IDENT T:TSTC P,REL=4.1,79-05-23,870136940410 T:TSTC H T:TSTC Z T:GRFC n , ( @ X " 9b! X :c 2" T:RTES $ H @ % , 4
0x26a3b0…26a544 Dummy {f00=0x0078, f01=0x0190, f02=» @ @ IDENT T:TFWD P,REL=4.1,79-05-23,870136940410 D @ T:TLEF T:TRIG T:TLDO T:TDOW T:TUP T:TFWD T:TBWD T:THOM H T:TLEF T:TRIG T:TLDO T:TDOW T:TUP T:TFWD
0x26a544…26a6d8 Dummy {f00=0x0078, f01=0x411c, f02=» * Y 4 Y p T:TABE , ( ? 2 Y 69h Q X :h Y 0 W " T:SCR2 R T:TABC d T:TABN v * & ] U X Q W Y 0 w 8 4 W W W W W W !W IQ YW ]U eQ kW
0x26a6d8…26a86c Dummy {f00=0x0078, f01=0x0190, f02=» @ @ IDENT T:DISP P,REL=4.1,79-05-23,870136940410 T:PRIN T:DISP T:ERAS H T:PRIN j T:FDSP ~ T:EDWI T:GRFC T:GTIP , ( D 9H Y * T:DISP
0x26a86c…26aa00 Dummy {f00=0x0078, f01=0x0190, f02=» T:TABD , ( U Y +W Y + W , ( s T W Q W Y + B , ( U Q P W W r T:TABC , ( @ Y ( C X *! T:RNOK I:RT1 , (
0x26aa00…26ab94 (3, 5) Dummy {f00=0x0079, f01=0x4110, f02=» 0 : X 0 :H* : X 2T T:EDIO * , ( ' Y 2 : C 1 B ] < G : l H D ! 0 W !W GP( KP QP YW^ ] . i oWL sT w { }W> Q W U ( $ Q P W W P %T J
0x26ab94…26ad28 Dummy {f00=0x0079, f01=0x0190, f02=» @ @ IDENT T:GETF P,REL=4.1,79-05-23,870136940410 T:GETF T:GTIT T:GTIP H T:GETF j T:TABC ~ * & X +! U 9K Y ( Y + T:TABN T:GTIT $ T:GRFC T:GTIP 4 ,
0x26ad28…26aebc Dummy {f00=0x0079, f01=0x403e, f02=» U 2 : $ U Z (@ :0 T:GETF T:GTIT T:GTIP H T:GETF j T:TABC ~ * & X +! U 9K Y ( Y + T:TABN T:GTIT $ T:GRFC T:GTIP 4 ,
0x26aebc…26b050 Dummy {f00=0x0079, f01=0x018e, f02=» @ @ IDENT T:REWR P,REL=4.1,79-05-23,870136940410 ! . * T:REWR T:SCUW T:CLRD T:IOWR T:CASP ! H T:IOWR ! z T:CSEG ! T:SCUW ! , ( C ( C : ! T:CLRD . ! T:REWR 4 !
0x26b050…26b1e4 Dummy {f00=0x0079, f01=0x4164, f02=» , ( _ X D D : K " I:EVA3 " 4 I:EPIC " F , ( } $ + Q 2 P P " X T:LOPS " , ( ( B X # V " I:EVA0 " I:ECPY " I:EVI " , ( :
0x26b1e4…26b378 Dummy {f00=0x0079, f01=0x0190, f02=» @ @ IDENT T:DEDT P,REL=4.1,79-05-23,870136940410 # . * T:TABC T:TABD T:TABE T:TABN T:SCR2 # H I:EVNO # z I:ESKI # I:EVA0 # I:EBRI # I:EBRB # I:EBR # , (
0x26b378…26b50c Dummy {f00=0x0079, f01=0x0190, f02=» # | T:DSL $ T:TABC & $ , T:TABD * $ @ T:TABE . $ T , ( ! W W X 0Q $ h T:EDWI $ I:EVT $ * & ; Y ( Y *P $ I:EDSK $ * & W Y
0x26b50c…26b6a0 Dummy {f00=0x0079, f01=0x0190, f02=»_f " P T $ $ | , ( W " P Y 0] Y (_r " X % T:EDWF % L , ( _& & X *# P B 1 % ^ T:SCR2 % , ( @ &W " P X X$ C : % T:SCUR % , ( $ X *! P
0x26b6a0…26b834 (3, 6) Dummy {f00=0x0079, f01=0x4078, f02=»W 5Q 9 = IP Qh P P2 Vh P, T WT P P W % P P 'W /T 3W & B P & b@ & t
0x26b834…26b9c8 Dummy {f00=0x0079, f01=0x018e, f02=» @ @ IDENT T:ENLI P,REL=4.1,79-05-23,870136940410 ' T:DNL T:DSL ' H I:EVNO ' ^ I:ECPY ' p I:EPIC ' I:ETXT ' I:ETAB ' I:EBRI ' I:EBRB ' I:EBR ' * &
0x26b9c8…26bb5c Dummy {f00=0x0079, f01=0x0190, f02=» * & ( I:ESKI ( 2 T:DSL & ( D T:GRFC ( V T:DNL 2 ( h , ( ! " Y .W " Y ( z , ( 9 . X ( X ." P X 0R T Y *P ( T:WRDY ( , ( Y @ U :H
0x26bb5c…26bcf0 Dummy {f00=0x0079, f01=0x4144, f02=» * : " P X 0U X *# ( ~ , ( P P T " T : Y ) T:ENIN ) N , ( . , Y ( " Y * ) ` * & P : " T ! 1 W ! ) * : ) H D ! 2 # & 1W GPV MRz OT$ WP ]U yT W QH T2 P$ U P )
0x26bcf0…26be84 Dummy {f00=0x0079, f01=0x0190, f02=» @ @ IDENT T:EINP P,REL=4.1,79-05-23,870136940410 * " T:PKI T:PINP T:TKI T:TINP * H T:PKI * n T:PINP * T:GRFC * I:ETAB * I:EVIN * , ( I Y *T : * I:ECTR *
0x26be84…26c018 Dummy {f00=0x0079, f01=0x0190, f02=» $ P * t , ( Q & X ( " Q Y +Q R " + , ( q P W " Q W Y , " Q X . X + D , ( 0R P X *:h P P ) Y (W + t , ( X *:h P P P P + , ( P W X ! X $" P Q X + , (
0x26c018…26c1ac Dummy {f00=0x0079, f01=0x0190, f02=» + , ( - Y ( : X *:h X (! # P , , ( K X & V L T W X , X 0P , 8 , ( k T X *:h XF XL X (!@T , h , ( @ Y ( X , Y t X 0 l _r X , , ( ( P Y (_ P , , ( P Y
0x26c1ac…26c340 Dummy {f00=0x0079, f01=0x0190, f02=» , j , ( ' X (P X - T:CLMI - : , ( E (P 8 Y 0 X 2P - L , ( c X 0V _z Y ( " T Y ( : - | I:EVA0 - , ( 8 8 V Y 8 : - , ( " P X & V (
0x26c340…26c4d4 (3, 7) Dummy {f00=0x0079, f01=0x0190, f02=» : X : X ( - ~ , ( T X & V H " V Y : . T:CLDY . N " = X $ X : : . ` H D !@ T OP aQx iQ kR qP sW yQ {W j Q Rv P P P4 . H D ! W Pl Pf P P P< WZ P< Q P2
0x26c4d4…26c668 Dummy {f00=0x0079, f01=0x405c, f02=» aP gV wT P P P . j T W T !T 3V / & N / F@ / X " = X $ X : : . ` H D !@ T OP aQx iQ kR qP sW yQ {W j Q Rv P P P4 . H D ! W Pl Pf P P P< WZ P< Q P2
0x26c668…26c7fc Dummy {f00=0x0079, f01=0x0190, f02=» @ @ IDENT T:ENIN P,REL=4.1,79-05-23,870136940410 0 T:ENIN T:ENI T:EVOU 0 H T:ENIN 0 h T:ENI 0 | , ( X Y " X Y $ X Y & 0 T:LOFS 0 I:EGTB 0 , ( ! " ! T W
0x26c7fc…26c990 Dummy {f00=0x0079, f01=0x0190, f02=» V D ! 0 r T:WRDY 1 , ( P @ W X W Y ( 1 $ T:LOPS 1 T , ( : X , Y X $ Y X 1 f , ( &T Y Y Y W V $:H D 1 I:EVA0 1 , ( Y D :H Y ! P V Y 1
0x26c990…26cb24 Dummy {f00=0x0079, f01=0x4126, f02=»VOU R 1 I:EVI 2 , ( O : 2' " P T 2 I:EVA3 2 N I:EPIC 2 ` & " k$ W : H : 2 r H D ! 5T ;W EP S _T" oT wW4 W, P W" P W W T WD P 2 $ W #P )W ; R [P aT kW
0x26cb24…26ccb8 Dummy {f00=0x0079, f01=0x4146, f02=» @ @ IDENT T:SETC P,REL=4.1,79-05-23,870136940410 3 T:SETC T:SCUR 3 H T:SETC 3 b T:GRFC 3 v T:EDWI 3 T:RCTS 3 T:SCUR 3 , ( A C 3 T:WRDY 3
0x26ccb8…26ce4c Dummy {f00=0x0079, f01=0x40e4, f02=» @ @ IDENT T:CLMI P,REL=4.1,79-05-23,870136940410 4 T:CLMI 4 H T:CLMI 4 Z , ( "0P ' Q W ' 4 n ! Y : 4 P Q W 4 ( 4 @ 4 OP2A CLEAR LOOP P ADKL OP2A,1
0x26ce4c…26cfe0 Dummy {f00=0x0079, f01=0x0190, f02=» @ @ IDENT T:ATTF P,REL=4.1,79-05-23,870136940410 5 J F " T:ATTF T:DETF T:ROK T:RNOK T:RCR T:RCTS T:RTES T:GRFC T:WRDY 5 H T:CLDY 5 T:DETF 5 T:ATTF 5 I:EVA6 5 I:FFSN 5 , ( W
0x26cfe0…26d174 (3, 8) Dummy {f00=0x0079, f01=0x4102, f02=» Y < V E B 5 T:RNOK < 6 T:GRFC @ 6 4 T:WRDY H 6 H T:EDIO 6 * & ; X _ v : C C 6 n T:CLDY 6 $ Y @ : C : 6 @ W @ 6 l 6 @ 6
0x26d174…26d308 Dummy {f00=0x0079, f01=0x0190, f02=» @ @ IDENT T:LSEG P,REL=4.1,79-05-23,870136940410 7 & " T:LOFS T:LOPS T:LSEG T:CSEG 7 H T:LSEG 7 r T:CSEG 7 , ( ( R : V E V D ' 7 , ( ! $ T ( W P 7 I:RT1 7
0x26d308…26d49c Dummy {f00=0x0079, f01=0x401a, f02=» d 8 @ 8 G P,REL=4.1,79-05-23,870136940410 7 & " T:LOFS T:LOPS T:LSEG T:CSEG 7 H T:LSEG 7 r T:CSEG 7 , ( ( R : V E V D ' 7 , ( ! $ T ( W P 7 I:RT1 7
0x26d49c…26d630 Dummy {f00=0x0079, f01=0x4148, f02=» @ @ IDENT T:DC00 P,REL=4.1,79-05-23,870136940410 9 DCREAD DCWRTE DCEXCH 9 H T:FDS0 9 j DCREAD 9 | T:DCR1 9 DCWRTE 9 T:DCW1 9 DCEXCH 9 T:DCE1 9 , ( I$
0x26d630…26d7c4 Dummy {f00=0x0079, f01=0x417a, f02=» @ @ IDENT T:DMI0 P,REL=4.1,79-05-23,870136940410 : " IREAD IRNEXT IRWRIT IINS : H IREAD : n T:FDS0 : T:IRE1 : IRNEXT : T:IRN1 : IRWRIT : T:IRW1 : , ( I$
0x26d7c4…26d958 Dummy {f00=0x0079, f01=0x40ac, f02=» @ @ IDENT T:ASS0 P,REL=4.1,79-05-23,870136940410 ; ASSIGN ; H ASSIGN ; Z T:ASSI ; n @ ; ; @ ; ~ 2 P* * 2 P* CREDIT ASSEMBLER SUBROUTINE E
0x26d958…26daec Dummy {f00=0x0079, f01=0x40ac, f02=» @ @ IDENT T:IAS0 P,REL=4.1,79-05-23,870136940410 < IASSGN < H IASSGN < Z T:IASS < n @ < < @ < ~ 2 P* * 2 P* CREDIT ASSEMBLER SUBROU
0x26daec…26dc80 Dummy {f00=0x0079, f01=0x40fa, f02=» @ @ IDENT T:DMR0 P,REL=4.1,79-05-23,870136940410 = RREAD RWRITE = H T:FDS0 = ` RREAD = r T:RRE1 = RWRITE = T:RWR1 = $ I = = @ = P*
0x26dc80…26de14 (3, 9) Dummy {f00=0x007a, f01=0x40ac, f02=» @ @ IDENT T:SWI0 P,REL=4.1,79-05-23,870136940410 > SWITCH > H T:SWIT > Z SWITCH > l @ > > @ > TINE ENTRIES * . P* * . P******************
0x26de14…26dfa8 Dummy {f00=0x007a, f01=0x40dc, f02=» @ @ IDENT T:TEI0 P,REL=4.1,79-05-23,870136940410 ? TESTIO ABORT ? H T:TEST ? ` TESTIO ? r T:ABOR ? ABORT ? H ? ? @ ? * . P******************
0x26dfa8…26e13c Dummy {f00=0x007a, f01=0x40e0, f02=» @ @ IDENT T:CLO0 P,REL=4.1,79-05-23,870136940410 @ SETTIM GETTIM @ H T:SETT @ b SETTIM @ t T:GETT @ GETTIM @ H @ @ @ @ * . P******************
0x26e13c…26e2d0 Dummy {f00=0x007a, f01=0x40a8, f02=» @ @ IDENT T:DEL0 P,REL=4.1,79-05-23,870136940410 A DELAY A H T:DELA A X DELAY A j @ A | A @ A BROUTINE ENTRIES * . P* * . P******************
0x26e2d0…26e464 Dummy {f00=0x007a, f01=0x40ac, f02=» @ @ IDENT T:GTI0 P,REL=4.1,79-05-23,870136940410 B GETTID B H T:GETI B Z GETTID B l @ B B @ B TINE ENTRIES * . P* * . P******************
0x26e464…26e5f8 Dummy {f00=0x007a, f01=0x0190, f02=» @ @ IDENT T:DC P,REL=4.1,79-05-23,870136940410 C 6 2 T:DCRE T:DCR1 T:DCWR T:DCW1 T:DCEX T:DCE1 C H T:DCRE C T:FDSP C T:DCR1 C T:DCWR C T:DCW1 C T:EDIO C , ( @@ /
0x26e5f8…26e78c Dummy {f00=0x007a, f01=0x40cc, f02=» I:EVA0 C , ( 7 ' / C D , ( Q$ C D @ & " k &P C & C : D p V W V 1 V D D @ D T:DCW1 C T:EDIO C , ( @@ /
0x26e78c…26e920 Dummy {f00=0x007a, f01=0x018e, f02=» @ @ IDENT T:DMI P,REL=4.1,79-05-23,870136940410 E F B T:IREA T:IRE1 T:IRNE T:IRN1 T:IRWR T:IRW1 T:IINS T:INS1 E H T:IREA E T:FDSP E T:IRE1 E T:IO2 E T:IRNE E T:IRN1 E , (
0x26e920…26eab4 (3, 10) Dummy {f00=0x007a, f01=0x411e, f02=» , ( $"/ / F T:INS1 6 F 4 I:EVA0 F H , ( 3B / F Z , ( M &P C : F & " i C : C : F H p H ' ` 9 ` K ` F
0x26eab4…26ec48 Dummy {f00=0x007a, f01=0x0190, f02=» @ @ IDENT T:ASSI P,REL=4.1,79-05-23,870136940410 G T:ASSI G H , ( G Z T:ASSI & G T:CSEG G , ( ! @ P ( _ G T:FDSP G I:EVA0 G , ( A
0x26ec48…26eddc Dummy {f00=0x007a, f01=0x40bc, f02=» , ( P V I @ $ % A H I:RT1 H 4 , ( & # T : Y H D _ H t ` +P k P T H H @ H @ P ( _ G T:FDSP G I:EVA0 G , ( A
0x26eddc…26ef70 Dummy {f00=0x007a, f01=0x0190, f02=» @ @ IDENT T:IASS P,REL=4.1,79-05-23,870136940410 I T:IASS I H T:IASS I Z , ( @ I n T:CSEG I T:FDSP I , ( ! P ( _ A I I:EVA0 I , ( !
0x26ef70…26f104 Dummy {f00=0x007a, f01=0x40a6, f02=» I:RT1 J , ( P V I @ % A & J $ # T : Y _ J D p !P Y i y P T J l J @ J G I T:FDSP I , ( ! P ( _ A I I:EVA0 I , ( !
0x26f104…26f298 Dummy {f00=0x007a, f01=0x0190, f02=» @ @ IDENT T:ASG0 P,REL=4.1,79-05-23,870136940410 K ASSGN K H , ( K X ASSGN & K T:CSEG K , ( ! @ P ( _ K T:FDSP K I:EVA0 K , ( A ? @
0x26f298…26f42c Dummy {f00=0x007a, f01=0x40a2, f02=» I:RT1 K * & $ P V I @ $ % A L * & & # T : Y _ L > ` +P [ s P T L l L @ L G K , ( ! @ P ( _ K T:FDSP K I:EVA0 K , ( A ? @
0x26f42c…26f5c0 Dummy {f00=0x007a, f01=0x0190, f02=» @ @ IDENT T:DMR P,REL=4.1,79-05-23,870136940410 M & " T:RREA T:RRE1 T:RWRI T:RWR1 M H T:RREA M r T:FDSP M T:RRE1 M I:EVA0 M T:STCW M , ( A &P C M T:IO2
0x26f5c0…26f754 (3, 11) Dummy {f00=0x007a, f01=0x4038, f02=» C : M x 6 + 6 N F N "@ N 4
0x26f754…26f8e8 Dummy {f00=0x007a, f01=0x40d0, f02=» @ @ IDENT T:SWI P,REL=4.1,79-05-23,870136940410 O T:SWIT O H T:SWIT O Z T:CSEG O n I:RT1 O & " ( O O @ O P LDK A7,0 " P SU PP,CSB,TCA GET RELATIVE PP
0x26f8e8…26fa7c Dummy {f00=0x007a, f01=0x4176, f02=» @ @ IDENT T:TEI P,REL=4.1,79-05-23,870136940410 P T:TEST T:ABOR P H T:TEST P b T:FDSP P v I:RT1 P T:ABOR P * & @ "R V I P T:KIAA P , ( (
0x26fa7c…26fc10 Dummy {f00=0x007a, f01=0x4144, f02=» @ @ IDENT T:CLO P,REL=4.1,79-05-23,870136940410 Q T:SETT T:GETT Q H T:SETT Q b I:EVA0 Q v T:CSEG Q I:RT1 Q * & @ ( Q T:GETT Q , ( (
0x26fc10…26fda4 Dummy {f00=0x007a, f01=0x40fa, f02=» @ @ IDENT T:DEL P,REL=4.1,79-05-23,870136940410 R T:DELA R H T:DELA R Z I:EVA0 R n T:CSEG R I:RT1 R * & @ ( R R R @ R I:ERR ERROR P
0x26fda4…26ff38 Dummy {f00=0x007a, f01=0x40ce, f02=» @ @ IDENT T:MSK0 P,REL=4.1,79-05-23,870136940410 S MASK S H MASK S X I:EVA0 S j I:RT1 S | ( $ D V S S @ S 10 NOT BINARY P XIF P $ P LD WK2,STKB,TCA
0x26ff38…2700cc Dummy {f00=0x007a, f01=0x0190, f02=» @ @ IDENT T:SCD P,REL=4.1,79-05-23,870136940410 T T:ACTV T:PAUS T:RSTR T H T:ACTV T j , ( 2 ;B P J T ~ P:BAS T I:NTPA T T:CSEG T , ( ! T (
0x2700cc…270260 Dummy {f00=0x007a, f01=0x409a, f02=» Y W & F : T I:RT1 U , u ( U < ( P4 #T + ` CW< M ` _W U ` U @ U J T ~ P:BAS T I:NTPA T T:CSEG T , ( ! T (
0x270260…2703f4 (3, 12) Dummy {f00=0x007a, f01=0x018e, f02=» @ @ IDENT T:USE P,REL=4.1,79-09-14,870136940410 T:USE T:UERR H T:USE ` I:EVA0 r * & 2 & >A >A 2 $ P:MTAB , ( V D 9a 9 V @ , ( ; W @ ( &
0x2703f4…270588 Dummy {f00=0x007a, f01=0x0190, f02=» f , ( ( 9 8 , ( ? X Q , V 8 , ( ( - 4 h , ( T V 5 ( , ( W V P W U V X T:UERR B
0x270588…27071c Dummy {f00=0x007a, f01=0x4010, f02=» H @ ( 9 8 , ( ? X Q , V 8 , ( ( - 4 h , ( T V 5 ( , ( W V P W U V X T:UERR B
0x27071c…2708b0 Dummy {f00=0x007a, f01=0x0190, f02=» @ @ IDENT T:UNUS P,REL=4.1,79-05-23,870136940410 Y T:UNUS Y H T:UNUS Y Z , ( 2 ' >A >A 2 $ V Y n P:MTAB Y , ( ! L ;a ; R @ ( 8 ? Y , ( ? X Q ( V )<B
0x2708b0…270a44 Dummy {f00=0x007a, f01=0x4028, f02=» 1R@ KQ* Y Z @ Z $1,79-05-23,870136940410 Y T:UNUS Y H T:UNUS Y Z , ( 2 ' >A >A 2 $ V Y n P:MTAB Y , ( ! L ;a ; R @ ( 8 ? Y , ( ? X Q ( V )<B
0x270a44…270bd8 Dummy {f00=0x007a, f01=0x4098, f02=» @ @ IDENT T:EXIT P,REL=4.1,79-05-23,870136940410 [ T:EXIT [ H T:EXIT [ Z ( [ n [ @ [ #1,76-06-15 P* P ENTRY T:EXIT P* PT:EXIT LKM P DATA 3 P* P END
0x270bd8…270d6c Dummy {f00=0x007a, f01=0x40ee, f02=» @ @ IDENT T:GTCW P,REL=4.1,79-05-23,870136940410 GETCW H T:FDSP X GETCW j I:EVA0 | T:GTCW I:RT1 $ I @ DRESS " P CF PS,T:GTC
0x270d6c…270f00 Dummy {f00=0x007a, f01=0x40ce, f02=» @ @ IDENT T:GTID P,REL=4.1,79-05-23,870136940410 ] T:GETI ] H T:GETI ] Z I:EVA0 ] n I:RT1 ] $ @ V G 9h ' ] ] @ ] FOR USER P SRL WK1,8 P SCR WK1,OP2A P
0x270f00…271094 (3, 13) Dummy {f00=0x007b, f01=0x8190, f02=» @ @ IDENT T:IO P,REL=4.1,79-05-23,870136940410 ^ J F " T:WRIT T:READ T:KI T:NKI T:EDWR T:DSC0 T:DSC1 T:DSC2 T:EDWE ^ H F B T:EDWF T:EDWI T:EDIO T:XSTA T:WAIT T:IO1 T:IO2 T:IO3 T:IO4 ^ F B T:FDS0 T:FDSP T:STCW T:GDSP T:GTC
0x271094…271228 Dummy {f00=0x007b, f01=0x8190, f02=» ^ t I:EVA0 _ T:READ 2 _ & * & ! P / W _ : T:DSC0 F _ h T:DSC1 X _ | , ( = / W C C W _ , ( [ C C J ' W 781"&$ 39 _ T:DSC2 _ , (
0x271228…2713bc Dummy {f00=0x007b, f01=0x8190, f02=»:CSEG _ , ( ( W ` , ( ( ` > , ( : P 1 P ` n , ( _ C C C ( ` T:IO1 ` T:IO2 ` T:IO3 ` T
0x2713bc…271550 Dummy {f00=0x007b, f01=0x8190, f02=» P C P B % P C + ` I:RT1 a * T:EDWR a : I:EDW a N , ( a ^ T:EDWE a T:EDWF a , ( C C B B P C a T:EDWI a T:EDIO a
0x271550…2716e4 Dummy {f00=0x007b, f01=0x8190, f02=» , ( % Y C b , ( )@ & R V C b 4 , ( E : B T T b d T:FDS0 t b T:FDSP ~ b T:GDSP b P:MTAB b , ( e T V : 2 ' W 2 6
0x2716e4…271878 Dummy {f00=0x007b, f01=0x8190, f02=» , ( _ C : c I:EVA2 c 4 , ( : ~ P C W c F , ( $0 P C : "!@P c v T:STCW 8 c , ( ") # B C B % C C : c , ( ; #0 T & C C :
0x271878…271a0c Dummy {f00=0x007b, f01=0x8190, f02=» ! P T 0 c z , ( P W 8 C S W C C 0 d , ( P C ;a 6 4 ZH T d J , ( : 49d_Z B@5 @ 8 @N d z , ( ' @ d P ( d T:GTCW F d , ( 9 z= #0
0x271a0c…271ba0 Dummy {f00=0x007b, f01=0x818e, f02=» _ # Q R d ~ , ( V > _V ' P _d P e , ( & 1 P 1_ , @ - e N , ( R T U :B@ ' d e ~ T:KIAA ( e T:KIAC * e e H D !~m W
0x271ba0…271d34 (3, 14) Dummy {f00=0x007b, f01=0xc126, f02=» H D ! CP IP& cP iP sP }P P F ~ P P L ~ f H D ! 5R ;V YT cT kT }W T W" P W P < P AT {W f P H D !0 W W : P( W$ W P T KT SW w { ( }PP R f $ R Q P P P R ' (
0x271d34…271ec8 Dummy {f00=0x007b, f01=0x0190, f02=» @ @ IDENT T:KIA P,REL=4.1,79-05-23,870136940410 g T:KIA T:NKIA g H T:KIA g ` T:NKIA g r T:ABUF g T:KIPR g , ( W 6 V :a g , ( ' ( ( g
0x271ec8…27205c Dummy {f00=0x007b, f01=0x0190, f02=» y K V K V 6V ( - g , ( _ : J 7 J V W J h . , ( :A V 6V $ - _ * h ^ , ( + : D T E D :A D h , ( ;A 9A Q 5 U _ 5 h T:KIAA h T:KIA
0x27205c…2721f0 Dummy {f00=0x007b, f01=0x40ca, f02=» : D V h r , ( @ m D V ( 2 C C i _, i B H D !r W ^ - 2 IT MP Y V V T> Q U ! R /P 7P ?W i T [R ]P i i @ i 9A Q 5 U _ 5 h T:KIAA h T:KIA
0x2721f0…272384 Dummy {f00=0x007b, f01=0x409a, f02=» @ @ IDENT T:ABUF P,REL=4.1,79-05-23,870136940410 j T:ABUF j H M j Z T:ABUF j p j @ j x EJECT END @
0x272384…272518 Dummy {f00=0x007b, f01=0x4110, f02=» @ @ IDENT WRITEL P,REL=4.1,79-05-23,870136940410 k WRITEL k H WRITEL k Z T:FDS0 k n I:EVA0 k , ( D / C k $ &P C & C k !P k 0 k
0x272518…2726ac Dummy {f00=0x007b, f01=0x0190, f02=» @ @ IDENT I:NTP P,REL=4.1,79-05-23,870136940410 l 4 0 I:TRC I:NTP I:NTPA I:NTPR I:RT0 I:RT1 I:RT2 l H I:MOV l I:ADD l I:SUB l I:CMP l I:MUL l * & T l I:DIV l
0x2726ac…272840 Dummy {f00=0x007b, f01=0x018e, f02=»CP l I:EDS m , ( - m I:TRC m J I:NTPA B m T:LSEG m p , ( ? V 7 P W m I:NTP b m I:NTPR b m , ( ] 9c D m
0x272840…2729d4 (3, 15) Dummy {f00=0x007b, f01=0x0190, f02=» , ( @ :aW _B( 2 P n , ( V W _ 2 # ;B V n 4 T:BAT n d , ( T "W V P L , V n t , ( 2P " 2 P V D ! R T n , ( V P V W V _ n T
0x2729d4…272b68 Dummy {f00=0x007b, f01=0x0190, f02=» E @ & &' T 2 % n T:CAT o & , ( 7_ 2 # L ( o 6 , ( 2" &] Y $! 6P Q o f , ( $ T 9B _ _ 6 @ & & o , ( " T 7 $ V P W o I:EVB o , (
0x272b68…272cfc Dummy {f00=0x007b, f01=0x40d2, f02=» ! # % ' ) + ; < o x H D ! = 8 ? B A D QP a b u < Q W W P W8 T W P P R p 4 8 4 T P KT QW T P Q T T P ;W AW p C F p @ p 7 $ V P W o I:EVB o , (
0x272cfc…272e90 Dummy {f00=0x007b, f01=0x0190, f02=» @ @ IDENT I:EVA P,REL=4.1,79-05-23,870136940410 q J F " I:EVA0 I:EVA1 I:EVA2 I:EVA3 I:EVA5 I:EVA6 I:EVA7 I:EVB I:EVI q H I:FML I:EVTO q P:MTAB q , ( :l:d:h q I:EVA2 q I
0x272e90…273024 Dummy {f00=0x007b, f01=0x0190, f02=» q h , ( 9 # W @ $ E " T ; [ r , ( W # :H 2 T Z L r 8 , ( @ w L D V W # r h , ( L E V $ W D V r I:EVA0 r , ( @ L , W 6 2 W " r
0x273024…2731b8 Dummy {f00=0x007b, f01=0x018e, f02=» Z Z : r , ( 3 :B , (V ; [ [ s 0 , ( @ S z ;AV Z H # s ` , ( s ; : & Z 4 s , ( : Z 4 s , ( " 2@P
0x2731b8…27334c Dummy {f00=0x007b, f01=0x018e, f02=» I:EVTO * t , ( : ( :A ( @ & t , ( / " P [ :;H 2 P ;h t H I:EVI l t x , ( B O : ; V Y : 2 t I:EVB ~ t , ( o ! : 6 2 *W " t , ( #
0x27334c…2734e0 Dummy {f00=0x007b, f01=0x405a, f02=» < 8 * W P WF CVj _V$ s P 1P KP W& u u D@ u V :;H 2 P ;h t H I:EVI l t x , ( B O : ; V Y : 2 t I:EVB ~ t , ( o ! : 6 2 *W " t , ( #
0x2734e0…273674 (3, 16) Dummy {f00=0x007b, f01=0x0190, f02=» @ @ IDENT I:ADS P,REL=4.1,79-05-23,870136940410 v I:ADD I:SUB v H I:ADD v ^ I:SUB v p , ( W " T & T + : v I:CPA v , ( ! * & !@P `1` P Q v " ?
0x273674…273808 Dummy {f00=0x007b, f01=0x4188, f02=»X $ P T v x , ( R R ` ; <( Q w , ( P # P W " <! =# T W = Z w H , ( P _ V ^: `_> R Q < w x , ( # =_ P :" P * U P 1` w * & 5 ! T "# 9e! # K : w H D !
0x273808…27399c Dummy {f00=0x007b, f01=0x416a, f02=» @ @ IDENT I:CMP P,REL=4.1,79-05-23,870136940410 x I:CMP x H I:CMP x X , ( P " T * & : * & x j I:CPA x , ( ! !`P :J +_ +Q x , ( A _0 , V W R V x &
0x27399c…273b30 Dummy {f00=0x007b, f01=0x4174, f02=» @ @ IDENT I:CPA P,REL=4.1,79-05-23,870136940410 y I:CPA y H I:CPA y X * & R W y j , ( ( V W Q P W ! W V y , ( ? P , V W Q P W $ W V y * & _ P
0x273b30…273cc4 Dummy {f00=0x007b, f01=0x0190, f02=» @ @ IDENT I:MOV P,REL=4.1,79-05-23,870136940410 z I:MOV I:MVC z H I:MOV z ^ I:MVC z p , ( $0#0;b P P P P z , ( ! 0 - P V W Z _ z , ( A 4 V W Q P ) P 9_ &
0x273cc4…273e58 Dummy {f00=0x007b, f01=0x018e, f02=» V W z r , ( V 4! P < { , ( X 4 9d $ & ! R + : { B , ( V W R 4 0R Y { r , ( ! 7 Y& P Z,;D 9_8 8 _< { , ( A V W YL T 9 : &9d { , ( a
0x273e58…273fec Dummy {f00=0x007b, f01=0x40f6, f02=» , ( 7 Y P _6 & Q 9d! )0 + | ( $ P 7 Y Z $ _ : | 4 H D ! P P PN P +P: MQ OP WP oP sQ { R R R | ` 0 , +P mP T P SZ P Q Q P. P | | @ | &9d { , ( a
0x273fec…274180 Dummy {f00=0x007b, f01=0x0190, f02=» @ @ IDENT I:MUL P,REL=4.1,79-06-07,870136940410 I:MUL I:SH1L H I:MUL ` , ( V ) " T *V &V r , ( ! : V S W P 9 S W _ , ( A V P W T V E + , ( a
0x274180…274314 (3, 17) Dummy {f00=0x007c, f01=0x0190, f02=» [ , ( P Z P [ 9a Z * , ( $" T 9d! P P [ Z w Z I:ADD , ( [ P V H )_ , ( _X z R z ! P 1` { , ( / V (
0x274314…2744a8 Dummy {f00=0x007c, f01=0x4068, f02=» : n D @ @ TV %V 3P CV OW PP P6 P( P X R 'P aP oP sP R@ d9d! P P [ Z w Z I:ADD , ( [ P V H )_ , ( _X z R z ! P 1` { , ( / V (
0x2744a8…27463c Dummy {f00=0x007c, f01=0x018e, f02=» @ @ IDENT I:DIV P,REL=4.1,79-05-23,870136940410 I:DIV I:SH1R H I:DIV ` , ( " T *V &V r ! P = , ( ' ;@ R P W ;a , ( G =a P " R &
0x27463c…2747d0 Dummy {f00=0x007c, f01=0x0190, f02=» , ( [ [ $ [ [ I:SUB 4 * & QD D , ( z " ! ! R 2` { z r , ( " P ! R 2` { 1 ! { [ I:CPA I:SH1L , ( Z
0x2747d0…274964 Dummy {f00=0x007c, f01=0x0190, f02=» { R [ _ | , ( q Z ! Z $ * & P Z %_N [ Q L * & R [ Z { z , ( z 9e! W Z I:SH1R , ( : V I _ ,
0x274964…274af8 Dummy {f00=0x007c, f01=0x402e, f02=» eR Q* R W @ * Z ! Z $ * & P Z %_N [ Q L * & R [ Z { z , ( z 9e! W Z I:SH1R , ( : V I _ ,
0x274af8…274c8c Dummy {f00=0x007c, f01=0x40dc, f02=» @ @ IDENT I:NTF P,REL=4.1,79-05-23,870136940410 I:NTFA H I:NTFA Z , ( Z H D & H n $ ! D % [ ( 8 @ ND ,PS P LDR* OP2A,WK1 P LD
0x274c8c…274e20 Dummy {f00=0x007c, f01=0x018e, f02=» @ @ IDENT I:EDT P,REL=4.1,79-05-23,870136940410 F B I:EDT I:EDW I:ED1 I:EDSK I:EVT I:ETAB I:EXIT I:ETXT I:ECPY H F B I:ECTR I:ESL I:ENL I:EOR I:ECW I:ECWC I:EFIL I:EPIC I:EFLA I:FFSN , ( !!
0x274e20…274fb4 (3, 18) Dummy {f00=0x007c, f01=0x0190, f02=» I:EVB I:EGTB I:EVI * I:EVA3 : I:EVA0 L * & AUT ^ I:EVNO I:ESKI I:EBRI I:EBRB I:EBR , ( Q
0x274fb4…275148 Dummy {f00=0x007c, f01=0x0190, f02=» K K K K | I:EDT I:ED1 . I:EDW @ , ( V K : R R I:EVA6 , ( B V V Z , ( P 2 " T W "@T , ( '?W
0x275148…2752dc Dummy {f00=0x007c, f01=0x018e, f02=» Z P " [ z I:FFSN j , ( Y V 6 [ 7 V R ( . P:BAS ^ I:EXIT n , ( y Q V : $ $ : , ( Z 7 Z Z P " I:ETAB , (
0x2752dc…275470 Dummy {f00=0x007c, f01=0x0190, f02=» I:ESL I:ENL , ( W K W +_ ( I:EOR " X T:EDWF j I:ECW , | , ( K W _. X &W X T:EDWE I:ECWC 6 I:EFIL @ , ( 1 & (
0x275470…275604 Dummy {f00=0x007c, f01=0x0190, f02=» m < , ( q !AAP !TTT W !**T * [ R !FFP !EET W @ I 6 ` , ( * B Z 9 ! ; *Xz 8 z , ( ! D 0P W 0W W :T , ( *W FP . :T Z ! XBW *X& ,
0x275604…275798 Dummy {f00=0x007c, f01=0x0190, f02=» h , ( i 9U ? Z ] 49d_. , ( _BU ; :X _ _ z 9d! ) ^ 8 _ h , ( ,_ 8 _ : W 8W 8 ! z , ( ++P !-- z ;$# + ^" _( " R rV. PT*AXYZ9 H D ! U
0x275798…27592c Dummy {f00=0x007c, f01=0x40e6, f02=» L H D ! " W. +W IV o uP {T W T R P T W H D ! P Wl W8 Wd T& W, P T W F W> P U /P A ~ T , ( CW MR( WR aP kU U W W @ rV. PT*AXYZ9 H D ! U
0x27592c…275ac0 Dummy {f00=0x007c, f01=0x0190, f02=» @ @ IDENT I:EDTE P,REL=4.1,79-05-23,870136940410 D @ I:EKIH I:EINH I:EVIN I:EBRI I:EBRB I:EBR I:ESKI I:EVNO H I:EGTD I:EGTB I:EKIH I:EINH I:ETAB I:EVIN , ( @
0x275ac0…275c54 (3, 19) Dummy {f00=0x007c, f01=0x4150, f02=» ; W : ! )P9H # T &W I:EBR j . I:EBRB n @ , ( Y &" :I : : P & T I:ESKI I:EVNO I:EGTD I:EGTB & " y _ &X _ : : : : 8 4
0x275c54…275de8 Dummy {f00=0x007c, f01=0x40ec, f02=» @ @ IDENT I:EDS P,REL=4.1,79-05-23,870136940410 I:EDS H I:EDS X I:EVS2 j I:ED1 | , ( : { : & @ " P CF PS,I:ED1 EDIT OF S
0x275de8…275f7c Dummy {f00=0x007c, f01=0x0190, f02=» @ @ IDENT I:STR P,REL=4.1,79-05-23,870136940410 $ I:INS I:DLT I:MCH I:CPY I:XCP H I:DLT p I:EVS1 I:MCH , ( @ P 9 _ , ( @ [ , (
0x275f7c…276110 Dummy {f00=0x007c, f01=0x018e, f02=»W R # P W ) x I:EVS2 , ( V E * I:CPY Z I:XCP l , ( W [ : ~ , ( Z !0P 4 R :d" 8 R ! :DW , ( ! 9 R R Y, :
0x276110…2762a4 Dummy {f00=0x007c, f01=0x400c, f02=» @ W ) x I:EVS2 , ( V E * I:CPY Z I:XCP l , ( W [ : ~ , ( Z !0P 4 R :d" 8 R ! :DW , ( ! 9 R R Y, :
0x2762a4…276438 Dummy {f00=0x007c, f01=0x4154, f02=» @ @ IDENT I:EVS P,REL=4.1,79-05-23,870136940410 I:EVS1 I:EVS2 H I:EVA0 b , ( A jP kT t I:EVS1 8 , ( T : & 9! " : $ : I:EVA2 I:EVS2
0x276438…2765cc Dummy {f00=0x007c, f01=0x0190, f02=» @ @ IDENT T:IO P,REL=4.1,79-06-21,870136940410 J F " T:WRIT T:READ T:KI T:NKI T:EDWR T:DSC0 T:DSC1 T:DSC2 T:EDWE H F B T:EDWF T:EDWI T:EDIO T:XSTA T:WAIT T:IO1 T:IO2 T:IO3 T:IO4 F B T:FDS0 T:FDSP T:STCW T:GDSP T:GTC
0x2765cc…276760 Dummy {f00=0x007c, f01=0x0190, f02=» | I:EVA0 T:READ 2 . * & ! P / W B T:DSC0 F p T:DSC1 X , ( = / W C C W , ( [ C C J ' W 781"&$ 39 T:DSC2
0x276760…2768f4 (3, 20) Dummy {f00=0x007c, f01=0x0190, f02=» T:CSEG T:MWAI , ( ( W * , ( W ^ Z , ( ( , ( 1W C C C ( T:IO1 T:IO2
0x2768f4…276a88 Dummy {f00=0x007c, f01=0x0190, f02=» P B P B v , ( q 5 P C P B % P C I:RT1 F T:EDWR V I:EDW j , ( + z T:EDWE T:EDWF , ( C C B B P C T:E
0x276a88…276c1c Dummy {f00=0x007c, f01=0x0190, f02=» I : n I:EVA7 , ( % Y C * & ) & R V C P , ( E : B T ~ T:FDS0 v T:FDSP T:GDSP , ( c T T V : 2
0x276c1c…276db0 Dummy {f00=0x007c, f01=0x0190, f02=» ;D:B " : ~ , ( _ C : I:EVA2 N , ( : P C ` , ( W $0 P C : " , ( !@P ") # B C B % C C T:STCW : , (
0x276db0…276f44 Dummy {f00=0x007c, f01=0x0190, f02=» , ( 4 ! P , ( T 0P W 8 C S W C C 4 , ( 0 P C ;a 6 4 ZH d , ( T : 49d_Z B@5 @ 8 , ( @N ' @ d P ( T:GTCW H , (
0x276f44…2770d8 Dummy {f00=0x007c, f01=0x0190, f02=» h , ( _ R _ # Q R , ( V > _V ' P _d P 8 , ( & 1 P 1_ , @ h , ( - R T U :B@ ' d T:KIAA * T:KIAC , $
0x2770d8…27726c Dummy {f00=0x007c, f01=0x4146, f02=» W W 5Pb d H D ! 9 N EP KP& eP kP uP P P H P P N H D ! 7R =V [T eT mT W T W" P W P > P CT l H D ! }W W W < P( W$ W P T MT UW y } * PP ( $
0x27726c…277400 Dummy {f00=0x007c, f01=0x2008, f02=» L = SSTS22/25-06-79 DATE = 25 06 79 1215PACK NBR = 0022 f a
0x277400…277594 (3, 21) Dummy {f00=0x007d, f01=0x0190, f02=» LABEL = REL 9.1: DATE = 79 03 19 PACK NBR = TWO f Y _( Y M : ] =IR E
[…0xf…]
0x278d40…278ed4 (3, 23) Dummy {f00=0x007d, f01=0x0000, f02=»
[…0xf…]
0x27a680…27b320 (4, 0) DirGranule ((4, 0)) {
0x27a680…27b320 DirEnt {nam=»NJ-AMT«, typ=» «, f00=0x0000, f01=0x0000, f02=0x0fc0, f03=0x0000}
0x27a680…27b320 DirEnt {nam=»VDUPRT«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0840, f03=0x0000}
0x27a680…27b320 DirEnt {nam=»PRT «, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x1228, f03=0x0000}
0x27a680…27b320 DirEnt {nam=»START «, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x1380, f03=0x0000}
0x27a680…27b320 DirEnt {nam=»KMD08 «, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x21b8, f03=0x0000}
0x27a680…27b320 DirEnt {nam=»LISTE «, typ=»UF«, f00=0x0000, f01=0x0000, f02=0x15d8, f03=0x0000}
0x27a680…27b320 DirEnt {nam=»M:PROC«, typ=»UF«, f00=0x0000, f01=0x0000, f02=0x09e0, f03=0x0000}
0x27a680…27b320 DirEnt {nam=»EQUATE«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x1130, f03=0x0000}
0x27a680…27b320 DirEnt {nam=»DKSUBS«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x1140, f03=0x0000}
0x27a680…27b320 DirEnt {nam=»CONNJ «, typ=»UF«, f00=0x0000, f01=0x0000, f02=0x1180, f03=0x0000}
0x27a680…27b320 DirEnt {nam=»KM080 «, typ=»UF«, f00=0x0000, f01=0x0000, f02=0x1188, f03=0x0000}
0x27a680…27b320 DirEnt {nam=»SCREEN«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x07d8, f03=0x0000}
0x27a680…27b320 DirEnt {nam=»CONNJT«, typ=»UF«, f00=0x0000, f01=0x0000, f02=0x11c0, f03=0x0000}
0x27a680…27b320 DirEnt {nam=»/OBJCT«, typ=»OB«, f00=0x0000, f01=0x0000, f02=0x14c0, f03=0x0000}
0x27a680…27b320 DirEnt {nam=»SUBAPL«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x1538, f03=0x0000}
0x27a680…27b320 DirEnt {nam=»RGMAIN«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x1588, f03=0x0000}
0x27a680…27b320 DirEnt {nam=»RGFRMT«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x09c8, f03=0x0000}
0x27a680…27b320 DirEnt {nam=»RGSUBS«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x15f8, f03=0x0000}
0x27a680…27b320 DirEnt {nam=»DIVFMT«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x1638, f03=0x0000}
0x27a680…27b320 DirEnt {nam=»KMDIO «, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x1688, f03=0x0000}
0x27a680…27b320 DirEnt {nam=»RGSUB1«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0888, f03=0x0000}
0x27a680…27b320 DirEnt {nam=»RGSUB2«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x16e0, f03=0x0000}
0x27a680…27b320 DirEnt {nam=»DKEBCD«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x16f0, f03=0x0000}
0x27a680…27b320 DirEnt {nam=»RGLIST«, typ=»UF«, f00=0x0000, f01=0x0000, f02=0x15e0, f03=0x0000}
0x27a680…27b320 DirEnt {nam=»DKLICO«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x1708, f03=0x0000}
0x27a680…27b320 DirEnt {nam=»CONNJ1«, typ=»UF«, f00=0x0000, f01=0x0000, f02=0x1318, f03=0x0000}
0x27a680…27b320 DirEnt {nam=»CONNJ6«, typ=»UF«, f00=0x0000, f01=0x0000, f02=0x14a8, f03=0x0000}
0x27a680…27b320 DirEnt {nam=»RGSTRT«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x15f0, f03=0x0000}
0x27a680…27b320 DirEnt {nam=»RGLOAD«, typ=»LM«, f00=0x0000, f01=0x0000, f02=0x21f8, f03=0x0000}
0x27a680…27b320 DirEnt {nam=»CONNJ2«, typ=»UF«, f00=0x0000, f01=0x0000, f02=0x1488, f03=0x0000}
0x27a680…27b320 DirEnt {nam=»RGADM «, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x1810, f03=0x0000}
0x27a680…27b320 DirEnt {nam=»CONNJ7«, typ=»UF«, f00=0x0000, f01=0x0000, f02=0x14b8, f03=0x0000}
0x27a680…27b320 DirEnt {nam=»KM0801«, typ=»UF«, f00=0x0000, f01=0x0000, f02=0x0880, f03=0x0000}
0x27a680…27b320 DirEnt {nam=»KMDFIL«, typ=»UF«, f00=0x0000, f01=0x0000, f02=0x1218, f03=0x0000}
0x27a680…27b320 DirEnt {nam=»RGOBJ «, typ=»UF«, f00=0x0000, f01=0x0000, f02=0x18d8, f03=0x0000}
0x27a680…27b320 DirEnt {nam=»KM0806«, typ=»UF«, f00=0x0000, f01=0x0000, f02=0x11f0, f03=0x0000}
0x27a680…27b320 DirEnt {nam=»TEST «, typ=»UF«, f00=0x0000, f01=0x0000, f02=0x0820, f03=0x0000}
0x27a680…27b320 DirEnt {nam=»RGSUB3«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x1910, f03=0x0000}
0x27a680…27b320 DirEnt {nam=»DKLD «, typ=»LM«, f00=0x0000, f01=0x0000, f02=0x1928, f03=0x0000}
0x27a680…27b320 DirEnt {nam=»KM0808«, typ=»UF«, f00=0x0000, f01=0x0000, f02=0x1930, f03=0x0000}
0x27a680…27b320 DirEnt {nam=»CONNJ8«, typ=»UF«, f00=0x0000, f01=0x0000, f02=0x1940, f03=0x0000}
0x27a680…27b320 DirEnt {nam=»KTPLN «, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x1948, f03=0x0000}
0x27a680…27b320 DirEnt {nam=»HELP «, typ=»UF«, f00=0x0000, f01=0x0000, f02=0x1960, f03=0x0000}
0x27a680…27b320 DirEnt {nam=»KM0809«, typ=»UF«, f00=0x0000, f01=0x0000, f02=0x0838, f03=0x0000}
0x27a680…27b320 DirEnt {nam=»CONNJ9«, typ=»UF«, f00=0x0000, f01=0x0000, f02=0x13f0, f03=0x0000}
0x27a680…27b320 DirEnt {nam=»LEDLS «, typ=»UF«, f00=0x0000, f01=0x0000, f02=0x15e8, f03=0x0000}
0x27a680…27b320 DirEnt {nam=»KTPLND«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x1988, f03=0x0000}
0x27a680…27b320 DirEnt {nam=»KTOPR «, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x1990, f03=0x0000}
0x27a680…27b320 DirEnt {nam=»KTOPRD«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x19a8, f03=0x0000}
0x27a680…27b320 DirEnt {nam=»RGMND «, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x19b0, f03=0x0000}
0x27a680…27b320 DirEnt {nam=»ADM6 «, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x19b8, f03=0x0000}
0x27a680…27b320 DirEnt {nam=»DCTSK «, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x19e8, f03=0x0000}
0x27a680…27b320 DirEnt {nam=»ADM6D «, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x19f8, f03=0x0000}
0x27a680…27b320 DirEnt {nam=»RELUP «, typ=»UF«, f00=0x0000, f01=0x0000, f02=0x1a00, f03=0x0000}
0x27a680…27b320 DirEnt {nam=»SL6272«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0a68, f03=0x0000}
0x27a680…27b320 DirEnt {nam=»TB3270«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x07e8, f03=0x0000}
0x27a680…27b320 DirEnt {nam=»KMDNR «, typ=»UF«, f00=0x0000, f01=0x0000, f02=0x0b40, f03=0x0000}
0x27a680…27b320 DirEnt {nam=»KM0802«, typ=»UF«, f00=0x0000, f01=0x0000, f02=0x09a8, f03=0x0000}
0x27a680…27b320 DirEnt {nam=»KM0803«, typ=»UF«, f00=0x0000, f01=0x0000, f02=0x09b0, f03=0x0000}
0x27a680…27b320 DirEnt {nam=»KM0804«, typ=»UF«, f00=0x0000, f01=0x0000, f02=0x1018, f03=0x0000}
0x27a680…27b320 DirEnt {nam=»KM0805«, typ=»UF«, f00=0x0000, f01=0x0000, f02=0x11d0, f03=0x0000}
0x27a680…27b320 DirEnt {nam=»KM0807«, typ=»UF«, f00=0x0000, f01=0x0000, f02=0x14b0, f03=0x0000}
0x27a680…27b320 DirEnt {nam=»CONNJ3«, typ=»UF«, f00=0x0000, f01=0x0000, f02=0x09e8, f03=0x0000}
0x27a680…27b320 DirEnt {nam=»CONNJ4«, typ=»UF«, f00=0x0000, f01=0x0000, f02=0x13e8, f03=0x0000}
0x27a680…27b320 DirEnt {nam=»CONNJ5«, typ=»UF«, f00=0x0000, f01=0x0000, f02=0x1200, f03=0x0000}
0x27a680…27b320 DirEnt {nam=»CTAB01«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x1a70, f03=0x0000}
0x27a680…27b320 DirEnt {nam=»KY6272«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x07f8, f03=0x0000}
0x27a680…27b320 DirEnt {nam=»OBDIR «, typ=»UF«, f00=0x0000, f01=0x0000, f02=0x23e8, f03=0x0000}
0x27a680…27b320 DirEnt {nam=»CTEST «, typ=»UF«, f00=0x0000, f01=0x0000, f02=0x1248, f03=0x0000}
0x27a680…27b320 DirEnt {nam=»LEDFIL«, typ=»UF«, f00=0x0000, f01=0x0000, f02=0x1c20, f03=0x0000}
0x27a680…27b320 }
0x27b320…27b4b4 (4, 1) Opaque[0x194]
0x27b4b4…27b648 # DirEnt {nam=»VDUPRT«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0840, f03=0x0000}
0x27b4b4…27b648 IdxSect {
0x27b4b4…27b648 f00 = 0x0042 // 0x27b4b4 @0x0
0x27b4b4…27b648 f01 = 0x001a // 0x27b4b6 @0x2
0x27b4b4…27b648 gno = [ // 0x27b4b8 @0x4
0x27b4b4…27b648 [0x00]: C0x0042.0x0.0
0x27b4b4…27b648 [0x01]: C0x0049.0x2.0
0x27b4b4…27b648 [0x02]: C0x004f.0x3.0
0x27b4b4…27b648 [0x03]: C0x0050.0x0.0
0x27b4b4…27b648 [0x04]: C0x0050.0x1.0
0x27b4b4…27b648 [0x05]: C0x0050.0x2.0
0x27b4b4…27b648 [0x06]: C0x0050.0x3.0
0x27b4b4…27b648 [0x07]: C0x0052.0x2.0
0x27b4b4…27b648 [0x08]: C0x0052.0x3.0
0x27b4b4…27b648 [0x09]: C0x0053.0x0.0
0x27b4b4…27b648 [0x0a]: C0x0057.0x2.0
0x27b4b4…27b648 [0x0b]: C0x0057.0x3.0
0x27b4b4…27b648 [0x0c]: C0x0058.0x0.0
0x27b4b4…27b648 ]
0x27b4b4…27b648 }
0x27b648…27b7dc Dummy {f00=0x0042, f01=0x0190, f02=» 2 P IDENT VDUPRT 2.1DK 4 79-10-20 870150540210 P : P =DK4 - RFMDUP B P =DK3, EUA Z P =1,ODD BUFFER ADDRESS n P REL 2.1 79-05-23 P =2,KEYBOARD LAMPS P REL 2.1 79-05-23 " P =3, TRANSMIT BUFFER LENGTH P
0x27b7dc…27b970 Dummy {f00=0x0042, f01=0x0190, f02=»LE HANDLING MESSAGES COMING FROM x : P* MAIN FRAME, AND DISPLAYING THEM ON ( . P* THE VDU ( PTS 6344 ) . f P* H P******************************************************************** P* P* P EJECT
0x27b970…27bb04 Dummy {f00=0x0042, f01=0x0190, f02=»OGRAM ATTENTION x $ P ENTRY ERASE ERASE ENTIRE SCREEN $ P ENTRY SETCUR CURSOR POSITIONING @ ( P ENTRY ERASUP ERASE ALL UNPROTECTED h & P ENTRY DISPL DISPLAY MODIFIED DATA . P ENTRY ERASUA ERASE UNPROTECTED TO ADDRESS . P ENTRY WCHAR WRITE ONE C
0x27bb04…27bc98 Dummy {f00=0x0042, f01=0x018e, f02=»CGETM P ENTRY GTRBUF P* $ P* . P* EXTERNALS 8 P* L P* V P EXTRN LINHON,LINHOF START ` P EXTRN LSAVON,LSAVOF START P EXTRN ATMASB P EXTRN EMULA P EXTRN REQTIM P EXTRN ICWRTE P* P EXT
0x27bc98…27be2c Dummy {f00=0x0042, f01=0x0190, f02=» P* D P**************************************************************** P* V ( P* CONDITIONAL ASSEMBLY PARAMETERS ` P* 2 P********************************************** P 2 POFLIN EQU 1 OFFLINE HANDLING POSSIBLE IF ::= 1 ,
0x27be2c…27bfc0 Dummy {f00=0x0042, f01=0x0190, f02=»UFFERS (1-5) p 2 PTBUFL EQU 1150 TRANSMIT BUFFER LENGTH IN WORDS 2 PTBUFNR EQU 2 NUMBER OF TRANSMIT BUFFERS (1-5) J 8 PCOPCMD EQU 1 COPY COMMAND (ONLY TO PRINTER) IF := 1 & PEBCDIC EQU 0 ASCII = 0,EBCDIC = 1 P* P* EQUATES P*
0x27bfc0…27c154 (4, 2) Dummy {f00=0x0049, f01=0x0190, f02=» & PNEWLIN EQU /7E NEW LINE CHARACTER $ PENDMES EQU /7D END MESSAGE CHAR . " PFORMFD EQU /7C FORM FEED CHAR V PDUPCH EQU /7B | PFMCH EQU /60 P EJECT P* P* P* EQUATES P* " P* COMMON EQU FOR ECB HANDLING
0x27c154…27c2e8 Dummy {f00=0x0049, f01=0x0190, f02=» P* CREDIT USED EQU P* " P* , P* ECB REL. ADDRESSES 6 P* R P* PDIS EQU 20 f P* x PECBDC EQU -DIS-14 P IFT DCLIN=2 P IFT COPCMD=1 PECBDC2 EQU ECBDC-DIS PECBICR EQU ECBDC2-DIS PECBICW E
0x27c2e8…27c47c Dummy {f00=0x0049, f01=0x0190, f02=»IF P IFF DCLIN=2 P IFT COPCMD=1 PECBICR EQU ECBDC-DIS 4 PECBICW EQU ECBICR-DIS P P XIF n P IFF DCLIN=2 z P IFF COPCMD=1 PECBICW EQU ECBDC-DIS P XIF PECBVDU EQU ECBICW-DIS PECBKB EQU ECBVDU-DIS PEC
0x27c47c…27c610 Dummy {f00=0x0049, f01=0x0190, f02=» EQU A13 ECB P* P* P* TCA REL. ADDRESSES ( P* D PTCT01 EQU 0 N PPRINTER EQU TCT01+2 b ( PBVDU EQU PRINTER+2 VDU SCREEN BUFFER ~ 0 PPCURS EQU BVDU+1920 CURSOR ADDRESS , BINARY * PATTRIB EQU PCURS+2 LAST ATTRIBUTE CHAR
0x27c610…27c7a4 Dummy {f00=0x0049, f01=0x0190, f02=»BINH+2 LINE COUNTER 0 PDCLENG EQU LINCNT+2 DC READ EFFECTIVE LENGTH 2 PICWORK EQU DCLENG+2 WORK FIELD INTERTASK COMM P , PINTATT EQU ICWORK+2 INTENSITY ATTRIBUTE $ POFFFLG EQU INTATT+2 OFFLINE FLAG ( PCOPNO EQU OFFFLG+2 HARDCOPY TASK ID *
0x27c7a4…27c938 Dummy {f00=0x0049, f01=0x0190, f02=»E+2 KEY LOCK STATUS . PECBDCC EQU KEYS+2 ECB ADDRESS LAST READ DC 2 PECBBLK EQU ECBDCC+2 ECBS FOR MULTIPLE WAIT &C N 4 PRDMORE EQU ECBBLK+10 BRANCH ADDRESS NEXT READ KB P EJECT P P* P* * PLBVDU EQU 1920 1920 CHARACTER DISP
0x27c938…27cacc Dummy {f00=0x0049, f01=0x0190, f02=»T h P* & P* CONFIG DATA 'CB1' REL ADDRESSES P* > " PNBRKBV EQU 0 NUMBER OF KB/VDUS H & PNBRGTP EQU NBRKBV+2 NUMBER OF GTPS n P* 2 PMF1KBV EQU NBRGTP+2 DV ADDRESSES KB/VDU MF #1 2 PMF1GTP EQU MF1KBV+16 DV ADDRESSES GTPS MF # 1
0x27cacc…27cc60 Dummy {f00=0x0049, f01=0x0190, f02=»****************************************************** P* > P* INPUT FROM DC H P* ` 8 P**************************************************** j P* P* RELATIVE POS IN ECBBLK PKB EQU 2 PDC1 EQU 4 PDC2 EQU 6 P*
0x27cc60…27cdf4 (4, 3) Dummy {f00=0x004f, f01=0x0190, f02=» DCLIN=2 P CM ECBBLK+DC1,TCABAS P XIF . P IFT DCLIN=2 : P LD A1,MAIN,TCABAS N P CW A8,ECBBLK+DC2,TCABAS h P RF(E) DCIN20 MF # 2 P CM ECBBLK+DC1,TCABAS P LDR A1,A1 P RF(NZ) DCIN90 WRONG MF P RF DCIN30 PDC
0x27cdf4…27cf88 Dummy {f00=0x004f, f01=0x0190, f02=»IN=1 P LD A1,OFFFLG,TCABAS P RF(NZ) DCIN90 ( P XIF > ( P LD A1,ECBEL,A8 EFFECTIVE DC-LENGTH J P ST A1,DCLENG,TCABAS v P P P LD A5,KBINH,TCABAS . P ORK A5,3 BIT 14,15:= 1. TOTALLY DISABLED . P* KEYBOARD. BIT 15 = 0
0x27cf88…27d11c Dummy {f00=0x004f, f01=0x0190, f02=»VAILABLE" p P CF A14,UPDATE P CF A14,DISPL ( P LD A2,PCURS,TCABAS > P CF A14,ATMASB Z P p P x P* P LD A2,KBINH,TCABAS P ANK A2,1 BIT 15 = 0? P RF(Z) DCIN60 P LD A2,KBINH,TCABAS . P ANK A2,/E BIT 15:
0x27d11c…27d2b0 Dummy {f00=0x004f, f01=0x0190, f02=» RF(Z) DCIN95 PDCIN60 EQU * . P CF A14,LINHOF TURN OFF 'KEYBOARD INHIBIT' * P LD A2,KBINH,TCABAS , P ANK A2,4 BITS 14,15:=0 RESTORE KEYBOARD x P ST A2,KBINH,TCABAS P RF DCIN95 PDCIN90 EQU * P LD A8,ECBDCC,TCABAS P L
0x27d2b0…27d444 Dummy {f00=0x004f, f01=0x0190, f02=» P* PDCGETM EQU * P LDK A1,0 & P CF A14,REQTIM 8 P LDK A7,/82 READ, WAIT N ( P CM ECBCW,A8 NO TIME OUT SUPERVISION l P LDKL A1,RBUFL+RBUFL P ST A1,ECBRL,A8 REQ LENGTH P ST A4,ECBBA,A8 P LKM P DATA 1
0x27d444…27d5d8 Dummy {f00=0x004f, f01=0x0190, f02=» > P********************************************************** P* J PRLINK EQU RBUFL+RBUFL+2 T P* t PRBUF EQU * ~ P DATA *+2 POINTER FIRST FREE P IFF RBUFNR=1 P DATA *+RLINK P RES RBUFL P IFF RBUFNR=2 P
0x27d5d8…27d76c Dummy {f00=0x004f, f01=0x0190, f02=»K P RES RBUFL P XIF P DATA 0 END OF CHAIN ( P RES RBUFL D P* V P* ` PTLINK EQU TBUFL+TBUFL+2 j P* PTBUF EQU * P DATA *+2 POINTER FIRST FREE P IFF TBUFNR=1 P DATA *+TLINK P RES TBUFL P
0x27d76c…27d900 Dummy {f00=0x004f, f01=0x0190, f02=»4 P DATA *+TLINK P RES TBUFL P XIF 2 P DATA 0 END OF CHAIN > P RES TBUFL Z P* l P* v P* GET WRITE BUFFER P* PGTWBUF EQU * P LDKL A5,TBUF P CF A14,GETBUF P LDR A7,A4 P LDR A12,A4
0x27d900…27da94 (4, 4) Dummy {f00=0x0050, f01=0x0190, f02=» P LDKL A5,RBUF P* P* ( PGETBUF EQU * 2 P LDR* A4,A5 F P RF(Z) GETB50 NO BUFFER FREE Z P LDR* A3,A4 ~ P STR A3,A5 P ADK A4,2 SKIP LINK P RTN A14 PGETB50 EQU * P LKM P DATA 0 SWITCH TASK
0x27da94…27dc28 Dummy {f00=0x0050, f01=0x0190, f02=»2 POINT TO LINK PRELB10 EQU * P LDR* A3,A2 , P RF(Z) RELB20 @ P LDR A2,A3 V P RB RELB10 h PRELB20 EQU * z P STR A4,A2 P CMR A4 P RTN A14 P* PRLWBUF EQU * P LDKL A2,TBUF P RB RELB05 P E
0x27dc28…27ddbc Dummy {f00=0x0050, f01=0x0190, f02=»R CHARACTER COUNTER P* P* & PPDCCH EQU * 0 P CWK A9,TBUFL+TBUFL =3 D P RF(G) PDCCHR OVERFLOW d P SCR A2,A7 PPDCCH1 EQU * P ADK A7,1 P ADKL A9,1 PPDCCHR RTN A14 P* P* P* STORE ATTENTION
0x27ddbc…27df50 Dummy {f00=0x0050, f01=0x0190, f02=» l P* P* PGDCCH LCR A2,A7 P ANK A2,/FF 4 & P RF(NZ) GDCC:1 NOT NULL CHARACTER H $ P LDK A2,/7F LOAD NULL CHARACTER r PGDCC:1 EQU * P RB PDCCH1 P EJECT P* P* . P* GET BUFFER ADDRESS TO A1 FROM DC BUF
0x27df50…27e0e4 Dummy {f00=0x0050, f01=0x0190, f02=» P LC A2,TEBCDI,A2 P ANK A2,/3F P ORR A1,A2 4 P RTN A14 F P EJECT V P* d P* n " P* WRITE MESSAGE TO MAIN FRAME x P* & P* ON EXIT A1 CONTAINS RETURN CODE P* P* PDCWRTE EQU * P LDKL A8,ECBDC
0x27e0e4…27e278 Dummy {f00=0x0050, f01=0x0190, f02=»8,CREBAS P LDKL A1,TIMDC P CF A14,REQTIM & P ST A9,ECBRL,A8 REQ LENGTH < $ P ST A12,ECBBA,A8 BUFFER ADDRESS ^ P LD A7,KBINH,TCABAS 8 P ORK A7,2 BIT 14 :=1 DISABLE KEYBOARD.RESET ALLOWED P ST A7,KBINH,TCABAS P LDK A7,/86
0x27e278…27e40c Dummy {f00=0x0050, f01=0x0190, f02=»RETURN CODE | P RF(Z) DC300 P LD A7,KBINH,TCABAS ( ( P ANK A7,/D BIT 14:=0 ALLIWE KEYBOARD D P ST A7,KBINH,TCABAS p . P CF A14,LINHOF TURN OFF "KEYBOARD INHIBIT . P CF A14,LSAVOF TURN OFF "SYSTEM AVAILABLE" P* * P LDK A7,/04 RE
0x27e40c…27e5a0 Dummy {f00=0x0050, f01=0x0190, f02=»EQU * . P CF A14,LSAVON TURN ON 'SYSTEM AVAILABLE' P RTN A14 @ P EJECT P P* ^ P* h ( P* STORE CURSOR ADDRESS IN DC BUFFER r P* P* PCURSA LD A1,PCURS,TCABAS P RF BUFADR P* P* ( P* STORE BUFFER A
0x27e5a0…27e734 (4, 5) Dummy {f00=0x0050, f01=0x018e, f02=»NK A2,/3F & P LC A2,TASCII,A2 CONVERT TO ASCII P CF A14,PDCCH < P LDR A2,A1 R P ANK A2,/3F d P LC A2,TASCII,A2 x P CF A14,PDCCH P RTN A14 P EJECT P* P* 2 P* GET MODIFIED DATA FROM DISPLAY IMAGE BUFFER
0x27e734…27e8c8 Dummy {f00=0x0050, f01=0x0190, f02=» P LDKL A4,BVDU " P ADR A4,TCABAS BUFFER POINTER @ P************************************************************ @ & P ADKL A4,1919 LAST SCREEN POSITION P LCR A2,A4 GET CHARACTER . P LDKL A4,BVDU RELOAD FIRST BUFFER POSITION P ADR A4,
0x27e8c8…27ea5c Dummy {f00=0x0050, f01=0x0190, f02=»********************************** v PRD100 CWK A3,LBVDU * P RF(NL) RDMODE ALL EXAMINED D P LCR A2,A4 GET CHAR h P ADK A3,1 P ADK A4,1 @ P************************************************************ PRD105 EQU * @ P********
0x27ea5c…27ebf0 Dummy {f00=0x0050, f01=0x0190, f02=»110 CWK A2,NULL " P RB(E) RD100 DON'T STORE NULL ! * P CF A14,PDCCH STORE CHAR IN DC BUFFER ! > P RB RD100 ! l PRD200 ANK A2,1 CHECK MDT BIT ! ~ P RF(NZ) RD300 MODIFIED FIELD ! PRD210 CWK A3,LBVDU ! P RF(NL) RDMODE ALL EXAMINED ! P LCR
0x27ebf0…27ed84 Dummy {f00=0x0050, f01=0x0190, f02=»************************************************ 78-05-11 ! * P CWK A3,LBVDU ALL BUFFER EXAMINED ??? " B P RF(NL) RDMODE YES!! " p F P******************************************************** 78-05-11 " P RB RD200 ATTRIBUTE FOUND " PRD300 LDK A2,SBA
0x27ed84…27ef18 Dummy {f00=0x0050, f01=0x0190, f02=»MODE RTN A14 " P EJECT # P* # " P* # , 4 P* UPDATE VIDEO DISPLAY BUFFER IMAGE BY THE DATA # 6 P* # n P* RECEIVED FROM THE DC LINE # x P* # P* # " P* A7=DC RECEIVE BUFFER POINTER # P* A8=DC ECB ADDRESS # ( P* A9=DC BUFFER INDEX,
0x27ef18…27f0ac Dummy {f00=0x0050, f01=0x018e, f02=» # P CM ICWORK,TCABAS $ P LD A8,ECBDCC,TCABAS $ " & P LD A7,ECBBA,A8 DC BUFFER ADDRESS $ > $ P SUR A9,A9 RESET DC BUFFER INDEX $ h 0 P CF A14,GDCCH GET FIRST CHAR FROM DC BUFFER $ P CWK A2,ESC SHOULD BE ESCAPE $ P RF(NE) UPDEND NOT ESCAPE $ "
0x27f0ac…27f240 Dummy {f00=0x0050, f01=0x0190, f02=» $ t P CWK A2,/3F % ( P RF(E) UPD140 ERASE ALL UNPROTECTED % P IFT COPCMD=1 % H P CWK A2,/37 % ^ P ABL(E) UPD600 COPY COMMAND % r P XIF % $ P RF UPDEND INVALID COMMAND CODE % P EJECT % P* % P* WRITE COMMAND % P* % PUPD1
0x27f240…27f3d4 (4, 6) Dummy {f00=0x0050, f01=0x0190, f02=»L A4,BVDU % P ADR A4,TCABAS & $ P LDK A5,1 INDICATE WCC, IC OR RA & ( P RF UPD220 & P P* & b P* ERASE/WRITE COMMAND & l P* & PUPD120 EQU * & P CF A14,ERASE ERASE SCREEN & P RF UPD200 & P* & P* ERASE ALL UNPROTECTED & P*
0x27f3d4…27f568 Dummy {f00=0x0050, f01=0x0190, f02=»E OF WRITE CONTROL CHARACTER WCC & P* ' ( " PUPD200 CF A14,PWCC PROCESS WCC ' 2 $ P LDK A5,1 INDICATE WCC, IC OR RA ' X P EJECT ' P* ' P* ' " P* PROCESS DATA FROM DC BUFFER ' P* ' P* ' , PUPD210 LDK A3,0 START FROM POSITION ZERO '
0x27f568…27f6fc Dummy {f00=0x0050, f01=0x0190, f02=»F A14,GDCCH GET CHAR FROM DC BUFFER ' P CWK A2,/20 ( , P RF(L) UPD300 ORDER ( @ PUPD230 EQU * ( P ORK A2,/80 SET DISPLAY BIT ( p PUPD240 EQU * ( ( P LDK A5,0 INDICATE NOT WCC, IC OR RA ( P CWK A3,LBVDU ( & P RF(E) UPD260 END OF VIDEO BUF
0x27f6fc…27f890 Dummy {f00=0x0050, f01=0x0190, f02=» A3,0 ( P LDKL A4,BVDU ) P ADR A4,TCABAS ) $ P RB UPD250 ) : PUPD300 EQU * ) L : P******************************************* 78-08-15 ) ` , P CWK A3,LBVDU END OF DISPLAY BUFFER ??? ) P RF(NE) UPD302 NO!!! ) $ P SUR A3,A3 FIRST SCREEN POSITI
0x27f890…27fa24 Dummy {f00=0x0050, f01=0x0190, f02=»8-08-15 ) b P CWK A2,/1D * P RF(E) UPD320 START FIELD * $ P CWK A2,/11 * F $ P RF(E) UPD340 SET BUFFER ADDRESS * Z P CWK A2,/13 * P RF(E) UPD360 INSERT CURSOR * P CWK A2,/09 * P RF(E) UPD400 PROGRAM TAB * P CWK A2,/14 * $ P RF(
0x27fa24…27fbb8 Dummy {f00=0x0050, f01=0x018e, f02=»D305 * P LDK A2,FORMFD FORM FEED + P RB UPD230 + , PUPD305 CWK A2,/19 + > P RF(NE) UPD310 + X P LDK A2,ENDMES END MESSAGE + n P RB UPD230 + PUPD310 EQU * + P CWK A2,/0A + P RF(NE) UPD315 + P LDK A2,NEWLIN NEW LINE + P RB UPD2
0x27fbb8…27fd4c Dummy {f00=0x0050, f01=0x0190, f02=» P , PUPD318 EQU * , " P CWK A2,/00 NULL CHARACTER ??? , & P RF(NE) UPDEND NO!! ILLEGAL ORDER , F " P LDK A2,/7F PTS NULL CHARACTER , p P RB UPD230 , P , @ P************************************************************ , P* , P* RELEAS
0x27fd4c…27fee0 Dummy {f00=0x0050, f01=0x0190, f02=» LD A4,ECBBA,A8 , P CF A14,RLRBUF - P RTN A14 - . P EJECT - > P* - L P* - V P* START FIELD ORDER - ` P* - | * PUPD320 CF A14,GDCCH GET ATTRIBUTE CHAR - P LC A2,TEBCDI,A2 - * P LDR A1,A2 COMPOSE PTS ATTRIBUTE CHAR - P ANK A1,1 -
0x27fee0…280074 (4, 7) Dummy {f00=0x0050, f01=0x0190, f02=»A14,GETADR GET ADDRESS - P CWK A1,LBVDU . " P RB(NL) UPDEND INVALID ADDRESS . 4 P LDR A3,A1 . Z P LDR A4,A3 . l P ADKL A4,BVDU . ~ P ADR A4,TCABAS . P RB UPD220 . P* . P* INSERT CURSOR . P* . 0 PUPD360 ST A3,PCURS,TCABAS SET NE
0x280074…280208 Dummy {f00=0x0050, f01=0x0190, f02=»D400 LDR A5,A5 . * P RF(NZ) UPD430 PT AFTER WCC, IC OR RA / 0 P LDK A1,NULL+/80 FILL CURRENT FIELD BY NULLS / D PUPD410 EQU * / x P LDK A5,0 / P CWK A3,LBVDU / P RB(NL) UPD210 END OF BUFFER / P LCR A2,A4 / P ADK A3,1 / P ANK A2,/7F
0x280208…28039c Dummy {f00=0x0050, f01=0x0190, f02=» ADK A4,1 / PUPD420 ANK A2,/10 0 $ P RB(Z) UPD220 UNPROTECTED FIELD 0 , PUPD430 EQU * 0 T P LDK A5,0 0 h P CWK A3,LBVDU 0 z * P ABL(NL) UPD210 END OF DISPLAY BUFFER 0 P LCR A2,A4 0 P ADK A3,1 0 P ADK A4,1 0 P ANK A2,/7F 0 P
0x28039c…280530 Dummy {f00=0x0050, f01=0x0190, f02=»GETADR GET END ADDRESS 0 P CWK A1,LBVDU 1 " P RB(NL) UPDEND INVALID ADDRESS 1 4 * P CF A14,GDCCH GET CHAR TO BE REPEATED 1 Z $ P LDK A5,1 INDICATE WCC, IC OR RA 1 " P ORK A2,/80 INDICATE MODIFIED 1 P 1 B P******************************************
0x280530…2806c4 Dummy {f00=0x0050, f01=0x0190, f02=»******************************************* 78-07-02 1 P 2 > PUPD510 CWK A3,LBVDU 2 F $ P RF(L) UPD520 NOT END OF SCREEN 2 b P LDK A3,0 2 P LDKL A4,BVDU WRAP AROUND 2 P ADR A4,TCABAS 2 PUPD520 CWR A3,A1 2 $ P ABL(E) UPD220 ALL CHAR REPE
0x2806c4…280858 Dummy {f00=0x0050, f01=0x0190, f02=»******************************* 78-07-02 2 z P 3 2 P SCR A2,A4 3 : P ADK A3,1 3 L P ADK A4,1 3 ^ P RB UPD510 NEXT POSITION 3 p P* 3 " P* ERASE UNPROTECTED TO ADDRESS 3 P* 3 ( PUPD540 CF A14,GETADR GET END ADDRESS 3 P CWK A3,LBVDU 3
0x280858…2809ec Dummy {f00=0x0050, f01=0x0190, f02=» EJECT 3 P* 4 P* COPY COMMAND 4 P* 4 . PUPD600 EQU * 4 8 P LD A1,PRINTER,TCABAS 4 L 4 P ABL(Z) UPDEND COPYCOMMAND NOT SUPPORTED FOR VDU 4 j P ADK A7,1 4 P BYPASS CCC 4 " P CF A14,GDCCH GET FROM DEVICE 4 P IFT EBCDIC=1 4 & P L
0x2809ec…280b80 Dummy {f00=0x0050, f01=0x018e, f02=» IFT DCLIN=2 4 P LD A1,ECBBLK+DC2,TCABAS 5 P RF(NZ) UPD602 5 4 P LDK A4,MF2KBV-1 MF # 2 READ 5 J P XIF 5 n P IFT COPCMD=1 5 z PUPD602 EQU * 5 P ADR A4,A3 CONFIG TABLE -1 5 & P LD A5,NBRKBV,A3 NUMBER OF KB/VDUS 5 ( P ADR A4,A5 LAST KB/VDU C
0x280b80…280d14 (4, 8) Dummy {f00=0x0052, f01=0x0190, f02=» 5 P RB(P) UPD604 TRY NEXT 6 P ABL UPDEND NO MATCH 6 & P* 6 B PUPD610 EQU * 6 L P LDKL A8,ECBICW 6 ` P ADR A8,CREBAS 6 x P LKM 6 0 P DATA 10 ABORT LAST REQUEST IF NOT COMPLETED 6 & P ADKL A5,/4B40 TASKID FROM DEVICE 6 $ P LD A2,-4,CREBAS
0x280d14…280ea8 Dummy {f00=0x0052, f01=0x0190, f02=» P LDKL A3,ICWORK 7 " P ADR A3,TCABAS BUFFER ADDRESS 7 " P CF A14,ICWRTE WRITE INTERTASK 7 B P ABL UPDEND 7 h P XIF 7 | P EJECT 7 P* 7 P* 7 & P* PROCESS WRITE CONTROL CHARACTER 7 P* 7 * P* ONLY RESET MDT BIT IS TAKEN CARE OF 7
0x280ea8…28103c Dummy {f00=0x0052, f01=0x0190, f02=»4 7 P RF(Z) PWCC1 8 P LD A2,PRINTER,TCABAS 8 P RF(NZ) PWCC1 8 < P LDR A10,A7 8 R P LDKL A8,ECBVDU 8 f P ADR A8,CREBAS 8 ~ P LD A2,ECBBA,A8 8 P LDK A7,/2B 8 P SC A7,1,A2 =1 8 P LDK A7,/07 BELL =1 8 P SC A7,2,A2 =1 8
0x28103c…2811d0 Dummy {f00=0x0052, f01=0x018e, f02=»AS 8 ~ P LDR A7,A10 9 PPWCC1 EQU * 9 P LD A2,WCC,TCABAS 9 2 P ANK A2,1 9 L P RF(NZ) RESMDT RESET ALL MDT 9 ^ PPWCC10 RTN A14 NO ACTION 9 P* 9 P* 9 P* RESET ALL MDT BITS 9 P* 9 P* 9 PRESMDT LDK A3,0 9 P LDKL A4,B
0x2811d0…281364 Dummy {f00=0x0052, f01=0x018e, f02=» 9 P RF(NZ) RESM20 NO ATTRIBUTE : P LCR A2,A4 : , P ANK A2,/FE RESET MDT : > P SCR A2,A4 : PRESM20 ADK A3,1 : n P ADK A4,1 : P RB RESM10 : P EJECT : P* : P* : P* ERASE ENTIRE SCREEN : P* : P* : PERASE LDK
0x281364…2814f8 Dummy {f00=0x0052, f01=0x0190, f02=» P SCR A2,A4 ; P ADK A3,1 ; P ADK A4,1 ; ( P RB ERAS20 ; : , PERAS25 CM PCURS,TCABAS RESET CURSOR POS ; L P LDKL A1,LBVDU+1 ; | 0 P ST A1,CURATT,TCABAS INDICATE UNFORM. SCREEN ; P CM ATTRIB,TCABAS ; , P LD A1,PRINTER,TCABAS CHECK DEVISE TYP
0x2814f8…28168c Dummy {f00=0x0052, f01=0x018e, f02=» ; P ADR A8,CREBAS VDUECB < " P LDK A7,'1' ERASE CONTROL CHAR < & P LD A1,ECBBA,A8 =1 < L P SC A7,1,A1 =1 < h P LDK A7,2 < " P ST A7,ECBRL,A8 REQ LENGTH = 2 < P LDK A7,/86 WRITE < P LKM < P DATA 1 < P LD A8,-2,A14 < " P LDR
0x28168c…281820 Dummy {f00=0x0052, f01=0x0190, f02=» < PERASUP LDK A2,2 = . P ST A2,WCC,TCABAS SET KEYBOARD RESTORE BIT = 2 P SUR A1,A1 INDICATE ATT IN LAST SCREEN POS DK = R P LDK A3,0 = P LDKL A4,BVDU = P ADR A4,TCABAS = 0 P CM PCURS,TCABAS FIND FIRST UNPROTECTED POS = H P**************
0x281820…2819b4 (4, 9) Dummy {f00=0x0052, f01=0x0190, f02=»2,/20 ATTRIBUTE ??? = $ P RF(L) ERU:01 YES!! WE GOT IT!! > 0 P LDK A1,1 ATTRIBUTE NOT IN LAST SCREEN POS. > D < P******************************************************** > x PERASU1 CWK A3,LBVDU > P RF(NL) ERASU2 > P LCR A2,A4 GET CHAR > P A
0x2819b4…281b48 Dummy {f00=0x0052, f01=0x0190, f02=»2,/10 > P RB(NZ) ERASU1 PROTECTED ? * P ST A3,PCURS,TCABAS SET NEW CURSOR POS ? . P LDR A1,A1 ? 0 P RF(Z) ERASU3 ATTRIBUTE IN LAST SCREEN POS. ? n PERASU2 LDK A3,0 ? P LDKL A4,BVDU ? P ADR A4,TCABAS ? P RF ERASU4 ? PERASU3 EQU * ?
0x281b48…281cdc Dummy {f00=0x0052, f01=0x0190, f02=» - " - ? PERASU4 EQU * @ " P LDKL A1,/0F00 (LDK A1,0) DK3 @ " P LDK A6,NULL+/80 ERASE CHAR @ H P RF ERAS35 @ l P EJECT @ ~ P* @ P* @ . P* ERASE UNPROTECTED TO ADDRESS GIVEN IN A1 @ P* @ P* @ * PERASUA LDK A6,NULL+/80 ERASE CHARA
0x281cdc…281e70 Dummy {f00=0x0052, f01=0x0190, f02=»X @ | P LDKL A4,BVDU A , P ADR A4,TCABAS ABSOLUTE BUFFER ADDRESS A P A P 8 PERAS:1 LDR A3,A3 START IN FIRST SCREEN POSITION ??? A X P RF(NZ) ERAS35 NO!! A ( P LC A2,1919,A4 LAST BUFFER CHARACTER A P ANK A2,/7F A ( P CWK A2,/20 ATTRIBUTE CH
0x281e70…282004 Dummy {f00=0x0052, f01=0x0190, f02=»ANK A2,/FE DK3 A & P* SC A2,1919,A4 RESET MDT BIT DK3 B P RF ERAS35 B B $ P ******************** 78-09-11 B T PERAS30 CWK A3,LBVDU B | $ P RF(L) ERAS33 NOT END OF SCREEN B P LDK A3,0 B P LDKL A4,BVDU WRAP AROUND B P ADR A4,TCABAS B
0x282004…282198 Dummy {f00=0x0052, f01=0x0190, f02=» B l $ P RF(NZ) ERAS35 NO, CONTINUE DK3 C P LDK A1,0 YES FINISHED DK3 C 0 P RB ERAEND DK3 C R PERAS34 EQU * DK3 C j P CWR A3,A1 C ( P RB(E) ERAEND ALL UNPROTECTED ERASED C . PERAS35 LCR A2,A4 GET CHAR FROM VDU BUFFER C P ANK A2,/7F C P
0x282198…28232c Dummy {f00=0x0052, f01=0x0190, f02=»NULL C v PERAS40 ADK A3,1 D P ADK A4,1 D $ P RB ERAS30 D 6 PERAS50 ADK A3,1 D H P ADK A4,1 D ` P ANK A2,/10 D r " P RF(NZ) ERAS60 PROTECTED FIELD D " P CWK A1,/0F00 EUA COMMAND? DK3 D P RB(L) ERAS30 NO DK3 D & P* EUA COMMAND: RESET MDT
0x28232c…2824c0 Dummy {f00=0x0052, f01=0x0190, f02=» RF(L) ERAS65 D P LDK A3,0 E P LDKL A4,BVDU WRAP AROUND E ( P ADR A4,TCABAS E J PERAS65 EQU * E ` " P CWK A1,/0F00 EUA COMMAND? DK3 E t $ P RF(L) ERAS67 NO, EUA ORDER DK3 E ( P CWK A3,0 FINISHED EUA COMMAND? DK3 E " P RF(NZ) ERAS70 NO,CONTINUE
0x2824c0…282654 (4, 10) Dummy {f00=0x0053, f01=0x0190, f02=»PROTECTED ERASED E | PERAS70 EQU * F P LCR A2,A4 F , P ANK A2,/7F F > P CWK A2,/20 F R " P RB(L) ERAS50 ATTRIBUTE FOUND F f P ADK A3,1 F P ADK A4,1 F P RB ERAS60 F P EJECT F P* F P* F P* TRANSMIT PROGRAM ATTENTION F P
0x282654…2827e8 Dummy {f00=0x0053, f01=0x0190, f02=»U * F P CF A14,DCWRTE WRITE MESSAGE G PTR050 EQU * G 0 " P RTN A14 TRANSMISSION TROUBLE G D PTRRTN RTN A14 G j P EJECT G P* G P* G P* TRANSMIT PROGRAM FUNCTION G P* G P* A2=AID G P* G P* G * PTRPF CF A14,GTWBUF G
0x2827e8…28297c Dummy {f00=0x0053, f01=0x0190, f02=» " P RB TRANS SEND MODIFIED FIELDS H P EJECT H * P* H 8 P* H B $ P* DISPLAY MODIFIED FIELDS ON VDU H L P* H t P* H ~ P* A3=VDU POSITION H P* A4=VDU IMAGE POINTER H P* A5=MODIFIED INDICATOR H P* A7=VDU LINE OUTPUT POINTER H P* A8
0x28297c…282b10 Dummy {f00=0x0053, f01=0x0190, f02=»START FROM LINE 1 POS 1 H P ST A1,ECBCW,A8 I 8 P SUR A10,A10 RESET COUNT FOR INTENSIFIED DISPLAYING I 8 P LDK A3,0 I t P LDKL A4,BVDU I P ADR A4,TCABAS I , P CF A14,SPACES PUT SPACES IN LINE BUFFER I D P**************************************
0x282b10…282ca4 Dummy {f00=0x0053, f01=0x0190, f02=»? I x P RF(G) DIS100 NO!!! J P J & P ANK A2,6 J . P XRK A2,6 J @ > P ST A2,INTATT,TCABAS CHECK DISPLAY/NONDISPLAY INFORMATION J R P RF(Z) DIS210 NON DISPLAY J 4 P CF A14,INTCHK INSERT HIGH/LOW INTENS. IN BUFFER J H P**************************
0x282ca4…282e38 Dummy {f00=0x0053, f01=0x0190, f02=»4,DISLIN DISPLAY THIS LINE J . P CF A14,INTCHK CHECK IF LOW/HIGH INTENSITY K " PDIS110 EQU * K T P CWK A3,LBVDU K h P RF(NL) DIS900 ALL SCANNED K ~ P LCR A2,A4 GET CHAR K > P************************************************ 78-08-15 K P K " P C
0x282e38…282fcc Dummy {f00=0x0053, f01=0x0190, f02=»2,/7F RESET DISPLAY BIT K P SCR A2,A4 L P ADK A3,1 L 2 P ADK A4,1 L D P ADK A7,1 L V P ADKL A9,1 L h P CWK A2,/20 L z P RF(L) DIS200 ATTRIBUTE CHAR L P CWK A2,NULL L . P RB(E) DIS100 NULL EQUALS SPACE AT DISPLAY L P CWK A2,/7D L
0x282fcc…283160 Dummy {f00=0x0053, f01=0x018e, f02=» P RF(NE) DIS122 M P LDK A2,/3C M PDIS122 EQU * M . P CF A14,RFMDUP DK4 M B 4 P SC A2,-1,A7 STORE CHAR IN DISPLAY OUTPUT BUFFER M ^ P RB DIS100 M PDIS200 ANK A2,6 M " P XRK A2,6 CHECK IF NONDISPLAY M 2 P ST A2,INTATT,TCABAS SAVE ATTRIBUT
0x283160…2832f4 (4, 11) Dummy {f00=0x0057, f01=0x0190, f02=» M t P RF DIS206 N PDIS205 EQU * N P LDK A2,/1F HIGH N . PDIS206 EQU * N F * P SC A2,-1,A7 STORE INTENSITY CHARACTER N Z " P ADKL A10,1 INCREMENT COUNTER N P ADK A7,1 N P RB DIS100 N PDIS210 EQU * N P CWK A9,LLINE N P RF(L) DIS22
0x2832f4…283488 Dummy {f00=0x0057, f01=0x018e, f02=»A4 N > P************************************************* 78-08-15 O P O L " P CF A14,SET:M SET MODIFIED BIT O T P O z > P************************************************ 78-08-15 O PDIS225 EQU * O " P ANK A2,/7F RESET DISPLAY BIT O P SCR A2,A4
0x283488…28361c Dummy {f00=0x0057, f01=0x0190, f02=» P RB DIS210 P P EJECT P P* P $ P* P . P* POSITION THE CURSOR P 8 P* P V P* P ` PSETCUR EQU * P j PDIS900 LDK A1,2 REQ LENGTH P ~ PDIS905 ST A1,ECBRL,A8 P & P LD A1,PCURS,TCABAS GET CURSOR POS P & P LDKL A2,/101 START ON LIN 1 POS
0x28361c…2837b0 Dummy {f00=0x0057, f01=0x0190, f02=»A1,LLINE P P RB DIS910 Q PDIS920 ADS A1,ECBCW,A8 Q " $ P LDK A7,/8B SET CURSOR AND WRITE Q @ P LKM Q h P DATA 1 Q t 0 P CM INTATT,TCABAS CLEAR INTENSITY ATTRIBUTE Q P RTN A14 Q P EJECT Q P* Q P* Q 0 P* WRITE ONE CHAR FROM A2 IN CU
0x2837b0…283944 Dummy {f00=0x0057, f01=0x0190, f02=» Q d P LDK A1,4 R P RB DIS905 REQ LENGTH = 3 R P* R < J P********************************************************************* R F P* R 8 P* REPLACE FM & DUP WITH '*' RESP. ';', IF PRESENT R P* CHARACTER IN A2 R P* R J P******
0x283944…283ad8 Dummy {f00=0x0057, f01=0x018e, f02=»10 R P LDK A2,/2A DUP S PRFMD10 EQU * S " P CWK A2,FMCH S 6 P RF(NE) RFMD20 S J P LDK A2,/3B S ` PRFMD20 EQU * S t P RTN A14 S P EJECT S P* S P* S ( P* PUT SPACES TO DISPLAY LINE BUFFER S P* S P* S PSPACES LD A7,E
0x283ad8…283c6c Dummy {f00=0x0057, f01=0x0190, f02=» PSPAC10 SCR A2,A7 =1 T P SC A2,1,A7 =1 T P ADK A7,2 T 8 P SUKL A9,2 T J P RB(P) SPAC10 T $ P LDK A2,0 CLEAR A2=CHAR REGISTER T r & P LDK A5,0 RESET MODIFIED INDICATOR T P LD A7,ECBBA,A8 T P ADK A7,2 BUFFER ADDRESS T & P SUR A9,A9 R
0x283c6c…283e00 Dummy {f00=0x0057, f01=0x0190, f02=» T > P************************************************* 78-08-15 U P U J PDISLIN EQU * U R P LDR A7,A5 U f $ P ANK A5,/80 ANY MODIFICATIONS ?? U x " P RF(Z) DISL10 NO MODIFICATIONS U P LDK A1,2 U ( P XRK A7,/A0 ONLY SPACES IN BUFFER ?? U P RF(
0x283e00…283f94 (4, 12) Dummy {f00=0x0057, f01=0x0190, f02=»***************************** 78-08-15 U ~ " P ST A1,ECBRL,A8 SET REQ LENGTH V . P V T P V $ P LDK A7,/8B SET CURSOR AND WRITE V d P LKM V P DATA 1 V P EJECT V P V H P******************************************************************** V
0x283f94…284128 Dummy {f00=0x0057, f01=0x0190, f02=»*************************** V h P W $ $ P LD A1,ECBCW,A8 CURSOR POSITION W , P ANK A1,X'FF' COLUMN NUMBER W T $ P* SUK A1,81 LAST POSITION ??? DK W x " P SUK A1,80 LAST POSITION ? DK W 4 P* RF(Z) DISL10 YES!! NO FAST OUTPUT THIS LINE DK W 4 P RF(NL) DI
0x284128…2842bc Dummy {f00=0x0057, f01=0x0190, f02=» P SC A2,1,A1 =1 X * P LDKL A2,X'1420' FAST OUTPUT OF SPACES X P SC A2,3,A1 =1 X J P SRL A2,8 =1 X b P SC A2,2,A1 =1 X x P LDK A2,84 REQUESTED LENGTH X P ST A2,ECBRL,A8 X P LDK A7,X'86' WRITE ORDER X P LKM X P DATA 1 X
0x2842bc…284450 Dummy {f00=0x0057, f01=0x0190, f02=»MENT LINE NUMBER X z $ P RB SPACES PUT SPACES TO BUFFER Y P Y @ P EJECT Y H P Y V P Y ^ D P**************************************************************** Y f P* Y > P* I N T C H K CHECK IF LINE SHOULD BE PRINTED WITH Y 0 P*
0x284450…2845e4 Dummy {f00=0x0057, f01=0x0190, f02=»TCHK SUR A10,A10 RESET INTENSITY COUNT Y 0 P LD A2,INTATT,TCABAS GET INTENSITY ATTRIBUTE Z . P RF(Z) INTRTN NON DISPLAY Z b $ P ANK A2,X'4' HIGH INTENSITY ??? Z P RF(Z) INT:10 YES Z P Z P LDK A2,X'1E' LOW INTENSITY Z P RF INT:20 HIGH INTENS
0x2845e4…284778 Dummy {f00=0x0057, f01=0x0190, f02=»7,1 INCREMENT BUFFER POINTER Z * P ADKL A10,1 INTENSITY COUNT [ $ PINTRTN RTN A14 RETURN [ R P* [ p P EJECT [ z P [ D P**************************************************************** [ P* [ @ P* SET:M SET MODIFIED BIT IF CHARAC
0x284778…28490c Dummy {f00=0x0057, f01=0x413e, f02=»20 [ & P RF(L) SET:M2 ATTRIBUTE CHARACTER P CWK A2,/7F 4 & P RF(E) SET:M2 UNMODIFIED ATTRIBUTE H P CWK A2,/FF r ( P RF(NE) SET:M1 NOT NULL OR ATTRIBUTE ( P ORK A5,/A0 MODIFIED NULL CHARACTER P RTN A14 & PSET:M1 ORR A5,A2 SET MODIF
0x28490c…284aa0 Dummy {f00=0x0057, f01=0x2008, f02=» ] NT DUMMY END @ (
0x284aa0…284c34 (4, 13) Dummy {f00=0x0058, f01=0x0190, f02=»HANDLING RUTIN ] x $ P RTN A14 GO TO MAIN READ MODULE ^ P ^ > P ^ F PPF EQU * ^ N P SUK A2,/5C ^ ^ P RB ENT100 ^ r P IFT OFLIN=1 ^ P ^ @ P************************************************************ ^ P* ^ P* OFLINE ^ < P*
0x284c34…284dc8 Dummy {f00=0x0058, f01=0x018e, f02=»*************************************************** ^ POFLINE EQU * _ < P CF A14,CLEAR _ P POFLI05 EQU * _ f P CF A14,RESET _ z P IFT DCLIN=2 _ P LD A7,MAIN,TCABAS _ P XRK A7,1 _ P ST A7,MAIN,TCABAS _ 0 P CF A14,DCABOR ABORT REQUEST N
0x284dc8…284f5c Dummy {f00=0x0058, f01=0x0190, f02=» _ x & P CF A14,EMULA TRANSFER PARAMETERS ` P IFT DCLIN=2 ` 2 P LDKL A8,ECBDC2 MF # 2 ` F & P CF A14,EMULA TRANSFER PARAMETERS ` d P XIF ` P IFT OFLIN=1 ` P CF A14,LMF1OF ` P CF A14,LMF2OF ` P CF A14,LSAVOF ` ( P CF A14,LIOLON TURN ON O
0x284f5c…2850f0 Dummy {f00=0x0058, f01=0x0190, f02=»-A13 ` n P LD A12,4,A14 a $ P ADKL A14,4 UPDATE STACK POINTER a " * P ABL I:RT1 RETURN TO "OFFLINE" PROGRAM a J P a x P XIF a P IFT DCLIN=2 a P a @ P*********************************************************** a P* a P* MAINFRAME CHAN
0x2850f0…285284 Dummy {f00=0x0058, f01=0x0190, f02=»*********************************************************** a P* b D PMFCHGE EQU * b N P CF A14,CLEAR b b PMFCH05 EQU * b x P CF A14,RESET b P CF A14,LMF1OF b P CF A14,LMF2OF b P CF A14,LSAVOF b P LD A1,MAIN,TCABAS b P XRK A1,1
0x285284…285418 Dummy {f00=0x0058, f01=0x0190, f02=»A1,MAIN,TCABAS b P RTN A14 c P XIF c & P c 2 P* c < < P******************************************************** c F P* c P* CLEAR c P* c : P* PROGRAM ATTENTION KEY WHICH CAUSES AN I/O OPERATION c 8 P* AND GENERATE AN AID CHARACTER.
0x285418…2855ac Dummy {f00=0x0058, f01=0x018e, f02=»************************************** c ~ P* d . PCLEAR EQU * d 8 P LDK A2,/2D POS FOR 'CLEAR' d L P LC A2,TASCII,A2 d p . P CF A14,LINHON TURN ON "KEYBOARD INHIBIT" d ( P CF A14,TRPA UPDATE AID AND TRANSMIT d & P CF A14,ERASE ERASE ENTIRE SCREEN
0x2855ac…285740 Dummy {f00=0x0058, f01=0x0190, f02=» P* e P* ERASE TO END OF FIELD e P* e . @ P************************************************************ e 8 P* e | PEREOF EQU * e P LDK A6,1 e & P LD A3,ATTRIB,TCABAS GET ATTRIBUTE e P ANK A3,/10 UNPROTECTED? e P RF(E) ERE100 YES
0x285740…2858d4 (4, 14) Opaque[0x194]
0x2858d4…285a68 # DirEnt {nam=»PRT «, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x1228, f03=0x0000}
0x2858d4…285a68 IdxSect {
0x2858d4…285a68 f00 = 0x0091 // 0x2858d4 @0x0
0x2858d4…285a68 f01 = 0x000a // 0x2858d6 @0x2
0x2858d4…285a68 gno = [ // 0x2858d8 @0x4
0x2858d4…285a68 [0x00]: C0x0091.0x1.0
0x2858d4…285a68 [0x01]: C0x0091.0x2.0
0x2858d4…285a68 [0x02]: C0x0093.0x2.0
0x2858d4…285a68 [0x03]: C0x0098.0x1.0
0x2858d4…285a68 [0x04]: C0x009d.0x2.0
0x2858d4…285a68 ]
0x2858d4…285a68 }
0x285a68…285bfc Dummy {f00=0x0091, f01=0x0190, f02=» 2 P IDENT PRT REL 2.1*79-10-20 870150540210 P : P =1, ODD BUFFER ADDRESS B P REL 2.1 79-05-23 d N P************************************************************************* P* F P* P R T : MODULE PRINTING MAIN FRAME MES
0x285bfc…285d90 Dummy {f00=0x0091, f01=0x0190, f02=»ULE l P* J P********************************************************************** P* d P EJECT n P | P P* P* P* ENTRY PARAMETERS P* P* P ENTRY SNBUSY P ENTRY PRINT P ENTRY ICREAD
0x285d90…285f24 Dummy {f00=0x0091, f01=0x0190, f02=»PLACE FM & DUP CHARS P EXTRN GTRBUF P EXTRN DCGETM 2 P EXTRN RELBUF H P EXTRN DC1INQ ^ P EXTRN DC2INQ t P EXTRN REQTIM P* , P EXTRN I:EVA0 CREDIT EVALUATION ROUTINE P* P EXTRN EMULA START P EJECT
0x285f24…2860b8 Dummy {f00=0x0091, f01=0x0190, f02=»***************************************** P 2 2 POFLIN EQU 1 OFFLINE HANDLING POSSIBLE IF ::= 1 : , PDCLIN EQU 1 NUMBER OF MAIN FRAMES 81-2) p & PCOPCMD EQU 1 COPY COMMAND IF := 1 P* P* EQUATES P* P* P* . PTIMD
0x2860b8…28624c Dummy {f00=0x0091, f01=0x0190, f02=» NEW LINE CHARACTER $ PENDMES EQU /7D END MESSAGE CHAR " PFORMFD EQU /7C FORMFEED CHAR. D PFMCH EQU /60 j PDUPCH EQU /7B ~ P EJECT P* P* P* EQUATES P* " P* COMMON EQU FOR ECB HANDLING P* P
0x28624c…2863e0 Dummy {f00=0x0091, f01=0x018e, f02=»SED EQU P* P* P* ECB REL. ADDRESSES $ P* @ P* J PDIS EQU 20 T P* f PECBDC EQU -DIS-14 p P IFT DCLIN=2 PECBDC2 EQU ECBDC-DIS PECBICR EQU ECBDC2-DIS P XIF P IFF DCLIN=2 PECBICR EQU ECBDC
0x2863e0…286574 (4, 15) Dummy {f00=0x0091, f01=0x0190, f02=» PECBPR EQU ECBICR-DIS P XIF P* , P* 6 " P* BASE ADDRESS FOR TCA AND ECB @ P* f PTCABAS EQU A11 p PCREBAS EQU A13 ECB P* & P* CONFIG DATA 'CB1' REL ADDRESSES P* " PNBRKBV EQU 0 NUMBER OF KB/VDUS & PNBRG
0x286574…286708 Dummy {f00=0x0091, f01=0x0190, f02=»GTPS MF # 1 n P IFT DCLIN=2 PMF2KBV EQU MF1GTP+16 ( PMF2GTP EQU MF2KBV+16 D P XIF ` P EJECT l P* z P* TCA REL. ADDRESSES P* PTCT01 EQU 0 PPRINTER EQU TCT01+2 ( PBVDU EQU PRINTER+2 VDU SCREEN BUFFER 0 PPC
0x286708…28689c Dummy {f00=0x0091, f01=0x0190, f02=»TT+2 WCC/CCC CHARACTER . PKBINH EQU WCC+2 KEYBOARD INHIBIT INDICATOR $ PLINCNT EQU KBINH+2 LINE COUNTER P 0 PDCLENG EQU LINCNT+2 DC READ EFFECTIVE LENGTH x 2 PICWORK EQU DCLENG+2 WORK FIELD INTERTASK COMM , PINTATT EQU ICWORK+2 INTENSITY ATTRIBUT
0x28689c…286a30 Dummy {f00=0x0091, f01=0x0190, f02=» PMAIN EQU CCC+2 MAIN FRAME & PMODE EQU MAIN+2 INSERT MODE SWITCH & $ PKEYS EQU MODE+2 KEY LOCK STATUS P . PECBDCC EQU KEYS+2 ECB ADDRESS LAST READ DC x 2 PECBBLK EQU ECBDCC+2 ECBS FOR MULTIPLE WAIT &C 4 PRDMORE EQU ECBBLK+10 BRANCH ADDRESS NEXT
0x286a30…286bc4 Dummy {f00=0x0091, f01=0x0190, f02=»EQU 1920 1920 CHARACTER DISPLAY " PLPAGE EQU 48 LINES ON ONE PAGE ( : PGTPLIN EQU 112 LINELENGTH MAX 112 CHAR. 'NL' ORDER IN N , P* BUFFER DETERMINES PRINT LINE LENGTH P* P P P EJECT PPRINT EQU * P CF A14,I:EVA0
0x286bc4…286d58 Dummy {f00=0x0091, f01=0x0190, f02=»******************************************* P* 4 , P* TRANSFER PARAMETER FOR MAIN-FRAME #1 > P* n 6 P************************************************* x P P LC A1,MF1GTP-1,A4 P ANK A1,/FF P LDKL A8,ECBDC P CF A14,EM
0x286d58…286eec Dummy {f00=0x0091, f01=0x0190, f02=»E #2 l P* 6 P************************************************* P P P LC A1,MF2GTP-1,A4 X P ANK A1,/FF r P LDKL A8,ECBDC2 $ P CF A14,EMULA TRANSFER PARAMETER P XIF P EJECT P* P* RELATIVE POS IN ECBBLK
0x286eec…287080 Dummy {f00=0x0091, f01=0x0190, f02=» LDK A1,3 P XIF P ST A1,ECBBLK,TCABAS PPRI100 EQU * : P CM ICWORK,TCABAS N P LD A1,ECBBLK+DC1,TCABAS h P RF(NZ) PRI110 PENDING 0 P CF A14,DC1INQ TEST IF ANY MESSAGE, NO WAIT PPRI110 EQU * P IFT DCLIN=2 P LD A1
0x287080…287214 (4, 16) Dummy {f00=0x0093, f01=0x0190, f02=» * P LD A1,ECBBLK+ICR,TCABAS P RF(NZ) PRI150 PENDING * P LDKL A6,LBVDU REQ LENGTH H P LDKL A3,BVDU BUFFER j P ADR A3,TCABAS ADDRESS * P CF A14,ICREAD READ INTERTASK NO WAIT P ST A8,ECBBLK+ICR,TCABAS PPRI150 EQU * P
0x287214…2873a8 Dummy {f00=0x0093, f01=0x0190, f02=»PUT FROM INTERTASK : P ST A8,ECBDCC,TCABAS SAVE ECB ADDRESS FOR CURRENT READ P CF A14,DCINP INPUT FROM DC X P RB PRI100 | P EJECT P* P* READ INTERTASK, NOWAIT P* P* A3 = BUFFER ADDRESS P* A6 = REQ LENGTH P
0x2873a8…28753c Dummy {f00=0x0093, f01=0x0190, f02=»Q LENGTH ~ P ST A3,ECBBA,A8 * P LDK A7,2 READ NOT ADDRESSED, NO WAIT ( P LKM V P DATA 1 b P RTN A14 r P EJECT D P**************************************************************** P* P* INPUT FROM DC P* 8 P****
0x28753c…2876d0 Dummy {f00=0x0093, f01=0x0190, f02=»7,A7 P RF(Z) DCIN10 NOT COMPLETED P IM ICWORK,TCABAS SET FLAG 0 , P RF ICRINP TAKE CARE OF INTERTASK INPUT R . P OR BUFFER WILL BE DESTROYED IN 'UPDATE' PDCIN10 EQU * & P CF A14,GTRBUF GET RECEIVE BUFFER P LD A8,ECBDCC,TCABAS
0x2876d0…287864 Dummy {f00=0x0093, f01=0x0190, f02=»K+DC2,TCABAS P RF(E) DCIN20 MF # 2 P CM ECBBLK+DC1,TCABAS 0 P RF DCIN30 N PDCIN20 EQU * ` P CM ECBBLK+DC2,TCABAS t P XIF PDCIN30 EQU * $ P LD A1,ECBEL,A8 EFFECTIVE LENGTH . P ST A1,DCLENG,TCABAS SAVE IT IN SAVE AREA
0x287864…2879f8 Dummy {f00=0x0093, f01=0x0190, f02=»COMMAND | P XIF . P LD A1,WCC,TCABAS WRITE CONTROL CHARACTER P ST A1,CCC,TCABAS COPY IT N P CF A14,COPY COPY ON PRINTER p PDCIN90 EQU * P CF A14,SNBUSY P RTN A14 P EJECT P* P* ABORT INTERTASK READ P*
0x2879f8…287b8c Dummy {f00=0x0093, f01=0x018e, f02=»A 10 P RTN A14 P EJECT P* * P* INPUT FROM INTERTASK 4 P* R PICRINP EQU * P CM ECBBLK+ICR,TCABAS p P * P LDK A1,X'38' PRINT BIT, 80 CHAR./LINE 4 P ST A1,CCC,TCABAS SAVE AS COPY CONTROL CHARACTER * P CF A14,COPY
0x287b8c…287d20 Dummy {f00=0x0093, f01=0x0190, f02=» P* P* . P* PRINT THE CONTENTS OF THE PRINTER BUFFER P* J P* T > PLINLEN DATA /0028,/4050 LINE LENGTHS /40, 64 AND 80 CHARS ^ P* P* PCOPY LDKL A8,ECBPR P ADR A8,CREBAS PRINTER ECB P LD A7,ECBBA,A8 P
0x287d20…287eb4 (4, 17) Dummy {f00=0x0098, f01=0x0190, f02=»X t P LDKL A4,BVDU P ADR A4,TCABAS " P LD A2,CCC,TCABAS GET CCC/CCC 6 P ANK A2,/08 ( P RF(NZ) COP100 START PRINTER BIT SET p PCOPRTN RTN A14 PCOP100 EQU * P LD A2,CCC,TCABAS P ANK A2,/30 , P ABL(Z) COP111 NL DE
0x287eb4…288048 Dummy {f00=0x0098, f01=0x0190, f02=»OP120 , PCOP115 CF A14,PRLINE LINE FULL: PRINT IT P RB COP110 > PCOP120 CWK A3,LBVDU P $ P ABL(NL) COP300 PRINT LAST LINE l P LCR A2,A4 " P ANK A2,/7F RESET DISPLAY BIT P SCR A2,A4 P CWK A2,/20 P RF(NL) COP130 P
0x288048…2881dc Dummy {f00=0x0098, f01=0x018e, f02=» PCOP130 CWK A2,NULL ( P RB(E) COP125 REPLACE NULL BY SPACE " PCOP140 EQU * N P CWK A2,/7D b P RF(NE) COP141 v P LDK A2,/39 PCOP141 CWK A2,/7E P RF(NE) COP142 P LDK A2,/35 PCOP142 EQU * P CF A14,RFMDUP F
0x2881dc…288370 Dummy {f00=0x0098, f01=0x0190, f02=» P ADK A3,1 P ADK A4,1 P ADK A7,1 ( P ADKL A9,1 : P RB COP110 L , PCOP150 LDK A2,/20 SPACE INSTEAD OF TEXT ^ P SCR A2,A7 P ADK A3,1 P ADK A4,1 P ADK A7,1 P ADKL A9,1 P CWR A9,A6 P RF(L) COP160
0x288370…288504 Dummy {f00=0x0098, f01=0x0190, f02=»UTE | ( P RB COP150 STILL IN PROTECTED FIELD P* 8 P* B , P* LINE LENGTH AS DEFINED BY NL CHARACTER L P* | P* 6 P* THE FIRST INSTR. ORIGINALLY HAD LABEL 'COP200'. P* P* PCOP111 EQU * P CWK A9,GTPLIN P
0x288504…288698 Dummy {f00=0x0098, f01=0x0190, f02=»F(NL) COP300 PRINT LAST LINE P LCR A2,A4 $ P ANK A2,/7F 6 P SCR A2,A4 RESET DISPLAY BIT J P CWK A2,/20 n P RF(NL) COP230 ( PCOP223 ANK A2,/6 ATTRIBUTE CHARACTER P XRK A2,6 " P RF(Z) COP250 PROTECTED FIELD 0 PCOP225 LDK A
0x288698…28882c Dummy {f00=0x0098, f01=0x0190, f02=»40 EQU * P CWK A2,/7B P RF(NE) COP241 $ P LDK A2,/2A : PCOP241 SCR A2,A7 N P ADK A3,1 f P ADK A4,1 x P ADK A7,1 P CWK A2,NEWLIN & P RB(E) COP210 NL CHAR: PRINT LINE P CWK A2,ENDMES . P RF(E) COP300 UND MESS
0x28882c…2889c0 Dummy {f00=0x0098, f01=0x0190, f02=» A3,1 P ADK A4,1 P ADK A7,1 P ADKL A9,1 2 P CWR A9,A6 D P RF(L) COP260 V ( P CF A14,PRLINE LINE FULL : PRINT IT l PCOP260 LCR A2,A4 P ANK A2,/7F P CWK A2,/20 " P RB(L) COP223 ATTRIBUTE FOUND ( P RB COP250
0x2889c0…288b54 (4, 18) Dummy {f00=0x009d, f01=0x0190, f02=»OPRTN P EJECT P* P* & P* PRINT ONE LINE ON PRINTER 0 P* T ( P* A9=NUMBER OF CHAR IN PRINT BUFFER ^ P* P* 4 PPRLINE IM LINCNT,TCABAS COUNT NBR OF PRINTLINES " P RF(N) PRL100 NOT END OF PAGE P LDK A7,LPAG
0x288b54…288ce8 Dummy {f00=0x009d, f01=0x0190, f02=»RST CHAR IN BUFFER ~ P ANK A2,/7F P CWK A2,FORMFD . P RF(NE) PRL200 NOT FORM FEED D P LDK A2,/20 h $ P SC A2,2,A7 REPLACE LF BY SPACE | P PPRL110 EQU * " P LD A1,LINCNT,TCABAS FORM FEED P LDK A7,2 4 P ST A7,ECBRL,A8
0x288ce8…288e7c Dummy {f00=0x009d, f01=0x018e, f02=»B(N) PRL120 P LDK A7,LPAGE P NGR A7,A7 * , P ST A7,LINCNT,TCABAS RESET LINE COUNTER < 0 PPRL200 ADKL A9,2 ADJUST LENGTH FOR BUFFER CW l P ST A9,ECBRL,A8 REQ LENGTH P LDK A7,/86 STD WRITE P LKM P DATA 1 P LDK A7,0
0x288e7c…289010 Dummy {f00=0x009d, f01=0x412e, f02=» P RTN A14 ! P EJECT ! P* ! " P* ! , P* SET STATUS NOT BUSY FOR DC ! 6 P* ! Z P* ! d PSNBUSY EQU * ! n P LD A8,ECBDCC,TCABAS ! P CM ECBCW,A8 ! P LDK A7,/B8 SET STATUS ORDER ! P LKM ! P DATA 1 ! P RTN A14 ! P* !
0x289010…2891a4 Dummy {f00=0x009d, f01=0x2008, f02=» " IDENT PRT END "@ 6
0x2891a4…289338 Dummy {f00=0x009d, f01=0x0190, f02=» h PDRDC20 ABL BRM P EJECT P* , P* POLL TIME OUT 6 P* N ( PPTOUT LDKL A5,STB LOAD A5 STACK BASE X P LDK A2,/40 ( P ST A2,DCONOF INDICATE POLL TIME OUT * P CF A15,CKMESS CHECK IF STATUS CHANGE $ P CF A15,SPOTIM START P
0x289338…2894cc Dummy {f00=0x009d, f01=0x0190, f02=» POLLING x P LDKL A2,-TIMPOL P ST* A2,DCTPGP RESTART TIMER ( * P CF A15,CKMESS CHECK IF STATUS CHANGE L P RTN A5 z P* P* START POLL TIMER P* $ PSPOTIM CF A15,SETIME START TIMER P DATA PTOUT,TIMPOL & P ST A4,DCTPGP
0x2894cc…289660 Dummy {f00=0x009d, f01=0x0190, f02=»M EQU * $ P LDR A1,A6 LOAD DWT AS PARAMETER P CF A15,SETIME 8 P DATA PRTOUT,TIMPRO N $ P ST A4,DCTPP SAVE TIMER POINTER j P RTN A5 P* P* PROCEDURE TIMEOUT P* PPRTOUT CM DCTPP P LDR A6,A1 RELOAD A6 P L
0x289660…2897f4 (4, 19) Opaque[0x194]
0x2897f4…289988 # DirEnt {nam=»START «, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x1380, f03=0x0000}
0x2897f4…289988 IdxSect {
0x2897f4…289988 f00 = 0x009c // 0x2897f4 @0x0
0x2897f4…289988 f01 = 0x0022 // 0x2897f6 @0x2
0x2897f4…289988 gno = [ // 0x2897f8 @0x4
0x2897f4…289988 [0x00]: C0x009c.0x0.0
0x2897f4…289988 [0x01]: C0x009c.0x1.0
0x2897f4…289988 [0x02]: C0x009c.0x2.0
0x2897f4…289988 [0x03]: C0x009c.0x3.0
0x2897f4…289988 [0x04]: C0x009d.0x0.0
0x2897f4…289988 [0x05]: C0x009d.0x1.0
0x2897f4…289988 [0x06]: C0x00a2.0x3.0
0x2897f4…289988 [0x07]: C0x00a3.0x0.0
0x2897f4…289988 [0x08]: C0x00a3.0x1.0
0x2897f4…289988 [0x09]: C0x00a3.0x2.0
0x2897f4…289988 [0x0a]: C0x00a3.0x3.0
0x2897f4…289988 [0x0b]: C0x00a7.0x2.0
0x2897f4…289988 [0x0c]: C0x00a7.0x3.0
0x2897f4…289988 [0x0d]: C0x00a8.0x0.0
0x2897f4…289988 [0x0e]: C0x00b5.0x3.0
0x2897f4…289988 [0x0f]: C0x00b6.0x0.0
0x2897f4…289988 [0x10]: C0x00b6.0x1.0
0x2897f4…289988 ]
0x2897f4…289988 }
0x289988…289b1c Dummy {f00=0x009c, f01=0x018e, f02=» 2 P IDENT START 2.1DK 1 80-10-10 870150540210 P : P =1, ODD BUFFER ADDRESS B P REL 2.1 79-05-23 d P =2, 6234 LAMPS P REL 2.1 79-05-23 P =3, UNDEFINED LABEL P REL 2.1 79-05-23 . P =4, CURSOR STOPS AT L
0x289b1c…289cb0 Dummy {f00=0x009c, f01=0x018e, f02=» ~ B P************************************************************* P* N H P* S T A R T : MODULE HANDLING KEYBOARD INPUT.KEYBOARD INITIATED X H P* MESSAGES ADDRESSED TO THE MAIN FRAME ARE COMPOSED B P* AND SE
0x289cb0…289e44 Dummy {f00=0x009c, f01=0x0190, f02=» P P P P P $ P* . P* 8 P* ENTRY PARAMETERS B P* P* f P* p P ENTRY LINHON,LINHOF,ATMASB z P ENTRY LSAVOF,LSAVON P ENTRY EMULA & P ENTRY LIOLON TURN ON OFFLINE LAMP ( P ENTRY LIOLOF TU
0x289e44…289fd8 Dummy {f00=0x009c, f01=0x0190, f02=» REQTIM SET REQUEST TIMER P ENTRY ICWRTE " P* 8 P* B P* L P* EXTERNAL REFERENSES V P* x P* P* P EXTRN DCINP P EXTRN DCGETM P EXTRN ICREAD P EXTRN GTRBUF P EXTRN RLRBUF P EXTRN
0x289fd8…28a16c Dummy {f00=0x009c, f01=0x018e, f02=»PL P EXTRN ERASUP P* 0 P EXTRN KEYCNV KEY CONVERSION IF NOT PTS 6272 * P EXTRN TASCII ^ P* t , P EXTRN I:EVA0 CREDIT EVALUATION ROUTINE ~ & P EXTRN I:RT1 RETURN TO CREDIT CODE P P P > P**********************
0x28a16c…28a300 Dummy {f00=0x009c, f01=0x0190, f02=» P P* F PKB6272 EQU 1 IF PTS 6272 (6236) IS NOT USED YOU MUST USE 'KEYCNV' 0 P USE THE KEY CONVERSION TABLE IN 'TB3270' ` 0 PKEYLST EQU 0 KEY LOCK STATUS SAVED IN 'KEYS' POFLIN EQU 1 . PDCLIN EQU 1 NUMBER OF MAIN FRAMES (1 OR 2)
0x28a300…28a494 (4, 20) Dummy {f00=0x009c, f01=0x0190, f02=»1 ^ PCOPL EQU 1 COPY LOCK IF := 1 P . P* 8 P* B P* EQUATES L P* b PRSET EQU /B2 RESET KEY l " P* COMMON EQU FOR ECB HANDLING P* P PECBBA EQU 2 PECBRL EQU 4 PECBEL EQU 6 PECBRC EQU
0x28a494…28a628 Dummy {f00=0x009c, f01=0x0190, f02=» PDIS EQU 20 P* PECBDC EQU -DIS-14 $ P IFT DCLIN=2 > P IFT COPCMD=1 R PECBDC2 EQU ECBDC-DIS h PECBICR EQU ECBDC2-DIS PECBICW EQU ECBICR-DIS P XIF P IFT DCLIN=2 P IFF COPCMD=1 PECBDC2 EQU ECBDC-D
0x28a628…28a7bc Dummy {f00=0x009c, f01=0x0190, f02=»ICR-DIS P XIF P IFF DCLIN=2 P IFF COPCMD=1 0 PECBICW EQU ECBDC-DIS F P XIF b PECBVDU EQU ECBICW-DIS n PECBKB EQU ECBVDU-DIS PECBSD EQU ECBKB-DIS P P* P* " P* BASE ADDRESS FOR TCA AND ECB P
0x28a7bc…28a950 Dummy {f00=0x009c, f01=0x0190, f02=»PRINTER EQU TCT01+2 ( PBVDU EQU PRINTER+2 VDU SCREEN BUFFER 0 PPCURS EQU BVDU+1920 CURSOR ADDRESS , BINARY H * PATTRIB EQU PCURS+2 LAST ATTRIBUTE CHAR | PCURATT EQU ATTRIB+2 & PWCC EQU CURATT+2 WCC/CCC CHARACTER . PKBINH EQU WCC+2 KEYBOARD
0x28a950…28aae4 Dummy {f00=0x009c, f01=0x0190, f02=»2 WORK FIELD INTERTASK COMM ~ , PINTATT EQU ICWORK+2 INTENSITY ATTRIBUTE $ $ POFFFLG EQU INTATT+2 OFFLINE FLAG T ( PCOPNO EQU OFFFLG+2 HARDCOPY TASK ID | * PCCC EQU COPNO+2 COPY COMMAND CHARACTER PMAIN EQU CCC+2 MAIN FRAME & PMODE EQU MAIN+2
0x28aae4…28ac78 Dummy {f00=0x009c, f01=0x0190, f02=»ECBS FOR MULTIPLE WAIT &C | 4 PRDMORE EQU ECBBLK+10 BRANCH ADDRESS NEXT READ KB " P Z PNULL EQU /7F NULL CHARACTER d PDUPCH EQU /7B PFMCH EQU /60 * PLBVDU EQU 1920 1920 CHAR DISPLAY 6344 " PLPAGE EQU 48 LINES ON ONE PAGE * PLL
0x28ac78…28ae0c Dummy {f00=0x009c, f01=0x0190, f02=» r & PNBRGTP EQU NBRKBV+2 NUMBER OF GTPS P* 2 2 PMF1KBV EQU NBRGTP+2 DV ADDRESSES KB/VDU MF #1 < 2 PMF1GTP EQU MF1KBV+16 DV ADDRESSES GTPS MF # 1 r P IFT DCLIN=2 PMF2KBV EQU MF1GTP+16 PMF2GTP EQU MF2KBV+16 P XIF P
0x28ae0c…28afa0 Dummy {f00=0x009c, f01=0x0190, f02=» DATA CHAR " P DATA CHAR # P DATA CHAR $ ( P DATA CHAR % < P DATA CHAR & P P DATA CHAR ' d P DATA CHAR ( x P DATA CHAR ) P DATA CHAR * P DATA CHAR + P DATA NUM , DK P DATA NUM - P DATA NUM . P D
0x28afa0…28b134 (4, 21) Dummy {f00=0x009c, f01=0x018e, f02=»5 P DATA NUM 6 P DATA NUM 7 P DATA NUM 8 2 P DATA NUM 9 F P DATA CHAR : Z P DATA CHAR ; n P DATA CHAR < P DATA CHAR = P DATA CHAR > P DATA CHAR ? P* P DATA CHAR E' P DATA CHAR A P D
0x28b134…28b2c8 Dummy {f00=0x009c, f01=0x0190, f02=» P DATA CHAR I P DATA CHAR J P DATA CHAR K , P DATA CHAR L @ P DATA CHAR M T P DATA CHAR N h P DATA CHAR O | P* P DATA CHAR P P DATA CHAR Q P DATA CHAR R P DATA CHAR S P DATA CHAR T P DATA CHAR
0x28b2c8…28b45c Dummy {f00=0x009c, f01=0x0190, f02=»CHAR BACK SLASH P DATA CHAR ] P DATA CHAR CIRCOMFLEX , P DATA CHAR UNDERLINE J P* f $ P DATA RETURN /60 CANNOT BE USED p P DATA CHAR LOWER CASE P DATA CHAR P DATA CHAR P DATA CHAR P DATA CHAR P DATA CHAR
0x28b45c…28b5f0 Dummy {f00=0x009c, f01=0x0190, f02=»ATA CHAR P DATA CHAR P* " P IFT KEYLST=1 , P DATA KEYL KEYLOCK B P DATA KEYL P DATA KEYL n P DATA KEYL P DATA KEYL P DATA KEYL P DATA KEYL P DATA KEYL P XIF P IFF KEYLST=1 P DATA RETURN
0x28b5f0…28b784 Dummy {f00=0x009c, f01=0x0190, f02=»TURN P XIF P DATA CHAR LOWER CASE X P DATA CHAR 8 P DATA CHAR J ( P DATA RETURN /7B-/7F CANNOT BE USED P DATA RETURN P DATA RETURN P DATA RETURN P DATA RETURN P* P IFT PAX=1 P DATA PAEX P X
0x28b784…28b918 Dummy {f00=0x009c, f01=0x0190, f02=» (ALFASKOP) z P DATA PA410 P DATA PA410 ( P DATA PA410 < P DATA PA410 P P DATA PA410 d P DATA PA410 x P DATA CLEAR P IFT PFX=1 P DATA PFEX P XIF P IFF PFX=1 P DATA RETURN P XIF P DATA
0x28b918…28baac Dummy {f00=0x009c, f01=0x0190, f02=»PF 8 P DATA PF 9 P DATA PF 10 P DATA PF 11 2 P DATA PF 12 F . P DATA RETURN /99-/A4 RESERVED FOR PF13-24 Z P DATA RETURN P DATA RETURN P DATA RETURN P DATA RETURN P DATA RETURN P DATA RETURN P*
0x28baac…28bc40 Dummy {f00=0x009c, f01=0x0190, f02=» P DATA CRLEFT P DATA CRRIGT P DATA CRDOWN 0 P DATA BAKTAB D P DATA TAB X P DATA CRNL j P DATA RDHOME | P DATA ERINPT P DATA EREOF P* P IFT IN:DL=1 P DATA INSERT P DATA DELETE P XIF
0x28bc40…28bdd4 (4, 22) Dummy {f00=0x009c, f01=0x0190, f02=»A COPY P IFT OFLIN=1 P DATA OFLINE " P XIF 6 P IFF OFLIN=1 B P DATA RETURN V P XIF j P IFT DCLIN=2 v P DATA MFCHGE P XIF P IFF DCLIN=2 P DATA RETURN P XIF P DATA RETURN P DATA RETURN P D
0x28bdd4…28bf68 Dummy {f00=0x009c, f01=0x0190, f02=»ASPW LOWER CASE P - W (BECAUSE OF KEYLOCK) P DATA LCASPW 2 P DATA LCASPW F P DATA LCASPW Z P DATA LCASPW n P DATA LCASPW P DATA LCASPW P DATA LCASPW P B P*************************************************************
0x28bf68…28c0fc Dummy {f00=0x009c, f01=0x0190, f02=» EQU * P CF A14,I:EVA0 & P LDR* A1,A9 POLL & SELECT ADDRESS $ P LDKL A8,ECBDC N P ADR A8,CREBAS d P ST A1,ECBCW,A8 z $ P LDK A7,/B7 TRANSFER PARAMETERS P LKM P DATA 1 PDCT100 EQU * . P LDK A7,/80 TEST IF ANY MESSAG
0x28c0fc…28c290 Dummy {f00=0x009c, f01=0x0190, f02=»F A14,DCGETM P LD A4,ECBBA,A8 " P CF A14,RLRBUF RELEASE BUFFER , P RB DCT100 R P d P* n P* x ( P* SUBROUTINE ACTIVATED BY ALL TASKS P* P* PEMULA EQU * " P ADR A8,CREBAS GET ECB ADDRESS $ P ST A1,ECBCW
0x28c290…28c424 Dummy {f00=0x009c, f01=0x0190, f02=»************************************************* P* : P* VDUKB D P* X " P* MAIN MODULE FOR KEYBOARD VDU b P* < P******************************************************** PVDUKB EQU * P CF A14,I:EVA0 & P LDR TCABAS,
0x28c424…28c5b8 Dummy {f00=0x009c, f01=0x0190, f02=»3,-2,A14 $ P SUKL A14,4 UPDATE STACK POINTER P CM OFFFLG,TCABAS 8 * P CF A14,LIOLOF TURN OFF OFF LINE LAMP R P XIF P P B P************************************************************** P* , P* TRANSFER PARAMETER FOR
0x28c5b8…28c74c Dummy {f00=0x009c, f01=0x0190, f02=»O v " P AD A4,6,CREBAS 'CB1' ADDRESS & P LC A1,MF1KBV-1,A4 GET DV-ADDRESS 0 P ANK A1,/FF Z P LDKL A8,ECBDC n P CF A14,EMULA P P IFT DCLIN=2 B P************************************************************* P* , P*
0x28c74c…28c8e0 Dummy {f00=0x009c, f01=0x0190, f02=»C A1,MF2KBV-1,A4 GET DV ADDRESS P ANK A1,/FF ( P LDKL A8,ECBDC2 < P CF A14,EMULA T P XIF j P v PVDU080 EQU * P CF A14,ERASE ERASE SCREEN P P LDK A1,1 P LDKL A1,LBVDU+1 6 P ST A1,CURATT,TCABAS INITIATE WI
0x28c8e0…28ca74 (4, 23) Dummy {f00=0x009d, f01=0x018e, f02=»BBLK | PKB EQU 2 PDC1 EQU 4 P IFT DCLIN=2 . P IFT COPCMD=1 B PDC2 EQU 6 X PICR EQU 8 j PECBBS EQU 4 | P XIF P IFT DCLIN=2 P IFF COPCMD=1 PDC2 EQU 6 PECBBS EQU 3 P XIF P IFF DCLIN=2
0x28ca74…28cc08 Dummy {f00=0x009d, f01=0x018e, f02=» P XIF P* P LDK A1,ECBBS P ST A1,ECBBLK,TCABAS 0 PVDU100 EQU * L P LD A1,ECBBLK+DC1,TCABAS ` P RF(NZ) VDU110 PENDING 0 P CF A14,DC1INQ TEST IF ANY MESSAGE, NO WAIT PVDU110 EQU * P IFT DCLIN=2 P LD A1,ECBBLK+
0x28cc08…28cd9c Dummy {f00=0x009d, f01=0x0190, f02=» P IFT COPCMD=1 P LD A1,ECBBLK+ICR,TCABAS P RF(NZ) VDU125 PENDING : P LDKL A3,ICWORK BUFFER X P ADR A3,TCABAS ADDRESS v P LDK A6,2 REQ LENGTH P CF A14,ICREAD P ST A8,ECBBLK+ICR,TCABAS P XIF PVDU125 EQU * P
0x28cd9c…28cf30 Dummy {f00=0x009d, f01=0x0190, f02=»CBBLK P ADR A7,TCABAS ! P LKM ! $ P DATA 7 MULTIPLE WAIT ! 0 P CW A8,ECBBLK+KB,TCABAS ! N $ P RF(E) KBINP INPUT FROM KEYBOARD ! n P IFT COPCMD=1 ! P CW A8,ECBBLK+ICR,TCABAS ! ( P RF(E) BUFCOP SEND BUFFER TO PRINTER ! P XIF ! : P ST
0x28cf30…28d0c4 Dummy {f00=0x009d, f01=0x018e, f02=»AD KEYBOARD WITH NO WAIT ! P* " PRDKBNW EQU * " * P LDKL A8,ECBKB " > P ADR A8,CREBAS " T P LDK A7,1 " j " P ST A7,ECBRL,A8 REQ LENGTH = 1 " | * P ST A7,ECBCW,A8 INDICATE NOT POWER OFF " P ST A8,ECBBLK+KB,TCABAS " P RF DC1I30 " P* "
0x28d0c4…28d258 Dummy {f00=0x009d, f01=0x0190, f02=» " v PDC1I20 EQU * # P LDK A1,0 # P CF A14,REQTIM # . P LDK A7,0 # D PDC1I30 EQU * # V P LKM # j P DATA 1 # v P RTN A14 # PDC2INQ EQU * # P IFT DCLIN=2 # P LDKL A8,ECBDC2 # P ADR A8,CREBAS # P ST A8,ECBBLK+DC2,TCABAS #
0x28d258…28d3ec Dummy {f00=0x009d, f01=0x0190, f02=» # P CM ECBBLK+ICR,TCABAS $ P LDKL A3,BVDU BUFFER $ & P ADR A3,TCABAS ADDRESS $ B P IFT COPL=1 $ b P* $ v P* CHECK IF COPY LOCK $ P* $ P LCR A2,A3 $ P ANK A2,/18 $ P XRK A2,/10 $ P RB(Z) VDU100 DON'T COPY $ P XIF $
0x28d3ec…28d580 Dummy {f00=0x009d, f01=0x0190, f02=»GTH $ z P CF A14,ICWRTE % P LD A1,KBINH,TCABAS % " ( P ANK A1,/E NOT INHIBITED ANY LONGER % > P ST A1,KBINH,TCABAS % j P RB VDU100 % P XIF % P % P** KEYBOARD INPUT % P* % PKBINP EQU * % P CM ECBBLK+KB,TCABAS % P LD A2
0x28d580…28d714 (4, 24) Dummy {f00=0x009d, f01=0x0190, f02=»OARD BUFFER % | P LKM & P DATA 1 & P RB VDU100 & 0 PKBIN10 EQU * & B P LD A1,KBINH,TCABAS & V , P ANK A1,1 RESETTING BY 'RESET' ALLOWED ? & r P RB(NZ) KBIN05 NO & ( P LC* A2,ECBBA,A8 GET INPUT CHARACTER & P IFF KB6272=1 =5 & & P CF A1
0x28d714…28d8a8 Dummy {f00=0x009d, f01=0x0190, f02=» & P CWK A2,RSET RESET KEY ? ' P RB(NE) KBIN05 NO ' ( PKBIN20 EQU * ' B $ P LDR A5,A2 COPY INPUT CHARACTER ' V P SUK A5,/20 INDEX ' ~ P RB(N) VDU100 ILLEGAL CHAR ' P CWK A5,/A7 ' P RB(G) VDU100 ILLEGAL CHAR ' 4 P CF A14,DCABOR ABORT DC-
0x28d8a8…28da3c Dummy {f00=0x009d, f01=0x0190, f02=» P* ( P LDKL A8,ECBVDU ( P ADR A8,CREBAS ( & P LD A1,RDMORE,TCABAS ( < P RF(Z) KBIN30 ( X P* ( n P CFR A14,A1 ( x P ABL VDU100 ( P* ( PKBIN30 EQU * ( : P CFI A14,KEYTAB,A5 BRANCH TO RESPECTIVE INPUT HANDLER ( P ABL VDU100
0x28da3c…28dbd0 Dummy {f00=0x009d, f01=0x018e, f02=» P IFT DCLIN=2 ) P LD A1,MAIN,TCABAS ) P RF(NZ) DCAB05 ) 2 P XIF ) H P CM ECBBLK+DC1,TCABAS ) T P IFT DCLIN=2 ) r P RF DCAB10 ) PDCAB05 EQU * ) P CM ECBBLK+DC2,TCABAS ) P LDKL A8,ECBDC2 ) PDCAB10 EQU * ) P XIF ) P ADR A
0x28dbd0…28dd64 Dummy {f00=0x009d, f01=0x0190, f02=» P* A8 = ECB ADDRESS * P* * PREQTIM EQU * * ( P ST A1,ECBCW,A8 * < P LDK A7,/B9 * T P LKM * h P DATA 1 * t P RTN A14 * P * P * P* * P* * > P********************************************************** * P* * P*
0x28dd64…28def8 Dummy {f00=0x009d, f01=0x0190, f02=»* * < P******************************************************* + P* + J P* CRLEFT + T P* + h 6 P* THIS MODULE MOVES THE CURSOR ONE POS TO LEFT + r P* + < P******************************************************* + P* + PCRLEFT E
0x28def8…28e08c Dummy {f00=0x009d, f01=0x018e, f02=» PCRL050 RF CRH100 , P* , < P******************************************************** , & P* , f P* CRRIGT , p P* , < P* THIS MODULE MOVES THE CURSOR ONE POS. TO THE RIGHT , P* , < P************************************************
0x28e08c…28e220 Dummy {f00=0x009d, f01=0x018e, f02=» , P CWK A2,LBVDU END OF BUFFER? - P RF(L) CRR050 NO - , P LDK A2,0 - D PCRR050 RF CRH100 - V P - n P* - x @ P*********************************************************** - P* - P* CRDOWN - P* - < P* THE MODULE MOVES THE CURSOR
0x28e220…28e3b4 (4, 25) Dummy {f00=0x00a2, f01=0x0190, f02=» - & P LD A2,PCURS,TCABAS GET CURSOR POS . P ADKL A2,LLINE . 2 P CWK A2,LBVDU LAST LINE? . H P RF(L) CRD050 NO . h P SUKL A2,LBVDU . PCRD050 RF CRH100 . P* . B P************************************************************** . P* . P
0x28e3b4…28e548 Dummy {f00=0x00a2, f01=0x0190, f02=»**** . V P* / PCRUP EQU * / * P LD A2,PCURS,TCABAS GET CURSOR BINARY / ( P SUKL A2,LLINE / V P RF(NN) CRU050 UPMOST LINE / l P ADKL A2,LBVDU / PCRU050 RF CRH100 / P / P* / : P****************************************************** /
0x28e548…28e6dc Dummy {f00=0x00a2, f01=0x0190, f02=»****** / ` P* 0 PCRHOME EQU * 0 P LDK A2,0 0 , PCRH100 EQU * 0 > * P ST A2,PCURS,TCABAS GET CURSOR BINARY 0 R P CF A14,ATMASB UPDATE ATTRIB 0 " P CF A14,SETCUR DISPLAY CURSOR 0 P RTN A14 0 P 0 P* 0 : P**************************
0x28e6dc…28e870 Dummy {f00=0x00a2, f01=0x0190, f02=»*************************************************** 0 P* 1 < PCRNL EQU * 1 F & P LD A2,PCURS,TCABAS GET CURSOR POS 1 X P ADKL A2,LLINE NEXT LINE 1 P CWK A2,LBVDU 1 P RF(L) CRN050 1 P LDK A2,0 WRAP AROUND 1 P* 1 P* COMPUTE LEFTMOST
0x28e870…28ea04 Dummy {f00=0x00a2, f01=0x018e, f02=»CRN120 ST A1,PCURS,TCABAS STORE CURSOR ADDRESS 1 P 2 6 P 2 @ F P****************************************************************** 2 H P LDR A2,A1 2 . P CF A14,ATMASB SEARCH ATTRIBUTE BACKWARDS 2 P SUK A1,1 2 $ P RF(Z) CRN130 NO ATTRIBUTE FOUND
0x28ea04…28eb98 Dummy {f00=0x00a2, f01=0x0190, f02=» 2 z ( P CWK A2,1919 LAST SCREEN POSITION?? 3 P RF(NE) CRN140 NO!! 3 4 PCRN130 LDKL A2,-1 3 P PCRN140 ADK A2,1 3 j P ST A2,PCURS,TCABAS 3 ( PCRN150 CF A14,SETCUR POSITION CURSOR 3 P RTN A14 3 H P**********************************************
0x28eb98…28ed2c Dummy {f00=0x00a2, f01=0x0190, f02=» 3 2 P* MOVE THE CURSOR TO THE FIRST CHAR. LOCATION 4 ( P* OF THE NEXT UNPROTECTED DATA FIELD 4 > P* 4 j 8 P**************************************************** 4 t P* 4 2 P* A1=END OF BUFFER PAREM. 0=EOB NOT REACHED 4 P* 2=EOB 4 P* 3=
0x28ed2c…28eec0 Dummy {f00=0x00a2, f01=0x0190, f02=»CURS,TCABAS GET CURSOR POS 4 * PTAB100 CF A14,ATMASF SEARCH ATTRIBUTE 5 " P CWK A1,0 END OF BUFFER? 5 P P RF(G) TAB300 YES 5 p P ADK A2,1 5 " PTAB150 ANK A3,/10 UNPROTECTED? 5 P RF(E) TAB200 YES 5 P RB TAB100 NEXT ATTRIB. 5 PTAB200 ST A2
0x28eec0…28f054 (4, 26) Dummy {f00=0x00a3, f01=0x0190, f02=»TION ?? 5 p P 6 < P******************************************************** 6 P RF(NE) TAB350 NO!! 6 Z ( P ANK A5,1 WHOLE BUFFER CONTROLLED ?? 6 v P RB(Z) TAB200 YES!! 6 P SUR A5,A5 6 P RB TAB150 CHECK ATTRIBUTE 6 PTAB350 EQU * 6 < P
0x28f054…28f1e8 Dummy {f00=0x00a3, f01=0x0190, f02=»00 ALL PROT. OR NON-FORMATTED BUFF. 6 PTAB400 LDK A5,0 7 , P RB TAB100 7 D P 7 V P* 7 ` @ P*********************************************************** 7 j P* 7 P* DUP 7 P* 7 P* DUPLICATE KEY 7 : P* OPERATION OF THIS KEY CAUSES A
0x28f1e8…28f37c Dummy {f00=0x00a3, f01=0x0190, f02=»* 7 @ P************************************************************ 8 P* 8 N PDUP EQU * 8 X & P LD A1,MODE,TCABAS INSERT MODE ?? 8 j 6 P ABL(NZ) ERROR FUNCTION NOT ALLOWED IN INSERT MODE 8 P LDK A2,DUPCH 8 0 P LD A3,ECBKB+ECBBA,CREBAS GET KB BUF
0x28f37c…28f510 Dummy {f00=0x00a3, f01=0x0190, f02=»********************************* 8 v P* 9 * P* FIELD MARK 9 4 P* 9 N @ P* OPERATION OF THIS KEY CAUSES A UNIQUE CHARACTER CODE 9 X < P* TO BE ENTERED IN THE DISPLAY BUFFER IN ADDITION 9 , P* TO THE DC CHARACTER TRANSMITTED 9
0x28f510…28f6a4 Dummy {f00=0x00a3, f01=0x0190, f02=»MODE?? 9 v 6 P ABL(NZ) ERROR FUNCTION NOT ALLOWED IN INSERT MODE : P LDK A2,FMCH : H 2 P LD A3,ECBKB+ECBBA,CREBAS GET KB BUFFER ADDR. : P SCR A2,A3 : P CF A14,NUM : P RTN A14 : P : P* : > P********************************************
0x28f6a4…28f838 Dummy {f00=0x00a3, f01=0x0190, f02=»URSOR TOBE : f : P* POSITIONED AT THE FIRST UNPROTECTED CHARACTER ; P* ON THE SCREEN ; P P* ; n < P******************************************************** ; x P* ; PRDHOME LDKL A4,BVDU ; & P ADR A4,TCABAS VDU BUFFER ADDRESS ; , P
0x28f838…28f9cc Dummy {f00=0x00a3, f01=0x0190, f02=») CRHOME UNPROTECTED FIELD ; PRDH10 CM PCURS,TCABAS < " , P CF A14,TAB SEARCH 1ST UNPROTECTED FIELD < @ P RTN A14 < p P < P* < : P***************************************************** < P* < P* BAKTAB < P* < 6 P* MOVE THE CURSOR
0x28f9cc…28fb60 Dummy {f00=0x00a3, f01=0x0190, f02=»******************** < p P* = P* A2=CURSOR BINARY ADDRESS = & P* A3=CHARACTER = H PBAKTAB EQU * = ^ P LDK A5,1 = r & P LD A2,PCURS,TCABAS GET CURSOR POS = " P CF A14,GBUFFC GET BUFF CHAR. = P CWK A3,/1F ATTRIB. CHAR? = P RF(NG) BAK100 YES
0x28fb60…28fcf4 (4, 27) Dummy {f00=0x00a3, f01=0x0190, f02=»F(E) BAK400 YES = PBAK200 SUK A2,1 > $ P CF A14,ATMASB SEARCH ATTRIBUTE > 0 @ P************************************************************ > X P SUK A1,1 > P RF(Z) BAK400 NO ATTRIBUTE > 4 P RF(N) BAK250 ATTRIBUTE FOUND. NOT IN LAST POS. > 0 P
0x28fcf4…28fe88 Dummy {f00=0x00a3, f01=0x0190, f02=»*********** > b P ANK A3,/10 PROTECTED? ? P RB(NE) BAK100 YES ? 2 P ADK A2,1 ? L PBAK300 ST A2,PCURS,TCABAS ? ^ P CF A14,SETCUR SET CURSOR ? P RTN A14 ? * PBAK400 SUK A5,1 WHOLE BUFF CONTROLLED? ? P RB(NZ) BAK300 YES ? ( P LDKL A2,LBVDU
0x28fe88…29001c Dummy {f00=0x00a3, f01=0x0190, f02=»/10 PROTECTED? ? P RB(NE) BAK200 YES @ . P ST A3,ATTRIB,TCABAS UPDATE NEW ATTRIBUTE @ 0 P ST A2,CURATT,TCABAS @ b D P*************************************************************** @ ~ P RB BAK200 @ D P************************************************
0x29001c…2901b0 Dummy {f00=0x00a3, f01=0x0190, f02=» @ P* A : P* ALPHABETIC AND SPECIAL CHAR UPDATING AND DISPLAYING A P* A P > P********************************************************* A Z P* A PLCASPW EQU * A , P SUK A2,/50 CONVERT TO LOWER CASE P - W A P SC* A2,ECBKB+ECBBA,CREBAS A
0x2901b0…290344 Dummy {f00=0x00a3, f01=0x0190, f02=»URSOR ON ATTRIB? A P RF(E) CHA300 YES B 2 PCHA100 LD A3,ATTRIB,TCABAS GET ATTRIBUTE CHAR B 2 P LDR A4,A3 B h " P ANK A4,/10 PROTECTRED FIELD? B z P RF(NE) CHA300 YES B PCHA200 LDR A4,A3 B P ANK A4,/8 NUMERIC FIELD? B P RF(E) ANCOMM NO B
0x290344…2904d8 Dummy {f00=0x00a3, f01=0x0190, f02=» B & P* Z E R O : 3 TRIPLE ZERO KEY C ( P* Z E R O : 2 DOUBLE ZERO KEY C 2 P* C ^ 6 P************************************************* C h P C PZERO:3 EQU * C P LDK A1,X'30' CHARACTER ZERO C 8 P SC* A1,ECBKB+ECBBA,CREBAS STORE CHARA
0x2904d8…29066c Dummy {f00=0x00a3, f01=0x018e, f02=»B+ECBBA,CREBAS STORE CHARACTER IN BUFFER C " P CF A14,NUM DISPLAY CHARACTER D 0 " P CF A14,NUM DISPLAY CHARACTER D V P RTN A14 RETURN D | P* D > P********************************************************** D P* D P* NUM D P* D " P* DISP
0x29066c…290800 Dummy {f00=0x00a3, f01=0x0190, f02=» P LDK A2,/2C E P SC* A2,ECBKB+ECBBA,CREBAS E P* E : PNUM EQU * E D & P LD A2,PCURS,TCABAS GET CURSOR POS E V . P LD A3,CURATT,TCABAS GET ATTRIBUTE ADDRESS E $ P CWR A2,A3 CURSOR ON ATTRIBUTE? E P RF(E) NUM200 YES E 2 PNUM100 LD A3,ATTRIB,
0x290800…290994 (4, 28) Dummy {f00=0x00a3, f01=0x0190, f02=»OWED DISPLAY POS E x P F P* F " > P********************************************************** F , P* F n P* ANCOMM F x P* F < P* COMMON SUBMODULE FOR ALPHANUMERIC CHAR. DISPLAYING AND F P* UPDATING F P* F > P**************************
0x290994…290b28 Dummy {f00=0x00a3, f01=0x0190, f02=»,BVDU F P ADR A6,TCABAS G P ADR A6,A2 G $ P G 6 & P LD A1,MODE,TCABAS INSERT MODE ?? G > P RF(NZ) ANC010 YES!! G h P SCR A4,A6 UPDATE VDU BUFF G * PANC010 LDR A7,A6 SAVE CURSOR POSITION G P LD A5,CURATT,TCABAS G ( P CWK A5,LBVDU+1 UNFORMAT
0x290b28…290cbc Dummy {f00=0x00a3, f01=0x0190, f02=» ATTRIBUTE CHAR G x P ORK A3,1 MDT-BIT ON H P SCR A3,A6 H 4 PANC100 EQU * H F P IFT IN:DL=1 =3 H Z & P LD A1,MODE,TCABAS INSERT MODE ?? H r P RF(Z) ANC120 NO!! H 0 P LCR A1,A7 GET CHARACTER AT CURSOR POSITION H P ANK A1,/7F H P CWK A1,NU
0x290cbc…290e50 Dummy {f00=0x00a3, f01=0x0190, f02=» A5,/2B CURSOR NOT MOVED BEFORE DISPLAYING H P LD A1,ECBVDU+ECBBA,CREBAS I 2 P SC A5,1,A1 =1 I V P LDK A5,/1E I n P ADK A1,2 NEXT POS I ( P SCR A5,A1 LOW INT, STORE IN BUFFER I P LDR A6,A3 I $ P ANK A3,/4 STANDARD DISPLAYING? I P RF(Z)
0x290e50…290fe4 Dummy {f00=0x00a3, f01=0x0190, f02=»PLAYING I ~ ( PANC150 LDK A5,/1F SET HIGH INTENSITY J P SCR A5,A1 STORE IN BUFFER J < ( PANC200 LDR A2,A4 UPDATE A2 WITH CHAR J ^ 0 PANC250 CF A14,WCHAR DISPLAY CHAR AND CURSOR J & P LD A2,PCURS,TCABAS GET CURSOR POS J P ADK A2,1 J PANC252 EQU * J
0x290fe4…291178 Dummy {f00=0x00a3, f01=0x0190, f02=»UFFER CHAR J | P CWK A3,/1F ATTRIBUTE CHAR? K P RF(G) ANC300 NO K 6 P K N ( P CF A14,TAB SKIP TO NEXT UNPROTECTED K V PANC300 EQU * K P LD A1,ECBCW,A8 CONTROL WORD K P ANK A1,X'FF' LINE POSITION K ( P SUK A1,80 LAST POSITION ON LINE ?? K
0x291178…29130c Dummy {f00=0x00a3, f01=0x0190, f02=»DL=1 K P L P L 8 P*************************************************** L P* L Z < P* DELETE CHARACTER AT CURSOR POSITION. SHIFT CARACTERS L d . P* AT SAME LINE ONE POSITION TO THE LEFT L P* L @ P****************************************
0x29130c…2914a0 Dummy {f00=0x00a3, f01=0x0190, f02=»ND OF LINE POINTER L ~ . P CWR A6,A2 LAST POSITION ON CURRENT LINE?? M $ P RB(L) DEL:10 NO!! TRY NEXT LINE M L P M t * P CF A14,S:ATT SEARCH ATTRIBUTE FORWARD M | P SUK A1,2 ATTRIBUTE FOUND ?? M P RF(Z) DEL:20 NO!! M . P CWR A2,A6 ATTRIBUTE AFTER END O
0x2914a0…291634 (4, 29) Dummy {f00=0x00a3, f01=0x0190, f02=» LDK A1,BVDU M * P ADR A1,TCABAS ABSOLUTE BUFFER ADDRESS N P ADR A2,A1 END OF FIELD/LINE N B ( P AD A1,PCURS,TCABAS CURSOR POSITION N f P N . PDEL:30 CWR A2,A1 ALL CHARACTERS SHIFTED ?? N P RF(E) DEL:40 YES!! N P LC A3,1,A1 GET CHARACTER N
0x291634…2917c8 Dummy {f00=0x00a3, f01=0x0190, f02=» P O P O * PDEL:40 LDK A3,NULL+/80 NULL CHARACTER O * P SCR A3,A2 STORE AT END OF FIELD/LINE O B " P LD A3,ATTRIB,TCABAS ATTRIBUTE O p $ P ORK A3,1 SET MODIFIED FIELD BIT O P O 2 P LD A1,CURATT,TCABAS CURRENT ATTRIBUTE ADDRESS O * P CWK A1,LBVD
0x2917c8…29195c Dummy {f00=0x00a3, f01=0x018e, f02=»CR A3,A1 SAVE NEW ATTRIBUTE O & P RF INS:60 DISPLAY MODIFIED FIELD P $ P P N P P X B P************************************************************** P ` P* P @ P* INSERT CHARACTER AT CURSOR POSITION. SHIFT CHARACTERS IN P < P* SAME FIELD , EXC
0x29195c…291af0 Dummy {f00=0x00a3, f01=0x0190, f02=» P $ P IM MODE,TCABAS SET INSERT MODE Q . P CF A14,LIOLON TURN ON "INSERT MODE" LAMP Q 0 P RTN A14 Q b P Q r P Q z PINS:10 LDR A6,A7 Q P LDR A9,A4 Q ( P CWK A5,LBVDU+1 UNFORMATTED SCREEN?? Q P RF(NE) INS:20 NO!! Q P LDKL A2,LBVDU-1
0x291af0…291c84 Dummy {f00=0x00a3, f01=0x0190, f02=»?? Q v P RF(Z) INS:30 NO!! R P SUK A2,1 R $ P R 6 PINS:30 ADR A2,TCABAS R > 6 P ADK A2,BVDU ADD BUFFER DISPLACEMENT IN WORK-BLOCK R Z . P CF A14,S:NULL SEARCH FIRST NULL CHARACTER R . PINS:40 CWR A2,A6 ALL CHARACTERS SHIFTED ?? R P RF(E) INS:50 YE
0x291c84…291e18 Dummy {f00=0x00a3, f01=0x0190, f02=»1 R " P RB INS:40 GET NEXT CHARACTER S P S 0 P S 8 ( PINS:50 ORKL A9,/80 SET MODIFIED BIT S @ . P SCR A9,A6 SAVE INPUT CHARACTER IN BUFFER S l . P IM PCURS,TCABAS INCREMENT CURSOR POSITION S PINS:60 EQU * S * P CF A14,DISPL DISPLAY MODIFIED FIELD
0x291e18…291fac Dummy {f00=0x00a3, f01=0x0190, f02=»************************ S n P* T 4 P* SEARCH FIRST NULL CHARACTER AFTER CURSOR POS T * P* T b : P****************************************************** T l P T PS:NULL EQU * T P LDR A1,A6 T P T PS:NU10 CWR A1,A2 T P RF(E) S:NU30 T
0x291fac…292140 Dummy {f00=0x00a3, f01=0x0190, f02=» T | P ADK A1,1 U * P RB S:NU10 CHECK NEXT BUFFER CHARACTER U P U H * PS:NU20 LDR A2,A1 ADDRESS OF FIRST NULL U P PS:NU30 RTN A14 U ~ P U P* U > P********************************************************* U P* U P* CANCEL U P* U
0x292140…2922d4 (4, 30) Dummy {f00=0x00a7, f01=0x0190, f02=»*************************************** U ~ P* V 0 PCANCEL EQU * V : PPA2 EQU * V N P LDK A2,/2E CANCEL POS V ` PCAN100 EQU * V ~ $ P LC A2,TASCII,A2 GET ASCII CODE V PCAN200 EQU * V . P CF A14,LINHON TURN ON "KEYBOARD INHIBIT" V ( P CF A14,
0x2922d4…292468 Dummy {f00=0x00a7, f01=0x0190, f02=»KEY IS PRESSED AND NUMBER WILL BE INSERTED TO V | : P* DEFINE ONE OF THE FUNCTIONS UNDER PA1.CANCEL OR PA3 W 6 P* W t P* W ~ PPAEX EQU * W P LDKL A1,PAEXA W P ST A1,RDMORE,TCABAS W P RTN A14 W PPAEXA EQU * W P CM RDMORE,TCABAS W
0x292468…2925fc Dummy {f00=0x00a7, f01=0x0190, f02=» P RF(Z) PA3 X P ADK A2,1 X P RB(Z) PA2 X ( P RF PA1 X : & P RTN A14 RETURN TO MAIN READ LOOP X J P X t P XIF X | P X P X P* X & P* PA1 PROGRAM ATTENTION KEY X P* X P* X PPA1 EQU * X P LDK A2,/2C PA1 POS
0x2925fc…292790 Dummy {f00=0x00a7, f01=0x0190, f02=»PA3 POS X P RB CAN100 Y P* Y " P* PA4 - PA10 (ALFASKOP) Y , PPAEXB EQU * DK1 Y L P SUK A2,/6 DK1 Y d P RF(G) PFERR DK1 Y | P ADK A2,/69 SET PA 4-9 DK1 Y P RB CAN200 DK1 Y P* Y PPA410 EQU * Y P SUK A2,/20 Y P RB CA
0x292790…292924 Dummy {f00=0x00a7, f01=0x0190, f02=»OGRAM FUNCTION KEY WHICH CAUSES AN I/O OPERATION Y < P* AND GENERATE AN AID CHARACTER FOLLOWED BY AN SBA ORDER Z 8 8 P* ATTRIBUTE ADDRESS AND TEXT FOR EACH MODIFIED FIELD Z x P* NULLS ARE SUPRESSED Z P* Z > P********************************************
0x292924…292ab8 Dummy {f00=0x00a7, f01=0x0190, f02=» Z n . P CF A14,LINHON TURN ON "KEYBOARD INHIBIT" [ . P CF A14,TRPF AID+MODIFIED FIELDS+TRANSMIT [ : PENT200 EQU * [ l P RTN A14 [ P* [ P [ P IFT PFX=1 [ P [ P* [ P* [ F P* PROGRAM FUNCTION KEY IOS PRESSED AND NUMBER WILL BE IN
0x292ab8…292c4c Dummy {f00=0x00a7, f01=0x0190, f02=»NXT [ PPFEXA EQU * P CM RDMORE,TCABAS P SUK A2,/30 LEGAL CHAR ? : , P RF(L) PFERR ILLEGAL,GO TO ERR.HANDLING Z & P RF(Z) PF0 FIRST NUM. 0 GO TO PF0 P SUK A2,/1 FIRST NUM. 1 ? P RF(G) PFERR ILLEGAL NUM. P LDKL A1,PF1A
0x292c4c…292de0 Dummy {f00=0x00a7, f01=0x018e, f02=»ING l P SUK A2,/2 LEGAL NUM ? ] , P RF(G) PFERR ILLEGAL GO TO ERR.HANDLING ] * P ADK A2,/3C PF10-12 POS ] Z P RB ENT100 ] z P ] PPF0 EQU * ] P LDKL A1,PF0A ] PPFNXT EQU * ] P ST A1,RDMORE,TCABAS ] P RTN A14 ] PPF0A EQU * ]
0x292de0…292f74 (4, 31) Dummy {f00=0x00a7, f01=0x0190, f02=» ] x , P RF(G) PFERR ILLEGAL GO TO ERR.HANDLING ^ P ADK A2,/39 PF1-9 POS ^ 8 P RB ENT100 ^ V P XIF ^ h PPFERR EQU * ^ t * P CF A14,ERROR GO TO ERR-HANDLING RUTIN ^ $ P RTN A14 GO TO MAIN READ MODULE ^ P ^ P ^ PPF EQU * ^ P SUK A2,/5
0x292f74…293108 Dummy {f00=0x00a7, f01=0x0190, f02=»* OFLINE ^ < P* THE OFFLINE SWITCH "OFFFLG" IS SET = 1 AND _ 8 P* A BRANCH IS MADE BACK TO CREDIT PROGRAM _ P P* _ B P************************************************************* _ POFLINE EQU * _ P CF A14,CLEAR _ POF
0x293108…29329c Dummy {f00=0x00a7, f01=0x0190, f02=»4,DCABOR ABORT REQUEST NOT CURRENT MF _ P XIF ` . P IFT OFLIN=1 ` : 6 P LDK A1,0 DV ADDRESS ::= 0MESSAGES TO VDU IGNORED ` N P LDKL A8,ECBDC MF # 1 ` & P CF A14,EMULA TRANSFER PARAMETERS ` P IFT DCLIN=2 ` P LDKL A8,ECBDC2 MF # 2 ` & P CF A1
0x29329c…293430 Dummy {f00=0x00a7, f01=0x018e, f02=»F A14,LIOLON TURN ON OFFLINE LAMP ` & P IM OFFFLG,TCABAS SET OFFLINE FLAG a * $ P ADKL A14,4 SKIP ONE STACK LEVEL a T * P LD A13,2,A14 RELOAD REGISTERS A12-A13 a | P LD A12,4,A14 a $ P ADKL A14,4 UPDATE STACK POINTER a * P ABL I:RT1 RETURN TO "OFFLINE" P
0x293430…2935c4 Dummy {f00=0x00a7, f01=0x0190, f02=» a P* MAINFRAME CHANGE b H P* THE SWITCH 'MAIN' IS CHANGED, AND THE APPROPRIATE 'SYSTEM' LAMP b " P* IS TTURNED ON b n P* b J P********************************************************************* b P* b PMFCHGE EQU * b P CF A1
0x2935c4…293758 Dummy {f00=0x00a7, f01=0x0190, f02=»TCABAS b P XRK A1,1 c P RF(NZ) MFCH10 c P CF A14,LMF1ON c 6 P RF MFCH90 c L PMFCH10 EQU * c ^ P CF A14,LMF2ON c r PMFCH90 EQU * c P ST A1,MAIN,TCABAS c P RTN A14 c P XIF c P c P* c < P**********************************
0x293758…2938ec Dummy {f00=0x00a7, f01=0x0190, f02=»NERATE AN AID CHARACTER. THE ENTIRE DISPLAY c : P* BUFFER IS CLEARED TO NULLS AND CURSOR IS LOCATED IN d 4 P* HOME POS d r P* d < P******************************************************** d P* d PCLEAR EQU * d P LDK A2,/2D POS FOR 'CLEAR'
0x2938ec…293a80 Dummy {f00=0x00a7, f01=0x0190, f02=»ASE ERASE ENTIRE SCREEN d P RTN A14 e P e 0 P* e : @ P************************************************************ e D P* e P* EREOF e P* e P* ERASE TO END OF FIELD e P* e @ P**************************************************
0x293a80…293c14 (4, 32) Dummy {f00=0x00a8, f01=0x0190, f02=» P RF(E) ERE100 YES f P ABL ERROR f PERE100 LD A2,PCURS,TCABAS f 0 P f R ( P************************ 77.06.01 f Z P f 2 P CW A2,CURATT,TCABAS STANDING ON ATTRIBUTE ?? f * P ABL(E) ERROR YES!! TURN ON ERROR LAMP f P f ( P**************
0x293c14…293da8 Dummy {f00=0x00a8, f01=0x018e, f02=» PERE160 LDR A1,A2 g P LD A3,PCURS,TCABAS g PERE170 EQU * g 8 P LDKL A4,BVDU g L P ADR A4,TCABAS g b P ADR A4,A3 g x 0 P CF A14,ERASUA ERASE AND REPLASE WITH NULLS g ( P CF A14,DISPL DISPLAY ERASED SCREEN g P* g ( P* SET MDT BIT IF F
0x293da8…293f3c Dummy {f00=0x00a8, f01=0x0190, f02=» g P ADK A2,BVDU h . P ADR A2,TCABAS ABSOLUTE ATTRIBUTE ADDRESS h P LCR A1,A2 GET ATTRIBUTE h N P ORK A1,1 SET MDT BIT h n P SCR A1,A2 h PERE180 EQU * h P RTN A14 h ( PERE200 CWK A2,LBVDU-1 END OF BUFFER? h P RF(E) ERE300 YES h P
0x293f3c…2940d0 Dummy {f00=0x00a8, f01=0x0190, f02=» P RB ERE150 i P i P* i < P******************************************************** i * P* i j P* ERINPT i t P* i : P* CLEARS ALL UNPROTECTED CHARACTER LOCATIONS TO NULLS i : P* AND REPOSITIONS THE CURSOR TO THE FIRST UNPROTECTED i "
0x2940d0…294264 Dummy {f00=0x00a8, f01=0x0190, f02=» i ( P CF A14,ERASUP ERASE ALL UNPROTECTED j P CF A14,DISPL j 4 P LD A2,PCURS,TCABAS j J P CF A14,ATMASB j f > P********************************************************* j | P SUK A1,1 j $ P RF(Z) ERI:10 NO ATTRIBUTE FOUND j 0 P RF(N) ERI:5 ATT
0x294264…2943f8 Dummy {f00=0x00a8, f01=0x0190, f02=»************************ j n P ADK A2,1 k P k 2 PERI:10 EQU * k : P ST A2,PCURS,TCABAS k N P RTN A14 k j P k z P* k @ P************************************************************ k P* k P* ERROR k P* k . P* THE MODULE TAKES
0x2943f8…29458c Dummy {f00=0x00a8, f01=0x0190, f02=» ( P CF A14,LERRON TURN ON 'ERROR' LAMP l P LD A5,KBINH,TCABAS l 0 4 P ORK A5,4 BIT 13:=1,ERROR HANDLING.RESET ALLOWED l L P ST A5,KBINH,TCABAS l P l P* l P* TURN ON SOUND ALARM l P* l P l P LDKL A8,ECBVDU l " P ADR A8,CREB
0x29458c…294720 Dummy {f00=0x00a8, f01=0x018e, f02=»' BELL CHARACTER l P SC A7,2,A2 m P LDK A7,3 REQUESTED LENGTH m , P ST A7,ECBRL,A8 m N P LDK A7,X'86' SOUND ALARM m f P LKM m P DATA 1 m P m P RTN A14 m P IFT KEYLST=1 m P m F P********************************************
0x294720…2948b4 (4, 33) Dummy {f00=0x00b5, f01=0x0190, f02=» m F P****************************************************************** n P* n R PKEYL EQU * n & P SUK A2,/78 GET NEG KEY LOCK VALUE n n " P LD A3,KEYS,TCABAS OLD STATUS n P LDK A4,/10 n PKEYL10 EQU * n P SRL A4,1 n P ADK A2,2 1 = OF
0x2948b4…294a48 Dummy {f00=0x00b5, f01=0x0190, f02=») KEYL99 NOW OFF, NO CHANGE n P RF KEYL30 NOW ON o $ PKEYL20 EQU * WAS ON o > P LDR A2,A2 o Z $ P RF(Z) KEYL99 NOW ON, NO CHANGE o l PKEYL30 EQU * CHANGE o P LD A3,KEYS,TCABAS o P XRR A3,A4 CHANGE STATUS o ( P ST A3,KEYS,TCABAS STORE NEW S
0x294a48…294bdc Dummy {f00=0x00b5, f01=0x0190, f02=» A4 = KEYLOCK CHANGED, LAYOUT AS A3 o ( P* A2 = 1, IF CHANGED TO OFF ELSE 0 p , P* p X * P* INSERT USER ROUTINE BELOW THIS LINE p b P* p PKEYL99 EQU * p P RTN A14 p P XIF p P p P* p < P******************************************
0x294bdc…294d70 Dummy {f00=0x00b5, f01=0x018e, f02=»* p PLON EQU /B7 q PLOF EQU /B8 q P IFT KB6272=1 q 2 PLMF1 EQU /20 q H PLMF2 EQU /10 q PLIOL EQU 1 q p PLINH EQU 8 q PLERR EQU 4 q PLSAV EQU 2 q P XIF q P IFF KB6272=1 q PLMF1 EQU 0 =2 q PLMF2 EQU 0 =2 q PLI
0x294d70…294f04 Dummy {f00=0x00b5, f01=0x0190, f02=» q PLMF1OF LDK A3,LMF1 r P RF LMPOF r " PLMF2ON LDK A3,LMF2 r 4 P RF LMPON r N PLMF2OF LDK A3,LMF2 r ` P RF LMPOF r z PLIOLON LDK A3,LIOL r P RF LMPON r PLIOLOF LDK A3,LIOL r P RF LMPOF r PLINHON LDK A3,LINH r P RF LMPON
0x294f04…295098 Dummy {f00=0x00b5, f01=0x0190, f02=» PLSAVON LDK A3,LSAV s P RF LMPON s PLSAVOF LDK A3,LSAV s 0 P RF LMPOF s J P* s PLMPON LDK A7,LON s f P RF SDISP s ~ PLMPOF LDK A7,LOF s P RF SDISP s P s P s P* s < P**************************************************
0x295098…29522c Dummy {f00=0x00b5, f01=0x0190, f02=»******************** s l P* t PSDISP EQU * t & P LDKL A8,ECBSD t : P ADR A8,CREBAS t P P ST A3,ECBCW,A8 t f P LKM t ~ P DATA 1 t P RTN A14 t P t P* t < P******************************************************** t P* t P
0x29522c…2953c0 Dummy {f00=0x00b5, f01=0x0190, f02=»********************** t n P* u " P* A2=CURSOR BINARY ADDRESS u ( $ P* A1=BUFFER SCANNING PARAM. u N . P* 0=ATTRIB FOUND 1=END OF BUFFER LEFT u v ( P* 2= ATTRIBUTE IN LAST POSITION u P* u PATMASB EQU * u P LDK A1,0 u PASB0
0x2953c0…295554 (4, 34) Dummy {f00=0x00b6, f01=0x0190, f02=»S u x , P ST A2,CURATT,TCABAS CURSOR ON ATTRIBUTE v P RTN A14 v : PASB10 CWK A2,0 END OF BUFFER v J P RF(E) ASB20 YES v n P SUK A2,1 v P RB ASB05 NEXT v PASB20 EQU * v P v P v 6 P************************************************* v
0x295554…2956e8 Dummy {f00=0x00b6, f01=0x0190, f02=»ATTRIBUTE ??? v P RB(NG) ASB08 YES!!! w P SUR A2,A2 FIRST SCREEN POS. w 2 2 P********************************************* w V P w P LDK A1,1 END BUFFER LEFT w P CM ATTRIB,TCABAS w P LDKL A7,LBVDU+1 w 4 P ST A7,CURATT,TCABAS POSSIBLY UN
0x2956e8…29587c Dummy {f00=0x00b6, f01=0x0190, f02=» ATMASF w P* x : P* SEARCH FOR ATTRIBUTE CHAR. FORWARDS AND MASK IT x P* x Z > P********************************************************* x d P* x P* A3=CHARACTER x " P* A2=CURSOR BINARY ADDRESS x $ P* A1=BUFFER SCANNING PAR
0x29587c…295a10 Dummy {f00=0x00b6, f01=0x0190, f02=»* x P LD A7,ATTRIB,TCABAS y P LD A8,CURATT,TCABAS y & , P CF A14,ATMASF SEARCH ATTRIBUTE FORWARD y B P ST A7,ATTRIB,TCABAS y r P ST A8,CURATT,TCABAS y P RTN A14 y P y PATMASF EQU * y P LDK A1,0 y PASF05 EQU * y " P CF A14,GBUF
0x295a10…295ba4 Dummy {f00=0x00b6, f01=0x0190, f02=»****** y Z , P CWK A2,LBVDU-1 EOB +ATTRIB IN LAST POS z @ P************************************************************ z > P RF(NE) ASF08 NO z P LDK A1,3 z PASF08 ST A3,ATTRIB,TCABAS z , P ST A2,CURATT,TCABAS CURSOR ON ATTRIBUTE z P RTN A14 z
0x295ba4…295d38 Dummy {f00=0x00b6, f01=0x0190, f02=»F05 z P { P* { 6 P************************************************** { P* { Z P* GBUFFC { d P* { t 6 P* GET VDU BUFFER CHAR WHICH IS INDICATED BY CURSOR { ~ P* { 6 P************************************************** { P* { P*
0x295d38…295ecc Dummy {f00=0x00b6, f01=0x0190, f02=» A4,TCABAS GET VDU BUFFER { P ADR A4,A2 | " & P LCR A3,A4 GET CHARACTER IN BUFF. | 4 P RTN A14 | ^ P | n P* | x @ P************************************************************ | P* | P* RESET | P* | 8 P* RESET 'KEYBOARD INHIBIT' IN
0x295ecc…296060 Dummy {f00=0x00b6, f01=0x0190, f02=» PA-KEY OPERATION IS IN PROCESS PRIOR TO | < P* INITIATION OF A COMMAND FOR A DEVICE WITH AN ATTACHED } 0 " P* KEYBOARD. BIT 14=1 IN KBINH } p * P* 3- ERRORSITUATION. BIT 14=1 IN KBINH } P* } : P* IF BIT 15=1 IN KBINH => NO RESETTING ALLOWED DURING }
0x296060…2961f4 (4, 35) Dummy {f00=0x00b6, f01=0x0190, f02=»T EQU * } & P CM MODE,TCABAS RESET INSERT MODE ~ * P CF A14,LIOLOF TURN OFF "INSERT" LAMP ~ : & P CM KBINH,TCABAS RESSTORE KEYBOARD ~ h ( P CF A14,LERROF TURN OFF 'ERROR' LAMP ~ 4 P CF A14,LINHOF TURN OFF 'KEYBOARD INHIBIT' LAMP ~ P RTN A14 ~ P
0x2961f4…296388 Dummy {f00=0x00b6, f01=0x0190, f02=» IN VDU BUFFER ON ~ r $ P* HARDCOPY DEVICE P* B @ P************************************************************ L P PCOPY EQU * P LD A5,COPNO,TCABAS P ABL(Z) ERROR P LDKL A3,BVDU BUFFER P ADR A3,TCABAS
0x296388…29651c Dummy {f00=0x00b6, f01=0x0190, f02=»K COMMUNICATION P* P* A3 = BUFFER ADDRESS " P* A4 = ORDER @ P* A5 = "TO-TID" T P* A6 = REQ LENGTH l P* PICWRTE EQU * P LDKL A8,ECBICW P ADR A8,CREBAS P LDKL A1,-1 * P CF A14,REQTIM NO TIME OUT SUPERVI
0x29651c…2966b0 Dummy {f00=0x00b6, f01=0x4034, f02=» P DATA 1 P RTN A14 P END $@ 0ESS " P* A4 = ORDER @ P* A5 = "TO-TID" T P* A6 = REQ LENGTH l P* PICWRTE EQU * P LDKL A8,ECBICW P ADR A8,CREBAS P LDKL A1,-1 * P CF A14,REQTIM NO TIME OUT SUPERVI
0x2966b0…296844 Dummy {f00=0x00b6, f01=0x2008, f02=» A7,/B7 TRANSFER PARAMETERS LKM , DATA 1 8 CF A14,ERASE ERASE SCREEN H 0 ,EM100 CF A14,TRPF TRANSMIT, PROGRAM FUNCTION j RB EM100 AGAIN * * END START @ 4,2,A13 ADR A14,A13 LOAD STACK
0x296844…2969d8 Dummy {f00=0x00b6, f01=0x0190, f02=» PFLDT037 P CMP GTDUPF(CBIN3),=D'46' P BE FLDTOK BKO=46 6 P CMP GTDUPF(CBIN3),=D'56' P P BE FLDTOK BKO=56 r 2 P MOVE GTUSED(CBIN15),=W'48' SET FIELD 48 USED 0 P MOVE GTDUPF(CBIN15),=D'1' SET FIELD 48 = 1 P B FLDTOK P
0x2969d8…296b6c Dummy {f00=0x00b6, f01=0x0190, f02=»EX 10) x P B FLDTNOK 2 PFLDT041 CPR . D P PERF FLDIN,CBIN11,CBIN12,CBIN13,CBIN0 FIELD 18,19,20 d P CMP GSWBIN1,=W'0' P BNE FLDTNOK P CMP GTUSED(CBIN10),=W'0' P BNE FLDTOK
0x296b6c…296d00 Dummy {f00=0x00b6, f01=0x0190, f02=» BNE FLDTOK FIELD 46 USED 6 P MOVE GTUSED(CBIN17),=W'46' ELSE SET FIELD 46 USED " 0 P MOVE GTDUPF(CBIN17),=D'1' SET FIELD 46 = 1 P B FLDTOK P* PFLDT10 P MOVE GSWBIN1,GTKTTYP P IB GSWBIN1, C . P FLDT105,FLDT105,FLDT10
0x296d00…296e94 (4, 36) Opaque[0x194]
0x296e94…297028 # DirEnt {nam=»KMD08 «, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x21b8, f03=0x0000}
0x296e94…297028 IdxSect {
0x296e94…297028 f00 = 0x010d // 0x296e94 @0x0
0x296e94…297028 f01 = 0x000e // 0x296e96 @0x2
0x296e94…297028 gno = [ // 0x296e98 @0x4
0x296e94…297028 [0x00]: C0x010d.0x3.0
0x296e94…297028 [0x01]: C0x010e.0x0.0
0x296e94…297028 [0x02]: C0x010e.0x1.0
0x296e94…297028 [0x03]: C0x010e.0x2.0
0x296e94…297028 [0x04]: C0x010e.0x3.0
0x296e94…297028 [0x05]: C0x010f.0x0.0
0x296e94…297028 [0x06]: C0x010f.0x1.0
0x296e94…297028 ]
0x296e94…297028 }
0x297028…2971bc Dummy {f00=0x010d, f01=0x0190, f02=» P IDENT KMD08 02.01.XXX.1 P* & P* 0 < P******************************************************** : P* z 4 P* THIS IS THE MAIN MODULE FOR KMDAPLICATION 2 P* CONTAINING THE CWB'S, TWB'S AND INITIAL P* START POINTS
0x2971bc…297350 Dummy {f00=0x010d, f01=0x0190, f02=»************************************************** P* : $ P* TRANSACTION TASK TC D P* l 8 P**************************************************** v P TERM TC P* P CWB CB1 P CWB CB2 P CWB CB3 P CWB CB4
0x297350…2974e4 Dummy {f00=0x010d, f01=0x0190, f02=» P UWB TB2 P DWB TD2(TB2) P* . PFD01 DSET FC=F8 VOL 999001 8 PFD02 DSET FC=F9 VOL 999002 Z & PKVOUCH DSET FC=31,DEV=TV,BUFL=100 | 2 PKJTAPE DSET FC=30,DEV=TJ,BUFL=70,BUFDS=KVOUCH 2 PKTALLY DSET FC=32,DEV=TR,BUFL=30,BUFDS=KVOUC
0x2974e4…297678 Dummy {f00=0x010d, f01=0x0190, f02=»EGSET v & PDK03 DSET FC=C3 FD999003 CYCLE SET $ PDK04 DSET FC=C4 FD999004 KT PLAN 8 PDSSOPI DSET FC=10 ` PDSSOPO DSET FC=11 z PDCOMM DSET FC=61 PKCASS DSET FC=12 PDK05 DSET FC=C5 PDK06 DSET FC=C6 PDK07 DSET FC=C7
0x297678…29780c Dummy {f00=0x010d, f01=0x0190, f02=» P* P* P* P* & P START REGGO 0 P STACK 160 D P EJECT V L P************************************************************************ d P* F P* D A T D I V : DATA DIVISION FOR IBM-3270 EMULATION PACKAGE. B P
0x29780c…2979a0 Dummy {f00=0x010d, f01=0x0190, f02=»********************************************************** P B P EJECT J P* X P* b P* l P* DATA DIVISION v P* P* P* P* KB/VDU TERMINAL P* P TERM KA P* P CWB CB9 P TWB TB9
0x2979a0…297b34 (4, 37) Dummy {f00=0x010e, f01=0x0190, f02=» x $ PDSVDU DSET FC=50,DEV=DY,BUFL=162 $ PDSKBAN DSET FC=20,DEV=KA,BUFL=2 0 $ PDSKBSD DSET FC=40,DEV=KI,BUFL=2 X P EJECT P* P* P* GTP TERMINAL P* P* P TERM GA P* P CWB CB9 P TWB TB9 P*
0x297b34…297cc8 Dummy {f00=0x010e, f01=0x0190, f02=»GTP DSET FC=30,DEV=GP,BUFL=162 P EJECT & P* 4 P* > P* DCTASK H P* X P* b P TERM D0 l P* | P CWB CB9 P START DC1GO PDSDC DSET FC=60 P* P EJECT P* P* 4 P* WORK AREA FOR KEYBO
0x297cc8…297e5c Dummy {f00=0x010e, f01=0x0190, f02=» KEYBARD/VDU/PRINTER ~ & PBVDU STRG 3840X'0' VDU SCREEN BUFF ( PPCURS STRG 4X'0' CURSOR ADDR. BINARY F . PATTRIB STRG 4X'0' LAST ATTRIBUTE CHARACTER r & PCURATT STRG 4X'0' CURSOR ATTRIBUTE $ PWCC STRG 4X'0' WCC/CCC CHARACTER , PKBINH STRG 4X'0' K
0x297e5c…297ff0 Dummy {f00=0x010e, f01=0x0190, f02=»TT STRG 4X'0' INTENSITY ATTRIBUTE " POFFFLG STRG 4X'0' OFFLINE FLAG * PCOPNO BIN TID FOR HARDCOPY P PMISCAR STRG 44X'0' CCC,MAIN, t P MODE,KEYS,ECBDCC,ECBBLK, PSTRG2 STRG 4X'0' DK P EJECT P P************** P*
0x297ff0…298184 Dummy {f00=0x010e, f01=0x0190, f02=» PCNFIGD BOOL PCNFBSY BOOL P* 0 P* CONFIGURATION DATA : P* X " PNBRKBV BIN NUMBER OF KB/VDUS b PNBRGTP BIN NUMBER OF GTPS P* : PMF1KBV STRG 32X'40C1C2C3C4C5C6C7' DV ADDRESSES KB/VDU 6 PMF1GTP STRG 32X'C8C94A
0x298184…298318 Dummy {f00=0x010e, f01=0x0190, f02=»040' CU-ADDRESS MF # 1 P* D PCNFHC BINI (16),'1','2','3','4','5','6','7','8' HARDCOPY PRINTER ( P FOR KB-VDU 1-16 p P* PBINWK1 BIN P* 6 POFF STRGI (12)2C'TC','TD','TE','TF','TG','TH', C $ P 'TI','TJ','TK','TL','TM','TN
0x298318…2984ac Dummy {f00=0x010e, f01=0x0190, f02=»LAG BOOL FALSE F=NO SALDO AT ALL IN KORT . PCCLKTFLG BOOL FALSE T=KONTOKORT I KASSELUK 0 0 PCTESTFLG BOOL FALSE T=CONVERSION, TEST MODE b , PCTRVALG BOOL FALSE T: SKOVBO. F: VIBORG . PCFLT46 BOOL FALSE T=SPECIAL FIELD 46,TR=8 . PCFLT48 BOOL FALS
0x2984ac…298640 Dummy {f00=0x010e, f01=0x018e, f02=»CCYWRTF BOOL FALSE T=DO NOT USE CYCLE SET 2 PCADM22F BOOL FALSE T=ALLOWED FUNCTION (ADM 22) 2 PC5MDISK BOOL FALSE T=5M DISK h * PCKASFLG BOOL TRUE T=BACKUP ON CASSETTE 4 PCSLDFLG BOOL TRUE T=GL.SALDO PRESENT(CKTFLAG=T) , PCGLREGFL BOOL FALSE T=
0x298640…2987d4 (4, 38) Dummy {f00=0x010e, f01=0x0190, f02=» PCBIN3 BIN '3' PCBIN4 BIN '4' PCBIN5 BIN '5' 0 PCBIN6 BIN '6' F PCBIN7 BIN '7' PCBIN8 BIN '8' r PCBIN9 BIN '9' PCBIN10 BIN '10' PCBIN11 BIN '11' H PWEIGTH BCDI (13),'2','7','6','5','4','3','2','7','6','5','
0x2987d4…298968 Dummy {f00=0x010e, f01=0x0190, f02=»* & PCPFLG BOOL FALSE T: DISK OCCUPIED ( PCSPLITFL BOOL FALSE T: SPLIT RECORD 4 " PCWFLAG BOOL FALSE F=COLD START ` " PCREMITFL BOOL FALSE F=NO REMIT & PCSKIFTFL BOOL FALSE T=FD CHANGING ( PCEORFLG BOOL FALSE T=END OF A RECORD 0 PCCOLDF
0x298968…298afc Dummy {f00=0x010e, f01=0x0190, f02=»N h $ PCSWFLAG BOOL FALSE SCRATCH FLAG 2 PCSKIFTWN BOOL FALSE T=WARNING ABOUT FD CHANGE 2 . PCKFLAG BOOL FALSE T=EXCL ACCESS, KNT. PLAN h P* P* P* PCBIN12 BIN '12' PCBIN13 BIN '13' PCBIN14 BIN '14' PCBIN15 B
0x298afc…298c90 Dummy {f00=0x010e, f01=0x0190, f02=»CBIN21 BIN '21' PCBIN22 BIN '22' PCBINMAX BIN '26' 0 P EJECT H @ P*********************************************************** V P* : P* TABLE GIVING INDEXES FOR TRANSACTIONFIELDS 4 P* FIELD NR GIVES DISPLACEMEN
0x298c90…298e24 Dummy {f00=0x010e, f01=0x0190, f02=»','26','26','1','2','3','4','5','6', 1-10 C < P '7','8','9','4','11','12','10','11','12','13', 11-20 C 4 > P '10','11','12','13','14','15','16','1','8','9', 21-30 C t < P '10','5','12','13','14','5','18','19','7','7', 31-40 C @ P '18','14','20','
0x298e24…298fb8 Dummy {f00=0x010e, f01=0x018e, f02=»','26','26','26','26', 61-70 C t @ P '26','26','26','26','26','26','26','26','26','26', 71-80 C & > P '19','26','26','26','26','26','26','26','26','26' 81-90 j PCCNTDEX BINI (11), C 2 P '1','2','3','4','5','1','5','6','6','5','0' P EJECT
0x298fb8…29914c Dummy {f00=0x010e, f01=0x0190, f02=» PCMAXLIN BIN W'54' PCMINLIN BIN W'2' PCCONBUF0 STRG 398X'FF' 6 PCCONBUF1 STRG 398X'FF' T PCCONBUF2 STRG 398X'FF' r PCCONBUF3 STRG 398X'FF' PCCONBUF4 STRG 398X'FF' PCCONBUF5 STRG 398X'FF' PCCONBUF6 STRG 398X'FF' P
0x29914c…2992e0 Dummy {f00=0x010e, f01=0x018e, f02=»C ^ $ P 'TI','TJ','TK','TL','TM','TN' P* 2 P EJECT < PCB4 BLK J P* Z P* d P* n P* x P* PCMAXTASK BIN NO OF TASKS " PCTASKNR BIN NO. OF 0PEN TASKS PCRECLGD BIN W'128' $ PCRECNR BIN PHYSICAL RECOR
0x2992e0…299474 (4, 39) Dummy {f00=0x010e, f01=0x0190, f02=» PASVOL STRG 6 PASFNAME STRG 8 PCKMDNAM STRG 6'OD-KOM' 2 , PCVERSNR BCD 10D'01014610' VERSION NUMBER P PCBLANKS STRG X'2020' PCPCKBUF STRG 128 PACKBUFFER P* TEXT FOR BKO & P* ONLY RELEVANT IF EITHER (
0x299474…299608 Dummy {f00=0x010e, f01=0x0190, f02=»' & PCREGTAB BCDI (25,2),'01','-01', C P '02','-01', C 4 P '03','-01', C L P '04','-01', C d P '05','-01', C | P '06','-01', C P '07','-01', C P '08','-01', C P '09','-01', C P '10','-01', C
0x299608…29979c Dummy {f00=0x010e, f01=0x0190, f02=», C P '47','-01', C P '48','-01', C $ P '49','-01', C < P '50','-01', C T P '51','-01', C l P '52','-01', C P '53','-01', C P '54','-01', C P '-01','-01' P* P EJECT P* PCB6
0x29979c…299930 Dummy {f00=0x010e, f01=0x0190, f02=»YCLE PAGE r , PCKTLAST BIN '0' LAST RECORD USED, KTPLAN 4 PCMAXREC BIN W'1400' GIVES WARNING OF FULL REGSET B * PCGLRECNR BIN '0' LAST RECNR, GL REGSET z . PCKTINDX BCDI (7),14D KNT.PLAN MASTER INDEX PCCYBUF STRG 128 CYSET BUFFER " PCKTBUF STR
0x299930…299ac4 Dummy {f00=0x010e, f01=0x0190, f02=» P 'KH','KI','KJ','KK','KL' P EJECT & P* 4 PTB1 BLK > P* N P* X P* b P* l " PTTCY1FLG BOOL FALSE IN CYCLE? v " PTTCY2FLG BOOL FALSE IN STABEL? PTTLSTFLG BOOL FALSE $ PTTPSEFLG BOOL FALSE PAUSE STATE ( PTT
0x299ac4…299c58 Dummy {f00=0x010e, f01=0x0190, f02=»TTJTEND BOOL FALSE END OF JOURNAL * PTTEORFLG BOOL FALSE *-- END OF RECORD * ( PTTSUPFLG BOOL FALSE SUPPLEMENT POST X , PTTSMALL BOOL FALSE *-- SMALL GIRO KVIT? & PTTR11FLG BOOL FALSE T: KASSE CLOSE * PTREMFLG BOOL FALSE T= REMOTE TERMINAL
0x299c58…299dec Dummy {f00=0x010e, f01=0x0190, f02=» BIN '1' HBOG/DEBP/REM PTTTROLD BIN NO OF OLD TRANS PTTASKNR BIN B PTTDKBCD BCD 2 D/K VALUE V $ PTTARKSAV BCD 12 SAVED ARK KT NR v & PTTCYKTOT BCD 14 SAVED CYKLE TOTAL & PTTCYKPOS BCD 4 SAVED CYKLE LINE NR $ PTTLINNR BCD 4 LINE NR
0x299dec…299f80 Dummy {f00=0x010e, f01=0x0190, f02=»FFFFFFFF' PTSWBCD2 BCD 2 *-- & PTTCYM STRG 1 CYKLE MARK ON JOURNAL , . PGTREGF BCDI (26),16X'F' TRANSACTION FIELDS V P* P EJECT P* PGB1 BLK P* P* P* P* P* PGTEXFLAG BOOL FALSE P
0x299f80…29a114 (4, 40) Dummy {f00=0x010e, f01=0x0190, f02=» v * PGTCLRN BOOL FALSE *-- SPCLRN OR SPCLRA PGTTYPE2 BOOL FALSE *-- 6 PGTTYPE3 BOOL FALSE *-- T 4 PGTKASSE BOOL FALSE *-- TRUE- IN KASSE FUNCTIONS r 4 PGTSLUTFL BOOL TRUE FALSE: SLUT KEY IS SIMULATED ( PGTDIVTR BOOL FALSE T: DIVERSE TRANS
0x29a114…29a2a8 Dummy {f00=0x010e, f01=0x0190, f02=» " PGTSUBFLG BOOL FALSE T=SUBTOTAL P* * PGSWBIN1 BIN 4 PGSWBIN2 BIN H PGSWBIN3 BIN PGSWBIN4 BIN p PGSWBIN5 BIN PGSWBIN6 BIN PGSWBCD1 BCD 14 PGSWBCD2 BCD 14 PGSWBCD3 BCD 6 PGSWBCD4 BCD 6D PGSWB
0x29a2a8…29a43c Dummy {f00=0x010e, f01=0x0190, f02=»MATS r P EJECT PGB2 BLK P* * PSPPROMPT BOOL FALSE 4 PSPCHANGE BOOL FALSE P 2 PSPDUPL BOOL FALSE TRUE: FIELD HAS BEEN DUPPED l 2 PSPME BOOL FALSE FALSE: NO CHECK FOR ME FIELDS 0 PSPKEYFLG BOOL TRUE FALSE NO KOR-KEY IN SPERR
0x29a43c…29a5d0 Dummy {f00=0x010e, f01=0x0190, f02=»Y 3 ON z PTTKEY4 BOOL FALSE T=KEY 4 ON ! P* ! 2 P* ! < P* ! F PSPBINW1 BIN ! P PSPBINW2 BIN ! d PSPBINW3 BIN ! x PSPBINW4 BIN ! PSPBINW5 BIN ! PSPKEY BIN '1' ! ( PSPERASE BIN '0' 0:ERASE; 4:NO ERASE ! PSPLINTOP BIN !
0x29a5d0…29a764 Dummy {f00=0x010e, f01=0x0190, f02=» ! l PGSSWITCH BINI (26) " PGTUSED BINI (26) " " P* " : P EJECT " D PGB3 BLK " R P* " b PPSIGNFLG BOOL FALSE " l PBCPR BOOL FALSE T=CPR F=CIR " " PBLEV BOOL FALSE T=LEV., F=CPR " PGTDYFLG BOOL FALSE T=DISPLAY " PGTSPGFLG BOOL FALS
0x29a764…29a8f8 Dummy {f00=0x010e, f01=0x0190, f02=»AG " r & PGTSUMKEY BOOL FALSE SUM INDIKATOR # " PGTNWFLG BOOL FALSE T= USE .NW # 4 , PGTADMFLG BOOL FALSE T= IN ADM FUNCTIONS # Z * PGTLOKSPG BOOL FALSE T=LOKAL INQUIRIES # 6 PGTSLDFLG BOOL FALSE T=SALDO PRESENT. F=NOT PRESENT # 0 PGTGLSPG BOOL FALSE T=I
0x29a8f8…29aa8c Dummy {f00=0x010e, f01=0x0190, f02=»BCD 4 # PGTCYSUM BCD 14 $ PGTREGNR BCD 3 TRANSTYPE $ $ " PGTDBKRS BCD 2 SIGN FOR AMOUNT $ D , PGTSUMST BCD 6 1. NUMBER FOR SUM FUNCTION $ j , PGTSUMCNT BCD 14 COUNTER FOR SUMFUNCTION $ " PGTL8TXT STRG 8 TEXT FOR LINE 8 $ PSPINPUT STRG 20 $ P
0x29aa8c…29ac20 Dummy {f00=0x010e, f01=0x0190, f02=» , PGTCYWRTF BOOL FALSE T=NO WRITE ON CYSET % , PGTCYTRPF BOOL FALSE T=TRANSPORT IN CYCLE % 4 P* % d P* % n P* % x P* % ( PGTPSELIN BIN '0' LINE NO. WHEN PAUSE % " PGTCYIN BIN NEXT USED, CYCSET % " PGTCYOUT BIN NEXT FREE, CYCSET % PGTRE
0x29ac20…29adb4 (4, 41) Dummy {f00=0x010f, f01=0x0190, f02=»TYPE % z P* & P* & P* & P* & * P* & 4 P EJECT & > PTB2 BLK & L P* & P* & f P* & p P* & z PGTDBKRC STRG 4 DEB/KRE TEXT & PGTTESTMK STRG 1 & $ PTTSUPMRK STRG 1 SUPPLEMENT MARK & PTTSUMMRK STRG 1 SUM MARK & P
0x29adb4…29af48 Dummy {f00=0x010f, f01=0x0190, f02=» KONTOKORT, SALDO & & PTTKTLIN BCD 4 KONTOKORT, LINIE NR ' ( PTTKTCHK BCD 2 KONTOKORT, CHECKCIFFER ' D . PTTDBKRM STRG 1C'K' DEB/KRE MARK ON JOURNAL ' p $ PTT16TXT STRG 3 RENTE/GEBYR/RATE ' PTT07TXT STRG 5 BKO TEXTS ' & PGTDUPF BCDI (26),16X'F' DUP FI
0x29af48…29b0dc Dummy {f00=0x010f, f01=0x0190, f02=»ASK BCDI (12),4D ' & PCBACC BCDI (60,3),14D BEHOLDNINGER ( . PCTR12NR BCDI (60),12D EJ-EDB ACCOUNT NOS. ( B PCRELDAY BCD 4X'FFFF' ( t PCCONFREC BCD 6 ( * PC12ACC BCDI (60,2),14D EJ-EDB COUNTERS ( P* ( P* ( P* ( P EJECT ( PCD4 DBLK
0x29b0dc…29b270 Dummy {f00=0x010f, f01=0x0190, f02=»2 BINI (12,2) FIRST AND SIZE OF TR 12 ( PCFNAME STRGI (8),8 ) . PCVOLNO BCD 6 VOLUME NUMBER ) H PCKMDNR BCD 6D KOMMUNE NR ) j PCMASKDAT BCD 8X'FFFFFFFF' ) PCVOL STRGI (4),6 ) P* ) P EJECT ) PTD2 DBLK ) P* ) P* ) P* )
0x29b270…29b404 Dummy {f00=0x010f, f01=0x0190, f02=» $ PTTSTLBNR BCD 6D FIRST EKSP. LBNR * & PTTSTCASH BCD 14D PRIMO CASH AMOUNT * , " PTTCASHAC BCD 12D CASH ACC. NR * V " PTVERSUR BCD 12D VERSUR ACC NR * | & PTTCASH BCD 14D CURRENT CASH AMOUNT * $ PTTLBNR BCD 6D CURRENT EKSP.LBNR * ( PTTACC BCDI (8,2),16D
0x29b404…29b598 Dummy {f00=0x010f, f01=0x018e, f02=»GO * P ENTRY KBVGO + P ENTRY GTPGO + P ENTRY DC1GO + 2 P* + F P EXT T1GO + P P EXT DCTASK + b P EXT VDUKB + v P EXT PRINT + P EXT SWITCH + " P EXT GETTID GET TASK IDENTITY + ( P ENTRY OFFLNE OFFLINE START ADDRESS + P ENTRY O
0x29b598…29b72c Dummy {f00=0x010f, f01=0x0190, f02=» + P* START OF REGISTRATION , P* , , , P**************************************** , 6 P , f PREGGO , n P B T1GO , | P , P , P EJECT , , P**************************************** , P* , ( P* START ADDRESS FOR KEYBOARD TASK
0x29b72c…29b8c0 Dummy {f00=0x010f, f01=0x018e, f02=»40' , * P* PERF CONF READ & CONVERT CONFIG DATA - P MOVE COPNO,CNFHC(TCT01) - : P CBL COPNO,='1',KB050 - Z P ADD COPNO,=X'4740' - x . P MOVE STRG2,OFF(TCT01) GET OFFLINE TASK ID - " P CBE STRG2,=C' ',KB050 ANY ? - " P PAUSE YES, WAIT FOR RESTAR
0x29b8c0…29ba54 (4, 42) Dummy {f00=0x010f, f01=0x0190, f02=» P EJECT . P . P . 2 P********************************************* . " P* . X . P* START ADDRESS FOR GENERAL PRINTER TASK . b P* . 2 P********************************************* . P . PGTPGO . P ADD NBRGTP,='1' . P CALL
0x29ba54…29bbe8 Dummy {f00=0x010f, f01=0x0190, f02=»CT . P / P / 4 P*********************************************** / P* / R " P* START ADDRESS FOR DC-TASK / P* / & P********************************* / P / PDC1GO / P CALL DCTASK,MF1CU / P* / P / P EJECT / P /
0x29bbe8…29bd7c Dummy {f00=0x010f, f01=0x0190, f02=» / t P 0 POFFLNE PROC 0 2 P MOVE STRG2,OFF(TCT01) GET OFF LINE TASK NAME 0 $ * P CBE STRG2,=C' ',RETOFF ANY OFFLINE ? 0 Z P RSTRT STRG2 YES 0 P PAUSE 0 PRETOFF 0 P RET 0 P PEND 0 P* 0 P EJECT 0 P 0 P 0 P**********
0x29bd7c…29bf10 Dummy {f00=0x010f, f01=0x40e0, f02=» 0 2 P MOVE GSWSTR2,ON(TTASKNR) GET ONLINE TASK NAME 1 , P CBE GSWSTR2,CBLANKS,RETON ANY ON LINE ? 1 > P RSTRT GSWSTR2 YES 1 n P PAUSE 1 PRETON 1 P RET 1 P PEND 1 P* 1 P 1 P END 1 @ 1 EJECT 0 P 0 P 0 P**********
0x29bf10…29c0a4 Dummy {f00=0x010f, f01=0x2008, f02=» 2 WJOURN,FRMT * WJORN ( WJOURN PROC $JFRMT 6 EDWRT KJTAPE,$JFRMT P RET l PEND x END @
0x29c0a4…29c238 Dummy {f00=0x010f, f01=0x0190, f02=» I T M P ` U0 @ , D !##X D ( * ]" 0 X Wf ` U @ H @ X WF [ N 4 5W P 0 @W 1 AW (@_ 1 (@ K / O $P % 4 F I (@ B P 9
0x29c238…29c3cc Dummy {f00=0x010f, f01=0x0190, f02=»H F U G F G IF M & ( F " F +P P* X $ T [~ U W [~ R P> $P8W M X ( X & F X P @^ Q (@ ] + X ^V" P "P8 $P4W X & X bT( ;AR ( M:( I T Y ^ F " F D '?
0x29c3cc…29c560 Dummy {f00=0x010f, f01=0x0190, f02=»? T B &(@( { B B P ! Tn M QV : M A{ A{ " P z "" {x P QV { @z (@ Dz C C C HW C ( M M L " TOP QV A{ L A{ L C z @{ A{ Q< @z P Az @{ QV
0x29c560…29c6f4 (4, 43) Opaque[0x194]
0x29c6f4…29c888 # DirEnt {nam=»LISTE «, typ=»UF«, f00=0x0000, f01=0x0000, f02=0x15d8, f03=0x0000}
0x29c6f4…29c888 IdxSect {
0x29c6f4…29c888 f00 = 0x00ae // 0x29c6f4 @0x0
0x29c6f4…29c888 f01 = 0x0002 // 0x29c6f6 @0x2
0x29c6f4…29c888 gno = [ // 0x29c6f8 @0x4
0x29c6f4…29c888 [0x00]: C0x00ae.0x3.0
0x29c6f4…29c888 ]
0x29c6f4…29c888 }
0x29c888…29ca1c Dummy {f00=0x00ae, f01=0x0190, f02=» PSKF 1 PTRA RGSTRT PTRA DKSUBS $ PTRA KMD08 6 PTRA RGMAIN H PTRA RGMND Z PTRA SCREEN l PTRA KMDIO ~ PTRA RGADM PTRA RGSUB1 PTRA RGSUB2 PTRA RGSUB3 PTRA RGFRMT PTRA SUBAPL PTRA DIVFMT
0x29ca1c…29cbb0 Dummy {f00=0x00ae, f01=0x0034, f02=»6272 PPRT KY6272 PSCR $ASG2 * PTRA KMD08 6 PTRA RGMAIN H PTRA RGMND Z PTRA SCREEN l PTRA KMDIO ~ PTRA RGADM PTRA RGSUB1 PTRA RGSUB2 PTRA RGSUB3 PTRA RGFRMT PTRA SUBAPL PTRA DIVFMT
0x29cbb0…29cd44 Dummy {f00=0x00ae, f01=0x2008, f02=» PPRT KY6272 PSCR $ASG2 * PTRA KMD08 6 PTRA RGMAIN H PTRA RGMND Z PTRA SCREEN l PTRA KMDIO ~ PTRA RGADM PTRA RGSUB1 PTRA RGSUB2 PTRA RGSUB3 PTRA RGFRMT PTRA SUBAPL PTRA DIVFMT
0x29cd44…29ced8 Dummy {f00=0x00ae, f01=0x0190, f02=» 5A v uWL I 4@ H 0 @ @ # ) { 0 0 0 I K 4 I I A A ! W !W @ W 4 4 H* " H* 4 H 0 _ A @! 0 # A)!B( @)aMsaM B hM L B ! hI! , +^ 3 a 3 h $ @!" bM
0x29ced8…29d06c Dummy {f00=0x00ae, f01=0x0190, f02=» 4 @!@ 4 C0 0 E A*@ A 4 @ # Fv# ~ ) A 4 # Fx_ # Fz_ # Fy_ Fw_"4 0 0 I $ " &W ' I 0 0 P A 4 0 4 0 0 0 4 1 4 1 4 I } @ # WW 6 &@ W= W5 W- % W%0 _M A
0x29d06c…29d200 Dummy {f00=0x00ae, f01=0x0190, f02=»4 0 0 4 I 0 T$0 ! ) 8# 4 # : ! ' W10 % W W 0 0 4 _6 4 0 6 W& IW! W qW mW W W 0 : M # 0 ( $b M W ( ( b M W " L xa @ % % 0 W #
0x29d200…29d394 (4, 44) Opaque[0x194]
0x29d394…29d528 # DirEnt {nam=»M:PROC«, typ=»UF«, f00=0x0000, f01=0x0000, f02=0x09e0, f03=0x0000}
0x29d394…29d528 IdxSect {
0x29d394…29d528 f00 = 0x004f // 0x29d394 @0x0
0x29d394…29d528 f01 = 0x0004 // 0x29d396 @0x2
0x29d394…29d528 gno = [ // 0x29d398 @0x4
0x29d394…29d528 [0x00]: C0x004f.0x0.0
0x29d394…29d528 [0x01]: C0x009e.0x0.0
0x29d394…29d528 ]
0x29d394…29d528 }
0x29d528…29d6bc Dummy {f00=0x004f, f01=0x0190, f02=» P$KMDALL PSKF 1 @ P$KMDGEN KMD=080,VER=@VER=02$$,REL=@REL=01$$,MOD=0801$$ @080= " B P$KMDGEN KMD=0801,VER=@VER=02$$,REL=@REL=01$$,MOD=0802$$ @0801= f B P$KMDGEN KMD=0802,VER=@VER=02$$,REL=@REL=01$$,MOD=0802$$ @0802= B P$KMDGEN KMD=0803,VER=@
0x29d6bc…29d850 Dummy {f00=0x004f, f01=0x018e, f02=»ER=@VER=02$$,REL=@REL=01$$,MOD=0802$$ @0805= ~ B P$KMDGEN KMD=0806,VER=@VER=02$$,REL=@REL=01$$,MOD=0802$$ @0806= 4 B P$KMDGEN KMD=0807,VER=@VER=02$$,REL=@REL=01$$,MOD=0802$$ @0807= z B P$KMDGEN KMD=0808,VER=@VER=02$$,REL=@REL=01$$,MOD=0802$$ @0808= B P$K
0x29d850…29d9e4 Dummy {f00=0x004f, f01=0x018e, f02=» PPRT HELP PEND P$LEDLS PLED LEDLS,/A . PKPF /A,LEDFIL B PASG /E0,DK,LEDFIL X PEND r P$KMDGEN ~ PLED KM@KMD=,/A,/EE P!!CH $$%VER$$@VER=02$$ P!!CH $$%REL$$@REL=01$$ P!!CH $$%MOD$$@MOD=9751$$ P!!EN
0x29d9e4…29db78 Dummy {f00=0x004f, f01=0x0190, f02=» PINC T:EDFL,INT:PROD PINC T:DYKI,INT:PROD PINC T:UPDF,INT:PROD < PINC T:DUPL,INT:PROD X PINC T:GETC,INT:PROD t PINC T:GETA,INT:PROD PINC T:TSTC,INT:PROD PINC T:TFWD,INT:PROD PINC T:DISP,INT:PROD PINC T:GE
0x29db78…29dd0c Dummy {f00=0x004f, f01=0x018e, f02=»T:ENIN,INT:PROD PINC T:SETC,INT:PROD PINC T:CLMI,INT:PROD 4 PINC T:ATTF,INT:PROD P PINC T:LSEG,INT:PROD l PINC T:TEI0,INT:PROD PINC T:GTI0,INT:PROD PINC T:DC,INT:PROD PINC T:ASSI,INT:PROD PINC T:DMR,INT:PROD
0x29dd0c…29dea0 Dummy {f00=0x004f, f01=0x0190, f02=» z PINC T:IO,INT:PROD PINC I:NTP,INT:PROD " PINC I:EVA,INT:PROD < PINC I:ADS,INT:PROD V PINC I:CMP,INT:PROD p PINC I:CPA,INT:PROD PINC I:MOV,INT:PROD PINC I:MUL,INT:PROD PINC I:DIV,INT:PROD PINC I:NTF,INT:PROD
0x29dea0…29e034 (4, 45) Dummy {f00=0x009e, f01=0x0190, f02=»INC T:USE,INT:PROD PINC I:EPIC,INT:PROD PEND 6 P$REL B PMES @NAM N PLED @NAM,/S,/EE,## ^ P##DL 0 x P IDENT @NAM 02.01.XXX.1 P##EN PKPF /S,@NAM PEND P$RDA PASG /E1,@DEV=CR0D PRDA /A P
0x29e034…29e1c8 Dummy {f00=0x009e, f01=0x0190, f02=»D @NAM=,@FC=/S,@CC PKPF @FC=/S,@NAM= PEND 2 P$MOVE > PMOV @NAM=,@FC=/S,@ID=KMDPRO8 L PKPF @FC=/S,@NAM p PEND P$COMPEV > PMES PARAMETERS NAME=@NAM=/S, LISTING=@NL, DEBUG=@BUG=YES, : PMES MONITOR=@M=M:KONV,
0x29e1c8…29e35c Dummy {f00=0x009e, f01=0x0190, f02=»G /7D,DK PASG /02,NO @TLK= PTLK M,X ( PASG /02,TY10 @TLK= 8 PSCR /7D R PBEA DUMMY,NL @BUG= b PASG /02,NO @LKE= | PLKE M PASG /02,TY10 @LKE= PKPF /L,@A=AAAA , P$PCAS M=@M=M:KONV,A=@A=AAAA,C=@C=KONFIG PEND
0x29e35c…29e4f0 Dummy {f00=0x009e, f01=0x0190, f02=»=,@L= PKPF /O PEND P$TRA1 ( PTRA @N= 6 PKPF /O F PEND T P$LINK ` PASG /02,NO n PTRA KONVER,NL PASG /7D,DK PASG /02,TY10 P$TLK2 N=@NAM,L=@LS,B=@BG= P$TLK N=@NAM=,L=@LS= P$TLK1 N=@NAM=
0x29e4f0…29e684 Dummy {f00=0x009e, f01=0x018e, f02=»NV,A=@N=,C=KONFIG z PEND P$TLK1 & PTLK 4 PSCR /7D @ PBEA DUMMY,NL P PLKE d PKPF /L,@N= p , P$PCAS M=M:KONV,MU=M:KONV,A=@N=,C=KONFIG PEND P$TLK2 PTLK U,M PSCR /7D PLKE M PKPF /L,@N=
0x29e684…29e818 Dummy {f00=0x009e, f01=0x005a, f02=» PASG /E0,TY10 PEND P$TLK3 $ PTLK U,X 2 PSCR /7D B PEND RNL P PLKE d PKPF /L,@N= p , P$PCAS M=M:KONV,MU=M:KONV,A=@N=,C=KONFIG PEND P$TLK2 PTLK U,M PSCR /7D PLKE M PKPF /L,@N=
0x29e818…29e9ac Dummy {f00=0x009e, f01=0x2008, f02=» /E0,TY10 PEND P$TLK3 $ PTLK U,X 2 PSCR /7D B PEND RNL P PLKE d PKPF /L,@N= p , P$PCAS M=M:KONV,MU=M:KONV,A=@N=,C=KONFIG PEND P$TLK2 PTLK U,M PSCR /7D PLKE M PKPF /L,@N=
0x29e9ac…29eb40 Dummy {f00=0x009e, f01=0x0190, f02=»
0x29eb40…29ecd4 (4, 46) Opaque[0x194]
0x29ecd4…29ee68 # DirEnt {nam=»EQUATE«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x1130, f03=0x0000}
0x29ecd4…29ee68 IdxSect {
0x29ecd4…29ee68 f00 = 0x0089 // 0x29ecd4 @0x0
0x29ecd4…29ee68 f01 = 0x0004 // 0x29ecd6 @0x2
0x29ecd4…29ee68 gno = [ // 0x29ecd8 @0x4
0x29ecd4…29ee68 [0x00]: C0x0089.0x2.0
0x29ecd4…29ee68 [0x01]: C0x0089.0x3.0
0x29ecd4…29ee68 ]
0x29ecd4…29ee68 }
0x29ee68…29effc Dummy {f00=0x0089, f01=0x0190, f02=» P* 6 P************************************************** P* H P* EQUATES R P* p 6 P************************************************** z P* P* LITERAL EQUATES P* * P* BINARY EQUATES=====
0x29effc…29f190 Dummy {f00=0x0089, f01=0x0190, f02=»U 5 PBLIT6 EQU 6 PBLIT7 EQU 7 PBLIT8 EQU 8 4 PBLIT9 EQU 9 H PBLIT10 EQU 10 P* r P* | P* DECIMAL LITERALS P* P* PDLIT0 EQU 0 PDLIT1 EQU 1 PDLIT2 EQU 2 PDLIT3 EQU 3
0x29f190…29f324 Dummy {f00=0x0089, f01=0x018e, f02=»0 P* 2 P********************************************* P* J " P* EQUATES FOR SOPLAMPS T P* z 2 P********************************************** P* P* $ P* EQUATES FOR DATASET CONTROL P* P*
0x29f324…29f4b8 Dummy {f00=0x0089, f01=0x0190, f02=» PSKIB EQU 2 SKIP BUFFER PWTM EQU 3 WRITE TAPE MARK " PCLOSE EQU 3 CLOSE FILE D PLOCK EQU 4 LOCK CASSETTE b PTSTAT EQU 7 TEST STATUS ( PRACCS EQU 9 RELEASE EXCLUSIVE ACCESS $ PBSP EQU 10 B10CKSP10CE ONE BLOCK P* P*
0x29f4b8…29f64c Dummy {f00=0x0089, f01=0x0190, f02=»OFF EQU 1 TURN OFF INDICATOR & PPOS EQU 6 POSITION VOUCHER/CURSOR $ PDEL EQU 8 RANDOM DELETE N P* n P* x " P* EQUATES FOR KEYTABLAS P* P* P* SKOVBO KEYS P* PREGKY1 EQU X'A1' PREGKY2 EQU X
0x29f64c…29f7e0 Dummy {f00=0x0089, f01=0x0190, f02=»Y2 EQU X'D0' PSLUTKY1 EQU X'91' PSLUTKY2 EQU X'D1' . PKREKY1 EQU X'92' H PKREKY2 EQU X'D2' ` PSBTKY1 EQU X'93' x PSBTKY2 EQU X'D3' PNOTUSE1 EQU X'94' PNOTUSE2 EQU X'D4' PBSPKY1 EQU X'95' PBSPKY2 EQU X'D5'
0x29f7e0…29f974 (4, 47) Dummy {f00=0x0089, f01=0x4060, f02=»QU X'E3' P P* P* " P* VIBORG KEYS , P* H P* R@
0x29f974…29fb08 Dummy {f00=0x0089, f01=0x2008, f02=»
0x29fb08…29fc9c Dummy {f00=0x0089, f01=0x0190, f02=» P B T1005 PT1005A P USE TB2,TTASKNR " P CBE TTASKNR,CBIN1,T1010 : " P MOVE SPBINW4,CBIN9 'OPSTART' Z P MOVE SPBINW3,=W'-1' P PERF SPLIN8 P PAUSE & P B T1400 BRANCH TO NON-MASTER CODE PT1010 P PERF CLOSE1
0x29fc9c…29fe30 Dummy {f00=0x0089, f01=0x0190, f02=»ERF SPCLRA P MOVE GSWBIN2,SPBINW2 2 P IB SPBINW2,T1011,T1011,T1012,T1012,T1011, C 0 P T1011,T1011,T1011,T1012 f PT1011 P B T1010 PT1012 0 P MOVE GTTEXT,=C'FD' INSERT PREFIX IN DSNAME P MOVE GSWBIN1,CBIN1 4 P INS
0x29fe30…29ffc4 Dummy {f00=0x0089, f01=0x0190, f02=»T1013,T1015,T1014,T1013, C ~ P T1013,T1013,T1013,T1018 $ PT1013 F P B T1010 T PT1014 KRE KEY d P MOVE CCONBUF0,=X'00' | P MOVE GSWBIN2,CBIN0 PT10140 P ADD GSWBIN2,CBIN1 $ P IF FINISH: TO VERY COLD START P C
0x29ffc4…2a0158 Dummy {f00=0x0089, f01=0x018e, f02=»SLUT KEY P CLEAR CSWFLAG P B T1020 & P* 6 PT1018 KVIT KEY @ P SET CSWFLAG X PT1020 l P TBF CSWFLAG,T1025 z P CLEAR CSWFLAG P PERF CONFRS P BNOK T1010 PT1025 P PERF CONFRD READ CONFDATA P BNOK
0x2a0158…2a02ec Dummy {f00=0x0089, f01=0x0190, f02=» P* P* P* PT1030 " P SET CCOLDFLG 0 P SET SPPROMPT F P ATTFMT CSFRM02 YES P PERF SPCLRA x " P IB SPBINW2,T1030,T1030,T1032 P B T1030 PT1032 0 P MOVE GTTEXT,=C'FD' INSERT PREFIX IN DSNAME P MOV
0x2a02ec…2a0480 Dummy {f00=0x0089, f01=0x018e, f02=»N9,T1035 PT1037 " P MOVE CBEH(CBIN1,CBIN1),CBIN0 " P MOVE CTR12(CBIN1,CBIN1),CBIN0 D P MOVE GSWBIN1,CBIN0 j PT1040 P ADD GSWBIN1,CBIN1 P CBG GSWBIN1,CMAXTASK,T1045 P MOVE GSWBCD5,GSWBIN1 P SET SPPROMPT P A
0x2a0480…2a0614 (4, 48) Opaque[0x194]
0x2a0614…2a07a8 # DirEnt {nam=»DKSUBS«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x1140, f03=0x0000}
0x2a0614…2a07a8 IdxSect {
0x2a0614…2a07a8 f00 = 0x008a // 0x2a0614 @0x0
0x2a0614…2a07a8 f01 = 0x0010 // 0x2a0616 @0x2
0x2a0614…2a07a8 gno = [ // 0x2a0618 @0x4
0x2a0614…2a07a8 [0x00]: C0x008a.0x0.0
0x2a0614…2a07a8 [0x01]: C0x008a.0x1.0
0x2a0614…2a07a8 [0x02]: C0x008a.0x2.0
0x2a0614…2a07a8 [0x03]: C0x008a.0x3.0
0x2a0614…2a07a8 [0x04]: C0x008b.0x0.0
0x2a0614…2a07a8 [0x05]: C0x008b.0x1.0
0x2a0614…2a07a8 [0x06]: C0x008b.0x2.0
0x2a0614…2a07a8 [0x07]: C0x008b.0x3.0
0x2a0614…2a07a8 ]
0x2a0614…2a07a8 }
0x2a07a8…2a093c Dummy {f00=0x008a, f01=0x0190, f02=» P IDENT DKSUBS 02.01.XXX.1 P DDUM KMD08 & P PDIV D P ENTRY RAREAD Z P ENTRY RAWRIT p P ENTRY SQREAD P ENTRY SQWRIT P ENTRY ASSG P ENTRY RGREAD P ENTRY RADEL P ENTRY GETBIT P E
0x2a093c…2a0ad0 Dummy {f00=0x008a, f01=0x0190, f02=» P EXT SETDEB P EXT SPERR P EXT WRITJT * P EXT LAMPON > P INCLUDE EQUATE R 6 P************************************************** r P* 4 P* THIS MODULE CONTAINS ALL DISC HANDLING * P* ROUTINES: RANDOM
0x2a0ad0…2a0c64 Dummy {f00=0x008a, f01=0x0190, f02=»OUTINE t * P* DISK ERROR ROUTINE < P* GET STATUS FROM EXTENDED STATUSWORD < 0 P* READ RECORD FROM REGSET | 6 P************************************************** P EJECT P*
0x2a0c64…2a0df8 Dummy {f00=0x008a, f01=0x0190, f02=»A VOLUMENAME. x 2 P*-* IT TRIES ON ALL VOLUMES CONNECTED. " P* ON SPECIFIED VOLUME L P* r & P* ALTERED PARAMETERS: NONE | P* B P* ALTERED FIELDS: SPBINW4 - OK - DATASETNR NOK - 21 @ P*
0x2a0df8…2a0f8c Dummy {f00=0x008a, f01=0x0190, f02=» - OK - VOLUMENAME NOK - X'00' p H P* GTWBCD1 - OK - N/A NOK - ATTEMPT+1 ( H P* GTWBCD2 - OK - N/A NOK - DATASETNR t P* P* C/R: OK - 0, NOK - 4 P* < P*-* CALL :
0x2a0f8c…2a1120 Dummy {f00=0x008a, f01=0x0190, f02=»************************************************* P* : P*-*ASSG PROC DK,DNR D $ P*-* MOVE SPBINW4,CBIN0 INITIATE ` P*-* MOVE GSWBIN1,CBIN1 " P*-* DSC0 DK,CLOSE CLOSE FIRST P* PASSG PROC VOL,DK,DNR P MOVE SPBINW4,CBIN0 IN
0x2a1120…2a12b4 (4, 49) Dummy {f00=0x008a, f01=0x0190, f02=»N1) MOVE VOLUMENAME z P* P MOVE GSWBCD3,ASFNAME & P CBE GSWBCD3,=D'0',ASSGRET D P MOVE GSWBCD3,ASVOL f P CBE GSWBCD3,=D'0',ASSGRET P DSC0 DK,CLOSE CLOSE FIRST P* & P ASSIGN DK,0,SPBINW4,ASFNAME,ASVOL P BOK ASSGRET
0x2a12b4…2a1448 Dummy {f00=0x008a, f01=0x018e, f02=»WBIN1),ASVOL,ASSG10 TRY ON NEW VOLUME PASSGERR . > P* ASSIGNMENT IMPOSSIBLE > 0 P MOVE GTWBCD1,SPBINW4 (MORE THEN 3 RETRIES) P MOVE SPBINW4,CBIN21 P MOVE GTWBCD2,DNR P MOVE GSWSTR9,=C'ASSIGN '
0x2a1448…2a15dc Dummy {f00=0x008a, f01=0x0190, f02=» P EJECT 6 P************************************************** P* P * P* RAREAD - RANDOM READ ROUTINE Z J P* CALL: PERF RAREAD,<DATASET>,<SETNR>,<BUFFER>,<LENGTH>,<RECNR> P* RETURN: 0 P* CR=0 > OK CR
0x2a15dc…2a1770 Dummy {f00=0x008a, f01=0x0190, f02=» P* H P* ALTERED PARAMETERS: BUF OK- WANTED RECORD, NOK- UNKNOWN P* Z > P* ALTERED FIELDS: GSWBIN1 - NBR. OF CHAR. TRANSFERRED d T P* SPBINW4 - OK - 0 NOK - ALTERED BY DISERRORROUTINE & P*
0x2a1770…2a1904 Dummy {f00=0x008a, f01=0x0190, f02=»ENG,RECNR n P PLIT $NR : P MOVE GSWBIN1,LENG GET LENGTH $ 8 P MOVE SPBINW4,CBIN0 ZEROISE b P MOVE GTWBCD1,=D'0' < P RREAD DSET,BUF,GSWBIN1,RECNR READ RECORD 4 P BEOF
0x2a1904…2a1a98 Dummy {f00=0x008a, f01=0x0190, f02=» & P TBT GTEXFLAG,RAR20 D P DSC0 DSET,RACCS RELEASE EXCL. ACCES 2 PRAR20 CLEAR GTEXFLAG z 8 P CMP CBIN0,SPBINW4 SET CR P RET P PEND P
0x2a1a98…2a1c2c Dummy {f00=0x008a, f01=0x0190, f02=» j P* CALL: * P* PERF ERDK,<DATASET>,<SETNR> P* H 4 P* THIS ROUTINE BUILDS THE ERRORCODE IN R $ P* CASE OF ERROR ON DISC 8 P* THE ERRORCODE IS FOUND WITH ROUTINE GETBIT : P* AND THE TEXT IS
0x2a1c2c…2a1dc0 Dummy {f00=0x008a, f01=0x018e, f02=»: SPBINW4 - NO-DATA/NEW-VOL: 0, ELSE 2 * P* GTWBCD2 - ERRORCODE . & P* GTNWFLG - FALSE & P* SPKEYFLG - TRUE P* P* B P*************************************************************
0x2a1dc0…2a1f54 (4, 50) Dummy {f00=0x008a, f01=0x0190, f02=» & P CBE GTWBCD1,=D'8',ERDKRET NEW VOL D P MOVE SPBINW4,CBIN21 PREPARE TEXT (BIT NR) . : P MOVE GTWBCD2,$NR DATASET NR v 4 P MOVE GSWSTR9,=C'DISCFEJL ' TEXT P TBF CPFLG,ERDK10 . P C
0x2a1f54…2a20e8 Dummy {f00=0x008a, f01=0x0190, f02=»FLG P SET GTNWFLG P PERF WRITJT,=W'14' P CLEAR GTNWFLG < P MOVE SPBINW4,CBIN21 R P B ERDKEND n PERDKRET ( P MOVE SPBINW4,CBIN0 PREPARE FOR OK PERDKEND P CMP SPBINW4,CBIN0 SET CR P RET P
0x2a20e8…2a227c Dummy {f00=0x008a, f01=0x0190, f02=» P* CALL: $ P* PERF GETBIT,<DATASET> 8 P* THIS ROUTINE FINDS THE BIT IN THE EXTENDED B P* STATUSWORD ~ P* RETURN: < P* THE BITNR IN GTWBCD1 UNDEFINED GTWBCD1=1 P* P* ALTERED FIELDS:
0x2a227c…2a2410 Dummy {f00=0x008a, f01=0x0190, f02=» GSWBCD2 P* 0 P* CR: STATUS-FOUND - BNG, NO-BIT-FOUND: BNG " P* V > P********************************************************** ` PGETBIT PROC DSET 6 P XSTAT DSET,GSWBIN1 GET STATUS : P MOVE
0x2a2410…2a25a4 Dummy {f00=0x008a, f01=0x0190, f02=»BIN1,GSWBIN2 AND WITH STATUS t 4 P BNZ GETRET FOUND & ( P MOVE GSWBCD2,GSWBIN2 ^ 6 P MUL GSWBCD2,=D'2' NEXT BIT 6 P MOVE GSWBIN2,GSWBCD2 CONVERT > P
0x2a25a4…2a2738 Dummy {f00=0x008a, f01=0x0190, f02=» RET P PEND P EJECT ( > P********************************************************** 6 P* x P* RANDOM WRITE P* CALL: > P* PERF RAWRIT,<DATASET>,<SETNR>,<BUFFER>,<RECNR> P* > P*
0x2a2738…2a28cc Dummy {f00=0x008a, f01=0x0190, f02=»4 NOT OK v P* ALTERED FIELDS: P* SPBINW4 - 0 , 8 P* GSWBIN1 - NBR. OF CHARS TRANSFERRED P > P********************************************************** & PRAWRIT PROC DSET,$NR,BUF,RECNR P PLIT $NR "
0x2a28cc…2a2a60 Dummy {f00=0x008a, f01=0x0190, f02=» P MOVE GSWBIN1,CBIN6 > P RREAD DSET,GSWSTR9,GSWBIN1,RECNR DUMMY READ < P RWRITE DSET,BUF,RECNR WRITE RECORD b 4 P BEOF RAWRET OK? P BOK RAWRET " P PERF
0x2a2a60…2a2bf4 (4, 51) Dummy {f00=0x008a, f01=0x018e, f02=» P RET P PEND P EJECT 4 @ P*********************************************************** B P* $ P* RADEL - RANDOM DELETE ROUTINE P* * P* CALL: PERF RADEL,<DATASET>,<RECNR> P* 4 P* THE ROUTINE
0x2a2bf4…2a2d88 Dummy {f00=0x008a, f01=0x0190, f02=» P* CR: OK - 0, NOK - 4 P* $ @ P*********************************************************** . PRADEL PROC DSET,RECNR r P MOVE SPBINW4,CBIN0 P MOVE GSWBIN1,CBIN6 P TBT GTTESTFL,RADELRET 0 P RREAD DSET,GSWSTR9,GSWBIN1,RECNR
0x2a2d88…2a2f1c Dummy {f00=0x008a, f01=0x0190, f02=» PERF ERDK,DSET,=D'2' CALL ERROR-ROUTINE P CMP CBIN1,CBIN0 CR := NOK 2 P RET V PRADELRET b P CMP CBIN0,CBIN0 CR := OK r P RET P PEND P EJECT @ P***********************************************************
0x2a2f1c…2a30b0 Dummy {f00=0x008a, f01=0x0190, f02=» GTEXFLAG=FALSE EXCLUSIVE ACCES WILL BE RELASED " P* ALTERED FIELDS: SPBINW4 - 0 8 : P* GSWBIN1 - NUMBER OF CHAR TRANSFERRED ^ 0 P* GSWBIN4 - LENGTH FROM CALL P* P**** RETURN: 6 P* CR=0 OK CR
0x2a30b0…2a3244 Dummy {f00=0x008a, f01=0x0190, f02=»NR,BUF,LENG v P PLIT $NR & P MOVE SPBINW4,CBIN0 & $ P MOVE GSWBIN4,LENG P B P READ DSET,BUF,GSWBIN1 READ RECORD x 8 P BOK SQRRET OK P BEOF
0x2a3244…2a33d8 Dummy {f00=0x008a, f01=0x0190, f02=» RELEASE EXCLUSIVE f : P DSC0 DSET,RACCS YES $ PSQR05 b > P CMP SPBINW4,CBIN0 SET CR p PSQR10 P RET P PEND P EJECT @ P****
0x2a33d8…2a356c Dummy {f00=0x008a, f01=0x0190, f02=»F SQWRIT,<DSET>,<SETNR>,<BUFF> P* RETURN & 4 P* CR=0 OK CR=1 EOF CR=4 NOT OK : P* r " P* ALTERED FIELDS: SPBINW4 - 0 | P* @ P*********************************************************** $ PSQWRIT PROC DSET
0x2a356c…2a3700 Dummy {f00=0x008a, f01=0x0190, f02=»RITE RECORD b 4 P BEOF SQW10 EOF 4 P BOK SQWRET OK L 4 P PERF ERDK,DSET,$NR NO PSQWRET 8 P CMP SPBINW4,CBIN0 SET CR PSQ
0x2a3700…2a3894 (4, 52) Dummy {f00=0x008b, f01=0x0190, f02=»E,BUF,$LENG t P PLIT $DNR P PLIT $FDSIZE & P PLIT $LENG < P******************** P P* l 4 P* BACKUP OF ONE DATASET TO BACKUP FILE v P* P* CALL: P* > P* PERF BACKUP,<DSET>,<$DSET-NR>,<$NO-
0x2a3894…2a3a28 Dummy {f00=0x008b, f01=0x0190, f02=» SET CPFLG RESERVE DISK * P MOVE GSWBIN3,$DNR ASSIGN SYSTEM FILE " P PERF ASSG,CBIN1,DSET,GSWBIN3 N P BNOK BKUPNOK t P* P TBT CKASFLG,BKUP50 * P MOVE GSWBIN3,$DNR ASSIGN BACKUP FILE " P PERF ASSG,CBIN3,DK02,GSWBIN3 P BNO
0x2a3a28…2a3bbc Dummy {f00=0x008b, f01=0x0190, f02=» x P WRITE TAPE MARK P DSC0 KCASS,WTM " P* : PBKUP60 D P WRITE FILE R P MOVE GSWBIN3,CBIN0 h PBKUP100 P ADD GSWBIN3,CBIN1 ( P CBG GSWBIN3,$FDSIZE,BKUPOK FINISH? P MOVE GSWBIN1,$LENG . P PERF RAREAD,DSET,
0x2a3bbc…2a3d50 Dummy {f00=0x008b, f01=0x0190, f02=» . P PERF RAWRIT,DK02,$DNR,BUF,GSWBIN3 ON DISK ! P BNOK BKUP200 ! 6 P B BKUP100 OK, CONTINUE ! L P* ! l PBKUP150 ON CASSETTE ! v " P PERF SQWRIT,KCASS,=D'12',BUF ! P BOK BKUP100 ! P B BKUPNOK ! P* ! PBKUP200 ERROR ! P PERF
0x2a3d50…2a3ee4 Dummy {f00=0x008b, f01=0x0190, f02=»ETE RECORD ! t P B BKUP100 " PBKUP220 " $ P MOVE BUF,CBLANKS " 4 P B BKUP150 " N P* " ` PBKUPOK " j P TBT CERRORFL,BKUPNOK " x P TBT CKASFLG,BKUP300 " P DSC0 DK02,CLOSE " P B BKUP310 " PBKUP300 " P DSC0 KCASS,UNLOD " PBK
0x2a3ee4…2a4078 Dummy {f00=0x008b, f01=0x0190, f02=»BT CKASFLG,BKUP350 " P DSC0 DK02,CLOSE # P B BKUP360 # 2 PBKUP350 # D P DSC0 KCASS,UNLOD # T PBKUP360 # n P CLEAR CERRORFL # ~ P CLEAR CPFLG # P CMP CBIN1,CBIN0 # P RET # P PEND # P EJECT # , PRSTORE PROC DSET,$DNR,$FDSIZE,
0x2a4078…2a420c Dummy {f00=0x008b, f01=0x018e, f02=»F ONE DATASET FROM BACKUP FILE # | P* $ & P* CALL: $ 0 P* $ H > P* PERF RSTORE,<DSET>,<$DSET-NO>,<$NO-OF-RECORDS>, $ R 2 P* <BUFFER>,<$RECORD-SIZE> $ P* $ P******************** $ P SET CPFLG RESERVE DISK
0x2a420c…2a43a0 Dummy {f00=0x008b, f01=0x0190, f02=» $ z 0 P MOVE GSWBIN3,$DNR ASSIGN BACKUP FILE, DISK % " P PERF ASSG,CBIN3,DK02,GSWBIN3 % < P BNOK RSTRNOK % b P B RSTR60 % x PRSTR50 % P BACKUP FILE, CASSETTE % P LOAD CASSETTE % P MOVE GSWBIN1,CBIN1 % P DSC1 KCASS,LOAD,GSWBIN1 %
0x2a43a0…2a4534 (4, 53) Dummy {f00=0x008b, f01=0x018e, f02=»UGH FILE % P MOVE GSWBIN3,CBIN0 & PRSTR100 & , P ADD GSWBIN3,CBIN1 & < ( P CBG GSWBIN3,$FDSIZE,RSTROK FINISH? & V P MOVE GSWBIN1,$LENG & P TBT CKASFLG,RSTR150 & . P PERF RAREAD,DK02,$DNR,BUF,GSWBIN1,GSWBIN3 & P BNOK RSTR200 & & P CBE G
0x2a4534…2a46c8 Dummy {f00=0x008b, f01=0x0190, f02=» P* ' PRSTR160 ' & P PERF RAWRIT,DSET,$DNR,BUF,GSWBIN3 ' P BOK RSTR100 ' H P* ' PRSTR200 ' f P PERF LAMPON,=W'2' LAMP 10 ' v PRSTR210 ' * P PERF RADEL,DSET,GSWBIN3 DELETE RECORD ' P B RSTR100 ' P* ' PRSTROK ' P TBT CKA
0x2a46c8…2a485c Dummy {f00=0x008b, f01=0x018e, f02=»E, CASSETTE ' n PRSTR310 ( P CLEAR CPFLG ( $ P CMP CBIN0,CBIN0 OK ( 8 P RET ( T P* ( ` PRSTRNOK ( j P PERF LAMPON,=W'2' LAMP 10 ( z P TBT CKASFLG,RSTR350 ( , P DSC0 DK02,CLOSE CLOSE BACKUP FILE, DISK ( P B RSTR360 ( PRSTR350 ( "
0x2a485c…2a49f0 Dummy {f00=0x008b, f01=0x0190, f02=» P PEND ) P EJECT ) PRGREAD PROC DSET,$DNR ) P PLIT $DNR ) > P******************** ) P P* ) l 0 P* RGREAD - READ RECORD FROM REGSET ) v 8 P* AND PUT THE FIELDS IN GTREGF AND GTDUPF. ) @ P* THE EFFECT IS SIMULATIO
0x2a49f0…2a4b84 Dummy {f00=0x008b, f01=0x0190, f02=»TTDBKRM, ) P* GTREGDEX * , P* GSWBCD3 = LOG. RECORD NR * 0 P* * ` 2 P* CR=0 CORRECT TRANS, INCL TR 12 * j 6 P* CR=1 TR=11 AND SETS FLAG GTSWFLAG * 8 P* CR=2 NOT SAME MACHINE, OR OTHER
0x2a4b84…2a4d18 Dummy {f00=0x008b, f01=0x0190, f02=» * t P B RGR000 TRY ONCE MORE + PRGR001 + ( P SET CPFLG RESERVE DISK + 6 P TBT CWFLAG,RGR005 + V & P MOVE GTRECNR,CRECNR IN KOLDSTART + p PRGR005 + P CLEAR CEORFLG + P MOVE GSWBCD3,=D'0' + P PERF PACKCL + " P PERF PACKST CLEAR ALL ENT
0x2a4d18…2a4eac Dummy {f00=0x008b, f01=0x0190, f02=»ET2 + P CMP GTWBCD1,=D'4' , P BE RGRRET2 , & P MOVE GSWSTR20,CBLANKS , : . P COPY GSWSTR20,CBIN0,CBIN3,CPCKBUF,CBIN13 , X 0 P CBE GSWSTR20,=C'&01',RGR008 ADJUST TO FIRST , P SUB GTRECNR,CBIN1 , P B RGR005 , PRGR008 , 2 P MOVE GSWSTR20,=
0x2a4eac…2a5040 Dummy {f00=0x008b, f01=0x018e, f02=»SWBCD5 , P BNE RGRRET2 - P* - " * P MOVE GSWSTR20,=X'00' CHECK TRANSTYPE - , . P COPY GSWSTR20,CBIN0,CBIN2,CPCKBUF,CBIN11 - Z P MOVE GSWBCD5,GSWSTR20 - P MOVE GSWSTR20,=X'00' - , P COPY GSWSTR20,CBIN0,CBIN5,CPCKBUF,CBIN6 - ( P MOVE GSWBCD3,GS
0x2a5040…2a51d4 (4, 54) Dummy {f00=0x008b, f01=0x0190, f02=» P CMP GTREGNR,=D'12' . P BNL RGRRET . , P MOVE GTREGDEX,CBIN0 GET TRANSTYPE INDEX . 4 PRGR010 . d P ADD GTREGDEX,CBIN1 . r 2 P CBE GTREGNR,CREGTAB(GTREGDEX,GTCLASS),RGR020 . * P CMP CREGTAB(GTREGDEX,GTCLASS),=D'-1' . P BE RGRRET2 . P B
0x2a51d4…2a5368 Dummy {f00=0x008b, f01=0x0190, f02=» P BNE RGRRET BRANCH IF TRUE / P MOVE GSWSTR1,=C'&' / & P SUB GSWBIN6,CBIN2 / B 6 P MATCH CPCKBUF,GSWBIN6,GSWBIN5,GSWSTR1,CBIN0,CBIN1 / P ADD GSWBIN6,CBIN1 / PRGR032 / * P MOVE GSWBIN4,GSWBIN6 POINTER FIELD NR / P MOVE GSWBIN5,CRECLGD /
0x2a5368…2a54fc Dummy {f00=0x008b, f01=0x0190, f02=»LD / | PRGR035 0 P MOVE GSWBIN3,GSWBIN6 0 * P SUB GSWBIN3,GSWBIN4 LENGTH IN GSWBIN3 0 6 6 P COPY GSWSTR2,CBIN0,CBIN2,CPCKBUF,GSWBIN4 FIELDNR 0 d P ADD GSWBIN4,CBIN2 0 P SUB GSWBIN3,CBIN2 0 P MOVE GSWSTR20,=X'00' 0 0 P COPY GSWSTR20,CBIN0,GSW
0x2a54fc…2a5690 Dummy {f00=0x008b, f01=0x0190, f02=»DD GSWBIN6,CBIN1 0 P SUB GSWBIN5,GSWBIN3 1 P SUB GSWBIN5,CBIN3 1 4 " P MOVE GSWBCD5,GSWSTR2 FIELDNR 1 N " P MOVE GSWBIN3,GSWBCD5 CONVERT 1 t P CMP GSWBIN3,CBIN2 1 P BE RGR210 DATE 1 P CBL GSWBIN3,CBIN4,RGR030 1 P CMP GSWBIN3,CBIN4 1 P
0x2a5690…2a5824 Dummy {f00=0x008b, f01=0x0190, f02=»PF,GTREGF,GTUSED 1 2 P MOVE GSWBIN4,CFLTDEX(GSWBIN3) GSWBIN3=FIELDNR 2 " P MOVE GTUSED(GSWBIN4),GSWBIN3 2 N " P MOVE GTDUPF(GSWBIN4),GSWSTR20 2 t " P MOVE GTREGF(GSWBIN4),GSWSTR20 2 ( P CBE GSWBIN3,CBIN9,RGR060 D/K MARK? 2 P CHECK IF WITH SIGN 2
0x2a5824…2a59b8 Dummy {f00=0x008b, f01=0x0190, f02=» MUL GTUSED(GSWBIN4),=W'-1' 2 P MUL GTDUPF(GSWBIN4),=D'-1' 3 $ P MUL GTREGF(GSWBIN4),=D'-1' 3 H P B RGR030 3 l PRGR040 3 ~ P MOVE GSWBIN3,CBIN0 3 6 P MATCH GSWSTR20,GSWBIN3,CBIN20,CBLANKS,CBIN0,CBIN1 3 P BNE RGR030 3 P MUL GTUSED(GSWBIN
0x2a59b8…2a5b4c Dummy {f00=0x008b, f01=0x018e, f02=» P B RGR030 4 PRGR100 4 P END OF RECORD 4 $ P MOVE GSWSTR2,=X'7F' 4 < " P MOVE GSWBIN6,GSWBIN4 RESTORE 4 X 6 P MATCH CPCKBUF,GSWBIN6,GSWBIN5,GSWSTR2,CBIN0,CBIN1 4 ~ P BNE RGR110 4 P SET CEORFLG 4 P B RGR035 4 PRGR110 4 & P MOVE GS
0x2a5b4c…2a5ce0 Dummy {f00=0x008b, f01=0x0190, f02=» 4 P DLETE CPCKBUF,CBIN0,GSWBIN4 5 P MOVE GSWSTR20,CPCKBUF 5 , P ADD CTWBIN1,CBIN1 5 J P TBT CWFLAG,RGR113 5 d P ADD CRECNR,CBIN1 KOLDSTART 5 ~ PRGR113 5 P ADD GSWBCD2,=D'1' 5 P MOVE GSWBIN1,=W'128' 5 2 P PERF RAREAD,DSET,$DNR,CPCKBUF,G
0x2a5ce0…2a5e74 (4, 55) Dummy {f00=0x008b, f01=0x0190, f02=» INFO 5 p P MOVE GSWSTR2,CBLANKS 6 P CBE CRECLGD,=W'128',RGR115 6 , P MOVE GSWSTR2,=X'00' 6 P PRGR115 6 l 6 P MATCH GSWSTR20,GSWBIN6,CBIN19,GSWSTR2,CBIN0,CBIN1 6 z P SUB GSWBIN6,CBIN1 6 0 P INSRT CPCKBUF,CBIN0,GSWBIN6,GSWSTR20,CBIN0 6 P MOVE
0x2a5e74…2a6008 Dummy {f00=0x008b, f01=0x0190, f02=»WFLAG,RGR205 6 $ P MOVE TTLBNR,GTLBNR IN KOLDSTART 7 PRGR205 7 < P B RGR030 7 J PRGR210 7 P TBT CWFLAG,RGR220 7 j & P MOVE GTDATO,GSWSTR20 IF COLDSTART 7 PRGR220 7 P B RGR030 7 PRGRRET2 7 P CLEAR CPFLG DISK FREE 7 P CLEAR GTS
0x2a6008…2a619c Dummy {f00=0x008b, f01=0x40e0, f02=»MP CBIN1,CBIN0 CR=1, TR=11 7 P RET 8 " PRGRRET 8 . P CLEAR CPFLG DISK FREE 8 < P SET TTEORFLG 8 P CLEAR GTSWFLAG 8 r P CMP CBIN0,CBIN0 CR=0, OK 8 P RET 8 P PEND 8 P END 8 @ 8 LEAR CPFLG DISK FREE 7 P CLEAR GTS
0x2a619c…2a6330 Dummy {f00=0x008b, f01=0x2008, f02=» 9 PERF ERDK,DSET,$NR NO PSQWRET 6 8 P CMP SPBINW4,CBIN0 SET CR D PSQW10 8 P RET RETURN P PEND P EJECT P END
0x2a6330…2a64c4 Dummy {f00=0x008b, f01=0x0190, f02=» I i M 5 O ( P 8 R J S Z W P l Z | ` a c i 2 l o ~ p J F " D @
0x2a64c4…2a6658 Dummy {f00=0x008b, f01=0x0190, f02=» 0 ` TRANSMIT 0 2 D , T d v 0 @ J F " D R L h> T 1X F 4 ) L L
0x2a6658…2a67ec Dummy {f00=0x008b, f01=0x0190, f02=» 0 d @ P ` p @ J F " D RL R6 >4 _ RL RLA 1XF R6 _8 R
0x2a67ec…2a6980 Dummy {f00=0x008b, f01=0x0190, f02=» , # > $ N & ` ' @ p - / 10 90 < * J F " D L 4 RL RL ]W RL RL gW RL 4 RL RL
0x2a6980…2a6b14 (4, 56) Opaque[0x194]
0x2a6b14…2a6ca8 # DirEnt {nam=»CONNJ «, typ=»UF«, f00=0x0000, f01=0x0000, f02=0x1180, f03=0x0000}
0x2a6b14…2a6ca8 IdxSect {
0x2a6b14…2a6ca8 f00 = 0x008c // 0x2a6b14 @0x0
0x2a6b14…2a6ca8 f01 = 0x0002 // 0x2a6b16 @0x2
0x2a6b14…2a6ca8 gno = [ // 0x2a6b18 @0x4
0x2a6b14…2a6ca8 [0x00]: C0x008c.0x0.0
0x2a6b14…2a6ca8 ]
0x2a6b14…2a6ca8 }
0x2a6ca8…2a6e3c Dummy {f00=0x008c, f01=0x018e, f02=» T; P01; TID=TC; TCL=TC; * LEV=60; : 01; J PTDC=T01; V PLC=01L; f P01; v PSCL=S04; PT; P03; TID=KA; TCL=KA; LEV=60; 01; TDC=T03; PLC=01L; P03;
0x2a6e3c…2a6fd0 Dummy {f00=0x008c, f01=0x011a, f02=» TDC=T04; PLC=02L; P03; $ PSCL=S02; 0 PSCL=S03; @ PSCL=S04; P T; ` 01; j TID=D0; v TCL=D0; LEV=60; 00; P00; PC; P00; P01; PSCL=S01; U; 001; TB
0x2a6fd0…2a7164 Dummy {f00=0x008c, f01=0x2008, f02=» T04; PLC=02L; P03; $ PSCL=S02; 0 PSCL=S03; @ PSCL=S04; P T; ` 01; j TID=D0; v TCL=D0; LEV=60; 00; P00; PC; P00; P01; PSCL=S01; U; 001; TB
0x2a7164…2a72f8 Dummy {f00=0x008c, f01=0x018e, f02=»','26','26','26','26', 61-70 C t @ P '26','26','26','26','26','26','26','26','26','26', 71-80 C & > P '19','26','26','26','26','26','26','26','26','26' 81-90 j PCCNTDEX BINI (11), C 2 P '1','2','3','4','5','1','5','6','6','5','0' P EJECT
0x2a72f8…2a748c Dummy {f00=0x008c, f01=0x0190, f02=» PCMAXLIN BIN W'54' PCMINLIN BIN W'2' PCCONBUF0 STRG 398X'FF' 6 PCCONBUF1 STRG 398X'FF' T PCCONBUF2 STRG 398X'FF' r PCCONBUF3 STRG 398X'FF' PCCONBUF4 STRG 398X'FF' PCCONBUF5 STRG 398X'FF' PCCONBUF6 STRG 398X'FF' P
0x2a748c…2a7620 Dummy {f00=0x008c, f01=0x018e, f02=»C ^ $ P 'TI','TJ','TK','TL','TM','TN' P* 2 P EJECT < PCB4 BLK J P* Z P* d P* n P* x P* PCMAXTASK BIN NO OF TASKS " PCTASKNR BIN NO. OF 0PEN TASKS PCRECLGD BIN W'128' $ PCRECNR BIN PHYSICAL RECOR
0x2a7620…2a77b4 (4, 57) Opaque[0x194]
0x2a77b4…2a7948 # DirEnt {nam=»KM080 «, typ=»UF«, f00=0x0000, f01=0x0000, f02=0x1188, f03=0x0000}
0x2a77b4…2a7948 IdxSect {
0x2a77b4…2a7948 f00 = 0x008c // 0x2a77b4 @0x0
0x2a77b4…2a7948 f01 = 0x0002 // 0x2a77b6 @0x2
0x2a77b4…2a7948 gno = [ // 0x2a77b8 @0x4
0x2a77b4…2a7948 [0x00]: C0x008c.0x1.0
0x2a77b4…2a7948 ]
0x2a77b4…2a7948 }
0x2a7948…2a7adc Dummy {f00=0x008c, f01=0x0190, f02=» PMES NJ-AMT - S PSCR PLED KMD08,/S * P!!DL 50 FD BACKUP > P!!DL 51 DK05 X P!!DL 52,54 DK06-DK08 l P!!DL 55,56 FD03,FD04 P!!DL 169 0 PMF1KBV STRG 32X'C1C2C3C4C5C6C750' DEV. ADR. P!!RE 173,$$6040$$6C4C$$ P
0x2a7adc…2a7c70 Dummy {f00=0x008c, f01=0x0190, f02=»$$ BKO z ( P!!RE 188,$$FALSE$$TRUE$$ SALDO KORT * P!!RE 194,$$TRUE$$FALSE$$ NO AUTO-KORT : P!!RE 195,$$FALSE$$TRUE$$ DC h P!!RE 199,$$TRUE$$FALSE$$ P!!RE 301,$$128$$80$$ P!!RE 309,$$OD-KOM$$NJ-AMT$$ 2 P!!RE 310,$$01014610$$%VER%RE
0x2a7c70…2a7e04 Dummy {f00=0x008c, f01=0x0190, f02=»T LINE v P!!EN PNOD C PTRA /S,NL ( PINC DIVFMT : PINC RGADM L PNOD R ^ PINC RGSUBS l PINC KMDIO ~ PINC RGSUB3 PNOD R PINC SCREEN PINC SUBAPL PNOD R PINC RGFRMT PNOD R PINC KT
0x2a7e04…2a7f98 Dummy {f00=0x008c, f01=0x0116, f02=»R PINC RGSTRT PASG 2,LP0F PTLK U,4K . PINC PRT > PINC VDUPRT N PINC START ` PINC TB3270 r P$INCGEN LKE M PKPF /L,RGLOAD PSCR D PMES $PDISC M=MUKDCN,MU=MON:POOL,A=RGLOAD,C=CONNJT,COUT=$CONF:01
0x2a7f98…2a812c Dummy {f00=0x008c, f01=0x2008, f02=» PINC RGSTRT PASG 2,LP0F PTLK U,4K . PINC PRT > PINC VDUPRT N PINC START ` PINC TB3270 r P$INCGEN LKE M PKPF /L,RGLOAD PSCR D PMES $PDISC M=MUKDCN,MU=MON:POOL,A=RGLOAD,C=CONNJT,COUT=$CONF:01
0x2a812c…2a82c0 Dummy {f00=0x008c, f01=0x0190, f02=»8 8 I # W % W O O x ? ! ! ! ? W A A ? @ ) A ) ! j! f b N L + " :hN b N ) , Lb N ! q % ! r W ! s W I ? ?%! ! ?% b b b b b b
0x2a82c0…2a8454 (4, 58) Opaque[0x194]
0x2a8454…2a85e8 # DirEnt {nam=»SCREEN«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x07d8, f03=0x0000}
0x2a8454…2a85e8 IdxSect {
0x2a8454…2a85e8 f00 = 0x003e // 0x2a8454 @0x0
0x2a8454…2a85e8 f01 = 0x000c // 0x2a8456 @0x2
0x2a8454…2a85e8 gno = [ // 0x2a8458 @0x4
0x2a8454…2a85e8 [0x00]: C0x003e.0x3.0
0x2a8454…2a85e8 [0x01]: C0x003f.0x0.0
0x2a8454…2a85e8 [0x02]: C0x0099.0x2.0
0x2a8454…2a85e8 [0x03]: C0x0099.0x3.0
0x2a8454…2a85e8 [0x04]: C0x009a.0x1.0
0x2a8454…2a85e8 [0x05]: C0x009a.0x2.0
0x2a8454…2a85e8 ]
0x2a8454…2a85e8 }
0x2a85e8…2a877c Dummy {f00=0x003e, f01=0x0190, f02=» P IDENT SCREEN 02.01.XXX.1 P 1.1,78-04-20,870138040310 & P* J , P* A STANDARD PROGRAM PACKAGE HANDLING T 0 P* A COMPLETE PICTURE ON A DISPLAY SCREEN P* ( P* RUNNING UNDER: CREDIT REL 3.1 ( P* TOSS
0x2a877c…2a8910 Dummy {f00=0x003e, f01=0x0190, f02=»EAR SOME VARIABLE FIELDS * P ENTRY SPCLRN CLEAR NO VARIABLE FIELDS ( P ENTRY SPERR DISPLAY ERROR PRINTOUT N P AND CONTINUE HANDLING z $ P ENTRY SPLIN8 MESSAGE ON LINE 8 P ENTRY SPCA AS SPCLRA-- P ENTRY SPCN AS SPCLRN-- $ P SPC
0x2a8910…2a8aa4 Dummy {f00=0x003e, f01=0x0190, f02=»N ON LINE 1 x ( P ENTRY SPINF8 INFORMATION ON LINE 8 P ENTRY BELL @ P* T , P EXT SPCHK1 STANDARD CHECK ROUTINE NO. 1 ^ , P EXT SPCHK2 STANDARD CHECK ROUTINE NO. 2 , P EXT SPCHK3 STANDARD CHECK ROUTINE NO. 3 , P EXT SPCHK4 STANDARD CHECK
0x2a8aa4…2a8c38 Dummy {f00=0x003e, f01=0x0190, f02=»RD CHECK ROUTINE NO. 7 ~ & P EXT SPAPPL USER ROUTINE TO HANDLE P APPL VALUES H ( P EXT SPTCHK USER ROUTINE TO EVALUATE ^ P CONDITIONAL TABULATION P* . P EXT EMPTYT ASSEMBLY SUBROUTINE EMPTYT - " P TEST IF DATA ITEM IS EMPTY
0x2a8c38…2a8dcc Dummy {f00=0x003e, f01=0x0190, f02=»N FORMATS p P INCLUDE SL6272,LIST P EJECT . PSPCLRA PROC < P* P D P* SPCLRA - CLEAR ALL VARABLE FIELDS BEFORE HANDLING THE PICTURE Z P* P MOVE SPERASE,=W'0' & P MOVE SPLINTOP,=W'1' WHOLE SCREEN P MOVE SPLINLOW,=W'0'
0x2a8dcc…2a8f60 Dummy {f00=0x003e, f01=0x0190, f02=»DLING THE PICTURE ` P* P MOVE SPERASE,=W'0' $ & P MOVE SPLINTOP,=W'1' WHOLE SCREEN @ P MOVE SPLINLOW,=W'0' j P PERF SCREEN,=W'2' P RET P PEND PSPCLRN PROC P* D P* SPCLRN - CLEAR NO VARIABLE FIELDS BEFORE HANDL
0x2a8f60…2a90f4 (4, 59) Dummy {f00=0x003f, f01=0x0190, f02=»F SCREEN,=W'3' P RET P PEND " PSPERR PROC 0 P* B 0 P* HANDLE ERRORS DETECTED OUTSIDE THE PACKAGE L P* P PERF SCREEN,=W'0' P RET P PEND PSPCA PROC P* D P* SPCA - AS SPCLRA, BUT ONLY BETWEEN LINES SPL
0x2a90f4…2a9288 Dummy {f00=0x003f, f01=0x0190, f02=» D P* SPCN - AS SPCLRN, BUT ONLY BETWEEN LINES SPLINTOP AND SPLINLOW P* P P MOVE SPERASE,=W'4' Z P PERF SCREEN,=W'3' v P RET P PEND P EJECT PSCREEN PROC $OPT P* $ P* SCREEN SCREEN HANDLING MODULE P*
0x2a9288…2a941c Dummy {f00=0x003f, f01=0x0190, f02=»E SPBINW2,$OPT MOVE TO VARIABLE " P TO ALLOW INSTR.S CMP AND IB ( & P CMP SPBINW2,='0' "SPERR" ENTRY ? N P BE ERRPRINT YES ! x P . P TBT SPPROMPT,ENTIRE JUMP IF ENTIRE FORMAT P SHOULD BE DISPLAYED P* P* ONLY VARIABLE F
0x2a941c…2a95b0 Dummy {f00=0x003f, f01=0x0190, f02=»ERASE ALL FROM 1 AND UP t P THOME P B CONT . P* > PCLEARS H 8 P ERASE 5,SPLINTOP,SPLINLOW ERASE SOME FROM 1 AND UP V P B CONT P EJECT P* P* DISPLAY ENTIRE FORMAT P* PENTIRE 8 P IB SPBINW2,ECLRA,EC
0x2a95b0…2a9744 Dummy {f00=0x003f, f01=0x0190, f02=»EAR ALL r P IN MEMORY P B ECLRN $ P* 4 P* CLEAR SOME VARIABLES > P* ` PECLRS j 6 P ERASE 6,SPLINTOP,SPLINLOW CLEAR SOME FIELDS FROM x P 1 AND UP IN MEMORY P* & P* CLEAR NO VARIABLES IN MEMORY P*
0x2a9744…2a98d8 Dummy {f00=0x003f, f01=0x0190, f02=»ISPLAY 1,SPLINTOP,SPLINLOW P B CONT " PECLRN2 2 P DISPLAY 2,SPLINTOP,SPLINLOW @ P B CONT d PECLRN3 t P DISPLAY 3,SPLINTOP,SPLINLOW P B CONT PECLRN4 P DISPLAY 4,SPLINTOP,SPLINLOW P B CONT P EJECT PCO
0x2a98d8…2a9a6c Dummy {f00=0x003f, f01=0x0190, f02=»SEARCH CURRENT POSITION v P BZ SETCREAD JUMP IF FOUND " P BL KTHOME POSITION NOT FOUND B P* h P* COMPULSORY FIELD FOUND r P* & P MOVE SPBINW4,SPBINW3 CHANGE INDEX P B CONT5 SEARCH AGAIN P* P EJECT P* &
0x2a9a6c…2a9c00 Dummy {f00=0x003f, f01=0x0190, f02=» READ TO CURRENT FIELD ON DISPLAY P* * PREADIN 4 P* SET FLAG IF AUTODUP B P* USES VERIF-FIELD d P MOVE SPBINW2,=W'3' P MOVE SPBINW1,=W'1' P TSTCTL 6 P BOK DYKIN P SET GTADUPFL P B DYK20 P*
0x2a9c00…2a9d94 (4, 60) Dummy {f00=0x0099, f01=0x0190, f02=»4 P B DYKOUT PDYK10 0 P DYKI SPINPUT,SPKTAB12,SPKTAB22,SPBINW1, C * P SPBINW2,SPBINW4 ^ P B DYKOUT x PDYK15 0 P DYKI SPINPUT,SPKTAB13,SPKTAB23,SPBINW1, C P SPBINW2,SPBINW4 PDYKOUT P BL ERRPRT ERROR
0x2a9d94…2a9f28 Dummy {f00=0x0099, f01=0x018e, f02=»NED p P IB SPBINW2, C . P SET1,SET2,SET3,SET4,CLR1,CLR2,CLR3,CLR4 $ P B RETUR V PSET1 f P SET TTKEY1 r P B DYKIN PSET2 P SET TTKEY2 P B DYKIN PSET3 P SET TTKEY3 P B DYKIN PSET4 P SET T
0x2a9f28…2aa0bc Dummy {f00=0x0099, f01=0x0190, f02=» P CLEAR TTKEY3 P B DYKIN PCLR4 . P CLEAR TTKEY4 : P B DYKIN P P* ` P* j PDYK20 t P* $ P TBF TTKEY1,DYKRET KEYBOARD OFF P IB SPKEY,DYK30,DYK40,DYK50 PDYK30 P TBF TTKEY2,DYK80 KEYPOS 1 P
0x2aa0bc…2aa250 Dummy {f00=0x0099, f01=0x0190, f02=»0 P* P KEY SWITCHES ( P IB SPBINW2,UPD300,CLEA20 JUMP ON C , P UPDATE,CANC,CANC, C X . P UPDATE,UPDATE,UPDATE,UPDATE CONVERTED C v 4 P UPDATE,UPDATE,UPDATE,UPDATE END-OF-ITEM-KEY C P UPDATE,KDUPL,KEDIT P EJECT
0x2aa250…2aa3e4 Dummy {f00=0x0099, f01=0x0190, f02=» d & P GETCTL 3,SPBINW4 GET SCHK-NUMBER 8 P CBE SPBINW4,='0',UPD050 JUMP IF NOT STANDARD CHECK 2 * P PERFI SPBINW4,SPCHK1,SPCHK2,SPCHK3 C n " P SPCHK4,SPCHK5,SPCHK6,SPCHK7 & P IB SPBINW3,UPD050,UPD070,ERRPRINT P* P* CONDITIONAL D
0x2aa3e4…2aa578 Dummy {f00=0x0099, f01=0x0190, f02=»D070 $ P GETCTL 0,SPBINW3 GET APPL-VALUE 0 P CBNE SPBINW3,='0',UPD210 JUMP IF APPL VALUE 4 P B SETCREAD h P* | " P* UNCONDITIONAL DISPLAYING P* PUPD100 6 P MOVE SPBINW4,='2' INDICATE UNCONDITIONAL DISPLAY PUPD200
0x2aa578…2aa70c Dummy {f00=0x0099, f01=0x0190, f02=»OM ZERO t P* PUPD210 P PERF SPAPPL ( ( P IB SPBINW3,UPD400,SETCREAD,ERRPRINT < P B UPD400 h P* z P* OK AFTER APPL CONTROL " P* UNCONDITIONAL DISPLAYING P* PUPD260 2 P UPDFLD 1,SPINPUT UPDATE FIELD WITH
0x2aa70c…2aa8a0 Dummy {f00=0x0099, f01=0x0190, f02=»50 P* TAKE CARE OF WARNING P TBF SPWARNFL,UPD360 , * P MOVE SPBINW1,SPBINW2 STORE KEY VALUE H $ P MOVE SPBINW4,=W'26' SET MESSAGE v P PERF SPERR ( P CBNE SPBINW2,CBIN2,UPD360 KOR-KEY ? , P MOVE SPBINW2,SPBINW1 RESET OLD KEYVALUE
0x2aa8a0…2aaa34 (4, 61) Dummy {f00=0x0099, f01=0x0190, f02=»BWD,KTHOME,KTLDOWN,KTLEFT,KTRIGHT, C * P KTDOWN,KTUP,KCOPY,DUMMY,DUMMY,KENTER . , P SUB SPBINW2,=W'14' ADJUST EOI-KEY INDEX PDUMMY PRETUR P RET P* PUPD400 8 P CBE SPBINW4,='2',UPD260 JUMP IF UNCONDITIONAL DISPL 0 P
0x2aaa34…2aabc8 Dummy {f00=0x0099, f01=0x0190, f02=»D TAB. FORWARD 1 STEP P TFWD P B TSTTAB . P* @ $ PKTBWD TABULATION 1 STEP BACKW. J P TBWD r P B TSTTAB P* " PKTHOME TAB. TO HOME POSITION P THOME P B TSTTAB P* ( PKTLDOWN TAB. TO FIRST ON N
0x2aabc8…2aad5c Dummy {f00=0x0099, f01=0x0190, f02=»KTRIGHT TAB. TO RIGHTMOST P TRIGHT $ P B TSTTAB 4 P* F PKTDOWN TAB 1 DOWN P P TDOWN l P B TSTTAB z P* PKTUP TAB 1 UP P TUP P PTSTTAB TEST TAB OUTPUT P BE READIN OK P BL READIN NOT F
0x2aad5c…2aaef0 Dummy {f00=0x0099, f01=0x0190, f02=» P CMP SPBINW3,='0' P BE SETCREAD " P IB SPBINW2,DUMMY,DUMMY, C 6 " P KTFWD,DUMMY,DUMMY,KTFWD, C Z " P KTBWD,KTFWD,KTFWD,KTFWD, C P KTBWD,KTFWD,KTBWD < P* BRANCH LIST EXHAUSTED - SPBINW2 CLOBBERED BY SPTCHK P
0x2aaef0…2ab084 Dummy {f00=0x0099, f01=0x0190, f02=»T CURSOR AND READ P* PKDUPL DUPLICATION $ . P MOVE SPBINW2,='3' INDICATE COMMON EOI-KEY @ P DUPL SPINPUT DUPLICATION r P BNZ KDUPL2 6 P COPY GSWSTR1,CBIN0,CBIN1,SPINPUT,CBIN1 GET BYTE 1 P CBE GSWSTR1,=X'00',KDUPL2 . P MOV
0x2ab084…2ab218 Dummy {f00=0x0099, f01=0x018e, f02=»E ILLEGAL EOI-KEY v P B ERRPRINT DUPL NOT ALLOWED P EJECT > P* L P* EDIT FIELD V P* n PKEDIT x P GETCTL 1,SPBINW3 GET MAXL P CBNE SPBINW3,='0',KED100 P PERF BELL P B SETCREAD PKED100 & P EDFLD SPI
0x2ab218…2ab3ac Dummy {f00=0x0099, f01=0x0190, f02=» PKENTER ( P TBT SPCHANGE,KENT00 NO TESTS ON ME P TBF SPME,KENT05 FIELDS ? > PKENT00 ` 0 P MOVE SPBINW4,='5' INDICATE COMP.FIELD FOUND n , P MOVE SPBINW1,='0' INDICATE NO CLEARING 2 P MOVE SPBINW2,='0' SET INDEX TO SEARCHED FIELD < P
0x2ab3ac…2ab540 Dummy {f00=0x0099, f01=0x0190, f02=» FIELD t P BZ KENT05 NO! . P CALL EMPTYT,:FMTITEM LOOK IF EMPTY FIELD $ P BP KENT10 YES! V PKENT05 n 4 P MOVE SPBINW2,='3' INDICATE ENTER KEY DEPRESSED | P RET P* & P* EMPTY COMPULSORY FIELD FOUND P* PKENT10
0x2ab540…2ab6d4 (4, 62) Dummy {f00=0x009a, f01=0x0190, f02=» CBE SPBINW2,='4',CANC JUMP IF CANCEL1 * P CBE SPBINW2,='5',CANC JUMP IF CANCEL2 . P* P* ERROR HANDLING f P* PERRPRINT P* P MOVE SPBINW2,=X'40' P XSTAT KEYB,SPBINW3 " P CBNE SPBINW2,SPBINW3,ERRPRT20 P T
0x2ab6d4…2ab868 Dummy {f00=0x009a, f01=0x0190, f02=» ( P MOVE SPBINW3,=X'0801' ROW 24 COL. 1 2 P DSC1 SCREEN,6,SPBINW3 SET CURSOR ON LAST ROW 0 $ P MOVE GSWBCD4,SPBINW4 ERRORCODE f P* $ P EDWRT SCREEN,SPFTBERR(SPBINW4) P TBF SPKEYFLG,SPERRRET P* P* READ AFTER ERROR P*
0x2ab868…2ab9fc Dummy {f00=0x009a, f01=0x0190, f02=»UESTED LENGTH x " P IB SPKEY,ERR105,ERR110,ERR115 PERR105 < 2 P NKI .NE,KEYB,SPINPUT,SPKTAB1,SPBINW3,SPBINW2 J P B ERR120 PERR110 2 P NKI .NE,KEYB,SPINPUT,SPKTAB12,SPBINW3,SPBINW2 P B ERR120 PERR115 2 P NKI .NE,KEYB,SPIN
0x2ab9fc…2abb90 Dummy {f00=0x009a, f01=0x0190, f02=»R " P IB SPBINW2,ERR100,ERRCONT C ! $ P ERRCONT,ERR100,ERRCONT,ERRCONT ! 0 P B ERR100 CONTINUE ! X P* ! r P* CLEAR ERROR PRINTOUT ! | P* ! PERRCONT ! P PERF CLEAR8 ERASE LAST LINE ! ( P CBNL SPBINW4,=W'26',CANC IF WARNING ! & P
0x2abb90…2abd24 Dummy {f00=0x009a, f01=0x0190, f02=»RRENT CONTENTS ! r 4 P MOVE :FMTITEM,=C'1' PUT SOMETHING IN THE FIELD " & P GETABX SPBINW4 GET CURRENT INDEX " N * P ERASE 10,SPBINW4,SPBINW4 CLEAR FIELD " x PERRC10 " $ P IB SPBINW2,CLEAR1,CLEAR2,DUMMY " 0 P SUB SPBINW2,='3' ADJUST FOR CANCEL1,CANCEL2
0x2abd24…2abeb8 Dummy {f00=0x009a, f01=0x0190, f02=» " & P MOVE SPBINW5,$OPT CHECHK IF SPERR # P CBE SPBINW5,=W'0',SPERRRET # 2 P B SETCREAD CONTINUE # V P* # r PCLEAR2 # | 4 P MOVE :FMTITEM,SPINPUT RESTORE CURRENT CONTENTS # PCLEA20 # * P GETABX SPBINW4 GET CURRENT TAB INDEX # , P DISPLAY 1
0x2abeb8…2ac04c Dummy {f00=0x009a, f01=0x0190, f02=» # | P* $ PSPERRRET $ P RET $ " P* $ . P PEND $ 8 P* $ F PBELL PROC $ P P* ACUSTIC ALARM $ b P EDWRT SCREEN,BELLFMT $ P RET $ P* $ PBELLFMT FRMT $ P FSL $ P FILLR X'07',1 $ P FMEND $ P $ P PEND
0x2ac04c…2ac1e0 Dummy {f00=0x009a, f01=0x0190, f02=»************** $ P* % ( P* SPLIN8 - WRITE ON LINE 8 % P* % L 6 P* MESSAGE DEFINED AS FORMAT NUMBER WRTMES % V ( P* IN FORMAT TABLE SPFTBMES % P* % $ P* WRTTYP: =0 NO WAIT % " P* =1 W
0x2ac1e0…2ac374 (4, 63) Dummy {f00=0x009a, f01=0x0190, f02=»PBINW1 SET CURSOR ON LAST ROW % P MOVE SPBINW1,CBIN0 & & " P EDWRT SCREEN,SPFTBMES(WRTMES) & B P CBE WRTTYP,=W'0',LIN8NW & h P CBE WRTTYP,=W'2',LINRET & P* READ & PLIN8IN & ( P MOVE SPBINW1,=W'3' REQUESTED LENGTH & " P IB SPKEY,LIN805,LIN810,
0x2ac374…2ac508 Dummy {f00=0x009a, f01=0x0190, f02=»,SPBINW1,SPBINW2 & v P B LIN820 ' PLIN815 ' * . P NKI KEYB,SPINPUT,SPKTAB13,SPBINW1,SPBINW2 ' 8 PLIN820 ' j P BNOK LIN8IN JUMP IF NOT OK ' x $ P IB SPBINW2,LIN8IN,LIN8CT,LIN8IN ' P B LIN8IN ' P* CLEAR LINE ' PLIN8CT ' P PERF CLEAR8 ERA
0x2ac508…2ac69c Dummy {f00=0x009a, f01=0x0190, f02=»IN860,LIN865 ' ~ PLIN855 ( 2 P NKI .NW,KEYB,SPINPUT,SPKTAB1,SPBINW1,SPBINW2 ( " P B LIN870 ( X PLIN860 ( j 2 P NKI .NW,KEYB,SPINPUT,SPKTAB12,SPBINW1,SPBINW2 ( x P B LIN870 ( PLIN865 ( 2 P NKI .NW,KEYB,SPINPUT,SPKTAB13,SPBINW1,SPBINW2 ( PLIN8
0x2ac69c…2ac830 Dummy {f00=0x009a, f01=0x0190, f02=»NF1 - WRITE INF ON FIRST LINE ( P* ) & P******************** ) 0 P MOVE SPBINW1,=X'0117' ) L 4 P DSC1 SCREEN,6,SPBINW1 SET CURSOR ON FIRST LINE ) j P MOVE SPBINW1,CBIN0 ) 2 P EDWRT SCREEN,SPFTBMES(CBIN7) WRITE MESSAGE 7 ) P RET ) P PEND )
0x2ac830…2ac9c4 Dummy {f00=0x009a, f01=0x409e, f02=» ) f P* * P******************** * P PERF SPLIN8,CBIN4,CBIN2 * . P RET * N P PEND * Z P* * h P* * r P* * | P * P END * @ * P MOVE SPBINW1,CBIN0 ) 2 P EDWRT SCREEN,SPFTBMES(CBIN7) WRITE MESSAGE 7 ) P RET ) P PEND )
0x2ac9c4…2acb58 Dummy {f00=0x009a, f01=0x2008, f02=» +
0x2acb58…2accec Dummy {f00=0x009a, f01=0x0190, f02=» : K + Q 2 P. P8 . ( B X # V : _0 v_> $ > $ W W X 0Q Y ( Y *P X ~ X <' X X J > X *# X ( " Qp " P X 0P: Vp_` " P4 T *
0x2accec…2ace80 Dummy {f00=0x009a, f01=0x0190, f02=» X C W @ X (T W X y 6 Y ( : X (;n ( > . > Y . Y ,W > Y . X ( X ." PV X 0RzT$ Y *P U :H F K T W X . X 2QH Y *T2 : " P$ X 0U X *# P P T " T :
0x2ace80…2ad014 (4, 64) Opaque[0x194]
0x2ad014…2ad1a8 # DirEnt {nam=»CONNJT«, typ=»UF«, f00=0x0000, f01=0x0000, f02=0x11c0, f03=0x0000}
0x2ad014…2ad1a8 IdxSect {
0x2ad014…2ad1a8 f00 = 0x008e // 0x2ad014 @0x0
0x2ad014…2ad1a8 f01 = 0x0002 // 0x2ad016 @0x2
0x2ad014…2ad1a8 gno = [ // 0x2ad018 @0x4
0x2ad014…2ad1a8 [0x00]: C0x008e.0x0.0
0x2ad014…2ad1a8 ]
0x2ad014…2ad1a8 }
0x2ad1a8…2ad33c Dummy {f00=0x008e, f01=0x0190, f02=» T; 01; TID=TB; TCL=TB; * LEV=55; : 01; J TDC=T02; V LC=08L; f P00; v T; P01; TID=TC; TCL=TC; LEV=60; 01; PTDC=T01; PLC=01L; P01; PSCL=S04;
0x2ad33c…2ad4d0 Dummy {f00=0x008e, f01=0x0190, f02=»L=S02; PSCL=S03; PSCL=S04; T; . P02; 8 TID=GA; D TCL=GA; T LEV=60; d 01; t TDC=T04; PLC=02L; P03; PSCL=S02; PSCL=S03; PSCL=S04; T; 01; TID=D0; TCL=D0
0x2ad4d0…2ad664 Dummy {f00=0x008e, f01=0x0006, f02=»1; PSCL=S03; PSCL=S04; T; . P02; 8 TID=GA; D TCL=GA; T LEV=60; d 01; t TDC=T04; PLC=02L; P03; PSCL=S02; PSCL=S03; PSCL=S04; T; 01; TID=D0; TCL=D0
0x2ad664…2ad7f8 Dummy {f00=0x008e, f01=0x2008, f02=» PSCL=S03; PSCL=S04; T; . P02; 8 TID=GA; D TCL=GA; T LEV=60; d 01; t TDC=T04; PLC=02L; P03; PSCL=S02; PSCL=S03; PSCL=S04; T; 01; TID=D0; TCL=D0
0x2ad7f8…2ad98c Dummy {f00=0x008e, f01=0x0190, f02=» BIN '1' HBOG/DEBP/REM PTTTROLD BIN NO OF OLD TRANS PTTASKNR BIN B PTTDKBCD BCD 2 D/K VALUE V $ PTTARKSAV BCD 12 SAVED ARK KT NR v & PTTCYKTOT BCD 14 SAVED CYKLE TOTAL & PTTCYKPOS BCD 4 SAVED CYKLE LINE NR $ PTTLINNR BCD 4 LINE NR
0x2ad98c…2adb20 Dummy {f00=0x008e, f01=0x0190, f02=»FFFFFFFF' PTSWBCD2 BCD 2 *-- & PTTCYM STRG 1 CYKLE MARK ON JOURNAL , . PGTREGF BCDI (26),16X'F' TRANSACTION FIELDS V P* P EJECT P* PGB1 BLK P* P* P* P* P* PGTEXFLAG BOOL FALSE P
0x2adb20…2adcb4 (4, 65) Opaque[0x194]
0x2adcb4…2ade48 # DirEnt {nam=»/OBJCT«, typ=»OB«, f00=0x0000, f01=0x0000, f02=0x14c0, f03=0x0000}
0x2adcb4…2ade48 IdxSect {
0x2adcb4…2ade48 f00 = 0x00a6 // 0x2adcb4 @0x0
0x2adcb4…2ade48 f01 = 0x006e // 0x2adcb6 @0x2
0x2adcb4…2ade48 gno = [ // 0x2adcb8 @0x4
0x2adcb4…2ade48 [0x00]: C0x00a6.0x0.0
0x2adcb4…2ade48 [0x01]: C0x00a6.0x1.0
0x2adcb4…2ade48 [0x02]: C0x00a6.0x2.0
0x2adcb4…2ade48 [0x03]: C0x00a6.0x3.0
0x2adcb4…2ade48 [0x04]: C0x00a7.0x0.0
0x2adcb4…2ade48 [0x05]: C0x00a7.0x1.0
0x2adcb4…2ade48 [0x06]: C0x00a8.0x1.0
0x2adcb4…2ade48 [0x07]: C0x00a8.0x2.0
0x2adcb4…2ade48 [0x08]: C0x00a8.0x3.0
0x2adcb4…2ade48 [0x09]: C0x00a9.0x0.0
0x2adcb4…2ade48 [0x0a]: C0x00b8.0x2.0
0x2adcb4…2ade48 [0x0b]: C0x00b9.0x0.0
0x2adcb4…2ade48 [0x0c]: C0x00b9.0x1.0
0x2adcb4…2ade48 [0x0d]: C0x00b9.0x2.0
0x2adcb4…2ade48 [0x0e]: C0x00b9.0x3.0
0x2adcb4…2ade48 [0x0f]: C0x00ba.0x0.0
0x2adcb4…2ade48 [0x10]: C0x00ba.0x1.0
0x2adcb4…2ade48 [0x11]: C0x00ba.0x2.0
0x2adcb4…2ade48 [0x12]: C0x00c5.0x3.0
0x2adcb4…2ade48 [0x13]: C0x00c6.0x0.0
0x2adcb4…2ade48 [0x14]: C0x0111.0x0.0
0x2adcb4…2ade48 [0x15]: C0x0111.0x1.0
0x2adcb4…2ade48 [0x16]: C0x0111.0x2.0
0x2adcb4…2ade48 [0x17]: C0x0111.0x3.0
0x2adcb4…2ade48 [0x18]: C0x0116.0x2.0
0x2adcb4…2ade48 [0x19]: C0x0116.0x3.0
0x2adcb4…2ade48 [0x1a]: C0x0117.0x0.0
0x2adcb4…2ade48 [0x1b]: C0x0117.0x1.0
0x2adcb4…2ade48 [0x1c]: C0x0117.0x2.0
0x2adcb4…2ade48 [0x1d]: C0x0117.0x3.0
0x2adcb4…2ade48 [0x1e]: C0x0118.0x0.0
0x2adcb4…2ade48 [0x1f]: C0x0118.0x1.0
0x2adcb4…2ade48 [0x20]: C0x0118.0x2.0
0x2adcb4…2ade48 [0x21]: C0x0118.0x3.0
0x2adcb4…2ade48 [0x22]: C0x0119.0x0.0
0x2adcb4…2ade48 [0x23]: C0x0119.0x1.0
0x2adcb4…2ade48 [0x24]: C0x0119.0x2.0
0x2adcb4…2ade48 [0x25]: C0x0119.0x3.0
0x2adcb4…2ade48 [0x26]: C0x011a.0x0.0
0x2adcb4…2ade48 [0x27]: C0x011a.0x1.0
0x2adcb4…2ade48 [0x28]: C0x011a.0x2.0
0x2adcb4…2ade48 [0x29]: C0x011a.0x3.0
0x2adcb4…2ade48 [0x2a]: C0x011b.0x0.0
0x2adcb4…2ade48 [0x2b]: C0x011b.0x1.0
0x2adcb4…2ade48 [0x2c]: C0x011b.0x2.0
0x2adcb4…2ade48 [0x2d]: C0x011b.0x3.0
0x2adcb4…2ade48 [0x2e]: C0x011c.0x0.0
0x2adcb4…2ade48 [0x2f]: C0x011c.0x1.0
0x2adcb4…2ade48 [0x30]: C0x011c.0x2.0
0x2adcb4…2ade48 [0x31]: C0x011c.0x3.0
0x2adcb4…2ade48 [0x32]: C0x011d.0x0.0
0x2adcb4…2ade48 [0x33]: C0x0042.0x1.0
0x2adcb4…2ade48 [0x34]: C0x004a.0x3.0
0x2adcb4…2ade48 [0x35]: C0x004e.0x0.0
0x2adcb4…2ade48 [0x36]: C0x0041.0x2.0
0x2adcb4…2ade48 ]
0x2adcb4…2ade48 }
0x2ade48…2adfdc Dummy {f00=0x00a6, f01=0x0190, f02=» J F IDENT PRT REL 2.1*79-10-20 870150540210 SNBUSYK PRINT ICREAD R PRINT r I:EVA0 EMULA , ( @ . V P ! DC1INQ , ( O O N T N
0x2adfdc…2ae170 Dummy {f00=0x00a6, f01=0x0190, f02=» C n GTRBUF DCGETM , ( y ( : P O W 2 UPDATE b , ( @ O B O N T N t , ( O : O ( : , ( O 8 O N Z_ (@P , (
0x2ae170…2ae304 Dummy {f00=0x00a6, f01=0x018e, f02=» RFMDUP , ( S X }T 9 ~T 5 aR , ( q = _X = R F , ( 0" ZZ_" pR v , ( V 0" 1 V " 2 P W X , ( {T * = ~X@ }P , (
0x2ae304…2ae498 Dummy {f00=0x00a6, f01=0x4162, f02=» f , ( Q ( Z 0 O ( SNBUSYK 8 , ( q B : C ( L : | H D !,u )T 3T A ` UP| ] ~ P WF T T )R - $ H D ! 7 CV IP4 MW YT aT mR R $ R
0x2ae498…2ae62c Dummy {f00=0x00a6, f01=0x0190, f02=» J F IDENT VDUPRT 2.1DK 4 79-10-20 870150540210 D @ TRPFY TRPAY ERASE SETCUR ERASUPA DISPL ERASUAL WCHAR UPDATE R , ( RFMDUP DCINP RLRBUF DCGETM GTRBUF DCINP , ( O N T B O N
0x2ae62c…2ae7c0 Dummy {f00=0x00a6, f01=0x018e, f02=» N " P N " O N " P SNBUSY $ , ( [@ N " O W B 6 DCGETM | f REQTIM` z , ( y : C C C ( :
0x2ae7c0…2ae954 (4, 66) Dummy {f00=0x00a6, f01=0x0190, f02=» f , ( $ _ Q = : $ : <" T TEBCDI 8 , ( $ _ $ H !?9F $ H "? J , ( % : X N / z , ( %1 O ( $ B P N ' O LSAVOF , ( %QH
0x2ae954…2aeae8 Dummy {f00=0x00a6, f01=0x0190, f02=»% !`P V 0 !`P X $ , ( % _ " T V 0 !` V _ , UPDATE % , ( $ % $ %r_J : O B p , ( & $ T $ 1P 5P ?P , ( &% 7 W N W , ( &E
0x2aeae8…2aec7c Dummy {f00=0x00a6, f01=0x0190, f02=» & P P P P T |_X , ( & T }_b T ~_l T 0_v 0 , ( & T _ B $ : $ H ` , ( ' ! :a" _ $ ^, _ , ( '# O _ T ^ 0 " , ( 'C R 1 _ " X
0x2aec7c…2aee10 Dummy {f00=0x00a6, f01=0x0190, f02=» &Z N & $ V , ( ' L 1P Y & ( ICWRTE: P , ( ' K@ V O & b , ( @ ( $ H O " P N T , ( ( B + I I I C ( , ( (? N " T
0x2aee10…2aefa4 Dummy {f00=0x00a6, f01=0x0190, f02=» , ( ( 1 B E C ( ERASUPA( 4 , ( ( : : O O P H , ( ( " R V 0" ^ " x , ( ( O P W P ERASUAL)" , ( ) W R
0x2aefa4…2af138 Dummy {f00=0x00a6, f01=0x0190, f02=» ZF P " Q _R | , ( ) R R T _ X 0 TRPAY) L , ( ) " ZF _2 $ $ % : : ^ TRPFY) DISPL) , ( ) $ $ %l % _ C , ( ) P " Q " 2 O
0x2af138…2af2cc Dummy {f00=0x00a6, f01=0x0190, f02=» ] _V" 2 r , ( * O P " P W ] _v P , ( * R V 0 " 1 B SETCUR * r , ( * ZJ_, C N C , ( * PR C P_ C ( O : B WCHAR* RFMDUP +
0x2af2cc…2af460 Dummy {f00=0x00a6, f01=0x0190, f02=» C l , ( +_ ( B ! PV B + E , ( + E :h E T C ( C < , ( + C _ N P " P W = l ( $ + : R P T - : : H D ! $ | TT 3% 7) GP YP iW u$ $ $ $ P $ P $ Q $ T %EP
0x2af460…2af5f4 (4, 67) Dummy {f00=0x00a6, f01=0x417e, f02=»& P & P & T & T & T ` H D ! & T & T '-T"'CR ' P ' R ' )"' P ( P4( T.(KT (aT (}V ( T(( R ( V H D ! ) P ) W ) P )!WH))R )5T4)AV()ETv)GW")MR )[R )aT )sR )wP ) T ) R h H D !% ) R ) T * + * Q * Pz*#+ *)R *-+J*1+ *7V *=+ *QR(*]T *eT *mT *s+ H D ! * P
0x2af5f4…2af788 Dummy {f00=0x00a6, f01=0x018e, f02=» J F IDENT START 2.1DK 1 80-10-10 870150540210 J F " LINHONK LINHOF ATMASB LSAVOF LSAVON EMULA LIOLON LIOLOFC VDUKB R . * DCTASK DC1INQN DC2INQ REQTIM ICWRTE@ , ( , ( !
0x2af788…2af91c Dummy {f00=0x00a6, f01=0x0190, f02=» , ( , ( 4 , ( d , ( , ( , ( !
0x2af91c…2afab0 Dummy {f00=0x00a6, f01=0x018e, f02=»CGETM , ( _ ( ( RLRBUFV > EMULA P VDUKB b , ( { B _ C ( : t , ( O . V P ! ERASE , ( O
0x2afab0…2afc44 Dummy {f00=0x00a6, f01=0x0190, f02=» , ( P P _J C DC1INQN : 8 , ( 1 C W ( L DC2INQ R | , ( Q : O ," 2 X N , ( q N ! O _ O B P B P , ( ( _ N ! b
0x2afc44…2afdd8 Dummy {f00=0x00a6, f01=0x018e, f02=» , ( : C ( : : N V W , ( N R W N P R 4 SETCUR d , ( 1 W N PV W O v , ( Q : N P R PR , ( o P_ O P # T N T , (
0x2afdd8…2aff6c Dummy {f00=0x00a6, f01=0x0190, f02=» f , ( - : N ` V - , ( : P " V " D O 8 , ( + : N U P h * & K P P R W # O , ( i : Y2# 6 O , ( O _@ P w
0x2aff6c…2b0100 Dummy {f00=0x00a6, f01=0x0190, f02=» v N T 9 N , ( P N + 9 N P <! & , ( ' T = + V E % # P & P V WCHAR , ( G W % N T O , ( e Q B ! PT , ( : N
0x2b0100…2b0294 (4, 68) Dummy {f00=0x00a6, f01=0x0190, f02=» : T W P DISPL & , ( P H + ) _ O 6 , ( #@ N _ P $# P _ f TASCII TRPAN , ( A @ : . H : O , ( ] : O 1R Q P X,W :
0x2b0294…2b0428 Dummy {f00=0x00a6, f01=0x0190, f02=»R Q <_8 O : O 1R Q , ( 9_R : _ ( , ( O X I:RT1 * & - H , ( 1 : N # P N N ERASUA , (
0x2b0428…2b05bc Dummy {f00=0x00a6, f01=0x018e, f02=» N z , ( P R O : N - O , ( B + I I C ( J LIOLON z LIOLOFC LINHONK , ( : W W W W W W W LINHOF LSAVON
0x2b05bc…2b0750 Dummy {f00=0x00a6, f01=0x0190, f02=» f , ( G : P _ ]$ , ( g O O : N O 8 , ( : Q T O O h , ( : R : _* 0 : O , ( " O : N ICWRTE@
0x2b0750…2b08e4 Dummy {f00=0x00a6, f01=0x0190, f02=» V H D ! ! # % ' ) + - / 1 3 5 7 9 ; = ? H D ! A C E G I K M O Q S U W Y [ ] _ ^ H D ! a c e g i k m o q s u w y { } H D !
0x2b08e4…2b0a78 Dummy {f00=0x00a6, f01=0x0190, f02=» T t D x H D ! J H D ! 4 . T 4 H D ! ! # % ' ) + - / 1
0x2b0a78…2b0c0c Dummy {f00=0x00a6, f01=0x0190, f02=»P P P P V W6 R W& -R 3W =V z H D !HC CW M 2 aR kR { 2 P T T T Q P T Q 6 H D ! V 7 =U CP( KP Q 2 UP WR [W w P T P> H D ! P P T P P 'T ?P CP GW ]
0x2b0c0c…2b0da0 Dummy {f00=0x00a6, f01=0x4114, f02=»W( R6 P Q0 W R" f H D !O Q R Q ) =P A M Q " H D ! WQ, wP P 2 P R W, W, W$ W$ W W W W W n @ < W W W W !W 7 =Q MP [ Q T R
0x2b0da0…2b0f34 (4, 69) Dummy {f00=0x00a7, f01=0x0190, f02=» : H IDENT RGMAIN TRA 4.2 80-08-08 F1 O1111 02.01.XXX.1 " FUNCT INITRG TRINP TRPAGE B $$$TRAM h * & FUNCT INITRGT TRINP TRPAGE 7 z D @ hADM BELLIhCYK DIVTR ENTER FMSTYR FRMTSP0 KORTX KVIT LSTINT @ < MODPT PACKCLR SETDEBI
0x2b0f34…2b10c8 Dummy {f00=0x00a7, f01=0x0190, f02=» 0 7 . $ > + P 3 b 5 r ; J F " D L L A @ L R RH RA W @ LW A L@ I L R@ W RI C J " O
0x2b10c8…2b125c Dummy {f00=0x00a7, f01=0x0190, f02=»_ _EA 4 RA 6 <MW R_ b & 0 $ B 7 R ( b r $ . . . J F " D Z R L @ R_BK R( @ R R R_U
0x2b125c…2b13f0 Dummy {f00=0x00a7, f01=0x0190, f02=»Wfou| W @ 4 ` . ( > N ^ ( n ' ~ - * 3 ; J F " D I /C P R R R 4 C P R R R 4 4 RT W RT W R 4 R T
0x2b13f0…2b1584 Dummy {f00=0x00a7, f01=0x0190, f02=» D @ 4 R T 4 RT ! L W 4 RT 4 RT W R TyW RTsWy : L D l |
0x2b1584…2b1718 Dummy {f00=0x00a7, f01=0x416c, f02=» 7 0 B J F " D 4 I % L 4 I L 4 H R 4 R 4 L 4 4 6 ! L T , 0 J F " D 1 4 4 I L RT 6 4 4 4 0X
0x2b1718…2b18ac Dummy {f00=0x00a7, f01=0x40a0, f02=» : H IDENT RGMND TRA 4.2 80-08-08 F1 O1111 02.01.XXX.1 INITRG B $$$TRAM T INITRG f 4 z NI @
0x2b18ac…2b1a40 Dummy {f00=0x00a7, f01=0x0190, f02=» : H IDENT RGSTRT TRA 4.2 80-12-09 F1 O1111 02.01.080.1 < 8 CNFWRT CONFRD CONFWR CONRDX T1GO TCONFR TCONFW B $$$TRAS @ < CNFWRT CONFRDC CONFWRN 2 CONRDX & T1GO TCONFR TCONFWS D @ hADM ASGVOLC CLBEH CLEDB C
0x2b1a40…2b1bd4 (4, 70) Dummy {f00=0x00a7, f01=0x0190, f02=» STRTWRC T:ATTFL T:DSC0L T:DSC1R v : 6 T:GETIS T:PAUSA T:RSTRR T:USE UPDAKK1 WRITIDS ZEROS ( 2 f 8 v ( $ 4 & _ , A . 0 4 A 6 9
0x2b1bd4…2b1d68 Dummy {f00=0x00a7, f01=0x0190, f02=» M O $ c FD ( o : J F " D @ @$A 0X A 1XF R 6 _: L dv R L@)6 l J A 0
0x2b1d68…2b1efc Dummy {f00=0x00a7, f01=0x0190, f02=» J F " D _ 5L # L] R L5 q_ A)WO@) RL RL RL RL R6 ( _ RL V f x 0
0x2b1efc…2b2090 Dummy {f00=0x00a7, f01=0x0190, f02=» 0 0 , J F " D RL R LL5L ) R_0 RL RL R LLWL < R_C RL R W R )xL xL v I { H > 0 . , " & - FD J F " D I) #yL fv
0x2b2090…2b2224 Dummy {f00=0x00a7, f01=0x0190, f02=» v0 # x 8 J F " D @) r t " @( 0X A 0X 1XF R6 _2 L R :_/0X 0 2 ~ ' 0 r 0 r 8 8 '
0x2b2224…2b23b8 Dummy {f00=0x00a7, f01=0x018e, f02=» . , $ 0 ' @ 0 P b r ' ' ' '
0x2b23b8…2b254c Dummy {f00=0x00a7, f01=0x018e, f02=» 0 0 0 0 < , 0 < / N 1 . ` 7 , p 8 : $ J F " D R LM C O x! L R L Lb M I " x 3I 0X A 1XF R6 L O0 L
0x2b254c…2b26e0 Dummy {f00=0x00a7, f01=0x0190, f02=» J F " D @ _ _ ?R L$ x W R<R R W 0X A 1XF R6 _ _ EL C @' C R d 0 t 0 SLUTD_ L J F " D L R LM CT I' LP L h M P Lb M a _C
0x2b26e0…2b2874 (4, 71) Dummy {f00=0x00a8, f01=0x0190, f02=» 0 2 * J F " D ! L 0X? 0X_S R LRQ E I - LG$E CI ## L L L E R R@ ,E : : 0 0 0 ! $ 2 & > - <
0x2b2874…2b2a08 Dummy {f00=0x00a8, f01=0x0190, f02=» ^ a0 l 6 . p 4 > u0 N J F " D @ _ _ C @'_ A'_ @'W I A$ R?R L a I" _ 0X? 0X_ ELA" " ` 6 . 0 _ 0 _ SUBTOTAL
0x2b2a08…2b2b9c Dummy {f00=0x00a8, f01=0x0190, f02=» @ 0X? _ $ A 0X L+ L A A L R R R L@ A " R ?R a L?R J 0 l T ~ 0 & & & & J F " D L R L T
0x2b2b9c…2b2d30 Dummy {f00=0x00a8, f01=0x0190, f02=» ! & ( * " ,0 2 6 D 80 T > f @0 v J F " D T" R9 T R: T R; T R< T R= T RD 4 L R L 4 hE R L5 TF R F H0 R N
0x2b2d30…2b2ec4 Dummy {f00=0x00a8, f01=0x0190, f02=» p0 R v x0 R " ~ 4 0 R D J F " D @L6 T> R L7 T6 R L8 T. R L9 T& R L: T R L; T R L< T R L= T R V 8 0 T 8 2
0x2b2ec4…2b3058 Dummy {f00=0x00a8, f01=0x0190, f02=» & VOLUME= & U & { , & { < & DATASET= J & A ` & v r ( f & v KOMMUNE NR $ & A ZZZZ " y
0x2b3058…2b31ec Dummy {f00=0x00a8, f01=0x0190, f02=» & { & A & { " & { 2 $ DSN02 DSN03 DSN049 @ $ h & x & A & v & A & v & A & v & v , ( & DSN05
0x2b31ec…2b3380 Dummy {f00=0x00a8, f01=0x0190, f02=» A & v & A & v 0 ( @ . L & v 99 j " | & MASKIN NRD $ & A 999E " a &
0x2b3380…2b3514 (4, 72) Dummy {f00=0x00a8, f01=0x0190, f02=»R | $ & h 99 , " > & N EKS.LBNR $ v & ZZZZ9= " ( & VOLUME NR $
0x2b3514…2b36a8 Dummy {f00=0x00a8, f01=0x0190, f02=»E-99 " z & DAG NR * $ @ & f P ZZZE b " g v ( & VOLUME NR $ & OK & ? &
0x2b36a8…2b383c Dummy {f00=0x00a8, f01=0x40d8, f02=» ( & KORREKT . $ K F & ? V & d $ K r ( 0 + ) LD 4 " @ 0X L R _ 0X R4 @ & OK & ? &
0x2b383c…2b39d0 Dummy {f00=0x00a8, f01=0x0190, f02=» : H IDENT DKSUBS TRA 4.2 80-08-08 F1 O1111 02.01.XXX.1 @ < ASSG BACKUP ERDK GETBIT RADEL RAREAD RAWRIT RGREAD B RSTORES SQREADA SQWRIT0 $$$TRAB F B ASSGR BACKUPA D ERDK0 g GETBIT RADEL RAREAD1 B RAWRIT . * R
0x2b39d0…2b3b64 Dummy {f00=0x00a8, f01=0x0190, f02=»:DSC1R T:READS T:RREA, T:RWRII T:WRITA | T:XSTA WRITJTP . 0 H 0 Z l ! | 5 ASSIGN 7 J F " D Iv H{ I! L( H! L!0X 0X I HP ) L R 4 J0
0x2b3b64…2b3cf8 Dummy {f00=0x00a8, f01=0x0190, f02=» D @4 L0X Q P R I 0X @ 4 R ! L"! L ) LH @ L " l ~ 0 0 0 0 J F " D RA A RL@ )W 4 0X
0x2b3cf8…2b3e8c Dummy {f00=0x00a8, f01=0x0190, f02=» 0 J F " D " I 0X 0X Q P R 4 4 I 0X 0X Q P d g t $ 3 < g J F " D R L 4 4 0X P Q R I 0X 4 I 0X Q P R L
0x2b3e8c…2b4020 Dummy {f00=0x00a8, f01=0x0190, f02=» R R 0 " , 2 0 B T d v J F " D T ! L I R T _$ R L X+W* RLA'I R _; L_ I' I 0X W 0X
0x2b4020…2b41b4 (4, 73) Dummy {f00=0x00a8, f01=0x0190, f02=» R TlI R T_W 0X f $ 0 4 B F '0 V , h .0 x 4 < = ? J F " D R L # . I R T ! L W R L T R
0x2b41b4…2b4348 Dummy {f00=0x00a8, f01=0x0190, f02=» @ _5I 0X W 0X @ 4 RLI 0X W 0X @ 4 H 0X _ A I" C@ 0 5 J l | B / 0 / &01 0 /
0x2b4348…2b44dc Dummy {f00=0x00a8, f01=0x0190, f02=» 8 0 A 0 , / > J F " D Lb M Lb M L8R L>R O O L8R_ BC N A & 9 J F " D %<R L hM B hM T b M
0x2b44dc…2b4670 Dummy {f00=0x00a8, f01=0x0190, f02=» 0 0 $ 6 F V J F " D ( T L L L_ h (L L_ 3 RR_ L hM T h ! 0 B
0x2b4670…2b4804 Dummy {f00=0x00a8, f01=0x409e, f02=» & . J F " D Lh ' dM L?R I" ?RI" ?R@ @ 4 @ A 4 @ @ A @ 4 n L @ _ L hM T h ! 0 B
0x2b4804…2b4998 Dummy {f00=0x00a8, f01=0xc05e, f02=» . H IDENT SCREEN TRA 4.2 80-08-11 F1 O1111 $$$TRA 6 H@ Z * R P ENTRY DC1GO * f P* * z P EXT T1GO * P EXT DCTASK * P EXT VDUKB * P EXT PRINT * P EXT SWITCH * " P EXT GETTID GET TASK IDENTITY * ( P
0x2b4998…2b4b2c Dummy {f00=0x00a8, f01=0x0190, f02=» : H IDENT RGFRMT TRA 4.2 80-10-14 F1 O1111 02.01.XXX.1 FMSTYR FRMTSP FRMXSP B $$$TRAF d $ FMSTYR FRMTSPF FRMXSP v T:ATTFF
0x2b4b2c…2b4cc0 Dummy {f00=0x00a8, f01=0x018e, f02=» " 6 " = " @ " K * " P 8 " Y F " d T " i b " p " ~ " " " " " " " " "
0x2b4cc0…2b4e54 (4, 74) Dummy {f00=0x00a9, f01=0x018e, f02=» " " " $ " 2 " @ " N " " j ( x 4 & & HOVEDBOG $ $ t & REGKONTONR
0x2b4e54…2b4fe8 Dummy {f00=0x00a9, f01=0x0190, f02=» & & P XXXXXXXXE-XX & " B & Q R XXXXXXE-XXXX f " & R XXXXXXE-XXXX " ( 4 & &
0x2b4fe8…2b517c Dummy {f00=0x00a9, f01=0x0190, f02=»$ & NR $ . & > BET-ART L $ d & t & S XXXXXXE-XXXX " & T XX " & X
0x2b517c…2b5310 Dummy {f00=0x00a9, f01=0x0190, f02=» $ t & REGKONTONR $ 8 & H LEVERAND V $ n NR ~ $ & YDELSESMODTG $ & & U XXXX
0x2b5310…2b54a4 Dummy {f00=0x00a9, f01=0x0190, f02=» | " ( $ ( 4 E @ & P & ^ 99 n " NORMALPOSTX $ & M/P-NR $ tM & ! REGKONTONR
0x2b54a4…2b5638 Dummy {f00=0x00a9, f01=0x018e, f02=» M & # HOVEDBOG $ #M 2 $ tM B & R & ` & n $ |M | & $ M & $ BKON $ $M & $ zM &
0x2b5638…2b57cc Dummy {f00=0x00a9, f01=0x018e, f02=» & & M ' 99 & " ' M 8 ( NORMALPOST H $ (M d $ tM t & ) REGKONTONR $ )M & $ ~M & & M &
0x2b57cc…2b5960 Dummy {f00=0x00a9, f01=0x0190, f02=» & & $ uM $ ( 4 + a @ & P & *M ^ , 99 n " , M & DEBITORINDB $ tD & & - CPR/CIR/NR $ -D &
0x2b5960…2b5af4 (4, 75) Dummy {f00=0x00b8, f01=0x0190, f02=» & & 0 DEBITORN & $ 0 > 1 POST. N $ 1 d $ t t & & & $ | & 2 ]R $ 2 & $ z
0x2b5af4…2b5c88 Dummy {f00=0x00b8, f01=0x0190, f02=» 4 DEB $ 4 & " 5 BFO 0 $ 5 D & T $ b $ r $ $ u ( 6 [ & & ' 7 99 " 7 & SD-
0x2b5c88…2b5e1c Dummy {f00=0x00b8, f01=0x018e, f02=» $ 9S & $ S " & M 2 : XX D " : V & : f & t & ; DEBITORS $ ; < POST. $ < $ t & &
0x2b5e1c…2b5fb0 Dummy {f00=0x00b8, f01=0x018e, f02=» & $ ] $ ] " $ u] 2 ( B = " N & ^ > 99 l " > ] ~ & SALDOOVERF $ tS & ? REGKONTONR $ ?S & $ ~S
0x2b5fb0…2b6144 Dummy {f00=0x00b8, f01=0x018e, f02=» & & S A 99 " " A S 4 B BRILLEO D $ BS C POST. l $ CS $ tS & D REGKONTONR $ DS & E LEVERAND $ ES
0x2b6144…2b62d8 Dummy {f00=0x00b8, f01=0x0190, f02=» & S & G HOVEDBOG & $ GS > $ tS N & ^ & l & z $ |S & $ S & H BKOO $ HS & $ zS
0x2b62d8…2b646c Dummy {f00=0x00b8, f01=0x0190, f02=» $ S $ S $ uS ( ( 8 K D & T L 99 b " L S t M PRIMO $ MS N SALDOV $ NS $ tS & O REGKONTONR
0x2b646c…2b6600 Dummy {f00=0x00b8, f01=0x0190, f02=»$ uS ( P B & * & S 8 Q 99 H " Q S Z R REMITTERING j $ RS $ tS & S REGKONTONR $ SS & T LEVERAND $
0x2b6600…2b6794 (4, 76) Dummy {f00=0x00b9, f01=0x018e, f02=»US $ tS & & ( & 6 $ |S D & T V FAKTNR FAKTDATO b $ VS & $ S $ S & W LEVKONTO $ WS &
0x2b6794…2b6928 Dummy {f00=0x00b9, f01=0x0190, f02=» ( Y J & $ & S 2 Z 99 B " Z S T [ REMITTERING d $ [S BRILLEE $ S $ tS & ] REGKONTONR $ ]S &
0x2b6928…2b6abc Dummy {f00=0x00b9, f01=0x018e, f02=»$ S $ S & & S , & < ` REMITTERING J $ `S f $ tS v & & & $ |S & a FAKTNR FAKTDATO $ aS &
0x2b6abc…2b6c50 Dummy {f00=0x00b9, f01=0x0190, f02=» & $ zS & & $ S 4 $ S D $ S T $ uS d ( t d 4 & e 99 " e S & POST T/GL. ]R $ tP & f REGKON
0x2b6c50…2b6de4 Dummy {f00=0x00b9, f01=0x0190, f02=» & $ P & & h XXXXXXE-XXXX : " h V & h f & h t $ u ( i C & j 99 " j k DIVERSE $ k
0x2b6de4…2b6f78 Dummy {f00=0x00b9, f01=0x0190, f02=» $ n & & L " o XXX 4 " o H & N X p XXXXXXXXE-XX j " p & O q XXXXXXXXE-XX " q & q $ | & r
0x2b6f78…2b710c Dummy {f00=0x00b9, f01=0x0190, f02=» & s $ u ( t * & : & H ( V u b & r & & v ****9/ " v & & & & w ZZ
0x2b710c…2b72a0 Dummy {f00=0x00b9, f01=0x018e, f02=» ( z { VAL & $ { : & J & R X ( f | r } BE $ } & L & & B ( ~ & XX
0x2b72a0…2b7434 (4, 77) Dummy {f00=0x00b9, f01=0x0190, f02=» & XX ( " : ( J V & f TTTTTTTVTTX,XX- z " ( & XXVXXVXX " (
0x2b7434…2b75c8 Dummy {f00=0x00b9, f01=0x018e, f02=» X " ( ( & 8 X L " ^ ( n z & @ X " ( , & XX "
0x2b75c8…2b775c Dummy {f00=0x00b9, f01=0x0190, f02=» X " ! ( & 2 & B XXXXXXE-XXXX V " r ( & XX " ( & !
0x2b775c…2b78f0 Dummy {f00=0x00b9, f01=0x0190, f02=» TTTTTTTX " " ( 0 < & # L TTTX ` " # t ( & $ XX " $ ( & % &
0x2b78f0…2b7a84 Dummy {f00=0x00b9, f01=0x0190, f02=» X " % ( , 8 & 0 # H TTX " # p ( # & & & & BKO $ # &
0x2b7a84…2b7c18 Dummy {f00=0x00b9, f01=0x0190, f02=» & $ # $ # $ # . $ # > & N PER FRA PER TIL $ # | & $ # $ u# ( ) & & & &
0x2b7c18…2b7dac Dummy {f00=0x00b9, f01=0x018e, f02=» & BFO $ # * & : $ # H $ # X $ # h $ # x & PER FRA PER TIL $ # & MTB $ # &
0x2b7dac…2b7f40 Dummy {f00=0x00b9, f01=0x0190, f02=» ! & ! SIDE 53-2P ! & $ # ! @ ( ! P ! & ! l SIDE 51-3P ! z $ # ! ( ! ! & ! SIDE 53-3P ! $ # ! ( !
0x2b7f40…2b80d4 (4, 78) Dummy {f00=0x00b9, f01=0x018e, f02=» & " & " & " & # " . ARKIV/ " > $ # " T KONTONRR " d $ # " | & " & KONTROLSUM " & " LINIES " $ O " & " & O " &
0x2b80d4…2b8268 Dummy {f00=0x00b9, f01=0x0190, f02=» " XX # " # $ x # * ( # : O # F & # V & # d & # r & # & # & # & 4 # & # & GL. SALDOM # & # LINIE NR #
0x2b8268…2b83fc Dummy {f00=0x00b9, f01=0x0190, f02=» XX # " $ & $ X $ 2 " $ D $ x $ T & $ d & $ r KONTOKORTT $ $ $ & $ LINIE NR $ $ $ & $ & $
0x2b83fc…2b8590 Dummy {f00=0x00b9, f01=0x40ee, f02=» & % & % & FAST % LINIE NR % 2 $ A % J & % Z & T % h XX % z " % $ x % ( % 1XF 4 1XF 4 1XF 4 % % @ % & $
0x2b8590…2b8724 Dummy {f00=0x00b9, f01=0x8190, f02=» $ % & & PER FRA PER TIL & $ & > & & N MTB@ & $ & p & & $ & $ & $ w & ( & & & & SIDE 51-2P & $
0x2b8724…2b88b8 Dummy {f00=0x00b9, f01=0x818e, f02=» SIDE 51-3P & $ ' ( ' * ' 6 & ' F SIDE 53-3P ' T $ ' n ( ' ~ ' & ' FEJL FORMATR ' $ ' ( ' ; ' & ' & '
0x2b88b8…2b8a4c Dummy {f00=0x00b9, f01=0x818e, f02=» $ ( & ( & KONTROLSUM ( " & ( : LINIES ( H $ O ( ^ & ( n & O ( | & T ( XXXXXXXXE-XX ( " ( & T ( TTTTTTTVTTX,XX- ( " (
0x2b8a4c…2b8be0 Dummy {f00=0x00b9, f01=0x8190, f02=» ( & ) & ) & ) $ & 4 ) 2 & ) B & GL. SALDOM ) P & ) h LINIE NR ) v $ L ) & CHECKD ) & ) & p ) TTTTTTTVTTX,XX- ) " ) &
0x2b8be0…2b8d74 (4, 79) Dummy {f00=0x00b9, f01=0x818e, f02=» ) KONTOKORTT * $ * " & * 2 LINIE NR * @ $ * X & * h & * v XX * " * $ z * ( * * & * & * & * & *
0x2b8d74…2b8f08 Dummy {f00=0x00b9, f01=0xc078, f02=» XX + " + $ z + & ( + 6 1XF 4 1XF 4 1XF 4 + B + b@ + t& * v XX * " * $ z * ( * * & * & * & * & *
0x2b8f08…2b909c Dummy {f00=0x00b9, f01=0x018e, f02=» : H IDENT DIVFMT TRA 4.2 80-08-08 F1 O1111 02.01.XXX.1 > : FRMTGP FRMTJT FRMTKT FRMTKV FRMTTA FRMTVO FRMXGP B & " FRMXJTV FRMXKTA FRMXTA0 FRMXVOF $$$TRA B > FRMTGPV ? FRMTJTF FRMTKTM 1 FRMTKV1 * FRMTTAX FRMTVO 8 4
0x2b909c…2b9230 Dummy {f00=0x00b9, f01=0x0190, f02=» , $ - 4 D o T $ d & t + - 2 4 9 ; & @ B 7 J F " D
0x2b9230…2b93c4 Dummy {f00=0x00b9, f01=0x0190, f02=» " " " " * " 8 " F " T " b " p " ~ ( $ $ & $ ( $
0x2b93c4…2b9558 Dummy {f00=0x00b9, f01=0x0190, f02=»X " & $ & ( $ . 8 & H ( V b $ r ( ( $ & & $ & $ * & &
0x2b9558…2b96ec Dummy {f00=0x00b9, f01=0x018e, f02=» $ . & XX " 0 & @ ZZZ N " # b & r ( $ # ( % $ # & $ &# $ *#
0x2b96ec…2b9880 Dummy {f00=0x00b9, f01=0x018e, f02=» $ . BBBZZ " . BBZZ > " R BZZ b " v BBZB " ! ( $ ! ( $ ! $
0x2b9880…2b9a14 (4, 80) Dummy {f00=0x00ba, f01=0x0190, f02=» $ ! $ $! B999 ( " ! < & L & Z $ *! h & x & BZZZZZZZZZZ " & ( & &
0x2b9a14…2b9ba8 Dummy {f00=0x00ba, f01=0x0190, f02=» ( & & . ZZ < " N BZZ.ZZ.ZZZ ^ " x BBX " ! BBX " ! $ . " XXXXXXE-XXXX " "
0x2b9ba8…2b9d3c Dummy {f00=0x00ba, f01=0x0190, f02=» & ' XE-XXE-XXE-XXB " ' 8 & H & V ( XXXXXXE-XXXX f " ( & ) XXX.XXXXX.XXBB " ) ( * + B*.***.***.**9.99-
0x2b9d3c…2b9ed0 Dummy {f00=0x00ba, f01=0x018e, f02=» / BBZZZE-ZZE-ZZZE-ZZ " / ( 0 0 < & L 1 ZZ.ZZ.ZZ Z " 1 r 2 BZZZZZZZZE " 2 ! 3 BZZZZZZZZE " 3 " 4 BZZZZ " 4 # 5 BZZ
0x2b9ed0…2ba064 Dummy {f00=0x00ba, f01=0x0190, f02=» ( * 9 " : $ " < 2 " @ @ " B N " D " S j " Y x " m " ^ " ` " b " " d " j " ( :
0x2ba064…2ba1f8 Dummy {f00=0x00ba, f01=0x018e, f02=» ( = $ % & , > KONTOKORTE : $ >% T & % d ? B*.***.***.**9.99- t " ? % ( @ & A START SUM* $ A% (
0x2ba1f8…2ba38c Dummy {f00=0x00ba, f01=0x018e, f02=» & & * & * & . & VERSNR < F DAGS-DATO P $ FE j & z G POST-DATO $ GE & H MASKIN NR $ HE I EKS.LBNR $
0x2ba38c…2ba520 Dummy {f00=0x00ba, f01=0x018e, f02=» " KzE & L 99E-99E-99 " " L E < & L M 999R Z " M E n & ~ N ***99 " N E & & & 6 2 0 O *VERSURKONTONR KASSEKONTONR PRIMO
0x2ba520…2ba6b4 (4, 81) Dummy {f00=0x00ba, f01=0x018e, f02=» t " Q E R ZZZ.ZZZ.ZZ9.ZZ-B " R E 8 & R H & V & * d ( r S ~ $ TE ( T & & * & * & U KASSELUKNING
0x2ba6b4…2ba848 Dummy {f00=0x00ba, f01=0x0190, f02=» $ WE & X KREDIT " $ XE 8 ( H Y T $ ZE d ( t Z & [ ZZ " [ E " BBZZZ.ZZZ.ZZZ.ZZ9.99-O " S " ] BBZZZ.ZZ
0x2ba848…2ba9dc Dummy {f00=0x00ba, f01=0x0190, f02=» a SLUT TESTT $ a ( 0 b < & L c DISKETTE SKIFT Z $ c x ( d & $ e ( e $ $ f BZZZ " f
0x2ba9dc…2bab70 Dummy {f00=0x00ba, f01=0x018e, f02=» ( j & i & k 99BR 4 " k H & X l 99 f " l x ( m $ n ( n & & DIVERSE FORMATER (
0x2bab70…2bad04 Dummy {f00=0x00ba, f01=0x0190, f02=» " u " ~ " $ " 2 " @ " N " " j " x " " " " " " ( p $ qI
0x2bad04…2bae98 Dummy {f00=0x00ba, f01=0x0190, f02=»" s & t B**B " t 0 $ & @ $ P ( ` u l $ v | ( v $ & w ******E-**** " w & * &
0x2bae98…2bb02c Dummy {f00=0x00ba, f01=0x0190, f02=»B**B " z & ! { BZZZZZZZZBB* , " { ! H & X & f | BBZZ.ZZ.ZZBBBR v " | & } ZZZZ9999.99B " } " $ ," $ " (
0x2bb02c…2bb1c0 Dummy {f00=0x00ba, f01=0x0190, f02=» $ " B99.99.999 " " . & > 99 L " " ^ B999 n " " BZZZZZZZZZZB " & & * $ (
0x2bb1c0…2bb354 (4, 82) Dummy {f00=0x00ba, f01=0x0190, f02=» ( ( , 8 ( H T ( d p ( ( ( ( (
0x2bb354…2bb4e8 Dummy {f00=0x00ba, f01=0x0190, f02=» & 999B " * $ : B99.99.99Z J " d & t 99 " ( B999.99.999.99B " *.***.***.**9.99
0x2bb4e8…2bb67c Dummy {f00=0x00ba, f01=0x0190, f02=» " & J B999B " 4 99BS D " X ( h t $ B*.***.***.**9.99- " & & ( B9
0x2bb67c…2bb810 Dummy {f00=0x00ba, f01=0x018e, f02=» & $ & B*.***.***.**9.99- " " D & T & b $ ! p ( & + & 999B " $ B99.99.99*
0x2bb810…2bb9a4 Dummy {f00=0x00ba, f01=0x0190, f02=» x " XX.XXPPO " 0 BXBS @ " T ( d p & XX " & XX " E-9999999999B9 "
0x2bb9a4…2bbb38 Dummy {f00=0x00ba, f01=0x0190, f02=» & & ( , & < ****9 L " b & r ****9 " ( * " m " " " "
0x2bbb38…2bbccc Dummy {f00=0x00ba, f01=0x0190, f02=» " " " " . ( < H $ X ( h t & + & ARKIV $ $ . & & *.***.***.**
0x2bbccc…2bbe60 Dummy {f00=0x00ba, f01=0x0190, f02=» + $ ( & $ 6 & F & 0 T $ b ( r ~ $ ( $ & & 0 & 0 & 0 & 0
0x2bbe60…2bbff4 (4, 83) Dummy {f00=0x00c5, f01=0x0190, f02=» B99.99.99B " $ ****9 4 " J -E Z $ l $ | & TOTAL $ *.***.***.**9,99+- " & (
0x2bbff4…2bc188 Dummy {f00=0x00c5, f01=0x0190, f02=»BB99.99.99 " BBZ999 " " y 8 BB****9. H " ` & - p $ - & & & & & & 2 & * & * & *
0x2bc188…2bc31c Dummy {f00=0x00c5, f01=0x018e, f02=»OS & DEBET $ E . & > KREDIT L $ E b ( r ~ $ E ( & 2 BXXX.XX.XXX.XXB9 " &
0x2bc31c…2bc4b0 Dummy {f00=0x00c5, f01=0x018e, f02=» " BBZZZ.ZZZ.ZZZ.ZZ9.99- ! " i T ! . ( ! @ ! L $ ! ( ! l ! x & 2 ! ZZ ! " ! " BBZZZ.ZZZ.ZZZ.ZZ9.99- ! " ! " BBZZZ.ZZZ.ZZZ.ZZ9.
0x2bc4b0…2bc644 Dummy {f00=0x00c5, f01=0x0190, f02=» ! 9 " & 4 " & TOTALS " & " BBZZZ.ZZZ.ZZZ.ZZ9.99- " : " " ` " BBZZZ.ZZZ.ZZZ.ZZ9.99- " p " " " BBZZZ.ZZZ.ZZZ.ZZ9.99- " " " & " & 4 " & SUPL " "
0x2bc644…2bc7d8 Dummy {f00=0x00c5, f01=0x0190, f02=»9.99- " x " L # & # & 2 # . & KORL # < & # N " BBZZZ.ZZZ.ZZZ.ZZ9.99- # " L # " BBZZZ.ZZZ.ZZZ.ZZ9.99- # " L # ( # # $ # ( #
0x2bc7d8…2bc96c Dummy {f00=0x00c5, f01=0x0190, f02=»- # t " P $ & $ & $ ( & 2 $ 6 & BEV $ D " BBZZZ.ZZZ.ZZZ.ZZ9.99- $ V " $ | " BBZZZ.ZZZ.ZZZ.ZZ9.99- $ " $ " BBZZZ.ZZZ.ZZZ.ZZ9.99- $ " $ & $
0x2bc96c…2bcb00 Dummy {f00=0x00c5, f01=0x0190, f02=» $ ( % * % & % $ & % 2 999B % @ " L % T B99.99.99. % d " L % ~ & % BEHOLDNINGST[LLERE % $ L % & % & % & % & %
0x2bcb00…2bcc94 (4, 84) Dummy {f00=0x00c6, f01=0x0190, f02=» L % & & BEV.PERIODET & $ L & 4 & & D SALDO & R $ L & h & & x ( & & $ L & ( & & & 2 & ZZ & " L & & &
0x2bcc94…2bce28 Dummy {f00=0x00c6, f01=0x0190, f02=»99- & v " c I ' ( ' ' * & 2 ' : & ' H ( ' V ' b & ' r $ ' ( ' ' & $ ' & < ' & < ' & < ' & ] ' & N ' & N '
0x2bce28…2bcfbc Dummy {f00=0x00c6, f01=0x0190, f02=» ' ( ( ( & + ( ( 99E-99E-99 ( 6 " ( P & ( ` $ ( n & ( ~ B*.***.***.**9E,99 ( " ( & * ( & ( ZZ999999 ( " ( &
0x2bcfbc…2bd150 Dummy {f00=0x00c6, f01=0x0190, f02=»- ( t " ) " BBZZZ.ZZZ.ZZZ.ZZ9.99- ) " ) @ ( ) P ) $ ) l $ ) | ( ) * ) " p ) " u ) " ) " ) " u ) " p ) " u )
0x2bd150…2bd2e4 Dummy {f00=0x00c6, f01=0x0190, f02=» ) * * " * " * & " * 4 " * B " * P " * ^ " * l " * z " * " * " * ( * * ( * * $ p * $ ! *
0x2bd2e4…2bd478 Dummy {f00=0x00c6, f01=0x0190, f02=» * $ + ( + + * $ + : $ + J & + Z XX.XXPPZ + j " + BXXO + " + & + $ + ( + + $ + ( +
0x2bd478…2bd60c Dummy {f00=0x00c6, f01=0x0190, f02=» + " , B**O , " , , & , < & , J B**O , X " , l $ , | ( , ! , & , & , & , & , " *.***.***.**9.99-. ,
0x2bd60c…2bd7a0 Dummy {f00=0x00c6, f01=0x0190, f02=»( , * & - " ' - ( - ( ' - 4 $ ( - D ( - T ( - ` & + - p ) BB99.99.99 - ~ " ) - & - * *.***.***.**9.99-. - " * - & - + TRP -
0x2bd7a0…2bd934 (4, 85) Dummy {f00=0x0111, f01=0x018e, f02=» - " 4 . " . " 6 . $ ( . 2 . . > & . N & . & . j & * . x & . ( . / . $ 0 . ( . 0 . & 0 . & . 1 *.***.**
0x2bd934…2bdac8 Dummy {f00=0x0111, f01=0x4190, f02=» . & / ( / 4 / " & + / 2 5 Z.ZZZ.ZZZ.ZZ9.99-B / @ " 5 / b & / r ( / 6 / & / & / & / & / & / & / & / ( /
0x2bdac8…2bdc5c Dummy {f00=0x0111, f01=0x018e, f02=» : H IDENT SUBAPL TRA 4.2 80-08-08 F1 O1111 02.01.XXX.1 B > CLRSW SELTR SETDEB SETKRE SPAPPL SPCHK1 SPCHK2 SPCHK3 B . * SPCHK4B SPCHK5A SPCHK60 SPCHK7F SPTCHK $$$TRAS > : CLRSW ; SELTR K SETDEB0 - SETKRES SPAPPL. [ SPCHK1
0x2bdc5c…2bddf0 Dummy {f00=0x0111, f01=0x0190, f02=» h , > P 0 b $0 t (0 8 ; > J F " D % LL% LB! L ) L: L L I ! L* Lb
0x2bddf0…2bdf84 Dummy {f00=0x0111, f01=0x0190, f02=» p0 t }0 1 . 0 1 @ J F " D @ L L ! L L 4 L Lb # L % L Lb # L % R 0 0 0
0x2bdf84…2be118 Dummy {f00=0x0111, f01=0x0190, f02=» 0 0 0 $ 6 H 0 X J F " D # L&! L" L 2 % L " 3 $ 4 4 L4 4 R ! L j T =
0x2be118…2be2ac Dummy {f00=0x0111, f01=0x018e, f02=» J F " D @ W L" t _+J .W 4 # L*H @ , W H @ , ( R b r =
0x2be2ac…2be440 Dummy {f00=0x0111, f01=0x0190, f02=» $ 4 D T d t
0x2be440…2be5d4 (4, 86) Dummy {f00=0x0111, f01=0x0190, f02=» $ 4 D T d t ]
0x2be5d4…2be768 Dummy {f00=0x0111, f01=0x0190, f02=» $ 4 D T d $ t 7 < S
0x2be768…2be8fc Dummy {f00=0x0111, f01=0x018e, f02=» $ 4 D T d t + X
0x2be8fc…2bea90 Dummy {f00=0x0111, f01=0x018e, f02=» J F " D RRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRR R d v * 5 7 : < J F " D % L^ LT. R 6
0x2bea90…2bec24 Dummy {f00=0x0111, f01=0x0190, f02=» b k ( m : p J r {0 0 l 0 0 ~ J F " D @% L A LR A L9R@ ?R@ ?R ?R L8R L8R I # L W % 0
0x2bec24…2bedb8 Dummy {f00=0x0111, f01=0x018e, f02=» ; $ J F " D L W O O L L?R! L ! L ! L L?R RW R A A R L? , 0 Q z 0 Q 0 R J F " D R@ ) L A ) L ! Lj! Lf b N L
0x2bedb8…2bef4c Dummy {f00=0x0111, f01=0x0190, f02=» 70 @ J F " D :hN Lb N ) L, L Lb N ! L % L ! L W ! L W I ( B v D G K N } J F " D @L?R?R! L ! L ?R b
0x2bef4c…2bf0e0 Dummy {f00=0x0111, f01=0x0190, f02=» 0 " 0 4 F V h 0 9 ! x J F " D L?R % L Lb L" ?R L?R # L % L ?R L?R # L 0
0x2bf0e0…2bf274 (4, 87) Dummy {f00=0x0111, f01=0x018e, f02=» 51 , c > N c ` J F " D % L ?R L?R L L:R?R L % L L:R L L ?R L:R p 0 0 0
0x2bf274…2bf408 Dummy {f00=0x0111, f01=0x0190, f02=» 9 ; > & J F " D L " t % L t !e L ?R L?R L LI L?R L?R L?R L 8 D d P R U X [ _ c
0x2bf408…2bf59c Dummy {f00=0x0111, f01=0x0190, f02=» J F " D @ L t e L?R L L% L ! L L?R R R<R?R L8R L8R f x 0 t 0 2
0x2bf59c…2bf730 Dummy {f00=0x0111, f01=0x018e, f02=» J F " D L?R L L# L L?RA % L A # L @ W @ R<R?R L L) L L R<R b r 0 L 0 2 K
0x2bf730…2bf8c4 Dummy {f00=0x0111, f01=0x0190, f02=» J F " D ?R L LV% L! LA % L A # L @ W @ R<R L?R L?R L L) L L 0 Q R 0 R d K v # %
0x2bf8c4…2bfa58 Dummy {f00=0x0111, f01=0x0190, f02=» J F " D ! L ! L R<R?R L_ L L ! L L?R LT R ?R L?R L L E X G j J z M R U $ X ^ 51 ` c 52
0x2bfa58…2bfbec Dummy {f00=0x0111, f01=0x018e, f02=» ~ J F " D @ L L?R L L_ L L LI L?R L?R L?R@ @ L L?R L<R L? & 0 t 0 0
0x2bfbec…2bfd80 Dummy {f00=0x0111, f01=0x0190, f02=» 0 0 0 ( 0 : L J F " D L L b b L L L$ L" W L L?R < ( 8 < J F " D r # L r r
0x2bfd80…2bff14 (4, 88) Dummy {f00=0x0111, f01=0x0190, f02=» J F " D @ t t W LW ! L LT L L Lb L j | 0 0 0 0 0 0
0x2bff14…2c00a8 Dummy {f00=0x0111, f01=0x0190, f02=» 0 0 $ 6 0 H Z j 0 z J F " D WQ # L LWE LW@H ! L L R RA , W&H L R RA I
0x2c00a8…2c023c Dummy {f00=0x0111, f01=0x417a, f02=» 8 J F " D , LW $ 4 L L L L4 L L L L4 M ^ Q p U Y ` d - J F " D @ + 4 ! LJ! L ! L L 4 RW R 6 W 6
0x2c023c…2c03d0 Dummy {f00=0x0111, f01=0x0190, f02=» : H IDENT KMDIO TRA 4.2 80-08-08 F1 O1111 02.01.XXX.1 B > CLEAR8 CRKJ CRVO EDATNR GRASPV LINOPT WCHECK WRITFD B & " WRITIDD WRITJTA WRITVO0 WTALLYF $$$TRA > : CLEAR8D v CRKJA CRVO0 EDATNR GRASPV. g LINOPT p B >
0x2c03d0…2c0564 Dummy {f00=0x0111, f01=0x0190, f02=» D @ SPCHK5 SPERR SPLIN8W T:DELA T:DSC0L T:DSC1V T:EDWRA T:TEST T:WAITA L ^ n ~ & , / J F " D H* R H* 4 H 0X _ A @! 0 R A)!BL @)aMFaMF B hM L
0x2c0564…2c06f8 Dummy {f00=0x0111, f01=0x018e, f02=» bM T ! $ 0 4 0 F X j 0 z J F " D _7bM L bM f A! R LMCTUK 0 C EL_ LbM R 0 0
0x2c06f8…2c088c Dummy {f00=0x0111, f01=0x0190, f02=» H 0 0 0 , '0 > /0 B P 30 B b 80 G t <0 G A0 I J F " D 0 E A*@ A 4 @ # L FL# L ) L A 4 # L FL_ # L FL_ # E0 E
0x2c088c…2c0a20 Dummy {f00=0x0111, f01=0x0190, f02=» J F " D @ L FL_ FL_"4 0X 0X I $ " RW R I 0X 0X P R A 4 0X $ Z $ j z & & (
0x2c0a20…2c0bb4 (4, 89) Dummy {f00=0x0116, f01=0x018e, f02=» D 4 0X 0X 0X 4 1X F4 1X F4 I } R R@ R # L WW L 6 L # n ~ % g
0x2c0bb4…2c0d48 Dummy {f00=0x0116, f01=0x0190, f02=» ( 8 H + X / g h 1 v x 6 ; @0 J F " D R'W L4 0X 0X R0X 4 I RT 4 I A R R R 0X 0X
0x2c0d48…2c0edc Dummy {f00=0x0116, f01=0x0190, f02=» k t " y $ } . @ J F " D @L% L 4 I 0X 0X L R 0X 0X A 4 0X 0X 4 I 0X T$0X ! L ) R 0 Z
0x2c0edc…2c1070 Dummy {f00=0x0116, f01=0x0190, f02=» J v $ FEJL ( OPSTART < DISKETTE SKIFT T KONVERTERING r DATATRANSMISSION BACKUP O J F " D X 4 _6 R4 0X 6
0x2c1070…2c1204 Dummy {f00=0x0116, f01=0x0190, f02=» $ ( + ( 8 = J J F " D R R0X : M RL# L R R0X ( Lb M W ( ( Lb R T O U X _
0x2c1204…2c1398 Dummy {f00=0x0116, f01=0x0190, f02=» J F " D @ M W " L xa F RL% L % L R R0X W # L R R0X 4 L0X R b & ) r & & & & & & & (
0x2c1398…2c152c Dummy {f00=0x0116, f01=0x0190, f02=» G 99 " F 99999 , " E B & ! R 99 b " t &01 $ 9999 " y & & &02 $
0x2c152c…2c16c0 Dummy {f00=0x0116, f01=0x415c, f02=» &04 $ 99999 " " 8 ( H T & d $ v 99 " & TTTTTTTTTTTTT9- " & TTTTTTTTTT
0x2c16c0…2c1854 (4, 90) Dummy {f00=0x0116, f01=0x0190, f02=» : H IDENT RGADM TRA 4.2 80-08-08 F1 O1111 02.01.XXX.1 B > hADM ADMRET BCKUP CLBEH CLEDB CLEJ LAMPOF LAMPON RGA120 B @ < RGADM SKIFT SLUTID2 SOPRD STRTID STRTWR0 TCLOSEX TR2GEN WAHEADM WALINEK ZEROB $$$TRAS @ < hADM A
0x2c1854…2c19e8 Dummy {f00=0x0116, f01=0x0190, f02=»TRTWRA TCLOSEB n TR2GENB WAHEADB WALINE ZEROA D @ ABORT ADM600A ASGVOLR BACKUPS CLEAR8S CLSVOL CNFWRT CONFWR @ D @ CONRDXA CRKJL CRVOnhCYK DIVTR EMPTYTB FRMTKVN FRMXJTR FRMXSP > : FRMXTAA FRMXVOA GRASPVB INITRGC KORTS KTOPR KTPRT KVI
0x2c19e8…2c1b7c Dummy {f00=0x0116, f01=0x0190, f02=» SQWRIT X @ < SUBTOTAhSUM T:ATTFN T:DELAC T:DSC0L T:DSC1K T:EDWRJ T:KIA > : T:WAITA TCONFRA TCONFWS TRPAGES WRITFDS WRITIDS WRITJTS T WTALLYA X J
0x2c1b7c…2c1d10 Dummy {f00=0x0116, f01=0x018e, f02=» A + X , . L * 2 : 3 J 4 7 Z 90 A j <0 A | @0 A J F " D A 1XF R2 RRRRRRRRRR_ R _ K(!@ A A L1XF R2 RRR_7 L L a F0 J0
0x2c1d10…2c1ea4 Dummy {f00=0x0116, f01=0x0190, f02=» t X u ? w J ( { 8 | H } X J F " D @L ) L L L E R R R RLA A R R A _n A 1XF R2 RRR_ h 0 d
0x2c1ea4…2c2038 Dummy {f00=0x0116, f01=0x0190, f02=» R L + L ^ 0 0 . 0 @ R EJ-EDB T[LLER d J F " D L " t Q t e L i ! L L L R 6 t 0
0x2c2038…2c21cc Dummy {f00=0x0116, f01=0x0190, f02=» | >0 A J F " D i LL L L R "_] L R L L L LA B h J , x M0 b0 k o0 r VERSUR KONTONR REMIT u0 E
0x2c21cc…2c2360 Dummy {f00=0x0116, f01=0x0190, f02=» G N 0 O 0 O , 0 O > P h ` p *O p J F " D L R R L L a L@ E R R R @ L RL
0x2c2360…2c24f4 (4, 91) Dummy {f00=0x0117, f01=0x0190, f02=»R | J F " D t t " i L i L_ L L 4 L L t X 0 h 0 z ,0 00 3 80 % : = J F " D D R L L " t
0x2c24f4…2c2688 Dummy {f00=0x0117, f01=0x0190, f02=» N R0 V0 Z0 2 `0 D c0 V J F " D @:0X 4 L RL R L L LI L L " W h 2 0 2 3
0x2c2688…2c281c Dummy {f00=0x0117, f01=0x0190, f02=» L L R R P RL R b : 0 J F " D _g R R " _ @ 0 R $0 R '0 R 60 R :0 R J F " D I / % L W
0x2c281c…2c29b0 Dummy {f00=0x0117, f01=0x0190, f02=» SLET SALDO J F " D @ R 0X 4 L r P r 1XFA R6 _.K 1 " SLET PERIODE p SUBTOTAL 0 U 0 U 0 U ( ^
0x2c29b0…2c2b44 Dummy {f00=0x0117, f01=0x018e, f02=»0 & ` 0 , 0 > 0 P 0 b t J F " D r " < c L c c R"0X I 6 W c L c L L LE0X 0 % & `
0x2c2b44…2c2cd8 Dummy {f00=0x0117, f01=0x0190, f02=» + , - $ . 4 / D 0 T 1 d 2 t 3 # 4 ? 5 A 6 C 7 | 8 9 : #
0x2c2cd8…2c2e6c Dummy {f00=0x0117, f01=0x018e, f02=» D E F $ G 4 H D J F " D L_d R&0X 0X 4 I 4 LH L 2 #RRRRRRRRRRRRRRRRRRRRRRRRRR T R U Y l Z p [ t ]
0x2c2e6c…2c3000 Dummy {f00=0x0117, f01=0x0190, f02=» X ( L $ : 4 0 R D X V ( f L v J F " D @ ?RA I I VI SA A 1XF R6 DD _ R L c c @ A 1XF R6 0 R p
0x2c3000…2c3194 (4, 92) Dummy {f00=0x0117, f01=0x0190, f02=»@ @ ?R?R?RA(@ C <R <R A <RA h X & 6 L F x V x f v 0 0 @ 0 % n ) ,
0x2c3194…2c3328 Dummy {f00=0x0117, f01=0x0190, f02=» R2 RRR_$I EL RE EL R LMC 8 R R R C EL RLI RL RL A w B B R D w d E t G K W L U M U N l O ` P Y Q U
0x2c3328…2c34bc Dummy {f00=0x0117, f01=0x0190, f02=» p w q s , x < y L { ^ | n ~ w @ J F " D @ RL RL R2 RRRRRRRRRR_ _1K RL0X S @0X RL RL R O RL RL RL
0x2c34bc…2c3650 Dummy {f00=0x0117, f01=0x0190, f02=» ( J F " D L R LM P Rx R W R L LbM ( R LMTd@' L C C L > j 0 z 0 SLUTDR &04T J F " D R LM CTbI'_! L L
0x2c3650…2c37e4 Dummy {f00=0x0117, f01=0x018e, f02=» R !0 & n 2 * ( B , n R 2 X b 3 r 5 J J F " D bM R LMX RL RL_ R LM R ?R R A 1XF R6 Z0 a
0x2c37e4…2c3978 Dummy {f00=0x0117, f01=0x0190, f02=» u ( y z ( : J F " D @ _ _ C @'_ A'_ @'W C L R _B R <R RL<RW R <R RL<RW RLA @(? J 8 " L
0x2c3978…2c3b0c Dummy {f00=0x0117, f01=0x0190, f02=» J X S SUBTOTAL ( J @ P ` p
0x2c3b0c…2c3ca0 Dummy {f00=0x0117, f01=0x0190, f02=» X W J 0 J F " D I ]1XFA A L R2 RRR?R 2 RRRRRRRRRRR_' R?R R?R R?R AA 1XF R @ 0 0 1 X z
0x2c3ca0…2c3e34 (4, 93) Dummy {f00=0x0117, f01=0x0190, f02=»F R L?RI %C P @ A 1XF R6 _ A I r W B 0 Y0 R @ c B R e0 R b j0 t m J F " D @ CW S * I , C| R L W , Sp R L L$0R T R P 0 W 0 W
0x2c3e34…2c3fc8 Dummy {f00=0x0117, f01=0x018e, f02=»LA L P j . X > q N J ^ J F " D ( @ L RA @ W @ @ LW H H A _ W C T C T C P @ A 1XF R6 n % B '0 1 B 30 80
0x2c3fc8…2c415c Dummy {f00=0x0117, f01=0x0190, f02=» k r P v ( ( x 8 {0 H ~ K Z J F " D @ R P _: L LA L( @ LI A R R R L L l ^ ` 0 P
0x2c415c…2c42f0 Dummy {f00=0x0117, f01=0x0190, f02=»0X @ W H I I H ^ , X < = L J l P | Z ` J F " D A _ W @ L?RI AH A 1XF R6 11 W/A$ RW)H$&H"# R 0X(K$ R 0X
0x2c42f0…2c4484 Dummy {f00=0x0117, f01=0x018e, f02=»0 - X . 0 L , 4 # < 5 # L 6 9 > l @ | J F " D 0R 0X R0X(0R ?RI A RW @ ?RA A A L1XF R2 RRR_ @ @ ?R? B L : P0 R
0x2c4484…2c4618 Dummy {f00=0x0117, f01=0x0190, f02=» J F " D @R?RI 4 A R L L 1XF R L$6 _, RL?RI X R 8 b L r 0 I 0 I 0 I $ r X
0x2c4618…2c47ac Dummy {f00=0x0117, f01=0x0190, f02=» A 1XF R L 6 _ ?R L L R R1XFA RW @ R2 RRRR! L ! L 0 J $ r l SUBTOTAL | $ r TOTAL $ r X
0x2c47ac…2c4940 Dummy {f00=0x0117, f01=0x018e, f02=»XF R L_W A 0X 1XF J * 0 < ` N ^ X n ~ J - p . 0 h 4 T : p
0x2c4940…2c4ad4 (4, 94) Dummy {f00=0x0117, f01=0x0190, f02=» X X Y [ L ( f0 8 m 6 J q , Z u 2 j y V z } 4 J F " D @L R W H !I LA 1XF R6 _ L W RWX RWT RWP RWL RWH T
0x2c4ad4…2c4c68 Dummy {f00=0x0117, f01=0x0190, f02=» ! ! J F " D RWD0X R R R 2$ 0X R$0X _ 0X W R W R W R W W ! ( ! v ! ! ! 0 ! F ! D ! ` ! A !
0x2c4c68…2c4dfc Dummy {f00=0x0117, f01=0x0190, f02=»R W RW 4 R ?R ) L % L 3 RR1X F R4 1X F R R0X 2 R ! ` " H & " X ` " h 0 " x Z " ! P " )0 " + " . @ " 00 " 4 n " 8 "
0x2c4dfc…2c4f90 Dummy {f00=0x0117, f01=0x0190, f02=» A w " B # D # " J # 2 O # B P # R V0 # d [ # v _ # e0 # g n # k # m p # n # { ^ # J F " D @ RL R
0x2c4f90…2c5124 Dummy {f00=0x0117, f01=0x0190, f02=» # 0 $ < $ $ * J F " D 0X 4 0X GK 4 Rx R LMCT C R CT 4 4 A)!BL @) $ < $ $ $ ( $ $ $ $ 0
0x2c5124…2c52b8 Dummy {f00=0x0117, f01=0x0190, f02=» E aMF4 C EL xL R xL! R $ f w % $ % 4 w % F % V w % h % x w % % % " % # % % w % & % (
0x2c52b8…2c544c Dummy {f00=0x0117, f01=0x0190, f02=»L RL RL RLH RL R6 y ' _ RL RL R LL5LT xL R xL R5 _B % A & H L & X M & h O w & z P & T & ` & b > & d0 & l0 & p SLUTD &
0x2c544c…2c55e0 Dummy {f00=0x0117, f01=0x0190, f02=» & h ' ' ' * ' : w ' L ' ' n 0 ' ~ ' ' ' ' ' ' 0 '
0x2c55e0…2c5774 (4, 95) Dummy {f00=0x0118, f01=0x0190, f02=» ' n ( ( ( , & ( < & ( J B ( " ( n ( ( ~ ( & ) ( & ( & ( & ( & ( & ( & ( & (
0x2c5774…2c5908 Dummy {f00=0x0118, f01=0x018e, f02=» ( & ) KORREKTE ) $ ) 2 & ? ) B & ) P $ ) ^ ( ) n ) z 999999 ) " z ) B99999 ) " ) ( ) ) SLUTD )
0x2c5908…2c5a9c Dummy {f00=0x0118, f01=0x0190, f02=» " y * & 2 * & { * " 999 * 2 " g * F & 1 * V & * d ( * r * ~ & * KLAR * $ * ADM * $ * & * ZZ *
0x2c5a9c…2c5c30 Dummy {f00=0x0118, f01=0x0190, f02=»E]BNINGG * $ + & + & + . DAGS-DATON + > $ + X & + h 99E-99E-99 + z " z + & + DAG NR + $ + & f + ZZZ + " g +
0x2c5c30…2c5dc4 Dummy {f00=0x0118, f01=0x0190, f02=» DAG NR + $ , & k , & ZZZ , 8 " , L ( , ! ( , h & , x & , " ADM , $ " , & , # EJ-EDB T[LLER , $ # , & ,
0x2c5dc4…2c5f58 Dummy {f00=0x0118, f01=0x018e, f02=» & ZZZ , " & - & - & - 0 ' 99999999E-99 - B " 'e - ^ ( - n ( F - z & ' - & - ) ADM - $ ) - & - * BEHOLDNINGST[LLERE - $ * -
0x2c5f58…2c60ec Dummy {f00=0x0118, f01=0x018e, f02=» - $ - . & . & . & & e . 6 . ZZ . H " . . Z & . j & . x & . & . & . / ZZZZZZZZE-ZZ . " / . & . & . &
0x2c60ec…2c6280 Dummy {f00=0x0118, f01=0x0190, f02=» & / 2 ADM / $ 2 / ( & / 8 3 KASSE-KONTO / F $ 3 / b & / r 4 KONTONRO / $ 4 / & / 5 SALD0 / $ 5 / & / & / & /
0x2c6280…2c6414 (4, 96) Dummy {f00=0x0118, f01=0x0190, f02=»$ / ( 0 8 0 & 0 * 9 ADM 0 8 $ 9 0 L : VERSUR KONTONR REMIT 0 $ : 0 & 0 ; KONTONRK 0 $ ; 0 & 0 & 0 < 99999999E-99 0 " <
0x2c6414…2c65a8 Dummy {f00=0x0118, f01=0x0190, f02=» ? 1 & 1 @ KASSELUKNING 1 " $ @ 1 > & 1 N $ 1 ( 1 l A 1 x & 1 1 B KASSELUKNING 1 $ B 1 & 1 & 1 C ZZ 1 " C 1 & 1
0x2c65a8…2c673c Dummy {f00=0x0118, f01=0x018e, f02=»99 1 ~ " E 2 F BTTT.TTT.TTT.TT9.99- 2 " F 2 > ( 2 N G 2 Z & 1 2 j & 2 x H KASSELUKNING 2 $ H 2 & 2 & 2 ( 2 I + 2 & 2 & 2
0x2c673c…2c68d0 Dummy {f00=0x0118, f01=0x018e, f02=» & 3 L SLET PERIODE 3 $ L 3 0 & 3 @ M DEB 3 N $ M 3 b & 3 r N SLET SALDO 3 $ N 3 & 3 O KRE 3 $ O 3 & 3 P SUBTOTAL 3 $
0x2c68d0…2c6a64 Dummy {f00=0x0118, f01=0x0190, f02=» $ R 4 $ 4 ( 4 $ S 4 0 & 4 @ T KLAR 4 N $ T 4 b $ V 4 r & 4 U ZZ 4 " U 4 ( 4 V 4 & SP 4 & 4 & RGE 4 ( 4
0x2c6a64…2c6bf8 Dummy {f00=0x0118, f01=0x0190, f02=» 4 Z BBZZZ- 5 " Za 5 [ BBZZZ- 5 . " [a 5 D BBZZZ- 5 T " a 5 j ] BBZZZ- 5 z " ]a 5 & ] 5 ^ BBZZZ- 5 " ^a 5 _ BBZZZ- 5 " _a 5 ` BBZZZ-
0x2c6bf8…2c6d8c Dummy {f00=0x0118, f01=0x0190, f02=» " ca 5 d BBZZZ- 6 " da 6 & e BBZZZ- 6 6 " ea 6 L $ 6 ( 6 l f H 6 x & 6 $ V 6 & 6 & * 6 & * 6 g EKS.LBNRS 6 $ g 6 & 6
0x2c6d8c…2c6f20 Dummy {f00=0x0118, f01=0x0190, f02=»XX 6 ~ " j 7 & j 7 k CPR/CIR/NR 7 ( $ k 7 B & m 7 R l XXXXXXE-XXXX 7 d " l 7 & l 7 $ v 7 & n 7 m TTTTTTTVTTX,XX-E 7 " m 7 & m 7 n D
0x2c6f20…2c70b4 (4, 97) Dummy {f00=0x0118, f01=0x0190, f02=» 7 & p 8 $ x 8 ( 8 ( q - 8 4 & 8 D $ V 8 R & 8 b & * 8 r & * 8 r BILAG 8 $ r 8 s EKS.LBNRT 8 $ s 8 & 8 & FRA 8 &
0x2c70b4…2c7248 Dummy {f00=0x0118, f01=0x0190, f02=» u 8 & u 9 $ x 9 ( 9 * v 9 6 w BEL 9 F $ w 9 Z & 9 j & B 9 x ( 9 x 9 & B 9 & Z 9 y B 9 " y 9 ( 9 z ! 9 & y 9
0x2c7248…2c73dc Dummy {f00=0x0118, f01=0x0190, f02=» } SALDO 9 $ } : & : " ~ 99999999E-99 : 0 " ~ : L & : ZZZ.ZZZ.ZZZ.ZZ9.99-- : j " : & : EJ EDB : $ : & : ZZZ.ZZZ.ZZZ.ZZ9.99-- : "
0x2c73dc…2c7570 Dummy {f00=0x0118, f01=0x0190, f02=» & : REGNEFUNKTIONZ ; $ ; , & ; < & ; J & [ ; X TTT.TTT.TTX.XX-. ; l " ; ( ; ; & ; REGNEFUNKTIONX ; $ ; & ; &
0x2c7570…2c7704 Dummy {f00=0x0118, f01=0x0190, f02=» ; & < CHECKCIFFER. < $ < : BEREGNINGE < J $ < d & < t & < BEREGNINGE < $ < & SGRUNDLAG < & < & i < ZZZZZZZZZE-9 <
0x2c7704…2c7898 Dummy {f00=0x0118, f01=0x0190, f02=»$ < & = $ = & = . & = < & = J CHECKCIFFER9 = X $ = t & = FEJL = $ = $ = ( = = & = & = ZZ
0x2c7898…2c7a2c Dummy {f00=0x0118, f01=0x416e, f02=» " > & > ZZZZZZZZZE-9 > " " > > 9B > N " > ` ( > p > | & > LBNR > $ > ***99A > " > & - > & >
0x2c7a2c…2c7bc0 Dummy {f00=0x0118, f01=0x0190, f02=» : H IDENT RGSUBS TRA 4.2 80-08-08 F1 O1111 02.01.XXX.1 > : CYCLRhCYK CYKINT DIVTR ENTER FMTNXT KKCH KKTRP KORT B & " KVITR LSTINTT MODP2 SUBTOT-hSUM $$$TRAC @ < CYCLR hCYK E CYKINTS DIVTR ENTER x FMTNXTX KKCH @ < K
0x2c7bc0…2c7d54 (4, 98) Dummy {f00=0x0118, f01=0x0190, f02=»RMXKT} FRMXSP FRMXTAP FRMXVOF GRASPVK LINOPTO SETDEBM B > SETKREC SLUTE SPCHK5C SPCLRAP SPERR SPINF1F SPLIN8F T:DSC0 > > : T:DSC1} T:EDWR T:ERASP T:TESTF T:WAITK WCHECKO WRITJTM WRITVOC WTALLYS 0 C 0 C
0x2c7d54…2c7ee8 Dummy {f00=0x0118, f01=0x0190, f02=»A 0R P @ H V B D ( & H < 6 I F K } X P $ h S Y x V 0 `0 Y b d f 2 j . ~ , J F " D @ L R_
0x2c7ee8…2c807c Dummy {f00=0x0118, f01=0x0190, f02=» 0 2 , , 8 < . L 6 l | . J F " D H H 0X @ R RH ^H [) LW R 0X 40X R 0X 0X R0X P 0R 0X 8
0x2c807c…2c8210 Dummy {f00=0x0118, f01=0x018e, f02=» 0 $ 0 $ J F " D X W 0X ! L L, L6 L: R0X R 0X L4 - L L ( 0 v 0 0 0 0 0 0 ;0
0x2c8210…2c83a4 Dummy {f00=0x0118, f01=0x0190, f02=» a d K f , h > < k L J F " D @) L R 4 4 H I I H RL L R R L@ 4 4 I MI "
0x2c83a4…2c8538 Dummy {f00=0x0118, f01=0x0190, f02=» K )A R LWQ RTR RTNK d " 4 F V h x " 0 J F " D ( L, LW=( R LW.( R LW ( RT W RT @ ! L
0x2c8538…2c86cc Dummy {f00=0x0118, f01=0x0190, f02=» ! L ( ! L d A " ^ CW 2 a CYKLE D c Z r SY j u STABEL | w J F " D @ R 4 6 * MWW I I A L L RW W I I A L L RW W H I 4
0x2c86cc…2c8860 Dummy {f00=0x0118, f01=0x0190, f02=»RWgWj RWaH LWYW H RI ) L8@ @ R@ 0X t 0 2 TOTAL B X 2 h . x < 0 : (
0x2c8860…2c89f4 (4, 99) Dummy {f00=0x0119, f01=0x0190, f02=» E ;0 >0 . A0 @ J F " D 4 4 H I R 4 R4 A A H " @ WW L L R D0 4 G0 4 I N & Y [ (
0x2c89f4…2c8b88 Dummy {f00=0x0119, f01=0x0190, f02=» 0 0 * . < 0 L J F " D P A I @ 4 L L L L@ @ @ @ 0X 4 I 5I A A L ^ @ LISTE 8 TOTAL
0x2c8b88…2c8d1c Dummy {f00=0x0119, f01=0x0190, f02=»0X L R R0X @ @ L R 4 4 LI CI H TA R > N > ^ 8 n . ~ 0 6 : 8 @ J F " D @ WG R A R A R0X 0X L P
0x2c8d1c…2c8eb0 Dummy {f00=0x0119, f01=0x0190, f02=» h0 l < m & s 8 w , H ~ . X J F " D @R R0X R 4 4 I RL LA L LWL RLI L@ R H 0X h Z 0
0x2c8eb0…2c9044 Dummy {f00=0x0119, f01=0x40b8, f02=» R 0X R0X I K R 4 I l * < L 0 + ) I A A ! L RW RW @ LW 4 4 L n @ Z 0
0x2c9044…2c91d8 Dummy {f00=0x0119, f01=0x0190, f02=» : H IDENT RGSUB1 TRA 4.2 80-12-09 F1 O1111 02.01.XXX.1 2 . FLDIN FLDTST SLUT SUMWRT UPDA12 UPDAKK B $$$TRAS x > : FLDIN FLDTSTS l SLUTM SUMWRT1 UPDA12 M UPDAKK D @ FRMTJTS FRMTVOA FRMXTA0 KTPLANF PACKST SPERR SPINF8 WRI
0x2c91d8…2c936c Dummy {f00=0x0119, f01=0x0190, f02=» 9 = J F " D I , L LH I !) L # L#! L ! L ! L H $ I0 r X0 Z ^ c e f h j
0x2c936c…2c9500 Dummy {f00=0x0119, f01=0x0190, f02=» 0 * J F " D @ A @ @ 4 L L 4 H H I W R 4 ) L < M 0 0 < J F " D RW # L I $ c (c c c L! .
0x2c9500…2c9694 (4, 100) Dummy {f00=0x0119, f01=0x0190, f02=» C0 R d g $ m 4 q D r T s d t t u v w x y z { |
0x2c9694…2c9828 Dummy {f00=0x0119, f01=0x0190, f02=» X $ J F " D @L# L W 4 L t i e R 4 R2 RRRRRRRRRRRRRRR 4 0 L RAT 0 A RTE 0 T GEB
0x2c9828…2c99bc Dummy {f00=0x0119, f01=0x0190, f02=» J 0 F 0 V 0 , 0 0 > P b r . J F " D LP LP #L #LW I LP W R ! LT LT W C P %LT
0x2c99bc…2c9b50 Dummy {f00=0x0119, f01=0x018e, f02=» J F " D %L %LW R !"# LT W 6 W LT W LT L R P LW A R H b M t T Y ` c j m t y0
0x2c9b50…2c9ce4 Dummy {f00=0x0119, f01=0x0190, f02=» & 8 J n J F " D ! L8) #L8W1) L R()* ) L') L ) L ! L ) #L W ! L ) #L W
0x2c9ce4…2c9e78 Dummy {f00=0x0119, f01=0x40ac, f02=» ( : F B @ 4 4 L! L,! L L! L ! L L! L ! L L! L ! L L4 L @ L8) #L8W1) L R()* ) L') L ) L ! L ) #L W ! L ) #L W
0x2c9e78…2ca00c Dummy {f00=0x0119, f01=0x4186, f02=» : H IDENT RGSUB2 TRA 4.2 80-08-08 F1 O1111 02.01.XXX.1 PACKCL PACKST B $$$TRAS PACKCL / PACKST n CYTRP EMPTYTT 0 E %0 E 0 A J F " D 0R
0x2ca00c…2ca1a0 Dummy {f00=0x0119, f01=0x0190, f02=» : H IDENT RGSUB3 TRA 4.2 80-08-08 F1 O1111 02.01.XXX.1 6 2 ASGVOL CLSVOL CYLINE CYOUT CYRD CYTRP CYWRT B $$$TRAS | D @ ASGVOL CLSVOLC N CYLINEO CYOUT CYRDC CYTRP M CYWRT B > ASSGR CLEAR8T CRVO2 FRMXVO- GRASPV1 RAREAD. RAW
0x2ca1a0…2ca334 (4, 101) Dummy {f00=0x0119, f01=0x018e, f02=» , . : J F " D 6 29;( 9 R W: R T3 R T, R T%H " SL R T S W R W 0 X ~ ` g k q u J F " D @W W 4 4 6 %
0x2ca334…2ca4c8 Dummy {f00=0x0119, f01=0x0190, f02=» J F " D P , . LHP 0X $ _ AP VL`V R LV T @P 4 @P 4 I , R b r 0 0 0 TRP
0x2ca4c8…2ca65c Dummy {f00=0x0119, f01=0x0190, f02=» " $ &0 , - > / N : ^ J F " D L R RA 4 RA 4 HP 0X _ AP L R LV T 1X F@PW @P R 4 n A D & V (
0x2ca65c…2ca7f0 Dummy {f00=0x0119, f01=0x40ec, f02=»@ L R P RT j ( 8 H TRP X l | 0 R 4 0 . W"@ A R R 0X L R 0X L4 @ & V (
0x2ca7f0…2ca984 Dummy {f00=0x0119, f01=0x0190, f02=» : H IDENT ADM6 TRA 4.2 80-08-08 F1 O1111 02.01.XXX.1 > : ADM600 CHNGDK EXCHAN SENDRC SIGNOF SIGNON STRTRC B TERMINM TRNOK WJDC2 $$$TRA B > ADM600M CHNGDKD EXCHAN- t SENDRC1 i SIGNOFX T SIGNON d * & STRTRC " T
0x2ca984…2cab18 Dummy {f00=0x0119, f01=0x018e, f02=» SPERR T:ATTFG T:DCRER T:DCWR p 6 2 T:DELAM T:DSC1D T:EDWRC T:WAITG WRITIDL WRITJTL & ` p &0 M ( ,0 M . 00 M 6 * : d
0x2cab18…2cacac Dummy {f00=0x0119, f01=0x0190, f02=» I i M 9 O ( P 8 R J S Z W T l Z | ` a c i 2 l o ~ t J F " D @
0x2cacac…2cae40 Dummy {f00=0x0119, f01=0x0190, f02=» 0 ` TRANSMIT 0 2 D , T d v 0 @ J F " D R L h> T 1X F 4 ) L L
0x2cae40…2cafd4 (4, 102) Dummy {f00=0x0119, f01=0x0190, f02=» 0 d @ P ` p @ J F " D RL R6 >4 _ RL RLA 1XF R6 _8 R
0x2cafd4…2cb168 Dummy {f00=0x0119, f01=0x0190, f02=» , # > $ N & ` ' @ p - / 10 90 < * J F " D L 4 RL RL ]W RL RL gW RL 4 RL RL
0x2cb168…2cb2fc Dummy {f00=0x0119, f01=0x018e, f02=» v x0 0 . J F " D @ L LbM ( >La>F L RT RT 4 4 C C L R LM CT @ SLUTDL L !
0x2cb2fc…2cb490 Dummy {f00=0x0119, f01=0x0190, f02=» $ & $ t 4 D t T d J F " D L LdM ( ( m> F_i L C0X 1X F RTF RTB_ RT5 t t *
0x2cb490…2cb624 Dummy {f00=0x0119, f01=0x018e, f02=» T 4 4 >L b H M t 0 Q @ Y P CSSF ` ` t e t l y , { J F " D @ML m> F " RT R4 >L MLm> F RT I R4 4 I 4 L0X
0x2cb624…2cb7b8 Dummy {f00=0x0119, f01=0x0190, f02=» , 5 & " 8 5 H J F " D T L L0X > P R ) L L R RL 4 4 ( >L0X 4 Lh Z ( DFH F J F " D >
0x2cb7b8…2cb94c Dummy {f00=0x0119, f01=0x0190, f02=»$ - MLh> T bM > 1X F )W W+4 B 4 > F P R b ] & t _ h k 4 o 4 w & y + &
0x2cb94c…2cbae0 Dummy {f00=0x0119, f01=0x018e, f02=» " & & KENDEORD " & D 8 TTT9 J " ^ & n ( | & ' $ & CSSN PS= 9999 " S &
0x2cbae0…2cbc74 (4, 103) Dummy {f00=0x011a, f01=0x018e, f02=» & M ( " & 1 2 DATATRANSMISSION @ $ N ` & p ( ~ & & ANTAL RECORDS: ZZZZZ9 " N (
0x2cbc74…2cbe08 Dummy {f00=0x011a, f01=0x408c, f02=» & & M ( F B @ @% L" Lh> L T ML bM > 1X F ML% L LbM > 1X F4 , | v@ & & ANTAL RECORDS: ZZZZZ9 " N (
0x2cbe08…2cbf9c Dummy {f00=0x011a, f01=0x40c2, f02=» : H IDENT ADM6D TRA 4.2 80-08-08 F1 O1111 02.01.XXX.1 ADM600 B $$$TRAM T ADM600 f ADMRETM z ?R @
0x2cbf9c…2cc130 Dummy {f00=0x011a, f01=0x0190, f02=» : H IDENT KTPLN TRA 4.2 80-08-08 F1 O1111 02.01.XXX.1 KTPLAN RESTMK SETMK B $$$TRAP b " KTPLAN RESTMKS SETMK t RAREADP T:DELAA 0 P , 4 9 ;0 J
0x2cc130…2cc2c4 Dummy {f00=0x011a, f01=0x0190, f02=» ~0 x J F " D @F Lj W " % L _1 Lj W @+ 4 @+ L " 0 p x 0 x x J F " D L 4 @+ L 4 Q TF L Lj W T W4 Q +
0x2cc2c4…2cc458 Dummy {f00=0x011a, f01=0x410a, f02=» _ 4 L WL R LW ^ x . > P . b 3 t 50 = J F " D LhW L P R L" QLW# hW L T P L WL R LW Q R4 @ @ @
0x2cc458…2cc5ec Dummy {f00=0x011a, f01=0x40c8, f02=» : H IDENT KTPLND TRA 4.2 80-08-08 F1 O1111 02.01.XXX.1 KTPLAN SETMK B $$$TRAP Z KTPLAN SETMK l 0 L 4 4 @
0x2cc5ec…2cc780 Dummy {f00=0x011a, f01=0x018e, f02=» : H IDENT KTOPR TRA 4.2 80-08-08 F1 O1111 02.01.XXX.1 KTOPR KTPRT B $$$TRAO X KTOPR KTPRT j > : ADMRETO FRMXTAA KTPLAN0 RAREADF RAWRIT RESTMKX SPCLRA < 8 SPCLRN SPERR T:ATTF T:DELA T:EDWR T:WAIT WTALLY
0x2cc780…2cc914 (4, 104) Dummy {f00=0x011a, f01=0x0190, f02=» 1 2 4 ( J F " D I ?R A <RA( A A 1XF R2 RRR_ @) R $ A)@ 1XF R6 _ _0H 8 D0 ? P R0 ? j l0 ? } 0
0x2cc914…2ccaa8 Dummy {f00=0x011a, f01=0x0190, f02=» " 0 2 x D V 0 x f J F " D LW Q x R_| R LW R_ VL L R LV T LjW V R LW T x 0
0x2ccaa8…2ccc3c Dummy {f00=0x011a, f01=0x018e, f02=» 0 0 " DISCFEJL 4 L l % ~ '0 , > x J F " D ! L _ % L ) L L L R?R L WL R LW <R j j Lj
0x2ccc3c…2ccdd0 Dummy {f00=0x011a, f01=0x0190, f02=» y { }0 * J F " D @ W dW S Q R LW T6 R?R( Q QLV Q R LW T R WL L R LW < 0
0x2ccdd0…2ccf64 Dummy {f00=0x011a, f01=0x0190, f02=» 2 B J F " D T8 L L Lj W j W j W L 0X 1X F L0 R R@+_ @ R $ & &
0x2ccf64…2cd0f8 Dummy {f00=0x011a, f01=0x0190, f02=»& ADM $ & 0 DATAS[T > $ V & f REGKONTONR t $ & & KONTONRO $ & BFO $
0x2cd0f8…2cd28c Dummy {f00=0x011a, f01=0x406e, f02=» BBZ9 " & ( ( 6 + R R4 B X@ j f REGKONTONR t $ & & KONTONRO $ & BFO $
0x2cd28c…2cd420 Dummy {f00=0x011a, f01=0x40ce, f02=» : H IDENT KTOPRD TRA 4.2 80-08-08 F1 O1111 02.01.XXX.1 KTOPR KTPRT B $$$TRAO X KTOPR KTPRT j ADMRETO ?R4 @
0x2cd420…2cd5b4 (4, 105) Dummy {f00=0x011a, f01=0x0190, f02=» : H IDENT T:ATC0 TRA 4.2 80-08-11 F1 O1111 02.01.XXX.1 T:ATC0 B T:ATC0A h T > : T:DTC0 D:CB10 C:CB10 D:CB20 C:CB20 D:CB30 C:CB30 h > : D:CB40A C:CB40A D:CB600 C:CB60F D:CD30 C:CB30X D:CD40 > : C:CB40 D:GB10 Z:GB10 D
0x2cd5b4…2cd748 Dummy {f00=0x011a, f01=0x0190, f02=» f z * & * & = a N * & [ | * & y * & * &
0x2cd748…2cd8dc Dummy {f00=0x011a, f01=0x4156, f02=» F 1 d * & - . * & K TC * & g T , ( y , ( " $ & ( *
0x2cd8dc…2cda70 Dummy {f00=0x011a, f01=0x40da, f02=» : H IDENT T:DTC0 TRA 4.2 80-08-11 F1 O1111 02.01.XXX.1 T:DTC0 B T:DTC0D T REGGO h * & TC * x * * @ , ( " $ & ( *
0x2cda70…2cdc04 Dummy {f00=0x011a, f01=0x018e, f02=» : H IDENT T:AKA0 TRA 4.2 80-08-11 F1 O1111 02.01.XXX.1 T:AKA0 B T:AKA0A T . * T:DKA0 D:CB90 C:CB90 D:TB90 Z:TB90 h * & @ * & P * & =
0x2cdc04…2cdd98 Dummy {f00=0x011a, f01=0x401e, f02=» y @
0x2cdd98…2cdf2c Dummy {f00=0x011a, f01=0x40be, f02=» : H IDENT T:DKA0 TRA 4.2 80-08-11 F1 O1111 02.01.XXX.1 T:DKA0 B T:DKA0D T KBVGO h , ( KA @ * * x @
0x2cdf2c…2ce0c0 Dummy {f00=0x011a, f01=0x4164, f02=» : H IDENT T:AGA0 TRA 4.2 80-08-11 F1 O1111 02.01.XXX.1 T:AGA0 B T:AGA0A ^ T . * T:DGA0 D:CB90 C:CB90 D:TB90 Z:TB90 h * & 0 * & * & = a
0x2ce0c0…2ce254 (4, 106) Dummy {f00=0x011a, f01=0x40be, f02=» : H IDENT T:DGA0 TRA 4.2 80-08-11 F1 O1111 02.01.XXX.1 T:DGA0 B T:DGA0D T GTPGO h , ( GA @ * * x @ * & * & = a
0x2ce254…2ce3e8 Dummy {f00=0x011a, f01=0x40f0, f02=» : H IDENT T:AD00 TRA 4.2 80-08-11 F1 O1111 02.01.XXX.1 T:AD00 B T:AD00A " T T:DD00 D:CB90 C:CB90 h * & ` D0 * @ * & = a
0x2ce3e8…2ce57c Dummy {f00=0x011a, f01=0x40bc, f02=» : H IDENT T:DD00 TRA 4.2 80-08-11 F1 O1111 02.01.XXX.1 T:DD00 B T:DD00D T DC1GO h * & D0 * x @ D0 * @ * & = a
0x2ce57c…2ce710 Dummy {f00=0x011a, f01=0x40ca, f02=» : H IDENT T:ATAB TRA 4.2 80-08-11 F1 O1111 02.01.XXX.1 T:ATAB B T:ATABA T & " T:AD00 T:AGA0 T:AKA0 T:ATC0 h U :A @ * @ * & = a
0x2ce710…2ce8a4 Dummy {f00=0x011a, f01=0x40aa, f02=» : H IDENT U:BTAB TRA 4.2 80-08-11 F1 O1111 02.01.XXX.1 U:BTAB B U:BTABB T U:TB20 h @ TB2 z :T @ :A @ * @ * & = a
0x2ce8a4…2cea38 Dummy {f00=0x011a, f01=0x4090, f02=» : H IDENT S:BTAB TRA 4.2 80-08-11 F1 O1111 02.01.XXX.1 S:BTAB B S:BTABB T h :B z@
0x2cea38…2cebcc Dummy {f00=0x011a, f01=0x0190, f02=» : H IDENT Z:TB90 TRA 4.2 80-08-11 F1 O1111 02.01.XXX.1 Z:TB90 B Z:TB90T T * & h * & * & = * & [
0x2cebcc…2ced60 Dummy {f00=0x011a, f01=0x0190, f02=» | * & * & H * & v * & - * & K * & i
0x2ced60…2ceef4 (4, 107) Dummy {f00=0x011b, f01=0x0190, f02=» * & ( * & V * & * & ; * & Y
0x2ceef4…2cf088 Dummy {f00=0x011b, f01=0x0190, f02=» j * & * & 6 * & d * & + * & I * & g
0x2cf088…2cf21c Dummy {f00=0x011b, f01=0x0190, f02=» x * & * & D * & r * & 9 * & W * & u
0x2cf21c…2cf3b0 Dummy {f00=0x011b, f01=0x0190, f02=» * & $ * & R * & ) * & G * & e *
0x2cf3b0…2cf544 Dummy {f00=0x011b, f01=0x0190, f02=» * & * & 2 * & ` * & 7 * & U * & s
0x2cf544…2cf6d8 Dummy {f00=0x011b, f01=0x4178, f02=» t * & * & @ * & ' n * & E * & c * &
0x2cf6d8…2cf86c Dummy {f00=0x011b, f01=0x40f0, f02=» : H IDENT D:TB90 TRA 4.2 80-08-11 F1 O1111 02.01.XXX.1 D:TB90 B D:TB90T T * & B h * & = B @ * &
0x2cf86c…2cfa00 Dummy {f00=0x011b, f01=0x4120, f02=» : H IDENT C:CB90 TRA 4.2 80-08-11 F1 O1111 02.01.XXX.1 C:CB90 B C:CB90C T * & ABC JKLM h * & NO aA & = TC [ d
0x2cfa00…2cfb94 (4, 108) Dummy {f00=0x011b, f01=0x40c8, f02=» : H IDENT D:CB90 TRA 4.2 80-08-11 F1 O1111 02.01.XXX.1 D:CB90 B D:CB90C T * & * $ & h F H * @ = TC [ d
0x2cfb94…2cfd28 Dummy {f00=0x011b, f01=0x40e8, f02=» : H IDENT C:CB10 TRA 4.2 80-08-11 F1 O1111 02.01.XXX.1 C:CB10 B C:CB10C T * & h $ 6 ! 6 @ [ d
0x2cfd28…2cfebc Dummy {f00=0x011b, f01=0x40f0, f02=» : H IDENT D:CB10 TRA 4.2 80-08-11 F1 O1111 02.01.XXX.1 D:CB10 B D:CB10C T * & B h * & = % B @ d
0x2cfebc…2d0050 Dummy {f00=0x011b, f01=0x0190, f02=» : H IDENT C:CB20 TRA 4.2 80-08-11 F1 O1111 02.01.XXX.1 C:CB20 B C:CB20C T * & h * & * & = * & [
0x2d0050…2d01e4 Dummy {f00=0x011b, f01=0x4068, f02=» | > R@ d h * & * & = * & [
0x2d01e4…2d0378 Dummy {f00=0x011b, f01=0x40f0, f02=» : H IDENT D:CB20 TRA 4.2 80-08-11 F1 O1111 02.01.XXX.1 D:CB20 B D:CB20C T * & B h * & Z = B @
0x2d0378…2d050c Dummy {f00=0x011b, f01=0x0190, f02=» : H IDENT C:CB30 TRA 4.2 80-08-11 F1 O1111 02.01.XXX.1 C:CB30 B C:CB30C T * & 8 6 h * & * & = * & [
0x2d050c…2d06a0 Dummy {f00=0x011b, f01=0x0190, f02=» | * & * & H * & v * & - * & K * & i
0x2d06a0…2d0834 (4, 109) Dummy {f00=0x011b, f01=0x0190, f02=» * & ! ( * & ! V * & ! * & ; ! * & Y !
0x2d0834…2d09c8 Dummy {f00=0x011b, f01=0x0190, f02=» ! j * & " * & " 6 * & " d * & + " * & I " * & g
0x2d09c8…2d0b5c Dummy {f00=0x011b, f01=0x0190, f02=» " x * & # * & # D * & # r * & 9 # * & W # * & u
0x2d0b5c…2d0cf0 Dummy {f00=0x011b, f01=0x0190, f02=» # * & $ $ * & $ R * & ) $ * & G $ * & e $ *
0x2d0cf0…2d0e84 Dummy {f00=0x011b, f01=0x0190, f02=» * & % * & % 2 * & % ` * & 7 % * & U % * & s
0x2d0e84…2d1018 Dummy {f00=0x011b, f01=0x018e, f02=» % t * & & & & @ & ' & V & E & f & c & v & & & & & & & & & & & & & 5 & & S & &
0x2d1018…2d11ac Dummy {f00=0x011b, f01=0x4098, f02=» & & ' & ' * & TCTDTETFTGTHTITJT ' ( KTLTMTN* ' V ' n ' @ ' & & & & & & & & & & 5 & & S & &
0x2d11ac…2d1340 Dummy {f00=0x011b, f01=0x40f4, f02=» : H IDENT D:CB30 TRA 4.2 80-08-11 F1 O1111 02.01.XXX.1 ( D:CB30 ( B D:CB30C ( T * & F ( h * & _ & { B ( = ( F ( @ ( & S & &
0x2d1340…2d14d4 (4, 110) Dummy {f00=0x011b, f01=0x0190, f02=» : H IDENT C:CB40 TRA 4.2 80-08-11 F1 O1111 02.01.XXX.1 ) C:CB40 ) B C:CB40C ) T * & P ) h * & ) * & = ) * & [
0x2d14d4…2d1668 Dummy {f00=0x011b, f01=0x4188, f02=» ) | * & NJ-AMT * & * H & * ^ & - * n & K * ~ * & i 0000899 0 * * & * * & @ A B
0x2d1668…2d17fc Dummy {f00=0x011b, f01=0x40f4, f02=» : H IDENT D:CB40 TRA 4.2 80-08-11 F1 O1111 02.01.XXX.1 + D:CB40 + B D:CB40C + T * & F 0 0 + h * & 0 + = s + F + @ + @ A B
0x2d17fc…2d1990 Dummy {f00=0x011b, f01=0x0190, f02=» : H IDENT C:CB60 TRA 4.2 80-08-11 F1 O1111 02.01.XXX.1 , C:CB60 , B C:CB60C , T * & x , h * & , & = , & [ , & y , & , &
0x2d1990…2d1b24 Dummy {f00=0x011b, f01=0x4024, f02=» X , K X - @ - F1 O1111 02.01.XXX.1 , C:CB60 , B C:CB60C , T * & x , h * & , & = , & [ , & y , & , &
0x2d1b24…2d1cb8 Dummy {f00=0x011b, f01=0x40cc, f02=» : H IDENT D:CB60 TRA 4.2 80-08-11 F1 O1111 02.01.XXX.1 . D:CB60 . B D:CB60C . T * & . 9 . h 0 9 ; . . . @ .
0x2d1cb8…2d1e4c Dummy {f00=0x011b, f01=0x0190, f02=» : H IDENT Z:TB10 TRA 4.2 80-08-11 F1 O1111 02.01.XXX.1 / Z:TB10 / B Z:TB10T / T * & / h * & / * & = / * & [
0x2d1e4c…2d1fe0 Dummy {f00=0x011b, f01=0x4092, f02=» / | * & 0 0 H 0 h 0 |@ 0 * & / * & = / * & [
0x2d1fe0…2d2174 (4, 111) Dummy {f00=0x011c, f01=0x40f4, f02=» : H IDENT D:TB10 TRA 4.2 80-08-11 F1 O1111 02.01.XXX.1 1 D:TB10 1 B D:TB10T 1 T * & F 0 0 0 1 h * & 0 0 0 0 0 #0 &0 * 1 = + , 1 F 1 @ 1 [
0x2d2174…2d2308 Dummy {f00=0x011c, f01=0x4106, f02=» : H IDENT Z:GB10 TRA 4.2 80-08-11 F1 O1111 02.01.XXX.1 2 Z:GB10 2 B Z:GB10G 2 T * & 2 h * & 2 = 2 J 2 = J 2 @ 2
0x2d2308…2d249c Dummy {f00=0x011c, f01=0x40f0, f02=» : H IDENT D:GB10 TRA 4.2 80-08-11 F1 O1111 02.01.XXX.1 3 D:GB10 3 B D:GB10G 3 T * & B 0 3 h * & 0 0 0 0 0 #0 *0 10 3 = 8 ? 3 B 3 @ 3 = J 2 @ 2
0x2d249c…2d2630 Dummy {f00=0x011c, f01=0x4166, f02=» : H IDENT Z:GB20 TRA 4.2 80-08-11 F1 O1111 02.01.XXX.1 4 Z:GB20 4 B Z:GB20G 4 T * & 4 h * & 4 * & = 4 * & [
0x2d2630…2d27c4 Dummy {f00=0x011c, f01=0x40f0, f02=» : H IDENT D:GB20 TRA 4.2 80-08-11 F1 O1111 02.01.XXX.1 5 D:GB20 5 B D:GB20G 5 T * & B 5 h * & 5 = L 5 B 5 @ 5 & [
0x2d27c4…2d2958 Dummy {f00=0x011c, f01=0x4104, f02=» : H IDENT Z:GB30 TRA 4.2 80-08-11 F1 O1111 02.01.XXX.1 6 Z:GB30 6 B Z:GB30G 6 T * & 6 h & 6 & = 6 [ * 6 d 6 [ d 6 @ 6
0x2d2958…2d2aec Dummy {f00=0x011c, f01=0x40f0, f02=» : H IDENT D:GB30 TRA 4.2 80-08-11 F1 O1111 02.01.XXX.1 7 D:GB30 7 B D:GB30G 7 T * & B 0 0 0 0 7 h * & 0 0 0 # + ? @ 7 = B K 7 B 7 @ 7 [ d 6 @ 6
0x2d2aec…2d2c80 Dummy {f00=0x011c, f01=0x40b6, f02=» : H IDENT Z:GB40 TRA 4.2 80-08-11 F1 O1111 02.01.XXX.1 8 Z:GB40 8 B Z:GB40G 8 T 8 h 8 8 @ 8 @ 7 = B K 7 B 7 @ 7 [ d 6 @ 6
0x2d2c80…2d2e14 (4, 112) Dummy {f00=0x011c, f01=0x40ac, f02=» : H IDENT D:GB40 TRA 4.2 80-08-11 F1 O1111 02.01.XXX.1 9 D:GB40 9 B D:GB40G 9 T * & 0 0 0 9 h 9 @ 9 @ 8 @ 7 = B K 7 B 7 @ 7 [ d 6 @ 6
0x2d2e14…2d2fa8 Dummy {f00=0x011c, f01=0x0190, f02=» : H IDENT U:TB20 TRA 4.2 80-08-11 F1 O1111 02.01.XXX.1 : U:TB20 : B U:TB20T : T * & . : h * & : * & = : * & [
0x2d2fa8…2d313c Dummy {f00=0x011c, f01=0x0190, f02=» : | * & K ; * & ; H * & ; v * & - ; * & K ; * & i
0x2d313c…2d32d0 Dummy {f00=0x011c, f01=0x4020, f02=» ; < @ < K ; * & ; H * & ; v * & - ; * & K ; * & i
0x2d32d0…2d3464 Dummy {f00=0x011c, f01=0x40f0, f02=» : H IDENT D:TB20 TRA 4.2 80-08-11 F1 O1111 02.01.XXX.1 = D:TB20 = B D:TB20T = T * & B = h * & 0 0 0 0 = = = B = @ = ; * & i
0x2d3464…2d35f8 Dummy {f00=0x011c, f01=0x40cc, f02=» : H IDENT D:CD30 TRA 4.2 80-08-11 F1 O1111 02.01.XXX.1 > D:CD30 > B D:CD30C > T * & . " < < > h 0 v0 x { < > . > @ >
0x2d35f8…2d378c Dummy {f00=0x011c, f01=0x40d4, f02=» : H IDENT D:CD40 TRA 4.2 80-08-11 F1 O1111 02.01.XXX.1 ? D:CD40 ? B D:CD40C ? T * & 6 8 h ? h $ 0 0 0 ? 6 ? @ ?
0x2d378c…2d3920 Dummy {f00=0x011c, f01=0x40d0, f02=» : H IDENT D:TD20 TRA 4.2 80-08-11 F1 O1111 02.01.XXX.1 @ D:TD20 @ B D:TD20T @ T * & 2 0 0 0 0 0 0 $ @ h 0 *0 1 4 0 @ 2 @ @ @ ?
0x2d3920…2d3ab4 (4, 113) Dummy {f00=0x011c, f01=0x0190, f02=» : H IDENT KMD08 TRA 4.2 80-08-11 F1 O1111 02.01.XXX.1 A . * DC1GO GTPGO KBVGO OFFLNE ONLINE REGGO A B $$$TRAD A t : 6 DC1GO : GTPGO + KBVGO OFFLNEN = ONLINE0 L REGGO A @ < DCTASKD GETTIDA PRINT T1GO- T:DSC01 T:PAUS. T:RSTR1 VDUKB A
0x2d3ab4…2d3c48 Dummy {f00=0x011c, f01=0x4174, f02=» # A % B ( = B - B 0 / B B 3 G@ B R 6 B d 8 B v ; B J F " D 0X ?R L0R L - %-L -L / !/L 0X0R R_ L0R L !L0R 0R / B C B F B
0x2d3c48…2d3ddc Dummy {f00=0x011c, f01=0x0190, f02=» : H IDENT SCREEN TRA 4.2 80-09-17 F1 O1111 02.01.XXX.1 > : BELL SCREEN SPCA SPCLRA SPCLRN SPCLRS SPCN SPERR B SPINF1R SPINF8A SPLIN80 $$$TRAS > : BELLF $ SCREENA ? SPCA0 / SPCLRA SPCLRN. SPCLRS 4 0 SPCNR 7 SPE
0x2d3ddc…2d3f70 Dummy {f00=0x011c, f01=0x0190, f02=»PTCHKF T:DISPL T:DSC1C T:DUPLR t > : T:DYKI$ T:EDFLA T:EDWR0 T:ERASR T:GETAC T:GETCS T:GETF & D @ T:NKI T:PRINK T:SETCK T:TBWDH T:TDOWS T:TFWDC T:THOMP T:TLDO h 4 0 T:TLEF$ T:TRIGA T:TSTC0 T:TUP T:UPDFT T:XSTAT 4 / - '&
0x2d3f70…2d4104 Dummy {f00=0x011c, f01=0x018e, f02=» r & " * % # 6 , ( & d * " " " " " " "
0x2d4104…2d4298 Dummy {f00=0x011c, f01=0x018e, f02=» " " " " . " < " J " X " f " t " " " " ( * " " " "
0x2d4298…2d442c Dummy {f00=0x011c, f01=0x0190, f02=» $ ZZ9 " ( ( 8 D & T 99B b " v & 99 " ( & SKIFT JOURNAL $
0x2d442c…2d45c0 Dummy {f00=0x011c, f01=0x0190, f02=» & NY SIDE. ( * & : & Y H & X & f & t ZZZZZVZZ9,99+ " Y ( & BILAG. $ Y (
0x2d45c0…2d4754 (4, 114) Dummy {f00=0x011c, f01=0x0190, f02=» & DISKETTE SKIFT & $ Y D & T ( b n & ~ OPSTART $ Y ( ?
0x2d4754…2d48e8 Dummy {f00=0x011c, f01=0x018e, f02=» $ & ? ' & + ? 8 , H 1 Z 3 ? l 4 | 9 ; ? < J F " D L L L RL4 L L L RL4 L L L RL4 RL4 L RL4 L RL4 @
0x2d48e8…2d4a7c Dummy {f00=0x011c, f01=0x0190, f02=» J F " D @ L8RI 6 L0X 0XWC0X W<6 0X W 0X 6 0X R b r & * 0
0x2d4a7c…2d4c10 Dummy {f00=0x011c, f01=0x018e, f02=» $ 4 D T m d t J F " D W]6 0X KK W 0X KK W 0X KK :R@ LP Q0 L6 W A 1 $ 7
0x2d4c10…2d4da4 Dummy {f00=0x011c, f01=0x0190, f02=» A G B G C G ( D G 8 E H F . X J F " D _AA _EA _IA _M@ _Q@ _U@ _Y@ _]H 6 H W I R_ 2 RRRRRRRRR h I L ( Q V W
0x2d4da4…2d4f38 Dummy {f00=0x011c, f01=0x0190, f02=» l ( q w . y ( @ ~ P J F " D @RRRRRRR! LI0X ! L 3 RRRRRRR2 RRRI LW 0X ) L _ L0X ! L? b y D
0x2d4f38…2d50cc Dummy {f00=0x011c, f01=0x018e, f02=» $ 4 D T d t C J F " D R2 RRRW50X ! L A H L R( 2 R
0x2d50cc…2d5260 Dummy {f00=0x011c, f01=0x0190, f02=» 4 B ( 8 H X h z J F " D L90X _;0XW 0XW 0XW 0XW 0XW 0XW 0XW 0X8R:R;R R L8R7 GG;GG;7;; .
0x2d5260…2d53f4 (4, 115) Dummy {f00=0x011d, f01=0x0190, f02=» 4 7 $ 9 & ; 6 = F J F " D ;7;7?R L1X L?R L0X T b ! L LA _ LWK0X ) L R?R0X K V B K N Q S * Z @
0x2d53f4…2d5588 Dummy {f00=0x011d, f01=0x018e, f02=» J F " D @ ?RI H L L L0X S 0X P 0R Q L4 0X LC! Lm! Li L0X " R b r $ " 0 ,
0x2d5588…2d571c Dummy {f00=0x011d, f01=0x0190, f02=» * : J Z j z 1 &
0x2d571c…2d58b0 Dummy {f00=0x011d, f01=0x0190, f02=»L L0X 0X 2 RRR L4 ! f $ 6 & F V f ! x % " ' & & ( & 1 (
0x2d58b0…2d5a44 Dummy {f00=0x011d, f01=0x0190, f02=» ! L ?R4 1X F4 L0X 1X F ! L4! p D . L , @ O P U , ` X p ^ , a i B j n k B o t | ,
0x2d5a44…2d5bd8 Dummy {f00=0x011d, f01=0x40b4, f02=» " " 2 B * R 8 4 2 W 0XV K W 0XV K 4 L0X 1X F 4 R 4 b @ j n k B o t | ,
0x2d5bd8…2d5d6c Dummy {f00=0x011d, f01=0x0190, f02=» J F IDENT TB3270 2.1DK 1 79-05-23 870150540210 TASCIIK TEBCDI KEYCNV R TASCIIK t , ( ABCDEFGHI#.<(+!&JKLMNOPQR$]*);^ TEBCDI @ , ( ! -/STUVWXYZ@,%_>?0123456789:[ '=" , ( A
0x2d5d6c…2d5f00 Dummy {f00=0x011d, f01=0x4068, f02=»EYCNV , ( : @ R@ dCNV R TASCIIK t , ( ABCDEFGHI#.<(+!&JKLMNOPQR$]*);^ TEBCDI @ , ( ! -/STUVWXYZ@,%_>?0123456789:[ '=" , ( A
0x2d5f00…2d6094 (4, 116) Dummy {f00=0x0042, f01=0x2008, f02=» L = KMD11 DATE = 80 07 29 1216PACK NBR = 0011 8 8 ?
0x2d6094…2d6228 Dummy {f00=0x0042, f01=0x0082, f02=» H X 0 ( @ P X @ ` ( 0 8 @ H P h p ` x X X ` h p
0x2d6228…2d63bc Dummy {f00=0x0042, f01=0x0190, f02=» J F IDENT PRT REL 2.1*79-10-20 870150540210 SNBUSYK PRINT ICREAD R PRINT r I:EVA0 EMULA , ( @ . V P ! DC1INQ , ( O O N T N
0x2d63bc…2d6550 Dummy {f00=0x0042, f01=0x0190, f02=» C n GTRBUF DCGETM , ( y ( : P O W 2 UPDATE b , ( @ O B O N T N t , ( O : O ( : , ( O 8 O N Z_ (@P , (
0x2d6550…2d66e4 Dummy {f00=0x0042, f01=0x018e, f02=» RFMDUP , ( S X }T 9 ~T 5 aR , ( q = _X = R F , ( 0" ZZ_" pR v , ( V 0" 1 V " 2 P W X , ( {T * = ~X@ }P , (
0x2d66e4…2d6878 Dummy {f00=0x0042, f01=0x4162, f02=» f , ( Q ( Z 0 O ( SNBUSYK 8 , ( q B : C ( L : | H D !,u )T 3T A ` UP| ] ~ P WF T T )R - $ H D ! 7 CV IP4 MW YT aT mR R $ R
0x2d6878…2d6a0c Dummy {f00=0x0042, f01=0x0190, f02=» J F IDENT VDUPRT 2.1DK 1 79-10-20 870150540210 D @ TRPFY TRPAY ERASE SETCUR ERASUPA DISPL ERASUAL WCHAR UPDATE R , ( RFMDUP DCINP RLRBUF DCGETM GTRBUF DCINP , ( O N T B O N
0x2d6a0c…2d6ba0 Dummy {f00=0x0042, f01=0x018e, f02=» N " P N " O N " P SNBUSY $ , ( [@ N " O W B 6 DCGETM | f REQTIM~ z , ( y : C C C ( :
0x2d6ba0…2d6d34 (4, 117) Dummy {f00=0x004a, f01=0x0190, f02=» f , ( $ _ Q = : $ : <" T TEBCDI 8 , ( $ _ $ H !?9F $ H "? J , ( % : , N / z , ( %1 O ( $ B P N ' O LSAVOF , ( %QH
0x2d6d34…2d6ec8 Dummy {f00=0x004a, f01=0x0190, f02=»% !`P V 0 !`P X $ , ( % _ " T V 0 !` V _ , UPDATE % , ( $ % $ %r_J : O B p , ( & $ T $ 1P 5P ?P , ( &% 7 W N W , ( &E
0x2d6ec8…2d705c Dummy {f00=0x004a, f01=0x0190, f02=» & P P P P T |_X , ( & T }_b T ~_l T 0_v 0 , ( & T _ B $ : $ H ` , ( ' ! :a" _ $ ^, _ , ( '# O _ T ^ 0 " , ( 'C R 1 _ " X
0x2d705c…2d71f0 Dummy {f00=0x004a, f01=0x0190, f02=» &Z N & $ V , ( ' L 1P Y & ( ICWRTE P , ( ' K@ V O & b , ( @ ( $ H O " P N T , ( ( B + I I I C ( , ( (? N " T
0x2d71f0…2d7384 Dummy {f00=0x004a, f01=0x0190, f02=» , ( ( 1 B E C ( ERASUPA( 4 , ( ( : : O O P H , ( ( " R V 0" ^ " x , ( ( O P W P ERASUAL) , ( ) W R
0x2d7384…2d7518 Dummy {f00=0x004a, f01=0x0190, f02=»_< R X | TRPAY) , ( T) 0" Z0 _" $ $ % : : . TRPFY) ^ DISPL) p , ( U ) $ $ %l % _ C , ( ) P " Q " 2 O , ( ) P PR V 0
0x2d7518…2d76ac Dummy {f00=0x004a, f01=0x0190, f02=» _r PR r , ( * V 0 " 1 SETCUR * B , ( * ZJ_, C N C P V WCHAR* , ( * R C P_ C ( O : B RFMDUP * , ( * E _D {T * `T ; : B
0x2d76ac…2d7840 Dummy {f00=0x004a, f01=0x0190, f02=» E l , ( +_ :h E T C ( C C , ( + _ N P " P W = : < & " + R P T - : : l H D ! $ | TT 3% 7) GP YP iW u$ $ $ $ P $ P $ Q $ T %EP %qW H D ! *% P % VD% P % T % V"% V & T & P &
0x2d7840…2d79d4 (4, 118) Dummy {f00=0x004e, f01=0x0190, f02=» (13),'7','6','5','4','3','2','7','6','5','4','3','2','1' P* B P EJECT L PCB2 BLK Z P* j & PCPFLG BOOL FALSE T: DISK OCCUPIED t ( PCSPLITFL BOOL FALSE T: SPLIT RECORD " PCWFLAG BOOL FALSE F=COLD START " PCREMITFL BOOL FALSE F=NO
0x2d79d4…2d7b68 Dummy {f00=0x004e, f01=0x0190, f02=»D START l . PCERRORFL BOOL FALSE T=ERROR IN COLD START . PCCONVFLG BOOL FALSE T=CONVERSION GOING ON B $ PCSWFLAG BOOL FALSE SCRATCH FLAG t 2 PCSKIFTWN BOOL FALSE T=WARNING ABOUT FD CHANGE . PCKFLAG BOOL FALSE T=EXCL ACCESS, KNT. PLAN P*
0x2d7b68…2d7cfc Dummy {f00=0x004e, f01=0x0190, f02=»' PCBIN17 BIN '17' PCBIN18 BIN '18' " PCBIN19 BIN '19' : PCBIN20 BIN '20' R PCBIN21 BIN '21' j PCBIN22 BIN '22' PCBINMAX BIN '26' P EJECT @ P*********************************************************** P*
0x2d7cfc…2d7e90 Dummy {f00=0x004e, f01=0x0190, f02=»********************************************************** PCFLTDEX BINI (90), C B : P '26','26','26','26','1','2','3','4','5','6', 1-10 C ` < P '7','8','9','4','11','12','10','11','12','13', 11-20 C > P '10','11','12','13','14','15','16','1','
0x2d7e90…2d8024 Dummy {f00=0x004e, f01=0x018e, f02=»1', 41-50 C ` 6 P '2','3','4','2','3','4','5','6','7','8', 51-60 C > P '9','10','11','12','13','6','26','26','26','26', 61-70 C N @ P '26','26','26','26','26','26','26','26','26','26', 71-80 C > P '19','26','26','26','26','26','26','26','26','26'
0x2d8024…2d81b8 Dummy {f00=0x004e, f01=0x0190, f02=» P* P* P* P* " PCTWBIN1 BIN , PCTWBIN2 BIN @ PCVOUTOP BIN W'56' T PCMAXLIN BIN W'54' n PCMINLIN BIN W'2' PCCONBUF0 STRG 398X'FF' PCCONBUF1 STRG 398X'FF' PCCONBUF2 STRG 398X'FF' PCCONBUF3 STRG
0x2d81b8…2d834c Dummy {f00=0x004e, f01=0x0190, f02=»CCONBUF8 STRG 398X'FF' PCTRANBUF STRG 698 8 PCTID STRGI (12),2C'TC','TD','TE','TF','TG','TH', C 8 $ P 'TI','TJ','TK','TL','TM','TN' t P* P EJECT PCB4 BLK P* P* P* P* P* PCMAXTASK BIN NO O
0x2d834c…2d84e0 Dummy {f00=0x004e, f01=0x0190, f02=»8X'FF' & PCRECBCD BCD 6D LOGICAL RECORD NR. PCEDATNR BCD 4 DATASET NR. 8 PSOPINP STRG 4 Z PASVOL STRG 6 p PASFNAME STRG 8 PCKMDNAM STRG 6'NJ-AMT' , PCVERSNR BCD 10D'02010802' VERSION NUMBER PCBLANKS STRG X'2020' PCPCK
0x2d84e0…2d8674 (4, 119) Dummy {f00=0x0041, f01=0x0190, f02=» v N T 9 N , ( P N + 9 N P <! & , ( ' T = + V E % # P & P V WCHAR , ( G W % N T O , ( e Q B ! PT , ( : N
0x2d8674…2d8808 Dummy {f00=0x0041, f01=0x0190, f02=» : T W P DISPL & , ( P H + ) _ O 6 , ( #@ N _ P $# P _ f TASCII TRPAN , ( A @ : . H : O , ( ] : O 1R Q P X,W :
0x2d8808…2d899c Dummy {f00=0x0041, f01=0x0190, f02=»_8 O : O 1R Q 9_R , ( : _ ( I:RT1 X * & O h , ( H - H : , ( / N # P N N ERASUA , (
0x2d899c…2d8b30 Dummy {f00=0x0041, f01=0x018e, f02=» N P R z , ( O : N - O B , ( + I I C ( : W J LIOLON z LIOLOFC LINHONK LINHOF , ( W W W W W W W W LSAVON
0x2d8b30…2d8cc4 Dummy {f00=0x0041, f01=0x0190, f02=» f , ( G _ ]$ O , ( g O : N O : 8 , ( Q T O O : R h , ( : _* 0 : O O ICWRTE@ , ( (@ : N
0x2d8cc4…2d8e58 Dummy {f00=0x0041, f01=0x0190, f02=» N H D ! ! # % ' ) + - / 1 3 5 7 9 ; = ? H D ! A C E G I K M O Q S U W Y [ ] _ V H D ! a c e g i k m o q s u w y { } H D !
0x2d8e58…2d8fec Dummy {f00=0x0041, f01=0x0190, f02=» t D x | | | | | | | H D ! B H D ! 4 . T , H D ! ! # % ' ) + - / 1 3 5
0x2d8fec…2d9180 Dummy {f00=0x0041, f01=0x0190, f02=»P P V W6 R W& -R 3W =V r H D !HC CW M * aR kR { * P T T T Q P T Q . H D ! V 7 =U CP( KP Q * UP WR [W w P T P> z H D ! P P T P P 'T ?P CP GW ]T i o
0x2d9180…2d9314 (4, 120) Opaque[0x194]
0x2d9314…2d94a8 # DirEnt {nam=»SUBAPL«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x1538, f03=0x0000}
0x2d9314…2d94a8 IdxSect {
0x2d9314…2d94a8 f00 = 0x00a9 // 0x2d9314 @0x0
0x2d9314…2d94a8 f01 = 0x0014 // 0x2d9316 @0x2
0x2d9314…2d94a8 gno = [ // 0x2d9318 @0x4
0x2d9314…2d94a8 [0x00]: C0x00a9.0x3.0
0x2d9314…2d94a8 [0x01]: C0x00aa.0x0.0
0x2d9314…2d94a8 [0x02]: C0x00aa.0x1.0
0x2d9314…2d94a8 [0x03]: C0x00aa.0x2.0
0x2d9314…2d94a8 [0x04]: C0x00aa.0x3.0
0x2d9314…2d94a8 [0x05]: C0x00ab.0x0.0
0x2d9314…2d94a8 [0x06]: C0x00ab.0x1.0
0x2d9314…2d94a8 [0x07]: C0x00ab.0x2.0
0x2d9314…2d94a8 [0x08]: C0x00ab.0x3.0
0x2d9314…2d94a8 [0x09]: C0x00ac.0x0.0
0x2d9314…2d94a8 ]
0x2d9314…2d94a8 }
0x2d94a8…2d963c Dummy {f00=0x00a9, f01=0x0190, f02=» P IDENT SUBAPL 02.01.XXX.1 P DDUM KMD08 & P PDIV : P ENTRY SPAPPL H P ENTRY SPCHK1 ^ P ENTRY SPCHK2 t P ENTRY SPCHK3 P ENTRY SPCHK4 P ENTRY SPCHK5 P ENTRY SPCHK6 P ENTRY SPCHK7 P ENTRY SPTCHK
0x2d963c…2d97d0 Dummy {f00=0x00a9, f01=0x018e, f02=»H P EXT KTPLAN P INCLUDE EQUATE P STANDARD CHECKS 6 P* P PSPCHK1 PROC Z P******************** n P* P* SPCHK1 - CDVCHECK P* < P* PERFORMS CHECKDIGIT CHECK ON VALUE IN SPINPUT 8 P*
0x2d97d0…2d9964 Dummy {f00=0x00a9, f01=0x0190, f02=» $ P MOVE GSWBIN1,SPBINW1 GET LENGTH 8 P CBL GSWBIN1,=W'3',CHK1RET FOR LENGTH < 3, NO CHECK , 2 P CBL GSWBIN1,=W'7',CHK1ER IF 2<LENGTH<7, ERROR h 8 P CBE GSWBIN1,=W'7',CHK10 IF LENGTH = 7, OK (CIRNR) < P CBNE GSWBIN1,=W'10',CHK1ER IF LENGTH = 10, OK
0x2d9964…2d9af8 Dummy {f00=0x00a9, f01=0x0190, f02=» P TBT GTADMFLG,CHK11 P CBE GSWBCD6,=D'0',CHK1ER P B * PCHK11 MOVE GSWBCD3,=D'1' BLANK GSWBCD3 J < P COPY GSWBCD3,CBIN5,CBIN1,GSWBCD6,GSWBIN2 GET NEXT DIGIT x 6 P MUL GSWBCD3,WEIGTH1(GSWBIN2) MULTIPLY WITH WEIGTH ( P ADD GSWBCD5,GSWBCD3 A
0x2d9af8…2d9c8c Dummy {f00=0x00a9, f01=0x018e, f02=»CHK11 BACK TO NEXT DIGIT | P MOVE GSWBCD4,GSWBCD5 $ P DIV GSWBCD5,=D'11' DIVIDE BY 11 > ( P MUL GSWBCD5,=D'11' MULTIPLY WITH 11 f . P SUB GSWBCD4,GSWBCD5 GET REMAINDER MOD 11 : P CBE GSWBCD4,=D'0',CHK1RET IF REMAINDER 0, THEN RETURN P*
0x2d9c8c…2d9e20 Dummy {f00=0x00a9, f01=0x0190, f02=» P EJECT PSPCHK2 PROC P******************** * P* F " P* SPCHK2 - CHECK DATE P P* v 0 P* CHECKS 0<DAY<32 AND 0<MONTH<13 * P* DATE IS IN THE FORM DDMMYY $ P* INPUT FIELD: SPINPUT
0x2d9e20…2d9fb4 (4, 121) Dummy {f00=0x00aa, f01=0x0190, f02=»1 INITIAL ERRORCODE ~ & P MOVE GSWBCD3,=D'1' BLANK GSWBCD3 " P MOVE GSWBCD6,SPINPUT GET DATE F . P MOVE GSWBIN2,=W'10' SET POINTER TO MONTH l 8 P COPY GSWBCD3,CBIN4,CBIN2,GSWBCD6,GSWBIN2 GET MONTH ( P CBG GSWBCD3,=D'12',CH29 CHECK MONTH P C
0x2d9fb4…2da148 Dummy {f00=0x00aa, f01=0x0190, f02=» CBG GSWBCD3,=D'31',CH29 P CBL GSWBCD3,=D'1',CH29 P B CH2RET @ PCH29 R & P MOVE SPBINW3,CBIN3 INDICATE ERROR ^ & P MOVE SPBINW4,=W'7' SET ERRORCODE PCH2RET P MOVE GSWBCD3,=X'FF' P RET P PEND P EJECT PSPCH
0x2da148…2da2dc Dummy {f00=0x00aa, f01=0x0190, f02=»* MONTH IS IN THE FORM MM " P* INPUT FIELD: SPINPUT , P* R 8 P* IF ERROR, ERRORCODE 7 IS MOVED TO SPBINW4 P* P****************** $ P MOVE GSWBCD3,SPINPUT GET MONTH ( P CBG GSWBCD3,=D'12',CH39 CHECK MONTH
0x2da2dc…2da470 Dummy {f00=0x00aa, f01=0x0190, f02=»DICATE ERROR z & P MOVE SPBINW4,=W'7' SET ERRORCODE PCH3RET > P RET L P PEND X P EJECT f PSPCHK4 PROC t P******************** P* < P* SPCHK4 - CHANGE SIGN ON VALUE, IF KREDIT KEY P* P****************
0x2da470…2da604 Dummy {f00=0x00aa, f01=0x0190, f02=»-1' P MOVE SPINPUT,GSWBCD7 ( P MOVE SPBINW2,=W'3' SIMULATE EOI-KEY * PCH4RET V P RET d P PEND p P EJECT ~ PSPCHK5 PROC P******************** P* * P* SPCHK5 - CHECK LINE NUMBER P* P**********
0x2da604…2da798 Dummy {f00=0x00aa, f01=0x018e, f02=»? d P CBE GSWBCD3,=D'91',CH510 P MUL GSWBCD3,=D'2' , . P MOVE GSWBCD4,CVOUTOP GET NO OF LINES/PAGE F P SUB GSWBCD4,GSWBCD3 x , P CBL GSWBCD4,=D'0',CH5ERR LINE NEGATIVE? P MOVE GSWBIN1,GSWBCD4 P CBG GSWBIN1,CMAXLIN,CH5ERR P C
0x2da798…2da92c Dummy {f00=0x00aa, f01=0x0190, f02=» P MOVE GSWBIN1,GSWBCD3 P RET & P PEND 2 P EJECT @ PSPCHK6 PROC N P******************** b P* ~ B P* SPCHK6 - CHECK THE SPCHK6 - CHECKDIGIT IN LINE NO, P* KONTOKORT P* P*******************
0x2da92c…2daac0 Dummy {f00=0x00aa, f01=0x0190, f02=» f " P CBE GSWBCD3,TTKTCHK,CH6RET OK P MOVE SPBINW3,CBIN3 ERROR . P MOVE SPBINW4,=W'13' P PCH6RET l P RET z P PEND P EJECT PSPCHK7 PROC P RET P PEND P EJECT PSPTCHK PROC P********************
0x2daac0…2dac54 (4, 122) Dummy {f00=0x00aa, f01=0x0190, f02=»********** $ P GETCTL 0,SPBINW3 GET APPL-VALUE P CBE SPBINW3,=W'84',TCHK84 : $ P SUB SPBINW3,=W'16' ADJUST INDEX P IB SPBINW3, C " P TCHK17,TCHK18,TCHK19,TCHK20 P SUB SPBINW3,=W'61' +16-77 P IB SPBINW3,TCHK78,TCHK79 PTC
0x2dac54…2dade8 Dummy {f00=0x00aa, f01=0x0190, f02=» PTCHK18 PTCHK19 PTCHK20 $ P TBF BCPR,TCHK00 2 P B TCHK99 J P* PTCHK78 f P MOVE SPBINW3,TTCNTNR t P SUB SPBINW3,=W'100' : P CBG SPBINW3,CTR12(TTASKNR,CBIN2),TCHK00 CONTINUE TAB P B TCHK99 CORRECT FIELD
0x2dade8…2daf7c Dummy {f00=0x00aa, f01=0x0190, f02=»IELD ^ P B TCHK00 CONTINUE TAB P* * PTCHK84 4 P TBF GTTRSEL,TCHK00 B P B TCHK99 ^ P* p PTCHK99 CONTINUE TAB z P MOVE SPBINW3,CBIN2 P RET P PEND P EJECT PSPAPPL PROC P********************
0x2daf7c…2db110 Dummy {f00=0x00aa, f01=0x0190, f02=»FOR ALL FIELDS. f P* @ P* APPL-VALUE IS EQUAL TO FIELD-NAME (KMD FELT-KODE) " @ P* A BRANCH IS MADE TO A PIECE OF CODE FOR RELEVANT f 4 P* TESTING AND BRANCH TO PACKING ROUTINE P* P******************** P
0x2db110…2db2a4 Dummy {f00=0x00aa, f01=0x0190, f02=» SIGN x " P AA01 - TEST FOR FIELD TO BE P ---- - AUTODUPPED 4 " P AA02 - TEST FOR AUTODUP KEY P P AA03 - IF LENGTH ZERO, v P ---- - DELETE FIELS P AA05 - TEST FIELD 5 P AA06 - TEST FIELD 6 P AA11 - TEST VALOERD
0x2db2a4…2db438 Dummy {f00=0x00aa, f01=0x018e, f02=» TRANSTYPE P A64 - TEST FIELD 64 P A65 - TEST FIELD 65 0 $ P AA70 - KONTONR WITHOUT CHECK N " P AA71 - 'ANTAL' IN TRANSTYPE v P ---- - 51, 53 P A76 - COUNTER, TRANS 12 $ P A77 - TR 4, INSERT BKO 51,52 " P A78
0x2db438…2db5cc Dummy {f00=0x00aa, f01=0x0190, f02=» t P ---- - TRANSTYPES P A88 - AUTODUP BKO, TR 4 $ P A89 - STORE IN FIELD 6 H P A90 - SPECIAL SLUT-FIELD j P A91 - ENTER TO SLUT-KEY P A100 - CHECK TR 12 P A101 - CHECK BEHL. COUNT. P A102 - REL. DAY
0x2db5cc…2db760 Dummy {f00=0x00aa, f01=0x0190, f02=»ALC. L P A106 - CHECK VALUE 0-3 P A107 - AS A102 . P A108 - SPG -REGKONTONR H P A109 - SPG-CPR/CIR/NR j P A110 - SPG-BELOB P A111 - SPG-OTHER FIELD P* 6 P CBG SPBINW3,=W'89',AAA SLUT FIELD OR DIV. CHECKS
0x2db760…2db8f4 (4, 123) Dummy {f00=0x00aa, f01=0x0190, f02=» MOVE GSWBIN1,CFLTDEX(SPBINW3) GET DUP FIELD . P MOVE SPINPUT,GTDUPF(GSWBIN1) AND CONTINUE 4 P B AAA f P* t PAA02 ~ $ P TBF GTAUTODP,AA03 AUTO DUP KEY $ P CLEAR GTAUTODP IF GTAUTODP KEY, 2 P MOVE GSWBIN1,CFLTDEX(SPBINW3) GET FIELD INDEX
0x2db8f4…2dba88 Dummy {f00=0x00aa, f01=0x0190, f02=» PAA03 . P CBNE SPBINW1,CBIN0,AAA IF LENGTH IS ZERO > P MOVE GSWBIN4,CFLTDEX(SPBINW3) GET INDEX VALUE TO GSWBIN4 B , P MOVE GTUSED(GSWBIN4),CBIN0 DELETE FIELD P B ART P* PAAA IB SPBINW3, C 8 P ART,ART,ART,ART,A05,A06,A07,APF,
0x2dba88…2dbc1c Dummy {f00=0x00aa, f01=0x0190, f02=»IELDS 20-29 C d > P APK,APK,APK,APF,APK,APK,APK,APK,APK,APF, FIELDS 30-39 C > P APK,APK,APK,APK,APK,APK,APK,APF,APK,APK, FIELDS 40-49 C X > P APK,APK,APF,APF,A54,APF,APF,APF,APF,APF, FIELDS 50-59 C > P APF,APF,APF,APK,A64,A65,APK,ART,ART,ART, F
0x2dbc1c…2dbdb0 Dummy {f00=0x00aa, f01=0x0190, f02=»S 80-89 C ` > P A90,A91,APK,APK,APK,ART,ART,ART,ART,ART, FIELDS 90,99 C 0 P A100,A101,A102,A103,A104, FIELDS 100,104 C T 0 P A105,A106,A107,A108,A109, FIELDS 105,109 C * P A110,A111,ART,ART,ART FIELDS 110,114 P********** ( PA05 CHECK
0x2dbdb0…2dbf44 Dummy {f00=0x00aa, f01=0x0190, f02=»SWBIN1,=W'10' LENGTH MUST BE 10 P BNE A058 ( P MOVE GSWBCD1,SPINPUT : P PERF KTPLAN,GSWBCD1,GTKTTYP X P MOVE GSWBIN1,GTKTTYP | P IB GSWBIN1, C P A053,A053,A051,A053,A053 PA051 P B APK CPR NOT NECESSARY PA053 C
0x2dbf44…2dc0d8 Dummy {f00=0x00aa, f01=0x0190, f02=» GSWBIN1,CBIN3,A056 ERROR P SET SPWARNFL WARNING " P B A054 @ PA056 P P MOVE SPBINW4,=W'19' P B ART x PA058 & P MOVE SPBINW4,=W'3' SET ERRORCODE P B ART P********** PA06 CHECK CPR/CIR NUMBER $ P MOVE GSWB
0x2dc0d8…2dc26c Dummy {f00=0x00aa, f01=0x0190, f02=»GSWBCD1,SPINPUT P CMP GSWBCD1,=D'10000000' P BL A061 : P SET BLEV LEVERAND. J P CMP GSWBCD1,=D'3200000000' f P BG APK P CLEAR BLEV CPR. P B APK PA061 * P CLEAR BCPR CLEAR CPR-SWITCH (CIR-NO) P B APK P
0x2dc26c…2dc400 Dummy {f00=0x00aa, f01=0x0190, f02=»** PA065 6 P MOVE SPBINW1,CBIN0 SET LENGTH TO ZERO (FUNCTION) , P MOVE GSWBCD3,SPINPUT GET NEW TRANSTYPE P P* $ P CMP SPBINW2,=W'30' ADM ROUTINE P BE ART P CMP SPBINW2,=W'31' CYCLE P BE ART P* ( P*
0x2dc400…2dc594 (4, 124) Dummy {f00=0x00aa, f01=0x0190, f02=» FOR CORRECT TRANSACTIONS IN THIS CONNECTION P TBT GTKASSE,A0672 4 6 P CBG GSWBCD3,=D'30',A067 CORRECT FOR NOT IN KASSE N P B A0675 PA0672 . P CBL GSWBCD3,=D'30',A067 CORRECT IN KASSE P P B A0675 P* PA067 < P C
0x2dc594…2dc728 Dummy {f00=0x00aa, f01=0x018e, f02=»D'-1',A067 END OF TABLE? p P* PA0675 * * P MOVE SPBINW4,=W'9' INVALID TRANSTYPE 8 P B ART f PA068 t " P TAKE CARE OF NEW TRANSTYPE 6 P CBE SPBINW2,=W'18',A06KRE HANDLING OF KREDIT KEY , P CBE SPBINW2,=W'17',A06DEB SLUT/DEB KEY
0x2dc728…2dc8bc Dummy {f00=0x00aa, f01=0x0190, f02=» P PERF SETKRE P B A066 PA06DEB , P PERF SETDEB : PA066 N P MOVE GTREGNR,GSWBCD3 Z P MOVE GTREGDEX,GSWBIN1 x ( P SET GTREGFLG VALID TRANSTYPE FOUND " P SET TTEORFLG START NEW TRANS P PERF CLRSW P* 6 P M
0x2dc8bc…2dca50 Dummy {f00=0x00aa, f01=0x018e, f02=»T x P CLEAR TTASKAT ! P MOVE GSWBCD3,SPINPUT ! P CBNE GSWBCD3,=D'51',A070 ! > P SET TTASKAT ! ` PA070 ! t P CBNE GTREGDEX,=W'3',A0705 ! $ P CBE GSWBCD3,=D'51',A076 TRANS 3 ! P CBE GSWBCD3,=D'52',A076 ! PA0705 ! , P MOVE GSWBIN1,CB
0x2dca50…2dcbe4 Dummy {f00=0x00aa, f01=0x0190, f02=» ! x P MOVE TT07TXT,CBLANKS " , P MOVE GSWBIN1,CBIN5 FIRST CHAR, POINTER " & P MOVE GSWBIN3,CBIN0 " V P CBNG SPBINW1,=W'2',A071 " r 2 P MOVE GSWBIN3,CBIN1 ADJUST DUPPED FIELD INDEX " PA071 " P SUB GSWBIN1,CBIN7 " PA0708 " P ADD GSWBIN1
0x2dcbe4…2dcd78 Dummy {f00=0x00aa, f01=0x0190, f02=»CHARS CONTAIN TEXT " P ADD GSWBIN1,=W'2' # . P COPY TT07TXT,CBIN0,CBIN5,CTTXT07,GSWBIN1 # 4 P* SEE IF ALLOWED # f 8 P CBNE GTREGDEX,=W'3',A077 ONLY CHECK IF TRANSTYPE 3 # P ADD GSWBIN1,=W'5' # P MOVE GSWSTR2,CBLANKS # 6 P COPY GSWSTR
0x2dcd78…2dcf0c Dummy {f00=0x00aa, f01=0x018e, f02=»0000',A072 # v . P CBE GSWBCD3,=D'1',A077 CPR - BKO ALLOWED $ P B A076 $ D PA072 $ T . P CBE GSWBCD3,=D'2',A077 CIR - BKO ALLOWED $ ` P B A076 $ PA075 $ P TBT CBKOFLG,A077 $ PA076 $ P MOVE SPBINW4,=W'11' $ P B ART $ PA077 $
0x2dcf0c…2dd0a0 Dummy {f00=0x00aa, f01=0x018e, f02=» $ l & P CBE GTREGDEX,=W'4',A0110 TRANS 4 % P B APK % 2 PA0110 % @ $ P* GET AND CHANGE VALOERDATE % N P MOVE GSWBCD6,SPINPUT % v , P COPY GSWBCD3,CBIN4,CBIN2,GSWBCD6,CBIN12 % , P COPY GSWBCD6,CBIN12,CBIN2,GSWBCD6,CBIN8 % , P COPY GSWBCD6,CBIN8,
0x2dd0a0…2dd234 (4, 125) Dummy {f00=0x00ab, f01=0x018e, f02=» % f , P COPY GSWBCD1,CBIN12,CBIN2,GSWBCD1,CBIN8 & , P COPY GSWBCD1,CBIN8,CBIN2,GSWBCD3,CBIN4 & 8 P* COMPARE & h P CMP GSWBCD6,GSWBCD1 & ~ P BNG APK & P MOVE SPBINW4,=W'7' & P B ART & P********** & " PA17 CHECK 'FORFALDSAAR' FAAR &
0x2dd234…2dd3c8 Dummy {f00=0x00ab, f01=0x0190, f02=» & ` & P MOVE GSWBCD1,GTDATO GET POSTDATO ' P MOVE GSWBCD3,=D'2' ' 2 6 P COPY GSWBCD3,CBIN4,CBIN2,GSWBCD1,CBIN12 GET YEAR ' N P ADD GSWBCD3,=D'2' ADD 2 ' . P CBG GSWBCD6,GSWBCD3,A17ERR MORE THAN YY+2 ' P B APK ' PA17ERR ' ( P MOVE SPBINW4,=W'1
0x2dd3c8…2dd55c Dummy {f00=0x00ab, f01=0x0190, f02=»D3,=D'5',A649 ' P CBL GSWBCD3,=D'0',A649 ( $ P FIELD 64 HAS BEEN ENTERED AND ( 6 6 P MOVE GSSWITCH(CBIN12),CBIN1 SHOULD BE GTAUTODPPED ( ^ P B APK ( PA649 ( P MOVE SPBINW4,=W'10' ( P B ART ( P********** ( PA65 CHECK VALUE 1000-399
0x2dd55c…2dd6f0 Dummy {f00=0x00ab, f01=0x0190, f02=» ( P MOVE SPBINW4,=W'11' ) P B ART ) $ P********** ) 2 PA70 KONTONR WITHOUT CHECK ) D P MOVE SPBINW3,=W'5' ) h P CMP SPBINW1,=W'3' ) P BL A065 IF LENGTH < 3 ) P B APK NEW TRANSTYPE ) P********** ) PA71 ) , P MOVE GSSWITCH(CBI
0x2dd6f0…2dd884 Dummy {f00=0x00ab, f01=0x0190, f02=»UM,=D'0',A715 ) P CMP GTSUM,=D'12' IF > 12 * P BL ART * 8 PA715 * H & P MOVE SPINPUT,=C'51' SIMULATE NEW * T " P MOVE SPBINW2,=W'3' TRANSTYPE * ~ . P MOVE GSSWITCH(CBIN1),CBIN0 DELETE AUTODUP * P B A065 * P********** * PA76 COUNTER NO
0x2dd884…2dda18 Dummy {f00=0x00ab, f01=0x0190, f02=»INPUT * " P SUB GSWBCD3,=D'100' GET INDEX + P MOVE GSWBIN1,GSWBCD3 + 4 , P CBG GSWBIN1,CTR12(TTASKNR,CBIN2),A76NOK + R , P CBL GSWBCD3,=D'1',A76NOK MIN COUNTER NO + & P ADD GSWBIN1,CTR12(TTASKNR,CBIN1) + & P CBE CTR12NR(GSWBIN1),=D'0',A76NOK + P
0x2dda18…2ddbac Dummy {f00=0x00ab, f01=0x0190, f02=»SERT 51,52 IN TR 4 + P MOVE SPBINW3,=W'7' FIELD 7 , P MOVE SPBINW1,=W'2' LENGTH , > P TBT BCPR,A775 , ` ( P MOVE SPINPUT,=X'35310000' 51 IF CIR , v P B A07 , PA775 , ( P MOVE SPINPUT,=X'35320000' 52 IF CPR , P B A07 , P********** , P
0x2ddbac…2ddd40 Dummy {f00=0x00ab, f01=0x0190, f02=»ACCOUNT NO , " P MOVE SPBINW3,=W'5' IN FIELD 5 - ( P MOVE GSWBIN1,TTCNTNR GET COUNTER NO - 8 P SUB GSWBIN1,=W'100' - d & P ADD GSWBIN1,CTR12(TTASKNR,CBIN1) - " P MOVE SPINPUT,CTR12NR(GSWBIN1) - P MOVE SPBINW1,=W'10' LENGTH - P B APK - P******
0x2ddd40…2dded4 (4, 126) Dummy {f00=0x00ab, f01=0x0190, f02=»BL SPBINW1,=W'3',A805 CHECK LENGTH - ( P CBE SPBINW1,=W'10',A801 MUST BE 10 . * $ P MOVE SPBINW4,=W'3' ERROR LENGTH . V P B ART . ~ PA801 . P MOVE GSWBCD1,SPINPUT . P PERF KTPLAN,GSWBCD1,GTKTTYP . P PERF SELTR TRANS SELECTED . P BNOK ART IN
0x2dded4…2de068 Dummy {f00=0x00ab, f01=0x0190, f02=»E ART . " P CMP SPBINW2,=W'31' CYCLE KEY / P BE ART / 4 $ P MOVE SPBINW4,=W'4' INVALID KEY / D P B ART / l P********** / z $ PA81 CHECK HOVEDBOG, CPR/CIR/NR / P MOVE SPBINW3,=W'6' FIELD 6 / . P MOVE SPBINW5,=W'1' MIGHT BE TRANS TYPE 1 / (
0x2de068…2de1fc Dummy {f00=0x00ab, f01=0x0190, f02=»R SET CPR NO / P MOVE GSWBCD1,SPINPUT 0 " P CBL GSWBCD1,=D'10000000',A814 0 2 P SET BLEV 0 X $ P CBG GSWBCD1,=D'3200000000',A812 0 j P CLEAR BLEV 0 P B A812 0 PA814 0 P CLEAR BCPR SET CIR NO 0 PA812 0 P PERF SELTR TRANS SELECTED 0
0x2de1fc…2de390 Dummy {f00=0x00ab, f01=0x0190, f02=» 21 0 v , P MOVE SPBINW5,=W'6' MIGHT BE TRANSTYPE 6 1 PA821 1 < * P CBNE SPBINW2,=W'3',A822 IF ENTER KEY, 1 H , P MOVE SPBINW2,=W'17' SIMULATE DEBET KEY 1 v PA822 1 P PERF SELTR TRANS SELECTED 1 P BNOK ART INVALID KEY 1 P B APK OK 1 P****
0x2de390…2de524 Dummy {f00=0x00ab, f01=0x0190, f02=» SPBINW1,=W'7',A833 1 , P MOVE SPBINW5,=W'4' MIGHT BE TRANSTYPE 4 2 P SET BCPR SET CPR 2 L P MOVE GSWBCD1,SPINPUT 2 f " P CBL GSWBCD1,=D'10000000',A831 2 P SET BLEV 2 $ P CBG GSWBCD1,=D'3200000000',A832 2 P CLEAR BLEV 2 P B A832 2 P
0x2de524…2de6b8 Dummy {f00=0x00ab, f01=0x0190, f02=» 2 $ P MOVE SPBINW4,=W'3' ERROR LENGTH 3 P B ART 3 0 P********** 3 > PA84 CHECK DEBITOR, BKO 3 P P MOVE SPBINW3,=W'7' FIELD 7 3 p , P MOVE SPBINW5,=W'3' MIGHT BE TRANSTYPE 3 3 P CBNE SPBINW2,=W'3',A842 3 P MOVE SPBINW2,=W'17' 3 PA842 3
0x2de6b8…2de84c Dummy {f00=0x00ab, f01=0x0190, f02=»NOK ART 3 P B A07 4 PA845 4 P MOVE SPBINW5,=W'4' 4 * P B A843 4 F P********** 4 V $ PA85 CHECK REMITTERING, KONTONR 4 h P MOVE SPBINW3,=W'5' FIELD 5 4 ( P CBL SPBINW1,=W'3',A805 CHECK LENGTH 4 ( P CBE SPBINW1,=W'10',A850 MUST BE 10 4
0x2de84c…2de9e0 Dummy {f00=0x00ab, f01=0x0190, f02=» P MOVE GSWBCD1,SPINPUT 5 P PERF KTPLAN,GSWBCD1,GTKTTYP 5 " P B APK 5 F PA855 5 T $ P MOVE SPBINW4,=W'4' INVALID KEY 5 ` P B ART 5 P********** 5 $ PA86 CHECK REMITTERING, LEV.NR. 5 P MOVE SPBINW3,=W'6' FIELD 6 5 , P MOVE SPBINW5,=W'8'
0x2de9e0…2deb74 (4, 127) Dummy {f00=0x00ab, f01=0x0190, f02=»********** 5 & PA87 CHECK REMITTERING, YD.MODT. 6 " P MOVE SPBINW3,=W'21' FIELD 21 6 < , P MOVE SPBINW5,=W'9' MIGHT BE TRANSTYPE 9 6 b " P B A821 CHECK FOR INVALID KEY 6 P********** 6 PA88 6 P MOVE SPBINW3,=W'7' FIELD 7 6 P MOVE SPBINW2,
0x2deb74…2ded08 Dummy {f00=0x00ab, f01=0x0190, f02=»E SPINPUT,=X'35320000' 52 IF CPR 6 P B A07 7 ( P********** 7 6 PA89 7 H ( P MOVE SPBINW3,=W'6' STORE IN FIELD 6 7 T P B APK 7 P********** 7 PA90 SIMULATE SLUT KEY 7 P CLEAR GTSLUTFL 7 P CLEAR GTADUPFL 7 " P MOVE SPBINW2,=W'17' SLU
0x2ded08…2dee9c Dummy {f00=0x00ab, f01=0x0190, f02=» 7 ~ P BNE ART 8 P MOVE SPBINW2,=W'17' 8 P B ART 8 6 P********** 8 F PA100 CHECK TR 12 COUNTERS 8 X P MOVE GSWBCD1,SPINPUT 8 | P SUB GSWBCD1,=D'100' 8 P MOVE GSWBIN6,GSWBCD1 8 & P CBL GSWBIN6,CBIN1,A1009 TOO SMALL 8 4 P CBG GSWBI
0x2dee9c…2df030 Dummy {f00=0x00ab, f01=0x0190, f02=» 8 | P B ART 9 P********** 9 PA101 CHECK BEHL. COUNTERS 9 ( P MOVE GSWBCD1,SPINPUT 9 L P CBL GSWBCD1,=D'1',A101ER 9 j P MOVE GSWBIN6,GSWBCD1 9 , P CBG GSWBIN6,CBEH(TTASKNR,CBIN2),A101ER 9 $ P ADD GSWBIN6,CBEH(TTASKNR,CBIN1) 9 P B ART
0x2df030…2df1c4 Dummy {f00=0x00ab, f01=0x0190, f02=»AT 9 | PA102A : , P MOVE GSWBCD5,=D'2' INITIATE REL DAY NO. : & P MOVE GSWBCD3,=D'1' BLANK GSWBCD3 : H * P MOVE GSWBIN2,CBIN8 SET POINTER TO DAY : r 6 P COPY GSWBCD3,CBIN4,CBIN2,GSWBCD7,GSWBIN2 GET DAY : , P ADD GSWBCD5,GSWBCD3 ADD DAY TO REL. DAY : ,
0x2df1c4…2df358 Dummy {f00=0x00ab, f01=0x018e, f02=»LE NO. OF MONTHS : v & P MUL GSWBCD3,=D'30' EQUAL IN DAYS ; P ADD GSWBCD5,GSWBCD3 ; B , P MOVE GSWBCD3,SPINPUT GET KEYED REL. DAY ; ^ P SUB GSWBCD5,=D'5' ; * P CBL GSWBCD3,GSWBCD5,A102ER TOO SMALL ; P ADD GSWBCD5,=D'10' ; * P CBG GSWBCD3,GSWBCD5,A
0x2df358…2df4ec Dummy {f00=0x00ab, f01=0x0190, f02=» ; z P B ART < P********** < PA103 SET BEHL. COUNTERS < ( P MOVE GSWBCD3,SPINPUT < J P MOVE GSWBIN6,GSWBCD3 < h $ P ADD GSWBIN6,CBEH(GSWBIN1,CBIN1) < ( P CBG GSWBIN6,=W'60',A103ER TOO MANY < P CBE GSWBIN1,CBIN12,A1035 < P ADD GSWBIN1
0x2df4ec…2df680 Dummy {f00=0x00ab, f01=0x018e, f02=»(GSWBIN1,CBIN2),GSWBIN6 < P B ART = PA103ER = . P MOVE SPBINW4,=W'11' = < P B ART = X P********** = f PA104 SET TR 12 COUNTERS = x P MOVE GSWBCD4,SPINPUT = P MOVE GSWBIN6,GSWBCD4 = & P ADD GSWBIN6,CTR12(GSWBIN1,CBIN1) = ( P CBG GSW
0x2df680…2df814 (4, 128) Dummy {f00=0x00ab, f01=0x0190, f02=» P SUB GSWBIN1,CBIN1 > PA1045 > P MOVE GSWBIN6,GSWBCD4 > , & P MOVE CTR12(GSWBIN1,CBIN2),GSWBIN6 > J P B ART > t PA104ER > P MOVE SPBINW4,=W'11' > P B ART > P********** > PA105 CONRTL.DIGITCALC. > P MOVE GSWBCD6,SPINPUT >
0x2df814…2df9a8 Dummy {f00=0x00ab, f01=0x0190, f02=» P MOVE GSWBIN2,=W'13' ? P MOVE GSWBCD5,=D'0' ? PCALCD02 ? < P MOVE GSWBCD3,=D'0' ? L > P COPY GSWBCD3,CBIN5,CBIN1,GSWBCD6,GSWBIN2 GET NEXT DIGIT ? j 4 P MUL GSWBCD3,WEIGTH(GSWBIN2) MULTIPLY BY WEIGHT ? * P ADD GSWBCD5,GSWBCD3 ADD TO OLD SU
0x2df9a8…2dfb3c Dummy {f00=0x00ab, f01=0x0190, f02=»OVE GSWBCD4,GSWBCD5 ? P DIV GSWBCD5,=D'11' @ P MUL GSWBCD5,=D'11' @ 8 8 P SUB GSWBCD4,GSWBCD5 GET REMAINDER MOD 11 @ T P CBNE GSWBCD4,=D'0',CALCD05 @ P MOVE GSWBCD4,=D'11' @ PCALCD05 @ P MOVE GSWBCD5,=D'11' @ 2 P SUB GSWBCD5
0x2dfb3c…2dfcd0 Dummy {f00=0x00ab, f01=0x0190, f02=»E @ r P CBL GSWBCD3,=D'6',ART A . P MOVE SPBINW4,=W'11' ERROR 'OUT OF RANGE' A ( P B ART A Z P********** A h $ PA107 REL DAY, 'POSTERINGSDATO' A z P MOVE GSWBCD7,GTDATO A P B A102A A P********** A PA108 SPG-REGKONTONR A P MOVE GSWB
0x2dfcd0…2dfe64 Dummy {f00=0x00ab, f01=0x0190, f02=» PA110 SPG-BELOB B P MOVE GSWBCD6,=D'8' B P B ART B 8 P********** B F PA111 SPG-OTHER FIELD B X P MOVE GSWBCD6,SPINPUT B v P CBG GSWBCD6,=D'90',A111ERR B P MOVE GSWBCD7,=D'0' B P B ART B PA111ERR B P MOVE SPBINW4,=W'11' B
0x2dfe64…2dfff8 Dummy {f00=0x00ab, f01=0x0190, f02=» $ P MOVE GTKTTYP,=D'0' NOT KONTONR. C PAPK10 C , " P PERF PACKCL YES, CLEAR GTUSED C : P PERF CRKJ C ` " P SET SPME CHECK FOR ME FIELDS C r PAPK00 C 6 P MOVE GSWBIN1,CFLTDEX(SPBINW3) GET INDEX OF FIELD C 4 P MOVE GTUSED(GSWBIN1),SPBINW3 STORE FIEL
0x2dfff8…2e018c Dummy {f00=0x00ab, f01=0x0190, f02=»CKCL YES, CLEAR GTUSED C P PERF CRKJ D " P SET SPME CHECK FOR ME FIELDS D 0 PAPF00 D V P TBT SPDUPL,APF10 D d $ P MOVE GSWBCD6,SPINPUT GET VALUE D ~ P MUL GSWBCD6,GTDBKRS D P MOVE SPINPUT,GSWBCD6 D PAPF10 D > P MOVE GSWBIN1,CFLTDEX(SPBI
0x2e018c…2e0320 Dummy {f00=0x00ab, f01=0x0190, f02=»H SIGN) D ^ " P MOVE GTUSED(GSWBIN1),SPBINW3 E P MUL GTUSED(GSWBIN1),=W'-1' E 6 P B ART E Z P********** E h PART E z P MOVE SPBINW3,CBIN1 E P CBL SPBINW4,CBIN3,ARET E P MOVE SPBINW3,CBIN3 E PARET E P RET E P PEND E P****
0x2e0320…2e04b4 (4, 129) Dummy {f00=0x00ac, f01=0x0190, f02=»ION E h P* F P******************** F P MOVE GTDBKRC,=C' KRE' F 2 P MOVE GTDBKRS,=D'-1' F P P MOVE TTDKBCD,=D'1' F l P MOVE TTDKDEX,=W'1' F P RET F P PEND F P* F P* F P* F P* F P* F PSETDEB PROC F P****
0x2e04b4…2e0648 Dummy {f00=0x00ac, f01=0x0190, f02=»=C' DEB' F P MOVE GTDBKRS,=D'+1' G P MOVE TTDKBCD,=D'2' G , P MOVE TTDKDEX,=W'2' G H P RET G d P PEND G p P EJECT G ~ PCLRSW PROC G P******************** G P* G . P* CLRSW - CLEAR ALL AUTODUP FLAGS G P* G P********
0x2e0648…2e07dc Dummy {f00=0x00ac, f01=0x0190, f02=»N1,CBINMAX,CLRSW1 G P RET H P PEND H & P EJECT H 4 PSELTR PROC H B P******************** H T P* H p > P* SELTR - PROCEDURE TO SEE IF TRANSTYPE HAS BEEN H z P* SELECTED. H 0 P* SELECTED TRANSTYPE IS IN SPBINW5 H
0x2e07dc…2e0970 Dummy {f00=0x00ac, f01=0x0190, f02=»INW2,=W'17',SEL20 DEBET KEY H $ P MOVE SPBINW4,=W'4' INVALID KEY I $ $ P CMP CBIN1,CBIN0 NOK, SET CR<>0 I L P RET I t PSEL10 KREDIT I P PERF SETKRE I P B SEL30 I PSEL20 DEBET I P PERF SETDEB I PSEL30 TRANSTYPE SELECTED I P M
0x2e0970…2e0b04 Dummy {f00=0x00ac, f01=0x0190, f02=»C I < P SEL90,SEL45,SEL90,SEL90,SEL90,SEL90,SEL90,SEL45,SEL90 J PSEL45 J J P CBL GSWBIN1,CBIN3,SEL50 J X P SET SPWARNFL WARNING J x P B SEL90 J PSEL50 J P MOVE SPBINW4,=W'19' ERROR J P CMP CBIN1,CBIN0 J P RET J PSEL90 J P
0x2e0b04…2e0c98 Dummy {f00=0x00ac, f01=0x40a8, f02=» P SET GTTRSEL K PSELOK K " P CMP CBIN0,CBIN0 OK, SET CR=0 K & P RET K L P PEND K X P* K f P* K p P* K z P* K P* K P END K @ K L50 J P MOVE SPBINW4,=W'19' ERROR J P CMP CBIN1,CBIN0 J P RET J PSEL90 J P
0x2e0c98…2e0e2c Dummy {f00=0x00ac, f01=0x2008, f02=» L ,=W'5'@SET POINTER OF RECEIVING FIELD > P@COPY@TABCD4,TSBIN1,CBIN1,TSBCD3,CBIN2@GET DIGIT FOR TEST 6 P@CB@GT,TSBCD4,=W'3',A659 x P@CB@LT,TSBCD4,=W'1',A659 P@B@APK PA659 PMOVE 0P&&RW 0 0 89 ' P@MOVE@CR,=W'2' P@RET
0x2e0e2c…2e0fc0 Dummy {f00=0x00ac, f01=0x018e, f02=» XXVXXVXX % " % ( % , % 8 & % H X % Z " % l ( % | % & $ @ % XX % " % ( % % & ' % TT
0x2e0fc0…2e1154 (4, 130) Opaque[0x194]
0x2e1154…2e12e8 # DirEnt {nam=»RGMAIN«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x1588, f03=0x0000}
0x2e1154…2e12e8 IdxSect {
0x2e1154…2e12e8 f00 = 0x00ac // 0x2e1154 @0x0
0x2e1154…2e12e8 f01 = 0x000a // 0x2e1156 @0x2
0x2e1154…2e12e8 gno = [ // 0x2e1158 @0x4
0x2e1154…2e12e8 [0x00]: C0x00ac.0x1.0
0x2e1154…2e12e8 [0x01]: C0x00ac.0x2.0
0x2e1154…2e12e8 [0x02]: C0x00ac.0x3.0
0x2e1154…2e12e8 [0x03]: C0x00ad.0x0.0
0x2e1154…2e12e8 [0x04]: C0x00ad.0x1.0
0x2e1154…2e12e8 ]
0x2e1154…2e12e8 }
0x2e12e8…2e147c Dummy {f00=0x00ac, f01=0x0190, f02=» P IDENT RGMAIN 02.01.XXX.1 P DDUM KMD08 & P PDIV : P ENTRY INITRG H P ENTRY FUNCT ^ P ENTRY TRINP r P ENTRY TRPAGE P EXT BELL P EXT SETKRE P EXT SETDEB P EXT PACKCL P EXT FMSTYR P EXT FRMTS
0x2e147c…2e1610 Dummy {f00=0x00ac, f01=0x0190, f02=» P EXT SUBTOT P EXT CYK P EXT MODP , P EXT KORT > P EXT KVIT P P EXT ADM b P EXT SUM r P EXT DIVTR P EXT ENTER P INCLUDE EQUATE P EJECT PINITRG PROC P******************** P* H P*
0x2e1610…2e17a4 Dummy {f00=0x00ac, f01=0x0190, f02=» ONLY KASSEFUNCTIONS, FROM OPEN TO CLOSE. . P* TWO DIFFERENT METHODS ARE USED, 4 . P* DETERMINED BY THE FLAG CTRVALG: f 0 P* CTRVALG TRUE : 'SKOVBOMETODE' 0 P* CTRVALG FALSE: 'VIBORGMETODE' P*
0x2e17a4…2e1938 Dummy {f00=0x00ac, f01=0x0190, f02=»W'0' LAST LINE, SCREEN ( P MOVE SPKEY,CBIN1 USE KEY POSITION 1 P SET GTREGFLG FIRST TRANS J P CLEAR SPME l , P MOVE GTREGNR,=D'1' INITIAL TRANSTYPE 1 P MOVE GTREGDEX,CBIN1 P PERF SETKRE KREDIT " P PERF PACKCL CLEAR PACKBUFFER
0x2e1938…2e1acc Dummy {f00=0x00ac, f01=0x0190, f02=»IVTR 'DIVERSE TRANS' P B TR400 P* , P* INITIATE VIBORGMETODE 6 PTR250 Z P CLEAR GTDIVTR h $ P MOVE TTSTYRDX,=W'1' 'HOVEDBOG' ~ P B TR400 P EJECT P* READ PTR400 P SET SPPROMPT , P MOVE TTTROLD,
0x2e1acc…2e1c60 Dummy {f00=0x00ac, f01=0x0190, f02=»' ~ $ P PERF FMSTYR ATTACH CONTROL INF P CLEAR GTTRSEL 2 P B TR430 H PTR420 X $ P PERF FRMTSP ATTACH FULL FORMAT f PTR430 P TBT GTLOKSPG,TR435 P MOVE SPKEY,CBIN1 * P PERF SPCLRA WRITE AND READ ON SCREEN P B TR500
0x2e1c60…2e1df4 (4, 131) Dummy {f00=0x00ac, f01=0x0190, f02=» | P* FUNCTION CALL P PERF FUNCT $ P SET GTSLUTFL 8 $ P* BRANCH ON TYPE OF FUNCTION N P IB SPBINW3, C v $ P TR510,TR520,TR530,TR540,TR550 P* $ PTR510 NEW TYPE OF CONTROL INF P B TR400 P* PTR520
0x2e1df4…2e1f88 Dummy {f00=0x00ac, f01=0x0190, f02=»ITHOUT INPUT ~ P CLEAR SPPROMPT P PERF SPCLRA RESTAT INPUT , P B TR500 N P* ^ PTR540 FUNCTION WITH INPUT h P B TR400 P* PTR550 OUT OF REGISTRATION P SET SPME P RET P* P EJECT PTR600
0x2e1f88…2e211c Dummy {f00=0x00ac, f01=0x0190, f02=» TRSEL, END 1 PG, END MORE PG, ~ P* TO NEXT PAGE) & P IB SPBINW3, C B * P TR610,TR620,TR630,TR640,TR650,TR660 Z P* PTR610 MAK TYPE P PERF TRPAGE P B TR400 P* PTR620 INVALID KEY P PERF SPERR P
0x2e211c…2e22b0 Dummy {f00=0x00ac, f01=0x0190, f02=» " P TBT GTDIVTR,TR620 NOT ALLOWED P PERF TRPAGE * P CBNE TTTROLD,GTREGDEX,TR635 > * P CLEAR SPPROMPT SAME AS PREVIOUS TRANS b P PERF SPINF1 P PERF FRMTSP P PERF SPCN P B TR500 PTR635 P CBL TTTROLD,CBIN0,TR636 P
0x2e22b0…2e2444 Dummy {f00=0x00ac, f01=0x0190, f02=» P PERF FRMTSP P PERF SPCA P B TR500 . P* > PTR640 1 PAGE TRANS CORRECT H P TBT GTDIVTR,TR645 l 2 P ERASE 10,SPLINTOP,SPLINLOW ERASE VARIABLES IN P MOVE GTDBKRC,=C' ' P CURRENT FORMAT PTR645 P CLEAR S
0x2e2444…2e25d8 Dummy {f00=0x00ac, f01=0x0190, f02=»GTDBKRC,=C' ' P CLEAR GTREGFLG P B TR610 . P* > PTR660 TO NEXT PAGE H P NEXT PAGE ALREADY d P ATTACHED P MOVE TTTROLD,CBIN0 P SET SPPROMPT P PERF SPCLRA P B TR500 P* P* P PEND
0x2e25d8…2e276c Dummy {f00=0x00ac, f01=0x0190, f02=»LOWED. R P* INPUT: < P* SPBINW2, GIVING KEY INDEX, COMMING FROM ( , P* SCREEN PACKAGE h P* OUTPUT: 8 P* SPBINW3, GIVING THE TYPE OF FUNCTION < P* 1
0x2e276c…2e2900 Dummy {f00=0x00ac, f01=0x0190, f02=» 2 P* 4 FUNCTION WITH INPUT : P* 5 REG KEY, OUT OF REGISTRATION : P* x P******************** P* P IB SPBINW2, C < P FU01,FU02,FU03,FU04,FU05,FU06,FU07,FU08,FU09,FU10, C < P FU11,F
0x2e2900…2e2a94 (4, 132) Dummy {f00=0x00ac, f01=0x0190, f02=» P CLEAR GTLOKSPG P MAK P MOVE SPBINW3,CBIN1 * P RET F P* R PFU03 ENTER P TBT GTLOKSPG,FU08 p P TEST GTDIVTR P BZ FUNOK P PERF SETDEB P PERF BELL P PERF SPINF1 P MOVE SPBINW3,CBIN3 DEBET
0x2e2a94…2e2c28 Dummy {f00=0x00ac, f01=0x0190, f02=»F SPINF1 P MOVE SPBINW3,CBIN3 KREDIT P RET 2 P* > PFU05 REG KEY H , P MOVE SPBINW3,CBIN5 OUT OF REGISTRATION ^ P RET P* PFU06 LISTE P PERF LSTINT P BNOK FUNOK P B FUOK P* PFU07 SUBTOTA
0x2e2c28…2e2dbc Dummy {f00=0x00ac, f01=0x018e, f02=»BINW3,CBIN1 P RET P* PFU09 CYCLE * P PERF CYK,CBIN1 > P BNOK FUNOK V P MOVE SPBINW3,CBIN4 j P RET P* PFU10 STABEL P PERF CYK,CBIN2 P BNOK FUNOK P MOVE SPBINW3,CBIN4 P RET P*
0x2e2dbc…2e2f50 Dummy {f00=0x00ac, f01=0x0190, f02=» P MOVE SPBINW3,CBIN4 P RET P* , PFU12 KONTOKORT 6 P PERF KORT N P BNOK FUNOK ` P MOVE SPBINW3,CBIN4 t P RET P* PFU13 KVIT P PERF KVIT P BNOK FUNOK P B FUOK P* PFU14 SUPL
0x2e2f50…2e30e4 Dummy {f00=0x00ac, f01=0x018e, f02=»UOK P* PFU16 ADM KEY & P MOVE GSWBCD3,SPINPUT GET ADM TYPE , P MOVE GSWBIN1,GSWBCD3 V P PERF ADM,GSWBIN1 t P MOVE SPBINW3,CBIN4 P RET P* PFU17 CYCLE KEY , P MOVE GSWBCD3,SPINPUT GET TYPE OF CYCLE P
0x2e30e4…2e3278 Dummy {f00=0x00ac, f01=0x018e, f02=» t ( P PERF CYK,CBIN10 END OF CYCLE/STABEL P BNOK FUNOK 4 P B FUOK H P* X " PFCYK4 PAUSE IN CYCLE STABEL b P PERF CYK,CBIN4 P BNOK FUNOK P B FUOK P* PFCYK9 ( P PERF CYK,CBIN9 CLEAR ARKIV KNT. NR P
0x2e3278…2e340c Dummy {f00=0x00ac, f01=0x0190, f02=» P RET P* PFU19 HOVEDBOG P TBT GTDIVTR,FUNOK 2 P MOVE TTSTYRDX,=W'1' L P MOVE SPBINW3,CBIN1 h P RET P* PFU20 DEBITOR POSTERING P TBT GTDIVTR,FUNOK P MOVE TTSTYRDX,=W'2' P MOVE SPBINW3,CBIN1
0x2e340c…2e35a0 Dummy {f00=0x00ac, f01=0x018e, f02=»ET P* $ PFU22 TRANS SELECTION IN DIVTR P TBF GTDIVTR,FUNOK < P PERF TRPAGE V P MOVE SPBINW3,CBIN1 j P RET P* PFU23 ONLINE " P PERF ADM,CBIN7 PERFORM ONLINE & P MOVE SPBINW3,CBIN4 REWRITE SCREEN P RET
0x2e35a0…2e3734 (4, 133) Dummy {f00=0x00ad, f01=0x0190, f02=» P MOVE SPBINW3,CBIN3 P RET $ P* 0 P* : P PEND D P EJECT R PTRINP PROC ` P******************** r P* F P* TRINP - PROCEDURE FOR HANDLING INFORMATION GIVEN OVER ( P* FROM THE SCREEN PACKAGE.
0x2e3734…2e38c8 Dummy {f00=0x00ad, f01=0x0190, f02=»* ITSELF. $ P* SPCHANGE WILL BE SET. P* INPUT: B 8 P* SPBINW2: INDEX FOR THE KEY DEPRESSED P* OUTPUT: 6 P* SPBINW3: GIVING THE TYPE OF INPUT P* 1 MAK TYPE
0x2e38c8…2e3a5c Dummy {f00=0x00ad, f01=0x0190, f02=» h . P* 5 >1 PAGE TRANS CORRECT < P* 6 NEXT PAGE OF TRANS ALREADY ATTACHED : P* z P******************** P* P IB SPBINW2, C P IN01,IN02,IN03 P CBE SPBINW2,=W'22',IN22 PIN00 $ P M
0x2e3a5c…2e3bf0 Dummy {f00=0x00ad, f01=0x0190, f02=» PIN03 AFTER SLUT, P TBT GTTRSEL,IN030 ( P CBE SPBINW1,=W'0',IN00 NOT ALLOWED 8 PIN030 d P PERF ENTER r * P BNOK IN035 ERRORS DETECTED IN FLDTST P IB GTRETUR, C P IN031,IN032,IN033 PIN031 P MOVE SPBINW3,CBIN
0x2e3bf0…2e3d84 Dummy {f00=0x00ad, f01=0x0190, f02=» P TBWD TAB OVER LAST FIELD P MOVE SPBINW3,CBIN2 * P RET F P* R PIN22 P TRANS SELECTED h P MOVE SPBINW3,CBIN3 P RET P* P PEND P EJECT PTRPAGE PROC P******************** P* F
0x2e3d84…2e3f18 Dummy {f00=0x00ad, f01=0x0190, f02=» THE TRANSACTION P* P******************** * P* F & P SET GTTRSEL TRANSACTION SELECTED P P CLEAR GTTYPE2 z P CLEAR GTTYPE3 P MOVE GTPAGE,CBIN1 B P* TRANSTYPE 01, 02, 03, 04, 05, 06, 07, 08, 09, 10, B P*
0x2e3f18…2e40ac Dummy {f00=0x00ad, f01=0x4172, f02=» PG01,PG01,PG01,PG01,PG01,PG01,PG01,PG02,PG02,PG01, C < P PG01,PG01,PG01,PG01,PG01,PG01,PG01,PG01,PG01,PG01, C @ P PG03,PG01,PG03,PG01 P* PPG01 P RET P* PPG02 P SET GTTYPE2 P RET P* PPG03
0x2e40ac…2e4240 Dummy {f00=0x00ad, f01=0x2008, f02=» NT RGMAIN @ AG&5 z < PTRERR ERRORMESSAG&5 * P PERF SPERR j P B TR90 P PEND P* P* @ NTERMEDIATE STOP OF CYCLE 8 P
0x2e4240…2e43d4 (4, 134) Dummy {f00=0x00ad, f01=0x0190, f02=» u u 0 11 mA W @ 2 FFGH! ! _ | 0 1_% ` 0 1_2 X 0 1A 1 f _W A 0 1 ) ! ~ 1 x@ 1 W A _ @ W I I I :A W @ 4 2 W H !I |A 1 l 6 _ | W 3WX WT 4WP /WL 5WH 6WD0 * 2$ 0 $0
0x2e43d4…2e4568 Dummy {f00=0x00ad, f01=0x0190, f02=» v4 H 0 _ A A* * H" Ev E wMC , xv * , C EuH" < =H" Ev @$@*@ 4 0 4 0 4 0 G 4 !x wMCT C > CT 4 4 A)!B( @) aMsaMo a @ $bM 4 A)!B( @)aMs E aM?4 C Ev xv = xv! , + ( H * 6
0x2e4568…2e46fc Dummy {f00=0x00ad, f01=0x0190, f02=» W _ , ( ? y"W( _ , T T xv <P xv W 4 4 1 PrXE r ,z P {$ X J f ( } Z ^ N D H R V {` 0 " f f H _ p Z ( , ' ) - / K f s
0x2e46fc…2e4890 Dummy {f00=0x00ad, f01=0x0190, f02=» V l } Z T l i @ = * g 4 B z u Z Y ~ ' 1 k y ] c L
0x2e4890…2e4a24 Dummy {f00=0x00ad, f01=0x0190, f02=» ( 2 3 @ G@K@ *-DKST NR&04BEL DEB KRE SUMKVITTRP ADM ARKIVBILAGDEBETFEJL KLAR SALD0SALDOSLUTDZ300 KVITDAG NREJ EDBKREDITLBNR T[LLERKONTONRKORREKT DIVERSETOTAL EKS.LBNRBEREGNINGDAGS-DATOKONTOKORTMASKIN NRPOST-DATOSTART SUMSUBTOTAL CPR/
0x2e4a24…2e4bb8 Dummy {f00=0x00ad, f01=0x0190, f02=»LUKNING ]BNE KASSERKONVERTERING REGNEFUNKTIONSLET PERIODE EJ-EDB T[LLER DISKETTE SKIFT BEHOLDNINGST[LLEREVERSUR KONTONR REMIT VERSURKONTONR KASSEKONTONR PRIMO KASSE %9BX999BBZXXZZ99999BB**B9BBBXBBZBXBBXXBZZZZZ9999999BB**BB99.B999B99BBBZBBBZZB
0x2e4bb8…2e4d4c Dummy {f00=0x00ad, f01=0x0190, f02=»99.99.99BZZ.ZZ.ZZBZZZZZZZZZZ.ZZ.ZZB99E-99E-99B99.99.99BBB99.99.9999.99.999.9BZZZZZZZZBBBZZZZZZZZZZ******E-****99999999E-99XXXXXXE-XXXXXXXXXXXXE-XXZZZZ9999.99BZZZZZZZZE-ZZZZZZZZZZZE-9BBZZ.ZZ.ZZBBBE-9999999999BXXX.XXXXX.XXB999E-99999E-99B999.99999.99BTTTTTTTTTTTTX-X
0x2e4d4c…2e4ee0 Dummy {f00=0x00ad, f01=0x0190, f02=».**9,99+*.***.***.**9.99+*.***.***.**9.99-Z.ZZZ.ZZZ.ZZ9.99-*.***.***.**9.99+BB*.***.***.**9.99-B*.***.***.**9E,99B999E-999E-99E-99BBBZZZE-ZZZE-ZZE-ZZTTT.TTT.TTT.TT9.99-ZZZ.ZZZ.ZZZ.ZZ9.99-BTTT.TTT.TTT.TT9.99-BBZZZ.ZZZ.ZZZ.ZZ9.99-
0x2e4ee0…2e5074 (4, 135) Opaque[0x194]
0x2e5074…2e5208 # DirEnt {nam=»RGFRMT«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x09c8, f03=0x0000}
0x2e5074…2e5208 IdxSect {
0x2e5074…2e5208 f00 = 0x004e // 0x2e5074 @0x0
0x2e5074…2e5208 f01 = 0x0010 // 0x2e5076 @0x2
0x2e5074…2e5208 gno = [ // 0x2e5078 @0x4
0x2e5074…2e5208 [0x00]: C0x004e.0x1.0
0x2e5074…2e5208 [0x01]: C0x004e.0x2.0
0x2e5074…2e5208 [0x02]: C0x0090.0x2.0
0x2e5074…2e5208 [0x03]: C0x009d.0x3.0
0x2e5074…2e5208 [0x04]: C0x009e.0x1.0
0x2e5074…2e5208 [0x05]: C0x009e.0x2.0
0x2e5074…2e5208 [0x06]: C0x009e.0x3.0
0x2e5074…2e5208 [0x07]: C0x00a0.0x0.0
0x2e5074…2e5208 ]
0x2e5074…2e5208 }
0x2e5208…2e539c Dummy {f00=0x004e, f01=0x018e, f02=» P IDENT RGFRMT 02.01.XXX.1 P DDUM KMD08 & P PDIV : P ENTRY FRMTSP H P ENTRY FRMXSP ^ P ENTRY FMSTYR t P INCLUDE EQUATE PFMSTYR PROC P******************** P* 0 P* FORMATS FOR CONTROLLING CHOICE OF
0x2e539c…2e5530 Dummy {f00=0x004e, f01=0x0190, f02=» P PEND P* PFRMTSP PROC P* 4 P******************* > : P* ATTACHES A FORMAT FOR USE IN SCREEN PACKAGE Z P* > P* USES GTREGDEX TO DETERMINE WHICH FORMAT TO USE P* P********************
0x2e5530…2e56c4 Dummy {f00=0x004e, f01=0x0190, f02=» 0 P* ATTACHES FORMATS FOR PAGE 2 AND 3 ( P* FOR TRANSTYPES 8,9,51,53 < 2 P* PLUS OTHER EXTRA FORMATS ON SCREEN h P* P******************* P ATTFMT XSPFTB(XSPDEX) P RET P PEND P* P E
0x2e56c4…2e5858 Dummy {f00=0x004e, f01=0x0190, f02=» t 8 PSPFTB FTABLE FRMT01,FRMT02,FRMT03,FRMT04,FRMT05, C , P FRMT06,FRMT07,FRMT08,FRMT09,FRMT10, C D , P FRMT12,FRMT00,FRMT00,FRMT00,FRMT00, C t , P FRMT00,FRMT00,FRMT00,FRMT00,FRMT00 C ( P FRMT00,FRMT00,FRMT00,FRMT00,FRMT00 P*
0x2e5858…2e59ec Dummy {f00=0x004e, f01=0x018e, f02=»1, C t P XSPLIN P EJECT PSTYRHB FRMT , P FSL @ P FTAB 4 L P FCOPY ='HOVEDBOG' P FLINK FCYST v P FNL P FCOPY ='REGKONTONR' P FTAB 13 P FCOPY ='CPR/CIR/NR' P FTAB 25 P FCOPY ='YDELSESMODT'
0x2e59ec…2e5b80 Dummy {f00=0x004e, f01=0x0190, f02=» @ P FKI 13,MINL=7,MAXL=10,REWRT,APPL=81,DUPL=GTDUPF(CBIN2), C P SCHK=1 H & P FMEL 'XXXXXXE-XXXX',GTREGF(CBIN2) X B P FKI 25,MINL=10,MAXL=10,REWRT,APPL=82,DUPL=GTDUPF(CBIN10), C P SCHK=1 ( P FMEL 'XXXXXXE-XXXX',GTREGF(CBIN10) P FME
0x2e5b80…2e5d14 (4, 136) Dummy {f00=0x004e, f01=0x0190, f02=»CYST P FNL P FCOPY ='DEBITOR' P FILLR ' ',1 2 P FCOPY ='NR' F P FILLR ' ',2 Z P FCOPY ='BET-ART' n P FNL 8 P FKI 1,MAXL=10,REWRT,APPL=83,DUPL=GTDUPF(CBIN2), C P SCHK=1,ME & P FMEL 'XXXXXXE-XXXX',GTREGF(CBIN2)
0x2e5d14…2e5ea8 Dummy {f00=0x004e, f01=0x0190, f02=»MEL 'XX',GTREGF(CBIN3) P FMEND P* , P* 6 PSTYRRM FRMT @ P FSL T P FTAB 3 ` P FCOPY =' REMITTERING' p P FLINK FCYST P FNL P FCOPY ='REGKONTONR' P FTAB 13 P FCOPY ='LEVERAND ' P FCOPY ='NR'
0x2e5ea8…2e603c Dummy {f00=0x004e, f01=0x0190, f02=» & P FMEL 'XXXXXXXXE-XX',GTREGF(CBIN1) @ P FKI 13,MINL=7,MAXL=10,REWRT,APPL=86,DUPL=GTDUPF(CBIN2), C . P SCHK=1,ME r & P FMEL 'XXXXXXE-XXXX',GTREGF(CBIN2) B P FKI 25,MINL=10,MAXL=10,REWRT,APPL=87,DUPL=GTDUPF(CBIN10), C P SCHK=1 ( P F
0x2e603c…2e61d0 Dummy {f00=0x004e, f01=0x0190, f02=» P* P* 6 PFRMT01 FRMT TRANSTYPE 1 P FSL V P FBF GTDIVTR,SFMT01 b P FMEL '99',GTREGNR ~ P FCOPY =' NORMALPOST' P FTEXT ' M/P-NR' P FLINK FCYST P FNL P FCOPY ='REGKONTON
0x2e61d0…2e6364 Dummy {f00=0x004e, f01=0x0190, f02=» SUBF06 P FNL PSFMT01 $ P FBT GTDIVTR,SFMX01 2 P FTAB 4 N P FCOPY ='HOVEDBOG' ^ P FLINK FCYST x P FNL P FNL P FNL PSFMX01 P FLINK FBELOB P FNL P FLINK SUBF08
0x2e6364…2e64f8 Dummy {f00=0x004e, f01=0x0190, f02=» FCOPY ='BFO' P FNL P FLINK SUBV07 2 P FLINK SUBF11 P P FLINK SUBF12 n P FLINK FCYEND P FMEND P* P* 6 P TRANSTYPE 2 PFR
0x2e64f8…2e668c Dummy {f00=0x004e, f01=0x0190, f02=» P FNL P FCOPY ='REGKONTONR' P FNL @ P FLINK SUBF05 T P FNL r PSFMT02 P FBT GTDIVTR,SFMX02 P FTAB 4 P FCOPY ='HOVEDBOG' P FLINK FCYST P FNL P FNL P F
0x2e668c…2e6820 Dummy {f00=0x004e, f01=0x0190, f02=» P FLINK FCYEND P FMEND P* 4 P* > 6 P TRANSTYPE 3 H PFRMT03 FRMT P FSL P FBF GTDIVTR,SFMT03 P FMEL '99',GTREGNR P FTEXT ' DEBITORINDB' P FLINK FCYST
0x2e6820…2e69b4 (4, 137) Dummy {f00=0x0090, f01=0x0190, f02=» FNL P FLINK SUBF06 0 P FKI 30,MAXL=2,APPL=7,ME,DUPL=GTDUPF(CBIN3) * P FMEL 'XX',GTREGF(CBIN3) ^ P FNL ~ PSFMT03 P FBT GTDIVTR,SFMX03 P FTAB 4 P FCOPY ='DEBITOR' P FCOPY =' POST.' P FLINK FCY
0x2e69b4…2e6b48 Dummy {f00=0x0090, f01=0x0190, f02=» FTAB 22 P FLINK FVALOR P FNL & P FLINK SUBF08 2 P FLINK SUBF15 H P FLINK SUBF11X ^ P FNL t P FCOPY ='RTE/GEB' P FTAB 9 P FCOPY =' DEB' P FTAB 18 P FCOPY ='BFO' P FNL P FLINK SUBF16 P
0x2e6b48…2e6cdc Dummy {f00=0x0090, f01=0x0190, f02=» TRANSTYPE 4 t PFRMT04 FRMT P FSL 4 P FBF GTDIVTR,SFMT04 @ P FMEL '99',GTREGNR P FTEXT ' SD-INCASSO' v P FLINK FCYST P FNL P FTAB 13 P FCOPY ='CPR/CIR/NR' P FTAB 30 P
0x2e6cdc…2e6e70 Dummy {f00=0x0090, f01=0x0190, f02=»CBIN3) ~ P FNL PSFMT04 " P FBT GTDIVTR,SFMX04 0 P FTAB 4 L P FCOPY ='DEBITOR' P FCOPY =' POST.' v P FLINK FCYST P FNL P FNL P FNL PSFMX04 P FLINK FBELOB P FNL P
0x2e6e70…2e7004 Dummy {f00=0x0090, f01=0x0190, f02=»7 P FLINK SUBF11X P FLINK FCYEND P FMEND 6 P* L P* V 6 P TRANSTYPE 5 ` PFRMT05 FRMT P FSL P FMEL '99',GTREGNR P FTEXT ' SALDOOVERF' P FLINK FCYST P
0x2e7004…2e7198 Dummy {f00=0x0090, f01=0x0190, f02=»NK FBELOB P FNL P FLINK SUBF08 & P FNL D P FNL X P FLINK FCYEND l P FMEND P* P* 6 P TRANSTYPE 6 PFRMT06 FRMT P FSL P
0x2e7198…2e732c Dummy {f00=0x0090, f01=0x0190, f02=» P FCOPY ='REGKONTONR' P FTAB 13 , P FCOPY ='LEVERAND ' F P FTAB 25 j " P FCOPY ='YDELSESMODT' P FNL P FLINK SUBF05 P FLINK SUBF06 P FLINK SUBF21
0x2e732c…2e74c0 Dummy {f00=0x0090, f01=0x0190, f02=» P FNL P FNL PSFMX06 P FLINK FBELOB . P FNL L P FLINK SUBF08 ` P FNL ~ P FCOPY ='BKO' P FTAB 5 P FLINK FVALOR P FTAB 18 P FCOPY
0x2e74c0…2e7654 (4, 138) Dummy {f00=0x009d, f01=0x0190, f02=» SUBF11 P FLINK SUBF12 P FLINK SUBF22 . P FLINK FCYEND L P FMEND b P* x P* 8 P TRANSTYPE 07 PFRMT07 FRMT P FSL P FMEL '99',GTREGNR P FCO
0x2e7654…2e77e8 Dummy {f00=0x009d, f01=0x0190, f02=» P FLINK SUBF05 P FNL " P FLINK FBELOB 6 P FNL T P FLINK SUBF08 h P FNL P FNL P FLINK FCYEND P FMEND P* P* < P
0x2e77e8…2e797c Dummy {f00=0x009d, f01=0x0190, f02=»COPY =' REMITTERING' P FLINK FCYST P FNL 0 P FCOPY ='REGKONTONR' D P FTAB 13 h P FCOPY ='LEVERAND ' P FNL P FLINK SUBF05 P FLINK SUBF06 P FNL
0x2e797c…2e7b10 Dummy {f00=0x009d, f01=0x018e, f02=»NL PSFMX08 P FLINK FBELOB P FTAB 17 6 ( P FCOPY ='FAKTNR FAKTDATO' P P FNL | P FLINK SUBF08 P FLINK SUBF24 P FNL P FCOPY ='LEVKONTO' P FTAB
0x2e7b10…2e7ca4 Dummy {f00=0x009d, f01=0x0190, f02=» P FLINK SUBF11X P FLINK FCYEND P FMEND 4 P* J P* T < P TRANSTYPE 09 - 1 ^ PFRMT09 FRMT P FSL P FBF GTDIVTR,SFMT09 P FMEL '99',GTREGNR P FCOPY =' REMITTER
0x2e7ca4…2e7e38 Dummy {f00=0x009d, f01=0x0190, f02=» P FCOPY ='LEVERAND ' P FTAB 25 ( " P FCOPY ='YDELSESMODT' B P FNL h P FLINK SUBF05 | P FLINK SUBF06 P FLINK SUBF21 P FNL PSFMT09 P FBT GTDIVTR,SFM
0x2e7e38…2e7fcc Dummy {f00=0x009d, f01=0x0190, f02=» FLINK FBELOB P FTAB 17 ( P FCOPY ='FAKTNR FAKTDATO' 0 P FNL P FLINK SUBF08 p P FLINK SUBF24 P FNL P FCOPY ='LEVKONTO' P FTAB 13 P FCOPY ='TXT' P
0x2e7fcc…2e8160 Dummy {f00=0x009d, f01=0x0190, f02=»NK FCYEND P FMEND P* ( P* 2 8 P TRANSTYPE 10 < PFRMT10 FRMT x P FSL P FMEL '99',GTREGNR $ P FTEXT =' POST T/GL. ]R' P FLINK FCYST P FNL P
0x2e8160…2e82f4 (4, 139) Dummy {f00=0x009e, f01=0x0190, f02=»B 17 P FCOPY ='CPR/CIR/NR' P FNL ( P FLINK SUBF08 < 0 P FKI 17,MAXL=10,MINL=7,REWRT,APPL=6,NCLR, C Z P DUPL=GTDUPF(CBIN2),SCHK=1 & P FMEL 'XXXXXXE-XXXX',GTREGF(CBIN2) P FNL P FNL P FLI
0x2e82f4…2e8488 Dummy {f00=0x009e, f01=0x0190, f02=» ~ P FILLR ' ',1 P FCOPY ='EJ EDB' P FLINK FCYST 4 P FNL H P FCOPY ='TNR ' T P FCOPY ='KONTONR' j P FNL P FKI 1,MAXL=3,APPL=76,ME P FMEL 'XXX',GTREGF(CBIN10) 4 P FKI 5,MINL=7,MAXL=10,REWRT,APPL=78,SCHK=1,CTAB &
0x2e8488…2e861c Dummy {f00=0x009e, f01=0x0190, f02=»NL P FLINK FBELOB P FTAB 17 P FCOPY =' DIVERSE' 0 P FNL J P FLINK SUBF08 V P FKI 18,MAXL=10,APPL=89 l $ P FMEL 'XXXXXXXXXX',GTREGF(CBIN2) P FNL P FNL P FLINK FCYEND P FMEND P* P* P*
0x2e861c…2e87b0 Dummy {f00=0x009e, f01=0x0190, f02=»ORMATS FOR TRANS 50 P* ! P* ! & P* ! 0 PFCYST FRMT ! : P FTAB 23 ! L P FCOPY TTINF1 ! P FMEND ! r P* ! PFCYEND FRMT ! P FNL ! P FBF GTLOKSPG,FCY05 ! P FTAB 5 ! P FMEL '****9',GTLBNR ! PFCY05 ! P FBF TTS
0x2e87b0…2e8944 Dummy {f00=0x009e, f01=0x018e, f02=»D ! P FMEND " P* " PFMTEND FRMT " " P FNL " 6 P FKI 2,MAXL=1,APPL=90,VERIF " B P FMEL 'B',TSWBCD2 " f P FMEND " P* " P* " PFVALOR FRMT " P FCOPY ='VAL' " P FILLR X'5C',1 " P FILLR 'R',1 " P FMEND " P* "
0x2e8944…2e8ad8 Dummy {f00=0x009e, f01=0x0190, f02=» " @ P REGISTRERINGSKONTONNR # PSUBF05 FRMT # L F P FKI 1,MAXL=10,REWRT,APPL=5,DUPL=GTDUPF(CBIN1), C # b " P SCHK=1,ME,NCLR # 0 P FMEL 'XXXXXXXXE-XX',GTREGF(CBIN1) # P
0x2e8ad8…2e8c6c Dummy {f00=0x009e, f01=0x0190, f02=» FKI 13,MAXL=10,REWRT,APPL=6,DUPL=GTDUPF(CBIN2), C # " P SCHK=1,ME,NCLR $ F & P FMEL 'XXXXXXE-XXXX',GTREGF(CBIN2) $ l P FMEND $ P* $ P* $ 8 P BETALINGSKODE $ PSUBV07 FRMT $ 6
0x2e8c6c…2e8e00 Dummy {f00=0x009e, f01=0x0190, f02=» POSTERINGSBEL@B $ PSUBF08 FRMT % < @ P FKI 1,MAXL=12,REWRT,APPL=8,DUPL=GTDUPF(CBIN4), C % R P ME,NCLR,SCHK=4 % 2 P FMEL 'TTTTTTTVTTX,XX-',GTREGF(CBIN4) % P FMEND % P* % P %
0x2e8e00…2e8f94 (4, 140) Dummy {f00=0x009e, f01=0x0190, f02=»6,MAXL=6,APPL=11,DUPL=GTDUPF(CBIN7),SCHK=2 % z , P FMEL 'XXVXXVXX',GTREGF(CBIN7) & 2 P FMEND & b P* & x P* & PSUBF11X FRMT & < P FKI 22,MINL=6,MAXL=6,APPL=11,DUPL=GTDUPF(CBIN7),SCHK=2 & " P FMEL 'XXVXXVXX',GTREGF(CBIN7) & P F
0x2e8f94…2e9128 Dummy {f00=0x009e, f01=0x0190, f02=»=1,APPL=12,DUPL=GTDUPF(CBIN8) & z $ P FMEL 'X',GTREGF(CBIN8) ' & P FMEND ' N P* ' d P* ' n 8 P P$LIGNINGS]R ' x PSUBF15 FRMT ' 8 P FKI 18,MAXL=1,APPL=15,DUPL=GTDUPF(CBIN11) ' & P
0x2e9128…2e92bc Dummy {f00=0x009e, f01=0x0190, f02=»E ' Z PSUBF16 FRMT ( < P FKI 1,MAXL=1,APPL=16,DUPL=GTDUPF(CBIN12), C ( P NCLR ( ` & P FMEL 'X',GTREGF(CBIN12) ( | P FMEND ( P* ( P* ( H P FORFALDS]R/RESTAN
0x2e92bc…2e9450 Dummy {f00=0x009e, f01=0x0190, f02=»L=17,DUPL=GTDUPF(CBIN10),CTAB ( n & P FMEL 'XX',GTREGF(CBIN10) ) & D P FKI 5,MINL=2,MAXL=2,APPL=18,DUPL=GTDUPF(CBIN11),CTAB ) P & P FMEL 'XX',GTREGF(CBIN11) ) D P FKI 9,MINL=2,MAXL=2,APPL=19,DUPL=GTDUPF(CBIN12),CTAB )
0x2e9450…2e95e4 Dummy {f00=0x009e, f01=0x0190, f02=» ) n P FMEND * P* * P* * ( : P YDELSESMODTAGER * 2 PSUBF21 FRMT * p N P FKI 25,MINL=10,MAXL=10,REWRT,APPL=21,DUPL=GTDUPF(CBIN10), C * " P SCHK=1,ME,NCLR * 0 P F
0x2e95e4…2e9778 Dummy {f00=0x009e, f01=0x0190, f02=»ALINGSART * PSUBF22 FRMT + @ P FKI 22,MINL=2,MAXL=2,APPL=22,DUPL=GTDUPF(CBIN11) + ( & P FMEL 'XX',GTREGF(CBIN11) + l P FMEND + P* + P* + B P FAKTURA NUMMER OG DATO + PSU
0x2e9778…2e990c Dummy {f00=0x009e, f01=0x0190, f02=» FKI 26,MINL=6,MAXL=6,APPL=23,DUPL=GTDUPF(CBIN12), C + P SCHK=2 , D , P FMEL 'XXVXXVXX',GTREGF(CBIN12) , b P FMEND , P* , P* , @ P LEVERAND. KONTONUMMER , PSUBF25
0x2e990c…2e9aa0 Dummy {f00=0x009e, f01=0x018e, f02=» , P* - P* - 6 P TEXTNUMMER - PSUBF26 FRMT - V 8 P FKI 13,MAXL=4,APPL=26,DUPL=GTDUPF(CBIN15) - l ( P FMEL 'TTTX',GTREGF(CBIN15) - P FMEND - P* - P* - 8 P
0x2e9aa0…2e9c34 (4, 141) Dummy {f00=0x009e, f01=0x018e, f02=» & P FMEL 'XX',GTREGF(CBIN16) . P FMEND . . P* . D P* . N : P PERIODE FRA/TIL . X PSUBF37 FRMT . H P FKI 1,MINL=6,MAXL=6,APPL=37,DUPL=GTDUPF(CBIN18), C . P S
0x2e9c34…2e9dc8 Dummy {f00=0x009e, f01=0x0190, f02=» P SCHK=2 / , P FMEL 'XXVXXVXX',GTREGF(CBIN19) / " P FMEND / R P* / h P* / r B P ALTERNATIV ADRESSEKODE / | PSUBF46 FRMT / 8 P FKI 11,MAXL=1,APPL=46,DUPL=GTDUPF(CBI
0x2e9dc8…2e9f5c Dummy {f00=0x009e, f01=0x0190, f02=»EBITORL@BENUMMER / h PSUBF48 FRMT 0 8 P FKI 10,MAXL=3,APPL=48,DUPL=GTDUPF(CBIN15) 0 . ( P FMEL 'TTX',GTREGF(CBIN15) 0 j P FMEND 0 P* 0 P* 0 P EJECT 0 PFMT208 FRMT 0 P FSL 0 P FNL 0 P FNL 0 P F
0x2e9f5c…2ea0f0 Dummy {f00=0x009e, f01=0x0190, f02=» 0 ~ P FCOPY ='BFO' 1 P FNL 1 & P FLINK SUBV07 1 : P FLINK SUBF27 1 X P FLINK SUBF46 1 n P FLINK SUBF12 1 P FNL 1 & P FCOPY ='PER FRA PER TIL' 1 P FNL 1 P FLINK SUBF3
0x2ea0f0…2ea284 Dummy {f00=0x009e, f01=0x018e, f02=»PY ='BKO' 1 P FTAB 6 2 P FCOPY ='OMR' 2 " P FTAB 11 2 8 P FCOPY ='A-ADR' 2 H P FTAB 18 2 ` P FCOPY ='BFO' 2 z P FNL 2 P FLINK SUBV07 2 P FLINK SUBF27 2 P FLINK SUBF46 2 P FLINK SUB
0x2ea284…2ea418 Dummy {f00=0x009e, f01=0x0190, f02=» 2 P FLINK SUBF37 3 P FLINK SUBF22 3 & P FLINK FCYEND 3 D P FMEND 3 Z P* 3 h PFMT251 FRMT 3 r P FSL 3 P FCOPY ='SIDE 51-2' 3 P FMEND 3 PFMT253 FRMT 3 P FSL 3 P FCOPY ='SIDE 53-2' 3 P FMEND 3 PFM
0x2ea418…2ea5ac Dummy {f00=0x009e, f01=0x0190, f02=»ND 3 PFMTERR FRMT 4 P FSL 4 P FCOPY ='FEJL FORMAT' 4 * P FMEND 4 H P* 4 V P* 4 ` PXSPCY1 FRMT 4 j P FSL 4 ~ P FNL 4 P FNL 4 P FNL 4 P FNL 4 P FNL 4 P FBT TTCY2FLG,XSPL01 4 P FCOPY ='ARKIV' 4 P FCOPY ='KONTO
0x2ea5ac…2ea740 Dummy {f00=0x009e, f01=0x0190, f02=»XSPL02 4 ( P FKI 1,MINL=10,MAXL=10,REWRT,SCHK=1 5 & P FMEL 'XXXXXXXXE-XX',GTREGF(CBIN9) 5 : P FKI 15,MAXL=12,REWRT,SCHK=4 5 d $ P FMEL 'TTTTTTTVTTX,XX-',GTCYSUM 5 PXSPL02 5 P FKI 32,MAXL=2,SCHK=5,ME 5 P FMEL 'XX',TTLINNR 5 P FLINK FMTEND 5
0x2ea740…2ea8d4 (4, 142) Dummy {f00=0x00a0, f01=0x0190, f02=» CKTFLAG,XSPL05 5 P FTAB 5 6 P FTEXT 'GL. SALDO' 6 ( P FTAB 18 6 B P FCOPY ='LINIE NR' 6 R P FTEXT ' CHECK' 6 l P FNL 6 ( P FKI 5,MAXL=12,REWRT,APPL=112,SCHK=4 6 $ P FMEL 'TTTTTTTVTTX,XX-',TTKTSLD 6 " P FKI 18,MAXL=2,ME,NEOI,SCHK=5 6
0x2ea8d4…2eaa68 Dummy {f00=0x00a0, f01=0x0190, f02=» FTAB 5 6 P FCOPY ='KONTOKORT' 7 P FTAB 18 7 , P FCOPY ='LINIE NR' 7 < P FNL 7 V P FKI 18,MAXL=2,ME,SCHK=5 7 b P FMEL 'XX',TTKTLIN 7 P FLINK FMTEND 7 P FMEND 7 P* 7 P* 7 PXSPLIN FRMT 7 P FSL 7 P FNL 7 P FNL 7
0x2eaa68…2eabfc Dummy {f00=0x00a0, f01=0x407e, f02=»5 7 | P FMEL 'XX',GSWBCD5 LINE NR 8 P FLINK FMTEND 8 , P FMEND 8 B P* 8 P P* 8 Z P END 8 d P* 8 p@ 8 z P FMEL 'XX',TTKTLIN 7 P FLINK FMTEND 7 P FMEND 7 P* 7 P* 7 PXSPLIN FRMT 7 P FSL 7 P FNL 7 P FNL 7
0x2eabfc…2ead90 Dummy {f00=0x00a0, f01=0x2008, f02=» 9 L '9',GTREGF(CBIN20) 3 P FMEND 4 & P* 4 < P* 4 F < P DEBITORL@BENUMMER 4 P PSUBF48 FRMT 4 F P FKI 22,MINL=1,MAXL=3,REWRT,APPL=48,DUPL=GTREGF(CBIN25) 4 ( P FMEL 'ZZ9',GTR
0x2ead90…2eaf24 Dummy {f00=0x00a0, f01=0x40bc, f02=» : H IDENT T:DD00 TRA 4.2 80-10-14 F1 O1111 02.01.XXX.1 T:DD00 B T:DD00D T DC1GO h * & D0 * x @ D0 * @ * & = a
0x2eaf24…2eb0b8 Dummy {f00=0x00a0, f01=0x40ca, f02=» : H IDENT T:ATAB TRA 4.2 80-10-14 F1 O1111 02.01.XXX.1 T:ATAB B T:ATABA T & " T:AD00 T:AGA0 T:AKA0 T:ATC0 h U :A @ * @ * & = a
0x2eb0b8…2eb24c Dummy {f00=0x00a0, f01=0x40aa, f02=» : H IDENT U:BTAB TRA 4.2 80-10-14 F1 O1111 02.01.XXX.1 U:BTAB B U:BTABB T U:TB20 h @ TB2 z :T @ :A @ * @ * & = a
0x2eb24c…2eb3e0 Dummy {f00=0x00a0, f01=0x4090, f02=» : H IDENT S:BTAB TRA 4.2 80-10-14 F1 O1111 02.01.XXX.1 S:BTAB B S:BTABB T h :B z@ :T @ :A @ * @ * & = a
0x2eb3e0…2eb574 (4, 143) Opaque[0x194]
0x2eb574…2eb708 # DirEnt {nam=»RGSUBS«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x15f8, f03=0x0000}
0x2eb574…2eb708 IdxSect {
0x2eb574…2eb708 f00 = 0x00af // 0x2eb574 @0x0
0x2eb574…2eb708 f01 = 0x0010 // 0x2eb576 @0x2
0x2eb574…2eb708 gno = [ // 0x2eb578 @0x4
0x2eb574…2eb708 [0x00]: C0x00af.0x3.0
0x2eb574…2eb708 [0x01]: C0x00b0.0x0.0
0x2eb574…2eb708 [0x02]: C0x00b0.0x1.0
0x2eb574…2eb708 [0x03]: C0x00b0.0x2.0
0x2eb574…2eb708 [0x04]: C0x00b0.0x3.0
0x2eb574…2eb708 [0x05]: C0x00b1.0x0.0
0x2eb574…2eb708 [0x06]: C0x00b1.0x1.0
0x2eb574…2eb708 [0x07]: C0x00b1.0x2.0
0x2eb574…2eb708 ]
0x2eb574…2eb708 }
0x2eb708…2eb89c Dummy {f00=0x00af, f01=0x0190, f02=» P IDENT RGSUBS 02.01.XXX.1 P DDUM KMD08 & P PDIV D P ENTRY ENTER Z P ENTRY MODP x P ENTRY KORT P ENTRY KKTRP P ENTRY KVIT P ENTRY LSTINT P E
0x2eb89c…2eba30 Dummy {f00=0x00af, f01=0x0190, f02=» P ENTRY KKCH P ENTRY FMTNXT P EXT SETKRE 2 P EXT SETDEB F P EXT SLUT Z P EXT FRMTVO l P EXT FRMTKV P EXT FRMXJT P EXT FRMXSP P EXT FRMXVO P EXT FRMXTA P EXT FRMTKT P EXT
0x2eba30…2ebbc4 Dummy {f00=0x00af, f01=0x0190, f02=» LINOPT P EXT ABORT P EXT EMPTYT " P EXT CRVO 6 P EXT SPCLRA H P EXT SPERR h P EXT SPINF1 P EXT SPLIN8 P EXT GRASPV P EXT CLEAR8 P EXT SPCHK5 P EXT FLDTST P EXT CYOUT
0x2ebbc4…2ebd58 Dummy {f00=0x00af, f01=0x0190, f02=»RE FOR WRITING ON 'KONTOKORT v P* $ 6 P** KASSEFUNCTION OLY (TRANS 1-4, 6, 8-12) . P****************** h , P TBF TTEORFLG,KORTNOK NOT CORRECT TRANS 2 P TBT GTREGFLG,KORTNOK MUST NOT BE FIRST TRANS 6 P TBF GTKASSE,KORTNOK ONLY IN KAS
0x2ebd58…2ebeec Dummy {f00=0x00af, f01=0x0190, f02=»R OLD SALDO, LINE NO AND LINE CHECKDIGIT ~ , P** WRITE 'KONTOKORT' ON JOURNAL 0 ( P** TRANSPORT LINE IF NEEDED ` P* PKORT10 P MOVE SPKEY,CBIN1 P CLEAR GTSLDFLG P TBF CKTFLAG,KORT12 P SET TTKORTFL P
0x2ebeec…2ec080 Dummy {f00=0x00af, f01=0x0190, f02=»T $ P IB SPBINW2,KORTOK,KORTOK,KORT30 PKORT20 ERRORKEY 2 P MOVE SPBINW4,=W'4' L P PERF SPERR h P B KORT10 | PKORT30 CORRECT ENTERED P TBF CKTFLAG,KORT40 NO SALDO P SET GTSLDFLG * P CALL EMPTYT,TTKTSLD GL SALDO PR
0x2ec080…2ec214 (4, 144) Dummy {f00=0x00b0, f01=0x0190, f02=»WED t P PERF SPERR P B KORT10 PKORT40 2 . P PERF WRITJT,=W'2' 'KONTOKORT' ON JOURNAL @ ( P PERF KKTRP TRANSPORT LINE IF NEEDED r P MOVE SPINPUT,TTKTLIN ( P PERF SPCHK5 GET THE OLD LINE NUMBER P CBG GSWBIN1,=W'89',KORT20 (
0x2ec214…2ec3a8 Dummy {f00=0x00b0, f01=0x0190, f02=»ERF KKCH NEW CHECKDIGIT P PERF FRMTKT P EDWRT KVOUCH,GTSTRFMT 4 P DSC0 .NW,KVOUCH,RLEAS R P CLEAR GTLOKSPG p PKORTOK P CLEAR TTKORTFL " P CMP CBIN0,CBIN0 OK, SET CR=0 P RET PKORTNOK P CLEAR TTKORTFL $ P
0x2ec3a8…2ec53c Dummy {f00=0x00b0, f01=0x0190, f02=»** KKTRP - WRITES KONTOKORT INF ON VOUCHER ( P** + TRANSPORT IF NECESSARY : P* f P******************** p , P PERF SPLIN8,CBIN6,CBIN2 WRITE KONTOKORT " P TBF GTCYFLG,KON20 IF IN CYCLE P TBF GTCYWRTF,KON20 P DSC0 KVOU
0x2ec53c…2ec6d0 Dummy {f00=0x00b0, f01=0x0190, f02=»BF GTSLDFLG,KON90 NO SALDO . P CBNE TTKTLIN,=D'27',KON90 TRANSPORT LINE? " * P PERF FRMXKT,CBIN1 GET TRANSPORT LINE T P DSC1 KVOUCH,POS,CMINLIN . P EDWRT .NW,KVOUCH,GTSTRFMT EDWRT TRP. LINE PKON30 & P PERF SPLIN8,CBIN3,CBIN0 'NY SIDE'
0x2ec6d0…2ec864 Dummy {f00=0x00b0, f01=0x0190, f02=»KEYB NO, ABORT . P DSC0 KEYB,SKIB DELETE CYCLIC INPUT BUFFER * P MOVE GSWBCD3,CKTTOP SET DEFAULT LINE H P MOVE SPINPUT,GSWBCD3 v P B KON40 PKON35 P WAIT KEYB & P CBE SPBINW2,=W'18',KON40 SLUT KEY ( P CBNE SPBINW2,=W'4',KON30
0x2ec864…2ec9f8 Dummy {f00=0x00b0, f01=0x0190, f02=» l P CBL TTKTLIN,=D'1',KON30 " P PERF SPCHK5 CHANGE LINE VALUE ( P DSC1 KVOUCH,POS,GSWBIN1 N P PERF FRMXKT,CBIN1 n P EDWRT KVOUCH,GTSTRFMT P ADD TTKTLIN,=D'1' PKON90 P RET P PEND P EJECT PKKCH PROC P
0x2ec9f8…2ecb8c Dummy {f00=0x00b0, f01=0x018e, f02=»D LINE NR (TTKTLIN) AND r " P** PUTS IT IN TTKTCHK " P** USED FOR KONTOKORT F P* l P**************** v P MOVE GSWBCD1,TTKTSLD SAVE ( P CBNL GSWBCD1,=D'0',KKCH10 NEGATIVE? ( P MUL GSWBCD1,=D'-1' YES, CHANGE SIGN P
0x2ecb8c…2ecd20 Dummy {f00=0x00b0, f01=0x018e, f02=» v & P ADD TTKTLIN,=D'1' RESTORE LINE NR P MOVE GSWBCD2,GSWBCD1 SAVE 2 P DIV GSWBCD1,=D'7' CALCULATE T P MUL GSWBCD1,=D'7' REMAINDER x " P SUB GSWBCD2,GSWBCD1 MODULUS 7 $ P ADD GSWBCD2,=D'1' ADD 1 ALWAYS P CBL TTKTSLD,=D'0',KKCH20
0x2ecd20…2eceb4 (4, 145) Dummy {f00=0x00b0, f01=0x0190, f02=» PMODP PROC P********** P* , 4 P** MODP - INVERTS THE PREVIOUS TRANSACTION 6 $ P** I.E. REVERSES THE VALUE n 2 P** AND SETS FLAG TO UPDATE ACCUMULATORS , P** MUST NOT BE IN FIRST TRANBS & P**
0x2eceb4…2ed048 Dummy {f00=0x00b0, f01=0x018e, f02=»BT GTREGFLG,MODPNOK MUST NOT BE FIRST TRANS 6 P TBF GTKASSE,MODPNOK ONLY IN KASSEFUNCTIONS (1-12) 4 P CLEAR GTLOKSPG n P MOVE SPKEY,CBIN1 P SET TTINVFLG @ P MUL GTDUPF(CBIN4),='-1' MULTIPLY BELOB BY -1 P PER
0x2ed048…2ed1dc Dummy {f00=0x00b0, f01=0x0190, f02=» p P RET PMODPNOK $ P CMP CBIN1,CBIN0 NOK, SET CR<>0 $ P RET L P PEND ` P EJECT v PKVIT PROC P********** P* . P** KVIT - WRITES AN EXTRA RECEIPT & P** ONLY IN KASS
0x2ed1dc…2ed370 Dummy {f00=0x00b0, f01=0x0190, f02=»ANS f & P TBT GTCYFLG,KVITNOK NOT IN CYCLE 6 P TBF GTKASSE,KVITNOK ONLY IN KASSEFUNCTIONS(1-12) 6 P MOVE SPKEY,CBIN1 p H P PERF WRITJT,=W'1' WRITE 'KVIT' ON JOURNAL P MOVE TTCYM,=C'K' P PERF FRMTKV P PER
0x2ed370…2ed504 Dummy {f00=0x00b0, f01=0x0190, f02=»K $ P CMP CBIN1,CBIN0 NOK, SET CR<>0 P RET 2 P PEND F P EJECT PENTER PROC r P********** P* D P** ENTER - PERFORMS DIFFERENT CHECKS AFTER A PAGE HAS BEEN P** ENTERED ON SCREEN
0x2ed504…2ed698 Dummy {f00=0x00b0, f01=0x0190, f02=» ( P** 3 FIELD DEPENDENCE TEST P* 0 0 P** AND THEN PERFORM PROCEDURE SLUT, TO : 6 P** WRITE TO DISK AND WRITE RELEVANT RECEIPTS n P* P********** ( P MOVE GTRETUR,CBIN0 SET RETURN CODE P TBT GTTYPE3,ENTY3
0x2ed698…2ed82c Dummy {f00=0x00b0, f01=0x0190, f02=» P PERF SLUT OK P BNOK ENTNOK P TBT GTKORTFL,ENT01 2 ( P CBE GTRETUR,=W'3',ENT01 IF LINE 91 N P MOVE GTRETUR,=W'1' z P TBF CKTAUTO,ENTOK P CBNE GTREGDEX,=W'4',ENTOK PENT01 " P PERF KORT TRANS 4: KONTOKORT $ P M
0x2ed82c…2ed9c0 Dummy {f00=0x00b0, f01=0x0190, f02=»E GTPAGE,CBIN1,ENT10 P* GET PAGE 2 P TBT GTSLUTFL,ENTY1 4 P SET GTSLUTFL P P PERF FMTNXT,CBIN1 f P MOVE GTPAGE,CBIN2 P MOVE GTRETUR,=W'2' P B ENTOK P* PENT10 P PERF FLDTST P BNOK ENTNOK P P
0x2ed9c0…2edb54 (4, 146) Dummy {f00=0x00b0, f01=0x0190, f02=» & P* TYPE 3 - THREE PAGE TRANSACTION PENTY3 . P CBNE GTPAGE,CBIN1,ENT20 < & P* AFTER PAGE 1, GET NEXT PAGE P PERF FMTNXT,CBIN2 P MOVE GTPAGE,CBIN2 P MOVE GTRETUR,=W'2' P B ENTOK P* PENT20 P CBNE GTPA
0x2edb54…2edce8 Dummy {f00=0x00b0, f01=0x018e, f02=» | P B ENTOK P* PENT30 " P CBNE GTPAGE,CBIN3,ENT40 0 P* FIRST TIME PAGE 3 P P PERF FLDTST p P BNOK ENTNOK P B ENT40 P* PENT40 P* CORRECT PAGE 3 P PERF SLUT P BNOK ENTNOK P CLEAR
0x2edce8…2ede7c Dummy {f00=0x00b0, f01=0x0190, f02=» P* FINISHED P MOVE GTRETUR,=W'3' P* : PENTOK D " P CMP CBIN0,CBIN0 OK, SET CR =0 R P RET x PENTNOK $ P CMP CBIN1,CBIN0 NOK, SET CR<>0 P RET P* P PEND P EJECT PFMTNXT PROC
0x2ede7c…2ee010 Dummy {f00=0x00b0, f01=0x0190, f02=»PES 8,9,51 AND 53 ~ " P** (DEX 8,9,21,23) P* @ P****-************** J 4 P CBNE FORMAL1,CBIN1,NXT10 INDEX 1: f 2 P MOVE GSWBIN1,CBIN1 TYPE 8 ( P CBE GTREGDEX,=W'8',NXT10 2 P
0x2ee010…2ee1a4 Dummy {f00=0x00b0, f01=0x0190, f02=»NXT20 | : P MOVE GSWBIN1,CBIN3 TYPE 51,PAGE 2 P CBE GTREGDEX,=W'21',NXT20 L 8 P MOVE GSWBIN1,CBIN4 TYPE 53,PAGE 2 n PNXT20 4 P CBNE FORMAL1,CBIN3,NXTATT INDEX 3: : P MOVE GSWBIN1,C
0x2ee1a4…2ee338 Dummy {f00=0x00b0, f01=0x0190, f02=»3 PNXTATT P PERF FRMXSP,GSWBIN1 P RET 4 P PEND H P EJECT ^ PCYK PROC CYTYPE l P******************** P* 0 P* HANDLE DIFFERENT TYPES OF CYCLES P* P******************** P IB
0x2ee338…2ee4cc Dummy {f00=0x00b0, f01=0x0190, f02=»K1 P******************** P* & . P** CYK1 - START OF CYCLE FUNCTION 0 P* b P******************** l " P TBT TTLSTFLG,CYK1NOK IN LISTE $ P TBT TTCY2FLG,CYK1NOK IN CYCLE 2 P SET TTCY1FLG " P MOVE TTCYM,=C'C' FOR JOURNA
0x2ee4cc…2ee660 Dummy {f00=0x00b0, f01=0x018e, f02=»CYK2 P******************** P* ( . P** CYK2 - START OF STABEL FUNCTION 2 P* d P******************** n " P TBT TTLSTFLG,CYK2NOK IN LISTE $ P TBT TTCY1FLG,CYK2NOK IN CYCLE 1 P SET TTCY2FLG " P MOVE TTCYM,=C'S' FOR JOUR
0x2ee660…2ee7f4 (4, 147) Dummy {f00=0x00b0, f01=0x0190, f02=» PCYK4 P******************** P* , . P* CYK4 - PAUSE IN CYCLE / STABEL 6 P* h P******************** r P TBF GTCYFLG,CYK4NOK P TBT GTCYWRTF,CYKSUB 2 P MOVE TTARKSAV,GTDUPF(CBIN9) SAVE ARKIV KNT NR > P SET
0x2ee7f4…2ee988 Dummy {f00=0x00b0, f01=0x0190, f02=»SE 0,CBIN8,CBIN8 ERASE LINE 8 P PERF SPINF1 & P B CYKOK : PCYK4NOK J P B CYKNOK Z PCYKSUB l P PERF SUBTOT z P B CYKOK P EJECT PCYK9 P******************** P* * P** CYK9 - CLEAR ARKIV KONTO NR
0x2ee988…2eeb1c Dummy {f00=0x00b0, f01=0x0190, f02=»K P B CYKNOK P EJECT PCYEND * P******************** 8 P* T $ P** CYEND - END OF CYCLE ^ P* ( P** WRITE TOTAL LINE ON VOUCHER P* P******************** * P TBF GTCYFLG,CYENDNOK ONLY IF IN CYCLE
0x2eeb1c…2eecb0 Dummy {f00=0x00b0, f01=0x0190, f02=»G CLEAR FLAGS x P CLEAR GTCYFLG ! & P PERF CYOUT ! F P CLEAR TTTSTFLG ! Z P WAIT KVOUCH ! | P MOVE GSWBIN1,TTLINNR ! . P DSC1 KVOUCH,POS,GSWBIN1 POSITION VOUCHER ! P MOVE GSWSTR9,=C'TOTAL ' ! ( P PERF
0x2eecb0…2eee44 Dummy {f00=0x00b0, f01=0x0190, f02=»SE VOUCHER ! ^ P PERF WRITJT,=W'15' " 6 P CBL GTREGNR,=D'18',CYEND20 CHECKS? " . P SET TTTSTFLG " h @ P MOVE GTREGF(CBIN4),GTSUM FIND TOTAL VALUE " : P PERF WCHECK WRITE CHECK "
0x2eee44…2eefd8 Dummy {f00=0x00b0, f01=0x0190, f02=» MOVE SPBINW4,=W'12' SET ERRORCODE " P PERF SPERR # > P IB SPBINW2,CYENDCNT,CYEND10 # PCYENDOK # & P ERASE 0,CBIN8,CBIN8 ERASE LINE 8 # P PERF SPINF1 # PCYENDCNT # P B CYKOK # PCYENDNOK # P B CYKNOK
0x2eefd8…2ef16c Dummy {f00=0x00b0, f01=0x0190, f02=» P EJECT $ PCYKINT PROC $ P******************** $ 0 P* $ L . P** CYKINT - START OR END OF CYCLE $ V P* $ 6 P** START SET RELEVANT INFORMATION AND READ $ 8 P** ARKIV KNT.NR, KONTROLSUM AND LRER-9 $ P
0x2ef16c…2ef300 Dummy {f00=0x00b0, f01=0x0190, f02=»YCLE $ l B P TBT TTPSEFLG,CY05 TRUE- IN PAUSE STATE % P PERF CYK,CBIN10 % R P RET % j PCY05 % v P PERF CYCLR % P RET % PCY10 % ( P SET TTSUMFLG INDICATE SUM ON SCREEN % P SET GTCYFLG INDICATE CYCLE % @ P T
0x2ef300…2ef494 (4, 148) Dummy {f00=0x00b1, f01=0x0190, f02=» GTREGF(CBIN9),TTARKSAV GET SAVED ARKIV KNT.NR % P CBG GTPSELIN,CBIN0,CY20 & < , P MOVE GTPSELIN,TTCYKST RESET START LINE & P MOVE TTCYKPOS,TTCYKST & PCY20 & P MOVE TTLINNR,GTPSELIN & B P CLEAR TTPSEFLG OUT OF PA
0x2ef494…2ef628 Dummy {f00=0x00b1, f01=0x0190, f02=»E GTSUM,=D'0' & P MOVE TTCYKTOT,=D'0' ' " P MOVE TTLINNR,=D'1' ' 4 H P PERF FRMXSP,CBIN11 GET FORMAT FOR CYCLE INF ' Z P SET SPPROMPT ' H P PERF SPCLRA WRITE AND READ ON SCREEN
0x2ef628…2ef7bc Dummy {f00=0x00b1, f01=0x0190, f02=» P PERF SPERR ( P B CY30 ( " PCY45 MAK ( @ P CLEAR TTCY1FLG ( R P CLEAR TTCY2FLG ( j P B CY05 ( PCY50 ( P CBL TTLINNR,=D'25',CY55 ( P MOVE TTLINNR,=D'1' ( PCY55 ( P MOVE SPINPUT,TTLINNR ( P PER
0x2ef7bc…2ef950 Dummy {f00=0x00b1, f01=0x0190, f02=»CYKST,TTLINNR ( P MOVE TTCYKPOS,TTLINNR ) P MOVE GTCYIN,TTASKNR ) 4 P SUB GTCYIN,CBIN1 ) P P MUL GTCYIN,CCYSIZE ) j P ADD GTCYIN,CBIN1 ) P MOVE GTCYOUT,GTCYIN ) PCY90 ) P SET GTCYWRTF ) P TBT CCYWRTF,CY95 ) P CLEAR GTCYWRTF
0x2ef950…2efae4 Dummy {f00=0x00b1, f01=0x0190, f02=» CYCLR - CLEAR CYCLEINFORMATION ) P* * . P****************** * 8 " P MOVE GTTEXT,=C' ' * R P MOVE TTCYM,=C' ' * x ( P MOVE GTREGF(CBIN9),=D'0' * P MOVE GTSUM,=D'0' * P CLEAR GTCYFLG *
0x2efae4…2efc78 Dummy {f00=0x00b1, f01=0x0190, f02=» P PEND + P EJECT + PLSTINT PROC + 0 P******************** + D P* + ` , P** LSTINT - INITIATE LISTFUNCTION + j P* + P******************** + P TBT GTCYFLG,LSTNOK + $ P TBT TTLSTFLG,LSTEND + P* FI
0x2efc78…2efe0c Dummy {f00=0x00b1, f01=0x0190, f02=»SUM + H P PERF FRMXTA,CBIN1 GET HEADER FOR TALLY ROLL , B P PERF WTALLY WRITE ON TALLY ROLL , X & P MOVE GTTEXT,=C'LISTE ' , P B LSTOK , P* LAST TIME , PLSTEND , P WAIT KTALLY ,
0x2efe0c…2effa0 Dummy {f00=0x00b1, f01=0x0190, f02=»TALLY , ~ P ERASE 0,CBIN8,CBIN8 - P CLEAR TTLSTFLG - * P CLEAR TTSUMFLG - L " P MOVE GTTEXT,=C' ' - n PLSTOK - P PERF SPINF1 - " P CMP CBIN0,CBIN0 OK, SET CR=0 - P RET - PLSTNOK - $ P CMP CBIN1,CBIN0 N
0x2effa0…2f0134 (4, 149) Dummy {f00=0x00b1, f01=0x0190, f02=»* - P** SUBTOT - SUBTOTAL . P* . , 6 P** LISTFUNCTION- WRITE SUBTOTAL ON TALLY . 6 P* . p 2 P** CYCLEFUNCTION- SAVE CYCLE INFORMATION . z $ P** WRITE SUBTOTAL . * P** IN CYCLE-PAUSE-STATE . P*
0x2f0134…2f02c8 Dummy {f00=0x00b1, f01=0x0190, f02=» " P TBT GTCYFLG,SUBTCYC IN CYCLE / P TBF GTSUMKEY,SUBTNOK IN SUM / * P* SUBTOTAL IN SUM / N P SET GTSUBFLG / h P PERF SUM / ~ P CLEAR GTSUBFLG / P B SUBTOK10 / P* SET PAUSE IN CYCLE / PSUBTCYC / P PERF CYOUT / 2 P MOVE TTARKS
0x2f02c8…2f045c Dummy {f00=0x00b1, f01=0x0190, f02=»T FORMAT / t P SET GTCYWRTF 0 @ P PERF WRITVO WRITE SUBTOT LINE 0 & P WAIT KVOUCH 0 j @ P DSC0 KVOUCH,RLEAS RELEASE VOUCHER 0 ~ 8 P MOVE GTCYSUM,GTSUM SAVE SUM 0 P SUB TTLIN
0x2f045c…2f05f0 Dummy {f00=0x00b1, f01=0x0190, f02=»E CYSET 0 t P SUB GTCYIN,CBIN1 1 P MUL GTCYIN,CCYSIZE 1 * P ADD GTCYIN,CBIN1 1 F P MOVE GTCYOUT,GTCYIN 1 ` P PERF CYCLR 1 | P B SUBTOK 1 P* SUBTOTAL IN LIST 1 PSUBTLST 1 P WAIT KTALLY 1 P MOVE GSWBCD6,GTSUM 1 " P PERF FRMXTA
0x2f05f0…2f0784 Dummy {f00=0x00b1, f01=0x0190, f02=» LINE 8 1 v P PERF SPINF1 2 PSUBTOK10 2 $ " P CMP CBIN0,CBIN0 OK, SET CR=0 2 4 P RET 2 Z PSUBTNOK 2 f $ P CMP CBIN1,CBIN0 NOK, SET CR<>0 2 v P RET 2 P PEND 2 P EJECT 2 PSUM PROC 2 P******************** 2 P* 2 6 P**
0x2f0784…2f0918 Dummy {f00=0x00b1, f01=0x0190, f02=»ING. 2 r & P** FIRST TIME: INITIATING 3 0 P** LAST TIME: WRITE SUM ON VOUCHER 3 6 P* 3 j P******************** 3 t P TBT GTSUMKEY,SUM50 3 P* FIRST TIME 3 0 P PERF WRITJT,=W'3' WRITE START SUM FUNCTION 3 PSUM10 3 P M
0x2f0918…2f0aac Dummy {f00=0x00b1, f01=0x0190, f02=»NT,=D'0' INITIATE SUM 3 P B SUMOK 4 P* 4 . P* LAST TIME 4 8 PSUM50 4 P . P PERF WRITJT,=W'4' WRITE SLUT SUM FUNCTION 4 ^ P TBT GTSUBFLG,SUM60 4 P MOVE TTSUMMRK,=C' ' 4 P CLEAR GTSUMKEY 4 PSUM60 4 ( P PERF SPLIN8,CBIN2,CBIN0 W
0x2f0aac…2f0c40 Dummy {f00=0x00b1, f01=0x0190, f02=»G 4 PSUM70 5 P PERF GRASPV 5 P CLEAR GTSWFLAG 5 , P PERF LINOPT 5 D P BNOK SUM60 5 X P CBG GSWBIN1,=W'90',SUM75 5 l , P CBNE GSWBIN1,=W'0',SUM80 DEFAULT LINE? 5 PSUM75 5 $ P MOVE TTLINNR,=D'6' SET LINE 26 5 PSUM80 5 P MOVE
0x2f0c40…2f0dd4 (4, 150) Dummy {f00=0x00b1, f01=0x0190, f02=»UCH,GTSTRFMT 5 P PERF CRVO 6 P DSC0 .NW,KVOUCH,RLEAS 6 & P TBT GTSUBFLG,SUMOK10 6 D P TBT GTASUMFL,SUM10 6 b PSUMOK 6 ~ P PERF SPINF1 6 PSUMOK10 6 " P CMP CBIN0,CBIN0 OK, SET CR=0 6 P RET 6 P PEND 6 P EJECT 6 PDIVTR PROC
0x2f0dd4…2f0f68 Dummy {f00=0x00b1, f01=0x0190, f02=»BT CTRVALG,DIVTRNOK 6 P TBT GTDIVTR,DIVEND 7 P* SET DIVTR 7 8 P SET GTDIVTR 7 V P SET GTTRSEL 7 j P CBE TTDKDEX,=W'1',DIV10 7 ~ P PERF SETDEB 7 P B DIVTROK 7 PDIV10 7 P PERF SETKRE 7 P B DIVTROK 7 P* CLEAR DIVT
0x2f0f68…2f10fc Dummy {f00=0x00b1, f01=0x409e, f02=»K, SET CR=0 7 ~ P RET 8 PDIVTRNOK 8 $ P CMP CBIN1,CBIN0 NOK, SET CR<>0 8 0 P RET 8 X P PEND 8 d P* 8 r P* 8 | P END 8 @ 8 PERF SETDEB 7 P B DIVTROK 7 PDIV10 7 P PERF SETKRE 7 P B DIVTROK 7 P* CLEAR DIVT
0x2f10fc…2f1290 Dummy {f00=0x00b1, f01=0x2008, f02=» 9 RELEASE VOUCHER x P PERF CYKINT * 8 P MOVE GTCYSUM,GTSUM SAVE SUM H P SUB GTLINNR,CB&N : P MOVE GTCYKPOS,GTLINNR SAVE LINNR P RET B P PERF
0x2f1290…2f1424 Dummy {f00=0x00b1, f01=0x0190, f02=» A3,WACK LOAD WACK i P RF TRDLE j P* j , P* TRANSMIT RVI j 6 P* j L P IFF STAT=0 j V PTRRVI LDK A3,RVI LOAD RVI j j P XIF j P* j P* TRANSMIT DLE j P* j PTRDLE LDK A2,DLE LOAD DLE j " P SC A2,RESEND PUT INSAVE AREA j
0x2f1424…2f15b8 Dummy {f00=0x00b1, f01=0x0190, f02=»F TREN10 j P* k P* TRANSMIT EOT k P* k 0 PTREOT LDK A3,EOT LOAD EOT k : P RF TREN10 k P* k n P* TRANSMIT ENQ k x P* k PTRENQ LDK A3,ENQ LOAD ENQ k P* k ( PTREN10 SC A3,RESEND PUT IN SAVE AREA k P LDK A2,/FF k P SC
0x2f15b8…2f174c Dummy {f00=0x00b1, f01=0x0190, f02=»A2,RESEND+1 GET NEXT CHARACTER k P CF A5,WRITEP SEND IT l & PTRRE10 LDK A2,/FF l D P CF A5,WRIT05 SEND PAD l ^ P LDK A2,/FF l | P CF A5,WRIT05 l P LDK A2,0 SALCUZ l $ P CIO A2,0,LCUUT STOP TRANSMITTER l P IFT P6805=1 SALCUZ l $ P CF
0x2f174c…2f18e0 Dummy {f00=0x00b1, f01=0x0190, f02=»G TRANSMITTER STATUS l P XIF m P RTN A5 m ( P EJECT m 8 P* m F P* m P P* TRANSMIT ONE TEXT BLOCK m Z P* m | P* m PTRTEXT EQU * m P CF A5,TRSYNC START OUTPUT m P IFT TSTREQ=1 m P* m P* m P* TEST REQUEST HANDLING
0x2f18e0…2f1a74 (4, 151) Opaque[0x194]
0x2f1a74…2f1c08 # DirEnt {nam=»DIVFMT«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x1638, f03=0x0000}
0x2f1a74…2f1c08 IdxSect {
0x2f1a74…2f1c08 f00 = 0x00b1 // 0x2f1a74 @0x0
0x2f1a74…2f1c08 f01 = 0x0014 // 0x2f1a76 @0x2
0x2f1a74…2f1c08 gno = [ // 0x2f1a78 @0x4
0x2f1a74…2f1c08 [0x00]: C0x00b1.0x3.0
0x2f1a74…2f1c08 [0x01]: C0x00b2.0x0.0
0x2f1a74…2f1c08 [0x02]: C0x00b2.0x1.0
0x2f1a74…2f1c08 [0x03]: C0x00b2.0x2.0
0x2f1a74…2f1c08 [0x04]: C0x00b2.0x3.0
0x2f1a74…2f1c08 [0x05]: C0x00b3.0x0.0
0x2f1a74…2f1c08 [0x06]: C0x00b3.0x1.0
0x2f1a74…2f1c08 [0x07]: C0x00b3.0x2.0
0x2f1a74…2f1c08 [0x08]: C0x00b3.0x3.0
0x2f1a74…2f1c08 [0x09]: C0x00b4.0x0.0
0x2f1a74…2f1c08 ]
0x2f1a74…2f1c08 }
0x2f1c08…2f1d9c Dummy {f00=0x00b1, f01=0x0190, f02=» P IDENT DIVFMT 02.01.XXX.1 P DDUM KMD08 & P PDIV D P ENTRY FRMTJT Z P ENTRY FRMXJT p P ENTRY FRMTTA P ENTRY FRMXTA P ENTRY FRMTVO P ENTRY FRMTKV P ENTRY FRMXVO P ENTRY FRMTKT
0x2f1d9c…2f1f30 Dummy {f00=0x00b1, f01=0x0190, f02=» PROC 0 P CALL FMOVE,GTSTRFMT,FTBJT(GTREGDEX) P RET B P PEND V P* l PFRMXJT PROC XJTDEX v ( P CALL FMOVE,GTSTRFMT,FTBXJT(XJTDEX) P RET P PEND P* PFRMTTA PROC 0 P CALL FMOV
0x2f1f30…2f20c4 Dummy {f00=0x00b1, f01=0x0190, f02=»XTA(XTADEX) x P RET P PEND P* . PFRMTVO PROC 8 0 P CALL FMOVE,GTSTRFMT,FTBVO(GTREGDEX) L P RET P PEND P* PFRMXVO PROC XVODEX ( P CALL FMOVE,GTSTRFMT,FTBXVO(XVODEX) P RET P P
0x2f20c4…2f2258 Dummy {f00=0x00b1, f01=0x018e, f02=» 0 P CALL FMOVE,GTSTRFMT,FTBKT(GTREGDEX) P RET < P PEND P P* f PFRMXKT PROC XKTDEX p ( P CALL FMOVE,GTSTRFMT,FTBXKT(XKTDEX) P RET P PEND P* PFRMTGP PROC ( P CALL FMOVE,GTSTRFMT,FTB
0x2f2258…2f23ec Dummy {f00=0x00b1, f01=0x0190, f02=» j P RET P PEND P* " P* , P* 6 P EJECT @ P* V P* FORMATS FOR JOURNAL ` P* @ PFTBJT FTABLE JTFMT01,JTFMT02,JTFMT03,JTFMT04,JTFMT02, C 2 P JTFMT01,JTFMT02,JTFMT08,JTFMT08,JTFMT02, C P
0x2f23ec…2f2580 Dummy {f00=0x00b1, f01=0x0190, f02=» LINE 1 z P FEOR 2 P FLINK JTSUB04 LINE 2 6 P FMEND l P* PJTFMT02 FRMT P FLINK JTFMT02L P FMEND P* PJTFMT02L FRMT 2 P FLINK JTSUBST
0x2f2580…2f2714 (4, 152) Dummy {f00=0x00b2, f01=0x0190, f02=» FEOR P FILLR ' ',8 F P FMEL 'X',GTDUPF(CBIN6) RE$ 2 P FILLR ' ',2 | P FLINK JTSUB06 FOR TRANS 10 P FLINK JTSUB30 ARKIV KNT.NR P FILLR ' ',15 P FMEND
0x2f2714…2f28a8 Dummy {f00=0x00b2, f01=0x0190, f02=» START INF p P FILLR ' ',9 $ P FCOPY TT16TXT RATE/RENTE/GEBYR 4 2 P FLINK JTSUB06 CPR/CIR 0 P FLINK JTSUB08 VALUE P FEOR P FILLR ' ',2 P FILLR '
0x2f28a8…2f2a3c Dummy {f00=0x00b2, f01=0x0190, f02=»ZZ',GTDUPF(CBIN7) VALGR z F P FMEL 'BBZ',GTDUPF(CBIN8) BETALINGSFORM BFO 6 8 P FLINK JTSUB30 ARK KONTO NR P FILLR ' ',2 8 P FMEL 'XX',GTDUPF(CBIN11) PALIGNIN
0x2f2a3c…2f2bd0 Dummy {f00=0x00b2, f01=0x0190, f02=»ND P* PJTFMT04 FRMT P FLINK JTFMT04L ( P FMEND @ P* N PJTFMT04L FRMT X P FLINK JTSUBST START INF n P FILLR ' ',15 2 P FLINK JTSUB06 CPR/CIR 0 P FLINK JTSUB08
0x2f2bd0…2f2d64 Dummy {f00=0x00b2, f01=0x0190, f02=» D P FMEL 'ZZ.ZZ.ZZ',GTDUPF(CBIN7) VALOR P FILLR ' ',3 L 6 P FLINK JTSUB30 ARK KNT NR h B P FMEL 'BBBZZ',GTDUPF(CBIN10) F$R F P FMEL 'BBZZ',GTDUPF(CBI
0x2f2d64…2f2ef8 Dummy {f00=0x00b2, f01=0x0190, f02=»GTDUPF(CBIN13) OPK z P FMEND 0 P* F PJTFMT08 FRMT P P FLINK JTFMT08L d P FMEND | P* PJTFMT08L FRMT 4 P FLINK JTSUBST START INF 2 P FLINK JTSUB01
0x2f2ef8…2f308c Dummy {f00=0x00b2, f01=0x0190, f02=» LINE 3 z P FMEND P* 6 PJTFMT12 FRMT @ P FLINK JTFMT12L T P FMEND l P* z PJTFMT12L FRMT 4 P FLINK JTSUBST START INF 8 P FLINK JTSUB05 REG KONTO NR
0x2f308c…2f3220 Dummy {f00=0x00b2, f01=0x0190, f02=» FLINK JTSUB08 VALUE P FEOR 2 P FILLR ' ',2 @ 2 P FMEL 'BZZZZZZZZZZ',GTDUPF(CBIN2) DIVERSE TEXT T P FILLR ' ',16 P FMEND P* 4 PJTSUBST FRMT START INF P FILLR ' ',2
0x2f3220…2f33b4 (4, 153) Dummy {f00=0x00b2, f01=0x0190, f02=» TYPE b P FLINK FLBNR P FMEND " P* 8 : PJTSUB01 FRMT LINE 1,- 1,5,6 B P FLINK JTSUB05 CPR/CIR P FLINK JTSUB06 REG-KONTO-NR 0 P FLINK JTSUB08 VALUE P FMEND
0x2f33b4…2f3548 Dummy {f00=0x00b2, f01=0x0190, f02=»ZZ.ZZ.ZZ',GTDUPF(CBIN7) V.DATO B P FMEL 'BBX',GTDUPF(CBIN6) RE$ & D P FMEL 'BBX',GTDUPF(CBIN8) BFO l P FLINK JTSUB30 0 P FMEL 'XXXXXXE-XXXX',GTDUPF(CBIN10) YD.MODT ( P F
0x2f3548…2f36dc Dummy {f00=0x00b2, f01=0x0190, f02=» FMEL 'B999E-99E-999E-99B',GTDUPF(CBIN1) P FMEND 6 P* L 2 PJTSUB06 FRMT CPR/CIR V P FBT BCPR,JTLAB06 ( P FMEL 'XE-XXE-XXE-XXB',GTDUPF(CBIN2) P FB JTLAB08 PJTLAB06 P FBT BLE
0x2f36dc…2f3870 Dummy {f00=0x00b2, f01=0x018e, f02=» PJTLAB08 P FMEND P* * P* 4 8 PJTSUB08 FRMT VALUE AND D/K > 6 P FMEL 'B*.***.***.**9.99-',GTDUPF(CBIN4) z P FCOPY TTDBKRM P FMEND P* PJTSUB10 FRMT LEVERAND
0x2f3870…2f3a04 Dummy {f00=0x00b2, f01=0x0190, f02=» 6 P FMEL 'BBZZZE-ZZE-ZZZE-ZZ',GTDUPF(CBIN9) P FMEND > P* L 6 PJTSUB31 FRMT LINE 3 - 8 V P FILLR ' ',2 F P FMEL 'ZZ.ZZ.ZZ',GTDUPF(CBIN12) FAKT DATO D P FMEL 'BZ
0x2f3a04…2f3b98 Dummy {f00=0x00b2, f01=0x0190, f02=»MEL 'BZZZZ',GTDUPF(CBIN15) TXT NR D P FMEL 'BZZ',GTDUPF(CBIN16) OMR NR > D P FMEL 'BZZ.ZZ.ZZ',GTDUPF(CBIN18) PER FRA D P FMEL 'BZZ.ZZ.ZZ',GTDUPF(CBIN19) P
0x2f3b98…2f3d2c Dummy {f00=0x00b2, f01=0x0190, f02=» 0 P* VARIOUS FORMATS FOR JOURNAL TAPE P* < @ PFTBXJT FTABLE XJTF01,XJTF02,XJTF03,XJTF04,XJTF05,XJTF06, C F 2 P XJTF07,FMTFMT,XJTF09,XJTF10,XJTF11,VOX15, C P XJTF13,XJTF14,VOFMT02 P* PXJTF01 FRMT KVITTERING
0x2f3d2c…2f3ec0 Dummy {f00=0x00b2, f01=0x018e, f02=» P FLINK XJTF02L P FMEND P* ( PXJTF02L FRMT 2 P FLINK FLBNR F P FILLR ' ',2 Z P FCOPY ='KONTOKORT' n P FBF GTSLDFLG,XJTF02EX & P FMEL 'B*.***.***.**9.99-',TTKTSLD PXJTF02EX P FMEND P* PXJTF03 FRMT
0x2f3ec0…2f4054 (4, 154) Dummy {f00=0x00b2, f01=0x0190, f02=» P FMEND PXJTF05 FRMT P FLINK XJTF05L * P FMEND @ P* N P* X PXJTF05L FRMT b P FILLR ' ',2 v P FILLR '*',50 P FEOR P FILLR ' ',2 P FTEXT 'VERSNR ' P FCOPY ='DAGS-DATO' P FILLR ' ',2
0x2f4054…2f41e8 Dummy {f00=0x00b2, f01=0x0190, f02=» P FCOPY GTTESTMK P FMEL '99.99.999.9',CVERSNR P FILLR ' ',2 D P FMEL '99E-99E-99',CMASKDAT X P FILLR ' ',3 | P FMEL '99E-99E-99',GTDATO P FILLR ' ',3 P FMEL '999',GTMSK P FILLR ' ',7 P FMEL '***99',TTSTLB
0x2f41e8…2f437c Dummy {f00=0x00b2, f01=0x0190, f02=» P FILLR ' ',2 & P FMEL 'B999.99.999.99BBB',TVERSUR & P FMEL 'B999.99.999.99BBB',TTCASHAC B $ P FMEL 'ZZZ.ZZZ.ZZ9.ZZ-',TTSTCASH l P FEOR P FILLR ' ',2 P FILLR '*',40 P FMEND P* PXJTF06 FRMT P FLINK XJTF06L
0x2f437c…2f4510 Dummy {f00=0x00b2, f01=0x018e, f02=»ASSELUKNING' P FILLR ' ',30 P FEOR * P FILLR ' ',2 8 P FCOPY ='T[LLER' L P FILLR ' ',10 d P FCOPY ='DEBET' z P FILLR ' ',12 P FCOPY ='KREDIT' P FMEND P* PXJTF07 FRMT P FLINK XJTF07L P FMEND
0x2f4510…2f46a4 Dummy {f00=0x00b2, f01=0x0190, f02=» 6 P FMEL 'BBZZZ.ZZZ.ZZZ.ZZ9.99-',TTACC(GSWBIN5,CBIN1) P FMEND B P* P PXJTF09 FRMT Z P FCOPY =' START TEST' n P FMEND P* PXJTF10 FRMT P FCOPY =' SLUT TEST' P FMEND P* PXJTF11 FRMT P FILLR
0x2f46a4…2f4838 Dummy {f00=0x00b2, f01=0x018e, f02=»MEND P* PXJTF13L FRMT P FLINK JTSUB05 REG KNT NO * * P FMEL 'BZZZ',GTDUPF(CBIN2) COUNTER NO L 2 P FMEL 'B*.***.***.**9.99-',GTDUPF(CBIN4) VALUE z P FILLR ' ',2 P FCOPY ='ADM ' $ P FMEL 'BZZ',GTDUPF(CBIN5) ADM NO P FME
0x2f4838…2f49cc Dummy {f00=0x00b2, f01=0x0190, f02=» P* PFMTFMT FRMT P FLINK FMTFMTL & P FMEND < P* J PFMTFMTL FRMT T P FILLR ' ',2 h P FTEXT 'DIVERSE FORMATER' | P FMEND P EJECT P* : P* FORMATS FOR VOUCHER 'BILAG AFSTEMPLING'
0x2f49cc…2f4b60 Dummy {f00=0x00b2, f01=0x0190, f02=» C X 2 P BAFST12,BAFST40,BAFST41,BAFST42,BAFST45, C 2 P BAFST46,BAFST47,BAFST48,BAFST49,BAFST50, C B & P BAFST51,BAFST52,BAFST53,BAFST54 x P* P* PBAFST01 FRMT TRANS 01-06 P FLINK BAFST01L P FMEND P* P
0x2f4b60…2f4cf4 (4, 155) Dummy {f00=0x00b2, f01=0x0190, f02=»'B**B',GTDUPF(CBIN3) BKO @ P FMEL 'ZZ.ZZ.ZZB',GTDUPF(CBIN7) BET/VALORDATO P FB B1LAB2 d PB1LAB1 v " P FMEL 'B**B',GTDUPF(CBIN3) BKO PB1LAB2 < P FLINK JTSUB06 CPR-CIR-NR @ P FLINK B
0x2f4cf4…2f4e88 Dummy {f00=0x00b2, f01=0x0190, f02=» TRANS 02-05-07-10 f P FLINK BAFST02L P FMEND 4 P* B PBAFST02L FRMT L 8 P FLINK BSUB01 HEADER b P FILLR ' ',1 8 P FMEL '******E-****',GTDUPF(CBIN2) CPR/CIR TRANS 10 P FILLR '*',3 P FBT T
0x2f4e88…2f501c Dummy {f00=0x00b2, f01=0x0190, f02=»MEND P* P* < PBAFST08 FRMT TRANS 08-09 P FLINK BAFST08L ` P FMEND x P* PBAFST08L FRMT 8 P FLINK BSUB01 HEADER $ P FMEL 'BBB**B',GTDUPF(CBIN3) BKO
0x2f501c…2f51b0 Dummy {f00=0x00b2, f01=0x018e, f02=»),B8LAB2 ~ 2 P FMEL 'BBZZ.ZZ.ZZBBB',GTDUPF(CBIN12) FAKTDATO ! P FB B8LAB5 ! F PB8LAB2 ! X . P FMEL 'ZZZZ9999.99B',GTDUPF(CBIN14) LEVNR ! f PB8LAB5 ! P FLINK JTSUB10 LEVERAND. ! > P FLINK BSUB02 REGKONTO-BELOB ! P
0x2f51b0…2f5344 Dummy {f00=0x00b2, f01=0x0190, f02=» ! P FILLR '+',2 " P FCOPY GTTESTMK " $ > P FCOPY TTCYM CYKLE-MARKERING " < > P FMEL '999B',GTMSK MASKINNR " ~ P FLINK FLBNR " @ P FMEL 'B99.99.99',GTDATO POSTERI
0x2f5344…2f54d8 Dummy {f00=0x00b2, f01=0x0190, f02=»PE-NR " ^ < P FMEL 'B999',TTCNTNR TAELLER-NR # 2 P FMEL 'BZZZZZZZZZZ',GTDUPF(CBIN2) DIVERSE TEXT # N P FBT TTKORTFL,B12LAB1 # P FILLR '*',13 # PB12LAB1 # @ P FLINK BSUB02 REGKONTO-BELOB #
0x2f54d8…2f566c Dummy {f00=0x00b2, f01=0x018e, f02=»B13 # P FMEND $ P* $ PBAFST04 FRMT BILAG TRANS 4 $ $ P FLINK BSUB10 $ H P FLINK BSUB12 $ ^ P FLINK BSUB13 $ t P FMEND $ P* $ P* $ PBAFST40 FRMT $ P FMEND $ P* $ PBAFST41 FRMT $ P FMEND $ PBAFST42 FRMT $
0x2f566c…2f5800 Dummy {f00=0x00b2, f01=0x0190, f02=» P FMEND % P* % PBAFST48 FRMT % P FMEND % 0 P* % > PBAFST49 FRMT % H P FMEND % P* % j PBAFST50 FRMT % t P FMEND % P* % PBAFST51 FRMT % P FMEND % P* % PBAFST52 FRMT % P FMEND % P* % PBAFST53 FRMT %
0x2f5800…2f5994 (4, 156) Dummy {f00=0x00b3, f01=0x0190, f02=» HEADER % d P FILLR '+',2 & P FCOPY GTTESTMK & , > P FCOPY TTCYM CYKLE-MARKERING & D > P FMEL '999B',GTMSK MASKINNR & P FLINK FLBNR & @ P FMEL 'B99.99.99',GTDATO
0x2f5994…2f5b28 Dummy {f00=0x00b3, f01=0x0190, f02=» TRANSTYPE-NR & f P FMEND ' P* ' , P ' 6 PBSUB02 FRMT ' > B P FMEL 'B999.99.999.99B',GTDUPF(CBIN1) REGKONTONR ' T < P FMEL '*.***.***.**9.99-',GTDUPF(CBIN4) BELOB ' B P FCOPY TTDBKRM D
0x2f5b28…2f5cbc Dummy {f00=0x00b3, f01=0x0190, f02=» P FCOPY TTCYM ( @ P FMEL '99.99.99B',GTDATO POSTERINGSDATO ( P FCOPY CKMDNAM ( : P FMEL 'B999B',GTMSK MASKINNR ( r " P FMEL '99B',GTDUPF(CBIN3) BKO ( P FMEND ( P* ( P* ( PBSUB05
0x2f5cbc…2f5e50 Dummy {f00=0x00b3, f01=0x0190, f02=» DEBET/KREDIT-MARK ( l P FILLR ' ',1 ) " P FMEND ) 6 P* ) L P* ) V PBSUB06 FRMT ) ` " P FMEL 'B99B',GTDUPF(CBIN3) BKO ) v P FBT TTKORTFL,B6LAB1 ) P FCOPY TT07TXT ) P FILLR ' ',1 ) . P FMEL 'ZZ.ZZ.ZZB',GTDUPF(CBIN7) VAL. D
0x2f5e50…2f5fe4 Dummy {f00=0x00b3, f01=0x0190, f02=» CPR/CIR-NR ) v < P FMEL 'B*.***.***.**9.99-',GTDUPF(CBIN4) BELOB * & D P FCOPY TTDBKRM DEBET/KREDIT-MARK * f P FILLR ' ',1 * P FLINK SKAF01 LINE NR * P FMEND * P* * PBSUB10 F
0x2f5fe4…2f6178 Dummy {f00=0x00b3, f01=0x018e, f02=»99',GTDATO POSTDATO * " P FMEL 'BXX.',GTDUPF(CBIN3) BKO + P FMEND + B P* + P PBSUB11 FRMT + Z $ P FMEL 'XX',GTDUPF(CBIN11) P]L]R + n 2 P FMEL 'E-9999999999B',GTDUPF(CBIN2) DEBITOR NR + , P FMEL 'XX.XXPP',GTDUPF(CBIN7) VALOERDATO + & P FMEL 'BXB',
0x2f6178…2f630c Dummy {f00=0x00b3, f01=0x0190, f02=» + n P FB B12LAB6 , PB12LAB5 , ( P FMEL 'XX',GTDUPF(CBIN10) FORFALDS]R , , PB12LAB6 , X 2 P FMEL 'E-9999999999B',GTDUPF(CBIN2) DEBITORNR , h , P FMEL 'XX.XXPP',GTDUPF(CBIN7) VALOERDATO , P FILLR ' ',3 , P FMEND , P* , PBSUB13 FRMT ,
0x2f630c…2f64a0 Dummy {f00=0x00b3, f01=0x0190, f02=» EKSP LB. NR. , P FBT GTLOKSPG,FLBNR10 - P FMEL '****9',TTLBNR - 4 P FB FLBNR20 - P PFLBNR10 - d P FMEL '****9',GTLBNR - t PFLBNR20 - P FMEND - P* - P EJECT - P* - * P* VARIOUS FORMATS FOR VOUCHER - P* - : P
0x2f64a0…2f6634 (4, 157) Dummy {f00=0x00b3, f01=0x018e, f02=»X15, C - t P VOX16,VOX17,VOX18,VOX19 . P* . 2 P* . < PVOFMT02 FRMT TOTAL IN CYCLE . F P FLINK VOFMT02L . j P FMEND . P* . PVOFMT02L FRMT . P FILLR '+',2 . P FBF TTCY1FLG,VOLAB02 . P FCOPY ='ARKIV' . P FLINK JTSUB30
0x2f6634…2f67c8 Dummy {f00=0x00b3, f01=0x0190, f02=» . P* / PBAXF04 FRMT / P FLINK BAFST03 / & P FLINK BAXF05L / < P FMEND / R P* / ` PBAXF05 FRMT / j P FILLR '+',2 / ~ P FLINK BAXF05L / P FMEND / P* / PBAXF05L FRMT / P FLINK BSUB04 / P FEOR / P FILLR '0',2 /
0x2f67c8…2f695c Dummy {f00=0x00b3, f01=0x0190, f02=» FLINK BAFST03 / P FEOR 0 P FILLR '0',2 0 $ P FEOR 0 8 P FILLR '0',2 0 F P FEOR 0 Z P FLINK KVIT03 0 h P FMEND 0 ~ P* 0 PVOSUM07 FRMT SUMBILAG 0 P FLINK VOSUM07L 0 P FMEND 0 P* 0 PVOSUM07L FRMT 0 P FILLR '+',2 0
0x2f695c…2f6af0 Dummy {f00=0x00b3, f01=0x0190, f02=» FLINK FLBNR 0 P FILLR ' ',1 1 P FCOPY ='TOTAL ' 1 * & P FMEL '*.***.***.**9,99+',GTSUMCNT 1 D P FILLR ' ',2 1 n P FMEND 1 P* 1 PVOX08 FRMT 1 P FLINK VOX08L 1 P FMEND 1 P* 1 PVOX08L FRMT 1 P FILLR '+',2 1 P FCOPY
0x2f6af0…2f6c84 Dummy {f00=0x00b3, f01=0x018e, f02=» P FTEXT ' - ' 2 P FLINK FLBNR 2 P FILLR ' ',2 2 , P FCOPY GSWSTR9 2 @ P FILLR ' ',2 2 V P FCOPY GSWSTR20 TEXT 2 j P FEOR 2 P FILLR '2',2 2 P FILLR '*',60 2 P FILLR '*',8 2 P FEOR 2 P FILLR '4',2 2 P FCOPY ='KONTONR' 2
0x2f6c84…2f6e18 Dummy {f00=0x00b3, f01=0x0190, f02=» P FILLR ' ',12 3 P FCOPY ='KREDIT' 3 P FMEND 3 2 P* 3 @ PVOX09 FRMT 3 J P FLINK VOX09L 3 P FMEND 3 r P* 3 PVOX09L FRMT 3 P FILLR '2',2 3 * P FMEL 'BXXX.XX.XXX.XXB',GTDUPF(CBIN1) 3 P FILLR ' ',4 3 P FMEL '99',GTWBCD1 3
0x2f6e18…2f6fac Dummy {f00=0x00b3, f01=0x018e, f02=»'BBZZZ.ZZZ.ZZZ.ZZ9.99-',C12ACC(GSWBIN5,CBIN1) KREDIT 3 P FMEND 4 < P* 4 J PVOX10 FRMT 4 T P FLINK VOX10L 4 f P FMEND 4 | P* 4 PVOX10L FRMT 4 P FILLR '2',2 4 P FMEL 'ZZ',GTWBCD1 4 0 P FMEL 'BBZZZ.ZZZ.ZZZ.ZZ9.99-',GTDUPF(CBIN4) 4 6
0x2f6fac…2f7140 Dummy {f00=0x00b3, f01=0x0190, f02=» 4 PVOX11 FRMT 5 P FLINK VOX11L 5 P FMEND 5 0 P* 5 > PVOX11L FRMT 5 H P FILLR '4',2 5 P FTEXT 'TOTAL' 5 p 0 P FMEL 'BBZZZ.ZZZ.ZZZ.ZZ9.99-',GTDUPF(CBIN4) 5 0 P FMEL 'BBZZZ.ZZZ.ZZZ.ZZ9.99-',GTREGF(CBIN2) 5 0 P FMEL 'BBZZZ.ZZZ.ZZZ.ZZ9.9
0x2f7140…2f72d4 (4, 158) Dummy {f00=0x00b3, f01=0x018e, f02=»MEL 'BBZZZ.ZZZ.ZZZ.ZZ9.99-',TTACC(CBIN8,CBIN2) 5 4 P FMEL 'BBZZZ.ZZZ.ZZZ.ZZ9.99-',TTACC(CBIN8,CBIN1) 6 6 P FEOR 6 n P FILLR '2',2 6 | P FTEXT 'KOR' 6 P FILLR ' ',19 6 4 P FMEL 'BBZZZ.ZZZ.ZZZ.ZZ9.99-',TTACC(CBIN7,CBIN2) 6 4 P FMEL 'BBZZZ.ZZZ.ZZZ.Z
0x2f72d4…2f7468 Dummy {f00=0x00b3, f01=0x0190, f02=» 6 P FILLR '4',2 7 & P FMEL '999E-99E-999E-99',TTCASHAC 7 P FILLR ' ',1 7 F P FTEXT ' PRIMO' 7 Z * P FMEL 'BBZZZ.ZZZ.ZZZ.ZZ9.99-',TTSTCASH 7 r P FILLR ' ',34 7 P FEOR 7 P FILLR '2',2 7 P FTEXT 'BEV ' 7 0 P FMEL 'BBZZZ.ZZZ.ZZZ.ZZ9.9
0x2f7468…2f75fc Dummy {f00=0x00b3, f01=0x0190, f02=» 7 P FILLR '2',2 8 P FTEXT 'ULTIMO' 8 ( P FMEL 'BBZZZ.ZZZ.ZZZ.ZZ9.99-',TTCASH 8 4 P FILLR ' ',34 8 ` P FMEND 8 v P* 8 PVOX13 FRMT 8 P FLINK VOX13L 8 P FMEND 8 P* 8 PVOX13L FRMT 8 P FILLR ' ',2 8 P FCOPY GTTESTMK 8
0x2f75fc…2f7790 Dummy {f00=0x00b3, f01=0x0190, f02=» P FCOPY GSWSTR20 9 P FILLR ' ',3 9 P FEOR 9 0 P FILLR '2',2 9 > P FILLR '*',56 9 R P FEOR 9 h P FILLR '4',2 9 v P FCOPY ='T[LLER' 9 P FILLR ' ',4 9 P FCOPY ='KONTONR' 9 P FILLR ' ',10 9 P FCOPY ='BEV.PERIODE' 9 P FIL
0x2f7790…2f7924 Dummy {f00=0x00b3, f01=0x0190, f02=» 9 P* : PVOX14L FRMT : P FILLR '2',2 : & P FMEL 'ZZ',GTWBCD1 : : P FILLR ' ',4 : T 0 P FMEL 'BXXX.XX.XXX.XXB',CBACC(GSWBIN3,CBIN1) : h 6 P FMEL 'BBZZZ.ZZZ.ZZZ.ZZ9.99-',CBACC(GSWBIN3,CBIN2) : 6 P FMEL 'BBZZZ.ZZZ.ZZZ.ZZ9.99-',CBACC(GSWBIN3,CBIN3)
0x2f7924…2f7ab8 Dummy {f00=0x00b3, f01=0x0190, f02=» FILLR ' ',2 : P FLINK VOX16L ; P FMEND ; * P* ; 8 PVOX16L FRMT ; B P FILLR X'24',40 NO. ; V P FILLR X'3C',40 5. ; r P FNL ; P FNL ; P FILLR X'5D',40 ] ; P FILLR X'4E',40 N ; P FNL ; P FNL ; P FILLR X'45',40 E ;
0x2f7ab8…2f7c4c Dummy {f00=0x00b3, f01=0x0190, f02=»MT ; P FLINK VOX17L < P FMEND < P* < . PVOX17L FRMT < 8 P FILLR '+',2 < L , P FMEL '99E-99E-99',GTDATO POSTERINGSDATO < ` P FILLR ' ',6 < P FLINK FLBNR < P FILLR ' ',8 < 2 P FMEL 'B*.***.***.**9E,99',GTDUPF(CBIN4) BELOB < P FILLR
0x2f7c4c…2f7de0 Dummy {f00=0x00b3, f01=0x0190, f02=»X18 FRMT < P FLINK VOX18L = P FMEND = & P* = 4 PVOX18L FRMT = > P FILLR '2',2 = R P FILLR ' ',17 = f * P FMEL 'BBZZZ.ZZZ.ZZZ.ZZ9.99-',GSWBCD6 = | * P FMEL 'BBZZZ.ZZZ.ZZZ.ZZ9.99-',GSWBCD7 = P FMEND = P* = " PVOX19 FRMT SHORT TR 2,5
0x2f7de0…2f7f74 (4, 159) Dummy {f00=0x00b3, f01=0x018e, f02=»KVITTERING' = r ( P* (MOSTLY AS NORMAL 'BILAG' > P* > @ : PFTBKV FTABLE BAFST01,BAFST02,KVIT03,KVIT03,BAFST02, C > J 2 P BAFST01,BAFST02,BAFST08,BAFST08,BAFST02, C > P BAFST12 > P* > P* > PKVIT03 FRMT > P FILLR '+',2 >
0x2f7f74…2f8108 Dummy {f00=0x00b3, f01=0x018e, f02=» > p P* ? @ PFTBKT FTABLE KAFST01,KAFST02,KAFST03,KAFST04,KAFST00, C ? 2 P KAFST01,KAFST00,KAFST01,KAFST01,KAFST02, C ? V P KAFST12 ? P* ? P* ? PKAFST00 FRMT ? P FMEND ? P* ? P* ? < PKAFST01
0x2f8108…2f829c Dummy {f00=0x00b3, f01=0x0190, f02=» P* @ P* @ : PKAFST02 FRMT TRANS 02 @ P FLINK BAFST02 @ V P FLINK SKAF01 LINE NR @ t P FMEND @ P* @ P @ : PKAFST12 FRMT TRANS 12 @ P FLINK B
0x2f829c…2f8430 Dummy {f00=0x00b3, f01=0x0190, f02=» 03 @ ^ P FLINK KAFST03L A P FMEND A $ P* A 2 PKAFST03L FRMT A < 8 P FLINK BSUB01 HEADER A R P FLINK BSUB06 A P FBF TTKORTFL,KLAB31 A 2 P FMEL 'XX.XXPP',GTDUPF(CBIN7) VAL.DATE, DD.MM A PKLAB31 A > P
0x2f8430…2f85c4 Dummy {f00=0x00b3, f01=0x0190, f02=»R A n P FMEND B P* B P* B * : PKAFST04 FRMT TRANS 04 B 4 P FLINK KAFST04L B r P FMEND B P* B PKAFST04L FRMT B 8 P FLINK BSUB01 HEADER B < P FLINK BSUB0
0x2f85c4…2f8758 Dummy {f00=0x00b3, f01=0x0190, f02=» P FBF TTASKAT,KLAB41 C 0 P FMEL 'B**',GTDUPF(CBIN12) REST.MAANED - CIR C . P FMEL 'B**',GTDUPF(CBIN11) REST.AAR - CIR C T P FB KLAB42 C PKLAB41 C P FILLR ' ',3 C 4 P FMEL 'B**',GTDUPF(CBIN10) FORF.AAR - CPR, BSKAT C PKLAB42 C F P
0x2f8758…2f88ec Dummy {f00=0x00b3, f01=0x018e, f02=»2 C ~ P FBT GTSLDFLG,SKAF04 D P FILLR ' ',13 D & P FB SKAF03 D < PSKAF04 D N , P FMEL '*.***.***.**9.99-',TTKTSLD SALDO D PSKAF03 D " P FMEL 'B99.',TTKTLIN NEW LINE D " P FMEL '9',TTKTCHK CHECK DIGIT D P FB SKAF05 D PSKAF02 D P F
0x2f88ec…2f8a80 Dummy {f00=0x00b3, f01=0x0190, f02=» P* E PFTBXKT FTABLE XKTTRP E P* E * PXKTTRP FRMT E 4 P FLINK XKTTRPL E H P FMEND E ^ P* E l PXKTTRPL FRMT E v P FILLR '+',2 E P FMEL 'BB99.99.99',GTDATO E P FILLR ' ',43 E & P FMEL '*.***.***.**9.99-',TTKTSLD E P FILLR '
0x2f8a80…2f8c14 (4, 160) Dummy {f00=0x00b4, f01=0x018e, f02=»FTABLE FMTFMT E P* F P* F P EJECT F * P* F 8 . P* VARIOUS FORMATS FOR TALLY ROLL F B P* F t P* F ~ @ PFTBXTA FTABLE TAFMT01,TAFMT02,TAFMT02,TAFMT04,TAFMT05, C F P VOX15,TAFMT07 F P* F PTAFMT01 FRMT F P FSL F
0x2f8c14…2f8da8 Dummy {f00=0x00b4, f01=0x0190, f02=» P FMEND G P* G PTAFMT02L FRMT G P FILLR '0',2 G 2 P FCOPY GSWSTR9 G F & P FMEL '*.***.***.**9.99+B',GSWBCD6 G P FLINK TAFMT07 G P FMEND G P* G PTAFMT04 FRMT G P FILLR '+',2 G , P FMEL 'Z.ZZZ.ZZZ.ZZ9.99-',GTDUPF(CBIN4) G
0x2f8da8…2f8f3c Dummy {f00=0x00b4, f01=0x0190, f02=»LR ' ',1 G P FMEND H P* H PTAFMT07 FRMT H ( P FNL H < P FNL H H P FNL H T P FNL H ` P FNL H l P FNL H x P FNL H P FMEND H P EJECT H P* H ( P* FORMATS FOR GENERAL PRINTER H P* H PFTBGP FTABLE FMTFMT
0x2f8f3c…2f90d0 Dummy {f00=0x00b4, f01=0x403e, f02=» H | P* I P* I P* I P END I &@ I :NL H < P FNL H H P FNL H T P FNL H ` P FNL H l P FNL H x P FNL H P FMEND H P EJECT H P* H ( P* FORMATS FOR GENERAL PRINTER H P* H PFTBGP FTABLE FMTFMT
0x2f90d0…2f9264 Dummy {f00=0x00b4, f01=0x2008, f02=» J P* CAN NOT BE IDENTIFIED BY TRANSTYPE (OR GTREGDEX) ' P* ' L PFTBXX FTABLE ' V P* ' n P* ' x P END ' @ ' & z P* & PFTBTA FTABLE & P* & P* & P EJECT & P* & ( P* FORMATS
0x2f9264…2f93f8 Dummy {f00=0x00b4, f01=0x0190, f02=»d6c fv b 6WD K K K K V K : W bH b8 b W V c` c* V Z P 2 " T W "@T '?W "? Ha " K :e J J " J _Z Z c` Z [ Z P L [ V 6 [ 7 V R (Q
0x2f93f8…2f958c Dummy {f00=0x00b4, f01=0x0190, f02=»! T^_ K d@WR K c WD +_ d K d W. _. X QzW X & Qv J K : V : 1 + W [ [ < !AAP !TTT W !**T * [ R !FFP !EET W Ie 6 * B Z 9 ! ; *Xz 8 ! De 0P Wl 0W8 Wd :T& *W, FP
0x2f958c…2f9720 Dummy {f00=0x00b4, f01=0x0190, f02=» ;)0 9U ? Z ] 49d_. _BU ; :X _ _ z 9d! ) ^ _ ,_ 8 _ : W 8W d 8 !++P !-- z ;$# + ^" _( R rV. PT*AXYZ9 c f : ! P ! P ! P ! P W ! P WTW : ! )P9H # T &W &" :I : f|
0x2f9720…2f98b4 (4, 161) Opaque[0x194]
0x2f98b4…2f9a48 # DirEnt {nam=»KMDIO «, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x1688, f03=0x0000}
0x2f98b4…2f9a48 IdxSect {
0x2f98b4…2f9a48 f00 = 0x00b4 // 0x2f98b4 @0x0
0x2f98b4…2f9a48 f01 = 0x000c // 0x2f98b6 @0x2
0x2f98b4…2f9a48 gno = [ // 0x2f98b8 @0x4
0x2f98b4…2f9a48 [0x00]: C0x00b4.0x1.0
0x2f98b4…2f9a48 [0x01]: C0x00b4.0x2.0
0x2f98b4…2f9a48 [0x02]: C0x00b4.0x3.0
0x2f98b4…2f9a48 [0x03]: C0x00b5.0x0.0
0x2f98b4…2f9a48 [0x04]: C0x00b5.0x1.0
0x2f98b4…2f9a48 [0x05]: C0x00b5.0x2.0
0x2f98b4…2f9a48 ]
0x2f98b4…2f9a48 }
0x2f9a48…2f9bdc Dummy {f00=0x00b4, f01=0x0190, f02=» P IDENT KMDIO 02.01.XXX.1 P DDUM KMD08 & P PDIV D P ENTRY WRITFD R P ENTRY WRITVO h P ENTRY WRITJT P ENTRY WTALLY P ENTRY WRITID P ENTRY CRKJ P ENTRY GRASP
0x2f9bdc…2f9d70 Dummy {f00=0x00b4, f01=0x018e, f02=»EL P EXT SPCHK5 P EXT SPLIN8 P EXT SPERR 2 P EXT FRMTJT D P EXT FRMXJT d P EXT ADM x P EXT CYWRT P EXT FRMXVO P EXT FRMXTA P EXT ABORT P EXT RAWRIT P INCLUDE EQU
0x2f9d70…2f9f04 Dummy {f00=0x00b4, f01=0x018e, f02=» P CMP CBIN1,CBIN0 P RET PWRFD00 ( & P TBF CPFLG,WRFD010 DISC OCUPIED ? 6 " P DELAY CBIN2 YES DELAY 200 MS ` P B WRFD00 PWRFD010 P SET CPFLG P CLEAR CSPLITFL . P MOVE CTWBIN1,CBIN0 NO. OF WRITTEN RECORDS P PER
0x2f9f04…2fa098 Dummy {f00=0x00b4, f01=0x0190, f02=» PWRFD006 P EDIT CPCKBUF,PCKINIT * P EDIT CPCKBUF,TREC1 INSERT HEADER INF 2 P MOVE GSWBIN3,CBIN10 ` P MOVE GSWBIN4,CRECLGD | P SUB GSWBIN4,CBIN11 6 P MATCH CPCKBUF,GSWBIN3,GSWBIN4,CBLANKS,CBIN0,CBIN2 P MOVE GSWBIN4,CRECLGD
0x2fa098…2fa22c Dummy {f00=0x00b4, f01=0x0190, f02=»IF SPLIT PACK REST z PWRFD020 P ADD GSWBIN5,CBIN1 * " P CBNL GSWBIN5,CBINMAX,WRFD070 D 4 P CBE GTUSED(GSWBIN5),CBIN0,WRFD020 USED FIELD ? j P MOVE GSWSTR20,=X'00' YES * P MOVE GSWBCD3,GTUSED(GSWBIN5) CONVERT P EDIT GSWSTR20,PFRM1
0x2fa22c…2fa3c0 Dummy {f00=0x00b4, f01=0x0190, f02=»BIN1 b P CLEAR CSPLITFL , P CBG GSWBIN6,GSWBIN4,WRFD030 OVERFLOW ? $ 4 P COPY CPCKBUF,GSWBIN3,GSWBIN6,GSWSTR20,CBIN0 NO T P ADD GSWBIN3,GSWBIN6 ( P SUB GSWBIN4,GSWBIN6 ADJUST POINTERS P B WRFD020 SEE IF MORE PWRFD030 0 P COPY
0x2fa3c0…2fa554 (4, 162) Dummy {f00=0x00b4, f01=0x0190, f02=»WBIN3,CBIN1,GSWSTR1,CBIN0 " P DLETE GSWSTR20,CBIN0,GSWBIN4 " P SET CSPLITFL H * P PERF RAWRIT,DK02,=D'2',CPCKBUF,CRECNR ^ P BNOK WRFDERR P TBT GTTESTFL,WRFD005 P ADD CTWBIN1,CBIN1 P ADD CRECNR,CBIN1 P ADD CRECBCD,=D'1'
0x2fa554…2fa6e8 Dummy {f00=0x00b4, f01=0x018e, f02=» PERF RAWRIT,DK02,=D'2',CPCKBUF,CRECNR P BNOK WRFDERR . P TBT GTTESTFL,WRFD080 D P ADD CTWBIN1,CBIN1 b P ADD CRECNR,CBIN1 | P ADD CRECBCD,=D'1' P PERF RADEL,DK02,CRECNR P BNOK WRFDERR P* P* LOOK FOR ACCOUN
0x2fa6e8…2fa87c Dummy {f00=0x00b4, f01=0x0190, f02=» : P* HERE MUST BEE A WAARNING 'DISC NAESTEN FYLDT' PWRFD075 DISK N[STEN FULD F P CLEAR CPFLG h P CLEAR CSPLITFL | P MOVE SPBINW4,CBIN21 " P MOVE GTWBCD2,=D'02' FILE CODE $ P MOVE GTWBCD1,=D'50' ERROR CODE P MOVE GSWS
0x2fa87c…2faa10 Dummy {f00=0x00b4, f01=0x0190, f02=»AR CPFLG " P CMP CBIN0,CBIN0 OK, SET CR=0 P RET 6 P* B PWRFDERR L P* " P* HERE MUST BEE RECOVERRY f P SUB CRECNR,CTWBIN1 P MOVE GSWBCD1,CTWBIN1 P SUB CRECBCD,GSWBCD1 P SET CSKIFTWN P CLEAR CPFLG
0x2faa10…2faba4 Dummy {f00=0x00b4, f01=0x0190, f02=»********** n P* P* EDATNR 4 P* FINDS DATASETNR FOR THE TRANSACTIONS 0 : P* AND PUT THE INFORMATION IN RELEVANT FIELDS h P* 4 P************************************************ PEDATNR PROC P CLEAR TTR11
0x2faba4…2fad38 Dummy {f00=0x00b4, f01=0x0190, f02=»9 UPDATE D/K MARK x P MOVE GTDUPF(CBIN5),TTDKBCD PEDAT010 > P CBNE GTREGNR,=D'11',EDAT020 N P SET TTR11FLG r PEDAT020 P RET PEDAT100 P CBG GTREGNR,=D'42',EDAT110 P MOVE CEDATNR,=D'3' TR 40-42 P B EDAT020
0x2fad38…2faecc Dummy {f00=0x00b4, f01=0x018e, f02=»EGNR,=D'49',EDAT130 P MOVE CEDATNR,=D'4' TR 48-49 P B EDAT020 @ PEDAT130 R P MOVE CEDATNR,=D'2' TR 50-54 b P B EDAT020 P PEND P EJECT P* P* PWCHECK PROC P RET P PEND P EJECT PWRIT
0x2faecc…2fb060 Dummy {f00=0x00b4, f01=0x018e, f02=» * P* DEPENDING ON TRANSACTION TYPE P* 6 P******************** @ P WAIT KVOUCH P WAIT KTALLY p P TBT GTSPGFLG,JTRET " P MOVE GSWBIN1,$JTLIT & P CBG GSWBIN1,CBIN0,JT10 F P PERF FRMTJT
0x2fb060…2fb1f4 (4, 163) Dummy {f00=0x00b4, f01=0x0190, f02=» 0 P MOVE GSWBIN1,TTCNTNR 'TAELLER' NR IN BINARY P TBT GTNWFLG,JT50 < ( P EDWRT KJTAPE,GTSTRFMT EDWRT JOURNAL V P* . P DSC0 KJTAPE,TSTAT TEST STATUS OF JOURNAL P BOK JTRET , P PERF SPLIN8,CBIN1,CBIN1 'SKIFT JOURNAL'
0x2fb1f4…2fb388 Dummy {f00=0x00b4, f01=0x018e, f02=» EJECT PWTALLY PROC P******************* $ P* @ P* WRITE TALLY ROLL J P* l P******************** v P WAIT KVOUCH P WAIT KTALLY H P EDWRT .NW,KTALLY,GTSTRFMT EDWRT WITH THE FORMAT P R
0x2fb388…2fb51c Dummy {f00=0x00b4, f01=0x0190, f02=» z P* 8 P* DOES A CARRIAGE RETURN ON TTP WITHOUT WAIT P* N P******************** X ( P EDWRT .NW,KJTAPE,CRJTFMT t P RET PCRJTFMT FRMT P FILLR ' ',2 P FILLR X'0D',1 P FMEN
0x2fb51c…2fb6b0 Dummy {f00=0x00b4, f01=0x018e, f02=»ETURN ON VOUCHER WITH WAIT t P* " P******************** , P EDWRT KVOUCH,CRVOFMT H P RET f PCRVOFMT FRMT r P FILLR ' ',2 P FILLR X'09',1 P FMEND P PEND P* P* P EJECT PWRITVO PROC
0x2fb6b0…2fb844 Dummy {f00=0x00b4, f01=0x0190, f02=» j P* $ P* NOT CYCLE GET LINE NR ( P* POSITION VOUCHER : P* WRITE f * P* AND RELEASE VOUCHER P* P******************** $ P TBT GTCYFLG,CYVOUCH P* NOT
0x2fb844…2fb9d8 Dummy {f00=0x00b4, f01=0x0190, f02=»NOPT SEE IF DEFAULT LINE P BNOK WOBILAG P CBG GSWBIN1,=W'90',WO90 @ P MOVE GSWBIN1,TTLINNR ` P B WO100 ~ PWO90 MOVE GSWBIN2,=W'100' P SUB GSWBIN2,GSWBIN1 P IB GSWBIN2, C " P WO99,WO98,WO97,WO96,WO95, C
0x2fb9d8…2fbb6c Dummy {f00=0x00b4, f01=0x0190, f02=»VO,CBIN4 P MOVE GSWBIN1,=W'14' P B WO100 , PWO97 < P PERF FRMXVO,CBIN5 H P MOVE GSWBIN1,=W'14' b P B WO100 ~ PWO96 P PERF FRMXVO,CBIN17 P MOVE GSWBIN1,=W'37' P B WO100 PWO95 PWO94 PWO93 P D
0x2fbb6c…2fbd00 Dummy {f00=0x00b4, f01=0x0190, f02=» P PERF LINOPT P BNOK WO92 P CBG GSWBIN1,=W'90',WO92 . P MOVE GSWBIN1,TTLINNR N P CLEAR GTSWFLAG l P PERF FRMXVO,CBIN19 P B WO100 PWO91 * P MOVE GTRETUR,=W'3' INDICATE KONTOKORT P RET P* PWO100
0x2fbd00…2fbe94 (4, 164) Dummy {f00=0x00b5, f01=0x018e, f02=» D P DSC0 .NW,KVOUCH,RLEAS RELEASE VOUCHER P RET P P* IN CYCLE d PCYVOUCH v P TBT GTCYWRTF,WO5 P PERF CYWRT P BNOK WO5 P RET P* PWO5 " P TBT TTTSTFLG,WO10
0x2fbe94…2fc028 Dummy {f00=0x00b5, f01=0x0190, f02=» PWO10 P MOVE GSWBIN1,TTLINNR . P DSC1 KVOUCH,POS,GSWBIN1 POSITION VOUCHER . P EDWRT .NW,KVOUCH,GTSTRFMT ` P***** P* P* WRITING OF TEXTLINE " P* FOR CHECK ON WORKSET P* P***** P* > P*
0x2fc028…2fc1bc Dummy {f00=0x00b5, f01=0x0190, f02=» NEXT LINE h 8 P CBL TTLINNR,=D'4',NEWPG NEW PAGE? P RET NO P P* ` PNEWPG NEW PAGE j & P TBT TTPSEFLG,WORET T: IF SUBTOTAL P WAIT KVOUCH P MOVE GSWBIN1,TTLINNR P DSC1 KVOUCH,POS,GSWBIN1 P MOVE GSWS
0x2fc1bc…2fc350 Dummy {f00=0x00b5, f01=0x0190, f02=»WORET P RET P PEND P* 0 P* : P EJECT D PGRASPV PROC Z P******************** p P* P* GRASP VOUCHER P* P******************** P WAIT KVOUCH $ P DSC0 KVOUCH,GRASP GRASP V
0x2fc350…2fc4e4 Dummy {f00=0x00b5, f01=0x0190, f02=»**** P* & P* CHECK LINE NUMBER, IF ANY P* @ P******************** J P TBT GTSWFLAG,LINST f & P TESTIO KEYB SEE IF INPUT FINISHED P BNOK LINOP1 NO, ABORT PLINST P WAIT KEYB ( P CBE SPBINW2,=W'18',LINOP0 SLU
0x2fc4e4…2fc678 Dummy {f00=0x00b5, f01=0x0190, f02=»E GSWBCD3,SPINPUT GET LINE NR 0 P CBG GSWBCD3,=D'90',LINOP4 SPECIAL FORMATS? & " P PERF SPCHK5 OK, CHECK LINENR Z . P CBE SPBINW3,=W'3',LINOP2 ERROR IN LINE NR 0 P MOVE TTLINNR,GSWBIN1 GET CONVERTED LINE NO. PLIN90 P CMP CBIN0,CBIN0 SET
0x2fc678…2fc80c Dummy {f00=0x00b5, f01=0x018e, f02=»LIN ~ P B LINOP4 PLINOP101 P MOVE GSWBCD3,GTDFLIN . P MOVE SPINPUT,GSWBCD3 L P PERF SPCHK5 j . P MOVE TTLINNR,GSWBIN1 SET DEFAULT LINE NO ~ " P CMP CBIN0,CBIN0 SET CR=0, OK P MOVE GSWBIN1,=W'0' P B LINRET PLINO
0x2fc80c…2fc9a0 Dummy {f00=0x00b5, f01=0x0190, f02=» PLINOP4 P MOVE GSWBIN1,GSWBCD3 P B LIN90 0 PLINRET @ P PERF CLEAR8 DELETE LINE 8 N P RET p P PEND | P* P EJECT " PWRITID PROC WRITVAR1,WRITVAR2 P******************** P* 4 P* PRINTS HE
0x2fc9a0…2fcb34 (4, 165) Dummy {f00=0x00b5, f01=0x0190, f02=» j P* P* P* WRITVAR1: P* 1 FEJL 8 P* 2 OPSTART X & P* 3 DISKETTE SKIFT | $ P* 4 KONVERTERING ( P* 5 DATATRANSMISSION P*
0x2fcb34…2fccc8 Dummy {f00=0x00b5, f01=0x0190, f02=» + 40-59 x 6 P* 2 1-20 + 23-42, IF KONVERTERING : P* 2 1-20 + VOLID, IF NOT KONVERTERING J P* 3 NOTHING P* 4 VOLID P* P* P* P******************** P
0x2fccc8…2fce5c Dummy {f00=0x00b5, f01=0x0190, f02=»20,=C'FEJL ' P B WRID50 PWRID31 & P MOVE GSWSTR20,=C'OPSTART ' 4 P B WRID40 X PWRID32 j & P MOVE GSWSTR20,=C'DISKETTE SKIFT ' x P B WRID40 PWRID33 $ P MOVE GSWSTR20,=C'KONVERTERING ' P B WRID40 PWRID35 (
0x2fce5c…2fcff0 Dummy {f00=0x00b5, f01=0x0190, f02=» P PERF WRITJT,=W'12' ! P PERF FRMXTA,CBIN6 ! $ P PERF WTALLY ! > P* ! R P* ! PWRID50 ! f P WAIT KTALLY ! t P CBE WRITVAR2,CBIN3,WRID80 ! P CBE WRITVAR2,CBIN4,WRID73 ! P MOVE GSWSTR20,CPCKBUF ! P PERF WRITJT,=W'12' ! P C
0x2fcff0…2fd184 Dummy {f00=0x00b5, f01=0x0190, f02=»CBIN2,WRID70 ! P MOVE GSWBIN2,CBIN20 " P MOVE GSWBIN1,=W'40' " 0 0 P COPY GSWSTR20,CBIN0,GSWBIN2,CPCKBUF,GSWBIN1 " L P B WRID75 " P* " PWRID70 " P CBNE WRITVAR1,CBIN4,WRID72 " P MOVE GSWBIN2,CBIN20 " P MOVE GSWBIN1,=W'23' " 0 P C
0x2fd184…2fd318 Dummy {f00=0x00b5, f01=0x0190, f02=»GSWSTR20,CBLANKS " P MOVE GSWBCD3,CVOLNO # P EDIT GSWSTR20,FRVOLID # 4 PWRID75 # R P PERF WRITJT,=W'12' # ` & P CBL WRITVAR1,=W'4',WRID76 1,2,3,6 # | " P CBL WRITVAR1,=W'6',WRID90 4,5 # PWRID76 # P PERF FRMXTA,CBIN6 # P PERF WTALLY # P
0x2fd318…2fd4ac Dummy {f00=0x00b5, f01=0x0190, f02=»LY # P WAIT KTALLY $ PWRID90 $ P RET $ , P PEND $ 8 P EJECT $ F PCLEAR8 PROC $ T $ P* DELETE FIRST 14 CHARACTERS $ h P* OF LINE 8 $ . P MOVE GSWBIN2,=X'0801' INDICATE LAST LINE $ P DSC1 SCREEN,06,GSWBIN2 $ P MOVE GSWBIN2,
0x2fd4ac…2fd640 Dummy {f00=0x00b5, f01=0x018e, f02=»*********** $ j P* % P* FORMATS FOR WRITFD % P* % @ < P******************************************************** % J P* % PPCKINIT FRMT % P FBT CSWFLAG,INIT10 % P FILLR ' ',40 % P FILLR ' ',40 % P FILLR X'00',48 % P
0x2fd640…2fd7d4 (4, 166) Dummy {f00=0x00b5, f01=0x0190, f02=» P FMEL '999999',CMASKDAT & P FMEL 'B99999',GSWBCD3 & $ P FMEND & B P* & P PTREC1 FRMT & Z P FMEL '999',GTMSK & l P FILLR C'G',1 & P FMEL '99',CEDATNR & P FMEL '99999',CRECBCD & P FBT CSPLITFL,TREC40 & P FMEL '99',GTREGNR &
0x2fd7d4…2fd968 Dummy {f00=0x00b5, f01=0x0190, f02=»'999999',GTDATO & PTREC10 ' P FCOPY =C'&03' ' & P FMEL '999',GTMSK ' < P FBT TTR11FLG,TREC40 ' V P FCOPY =C'&04' ' r P FMEL '99999',TTLBNR ' PTREC40 ' P FMEND ' P* ' PPFRM1 FRMT ' P FCOPY =C'&' ' P FMEL '99',GSWBCD3 '
0x2fd968…2fdafc Dummy {f00=0x00b5, f01=0x4036, f02=»GSWBIN5) ' r P FMEND ( P END ( @ ( 2 & P FMEL '999',GTMSK ' < P FBT TTR11FLG,TREC40 ' V P FCOPY =C'&04' ' r P FMEL '99999',TTLBNR ' PTREC40 ' P FMEND ' P* ' PPFRM1 FRMT ' P FCOPY =C'&' ' P FMEL '99',GSWBCD3 '
0x2fdafc…2fdc90 Dummy {f00=0x00b5, f01=0x2008, f02=» ) 8 P CALL ABORT,KEYB ABORT I/O : P MOVE GTLINNR,=W'6' SET DEFAULT H : P CMP CBIN0,CBIN1 SET CR<> 0 P RET PLINOP2 > P DSC0 KVOUCH,REL
0x2fdc90…2fde24 Dummy {f00=0x00b5, f01=0x0190, f02=»2 O Pv y PR y y V 0 z " 1 R$ X4 }T 9 ~T 5 |T < ] _R" 2 O P " P W ] _r PR y V 0 z " 1 ZJ_, C N C PR C P_ C ( O : B y` E _D {T * `T ; : B
0x2fde24…2fdfb8 Dummy {f00=0x00b5, f01=0x0190, f02=» C C _ N P " P W = : R P T - : :~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ }2~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ }2}2}2}2}2}2}2}2~ ~ ~ }2}2}2}2}2
0x2fdfb8…2fe14c Dummy {f00=0x00b5, f01=0x0190, f02=»}2~ ~ ~ }2}2}2~ ~ ~ ~ ~ ~ ~ ~ N & C ( ( s N B s2_ C ( : N O ( . V P ! { v O O O N T |h N T L> N T |R ( Pj P8 Nr_J C C W
0x2fe14c…2fe2e0 Dummy {f00=0x00b5, f01=0x0190, f02=»! P & Z Y } | N P | z. | O ( : C ( : : N V W6 N R W& N P R W N PV W O y : N P R PR P_ O P # T N T T O y : N
0x2fe2e0…2fe474 (4, 167) Opaque[0x194]
0x2fe474…2fe608 # DirEnt {nam=»RGSUB1«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0888, f03=0x0000}
0x2fe474…2fe608 IdxSect {
0x2fe474…2fe608 f00 = 0x0044 // 0x2fe474 @0x0
0x2fe474…2fe608 f01 = 0x000a // 0x2fe476 @0x2
0x2fe474…2fe608 gno = [ // 0x2fe478 @0x4
0x2fe474…2fe608 [0x00]: C0x0044.0x1.0
0x2fe474…2fe608 [0x01]: C0x0047.0x3.0
0x2fe474…2fe608 [0x02]: C0x0086.0x3.0
0x2fe474…2fe608 [0x03]: C0x0087.0x0.0
0x2fe474…2fe608 [0x04]: C0x0087.0x1.0
0x2fe474…2fe608 ]
0x2fe474…2fe608 }
0x2fe608…2fe79c Dummy {f00=0x0044, f01=0x0190, f02=» P IDENT RGSUB1 02.01.XXX.1 P DDUM KMD08 & P PDIV D P ENTRY SLUT Z P ENTRY FLDTST n P ENTRY UPDAKK P ENTRY SUMWRT P ENTRY UPDA12 P ENTRY FLDIN P EXT PACKST P EXT
0x2fe79c…2fe930 Dummy {f00=0x0044, f01=0x0190, f02=» P EXT FRMTVO P EXT KTPLAN P EXT SPERR , P EXT SPLIN8 > P EXT SPINF8 R P INCLUDE EQUATE f P EJECT ~ PSLUT PROC P** SLUT - PACKS THE BUFFER P** WRITES TO DISK P** WRITE JOURNAL P** WRITE VOUCHER
0x2fe930…2feac4 Dummy {f00=0x0044, f01=0x0190, f02=» MOVE TTDBKRM,=C'K' IF KREDIT P CBE TTDKDEX,CBIN1,SLUT10 & P MOVE TTDBKRM,=C'D' IF DEBET H PSLUT10 l P TBF GTCYFLG,SLUT30 z P TBT TTCY2FLG,SLUT30 * P CBE GTREGDEX,CBIN3,SLUT30 IF TRANS 3 * P CBE GTREGDEX,CBIN4,SLUT30 IF TRANS 4
0x2feac4…2fec58 Dummy {f00=0x0044, f01=0x018e, f02=»,GTDUPF(CBIN1) P MOVE GTDUPF(CBIN9),TTARKSAV PSLUT30 : 2 P* INSERT 'REGNSKABSAAR IF TRANSTYPES 1,2,5-10 H P CBG GTREGDEX,=W'10',SLUT50 ~ P CBE GTREGDEX,=W'3',SLUT50 P CBE GTREGDEX,=W'4',SLUT50 P* TYPES 1,2,5-10 : P CBE GTREG
0x2fec58…2fedec Dummy {f00=0x0044, f01=0x018e, f02=» , P SUB GTDUPF(CBIN6),=D'1' SUB 1 FROM YEAR 2 P MOVE TSWBCD2,GTDUPF(CBIN6) ISOLATE LAST DIGIT 4 P MOVE GTDUPF(CBIN6),TSWBCD2 j , P MOVE GTUSED(CBIN6),CBIN10 SET FIELD NO PSLUT50 P* " P ADD TTLBNR,=D'1' EKSP. LB. NR P PER
0x2fedec…2fef80 Dummy {f00=0x0044, f01=0x0190, f02=» P PERF WRITJT,=W'0' PSLUT60 " P PERF FRMTVO 0 P PERF WRITVO D P* TEST IF IN LISTE b P TBF TTLSTFLG,SLUT80 | P PERF FRMXTA,CBIN4 P PERF WTALLY PSLUT80 P PERF UPDAKK P SET GTKORTFL P
0x2fef80…2ff114 (4, 168) Dummy {f00=0x0047, f01=0x0190, f02=»SLUT95 P SET TTEORFLG $ P CLEAR SPME READY FOR FUNCTIONS $ P CLEAR GTREGFLG L P CMP CBIN0,CBIN0 OK, SETCR=0 d P RET PSLUTNOK * P SUB TTLBNR,=D'1' CHANGE LB. NR. AFTER P DISK ERROR P MOVE SPBINW4,=W'17' P CMP
0x2ff114…2ff2a8 Dummy {f00=0x0047, f01=0x0190, f02=» | P* 8 P** SUMWRT - CALCULATE AND WRITE SUM/RESTSUM P* N P******************** X $ P TBF TTSUMFLG,SUMRET ONLY IF SUM t P TBF GTCYFLG,SUMADD P TBT TTCY2FLG,SUMADD 2 P SUB GTSUM,GTDUPF(CBIN4) CALCULATE NEW RESTSUM
0x2ff2a8…2ff43c Dummy {f00=0x0047, f01=0x0190, f02=»DUPF(CBIN4) PSUMOUT P PERF SPINF8 " PSUMRET 6 : P ADD GTSUMCNT,GTDUPF(CBIN4) ALWAYS ADD TO SUMFUNCTION D P RET P PEND P EJECT PUPDAKK PROC P******************** P* P* UPDAKK 0 P*
0x2ff43c…2ff5d0 Dummy {f00=0x0047, f01=0x0190, f02=»TRNR x " P* IDX2 = DEB/KRE . P* TR12 UPDATES TTACC12(IDX1,IDX2) 2 & P* IDX1 = TAELLER NR d $ P* IDX2 = DEB/KRE P* 4 P* ALL TRANSACTIONS UPDATE TTTOTDK(IDX2) 6 P* AND IF
0x2ff5d0…2ff764 Dummy {f00=0x0047, f01=0x0190, f02=»F UPDA12 TAELLER 12 P B UPDRET 2 PUPD20 R 2 P CBG GTREGNR,=D'30',UPDRET NO ACCUMULATION FOR ` P CERTAIN TRANSACTIONS " P CBE GTUSED(CBIN6),CBIN0,UPD30 , P ADD TTACC(CBIN8,TTDKDEX),GTDUPF(CBIN4)
0x2ff764…2ff8f8 Dummy {f00=0x0047, f01=0x0190, f02=»CBIN1 PUPD35 8 P CBE CBACC(GSWBIN1,CBIN1),GTDUPF(CBIN3),UPD350 BKO? : P CBNE CBACC(GSWBIN1,CBIN1),GTDUPF(CBIN1),UPD36 FOUND? X PUPD350 , P ADD CBACC(GSWBIN1,CBIN2),GTDUPF(CBIN4) , P ADD CBACC(GSWBIN1,CBIN3),GTDUPF(CBIN4) PUPD3
0x2ff8f8…2ffa8c Dummy {f00=0x0047, f01=0x0190, f02=») GET INDEX r : P ADD TTACC(GSWBIN1,TTDKDEX),GTDUPF(CBIN4) B P UPDATE ACCUMULATOR R * P IB TTDKDEX,UPDKR,UPDDB SEE IF INVERT PUPDDB @ P CBNL GTDUPF(CBIN4),='0',UPD50 IF NEGATI
0x2ffa8c…2ffc20 Dummy {f00=0x0047, f01=0x0190, f02=»IF POSITIVE KREDIT, p 6 P ADD TTACC(CBIN7,TTDKDEX),GTDUPF(CBIN4) CORRECTION PUPD50 V , P CBG GSWBIN1,CBIN4,UPDRET IF COUNTER 5,6 d D P TBT GTTFLG,UPDRET WHEN CLOSE, NO UPDATE P TBT CWFLAG,UPD60 > P CBE TTCASHAC,GTDU
0x2ffc20…2ffdb4 (4, 169) Dummy {f00=0x0086, f01=0x018e, f02=»ECIAL ACCOUNTS 0 P ADD TTCYKTOT,GTDUPF(CBIN4) CASH CORRECTION P B UPD60 J PUPD55 Z ( P MOVE TTCYKTOT,=D'0' CASH CORRECTION h PUPD60 * P CBG GTREGNR,=D'17',UPDRET * P SUB TTCASH,GTDUPF(CBIN4) P B
0x2ffdb4…2fff48 Dummy {f00=0x0086, f01=0x0190, f02=» z P* & P* UPDA12 - UPDATE FOR TR12 P* < P******************** F : P MOVE GSWBIN1,TTCNTNR TAELLER NR b " P SUB GSWBIN1,=W'100' GET INDEX & P ADD GSWBIN1,CTR12(TTASKNR,CBIN1) : P ADD C12ACC(
0x2fff48…3000dc Dummy {f00=0x0086, f01=0x0190, f02=»PLAN,GSWBCD1,GTKTTYP SEE IF KORT NEEDED P RET 0 P PEND D P EJECT Z PFLDTST PROC p P******************** P* 8 P* FLDTST - TEST IF FIELDS ARE ENTERED CORRECT $ P* FELT AFHAENGIGHEDS TEST
0x3000dc…300270 Dummy {f00=0x0086, f01=0x0190, f02=»TOK,FLDT03,FLDT04,FLDTOK, C , P FLDTOK,FLDTOK,FLDT08,FLDT09,FLDT10, C $ < P FLDTOK,FLDTOK,FLDTOK,FLDTOK,FLDT45, C T < P FLDT45,FLDTOK,FLDTOK,FLDTOK,FLDT50, C 0 P FLDT50,FLDT52,FLDT53,FLDT54 P
0x300270…300404 Dummy {f00=0x0086, f01=0x0190, f02=»CD3,GTDUPF(CBIN12) GET FIELD P CBNE GSWBCD3,=D'0',FLDT031 $ P MOVE TT16TXT,=C'RAT' IF = 0 H P B FLDT035 l PFLDT031 ~ P CBNE GSWBCD3,=D'1',FLDT032 P MOVE TT16TXT,=C'RTE' IF = 1 P B FLDT035 PFLDT032 P CBNE GSWBCD3,=D
0x300404…300598 Dummy {f00=0x0086, f01=0x0190, f02=»D(CBIN15),=W'0' P BNE FLDTOK FIELD 48 USED P CMP GTDUPF(CBIN3),=D'21' : P BL FLDT037 P CMP GTDUPF(CBIN3),=D'26' p P BL FLDTOK BKO = 21-25 PFLDT037 P CMP GTDUPF(CBIN3),=D'46' P BE FLDTOK BKO=46 P CMP GTDUP
0x300598…30072c Dummy {f00=0x0086, f01=0x0190, f02=»IELD 48 = 1 p P B FLDTOK P* & PFLDT04 0 2 P TBT BCPR,FLDT041 CIR > P CMP GTUSED(CBIN10),=W'0' t " P BE FLDTOK FIELD 17 (INDEX 10) P B FLDTNOK 2 PFLDT041 C
0x30072c…3008c0 Dummy {f00=0x0086, f01=0x0190, f02=»SED(CBIN10),=W'0' P BNE FLDTOK P B FLDTNOK . P* N PFLDT08 X P TEST CFLT46 f P BZ FLDT09 z P CMP GTUSED(CBIN17),=W'0' P BNE FLDT09 FIELD 46 USED 6 P MOVE GTUSED(CBIN17),=W'46' ELSE SET FIELD 46 USED 0
0x3008c0…300a54 (4, 170) Dummy {f00=0x0087, f01=0x0190, f02=»AST ONE FIELD 23,24,25,26: INDEX 12,13,14,15 , P PERF FLDIN,CBIN12,CBIN13,CBIN14,CBIN15 4 P CMP GSWBIN1,=W'0' d P BNE FLDTOK ~ P B FLDTNOK P* PFLDT10 P MOVE GSWBIN1,GTKTTYP P IB GSWBIN1, C . P FLDT105,FLDT105,FLDT
0x300a54…300be8 Dummy {f00=0x0087, f01=0x0190, f02=»TNOK PFLDT108 P CMP GTUSED(CBIN2),=W'0' P BNE FLDTOK < P MOVE SPBINW4,=W'26' P P PERF SPERR l P CMP SPBINW2,CBIN2 P BE FLDTOK KOR-KEY P MOVE SPBINW4,=W'0' P B FLDTNOK NOT KOR-KEY P* PFLDT45 B P
0x300be8…300d7c Dummy {f00=0x0087, f01=0x0190, f02=»OK z P* PFLDT50 > P PERF FLDIN,CBIN2,CBIN1,CBIN0,CBIN0 FIELD 6,28 " P CBE GSWBIN1,=W'1',FLDTOK d P B FLDTNOK P* PFLDT52 > P PERF FLDIN,CBIN2,CBIN1,CBIN0,CBIN0 FIELD 6,28 * P
0x300d7c…300f10 Dummy {f00=0x0087, f01=0x018e, f02=»,FLDT525 r > P PERF FLDIN,CBIN14,CBIN20,CBIN21,CBIN22 FIELD 42,43,44,45 * P CBNE GSWBIN1,=W'0',FLDTNOK R PFLDT525 : P CBNE GTDUPF(CBIN17),=D'1',FLDT527 FIELD 46 : P CBE GTUSED(CBIN20),=W'0',FLDTNOK FIELD 43
0x300f10…3010a4 Dummy {f00=0x0087, f01=0x0190, f02=» X P B FLDTOK P* ( PFLDT53 2 : P CBNE GTUSED(CBIN12),=W'0',FLDT535 FIELD 47 @ D P PERF FLDIN,CBIN20,CBIN21,CBIN22,CBIN0 FIELD 43,44,45 ~ * P CBNE GSWBIN1,=W'0',FLDTNOK PFLDT535 : P
0x3010a4…301238 Dummy {f00=0x0087, f01=0x0190, f02=» CBE GTUSED(CBIN1),=W'0',FLDTOK FIELD 28 : P CBNE GTUSED(CBIN15),=W'0',FLDTNOK FIELD 48 < P B FLDTOK z P* PFLDT54 8 P CBE GTUSED(CBIN1),=W'0',FLDTOK FIELD 28 : P CBNE GTUSED(CB
0x301238…3013cc Dummy {f00=0x0087, f01=0x0190, f02=»ET CR=0 OK d P RET P* & PFLDTNOK 0 B P CMP CBIN0,CBIN1 SET CR <> 0 NOT OK @ P RET P PEND P* P* P EJECT ( PFLDIN PROC FML1,FML2,FML3,FML4 P**
0x3013cc…301560 Dummy {f00=0x0087, f01=0x0190, f02=» P* OUTPUT IN GSWBIN1 P* & P******************** 0 " P MOVE GSWBIN1,=W'0' L $ P CBE FML1,=W'0',FLD5 r P CBE GTUSED(FML1),=W'0',FLD1 " P ADD GSWBIN1,=W'1' PFLD1 $ P CBE FML2,=W
0x301560…3016f4 (4, 171) Dummy {f00=0x0087, f01=0x414c, f02=»=W'0',FLD5 z , P CBE GTUSED(FML3),=W'0',FLD3 " P ADD GSWBIN1,=W'1' B PFLD3 h $ P CBE FML4,=W'0',FLD5 t , P CBE GTUSED(FML4),=W'0',FLD5 " P ADD GSWBIN1,=W'1' PFLD5 P R
0x3016f4…301888 Dummy {f00=0x0087, f01=0x2008, f02=» CBE GTUSED(FML3),=W'0',FLD3 " P ADD GSWBIN1,=W'1' 4 PFLD3 Z $ P CBE FML4,=W'0',FLD5 f , P CBE GTUSED(FML4),=W'0',FLD5 " P ADD GSWBIN1,=W'1' PFLD5 P RET P
0x301888…301a1c Dummy {f00=0x0087, f01=0x0190, f02=» P* . P* CALL: PERF TCONFR,<CONFIGURATION NBR> P* @ ( P* THE DATA IS READ RANDOM FROM DK01 J P* v , P* ALTERED FIELDS: GSWBIN6 - <CONF> + 12 $ P* GSWBIN1 - 199 P* $ P* CR: OK - 0, NOK - <> 0
0x301a1c…301bb0 Dummy {f00=0x0087, f01=0x0190, f02=» GSWBIN6,CBIN12 P MOVE GSWBIN1,=W'199' ! 4 P PERF RAREAD,DK01,=D'1',TCONBUF,GSWBIN1,GSWBIN6 ! 6 P BNOK TCONRET1 ! n P CMP CBIN0,CBIN0 ! P RET ! PTCONRET1 ! P CMP CBIN0,CBIN1 SET CR ! P RET ! P PEND ! P* ! P EJECT ! 8
0x301bb0…301d44 Dummy {f00=0x0087, f01=0x0190, f02=» 2 P* CALL: PERF TCONFW,<CONFIGURATION NBR> " P* " : 2 P* IF NOT IN TESTMODE, DATA IS WRITTEN TO DK01 " D P* ALTERED FIELDS: " z " P* GSWBIN6 - <CONF> + 12 " P* " 8 P*************************************************** " PTCONFW P
0x301d44…301ed8 Dummy {f00=0x0087, f01=0x0190, f02=»RAWRIT,DK01,=D'1',TCONBUF,GSWBIN6 " PTCFWRET # * P RET # : P PEND # F P EJECT # T < P******************************************************** # b P* # 0 P* CONFRD - READING OF COMMON CONFDATA # P* # > P******************************
0x301ed8…30206c Dummy {f00=0x0087, f01=0x0190, f02=»CBIN2 # z P BNOK CONFRET $ P PERF CONRDX,CCONBUF2,CBIN3 $ $ P BNOK CONFRET $ H P PERF CONRDX,CCONBUF3,CBIN4 $ ^ P BNOK CONFRET $ P PERF CONRDX,CCONBUF4,CBIN5 $ P BNOK CONFRET $ P PERF CONRDX,CCONBUF5,CBIN6 $ P BNOK CONFRET $
0x30206c…302200 Dummy {f00=0x0087, f01=0x0190, f02=»NBUF8,CBIN9 $ P BNOK CONFRET % P PERF CONRDX,CCONBUF9,CBIN10 % * PCONFRET % N P RET % ^ P PEND % j P* % x PCONRDX PROC CBUFRD,CBUFNO % P* % P MOVE GSWBIN1,=W'199' % 2 P PERF RAREAD,DK01,=D'1',CBUFRD,GSWBIN1,CBUFNO % P RET %
0x302200…302394 (4, 172) Opaque[0x194]
0x302394…302528 # DirEnt {nam=»RGSUB2«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x16e0, f03=0x0000}
0x302394…302528 IdxSect {
0x302394…302528 f00 = 0x00b7 // 0x302394 @0x0
0x302394…302528 f01 = 0x0004 // 0x302396 @0x2
0x302394…302528 gno = [ // 0x302398 @0x4
0x302394…302528 [0x00]: C0x00b7.0x0.0
0x302394…302528 [0x01]: C0x00b7.0x1.0
0x302394…302528 ]
0x302394…302528 }
0x302528…3026bc Dummy {f00=0x00b7, f01=0x018e, f02=» P IDENT RGSUB2 02.01.XXX.1 P DDUM KMD08 & P PDIV D P ENTRY PACKST Z P ENTRY PACKCL p P EXT EMPTYT P EXT CYTRP P INCLUDE EQUATE P EJECT PPACKST PROC P********************
0x3026bc…302850 Dummy {f00=0x00b7, f01=0x018e, f02=» v P* P* ALTERED FIELDS: GSWBIN1 P* GTDUPF 4 P* GTUSED T P******************** t P MOVE GSWBIN1,CBIN1 PPST10 $ P CBE GTUSED(GSWBIN1),CBIN0,PST30 P*SOMETHING ENTERED P CALL EMPTYT
0x302850…3029e4 Dummy {f00=0x00b7, f01=0x0190, f02=» 6 P MOVE GTDUPF(GSWBIN1),GTREGF(GSWBIN1) TO DUP FIELD P B PST40 > P* NOTHING ENTERED N PPST30 h P MOVE GTDUPF(GSWBIN1),=X'FF' v P TBF GTLOKSPG,PST40 P MOVE GTREGF(GSWBIN1),=X'FF' P* CLEAR IF SPG. FUNCTION PPST40
0x3029e4…302b78 Dummy {f00=0x00b7, f01=0x0190, f02=»******************** p P* P* PACKCL - CLEAR ROUTINE & P* F P* ALTERED FIELDS: P * P* GSWBIN1 - SET TO CBINMAX j . P* GTUSED - ALL ENTRIES SET TO 0 P* 4 P***********************************************
0x302b78…302d0c Dummy {f00=0x00b7, f01=0x412e, f02=» 4 P MOVE GTUSED(GSWBIN1),CBIN0 LOOP CBINMAX TIMES P ADD GSWBIN1,CBIN1 @ P CBL GSWBIN1,CBINMAX,PCKCL10 Z $ P MOVE TT07TXT,=C' ' CLEAR TEXTS ~ P MOVE TT16TXT,=C' ' P CLEAR TTSMALL P CLEAR TTEORFLG TRANS ERASED P RET P
0x302d0c…302ea0 Dummy {f00=0x00b7, f01=0x2008, f02=» IDENT RGSUB2 P DDUM KMD08 $ P PDIV B P ENTRY PACK X P ENTRY PACKCL v P ENTRY PACKF P ENTRY DEPACK P INCLUDE EQUATE P END @
0x302ea0…303034 (4, 173) Dummy {f00=0x00b7, f01=0x0000, f02=». w [ * a ; 0@ 1@ 22 3 4? 6? 7 5 e 1 K b 1 V J Q 1 d 0 a p +B ` c * < f < + D 7 9 - ` 2 * * 4 U T NETTO H R +$ C - 7 ` Z] +
0x303034…3031c8 Dummy {f00=0x00b7, f01=0x0000, f02=» ` ^ b ` O ? 3J 2 H v ` N | s : 0 u D | s : u : + v a v 0 a t U t k U |6 1 F 1 0 O 0 L 2 1 d | H * * d | % A % d {
0x3031c8…30335c Dummy {f00=0x00b7, f01=0x0000, f02=» H 3 | e O r@ T SM? T $ J R 0 0 N @ + W 6 R W " B ( ) @ )(NN()(''($ @ )(RP()(''($ @ L>;B :?=V## @ X.-,.X.++.*7 @ GD&% G GGDC2 @ ##A@0"! ?< EJ-EDB T[LLER j KASSE-KONTO < VE
0x30335c…3034f0 Dummy {f00=0x00b7, f01=0x0000, f02=»999999 B99999 99999Q Z300 T 9999 KLAR KASSE]BNING DAG NR 99999999E-99 v ZZZZZZZZE-ZZ l TTT.TTT.TTT.TT9.99-t b SALD0 X BTTT.TTT.TTT.TT9.99- N DEB D KRE : KVIT 0 BILAG & ]BNE KASSER: BBZZZ- XXXXX REGKONTONR CPR/
0x3034f0…303684 Dummy {f00=0x00b7, f01=0x0000, f02=» ZZZ.ZZZ.ZZ9.99- CHECKCIFFERT BEREGNINGL ZZZZZZZZZE-9 | FEJL A r B9B ^ LBNR S. - . N g = N g SGRUNDLAG i N 9 p [ X Z I ? B SP RGE ~ 1 m t E v U I j (
0x303684…303818 Dummy {f00=0x00b7, f01=0x0000, f02=» B M/U 8 4 5 . 9 $ g g I _ p Z Z _ ! l U L I g Q g g _f - i * G [ FRA 3 TIL 3 c H i * [ 3 d l K c m J Q n Y W o U c / n
0x303818…3039ac Dummy {f00=0x00b7, f01=0x0000, f02=» B m _ t _ * E l U K I f _ F E u = U L e M f _ V ? _ o _ ZZ9 z SKIFT JOURNAL p LINIE NR f ZZZZZVZZ9,99+n OPSTART Y t
0x3039ac…303b40 Dummy {f00=0x00b7, f01=0x0190, f02=» # * 5 l J F D 9 @ G . ~ K t T , 0 * J F D $ V V l ! x J F D | h $ $
0x303b40…303cd4 (4, 174) Opaque[0x194]
0x303cd4…303e68 # DirEnt {nam=»DKEBCD«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x16f0, f03=0x0000}
0x303cd4…303e68 IdxSect {
0x303cd4…303e68 f00 = 0x00b7 // 0x303cd4 @0x0
0x303cd4…303e68 f01 = 0x0004 // 0x303cd6 @0x2
0x303cd4…303e68 gno = [ // 0x303cd8 @0x4
0x303cd4…303e68 [0x00]: C0x00b7.0x2.0
0x303cd4…303e68 [0x01]: C0x00b7.0x3.0
0x303cd4…303e68 ]
0x303cd4…303e68 }
0x303e68…303ffc Dummy {f00=0x00b7, f01=0x018e, f02=» 0 P IDENT EBCDIC REL9.1DK79-05-23 870105040910 P 8 P* @ 4 P************************************************ J P* $ P* PHILIPS TERMINAL SYSTEM PTS P* $ P* EBCDIC = EBCDIC/ASCII TABLE P* P* P* P*
0x303ffc…304190 Dummy {f00=0x00b7, f01=0x018e, f02=» P* P* . P* CONDITIONAL ASSEMBLY (SEE ALSO DRDC15) P* J 2 PX:A EQU 1 CODE , 0=ASCII , 1=EBCDIC (DRDC15) T PCODE EQU X:A 4 PX:B EQU 1 READ COMMAND HANDLING IF = 1 (DRDC15) PRCOM EQU X:B P* : P* VERSION FOR SCAND
0x304190…304324 Dummy {f00=0x00b7, f01=0x0190, f02=» P* 7B 5B P* 7C 5C P* 00 7C $ P* 4F 24 4 P* 6A 40 D P EJECT T P* b P* l 2 P* TABLE FOR CONVERSION OF EBCDIC CODE TO ASCII v P* P* PTASCII EQU * P IFT CODE=1 ( P DATA /7F01,/0203,/0009,/0000 00
0x304324…3044b8 Dummy {f00=0x00b7, f01=0x0190, f02=» l ( P DATA /0000,/0000,/0000,/171B 20-27 ( P DATA /0000,/0000,/0005,/0000 28-2F 4 ( P DATA /0000,/1600,/0000,/0004 30-37 ` ( P DATA /0000,/0000,/1415,/001A 38-3F ( P DATA /2041,/4243,/4445,/4647 40-47 ( P DATA /4849,/232E,/3C28,/2B24 48-4F
0x3044b8…30464c Dummy {f00=0x00b7, f01=0x0190, f02=» ( P DATA /595A,/402C,/255F,/3E3F 68-6F ( P DATA /1831,/3233,/3435,/3637 70-77 0 ( P DATA /3839,/3A5B,/5C27,/3D22 78-7F ( P DATA /2061,/6263,/6465,/6667 80-87 ( P DATA /6869,/5B2E,/3C28,/2B21 88-8F ( P DATA /266A,/6B6C,/6D6E,/6F70 90-97
0x30464c…3047e0 Dummy {f00=0x00b7, f01=0x0190, f02=» DATA /3031,/3233,/3435,/3637 B0-B7 ( P DATA /3839,/3A23,/4027,/3D22 B8-BF , ( P DATA /2041,/4243,/4445,/4647 C0-C7 X ( P DATA /4849,/5B2E,/3C28,/2B21 C8-CF ( P DATA /264A,/4B4C,/4D4E,/4F50 D0-D7 ( P DATA /5152,/5D24,/2A29,/3B5E D8-DF ( P
0x3047e0…304974 (4, 175) Dummy {f00=0x00b7, f01=0x0190, f02=»A /3839,/3A23,/4027,/3DFF F8-FF P XIF ( P EJECT 4 P* B P* L 2 P* TABLE FOR CONVERSION OF ASCII CODE TO EBCDIC V P* P* PTEBCDIC EQU * P IFF CODE+RCOM=0 ( P DATA /0001,/0203,/372D,/0000 00-07 ( P DATA /0005,/1
0x304974…304b08 Dummy {f00=0x00b7, f01=0x0190, f02=»/4F6C,/507D 20-27 ~ ( P DATA /4D5D,/5C4E,/6B60,/4B61 28-2F ( P DATA /F0F1,/F2F3,/F4F5,/F6F7 30-37 F ( P DATA /F8F9,/7A5E,/4C7E,/6E6F 38-3F r ( P DATA /6AC1,/C2C3,/C4C5,/C6C7 40-47 ( P DATA /C8C9,/D1D2,/D3D4,/D5D6 48-4F ( P DATA /D7D8,/D9E2,
0x304b08…304c9c Dummy {f00=0x00b7, f01=0x40c2, f02=»4,/9596 68-6F z ( P DATA /9798,/99A2,/A3A4,/A5A6 70-77 ( P DATA /A7A8,/A91C,/0000,/00E0 78-7F B 4 P DATA /544F,/5353 SPEC. FLEX CHAR. 'TOSS' 80-84 n P XIF P END @ ( P DATA /C8C9,/D1D2,/D3D4,/D5D6 48-4F ( P DATA /D7D8,/D9E2,
0x304c9c…304e30 Dummy {f00=0x00b7, f01=0x2008, f02=» 68-6F z ( P DATA /9798,/99A2,/A3A4,/A5A6 70-77 ( P DATA /A7A8,/A91C,/0000,/00E0 78-7F B 4 P DATA /544F,/5353 SPEC. FLEX CHAR. 'TOSS' 80-84 n P XIF P END @ ( P DATA /C8C9,/D1D2,/D3D4,/D5D6 48-4F ( P DATA /D7D8,/D9E2,
0x304e30…304fc4 Dummy {f00=0x00b7, f01=0x40f4, f02=»F(E) SET:M2 UNMODIFIED ATTRIBUTE Y P CWK A2,/FF Z ( ( P RF(NE) SET:M1 NOT NULL OR ATTRIBUTE Z < ( P ORK A5,/A0 MODIFIED NULL CHARACTER Z h P RTN A14 Z & PSET:M1 ORR A5,A2 SET MODIFIED BIT Z PSET:M2 RTN A14 Z P END Z @ Z ********************
0x304fc4…305158 Dummy {f00=0x00b7, f01=0x2008, f02=» [ NT DUMMY END @ (
0x305158…3052ec Dummy {f00=0x00b7, f01=0x0190, f02=»" * A5E- A5 L " ! UJ ! Q L W 5 W6 T 5, B" (@ T X @ R >F >FM (% , ! R " T* L L 5dW L W L L 5xW L 5 A M 5 W W =h C L % Ph L =c M B !?PN P6! TD C B <b $ !@ <B C O C
0x3052ec…305480 Dummy {f00=0x00b7, f01=0x0190, f02=» B M 6l O| 8B M T8 L T: P* M 6 _vW C B % T L 6 5 6T M P* L P L 4 M L P <C M =C M 7 > 4 X ? ? ? ? ? ? ? 7( A8P _ =b%0 X $ L <B<j P L >>$ _ >> L
0x305480…305614 (4, 176) Opaque[0x194]
0x305614…3057a8 # DirEnt {nam=»RGLIST«, typ=»UF«, f00=0x0000, f01=0x0000, f02=0x15e0, f03=0x0000}
0x305614…3057a8 IdxSect {
0x305614…3057a8 f00 = 0x00af // 0x305614 @0x0
0x305614…3057a8 f01 = 0x0002 // 0x305616 @0x2
0x305614…3057a8 gno = [ // 0x305618 @0x4
0x305614…3057a8 [0x00]: C0x00af.0x0.0
0x305614…3057a8 ]
0x305614…3057a8 }
0x3057a8…30593c Dummy {f00=0x00af, f01=0x0190, f02=» PSKF 1 PTRA RGSTRT PTRA DKSUBS $ PTRA KMD08 6 PTRA RGMAIN H PTRA RGMND Z PTRA SCREEN l PTRA KMDIO ~ PTRA RGADM PTRA RGSUB1 PTRA RGSUB2 PTRA RGSUB3 PTRA RGFRMT PTRA SUBAPL PTRA DIVFMT
0x30593c…305ad0 Dummy {f00=0x00af, f01=0x00bc, f02=»6272 PPRT KY6272 PASM DCTSK PSCR 0 PASM VDUPRT < PSCR N PASM START Z PSCR l PASM PRT x PSCR PTRA EQULST PSCR $ASG2 B2 PTRA RGSUB3 PTRA RGFRMT PTRA SUBAPL PTRA DIVFMT
0x305ad0…305c64 Dummy {f00=0x00af, f01=0x2008, f02=» PPRT KY6272 PASM DCTSK PSCR 0 PASM VDUPRT < PSCR N PASM START Z PSCR l PASM PRT x PSCR PTRA EQULST PSCR $ASG2 B2 PTRA RGSUB3 PTRA RGFRMT PTRA SUBAPL PTRA DIVFMT
0x305c64…305df8 Dummy {f00=0x00af, f01=0x0190, f02=»! 0 0 2 4 ! A ! ? 0 0 ! ? 4 1 4 0 1 ! 4! R 6 0+ W 0+ W 0+ $2 _, 4 6 0+V W 0+V W 0+V 4 0 1 4 4 % L% B! ) : u I ! u* vb
0x305df8…305f8c Dummy {f00=0x00af, f01=0x0190, f02=» | 4 # &! " w 2 % u " 3 $ 4 4 4 4 ! u 4 4 0 ! = 6 6 4 K W&J W! t W " t _+J .W 4 # *H @ , W H @ , ( , ? 2 r !"#$ %&%%%%%'%%%%%%%%%%%%%%%$%%%%%$%
0x305f8c…306120 Dummy {f00=0x00af, f01=0x0190, f02=» ?%$ A _ ? ? % A R A 9%@ ?%@ ?% ?% "8 8 I # W % W O O | ? ! ! ! ? W A A ? @ ) A ) ! j! f b N L + " :hN b N ) , Lb N ! u %
0x306120…3062b4 (4, 177) Opaque[0x194]
0x3062b4…306448 # DirEnt {nam=»DKLICO«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x1708, f03=0x0000}
0x3062b4…306448 IdxSect {
0x3062b4…306448 f00 = 0x00b8 // 0x3062b4 @0x0
0x3062b4…306448 f01 = 0x0002 // 0x3062b6 @0x2
0x3062b4…306448 gno = [ // 0x3062b8 @0x4
0x3062b4…306448 [0x00]: C0x00b8.0x1.0
0x3062b4…306448 ]
0x3062b4…306448 }
0x306448…3065dc Dummy {f00=0x00b8, f01=0x0190, f02=» P IDENT LICO:T SCAND ALPHABET P* SCANDINAVIAN ALPHABET ( P DB L PLICO:T EQU * Z * P DATA /2041,/4243,/4445,/4647 /00-/07 n * P DATA /4849,/232E,/3C28,/2B24 /08-/0F * P DATA /264A,/4B4C,/4D4E,/4F50 /10-/17 * P DATA /5152,/215
0x3065dc…306770 Dummy {f00=0x00b8, f01=0x4068, f02=»233,/3435,/3637 /30-37 ( P DATA /3839,/3A5B,/5C27,/3D22 /38-3F P DE J P END X@ d Z * P DATA /2041,/4243,/4445,/4647 /00-/07 n * P DATA /4849,/232E,/3C28,/2B24 /08-/0F * P DATA /264A,/4B4C,/4D4E,/4F50 /10-/17 * P DATA /5152,/215
0x306770…306904 Dummy {f00=0x00b8, f01=0x2008, f02=» 2 /38-3F | P END @ $LICO:T EQU * ( * P DATA /2041,/4243,/4445,/4647 /00-/07 < * P DATA /4849,/232E,/3C28,/2B24 /08-/0F j * P DATA /264A,/4B4C,/4D4E,/4F50 /10-/17 * P DATA /5152,/215D,/2A29,/3B5E /18-/1F * P DATA /2D2F,/5354,/5
0x306904…306a98 Dummy {f00=0x00b8, f01=0x0190, f02=»" !`P V 0 !`P X ! , ( " _ " T V 0 !` V _ , UPDATE " , ( $ " ! "R_J : O B p , ( " ! T ! 1P 5P ?P , ( # 7 W N W , ( #%
0x306a98…306c2c Dummy {f00=0x00b8, f01=0x0190, f02=» # P P P P T |_X , ( # T }_b T ~_l T 0_v 0 , ( # T _ B ! : ! H ` , ( # ! :a" _ ! ^, _ , ( $ O _ T ^ 0 " , ( $# R 1 _ " X
0x306c2c…306dc0 Dummy {f00=0x00b8, f01=0x018e, f02=» #: N # ! H , ( $ V L 1P Y # ICWRTE P * & $ ( K@ V O b , ( $ # ! H O " P N T , ( $ B + I I I C , ( % ( N
0x306dc0…306f54 (4, 178) Opaque[0x194]
0x306f54…3070e8 # DirEnt {nam=»CONNJ1«, typ=»UF«, f00=0x0000, f01=0x0000, f02=0x1318, f03=0x0000}
0x306f54…3070e8 IdxSect {
0x306f54…3070e8 f00 = 0x0098 // 0x306f54 @0x0
0x306f54…3070e8 f01 = 0x0002 // 0x306f56 @0x2
0x306f54…3070e8 gno = [ // 0x306f58 @0x4
0x306f54…3070e8 [0x00]: C0x0098.0x3.0
0x306f54…3070e8 ]
0x306f54…3070e8 }
0x3070e8…30727c Dummy {f00=0x0098, f01=0x018e, f02=» T; P01; TID=TC; TCL=TC; * LEV=60; : 01; J PTDC=T02; V PLC=01L; f P01; v PSCL=S04; PT; P03; TID=KA; TCL=KA; LEV=60; 01; TDC=T03; PLC=01L; P03;
0x30727c…307410 Dummy {f00=0x0098, f01=0x011a, f02=» TDC=T04; PLC=02L; P03; $ PSCL=S02; 0 PSCL=S03; @ PSCL=S04; P T; ` 01; j TID=D0; v TCL=D0; LEV=60; 00; P00; PC; P00; P01; PSCL=S01; U; 001; TB
0x307410…3075a4 Dummy {f00=0x0098, f01=0x2008, f02=» T04; PLC=02L; P03; $ PSCL=S02; 0 PSCL=S03; @ PSCL=S04; P T; ` 01; j TID=D0; v TCL=D0; LEV=60; 00; P00; PC; P00; P01; PSCL=S01; U; 001; TB
0x3075a4…307738 Dummy {f00=0x0098, f01=0x0190, f02=»ZR " i ( j & & i 6 k 99BR D " k X & h l 99 v " l ( m $ n ( n & & DIVERSE FORMATER
0x307738…3078cc Dummy {f00=0x0098, f01=0x0190, f02=» " w " p " | $ " 2 " @ " N " " j " x " " " " " " " ( p $
0x3078cc…307a60 Dummy {f00=0x0098, f01=0x0190, f02=» I ( r $ sI & ( 6 s B $ I R & b & I p & $ I ( t $ uI ( u $ I & I
0x307a60…307bf4 (4, 179) Opaque[0x194]
0x307bf4…307d88 # DirEnt {nam=»CONNJ6«, typ=»UF«, f00=0x0000, f01=0x0000, f02=0x14a8, f03=0x0000}
0x307bf4…307d88 IdxSect {
0x307bf4…307d88 f00 = 0x00a5 // 0x307bf4 @0x0
0x307bf4…307d88 f01 = 0x0002 // 0x307bf6 @0x2
0x307bf4…307d88 gno = [ // 0x307bf8 @0x4
0x307bf4…307d88 [0x00]: C0x00a5.0x1.0
0x307bf4…307d88 ]
0x307bf4…307d88 }
0x307d88…307f1c Dummy {f00=0x00a5, f01=0x018e, f02=» T; P01; TID=TC; TCL=TC; * LEV=60; : 01; J PTDC=T02; V PLC=01L; f P01; v PSCL=S04; PT; P02; TID=KA; TCL=KA; LEV=60; 01; TDC=T03; PLC=01L; P03;
0x307f1c…3080b0 Dummy {f00=0x00a5, f01=0x011a, f02=» TDC=T04; PLC=02L; P03; $ PSCL=S02; 0 PSCL=S03; @ PSCL=S04; P T; ` 01; j TID=D0; v TCL=D0; LEV=60; 00; P00; PC; P00; P01; PSCL=S01; U; 001; TB
0x3080b0…308244 Dummy {f00=0x00a5, f01=0x2008, f02=» T04; PLC=02L; P03; $ PSCL=S02; 0 PSCL=S03; @ PSCL=S04; P T; ` 01; j TID=D0; v TCL=D0; LEV=60; 00; P00; PC; P00; P01; PSCL=S01; U; 001; TB
0x308244…3083d8 Dummy {f00=0x00a5, f01=0x0190, f02=» C : "R V I f ( T _& @ X, @ _6 ( n f V f 2 ;B P4 J T ! L ( n W< / _2 L ( n W & F : ( n f
0x3083d8…30856c Dummy {f00=0x00a5, f01=0x0190, f02=» C C J ' W 781"&$ 39#$;< '()*+,-! j N P _B B 'W ( n Wj ^ W ^ ( 1W C C C ( n ' Pb I "%@P "% P& B C C 4 "5 # B
0x30856c…308700 Dummy {f00=0x00a5, f01=0x0190, f02=» V I C B : ( n ' P I : N % Y < C & R V C : B T T T V : 2 ' W 2 6 2 @! " T # ' ?D 4W"' #? ;D:B " : _ C :
0x308700…308894 (4, 180) Opaque[0x194]
0x308894…308a28 # DirEnt {nam=»RGSTRT«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x15f0, f03=0x0000}
0x308894…308a28 IdxSect {
0x308894…308a28 f00 = 0x00af // 0x308894 @0x0
0x308894…308a28 f01 = 0x000e // 0x308896 @0x2
0x308894…308a28 gno = [ // 0x308898 @0x4
0x308894…308a28 [0x00]: C0x00af.0x2.0
0x308894…308a28 [0x01]: C0x00b6.0x2.0
0x308894…308a28 [0x02]: C0x00b6.0x3.0
0x308894…308a28 [0x03]: C0x00b8.0x0.0
0x308894…308a28 [0x04]: C0x00b8.0x3.0
0x308894…308a28 [0x05]: C0x00c0.0x1.0
0x308894…308a28 [0x06]: C0x00cc.0x0.0
0x308894…308a28 ]
0x308894…308a28 }
0x308a28…308bbc Dummy {f00=0x00af, f01=0x0190, f02=» P IDENT RGSTRT 02.01.080.1 DDUM KMD08 & PDIV : ENTRY T1GO H P ENTRY TCONFW P ENTRY TCONFR r P ENTRY CONFRD P ENTRY CONFWR P ENTRY CNFWRT P ENTRY CONRDX P* P EXT ASGVOL P EXT SPCLR
0x308bbc…308d50 Dummy {f00=0x00af, f01=0x0190, f02=»AMPOF P EXT SOPRD P EXT SETMK P EXT RSTORE 2 P EXT INITRG F P EXT CLSVOL Z P EXT UPDAKK n P EXT CLEJ P EXT CLEDB P EXT CLBEH P EXT ZERO P EXT ADM P EXT RGA120 P EXT RGADM P EXT RAD
0x308d50…308ee4 Dummy {f00=0x00af, f01=0x0190, f02=» T1GO 2 P MOVE SPKEY,CBIN2 INDICATE KEYSWITCH IN POS 2 P ADD CMAXTASK,CBIN1 J P GETID GSWSTR2 f P MOVE TTASKNR,CBIN0 | PT1005 P ADD TTASKNR,CBIN1 & P CBE GSWSTR2,CTID(TTASKNR),T1005A P B T1005 PT1005A P
0x308ee4…309078 Dummy {f00=0x00af, f01=0x0190, f02=»ASTER CODE x PT1010 P TBF CDCFLAG,T101010 6 P MOVE GSWBIN1,=X'41' DEVICE ADDRESS, BATCH. NJ-AMT < P DSC1 DCOMM,TRPAR,GSWBIN1 v PT101010 P MOVE CTRANBUF,=X'00' P PERF CLSVOL,CBIN1 P PERF CLSVOL,CBIN2 P PERF CLSVOL,C
0x309078…30920c Dummy {f00=0x00af, f01=0x0190, f02=»ROMPT P ATTFMT CSFRM01 P PERF SPCLRA & P MOVE GSWBIN2,SPBINW2 : 2 P IB SPBINW2,T1011,T1011,T1012,T1012,T1011, C X P T1012,T1011,T1011,T1012 PT1011 P B T1010 PT1012 0 P MOVE GTTEXT,=C'FD' INSERT PREFIX IN DSNAME
0x30920c…3093a0 Dummy {f00=0x00af, f01=0x018e, f02=»NOK T1010 P CLEAR CSWFLAG 2 P IB GSWBIN2,T1013,T1013,T1025,T1014,T1013, C ( P T1013,T1013,T1013,T1018 ^ PT1013 P B T1010 PT1014 KRE KEY P MOVE CCONBUF0,=X'00' P MOVE GSWBIN2,CBIN0 PT10140 P ADD GSWBI
0x3093a0…309534 (4, 181) Dummy {f00=0x00b6, f01=0x0190, f02=» P BNOK T1010 P B T10140 P* * PT1018 ADM KEY 4 * P* ONLY CHANGE VOLUME, DATASET L P SET CSWFLAG z P B T1025 P* PT1020 KVIT KEY P* P* RESTORE DATASETS P* P* P CLEAR CSWFL
0x309534…3096c8 Dummy {f00=0x00b6, f01=0x0190, f02=»AMP 4 z P PERF LAMPON,=W'8' LAMP 8 PRST010 0 P PERF SOPRD > P IB GSWBIN2, C R , P RSOP10,RSOP09,RSOP08,RSOP07,RSOP06, C j ( P RSOP05,RSOP04,RSOP03,RSOP02,RSOP01 PRSOP02 PRSOP03 PRSOP05 PRSOP06 PRSOP07
0x3096c8…30985c Dummy {f00=0x00b6, f01=0x0190, f02=»F r P PERF LAMPON,=W'1024' LAMP 1 4 P PERF RSTORE,DK01,=D'1',=W'32',CCONBUF0,=W'199' . P BNOK RST005 NOT OK f P PERF CONFRD P B RST000 OK P* PRSOP04 RESTORE FD999004 $ P PERF LAMPOF,=W'2047' LAMPS OFF P PERF LAMP
0x30985c…3099f0 Dummy {f00=0x00b6, f01=0x0190, f02=»X t P B RST000 OK P* PRSOP08 FINISH RESTORING ( $ P PERF LAMPOF,=W'2047' LAMPS OFF J * P PERF ASGVOL,CBIN0 ASSIGN KONF DATASET r P BNOK T1010 P B T1028 P* P* P* P* P* PT1025 SLUT KEY
0x3099f0…309b84 Dummy {f00=0x00b6, f01=0x0190, f02=»E CFNAME(CBIN1),ASFNAME RESTORE P MOVE CVOL(CBIN1),ASVOL ( P TBT CSWFLAG,T1030 H , P CBG CKMDNR,=D'0',T1050 VERY FIRST START b P* P* P* PT1030 P MOVE GSWBIN1,CBIN1 PT1031 & P DLETE CFNAME(GSWBIN1),CBIN0,CBI
0x309b84…309d18 Dummy {f00=0x00b6, f01=0x0190, f02=»,SKIB P ATTFMT CSFRM02 YES P PERF SPCLRN * " P IB SPBINW2,T1034,T1034,T1032 > PT1034 d P B T1033 r PT1032 0 P MOVE GTTEXT,=C'FD' INSERT PREFIX IN DSNAME P MOVE GSWBIN1,CBIN1 PT1035 4 P INSRT CFNAME(GSWBIN1),CBI
0x309d18…309eac Dummy {f00=0x00b6, f01=0x0190, f02=»EH(CBIN1,CBIN1),CBIN0 " P MOVE CTR12(CBIN1,CBIN1),CBIN0 P MOVE GSWBIN5,CBIN0 D PT1040 ` P ADD GSWBIN5,CBIN1 n P CBG GSWBIN5,CMAXTASK,T1045 P MOVE GSWBCD5,GSWBIN5 P MOVE GSWBIN1,GSWBIN5 P DSC0 KEYB,SKIB P SET SPP
0x309eac…30a040 Dummy {f00=0x00b6, f01=0x0190, f02=»043 v PT1042 P B T1037 PT1043 * ( P MUL TTSTLBNR,=D'-1' SIMULATE CLOSE 8 P PERF TCONFW,GSWBIN5 d P BNOK T1037 P B T1040 PT1045 P USE TB2,TTASKNR " P PERF CONFWR REWRITE CONFDATA P BNOK T1010 P*
0x30a040…30a1d4 (4, 182) Dummy {f00=0x00b6, f01=0x0190, f02=» | PT1052 P ADD GSWBIN5,CBIN1 P CBG GSWBIN5,CMAXTASK,T1060 0 $ P CBNL CMASK(GSWBIN5),=D'0',T1055 T 2 P MUL CMASK(GSWBIN5),=D'-1' SET POSITIVE (OPEN) | PT1055 P GET TERMINAL BLOCK P USE TB2,GSWBIN5 , P PERF TCONFR,GSWBI
0x30a1d4…30a368 Dummy {f00=0x00b6, f01=0x0190, f02=»READ r P* PT1060 ( P USE TB2,TTASKNR GET OWN USER BLOCK $ 4 P MOVE GTMSK,CMASK(CBIN1) SET MACNINE NO, MASTER P P* P* CHECK VOLUME NO P* PT1062 P PERF CLSVOL,CBIN2 P PERF CLSVOL,CBIN3 P PERF CL
0x30a368…30a4fc Dummy {f00=0x00b6, f01=0x0190, f02=»0 t P B T1062 OTHER KEYS PT1065 MAK & P B T1010 : PT1070 SLUT KEY, OK J P* f P* p " P* ASSIGN OTHER FILES z P* P* P MOVE GTWBCD1,=D'2' P MOVE GTTEXT,=C' ' P PERF ASGVOL,CBIN1 P BNO
0x30a4fc…30a690 Dummy {f00=0x00b6, f01=0x0190, f02=»NOK T1010 P* P* , P* CHECK IF DISKETTE IS CORRECT & P* V P* ` ( P PERF SETMK SET MASTER INDEX, KTPLAN j ( P MOVE TTCYKTOT,=D'0' CASH CORRECTION PT1200 P MOVE CRECNR,CBIN1 P MOVE CRECBCD,=D'1' P M
0x30a690…30a824 Dummy {f00=0x00b6, f01=0x018e, f02=»TWBCD1,=D'4',T1210 NO DATA , P PERF WRITID,CBIN1,CBIN1 PRINT 1. RECORD " P MOVE GSWSTR20,=X'00' R P MOVE GSWBIN1,CBIN0 p P MOVE GSWBIN2,=W'47' 0 P COPY GSWSTR20,GSWBIN1,CBIN5,CPCKBUF,GSWBIN2 4 P MOVE GSWBCD3,GSWSTR20 GET VOLUME NO FROM ST
0x30a824…30a9b8 Dummy {f00=0x00b6, f01=0x0190, f02=» ( P TBT CCONVERT,T1219 CONVERT-VERSION P DSC0 KEYB,SKIB 4 P SET SPPROMPT L P ATTFMT INIT2FMT b P PERF SPCLRA z , P IB SPBINW2,T1215,T1215,T1220,T1212, C $ P T1212,T1212,T1212,T1212,T1225 PT1212 OTHER KEYS P B T1210
0x30a9b8…30ab4c Dummy {f00=0x00b6, f01=0x0190, f02=» T1560 P* PT1220 SLUT, OK $ P CBE GTWBCD1,=D'4',T1210 NO DATA 0 $ P MOVE CVOLNO,GSWBCD3 NEW VOL NO X P B T1240 TO OPSTART P* PT1225 KVIT " P PERF STRTWR NEW START RECORD P BNOK T1010 P PERF WRITID,CBIN1,C
0x30ab4c…30ace0 Dummy {f00=0x00b6, f01=0x0190, f02=» ATTFMT INIT3FMT P PERF SPCLRA " P IB SPBINW2,T1235,T1235,T1240 , P B T1230 OTHER KEYS R PT1235 MAK n P B T1062 P* P* P* P* OPSTART P* P* PT1240 P MOVE CRECBCD,=D'0' P
0x30ace0…30ae74 (4, 183) Dummy {f00=0x00b8, f01=0x0190, f02=» PERF RAREAD,DK02,=D'2',CPCKBUF,GSWBIN1,CRECNR P BNOK T1300 NOT OK 6 P IF FLAG: TO REPRINT P P TBT CERRORFL,T1300 n P CMP GTWBCD1,=D'4' $ P BE T1500 NO DATA, CONTINUE REG. P MOVE GSWSTR20,=C'SLUTD' P MOVE GSWBIN5,CBIN0 6 P
0x30ae74…30b008 Dummy {f00=0x00b8, f01=0x0190, f02=»N3,CPCKBUF,CBIN0 x * P MOVE GSWBCD5,GSWSTR20 GET MACHINE NO. P MOVE GSWBIN6,CBIN0 F PT1245 b P ADD GSWBIN6,CBIN1 p & P CBE GSWBCD5,CMASK(GSWBIN6),T1247 P CBL GSWBIN6,CBIN12,T1245 P B T1242 PT1247 4 P CBE GSWBCD5,=D'0',T
0x30b008…30b19c Dummy {f00=0x00b8, f01=0x0190, f02=» P B T1242 PT1250 , P PERF RGREAD,DK02,=D'2' READ TRANSACTION & P BERR T1290 V , P MOVE CRECBCD,GSWBCD3 GET LOG. REC. NO. j & P TBT GTSWFLAG,T1251 TEST FOR TR 11 ( P CBNL GTREGNR,=D'12',T1290 IF TR 12 PT1251 0 P CBL CRECB
0x30b19c…30b330 Dummy {f00=0x00b8, f01=0x018e, f02=»1' NO, SET POSITIVE (OPEN) ~ ( P MOVE TTCYKTOT,=D'0' CASH CORRECTION " P MOVE TTCASH,TTSTCASH N P MOVE TTRECOPN,CRECBCD l P PERF TCONFW,TTASKNR P PERF CONFWR PT1260 P CLEAR GTTESTFL P CBNL CRECBCD,CCONFREC,T1262 & P SET
0x30b330…30b4c4 Dummy {f00=0x00b8, f01=0x0190, f02=» PT1270 P TR 11 & P CBNG TTSTLBNR,=D'0',T1290 CLOSED? & ( P ADD TTCASH,TTCYKTOT CASH CORRECTION P P NO | P MOVE TTSTCASH,TTCASH P MOVE TTSTLBNR,TTLBNR P ADD TTSTLBNR,=D'1' P MUL TTSTLBNR,=D'-1' P MOVE TTRE
0x30b4c4…30b658 Dummy {f00=0x00b8, f01=0x018e, f02=» T1450 NON-MASTER P* P* $ P* . P* 8 PT1300 B . P PERF WRITID,CBIN4,CBIN2 PRINT 1. PART OF P P LAST CORRECT RECORD P SET SPPROMPT P ATTFMT INIT4FMT P PERF SPCLRA 2 P IB SPBINW2,T1310,T1310,T1315,T1320,T1
0x30b658…30b7ec Dummy {f00=0x00b8, f01=0x0190, f02=» x P SUB CRECNR,CBIN1 READ AGAIN P CLEAR CERRORFL , P B T1242 D P* T PT1320 KRE, TRY NEXT ^ P SET CERRORFL | P B T1242 P* PT1330 TO NEW DISK P CLEAR CERRORFL P B T1350 PT1350 SLUTD P*
0x30b7ec…30b980 Dummy {f00=0x00b8, f01=0x0190, f02=»SKIFT P B T1200 P EJECT PT1400 , P******************** : P* V P* RESTART OF ` P* FOR NON-MASTER ~ P* P******************** ( P MOVE TTCYKTOT,=D'0' CASH CORRECTION P MOVE GTMSK,CMASK(TTAS
0x30b980…30bb14 (4, 184) Dummy {f00=0x00b8, f01=0x0190, f02=»R p P PAUSE P B T1440 P* ( P* 2 P* < PT1500 F P ADD CRECBCD,=D'1' T P SET CWFLAG n P MOVE GSWBIN6,CBIN1 PT1510 P ADD GSWBIN6,CBIN1 P CBG GSWBIN6,CMAXTASK,T1550 P RSTRT CTID(GSWBIN6) P B
0x30bb14…30bca8 Dummy {f00=0x00b8, f01=0x0190, f02=»' ~ 2 P CBNG TTSTLBNR,=D'0',T1560 IF TASK WAS CLOSED P ADD CTASKNR,CBIN1 @ P SET GTSPGFLG Z P MOVE GSWSTR9,=C'SUBTOTAL ' p P PERF CLEJ P PERF CLEDB P PERF CLBEH P MOVE GSWSTR9,=C' ' P CLEAR GTSPGFLG P SET G
0x30bca8…30be3c Dummy {f00=0x00b8, f01=0x018e, f02=»CLOSE l P B RGADM P EJECT : P****************************************************** , P* j < P* TCONFR - READING OF CONFIGURATION DEPENDENT DATA t P* . P* CALL: PERF TCONFR,<CONFIGURATION NBR> P* ( P* THE DATA IS
0x30be3c…30bfd0 Dummy {f00=0x00b8, f01=0x018e, f02=» $ P* CR: OK - 0, NOK - <> 0 ! P* ! , : P****************************************************** ! 6 PTCONFR PROC TCONFRNO ! t P MOVE GSWBIN6,TCONFRNO ! P ADD GSWBIN6,CBIN12 ! P MOVE GSWBIN1,=W'199' ! 4 P PERF RAREAD,DK01,=D'1',TCONBUF,
0x30bfd0…30c164 Dummy {f00=0x00b8, f01=0x0190, f02=» ! P PEND " P* " P EJECT " 8 P*************************************************** " . P* " j 6 P* TCONFW - WRITE CONFIGURATION-DEPENDENT DATA " t P* " 2 P* CALL: PERF TCONFW,<CONFIGURATION NBR> " P* " 2 P* IF NOT IN TEST
0x30c164…30c2f8 Dummy {f00=0x00b8, f01=0x0190, f02=»*************************** " x PTCONFW PROC TCONFWNO # $ P MOVE GSWBIN6,TCONFWNO # @ P ADD GSWBIN6,CBIN12 # ^ 0 P CBE GTTESTMK,=C'T',TCFWRET IF IN TEST MODE # z , P PERF RAWRIT,DK01,=D'1',TCONBUF,GSWBIN6 # PTCFWRET # P RET # P PEND # P
0x30c2f8…30c48c Dummy {f00=0x00b8, f01=0x0190, f02=» P* $ > P********************************************************* $ PCONFRD PROC $ P P PERF CONRDX,CCONBUF0,CBIN1 $ d P BNOK CONFRET $ P PERF CONRDX,CCONBUF1,CBIN2 $ P BNOK CONFRET $ P PERF CONRDX,CCONBUF2,CBIN3 $ P BNOK CONFRE
0x30c48c…30c620 Dummy {f00=0x00b8, f01=0x0190, f02=»DX,CCONBUF5,CBIN6 $ P BNOK CONFRET % P PERF CONRDX,CCONBUF6,CBIN7 % 0 P BNOK CONFRET % T P PERF CONRDX,CCONBUF7,CBIN8 % j P BNOK CONFRET % P PERF CONRDX,CCONBUF8,CBIN9 % P BNOK CONFRET % P PERF CONRDX,CCONBUF9,CBIN10 % PCONFRE
0x30c620…30c7b4 (4, 185) Dummy {f00=0x00c0, f01=0x0190, f02=»1,=D'1',CBUFRD,GSWBIN1,CBUFNO % P RET & & P PEND & 2 P EJECT & @ > P********************************************************** & N P* & ( P* CONFWR - WRITING OF CONFDATA & P* & > P********************************************************
0x30c7b4…30c948 Dummy {f00=0x00c0, f01=0x0190, f02=»,DK01,=D'1',CCONBUF1,CBIN2 & P BNOK WRET ' " * P PERF RAWRIT,DK01,=D'1',CCONBUF2,CBIN3 ' 4 P BNOK WRET ' b * P PERF RAWRIT,DK01,=D'1',CCONBUF3,CBIN4 ' t P BNOK WRET ' * P PERF RAWRIT,DK01,=D'1',CCONBUF4,CBIN5 ' P BNOK WRET ' * P PERF RAWRIT,DK01,=D
0x30c948…30cadc Dummy {f00=0x00c0, f01=0x018e, f02=»BUF7,CBIN8 ' t P BNOK WRET ( * P PERF RAWRIT,DK01,=D'1',CCONBUF8,CBIN9 ( $ P BNOK WRET ( R , P PERF RAWRIT,DK01,=D'1',CCONBUF9,CBIN10 ( d PWRET ( P RET ( P PEND ( P EJECT ( P******************** ( P* ( * P* CONFWRT - REWRI
0x30cadc…30cc70 Dummy {f00=0x00c0, f01=0x0190, f02=» ( P******************** ) PCNFWRT PROC ) $ P MOVE GSWBIN5,CBIN0 ) 8 PCNF1 ) T P ADD GSWBIN5,CBIN1 ) ` P CBG GSWBIN5,CMAXTASK,CNF100 ) z P USE TB2,GSWBIN5 ) P MOVE TTRECOPN,=D'0' IF OPEN ) P PERF TCONFW,GSWBIN5 ) P B CNF1 ) PCN
0x30cc70…30ce04 Dummy {f00=0x00c0, f01=0x0190, f02=»******************** ) h P* * P* FORMATS USED * & P* * B B P************************************************************* * L P* * PFMTFKI FRMT * P FNL * P FKI 2 * P FMEL 'B',TSWBCD2 * P FMEND * P* * PCSFRM01 FRMT
0x30ce04…30cf98 Dummy {f00=0x00c0, f01=0x0190, f02=» FNL * P FTEXT 'DATASET=' + P FKI 9,MINL=6,MAXL=6,ME + & P FCOPY CFNAME(CBIN1) + F P FMEND + b P* + p PCSFRM02 FRMT + z P FSL + P FCOPY ='KOMMUNE NR' + P FKI 12,MINL=3,MAXL=4,ME + P FMEL 'ZZZZ',CKMDNR + P FNL + " P FCOPY ='V
0x30cf98…30d12c Dummy {f00=0x00c0, f01=0x0190, f02=»L(CBIN3) + P FKI 15,MINL=6,MAXL=6 , P FCOPY CVOL(CBIN4) , . P FNL , H & P FCOPY ='DSN02 DSN03 DSN04' , T P FNL , ~ P FKI 1,MINL=6,MAXL=6,ME , P FCOPY CFNAME(CBIN2) , P FKI 10,MINL=6,MAXL=6 , P FCOPY CFNAME(CBIN3) , P FKI 19,
0x30d12c…30d2c0 Dummy {f00=0x00c0, f01=0x018e, f02=»6,MAXL=6 , P FCOPY CFNAME(CBIN5) - P FKI 10,MINL=6,MAXL=6 - , P FCOPY CFNAME(CBIN6) - J P FKI 19,MINL=6,MAXL=6 - f P FCOPY CFNAME(CBIN7) - P FKI 28,MINL=6,MAXL=6 - P FCOPY CFNAME(CBIN8) - P FMEND - P* - PCSFRM03 FRMT - P F
0x30d2c0…30d454 (4, 186) Dummy {f00=0x00cc, f01=0x018e, f02=» - t P FNL . P FCOPY ='BEHOLDNINGST[LLERE' . P FKI 23,MAXL=2,ME,APPL=103 . 8 P FMEL '99',GSWBCD3 . Z P FNL . t P FCOPY ='EJ-EDB T[LLER ' . P FKI 23,MAXL=2,ME,APPL=104 . P FMEL '99',GSWBCD4 . P FNL . P FCOPY =' EKS.LBNR' . P FKI
0x30d454…30d5e8 Dummy {f00=0x00cc, f01=0x0190, f02=» P FMEL '99999',CVOLNO / P FNL / P FCOPY =C'DAGS-DATO' / , . P FKI 11,MINL=6,MAXL=6,ME,SCHK=2,REWRT,NCLR / H P FMEL '99E-99E-99',CMASKDAT / z P FNL / P FCOPY =C'DAG NR' / & P FKI 11,MINL=1,MAXL=3,ME,APPL=102 / P FMEL 'ZZZ',CRELDAY /
0x30d5e8…30d77c Dummy {f00=0x00cc, f01=0x4174, f02=»'07',1 / P FLINK FMTFKI 0 P FMEND 0 $ P* 0 2 PINIT3FMT FRMT 0 < P FSL 0 R P FCOPY ='OPSTART ' 0 ^ P FILLR '?',1 0 x P FILLR X'07',1 0 P FLINK FMTFKI 0 P FMEND 0 P* 0 PINIT4FMT FRMT 0 P FSL 0 P FCOPY ='KORREKT' 0
0x30d77c…30d910 Dummy {f00=0x00cc, f01=0x2008, f02=» 1 NT RGSTRT DDUM KMD08 PDIV . ENTRY T1GO < INCLUDE EQUATE P EJECT h T1GO v END @
0x30d910…30daa4 Dummy {f00=0x00cc, f01=0x0082, f02=» P!!AB PLED KTPLN,/S P!!LS $$XLS$$ $ P!!AB 8 PLED KTOPR,/S D P!!LS $$XLS$$ X P!!AB l $ASG2 x!!LS $$XLS$$ P!!AB PLED RGFRMT P!!LS $$XLS$$ P!!AB PLED SUBAPL P!!LS $$XLS$$ P!!AB PLE
0x30daa4…30dc38 Dummy {f00=0x00cc, f01=0x2008, f02=» PLED KTPLN,/S P!!LS $$XLS$$ $ P!!AB 8 PLED KTOPR,/S D P!!LS $$XLS$$ X P!!AB l $ASG2 x!!LS $$XLS$$ P!!AB PLED RGFRMT P!!LS $$XLS$$ P!!AB PLED SUBAPL P!!LS $$XLS$$ P!!AB PLE
0x30dc38…30ddcc Dummy {f00=0x00cc, f01=0x0190, f02=» " D @L L L URR RRLA Q RR Q _b A 1XFR2 RRR_ @ @ @ @ @ @ @ N ^ n 0 ~ V N 0 . 0 0 0 J F
0x30ddcc…30df60 Dummy {f00=0x00cc, f01=0x0190, f02=» EJ-EDB T[LLER o 0 * < J F " D v g L l ! L L L R 5 v l LK N EJ-EDB T[LLER o TOTAL 0 '
0x30df60…30e0f4 (4, 187) Opaque[0x194]
0x30e0f4…30e288 # DirEnt {nam=»RGLOAD«, typ=»LM«, f00=0x0000, f01=0x0000, f02=0x21f8, f03=0x0000}
0x30e0f4…30e288 IdxSect {
0x30e0f4…30e288 f00 = 0x010f // 0x30e0f4 @0x0
0x30e0f4…30e288 f01 = 0x002a // 0x30e0f6 @0x2
0x30e0f4…30e288 gno = [ // 0x30e0f8 @0x4
0x30e0f4…30e288 [0x00]: C0x010f.0x3.0
0x30e0f4…30e288 [0x01]: C0x0110.0x0.0
0x30e0f4…30e288 [0x02]: C0x0110.0x1.0
0x30e0f4…30e288 [0x03]: C0x0110.0x2.0
0x30e0f4…30e288 [0x04]: C0x0110.0x3.0
0x30e0f4…30e288 [0x05]: C0x0112.0x0.0
0x30e0f4…30e288 [0x06]: C0x0112.0x1.0
0x30e0f4…30e288 [0x07]: C0x0112.0x2.0
0x30e0f4…30e288 [0x08]: C0x0112.0x3.0
0x30e0f4…30e288 [0x09]: C0x0113.0x0.0
0x30e0f4…30e288 [0x0a]: C0x0113.0x1.0
0x30e0f4…30e288 [0x0b]: C0x0113.0x2.0
0x30e0f4…30e288 [0x0c]: C0x0113.0x3.0
0x30e0f4…30e288 [0x0d]: C0x0114.0x0.0
0x30e0f4…30e288 [0x0e]: C0x0114.0x1.0
0x30e0f4…30e288 [0x0f]: C0x0114.0x2.0
0x30e0f4…30e288 [0x10]: C0x0114.0x3.0
0x30e0f4…30e288 [0x11]: C0x0115.0x0.0
0x30e0f4…30e288 [0x12]: C0x0115.0x1.0
0x30e0f4…30e288 [0x13]: C0x0115.0x2.0
0x30e0f4…30e288 [0x14]: C0x0115.0x3.0
0x30e0f4…30e288 ]
0x30e0f4…30e288 }
0x30e288…30e41c Dummy {f00=0x010f, f01=0x0190, f02=» d ! CRc>E R v @R >R VR R f z a
0x30e41c…30e5b0 Dummy {f00=0x010f, f01=0x0190, f02=» TC P x f ! !2 $ h . !h TC * * ! @ P a
0x30e5b0…30e744 Dummy {f00=0x010f, f01=0x0190, f02=» GA J GA @ * * ! ` b D0 D0 * " Z TB2
0x30e744…30e8d8 Dummy {f00=0x010f, f01=0x0190, f02=»
[…0x2…]
0x30ec00…30ed94 (4, 188) Dummy {f00=0x0110, f01=0x0190, f02=»
0x30ed94…30ef28 Dummy {f00=0x0110, f01=0x0190, f02=» B
0x30ef28…30f0bc Dummy {f00=0x0110, f01=0x0190, f02=» TCTDTETFTG * $ & F H 6! B %
0x30f0bc…30f250 Dummy {f00=0x0110, f01=0x0190, f02=» B Z 8 6
0x30f250…30f3e4 Dummy {f00=0x0110, f01=0x0190, f02=»
[…0x5…]
0x30fbc8…30fd5c Dummy {f00=0x0110, f01=0x0190, f02=»CTDTETFTGTHTITJTKTLTMTN* F _ & { B P
0x30fd5c…30fef0 Dummy {f00=0x0110, f01=0x0190, f02=» 0000899 0 @ A B E F G H I P Q R S T F 0 0 0
0x30fef0…310084 Dummy {f00=0x0110, f01=0x0190, f02=» KAKBKCKDKE * .
0x310084…310218 Dummy {f00=0x0110, f01=0x0190, f02=» F 0 0 0 0 0 0 0 0 #0 &0 * + , J
0x310218…3103ac Dummy {f00=0x0110, f01=0x0190, f02=» ? B L d
0x3103ac…310540 Dummy {f00=0x0110, f01=0x0190, f02=» 0 0 0 .
0x310540…3106d4 (4, 190) Dummy {f00=0x0110, f01=0x0190, f02=» B 0 0 0 0 . " < < 0 v0 x { < 6 8 h 0 0
0x3106d4…310868 Dummy {f00=0x0110, f01=0x0190, f02=» 0 ? 0 . - %- -- / !/< 0 0 _ 0 - !;0 0 / !/< 0 /0 4 Y L 0 0 4 0 4 0 4 0 4 0 4 0 4 0 4 0 4 0 4 0 4 0 4 0 4 A 1 e 2 _ _ K(!@ A A }1 2 _7 u | a | ) u v v E
0x310868…3109fc Dummy {f00=0x0110, f01=0x0190, f02=» t e u i ! u 1 p 6 t i uL 1 p "_] X u 1 j uA !H ! u1 ! u 1 | s u 0H X v | a |@ E @ 5 4 4 ? t t "
0x3109fc…310b90 Dummy {f00=0x0110, f01=0x0190, f02=» 4 i u u uI v " W I / 0 % w & P _g " _ I / % u W |% u W | | 0
0x310b90…310d24 Dummy {f00=0x0110, f01=0x0190, f02=» r " < c u c c "0 I 6 W c u c u v uE0 _d &0 0 4 I 4 XH ` 2 # !"#$%&'()*+,W 8 !2 !"?-A I A A 1 6 _ H @ _ @ @ ?-A I I VI SA A 1 6 DD _ w c c @ A 1 6
0x310d24…310eb8 Dummy {f00=0x0110, f01=0x0190, f02=» ,I ' # 2 1223452222_ _1K +0 S @0 + * O * , ' ( wM P !x W $ LbM ( " vMTd@' u C C ( wM CTbI'_! y M h M P?H - > " hM ( T 3b M bM " vMX , _ " vM ?6 A 1 Y 6
0x310eb8…31104c Dummy {f00=0x0110, f01=0x0190, f02=» 9W 4@ A & ?-I ]1 gA A ` 2 889?8 2 :;<=>?@ABCD_' ?8 ?8 ?8 AA 1 ?8 '?8 ?8 | A 1 |?8I %C P @ A 1 6 _ A I CW S * I , C| ( w W , Sp ( z $0 T R P _;! uHW ! u! , 2 _` , i 8
0x31104c…3111e0 Dummy {f00=0x0110, f01=0x0190, f02=» ( w W , Sn ( z $$ ` R P _: 8 7A 9( @ 4I A * { 8 0 +0 , w " 3 v_ H @ 4 40 0 @ W H I I H A _ W @ 4?-I AH A 1 Q 6 11 W/A$ -W)H$&H"# * 0 (K$ . 0 0 0 0 (0 ?-I A /W @ ?-A A A }
0x3111e0…311374 (4, 191) Dummy {f00=0x0110, f01=0x0190, f02=»u u 0 11 mA W @ 2 FFGH! ! _ | 0 1_% ` 0 1_2 X 0 1A 1 f _W A 0 1 ) ! ~ 1 x@ 1 W A _ @ W I I I :A W @ 4 2 W H !I |A 1 l 6 _ | W 3WX WT 4WP /WL 5WH 6WD0 * 2$ 0 $0
0x311374…311508 Dummy {f00=0x0110, f01=0x0190, f02=»H 0 _ A A* * H" Ev E wMC , xv * , C EuH" < =H" Ev @$@*@ 4 0 4 0 4 0 G 4 !x wMCT C > CT 4 4 A)!B( @) aMsaMo a @ $bM 4 A)!B( @)aMs E aM?4 C Ev xv = xv! , + ( H * 6 y
0x311508…31169c Dummy {f00=0x0110, f01=0x0190, f02=» @ 0 W _ , ( ? y"W( _ , T T xv <P xv W 4 4 1 8 F u E u ~, t J ~T ( B X J " " n x ~ D $ H _ r Z ( , ) + / 1 M h u
0x31169c…311830 Dummy {f00=0x0110, f01=0x0190, f02=» V n V n k @ = * g R B 9 w Z i ~ ) 3 { _ L 8
0x311830…3119c4 Dummy {f00=0x0110, f01=0x0190, f02=» ( 2 3 @ G@K@ *-DKST NR&04BEL DEB KRE SUMKVITTRP ADM ARKIVBILAGDEBETFEJL KLAR SALD0SALDOSLUTDZ300 KVITDAG NREJ EDBKREDITLBNR T[LLERKONTONRKORREKT DIVERSETOTAL EKS.LBNRBEREGNINGDAGS-DATOKONTOKORTMASKIN NRPOST-DATOSTART SUMSUBTOTA
0x3119c4…311b58 Dummy {f00=0x0110, f01=0x0190, f02=» KASSELUKNING ]BNE KASSERKONVERTERING REGNEFUNKTIONSLET PERIODE EJ-EDB T[LLER DISKETTE SKIFT BEHOLDNINGST[LLEREVERSUR KONTONR REMIT VERSURKONTONR KASSEKONTONR PRIMO KASSE %9BX999BBZXXZZ99999BB**B9BBBXBBZBXBBXXBZZZZZ9999999BB**BB99.B999B99BBBZ
0x311b58…311cec Dummy {f00=0x0110, f01=0x0190, f02=»9.99BB99.99.99BZZ.ZZ.ZZBZZZZZZZZZZ.ZZ.ZZB99E-99E-99B99.99.99BBB99.99.9999.99.999.9BZZZZZZZZBBBZZZZZZZZZZ******E-****99999999E-99XXXXXXE-XXXXXXXXXXXXE-XXZZZZ9999.99BZZZZZZZZE-ZZZZZZZZZZZE-9BBZZ.ZZ.ZZBBBE-9999999999BXXX.XXXXX.XXBTTTTTTTTTTTTX-XE-XXE-XXE-XXBB999.99.9
0x311cec…311e80 Dummy {f00=0x0110, f01=0x0190, f02=»9+*.***.***.**9.99+*.***.***.**9.99-B999.99.999.99BBBZ.ZZZ.ZZZ.ZZ9.99-*.***.***.**9.99+BB*.***.***.**9.99-B*.***.***.**9E,99B999E-99E-999E-99BBBZZZE-ZZE-ZZZE-ZZTTT.TTT.TTT.TT9.99-ZZZ.ZZZ.ZZZ.ZZ9.99-BTTT.TTT.TTT.TT9.99-BBZZZ.ZZZ.ZZZ.ZZ9.99-
0x311e80…312014 (4, 192) Dummy {f00=0x0112, f01=0x0190, f02=» & h c d U w n { | c T } u v r ^ aJ b c q _ 2 p _ q [ + N I N " B $ ~ ( ~ M.E3z4 ) ~` W O +^ + k X 1 z B i y L ? B i b L +^ *
0x312014…3121a8 Dummy {f00=0x0112, f01=0x0190, f02=» W 1 k F W ` SP RGE I 0 0 E O 9 g g +C D J E n X W V J ` ' @ + # W= * z` ~ < J/ S- - - n [ U 2 g g g N"y 2 { g 1 1+ ` E
0x3121a8…31233c Dummy {f00=0x0112, f01=0x0190, f02=»c gc M e = M O 9 R I P 2T g gi gi DIVERSE FORMATER +# B , 6 W XZ % 1& B F +A W a * ; $ < ] N E S [ q $ @ $ z [ 1 B z 2 e Z x
0x31233c…3124d0 Dummy {f00=0x0112, f01=0x0190, f02=» # W= & F * [ q h 9 j e Z Z SGRUNDLAG i M q5 ! E ! N K " 0 [ j U L H e Q e e V z B : 20 ) ( ! z B : 2 ! # E p = U d ! He
0x3124d0…312664 Dummy {f00=0x0112, f01=0x0190, f02=»` C G V ` * G Y FRA 2 TIL 2 Z l 7a 7a 7a 7a 7a 7a 7a 7a 7a 7a 7a 7a V 4Y PRIMOg 2 BEV g g g 2 ULTIMOg E f [ Az P f !g ^ A P k ! 4 TOTALg g g 4 SUPL g g g 2 KOR g
0x312664…3127f8 Dummy {f00=0x0112, f01=0x0190, f02=» L d V ` * Y 2 b l J a m I H n V W o Q Z * VERSNR [ ^ ] Y DK Az A - t ] ] X * K JD6SO.-,.O.++.*)(EE()(''($A>&% A AA>=C84< 367M# ##;:/"! 65 9)(IG()(''($
0x3127f8…31298c Dummy {f00=0x0112, f01=0x0190, f02=» 4 6 8 : < > @ B D F G H I J K L M N P R T W Z ^ b f j n s x } ! * 4 > I T _ j u
0x31298c…312b20 Dummy {f00=0x0112, f01=0x0190, f02=» " % ( + / 3 7 ; ? C G K O S X ] b g l q v | * 6 B N Z f r
0x312b20…312cb4 (4, 193) Dummy {f00=0x0112, f01=0x0190, f02=» " $ & ( * , . 0 2 4 6 8 : < > A D G K O S W [ _ c g k o s w {
0x312cb4…312e48 Dummy {f00=0x0112, f01=0x0190, f02=» B R b r * > R h ~ % A ] z ! % ( ( * . * X + - / 4 7 = 9 t < F H / K w@ @ @ @ @ @ @ @ @ @81 B 4*Cd7GC 8 : . V P ! u O O
0x312e48…312fdc Dummy {f00=0x0112, f01=0x0190, f02=» H O B O nt N T N O F Hp : O ( : O 8 O F N Z_ (@P B ] ] N " T : N "0 G :d HF R H _ H 0" 1 V " 2 P4 W X }T 9 ~T 5 s aR = _X = R H 0"
0x312fdc…313170 Dummy {f00=0x0112, f01=0x0190, f02=»" ZT_" F H F O R 0 O B " |T" ] N C ( Z 0 O ( B : C ( : m* H O N TT B O N - O | |l nt rn N | N " P N " O N " P |` N " O W B m@ Hp :
0x313170…313304 Dummy {f00=0x0112, f01=0x0190, f02=» O B O N T N O : O ( : O 8 O N Z_ (@P B ] ] N " T : N "0 :d HF R _ 0" 1 V " 2 P W X }T 9 ~T 5 aR = _X = R 0"
0x313304…313498 Dummy {f00=0x0112, f01=0x0190, f02=»" ZT_" F H F O R 0 O B " |T" ] N C ( Z 0 O ( B : C ( : O N T B O N - O N N " P N " O N " P N " O W B Hp :
0x313498…31362c Dummy {f00=0x0112, f01=0x0190, f02=» O B O N T N O : O ( : O 8 O N Z_ (@P B ] ] N " T : N "0 :d HF R _ 0" 1 V " 2 P W X }T 9 ~T 5 aR = _X = R 0"
0x31362c…3137c0 Dummy {f00=0x0112, f01=0x0190, f02=»" ZT_" F H F O R 0 O B " |T" ] N C ( Z 0 O ( B : C ( : O N T B O N - O N N " P N " O N " P N " O W B Hp :
0x3137c0…313954 (4, 194) Dummy {f00=0x0112, f01=0x0190, f02=» O B O N T N O : O ( : O 8 O N Z_ (@P B ] ] N " T : N "0 :d HF R _ 0" 1 V " 2 P W X }T 9 ~T 5 aR = _X = R 0"
0x313954…313ae8 Dummy {f00=0x0112, f01=0x0190, f02=»" ZT_" F H F O R 0 O B " |T" ] N C ( Z 0 O ( B : C ( : O N T B O N - O N N " P N " O N " P N " O W B Hp :
0x313ae8…313c7c Dummy {f00=0x0112, f01=0x0190, f02=» O B O N T N O : O ( : O 8 O N Z_ (@P B ] ] N " T : N "0 :d HF R _ 0" 1 V " 2 P W X }T 9 ~T 5 aR = _X = R 0"
0x313c7c…313e10 Dummy {f00=0x0112, f01=0x0190, f02=»" ZT_" F H F O R 0 O B " |T" ] N C ( Z 0 O ( B : C ( : O N T B O N - O N N " P N " O N " P N " O W B Hp :
0x313e10…313fa4 Dummy {f00=0x0112, f01=0x0190, f02=» O B O N T N O : O ( : O 8 O N Z_ (@P B ] ] N " T : N "0 :d HF R _ 0" 1 V " 2 P W X }T 9 ~T 5 aR = _X = R 0"
0x313fa4…314138 Dummy {f00=0x0112, f01=0x0190, f02=»" ZT_" F H F O R 0 O B " |T" ] N C ( Z 0 O ( B : C ( : O N T B O N - O N N " P N " O N " P N " O W B Hp :
0x314138…3142cc Dummy {f00=0x0112, f01=0x0190, f02=» O B O N T N O : O ( : O 8 O N Z_ (@P B ] ] N " T : N "0 :d HF R _ 0" 1 V " 2 P W X }T 9 ~T 5 aR = _X = R 0"
0x3142cc…314460 Dummy {f00=0x0112, f01=0x0190, f02=»" ZT_" F H F O R 0 O B " |T" ] N C ( Z 0 O ( B : C ( : O N T B O N - O N N " P N " O N " P N " O W B Hp :
0x314460…3145f4 (4, 195) Dummy {f00=0x0112, f01=0x0190, f02=» O [ d O N T N O : O ( : O 8 O N Z_ (@P B ] ] N " T : N "0 :d HF R _ 0" 1 V " 2 P W X }T 9 ~T 5 aR = _X = R 0"
0x3145f4…314788 Dummy {f00=0x0112, f01=0x0190, f02=»" ZT_" F H F O R 0 O B " |T" ] N C ( Z 0 O ( B : C ( : O N T B O N - O N N " P N " O N " P N " O W B Hp :
0x314788…31491c Dummy {f00=0x0112, f01=0x0190, f02=» O [ d O N T N O : O ( : O 8 O N Z_ (@P B ] ] N " T : N "0 :d HF R _ 0" 1 V " 2 P W X }T 9 ~T 5 aR = _X = R 0"
0x31491c…314ab0 Dummy {f00=0x0112, f01=0x0190, f02=»" ZT_" F H F O R 0 O B " |T" ] N C ( Z 0 O ( B : C ( : O N T B O N - O N N " P N " O N " P N " O W B Hp :
0x314ab0…314c44 Dummy {f00=0x0112, f01=0x0190, f02=» O [ d O N T N O : O ( : O 8 O N Z_ (@P B ] ] N " T : N "0 :d HF R _ 0" 1 V " 2 P W X }T 9 ~T 5 aR = _X = R 0"
0x314c44…314dd8 Dummy {f00=0x0112, f01=0x0190, f02=»" ZT_" F H F O R 0 O B " |T" ] N C ( Z 0 O ( B : C ( : O N T B O N - O N N " P N " O N " P N " O W B Hp :
0x314dd8…314f6c Dummy {f00=0x0112, f01=0x0190, f02=» O [ d O N T N O : O : O 8 O N Z_ (@P B ] ] N " T : N "0 :d HF R _ 0" 1 V " 2 P W X }T 9 ~T 5 aR = _X = R 0"
0x314f6c…315100 Dummy {f00=0x0112, f01=0x0190, f02=»" ZT_" F H F O R 0 O B " |T" ] N C ( Z 0 O ( B : C ( : O N T B O N - O N N " P N " O N " P N " O W B Hp :
0x315100…315294 (4, 196) Dummy {f00=0x0113, f01=0x0190, f02=» O [ d O N T N O : O : O 8 O N Z_ (@P B ] ] N " T : N "0 :d HF R _ 0" 1 V " 2 P W X }T 9 ~T 5 aR = _X = R 0"
0x315294…315428 Dummy {f00=0x0113, f01=0x0190, f02=»" ZT_" F H F O R 0 O B " |T" ] N C ( Z 0 O ( B : C ( : O N T B O N - O N N " P N " O N " P N " O W B Hp :
0x315428…3155bc Dummy {f00=0x0113, f01=0x0190, f02=» O [ d O N T N O : O : O 8 O N Z_ (@P B ] ] N " T : N "0 :d HF R _ 0" 1 V " 2 P W X }T 9 ~T 5 aR = _X = R 0"
0x3155bc…315750 Dummy {f00=0x0113, f01=0x0190, f02=»" ZT_" F H F O R 0 O B " |T" ] N C ( Z 0 O ( B : C ( : O N T B O N - O N N " P N " O N " P N " O W B Hp :
0x315750…3158e4 Dummy {f00=0x0113, f01=0x0190, f02=» O [ d O N T N O : O : O 8 O N Z_ (@P B ] [ m. : I 4P 0 5 :( _ I (P _ ) 1 : [ _ Q = : mZ : <" T _ mp H} !?9F mp H} "? : X wN N / O (
0x3158e4…315a78 Dummy {f00=0x0113, f01=0x0190, f02=» VD 0 !`P X mZ_ " T V" 0 !` V _ mZ m _J : O B mp T mp 1P 5P$ ?P$ 7 p.W p N W p W qFW p V mp R * P 1 _" _ T P^ Pl P| P~
0x315a78…315c0c Dummy {f00=0x0113, f01=0x0190, f02=»_ O _ T" ^ 0 " R 1 _ " X n 0 " Z _ mz ^ mp * P R n 1 _ mz ^ q n N oj mp V L 1P Y oj ( K@ V O }H oj mp H} O " P4 N T. B + I
0x315c0c…315da0 Dummy {f00=0x0113, f01=0x0190, f02=» T( ; 1 B E C ( : : O O P " R V 0" ^ " O P W P WH R T4 P " V(" TvW" R R T _ X 0" R 2 P 1 _8 " T ZF P " Q _R R
0x315da0…315f34 (4, 197) Dummy {f00=0x0113, f01=0x0190, f02=» Q " 2 O Pz t$ PR s t$ V 0 t@" 1 R( X4 }T 9 ~T 5 |T < s ] _V" 2 O P " P W ] _v PR s V 0 t@" 1 ZJ_, C N C PR C P_ C ( O : B s E _D {T * `
0x315f34…3160c8 Dummy {f00=0x0113, f01=0x0190, f02=» T C ( C C _ N P " P W = : R P T - : :x x x x x x x x x x x x y,y,y,x y,y,y,y,y,y,y,y,y,y,x x x x x x x x x x x x x x x x x x x x x x x x x x x x x x x x x x x x x x wZx x x x x x x x x x x x x x x wZwZwZwZwZwZwZwZx x x
0x3160c8…31625c Dummy {f00=0x0113, f01=0x0190, f02=»x6xP}4{@wZwZwZy y y&wZwZwZx x x x x x x x : & C ( ( m* H B m@_ C ( : : O |X . V P ! u p O |D O O N T v N T FL N T v~ ( Pj P8 H _J C
0x31625c…3163f0 Dummy {f00=0x0113, f01=0x0190, f02=» b N ! P " Z Y w< v4 N P v4 tZ v4 O ( : C ( : : N V W6 N R W& N P R W N PV W O | sF : N P R PR P_ O | P # T N T T O sF : N
0x3163f0…316584 Dummy {f00=0x0113, f01=0x0190, f02=»" V " w O w : N } U P( P | P R W # O sF : } Y2# 6 O O _@ P w N N P N $ T $ P> | 0 w y, 0 w y, y, : , w N N P N $ P | v N T 9 N P N + 9 N P
0x316584…316718 Dummy {f00=0x0113, f01=0x0190, f02=» Z | P Q N P D + % _ ) N + N PP %WF O |T : T W | P z P H + ) _ O rn N _ P $# P _ : . H}j | rL : z O : O 1Rv Q P X,W : ,_2 +_6 Q i_: _> = H}j | r
0x316718…3168ac Dummy {f00=0x0113, f01=0x0190, f02=»|T O - H}j | rL p : N # P | N N | } Q, N q rn N P () ) : P _@ Z: _H qF rn N | P R O : |d N - O B + I I C ( : W, W, W$ W$ W W W W W
0x3168ac…316a40 Dummy {f00=0x0113, f01=0x0190, f02=»| O : } Q T O O : R : _* 0 : O |X O |h |` : N | wN C C C ( : ABCDEFGHI#.<(+!&JKLMNOPQR$]*);^-/STUVWXYZ@,%_>?0123456789:[ '=" @O JZlP}M] Nk`Ka
0x316a40…316bd4 (4, 198) Dummy {f00=0x0113, f01=0x0190, f02=» : #0 0T & ! T P & ! X T C f n Y ( x P Y * x y Wz X " X X . 8 & X 0P X T 5 ! Y * y X V* X ( J x C ( Y * X Y , 8 X X C &
0x316bd4…316d68 Dummy {f00=0x0113, f01=0x0190, f02=» Y X " T Y _ _ B U C Q C D . z v X X * $" ~_> @ Y X * 4_R X !@XX y X # x V y X X * J P P 1 _ 1 X * X X * $" X D % " X # X * J y _< X # X * y J X 1 1 X
0x316d68…316efc Dummy {f00=0x0113, f01=0x0190, f02=» x C y X C C X ( x Tf B 9 R 9 h X ! T _` y C Q " T n J X ! R X X ! x Y Y _ X "@P B R y C B P 9 V _F9 VV X ! T X !@X y C _d y C C X !? x P
0x316efc…317090 Dummy {f00=0x0113, f01=0x0190, f02=»Q8X8_H x XD @ Y c C y XR X x 8 R x X X # J_ B C : + n X 8 J ( : ( * D : B b C _J + . X 9 V ! P @ Y : Y Y . : : : " : $ :
0x317090…317224 Dummy {f00=0x0113, f01=0x0190, f02=» ' : ! Y 0T V * | : 2' : R P P X ' ' X _ X ' _ X '?_ : X ' X ! X " 9b! X :c 2" H @ W W W W W W W Y ( Y 09H Y *
0x317224…3173b8 Dummy {f00=0x0113, f01=0x0190, f02=» X 0 X +" X *9h P( P P Y +W^ Y + WL T ZW> Q W Y + U Q P W W Y ( C X *! P V L ! X 0 Y 8 P Y 0 X 0 X 2] X 8 Y 0 : X 0 :H* : X 2T Y 2 : C
0x3173b8…31754c Dummy {f00=0x0113, f01=0x0190, f02=» ( C : C B _, _ X 8 n P J B _R ( X D D : K + Q 2 P. P8 ( * B X # V : : >_0 _> 0 . : . . . r r r r . d . W W X 0Q
0x31754c…3176e0 Dummy {f00=0x0113, f01=0x0190, f02=» *WT " P Y 0] Y (_t " X _. X *# P B 1 W " P X X$ C : X *! P 8 C W @ X (T W X y 6 Y ( : X (;n 0 > > & ~ r r D D d . Y . Y ,W Y . X ( X ." PV X 0RzT$ Y *P U
0x3176e0…317874 (4, 199) Dummy {f00=0x0113, f01=0x0190, f02=» . Y ( Y *T " T ! 1 W ! ) T : & Y *T ^ : T T : V Y " X .9H $ P & X ( " Qv Y +Q R " P W " U Y , " Q X . X 0RvP X *:h P P4) Y (W X *:h Pl Pf P P P<
0x317874…317a08 Dummy {f00=0x0113, f01=0x0190, f02=»# P X & V L TbW X , X 0P@ T, X *:h XF XL X (!@T @ Y ( X , Y t X 0 l (_r X ( P Y (_ P. P Y 8 ^ X 8 X $ Wh_ " P X ( T X & V H "@TF P6 V Y X (P P X (P
0x317a08…317b9c Dummy {f00=0x0113, f01=0x0190, f02=» "0P $ T W %T : : Y ( X $ Y X " Y X & Y X < Y @ : Y : X : X ( T X & V H " V Y : X $ X : : X Y " X Y $ X Y & X @W X < Y = " ! T W 4 ! P =H 4 ^ X *! T" X
0x317b9c…317d30 Dummy {f00=0x0113, f01=0x0190, f02=» Y Y Y WD V $:H D Y D :H Y ! P V Y :W Y ! P W V Y V Y : : > : 2' " P T W : : 8 C X : "0P ' Q W ' Y : W V
0x317d30…317ec4 Dummy {f00=0x0113, f01=0x0190, f02=» D ' $ T ( W P X =' V W V Y =P : t/ W t/ t/ ' / : C : C : &P C : & C : @ P
0x317ec4…318058 Dummy {f00=0x0113, f01=0x0190, f02=» P V I @ % A & # T : Y _ t : &P C ./ t ./ : C : t "R V I t ( T _& @ X, @ _6 : ( : : V 2 ;B P4
0x318058…3181ec Dummy {f00=0x0113, f01=0x0190, f02=» : V G 9h ' W t P : / W t : / W t C C W C C J ` ' W 781"&$ 39#$;< '()*+,-! : P _B t B : 'W t ( Wj : t W t ^
0x3181ec…318380 Dummy {f00=0x0113, f01=0x0190, f02=»P B P B 5 P C P B % P C + < t C C B B P C : V I C B : ( ' P B I : t % Y C : & R V C : : B T T
0x318380…318514 (4, 200) Dummy {f00=0x0114, f01=0x0190, f02=» : t P C W $0 P C 2 : "!@P ") # B C B % C C : #0 T & C C : C C V W V Q 0W Q W Q W 0 4 ! P T 0P(W$ 8 C S W C C 0 P C
0x318514…3186a8 Dummy {f00=0x0114, f01=0x0190, f02=»W B B " P PP L R R _ R _ # Q R V > _V ' P _d P & 1 P 1_ , @ - R T U :B@ ' d b N F | 0 6 x
0x3186a8…31883c Dummy {f00=0x0114, f01=0x0190, f02=» Q 0W :aW _B( 2 P V W8 _ 2 # ;B V T / W V P L , V 2P " 2 P V D ! R T V P V W V _ 8^n D N 2 ! 9B V T 0 W V P D $ V 6 V % V E @! ' T 2 % 7
0x31883c…3189d0 Dummy {f00=0x0114, f01=0x0190, f02=» _ V & H l 'W 'W '_6! ! ! ! :l:d:h : W W P W 6 2# W4 @! E " T> ; [ # :H 2 T Z L L x D V, W # L x E V $ W D V L , Wn 6 2
0x3189d0…318b64 Dummy {f00=0x0114, f01=0x0190, f02=» (Vj ; [ [ : z ;AV$ Z H # ; : : & Z 4 : Z 4 " 2@P : [ [ : & @! ! P [ 6 [ Z 7 Z 7 : ( :A ( @! " P [ :;H
0x318b64…318cf8 Dummy {f00=0x0114, f01=0x0190, f02=»;f" #?_" W " T & T + : * & !@P `1` P Q [ ; 8 V W Q P [ ! X # P 4 V W Q P [ " X $ P TF R R ` ; <( Q P # W " <! =# T6W = Z P _ V
0x318cf8…318e8c Dummy {f00=0x0114, f01=0x0190, f02=» : * & !`P :J +_ +Q _0 , V W R V W R XV W 1 ^ _0 R W ( V W Q P W ! W V P , V W Q P W $ W V P T V W Z :$0#0;b P P PN P 0 - P:
0x318e8c…319020 Dummy {f00=0x0114, f01=0x0190, f02=» [ _n' d V W V 4! P < X 4 9d $ & ! R + : V W R 4 0R Y 7 Y& P Z,;D 9_8 8 _< V W YL T 9 : &9d! + P & T 9d! T 7 V Y P _$ SZ
0x319020…3191b4 (4, 201) Dummy {f00=0x0114, f01=0x0190, f02=»V : V S W P 9 S W _ V P W T V E + : & [ [ [ [ $ [ [ >h [ [ | | 6 Z PP [ 9a Z $" T 9d! P6 P( [ Z w [ P 0 V H )_ _X z R
0x3191b4…319348 Dummy {f00=0x0114, f01=0x0190, f02=» *V &V PP= ;@ R P W ;a=a P " R & R V T W V E + : V & [ [ [ [ $ [ [ | | 6 z " ! ! R 2` { z " P ! R 2` { 1 !
0x319348…3194dc Dummy {f00=0x0114, f01=0x0190, f02=» ! Z $ Z %_N [ Q* 0 R [ Z { 0 z 9e! W Z : V I _ , " -! 9H X" ,9 -9d_ Z H D & H D % [ ( !! gg++ L 2
0x3194dc…319670 Dummy {f00=0x0114, f01=0x0190, f02=» V z V Z P 2 " T W "@T '?W "? H B" K :e J J " J _Z Z [ Z P [ V 7_ Z Z 7 Z Z P : V R (Q V
0x319670…319804 Dummy {f00=0x0114, f01=0x0190, f02=» K W. _& X W X & J K : V : 1 & : ! P ! P ! P ! P : ! P W : ! )P9H # T &W &" :I : 4 : P & _ &X _ : : : : : { : |
0x319804…319998 Dummy {f00=0x0114, f01=0x0190, f02=» R W R # P W ) V E WV [ : Z !0P. 4 R :d" 8 R ! :DW ! 9 R R Y, : : : : jP kT T : & 9! " : $ : $ : 2 & >A >A 2 $ : &
0x319998…319b2c Dummy {f00=0x0114, f01=0x0190, f02=» @ 9 X ( 9 8 ? X Q , V ( - 4T V 5 ( W, V P& W$ U V X 9T I Y : + : [ [ < !AAP !TTT W !**T * [ R !FFP !EET W I 6
0x319b2c…319cc0 Dummy {f00=0x0114, f01=0x0190, f02=» !00T ; _ 9P F " X6# ; W )0_: J R( Z R 4! P ;)0 9U ? Z ] 49d_. _BU ; :X _ _ z 9d! ) ^ _ ,_ 8 _ : W 8W 8 !++P !-- z ;$# + ^" _( T tX. PT*AXYZ9& >A >A 2 $ : &
0x319cc0…319e54 (4, 202) Dummy {f00=0x0114, f01=0x0190, f02=» @ 4 8 <1 4 1 4 1 4 @ 0 ? _ 0 0 ? H 0 >3 @$A 0 A 1 6 _: dv L@)6 l _ 53 # #] v5 q_ A)WO@) , + ( 6 ( _ , + v#5) ) _0 , ( y"W( < _C ,
0x319e54…319fe8 Dummy {f00=0x0114, f01=0x0190, f02=» 0 A 0 1 6 _2 | :_/0 < 1@ A " @ -a u a |0 X 0 ? 0 a 0 A 1 6 _ ? w 4 < < < < u C Ev ( wM C O x! y 3 b M I " x 3I 0 A 1 6 _ _ ? y$ x W < W
0x319fe8…31a17c Dummy {f00=0x0114, f01=0x0190, f02=» wRQ E I - G$E CI ## u | u E @ ,Eh A @ W + u v | E K W? A 1 6 _ _ C @'_ A'_ @'W I A$ ? u a I" _ 0 ? 0 _ EvA" " @ 0 ? _ $ A 0 u+ u A A ` 4@ A " ? a |? ) v T 4 4
0x31a17c…31a310 Dummy {f00=0x0114, f01=0x0190, f02=»v7 T6 v8 T. v9 T& v: T v; T v< T v= T vD 4 " @ 0 u _ 0 4 G 8 { ) 3 5 * R A g F / ABEFD]RBFOBKOMTBOMRTXTVALTNR A-
0x31a310…31a4a4 Dummy {f00=0x0114, f01=0x0190, f02=»53-2SIDE 53-3KOMMUNE NRVOLUME NR NORMALPOSTFEJL FORMATYDELSESMODT REMITTERINGPER FRA PER TILFAKTNR FAKTDATOVOL 2 VOL 3 VOL 4DSN02 DSN03 DSN04DSN05 DSN06 DSN07 DSN08TTXXXXTTTXZZZZZZZZ9TTTTTTTXXXVXXVXXXXXXXXXXXXZZZZZVZZ9,99+
0x31a4a4…31a638 Dummy {f00=0x0114, f01=0x0190, f02=» @ n n V I J I OK ? , p % & n & & ' n ' ! m ! n L b .x [ Az P f !g FAST
0x31a638…31a7cc Dummy {f00=0x0114, f01=0x0190, f02=» ! ! START VOLUME= { DATASET= v ] a r g p h Y l = S I T X POST T/GL. ]R b a
0x31a7cc…31a960 Dummy {f00=0x0114, f01=0x0190, f02=» I F U KONTROLSUM J V b W Q U L i N J O J W Y o M/P-NR b a
0x31a960…31aaf4 (4, 203) Dummy {f00=0x0114, f01=0x0190, f02=» 4 GL. SALDO CHECK p V ' SD-INCASSO a M F]R RE] REM OPK * DEBITORINDB a
0x31aaf4…31ac88 Dummy {f00=0x0114, f01=0x0190, f02=» v v v v % * 0 6 = D K R Z b j r { +
0x31ac88…31ae1c Dummy {f00=0x0114, f01=0x0190, f02=» , B [ u " # & ) , $ - P . } 4 4 4 6 G ; } B C E = J J O [ e a f !@ @ @ N $ H a M F]R RE] REM OPK * DEBITORINDB a
0x31ae1c…31afb0 Dummy {f00=0x0114, f01=0x0190, f02=» > 2 6 :I ? A < A( A A 1 2 _ @) $ A)@ 1 6 _ _0H) ! u jW yW _HfW ( Q8j (W ( L" yW b Q ( yW Q x _| yW _ VL ( yV T jW V yW T WV _v uX WL ( yW L vj W j W L6
0x31afb0…31b144 Dummy {f00=0x0114, f01=0x0190, f02=»yW T WL ( yW T b _R@(? H q(A m0 1 " QWH+ 0 _ A+ ( WL yW T8 v v Lj W j W j W L 0 1 (0 @+_ @+ 4 " !T u ,T _ Q( _ WZ H+ 0 _ A+ ( WL yW TF vj W " % _1 vj
0x31b144…31b2d8 Dummy {f00=0x0114, f01=0x0190, f02=» " T u_ ^% _ 4 ( WL yW hW L P " Q W# hW L T P ( WL yW Q 4 A(@ C TS TN A TIA 1 6 99 _$ Ev E Ev wMC 5 T , T X , _ >3@(A ,? % >4a> h> L I T h> T 1 4 )
0x31b2d8…31b46c Dummy {f00=0x0114, f01=0x0190, f02=», gW , 4 , ' ( wM T-! y) $ LbM ( >4a> T T 4 4 C C ( wM CT yP M h M Pb (hM P _ + C W# ! ( 3 (dM ( ( m> _i C0 1 TF TB_ T5 T1 >4m> & T
0x31b46c…31b600 Dummy {f00=0x0114, f01=0x0190, f02=» > P ) 4 4 ( > 0 4 h> T >4 4 4 0 $ # X h> PK h> T: $ - M3h> T bM > 1 )W W+4 % " "h> L T M3 bM > 1 M3% bM > 1 4 . p
0x31b600…31b794 (4, 204) Dummy {f00=0x0115, f01=0x0190, f02=» 4 x , !5 ' BFODFH0002CSSF DATAS[TDFH3504DISCFEJL TRANSMIT TERMINATE DATATRANSMISSION `BBZ9TTT9ZZZZZ9AAAAAAAAAAAAAAAAAAA9 M M 1 1H h M ANTAL RECORDS:j H j E b U CSSN PS=" ,
0x31b794…31b928 Dummy {f00=0x0115, f01=0x0190, f02=» " ' . 5 > G Q0 b0 d0 f # 7 N e + ^ h> T: $ - M3h> T bM > 1 )W W+4 % " "h> L T M3 bM > 1 M3% bM > 1 4 . p
0x31b928…31babc Dummy {f00=0x0115, f01=0x0190, f02=» V & 0 J N RH sI pH m! zi! e @ H A A @ 6 EE _ H A 0 P @ H _6 +0 v 0 0 @ @ 4 @ 4 H H 0 @ H ^H [) W 0 40 0 0 0 P 0 0 X W 0 ! , 6 v: 0 0 v4 - u
0x31babc…31bc50 Dummy {f00=0x0115, f01=0x0190, f02=» 4@ 4 4 I MI " T T I ! H r) n @ We( K )A WQ TR TNK ( , W=( W.( W ( T W T @ ! u W 4 4 ( ! ( ! ( ! 4 6 * MWW I I A W W I I A
0x31bc50…31bde4 Dummy {f00=0x0115, f01=0x0190, f02=» @ @ W 2 0 W W 4 4 H I 4 4 A A H " @ WW u u u u v A @ 6 _&@ @ _O% v P A I @ 4 4 4 u u@ @ @ @ 0 4 I 5I A A u W 0 X 0 @ @ 4 4
0x31bde4…31bf78 Dummy {f00=0x0115, f01=0x0190, f02=» 5A v uWL I 4@ H 0 @ @ # ) { 0 0 0 I K 4 I I A A ! W !W @ W 4 4 H* " H* 4 H 0 _ A @! 0 # A)!B( @)aMsaM B hM L B ! hI! , +^ 3 a 3 h $ @!" bM
0x31bf78…31c10c Dummy {f00=0x0115, f01=0x0190, f02=» 4 @!@ 4 C0 0 E A*@ A 4 @ # Fv# ~ ) A 4 # Fx_ # Fz_ # Fy_ Fw_"4 0 0 I $ " &W ' I 0 0 P A 4 0 4 0 0 0 4 1 4 1 4 I } @ # WW 6 &@ W= W5 W- % W%0 _M A
0x31c10c…31c2a0 Dummy {f00=0x0115, f01=0x0190, f02=»4 0 0 4 I 0 T$0 ! ) 8# 4 # : ! ' W10 % W W 0 0 4 _6 4 0 6 W& IW! W qW mW W W 0 : M # 0 ( $b M W ( ( b M W " L xa @ % % 0 W #
0x31c2a0…31c434 (4, 205) Dummy {f00=0x0115, f01=0x0190, f02=»W'0 0 0 H 0 0 W 0 0 W W W 4 P , . #HP 0 $ _ AP V3`V $ xV T @P 4 @P 4 I ,I A H 0 , * w0 _ 4 +T w% y 4 D +A 4 A 4 HP 0 _ AP ( , xV T 1 @PW @P 4 0 4 H XI 0@ @ 0 0
0x31c434…31c5c8 Dummy {f00=0x0115, f01=0x0190, f02=» y 8 Z i z 8 ~ @ S p w c c < [ b i U # % Y Z d !&C &01&02&03CYKLE LISTE STABELBACKUP OPSTART DISCFEJL DATATRANSMISSION $ ' B G I P T
0x31c5c8…31c75c Dummy {f00=0x0115, f01=0x0190, f02=» % + 1 8 @ I0 Z0 [0 ]0 _0 a0 c0 e0 g0 i0 k & . O 6 l 4 +T w% y 4 D +A 4 A 4 HP 0 _ AP ( , xV T 1 @PW @P 4 0 4 H XI 0@ @ 0 0
0x31c75c…31c8f0 Dummy {f00=0x0115, f01=0x0190, f02=» L Z 4 4 4 4 4 4 @ 8 I 6 L0 0 WC0 W<6 0 W 0 6 0 W 0 W 0 W 0 W 0 W 0 : 0 P : _ 0 0 P A W]6 0 W 0 W 0 : @ P Q0 6
0x31c8f0…31ca84 Dummy {f00=0x0115, f01=0x0190, f02=» 0 ) _ 0 ! ? 2 W50 ! A H ( 2 4 90 _;0 W 0!W 0 W 0"W 0#W 0$W 0%W 0&8 : ; 8 7 GG;GG;7;;;7;7? 1' ? 0( T b ! 3 A _ WK0 ) ? 0) ? I H 0 S 0 P 0 Q 4 0 C!
0x31ca84…31cc18 Dummy {f00=0x0115, f01=0x0190, f02=»! 0 0 2 4 ! A ! ? 0 0 ! ? 4 1 4 0 1 ! 4! R 6 0+ W 0+ W 0+ $2 _, 4 6 0+V W 0+V W 0+V 4 0 1 4 4 % L% B! ) : u I ! u* vb
0x31cc18…31cdac Dummy {f00=0x0115, f01=0x0190, f02=» | 4 # &! " w 2 % u " 3 $ 4 4 4 4 ! u 4 4 0 ! = 6 6 4 K W&J W! t W " t _+J .W 4 # *H @ , W H @ , ( , ? 2 r !"#$ %&%%%%%'%%%%%%%%%%%%%%%$%%%%%$%
0x31cdac…31cf40 Dummy {f00=0x0115, f01=0x0190, f02=» ?%$ A _ ? ? % A R A 9%@ ?%@ ?% ?% "8 8 I # W % W O O | ? ! ! ! ? W A A ? @ ) A ) ! j! f b N L + " :hN b N ) , Lb N ! u %
0x31cf40…31d0d4 (4, 206) Dummy {f00=0x0115, f01=0x0190, f02=» ?% ? # z % u ?% ? # % ?% ? :I?% v % u : ?I :I " t % v t !e u ? ? I ?# ?# ?% t e ?% % ! ? < ?% "8 8 ? # ? A % A # @
0x31d0d4…31d268 Dummy {f00=0x0115, f01=0x0190, f02=»_ ! ? T ?% ? ? _ I ?# ?# ?%@ @ ? < ? $ " t t ? ? % v " r r ? ? z w v b b v z$ ~" W }? r # r
0x31d268…31d3fc Dummy {f00=0x0115, f01=0x0190, f02=» ) u Wq % {j We _ zW[ {WV WQ # uWE W@H ! u A , W&H u A I , 2W $ 4 A | v 4 @ v w 4 + 4 ! J! ! 4 W 6 W 6 $ A W 4
0x31d3fc…31d590 Dummy {f00=0x0115, f01=0x0190, f02=» P | } ? ` v A k ~ " ' 3 = x ^ j o t y ~ M 2 L d y 8 i 8
0x31d590…31d724 Dummy {f00=0x0115, f01=0x0190, f02=» 2 ZZ9ZZZZZVZZ9,99+ 1 G q . Ih NY SIDE. i M # ' / 70 D0 E0 G0 I0 K0 M0 O0 Q0 S0 U0 W0 Z0 ]0 b
0x31d724…31d8b8 Dummy {f00=0x0115, f01=0x0190, f02=» I , 8 7H I !) u # #! ! ! H v v T2 H H A 6 @ A @ @ 4 v 4 H H I W 4 ) W # I $ c (c c c
0x31d8b8…31da4c Dummy {f00=0x0115, f01=0x0190, f02=»4 2 ) u W ) v W ) w C 8 # < R R P P # #vW I P W ! T T W C P % T % %vW !"# T W 6 W T W T P W ! sWv ! gWj ) ` ! "()*
0x31da4c…31dbe0 Dummy {f00=0x0115, f01=0x0190, f02=»! ! ! ! 4 0 P W W }H } +*4 + 4 4@ @ 4 Iv H{ I! u( H! u!0 0, I HP ) 4 4 u0- Q P I 0 @ 4 ! y"! ) H @ A A @ )W 4 0* 0
0x31dbe0…31dd74 (4, 207) Dummy {f00=0x0115, f01=0x0190, f02=»00 P Q I 0 4 I 01 Q P 4 @'A TuI ThW 0 0 # 9 T ! y I T _$ X+W* A'I _; L_ I' I 0 W 0 @ 4 I 0 W 0 @'@ 4 A TlI T_W 0 # . I
0x31dd74…31df08 Dummy {f00=0x0115, f01=0x0190, f02=» ( M < y8 Lb M!! _/ 3b M < 3b M 3b M 8 > O O |8 _ BC%< hM B hM T b M 3b M P Y P ( ! K"e , / 6h ( T 2 | |
0x31df08…31e09c Dummy {f00=0x0115, f01=0x0190, f02=»3h ' dM v? I" ? I" ? @ @ 4 @ A 4 @ A @ 4 A @ v H A W @ W A 2@ I 4 @ W I W !I " "A 6 _5 W @ _ _EA 4 #A 6 <MW _Z @ $_BK ( @ % $_U$ 0 0 A &_nI 0
0x31e09c…31e230 Dummy {f00=0x0115, f01=0x0190, f02=» W * 4 + T 4 + T 4 ,T ! W 4 -T 4 .T W * TyW /TsWy * 4 2 + TLWR + TEWK + T>WD 0T8 4 I 0 4 I % 4 I 4 H 4 * 4 4 4 6 ! !1 4 4 I 1T 6 4 4 4 0! 4 4
0x31e230…31e3c4 Dummy {f00=0x0115, f01=0x0190, f02=» A H 1 [ B w p w [ 8 U < b 9 * ~ E = 2 S 3 ^ c . 0 < d!& &01GEBRATRTEASSIGN DISCFEJL
0x31e3c4…31e558 Dummy {f00=0x0115, f01=0x0190, f02=» ! L ?R4 1X F4 L0X 1X F ! L4! p D . L , @ O P U , ` X p ^ , a i B j n k B o t | ,
0x31e558…31e6ec Dummy {f00=0x0115, f01=0x40b4, f02=» " " 2 B * R 8 4 2 W 0XV K W 0XV K 4 L0X 1X F 4 R 4 b @ j n k B o t | ,
0x31e6ec…31e880 Dummy {f00=0x0115, f01=0x018e, f02=» : H IDENT SUBAPL TRA 4.2 80-08-08 F1 O1111 02.01.XXX.1 B > CLRSW SELTR SETDEB SETKRE SPAPPL SPCHK1 SPCHK2 SPCHK3 B . * SPCHK4B SPCHK5A SPCHK60 SPCHK7F SPTCHK $$$TRAS > : CLRSW ; SELTR K SETDEB0 - SETKRES SPAPPL. [ SPCHK1
0x31e880…31ea14 (4, 208) Opaque[0x194]
0x31ea14…31eba8 # DirEnt {nam=»CONNJ2«, typ=»UF«, f00=0x0000, f01=0x0000, f02=0x1488, f03=0x0000}
0x31ea14…31eba8 IdxSect {
0x31ea14…31eba8 f00 = 0x00a4 // 0x31ea14 @0x0
0x31ea14…31eba8 f01 = 0x0002 // 0x31ea16 @0x2
0x31ea14…31eba8 gno = [ // 0x31ea18 @0x4
0x31ea14…31eba8 [0x00]: C0x00a4.0x1.0
0x31ea14…31eba8 ]
0x31ea14…31eba8 }
0x31eba8…31ed3c Dummy {f00=0x00a4, f01=0x0190, f02=» T; P01; TID=TC; TCL=TC; * LEV=60; : 01; J PTDC=T02; V PLC=01L; f P01; v PSCL=S04; PT; P01; PTID=TD; TCL=TC; LEV=60; 01; PTDC=T02; PLC=01R; P00;
0x31ed3c…31eed0 Dummy {f00=0x00a4, f01=0x0190, f02=» P02; TID=KA; TCL=KA; $ LEV=60; 4 01; D TDC=T03; P PLC=01L; ` P03; p PSCL=S02; | PSCL=S03; PSCL=S04; PT; P01; PTID=KC; TCL=KA; LEV=60; 01; TDC=T03;
0x31eed0…31f064 Dummy {f00=0x00a4, f01=0x0190, f02=»LEV=60; 01; TDC=T04; PLC=02L; , P03; < PSCL=S02; H PSCL=S03; X PSCL=S04; h PT; x P01; PTID=GB; TCL=GA; LEV=60; 01; TDC=T04; PRC=02R; P03; PSCL=S02; PSC
0x31f064…31f1f8 Dummy {f00=0x00a4, f01=0x0050, f02=»; P01; PSCL=S01; U; & 001; 0 TB2; < P003; H H PSCL=S03; X PSCL=S04; h PT; x P01; PTID=GB; TCL=GA; LEV=60; 01; TDC=T04; PRC=02R; P03; PSCL=S02; PSC
0x31f1f8…31f38c Dummy {f00=0x00a4, f01=0x2008, f02=» P01; PSCL=S01; U; & 001; 0 TB2; < P003; H H PSCL=S03; X PSCL=S04; h PT; x P01; PTID=GB; TCL=GA; LEV=60; 01; TDC=T04; PRC=02R; P03; PSCL=S02; PSC
0x31f38c…31f520 Dummy {f00=0x00a4, f01=0x0190, f02=» ( Z 0 O ( B : C ( : O N T B O N - O N N " P N " O N " P N " O W B H, : C C C ( :H Q ( P _@
0x31f520…31f6b4 (4, 209) Opaque[0x194]
0x31f6b4…31f848 # DirEnt {nam=»RGADM «, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x1810, f03=0x0000}
0x31f6b4…31f848 IdxSect {
0x31f6b4…31f848 f00 = 0x00c0 // 0x31f6b4 @0x0
0x31f6b4…31f848 f01 = 0x0028 // 0x31f6b6 @0x2
0x31f6b4…31f848 gno = [ // 0x31f6b8 @0x4
0x31f6b4…31f848 [0x00]: C0x00c0.0x2.0
0x31f6b4…31f848 [0x01]: C0x00c0.0x3.0
0x31f6b4…31f848 [0x02]: C0x00c1.0x0.0
0x31f6b4…31f848 [0x03]: C0x00c1.0x1.0
0x31f6b4…31f848 [0x04]: C0x00c1.0x2.0
0x31f6b4…31f848 [0x05]: C0x00c1.0x3.0
0x31f6b4…31f848 [0x06]: C0x00c2.0x0.0
0x31f6b4…31f848 [0x07]: C0x00c2.0x1.0
0x31f6b4…31f848 [0x08]: C0x00c2.0x2.0
0x31f6b4…31f848 [0x09]: C0x00c2.0x3.0
0x31f6b4…31f848 [0x0a]: C0x00c3.0x0.0
0x31f6b4…31f848 [0x0b]: C0x00c3.0x1.0
0x31f6b4…31f848 [0x0c]: C0x00c3.0x2.0
0x31f6b4…31f848 [0x0d]: C0x00c3.0x3.0
0x31f6b4…31f848 [0x0e]: C0x00c4.0x0.0
0x31f6b4…31f848 [0x0f]: C0x00c4.0x1.0
0x31f6b4…31f848 [0x10]: C0x00c4.0x2.0
0x31f6b4…31f848 [0x11]: C0x00c4.0x3.0
0x31f6b4…31f848 [0x12]: C0x00c5.0x0.0
0x31f6b4…31f848 [0x13]: C0x00c5.0x1.0
0x31f6b4…31f848 ]
0x31f6b4…31f848 }
0x31f848…31f9dc Dummy {f00=0x00c0, f01=0x0190, f02=» P IDENT RGADM 02.01.XXX.1 DDUM KMD08 & PDIV : ENTRY RGADM H P ENTRY ADM P ENTRY CLEJ n P ENTRY CLEDB P ENTRY CLBEH P ENTRY RGA120 P ENTRY ZERO P ENTRY SKIFT P ENTRY STRTWR P ENTRY STR
0x31f9dc…31fb70 Dummy {f00=0x00c0, f01=0x0190, f02=» TCLOSE P ENTRY TR2GEN P ENTRY WAHEAD & P ENTRY WALINE < P ENTRY BCKUP R P* f P EXT ADM600 p P EXT CNFWRT P EXT RADEL P EXT ABORT P EXT EMPTYT P EXT RGREAD P EXT TRPAGE P EXT SETKRE
0x31fb70…31fd04 Dummy {f00=0x00c0, f01=0x0190, f02=» P EXT FRMXTA P EXT WTALLY P EXT FRMTKV 0 P EXT CRVO D P EXT TCONFR V P EXT FRMXSP j P EXT SPCHK5 ~ P EXT SUM P EXT PACKCL P EXT CLEAR8 P EXT SPLIN8 P EXT SLUT P EXT GRASPV P EXT
0x31fd04…31fe98 Dummy {f00=0x00c0, f01=0x0190, f02=»YK P EXT DIVTR P EXT TCONFW P EXT CONFWR 0 P EXT WRITFD D P EXT SQWRIT X P EXT RAREAD l P EXT RAWRIT P EXT ASGVOL P EXT CLSVOL P EXT CRKJ P EXT BACKUP P EXT CONRDX P EXT RSTORE
0x31fe98…32002c Dummy {f00=0x00c0, f01=0x0190, f02=» P EJECT RGADM P SET SPPROMPT P MOVE SPKEY,CBIN2 6 P ATTFMT ADFRM01 P P PERF SPCLRA h @ P IB SPBINW2,RGADM,RGADM,RGADM,RGADM,RGA100,RGA200,RGA300, C | P RGADM,RGADM,RGA007 P B RGADM P* PRGA007 GO ONLINE
0x32002c…3201c0 Dummy {f00=0x00c0, f01=0x0190, f02=»** Z P* $ P* OPEN ROUTINE P* < < P******************************************************** F P* P TBT CCONVFLG,RGADM P CLEAR GTDYFLG P SET SPPROMPT P SET SPME P MOVE GSWBCD3,=X'FF' ERASE
0x3201c0…320354 (4, 210) Dummy {f00=0x00c0, f01=0x0190, f02=»TTEJEDB,=D'0' , P MUL TTSTLBNR,=D'-1' SET POSITIVE (OPEN) 2 P MUL CMASK(TTASKNR),=D'-1' SET CMASK >0, OPEN F P MOVE TTCASH,TTSTCASH | P CBNE TTSTLBNR,=D'0',RGA115 P MOVE TTSTLBNR,=D'1' PRGA115 P MOVE TTLBNR,TTSTLBNR P S
0x320354…3204e8 Dummy {f00=0x00c0, f01=0x0190, f02=»WR & P PERF WRITJT,=W'5' OPEN MES ON JT P SET GTKASSE 4 P ADD CTASKNR,CBIN1 H PRGA120 b $ P PERF INITRG START REGISTRATION p P PERF TCLOSE CLOSE P BNOK RGA120 P SUB CTASKNR,CBIN1 P B RGADM P EJECT PTCLOSE PRO
0x3204e8…32067c Dummy {f00=0x00c0, f01=0x0190, f02=»CLMAK,TCL010 | P B TCL000 PTCL010 & P* CLEAR FLAGS 4 P CLEAR GTSUMKEY N P CLEAR TTTSTFLG f P CLEAR TTCY1FLG ~ P CLEAR TTCY2FLG P CLEAR TTLSTFLG P CLEAR TTPSEFLG P CLEAR TTSUMFLG P CLEAR TTSUPFLG
0x32067c…320810 Dummy {f00=0x00c0, f01=0x018e, f02=»OVE GTSUM,=D'0' P WAIT KVOUCH P DSC0 KVOUCH,RLEAS , ( P* TR12 ACCUMULATORS F P MOVE GTREGNR,=D'2' r P MOVE GTREGDEX,CBIN2 P PERF PACKCL P MOVE GSWBIN1,CBIN1 PTCL025 P MOVE GTDUPF(GSWBIN1),=X'FF'
0x320810…3209a4 Dummy {f00=0x00c0, f01=0x0190, f02=» t PTCL035 " P MOVE GSWBIN5,GSWBCD5 CONVERT , P CBG GSWBIN5,CTR12(TTASKNR,CBIN2),TCL100 < & P ADD GSWBIN5,CTR12(TTASKNR,CBIN1) l ( P MOVE GTDUPF(CBIN1),CTR12NR(GSWBIN5) $ P CBE GTDUPF(CBIN1),=D'0',TCL030 . P MOVE GTUSED(CBIN1),CBIN5 INDI
0x3209a4…320b38 Dummy {f00=0x00c0, f01=0x0190, f02=» v & P MOVE GSWSTR20,=C'EJ-EDB T[LLER ' P MOVE GTWBCD1,GSWBCD5 2 0 P PERF TR2GEN,CBIN1 GENERATE TR2 WITH KREDIT P P BNOK TCL035 PTCL040 P MOVE GSWBIN5,GSWBCD5 & P ADD GSWBIN5,CTR12(TTASKNR,CBIN1) . P MOVE GTDUPF(CBIN4),C12ACC
0x320b38…320ccc Dummy {f00=0x00c0, f01=0x0190, f02=» P MOVE GTWBCD1,GSWBCD5 . P PERF TR2GEN,CBIN2 GENERATE TR2 WITH DEBET " P BNOK TCL040 T P B TCL030 h P EJECT z PTCL100 P MOVE GSWSTR9,=C'TOTAL ' P PERF CLEJ EJ EDB P MOVE TTEJEDB,=D'0' PTCL205 P CASH MOVE
0x320ccc…320e60 Dummy {f00=0x00c0, f01=0x0190, f02=»ITIAL CASH r P MOVE GTUSED(CBIN1),CBIN5 P MOVE GTUSED(CBIN4),=W'-8' 4 $ P MOVE GSWSTR20,=C'KASSE-KONTO ' V P MOVE GTWBCD1,=D'0' ~ P SET GTTFLG P PERF TR2GEN,CBIN0 P BNOK TCL205 P TBF CCLKTFLG,TCL230 P PERF KORT ASK F
0x320e60…320ff4 (4, 211) Dummy {f00=0x00c1, f01=0x0190, f02=»ACC(CBIN6,CBIN1) z * P ADD GTDUPF(CBIN4),TTACC(CBIN6,CBIN2) $ P CBE GTDUPF(CBIN4),=D'0',TCL235 F P MOVE GTUSED(CBIN1),CBIN5 n P MOVE GTUSED(CBIN4),=W'-8' P MUL GTDUPF(CBIN4),=D'-1' , P MOVE GSWSTR20,=C'VERSUR KONTONR REMIT ' P MOV
0x320ff4…321188 Dummy {f00=0x00c1, f01=0x0190, f02=»ITING OF DISC JOURNAL AND VOUCHER P* * PTCL235 4 P MOVE GSWSTR9,=C'TOTAL ' B P PERF CLEDB d P* x P* BEHOLDNINGST[LLERE P* P PERF CLBEH P* PTCL500 P MOVE TTSTCASH,TTCASH P MOVE TTSTLBNR,TTLBN
0x321188…32131c Dummy {f00=0x00c1, f01=0x0190, f02=» ` P CLEAR GTTFLG PTCL550 P MOVE TTRECOPN,CRECBCD , P PERF ZERO J 2 P PERF TCONFW,TTASKNR STORE NEW INITIAL VALUES P PERF CONFWR P BNOK TCL550 P CLEAR GTKASSE PTCLRET P* ZERONIZE COUNTERS P* TRANS 12
0x32131c…3214b0 Dummy {f00=0x00c1, f01=0x018e, f02=»AK P CMP CBIN0,CBIN1 P RET " P PEND . P EJECT < PRGA200 J 4 P************************************************ X P* 4 P* PERFORM OF SELECTED ADM ROUTINE P* 6 P********************************************
0x3214b0…321644 Dummy {f00=0x00c1, f01=0x0190, f02=» P* ZERONIZE COUNTERS P* TRANS 12 COUNTERS " & P MOVE GSWBIN1,CTR12(TTASKNR,CBIN1) @ P MOVE GSWBIN2,GSWBIN1 j & P ADD GSWBIN2,CTR12(TTASKNR,CBIN2) PTCL610 P ADD GSWBIN1,CBIN1 P CBG GSWBIN1,GSWBIN2,TCL615 & P MOVE C12A
0x321644…3217d8 Dummy {f00=0x00c1, f01=0x0190, f02=»GSWBIN1,CBIN0 PTCL620 P ADD GSWBIN1,CBIN1 $ $ P MOVE TTACC(GSWBIN1,CBIN1),=D'0' > $ P MOVE TTACC(GSWBIN1,CBIN2),=D'0' f P CBL GSWBIN1,CBIN8,TCL620 P RET P PEND P EJECT PCLEJ PROC : P******************************
0x3217d8…32196c Dummy {f00=0x00c1, f01=0x0190, f02=» A VOUCHER PRINT OF ALL TR12 ACC " P* IS NOW PERFORMED 4 P** Z < P******************************************************** d P MOVE TTLINNR,=D'25' $ P MOVE GSWSTR20,='EJ-EDB T[LLER ' , P CBE CTR12(TTASKNR,CBIN2),CBIN0,
0x32196c…321b00 Dummy {f00=0x00c1, f01=0x0190, f02=»ERT v , P CBG GSWBIN5,CTR12(TTASKNR,CBIN2),TCL200 & P ADD GSWBIN5,CTR12(TTASKNR,CBIN1) < . P MOVE GTDUPF(CBIN4),C12ACC(GSWBIN5,CBIN1) f , P ADD GTDUPF(CBIN4),C12ACC(GSWBIN5,CBIN2) ( P MOVE GTDUPF(CBIN1),CTR12NR(GSWBIN5) $ P CBE GTDUPF(CBIN1),=
0x321b00…321c94 (4, 212) Dummy {f00=0x00c1, f01=0x018e, f02=»L190 P PERF WALINE,CBIN9 P B TCL110 & PTCL200 8 P DSC0 KVOUCH,RLEAS F PTCLEJRET ` P RET p P PEND | P EJECT PCLEDB PROC P* 0 P* WRITING OF DISC JOURNAL AND VOUCHER P* $ P MOVE GSWSTR20,=C'EDB-
0x321c94…321e28 Dummy {f00=0x00c1, f01=0x0190, f02=» P MOVE GTREGF(CBIN2),=D'0' PTCL240 & P TBT GTSPGFLG,TCL242 4 P MOVE GTREGNR,=D'11' P PTCL242 l P ADD GSWBCD5,=D'1' z PTCL245 P MOVE GSWBIN5,GSWBCD5 P CBG GSWBIN5,CBIN6,TCL300 , P ADD GTREGF(CBIN1),TTACC(GSWBIN5,CBIN1
0x321e28…321fbc Dummy {f00=0x00c1, f01=0x018e, f02=» , P ADD GTDUPF(CBIN4),TTACC(GSWBIN5,CBIN2) , P MOVE GTDUPF(CBIN6),TTACC(GSWBIN5,CBIN1) 4 2 P MOVE GTDUPF(CBIN5),TTACC(GSWBIN5,CBIN2) DEBET d P TBT GTSPGFLG,TCL290 P MOVE GTUSED(CBIN6),=W'-53' P MOVE GTUSED(CBIN5),=W'-52' P MOVE GTDU
0x321fbc…322150 Dummy {f00=0x00c1, f01=0x0190, f02=» t P PERF CRKJ P PERF WRITFD P BNOK TCL245 . PTCL290 B " P MOVE GSWBIN5,GSWBCD5 RESTORE P P MOVE GTWBCD1,GSWBCD5 v P PERF WRITJT,=W'7' P PERF WALINE,CBIN10 P B TCL240 PTCL300 P PERF PACKCL & P MOVE GTDU
0x322150…3222e4 Dummy {f00=0x00c1, f01=0x018e, f02=»,TTACC(CBIN8,CBIN2) ~ P PERF WALINE,CBIN11 * P MOVE GTDUPF(CBIN5),TTACC(CBIN1,CBIN1) 8 * P MOVE GTDUPF(CBIN6),TTACC(CBIN1,CBIN2) f P MOVE GSWBIN1,CBIN1 PTCL310 P ADD GSWBIN1,CBIN1 P CBG GSWBIN1,CBIN4,TCL320 , P ADD GTDUPF(CB
0x3222e4…322478 Dummy {f00=0x00c1, f01=0x0190, f02=» z ( P* ADJUST FOR 'KASSE INDBERETNING' P MOVE GSWBCD1,TTCASH 4 P SUB GSWBCD1,TTSTCASH P P CBL GSWBCD1,=D'0',TCL323 n P SUB GTDUPF(CBIN6),GSWBCD1 P B TCL325 PTCL323 P SUB GTDUPF(CBIN5),GSWBCD1 PTCL325 ( P* AD
0x322478…32260c Dummy {f00=0x00c1, f01=0x018e, f02=»' 'VEND' ~ P CBL GSWBCD1,=D'0',TCL328 P SUB GTDUPF(CBIN6),GSWBCD1 2 P B TCL329 T PTCL328 f P SUB GTDUPF(CBIN5),GSWBCD1 t PTCL329 P MUL GTDUPF(CBIN5),=D'-1' P MUL GTDUPF(CBIN6),=D'-1' P MOVE GSWBCD1,TTCASH P SUB
0x32260c…3227a0 Dummy {f00=0x00c1, f01=0x0190, f02=» P EJECT PCLBEH PROC P* ( P* BEHOLDNINGST[LLERE 2 P* P PTCL400 Z P MOVE TTLINNR,=D'25' h & P MOVE GSWBIN2,CBEH(TTASKNR,CBIN2) P CMP GSWBIN2,CBIN0 P BE CLBEHRET $ P ADD GSWBIN2,CBEH(TTASKNR,CBIN1) P MOV
0x3227a0…322934 (4, 213) Dummy {f00=0x00c1, f01=0x018e, f02=»15,TCL415,TCL412,TCL411,TCL415, C , P TCL415,TCL415,TCL415,TCL413,TCL415, C * P TCL415,TCL415,TCL413 Z PTCL415 x P B TCL400 PTCL411 P TBT GTSPGFLG,TCL400 " P MOVE GSWSTR20,=C'SLET SALDO ' P MOVE GSWBIN6,CBIN1 P B T
0x322934…322ac8 Dummy {f00=0x00c1, f01=0x0190, f02=» PTCL413 P MOVE GSWSTR20,=C'SUBTOTAL ' P MOVE GSWBIN6,CBIN3 : P B TCL420 V PTCL420 h P MOVE GTWBCD1,=D'0' v P MOVE GSWBCD6,=D'0' P MOVE GSWBCD7,=D'0' PTCL425 P PERF GRASPV P MOVE GSWBIN3,CVOUTOP
0x322ac8…322c5c Dummy {f00=0x00c1, f01=0x0190, f02=»H,GTSTRFMT PTCL430 P ADD GTWBCD1,=D'1' P MOVE GSWBIN3,GTWBCD1 : $ P ADD GSWBIN3,CBEH(TTASKNR,CBIN1) X P MOVE GSWBIN4,GTWBCD2 P CBG GSWBIN3,GSWBIN4,TCL490 * P CBE CBACC(GSWBIN3,CBIN1),=D'0',TCL430 * P* ADD TO TOTAL, PERI
0x322c5c…322df0 Dummy {f00=0x00c1, f01=0x0190, f02=»N14 P EDWRT KVOUCH,GTSTRFMT ! P TBT GTTESTFL,TCL433 ! * $ P IB GSWBIN6,TCL431,TCL432,TCL433 ! F P B TCL433 ! n PTCL431 ! * P MOVE CBACC(GSWBIN3,CBIN3),=D'0' SALDO ! PTCL432 ! , P MOVE CBACC(GSWBIN3,CBIN2),=D'0' PERIODE ! PTCL433 ! P
0x322df0…322f84 Dummy {f00=0x00c1, f01=0x0190, f02=»90 ! P* WRITE TOTAL LINE " P PERF FRMXVO,CBIN18 " ( P EDWRT KVOUCH,GTSTRFMT " D P DSC0 KVOUCH,RLEAS " b PCLBEHRET " | P RET " P PEND " P EJECT " P************************ " P* " P* " ( P* ADM FUNCTIONS
0x322f84…323118 Dummy {f00=0x00c1, f01=0x0190, f02=»NTOPLAN " r P* ADM 4 # " P* ADM 5 KONVERTERING # $ & P* ADM 6 DATATRANSMISSION # J P* ADM 7 3270 ONLINE # t P* ADM 8 # & P* ADM 9 DEFAULT LINE NO. # $ P* ADM 10 SUPPLEMENT POST # P* ADM
0x323118…3232ac Dummy {f00=0x00c1, f01=0x0190, f02=» 3 BILAG EDB T[LLERE # & P* SPG 4 AABNE KASSER $ " , P* SPG 5 UDSKRIFT KONTOPLAN $ L 2 P* SPG 6 ENKELT BEHOLDNINGST[LLER $ | * P* SPG 7 KASSEBEHOLDNING $ . P* SPG 8 SPG. P] POSTERINGE
0x3232ac…323440 Dummy {f00=0x00c1, f01=0x0190, f02=» REGSET $ r $ P* ADM 12 DISKETTE SKIFT % P* ADM 13 AUTOSUM % 8 P* ADM 14 DAGS DATO % X P* ADM 15 % z P* ADM 16 % $ P* ADM 17 NEW KASSEKONTO % $ P* ADM 18 NEW VERSURKONTO % " P* ADM 19 REGNE
0x323440…3235d4 (4, 214) Dummy {f00=0x00c1, f01=0x0190, f02=» P* ADM 23 MODPOST & P* ADM 24 KONTOKORT & $ P* ADM 25 KVITTERING & F " P* ADM 26 SUM FUNKTION & j $ P* ADM 27 LISTE FUNCTION & P* ADM 28 SUBTOTAL & $ P* ADM 29 TEST AF VOUCHER & P*
0x3235d4…323768 Dummy {f00=0x00c1, f01=0x0190, f02=» & 4 P* ADM 34 4 CYCLE, PAUSE IN CYCLE/STABEL ' " P* ADM 35 DIVERSE TRANS ' @ P* ' f P* ' p P******************** ' z P EJECT ' PADM PROC ADMNO ' P******************* ' P* ' , P* BRANCH TO SELECTED ADM ROUTINE
0x323768…3238fc Dummy {f00=0x00c1, f01=0x0190, f02=» MOVE GSWSTR9,=C'SUBTOTAL ' ' PADM001 ( $ P MOVE GSWBIN1,ADMNO ( 2 6 P IB GSWBIN1,ADM1,ADM2,ADM3,ADM4,ADM5,ADM6,ADM7, C ( N > P ADM8,ADM9,ADM10,ADM11,ADM12,ADM13,ADM14,ADM15,ADM16, C ( : P ADM17,ADM18,ADM19,ADM20,ADM21,ADM22,ADM23,ADM24, C ( : P
0x3238fc…323a90 Dummy {f00=0x00c1, f01=0x0190, f02=»RIES ( | P MOVE GSWBIN1,ADMNO ) * P CMP GSWBIN1,CBIN11 TEST IF INQUIRIES ) ( P BE ADM11 ) V P SUB GSWBIN1,=W'22' ADJUST ) h " P IB GSWBIN1,ADM23,ADM24,ADM25 ) PADM00 ) P B ADMRET ) P EJECT ) P* ) P* ) PADM1 ) P* EJ-EDB T
0x323a90…323c24 Dummy {f00=0x00c1, f01=0x0190, f02=» GTDYFLG ) PADM1010 * P ATTFMT ADMFRM1 * P PERF SPCLRN * 8 ( P IB SPBINW2,ADM1RET,ADM1RET,ADM1020 * L P B ADM1000 * x PADM1020 * P TBF GTDYFLG,ADM1RET * P CLEAR GTDYFLG * P B ADM1010 * PADM1RET * P CLEAR GTADMFLG * P C
0x323c24…323db8 Dummy {f00=0x00c1, f01=0x0190, f02=» P TBT GTSPGFLG,ADM2001 + P TBT GTKASSE,ADM2RET + " P TBT GTTESTFL,ADM2RET + > PADM2001 + P SET SPPROMPT + l P SET GTDYFLG + P ATTFMT ADM2FRM1 + P PERF SPCLRN + ( P IB SPBINW2,ADM2RET,ADM2RET,ADM2020 + P B ADM2000 + PADM2020
0x323db8…323f4c Dummy {f00=0x00c1, f01=0x0190, f02=»(CBIN1),CBACC(GSWBIN6,CBIN1) REG. KNT. NO + 2 P MOVE GTDUPF(CBIN4),CBACC(GSWBIN6,CBIN3) SALDO , 2 P CLEAR GTDYFLG , h P SET SPPROMPT , ~ P ATTFMT ADM2FRM1 , P PERF SPCLRN , ( P IB SPBINW2,ADM2RET,ADM2RET,ADM2030 , P B ADM2000 , PADM2030 ,
0x323f4c…3240e0 Dummy {f00=0x00c1, f01=0x0190, f02=»E CBACC(GSWBIN6,CBIN1),GTDUPF(CBIN1) , , P MOVE CBACC(GSWBIN6,CBIN3),GTDUPF(CBIN4) - , P PERF WRITJT,=W'13' - PADM2RET - x P CLEAR GTADMFLG - P CLEAR GTDYFLG - P B ADMRET - P* - P* - PADM3 - P* OPRETTELSE KONTOPLAN - $
0x3240e0…324274 (4, 215) Dummy {f00=0x00c2, f01=0x0190, f02=»* KONVERTERING * - PADM0500 . P SET CCONVFLG . ( P CLEAR SPKEYFLG . > P TEST GTKASSE . V P BNZ ADM05RET BRANCH IF TRUE . l P CMP TTASKNR,CBIN1 . P BNE ADM05RET . P CMP CTASKNR,CBIN0 . P BNE ADM05RET . P SET SPPROMPT . P M
0x324274…324408 Dummy {f00=0x00c2, f01=0x0190, f02=»RITE EOF RECORD . P AND CLOSE ALL FILES / PADM0510 / 6 . P TBT CCONVERT,ADM0513 NO WRITE IF CONVERT / F P SUB CRECBCD,=D'1' / x P PERF SLUTID,CRECBCD / P ADD CRECBCD,=D'1' / * P PERF RAWRIT,DK02,=D'2',CPCKBUF,CRECNR / P BNOK ADM0500 /
0x324408…32459c Dummy {f00=0x00c2, f01=0x0190, f02=»CRECBCD,=D'1' / P PERF LAMPOF,=W'2047' 0 P TBT C5MDISK,ADM0514 0 4 P PERF LAMPON,=W'64' LAMP 5 0 P PADM0514 0 r P PERF LAMPON,=W'32' LAMP 6 0 P PERF LAMPON,=W'16' LAMP 7 0 P PERF LAMPON,=W'2' LAMP 10 0 PADM0515 0 P PERF SOPRD 0
0x32459c…324730 Dummy {f00=0x00c2, f01=0x018e, f02=» PADM05001 1 PADM05002 1 PADM05003 1 $ PADM05004 1 4 PADM05008 1 D PADM05009 1 T P B ADM0515 1 d P* 1 v PADM05010 LAMP 10 1 P B ADM0513 CLOSE AND SOPRD 1 P* 1 P* 1 P* 1 P* 1 P* 1 PADM05005 SOP 5 1 0 P T
0x324730…3248c4 Dummy {f00=0x00c2, f01=0x0190, f02=» " P DSC1 FD01,LOAD,CBIN7 LOAD IBM 2 P BBEOD ADM0535 2 * P BNOK ADM0513 2 @ PADM0535 2 V P DSC0 FD01,RWIND 2 f $ P PERF LAMPOF,=W'1024' LAMP 1 OFF 2 ~ " P PERF LAMPON,=W'512' LAMP 2 ON 2 P PERF ASGVOL,CBIN2 2 P BNOK ADM0513 2 $ P PERF LAMPOF
0x3248c4…324a58 Dummy {f00=0x00c2, f01=0x0190, f02=»OVE GSWBIN1,=W'128' READ HEADER 2 4 P PERF RAREAD,DK02,=D'2',CPCKBUF,GSWBIN1,GSWBIN6 3 ( P BOK ADM0536 3 ` & P PERF STRTID,CVOLNO SET UP STRTID 3 t P PERF WRITID,CBIN3,CBIN1 3 P B ADM0540 3 PADM0536 3 * P PERF WRITID,CBIN3,CBIN1 PRINT HEADER 3
0x324a58…324bec Dummy {f00=0x00c2, f01=0x018e, f02=»1,CBIN20,GSWSTR20,GSWBIN6 3 | PADM0540 4 " $ P PERF SQWRIT,FD01,=D'1',CPCKBUF 4 2 P BNOK ADM0568 4 Z P CLEAR CERRORFL 4 p ( P MOVE GSWBCD6,=D'0' FOR TEST PURPOSE 4 P MOVE CRECNR,CBIN1 4 PADM0550 START LOOP 4 P ADD CRECNR,CBIN1 4 P MOV
0x324bec…324d80 Dummy {f00=0x00c2, f01=0x0190, f02=» * P CBE GTWBCD1,=D'4',ADM0565 END OF DATA 5 P MOVE GSWSTR20,=C'SLUTD' 5 2 P MOVE GSWBIN5,CBIN0 5 R 6 P MATCH GSWSTR20,GSWBIN5,CBIN5,CPCKBUF,CBIN0,CBIN5 5 n & P BE ADM0570 SLUTD: END OF CONVERT 5 P TBF CTESTFLG,ADM0578 5 * P* THIS PART CAN BE U
0x324d80…324f14 (4, 216) Dummy {f00=0x00c2, f01=0x018e, f02=» P MOVE GSWBIN5,=W'30' 6 P MOVE GSWBIN2,CBIN0 6 8 P MATCH CPCKBUF,GSWBIN5,CBIN20,GSWSTR20,GSWBIN2,CBIN3 6 < P BNOK ADM0578 6 x P ADD GSWBIN5,CBIN3 6 P MOVE GSWSTR20,=X'00' 6 . P COPY GSWSTR20,CBIN0,CBIN5,CPCKBUF,GSWBIN5 6 P MOVE GSWBCD5,GS
0x324f14…3250a8 Dummy {f00=0x00c2, f01=0x0190, f02=» $ P PERF SQWRIT,FD01,=D'1',CPCKBUF 7 P BOK ADM0550 7 , PADM0568 7 @ * P PERF LAMPOF,=W'2047' SWITCH OFF LAMPS 7 P " P PERF LAMPON,=W'2' LAMP 10 ON 7 ~ P B ADM0515 READ SOP 7 PADM0570 7 0 P PERF SQWRIT,FD01,=D'1',CPCKBUF WRITE SLUTD 7 P BNO
0x3250a8…32523c Dummy {f00=0x00c2, f01=0x0190, f02=»ST PART OF 7 n P LAST CORRECT RECORD 8 P SET SPPROMPT 8 0 P ATTFMT KONV4FMT 8 F P PERF SPCLRA CONTINUE ? 8 ^ 2 P IB SPBINW2,A0561,A0561,A0562,A0563,A0561, C 8 ~ P A0561,A0561,A0561,A0564 8 P B ADM0560 8 PA0561 MAK 8 P B ADM0560 8
0x32523c…3253d0 Dummy {f00=0x00c2, f01=0x0190, f02=»* 8 PA0563 KRE, TRY NEXT 9 P SET CERRORFL 9 ( P B ADM0550 9 > P* 9 P PA0564 KVIT 9 Z P CLEAR CERRORFL 9 n P B ADM0565 WRITE SLUTD 9 P* 9 P* 9 PADM0565 END OF DATA 9 P MOVE GSWBCD3,CRECNR 9 $ P SUB GSWBCD3,=D'2' SET
0x3253d0…325564 Dummy {f00=0x00c2, f01=0x0190, f02=» P* : P* : ADM05006 SOP 6 : * % PERF ASGVOL,CBIN1 ASSIGN SYSTEM DISK : 0 BNOK ADM0513 : ^ $ PERF BCKUP,=W'1' WITHOUT BACKUP : t BNOK ADM0513 : B ADM05RET : P* : P* : P* : P* : P* : ADM05007 SOP 7
0x325564…3256f8 Dummy {f00=0x00c2, f01=0x0190, f02=»* : * ; * ; * ; P* ; ( PADM05RET ; 2 P PERF LAMPOF,=W'2047' ; B P SET SPKEYFLG ; ` P CLEAR CCONVFLG ; v P B ADMRET ; P* ; P* ; PADM6 ; P* DATATRANSMISSION * ; P B ADM600 ; P* ; P* ; PADM7 ;
0x3256f8…32588c Dummy {f00=0x00c2, f01=0x018e, f02=»DUMMY *** ; P B ADMRET < P* < ( P* < 2 PADM9 < < P******************** < H P* < d & P* SET DEFAULT LINE NUMBER < n P* < P******************** < PADM0900 < P MOVE GSWBCD5,GTDFLIN < , P PERF FRMXSP,CBIN13 ASK FOR
0x32588c…325a20 Dummy {f00=0x00c2, f01=0x0190, f02=» < P CLEAR SPPROMPT = P MOVE GTDFLIN,GSWBCD5 = PADM09RET = > P CMP CBIN0,CBIN0 SET CR = 0 = N P B ADMRET = r P* = P* = PADM10 = P TBF GTKASSE,ADM10RET = P******************** = P* = 2 P* SET OR CLEAR SUPPLE
0x325a20…325bb4 (4, 217) Dummy {f00=0x00c2, f01=0x0190, f02=» P B SUPLOK > PSUPL10 > P MOVE TTSUPMRK,=C' ' > $ P CLEAR TTSUPFLG > @ PSUPLOK > X P SET GTREGFLG > f P PERF SPINF1 > | PADM10RET > $ P CMP CBIN0,CBIN0 SET CR = 0, OK > P B ADMRET > P* > P* > PADM11 > P* LOCAL INQU
0x325bb4…325d48 Dummy {f00=0x00c2, f01=0x0190, f02=»WSTR9,=C'SUBTOTAL ' > P PERF SPCLRA ? * P IB SPBINW2,ADM11RET,ADM11RET,ADM1110 ? 0 P B ADM11RET ? ^ PADM1110 ? r P MOVE GSWBIN1,GSWBCD3 ? 0 P IB GSWBIN1,SPGL01,SPGL02,SPGL03,SPGL04, C ? , P SPGL05,SPGL06,SPGL07,SPGL08,SPGL09, C ? P SP
0x325d48…325edc Dummy {f00=0x00c2, f01=0x0190, f02=» ADM11RET ? P* @ PSPGL03 @ P PERF CLEDB @ * P B ADM11RET @ > P* @ R PSPGL04 @ P MOVE GSWBCD3,CTASKNR @ j P SET SPPROMPT @ P ATTFMT SPGFM04 @ P PERF SPCLRA @ P B ADM11RET @ PSPGL05 @ " P PERF KTPRT UDSKRIV KONTOPLA
0x325edc…326070 Dummy {f00=0x00c2, f01=0x0190, f02=»-1' VEND @ P MOVE GSWBCD6,TTCASH A P ADD GSWBCD6,TTEJEDB A , P SET SPPROMPT A H P ATTFMT SPGFM17 A ^ P PERF SPCLRA A v $ P MUL TTEJEDB,=D'-1' VEND TILBAGE A P B ADM11RET A P* A P* A SPGL08 LOCAL INQUIRIES A 2 . TBT GTLOKSPG,
0x326070…326204 Dummy {f00=0x00c2, f01=0x0190, f02=»5 A SET SPPROMPT B " ATTFMT SPGFM08 INQUIRY FORMAT B PERF SPCLRA B F < 7* GTLBNRIN CONTAINS FIRST (OR ONLY) TRANSACTION B Z 2 -* OF INTEREST (EKSP. LB.NR.) B : 5* GSWBCD6 CONTAINS FIELD NO. OF WANTED FIELD B
0x326204…326398 Dummy {f00=0x00c2, f01=0x0190, f02=»05 B * C $ SPG0810 SPG-CONDITION ENTERED C P MOVE SPKEY,CBIN3 C < SET GTLOKSPG C V P TBT GTGLSPG,SPG0815 C l 0 P MOVE GTRECNR,CRECNR POINT TO START OF DSET C P B SPG0820 C PSPG0815 C P MOVE GTRECNR,CGLRECNR C * C SP
0x326398…32652c Dummy {f00=0x00c2, f01=0x018e, f02=»EW REGSET C " P CBNL GTRECNR,CRECNR,SPG08RET D ( P PERF RGREAD,DK02,=D'2' READ RECORD D 8 " P BNOK SPG0820 IF TRANS 11, OR D d P NOT SAME MACHINE, OR D P DISK ERROR D P B SPG0828 D PSPG0825 D P OLD REGSET D $ P CBNL GTRECNR,CG
0x32652c…3266c0 Dummy {f00=0x00c2, f01=0x0190, f02=» P DISK ERROR E PSPG0828 E & P CBE GTREGNR,=D'12',SPG0820 TR 12 E * * E T * SAME MACHINE: E ^ * GTREGNR TRANSTYPE E z ( $* GTREGDEX TRANSTYPE - INDEX E * CEORFLG TRUE E * TTEORFLG TRUE E .
0x3266c0…326854 (4, 218) Dummy {f00=0x00c2, f01=0x018e, f02=» - E n * &* GTREGF - - - - F 2 -* DEB/KRE RELEVANT ROUTINE PERFORMED F : * GTDBKRC F p * GTDBKRS F * TTDKBCD F * TTDKDEX F * F CALL EMPTYT,GTLBNRIN F & " BNOK SPG0830 IF
0x326854…3269e8 Dummy {f00=0x00c2, f01=0x0190, f02=» F | P* NOT YET FOUND G P* JUMP TO FIND RECORD G $ P MOVE GSWBIN1,GTLBNR G F " P SUB GTRECNR,GSWBIN1 GTRECNR= G b $ P MOVE GSWBIN1,GTLBNRIN GTRECNR - G . P ADD GTRECNR,GSWBIN1 ( GTLBNR - GTLBNRIN ) G P B SPG0822 G * G SPG0830 G
0x3269e8…326b7c Dummy {f00=0x00c2, f01=0x018e, f02=»PGFOUND RECORD FOUND G | * H SPG0850 CHECK FIELD H & * % MOVE GSWBIN1,GSWBCD6 GET FIELD INDEX H D " MOVE GSWBIN2,CFLTDEX(GSWBIN1) H r " MOVE GSWBIN2,GTUSED(GSWBIN2) H . * CBE GSWBIN1,GSWBIN2,SPG0860 FIELD PRESENT H MUL GSWBIN2,=W'-1' H
0x326b7c…326d10 Dummy {f00=0x00c2, f01=0x0190, f02=» " MOVE GSWBIN2,CFLTDEX(GSWBIN1) I * % CBNE GSWBCD7,GTDUPF(GSWBIN2),SPG0820 I * * I X * I b $ SPGFOUND A WANTED RECORD FOUND I l * I P MOVE TTDBKRM,=C'K' I P CBE TTDKDEX,CBIN1,SPG0870 I P MOVE TTDBKRM,=C'D' I PSPG0870 I P
0x326d10…326ea4 Dummy {f00=0x00c2, f01=0x0190, f02=»PMRK,=C' ' I PSPG0880 J * J " PERF TRPAGE J , " SET GTDIVTR SET DIVERSE TRANS J @ P CLEAR GTREGFLG J f * J ~ B ADM11RET J * J PSPG08RET J P MOVE SPKEY,CBIN1 J P CLEAR GTLOKSPG J P CLEAR TTSUPFLG J P MOVE TT
0x326ea4…327038 Dummy {f00=0x00c2, f01=0x018e, f02=»9MAK ALLOWED? J ~ * P TBF GTKASSE,SPG09MAK ONLY IF 'KASSE' K $ P SET GTGLSPG INDICATE OLD REGSET K D P B SPG0805 K l PSPG09MAK K ~ P B ADM11RET K P* K P* K P* K 2 P* PRINT OUT OF SPECIFIED TRANSACTIONS K P* K PSPGL10
0x327038…3271cc Dummy {f00=0x00c2, f01=0x0190, f02=» P TEST GTKASSE L * P BZ SPG10MAK ONLY IF 'KASSE FUNCTIONS L * P CLEAR GTGLSPG INDICATE CURRENT REGSET L H PSPG1005 L v P SET SPPROMPT L " P ATTFMT SPGFM10 SCREEN FORMAT L P PERF SPCLRA L < P* GTLBNRIN HIGHEST EKS.LBNR WANTED (FIRST PR
0x3271cc…327360 Dummy {f00=0x00c2, f01=0x0190, f02=»SPG1010 L P SET GTLOKSPG M ( P CLEAR TTTSTFLG INITIATE FIRST TIME M & P TBT GTGLSPG,SPG1015 M R . P MOVE GTRECNR,CRECNR POINT TO LAST RECORD M n P B SPG1020 M PSPG1015 M P MOVE GTRECNR,CGLRECNR M PSPG1020 M & P SUB GTRECNR,CBIN1 PREVI
0x327360…3274f4 (4, 219) Dummy {f00=0x00c3, f01=0x0190, f02=»ECNR,SPG1090 M ( P PERF RGREAD,DK02,=D'2' READ RECORD N P BNOK SPG1020 IF TR 11, OR N @ P NOT SAME MACHINE, OR N b P DISK ERROR N P B SPG1028 N PSPG1025 N P OLD REGSET N " P CBNL GTRECNR,CGLRECNR,SPG1090 N ( P PERF RGREAD,DK05,
0x3274f4…327688 Dummy {f00=0x00c3, f01=0x0190, f02=»TREGNR,=D'12',SPG1020 TR 12 N ( P CBL GTLBNR,GSWBCD7,SPG1090 TOO FAR O $ . P CMP GTLBNR,GTLBNRIN ACTUAL - WANTED EKSP. O P $ P BL SPG1040 WANTED EKSP. PASSED O P BE SPG1040 FOUND O P* NOT YET FOUND O P MOVE GSWBIN1,GTLBNR O " P SUB GTRECNR
0x327688…32781c Dummy {f00=0x00c3, f01=0x0190, f02=» O PSPG1040 P P MOVE TTDBKRM,=C'K' P P CBE TTDKDEX,CBIN1,SPG1060 P 4 P MOVE TTDBKRM,=C'D' P V PSPG1060 P r P SET TTSUPFLG P P MOVE TTSUPMRK,=C'S' P & P CBNE GTUSED(CBIN6),CBIN0,SPG1070 P P CLEAR TTSUPFLG P P MOVE TTSUPMRK,=C'
0x32781c…3279b0 Dummy {f00=0x00c3, f01=0x0190, f02=» P P PERF CLEAR8 Q P MOVE TTLINNR,=D'6' LINE 25 Q P MOVE TTCYM,=C'K' KVIT Q @ PSPG1080 Q ^ P MOVE GSWBIN1,TTLINNR Q n . P DSC1 KVOUCH,POS,GSWBIN1 POSITION VOUCHER Q P PERF FRMTKV GET FORMAT Q P EDWRT KVOUCH,GTSTRFMT WRITE Q P PERF
0x3279b0…327b44 Dummy {f00=0x00c3, f01=0x0190, f02=»TLBNRIN,=D'1' NEXT LBNR Q P B SPG1020 R PSPG1090 R 2 P TBF TTTSTFLG,SPG10RET R B P CLEAR TTSUPFLG R ` P MOVE TTSUPMRK,=C' ' R x P MOVE TTCYM,=C' ' R P WAIT KVOUCH R P DSC0 KVOUCH,RLEAS R PSPG10RET R P CLEAR GTLOKSPG R PSPG1
0x327b44…327cd8 Dummy {f00=0x00c3, f01=0x0190, f02=» TBT GTCYFLG,SPG11MAK NOT IN CYCLE R ( P TBT TTLSTFLG,SPG11MAK NOT IN LISTE S * * P TBF GTKASSE,SPG11MAK ONLY IF 'KASSE' S V P SET GTGLSPG S P B SPG1005 S PSPG11MAK S P B ADM11RET S P* S P* S P* S P* S PADM11RET S P C
0x327cd8…327e6c Dummy {f00=0x00c3, f01=0x0190, f02=»BT GTTESTFL,ADM12RET S ( P TBF GTMASTFL,ADM1250 DISKETTE SKIFT T P SET SPPROMPT T H P ATTFMT ADM12FRM T ^ P PERF SPCLRA T v * P IB SPBINW2,ADM12RET,ADM12RET,ADM1210 T P B ADM12RET T PADM1210 T P SET CSKIFTFL T P PERF SKIFT T P B
0x327e6c…328000 Dummy {f00=0x00c3, f01=0x0190, f02=» P TBF CWFLAG,FDEXIT U . P PERF SPLIN8,CBIN8,CBIN2 'DISKETTE SKIFT' U PFD10 U P P DELAY CBIN20 WAIT A SECOND U P TBT CSKIFTFL,FD10 FINISHED? U P YES U P MOVE GSWBIN1,CBIN11 U P PERF FRMXJT,GSWBIN1 U P EDWRT .NW,KJTAPE,GTSTRFMT U
0x328000…328194 (4, 220) Dummy {f00=0x00c3, f01=0x0190, f02=» U PADM12RET V P B ADMRET V P* V * P* V 4 PADM13 V > 2 P********************************************* V L P* V & P* SET CLEAR AUTOSUM FLAG V P* V 4 P************************************************ V P* V P TBT G
0x328194…328328 Dummy {f00=0x00c3, f01=0x0190, f02=»L CLEAR AUTOSUM V PADM13OK W P CMP CBIN0,CBIN0 W ( P B ADMRET W @ P* W R P* W PADM14 W f 4 P*********************************************** W t P* W " P* SET 'DAGS DATO' W P* W 4 P**********************************
0x328328…3284bc Dummy {f00=0x00c3, f01=0x0190, f02=»ADM1410 W P ATTFMT OPENFRM X P PERF SPCLRN X ( * P IB SPBINW2,ADM14000,ADM14000,ADM14RET X < P B ADM14000 X j PADM14RET X ~ P CLEAR SPME X P CLEAR GTDYFLG X P B ADMRET X P* X P* X PADM15 X P* DUMMY X P B ADMRET X
0x3284bc…328650 Dummy {f00=0x00c3, f01=0x0190, f02=»***************** X v P* Y ( P* SET NEW 'KASSEKONTONR' Y $ P* Y P 0 P******************************************* Y Z P* Y PADM17000 Y P TBT GTKASSE,ADM17RET Y P MOVE SPKEY,CBIN2 Y P SET SPPROMPT Y P PERF PACKCL Y
0x328650…3287e4 Dummy {f00=0x00c3, f01=0x018e, f02=»BIN4),TTSTCASH Y P ATTFMT ADM17FRM Z P PERF SPCLRN Z . & P CBE GTDUPF(CBIN1),=D'0',ADM17000 Z B * P IB SPBINW2,ADM17RET,ADM17RET,ADM1730 Z l P B ADM17000 Z PADM1730 Z P MOVE TTCASHAC,GTDUPF(CBIN1) Z P MOVE TTSTCASH,GTDUPF(CBIN4) Z P P
0x3287e4…328978 Dummy {f00=0x00c3, f01=0x0190, f02=» Z P VERSUR KONTONR [ P TBT GTKASSE,ADM18RET [ " P MOVE SPKEY,CBIN2 [ @ P SET SPPROMPT [ Z P ATTFMT ADM18FRM [ p P PERF SPCLRN [ P CBE TVERSUR,=D'0',ADM18000 [ * P IB SPBINW2,ADM18RET,ADM18RET,ADM18RET [ P B ADM18000 [ PADM18R
0x328978…328b0c Dummy {f00=0x00c3, f01=0x0190, f02=» [ P******************** PCALCBEG $ P MOVE SPKEY,CBIN1 4 * P MOVE GSWBCD2,=D'0' TOTAL=0 N & P MOVE GSWBCD1,=D'0' NUMBER=0 | ( P PERF FRMXTA,CBIN1 '* ' ON TALLY P PERF WTALLY P ATTFMT CALFRM02 P SET SPPRO
0x328b0c…328ca0 Dummy {f00=0x00c3, f01=0x0190, f02=»NW2,CALCNEXT,CALCNEXT,CALCADD,CALCNEG P CBE SPBINW2,=W'7',CALCSUB ] . P CBE SPBINW2,=W'15',CALCTOT ] P P B CALCNEXT ] t PCALCNEG ] P MUL GSWBCD1,=D'-1' ] PCALCADD ] P ADD GSWBCD2,GSWBCD1 ] P MOVE GSWBCD6,GSWBCD1 ] P PERF
0x328ca0…328e34 (4, 221) Dummy {f00=0x00c3, f01=0x018e, f02=»TR9,=C'SUBTOTAL ' ] P PERF FRMXTA,CBIN3 ^ & P PERF WTALLY SUBTOTAL ON TALLY ^ 4 P B CALCNEXT ^ ^ PCALCTOT ^ r P MOVE GSWBCD6,GSWBCD2 ^ P MOVE GSWSTR9,=C'TOTAL ' ^ P PERF FRMXTA,CBIN2 ^ $ P PERF WTALLY TOTAL ON TALLY ^ P SET
0x328e34…328fc8 Dummy {f00=0x00c3, f01=0x0190, f02=» ^ P* _ PADM20 _ 8 P**************************************************** _ P* _ 0 P* CONTROLDIGIT-VALUE CALCULATION _ f P* _ 8 P**************************************************** _ P* _ P SET SPPROMPT _ PCALCD00
0x328fc8…32915c Dummy {f00=0x00c3, f01=0x018e, f02=»BCD5,=D'10',CALCD06 _ 6 P EDWRT .NW,KTALLY,CCDFRM03 CONTROLDIGIT ON TALLY ` P CLEAR GTDYFLG ` V PCALCD05 ` l P ATTFMT CCDFRM02 ` | * P PERF SPCLRA CONTROLDIGIT ON SCREEN ` P CBE SPBINW2,=W'3',CALCD00 ` P B CALCDRET ` PCALCD06 ` ( P
0x32915c…3292f0 Dummy {f00=0x00c3, f01=0x0190, f02=» P* a PADM21 a P******************** a P* a 8 " P* SET/CLEAR TEST MODE a B " P* (NO WRITE ON DISKS a h . P* T ON JOURNAL, VOUCHER, SCREEN a ( P* NO 'BEHOLDNINGST[LLERE' a P* a P******************
0x3292f0…329484 Dummy {f00=0x00c3, f01=0x0190, f02=»ONFW,TTASKNR a P MOVE GTTESTMK,=C'T' b P SET GTTESTFL b 0 P B ADM21RET b F PADM2150 b Z P PERF WRITJT,=W'10' b j P CLEAR GTTESTFL b P MOVE GTTESTMK,=C' ' b P PERF TCONFR,TTASKNR b PADM21RET b P B ADMRET b P* b P* b
0x329484…329618 Dummy {f00=0x00c3, f01=0x018e, f02=» TBT GTKASSE,ADM22RET KASSE CLOSED? b P MOVE SPKEY,CBIN2 c , P MOVE GSWBCD5,TTSTLBNR c F P MUL GSWBCD5,=D'-1' c d PADM2200 c P SET SPPROMPT c P ATTFMT ADM22FRM c P PERF SPCLRN c * P IB SPBINW2,ADM22RET,ADM22RET,ADM2210 c P B ADM22
0x329618…3297ac Dummy {f00=0x00c3, f01=0x0190, f02=» P EJECT d PADM23 d P* MODPOSTERING * d P PERF MODP d 8 P B ADMRET d J P* d PADM24 d f P* KONTOKORT * d t P PERF KORT d P B ADMRET d P* d PADM25 d P* RECEIPT * d P PERF KVIT d P B ADMRET d P* d P
0x3297ac…329940 Dummy {f00=0x00c3, f01=0x0190, f02=» ADMRET d P* e PADM28 e P* SUBTOTAL * e ( P PERF SUBTOT e < P B ADMRET e P P* e b P EJECT e l PADM29 e z P******************** e P* e $ P* TEST PRINT ON VOUCHER e P* e P******************** e P DSC0 KVOUCH
0x329940…329ad4 (4, 222) Dummy {f00=0x00c3, f01=0x0190, f02=»OUTOP e PADM2910 f P CBL GSWBIN1,CBIN6,ADM29RET f . P DSC1 KVOUCH,POS,GSWBIN1 POSITION ON LINE f B " P PERF FRMXVO,CBIN16 GET FORMAT f t P EDWRT KVOUCH,GTSTRFMT PRINT f P SUB GSWBIN1,CBIN8 f P B ADM2910 f PADM29RET f P DSC0 KVOUCH,R
0x329ad4…329c68 Dummy {f00=0x00c3, f01=0x0190, f02=» PADM31 g P* CYCLE START * g P PERF CYK,CBIN1 g * P B ADMRET g B P* g T PADM32 g ^ P* STABEL START * g l P PERF CYK,CBIN2 g P B ADMRET g P* g PADM33 g P* DUMMY * g P B ADMRET g P* g PADM34 g $ P* 4-CY
0x329c68…329dfc Dummy {f00=0x00c3, f01=0x0190, f02=»F DIVTR g P B ADMRET h P* h " P EJECT h , P* h : P* h D P* h N P* END OF ADM FUNCTIONS h X P* h z PADMRET h P RET h P PEND h P EJECT h PRGA300 h P PERF ADM,CBIN11 SPG h P B RGADM h P EJECT h 6 P******
0x329dfc…329f90 Dummy {f00=0x00c3, f01=0x0190, f02=»************************************** h PTR2GEN PROC DBKR i . P MOVE TTDKDEX,DBKR i F P CBNE TTDKDEX,=W'0',TR2DBKR i ` P MOVE TTDKDEX,CBIN1 i $ P CBL GTDUPF(CBIN4),=D'0',TR2DBKR i P MOVE TTDKDEX,CBIN2 i PTR2DBKR i P PERFI TTDKDEX,SETKR
0x329f90…32a124 Dummy {f00=0x00c3, f01=0x0190, f02=»************************ i p P* j < P* WAHEAD - GRASP AND WRITE HEADLINE ON VOUCHER j * P* j j < P******************************************************** j t PWAHEAD PROC VOXDEX j P EDWRT SCREEN,CLFRM03 j P PERF SPLIN8,CBIN5,CBIN2 j
0x32a124…32a2b8 Dummy {f00=0x00c3, f01=0x0190, f02=»ET j P PEND k P EJECT k > P********************************************************* k & P* k h ( P* WALINE WRITE ACCUMULATORLINE k r P* k > P********************************************************** k PWALINE PROC LINDEX k P PER
0x32a2b8…32a44c Dummy {f00=0x00c3, f01=0x018e, f02=»PROC k P************************* l P* l . : P* SKIFT - THIS PROCEDURE TAKES HAND OF SHIFT l 8 , P* OF DISKS, IS ACTIVATED AFTER l v P* 12 ADM l P* l P************************ l PSK00 l " P TBF CPFLG,SK10 DI
0x32a44c…32a5e0 Dummy {f00=0x00c3, f01=0x0190, f02=» . P PERF SPLIN8,CBIN8,CBIN2 'DISKETTE SKIFT' m P TBF CWFLAG,SK15 m 6 P SUB CRECBCD,=D'1' m N & P PERF SLUTID,CRECBCD WRITE 'SLUTD' m h * P PERF RAWRIT,DK02,=D'2',CPCKBUF,CRECNR m PSK15 m P PERF WRITID,CBIN2,CBIN2 m P PERF CLSVOL,CBIN2 m P P
0x32a5e0…32a774 (4, 223) Dummy {f00=0x00c4, f01=0x0190, f02=»2,CBIN9,SK120 m P PERF ASGVOL,CBIN2 n P BNOK SK120 n 0 P PERF LAMPOF,=W'2047' n D P MOVE CRECNR,CBIN1 n b P MOVE CRECBCD,=D'0' n | P TBF CWFLAG,SK130 n P PERF STRTWR n P BNOK SK120 n PSK130 n " P PERF CNFWRT REWRITE CONFDATA n
0x32a774…32a908 Dummy {f00=0x00c4, f01=0x018e, f02=»JT,=W'11' n P CLEAR CSKIFTFL o P CLEAR CSKIFTWN o * P CLEAR CPFLG DISC FREE o B P RET o b P PEND o n P EJECT o | P* o PLAMPON PROC $NR o P PLIT $NR o * P************************************** o P* o ( P* LAMPON - FIRE LA
0x32a908…32aa9c Dummy {f00=0x00c4, f01=0x0190, f02=» o . P***************************************** p P MOVE GSWBIN2,$NR p : P DSC1 DSSOPO,ON,GSWBIN2 p T P RET p t P PEND p P* p PLAMPOF PROC $NR p P PLIT $NR p . P***************************************** p P* p . P* LAMPOF -
0x32aa9c…32ac30 Dummy {f00=0x00c4, f01=0x0190, f02=»S IN PARAM p P* q 0 P******************************************** q P MOVE GSWBIN2,$NR q P P DSC1 DSSOPO,OFF,GSWBIN2 q j P RET q P PEND q P* q PSOPRD PROC q 2 P********************************************* q P* q * P* SOPRD
0x32ac30…32adc4 Dummy {f00=0x00c4, f01=0x0190, f02=» q | , P KI DSSOPI,SOPINP,DUMTAB,GSWBIN1,GSWBIN2 r P BNOK SOPR10 r 8 P RET r L P PEND r X P* r f P EJECT r p PSTRTWR PROC r ~ P********************* r P* r 6 P* STRTWR - SET UP AND WRITE START RECORD r P* r P* r P
0x32adc4…32af58 Dummy {f00=0x00c4, f01=0x018e, f02=»CNR,CBIN1 r P PERF RADEL,DK02,CRECNR s P BNOK STRTNOK s 2 P CMP CBIN0,CBIN0 OK s H P RET s d PSTRTNOK s p P CMP CBIN1,CBIN0 s P RET s P PEND s P EJECT s PSTRTID PROC VOLID s P******************** s P* s : P*
0x32af58…32b0ec Dummy {f00=0x00c4, f01=0x0190, f02=» P SET CSWFLAG t P CBE CRECLGD,=W'128',STRT10 t P CLEAR CSWFLAG t < PSTRT10 t R P MOVE GSWBIN6,CBIN2 t ` P EDIT CPCKBUF,PCKINIT t | P EDIT CPCKBUF,STARTFR t P MOVE GSWBCD3,VOLID t P EDIT GSWSTR20,FRVOLID t P MOVE GSWBIN1,=W'40' t
0x32b0ec…32b280 Dummy {f00=0x00c4, f01=0x018e, f02=» P******************** u P* u 2 P* SLUTID - SETS UP A SLUTD IN CPCKBUF u * P* u ` P* u j P******************** u t P SET CSWFLAG u P CBE CRECLGD,=W'128',SLUT10 u P CLEAR CSWFLAG u PSLUT10 u P EDIT CPCKBUF,PCKINIT u
0x32b280…32b414 (4, 224) Dummy {f00=0x00c4, f01=0x0190, f02=» u ******************** v * v $ : 6* THIS PROCEDURE TAKES CARE OF ADMINISTRATION v . * OB BACKUP v l * v 0 ,* CALL: PERF BCKUP,<=W'X'> v ( $* $OPT = 1 : WITHOUT BACKUP v & !* $OPT = 2 :
0x32b414…32b5a8 Dummy {f00=0x00c4, f01=0x0190, f02=» CVOLNO,=D'1' NEXT VOLUME NO v & " PERF CNFWRT REWRITE CONFIGURATION w $ SUB CVOLNO,=D'1' w N $ CBE CBIN1,$OPT,BCK100 NO BACKUP w h * w * w * BACKUP w * w BCK000 w $ PERF LAMPOF,=W'2047' LAMPS OFF w BCK005 w P
0x32b5a8…32b73c Dummy {f00=0x00c4, f01=0x0190, f02=»F LAMPON,=W'512' LAMP 2 w BCK010 x PERF SOPRD READ SOP LAMPS x . IB GSWBIN2, C x P , ( BSOP10,BSOP09,BSOP08,BSOP07,BSOP06, C x h ( $ BSOP05,BSOP04,BSOP03,BSOP02,BSOP01 x BSOP03 x BSOP05 x BSOP06 x BSOP08 x BSOP09 x
0x32b73c…32b8d0 Dummy {f00=0x00c4, f01=0x0190, f02=»MPON,=W'1024' LAMP 1 x 4 / PERF BACKUP,DK01,=D'1',=W'32',CCONBUF0,=W'199' y BNOK BCK050 y T P ADD CVOLNO,=D'1' y h & P PERF WRITID,CBIN6,CBIN4 BACKUP OK y P SUB CVOLNO,=D'1' y 4 / PERF CONRDX,CCONBUF0,CBIN1 RESTORE BUFFER AREA y B BCK000
0x32b8d0…32ba64 Dummy {f00=0x00c4, f01=0x018e, f02=»9005 y r " P TBF CGLREGFL,BCK010 ALLOWED? z P B BCK02 z 2 P* z B P***** z L & PBCK02 COPY FD999002 TO FD999005 z Z $ P PERF LAMPOF,=W'2047' LAMPS OFF z P PERF LAMPON,=W'512' LAMP 2 z P SET CPFLG z $ P PERF ASGVOL,CBIN2 ASSIGN REGSET z
0x32ba64…32bbf8 Dummy {f00=0x00c4, f01=0x0190, f02=» z h 4 P PERF RAREAD,DK02,=D'2',CPCKBUF,GSWBIN1,CGLRECNR { P BNOK BCK0270 ERROR { @ & P CBE GTWBCD1,=D'4',BCK0280 NO DATA { P MOVE GSWSTR20,=C'SLUTD' { P MOVE GSWBIN5,CBIN0 { 6 P MATCH GSWSTR20,GSWBIN5,CBIN5,CPCKBUF,CBIN0,CBIN5 { P BE BCK0280
0x32bbf8…32bd8c Dummy {f00=0x00c4, f01=0x0190, f02=» PBCK0280 FINISH | P MOVE TTGLREC,CGLRECNR | , P PERF TCONFW,CBIN1 SAVE LAST RECORD NO. | : PBCK0290 | j P CLEAR CPFLG | z $ P DSC0 DK02,CLOSE CLOSE VOLUME 2 | P B BCK02R | P* | P***** | PBCK02R | P B BCK000 | * |
0x32bd8c…32bf20 Dummy {f00=0x00c4, f01=0x0190, f02=»'30',CKTBUF,=W'128' | v BNOK BCK005 NOK } B BCK000 OK } 4 * } H BSOP07 FINISH } R $ PERF LAMPOF,=W'2047' LAMPS OFF } j * & PERF ASGVOL,CBIN1 ASSIGN SYSTEM FILES } BNOK BCKNOK } BCK100 } PERF ASGVOL,CBIN2 } BNOK BCKNOK
0x32bf20…32c0b4 (4, 225) Dummy {f00=0x00c4, f01=0x018e, f02=»CKNOK } * ~ BCKNOK ~ CMP CBIN1,CBIN0 NOK ~ & RET ~ B * ~ N BCKOK ~ X PERF WRITID,CBIN2,CBIN1 ~ f CMP CBIN0,CBIN0 ~ RET ~ PEND ~ P EJECT ~ P* ~ P* ~ 6 P**********************************************
0x32c0b4…32c248 Dummy {f00=0x00c4, f01=0x0190, f02=» ~ | P* PFMTFKI FRMT P FNL & P FKI 1 2 P FMEL 'B',TSWBCD2 @ P FMEND Z P* h PPCKINIT FRMT r P FBT CSWFLAG,INIT10 P FILLR ' ',40 P FILLR ' ',40 P FILLR X'00',48 P FEXIT PINIT10 P FILLR
0x32c248…32c3dc Dummy {f00=0x00c4, f01=0x0190, f02=»NG ' | P FILLR X'07',1 P FLINK FMTFKI " P FMEND 8 P* F PKONV4FMT FRMT P P FSL f P FCOPY ='KORREKT' r P FILLR '?',1 P FILLR X'07',1 P FLINK FMTFKI P FMEND P* PFRVOLID FRMT P FMEL '999999',C
0x32c3dc…32c570 Dummy {f00=0x00c4, f01=0x0190, f02=» z P FMEND P* PSTARTFR FRMT P FCOPY =C'Z300 ' 4 " P FMEL '9999',CKMDNR KOMMUNE NR L P FILLR C'2',1 r P FCOPY CVOL(GSWBIN6) P FMEL '999',CRELDAY DAG NR P FILLR C'1',1 MIXED TRANS P FILLR ' ',6 P FMEND
0x32c570…32c704 Dummy {f00=0x00c4, f01=0x0190, f02=»BCD3 P FMEND P* P* $ POPENFRM FRMT . P FSL B P FCOPY ='ADM ' N P FBT GTDYFLG,OPFR05 f P FTAB 1 P FCOPY =C'KASSE]BNING' POPFR05 P FNL P FBF GTMASTFL,OPFR10 P FCOPY =C'DAGS-DATO' . P FKI 1
0x32c704…32c898 Dummy {f00=0x00c4, f01=0x0190, f02=»L=3,ME,APPL=102 ~ P FMEL 'ZZZ',CRELDAY P FNL 4 POPFR10 @ P FCOPY ='POST-DATO' N * P FKI 11,MINL=6,MAXL=6,ME,SCHK=2,REWRT j P FMEL '99E-99E-99',GTDATO P FNL P FCOPY =C'DAG NR' & P FKI 11,MINL=1,MAXL=3,ME,APPL=107
0x32c898…32ca2c Dummy {f00=0x00c4, f01=0x0190, f02=»ADML0001 P FTAB 6 P FCOPY ='EJ-EDB T[LLER ' P FNL @ P FCOPY ='NR' L P FILLR ' ',2 ` P FCOPY ='KONTONR' t P FNL P FBF GTDYFLG,AFRM20 $ P FKI 1,MINL=3,MAXL=3,ME,APPL=100 PAFRM20 P FMEL 'ZZZ',GSWBCD1 P
0x32ca2c…32cbc0 Dummy {f00=0x00c4, f01=0x0190, f02=»MEND P* PADM2FRM1 FRMT P FSL , P FBT GTSPGFLG,ADML0201 8 P FCOPY ='ADM ' V PADML0201 n P FTAB 6 ~ P FCOPY ='BEHOLDNINGST[LLERE' P FNL P FCOPY ='NR' P FILLR ' ',2 P FCOPY ='KONTONR' P FILLR '
0x32cbc0…32cd54 (4, 226) Dummy {f00=0x00c4, f01=0x018e, f02=»L 'ZZ',GSWBCD1 P FTAB 5 P FBT GTDYFLG,AFRM210 & P FBT GTSPGFLG,AFRM225 B P FBT GTTESTFL,AFRM225 ` " P FKI 5,MAXL=10,ME,SCHK=1,REWRT ~ PAFRM225 & P FMEL 'ZZZZZZZZE-ZZ',GTDUPF(CBIN1) P FTAB 18 P FBT GTSPGFLG,AFRM230
0x32cd54…32cee8 Dummy {f00=0x00c4, f01=0x0190, f02=» ^ P FLINK FMTFKI PAFRM210 P FMEND . P* < PADM17FRM FRMT F P FSL P FBT GTSPGFLG,ADML1705 h P FCOPY ='ADM ' PADML1705 P FTAB 6 P FCOPY ='KASSE-KONTO ' P FNL P FCOPY ='KONTONR' P FILLR
0x32cee8…32d07c Dummy {f00=0x00c4, f01=0x0190, f02=» FMEL '99999999E-99',GTDUPF(CBIN1) P FKI 14,MAXL=14,REWRT,SCHK=4 * . P FMEL 'TTT.TTT.TTT.TT9.99-',GTDUPF(CBIN4) N P FBF GTSPGFLG,ADM1702 P FLINK FMTFKI PADM1702 P FMEND P* PADM18FRM FRMT P FSL P FCOPY ='A
0x32d07c…32d210 Dummy {f00=0x00c4, f01=0x0190, f02=» p P FMEL '99999999E-99',TVERSUR P FMEND , P* : PADM12FRM FRMT D P FSL Z P FCOPY ='DISKETTE SKIFT ' f P FILLR X'07',1 P FLINK FMTFKI P FMEND P* PCLFRM01 FRMT P FSL P FCOPY =C'KASSELUKNING'
0x32d210…32d3a4 Dummy {f00=0x00c4, f01=0x0190, f02=» x P FNL P FCOPY GSWSTR20 TEXT " P FMEL 'ZZ',GTWBCD1 COUNTER NR 0 P FILLR ' ',4 V P FCOPY GTDBKRC DEB-KRE j P FNL P FCOPY =C'KONTONR' P FILLR ' ',5 P FLINK FBELOB P FNL & P FMEL '99999999E-99',GTDUPF(CBIN1)
0x32d3a4…32d538 Dummy {f00=0x00c4, f01=0x018e, f02=»F0301 P FCOPY =C'KASSELUKNING' PCLF0301 . P FNL > P FCOPY GSWSTR20 J P FMEND b P* p PCLFRM04 FRMT z P FSL P FBT GTSPGFLG,CLF0401 P FCOPY ='KASSELUKNING' PCLF0401 P FNL P FCOPY ='BEHOLDNINGST[
0x32d538…32d6cc Dummy {f00=0x00c4, f01=0x0190, f02=» P FNL P FCOPY ='SLET SALDO ' P FTAB 15 . P FCOPY =' KRE' > PCLF0402 T P FNL d P FCOPY ='SUBTOTAL ' p P FTAB 16 P FCOPY ='KVIT' P FNL P FNL P FNL P FILLR ' ',1 P FCOPY ='BILAG' P FLINK
0x32d6cc…32d860 Dummy {f00=0x00c4, f01=0x0190, f02=»AXL=2 P FMEL 'ZZ',GSWBCD3 P FMEND ( P* 6 PSPGFMSPG FRMT @ P FTEXT 'SP' V P FILLR X'5C',1 j P FTEXT 'RGE' P FMEND P* PSPGFM04 FRMT P FSL P FNL P FMEL '99',GSWBCD3 P FCOPY =' ]BNE KASSER
0x32d860…32d9f4 (4, 227) Dummy {f00=0x00c5, f01=0x0190, f02=»'BBZZZ-',CMASK(CBIN4) P FNL P FMEL 'BBZZZ-',CMASK(CBIN5) * P FMEL 'BBZZZ-',CMASK(CBIN6) N P FMEL 'BBZZZ-',CMASK(CBIN7) r P FMEL 'BBZZZ-',CMASK(CBIN8) P FNL P FMEL 'BBZZZ-',CMASK(CBIN9) P FMEL 'BBZZZ-',CMASK(CBIN10)
0x32d9f4…32db88 Dummy {f00=0x00c5, f01=0x0190, f02=»GFM08 FRMT FSL P FLINK SPGFMSPG P FBF GTGLSPG,SPGL081 6 P FILLR '*',1 R PSPGL081 f FNL v FCOPY =C' EKS.LBNR' FKI 14,MAXL=5 FMEL 'XXXXX',GTLBNRIN FNL FCOPY =C'REGKONTONR' 2 - FKI 14,MINL
0x32db88…32dd1c Dummy {f00=0x00c5, f01=0x0190, f02=»AXL=10,SCHK=1,REWRT,APPL=109 FMEL 'XXXXXXE-XXXX',GSWBCD7 $ FNL H FLINK FBELOB T * % FKI 14,MAXL=12,SCHK=4,REWRT,APPL=110 j $ FMEL 'TTTTTTTVTTX,XX-',GSWBCD7 FNL FCOPY =C' DIVERSE' FKI 14,MAXL=2,APPL=111
0x32dd1c…32deb0 Dummy {f00=0x00c5, f01=0x0190, f02=»MEND P* PSPGFM10 FRMT P FSL * P FLINK SPGFMSPG 6 P FBF GTGLSPG,SPGL101 N P FILLR '*',1 j PSPGL101 ~ P FNL P FCOPY =C'BILAG' P FCOPY =C' EKS.LBNR' P FILLR ' ',1 P FTEXT C'FRA' P FKI 20,MAXL=5,M
0x32deb0…32e044 Dummy {f00=0x00c5, f01=0x0190, f02=»IN | P FNL P FLINK FMTEND P FMEND , P* : * D FBELOB FRMT N FCOPY =C'BEL' b FILLR X'5C',1 x FILLR 'B',1 FMEND * FMTEND FRMT FNL FKI 1,MAXL=1,APPL=90,VERIF FMEL 'B',
0x32e044…32e1d8 Dummy {f00=0x00c5, f01=0x0190, f02=» P FCOPY ='KONTONR' P FILLR ' ',6 P FCOPY ='SALDO' 2 P FNL J " P FMEL '99999999E-99',TTCASHAC V P FTAB 14 | & P FMEL 'ZZZ.ZZZ.ZZZ.ZZ9.99-',TTCASH P FNL P FCOPY ='EJ EDB' P FTAB 14 ( P FMEL 'ZZZ.ZZZ.ZZZ.ZZ9.99-',TT
0x32e1d8…32e36c Dummy {f00=0x00c5, f01=0x0190, f02=» CALCULATION-FORMATS P* $ P* . PCALFRM02 FRMT 8 P FSL N P FCOPY =C'REGNEFUNKTION' P FNL | P FNL 6 P FKI 1,MINL=1,MAXL=11,SCHK=4,APPL=91,DUPL=GSWBCD1 $ P FMEL 'TTT.TTT.TTX.XX-',GSWBCD1 P FMEND P*
0x32e36c…32e500 Dummy {f00=0x00c5, f01=0x0190, f02=»NL $ P FMEL 'ZZZ.ZZZ.ZZ9.99-',GSWBCD2 P FLINK FMTFKI 2 P FMEND H P* X P* b " P* CONTROLDIGIT-FORMATS l P* P* PCCDFRM01 FRMT P FSL P FCOPY =C'CHECKCIFFER' P FCOPY ='BEREGNING' P
0x32e500…32e694 (4, 228) Dummy {f00=0x00c5, f01=0x0190, f02=» FMEL 'ZZZZZZZZZE-9',GSWBCD6 P FMEND & P* 4 PCCDFRM02 FRMT > P FSL T P FCOPY =C'CHECKCIFFER' b P FCOPY ='BEREGNING' P FBT GTDYFLG,CCDLAB02 P FLINK CCDFRM03 P FB CCDLAB03 PCCDLAB02 P FNL P F
0x32e694…32e828 Dummy {f00=0x00c5, f01=0x0190, f02=»* PCCDFRM03 FRMT P FNL P FNL , P FMEL 'ZZZZZZZZZE-9',GSWBCD6 8 P FILLR ' ',1 P FNL p P FCOPY =C'CHECKCIFFER' | P FILLR '=',1 P FMEL 'B9B',GSWBCD5 P FNL P FMEL 'ZZZZZZZZZE-9',GSWBCD6 P FMEL '9B',
0x32e828…32e9bc Dummy {f00=0x00c5, f01=0x4066, f02=»,3 P FKI 15,MAXL=5 P FMEL '***99',GSWBCD5 P FMEND > P* L END V@ b,1 P FNL p P FCOPY =C'CHECKCIFFER' | P FILLR '=',1 P FMEL 'B9B',GSWBCD5 P FNL P FMEL 'ZZZZZZZZZE-9',GSWBCD6 P FMEL '9B',
0x32e9bc…32eb50 Dummy {f00=0x00c5, f01=0x2008, f02=» NT RGADM DDUM KMD08 PDIV , ENTRY RGADM : RGADM N END @ h
0x32eb50…32ece4 Dummy {f00=0x00c5, f01=0x0190, f02=» : H IDENT RGSUB1 TRA 4.1 79-10-26 F1 O1111 02.01.XXX.1 2 . FLDIN FLDTST SLUT SUMWRT UPDA12 UPDAKK B $$$TRAS x > : FLDIN FLDTSTS a SLUTM SUMWRT1 UPDA12 B UPDAKK D @ FRMTJTS FRMTVOA FRMXTA9 KTPLANF PACKST SPERR SPINF8 WRI
0x32ece4…32ee78 Dummy {f00=0x00c5, f01=0x0190, f02=» 9 = J F " D I , L LH I !) L # L#! L ! L ! L H $ I0 r X0 Z ^ c e f h j
0x32ee78…32f00c Dummy {f00=0x00c5, f01=0x0190, f02=» 0 * J F " D @ A @ @ 4 L L 4 H H I W R 4 ) L < B 0 0 < J F " D RW{# Lw I $ c (c c c L! .
0x32f00c…32f1a0 Dummy {f00=0x00c5, f01=0x018e, f02=» G d b " f 2 g B h ~ R i b j r k l m n o p q r s
0x32f1a0…32f334 (4, 229) Opaque[0x194]
0x32f334…32f4c8 # DirEnt {nam=»CONNJ7«, typ=»UF«, f00=0x0000, f01=0x0000, f02=0x14b8, f03=0x0000}
0x32f334…32f4c8 IdxSect {
0x32f334…32f4c8 f00 = 0x00a5 // 0x32f334 @0x0
0x32f334…32f4c8 f01 = 0x0002 // 0x32f336 @0x2
0x32f334…32f4c8 gno = [ // 0x32f338 @0x4
0x32f334…32f4c8 [0x00]: C0x00a5.0x3.0
0x32f334…32f4c8 ]
0x32f334…32f4c8 }
0x32f4c8…32f65c Dummy {f00=0x00a5, f01=0x2008, f02=»
0x32f65c…32f7f0 Dummy {f00=0x00a5, f01=0x0190, f02=»" J _Z Z | [ Z P j [ V 7_ Z j Z 7 Z Z P j : V R (Q V : ! ! : $ J P v I < : J Qf : P 4 ! TV_ K 8WJ W +_
0x32f7f0…32f984 Dummy {f00=0x00a5, f01=0x0190, f02=» ! P *W : ! )P9H # T &W &" :I : : P & _ &X _ : : : : : { : N PX 9 _ N [ N Z : R" P $ 1T Y W 5 _$ : N
0x32f984…32fb18 Dummy {f00=0x00a5, f01=0x0190, f02=»W ! 9 R R Y, : , : jP kT T : & 9! " : $ : " $ : 2 & >A >A 2 $ & V D 9a 9 V @! W @! T W X R V 8 P , _ =B R ?H 8R0;AV ( _
0x32fb18…32fcac Dummy {f00=0x00a5, f01=0x0190, f02=» 5 ( W, V P& W$ U V X 9T I Y f : + [ [ < !AAP !TTT W !**T * [ R !FFP !EET W I 6 * B Z 9 ! ; *Xt 8 ! D L 0P Wv 0W@ Wn :T& *W4 FP . :T Z ! XBW *X& FWH :P"# U
0x32fcac…32fe40 Dummy {f00=0x00a5, f01=0x0190, f02=» Z ] 49d_4 _HU ; :X _ _ z 9d! ) ^ _ ,_ 8 _ : W 8W 8 !++P !-- z ;$# + ^" _( |`. PT*AXYZ9 Wp Wl Wh Wd W` W WX WT WP WL WH WD W@ W< W8 W4 W0 W, W( W$ W W W W W W W W W
0x32fe40…32ffd4 (4, 230) Opaque[0x194]
0x32ffd4…330168 # DirEnt {nam=»KM0801«, typ=»UF«, f00=0x0000, f01=0x0000, f02=0x0880, f03=0x0000}
0x32ffd4…330168 IdxSect {
0x32ffd4…330168 f00 = 0x0044 // 0x32ffd4 @0x0
0x32ffd4…330168 f01 = 0x0002 // 0x32ffd6 @0x2
0x32ffd4…330168 gno = [ // 0x32ffd8 @0x4
0x32ffd4…330168 [0x00]: C0x0044.0x0.0
0x32ffd4…330168 ]
0x32ffd4…330168 }
0x330168…3302fc Dummy {f00=0x0044, f01=0x0190, f02=» PPRT KM0801 PPRT CONNJ1 4 PMES NJ-AMT - CENTRALE BOGHOLDERI, CONCENTRATOR ( PMES 6272 KEYBOARD ` PMES 80-10-13 z PSCR PLED KMD08,/S P!!DL 50 FD BACKUP P!!DL 51 DK05 P!!DL 52,54 DK06-DK08 P!!DL 55,56 FD03,
0x3302fc…330490 Dummy {f00=0x0044, f01=0x0190, f02=»','1','2','0' ~ P!!DL 180,181 " POFF STRGI (12)2C'TC',' ',' ' * P!!RE 187,$$FALSE$$TRUE$$ BKO P ( P!!RE 188,$$FALSE$$TRUE$$ SALDO KORT t * P!!RE 194,$$TRUE$$FALSE$$ NO AUTO-KORT P!!RE 195,$$FALSE$$TRUE$$ DC P!!RE 199,$$TRUE$$FALSE
0x330490…330624 Dummy {f00=0x0044, f01=0x0190, f02=»,$$5$$1$$ P!!DL 362,363 " PON STRGI (12)2C'KA',' ',' ' & $ P!!RE 473,$$27$$25$$ DEFAULT LINE L P!!EN t PNOD C PTRA /S,NL PINC DIVFMT PINC RGADM PNOD R PINC RGFRMT PNOD R PINC KTOPR PINC
0x330624…3307b8 Dummy {f00=0x0044, f01=0x0168, f02=»BAPL PNOD R PINC RGSUB1 PINC RGSUB2 , PINC DKSUBS > PINC RGMAIN P PNOD R b PINC RGSTRT p PTLK U,4K PINC PRT PINC VDUPRT PINC START PINC TB3270 P$INCGEN LKE M PKPF /L,RGLOAD
0x3307b8…33094c Dummy {f00=0x0044, f01=0x2008, f02=» PNOD R PINC RGSUB1 PINC RGSUB2 , PINC DKSUBS > PINC RGMAIN P PNOD R b PINC RGSTRT p PTLK U,4K PINC PRT PINC VDUPRT PINC START PINC TB3270 P$INCGEN LKE M PKPF /L,RGLOAD
0x33094c…330ae0 Dummy {f00=0x0044, f01=0x0190, f02=» v0 # x 8 J F " D @) r t " @( 0X A 0X 1XF R6 _2 L R :_/0X 0 & ~ ' 0 r 0 r 8 8 '
0x330ae0…330c74 (4, 231) Opaque[0x194]
0x330c74…330e08 # DirEnt {nam=»KMDFIL«, typ=»UF«, f00=0x0000, f01=0x0000, f02=0x1218, f03=0x0000}
0x330c74…330e08 IdxSect {
0x330c74…330e08 f00 = 0x0090 // 0x330c74 @0x0
0x330c74…330e08 f01 = 0x0004 // 0x330c76 @0x2
0x330c74…330e08 gno = [ // 0x330c78 @0x4
0x330c74…330e08 [0x00]: C0x0090.0x3.0
0x330c74…330e08 [0x01]: C0x0097.0x3.0
0x330c74…330e08 ]
0x330c74…330e08 }
0x330e08…330f9c Dummy {f00=0x0090, f01=0x0190, f02=» PPRT KM0805 PPRT CONNJ5 8 PMES NJ-AMT - LOKAL, DR.LUND, HOBRO, BROVST, (FARS ) ( PMES CONCENTRATOR d PMES 6272 KEYBOARD | PMES 192 KB PMES 80-12-11 PSCR PLED KMD08,/S P!!DL 50 FD BACKUP P!!DL 51 DK05
0x330f9c…331130 Dummy {f00=0x0090, f01=0x0190, f02=»$6646$$ P!!DL 175 , PCNFHC BINI (16),'1','2','3','4','5','0' P!!DL 180,181 P 2 POFF STRGI (12)2C'TC','TD','TE','TF','TG',' ' d P!!RE 187,$$FALSE$$TRUE$$ BKO ( P!!RE 188,$$FALSE$$TRUE$$ SALDO KORT * P!!RE 194,$$TRUE$$FALSE$$ NO AU
0x331130…3312c4 Dummy {f00=0x0090, f01=0x0190, f02=»T$$ x . P!!RE 310,$$01014610$$02010802$$ VERSION NO P!!RE 361,$$5$$1$$ > P!!DL 362,363 X 0 PON STRGI (12)2C'KA','KB','KC','KD','KE',' ' l $ P!!RE 473,$$27$$25$$ DEFAULT LINE P!!EN PNOD C PTRA /S,NL PINC DIVFMT PIN
0x3312c4…331458 Dummy {f00=0x0090, f01=0x0190, f02=»R PINC RGSUBS PINC KMDIO PINC RGSUB3 . PNOD R @ PINC SCREEN N PINC SUBAPL ` PNOD R r PINC RGSUB1 PINC RGSUB2 PINC DKSUBS PINC RGMAIN PTLK U,4K PINC PRT PINC VDUPRT PINC START
0x331458…3315ec Dummy {f00=0x0090, f01=0x001e, f02=»UT=$CNJ5:01 ^ $ASG2 C KMDIO PINC RGSUB3 . PNOD R @ PINC SCREEN N PINC SUBAPL ` PNOD R r PINC RGSUB1 PINC RGSUB2 PINC DKSUBS PINC RGMAIN PTLK U,4K PINC PRT PINC VDUPRT PINC START
0x3315ec…331780 Dummy {f00=0x0090, f01=0x2008, f02=» :01 ^ $ASG2 C KMDIO PINC RGSUB3 . PNOD R @ PINC SCREEN N PINC SUBAPL ` PNOD R r PINC RGSUB1 PINC RGSUB2 PINC DKSUBS PINC RGMAIN PTLK U,4K PINC PRT PINC VDUPRT PINC START
0x331780…331914 (4, 232) Dummy {f00=0x0097, f01=0x0190, f02=»
0x331914…331aa8 Dummy {f00=0x0097, f01=0x0190, f02=» B
0x331aa8…331c3c Dummy {f00=0x0097, f01=0x0190, f02=» TCTD * $ & F H 6! B %
0x331c3c…331dd0 Dummy {f00=0x0097, f01=0x0190, f02=» B Z 8 6
0x331dd0…331f64 Dummy {f00=0x0097, f01=0x0190, f02=»
[…0x3…]
0x332420…3325b4 (4, 233) Opaque[0x194]
0x3325b4…332748 # DirEnt {nam=»RGOBJ «, typ=»UF«, f00=0x0000, f01=0x0000, f02=0x18d8, f03=0x0000}
0x3325b4…332748 IdxSect {
0x3325b4…332748 f00 = 0x00c6 // 0x3325b4 @0x0
0x3325b4…332748 f01 = 0x0002 // 0x3325b6 @0x2
0x3325b4…332748 gno = [ // 0x3325b8 @0x4
0x3325b4…332748 [0x00]: C0x00c6.0x3.0
0x3325b4…332748 ]
0x3325b4…332748 }
0x332748…3328dc Dummy {f00=0x00c6, f01=0x018e, f02=» PASG /02,NO PSCR PINC PRT " PINC VDUPRT 2 PINC START D PDEL /OB V PKPF /O f PSCR t PTRA RGMAIN,NL PKPF /O PSCR PTRA RGMND,NL PKPF /O PSCR PTRA RGSTRT,NL PKPF /O PSCR
0x3328dc…332a70 Dummy {f00=0x00c6, f01=0x0190, f02=» PSCR PTRA DIVFMT,NL PKPF /O & PSCR 4 PTRA DIV461,NL @ PKPF /O V PSCR d PTRA DIV167,NL p PKPF /O PSCR PTRA DIV259,NL PKPF /O PSCR PTRA DIV525,NL PKPF /O PSCR PTRA DIV7
0x332a70…332c04 Dummy {f00=0x00c6, f01=0x0190, f02=»TRA KMDIO,NL PKPF /O PSCR " PTRA RGADM,NL . PKPF /O B PSCR P PTRA RGMND,NL PKPF /O p PSCR ~ PTRA RGSUBS,NL PKPF /O PSCR PTRA RGSUB1,NL PKPF /O PSCR PTRA RGSUB2,NL PKPF /O
0x332c04…332d98 Dummy {f00=0x00c6, f01=0x00f0, f02=»/O PSCR PTRA KTPLN,NL PKPF /O * PSCR 8 PTRA KTPLND,NL D PKPF /O Z PSCR h PTRA KTOPR,NL t PKPF /O PSCR PTRA KTOPRD,NL PKPF /O PSCR PASG /02,LP0F P$ASG2 SUB2,NL PKPF /O
0x332d98…332f2c Dummy {f00=0x00c6, f01=0x2008, f02=» PSCR PTRA KTPLN,NL PKPF /O * PSCR 8 PTRA KTPLND,NL D PKPF /O Z PSCR h PTRA KTOPR,NL t PKPF /O PSCR PTRA KTOPRD,NL PKPF /O PSCR PASG /02,LP0F P$ASG2 SUB2,NL PKPF /O
0x332f2c…3330c0 Dummy {f00=0x00c6, f01=0x0000, f02=»
0x3330c0…333254 (4, 234) Opaque[0x194]
0x333254…3333e8 # DirEnt {nam=»KM0806«, typ=»UF«, f00=0x0000, f01=0x0000, f02=0x11f0, f03=0x0000}
0x333254…3333e8 IdxSect {
0x333254…3333e8 f00 = 0x008f // 0x333254 @0x0
0x333254…3333e8 f01 = 0x0004 // 0x333256 @0x2
0x333254…3333e8 gno = [ // 0x333258 @0x4
0x333254…3333e8 [0x00]: C0x008f.0x2.0
0x333254…3333e8 [0x01]: C0x0090.0x1.0
0x333254…3333e8 ]
0x333254…3333e8 }
0x3333e8…33357c Dummy {f00=0x008f, f01=0x018e, f02=» PPRT KM0806 PPRT CONNJ6 " PMES NJ-AMT - AALBORG SYGEHUS ( PMES 6272 KEYBOARD N PMES NO CONCENTRATOR h PMES 80-10-13 PSCR PLED KMD08,/S P!!DL 50 FD BACKUP P!!DL 51 DK05 P!!DL 52,54 DK06-DK08 P!!DL 5
0x33357c…333710 Dummy {f00=0x008f, f01=0x0190, f02=» $ PCNFHC BINI (16),'1','1','0','0' P!!DL 180,181 , " POFF STRGI (12)2C'TC',' ',' ' @ P!!RE 187,$$FALSE$$TRUE$$ BKO f ( P!!RE 188,$$FALSE$$TRUE$$ SALDO KORT * P!!RE 194,$$TRUE$$FALSE$$ NO AUTO-KORT P!!RE 195,$$FALSE$$TRUE$$ DC P
0x333710…3338a4 Dummy {f00=0x008f, f01=0x0190, f02=»ION NO h P!!RE 361,$$5$$1$$ P!!DL 362,363 ( " PON STRGI (12)2C'KA',' ',' ' < $ P!!RE 473,$$27$$25$$ DEFAULT LINE b P!!EN PNOD C PTRA /S,NL PINC DIVFMT PINC RGADM PNOD R PINC RGSUBS PINC KMDIO
0x3338a4…333a38 Dummy {f00=0x008f, f01=0x0190, f02=»INC KTPLN PINC ADM6 PNOD R " PINC RGSUB1 0 PINC RGSUB2 B PINC DKSUBS T PINC RGMAIN f PNOD R x PLED RGSTRT,/S P!!RE 58,$$41$$40$$ P!!EN PTRA /S,NL PASG 2,LP0F PTLK U,4K PINC PRT PLE
0x333a38…333bcc Dummy {f00=0x008f, f01=0x008a, f02=»N LKE M PKPF /L,RGLOAD PSCR . B PMES $PDISC M=M:92NE,MU=M:92NA,A=RGLOAD,C=CONNJ6,COUT=$CON6:01 : P$ASG2 RGSTRT,/S P!!RE 58,$$41$$40$$ P!!EN PTRA /S,NL PASG 2,LP0F PTLK U,4K PINC PRT PLE
0x333bcc…333d60 Dummy {f00=0x008f, f01=0x2008, f02=» LKE M PKPF /L,RGLOAD PSCR . B PMES $PDISC M=M:92NE,MU=M:92NA,A=RGLOAD,C=CONNJ6,COUT=$CON6:01 : P$ASG2 RGSTRT,/S P!!RE 58,$$41$$40$$ P!!EN PTRA /S,NL PASG 2,LP0F PTLK U,4K PINC PRT PLE
0x333d60…333ef4 (4, 235) Dummy {f00=0x0090, f01=0x0190, f02=»23456789:#@'=" ABCDEFGHI[.<(+!&JKLMNOPQR]$*);^ /STUVWXYZ|,%_>?0123456789:#@'= 7- <=2&p ?' @O JZlP}M] Nk`Ka z^L~noj {|[_m TOSS T Dr D D ^ P D D D
0x333ef4…334088 Dummy {f00=0x0090, f01=0x0190, f02=»y yh {|{pw x F F G G G G G G0G0F F,F F~FNG G FRG0G0F F<" # $ % "$&( E E @ D X P _ L !##P T @ R $P U + U _ (@(@ IEHP ^ G HEb Y HE B # X ( U G B r
0x334088…33421c Dummy {f00=0x0090, f01=0x0190, f02=» [ H H S W C C B B B U Z R Wp H TP L P B r L ( $ X _ X ` T I T J Y P C X I X J S W C C W, B B Y IR Q X JU C '? T W6 [d T.(@(@ P #D {j H
0x33421c…3343b0 Dummy {f00=0x0090, f01=0x0190, f02=» $ - _ : Z $ -_ D ( U ( 0 W T ` U @ , @ W : X & X P !##T Y T( X P P P @] Q (@ F ]F : @ _ ] ( H > H X &Pj D ^V" D "? P P &P E ^ 8 V, P ( I (
0x3343b0…334544 Dummy {f00=0x0090, f01=0x0190, f02=»Y P W T Y $ P T _ Y & F (@ _ Kf X & X I U X J U ( [ T$ X X RP F H T L P ` U0 @ , D !##X D ( * ]" 0 X Wf ` U @ H @ X WF Z N 4 5
0x334544…3346d8 Dummy {f00=0x0090, f01=0x0190, f02=» 9 L 4' J ' J 5 J 4 Qj W , P& ,' X X 1 Z" ) J _ (@ C ( B ! L J @G F U G F G HN L & ( F " F +P P* X $ T Z U W Z R P> $P8W L X ( X & F
0x3346d8…33486c Dummy {f00=0x0090, f01=0x0190, f02=» D '? P P( $ P" [ I I K K P P & P Z W D $ T Z T Z W E I E J X ^V ? T B &(@( z B B P ! Tn M P^ : M Az Az " P y "" z P P^ z @y (@ D
0x33486c…334a00 Dummy {f00=0x0090, f01=0x0190, f02=»O Ay @z P^ B Dy Ey X #D( M,( B B @y Dy PW C C ( M M z y @z T Az 0" O O U _ L !SSP !LL O W L @y Ay V P^ P Ey @y Ey P Ey P Ey Dy T
0x334a00…334b94 (4, 236) Opaque[0x194]
0x334b94…334d28 # DirEnt {nam=»TEST «, typ=»UF«, f00=0x0000, f01=0x0000, f02=0x0820, f03=0x0000}
0x334b94…334d28 IdxSect {
0x334b94…334d28 f00 = 0x0041 // 0x334b94 @0x0
0x334b94…334d28 f01 = 0x0002 // 0x334b96 @0x2
0x334b94…334d28 gno = [ // 0x334b98 @0x4
0x334b94…334d28 [0x00]: C0x0041.0x0.0
0x334b94…334d28 ]
0x334b94…334d28 }
0x334d28…334ebc Dummy {f00=0x0041, f01=0x0052, f02=» SKF TRA RGSTRT TRA RGSUB1 " SKF 4 $KMDALL 0804=Y @B1 F HEND # H X 0
0x334ebc…335050 Dummy {f00=0x0041, f01=0x2008, f02=» TRA RGSTRT TRA RGSUB1 " SKF 4 $KMDALL 0804=Y @B1 F HEND # H X 0
0x335050…3351e4 Dummy {f00=0x0041, f01=0x00c8, f02=»$$ P!!AB PLED ADM6,/S P!!LS $$SPBINW2$$ * P!!AB B PLED KTPLN,/S N P!!LS $$SPBINW2$$ b P!!AB z PLED KTOPR,/S P!!LS $$SPBINW2$$ P!!AB $ASG2 PLED RGFRMT P!!LS $$SPBINW2$$ P!!AB PLED
0x3351e4…335378 Dummy {f00=0x0041, f01=0x2008, f02=» P!!AB PLED ADM6,/S P!!LS $$SPBINW2$$ * P!!AB B PLED KTPLN,/S N P!!LS $$SPBINW2$$ b P!!AB z PLED KTOPR,/S P!!LS $$SPBINW2$$ P!!AB $ASG2 PLED RGFRMT P!!LS $$SPBINW2$$ P!!AB PLED
0x335378…33550c Dummy {f00=0x0041, f01=0x0190, f02=»
[…0x1…]
0x3356a0…335834 (4, 237) Opaque[0x194]
0x335834…3359c8 # DirEnt {nam=»RGSUB3«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x1910, f03=0x0000}
0x335834…3359c8 IdxSect {
0x335834…3359c8 f00 = 0x00c8 // 0x335834 @0x0
0x335834…3359c8 f01 = 0x0006 // 0x335836 @0x2
0x335834…3359c8 gno = [ // 0x335838 @0x4
0x335834…3359c8 [0x00]: C0x00c8.0x2.0
0x335834…3359c8 [0x01]: C0x00c8.0x3.0
0x335834…3359c8 [0x02]: C0x00c9.0x0.0
0x335834…3359c8 ]
0x335834…3359c8 }
0x3359c8…335b5c Dummy {f00=0x00c8, f01=0x0190, f02=» P IDENT RGSUB3 02.01.XXX.1 P DDUM KMD08 & P PDIV : P* H P ENTRY ASGVOL R P ENTRY CLSVOL h P ENTRY CYLINE ~ P ENTRY CYOUT P ENTRY CYWRT P ENTRY CYRD P ENTRY CYTRP P* P EXT ABORT P EXT ASS
0x335b5c…335cf0 Dummy {f00=0x00c8, f01=0x0190, f02=»RVO P* P INCLUDE EQUATE P EJECT . PASGVOL PROC VOL < P******************** T P* p * P* ASSIGN ROUTINE - PER VOLUME z P* 4 P* ASSIGNS ALL FILES ON SPECIFIED VOLUME P* 4 P* IF VOL=0,
0x335cf0…335e84 Dummy {f00=0x00c8, f01=0x0190, f02=»****** P* P IB VOL, C " P ASG100,ASG200,ASG300,ASG400 , P CBNE VOL,CBIN0,ASGNOK R P* p PASG000 ASSIGN CONF DATASET z P PERF ASSG,CBIN1,DK01,CBIN1 P B ASGRET P* ( PASG100 ASSIGN ALL FILES - VOLUME 1 ,
0x335e84…336018 Dummy {f00=0x00c8, f01=0x0190, f02=» ( P PERF ASSG,CBIN1,DK04,CBIN4 KT PLAN P BNOK ASGRET 0 P TBF CGLREGFL,ASGRET D P MOVE CGLRECNR,=D'0' ` * P PERF ASSG,CBIN1,DK05,CBIN5 OLD REGSET | P BNOK ASGRET P MOVE CGLRECNR,TTGLREC P B ASGRET P* ( PASG200 ASSIGN
0x336018…3361ac Dummy {f00=0x00c8, f01=0x0190, f02=»ME 3 p P B ASGOK P* ( PASG400 ASSIGN ALL FILES - VOLUME 4 & P B ASGOK R P* b PASGNOK l P CMP CBIN1,CBIN0 z P RET P* PASGOK P CMP CBIN0,CBIN0 PASGRET P RET P PEND P* P EJECT
0x3361ac…336340 Dummy {f00=0x00c8, f01=0x0190, f02=»LOSES ALL FILES ON SPECIFIED VOLUME P* , 4 P* CALL: PERF CLSVOL,<VOLUME NUMBER> 6 P* n P******************** x P* P IB VOL, C " P CLS100,CLS200,CLS300,CLS400 P B CLSRET P* ( PCLS100 CLOSE ALL F
0x336340…3364d4 (4, 238) Dummy {f00=0x00c8, f01=0x018e, f02=»LOSE PCLS150 P DSC0 FD01,UNLOD P B CLSRET 2 P* D ( PCLS200 CLOSE ALL FILES - VOLUME 2 N P DSC0 DK02,CLOSE z P DSC0 FD02,UNLOD P B CLSRET P* ( PCLS300 CLOSE ALL FILES - VOLUME 3 P B CLSRET P*
0x3364d4…336668 Dummy {f00=0x00c8, f01=0x0190, f02=» PCYLINE PROC P******************** P* 8 . P* WRITE ONE LINE TO CYCLE DATASET B P* t 4 P* ON ENTRY DATA IN SEPARATE FIELDS ~ P* : P* ON EXIT CR= OK DATA WRITTEN TO CYSET > P*
0x336668…3367fc Dummy {f00=0x00c8, f01=0x0190, f02=»ATASET FULL r < P* WAITED TOO LONG FOR BUFFER P* T P******************** ^ P MOVE GSWBIN1,CCYSIZE z P MUL GSWBIN1,TTASKNR " P CBNL GTCYOUT,GSWBIN1,CYLINNOK P MOVE GSWBIN1,=W'32' PCYLIN000 * P T
0x3367fc…336990 Dummy {f00=0x00c8, f01=0x0190, f02=»0 P* PCYLIN010 P SET CCYPFLG RESERVE BUFFER $ $ P MOVE CCYBUF,=X'00' CLEAR BUFFER H P EDIT CCYBUF,GTSTRFMT p * P PERF RAWRIT,DK03,=D'3',CCYBUF,GTCYOUT P BNOK CYLIN100 P ADD GTCYOUT,CBIN1 " P CLEAR CCYPFLG RELEASE BUFFE
0x336990…336b24 Dummy {f00=0x00c8, f01=0x0190, f02=»,CBIN0 P RET P PEND P* ( P EJECT 2 PCYOUT PROC @ P******************** R P* n 4 P* WRITE OUT THE WHOLE CONTENT OF CYSET x $ P* (LESS THAN ONE PAGE) P* P******************** P TBT GTCYW
0x336b24…336cb8 Dummy {f00=0x00c8, f01=0x0190, f02=» PCYOUT005 P MOVE TTLINNR,TTCYKPOS P TBF GTCYTRPF,CYOUT010 6 2 P SUB GTCYOUT,CBIN1 ADJUST FOR TRP LINE, -TOTAL T PCYOUT010 P MOVE GSWBIN1,TTLINNR P DSC1 KVOUCH,POS,GSWBIN1 " P CBNL GTCYIN,GTCYOUT,CYOUT050 P PERF CYRD
0x336cb8…336e4c Dummy {f00=0x00c8, f01=0x018e, f02=» EJECT PCYWRT PROC P******************** P* < , P* WRITE A LINE ON CYCLE DATASET F : P* IN NOK EMPTY THE CYCLE DATASET TO VOUCHER v 0 P* AND WRITE LINE TO VOUCHER P* P********************
0x336e4c…336fe0 Dummy {f00=0x00c8, f01=0x0190, f02=» f P CMP CBIN0,CBIN0 OK P RET $ P* 0 PCYWRT010 : $ P MOVE GSWSTR9,=C'TRP ' NEW PAGE J P PERF FRMXVO,CBIN2 r P PERF CYLINE P SET GTCYTRPF INITIATE PRINT P CMP CBIN0,CBIN0 OK P RET P* PCYWRT100 P P
0x336fe0…337174 (4, 239) Dummy {f00=0x00c9, f01=0x0190, f02=»**************** P* 4 P* READ ONE LINE FROM CYCLE DATASET AND " " P* WRITE IT TO VOUCHER Z P* 8 P* VOUCHER SHOULD BE POSITIONED BEFORE PRINT P* P******************** PCYRD000 P TBF CCYPFLG
0x337174…337308 Dummy {f00=0x00c9, f01=0x0190, f02=»OVE GSWBIN1,=W'128' SET LENGTH 2 P PERF RAREAD,DK03,=D'3',CCYBUF,GSWBIN1,GTCYIN & P BNOK CYRDNOK P EDWRT .NW,KVOUCH,CYEDT r P CLEAR CCYPFLG P B CYRD100 PCYRDNOK P ADD GTCYIN,CBIN1 P CLEAR CCYPFLG P PERF CRVO
0x337308…33749c Dummy {f00=0x00c9, f01=0x0190, f02=»MP CBIN0,CBIN0 OK P RET P PEND & P* 4 P* > PCYEDT FRMT H P FCOPY CCYBUF Z P FMEND p P* ~ P EJECT PCYTRP PROC P******************** P* " P* PRINT A WHOLE PAGE P* 6 P*
0x33749c…337630 Dummy {f00=0x00c9, f01=0x0190, f02=»00 T=ALREADY WRITTEN | P CLEAR GTCYTRPF P CLEAR TTTSTFLG 4 P PERF CYOUT L P WAIT KVOUCH ` P DSC0 .NW,KVOUCH,RLEAS t P CLEAR TTTSTFLG P MOVE GSWSTR9,=C'TRP ' P PERF FRMXVO,CBIN2 P MOVE GTCYIN,TTASKNR P SUB GTCYI
0x337630…3377c4 Dummy {f00=0x00c9, f01=0x0190, f02=»CYKPOS,TTLINNR P PERF CYLINE P BNOK CYTRP100 * P B CYTRP150 @ P* T PCYTRP100 ^ P CLEAR GTCYTRPF n P SET GTCYWRTF . P PERF SPLIN8,CBIN3,CBIN2 ASK FOR 'NY SIDE' P PERF GRASPV GRASP P MOVE TTCYKPOS,TTCYKST * P M
0x3377c4…337958 Dummy {f00=0x00c9, f01=0x40d6, f02=»TRANSPORT LINE r P PERF FRMXVO,CBIN2 * P EDWRT KVOUCH,GTSTRFMT WRITE TRP LINE 0 P* ^ PCYTRP150 h P SUB TTLINNR,=D'2' x PCYTRP200 P RET P PEND P* P END @ ASPV GRASP P MOVE TTCYKPOS,TTCYKST * P M
0x337958…337aec Dummy {f00=0x00c9, f01=0x2008, f02=» P?????????????? P RET " P PEND . P* < P END F :EOF R@ `OUT P WAIT KVOUCH p P DSC0 KVOUCH,RLEAS P MOVE GSWSTR9,=C'TRP ' P PERF FRMXVO,CBIN2 P MOVE TTLINNR,TTCYKST P PERF CYLINE P
0x337aec…337c80 Dummy {f00=0x00c9, f01=0x0190, f02=»OW 24 COL. 1 x 2 P DSC1 SCREEN,6,SPBINW3 SET CURSOR ON LAST ROW $ P MOVE GSWBCD4,SPBINW4 ERRORCODE J P* r $ P EDWRT SCREEN,SPFTBERR(SPBINW4) | P TBF SPKEYFLG,SPERRRET P* P* READ AFTER ERROR P* PERREAD ( P SETCU
0x337c80…337e14 (4, 240) Opaque[0x194]
0x337e14…337fa8 # DirEnt {nam=»DKLD «, typ=»LM«, f00=0x0000, f01=0x0000, f02=0x1928, f03=0x0000}
0x337e14…337fa8 IdxSect {
0x337e14…337fa8 f00 = 0x00c9 // 0x337e14 @0x0
0x337e14…337fa8 f01 = 0x0002 // 0x337e16 @0x2
0x337e14…337fa8 gno = [ // 0x337e18 @0x4
0x337e14…337fa8 [0x00]: C0x00c9.0x1.0
0x337e14…337fa8 ]
0x337e14…337fa8 }
0x337fa8…33813c Dummy {f00=0x00c9, f01=0x0190, f02=» d * THERE ARE I FREE GRANULES. ( Dp$ A j z H&g ` ^ 1 [ L ` `0 H } % H @__z@u ` `L GH L `H ja @ `H z@b> > @ h> ` > d @8 U ! ` @Z @ @ @]> ` }> 5 ( - @ e> ` % e> @ `
0x33813c…3382d0 Dummy {f00=0x00c9, f01=0x0190, f02=» " @x $0 ( p ? JT M ` w > @ 3 H!+ d Z ^ -5 > @ H! 3 d @Bh 4NA~ { N4` l ; ; ; ; ; ; R Q @ - WH @ - A R* X R X _ Q @ X" A T - _0 D - Z Z Z Z Z Z
0x3382d0…338464 Dummy {f00=0x00c9, f01=0x0190, f02=»X !XXT ( ( @ *! : F A A " ( : NP W ` A A "( ES NO A , W ! T _ !//T ( _ 0Z2 U ]@ YF< Y< ZT A B l 0DISC LABEL IS LLLLLLLL
0x338464…3385f8 Dummy {f00=0x00c9, f01=0x0190, f02=» < $" = @ A A A : A W @ n A A 0 A U 0 ( @ @ A A l ( : U l W @ #U. A @ A p @ p A : ; [ [ [ Z Z Z : : < , = = $ -
0x3385f8…33878c Dummy {f00=0x00c9, f01=0x0190, f02=»Y : @ U : @ A R _ : A : ( W ` A A "( ES NO A , W ! T _ !//T ( _ 0Z2 U ]@ 1 Y< ZT A B 0DISC LABEL IS LLLLLLLL
0x33878c…338920 Dummy {f00=0x00c9, f01=0x0190, f02=» < $" = @ A A A : A W @ T 8 : 8 = V Y Y : , %Q R Y W W Z ' [ : W ?B?e + A A ( @ T2 : W A A & " Y : A ]B 0TOO MANY I/O ERRORS ON DISC P
0x338920…338ab4 (4, 241) Opaque[0x194]
0x338ab4…338c48 # DirEnt {nam=»KM0808«, typ=»UF«, f00=0x0000, f01=0x0000, f02=0x1930, f03=0x0000}
0x338ab4…338c48 IdxSect {
0x338ab4…338c48 f00 = 0x00c9 // 0x338ab4 @0x0
0x338ab4…338c48 f01 = 0x0004 // 0x338ab6 @0x2
0x338ab4…338c48 gno = [ // 0x338ab8 @0x4
0x338ab4…338c48 [0x00]: C0x00c9.0x2.0
0x338ab4…338c48 [0x01]: C0x00c9.0x3.0
0x338ab4…338c48 ]
0x338ab4…338c48 }
0x338c48…338ddc Dummy {f00=0x00c9, f01=0x0190, f02=» PMES NJ-AMT - OFFLINE PSCR " PLED KMD08,/S . P!!DL 49 DCDATASET B P!!DL 50 FD BACKUP P!!DL 51 DK05 v P!!DL 52,54 DK06-DK08 P!!DL 55,56 FD03,FD04 P!!DL 74,96 KA P!!DL 97,113 GA P!!DL 114,125 D0 P!!
0x338ddc…338f70 Dummy {f00=0x00c9, f01=0x0190, f02=»$TRUE$$FALSE$$ NO AUTO-KORT P!!RE 199,$$TRUE$$FALSE$$ $ P!!RE 301,$$128$$80$$ D P!!RE 309,$$OD-KOM$$NJ-AMT$$ ` 2 P!!RE 310,$$01014610$$%VER%REL%MOD$$ VERSION NO P!!RE 361,$$5$$1$$ P!!DL 362,363 " PON STRGI (12)2C' ',' ',' '
0x338f70…339104 Dummy {f00=0x00c9, f01=0x018e, f02=»!!DL 620 VDUKB P!!DL 621 PRINT P!!DL 622 SWITCH , P!!DL 623 GETTID D P!!DL 624 OFFLNE P!!DL 627 DSC0 t P!!DL 639,658 KBVGO P!!DL 659,675 GTPGO P!!DL 676,688 DC1GO P!!DL 689,706 OFFLNE P!!EN PNOD C
0x339104…339298 Dummy {f00=0x00c9, f01=0x0190, f02=» PINC SCREEN PINC SUBAPL PNOD R , PINC RGFRMT : PNOD R L PINC KTOPR Z PINC KTPLN l PINC ADM6D ~ PNOD R PINC RGSUB1 PINC RGSUB2 PINC DKSUBS PINC RGMAIN PNOD R PINC RGSTRT PAS
0x339298…33942c Dummy {f00=0x00c9, f01=0x002a, f02=»,C=CONNJ8,COUT=$CON8:01 h P$ASG2 PNOD R , PINC RGFRMT : PNOD R L PINC KTOPR Z PINC KTPLN l PINC ADM6D ~ PNOD R PINC RGSUB1 PINC RGSUB2 PINC DKSUBS PINC RGMAIN PNOD R PINC RGSTRT PAS
0x33942c…3395c0 Dummy {f00=0x00c9, f01=0x2008, f02=» 8,COUT=$CON8:01 h P$ASG2 PNOD R , PINC RGFRMT : PNOD R L PINC KTOPR Z PINC KTPLN l PINC ADM6D ~ PNOD R PINC RGSUB1 PINC RGSUB2 PINC DKSUBS PINC RGMAIN PNOD R PINC RGSTRT PAS
0x3395c0…339754 (4, 242) Dummy {f00=0x00c9, f01=0x0190, f02=» % " k " # j # @ l l V I J I , n % & l & & ' l ' ! k ! l L b FAST
0x339754…3398e8 Dummy {f00=0x00c9, f01=0x0190, f02=» ! ! = S I T X POST T/GL. ]R b a I b a P J Q I R I b = U
0x3398e8…339a7c Dummy {f00=0x00c9, f01=0x0190, f02=» W Q U L i N J O J W Y m M/P-NR b a b b
0x339a7c…339c10 Dummy {f00=0x00c9, f01=0x0190, f02=» ' SD-INCASSO a M F]R RE] REM OPK * DEBITORINDB a @
0x339c10…339da4 Dummy {f00=0x00c9, f01=0x0190, f02=» $ ! * 5 @ K V a l w 4 " O # q & ) , 4 4 C 4 w 6 ; B C ^ E J J 0 O z [ a $@ @ @ Z v 0 b
0x339da4…339f38 Dummy {f00=0x00c9, f01=0x0190, f02=» D 8 < @I ? A < A( A A 1 2 _ @) $ A)@ 1 6 _ _0H) ! u jW yW _HfW ( Q8j (W ( L" yW b Q ( yW Q x _| yW _ VL ( yV T jW V yW T WV _v uX WL ( yW L vj W j W L6
0x339f38…33a0cc Dummy {f00=0x00c9, f01=0x0190, f02=»yW T WL ( yW T b _R@(? H q(A m0 1 " QWH+ 0 _ A+ ( WL yW T8 v v Lj W j W j W L 0 1 (0 @+_ @+ 4 " !T u ,T _ Q( _ WZ H+ 0 _ A+ ( WL yW TF vj W " % _1 vj
0x33a0cc…33a260 Dummy {f00=0x00c9, f01=0x0190, f02=» " T u_ ^% _ 4 ( WL yW hW L P " Q W# hW L T P ( WL yW Q 4 A(@ C TS TN A TIA 1 6 99 _$ Ev E Ev wMC 5 T , T X , _ >3@(A ,? % >4a> h> L I T h> T 1 4 )
0x33a260…33a3f4 (4, 243) Opaque[0x194]
0x33a3f4…33a588 # DirEnt {nam=»CONNJ8«, typ=»UF«, f00=0x0000, f01=0x0000, f02=0x1940, f03=0x0000}
0x33a3f4…33a588 IdxSect {
0x33a3f4…33a588 f00 = 0x00ca // 0x33a3f4 @0x0
0x33a3f4…33a588 f01 = 0x0002 // 0x33a3f6 @0x2
0x33a3f4…33a588 gno = [ // 0x33a3f8 @0x4
0x33a3f4…33a588 [0x00]: C0x00ca.0x0.0
0x33a3f4…33a588 ]
0x33a3f4…33a588 }
0x33a588…33a71c Dummy {f00=0x00ca, f01=0x00de, f02=» T; P01; TID=TC; TCL=TC; * LEV=60; : 01; J PTDC=T01; V PLC=01L; f P00; v PC; P00; P01; PSCL=S01; U; 001; TB2; P001; P$ASG2 PNOD R PINC
0x33a71c…33a8b0 Dummy {f00=0x00ca, f01=0x2008, f02=» P01; TID=TC; TCL=TC; * LEV=60; : 01; J PTDC=T01; V PLC=01L; f P00; v PC; P00; P01; PSCL=S01; U; 001; TB2; P001; P$ASG2 PNOD R PINC
0x33a8b0…33aa44 Dummy {f00=0x00ca, f01=0x0190, f02=» ! 9 " & 4 " & TOTALS " & " BBZZZ.ZZZ.ZZZ.ZZ9.99- " : " " ` " BBZZZ.ZZZ.ZZZ.ZZ9.99- " p " " " BBZZZ.ZZZ.ZZZ.ZZ9.99- " " " & " & 4 " & SUPL " "
0x33aa44…33abd8 Dummy {f00=0x00ca, f01=0x0190, f02=»9.99- " x " L # & # & 2 # . & KORL # < & # N " BBZZZ.ZZZ.ZZZ.ZZ9.99- # " L # " BBZZZ.ZZZ.ZZZ.ZZ9.99- # " L # ( # # $ # ( #
0x33abd8…33ad6c Dummy {f00=0x00ca, f01=0x018e, f02=» # r " P $ & $ & $ & & 2 $ 4 & BEV $ B " BBZZZ.ZZZ.ZZZ.ZZ9.99- $ T " $ z " BBZZZ.ZZZ.ZZZ.ZZ9.99- $ " $ " BBZZZ.ZZZ.ZZZ.ZZ9.99- $ " $ & $ &
0x33ad6c…33af00 Dummy {f00=0x00ca, f01=0x0190, f02=» $ ( % * % & % $ & % 2 999B % @ " L % T B99.99.99. % d " L % ~ & % BEHOLDNINGST[LLERE % $ L % & % & % & % & %
0x33af00…33b094 (4, 244) Opaque[0x194]
0x33b094…33b228 # DirEnt {nam=»KTPLN «, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x1948, f03=0x0000}
0x33b094…33b228 IdxSect {
0x33b094…33b228 f00 = 0x00ca // 0x33b094 @0x0
0x33b094…33b228 f01 = 0x0006 // 0x33b096 @0x2
0x33b094…33b228 gno = [ // 0x33b098 @0x4
0x33b094…33b228 [0x00]: C0x00ca.0x1.0
0x33b094…33b228 [0x01]: C0x00ca.0x2.0
0x33b094…33b228 [0x02]: C0x00ca.0x3.0
0x33b094…33b228 ]
0x33b094…33b228 }
0x33b228…33b3bc Dummy {f00=0x00ca, f01=0x0190, f02=» P IDENT KTPLN 02.01.XXX.1 DDUM KMD08 & PDIV : P ENTRY KTPLAN H P ENTRY RESTMK ^ P ENTRY SETMK t P EXT RAREAD P INCLUDE EQUATE P EJECT PKTPLAN PROC KTNR,TYPE 4 P****************************************
0x33b3bc…33b550 Dummy {f00=0x00ca, f01=0x018e, f02=» IF FOUND - CONDITION REGISTER IS SET TO OK < P* TYPE WILL CONTAIN THE ASSOCIATED TYPE 6 * P* GSWBIN4 IS RECORD NO v < P* GSWBIN5 POINTS TO START OF FOUND NO . P* IF NOT FOUND - GSWBIN4 IS REC
0x33b550…33b6e4 Dummy {f00=0x00ca, f01=0x0190, f02=» P MOVE GSWBIN4,CBIN0 PKTP010 $ P ADD GSWBIN4,CBIN1 2 0 P CBG GSWBIN4,CBIN7,KTP020 RETURN, NOT FOUND L 8 P CBE CKTINDX(GSWBIN4),=D'0',KTP020 RETURN, NOT FOUND > P CBNL CKTINDX(GSWBIN4),KTNR,KTP030 KNT.NO < MASTER ?FOUND P B KTP010
0x33b6e4…33b878 Dummy {f00=0x00ca, f01=0x018e, f02=» B KTPNOK2 PKTP030 FOUND , P MUL GSWBIN4,CBIN3 LAST RECORD IN GROUP ( , P SUB GSWBIN4,CBIN2 FIRST RECORD IN GROUP X PKTP100 & P TBF CKFLAG,KTP110 WAIT FOR BUFFER P DELAY CBIN1 P B KTP100 PKTP110 P SET CKFLAG RESERVE
0x33b878…33ba0c Dummy {f00=0x00ca, f01=0x0190, f02=» " P BNOK KTPNOK ERROR ON READING P* LOOP THROUGH BUFFER * P MOVE GSWBIN5,CBIN0 L PKTP120 h P MOVE GSWBCD7,=D'1' v . P XCOPY GSWBCD7,CBIN1,CBIN6,CKTBUF,GSWBIN5 " P CBE GSWBCD7,KTNR,KTP200 FOUND ( P CBG GSWBCD7,KTNR,KTPNOK1 NOT
0x33ba0c…33bba0 Dummy {f00=0x00ca, f01=0x0190, f02=»T RECORD r P B KTP110 PKTP200 " P ADD GSWBIN5,CBIN6 GET TYPE 0 ( P MOVE GSWBCD7,=D'1' INITIATE NUMBER T . P XCOPY GSWBCD7,CBIN5,CBIN2,CKTBUF,GSWBIN5 P MOVE TYPE,GSWBCD7 P SUB GSWBIN5,CBIN6 P CLEAR CKFLAG P CMP CBIN0,C
0x33bba0…33bd34 (4, 245) Dummy {f00=0x00ca, f01=0x0190, f02=»BIN0,CBIN0 P RET PKTPNOK P CLEAR CKFLAG , P MOVE TYPE,=D'0' NOT FOUND B P CMP CBIN1,CBIN0 NOT OK d P RET P PEND P EJECT PRESTMK PROC ( P************************************ P* * P* RESET MASTE
0x33bd34…33bec8 Dummy {f00=0x00ca, f01=0x0190, f02=»3,GSWBIN4 FIND GROUP NO P ADD GSWBIN3,CBIN2 * P DIV GSWBIN3,CBIN3 GSWBIN3 = GROUP NO : PRES010 h 8 P CBE GSWBIN4,CKTLAST,RES100 LAST RECORD ? YES: JUMP v * P MOVE GSWBIN5,GSWBIN3 LAST IN GROUP ? P MUL GSWBIN5,CBIN3 P SUB GSWBIN5,G
0x33bec8…33c05c Dummy {f00=0x00ca, f01=0x0190, f02=»PY GSWBCD7,CBIN1,CBIN6,CKTBUF,GSWBIN5 GET LAST NO " P MOVE CKTINDX(GSWBIN3),GSWBCD7 : P B RESOK ` PRES100 p P ~ P CBE CKTLAST,CBIN0,RES170 0 P MOVE GSWBIN5,=W'120' FIND LAST USED NUMBER P MOVE GSWBCD7,=D'1' PRES110 4 P M
0x33c05c…33c1f0 Dummy {f00=0x00ca, f01=0x0190, f02=»GSWBIN3),GSWBCD7 SET MASTER INDEX PRES120 * 4 P ADD GSWBIN3,CBIN1 SET REMAINING INDICES TO ZERO 8 P CBG GSWBIN3,CBIN7,RESOK p P MOVE CKTINDX(GSWBIN3),=D'0' P B RES120 PRES150 P SUB GSWBIN5,CBIN8 P BNL RES110 PRES170
0x33c1f0…33c384 Dummy {f00=0x00ca, f01=0x018e, f02=»****************** P* 2 P* INITIATE MASTER INDEX FOR 'KONTOPLAN' $ P* Z P**************************** d P P MOVE GSWBIN4,CBIN1 PSET010 P MOVE GSWBIN5,=W'128' P MOVE CKTBUF,CBLANKS 2 P PERF RAREAD,DK04,=D
0x33c384…33c518 Dummy {f00=0x00ca, f01=0x0190, f02=» P PERF RESTMK P ADD GSWBIN4,CBIN1 P CBNG GSWBIN4,=W'21',SET010 2 P MOVE CKTLAST,=W'21' V P B SETOK r PSET100 P MOVE GSWBIN5,CBIN0 4 P MATCH CKTBUF,GSWBIN5,CBIN2,CBLANKS,CBIN0,CBIN2 P BNE SET120 P SUB GSWBIN4,CBI
0x33c518…33c6ac Dummy {f00=0x00ca, f01=0x407c, f02=» PSET120 P MOVE CKTLAST,GSWBIN4 P PERF RESTMK 0 PSETOK D P RET R P PEND ^ END l@ x r PSET100 P MOVE GSWBIN5,CBIN0 4 P MATCH CKTBUF,GSWBIN5,CBIN2,CBLANKS,CBIN0,CBIN2 P BNE SET120 P SUB GSWBIN4,CBI
0x33c6ac…33c840 Dummy {f00=0x00ca, f01=0x2008, f02=» @
0x33c840…33c9d4 (4, 246) Dummy {f00=0x00ca, f01=0x0190, f02=» d t * & 3 z } n z g * & p 0 0 m Z J 7 0 k @ * & ; k +S d a> Q n * & Y + : zN A g * & w M ZD 3 2 k k k B g * & b9
0x33c9d4…33cb68 Dummy {f00=0x00ca, f01=0x0190, f02=» Z J ^ * & # [ 2_ k ky ky * & + DIVERSE FORMATER +: R C N * & I J z ub d < 0 3 | * & g } = j V +! z * & h * L $ < ] N E S * &
0x33cb68…33ccfc Dummy {f00=0x00ca, f01=0x0190, f02=» ]# 8 K 0P 1P 2F 39 4O 6O 7 * & 2 5 + : zN = V * . * & 9 | J 4 04 4 * & W G 1 U 1 0 Y 0 X 2 [ | * & u } j K ]E @ * & 9 0? 1 } j
0x33ccfc…33ce90 Dummy {f00=0x00ca, f01=0x0190, f02=» k k p * & k 2 ULTIMOk 4 TOTALk * & ) k k 4 SUPL k k k < * & G 2 KOR k k + S H I j * & e - z 2 * * 4 q * & NETTO * VERS * & NR x {
0x33ce90…33d024 Dummy {f00=0x00ca, f01=0x0190, f02=»iihgkb_fIHGF<=^catNF ~ * & NNedZMLEDCBA@c`K?TSpoSTSRRSO;; * & 7 ;;;;;;;;;;;A J * & U ) 2 = H * T x * & s * & ! % ) * &
0x33d024…33d1b8 Dummy {f00=0x00ca, f01=0x0190, f02=» * & ' * 8 F T c s * * & E X * & c * & * & " $ & (
0x33d1b8…33d34c Dummy {f00=0x00ca, f01=0x0190, f02=» k l * & o s w | * & 5 8 * & S f * & q ' 3 ? K X * & e r * &
0x33d34c…33d4e0 Dummy {f00=0x00ca, f01=0x407c, f02=» @ @ @ @ z " % @ @ @ @ ) B ; r > ? b R B f@ x f * & q ' 3 ? K X * & e r * &
0x33d4e0…33d674 (4, 247) Opaque[0x194]
0x33d674…33d808 # DirEnt {nam=»HELP «, typ=»UF«, f00=0x0000, f01=0x0000, f02=0x1960, f03=0x0000}
0x33d674…33d808 IdxSect {
0x33d674…33d808 f00 = 0x00cb // 0x33d674 @0x0
0x33d674…33d808 f01 = 0x0002 // 0x33d676 @0x2
0x33d674…33d808 gno = [ // 0x33d678 @0x4
0x33d674…33d808 [0x00]: C0x00cb.0x0.0
0x33d674…33d808 ]
0x33d674…33d808 }
0x33d808…33d99c Dummy {f00=0x00cb, f01=0x0190, f02=» $ PMES E.G. OF ALL PROCEDURE CALLS 4 PMES $KMDGEN KMD=975,VER=01$$,REL=01$$,MOD=9751$$ , PMES - FOR KMD GENERATION d PMES $INCGEN 0 PMES - INCLUDE OF PRODUCTION INTEPRETER, KMD PMES $RDA NAM=TEST,DEV=CR0D " PMES - READING OF DATA (CAR
0x33d99c…33db30 Dummy {f00=0x00cb, f01=0x0190, f02=»MES $MOVE NAM=,FC=/S,ID=KMDPRO8 PMES - MOVE A MODULE ( < PMES $COMPEV NAM=/S,NL,BUG,.LKE,A=AAAA,M=M:KONV,C=KONFIG D PMES - SPECIAL GENERATION * PMES $PCAS M=,MU=,A=,AU=,C=,CU=,D=,DU= PMES - SEE MANUAL PMES $LETRA NAM=,LS= PME
0x33db30…33dcc4 Dummy {f00=0x00cb, f01=0x0170, f02=»K NAM=,LS=,BG= PMES - TRA KONVER AND LINK PMES $TLK N= 8 $ PMES - TLK KONVER, WITHOUT CREBUG L PMES $TLK1 N= t PMES - AS TLK PMES $TLK2 N= PMES - AS TLK, + CREBUG PMES $TLK3 PMES - TLK PMES $ASG1 PMES
0x33dcc4…33de58 Dummy {f00=0x00cb, f01=0x2008, f02=» S=,BG= PMES - TRA KONVER AND LINK PMES $TLK N= 8 $ PMES - TLK KONVER, WITHOUT CREBUG L PMES $TLK1 N= t PMES - AS TLK PMES $TLK2 N= PMES - AS TLK, + CREBUG PMES $TLK3 PMES - TLK PMES $ASG1 PMES
0x33de58…33dfec Dummy {f00=0x00cb, f01=0x0190, f02=»
[…0x1…]
0x33e180…33e314 (4, 248) Opaque[0x194]
0x33e314…33e4a8 # DirEnt {nam=»KM0809«, typ=»UF«, f00=0x0000, f01=0x0000, f02=0x0838, f03=0x0000}
0x33e314…33e4a8 IdxSect {
0x33e314…33e4a8 f00 = 0x0041 // 0x33e314 @0x0
0x33e314…33e4a8 f01 = 0x0002 // 0x33e316 @0x2
0x33e314…33e4a8 gno = [ // 0x33e318 @0x4
0x33e314…33e4a8 [0x00]: C0x0041.0x3.0
0x33e314…33e4a8 ]
0x33e314…33e4a8 }
0x33e4a8…33e63c Dummy {f00=0x0041, f01=0x018e, f02=» PPRT KM0805 PPRT CONNJ5 . PMES NJ-AMT - FARSO, HOBRO, BROVST, DR.LUND ( PMES CONCENTRATOR Z PMES 6272 KEYBOARD r PMES 80-10-13 PSCR PLED KMD08,/S P!!DL 50 FD BACKUP P!!DL 51 DK05 P!!DL 52,54 DK06-DK08
0x33e63c…33e7d0 Dummy {f00=0x0041, f01=0x0190, f02=» ( PCNFHC BINI (16),'1','2','3','0','0' P!!DL 180,181 0 ( POFF STRGI (12)2C'TD','TE','TF',' ' D P!!RE 187,$$FALSE$$TRUE$$ BKO p ( P!!RE 188,$$FALSE$$TRUE$$ SALDO KORT * P!!RE 194,$$TRUE$$FALSE$$ NO AUTO-KORT P!!RE 195,$$FALSE$$TRUE$$ D
0x33e7d0…33e964 Dummy {f00=0x0041, f01=0x0190, f02=»MOD$$ VERSION NO r P!!RE 361,$$5$$1$$ P!!DL 362,363 2 , PON STRGI (12)2C' ','KA','KB','KC',' ' F $ P!!RE 473,$$27$$25$$ DEFAULT LINE v P!!EN PNOD C PTRA /S,NL PINC DIVFMT PINC RGADM PNOD R PINC RGFRMT
0x33e964…33eaf8 Dummy {f00=0x0041, f01=0x0184, f02=» PINC RGSUB3 PNOD R PINC SCREEN $ PINC SUBAPL 6 PNOD R H PINC RGSUB1 V PINC RGSUB2 h PINC DKSUBS z PINC RGMAIN PTLK U,4K PINC PRT PINC VDUPRT PINC START PINC TB3270 P$INCGEN LKE
0x33eaf8…33ec8c Dummy {f00=0x0041, f01=0x2008, f02=» RGSUB3 PNOD R PINC SCREEN $ PINC SUBAPL 6 PNOD R H PINC RGSUB1 V PINC RGSUB2 h PINC DKSUBS z PINC RGMAIN PTLK U,4K PINC PRT PINC VDUPRT PINC START PINC TB3270 P$INCGEN LKE
0x33ec8c…33ee20 Dummy {f00=0x0041, f01=0x0190, f02=»NFRET $ P PERF CONRDX,CCONBUF9,CBIN10 % PCONFRET % 2 P RET % B P PEND % N P* % PCONRDX PROC CBUFRD,CBUFNO % f P* % P MOVE GSWBIN1,=W'199' % 2 P PERF RAREAD,DK01,=D'1',CBUFRD,GSWBIN1,CBUFNO % P RET % P PEND % P EJECT %
0x33ee20…33efb4 (4, 249) Opaque[0x194]
0x33efb4…33f148 # DirEnt {nam=»CONNJ9«, typ=»UF«, f00=0x0000, f01=0x0000, f02=0x13f0, f03=0x0000}
0x33efb4…33f148 IdxSect {
0x33efb4…33f148 f00 = 0x009f // 0x33efb4 @0x0
0x33efb4…33f148 f01 = 0x0004 // 0x33efb6 @0x2
0x33efb4…33f148 gno = [ // 0x33efb8 @0x4
0x33efb4…33f148 [0x00]: C0x009f.0x2.0
0x33efb4…33f148 [0x01]: C0x009f.0x3.0
0x33efb4…33f148 ]
0x33efb4…33f148 }
0x33f148…33f2dc Dummy {f00=0x009f, f01=0x0190, f02=» T; P01; TID=TC; TCL=TC; * LEV=60; : 01; J PTDC=T02; V PLC=01L; f P01; v PSCL=S04; T; P01; PTID=TD; TCL=TC; LEV=60; 01; PTDC=T02; PLC=01R; P00;
0x33f2dc…33f470 Dummy {f00=0x009f, f01=0x0190, f02=» P01; PTID=TF; TCL=TC; $ LEV=60; 4 01; D PTDC=T02; P PLC=05R; ` P00; p PT; | P01; PTID=KA; TCL=KA; LEV=60; 01; TDC=T03; PLC=01R; P03; PSCL=S02;
0x33f470…33f604 Dummy {f00=0x009f, f01=0x0190, f02=»3R; P03; PSCL=S02; PSCL=S03; ( PSCL=S04; 8 PT; H P01; R PTID=KC; ^ TCL=KA; n LEV=60; ~ 01; TDC=T03; PLC=05R; P03; PSCL=S02; PSCL=S03; PSCL=S04; T; P01;
0x33f604…33f798 Dummy {f00=0x009f, f01=0x018e, f02=» PSCL=S04; T; P01; PTID=GB; * TCL=GA; : LEV=60; J 01; Z TDC=T04; f PLC=04R; v P03; PSCL=S02; PSCL=S03; PSCL=S04; T; P01; PTID=GC; TCL=GA; LEV=60;
0x33f798…33f92c Dummy {f00=0x009f, f01=0x009c, f02=» TCL=D0; LEV=60; 00; ( P00; 4 PC; @ P00; J P01; V PSCL=S01; b U; r 001; | TB2; P004; PSCL=S03; PSCL=S04; T; P01; PTID=GC; TCL=GA; LEV=60;
0x33f92c…33fac0 Dummy {f00=0x009f, f01=0x2008, f02=» TCL=D0; LEV=60; 00; ( P00; 4 PC; @ P00; J P01; V PSCL=S01; b U; r 001; | TB2; P004; PSCL=S03; PSCL=S04; T; P01; PTID=GC; TCL=GA; LEV=60;
0x33fac0…33fc54 (4, 250) Dummy {f00=0x009f, f01=0x0190, f02=»- u u 0 11 mA W @ 2 FFGH! ! _ | 0 1_% ` 0 1_2 X 0 1A 1 f _W A 0 1 ) ! ~ 1 x@ 1 W A _ @ W I I I :A W @ 4 2 W H !I |A 1 l 6 _ | W 3WX WT 4WP /WL 5WH 6WD0 * 2$ 0
0x33fc54…33fde8 Dummy {f00=0x009f, f01=0x0004, f02=» ` h
0x33fde8…33ff7c Dummy {f00=0x009f, f01=0x0190, f02=» T; P01; TID=TC; TCL=TC; * LEV=60; : 01; J PTDC=T02; V PLC=01L; f P01; v PSCL=S04; T; P01; PTID=TD; TCL=TC; LEV=60; 01; PTDC=T02; PLC=01R; P00;
0x33ff7c…340110 Dummy {f00=0x009f, f01=0x0190, f02=» P01; PTID=TF; TCL=TC; $ LEV=60; 4 01; D PTDC=T02; P PLC=05R; ` P00; p PT; | P01; TID=KA; TCL=KA; LEV=60; 01; TDC=T03; PLC=01L; P03; PSCL=S02;
0x340110…3402a4 Dummy {f00=0x009f, f01=0x0190, f02=»1R; P03; PSCL=S02; PSCL=S03; ( PSCL=S04; 8 PT; H P01; R PTID=KC; ^ TCL=KA; n LEV=60; ~ 01; TDC=T03; PLC=03R; P03; PSCL=S02; PSCL=S03; PSCL=S04; T; P01;
0x3402a4…340438 Dummy {f00=0x009f, f01=0x018e, f02=» PSCL=S04; T; P01; PTID=GB; * TCL=GA; : LEV=60; J 01; Z TDC=T04; f PLC=02R; v P03; PSCL=S02; PSCL=S03; PSCL=S04; T; P01; PTID=GC; TCL=GA; LEV=60;
0x340438…3405cc Dummy {f00=0x009f, f01=0x009c, f02=» TCL=D0; LEV=60; 00; ( P00; 4 PC; @ P00; J P01; V PSCL=S01; b U; r 001; | TB2; P004; PSCL=S03; PSCL=S04; T; P01; PTID=GC; TCL=GA; LEV=60;
0x3405cc…340760 Dummy {f00=0x009f, f01=0x2008, f02=» TCL=D0; LEV=60; 00; ( P00; 4 PC; @ P00; J P01; V PSCL=S01; b U; r 001; | TB2; P004; PSCL=S03; PSCL=S04; T; P01; PTID=GC; TCL=GA; LEV=60;
0x340760…3408f4 (4, 251) Opaque[0x194]
0x3408f4…340a88 # DirEnt {nam=»LEDLS «, typ=»UF«, f00=0x0000, f01=0x0000, f02=0x15e8, f03=0x0000}
0x3408f4…340a88 IdxSect {
0x3408f4…340a88 f00 = 0x00af // 0x3408f4 @0x0
0x3408f4…340a88 f01 = 0x0002 // 0x3408f6 @0x2
0x3408f4…340a88 gno = [ // 0x3408f8 @0x4
0x3408f4…340a88 [0x00]: C0x00af.0x1.0
0x3408f4…340a88 ]
0x3408f4…340a88 }
0x340a88…340c1c Dummy {f00=0x00af, f01=0x0190, f02=» PLED RGSTRT P!!LS $$XLS$$ P!!AB * PLED DKSUBS 6 P!!LS $$XLS$$ H P!!AB PLED KMD08 h P!!LS $$XLS$$ z P!!AB PLED RGMAIN P!!LS $$XLS$$ P!!AB PLED SL6272,/S P!!LS $$XLS$$ P!!AB PLED SC
0x340c1c…340db0 Dummy {f00=0x00af, f01=0x018e, f02=» PLED RGSUB1 P!!LS $$XLS$$ P!!AB . PLED RGSUB2 : P!!LS $$XLS$$ L P!!AB ` PLED RGSUB3,/S l P!!LS $$XLS$$ P!!AB PLED RGFRMT P!!LS $$XLS$$ P!!AB PLED SUBAPL P!!LS $$XLS$$ P!!AB PLE
0x340db0…340f44 Dummy {f00=0x00af, f01=0x0082, f02=» P!!AB PLED KTPLN,/S P!!LS $$XLS$$ $ P!!AB 8 PLED KTOPR,/S D P!!LS $$XLS$$ X P!!AB l $ASG2 x!!LS $$XLS$$ P!!AB PLED RGFRMT P!!LS $$XLS$$ P!!AB PLED SUBAPL P!!LS $$XLS$$ P!!AB PLE
0x340f44…3410d8 Dummy {f00=0x00af, f01=0x2008, f02=» PLED KTPLN,/S P!!LS $$XLS$$ $ P!!AB 8 PLED KTOPR,/S D P!!LS $$XLS$$ X P!!AB l $ASG2 x!!LS $$XLS$$ P!!AB PLED RGFRMT P!!LS $$XLS$$ P!!AB PLED SUBAPL P!!LS $$XLS$$ P!!AB PLE
0x3410d8…34126c Dummy {f00=0x00af, f01=0x0190, f02=» 0 0 , J F " D RL R LL5L ) R_0 RL RL R LLWL < R_C RL R W R )xL xL v I { H > 0 . , " & - FD J F " D I) #yL fv
0x34126c…341400 Dummy {f00=0x00af, f01=0x0190, f02=» v0 # x 8 J F " D @) r t " @( 0X A 0X 1XF R6 _2 L R :_/0X 0 & ~ ' 0 r 0 r 8 8 '
0x341400…341594 (4, 252) Opaque[0x194]
0x341594…341728 # DirEnt {nam=»KTPLND«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x1988, f03=0x0000}
0x341594…341728 IdxSect {
0x341594…341728 f00 = 0x00cc // 0x341594 @0x0
0x341594…341728 f01 = 0x0002 // 0x341596 @0x2
0x341594…341728 gno = [ // 0x341598 @0x4
0x341594…341728 [0x00]: C0x00cc.0x1.0
0x341594…341728 ]
0x341594…341728 }
0x341728…3418bc Dummy {f00=0x00cc, f01=0x018e, f02=» P IDENT KTPLND 02.01.XXX.1 DDUM KMD08 & PDIV : ******************** H * d * %* DUMMY MODULE FOR KONTOPLAN n * ******************** * ENTRY KTPLAN P ENTRY SETMK INCLUDE EQUATE
0x3418bc…341a50 Dummy {f00=0x00cc, f01=0x4062, f02=» PSETMK PROC P RET P PEND & P* 4 P* > P* H END R@ ^ * d * %* DUMMY MODULE FOR KONTOPLAN n * ******************** * ENTRY KTPLAN P ENTRY SETMK INCLUDE EQUATE
0x341a50…341be4 Dummy {f00=0x00cc, f01=0x2008, f02=» KTOPR PROC CMP CBIN0,CBIN0 RET 2 PEND > END L@ X H * d * %* DUMMY MODULE FOR KONTOPLAN n * ******************** * ENTRY KTPLAN ENTRY KTOPR INCLUDE EQUATE
0x341be4…341d78 Dummy {f00=0x00cc, f01=0x0190, f02=» 4 @; 4 ~ * & a TF j g * & ) d W4 a + hg P j g J * & G d " d _ ^% _ 4 x * & e ; g g hg P * & $" a$W# hg T P * &
0x341d78…341f0c Dummy {f00=0x00cc, f01=0x0190, f02=» X ? _ @8A ? NE? * & 2 NFaNMhN I T * * & 7 hN T 1 G 4 9 X * & U 4 S U 6 * & s * !6 ! _ ? " P * & _0 6 4 ? # @W ? # J
0x341f0c…3420a0 Dummy {f00=0x00cc, f01=0x0190, f02=»S l * & ; ] ST ! h h ] P * & ' b P ;h] P G_ + 8 * & E S W# ! ; E ;d] 8 f * & c 8 mN I_h S0 1 L * & TB $T>_ T5 $T1 NFmN I * & 6 T I
0x3420a0…342234 (4, 253) Opaque[0x194]
0x342234…3423c8 # DirEnt {nam=»KTOPR «, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x1990, f03=0x0000}
0x342234…3423c8 IdxSect {
0x342234…3423c8 f00 = 0x00cc // 0x342234 @0x0
0x342234…3423c8 f01 = 0x0006 // 0x342236 @0x2
0x342234…3423c8 gno = [ // 0x342238 @0x4
0x342234…3423c8 [0x00]: C0x00cc.0x2.0
0x342234…3423c8 [0x01]: C0x00cc.0x3.0
0x342234…3423c8 [0x02]: C0x00cd.0x0.0
0x342234…3423c8 ]
0x342234…3423c8 }
0x3423c8…34255c Dummy {f00=0x00cc, f01=0x0190, f02=» P IDENT KTOPR 02.01.XXX.1 DDUM KMD08 & PDIV : ENTRY KTOPR H P ENTRY KTPRT P EXT ADMRET p EXT KTPLAN P EXT RESTMK P EXT RAREAD P EXT RAWRIT P EXT SPCLRA P EXT SPCLRN P EXT SPERR
0x34255c…3426f0 Dummy {f00=0x00cc, f01=0x018e, f02=»* OPRETTELSE/SLETNING I KONTOPLAN P* . P******************** 8 & P TBT GTMASTFL,KTCR00A ONLY MASTER T P B KTCROK1 ~ PKTCR00A * P CMP CTASKNR,CBIN0 ALL MUST BE CLOSED P BNE KTCROK1 ( P SET CCONVFLG CLOSE FOR OTHER TASKS
0x3426f0…342884 Dummy {f00=0x00cc, f01=0x0190, f02=» ~ PKTCR010 P PERF SPCLRA & P IB SPBINW2,KTCROK,KTCROK,KTCR100 , P B KTCR000 V * PKTCR100 CLEAR CSWFLAG LOOK FOR NUMBER h P PERF KTPLAN,GSWBCD6,GSWBCD3 " P BNOK KTCR000 ERROR ON KTPLAN P CBL GSWBIN5,CBIN0,KTCR110 P SET C
0x342884…342a18 Dummy {f00=0x00cc, f01=0x0190, f02=»130,KTCR150 x P B KTCR120 PKTCR130 B KTCR000 & PKTCR150 @ & P TBF CSWFLAG,KTCR500 IF NOT FOUND P P* FOUND z 0 P CBE GSWBCD3,=D'0',KTCR200 BRANCH TO DELETE P ADD GSWBIN5,CBIN6 . P XCOPY CKTBUF,GSWBIN5,CBIN2,GSWBCD3,CBIN1
0x342a18…342bac Dummy {f00=0x00cc, f01=0x0190, f02=» - RECORD NO | , P* GSWBIN5-6 - START OF RECORD PKTCR200 D PKTCR210 T . P DLETE CKTBUF,GSWBIN5,CBIN8 DELETE RECORD d " P CBNE GSWBIN4,CKTLAST,KTCR250 $ P NOW THIS IS LAST USED RECORD . P XCOPY GSWSTR20,CBIN0,CBIN20,CKTBUF,
0x342bac…342d40 Dummy {f00=0x00cc, f01=0x0190, f02=»DELETED P SUB CKTLAST,CBIN1 P SUB GSWBIN4,CBIN1 * P CBE GSWBIN4,CBIN0,KTCR215 D P MOVE GSWBIN5,=W'128' f 2 P PERF RAREAD,DK04,=D'4',CKTBUF,GSWBIN5,CKTLAST P BNOK KTCR000 PKTCR215 P PERF RESTMK P B KTCR000 PKT
0x342d40…342ed4 (4, 254) Dummy {f00=0x00cc, f01=0x0190, f02=» & P ADD GSWBIN4,CBIN1 NOT LAST RECORD P MOVE CCYBUF,CBLANKS 2 P MOVE GSWBIN5,=W'128' N 2 P PERF RAREAD,DK04,=D'4',CCYBUF,GSWBIN5,GSWBIN4 l P BNOK KTCROK P MOVE GSWBIN5,=W'120' , P XCOPY CKTBUF,GSWBIN5,CBIN8,CCYBUF,CBIN0 P MOV
0x342ed4…343068 Dummy {f00=0x00cc, f01=0x0190, f02=» MOVE CKTBUF,CCYBUF P MOVE GSWBIN5,CBIN0 P ADD GSWBIN4,CBIN1 8 P B KTCR200 R PKTCR500 d P NOT FOUND t P CMP GSWBCD3,=D'0' $ P BE KTCR000 DELETE NON-EXISTING P* CREATE NEW P MOVE CKTBUF,CBLANKS P MOVE GS
0x343068…3431fc Dummy {f00=0x00cc, f01=0x0190, f02=»WBIN5,CBIN0 PKTCR520 P MOVE GSWBCD7,=D'1' $ . P XCOPY GSWSTR20,CBIN0,CBIN6,CKTBUF,GSWBIN5 @ . P XCOPY GSWBCD7,CBIN1,CBIN6,CKTBUF,GSWBIN5 r : P CBE GSWSTR20,CBLANKS,KTCR550 POSITION FOUND (BLANK) 0 P CBG GSWBCD7,GSWBCD6,KTCR550 POSITION
0x3431fc…343390 Dummy {f00=0x00cc, f01=0x0190, f02=» PKTCR530 P ADD GSWBIN4,CBIN1 P CBL GSWBIN4,=W'22',KTCR540 . P* SET UP ERROR 10 R PKTCR535 p P MOVE SPBINW4,CBIN21 P MOVE GTWBCD2,=D'04' P MOVE GTWBCD1,=D'10' P MOVE GSWSTR9,=C'DISCFEJL ' P PERF SPERR
0x343390…343524 Dummy {f00=0x00cc, f01=0x0190, f02=»SWBIN4 h P BNOK KTCR000 P MOVE GSWBIN5,CBIN0 $ PKTCR550 @ . P XCOPY GSWSTR20,CBIN0,CBIN6,GSWBCD6,CBIN1 P . P XCOPY GSWSTR20,CBIN6,CBIN2,GSWBCD3,CBIN1 PKTCR560 P MOVE GSWBIN3,=W'120' 8 P XCOPY GSWSTR20,CBIN8,CBIN8,CKTBUF,GSW
0x343524…3436b8 Dummy {f00=0x00cc, f01=0x018e, f02=»F RAWRIT,DK04,=D'4',CKTBUF,GSWBIN4 P BNOK KTCROK * P PERF RESTMK > P B KTCR000 R PKTCR600 d " P CBNE GSWBIN4,CKTLAST,KTCR610 t P CBE CKTLAST,=W'21',KTCR535 P ADD CKTLAST,CBIN1 PKTCR610 * P PERF RAWRIT,DK04,=D'4',CKTBUF,G
0x3436b8…34384c Dummy {f00=0x00cc, f01=0x0190, f02=» 2 P PERF RAREAD,DK04,=D'4',CKTBUF,GSWBIN5,GSWBIN4 P BNOK KTCROK : P MOVE GSWBIN5,CBIN0 N . P COPY GSWSTR20,CBIN0,CBIN8,GSWSTR20,CBIN8 j P B KTCR560 PKTCROK P CLEAR CCONVFLG PKTCROK1 P B ADMRET P EJECT PKTPR
0x34384c…3439e0 Dummy {f00=0x00cc, f01=0x0190, f02=» | & P TBF GTMASTFL,KTPRTOK ONLY MASTER P CBNE CTASKNR,CBIN0,KTPRTOK 2 P WAIT KTALLY V ( P EDWRT KTALLY,KTPF100 WRITE HEADING j P* LOOP THROUGH FILE P MOVE GSWBIN4,CBIN0 PKTPRT15 P ADD GSWBIN4,CBIN1 8 P CBG GSWBIN4
0x3439e0…343b74 (4, 255) Dummy {f00=0x00cd, f01=0x0190, f02=»5 P SET CKFLAG RESERVE BUFFER P MOVE GSWBIN5,=W'128' , P MOVE CKTBUF,CBLANKS J 2 P PERF RAREAD,DK04,=D'4',CKTBUF,GSWBIN5,GSWBIN4 f P BNOK KTPRT45 P* LOOP THROUGH BUFFER P MOVE GSWBIN5,CBIN0 PKTPRT35 P MOVE GS
0x343b74…343d08 Dummy {f00=0x00cd, f01=0x0190, f02=»SWBCD6,CBIN1,CBIN6,CKTBUF,GSWBIN5 P ADD GSWBIN5,CBIN6 * . P XCOPY GSWBCD3,CBIN1,CBIN2,CKTBUF,GSWBIN5 D P ADD GSWBIN5,CBIN2 v " P CBE GSWSTR20,CBLANKS,KTPRT80 P WAIT KTALLY $ P EDWRT KTALLY,KTPF200 PRINT LINE P CBL GSWBIN5,=W'128',K
0x343d08…343e9c Dummy {f00=0x00cd, f01=0x0190, f02=»KTPRT80 P CLEAR CKFLAG PKTPRT90 & " P PERF FRMXTA,CBIN7 SKIP LINES 6 P PERF WTALLY PKTPRTOK p P RET P PEND P EJECT P* P* P* FORMATS P* P PKTPFRM01 FRMT P FLINK KTPF100
0x343e9c…344030 Dummy {f00=0x00cd, f01=0x0190, f02=» GTDYFLG,KTPF020 & P FKI 13,ME,MINL=1,MAXL=1,APPL=106 P FMEL '9',GSWBCD3 B PKTPF020 P FMEND l * z PKTPF100 FRMT P FSL P FCOPY =C'ADM ' P FNL P FCOPY =C'DATAS[T' P FILLR ' ',1 P FCOPY =C'REGKON
0x344030…3441c4 Dummy {f00=0x00cd, f01=0x40e6, f02=»NL P FNL P FMEND P* $ PKTPF200 FRMT . P FILLR '1',2 B & P FMEL '99999999E-99',GSWBCD6 KT NO V P FMEL 'BBZ9',GSWBCD3 TYPE P FILLR ' ',2 P FMEND P* P END @ ILLR ' ',1 P FCOPY =C'REGKON
0x3441c4…344358 Dummy {f00=0x00cd, f01=0x2008, f02=» NT KTOPR 01.03.XXX.1 DDUM KMD08 $ PDIV 8 ENTRY KTOPR F EXT KTPLAN Z * n END x@
0x344358…3444ec Dummy {f00=0x00cd, f01=0x0000, f02=»-XXXXXE-XX t 999E-99999E-99 j BEHOLDNINGST[LLERE ` BEV.PERIODEx V SALDOZ L B*.***.***.**9E,99 B ZZ999999 8 B** . B99. TRP *.***.***.**9.99+B Z.ZZZ.ZZZ.ZZ9.99-2 " +^ +^ * 9 +C ] @ ] %
0x3444ec…344680 Dummy {f00=0x00cd, f01=0x0000, f02=» 2 BEV g g g 2 ULTIMOg t 9 4 TOTALg g g 4 SUPL g g g 2 KOR g g , j 2 g g g * ` 2U g gy gy V , , 9 L ] . B O 9 " 8 O 9 0 . ' @ 9 $ < Z/ R ]
0x344680…344814 (4, 256) Opaque[0x194]
0x344814…3449a8 # DirEnt {nam=»KTOPRD«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x19a8, f03=0x0000}
0x344814…3449a8 IdxSect {
0x344814…3449a8 f00 = 0x00cd // 0x344814 @0x0
0x344814…3449a8 f01 = 0x0002 // 0x344816 @0x2
0x344814…3449a8 gno = [ // 0x344818 @0x4
0x344814…3449a8 [0x00]: C0x00cd.0x1.0
0x344814…3449a8 ]
0x344814…3449a8 }
0x3449a8…344b3c Dummy {f00=0x00cd, f01=0x018e, f02=» P IDENT KTOPRD 02.01.XXX.1 DDUM KMD08 & PDIV : ******************** H * d * %* DUMMY MODULE FOR KONTOPLAN n * ******************** * ENTRY KTOPR P ENTRY KTPRT P EXT ADMRET
0x344b3c…344cd0 Dummy {f00=0x00cd, f01=0x4028, f02=» P* P* END @ $DUM KMD08 & PDIV : ******************** H * d * %* DUMMY MODULE FOR KONTOPLAN n * ******************** * ENTRY KTOPR P ENTRY KTPRT P EXT ADMRET
0x344cd0…344e64 Dummy {f00=0x00cd, f01=0x2008, f02=» KTOPR PROC CMP CBIN0,CBIN0 RET 2 PEND > END L@ X H * d * %* DUMMY MODULE FOR KONTOPLAN n * ******************** * ENTRY KTPLAN ENTRY KTOPR INCLUDE EQUATE
0x344e64…344ff8 Dummy {f00=0x00cd, f01=0x0000, f02=»
[…0x2…]
0x345320…3454b4 (4, 257) Opaque[0x194]
0x3454b4…345648 # DirEnt {nam=»RGMND «, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x19b0, f03=0x0000}
0x3454b4…345648 IdxSect {
0x3454b4…345648 f00 = 0x00cd // 0x3454b4 @0x0
0x3454b4…345648 f01 = 0x0002 // 0x3454b6 @0x2
0x3454b4…345648 gno = [ // 0x3454b8 @0x4
0x3454b4…345648 [0x00]: C0x00cd.0x2.0
0x3454b4…345648 ]
0x3454b4…345648 }
0x345648…3457dc Dummy {f00=0x00cd, f01=0x40ea, f02=» P IDENT RGMND 02.01.XXX.1 P DDUM KMD08 & P PDIV : P ENTRY INITRG H P INCLUDE EQUATE ^ P EJECT v PINITRG PROC P RET P* P PEND P* P* P* P END @ < P PG01,PG01,PG01,PG01,PG01
0x3457dc…345970 Dummy {f00=0x00cd, f01=0x2008, f02=» NT RGMAIN @ AG&5 z < PTRERR ERRORMESSAG&5 * P PERF SPERR j P B TR90 P PEND P* P* @ NTERMEDIATE STOP OF CYCLE 8 P
0x345970…345b04 Dummy {f00=0x00cd, f01=0x0190, f02=» 1 & $ & 6 F u V f x J F " D L8R2 RRRRRR_4 R- L L! L L0X 0X 2 RRR L4 ! L A ! &
0x345b04…345c98 Dummy {f00=0x00cd, f01=0x0190, f02=» & 1 ( " . @ " P ` p J F " D L ?R 0X 0X ! L ?R4 1X F4 L0X 1X F ! L4! LR L6 ,
0x345c98…345e2c Dummy {f00=0x00cd, f01=0x4160, f02=» + 3 , 6 & < , 6 ? F J F " D 0X K W 0X K W 0X K $2 RRR_, R4 L6 0XV K W 0XV K V E , H O Q Y " [
0x345e2c…345fc0 Dummy {f00=0x00cd, f01=0x4016, f02=» PNOD R @ ( 0
0x345fc0…346154 (4, 258) Opaque[0x194]
0x346154…3462e8 # DirEnt {nam=»ADM6 «, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x19b8, f03=0x0000}
0x346154…3462e8 IdxSect {
0x346154…3462e8 f00 = 0x00cd // 0x346154 @0x0
0x346154…3462e8 f01 = 0x000c // 0x346156 @0x2
0x346154…3462e8 gno = [ // 0x346158 @0x4
0x346154…3462e8 [0x00]: C0x00cd.0x3.0
0x346154…3462e8 [0x01]: C0x00ce.0x0.0
0x346154…3462e8 [0x02]: C0x00ce.0x1.0
0x346154…3462e8 [0x03]: C0x00ce.0x2.0
0x346154…3462e8 [0x04]: C0x00ce.0x3.0
0x346154…3462e8 [0x05]: C0x00cf.0x0.0
0x346154…3462e8 ]
0x346154…3462e8 }
0x3462e8…34647c Dummy {f00=0x00cd, f01=0x0190, f02=» P IDENT ADM6 02.01.XXX.1 DDUM KMD08 $ PDIV 8 P ENTRY ADM600 F P ENTRY SIGNON P ENTRY CHNGDK r P ENTRY STRTRC P ENTRY SENDRC P ENTRY TERMIN P ENTRY SIGNOF P ENTRY EXCHAN P ENTRY TRNOK
0x34647c…346610 Dummy {f00=0x00cd, f01=0x018e, f02=» ADMRET P EXT SPERR P EXT CLSVOL " P EXT LAMPON 6 P EXT SOPRD J P EXT ASGVOL P EXT BCKUP p P EXT RAREAD P EXT GETBIT P EXT WRITJT P* P INCLUDE EQUATE P EJECT PADM600 P SET CCONVFL
0x346610…3467a4 Dummy {f00=0x00cd, f01=0x0190, f02=» " P CMP CTASKNR,CBIN0 ALL CLOSED P BNE ADM06RET * P SET SPPROMPT @ P MOVE SPKEY,CBIN2 V P ATTFMT SNDFRM p P PERF SPCLRS * P IB SPBINW2,ADM06RET,ADM06RET,ADM0610 P B ADM600 P* , P* WRITE SL
0x3467a4…346938 Dummy {f00=0x00cd, f01=0x0190, f02=»=D'2',CPCKBUF,CRECNR ~ P BNOK ADM600 . P PERF WRITID,CBIN5,CBIN2 SLUTID ON JOURNAL 0 P EJECT b 6 P************************************************** p P* $ P* BATCH TRANSMISSION P* 1) SIGNON P* 2) CHANGE
0x346938…346acc Dummy {f00=0x00cd, f01=0x018e, f02=»INATE j 2 P* 6) WHEN ALL TRANSMITTED SEND SIGNOFF P* D 6 P************************************************* N P PERF SIGNON P BNOK ADM06OUT PADM0620 P* SEND NEXT OR SIGNOFF P PERF LAMPOF,=W'2047' PADM063
0x346acc…346c60 Dummy {f00=0x00cd, f01=0x0190, f02=» l P PERF SENDRC SEND BATCH P BOK ADM0620 ( P IF NOT OK < P PERF TERMIN SEND TERMINATE P P PERF LAMPOF,=W'2047' t & P PERF LAMPON,=W'2' LAMP 10, ERROR P B ADM0630 PADM6SOFF P PERF SIGNOF SEND SIGNOFF PADM06OUT
0x346c60…346df4 (4, 259) Dummy {f00=0x00ce, f01=0x0190, f02=»2047' P B ADMRET P EJECT 4 P************************************************ . P* f P* SIGNON p P* IF NOT OK CR NOT = 0 P* 4 P************************************************ PSIGNON PROC P MOV
0x346df4…346f88 Dummy {f00=0x00ce, f01=0x018e, f02=» FIND LENGTH v 8 P MATCH CTRANBUF,GSWBIN1,GSWBIN2,CBLANKS,CBIN0,CBIN2 P MOVE GSWBIN2,GSWBIN1 P P TBT CTESTFLG,SIGON10 n P PERF EXCHAN EXCHANGE DC P BNOK SIGON100 P PERF WJDC P MOVE GSWSTR20,=C'DFH3504' P MOVE GSWBIN1,CBIN
0x346f88…34711c Dummy {f00=0x00ce, f01=0x0190, f02=» P CMP CBIN0,CBIN0 P RET PSIGON100 ( P MOVE SPBINW4,CBIN21 8 P MOVE GTWBCD2,=D'60' T P MOVE GSWSTR9,=C'TRANSMIT ' p P MOVE GTWBCD1,=D'16' P PERF SPERR P PERF WRITJT,=W'14' P CMP CBIN0,CBIN1 P RET P PEN
0x34711c…3472b0 Dummy {f00=0x00ce, f01=0x0190, f02=» P* STOP SEND PIN 6 P* CONTINIUE PIN 5 & P* H 2 P********************************************* R PCHNGDK PROC PCHNG000 , P PERF CLSVOL,CBIN2 CLOSE FILES ON VOL 2 P MOVE CRECNR,CBIN1 P MOVE CRECBCD,=D'1
0x3472b0…347444 Dummy {f00=0x00ce, f01=0x0190, f02=»PRD P IB GSWBIN2, C 2 P CHSOP10,CHSOP09,CHSOP08,CHSOP07,CHSOP06, C $ . P CHSOP05,CHSOP04,CHSOP03,CHSOP02,CHSOP01 Z PCHSOP01 PCHSOP02 PCHSOP03 PCHSOP04 PCHSOP08 PCHSOP09 P B CHNG010 P* P
0x347444…3475d8 Dummy {f00=0x00ce, f01=0x0190, f02=» P ATTFMT SNDFRM SIGNON FORMAT P PERF SPCLRS , $ P IB SPBINW2,CH1010,CH1010,CH1020 @ PCH1010 h P B CHNG000 v PCH1020 P PERF SIGNON P BNOK CHNG000 P PERF LAMPOF =W'2047' P B CHNG000 P* PCHSOP05 $
0x3475d8…34776c Dummy {f00=0x00ce, f01=0x018e, f02=»00 PCHNG050 P PERF LAMPON,=W'64' LAMP 5 P CMP CBIN0,CBIN0 SET CR < P RET P* h PCHSOP06 SOP 6 r $ P PERF LAMPOF,=W'2047' LAMPS OFF $ P PERF BCKUP,=W'1' WITHOUT BACKUP P BNOK CHNG000 P B CHNG130 P*
0x34776c…347900 Dummy {f00=0x00ce, f01=0x0190, f02=» P* PCHNG130 P PERF LAMPOF,=W'2047' 4 P CMP CBIN0,CBIN1 INDICATE ERROR OR END OF TRANS < P RET t P PEND P EJECT . P****************************************** P* * P* STRTRC - SEND OF STARTIDENT P*
0x347900…347a94 (4, 260) Dummy {f00=0x00ce, f01=0x0190, f02=» z P PERF LAMPON,=W'64' P MOVE GSWBIN6,CBIN1 $ P MOVE GSWBIN1,=W'128' @ 4 P PERF RAREAD,DK02,=D'2',CPCKBUF,GSWBIN1,GSWBIN6 ^ P BNOK STRTRET . P CBE GTWBCD1,=D'4',STRTRET RECORD DELETED? P PERF WRITID,CBIN5,CBIN1 P MOVE GSWB
0x347a94…347c28 Dummy {f00=0x00ce, f01=0x0190, f02=»CTRANBUF,=C' ' P EDIT CTRANBUF,SNDFRM2 P MOVE GSWBIN2,=W'31' LENGTH 4 P PERF EXCHAN EXCHANGE DC X P BNOK STRTRET x P PERF TRNOK CHECK IF OK P BNOK STRTRET P CMP CBIN0,CBIN0 SET CR P RET PSTRTRET P CMP CBI
0x347c28…347dbc Dummy {f00=0x00ce, f01=0x0190, f02=» - SEND BATCH UNTIL SLUTID P* " 2 P********************************************** , PSENDRC PROC b P MOVE CRECNR,CBIN1 v PSND005 $ P MOVE GSWBIN3,CBIN0 PACKPOINTER PSND010 P ADD CRECNR,CBIN1 P MOVE GSWBIN1,=W'128'
0x347dbc…347f50 Dummy {f00=0x00ce, f01=0x0190, f02=» P MOVE GSWSTR20,=C'SLUTD' P MOVE GSWBIN5,CBIN0 $ 6 P MATCH GSWSTR20,GSWBIN5,CBIN5,CPCKBUF,CBIN0,CBIN5 @ P BE SNDSLUT z $ P MOVE GSWSTR9,=X'7F' FIND LENGTH PSND015 P MOVE GSWBIN4,CBIN0 P MOVE GSWBIN5,=W'128' 6 P MATCH CPC
0x347f50…3480e4 Dummy {f00=0x00ce, f01=0x0190, f02=»N4,GSWBIN3 SEE IF MORE SPACE P CBNG GSWBIN4,=W'504',SND030 $ $ P SUB CRECNR,CBIN1 NO MORE SPACE H P B SND040 SEND BUFFER p PSND030 P SUB GSWBIN4,GSWBIN3 RESTORE & P ADD GSWBIN4,CBIN1 FILL WITH X'00' P CBE GSWBIN4,=W'128',SND037
0x3480e4…348278 Dummy {f00=0x00ce, f01=0x0190, f02=» GSWBIN5,CBIN20 4 P CBG GSWBIN5,GSWBIN4,SND035 ALL TRAILING FILLED PSND037 P 2 P EDSUB CTRANBUF,GSWBIN3,SNDFRM5 INSERT RECORD ^ P B SND010 READ NEXT PSND040 P MOVE GSWBIN2,GSWBIN3 P MOVE SPBINW1,=X'0301' P MOVE TTARKSAV
0x348278…34840c Dummy {f00=0x00ce, f01=0x018e, f02=» PERF TRNOK P BNOK SNDERR P B SND005 ( PSNDSLUT : , P CBE GSWBIN3,CBIN0,SND090 REQ.LGTH.=0 ? J P MOVE GSWBIN2,GSWBIN3 z P PERF EXCHAN EXCHANGE DC P BNOK SNDERR P PERF TRNOK P BNOK SNDERR PSND090 P MOVE
0x34840c…3485a0 Dummy {f00=0x00ce, f01=0x0190, f02=» P BNOK SNDERR P PERF WRITID,CBIN5,CBIN2 P PERF WJDC PRINT ANSWER 8 P TBT CTESTFLG,SNDSL10 X P MOVE GSWSTR9,=C'0002' v P MOVE GSWBIN1,CBIN0 P MOVE GSWBIN2,=W'52' 8 P MATCH CTRANBUF,GSWBIN1,GSWBIN2,GSWSTR9,CBIN0,CBIN4 P
0x3485a0…348734 (4, 261) Dummy {f00=0x00ce, f01=0x0190, f02=» EJECT 0 P******************************************** P* B > P* TERMIN - TERMINATE TRANSMISSION IN CASE OF ERROR L P* 0 P******************************************** PTERMIN PROC P MOVE GSWBIN3,CBIN0 P MOVE CTRANB
0x348734…3488c8 Dummy {f00=0x00ce, f01=0x018e, f02=»IN14 P PERF EXCHAN EXCHANGE DC P BNOK TERMRET , P PERF WJDC B PTERMRET T P RET d P PEND p P EJECT ~ 2 P********************************************* P* P* SIGNOFF P* 2 P************************
0x3488c8…348a5c Dummy {f00=0x00ce, f01=0x0190, f02=» $ P EDSUB CTRANBUF,GSWBIN3,SNDFRM2 P MOVE GSWBIN2,CBIN9 , P PERF EXCHAN H P BNOK SIGOFRET P TBT CTESTFLG,SIGOFRT1 r P PERF WJDC PRINT ANSWER PSIGOFRET P RET PSIGOFRT1 P CMP CBIN0,CBIN0 P RET P PEND
0x348a5c…348bf0 Dummy {f00=0x00ce, f01=0x0190, f02=» IN CASE OF ERROR ERRORMESSAGE , P* IS SHOWN ON SCREEN AND JOURNAL . P* ^ 2 P********************************************* h PEXCHAN PROC P TBT CTESTFLG,EXCHTEST ( P MOVE GSWBIN5,=W'300' TIMEOUT VALUE 8 P*****DCEXCH
0x348bf0…348d84 Dummy {f00=0x00ce, f01=0x018e, f02=»WBIN2,=W'504' P MOVE GSWBIN5,=W'300' * P DCREAD DCOMM,CTRANBUF,GSWBIN2,GSWBIN5 4 P* b P BOK EXCHRET l PEXCHNOK & P PERF GETBIT,DCOMM FETCH ERRORCODE P MOVE SPBINW4,CBIN21 P MOVE GTWBCD2,=D'60' P MOVE GSWSTR9,=C'TRANS
0x348d84…348f18 Dummy {f00=0x00ce, f01=0x0190, f02=» P RET PEXCHTEST P MOVE GSWBIN2,CBIN20 P MOVE CTRANBUF,=X'35' < P DELAY GSWBIN2 Z P CMP CBIN0,CBIN0 p P RET P PEND P EJECT 2 P********************************************* P* 6 P* TRNOK - CHECK IF
0x348f18…3490ac Dummy {f00=0x00ce, f01=0x0190, f02=» | P MOVE GSWSTR9,=X'35' 8 P MATCH CTRANBUF,GSWBIN3,GSWBIN2,GSWSTR9,CBIN0,CBIN1 $ P BNE TRNERR ` P MOVE GSWBIN2,CBIN0 t P MOVE CTRANBUF,=C' ' P CMP CBIN0,CBIN0 P RET PTRNERR P CMP CBIN0,CBIN1 P RET P PEND
0x3490ac…349240 Dummy {f00=0x00ce, f01=0x0190, f02=» b P* 6 P************************************************* PWJDC PROC L P WAIT KTALLY ^ P CBL GSWBIN2,CBIN1,WJDCRET r P CBG GSWBIN2,=W'504',WJDCRET P MOVE GSWSTR9,=C'DFH' P MOVE GSWBIN1,CBIN0 8 P MATCH CTRANBUF,GSWBIN
0x349240…3493d4 (4, 262) Dummy {f00=0x00ce, f01=0x0190, f02=»9,=X'11' P MOVE GSWBIN1,CBIN0 8 P MATCH CTRANBUF,GSWBIN1,GSWBIN2,GSWSTR9,CBIN0,CBIN1 , P BNE WJDCRET h * P* GSWBIN1=START | * P ADD GSWBIN1,CBIN3 BYPASS SBA SEQUENSE P MOVE GSWBIN4,GSWBIN1 & P SUB GSWBIN2,GSWBI
0x3493d4…349568 Dummy {f00=0x00ce, f01=0x0190, f02=»WSTR9,CBIN0,CBIN1 n P BNE WJDC010 * P SUB GSWBIN4,GSWBIN1 GSWBIN4 = LENGTH . 0 P COPY CPCKBUF,CBIN0,GSWBIN4,CTRANBUF,GSWBIN1 P EDWRT KJTAPE,WJDCFRM P ADD GSWBIN4,CBIN3 P SUB GSWBIN2,GSWBIN4 P ADD GSWBIN4,GSWBIN1 P MOVE GS
0x349568…3496fc Dummy {f00=0x00ce, f01=0x0190, f02=»* P* P* PWJDC100 P SUB GSWBIN2,GSWBIN1 . P CBL GSWBIN2,=W'52',WJDC200 J $ P MOVE GSWBIN4,=W'30' FIND BLANK n 8 P MATCH CTRANBUF,GSWBIN4,GSWBIN2,CBLANKS,CBIN0,CBIN1 P BNE WJDC200 P MOVE CPCKBUF,=X'00' P SUB G
0x3496fc…349890 Dummy {f00=0x00ce, f01=0x0190, f02=» GSWBIN1,GSWBIN4 PWJDC200 ! P MOVE CPCKBUF,=X'00' ! ( P CBL GSWBIN2,=W'52',WJDC210 ! D P MOVE GSWBIN2,=W'52' ! h PWJDC210 ! 0 P COPY CPCKBUF,CBIN0,GSWBIN2,CTRANBUF,GSWBIN1 ! P EDWRT KJTAPE,WJDCFRM ! P RET ! P PEND ! P EJECT !
0x349890…349a24 Dummy {f00=0x00ce, f01=0x0190, f02=»************************ ! x P* " PSNDFRM FRMT " * P FSL " > P FCOPY =C'DATATRANSMISSION ' " J P FNL " n P FTEXT 'BRUGERNAVN' " z P FKI 12,MINL=1,MAXL=13,ME " * P FMEL 'AAAAAAAAAAAAAAAAAAA9',TTCYKTOT " P FNL " P FTEXT 'KENDEORD' "
0x349a24…349bb8 Dummy {f00=0x00ce, f01=0x018e, f02=»LR ' ',2 " P FCOPY =X'272020' # P FTEXT 'CSSN PS=' # * P FMEL '9999',TTARKSAV # D P FTEXT ',NAME=' # b * P FMEL 'AAAAAAAAAAAAAAAAAAA9',TTCYKTOT # z P FMEND # P* # PSNDFRM2 FRMT # P FILLR ' ',2 # P FCOPY =X'272020' # P FCOPY
0x349bb8…349d4c Dummy {f00=0x00ce, f01=0x018e, f02=» P FMEND $ P* $ PSNDFRM4 FRMT $ P FILLR ' ',2 $ 0 P FTEXT 'ANTAL RECORDS:' $ D P FMEL 'ZZZZZ9',TTARKSAV $ d P FMEND $ P* $ PSNDFRM5 FRMT $ P FBNZ GSWBIN3,SNDLAB10 $ P FILLR ' ',2 $ P FCOPY =X'272020' $ PSNDLAB10 $
0x349d4c…349ee0 Dummy {f00=0x00ce, f01=0x402c, f02=» P FMEND % P* % END % @ % ( P FILLR ' ',2 $ 0 P FTEXT 'ANTAL RECORDS:' $ D P FMEL 'ZZZZZ9',TTARKSAV $ d P FMEND $ P* $ PSNDFRM5 FRMT $ P FBNZ GSWBIN3,SNDLAB10 $ P FILLR ' ',2 $ P FCOPY =X'272020' $ PSNDLAB10 $
0x349ee0…34a074 (4, 263) Dummy {f00=0x00cf, f01=0x2008, f02=» & NT ADM6 DDUM KMD08 * , PDIV 6 END D@ PCASE R HEND ` T HRUN JESPER M:KMDV p HWEF 3 RGLOAD HMOV RGLOAD,/L HRUN JESPER RGLOAD $ H$PCASC M=M:KMDV,A=RGLOAD,C=CONF4 H$PCASF C=CONF4
0x34a074…34a208 Dummy {f00=0x00cf, f01=0x0190, f02=» E ^ _ ;0 _ >0 _ . A0 _ @ J F " D 4 4 H I R 4 R4 A A H " @ WW L L _ R D0 4 _ G0 4 _ I _ N & _ Y _ [ ( _
0x34a208…34a39c Dummy {f00=0x00cf, f01=0x0190, f02=» _ ` 0 ` 0 ` * . ` < 0 ` L J F " D P A I @ 4 L L L L@ @ @ @ 0X 4 I 5I A A L ` ^ ` @ ` LISTE ` 8 ` TOTAL `
0x34a39c…34a530 Dummy {f00=0x00cf, f01=0x0190, f02=»0X L R R0X @ @ L R 4 4 LI CI H TA R ` a > a N > a ^ 8 a n . a ~ 0 a 6 a : 8 a @ a J F " D @ WG R A R A R0X 0X L P
0x34a530…34a6c4 Dummy {f00=0x00cf, f01=0x0190, f02=» h0 b l < b m b & s b 8 w , b H ~ . b X J F " D @R R0X R 4 4 I RL LA L LWL RLI L@ R H 0X b h b b Z b b 0 b
0x34a6c4…34a858 Dummy {f00=0x00cf, f01=0x40b8, f02=» R 0X R0X I K R 4 I b l c * c < c L c 0 + ) I A A ! L RW RW @ LW 4 4 L c n c @ c b b Z b b 0 b
0x34a858…34a9ec Dummy {f00=0x00cf, f01=0x0190, f02=» : H IDENT RGSUB3 TRA 4.1 80-01-14 F1 O1111 02.01.XXX.1 d 6 2 ASGVOL CLSVOL CYLINE CYOUT CYRD CYTRP CYWRT d B $$$TRAS d | D @ ASGVOL CLSVOLC N CYLINEO CYOUT CYRDC CYTRP M CYWRT d B > ASSGR CLEAR8T CRVO1 FRMXVO- GRASPV1 RAREAD. RAW
0x34a9ec…34ab80 Dummy {f00=0x00cf, f01=0x018e, f02=» , d . e : e J F " D 6 29;( 9 R W: R T3 R T, R T%H " SL R T S W R W e 0 X e ~ e ` e g e k e q e u e J F " D @W W 4 4 6 %
0x34ab80…34ad14 (4, 264) Opaque[0x194]
0x34ad14…34aea8 # DirEnt {nam=»DCTSK «, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x19e8, f03=0x0000}
0x34ad14…34aea8 IdxSect {
0x34ad14…34aea8 f00 = 0x00cf // 0x34ad14 @0x0
0x34ad14…34aea8 f01 = 0x0004 // 0x34ad16 @0x2
0x34ad14…34aea8 gno = [ // 0x34ad18 @0x4
0x34ad14…34aea8 [0x00]: C0x00cf.0x1.0
0x34ad14…34aea8 [0x01]: C0x00cf.0x2.0
0x34ad14…34aea8 ]
0x34ad14…34aea8 }
0x34aea8…34b03c Dummy {f00=0x00cf, f01=0x0190, f02=» & ! IDENT DCTSK REL 1.2 78-11-30 KST ENTRY DCTSK . P EJECT B P P P X > P********************************************************** ` P* P* CONDITIONAL ASSEMBLY P* & P********************************* P P
0x34b03c…34b1d0 Dummy {f00=0x00cf, f01=0x0190, f02=»X EQU 0 PMGTP EQU 0 PEBCDIC EQU 1 " P EJECT 6 P* D P* N P* EQUATES X P* n P* x P* " P* COMMON EQU FOR ECB HANDLING P* P PECBBA EQU 2 PECBRL EQU 4 PECBEL EQU 6 PECBRC EQ
0x34b1d0…34b364 Dummy {f00=0x00cf, f01=0x018e, f02=»* PDIS EQU 20 P* PECB1 EQU -DIS-8 & PECB2 EQU ECB1-DIS > PECB3 EQU ECB2-DIS X PECB4 EQU ECB3-DIS r PECB5 EQU ECB4-DIS P* PECBDC EQU ECB1 PECBDCT EQU ECB2 PECBVDU EQU ECB3 PECBKB EQU ECB4
0x34b364…34b4f8 Dummy {f00=0x00cf, f01=0x0190, f02=» PCREBAS EQU A13 ECB P* P* ( P* TCA REL. ADDRESSES 2 P* N PTCT01 EQU 0 X PPRINTER EQU TCT01+2 l ( PBVDU EQU PRINTER+2 VDU SCREEN BUFFER 0 PPCURS EQU BVDU+1920 CURSOR ADDRESS , BINARY * PATTRIB EQU PCURS+2 LAST ATTRIBUT
0x34b4f8…34b68c Dummy {f00=0x00cf, f01=0x0190, f02=»NCNT EQU KBINH+2 LINE COUNTER 0 PDCLENG EQU LINCNT+2 DC READ EFFECTIVE LENGTH & . PDCADDR EQU DCLENG+2 DC SUBTERMINAL ADDRESS Z PTCTGPL EQU DCADDR+2 , PINTATT EQU TCTGPL+2 INTENSITY ATTRIBUTE $ POFFFLG EQU INTATT+2 OFFLINE FLAG PLOCK EQU
0x34b68c…34b820 Dummy {f00=0x00cf, f01=0x018e, f02=»PNO+2 CREDIT ECB:S BASE ADDRESS & PVDUT.A EQU CRE+2 T:A BASE ADDRESS ( , PCCC EQU VDUT.A+2 COPY COMMAND CHARACTER R P EJECT P* P* * PLBVDU EQU 1920 1920 CHAR DISPLAY 6344 " PLPAGE EQU 48 LINES ON ONE PAGE * PLLINE EQU 80 80
0x34b820…34b9b4 (4, 265) Dummy {f00=0x00cf, f01=0x0190, f02=» & PTCADDR EQU /2D20 TCS & TCP ASCII P XIF . P EJECT : P* H P* R P* DC TASK P* n P* x PDCTSK EQU * P LDKL A1,TCADDR & P LDKL A8,ECBDCX ECB DC FOR DC TASK P ST A1,ECBCW,A8 $ P LDK A7,/B7 TRANSFER PAR
0x34b9b4…34bb48 Dummy {f00=0x00cf, f01=0x40f2, f02=»RETURN CODE | P ANKL A1,/2000 P RB(NZ) DCT100 STATUS CHANGE * , P LDK A7,/A2 MESSAGE: RELEASE READ BUFFER N P LKM ~ P DATA 1 P RB DCT100 P* P* PECBDCX DATA /60,0,0,0,0,0 END @ DK A7,/B7 TRANSFER PAR
0x34bb48…34bcdc Dummy {f00=0x00cf, f01=0x2008, f02=» NT DCTSK REL 1.2 78-11-30 KST ENTRY DCTSK . END B@ N 3
0x34bcdc…34be70 Dummy {f00=0x00cf, f01=0x0190, f02=» ( # % F # & $ # & # . & ADM # > $ & # R & # b ' BEHOLDNINGST[LLERE # p $ ' # & # ( NR # $ ( # & # ) KONTONRI # $ ) #
0x34be70…34c004 Dummy {f00=0x00cf, f01=0x0190, f02=»& # & $ & $ & $ * & $ : , 99999999E-99 $ L " , $ h & $ x & $ & $ & $ - TTT.TTT.TTT.TT9.99- $ " - $ $ $ ( $
0x34c004…34c198 Dummy {f00=0x00cf, f01=0x0190, f02=» & % 1 KONTONRO % $ 1 % * & % : 2 SALD0 % H $ 2 % ^ & % n & % | & % 3 99999999E-99 % " 3 % & % 4 TTT.TTT.TTT.TT9.99- % " 4
0x34c198…34c32c Dummy {f00=0x00cf, f01=0x0190, f02=»TONR REMIT % ~ $ 7 & & & " 8 KONTONRK & 0 $ 8 & H & & X & & f 9 99999999E-99 & x " 9 & ( & : & & 9 & ; DISKETTE SKIFT & $ ; & & &
0x34c32c…34c4c0 Dummy {f00=0x00cf, f01=0x0190, f02=»( & > ' & 1 ' ? KASSELUKNING ' ( $ ? ' D & ' T & ' b @ ZZ ' p " @ ' & ' & ' & ' A KONTONRK ' $ A ' & ' B BEL '
0x34c4c0…34c654 (4, 266) Opaque[0x194]
0x34c654…34c7e8 # DirEnt {nam=»ADM6D «, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x19f8, f03=0x0000}
0x34c654…34c7e8 IdxSect {
0x34c654…34c7e8 f00 = 0x00cf // 0x34c654 @0x0
0x34c654…34c7e8 f01 = 0x0002 // 0x34c656 @0x2
0x34c654…34c7e8 gno = [ // 0x34c658 @0x4
0x34c654…34c7e8 [0x00]: C0x00cf.0x3.0
0x34c654…34c7e8 ]
0x34c654…34c7e8 }
0x34c7e8…34c97c Dummy {f00=0x00cf, f01=0x40d4, f02=» P IDENT ADM6D 02.01.XXX.1 DDUM KMD08 & PDIV : . ** DUMMY ADM6, WITHOUT DATATRANSMISSION H ENTRY ADM600 z EXT ADMRET ADM600 B ADMRET END @ X'112020' # P FCOPY CPCKBUF # P FMEND #
0x34c97c…34cb10 Dummy {f00=0x00cf, f01=0x2008, f02=» NT ADM6D DDUM KMD08 PDIV , . ** DUMMY ADM6, WITHOUT DATATRANSMISSION : ENTRY ADM600 l EXT ADMRET ADM600 B ADMRET END @ & H$PCASC M=M:167P,A=RGLOAD,C=CONDC4 H$PCASF C=CONDC4
0x34cb10…34cca4 Dummy {f00=0x00cf, f01=0x018e, f02=» Tu f j x e * & L x y i | & H & * & L 2 * 4 T * & L y * & L T s l BRUGERNA * & M VN u KENDEORD 0
0x34cca4…34ce38 Dummy {f00=0x00cf, f01=0x0190, f02=» h * & M TART VOLUME= DATAS * & M ET= v * { FR 6 * & M A 9 TIL 9 q d * & M q g h * & N : ?q ?q ?q ?q * & N# ?q ?q ?q ?q ?q
0x34ce38…34cfcc Dummy {f00=0x00cf, f01=0x0190, f02=» U x * & N U 4^ PRIMOw * & N 2 BEV w w w 2 ULTIM D * & N Ow I P r * & N V Q U R U * & O I U V * & O1 V
0x34cfcc…34d160 Dummy {f00=0x00cf, f01=0x0190, f02=» 4 SUPL w w w 2 * & O KOR w w z $ * & O KONTROLSUM V R * & O f q + N > A - * & P o 2 * * 4 N * & P! ETTO } I *
0x34d160…34d2f4 (4, 267) Opaque[0x194]
0x34d2f4…34d488 # DirEnt {nam=»RELUP «, typ=»UF«, f00=0x0000, f01=0x0000, f02=0x1a00, f03=0x0000}
0x34d2f4…34d488 IdxSect {
0x34d2f4…34d488 f00 = 0x00d0 // 0x34d2f4 @0x0
0x34d2f4…34d488 f01 = 0x0002 // 0x34d2f6 @0x2
0x34d2f4…34d488 gno = [ // 0x34d2f8 @0x4
0x34d2f4…34d488 [0x00]: C0x00d0.0x0.0
0x34d2f4…34d488 ]
0x34d2f4…34d488 }
0x34d488…34d61c Dummy {f00=0x00d0, f01=0x0190, f02=» P$REL NAM=RGSTRT P$REL NAM=DKSUBS P$REL NAM=KMD08 4 P$REL NAM=RGMAIN J P$REL NAM=RGMND b P$REL NAM=SCREEN x P$REL NAM=KMDIO P$REL NAM=RGADM P$REL NAM=RGSUB1 P$REL NAM=RGSUB2 P$REL NAM=RGSUB3 P$REL
0x34d61c…34d7b0 Dummy {f00=0x00d0, f01=0x00f6, f02=»$REL NAM=KTPLN P$REL NAM=KTPLND P$REL NAM=KTOPR . P$REL NAM=KTOPRD D P$REL NAM=DIV461 P$REL NAM=DIV167 t P$REL NAM=DIV259 P$REL NAM=DIV805 P$REL NAM=DIV525 P$REL NAM=DIV743 $ASG2 GSUB3 P$REL
0x34d7b0…34d944 Dummy {f00=0x00d0, f01=0x2008, f02=» =KTPLN P$REL NAM=KTPLND P$REL NAM=KTOPR . P$REL NAM=KTOPRD D P$REL NAM=DIV461 P$REL NAM=DIV167 t P$REL NAM=DIV259 P$REL NAM=DIV805 P$REL NAM=DIV525 P$REL NAM=DIV743 $ASG2 GSUB3 P$REL
0x34d944…34dad8 Dummy {f00=0x00d0, f01=0x0190, f02=» n n Y J K J - R c % 6 n 6 & 7 n 7 1 m 1 0 n 0 L d Q FAST X c SALDOOVERF d Q
0x34dad8…34dc6c Dummy {f00=0x00d0, f01=0x0190, f02=» 0 0 1 1 = S J T X POST T/GL. ]R d Q c J d c P K Q J R J d = U K V J W J F U KONTR
0x34dc6c…34de00 Dummy {f00=0x00d0, f01=0x0190, f02=» U L k N K O K Q W Y o M/P-NR d c Q d Q d Q
0x34de00…34df94 (4, 268) Opaque[0x194]
0x34df94…34e128 # DirEnt {nam=»SL6272«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0a68, f03=0x0000}
0x34df94…34e128 IdxSect {
0x34df94…34e128 f00 = 0x0053 // 0x34df94 @0x0
0x34df94…34e128 f01 = 0x0004 // 0x34df96 @0x2
0x34df94…34e128 gno = [ // 0x34df98 @0x4
0x34df94…34e128 [0x00]: C0x0053.0x1.0
0x34df94…34e128 [0x01]: C0x0088.0x1.0
0x34df94…34e128 ]
0x34df94…34e128 }
0x34e128…34e2bc Dummy {f00=0x0053, f01=0x0190, f02=» < PSPKTAB1 KTAB BSPKY1,CANKY1,NOKEY,EORKY1,NOKEY,MACKY1, C > P FTABKY1,BTABKY1,NOKEY,NOKEY,NOKEY,NOKEY,NOKEY,NOKEY, C D & P COPKY1,DUPKY1,EDTKY1,SLUTKY1, C . P KREKY1,REGKY2,LISTKY1,SBTKY1,SPGKY1, C < P CY1KY1,CY2KY1,INVKY1,KONKY1,KVITKY1,
0x34e2bc…34e450 Dummy {f00=0x0053, f01=0x0190, f02=»CANKY1,NOKEY,EORKY1,NOKEY,MACKY1, C | > P FTABKY1,BTABKY1,NOKEY,NOKEY,NOKEY,NOKEY,NOKEY,NOKEY, C , & P COPKY1,NOKEY,EDTKY1,SLUTKY1, C n ( P KREKY1,NOKEY,NOKEY,NOKEY,NOKEY, C 4 P NOKEY,NOKEY,NOKEY,NOKEY,NOKEY,NOKEY,NOKEY, C 6 P ADMKY1,CYC
0x34e450…34e5e4 Dummy {f00=0x0053, f01=0x0190, f02=»KY1,CL3KY1,OUTKY1 P* > PSPKTAB12 KTAB BSPKY2,CANKY2,NOKEY,EORKY2,NOKEY,MACKY2, C $ 2 P FTABKY2,BTABKY2,NOKEY,NOKEY,NOKEY,NOKEY, C f 2 P NOKEY,NOKEY,NOKEY,DUPKY2,EDTKY2,SLUTKY2, C 6 P KREKY2,REGKY2,ADMKY2,SPGKY2,KONKY2,KVITKY2,ONKY2
0x34e5e4…34e778 Dummy {f00=0x0053, f01=0x0190, f02=»NOKEY,NOKEY,NOKEY,NOKEY,EDTKY2,SLUTKY2, C 6 P KREKY2,NOKEY,ADMKY2,SPGKY2,KONKY2,KVITKY2,ONKY2 2 P* l * P* INQUIRY KEYTABLES (SPKEY=3) v P* < PSPKTAB13 KTAB BSPKY1,NOKEY,CANKY1,NOKEY,NOKEY,MACKY1, C . P NOKEY,NOKEY,NOKEY,NOKEY,
0x34e778…34e90c Dummy {f00=0x0053, f01=0x0190, f02=»VKY1,KONKY1,KVITKY1 P* < PSPKTAB23 KTAB BSPKY1,NOKEY,CANKY1,NOKEY,NOKEY,MACKY1, C & . P NOKEY,NOKEY,NOKEY,NOKEY,NOKEY,NOKEY, C f . P NOKEY,NOKEY,NOKEY,NOKEY,NOKEY,NOKEY, C . P NOKEY,NOKEY,NOKEY,NOKEY,NOKEY,NOKEY, C . P NOKEY,NOKE
0x34e90c…34eaa0 Dummy {f00=0x0053, f01=0x0190, f02=» ERRFMT,ERRFMT,ERRFMT,ERRFMT,ERRFMT, C , P ERRFMT,ERRFMT,ERRFMT,ERRFMT,ERRFMT, C 0 , P ERRFMT,ERRFMT,ERRFMT,ERRFMT,ERRFMT, C ` , P ERRDSK,ERRFMT,ERRFMT,ERRFMT,ERRFMT, C 2 P ERRFMT,ERRFMT,ERRFMT,ERRFMT,ERRFMT WARNINGS P* B PSPFTBMES
0x34eaa0…34ec34 (4, 269) Dummy {f00=0x0088, f01=0x0190, f02=» P FCOPY ='FEJL ' P FMEL 'ZZ9',GSWBCD4 ERRORNR. P FMEND D P* R PERRDSK FRMT P FSL p P FMEL '99B',GTWBCD2 | P FCOPY GSWSTR9 P FMEL '99',GTWBCD1 P FMEND P* PMSFMT1 FRMT P FSL P FCOPY =
0x34ec34…34edc8 Dummy {f00=0x0088, f01=0x018e, f02=» P* PMSFMT3 FRMT P FSL & P FTEXT ='NY SIDE. ' 2 P FMEND N P* PMSFMT4 FRMT f P FSL z P FBF TTSUMFLG,FMT4END P FTAB 15 P FCOPY GTL8TXT P FINP 23 P FMEL 'ZZZZZVZZ9,99+',GTSUM PFMT4END
0x34edc8…34ef5c Dummy {f00=0x0088, f01=0x4150, f02=» P FCOPY ='KONTOKORT' P FMEND $ P* 2 PMSFMT7 FRMT < P FSL P P FCOPY TTINF1 P FMEND r P* PMSFMT8 FRMT P FSL P FCOPY ='DISKETTE SKIFT ' P FILLR X'07',1 P FMEND P* PMSFMT9 FRMT
0x34ef5c…34f0f0 Dummy {f00=0x0088, f01=0x2008, f02=» * ERRFMT FRMT FSL , " FMEL 'ZZ9B',GTWBCD1 FILE NR. 8 FCOPY ERRTXT ^ " FMEL 'BZZ9',GTWBCD2 ERRORNR. t FCOPY =X'07' FMEND @ 8SPKTAB2 KTAB BSPKY1,CANKY1,NOKEY,MACKY1,NOKEY,EORKY1, C D ? FT
0x34f0f0…34f284 Dummy {f00=0x0088, f01=0x0190, f02=» KA * .
0x34f284…34f418 Dummy {f00=0x0088, f01=0x0190, f02=» F 0 0 0 0 0 0 0 0 #0 &0 * + , J
0x34f418…34f5ac Dummy {f00=0x0088, f01=0x0190, f02=» 10 8 ? B L d
0x34f5ac…34f740 Dummy {f00=0x0088, f01=0x0190, f02=» 0 0 0 .
0x34f740…34f8d4 (4, 270) Opaque[0x194]
0x34f8d4…34fa68 # DirEnt {nam=»TB3270«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x07e8, f03=0x0000}
0x34f8d4…34fa68 IdxSect {
0x34f8d4…34fa68 f00 = 0x003f // 0x34f8d4 @0x0
0x34f8d4…34fa68 f01 = 0x0004 // 0x34f8d6 @0x2
0x34f8d4…34fa68 gno = [ // 0x34f8d8 @0x4
0x34f8d4…34fa68 [0x00]: C0x003f.0x1.0
0x34f8d4…34fa68 [0x01]: C0x003f.0x2.0
0x34f8d4…34fa68 ]
0x34f8d4…34fa68 }
0x34fa68…34fbfc Dummy {f00=0x003f, f01=0x0190, f02=» 2 P IDENT TB3270 2.1DK 1 79-05-23 870150540210 4 P***** SPECIAL SCANDINAVIAN ALPHABET ****** : F P****************************************************************** r P* : P* CONVERSION TABLES FOR IBM 3270 EMULATION PACKKAGE P*
0x34fbfc…34fd90 Dummy {f00=0x003f, f01=0x018e, f02=»RY TASCII P ENTRY TEBCDI P ENTRY KEYCNV ( P* > P H P* CONDITIONAL ASSEMBLIES P P* r PKB6272 EQU 1 | P* P EJECT P* P* 4 P* TABLE FOR CONVERSION OF EBCDIC 6 BIT INTERNAL P* P* CODE TO
0x34fd90…34ff24 Dummy {f00=0x003f, f01=0x0190, f02=» * P DATA /4849,/232E,/3C28,/2B21 /08-/0F * P DATA /264A,/4B4C,/4D4E,/4F50 /10-/17 2 * P DATA /5152,/245D,/2A29,/3B5E /18-/1F ` * P DATA /2D2F,/5354,/5556,/5758 /20-/27 * P DATA /595A,/402C,/255F,/3E3F /28-/2F ( P DATA /3031,/3233,/3435,/3637
0x34ff24…3500b8 Dummy {f00=0x003f, f01=0x0190, f02=»OM ASCII TO EBCDIC r P* 4 P* USED TO GET BINARY VALUES FROM THE EBCDIC CODE $ P* * P* INVALID CODES ARE CONVERTED TO ZEROS f P* P* PTEBCDIC EQU * P DATA 0,0,0,0 /00-/07 P DATA 0,0,0,0 /08-/0F P DATA 0,0,0,0
0x3500b8…35024c Dummy {f00=0x003f, f01=0x0190, f02=»A,/5A6C,/507D 20-27 ( P DATA /4D5D,/5C4E,/6B60,/4B61 28-2F ( P DATA /F0F1,/F2F3,/F4F5,/F6F7 30-37 H ( P DATA /F8F9,/7A5E,/4C7E,/6E6F 38-3F t ( P DATA /6AC1,/C2C3,/C4C5,/C6C7 40-47 ( P DATA /C8C9,/D1D2,/D3D4,/D5D6 48-4F ( P DATA /D7D8,/D9E
0x35024c…3503e0 Dummy {f00=0x003f, f01=0x0190, f02=»394,/9596 68-6F | ( P DATA /9798,/99A2,/A3A4,/A5A6 70-77 ( P DATA /A7A8,/A900,/0000,/0000 78-7F D P DE p P EJECT ~ P* 4 P* TRANSLATION OF FUNCTON KEYS & LOWER CASE P - W P* PKEYCNV EQU * P IFF KB6272=1 P CWK A
0x3503e0…350574 (4, 271) Dummy {f00=0x003f, f01=0x0190, f02=»10 EQU * P CWK A2,/80 P RF(L) KEYC99 $ P DB : P CWK A2,/C0 DK H P RF(L) KEYC50 DK ` & P LDK A2,/7F KEYSWITCH 2 (C0-FF) DK z P RF KEYC99 DK PKEYC50 EQU * DK P DE P SUK A2,/80 P LC A2,KBCVTB,A2
0x350574…350708 Dummy {f00=0x003f, f01=0x4184, f02=»C,/B5A7 /80-/87 z * P DATA /A87F,/A98C,/7F7F,/7F7F /88-/8F * P DATA /ABB2,/AAB1,/7F8B,/AEAD /90-/97 F * P DATA /AFB6,/7F7F,/7F7F,/7F7F /98-/9F t * P DATA /7F7F,/B3A5,/7F7F,/7F7F /A0-/A7 * P DATA /7F7F,/7F7F,/7F7F,/7F7F /A8-/AF * P DATA /303
0x350708…35089c Dummy {f00=0x003f, f01=0x2008, f02=» A @ aP x (@ :P T P> H D ! P P T P P T #P 'P +W AT M SQ T H D !A( aT y }P Q P PP WF T W P P P P H D ! $ 1 d I d _ d sP w
0x35089c…350a30 Dummy {f00=0x003f, f01=0x0190, f02=» DELETED 1 0 0VOLUME NAME: DISC: 0FREE SPACE TABLE 0EXT BASE EXT LENGTH OF 50 ENTRIES USED 0VOLUME TABLE OF CONTENTS 0FILE FILE FI
0x350a30…350bc4 Dummy {f00=0x003f, f01=0x0190, f02=»T LEN ORG LENGTH FACT REC NO SEC NO EXT NO DATE PER FILES ADDRESS NO NO/SOP 0NUMBER OF FREE ENTRIES IN VTOC = ( - : 2~ ( B 6 : 2 2 A2t A0 A2l R A2 R A2s P 6 A0 A0 2r "' R$
0x350bc4…350d58 Dummy {f00=0x003f, f01=0x0190, f02=» 6 4 I0 Y 0 2 0 " 2 0 2 , A0 , A0 , A0 2r C ( B & B 6 B & 6 0 2 0 2 1 2 2 4P2 A0 1, 4 1" 1 2 Y4W Y> @0 16 14 2 0
0x350d58…350eec Dummy {f00=0x003f, f01=0x0190, f02=» 6 0 0 ]N *% 6f R p 0 R 2 J U !LLT2 J " c J " k - U 8 U T U ZW - U d U l J 8 J ? J J . J J J " J " ) E 2
0x350eec…351080 Dummy {f00=0x003f, f01=0x0190, f02=» p 2 4 A2l 4 @2l 2l 0 2 2J & 2 0 2 W W W W 2 @0 P 2r ( : 2 0 2 1 2 2 4P A0 1, 4 1" 1 2 Y4W 1VOLUME NAME: 0SECTOR NO:
0x351080…351214 (4, 272) Opaque[0x194]
0x351214…3513a8 # DirEnt {nam=»KMDNR «, typ=»UF«, f00=0x0000, f01=0x0000, f02=0x0b40, f03=0x0000}
0x351214…3513a8 IdxSect {
0x351214…3513a8 f00 = 0x005a // 0x351214 @0x0
0x351214…3513a8 f01 = 0x0002 // 0x351216 @0x2
0x351214…3513a8 gno = [ // 0x351218 @0x4
0x351214…3513a8 [0x00]: C0x005a.0x0.0
0x351214…3513a8 ]
0x351214…3513a8 }
0x3513a8…35153c Dummy {f00=0x005a, f01=0x0190, f02=» . )MES NORDJYLLANDS AMT, FORDELT P] MASKINER MES 6 PRT KM080 GENERELT B PRT CONNJT " PRT KM0801 CENTRALE BOGHOLDERI n PRT CONNJ1 PRT KM0802 VODSKOV PRT CONNJ2 & PPRT KM0803 HJ RRING, FREDERIKSHAVN PRT CONNJ3
0x35153c…3516d0 Dummy {f00=0x005a, f01=0x00c2, f02=» PRT KM0806 ]LBORG SYGEHUS PRT CONNJ6 * PPRT KM0807 < PRT CONNJ7 N PRT KM0808 OFFLINE ` PRT CONNJ8 z PRT KM0809 DIVERSE PRT CONNJ9 $ASG2 T CONNJ2 & PPRT KM0803 HJ RRING, FREDERIKSHAVN PRT CONNJ3
0x3516d0…351864 Dummy {f00=0x005a, f01=0x2008, f02=» PRT KM0806 ]LBORG SYGEHUS PRT CONNJ6 * PPRT KM0807 < PRT CONNJ7 N PRT KM0808 OFFLINE ` PRT CONNJ8 z PRT KM0809 DIVERSE PRT CONNJ9 $ASG2 T CONNJ2 & PPRT KM0803 HJ RRING, FREDERIKSHAVN PRT CONNJ3
0x351864…3519f8 Dummy {f00=0x005a, f01=0x0190, f02=» h DW1500 , ( ! T ' A 4 , ( L ` $ | % , ( %' :f"? H ! "? H ! 4 ABC , ( %G DEFGHI#.<(+!&JKLMNOPQR$]*);^-/ST , (
0x3519f8…351b8c Dummy {f00=0x005a, f01=0x018e, f02=» % H D ! Z > B > GP, KP OP~ SP( WP YW _P cP gP o H D !/ yP {WL P. % % % % % P P % % Q< @ b H D ![ P #P ' . - 6 5Wb K R Q Z c g o s {P W P H D ! / P P
0x351b8c…351d20 Dummy {f00=0x005a, f01=0x0190, f02=» H D ! W P TR TL ! #TD 'T@ + /T8 3 CP K O U > H D ! [ _T c g q w P P @ P T< 6 P P H D ! ( P @ T P P P + -P 5 7PF =R@ CP H D ! KT2 gT oW wW( }W" R T
0x351d20…351eb4 (4, 273) Opaque[0x194]
0x351eb4…352048 # DirEnt {nam=»KM0802«, typ=»UF«, f00=0x0000, f01=0x0000, f02=0x09a8, f03=0x0000}
0x351eb4…352048 IdxSect {
0x351eb4…352048 f00 = 0x004d // 0x351eb4 @0x0
0x351eb4…352048 f01 = 0x0002 // 0x351eb6 @0x2
0x351eb4…352048 gno = [ // 0x351eb8 @0x4
0x351eb4…352048 [0x00]: C0x004d.0x1.0
0x351eb4…352048 ]
0x351eb4…352048 }
0x352048…3521dc Dummy {f00=0x004d, f01=0x0190, f02=» PPRT KM0802 PPRT CONNJ2 ( PMES NJ-AMT - VODSKOV, CONCENTRATOR ( PMES 80-10-13 T PSCR h PLED KMD08,/S t P!!DL 50 FD BACKUP P!!DL 51 DK05 P!!DL 52,54 DK06-DK08 P!!DL 55,56 FD03,FD04 P!!DL 169 & PMF1KBV STR
0x3521dc…352370 Dummy {f00=0x004d, f01=0x0190, f02=» 180,181 ( POFF STRGI (12)2C'TC',' ','TD',' ' P!!RE 187,$$FALSE$$TRUE$$ BKO < ( P!!RE 188,$$FALSE$$TRUE$$ SALDO KORT ` * P!!RE 194,$$TRUE$$FALSE$$ NO AUTO-KORT P!!RE 195,$$FALSE$$TRUE$$ DC P!!RE 199,$$TRUE$$FALSE$$ P!!RE 301,$
0x352370…352504 Dummy {f00=0x004d, f01=0x018e, f02=»DL 362,363 " PON STRGI (12)2C'KA','KC',' ' $ P!!RE 473,$$27$$25$$ DEFAULT LINE 8 P!!EN ` PNOD C l PTRA /S,NL z PINC DIVFMT PINC RGADM PNOD R PINC RGSUBS PINC KMDIO PINC RGSUB3 PNOD R PINC SC
0x352504…352698 Dummy {f00=0x004d, f01=0x0156, f02=» PINC RGSUB1 PINC RGSUB2 PINC DKSUBS , PINC RGMAIN > PNOD R P PINC RGSTRT ^ PTLK U,4K p PINC PRT PINC VDUPRT PINC START PINC TB3270 P$INCGEN LKE M PKPF /L,RGLOAD PSCR B PME
0x352698…35282c Dummy {f00=0x004d, f01=0x2008, f02=» INC RGSUB1 PINC RGSUB2 PINC DKSUBS , PINC RGMAIN > PNOD R P PINC RGSTRT ^ PTLK U,4K p PINC PRT PINC VDUPRT PINC START PINC TB3270 P$INCGEN LKE M PKPF /L,RGLOAD PSCR B PME
0x35282c…3529c0 Dummy {f00=0x004d, f01=0x0190, f02=»37 PT1043 ( P MUL TTSTLBNR,=D'-1' SIMULATE CLOSE P PERF TCONFW,GSWBIN5 D P BNOK T1037 ` P B T1040 t PT1045 P USE TB2,TTASKNR " P PERF CONFWR REWRITE CONFDATA P BNOK T1010 P* " P* READ TERMINAL C
0x3529c0…352b54 (4, 274) Opaque[0x194]
0x352b54…352ce8 # DirEnt {nam=»KM0803«, typ=»UF«, f00=0x0000, f01=0x0000, f02=0x09b0, f03=0x0000}
0x352b54…352ce8 IdxSect {
0x352b54…352ce8 f00 = 0x004d // 0x352b54 @0x0
0x352b54…352ce8 f01 = 0x0002 // 0x352b56 @0x2
0x352b54…352ce8 gno = [ // 0x352b58 @0x4
0x352b54…352ce8 [0x00]: C0x004d.0x2.0
0x352b54…352ce8 ]
0x352b54…352ce8 }
0x352ce8…352e7c Dummy {f00=0x004d, f01=0x0190, f02=» PPRT KM0803 PPRT CONNJ3 , PMES NJ-AMT - HJOERRING, FREDERIKSHAVN ( PMES 80-10-13 X PSCR l PLED KMD08,/S x P!!DL 50 FD BACKUP P!!DL 51 DK05 P!!DL 52,54 DK06-DK08 P!!DL 55,56 FD03,FD04 P!!DL 169 & PMF1KBV
0x352e7c…353010 Dummy {f00=0x004d, f01=0x018e, f02=»!!DL 180,181 ( POFF STRGI (12)2C'TC',' ','TD',' ' P!!RE 187,$$FALSE$$TRUE$$ BKO @ ( P!!RE 188,$$FALSE$$TRUE$$ SALDO KORT d * P!!RE 194,$$TRUE$$FALSE$$ NO AUTO-KORT P!!RE 195,$$FALSE$$TRUE$$ DC P!!RE 199,$$TRUE$$FALSE$$ P!!RE 3
0x353010…3531a4 Dummy {f00=0x004d, f01=0x0190, f02=» P!!DL 362,363 " PON STRGI (12)2C'KA','KC',' ' $ P!!RE 473,$$27$$25$$ DEFAULT LINE > P!!EN f PNOD C r PTRA /S,NL PINC DIVFMT PINC RGADM PNOD R PINC RGSUBS PINC KMDIO PINC RGSUB3 PNOD R P
0x3531a4…353338 Dummy {f00=0x004d, f01=0x015a, f02=»D R PINC RGSUB1 PINC RGSUB2 PINC DKSUBS 0 PINC RGMAIN B PNOD R T PINC RGSTRT b PTLK U,4K t PINC PRT PINC VDUPRT PINC START PINC TB3270 P$INCGEN LKE M PKPF /L,RGLOAD PSCR B
0x353338…3534cc Dummy {f00=0x004d, f01=0x2008, f02=» PINC RGSUB1 PINC RGSUB2 PINC DKSUBS 0 PINC RGMAIN B PNOD R T PINC RGSTRT b PTLK U,4K t PINC PRT PINC VDUPRT PINC START PINC TB3270 P$INCGEN LKE M PKPF /L,RGLOAD PSCR B
0x3534cc…353660 Dummy {f00=0x004d, f01=0x018e, f02=» p P B T1230 OTHER KEYS PT1235 MAK $ P B T1062 8 P* H P* R P* P* OPSTART f P* P* PT1240 P MOVE CRECBCD,=D'0' P MOVE CRECNR,CBIN1 P CLEAR CERRORFL PT1242 P ADD CRECN
0x353660…3537f4 (4, 275) Opaque[0x194]
0x3537f4…353988 # DirEnt {nam=»KM0804«, typ=»UF«, f00=0x0000, f01=0x0000, f02=0x1018, f03=0x0000}
0x3537f4…353988 IdxSect {
0x3537f4…353988 f00 = 0x0080 // 0x3537f4 @0x0
0x3537f4…353988 f01 = 0x0002 // 0x3537f6 @0x2
0x3537f4…353988 gno = [ // 0x3537f8 @0x4
0x3537f4…353988 [0x00]: C0x0080.0x3.0
0x3537f4…353988 ]
0x3537f4…353988 }
0x353988…353b1c Dummy {f00=0x0080, f01=0x0190, f02=» PPRT KM0804 PPRT CONNJ4 , PMES NJ-AMT - ]LBORG PSYK, BR.SLEV PSYK ( PMES 80-10-13 X PSCR l PLED KMD08,/S x P!!DL 50 FD BACKUP P!!DL 51 DK05 P!!DL 52,54 DK06-DK08 P!!DL 55,56 FD03,FD04 P!!DL 169 & PMF1KBV
0x353b1c…353cb0 Dummy {f00=0x0080, f01=0x0190, f02=» 180,181 " POFF STRGI (12)2C'TC','TD',' ' P!!RE 187,$$FALSE$$TRUE$$ BKO 6 ( P!!RE 188,$$FALSE$$TRUE$$ SALDO KORT Z * P!!RE 194,$$TRUE$$FALSE$$ NO AUTO-KORT P!!RE 195,$$FALSE$$TRUE$$ DC P!!RE 199,$$TRUE$$FALSE$$ P!!RE 301,$$128$$
0x353cb0…353e44 Dummy {f00=0x0080, f01=0x0190, f02=»,363 " PON STRGI (12)2C'KA','KB',' ' $ P!!RE 473,$$27$$25$$ DEFAULT LINE 2 P!!EN Z PNOD C f PTRA /S,NL t PINC DIVFMT PINC RGADM PNOD R PINC RGSUBS PINC KMDIO PINC RGSUB3 PNOD R PINC SCREEN
0x353e44…353fd8 Dummy {f00=0x0080, f01=0x014e, f02=»INC RGSUB1 PINC RGSUB2 PINC DKSUBS $ PINC RGMAIN 6 PNOD R H PINC RGSTRT V PTLK U,4K h PINC PRT x PINC VDUPRT PINC START PINC TB3270 P$INCGEN LKE M PKPF /L,RGLOAD PSCR B PMES $PDISC
0x353fd8…35416c Dummy {f00=0x0080, f01=0x2008, f02=» B1 PINC RGSUB2 PINC DKSUBS $ PINC RGMAIN 6 PNOD R H PINC RGSTRT V PTLK U,4K h PINC PRT x PINC VDUPRT PINC START PINC TB3270 P$INCGEN LKE M PKPF /L,RGLOAD PSCR B PMES $PDISC
0x35416c…354300 Dummy {f00=0x0080, f01=0x0190, f02=»
0x354300…354494 (4, 276) Opaque[0x194]
0x354494…354628 # DirEnt {nam=»KM0805«, typ=»UF«, f00=0x0000, f01=0x0000, f02=0x11d0, f03=0x0000}
0x354494…354628 IdxSect {
0x354494…354628 f00 = 0x008e // 0x354494 @0x0
0x354494…354628 f01 = 0x0004 // 0x354496 @0x2
0x354494…354628 gno = [ // 0x354498 @0x4
0x354494…354628 [0x00]: C0x008e.0x2.0
0x354494…354628 [0x01]: C0x008e.0x3.0
0x354494…354628 ]
0x354494…354628 }
0x354628…3547bc Dummy {f00=0x008e, f01=0x0190, f02=» PPRT KM0805 PPRT CONNJ5 8 PMES NJ-AMT - LOKAL, DR.LUND, HOBRO, BROVST, (FARS ) ( PMES CONCENTRATOR d PMES 6272 KEYBOARD | PMES 192 KB PMES 80-12-11 PSCR PLED KMD08,/S P!!DL 50 FD BACKUP P!!DL 51 DK05
0x3547bc…354950 Dummy {f00=0x008e, f01=0x0190, f02=»$6646$$ P!!DL 175 , PCNFHC BINI (16),'1','2','3','4','5','0' P!!DL 180,181 P 2 POFF STRGI (12)2C'TC','TD','TE','TF','TG',' ' d P!!RE 187,$$FALSE$$TRUE$$ BKO ( P!!RE 188,$$FALSE$$TRUE$$ SALDO KORT * P!!RE 194,$$TRUE$$FALSE$$ NO AU
0x354950…354ae4 Dummy {f00=0x008e, f01=0x0190, f02=»T$$ x 2 P!!RE 310,$$01014610$$%VER%REL%MOD$$ VERSION NO P!!RE 361,$$5$$1$$ B P!!DL 362,363 0 PON STRGI (12)2C'KA','KB','KC','KD','KE',' ' p $ P!!RE 473,$$27$$25$$ DEFAULT LINE P!!EN PNOD C PTRA /S,NL PINC DIVFMT
0x354ae4…354c78 Dummy {f00=0x008e, f01=0x0190, f02=»NOD R PINC RGSUBS PINC KMDIO PINC RGSUB3 2 PNOD R D PINC SCREEN R PINC SUBAPL d PNOD R v PINC RGSUB1 PINC RGSUB2 PINC DKSUBS PINC RGMAIN PTLK U,4K PINC PRT PINC VDUPRT PINC START
0x354c78…354e0c Dummy {f00=0x008e, f01=0x0022, f02=»5,COUT=$CNJ5:01 b $ASG2 C KMDIO PINC RGSUB3 2 PNOD R D PINC SCREEN R PINC SUBAPL d PNOD R v PINC RGSUB1 PINC RGSUB2 PINC DKSUBS PINC RGMAIN PTLK U,4K PINC PRT PINC VDUPRT PINC START
0x354e0c…354fa0 Dummy {f00=0x008e, f01=0x2008, f02=» CNJ5:01 b $ASG2 C KMDIO PINC RGSUB3 2 PNOD R D PINC SCREEN R PINC SUBAPL d PNOD R v PINC RGSUB1 PINC RGSUB2 PINC DKSUBS PINC RGMAIN PTLK U,4K PINC PRT PINC VDUPRT PINC START
0x354fa0…355134 (4, 277) Dummy {f00=0x008e, f01=0x0190, f02=»
[…0x1…]
0x3552c8…35545c Dummy {f00=0x008e, f01=0x0190, f02=» TCTDTETFTGTHTITJTKTLTMTN* F _ & { B P
0x35545c…3555f0 Dummy {f00=0x008e, f01=0x0190, f02=» 0000899 0 @ A B E F G H I P Q R S T F 0 0 0
0x3555f0…355784 Dummy {f00=0x008e, f01=0x0190, f02=» KAKC * .
0x355784…355918 Dummy {f00=0x008e, f01=0x0190, f02=» F 0 0 0 0 0 0 0 0 #0 &0 * + , J
0x355918…355aac Dummy {f00=0x008e, f01=0x0190, f02=» 10 8 ? B L d
0x355aac…355c40 Dummy {f00=0x008e, f01=0x0190, f02=» 0 0 0 .
0x355c40…355dd4 (4, 278) Opaque[0x194]
0x355dd4…355f68 # DirEnt {nam=»KM0807«, typ=»UF«, f00=0x0000, f01=0x0000, f02=0x14b0, f03=0x0000}
0x355dd4…355f68 IdxSect {
0x355dd4…355f68 f00 = 0x00a5 // 0x355dd4 @0x0
0x355dd4…355f68 f01 = 0x0002 // 0x355dd6 @0x2
0x355dd4…355f68 gno = [ // 0x355dd8 @0x4
0x355dd4…355f68 [0x00]: C0x00a5.0x2.0
0x355dd4…355f68 ]
0x355dd4…355f68 }
0x355f68…3560fc Dummy {f00=0x00a5, f01=0x000e, f02=» $ASG2 PLC=02L; P03; $ PSCL=S02; 0 PSCL=S03; @ PSCL=S04; P T; ` 01; j TID=D0; v TCL=D0; LEV=60; 00; P00; PC; P00; P01; PSCL=S01; U; 001; TB
0x3560fc…356290 Dummy {f00=0x00a5, f01=0x2008, f02=» 2 PLC=02L; P03; $ PSCL=S02; 0 PSCL=S03; @ PSCL=S04; P T; ` 01; j TID=D0; v TCL=D0; LEV=60; 00; P00; PC; P00; P01; PSCL=S01; U; 001; TB
0x356290…356424 Dummy {f00=0x00a5, f01=0x0190, f02=» 4 " 2@P : [ [ & @! ! P [ 6 [ Z 7 8 Z 7 : ( :A ( @! " P [ :;H 2 P ;h ( : ; V Y : 2! : 6 2 4W& " # ;b ; :
0x356424…3565b8 Dummy {f00=0x00a5, f01=0x0190, f02=» Q P [ ! X # P 4 V W Q P [ " X $ P TF R R ` ; <( Q P # W " <! =# T6W = Z P _ V ^< `_@ R Q <# =_ P :" P * U P 1`! T "# 9e! # K : P8" T * &
0x3565b8…35674c Dummy {f00=0x00a5, f01=0x0190, f02=» R W ( V W Q P W ! W V P , V W Q P W $ W V P T V W Z :$0#0;b j P P PN P 0 - P: V W Z _ 4 V W Q P ) P 9_ &" ! 9 : & P Q ,^ , < #
0x35674c…3568e0 Dummy {f00=0x00a5, f01=0x0190, f02=»V W R 4 0R Y 7 Y& P Z,;D 9_8 8 _< V W YL T 9 : &9d! + P & T 9d! T 7 V Y P _$ SZ Q V P V Q W Q 7 Y P._6 & Q 9d! )0 + P 7 Y Z $ _ : V ) " TV *V
0x3568e0…356a74 (4, 279) Opaque[0x194]
0x356a74…356c08 # DirEnt {nam=»CONNJ3«, typ=»UF«, f00=0x0000, f01=0x0000, f02=0x09e8, f03=0x0000}
0x356a74…356c08 IdxSect {
0x356a74…356c08 f00 = 0x004f // 0x356a74 @0x0
0x356a74…356c08 f01 = 0x0002 // 0x356a76 @0x2
0x356a74…356c08 gno = [ // 0x356a78 @0x4
0x356a74…356c08 [0x00]: C0x004f.0x1.0
0x356a74…356c08 ]
0x356a74…356c08 }
0x356c08…356d9c Dummy {f00=0x004f, f01=0x0190, f02=» T; P01; TID=TC; TCL=TC; * LEV=60; : 01; J PTDC=T02; V PLC=01L; f P01; v PSCL=S04; PT; P01; PTID=TD; TCL=TC; LEV=60; 01; PTDC=T02; PLC=01R; P00;
0x356d9c…356f30 Dummy {f00=0x004f, f01=0x0190, f02=» P02; TID=KA; TCL=KA; $ LEV=60; 4 01; D TDC=T03; P PLC=01L; ` P03; p PSCL=S02; | PSCL=S03; PSCL=S04; PT; P01; PTID=KC; TCL=KA; LEV=60; 01; TDC=T03;
0x356f30…3570c4 Dummy {f00=0x004f, f01=0x0190, f02=»LEV=60; 01; TDC=T04; PLC=02L; , P03; < PSCL=S02; H PSCL=S03; X PSCL=S04; h PT; x P01; PTID=GB; TCL=GA; LEV=60; 01; TDC=T04; PRC=02R; P03; PSCL=S02; PSC
0x3570c4…357258 Dummy {f00=0x004f, f01=0x0050, f02=»; P01; PSCL=S01; U; & 001; 0 TB2; < P003; H H PSCL=S03; X PSCL=S04; h PT; x P01; PTID=GB; TCL=GA; LEV=60; 01; TDC=T04; PRC=02R; P03; PSCL=S02; PSC
0x357258…3573ec Dummy {f00=0x004f, f01=0x2008, f02=» P01; PSCL=S01; U; & 001; 0 TB2; < P003; H H PSCL=S03; X PSCL=S04; h PT; x P01; PTID=GB; TCL=GA; LEV=60; 01; TDC=T04; PRC=02R; P03; PSCL=S02; PSC
0x3573ec…357580 Dummy {f00=0x004f, f01=0x0190, f02=» ( Z 0 O ( B : C ( : O N T B O N - O N N " P N " O N " P N " O W B H, : C C C ( :H Q ( P _@
0x357580…357714 (4, 280) Opaque[0x194]
0x357714…3578a8 # DirEnt {nam=»CONNJ4«, typ=»UF«, f00=0x0000, f01=0x0000, f02=0x13e8, f03=0x0000}
0x357714…3578a8 IdxSect {
0x357714…3578a8 f00 = 0x009f // 0x357714 @0x0
0x357714…3578a8 f01 = 0x0002 // 0x357716 @0x2
0x357714…3578a8 gno = [ // 0x357718 @0x4
0x357714…3578a8 [0x00]: C0x009f.0x1.0
0x357714…3578a8 ]
0x357714…3578a8 }
0x3578a8…357a3c Dummy {f00=0x009f, f01=0x0190, f02=» T; P01; TID=TC; TCL=TC; * LEV=60; : 01; J PTDC=T02; V PLC=01L; f P01; v PSCL=S04; PT; P01; PTID=TD; TCL=TC; LEV=60; 01; PTDC=T02; PLC=01R; P00;
0x357a3c…357bd0 Dummy {f00=0x009f, f01=0x0190, f02=»L=S02; PSCL=S03; PSCL=S04; PT; . P01; 8 PTID=KB; D TCL=KA; T LEV=60; d 01; t TDC=T03; PLC=01R; P03; PSCL=S02; PSCL=S03; PSCL=S04; T; P01; TID=GA; TCL=GA
0x357bd0…357d64 Dummy {f00=0x009f, f01=0x0162, f02=» P01; PTID=GB; TCL=GA; LEV=60; 0 01; @ TDC=T04; L PRC=02R; P03; l PSCL=S02; x PSCL=S03; PSCL=S04; T; 01; TID=D0; TCL=D0; LEV=60; 00; P00; PC;
0x357d64…357ef8 Dummy {f00=0x009f, f01=0x2008, f02=» PTID=GB; TCL=GA; LEV=60; 0 01; @ TDC=T04; L PRC=02R; P03; l PSCL=S02; x PSCL=S03; PSCL=S04; T; 01; TID=D0; TCL=D0; LEV=60; 00; P00; PC;
0x357ef8…35808c Dummy {f00=0x009f, f01=0x009c, f02=» TCL=D0; LEV=60; 00; ( P00; 4 PC; @ P00; J P01; V PSCL=S01; b U; r 001; | TB2; P004; PSCL=S03; PSCL=S04; T; P01; PTID=GC; TCL=GA; LEV=60;
0x35808c…358220 Dummy {f00=0x009f, f01=0x2008, f02=» TCL=D0; LEV=60; 00; ( P00; 4 PC; @ P00; J P01; V PSCL=S01; b U; r 001; | TB2; P004; PSCL=S03; PSCL=S04; T; P01; PTID=GC; TCL=GA; LEV=60;
0x358220…3583b4 (4, 281) Opaque[0x194]
0x3583b4…358548 # DirEnt {nam=»CONNJ5«, typ=»UF«, f00=0x0000, f01=0x0000, f02=0x1200, f03=0x0000}
0x3583b4…358548 IdxSect {
0x3583b4…358548 f00 = 0x0090 // 0x3583b4 @0x0
0x3583b4…358548 f01 = 0x0004 // 0x3583b6 @0x2
0x3583b4…358548 gno = [ // 0x3583b8 @0x4
0x3583b4…358548 [0x00]: C0x0090.0x0.0
0x3583b4…358548 [0x01]: C0x0091.0x0.0
0x3583b4…358548 ]
0x3583b4…358548 }
0x358548…3586dc Dummy {f00=0x0090, f01=0x0190, f02=» T; P01; TID=TC; TCL=TC; * LEV=60; : 01; J PTDC=T02; V PLC=01L; f P01; v PSCL=S04; T; P01; PTID=TD; TCL=TC; LEV=60; 01; PTDC=T02; PLC=01R; P00;
0x3586dc…358870 Dummy {f00=0x0090, f01=0x0190, f02=» P01; PTID=TF; TCL=TC; $ LEV=60; 4 01; D PTDC=T02; P PLC=05R; ` P00; p T; | P01; PTID=TG; TCL=TC; LEV=60; 01; PTDC=T02; PLC=07R; P00; PT; P01;
0x358870…358a04 Dummy {f00=0x0090, f01=0x0190, f02=» PSCL=S04; PT; P01; " PTID=KB; . TCL=KA; > LEV=60; N 01; ^ TDC=T03; j PLC=01R; z P03; PSCL=S02; PSCL=S03; PSCL=S04; PT; P01; PTID=KC; TCL=KA; LEV=60;
0x358a04…358b98 Dummy {f00=0x0090, f01=0x018e, f02=»; TCL=KA; LEV=60; 01; * TDC=T03; 6 PLC=05R; F P03; V PSCL=S02; b PSCL=S03; r PSCL=S04; PT; P01; PTID=KE; TCL=KA; LEV=60; 01; TDC=T03; PLC=07R; P03;
0x358b98…358d2c Dummy {f00=0x0090, f01=0x0190, f02=» TDC=T04; PLC=02L; P03; $ PSCL=S02; 0 PSCL=S03; @ PSCL=S04; P T; ` P01; j PTID=GB; v TCL=GA; LEV=60; 01; TDC=T04; PLC=02R; P03; PSCL=S02; PSCL=S03; PSCL=S04;
0x358d2c…358ec0 Dummy {f00=0x0090, f01=0x018e, f02=»S02; PSCL=S03; PSCL=S04; T; , P01; 6 PTID=GD; B TCL=GA; R LEV=60; b 01; r TDC=T04; ~ PLC=06R; P03; PSCL=S02; PSCL=S03; PSCL=S04; T; P01; PTID=GE; TCL=GA;
0x358ec0…359054 (4, 282) Dummy {f00=0x0091, f01=0x00b4, f02=» 01; TID=D0; TCL=D0; LEV=60; 0 00; @ P00; L PC; X P00; b P01; n PSCL=S01; z U; 001; TB2; P005;
0x359054…3591e8 Dummy {f00=0x0091, f01=0x2008, f02=» TID=D0; TCL=D0; LEV=60; 0 00; @ P00; L PC; X P00; b P01; n PSCL=S01; z U; 001; TB2; P005;
0x3591e8…35937c Dummy {f00=0x0091, f01=0x0190, f02=» S @ 0 W _ , ( ? y"W( _ , T T xv <P xv W 4 4 1 > L u E u ~2 z P ~Z . H ( $ ( t ~ ~ ^ P J * H _ r Z ( , ) + / 1 M h u
0x35937c…359510 Dummy {f00=0x0091, f01=0x0190, f02=» V n V n k @ = * g @ B 9 w Z i ~ ) 3 { _ L 8
0x359510…3596a4 Dummy {f00=0x0091, f01=0x0190, f02=» ( 2 3 @ G@K@ *-DKST NR&04BEL DEB KRE SUMKVITTRP ADM ARKIVBILAGDEBETFEJL KLAR SALD0SALDOSLUTDZ300 KVITDAG NREJ EDBKREDITLBNR T[LLERKONTONRKORREKT DIVERSETOTAL EKS.LBNRBEREGNINGDAGS-DATOKONTOKORTMASKIN NRPOST-DATOSTART SUMS
0x3596a4…359838 Dummy {f00=0x0091, f01=0x0190, f02=»-KONTO KASSELUKNING ]BNE KASSERKONVERTERING REGNEFUNKTIONSLET PERIODE EJ-EDB T[LLER DISKETTE SKIFT BEHOLDNINGST[LLEREVERSUR KONTONR REMIT VERSURKONTONR KASSEKONTONR PRIMO KASSE %9BX999BBZXXZZ99999BB**B9BBBXBBZBXBBXXBZZZZZ9999999BB**BB99.B999B
0x359838…3599cc Dummy {f00=0x0091, f01=0x0190, f02=»9999.99.99BB99.99.99BZZ.ZZ.ZZBZZZZZZZZZZ.ZZ.ZZB99E-99E-99B99.99.99BBB99.99.9999.99.999.9BZZZZZZZZBBBZZZZZZZZZZ******E-****99999999E-99XXXXXXE-XXXXXXXXXXXXE-XXZZZZ9999.99BZZZZZZZZE-ZZZZZZZZZZZE-9BBZZ.ZZ.ZZBBBE-9999999999BXXX.XXXXX.XXBTTTTTTTTTTTTX-XE-XXE-XXE-XXBB99
0x3599cc…359b60 Dummy {f00=0x0091, f01=0x0190, f02=».**9,99+*.***.***.**9.99+*.***.***.**9.99-B999.99.999.99BBBZ.ZZZ.ZZZ.ZZ9.99-*.***.***.**9.99+BB*.***.***.**9.99-B*.***.***.**9E,99B999E-99E-999E-99BBBZZZE-ZZE-ZZZE-ZZTTT.TTT.TTT.TT9.99-ZZZ.ZZZ.ZZZ.ZZ9.99-BTTT.TTT.TTT.TT9.99-BBZZZ.ZZZ.ZZZ.ZZ9.99-
0x359b60…359cf4 (4, 283) Opaque[0x194]
0x359cf4…359e88 # DirEnt {nam=»CTAB01«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x1a70, f03=0x0000}
0x359cf4…359e88 IdxSect {
0x359cf4…359e88 f00 = 0x00d3 // 0x359cf4 @0x0
0x359cf4…359e88 f01 = 0x0004 // 0x359cf6 @0x2
0x359cf4…359e88 gno = [ // 0x359cf8 @0x4
0x359cf4…359e88 [0x00]: C0x00d3.0x2.0
0x359cf4…359e88 [0x01]: C0x00d3.0x3.0
0x359cf4…359e88 ]
0x359cf4…359e88 }
0x359e88…35a01c Dummy {f00=0x00d3, f01=0x018e, f02=» . * IDENT CTAB01 80.07.25/NJ NORDJYLLANDS AMT ENTRY CTAB01 6 2 -CTAB01 DATA FUNC,FUNCSH,UNSC,SHIFT,UNSC,SHIFT L * FUNC EQU * P DATA /7F81 A15,B15 DATA /888A B16,B17 DATA /8482 C15,C16 P DATA /838E C17,D15
0x35a01c…35a1b0 Dummy {f00=0x00d3, f01=0x0190, f02=» DATA /3233 DATA /3435 DATA /3637 , DATA /3839 @ DATA /BA26 A20,A21 T DATA /ABB3 A22,C22 p DATA /B292 D22,D23 DATA /A1A0 E15,E17 DATA /AEAF E18,E19 DATA /8C80 E20,E21 DATA /B0B1
0x35a1b0…35a344 Dummy {f00=0x00d3, f01=0x0190, f02=»1 A15,B15 DATA /888A B16,B17 DATA /8482 C15,C16 . P DATA /838E C17,D15 J DATA /9394 D16,D17 f DATA /8586 A16,A17 DATA /AA89 A18,C18 DATA /8BA5 D18,A23 DATA /3031 DATA /3233 DATA /343
0x35a344…35a4d8 Dummy {f00=0x00d3, f01=0x018e, f02=»ATA /A1A0 E15,E17 DATA /AEAF E18,E19 DATA /8C80 E20,E21 6 DATA /B0B1 E22,E23 R DATA /7F7F n DATA /7F7F DATA /7F7F DATA /7F7F P* PUNSC EQU * P DATA /207F A01 P DATA /7F7F P D
0x35a4d8…35a66c Dummy {f00=0x00d3, f01=0x0190, f02=» ~ P DATA /3031 P DATA /3233 P DATA /3435 0 P DATA /3637 D P DATA /3839 X P DATA /ACA9 B12,C13 l P DATA /ADA7 E13,D13 P DATA /A8A6 D14,E14 P DATA /6041 E12 P DATA /4243 P DATA /4445 P DATA /4
0x35a66c…35a800 Dummy {f00=0x00d3, f01=0x0190, f02=»A /5455 P DATA /5657 P DATA /5859 $ P DATA /5A5C 8 P DATA /5B5D L P DATA /277F D12 ` P* x PSHIFT EQU * P DATA /207F A01 P DATA /7F7F P DATA /7F7F P DATA /7F7F P DATA /B63E E00,A00 P D
0x35a800…35a994 (4, 284) Dummy {f00=0x00d3, f01=0x018e, f02=»ATA /262F P DATA /2829 P DATA /ACA9 B12,C13 & P DATA /ADA7 E13,D13 B P DATA /A8A6 D14,E14 ^ P DATA /4041 E12 z P DATA /4243 P DATA /4445 P DATA /4647 P DATA /4849 P DATA /4A4B P DATA /4C4D
0x35a994…35ab28 Dummy {f00=0x00d3, f01=0x404e, f02=» P DATA /5B5D P DATA /2A7F D12 P* 4 END >@ JE13,D13 B P DATA /A8A6 D14,E14 ^ P DATA /4041 E12 z P DATA /4243 P DATA /4445 P DATA /4647 P DATA /4849 P DATA /4A4B P DATA /4C4D
0x35ab28…35acbc Dummy {f00=0x00d3, f01=0x2008, f02=» 233 DATA /3435 DATA /3637 ( DATA /3839 < DATA /BA26 A20,A21 P DATA /ABB3 A22,C22 l DATA /B292 D22,D23 DATA /A1A0 E15,E17 DATA /AEAF E18,E19 DATA /8C80 E20,E21 DATA /B0B1 E22,
0x35acbc…35ae50 Dummy {f00=0x00d3, f01=0x0190, f02=»ORE DISPLAYING H p P LD A1,ECBVDU+ECBBA,CREBAS I P SC A5,1,A1 =1 I : P LDK A5,/1E I R P ADK A1,2 NEXT POS I f ( P SCR A5,A1 LOW INT, STORE IN BUFFER I P LDR A6,A3 I $ P ANK A3,/4 STANDARD DISPLAYING? I P RF(Z) ANC200 YES I & P ANK A6,
0x35ae50…35afe4 Dummy {f00=0x00d3, f01=0x0190, f02=»5,/1F SET HIGH INTENSITY I P SCR A5,A1 STORE IN BUFFER J ( PANC200 LDR A2,A4 UPDATE A2 WITH CHAR J B 0 PANC250 CF A14,WCHAR DISPLAY CHAR AND CURSOR J n & P LD A2,PCURS,TCABAS GET CURSOR POS J P ADK A2,1 J PANC252 EQU * J P CWK A2,LBVDU J P
0x35afe4…35b178 Dummy {f00=0x00d3, f01=0x018e, f02=»F ATTRIBUTE CHAR? J P RF(G) ANC300 NO K P K 2 ( P CF A14,TAB SKIP TO NEXT UNPROTECTED K : PANC300 EQU * K f P LD A1,ECBCW,A8 CONTROL WORD K z P ANK A1,X'FF' LINE POSITION K ( P SUK A1,80 LAST POSITION ON LINE ?? K P RF(NZ) ANC350 NO!!! K :
0x35b178…35b30c Dummy {f00=0x00d3, f01=0x0190, f02=» 8 P*************************************************** L P* L @ < P* DELETE CHARACTER AT CURSOR POSITION. SHIFT CARACTERS L J . P* AT SAME LINE ONE POSITION TO THE LEFT L P* L @ P************************************************************ L
0x35b30c…35b4a0 Dummy {f00=0x00d3, f01=0x0190, f02=» CWR A6,A2 LAST POSITION ON CURRENT LINE?? L $ P RB(L) DEL:10 NO!! TRY NEXT LINE M 2 P M Z * P CF A14,S:ATT SEARCH ATTRIBUTE FORWARD M b P SUK A1,2 ATTRIBUTE FOUND ?? M P RF(Z) DEL:20 NO!! M . P CWR A2,A6 ATTRIBUTE AFTER END OF LINE ?? M P RF(G) D
0x35b4a0…35b634 (4, 285) Opaque[0x194]
0x35b634…35b7c8 # DirEnt {nam=»KY6272«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x07f8, f03=0x0000}
0x35b634…35b7c8 IdxSect {
0x35b634…35b7c8 f00 = 0x003f // 0x35b634 @0x0
0x35b634…35b7c8 f01 = 0x0002 // 0x35b636 @0x2
0x35b634…35b7c8 gno = [ // 0x35b638 @0x4
0x35b634…35b7c8 [0x00]: C0x003f.0x3.0
0x35b634…35b7c8 ]
0x35b634…35b7c8 }
0x35b7c8…35b95c Dummy {f00=0x003f, f01=0x0190, f02=» PNOKEY EQU X'FF' PBSPKY1 EQU X'A7' PCANKY1 EQU X'B2' 4 PMACKY1 EQU X'8B' L PEORKY1 EQU X'AB' d PFTABKY1 EQU X'FF' | PBTABKY1 EQU X'AA' PDUPKY1 EQU X'B3' PSLUTKY1 EQU X'A5' PREGKY1 EQU X'A1' PCOPKY1 EQU X'B
0x35b95c…35baf0 Dummy {f00=0x003f, f01=0x0190, f02=»Y1 EQU X'FF' PCY2KY1 EQU X'FF' PCYCKY1 EQU X'A3' , PINVKY1 EQU X'9E' D PKONKY1 EQU X'BF' PKVITKY1 EQU X'B5' t PSUPLKY1 EQU X'9D' PSUMKY1 EQU X'9F' PADMKY1 EQU X'A0' PDIVKY1 EQU X'9C' PHBOGKY1 EQU X'99'
0x35baf0…35bc84 Dummy {f00=0x003f, f01=0x0190, f02=»BKY1 EQU X'AA' PINSKY1 EQU X'B0' PDELKY1 EQU X'B1' . PCL1KY1 EQU X'80' F PCL2KY1 EQU X'9A' ^ PCL3KY1 EQU X'95' v POUTKY1 EQU X'A0' P* PBSPKY2 EQU BSPKY1 PCANKY2 EQU CANKY1 PEORKY2 EQU EORKY1 PMACKY2 EQU
0x35bc84…35be18 Dummy {f00=0x003f, f01=0x40d4, f02=»SLUTKY1 PKREKY2 EQU KREKY1 PREGKY2 EQU REGKY1 * PADMKY2 EQU ADMKY1 D PSPGKY2 EQU SPGKY1 ^ PKONKY2 EQU KONKY1 x PKVITKY2 EQU KVITKY1 PONKY2 EQU ONKY1 P* @ CANKY1 PEORKY2 EQU EORKY1 PMACKY2 EQU
0x35be18…35bfac Dummy {f00=0x003f, f01=0x2008, f02=» * ERRFMT FRMT FSL , " FMEL 'ZZ9B',GTWBCD1 FILE NR. 8 FCOPY ERRTXT ^ " FMEL 'BZZ9',GTWBCD2 ERRORNR. t FCOPY =X'07' FMEND @ 8SPKTAB2 KTAB BSPKY1,CANKY1,NOKEY,MACKY1,NOKEY,EORKY1, C D ? FT
0x35bfac…35c140 Dummy {f00=0x003f, f01=0x0190, f02=»AG 2 P IB GSWBIN2,T1013,T1013,T1025,T1014,T1013, C P T1013,T1013,T1013,T1018 @ PT1013 b P B T1010 p PT1014 KRE KEY P MOVE CCONBUF0,=X'00' P MOVE GSWBIN2,CBIN0 PT10140 P ADD GSWBIN2,CBIN1 $ P IF FINISH:
0x35c140…35c2d4 (4, 286) Opaque[0x194]
0x35c2d4…35c468 # DirEnt {nam=»OBDIR «, typ=»UF«, f00=0x0000, f01=0x0000, f02=0x23e8, f03=0x0000}
0x35c2d4…35c468 IdxSect {
0x35c2d4…35c468 f00 = 0x011f // 0x35c2d4 @0x0
0x35c2d4…35c468 f01 = 0x0006 // 0x35c2d6 @0x2
0x35c2d4…35c468 gno = [ // 0x35c2d8 @0x4
0x35c2d4…35c468 [0x00]: C0x011f.0x1.0
0x35c2d4…35c468 [0x01]: C0x011f.0x2.0
0x35c2d4…35c468 [0x02]: C0x011f.0x3.0
0x35c2d4…35c468 ]
0x35c2d4…35c468 }
0x35c468…35c5fc Dummy {f00=0x011f, f01=0x000c, f02=»801211 RINK T:SETCK T:TBWDH T:TDOWS T:TFWDC T:THOMP T:TLDO T:TLEF$ T:TRIGA T:TSTC0 T:TUP T:UPDFT T:XSTAT DTB3270 801211 TASCIIK TEBCDI @ KEYCNV * SPINF1C SPINF8R SPLIN8 * CLEAR8$ EMPTYTA SPAPPL0 SPCHK1R SPC
0x35c5fc…35c790 Dummy {f00=0x011f, f01=0x0190, f02=» PRT 801211 PRINT I:EVA0 EMULA DC1INQ ICREAD ` REQTIM GTRBUF DCGETM UPDATE RFMDUP SNBUSYK VDUPRT 801211 DCINP LINHON LSAVON ATMASB LINHOFC SNBUSY DCGETM | REQTIM` GTRBUF $
0x35c790…35c924 Dummy {f00=0x011f, f01=0x0190, f02=»R * WCHAR* RFMDUP + + VSTART 801211 DCTASK P I:EVA0 GTRBUF DCGETM RLRBUFV EMULA VDUKB ERASE ICREAD DCINP DC1INQN : DC2INQ R REQTIM SETCUR WCHAR DISPL TASCII TRPAN TRPFN I:RT1 ERASUA
0x35c924…35cab8 Dummy {f00=0x011f, f01=0x0190, f02=» $$$TRAM FUNCT INITRGT TRINP TRPAGE 7 hADM BELLIhCYK DIVTR ENTER FMSTYR FRMTSP0 KORTX KVIT LSTINT MODPT PACKCLR SETDEBI SETKREP SPCA7 SPCLRA SPCLRN SPCN SPERR SPINF1K SUBTOTEhSUM T:ERAS T:TBWD0 e 6RGMND $ 801211 $$$TRAM
0x35cab8…35cc4c Dummy {f00=0x011f, f01=0x0190, f02=»SGVOLC CLBEH CLEDB CLEJ2 CLSVOL LAMPOF LAMPONF RAREAD RAWRITS RGA120A RGADM RGREAD9 RSTORE1 SETMK SKIFT SOPRD SPCLRAG SPCLRNB SPLIN8B STRTWRC T:ATTFL T:DSC0L T:DSC1R T:GETIS T:PAUSA T:RSTRR T:USE UPDAKK1 WRITIDS ZEROS DKSUBS 9 801211 $
0x35cc4c…35cde0 Dummy {f00=0x011f, f01=0x0190, f02=»LD PACKSTT SETDEBR SETKRER SPERR T:ASSII T:DELAB T:DSC0R T:DSC1R T:READS T:RREA, T:RWRII T:WRITA T:XSTA WRITJTP L TRGFRMT D , &801211 $$$TRAF FMSTYR FRMTSPF FRMXSP T:ATTFF DIVFMT p 0 0801211 $$$TRA FRMTGPV ? FRMTJ
0x35cde0…35cf74 (4, 287) Dummy {f00=0x011f, f01=0x0190, f02=» $$$TRAS CLRSW ; SELTR K SETDEB0 - SETKRES SPAPPL. [ SPCHK1 SPCHK2S X SPCHK3E SPCHK4 SPCHK5S SPCHK6C SPCHK7K SPTCHK; CRKJK KKCHS KTPLAN PACKCL T:GETCK ,KMDIO 801211 $$$TRA CLEAR8D v CRKJA CRVO0 EDATNR
0x35cf74…35d108 Dummy {f00=0x011f, f01=0x0190, f02=»EL RAWRIT SPCHK5 SPERR SPLIN8W T:DELA T:DSC0L T:DSC1V T:EDWRA T:TEST T:WAITA RGADM ? ?801211 $$$TRAS hADM ADMRETN BCKUP CLBEH N CLEDB G CLEJL LAMPOFA LAMPONS w RGA120I c RGADM SKIFT SLUTIDT SOPRD STRTID STRTWRA
0x35d108…35d29c Dummy {f00=0x011f, f01=0x0190, f02=»hCYK DIVTR EMPTYTB FRMTKVN FRMXJTR FRMXSP FRMXTAA FRMXVOA GRASPVB INITRGC KORTS KTOPR KTPRT KVITC LSTINTA MODPL ONLINEC PACKCLR RADEL RAREADK RAWRITJ RGREADS SETDEBA SETKREA SLUTP SPCLRAR SPCLRNS SPINF1K SPLIN8I SQWRIT SUBTOTAhSUM T:ATTFN T:DELAC T:DSC0L
0x35d29c…35d430 Dummy {f00=0x011f, f01=0x0190, f02=» CYCLR hCYK E CYKINTS DIVTR ENTER x FMTNXTX KKCH KKTRP } KORTK KVITV P LSTINTF MODPK % SUBTOTP hSUM U ABORT CLEAR8E CRVON CYOUT EMPTYTE FLDTSTF FRMTKT FRMTKV FRMXKT} FRMXSP FRMXTAP FRMXVOF GRASPVK LINOPTO SETDEBM SETKREC SLUTE SPCHK5C SPC
0x35d430…35d5c4 Dummy {f00=0x011f, f01=0x0190, f02=»1211 $$$TRAS FLDIN FLDTSTS l SLUTM SUMWRT1 UPDA12 M UPDAKK FRMTJTS FRMTVOA FRMXTA0 KTPLANF PACKST SPERR SPINF8 WRITFD WRITJT WRITVOS WTALLYM PRGSUB2 801211 $$$TRAS PACKCL / PACKST CYTRP EMPTYTT D K RGSU
0x35d5c4…35d758 Dummy {f00=0x011f, f01=0x0190, f02=»D. RAWRIT1 SPLIN8 T:DELA T:DSC0O T:DSC1L T:EDWRC T:WAITC >ADM6 " 801211 $$$TRA ADM600M CHNGDKD EXCHAN- t SENDRC1 i SIGNOFX T SIGNON d STRTRC " TERMINE 9 TRNOK WJDCS ADMRETM ASGVOLD BCKUP CLSVOLt GETBIT1 LAMPOFO LAMPONG RAR
0x35d758…35d8ec Dummy {f00=0x011f, f01=0x0190, f02=» 801211 $$$TRAM ADM600 ADMRETM ZKTPLN 1 801211 $$$TRAP KTPLAN RESTMKS SETMK RAREADP T:DELAA @ @ >KTPLND 4 801211 $$$TRAP KTPLAN SETMK KTOPR 5 801211 $$$TRAO KTOPR KTPRT
0x35d8ec…35da80 Dummy {f00=0x011f, f01=0x0190, f02=» 801211 $$$TRAO KTOPR KTPRT ADMRETO T:ATC0 > 801211 T:ATC0A h T:DTC0 D:CB10 C:CB10 D:CB20 C:CB20 D:CB30 C:CB30 D:CB40A C:CB40A D:CB600 C:CB60F D:CD30 C:CB30X D:CD40 C:CB40 D:GB10 Z:GB10 D:GB20 Z:GB20 D:GB30 Z
0x35da80…35dc14 (4, 288) Dummy {f00=0x011f, f01=0x0190, f02=» VT:AKA0 B 801211 T:AKA0A T:DKA0 D:CB90 C:CB90 D:TB90 Z:TB90 y 4T:DKA0 D 801211 T:DKA0D KBVGO VT:AGA0 E 801211 T:AGA0A ^ T:DGA0 D:CB90 C:CB90 D:TB90 Z:TB90 = j 4T:DGA0 F 801211 T:DGA
0x35dc14…35dda8 Dummy {f00=0x011f, f01=0x0190, f02=»GO NT:ATAB I 801211 T:ATABA T:AD00 T:AGA0 T:AKA0 T:ATC0 :A 6U:BTAB J 801211 U:BTABB U:TB20 :T ,S:BTAB K 801211 S:BTABB :B ,Z:TB90 L 801211 Z:TB90T ,D:TB90 T 801211
0x35dda8…35df3c Dummy {f00=0x011f, f01=0x0190, f02=» C:CB10C 6 ,D:CB10 X 801211 D:CB10C B ,C:CB20 Y 801211 C:CB20C ,D:CB20 [ 801211 D:CB20C B ,C:CB30 801211 C:CB30C ,D:CB30 e 801211 D:CB30C F ,C:CB40 f
0x35df3c…35e0d0 Dummy {f00=0x011f, f01=0x0190, f02=» k 801211 D:CB60C . ,Z:TB10 l 801211 Z:TB10T ,D:TB10 n 801211 D:TB10T F ,Z:GB10 o 801211 Z:GB10G = J ,D:GB10 p 801211 D:GB10G B ,Z:GB20 q 801211 Z:GB20G y
0x35e0d0…35e264 Dummy {f00=0x011f, f01=0x0190, f02=» B ,Z:GB40 u 801211 Z:GB40G ,D:GB40 v 801211 D:GB40G ,U:TB20 w 801211 U:TB20T ,D:TB20 z 801211 D:TB20T B ,D:CD30 { 801211 D:CD30C . ,D:CD40 | 801211 D
0x35e264…35e3f8 Dummy {f00=0x011f, f01=0x0190, f02=»NLINE0 L REGGO DCTASKD GETTIDA PRINT T1GO- T:DSC01 T:PAUS. T:RSTR1 VDUKB X [ SCREEN 801211 $$$TRAS BELLF $ SCREENA ? SPCA0 / SPCLRA SPCLRN. SPCLRS SPCNR 7 SPERR * SPINF1C SPINF8R SPLIN8 * CLEAR8$ EMPTYTA SPAPPL0 SPCHK1R SPC
0x35e3f8…35e58c Dummy {f00=0x011f, f01=0x40c2, f02=» T:NKI T:PRINK T:SETCK T:TBWDH T:TDOWS T:TFWDC T:THOMP T:TLDO T:TLEF$ T:TRIGA T:TSTC0 T:TUP T:UPDFT T:XSTAT DTB3270 801211 TASCIIK TEBCDI @ KEYCNV * SPINF1C SPINF8R SPLIN8 * CLEAR8$ EMPTYTA SPAPPL0 SPCHK1R SPC
0x35e58c…35e720 Dummy {f00=0x011f, f01=0x018e, f02=» : H IDENT T:AKA0 TRA 4.2 80-12-11 F1 O1111 02.01.XXX.1 T:AKA0 B T:AKA0A T . * T:DKA0 D:CB90 C:CB90 D:TB90 Z:TB90 h * & @ * & P * & =
0x35e720…35e8b4 (4, 289) Opaque[0x194]
0x35e8b4…35ea48 # DirEnt {nam=»CTEST «, typ=»UF«, f00=0x0000, f01=0x0000, f02=0x1248, f03=0x0000}
0x35e8b4…35ea48 IdxSect {
0x35e8b4…35ea48 f00 = 0x0092 // 0x35e8b4 @0x0
0x35e8b4…35ea48 f01 = 0x0002 // 0x35e8b6 @0x2
0x35e8b4…35ea48 gno = [ // 0x35e8b8 @0x4
0x35e8b4…35ea48 [0x00]: C0x0092.0x1.0
0x35e8b4…35ea48 ]
0x35e8b4…35ea48 }
0x35ea48…35ebdc Dummy {f00=0x0092, f01=0x0190, f02=» T; P01; TID=TC; TCL=TC; * LEV=60; : 01; J PTDC=T02; V PLC=01L; f P01; v PSCL=S04; T; P01; PTID=TD; TCL=TC; LEV=60; 01; PTDC=T02; PLC=01R; P00;
0x35ebdc…35ed70 Dummy {f00=0x0092, f01=0x0190, f02=» P01; PTID=TF; TCL=TC; $ LEV=60; 4 01; D PTDC=T02; P PLC=05R; ` P00; p PT; | P01; TID=KA; TCL=KA; LEV=60; 01; TDC=T03; PLC=01L; P03; PSCL=S02;
0x35ed70…35ef04 Dummy {f00=0x0092, f01=0x0190, f02=»1R; P03; PSCL=S02; PSCL=S03; ( PSCL=S04; 8 T; H P01; R TID=GA; ^ TCL=GA; n LEV=60; ~ 01; TDC=T04; PLC=02L; P03; PSCL=S02; PSCL=S03; PSCL=S04; T; P01;
0x35ef04…35f098 Dummy {f00=0x0092, f01=0x00ce, f02=» PSCL=S04; T; 01; TID=D0; * TCL=D0; : LEV=60; J 00; Z P00; f PC; r P00; | P01; PSCL=S01; U; 001; TB2; P004; PSCL=S03; PSCL=S04; T; P01;
0x35f098…35f22c Dummy {f00=0x0092, f01=0x2008, f02=» S04; T; 01; TID=D0; * TCL=D0; : LEV=60; J 00; Z P00; f PC; r P00; | P01; PSCL=S01; U; 001; TB2; P004; PSCL=S03; PSCL=S04; T; P01;
0x35f22c…35f3c0 Dummy {f00=0x0092, f01=0x0190, f02=»
0x35f3c0…35f554 (4, 290) Opaque[0x194]
0x35f554…35f6e8 # DirEnt {nam=»LEDFIL«, typ=»UF«, f00=0x0000, f01=0x0000, f02=0x1c20, f03=0x0000}
0x35f554…35f6e8 IdxSect {
0x35f554…35f6e8 f00 = 0x00e1 // 0x35f554 @0x0
0x35f554…35f6e8 f01 = 0x0002 // 0x35f556 @0x2
0x35f554…35f6e8 gno = [ // 0x35f558 @0x4
0x35f554…35f6e8 [0x00]: C0x00e1.0x0.0
0x35f554…35f6e8 ]
0x35f554…35f6e8 }
0x35f6e8…35f87c Dummy {f00=0x00e1, f01=0x0190, f02=» PLED RGSTRT P!!LS $$USE$$ P!!AB * PLED DKSUBS 6 P!!LS $$USE$$ H P!!AB PLED KMD08 h P!!LS $$USE$$ z P!!AB PLED RGMAIN P!!LS $$USE$$ P!!AB PLED SL6272,/S P!!LS $$USE$$ P!!AB PLED SC
0x35f87c…35fa10 Dummy {f00=0x00e1, f01=0x018e, f02=» PLED RGSUB1 P!!LS $$USE$$ P!!AB . PLED RGSUB2 : P!!LS $$USE$$ L P!!AB ` PLED RGSUB3,/S l P!!LS $$USE$$ P!!AB PLED RGFRMT P!!LS $$USE$$ P!!AB PLED SUBAPL P!!LS $$USE$$ P!!AB PLE
0x35fa10…35fba4 Dummy {f00=0x00e1, f01=0x0082, f02=» P!!AB PLED KTPLN,/S P!!LS $$USE$$ $ P!!AB 8 PLED KTOPR,/S D P!!LS $$USE$$ X P!!AB l $ASG2 x!!LS $$USE$$ P!!AB PLED RGFRMT P!!LS $$USE$$ P!!AB PLED SUBAPL P!!LS $$USE$$ P!!AB PLE
0x35fba4…35fd38 Dummy {f00=0x00e1, f01=0x2008, f02=» PLED KTPLN,/S P!!LS $$USE$$ $ P!!AB 8 PLED KTOPR,/S D P!!LS $$USE$$ X P!!AB l $ASG2 x!!LS $$USE$$ P!!AB PLED RGFRMT P!!LS $$USE$$ P!!AB PLED SUBAPL P!!LS $$USE$$ P!!AB PLE
0x35fd38…35fecc Dummy {f00=0x00e1, f01=0x4104, f02=» : H IDENT Z:GB30 TRA 4.2 80-12-02 F1 O1111 02.01.XXX.1 T Z:GB30 T B Z:GB30G T T * & T h & T & = T [ * T d T [ d T @ T
0x35fecc…360060 Dummy {f00=0x00e1, f01=0x40f0, f02=» : H IDENT D:GB30 TRA 4.2 80-12-02 F1 O1111 02.01.XXX.1 U D:GB30 U B D:GB30G U T * & B 0 0 0 0 U h * & 0 0 0 # + ? @ U = B K U B U @ U [ d T @ T