|
DataMuseum.dkPresents historical artifacts from the history of: Philips Data Systems |
This is an automatic "excavation" of a thematic subset of
See our Wiki for more about Philips Data Systems Excavated with: AutoArchaeologist - Free & Open Source Software. |
top - metricsIndex: / A C D E F G L M N O P R S T X p ½
Length: 4822144 (0x499480)
Description: Bits:30009665 Philips computer tape "600109"
Types: SimhTapContainer, ½" Magnetic Tape
| name | artifact |
|---|---|
| CON10 | «none» |
| CON10/CNFT.UF | ⟦fa5dbcf41⟧ pts_type |
| CON10/CNJA.UF | ⟦c7926765f⟧ pts_type |
| CON10/CNJP.UF | ⟦1467dff57⟧ pts_type |
| CON10/CONFP.UF | ⟦f4bc89a2c⟧ pts_type |
| CON10/CONFT.UF | ⟦23636c7f3⟧ pts_type |
| CON10/CONFU.UF | ⟦14b788a42⟧ pts_type |
| CON10/CTAB01.SC | ⟦258636d74⟧ pts_type |
| CON10/CTAB03.SC | ⟦00fb8af8d⟧ pts_type |
| CON10/LIST.UF | ⟦5bcd7217d⟧ pts_type |
| CON10/LISTC.UF | ⟦087604e5e⟧ pts_type |
| DEN10 | «none» |
| DEN10//OBJCT.OB | ⟦51aed1cfa⟧ pts_type |
| DEN10/ASSRUT.SC | ⟦0b9ef813c⟧ pts_type |
| DEN10/CDVASM.SC | ⟦7c7ee4621⟧ pts_type |
| DEN10/CDVRUT.SC | ⟦ffe964796⟧ pts_type |
| DEN10/CONV.SC | ⟦ba1a0566b⟧ pts_type |
| DEN10/DATCHK.SC | ⟦923b55e3b⟧ pts_type |
| DEN10/DATUM.SC | ⟦33623db94⟧ pts_type |
| DEN10/DCTASK.SC | ⟦941192c76⟧ pts_type |
| DEN10/DE10ST.SC | ⟦aa875cf0b⟧ pts_type |
| DEN10/DE11ST.SC | ⟦032c79167⟧ pts_type |
| DEN10/DE1201.SC | ⟦093741ad6⟧ pts_type |
| DEN10/DE12ST.SC | ⟦68eee43d7⟧ pts_type |
| DEN10/DE14ST.SC | ⟦bd5bb27d7⟧ pts_type |
| DEN10/DE15ST.SC | ⟦974326a54⟧ pts_type |
| DEN10/DE16ST.SC | ⟦4925c6dfc⟧ pts_type |
| DEN10/DE20FS.SC | ⟦e2ee000b2⟧ pts_type |
| DEN10/DE20ST.SC | ⟦a3ba606c0⟧ pts_type |
| DEN10/DE21ST.SC | ⟦714111792⟧ pts_type |
| DEN10/DE23ST.SC | ⟦94b6e3650⟧ pts_type |
| DEN10/DE24ST.SC | ⟦92f413222⟧ pts_type |
| DEN10/DE30ST.SC | ⟦0a02e20cd⟧ pts_type |
| DEN10/DE31ST.SC | ⟦64e49c079⟧ pts_type |
| DEN10/DE40ST.SC | ⟦731cd18bb⟧ pts_type |
| DEN10/DE50ST.SC | ⟦c539d1bda⟧ pts_type |
| DEN10/DE60ST.SC | ⟦c6ab6694c⟧ pts_type |
| DEN10/DE70ST.SC | ⟦9b4fc1f34⟧ pts_type |
| DEN10/DE80ST.SC | ⟦beb16bc2a⟧ pts_type |
| DEN10/DE90ST.SC | ⟦c461edced⟧ pts_type |
| DEN10/DEACCU.SC | ⟦2f1e284ba⟧ pts_type |
| DEN10/DEAPPU.SC | ⟦b300b0130⟧ pts_type |
| DEN10/DEATNY.SC | ⟦7b48d47a5⟧ pts_type |
| DEN10/DEATTF.SC | ⟦337ce44f8⟧ pts_type |
| DEN10/DECOMP.SC | ⟦20c7b5de6⟧ pts_type |
| DEN10/DECONV.SC | ⟦4276d18a3⟧ pts_type |
| DEN10/DECVRT.SC | ⟦6242cf40f⟧ pts_type |
| DEN10/DEDDIV.SC | ⟦e069777b0⟧ pts_type |
| DEN10/DEDICO.SC | ⟦e2b52107a⟧ pts_type |
| DEN10/DEDISC.SC | ⟦60afd2eca⟧ pts_type |
| DEN10/DEDSHB.SC | ⟦fe402fec3⟧ pts_type |
| DEN10/DEFDSC.SC | ⟦4342a4ae7⟧ pts_type |
| DEN10/DEGENE.SC | ⟦f2f32db77⟧ pts_type |
| DEN10/DEKEYS.SC | ⟦fdcc8e037⟧ pts_type |
| DEN10/DELBUG.LM | ⟦b566ff812⟧ pts_type |
| DEN10/DELBUG.UF | ⟦9db2bd284⟧ pts_type |
| DEN10/DELINK.LM | ⟦ad6c21b28⟧ pts_type |
| DEN10/DELINK.UF | ⟦efdc980c7⟧ pts_type |
| DEN10/DELITT.SC | ⟦9aef0c402⟧ pts_type |
| DEN10/DELOCK.SC | ⟦6f0389acf⟧ pts_type |
| DEN10/DENT01.SC | ⟦2e920a1f9⟧ pts_type |
| DEN10/DENT02.SC | ⟦101fcb91f⟧ pts_type |
| DEN10/DENT03.SC | ⟦6472285fc⟧ pts_type |
| DEN10/DENTER.SC | ⟦4e8dea24b⟧ pts_type |
| DEN10/DENVAL.SC | ⟦60781a5f5⟧ pts_type |
| DEN10/DEPOOL.SC | ⟦7fa27c7ef⟧ pts_type |
| DEN10/DEPRFG.SC | ⟦76e7074e0⟧ pts_type |
| DEN10/DEPROC.SC | ⟦d3416cf1e⟧ pts_type |
| DEN10/DEPROD.LM | ⟦e1cf8b74f⟧ pts_type |
| DEN10/DEREC2.SC | ⟦3625ab594⟧ pts_type |
| DEN10/DERECS.SC | ⟦65644ef85⟧ pts_type |
| DEN10/DERROR.SC | ⟦6b013827f⟧ pts_type |
| DEN10/DESTAT.SC | ⟦d3e07e0de⟧ pts_type |
| DEN10/DEUNPF.SC | ⟦12c847657⟧ pts_type |
| DEN10/DEVGAC.SC | ⟦17bc0b58a⟧ pts_type |
| DEN10/DKCONV.SC | ⟦47a6816c9⟧ pts_type |
| DEN10/DKRUT1.SC | ⟦2ed2a5aab⟧ pts_type |
| DEN10/DKRUT2.SC | ⟦ad6c2cdcf⟧ pts_type |
| DEN10/DKRUT3.SC | ⟦18172b0ef⟧ pts_type |
| DEN10/DKRUT4.SC | ⟦4419f226d⟧ pts_type |
| DEN10/DLINK.LM | ⟦9bc4e021a⟧ pts_type |
| DEN10/EVCONV.SC | ⟦5080c56ce⟧ pts_type |
| DEN10/FDIO.SC | ⟦009e225aa⟧ pts_type |
| DEN10/LIST.UF | ⟦05da566f3⟧ pts_type |
| DEN10/M:PROC.UF | ⟦cd4b9e00b⟧ pts_type |
| DEN10/NJ.UF | ⟦3208af584⟧ pts_type |
| DEN10/NJLINK.UF | ⟦0132975cd⟧ pts_type |
| DEN10/NYCONV.SC | ⟦22bf407fc⟧ pts_type |
| DEN10/OBDIR.UF | ⟦bb86a3b81⟧ pts_type |
| DEN10/PTSDE.SC | ⟦8d438c597⟧ pts_type |
| DEN10/TEST.UF | ⟦dbefc4ed0⟧ pts_type |
| DEN10/TRALL.UF | ⟦77cbfce07⟧ pts_type |
| M:DENJ | «none» |
| M:DENJ//OBJCT.OB | ⟦792e040ce⟧ pts_type |
| M:DENJ/CTAB01.SC | ⟦0406a51b2⟧ pts_type |
| M:DENJ/CTABSH.SC | ⟦01295d7e4⟧ pts_type |
| M:DENJ/CTABX.SC | ⟦49a9ecc16⟧ pts_type |
| M:DENJ/DFTAB.SC | ⟦8aba3c997⟧ pts_type |
| M:DENJ/DRDY01.SC | ⟦5f7b4b945⟧ pts_type |
| M:DENJ/DRFD01.SC | ⟦a98d41941⟧ pts_type |
| M:DENJ/DRFDDE.SC | ⟦e8ebaa513⟧ pts_type |
| M:DENJ/DRFDDE.UF | ⟦c1448b70e⟧ pts_type |
| M:DENJ/DRGP01.SC | ⟦91bbcbc8c⟧ pts_type |
| M:DENJ/DRKB03.SC | ⟦a28b00c6b⟧ pts_type |
| M:DENJ/DRLP01.SC | ⟦21ba5f1e8⟧ pts_type |
| M:DENJ/DRLT01.SC | ⟦325f830b0⟧ pts_type |
| M:DENJ/DRSOP1.SC | ⟦76ab4b8cb⟧ pts_type |
| M:DENJ/DRSW01.SC | ⟦d3e28b9d9⟧ pts_type |
| M:DENJ/DRTW01.SC | ⟦c2a09e8f8⟧ pts_type |
| M:DENJ/DSKSUB.SC | ⟦ffa43e8f3⟧ pts_type |
| M:DENJ/DVDY00.SC | ⟦54f15c4fa⟧ pts_type |
| M:DENJ/DVDY02.SC | ⟦215ddbacd⟧ pts_type |
| M:DENJ/DVGP01.SC | ⟦302c4713f⟧ pts_type |
| M:DENJ/DVGP03.SC | ⟦1f1630103⟧ pts_type |
| M:DENJ/DVKB00.SC | ⟦64f64dcfe⟧ pts_type |
| M:DENJ/DVTDY.SC | ⟦3c39c30b7⟧ pts_type |
| M:DENJ/DVTGP.SC | ⟦11577f13d⟧ pts_type |
| M:DENJ/DVTKB.SC | ⟦b24d4eb7d⟧ pts_type |
| M:DENJ/EBCDIC.SC | ⟦63de8dd9d⟧ pts_type |
| M:DENJ/FMTASK.SC | ⟦aa6d4b2ae⟧ pts_type |
| M:DENJ/LDTASK.SC | ⟦8952a3d4a⟧ pts_type |
| M:DENJ/LKMAL.SC | ⟦8aaca8f58⟧ pts_type |
| M:DENJ/LRPINT.SC | ⟦c00e1bd0e⟧ pts_type |
| M:DENJ/M:DEBF.LM | ⟦396497040⟧ pts_type |
| M:DENJ/M:DEBG.LM | ⟦0d27c4aae⟧ pts_type |
| M:DENJ/M:DENJ.LM | ⟦6cd8abf23⟧ pts_type |
| M:DENJ/M:DENJ.UF | ⟦547029210⟧ pts_type |
| M:DENJ/MONTAB.SC | ⟦f4f15a1fc⟧ pts_type |
| M:DENJ/MONTIM.SC | ⟦e4789fca8⟧ pts_type |
| M:DENJ/MSUBS.SC | ⟦f8e41038c⟧ pts_type |
| M:DENJ/PFTAB.SC | ⟦2a16e7327⟧ pts_type |
| M:DENJ/SCLASS.SC | ⟦7197f86c1⟧ pts_type |
| M:DENJ/ST8000.SC | ⟦89ba753c3⟧ pts_type |
| M:DENJ/SYSBUG.SC | ⟦915e787be⟧ pts_type |
| M:DENJ/SYSLDA.SC | ⟦fde14e388⟧ pts_type |
| M:DENJ/SYSLDM.SC | ⟦b16d0dd46⟧ pts_type |
| M:DENJ/SYSTAB.SC | ⟦a18ce9919⟧ pts_type |
| M:DENJ/TABORT.SC | ⟦8299350d0⟧ pts_type |
| M:DENJ/TCLASS.SC | ⟦3749de2fe⟧ pts_type |
| M:DENJ/TDISP.SC | ⟦9e314f7ef⟧ pts_type |
| M:DENJ/TIMER.SC | ⟦9d1d919a9⟧ pts_type |
| M:DENJ/TIODMX.SC | ⟦e121b9d8b⟧ pts_type |
| M:DENJ/TLDSEG.SC | ⟦38351437f⟧ pts_type |
| M:DENJ/TMMLKM.SC | ⟦45fd0c009⟧ pts_type |
| M:DENJ/TOSSFM.SC | ⟦1d5b02fe2⟧ pts_type |
| M:DENJ/TOSSIO.SC | ⟦3a9c8922c⟧ pts_type |
| M:DENJ/TPROC.SC | ⟦9a1eb7b30⟧ pts_type |
| M:DENJ/TTMJOB.SC | ⟦e2ea3318f⟧ pts_type |
| MON10 | «none» |
| MON10/CTABX.SC | ⟦49a9ecc16⟧ pts_type |
| MON10/DFTAB.SC | ⟦4e12c5256⟧ pts_type |
| MON10/DRDC15.SC | ⟦48f58d124⟧ pts_type |
| MON10/DRDI01.SC | ⟦d5dbb9a29⟧ pts_type |
| MON10/DRDU01.SC | ⟦537ae2ab0⟧ pts_type |
| MON10/DRDY01.SC | ⟦b6c69c1f0⟧ pts_type |
| MON10/DRFD01.SC | ⟦a98d41941⟧ pts_type |
| MON10/DRFDDE.SC | ⟦97f98b4b1⟧ pts_type |
| MON10/DRFDDE.UF | ⟦0a2751f01⟧ pts_type |
| MON10/DRGP01.SC | ⟦9e81a39ac⟧ pts_type |
| MON10/DRKB03.SC | ⟦630dd5e23⟧ pts_type |
| MON10/DRLT01.SC | ⟦25e1dcfbf⟧ pts_type |
| MON10/DRSW01.SC | ⟦8e6b4099e⟧ pts_type |
| MON10/DSKSUB.SC | ⟦d7705b785⟧ pts_type |
| MON10/DVDI00.SC | ⟦5ab79e3a3⟧ pts_type |
| MON10/DVDI01.SC | ⟦b209a826c⟧ pts_type |
| MON10/DVDY00.SC | ⟦0bb9abde1⟧ pts_type |
| MON10/DVDY03.SC | ⟦20d95a316⟧ pts_type |
| MON10/DVDY04.SC | ⟦5cd090532⟧ pts_type |
| MON10/DVGP02.SC | ⟦ae4c12648⟧ pts_type |
| MON10/DVKB00.SC | ⟦64f64dcfe⟧ pts_type |
| MON10/DVKB03.SC | ⟦8f0043453⟧ pts_type |
| MON10/DVTDI.SC | ⟦821bef7e7⟧ pts_type |
| MON10/DVTDY.SC | ⟦3c39c30b7⟧ pts_type |
| MON10/DVTGP.SC | ⟦11577f13d⟧ pts_type |
| MON10/DVTKB.SC | ⟦b24d4eb7d⟧ pts_type |
| MON10/DW1501.SC | ⟦539bc1c23⟧ pts_type |
| MON10/EBCDIC.SC | ⟦5509a2d88⟧ pts_type |
| MON10/FMTASK.SC | ⟦aa6d4b2ae⟧ pts_type |
| MON10/LDTASK.SC | ⟦0ce673c13⟧ pts_type |
| MON10/LKMAL.SC | ⟦8aaca8f58⟧ pts_type |
| MON10/LRPINT.SC | ⟦96de30ab4⟧ pts_type |
| MON10/M:DECE.LM | ⟦b72fd16b2⟧ pts_type |
| MON10/M:DECE.UF | ⟦06d1bbe75⟧ pts_type |
| MON10/MONTAB.SC | ⟦a5f186bbe⟧ pts_type |
| MON10/MONTIM.SC | ⟦e4789fca8⟧ pts_type |
| MON10/MSUBS.SC | ⟦00497ea08⟧ pts_type |
| MON10/PFTAB.SC | ⟦111c09cba⟧ pts_type |
| MON10/SCLASS.SC | ⟦f6848ea8b⟧ pts_type |
| MON10/ST8000.SC | ⟦ed51eac9b⟧ pts_type |
| MON10/SYSLDA.SC | ⟦5adc0c248⟧ pts_type |
| MON10/SYSLDM.SC | ⟦1b9ffa23c⟧ pts_type |
| MON10/SYSTAB.SC | ⟦9bed1bee7⟧ pts_type |
| MON10/TABORT.SC | ⟦8299350d0⟧ pts_type |
| MON10/TCLASS.SC | ⟦30349d1d3⟧ pts_type |
| MON10/TDISP.SC | ⟦51245917c⟧ pts_type |
| MON10/TIMER.SC | ⟦9d1d919a9⟧ pts_type |
| MON10/TIODMX.SC | ⟦e121b9d8b⟧ pts_type |
| MON10/TLDSEG.SC | ⟦0ecf8e33b⟧ pts_type |
| MON10/TMMLKM.SC | ⟦45fd0c009⟧ pts_type |
| MON10/TOSSFM.SC | ⟦1d5b02fe2⟧ pts_type |
| MON10/TOSSIO.SC | ⟦3a9c8922c⟧ pts_type |
| MON10/TPROC.SC | ⟦9a1eb7b30⟧ pts_type |
| MON10/TTMJOB.SC | ⟦e2ea3318f⟧ pts_type |
| SAG | «none» |
| SAG//OBJCT.OB | ⟦de9a7344c⟧ pts_type |
| SAG/ASM.LM | ⟦6be3e01a8⟧ pts_type |
| SAG/CCI.LM | ⟦5f8d9acc6⟧ pts_type |
| SAG/CPLGEN.LM | ⟦c47c4076b⟧ pts_type |
| SAG/CSEG1.LM | ⟦3ee5d13e8⟧ pts_type |
| SAG/CSEG2.LM | ⟦c411922d3⟧ pts_type |
| SAG/CSEG3.LM | ⟦5655b5a5c⟧ pts_type |
| SAG/CSEG4.LM | ⟦06be61e35⟧ pts_type |
| SAG/CSEG5.LM | ⟦75697e1eb⟧ pts_type |
| SAG/CSEG7.LM | ⟦226ec5670⟧ pts_type |
| SAG/CSEG8.LM | ⟦77d6ab6f3⟧ pts_type |
| SAG/CSEG9.LM | ⟦4ba546904⟧ pts_type |
| SAG/CSEGA.LM | ⟦8f8becaa2⟧ pts_type |
| SAG/CSEGB.LM | ⟦fa442af97⟧ pts_type |
| SAG/CSEGC.LM | ⟦0593961db⟧ pts_type |
| SAG/CSEGD.LM | ⟦0327e3157⟧ pts_type |
| SAG/CSEGE.LM | ⟦a00e77c57⟧ pts_type |
| SAG/DMPGEF.LM | ⟦05176f858⟧ pts_type |
| SAG/DMPGEN.LM | ⟦716dfe07b⟧ pts_type |
| SAG/DUMPA.LM | ⟦937c7e685⟧ pts_type |
| SAG/EDIT.LM | ⟦0bdc280ee⟧ pts_type |
| SAG/LED.LM | ⟦90e64be69⟧ pts_type |
| SAG/LKE.LM | ⟦35fb19e1e⟧ pts_type |
| SAG/M:PROC.UF | ⟦2e1ae69fa⟧ pts_type |
| SAG/OBX.LM | ⟦cdb6a5c8a⟧ pts_type |
| SAG/PCAS.LM | ⟦2833a2312⟧ pts_type |
| SAG/PDISC.LM | ⟦5526ef80f⟧ pts_type |
| SAG/PMPTS.LM | ⟦8843024f4⟧ pts_type |
| SAG/PRDUMP.LM | ⟦1859c4a11⟧ pts_type |
| SAG/READFL.LM | ⟦81e08261d⟧ pts_type |
| SAG/RUM.LM | ⟦066729252⟧ pts_type |
| SAG/SUM.LM | ⟦085d40662⟧ pts_type |
| SAG/SUP.LM | ⟦cb602d037⟧ pts_type |
| SAG/SUP600.LM | ⟦1fc82bd6c⟧ pts_type |
| SAG/SUP60M.LM | ⟦f1b4e12f1⟧ pts_type |
| SAG/SUP800.LM | ⟦709f77a19⟧ pts_type |
| SAG/SYSGEN.LM | ⟦1a3bedfa2⟧ pts_type |
| SAG/TLK.LM | ⟦5d9da5d34⟧ pts_type |
| SAG/TOSSUT.LM | ⟦93de6c66f⟧ pts_type |
| SAG/TRA.LM | ⟦1ee307c49⟧ pts_type |
| SAG/XRF.LM | ⟦fc8a96bdf⟧ pts_type |
| TOOL | «none» |
| TOOL/ASCEBC.SC | ⟦f7e417b2d⟧ pts_type |
| TOOL/ASMRUT.SC | ⟦808b4c962⟧ pts_type |
| TOOL/CPDKMT.SC | ⟦f064d59dd⟧ pts_type |
| TOOL/LIST.UF | ⟦874ee3a70⟧ pts_type |
| TOOL/P1370.SC | ⟦7e7d293f6⟧ pts_type |
| TOOL/TSUTL1.SC | ⟦422fc5aca⟧ pts_type |
0x000000…000ca0 (0, 0) DirGranule ((0, 0)) {
0x000000…000ca0 DirEnt {nam=»SAG «, typ=» «, f00=0x0000, f01=0x0000, f02=0x0000, f03=0x0000}
0x000000…000ca0 DirEnt {nam=»SUP «, typ=»LM«, f00=0x019a, f01=0x0198, f02=0x0010, f03=0x0008}
0x000000…000ca0 DirEnt {nam=»CCI «, typ=»LM«, f00=0x0000, f01=0x0000, f02=0x0070, f03=0x0000}
0x000000…000ca0 DirEnt {nam=»CSEG1 «, typ=»LM«, f00=0x0000, f01=0x0000, f02=0x0090, f03=0x0000}
0x000000…000ca0 DirEnt {nam=»CSEG2 «, typ=»LM«, f00=0x0000, f01=0x0000, f02=0x0098, f03=0x0000}
0x000000…000ca0 DirEnt {nam=»CSEG3 «, typ=»LM«, f00=0x0000, f01=0x0000, f02=0x00a8, f03=0x0000}
0x000000…000ca0 DirEnt {nam=»CSEG4 «, typ=»LM«, f00=0x0000, f01=0x0000, f02=0x00b8, f03=0x0000}
0x000000…000ca0 DirEnt {nam=»CSEG5 «, typ=»LM«, f00=0x0000, f01=0x0000, f02=0x00c0, f03=0x0000}
0x000000…000ca0 DirEnt {nam=»LED «, typ=»LM«, f00=0x0000, f01=0x0000, f02=0x00e0, f03=0x0000}
0x000000…000ca0 DirEnt {nam=»CSEG7 «, typ=»LM«, f00=0x0000, f01=0x0000, f02=0x00f0, f03=0x0000}
0x000000…000ca0 DirEnt {nam=»CSEG8 «, typ=»LM«, f00=0x0000, f01=0x0000, f02=0x00f8, f03=0x0000}
0x000000…000ca0 DirEnt {nam=»CSEG9 «, typ=»LM«, f00=0x0000, f01=0x0000, f02=0x0108, f03=0x0000}
0x000000…000ca0 DirEnt {nam=»CSEGA «, typ=»LM«, f00=0x0000, f01=0x0000, f02=0x0110, f03=0x0000}
0x000000…000ca0 DirEnt {nam=»CSEGB «, typ=»LM«, f00=0x0000, f01=0x0000, f02=0x0118, f03=0x0000}
0x000000…000ca0 DirEnt {nam=»CSEGC «, typ=»LM«, f00=0x0000, f01=0x0000, f02=0x0120, f03=0x0000}
0x000000…000ca0 DirEnt {nam=»CSEGD «, typ=»LM«, f00=0x0000, f01=0x0000, f02=0x0128, f03=0x0000}
0x000000…000ca0 DirEnt {nam=»CSEGE «, typ=»LM«, f00=0x0000, f01=0x0000, f02=0x0130, f03=0x0000}
0x000000…000ca0 DirEnt {nam=»PRDUMP«, typ=»LM«, f00=0x0000, f01=0x0000, f02=0x0158, f03=0x0000}
0x000000…000ca0 DirEnt {nam=»DMPGEN«, typ=»LM«, f00=0x0000, f01=0x0000, f02=0x0170, f03=0x0000}
0x000000…000ca0 DirEnt {nam=»XRF «, typ=»LM«, f00=0x0000, f01=0x0000, f02=0x0178, f03=0x0000}
0x000000…000ca0 DirEnt {nam=»DMPGEF«, typ=»LM«, f00=0x0000, f01=0x0000, f02=0x0180, f03=0x0000}
0x000000…000ca0 DirEnt {nam=»CPLGEN«, typ=»LM«, f00=0x0000, f01=0x0000, f02=0x0188, f03=0x0000}
0x000000…000ca0 DirEnt {nam=»SUP800«, typ=»LM«, f00=0x0000, f01=0x0000, f02=0x0190, f03=0x0000}
0x000000…000ca0 DirEnt {nam=»LKE «, typ=»LM«, f00=0x0000, f01=0x0000, f02=0x01d8, f03=0x0000}
0x000000…000ca0 DirEnt {nam=»EDIT «, typ=»LM«, f00=0x0000, f01=0x0000, f02=0x01f0, f03=0x0000}
0x000000…000ca0 DirEnt {nam=»M:PROC«, typ=»UF«, f00=0x0000, f01=0x0000, f02=0x02e0, f03=0x0000}
0x000000…000ca0 DirEnt {nam=»SUM «, typ=»LM«, f00=0x0000, f01=0x0000, f02=0x02f0, f03=0x0000}
0x000000…000ca0 DirEnt {nam=»RUM «, typ=»LM«, f00=0x0000, f01=0x0000, f02=0x0300, f03=0x0000}
0x000000…000ca0 DirEnt {nam=»DUMPA «, typ=»LM«, f00=0x0000, f01=0x0000, f02=0x0318, f03=0x0000}
0x000000…000ca0 DirEnt {nam=»OBX «, typ=»LM«, f00=0x0000, f01=0x0000, f02=0x0340, f03=0x0000}
0x000000…000ca0 DirEnt {nam=»PDISC «, typ=»LM«, f00=0x0000, f01=0x0000, f02=0x03a0, f03=0x0000}
0x000000…000ca0 DirEnt {nam=»TOSSUT«, typ=»LM«, f00=0x0000, f01=0x0000, f02=0x03e0, f03=0x0000}
0x000000…000ca0 DirEnt {nam=»PCAS «, typ=»LM«, f00=0x0000, f01=0x0000, f02=0x0430, f03=0x0000}
0x000000…000ca0 DirEnt {nam=»PMPTS «, typ=»LM«, f00=0x0000, f01=0x0000, f02=0x0440, f03=0x0000}
0x000000…000ca0 DirEnt {nam=»SUP600«, typ=»LM«, f00=0x0000, f01=0x0000, f02=0x0480, f03=0x0000}
0x000000…000ca0 DirEnt {nam=»ASM «, typ=»LM«, f00=0x0000, f01=0x0000, f02=0x04d0, f03=0x0000}
0x000000…000ca0 DirEnt {nam=»TLK «, typ=»LM«, f00=0x0000, f01=0x0000, f02=0x04f0, f03=0x0000}
0x000000…000ca0 DirEnt {nam=»TRA «, typ=»LM«, f00=0x0000, f01=0x0000, f02=0x0558, f03=0x0000}
0x000000…000ca0 DirEnt {nam=»/OBJCT«, typ=»OB«, f00=0x0000, f01=0x0000, f02=0x05c0, f03=0x0000}
0x000000…000ca0 DirEnt {nam=»SYSGEN«, typ=»LM«, f00=0x0000, f01=0x0000, f02=0x06c0, f03=0x0000}
0x000000…000ca0 DirEnt {nam=»SUP60M«, typ=»LM«, f00=0x0000, f01=0x0000, f02=0x0720, f03=0x0000}
0x000000…000ca0 DirEnt {nam=»READFL«, typ=»LM«, f00=0x0000, f01=0x0000, f02=0x0760, f03=0x0000}
0x000000…000ca0 }
0x000ca0…000e34 (0, 1) Opaque[0x194]
0x000e34…000fc8 # DirEnt {nam=»SUP «, typ=»LM«, f00=0x019a, f01=0x0198, f02=0x0010, f03=0x0008}
0x000e34…000fc8 IdxSect {
0x000e34…000fc8 f00 = 0x0000 // 0xe34 @0x0
0x000e34…000fc8 f01 = 0x0018 // 0xe36 @0x2
0x000e34…000fc8 gno = [ // 0xe38 @0x4
0x000e34…000fc8 [0x00]: C0x0000.0x2.0
0x000e34…000fc8 [0x01]: C0x0000.0x3.0
0x000e34…000fc8 [0x02]: C0x0001.0x0.0
0x000e34…000fc8 [0x03]: C0x0001.0x1.0
0x000e34…000fc8 [0x04]: C0x0001.0x2.0
0x000e34…000fc8 [0x05]: C0x0001.0x3.0
0x000e34…000fc8 [0x06]: C0x0002.0x0.0
0x000e34…000fc8 [0x07]: C0x0002.0x1.0
0x000e34…000fc8 [0x08]: C0x0002.0x2.0
0x000e34…000fc8 [0x09]: C0x0002.0x3.0
0x000e34…000fc8 [0x0a]: C0x0003.0x0.0
0x000e34…000fc8 [0x0b]: C0x0003.0x1.0
0x000e34…000fc8 ]
0x000e34…000fc8 }
0x000fc8…00115c Dummy {f00=0x0000, f01=0x0190, f02=»i LoX # # #$ A~ X - _ H*f* + + ,0-T
0x00115c…0012f0 Dummy {f00=0x0000, f01=0x0190, f02=»
0x0012f0…001484 Dummy {f00=0x0000, f01=0x0190, f02=» i ( "D r !f9 : G p R $ $ %Z&>F E % 9 J DMC,MCGBHDB&WMC RYD RDD ASE0ABF PSF RSG & TY J- LP / TK M
0x001484…001618 Dummy {f00=0x0000, f01=0x0190, f02=» $ DK _ DK 8 _ P DK _ DK ( _ DK U ^ DK U 8DK ) U
0x001618…0017ac Dummy {f00=0x0000, f01=0x0190, f02=» ? ? ? ? ? ? ? Q~ & ? ? ? ? ? ? ? MX ? ? ? ? ? ? ? L 2b
0x0017ac…001940 Dummy {f00=0x0000, f01=0x0190, f02=» f l Z f Z f D Z
0x001940…001ad4 (0, 2) Dummy {f00=0x0000, f01=0x0190, f02=» Z V f R . Z | f ? ? ? ? ? ? ? fN ? ? ? ? ? ? ?
0x001ad4…001c68 Dummy {f00=0x0000, f01=0x0190, f02=» ? ? ? Y ? ? ? ? ? ? ? l Y j & L r 0 V |
0x001c68…001dfc Dummy {f00=0x0000, f01=0x0190, f02=» 6 6 6 6 6
0x001dfc…001f90 Dummy {f00=0x0000, f01=0x0190, f02=» 6 6
0x001f90…002124 Dummy {f00=0x0000, f01=0x0190, f02=» :
0x002124…0022b8 Dummy {f00=0x0000, f01=0x0190, f02=»
[…0x2…]
0x0025e0…002774 (0, 3) Dummy {f00=0x0001, f01=0x0190, f02=»
[…0x1…]
0x002908…002a9c Dummy {f00=0x0001, f01=0x0190, f02=» P
0x002a9c…002c30 Dummy {f00=0x0001, f01=0x0190, f02=»
[…0x1…]
0x002dc4…002f58 Dummy {f00=0x0001, f01=0x0190, f02=» *
0x002f58…0030ec Dummy {f00=0x0001, f01=0x0190, f02=»
[…0x2…]
0x003414…0035a8 Dummy {f00=0x0001, f01=0x0190, f02=» @
0x0035a8…00373c Dummy {f00=0x0001, f01=0x0190, f02=» A A R$ A A R A A R A @#" > > > > > > > > ? ? ? ? ? ? ? U ^ ( H ( P F" _ Q 4&? ?R _ 5 H _ ^ ;j >P @ * Q 9A D *P _ P A ( @ Q A ' A"T ( A A)F_ @ A
0x00373c…0038d0 Dummy {f00=0x0001, f01=0x0190, f02=» @ ? ? > "D P P Q P ! P @ $ H @ P W ( < JZ @ 9a:a R0 "Z Q Q" ?A <P @"N %J & _ ( _ _ 0 % JZ T @ W @ R (P& P (_ =a:a =A:A Z P Z _" TR @
0x0038d0…003a64 Dummy {f00=0x0001, f01=0x0190, f02=» @% L F" 0 JZ @ PR 0=a @ ?a RX @ ?a VN=A 0 ( P>P< , T T 1W 1W T )W )W ( , _ C ( _ 5 H A& A& A& A& A& A& A' A& ' ( D >a @ =a (@ D U@ x ',W U, @
0x003a64…003bf8 Dummy {f00=0x0001, f01=0x0190, f02=» B :a Y B R A& _ @& ' W4 @& A& ,Xp _ < @ A' A( A( A( A( A( A( ( =a @ >a V _ @ >a Y A' A' 4 T ' ( "^ 5 U P" @' @( @( @( @( @( @( ( @' x @& 8
0x003bf8…003d8c Dummy {f00=0x0001, f01=0x0190, f02=» @ !@ *V @ P @ X0 , *V A _< U` A)F @ , L ? ? , L L L L L L ? ? ? ? ? ? ? @" Px @ > > > > > > > ; [ [ [ [ [ [ > > [ [ A @" H" " ? A" >
0x003d8c…003f20 Dummy {f00=0x0001, f01=0x0190, f02=»? V :!9 V @ P R W ;A [ [ : _4 Pj T Pf V Q UF V Ud Q4P P 9A?A:AV R Z _ P*R R P ;A [ [ : V X"Z(_( L _P S
0x003f20…0040b4 (0, 5) Dummy {f00=0x0001, f01=0x0190, f02=»R _ ;A [ [ : # P| ' PL , ; R <a V 9A:A ; V ; V V W V < V < V H T P R ;H [ [ : _ T P ; R4 < S , _ _ W < R $ <A Q" T" U" :$ _ < Z& - W _ < <A9 R :a
0x0040b4…004248 Dummy {f00=0x0001, f01=0x0190, f02=» R Q ;H [ [ : " _J ? ? ? ? ? ? ? Q _ ^ ( H Z - W . W / X I I R P8 X RlP RrT Y Y W x Y Y $ 0T W W 6 X ? ? ? ? ? ? ? .^ 7 X #? P ? ? ? ? ? ? ? . 7 6 (@ 7P %
0x004248…0043dc Dummy {f00=0x0001, f01=0x0190, f02=»7 (@_~ 52X R Y _ X D $! TR ? ? ? ? ? ? ? /F 7 8 M ? ? ? ? ? ? ? /l 7 % > > > > > > > > ? ? ? ? ? ? ? / 7 P X 7^ 7v / 4 8 TRT X 5P 4 $ <A 52 Pl 52 X X X M M
0x0043dc…004570 Dummy {f00=0x0001, f01=0x0190, f02=»_ X X X U 5 X E _ X 4 Y 5 X 4 Y ! 1P, 0P +P Q Q W W Q Q R P Q 5 Y / ? ? ? ? ? ? ? 1 7 Qv 1& 4 " PF X Q< X P P ? ? ? ? ? ? ? 1X 7 (@ Y C^ X X X R
0x004570…004704 Dummy {f00=0x0001, f01=0x0190, f02=»1 7 > > > > > > > > 52R X X Q Y ( O` ? ? ? ? ? ? ? 2D 7 ? ? ? ? ? ? ? 2 7 (@ 7P ? ? ? ? ? ? ? 2z 7 2 4 X M X ! 40" P2 O` X ? ? ? ? ? ? ? 2 7 (@ C^ X 4Q W 9AY T Q P
0x004704…004898 Dummy {f00=0x0001, f01=0x0190, f02=» Qz 9AY Tn9ATj @3 D4 @3 $W 1 Y $ D ! P 2 Y 0 P :ET OFP OST Y Y X 5Z X M _d3 4 4 ABCDEFGHI JKLMNOPQR /STUVWXYZ 4 4$4*[.<(+^!$*);] ,%_>?" P X 2 ' Q X 4 X X R ( 5
0x004898…004a2c Dummy {f00=0x0001, f01=0x0190, f02=» A , DKP L X X L ! X L P L @ _ C C # ( _R _ _ _ _ _ X T 5b 4 X ! TH X X X T" $ :ET D OFT W OST X P % Y X R X 4 ! X Y T T Y Y
0x004a2c…004bc0 Dummy {f00=0x0001, f01=0x0190, f02=» X R 8 TYX WH H6 Y _8 X X: X R X ( _$ _* $ XtRX P Y _ A6 X X Y X Y _ $ P4R P6 X Q Y Y <dW Y W $ P R , _ X X*Y$ X X X6 Y Z(P A6 ZrP Y _8 _< _@ ! 4 $ X
0x004bc0…004d54 (0, 6) Dummy {f00=0x0001, f01=0x0190, f02=» > > > > > 7 V <a W X ' ?A q A82 > > > > > > > 80 , 0W 0T _ l P$ X X ] X * A8aJ " * - X ( 7P = V X X C^ X 4 L ! L % T< L P4 M ^ L X 4 _ ? ? ? ?
0x004d54…004ee8 Dummy {f00=0x0001, f01=0x0190, f02=»9J: 9l9l: : 9~9~9~9~: 9b9t < W* = W" < W ?: L :AR| M W M M 4 L T M M L PH=GV L L 4 9 M 2 ;6 M L 9G L 4 L M L M M L 4 : W M " A< L P L 9JR@ P P T A, 5 U P T Q P P
0x004ee8…00507c Dummy {f00=0x0001, f01=0x0190, f02=» L ' 7P P p Y "(@ P P $ M : P ( M P Q P P P W P T Q (@ L " A<(@ H H T A, E $ I 4P _ 5 % E (@ L 2 ( P _ 4 ) % ] M (@ L 2 A$ T!fR Q @!f] A,>
0x00507c…005210 Dummy {f00=0x0001, f01=0x0190, f02=» T V P T"W L >F A$ L & A$ < M 4 ; M L M L " P M < : M L M A< L ! PT L M L M L & P L E E M < : M M L L % T D V L ! P L ! XfWn L M L M M =0 : L :c:A L D
0x005210…0053a4 Dummy {f00=0x0001, f01=0x0190, f02=» D Q = M 2 < L L $:BV W $:AV M " M A L L $ M 0 D L U M " V L R L M ( M * M , L X L U M W > M 2 < L D L L 0U L 0 L (U L ( L L R $ 9 _ R $ 9 M , L M M
0x0053a4…005538 Dummy {f00=0x0001, f01=0x0190, f02=» L L , U A< L A$ L U ?X M 2 < L M $ L M & L L I P0% P L X =h P W P L X T M . L 9 M L A$ L L . Q L L L R 0 % _ M M L . P M . ? M 2 < L U @, M 2 < L
0x005538…0056cc Dummy {f00=0x0001, f01=0x0190, f02=»P0W" M L A$ @ M ( L U @ M 2 < L L ( E L % E L E L E M A M 2 < L P$ A< M 2 ;r M "W F" = JZW ( L 4 5 L L " C m M ^ U L ( L L ? ? ? ? ? ? ? A A H 4 R W 7
0x0056cc…005860 Dummy {f00=0x0001, f01=0x0190, f02=» d _ AB0 B AH 5 T6 @H P H BD BH BL BP BT @H AH AB0 ( 5 4 X _8 B P W M: B ( "^ B, B . L ER B H L L . Q L L L R 0 % _ M M L . P M . ? M 2 5 B J I B P
0x005860…0059f4 (0, 7) Dummy {f00=0x0002, f01=0x0190, f02=»D X W* 8 AD T AD D (@( 4 4 : 0 :R - Y PU,DNXX,STAT,RY C ;r 5 J ? B C 1P C Y _ @B RDP A P 8 FL B X X ! R V Y AD 8 TKP Y LPP MTP Y
0x0059f4…005b88 Dummy {f00=0x0002, f01=0x0190, f02=»B. 4 X X ? ? ? ? ? ? ? E. 7 _ 5 J B @ Q P P T Z B W P B $>H $ NOT W0 J @ ! $ T P Y B C C R ] B, 0 % E M 0AB CD ADDR @ 9a:a;a R R AF F AH
0x005b88…005d1c Dummy {f00=0x0002, f01=0x0190, f02=»U AE E il E ( "^ F = JZ @ A @ !? $> A"T H _* 5 @H B @ A B, 0 JZ AG AG G ( "^ @ A ( C 5 @ 4 B P J _ 5 B, 5 J AG J R: P J R( G ( "^ G ^ @ T G (
0x005d1c…005eb0 Dummy {f00=0x0002, f01=0x0190, f02=»PP , X QD il Hl Y , il Hl Z H @H P : HV ` : B I il _* AHB H> ( "^ : ; ;<A ' R `R Q QB _ QB <a : : : - A ~(@ A" AH A A A A AH AH AH a H @ ? ? > "D P :b
0x005eb0…006044 Dummy {f00=0x0002, f01=0x0190, f02=» @ @ @ @ Y Y Y Y " A "; V W # @ A AH @ ? ? > Q @ ? ? ? ? ? ? ? I F" @ P <a:a B :A : P6 $ R, Z R R Q $ :D P $ R ^& : B P R( AJH AJJ AJL AJN AJP AJR AJT
0x006044…0061d8 Dummy {f00=0x0002, f01=0x0190, f02=» ? JX ( < JZ B @ 9a:a R @ @J @"N %J '~ %J :EOS:EOV _* AHB H> ( AK< K> !? QM P ^ 52 V X 58 58 X AK AK0 AK2 KR @K@T AK@ !L PM !L L Q AK2P !L _ MF !L P Y !L !L AK2X _
0x0061d8…00636c Dummy {f00=0x0002, f01=0x0190, f02=»9C^ W| !L _ !L Wn !L _ K8 Y Y _ X r s W4 X @ _ W$ AW @W $W %W W !W W X 9d)` AKB AK0A T 7P 9CV * 9AV 9AV X 1P * 9EV )@ X Q6{ X Y Q& X $ :ET D OSP OVT * W * W Y AK0 Y 4 @K0J P Mj
0x00636c…006500 Dummy {f00=0x0002, f01=0x0190, f02=» :EOS:EOV ( < "$&1368 AM M !? QM P ^ 52 AN X AQ X AQ Q R x % =A Y X Y4 Z8 AM $ $ T D i M !Q. X "! T( !Q^ P Y " @M !? 1P P !Qb Y !P HN N N N N N N Q N Q(P P Q Q Q P P AQ !QV " P* AN
0x006500…006694 (0, 8) Dummy {f00=0x0002, f01=0x0190, f02=» D P X &Q Y W Y 4 X $;H D :ET $;H D OSP OVT W W !ON X ! P X 1P W @ X U W W W !ON X ! . @Wp !ON X ! Tb AW^ X P& T "P R Q W 8T Y W, W< O P6 4 X Q @Q Y _ X R Q @
0x006694…006828 Dummy {f00=0x0002, f01=0x0190, f02=» AP X 9c T DM EM 4 X B X :c HM % P^ !Qn_N !Qr !P _X !Qv_^ !Qf Y " !P _p M _ X # ;dC Y AM AM 7P AQ _ _ _( _, _0 _4 _8 _< _@ _D _H @M @M J P* P8 AQ X Q I -W ,A W @M ;I U @M M 4A @
0x006828…0069bc Dummy {f00=0x0002, f01=0x0190, f02=» C _: DL P H C _ P X( DD _Z :EOS :EOF 52 5J 5 @ !? ?R _ R 4 ' !? 0X A "! X6 @ Q P ^L_ P XP P R :AV L D I I "R (@(@ ^ :j >Z ^ @ P _ A $ M (@ M M M B
0x0069bc…006b50 Dummy {f00=0x0002, f01=0x0190, f02=» X M W M W y Y Y Y # C B 58 B 58 $? U P R Rx P R U8 RxP P| P Pv P $P &PN "P< /P :P ;P <P =P >P ?P 1 Rx 8 RxWv T W RrW T W Rl W W T W Wx
0x006b50…006ce4 Dummy {f00=0x0002, f01=0x0190, f02=» $ X _0 8 TCX< TKXB MTXH DYXN _Z OS :EOF 52 5J 5 @ ( 0 $ , V X Y X W B Y % W L Wb M B P 58 X P P P P 52 B P P 4 ^ :A HU W W M B M
0x006ce4…006e78 Dummy {f00=0x0002, f01=0x0190, f02=» L M UxR> U Q8 U|R M M M M W M M M M y W _ @U P M WR AU L " * AW/- AWG L " X ! Y M T(% T$ ! R L W L A T M AUZ AUX X 7P B M W~ i Z| M _* Up Y B AUf X P PD P@
0x006e78…00700c Dummy {f00=0x0002, f01=0x0190, f02=» Y V AUd AUb AU` X P< P P4 P M @Uf M M !Z !X P @ W M @Uf M M !Z !X X X ? ? ? ? ? ? ? 7 X M AUZ AUX AUh X 7P AU^ ! T @Ub AU^ @Ud Y @U`U AUf X& M X 4 X ?
0x00700c…0071a0 Dummy {f00=0x0002, f01=0x0190, f02=» Y ? ? ? ? ? ? ? 7 X M M W Y ? ? ? ? ? ? ? 7 X 7P =b%0 X $ L <B<j P L 4 $ _ L =AV L <AR A"R<B M 4 X Z X % Z L % 4 L ? 4 W M AU 8 4 M @Uh 7P
0x0071a0…007334 (0, 9) Dummy {f00=0x0002, f01=0x0190, f02=» 8P F" X % !X %`X P % X. R" X>W % P T % XT <A P X^<a P @ p @ $ " P $^ F" " A] A] A] A] A] A] A] ] > > > > > > > a] @] E E E E E E ] >
0x007334…0074c8 Dummy {f00=0x0002, f01=0x0190, f02=» " H Wx " Wn & P >b& >AW >a& @T " X X T$W. " P X ` `T 8 P X 8 T" T" T "<A U" U" T" U" T" T" ? ? U" : V: T" T" T" T" T" T" " " " " " " " T" >" H]
0x0074c8…00765c Dummy {f00=0x0002, f01=0x0190, f02=» 8P F" X % !X %`X P % X. R X>W % P T % XT <A P X^<a P @ p @ $ " P $^ F" " A A A A A A A > > > > > > > a @ E E E E E E >
0x00765c…0077f0 Dummy {f00=0x0002, f01=0x0190, f02=» " H Wx " Wn & P >b& _ X M M Y X a a B Y ! a L a6 X P P P P 52 B 58 @_ P M L 7P A_ ^ !` B !` X X ! P L y !aXW !a~ L x P !a M Q W ! P M L ZZ a6 B Y
0x0077f0…007984 Dummy {f00=0x0002, f01=0x0190, f02=» Q a6 4 ! 9A " ! M 4 P P L P P ! _ 4 B aF i ` L :C* WL WH:a L ! 9A r X L :B* W":a L ! 9A r X L :B L !? B M A^ L 7P ^ M Y B A^ ^ Y X P P P P P P8
0x007984…007b18 Dummy {f00=0x0002, f01=0x0190, f02=» !aXW A_ !f !aX" P !aT M L ZL M A^ V !f !f ` B P2 A^ B T$ B S @] T !f @^H A] ! P W ` B <b :b ^ A^ A^ A^ R>P A^ A^ !d` A^ W& !d` A^ R !d` W !d` A^ P A^ V !d` !d`
0x007b18…007cac Dummy {f00=0x0002, f01=0x0190, f02=» !d` A^ Z X Td @] ! P W @^ P Q Y @^ @^ A^ A^ !d` @] ! P W Y A^ & B Y ` @^ :e L Pv !a M Q !aJ !f @] ! P L PP !a~" T" L @^ P<W !a~" T L @_ P$ M L Q !aT_Z M Q ` T X
0x007cac…007e40 Dummy {f00=0x0002, f01=0x0190, f02=» " T A^ W A^ T P A^ Y T U 4 !f @] ! P !aXW !aX" P M L Z2 ` 4 !f @] ! P !a~" T W( !a~" P M L 6 ` @_ L 4 @^ L " P $ M 4 @^ ^ ( = Y 4 @^ ^ < ) Y 4 X ! J $ <b
0x007e40…007fd4 (0, 10) Dummy {f00=0x0002, f01=0x0190, f02=» a6 4 !aT !a M Q A^ M !a~ 4 @^8 TOTD @^@ 1T: B A^H @] ! P !aXW !aX" P M L ZJ ` 4 @ _ X X X X $ Pgjgrg hzh % P Y Y Y >% X P Y _" P" P& R| ^T Y _D _T X _ X
0x007fd4…008168 Dummy {f00=0x0002, f01=0x0190, f02=» P Q X Q % _" Y Y Y 4 % X P Y $ W Y =D %_ X P V % P Y X XT Q _ g Q g 0DKER UNIT CYLD STAT h i 4 h i W2 h i& X W$ h i2 W h ( X =
0x008168…0082fc Dummy {f00=0x0002, f01=0x0190, f02=» M M Y$ #? @ P R P T T T Y" P T _ X D D E E ] @ E @ jV ? ? > ? ? ? ? ? ? ? mv C ( "^ @m k U T " P " P @m W C "& # ( "^ A p @
0x0082fc…008490 Dummy {f00=0x0002, f01=0x0190, f02=» [ [ [ @ L ! P Y _ @ M ^ U > > > > > > >WZ A p ^ T " T0 ! P W SY SD AD _ ! P _, J _2 mv # C ( "^ P m m m m CCT I T P Q _, A
0x008490…008624 Dummy {f00=0x0002, f01=0x0190, f02=»( "^ B P @ !? M @m P M L R ! _ PP I H P _ A i A A A @ ~ mN A ~ @mV A ~ @ oL( A~ A A "^ H (@_0 $ ( , 0 4 8 < m T " P " P @ W C "& # ( "^ A p @
0x008624…0087b8 Dummy {f00=0x0002, f01=0x0190, f02=» [ [ [ @ L ! P Y _ @ M ^ U > > > > > > >W A p ^ T " T ! P W SY SD AD _ ! P _, J _2 # C ( "^ P CCT I T DOS - PTS
0x0087b8…00894c Dummy {f00=0x0002, f01=0x0190, f02=» y : f P C W $0 P C w : C "!@P ") # B C B % C :d d d evfbd fZk i i j m oHoHe e e e f&d e e rBw@v v v w@vbf f~f f ~ W V 7 @? ! P ~ P W d e 9c Dd4 gN f Q dBW j :aW
0x00894c…008ae0 Dummy {f00=0x0002, f01=0x0190, f02=»T V P V ~ W V _ 8^n Dd` 2 ! 9B V T SZW V P D $ V 6 V % V E @? ' T 2 % 7_ 2 # LR gN 2" &] Y $! 6P Q $ T 9B e _ _ 6 @? " T 7 $ V P ~ W _ d
0x008ae0…008c74 (0, 11) Dummy {f00=0x0003, f01=0x0190, f02=»@ M ^ U > > > > > > >W A p ^ T " T ! P W SY SD AD _ ! P _, J _2 # C ( "^ P CCT I T DOS - PTS 6000 REL. 10.0 sb
0x008c74…008e08 Dummy {f00=0x0003, f01=0x0012, f02=» # # 'x(p(x) ) )
0x008e08…008f9c Dummy {f00=0x0003, f01=0x0190, f02=» P IDENT INIMON < P* 781128 - B.VINK - PC1964 - SET BIT SY IN DCTHD $ L P* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * d P* . P* P860 DISK OPERATING SYSTEM P* P* B P*
0x008f9c…009130 Dummy {f00=0x0003, f01=0x0190, f02=»ING TO THE ^ P* 6 P* SYSTEM DISK ADDRESS P* X L P* SCANNING OF SYSTEM DIRECTORY , FIND CCI DISK ADDRESS b P* P* L P* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
0x009130…0092c4 Dummy {f00=0x0003, f01=0x0190, f02=» P EXTRN M:LDNX P EXTRN CVTSTB $ P EXTRN CPT D P EXTRN CVTMSZ b P EXTRN CVTBKA P EXTRN PCT61 P EXTRN T:DCT P EXTRN CVTSBA P
0x0092c4…009458 Dummy {f00=0x0003, f01=0x0190, f02=»ST A2,0 n P* P* 8 P* SUPERVISOR COMMUNICATION VECTOR EQUIVALENCE $ P* ` P* j P* t P* ~ P* P* 8 PCVEADR EQU /82 ADDR OF SUPERVISOR CVT P* . PCVEMSZ EQU 0 MEMORY S
0x009458…0095ec Dummy {f00=0x0003, f01=0x0190, f02=»CVESBA+2 BIGGEST BUFFER ADDR ~ 2 PCVEBKA EQU CVEBBA+2 BACKGROUND ADDR ( : PCVEDSP EQU CVEBKA+2 START ADDR OF DISPATCHER ^ 8 PCVEPLS EQU CVEDSP+2 BASIC PULSE FOR RTC 2 PCVEFCT EQU CVEDSP+6 FILE CODE TABLE
0x0095ec…009780 Dummy {f00=0x0003, f01=0x018e, f02=»CVEDCT+2 JOB PARAMETER TABLE ~ . PCVEBPL EQU CVEJPT+2 BUFFER POOL ( @ PCVELFT EQU CVEBPL+2 LOGICAL FILE DESCRIPTION TABLE Z < PCVEYAR EQU CVELFT+2 CURRENT YEAR, 2 ASCIL CHAR < PCVEMON EQU CVEYAR+2 CURRENT MONT
0x009780…009914 (0, 12) Dummy {f00=0x0003, f01=0x0190, f02=» ` @H ` " B !( 9 ! +b L * b dX B ,i p$ A j z dH&g S xzx j `@ ` `0 H q@% H @R z@u ` `@ : @ `H ja @ `H @ z@U x @ [ ` x d @8 U ! ` ` @Z @ @ ` @ @P ` `p ( ( ` @ ` `X ` @ X @ `
0x009914…009aa8 Dummy {f00=0x0003, f01=0x0190, f02=» @l p JGz S 3 f ` w @ 3 H! S d j Z S Q @ S H! 3 d 6 | @Bh ' 4 _{ N4`w l ` `PZ 4 P0 2 t0 ` @ c@ % @ @ bH @ @ D@ F ( C0 @ @ ` ` B @ ` d `[ `h C 4 4 @ ` @ { W E @ `P` E ` `X @Q ` E
0x009aa8…009c3c Dummy {f00=0x0003, f01=0x018e, f02=»CIEVED 7 2 P********************************************* 8 PADI120 EQU * 8 D P LDK A1,0 NEGATIVE RESPONSE 8 X P ST A1,DWTA4,A7 8 | P ABL INIDLE 8 P EJECT 8 0 P******************************************* 8 P* TCA BUSY 8 0 P******
0x009c3c…009dd0 Dummy {f00=0x0003, f01=0x0190, f02=» 8 l PADI900 EQU * 9 P LDR A2,A6 SAVE A6 9 P LDR A6,A7 9 6 P CF A15,TENDIO 9 H P LDR A6,A2 RESTORE A6 9 ^ P ABL LDISP GO TO DISPATCHER 9 | P EJECT 9 > P********************************************************** 9 P* 9 , P* DELAY RO
0x009dd0…009f64 Dummy {f00=0x0003, f01=0x018e, f02=»=2 NEGATIVE RESPONSE 9 P* : > P********************************************************** : ( PDELAYL LD* A2,4,A5 : j " P CF A5,ILABEL SET INPUT LABEL : P LDK A2,2 : P ADS A2,4,A5 : PDELAY EQU * : P LDK A2,0 : * P ST A2,READY,A6 CL
0x009f64…00a0f8 Dummy {f00=0x0003, f01=0x0190, f02=» : p P LDK A2,SYN ; P CF A5,WRITE ; P RB DEL100 ; 0 PDEL110 EQU * ; B P LDR A4,A2 ; V PDEL120 ADK A5,4 SKIP STACK ; h P ADK A4,0 SET CR ; P ABR* A5 ; P EJECT ; P* ; P* ; P* HALT INPUT SYLCU ; P* ; P* ; PHALTIN
0x00a0f8…00a28c Dummy {f00=0x0003, f01=0x0190, f02=» ; n P RTN A5 < P* < P* < " PHIDLE CF A5,HALTIN < , PINIDLE CF A5,READ < F P RB INIDLE < ` P EJECT < r P* < P* < P* DISCONNECT MODEMS < P* < P* < ( PDISCON LDR* A2,A6 GET DEVICE ADDRESS < . P ADKL A2,CIOH COMPUTE CI
0x00a28c…00a420 Dummy {f00=0x0003, f01=0x0190, f02=» < r PDISC20 HLT HALT INPUT SYLCU = P RTN A5 = , P* = < P* = F P* START OUTPUT SYLCU = P P* = l P* = v PSTOUT EQU * = " P LDR* A2,A6 GET DEVICE ADDRESS = P ADKL A2,CIOST = P ST A2,STO100 = P LDK A2,/60 = P INH = " PST
0x00a420…00a5b4 (0, 13) Opaque[0x194]
0x00a5b4…00a748 # DirEnt {nam=»CCI «, typ=»LM«, f00=0x0000, f01=0x0000, f02=0x0070, f03=0x0000}
0x00a5b4…00a748 IdxSect {
0x00a5b4…00a748 f00 = 0x0003 // 0xa5b4 @0x0
0x00a5b4…00a748 f01 = 0x0008 // 0xa5b6 @0x2
0x00a5b4…00a748 gno = [ // 0xa5b8 @0x4
0x00a5b4…00a748 [0x00]: C0x0003.0x2.0
0x00a5b4…00a748 [0x01]: C0x0003.0x3.0
0x00a5b4…00a748 [0x02]: C0x0004.0x0.0
0x00a5b4…00a748 [0x03]: C0x0004.0x1.0
0x00a5b4…00a748 ]
0x00a5b4…00a748 }
0x00a748…00a8dc Dummy {f00=0x0003, f01=0x0190, f02=» ' d H v z X $ v ` . R ^ D $ * < h L p DCU DLU LIC PRC RSU ` RDS RDO PRT LST RDA PRD LSD PCH POB PLD DUF INC
0x00a8dc…00aa70 Dummy {f00=0x0003, f01=0x0190, f02=» TCD p FCL p BCL p FRT p FOR p LKE p LED DEB p EDT SVD ` SVU REW ULD FFS FBS RFS RBS WEF WES WEV SDM HSF p JOB END MES PSE
0x00aa70…00ac04 Dummy {f00=0x0003, f01=0x0190, f02=»L P ( PRV LSV TRA p * TLK p , . XRF P 0 2 BUG p TLT p 4 . LKF p 6 N P 9B 9A R D P < N P N 9 V O O N 9CV < N 9 R N 9AV < N 9 V O W $
0x00ac04…00ad98 Dummy {f00=0x0003, f01=0x0190, f02=»_t r R W W W W O & < f O , P^ PZ P R T TYT O , P T O , P4 P0 T O T O : W 0 V T _^ @ D H ;DRR , PH I H P6 H P0 @ " P _ D 4 #
0x00ad98…00af2c Dummy {f00=0x0003, f01=0x0190, f02=» C R W _ _ _ T 4 & C , R WL_ _ _ B , ,9c f[ Y W YD l R W _ _ _ W V V W V N C R W _ _ _ V W W V V * 4T _ R
0x00af2c…00b0c0 Dummy {f00=0x0003, f01=0x0190, f02=» W < B # , P P| Q& P R 9AR Wl B V T C F # C P W W P W ( B R29 R<9 R49 R&9 R0' Q B H R&9AR 9AR W B < B W H_ _ _ _ B P R&? R ? R ? R ? R ? R B W B < B
0x00b0c0…00b254 (0, 14) Dummy {f00=0x0003, f01=0x0190, f02=» T U U _& W W W V C B , X PD P QL QN T 9 R29 RJ T C H R W W W W @ K V V V V P R W W ( R _$W W W _4 :W W W ( V R S: :WxWv_ T TY * < (
0x00b254…00b3e8 Dummy {f00=0x0003, f01=0x0190, f02=» , P P P R W W A n W W W W ~ W2 W W V V 5 W _* V P W V | W | V P V /P 0R$ :RTW V W ~ V W ~ V _" V V 8H V ! T 8 _ 4 WHW V V ! T 8 _ R
0x00b3e8…00b57c Dummy {f00=0x0003, f01=0x0190, f02=» v | W | P ,P :P V | $:H $ F0Z F9U FAZ& FFY, A n p p v | !AAZ !ZZY v | W | ! P !,,P @ n Q 5 A n _( @ n X ! P _$W W ~ : _ W V | W | : 8D R 0 P P 9H _ W _(
0x00b57c…00b710 Dummy {f00=0x0003, f01=0x0190, f02=» L T P*_ 0R" 9Q 0 P 9C L _( W 0 R _ 8H 0 dR _ 8H 0 d R _ 8H : : W j H # W | H W R WNW _*_, B B P B ) Y N 9 V" j j (XB * R *P _ V : N :IV :B
0x00b710…00b8a4 Dummy {f00=0x0003, f01=0x0190, f02=» PH P8=A 1 * * 1 1 ZHW _4 N ! QPP: O V ~ P8 h H JW*W W W W d W W W W W _ W W R W W W W V ~ : " ( . 4 B L X b h
0x00b8a4…00ba38 Dummy {f00=0x0003, f01=0x0190, f02=» DISK NOT OPERATIONAL ALREADY CATALOGED OVERFLOW I/O TOO MANY COMMAND ALLOWED DEVICE NAME MISSING 2ND ADDRESS UNKNOWN FCT LFT ASSIGNED EQU ASSIGN CORE INPUT OUTPUT /L EMPTY PROGRAM CLOSED DIRECTORY SYSTEM SESSION
0x00ba38…00bbcc Dummy {f00=0x0003, f01=0x0190, f02=» % P P P0 2 U N ! T W h O h H rWz N % T U O 0 W i _0 ]$ Z & W & < U Z & r W R W W W W X~ X Q P N 4
0x00bbcc…00bd60 Dummy {f00=0x0003, f01=0x0190, f02=» V : DATE HX /HX /HX TIME HXH-HXM-HXS- A $ )T P _ @ W = W | < , P V 8 W W V | W R W W W W W H R *P N R *T < , T W | < V 8 W R WLW WHWFWD
0x00bd60…00bef4 (0, 15) Dummy {f00=0x0004, f01=0x0190, f02=» T V _( P # Q V W V : , T _. F Z _j W W W F W P ) F W P W F 4 V # @ R W _ _ _ W G W 6 W V F T W V P v Pd P &Qp T
0x00bef4…00c088 Dummy {f00=0x0004, f01=0x0190, f02=» W ]<_ V T8 V 4 W W V W W V D W V W V : V W _ V X _ W , P* 09AR R P F F G W W W V : L P< R R" T T T G :W @ 2T
0x00c088…00c21c Dummy {f00=0x0004, f01=0x0190, f02=» ?L 0 P X L =CR =AR =CRH WB =CR: W4 =l P* W$ ' ' ( J G G G G G G G G G L ' P< L # 4 C C C d R W:_ _ _ B RW L # 4
0x00c21c…00c3b0 Dummy {f00=0x0004, f01=0x0190, f02=» G G G G G G G G G G G W Q Z P F G V : P G G "P P _ < # @ 2 P P _ : A B P @ B R _ : X _$ X _, 2
0x00c3b0…00c544 Dummy {f00=0x0004, f01=0x0190, f02=» W ; W Z " [ Z : ! @ Z 9c Z P L U _< :` % _H % _P XV _Z W j 2 V , 5 V 9D9k D f W( W W W W W W W W W 2 W V # T , 0V U V j : V NO @ X
0x00c544…00c6d8 Dummy {f00=0x0004, f01=0x0190, f02=» t @ U . M - t F G U W D V 4 F V # f = Z V R W W W W ' C R WdW W W V SCP" OBP LMP UFP , K V
0x00c6d8…00c86c Dummy {f00=0x0004, f01=0x0190, f02=» V , W @ _ V Q # T $ : V V , T W W W V : 0 Q Q X*Q R U V_> ._D @ , H Q R W H T T .W H T I I Y2 X_ , P P , P P C U T
0x00c86c…00ca00 Dummy {f00=0x0004, f01=0x0190, f02=» F 4 T C R _ _ _ _ B , @ T * ,9cP f Y _ :` W O QH ?A R $T$ $P, W P ?a W ( W ;h P V : 8 V : OPTION NOT AVAILABLE CSEG1 LMCSEG2 LMCSEG3 LMCSEG4 LMCSEG5 LMLED LMCSEG
0x00ca00…00cb94 (0, 16) Dummy {f00=0x0004, f01=0x0190, f02=»CORE OVERFLOW ** @ !6 O N W P ( - Y j O P: 4 9 Y <=h R O & = Y N P N P : N P 9B 9A R H P #v W f T P : $T !V R HW
0x00cb94…00cd28 Dummy {f00=0x0004, f01=0x0190, f02=»W W W W j ! R JW W W W B PL ( XB " R _L YR U " V l8h Xf "$ R _p ;Yv < $ $~ "R R HW W W W j "j R JW W W W B P YD b P :h " R _`W @ X 8<h 8# LP 8P W T X
0x00cd28…00cebc Dummy {f00=0x0004, f01=0x0190, f02=» #J R _x V 0 V PW !NN O : ( $ 8 5 Y @ P N N V O U $:h U # U " N N V < O U N N V < O U N N V U ( $& R W W W W W 1 5 C $D R W W
0x00cebc…00d050 Dummy {f00=0x0004, f01=0x0190, f02=»0MS- W @ 4 4 " Y%X %X 8 QR F%B _& Q$ & 4 " 9 Z _P &L 8 & 8 V :%n% % % % % & & & & PROG ABORTED AT OVERFLOW IN SIMULATION ROUTINE SAVE AREA NOT WIRED INSTRUCTION MEMORY PROTECT
0x00d050…00d1e4 Dummy {f00=0x0004, f01=0x0190, f02=»A4 =HEXA A5 =HEXA A6 =HEXA A7 =HEXA A8 =HEXA A9 =HEXA A10=HEXA A11=HEXA A12=HEXA A13=HEXA A14=HEXA BUFFER ALLOCATION OVERFLOW DISK OVERFLOW DISK QUEUE OVERFLOW MEMORY OVERFLOW DURING LOADING PHASE R W W W W W 1 5 C R W W
0x00d1e4…00d378 Dummy {f00=0x0004, f01=0x0190, f02=» C:HXBI,A12 CONVERT DEVICE ADDRESS R PINCVTG EQU * S , P RB INCVT9 S H 0 P LDR A3,A1 DEVICE ADDRESS S h $ P LD A2,W:PARV,A13 S @ P LDKL A1,/1E0 ASSIGN TYPE U ; FILE CODE /E0 S 8 P
0x00d378…00d50c Dummy {f00=0x0004, f01=0x0190, f02=»SB7,A13 ASSIGN STATUS S x P RB(4) INCVT9 T , P* ASSIGNEMENT HAS BEEN PROCESSED T @ PINCVTH EQU * T p H P LDK A1,/50 BATCH PROCESSING,SET BIT 13 IN JPTMOD T P RF INCVTD T P* T PINCVTC
0x00d50c…00d6a0 Dummy {f00=0x0004, f01=0x0190, f02=» EQU * *PTS T L P LDK A1,0 RESPONSE = N, NO BATCH PROCESSING DESIRED U P* U d 4 PINCVTD EQU * SET BIT IN JPTMOD U n $ P ORS A1,JPTMOD,A11 U P* U P RTN A14 U P* U P
0x00d6a0…00d834 (0, 17) Opaque[0x194]
0x00d834…00d9c8 # DirEnt {nam=»CSEG1 «, typ=»LM«, f00=0x0000, f01=0x0000, f02=0x0090, f03=0x0000}
0x00d834…00d9c8 IdxSect {
0x00d834…00d9c8 f00 = 0x0004 // 0xd834 @0x0
0x00d834…00d9c8 f01 = 0x0002 // 0xd836 @0x2
0x00d834…00d9c8 gno = [ // 0xd838 @0x4
0x00d834…00d9c8 [0x00]: C0x0004.0x2.0
0x00d834…00d9c8 ]
0x00d834…00d9c8 }
0x00d9c8…00db5c Dummy {f00=0x0004, f01=0x0190, f02=» : W N j , R W W W W W V ~ W W J R W W W W W V V P T T n r W R W W W W ' W V T V P V P 4 # R Wt_ _ _ B T V ,P6R 9 :AW H - 9a:K8G
0x00db5c…00dcf0 Dummy {f00=0x0004, f01=0x0190, f02=» V # V ' V R W _ _ _ V C R W _ _ _ V V < = V ] PD V R* G R W^_ _ _ C B P W = G 0 R W,_ _ _ V : W. W* W& W" W W W W W $W (W ,W 0 L 8
0x00dcf0…00de84 Dummy {f00=0x0004, f01=0x0190, f02=»V R W W W W W V A V P T T , A @ R W W W W , P P F ' 4 + ' R WtW W W V T Tj V N LMT` V HPZ PV K R WBW W W V 6;a 8 0 PT 0X W$ W W W W
0x00de84…00e018 Dummy {f00=0x0004, f01=0x0190, f02=» _fW W W$ | R _xW W W G K _. P 8 V : C ! % + TOO BIG N W R W^W WZWX W" | W R W W W W 8 V V P T T 6 R R W W W W W F P
0x00e018…00e1ac Dummy {f00=0x0004, f01=0x0190, f02=» Y P W R 4W6 C Y^W _" W* W& W" W W W W $W ~ (W ,W 0 P J 8 V : + IN CATALOG B C R _nW W W 8I9A:l:A H B V % R _ W W W V : N j R W(W&
0x00e1ac…00e340 Dummy {f00=0x0004, f01=0x0190, f02=» Z` T PD # 4 C C R W W W W B D K V _ DL = ON = F ! " / = _ DD = F D ! " = : F P F F = J K , R W W W W k : , P T 9CQ 9FR T ! T~
0x00e340…00e4d4 (0, 18) Opaque[0x194]
0x00e4d4…00e668 # DirEnt {nam=»CSEG2 «, typ=»LM«, f00=0x0000, f01=0x0000, f02=0x0098, f03=0x0000}
0x00e4d4…00e668 IdxSect {
0x00e4d4…00e668 f00 = 0x0004 // 0xe4d4 @0x0
0x00e4d4…00e668 f01 = 0x0004 // 0xe4d6 @0x2
0x00e4d4…00e668 gno = [ // 0xe4d8 @0x4
0x00e4d4…00e668 [0x00]: C0x0004.0x3.0
0x00e4d4…00e668 [0x01]: C0x0005.0x0.0
0x00e4d4…00e668 ]
0x00e4d4…00e668 }
0x00e668…00e7fc Dummy {f00=0x0004, f01=0x0190, f02=» d d l ^ 8 > $ R W*W(W&W P X 8 : V U R V W" _& _* W R W W W W W, V U Q W , P| Px R WrWpWnWl V Q R , P T 9IV OBW UFW SC V N 0 V P.
0x00e7fc…00e990 Dummy {f00=0x0004, f01=0x0190, f02=»WPW W P @P @T ` 2( _> F K V U 5 W R WrWpW Wl_v V R P V X V Q W R FWF V ] R W4 V P R W : V YPZ( V Y , R FW : W V W 2 P L 8 : EOV ON INPUT FILE,MOUNT NEW
0x00e990…00eb24 Dummy {f00=0x0004, f01=0x0190, f02=» 8 R @ : R W W W W W V R ' Q ' W 2 R WtWrWpW V W W V R^ ' QX V RR W b R WPWNWLWJWZ V | SC N N _ V | UF_ V U Q _ W W W W W < W V , X X P Rb T W A
0x00eb24…00ecb8 Dummy {f00=0x0004, f01=0x0190, f02=» V V V W _6 V W F ; V F F );A F ( R ?U ) Y ) ( T Y W V K V QD R W W W W W W V V V ' ] W _ V R _ WNWvWf V K > R W W W W C V C c l R WjW
0x00ecb8…00ee4c Dummy {f00=0x0004, f01=0x0190, f02=» 8 W 2 : LINE NUMBER INPUT FILE CAN NOT BE ASSIGNED OUTPUT NOT ASSIGNED W f R WVWTWRW W V ~ R WFWDWBW@ P4 1 ) R W"W W W 0 O : W W 8 : 00 W
0x00ee4c…00efe0 Dummy {f00=0x0004, f01=0x0190, f02=» Z` T PD # 4 C C R W W W W B D K V _ DL = ON = F ! " / = _ DD = F D ! " = : F P F F = J K , R W W W W k : , P T 9CQ 9FV0 N "
0x00efe0…00f174 (0, 19) Dummy {f00=0x0005, f01=0x0190, f02=» D V P L Q M V I R Wf_ _ _ V U j P . R W4W2W W. ( P T R FW : W W W W W W P z 8 : '( #( ( D N N OB DI R UF 0 V P *
0x00f174…00f308 Dummy {f00=0x0005, f01=0x0190, f02=» A D W V V A j @ W W W W W OBJECT FILE DIRECTORY **** SECTORS Q Q" & U W W W W W R W 4 V W # R R
0x00f308…00f49c Dummy {f00=0x0005, f01=0x0190, f02=» W (>a ( % P _ V % V % P _" ( % P _ P P _ A ( ` " PROGRAM NAME SECTOR STRT INIT ACTL DATE W
0x00f49c…00f630 Dummy {f00=0x0005, f01=0x0190, f02=» ( ' $ ' $! h P x R W W W W W V % P _ V & ( % & j ( < ( % W P& ( % P ( % W P _& W W & ( W V W j Z
0x00f630…00f7c4 Dummy {f00=0x0005, f01=0x0190, f02=» W ($ < R < R W h 2 V % V % j z @ LR R W A % @ NR S % A L A N V L A L_ A N_ A A EN D z @ @ z (; V A A A V % V
0x00f7c4…00f958 Dummy {f00=0x0005, f01=0x0190, f02=» P _ " W 2 V R : 8 ` R @ & R W W W W W V % P _ V & ( % & j ( < ( % W P ( % P ( % W P _& W W & ( W V W j
0x00f958…00faec Dummy {f00=0x0005, f01=0x0190, f02=» 6 ,NOD 5 781215 NODPROK $ 8POD 7 781215 PODPROK PODPST FCSEG3 @ 781215 SEG3Y ODIGEN GODPST |KPF >ODIGEN L 781215 ODIGENK bKPF GODPST 8ACCTNG T 781215
0x00faec…00fc80 Dummy {f00=0x0005, f01=0x0190, f02=» SEG8Y DUFPRO *CSEG9 s 781215 SEG9Y R VD:CADI | 781215 CADPROK PRC06 PRD53 S:PRC PRD59 SKIPY ~ *CSEGB 781215 SEGBY *CSEGD 781215 SEGDY ,I:DDRQ
0x00fc80…00fe14 (0, 20) Opaque[0x194]
0x00fe14…00ffa8 # DirEnt {nam=»CSEG3 «, typ=»LM«, f00=0x0000, f01=0x0000, f02=0x00a8, f03=0x0000}
0x00fe14…00ffa8 IdxSect {
0x00fe14…00ffa8 f00 = 0x0005 // 0xfe14 @0x0
0x00fe14…00ffa8 f01 = 0x0004 // 0xfe16 @0x2
0x00fe14…00ffa8 gno = [ // 0xfe18 @0x4
0x00fe14…00ffa8 [0x00]: C0x0005.0x1.0
0x00fe14…00ffa8 [0x01]: C0x0005.0x2.0
0x00fe14…00ffa8 ]
0x00fe14…00ffa8 }
0x00ffa8…01013c Dummy {f00=0x0005, f01=0x0190, f02=» * . W & R W W WDW W ^ 8 : _ _ $ _ !_ _& h_0 IDENT V 8 V /O W /LP /S V W : SC W R _ W>_~_ 4 # R _ W _ ( V X W V Z
0x01013c…0102d0 Dummy {f00=0x0005, f01=0x0190, f02=» : UF W _D F R, F T V LW W W R 4W W X N ! 4 V # R _* V 4 4Pv Tp V 9$ TR V 6 W 6 V V PP W N ! V # W X R _ W U V 6 W 6 V 5 U
0x0102d0…010464 Dummy {f00=0x0005, f01=0x0190, f02=» # R W 6 0=a 08g9A:l @ 8 A 8;` $ 9(@ 4 N ! # p R W* V T U V T W 2 : X W V , P8 PB W T W T 9 VH9 V # R W& V V P W
0x010464…0105f8 Dummy {f00=0x0005, f01=0x0190, f02=» W j W - Z N " N /OBJCTOB W 0 V P < W 0 V < W W 4 V # V P W j W R W W W W" W V < NOT V > D T C _: ( B W V T" W B U V T W V
0x0105f8…01078c Dummy {f00=0x0005, f01=0x0190, f02=» R W W W W W C _( W ( W" C V J " R _4 W _ W _" B U W 6 L R WNW W V T$ C h R W2 W U _: U W _D C R W W W W W U _ T T Y T T W j_( C 5 Z V
0x01078c…010920 Dummy {f00=0x0005, f01=0x0190, f02=»_ _ V 6 8 V <A W 6 V 6 b 6 V Q Z 4 % Y # R W _ _ _ , T 4<A $ % 4 % Y j W 4P6 T V W jW4 V 5 Z B W V W P V W _R C , U V R _ V T@ V
0x010920…010ab4 (0, 21) Dummy {f00=0x0005, f01=0x0190, f02=»Y" V W j V T V R * V _& O 8 : 4_ MODULE O 8 V R @W : _H _P W V 4 V # V V # R W W _ W C _ V R _ _ W _ W V
0x010ab4…010c48 Dummy {f00=0x0005, f01=0x0190, f02=»OB N N 0 V P P W , W N UF 0 R @W~ W W 4 W W W W V D 9 W< '( 8 : ( 8 : 8 : $ 8 W 2 : W : R JWJWLWFW@ B W | B
0x010c48…010ddc Dummy {f00=0x0005, f01=0x0190, f02=»T~ V W W V W 8 W W V V W R V V W < ~ R W W W _f 8 . * 8 . R J_8WD_<_> " P P P 4 0 W " ?A W
0x010ddc…010f70 Dummy {f00=0x0005, f01=0x0190, f02=» 8 W P R T0 4 @ % V C z R W W W W W B 9 < V 9 V V 9 V 9 C R W(W&W$W" j j W | D W . 8W, B_ 8W _2 _: W 2 @
0x010f70…011104 Dummy {f00=0x0005, f01=0x0190, f02=» V C R W:W8W:W4 V P* W B 9 V P> W W _z V P$ " T W _ W _ W _ V $ Pl V PN C # ` R W4W2W0W. B $ $ - $ X R _ _ _ _ #_V B $ $ - $_r
0x011104…011298 Dummy {f00=0x0005, f01=0x0190, f02=» RDO PRT | , ( LST RDA PRD , ( LSD PCH POB L , ( PLD DUF INC MO | , ( V SCR KPF p DEL , ( ) p ASG SEG RUN p
0x011298…01142c Dummy {f00=0x0005, f01=0x0190, f02=» LK l , ( E p LED DEB p EDT , ( SVD ` SVU REW < , ( ULD FFS FBS l , ( RFS RBS WEF , ( ) WES WEV SDM HS , ( I F p
0x01142c…0115c0 Dummy {f00=0x0005, f01=0x413c, f02=» LSF GOD P POD , ( OLE P " $ NOD MAC P & RT , , ( L P ( PRV LSV TRA , ( p 0 TLK p 2 4 XRF P 6 8 BUG p , ( ) TLT p : 4 LKF p < " I
0x0115c0…011754 (0, 22) Opaque[0x194]
0x011754…0118e8 # DirEnt {nam=»CSEG4 «, typ=»LM«, f00=0x0000, f01=0x0000, f02=0x00b8, f03=0x0000}
0x011754…0118e8 IdxSect {
0x011754…0118e8 f00 = 0x0005 // 0x11754 @0x0
0x011754…0118e8 f01 = 0x0002 // 0x11756 @0x2
0x011754…0118e8 gno = [ // 0x11758 @0x4
0x011754…0118e8 [0x00]: C0x0005.0x3.0
0x011754…0118e8 ]
0x011754…0118e8 }
0x0118e8…011a7c Dummy {f00=0x0005, f01=0x0190, f02=» d $ j > R W W W W N 9 V r W F F $ $ I P6 ! P0 R$ Q $ W T D L ;FV 2 V R $V # _& YF N 4 # R WP_ _ _ @ H * ( B T 4 Q W 4 ) Y P ) Y :WP W W
0x011a7c…011c10 Dummy {f00=0x0005, f01=0x0190, f02=»A CAT. PROC. , P( P$ P R 9AQ O P F 9AV W 2 Y4 N P0 , P8 P4 F 9AV G . N jW W 2 @ D H ;AV I , H R ;H;h _ O : F ! # 4 C C C ( V P G : O x R WbW W^W
0x011c10…011da4 Dummy {f00=0x0005, f01=0x0190, f02=» N 9B 9 O : 8 : W @P O v |9H W | v | W | v |:H W | v | W |WV v |;H W | v | W | v |<H W | v | W | v |=H W | v | W | v |>H W | v | W | W p > : : b W W W v | W | !,,P V Q 5 W _" W _ *, , P
0x011da4…011f38 Dummy {f00=0x0005, f01=0x0190, f02=» P` 0R RV PP @ :PJ @ <PD V> W T0 T 9FR T D ! A :W W 0 O W 2 Yp N 9 Rh N 9DV. # . C C C R HW W W W # j C C C < R JW(W _0_2 N 9CV j $ / W
0x011f38…0120cc Dummy {f00=0x0005, f01=0x0190, f02=»_" ! _ W v |9H W | v | W | v |:H W | v | W | v |;H W | v | W | v |<H W | v | W t , W | p ,8h 00 ^ R WV RP QJ V R W T T n ' ' ' W & R *T N O O O W
0x0120cc…012260 Dummy {f00=0x0005, f01=0x0190, f02=»W W W W D j B &P< N ? O & O F O j D T _ 8 8 + 8 & A P ( O : L 11CCI (PTS VERSION 800118)
0x012260…0123f4 (0, 23) Opaque[0x194]
0x0123f4…012588 # DirEnt {nam=»CSEG5 «, typ=»LM«, f00=0x0000, f01=0x0000, f02=0x00c0, f03=0x0000}
0x0123f4…012588 IdxSect {
0x0123f4…012588 f00 = 0x0006 // 0x123f4 @0x0
0x0123f4…012588 f01 = 0x0008 // 0x123f6 @0x2
0x0123f4…012588 gno = [ // 0x123f8 @0x4
0x0123f4…012588 [0x00]: C0x0006.0x0.0
0x0123f4…012588 [0x01]: C0x0006.0x1.0
0x0123f4…012588 [0x02]: C0x0006.0x2.0
0x0123f4…012588 [0x03]: C0x0006.0x3.0
0x0123f4…012588 ]
0x0123f4…012588 }
0x012588…01271c Dummy {f00=0x0006, f01=0x0190, f02=» !* . F N P R < z @ t ( H W" LKF W LKE A W W - Y ` O O R W W W W W V PVQ V CP P& P6 P8 Tv O W XD 0 W O W X^ b_ _0 _6 V DEP T.
0x01271c…0128b0 Dummy {f00=0x0006, f01=0x0190, f02=» 9AV~ N N 0 V P2 8 R @W W 2 W 2 Y : V P& > D N N 0 V P L_Z N 9BVF D 0 V P _ V P > D 0 V P f_ , T 8_ X 4
0x0128b0…012a44 Dummy {f00=0x0006, f01=0x0190, f02=» 8_8 N B N 9H _N COMMON VALUE REDUNDANT LIBRARY OPTION REDUNDANT DEBUG OPTION REDUNDANT MAP OPTION REDUNDANT START ADDR. REDUNDANT USER LIB ASSIGN ERR : /OBJCTOB SYSTEM LIB ASSIGN ERR : /O EMPTY /O CLOSE ERROR /L ASSIGN ERR :
0x012a44…012bd8 Dummy {f00=0x0006, f01=0x0190, f02=»SYST OBDIR ASSIGN ERR : OLE LM j 4 4 = Y < Y N & Q O 8 = Y F O ( W W W W@ O _ _ W W W W O
0x012bd8…012d6c Dummy {f00=0x0006, f01=0x0190, f02=» !DDP& !RRTR W QP O _: W QF O _J W QP O _Z V /ST , P P _t Wz Wv Wr W * Wd H_ WZ WV WR :_ V T , P P T 9IV. N OB 0 V P R P 8 : , T ! T~ N T #
0x012d6c…012f00 Dummy {f00=0x0006, f01=0x0190, f02=» R W V T& D F:ERMSUF 0 V P d V V j N " N W 2 L W 2 N T N 9HR : W 2 : ( /S ASSIGN ERR : R OPTION ERR NL OPTION ERR D OPTION ERR /S EMPTY /O ASSIGN ER
0x012f00…013094 (0, 24) Dummy {f00=0x0006, f01=0x0190, f02=»R LM FCL LM BCL LM BEA LM BEB LM TRA LM XRF LM TCD LM HSF LMFX1 LMFX2 LMFX3 LMFX4 LMFX5 LMFX6 LMFX7 LMFX8 LMFX9 LMFXA LMFXB LMFXC LMFXD LMFXE LM R W W W W , T X 4 R WR R
0x013094…013228 Dummy {f00=0x0006, f01=0x0190, f02=» 8 N N 9HZ W 0_( 8 : MAC LM 8 : RTL LM TLT W TLK A f j H 4 % Y GOD W j n W | W j H $ 5 Y j W | D W - Y ` O O
0x013228…0133bc Dummy {f00=0x0006, f01=0x0190, f02=» _6 O _z W V O O _ P 8 : N 9AVt N N 0 V P. 8 2 R @W W 2 W Y : > D N N 0 V P L_P N 9BV@ D 0 V P _x > D 0 V P f_ , T
0x0133bc…013550 Dummy {f00=0x0006, f01=0x0190, f02=»W W 2 4 N OB 0 V P$ 8 z R @W W 2_P N OB 0 V P$ 8 R @W W 2_N N OB 0 V P$ 8 R @W W 2_N N OB 0 V P$ 8 : R @W W
0x013550…0136e4 Dummy {f00=0x0006, f01=0x0190, f02=» W 0_ W V O O _ P 8 : N 9AV N N 0 V W W A r W W W W ~ : W: D W&W W V V 5 W _, A r V P W V | W | V P V /P 0R. :RrW& V t @ r P W ~ V
0x0136e4…013878 Dummy {f00=0x0006, f01=0x0190, f02=» W* @ rP U @Q 9JW P W @ W ~ V W ~ V W ~ V 0R :R AR GV V | V P v | W | P ,P KP L T P6_ L tW$ @R 0 P 9D _( W L
0x013878…013a0c Dummy {f00=0x0006, f01=0x0190, f02=»W 8 : _ _ $ _ !_ _& _0 IDENT V 8 V /O W /LP /S V W : SC W * R _ W>_~_ 4 # P R _ W _ ( V X W V Z V W N N W^ W
0x013a0c…013ba0 Dummy {f00=0x0006, f01=0x0190, f02=» W W . R 4W W N ! 4 V # Z R _* V 4 4Pv Tp V 9$ TR V 6 W 6 V V PP W N ! V # W R _ W U V 6 W 6 V 5 U U U V U N ! 4 V #
0x013ba0…013d34 (0, 25) Dummy {f00=0x0006, f01=0x0190, f02=»8g9A:l @ A ;` $ 9(@ 4 N ! # R W* V T U V T W 2 : W V , P8 PB W T W T 9 VH9 V # V R W& V V P W ! O 8 V _ W
0x013d34…013ec8 Dummy {f00=0x0006, f01=0x0190, f02=»/OBJCTOB W 0 V P W 0 V W W 4 V # V P W j W | R W W W W" W V < NOT V > D T C _: ( PW V T" W B U V T W V T C R _l W W U C V X B W
0x013ec8…01405c Dummy {f00=0x0006, f01=0x0190, f02=»W" C V J R _4 W _ W _" B U W 6 R WNW W V T$ C R W2 W U _: U W _D C R W W W W W U _ T T Y T T W 4 _( C 5 Z B V j W (P. H U W V W W H W
0x01405c…0141f0 Dummy {f00=0x0006, f01=0x0190, f02=» 4 % Y # R W _ _ _ , T 4<A $ % 4 % Y j W 4P6 T V W t W4 V 5 Z B W V W P V W _R C , U R _ V T@ V 8 , T 9 V( OB W W :
0x0141f0…014384 Dummy {f00=0x0006, f01=0x0190, f02=» z R * V _& O 8 : _ MODULE O 8 R @W : _H _P W V 4 V # V V # R W W _ W C _ V < R _ _ W _ W V C C _NW" V P GOD W j n W | W
0x014384…014518 Dummy {f00=0x0006, f01=0x0190, f02=» N UF 0 R @W~ W W 4 W W W W V D 9 W< '( 8 : ( 8 : 8 : $ 8 W 2 : W R JWJWLWFW@ B W | B W R W W W W W R W W W
0x014518…0146ac Dummy {f00=0x0006, f01=0x0190, f02=» W V V W V V W W W W _f f t 8 * 8 R J_8WD_<_> " P P P 4 0 W " ?A W ?a H V X^ Z R JW W W W W
0x0146ac…014840 Dummy {f00=0x0006, f01=0x0190, f02=» V C R W W W W W B 9 V 9 V V 9 V 9 C < R W(W&W$W" j j W | D W 8W, _ 8W _2 d_: W 2 @ : V D : W W V 9a:a
0x014840…0149d4 (0, 26) Dummy {f00=0x0006, f01=0x0190, f02=» 9 V P> W W _z V P$ " T W _ W _ W _ V $ Pl V PN C # R W4W2W0W. B $ $ - $ X R _ _ _ _ #_V f B $ $ - $_r ?a V X^ R JW W W W W
0x0149d4…014b68 Dummy {f00=0x0006, f01=0x0190, f02=» A1,W:ASB7,A13 F : P RF(0) TLK260 OK. ASSIGN SYSTEM LIBR. OBJECT DIRECTORY G P* G X 6 P* PRINT ERROR MESSAGE G b P LDK.L A3,SYSLBR G P RB TLK210 G P EJECT G P* G , P* ASSIGN SYSTEM
0x014b68…014cfc Dummy {f00=0x0006, f01=0x0190, f02=»TE PROTECT, ASGTYP=4 G p P LDK A2,/F0 DISK FILE CODE H P LDK A3,8 DIRECTORY ADDRESS H > & P MS 7,W:ASB0,A13 SET ASSIGN BLOCK H b & P CFI A14,C:ASG,A12 REQUEST ASSIGN H " P LD A1,W:ASB7,A13 STATUS OK ? H P RF(0) TLK300 YES H P* PRINT ERROR MESS
0x014cfc…014e90 Dummy {f00=0x0006, f01=0x0190, f02=» * H " P* CHECK OBJECT INPUT FILE * I " P* * I @ " P****************************** I f P I 8 PTLK300 EQU * CHECK IF /O IS PRESENT I P LDK A3,/D5 I $ P CFI A14,C:
0x014e90…015024 Dummy {f00=0x0006, f01=0x0190, f02=»QU * PRINT ERROR MESSAGE I P LDK.L A3,LKEORR J 0 PTLK315 LDK.L A1,/FF00 J T P LDK A2,0 J v $ P CFI A14,C:ERMS,A12 J H P RB TLK230 THEN DELETE FILE CODES ASSIGNED TO LIB J P
0x015024…0151b8 Dummy {f00=0x0006, f01=0x0190, f02=»ICE J V P EJECT K P K P******************* K " P* * K > P* CLOSE /O FILE * K Z P* * K v P******************* K P K P LDR A8,A13 K P ADK.L A8,W:DEC1 K , P LDK
0x0151b8…01534c Dummy {f00=0x0006, f01=0x018e, f02=»10 REQ LENGTH K z * P MSR 3,A8 SET ECB L P* L H 8 P LDK.L A4,TLK330 WRITE EOF ON THE FILE L R P ABI C:WEOF,A12 L PTLK330 EQU * L , P RF TLK340 I/O ERROR L P* L : P
0x01534c…0154e0 Dummy {f00=0x0006, f01=0x018e, f02=» L P P LDK.L A3,LKEOR1 M 6 P RB TLK315 WRITE ERROR MESSAGE M , P* M f 6 PTLK350 EQU * NOW REWIND THE FILE M p P LDK.L A4,TLK360 M P ABI C:REWD,A12 M PTLK360 EQU * M
0x0154e0…015674 (0, 27) Opaque[0x194]
0x015674…015808 # DirEnt {nam=»LED «, typ=»LM«, f00=0x0000, f01=0x0000, f02=0x00e0, f03=0x0000}
0x015674…015808 IdxSect {
0x015674…015808 f00 = 0x0007 // 0x15674 @0x0
0x015674…015808 f01 = 0x0004 // 0x15676 @0x2
0x015674…015808 gno = [ // 0x15678 @0x4
0x015674…015808 [0x00]: C0x0007.0x0.0
0x015674…015808 [0x01]: C0x0007.0x1.0
0x015674…015808 ]
0x015674…015808 }
0x015808…01599c Dummy {f00=0x0007, f01=0x0190, f02=» D " W w @ D P 9aW W F R _ W W W W V | D N N SC v R W W W W W$ V /SP W V R Q UF W 0 V T R WjW W W W W W2 V UR QN , PF PB W R W6W W W0 !!W V R" V
0x01599c…015b30 Dummy {f00=0x0007, f01=0x0190, f02=» (P> R *P _& V n ! T$ JW R W W W W * JW N ; RF W W W W B X _ _, X _ W W W W W W P 8 N T N 9HV V W 2 W 2 W 2 : 8 j @W _L _ _T
0x015b30…015cc4 Dummy {f00=0x0007, f01=0x0190, f02=» R W*W(W W _j R FW _ R W _ W : " 4 R W W W W 8 V R ' Q ' W R W W W W V R 8 z R W W~W|W Wx V Rr ' Ql V Rv W R WXWVWTW W W$ V RF ' Q@ R< W R W.W,W*W( V V P W V W 8
0x015cc4…015e58 Dummy {f00=0x0007, f01=0x0190, f02=» D N N W R _ _ _ W _ V Z ' Y W W R _ _ _ W W V Z ' Y Z W R _ _ _ _ 0 V P V V Q A V V W W P W 0 W V W B W A V W 8 V Td d T V
0x015e58…015fec Dummy {f00=0x0007, f01=0x0190, f02=»_ W _ V Z ' Y" V W T V X@ V V =a=A T V Xb V @ V =a=A W V V P W l W V w V ) W _( w 8 V W T V X V j P ( + R W,W*W.
0x015fec…016180 Dummy {f00=0x0007, f01=0x0190, f02=» W W V | V P v | W | W $$P 9H_ W : W : V | V :H v | W | Y $$ V :a V Q V % v % W Y j W | V V | V V | $ R * W | ^ _$ W V $V : D V_bW v W
0x016180…016314 (0, 28) Dummy {f00=0x0007, f01=0x0190, f02=» V D V_ W W W j P ( V ) Y ( R WfWdWdWx V Q RH W 2 V j UUT PW " * ( x R W W W W W V V _ W V Z Qn R FW _( " ! T . R Wl p @ *
0x016314…0164a8 Dummy {f00=0x0007, f01=0x0190, f02=»_ _ V j @ b ` NW V j P ~ R _L_NW W _P N ; " W W W W B Xz_h Xl_2 # , T TYT F C R HW W W W j W | P W P % Y P C R J B B B V 1 L: W
0x0164a8…01663c Dummy {f00=0x0007, f01=0x0190, f02=» , , V , ( h 00 ) J R W W W W ( <V # N < V # N < V O 00 ) L R W W W W , , P P P # z R W W W W :!!DL rIL ,EN vAB tJN CH VLS RE COMM
0x01663c…0167d0 Dummy {f00=0x0007, f01=0x0190, f02=»D DSK OUTPUT ERR,UPD ABORTED SYNTAX ERR,TRY AGAIN EOF,UPD TERMINATED INPUT FILE CAN NOT BE ASSIGNED /S CAN NOT BE ASSIGNED * AUX. INPUT CAN NOT BE ASSIGNED,TRY AGAIN ( CMND NOT ALLOWED IN EXE MODE,TRY AGAIN TABLE O'FLOW,TRY AGAIN EOF IN AUXI IN
0x0167d0…016964 Dummy {f00=0x0007, f01=0x0190, f02=»BI C:RDSC,A12 READ GRANTB INTO W:DBF2 I P* J 8 P* J B P* J L PPRD60 RF *+2 J V P RF *+2 J t P RF *+2 J P RF *+2 J B P ADKL A10,4 A10= CURRENT GRANULE ADD
0x016964…016af8 Dummy {f00=0x0007, f01=0x0190, f02=»EADING J P* K P LDKL A1,PRDBU1 K & P ST A1,W:REC1+2,A13 K < P LDK A1,37 K f & P ST A1,W:REC1+4,A13 K P LDR A8,A13 K P ADKL A8,W:REC1 K P LDKL A4
0x016af8…016c8c Dummy {f00=0x0007, f01=0x0190, f02=» P RF *+2 L P LDKL A4,PRD63 L " P LDKL A1,PRDBU3 L D & P ST A1,W:REC1+2,A13 L h P LDK A1,24 L & P ST A1,W:REC1+4,A13 L F P LDKL A5,-6 A5= SECTOR
0x016c8c…016e20 Dummy {f00=0x0007, f01=0x0190, f02=» *+2 L P RF *+2 M P RF *+2 M 0 P RF *+2 M N P LDR A1,A13 M l P ADKL A1,W:DBF1 M & P ST A1,W:DEC1+2,A13 M @ P LDKL A6,-1 SET EOS FLAG
0x016e20…016fb4 (0, 29) Opaque[0x194]
0x016fb4…017148 # DirEnt {nam=»CSEG7 «, typ=»LM«, f00=0x0000, f01=0x0000, f02=0x00f0, f03=0x0000}
0x016fb4…017148 IdxSect {
0x016fb4…017148 f00 = 0x0007 // 0x16fb4 @0x0
0x016fb4…017148 f01 = 0x0002 // 0x16fb6 @0x2
0x016fb4…017148 gno = [ // 0x16fb8 @0x4
0x016fb4…017148 [0x00]: C0x0007.0x2.0
0x016fb4…017148 ]
0x016fb4…017148 }
0x017148…0172dc Dummy {f00=0x0007, f01=0x0190, f02=» W ( R V W W PW _ W _ , P P j P X R W d R W ( V V F K R JW W WpW P* F 0 NOT P D T R JW W~_D_ _ F C P R P R W`W _h_j_l @TT R RWH x 2( _
0x0172dc…017470 Dummy {f00=0x0007, f01=0x0190, f02=» R _J_L_NW W V W ( j P V ^| R W W W W B W | B W R W W W W W d R *T R W W W W W : R *Tx F K X P R P R W W8W W F K r R WvWtW W _>
0x017470…017604 Dummy {f00=0x0007, f01=0x0190, f02=» RW :W bW P 8_4( ! ( ( MODULE /O /O CLOSE ILLEGAL EOS IN IDENT OBJECT LIB EOV ON OUTPUT FILE,MOUNT NEW TAPE THEN RESTART W R W W W W h V l l , P p R W W W W W V
0x017604…017798 Dummy {f00=0x0007, f01=0x0190, f02=» K v R W0W _P_R_T @T R RW x 2( _pW W W W W W.W R FW V _ R W W 2 : V | D N N UF R W W W6W W V W 0 V P 8 R @ V /STD SC_: V /ST , P W& W" W W
0x017798…01792c Dummy {f00=0x0007, f01=0x0190, f02=»CVEMIN+2 SECONDS ^ ~ 4 PCVEFIT EQU CVESEC+2 FIFTETHS OF SEC ^ & 2 PCVEBTB EQU CVEFIT+2 ALLOCATION TABLE ^ P* P* P* P* & P* FCT FILE CODE TABLE P* , PFCTFC EQU 0
0x01792c…017ac0 Dummy {f00=0x0007, f01=0x0190, f02=»F LFI ASSIGNED TO THE FILE CODE l P* ( P* 2 ( P* DCT DISK CONTROL TABLE < . PDCTLG EQU -14 ENTRY LENGTH h F PDCTEB0 EQU DCTLG+2 EVENT BYTE / LOGICAL DISK FILE CODE : PDCTEB1 EQU DCTEB0+2 BUFFER
0x017ac0…017c54 (0, 30) Opaque[0x194]
0x017c54…017de8 # DirEnt {nam=»CSEG8 «, typ=»LM«, f00=0x0000, f01=0x0000, f02=0x00f8, f03=0x0000}
0x017c54…017de8 IdxSect {
0x017c54…017de8 f00 = 0x0007 // 0x17c54 @0x0
0x017c54…017de8 f01 = 0x0004 // 0x17c56 @0x2
0x017c54…017de8 gno = [ // 0x17c58 @0x4
0x017c54…017de8 [0x00]: C0x0007.0x3.0
0x017c54…017de8 [0x01]: C0x0008.0x0.0
0x017c54…017de8 ]
0x017c54…017de8 }
0x017de8…017f7c Dummy {f00=0x0007, f01=0x0190, f02=» @ 8 N FILE TYPE MISSING FILE TYPE ERROR D A 6 R W W W W W W l R W W W W@ W $W V /LT LM W W, /S ( SC W W Z@ YF UF W R W W W W D W N N W W V W R W W
0x017f7c…018110 Dummy {f00=0x0007, f01=0x0190, f02=» B &P$ V W W D W 8W _ 0 V P 8WB R W W W W W _> N W 0 V P 8 R @Wx 4 ' ! + @ R WhW W W R R WVW W W G K _. B $ V UFT F > &
0x018110…0182a4 Dummy {f00=0x0007, f01=0x0190, f02=» RN V T. T T P: P4 P6 A R W W W W W8 W W W W + 8 V V < : @ 4 C 4 C 0 I D C C R C F ! C B
0x0182a4…018438 Dummy {f00=0x0007, f01=0x0190, f02=» X v A X A 8 T ( B B A ^ A ` A b F A l F A x F A F A F A F . A C N C T W < A 0
0x018438…0185cc Dummy {f00=0x0007, f01=0x0190, f02=»RACK SEC/GRAN INTERLACE P W A 4 W ( @ R W W W W,W 8 W 2 V : _" V P@ , P8 P R V P T T~ P P + _^ _h _r D N " N UF W 0
0x0185cc…018760 Dummy {f00=0x0007, f01=0x0190, f02=» R W W W W WZ R T @ T W R _._0_2W WZ Z> R W W W W W@ R @ Q W 1 W ( R W W W W V W P Q W " R W W W WTW R D R W W W W ` W
0x018760…0188f4 (0, 31) Dummy {f00=0x0008, f01=0x0190, f02=» W _ _ SECTOR # W AGRANTBID 4 W 9 , PH , X Q: Y , Z H ]d V X 4 _ W , W ( R W W W W : W W
0x0188f4…018a88 Dummy {f00=0x0008, f01=0x0190, f02=»,A12 v x PPRT375 EQU * w P RF PRER07 w ( P RF *+2 w H P RF *+2 w f P RF *+2 w PPRT376 EQU * w . P IM S:CUR,A13 NEXT LINE # w P LDKL A1,/20
0x018a88…018c1c Dummy {f00=0x0008, f01=0x0190, f02=»PRT379 NOT NEGATIVE,THERE IS A LIMIT w ~ * P* NEGATIVE x 2 " P LD A1,S:CUR,A13 x ` P SUK.L A1,9999 x 0 P RB(5) PRT340 LESS OR EQUAL x B P LDK A1,0 GREATER THAN 9
0x018c1c…018db0 Dummy {f00=0x0008, f01=0x0190, f02=»QU * x " P CW A1,S:CUR,A13 y L P RF(2) PRTEND LIN2 LESS THAN CUR ,THEN END,OTHEWISE,NEXT y 8 & P RB PRT340 LINE y P* y PART390 RF PRT390 y PART600 RF PRT600 y PART400 RF
0x018db0…018f44 Dummy {f00=0x0008, f01=0x0190, f02=» A1,ECBRL,A10 y P LDR A8,A10 z P LDK.L A4,PRT382 z 8 B P ABI C:WREC,A12 WRITE THE 1ST PART OF THE RECORD z PPRT382 EQU * z P RF PRER07 z P RF *+2 z P RF
0x018f44…0190d8 Dummy {f00=0x0008, f01=0x0190, f02=» SUK A1,8 MAXLG-8 z L P ADS A1,ECBBF,A8 BEGINNING OF 2ND PART = BEG OF REC -8+MXLG { & " P LD A1,S:LNG,A13 { v P ADK A1,8 { B P SUS A1,ECBRL,A8 REQUEST LENGTH OF THE 2ND PART = { B P*
0x0190d8…01926c Dummy {f00=0x0008, f01=0x0190, f02=» LDR A3,A2 BLANK OUT THE 1ST 8 CHARACTERS { P LDR A4,A2 | < P MS* 4,ECBBF,A8 | P* | P* | P LDK.L A4,PRT383 | P ABI C:WREC,A12 | PPRT383 EQU * | P RF
0x01926c…019400 Dummy {f00=0x0008, f01=0x0190, f02=»NEXT LINE | r P* } P* } P* } & P* } 0 P* } : P* } D P* } N P* } X P EJECT } b P* } x P* } PPRT390 EQU * } P ADK A7,0 } 2 PPRT395 ABL(0) PRT360 INCORRECT LENGTH } 8 P SUK
0x019400…019594 (0, 32) Opaque[0x194]
0x019594…019728 # DirEnt {nam=»CSEG9 «, typ=»LM«, f00=0x0000, f01=0x0000, f02=0x0108, f03=0x0000}
0x019594…019728 IdxSect {
0x019594…019728 f00 = 0x0008 // 0x19594 @0x0
0x019594…019728 f01 = 0x0002 // 0x19596 @0x2
0x019594…019728 gno = [ // 0x19598 @0x4
0x019594…019728 [0x00]: C0x0008.0x1.0
0x019594…019728 ]
0x019594…019728 }
0x019728…0198bc Dummy {f00=0x0008, f01=0x0190, f02=» Z W R W W W W 8 V : _ W N R _ _"W W D W N W N W LM W 0 V P T _t _~ W , 4 Q ') * _ W W W W` V W Z WH V /L W , Xb Xf W W
0x0198bc…019a50 Dummy {f00=0x0008, f01=0x0190, f02=» W R &_ _ W W V 8! B V 9oP V 8 A V : W V < A 9a 4 48D 5 Z H W _t_vW W W W 4 V * +9A P X _ V V Q Q P A Y W _ Z _$ 4 A Z A ?A
0x019a50…019be4 Dummy {f00=0x0008, f01=0x0190, f02=» W W R _ _ W W R FW * R W @ * W 2 * 8 & W LM W 0 V P T _t IDENT PRNAME SEGMENTED PROGRAM.PLD COMMAND CANNOT BE USED WARNING:IDENT HAS BEEN PUNCHED ON OUTP
0x019be4…019d78 Dummy {f00=0x0008, f01=0x0190, f02=» 8 V : _ _$ _, _4 ( 8 R @W V : '( _& D5 LIBRARY R * | W V Yt R _ W _ _ N ! W N W W V W W W F R W W W W WH _ V V P T
0x019d78…019f0c Dummy {f00=0x0008, f01=0x0190, f02=» R W W W W W WF W 4 V # W V TV * R W W W$W W$ W _$ 8WP " 8WB W ` ( v R *T2 W W B W _ W 2 V : V P W _ W R _ _ _ _ _ W V 4 V
0x019f0c…01a0a0 Dummy {f00=0x0008, f01=0x0190, f02=»_$ V : _ _$ _, _4 ( 8 R @W V : '( _& D5 LIBRARY R * | W V Yt R _ W _ _ N ! W N W W V W W W R W W W W W _ V V P T
0x01a0a0…01a234 (0, 33) Opaque[0x194]
0x01a234…01a3c8 # DirEnt {nam=»CSEGA «, typ=»LM«, f00=0x0000, f01=0x0000, f02=0x0110, f03=0x0000}
0x01a234…01a3c8 IdxSect {
0x01a234…01a3c8 f00 = 0x0008 // 0x1a234 @0x0
0x01a234…01a3c8 f01 = 0x0002 // 0x1a236 @0x2
0x01a234…01a3c8 gno = [ // 0x1a238 @0x4
0x01a234…01a3c8 [0x00]: C0x0008.0x2.0
0x01a234…01a3c8 ]
0x01a234…01a3c8 }
0x01a3c8…01a55c Dummy {f00=0x0008, f01=0x0190, f02=» W W N R %& 8 V : W W LW W W W W W W p R W W W W W _ W W W W W " R W W W W _ _ V T T( P + ( _ _ 4
0x01a55c…01a6f0 Dummy {f00=0x0008, f01=0x0190, f02=»+ ( W F L A F A F A 2 0*********DD: ********* 0*****GENERAL CATALOGUE***** 0****USERIDNT****ADDRESS**** W W W W " R W W W W V PJ N ! 4 # X R W W W W 0 I V D x R W W W W
0x01a6f0…01a884 Dummy {f00=0x0008, f01=0x0190, f02=» V A $ _ '( _. < W W 0 R W W W W + b W % W R W W W W | W W _$W W W W 4 W *P W R W W W W V 6R 9BR PtQ ( V 8 V : R < W
0x01a884…01aa18 Dummy {f00=0x0008, f01=0x0190, f02=»*****LIBRARY DIRECTORY********* 0****FILENAME****TYPE****ADDRESS**** 0****OBJECT MODULES****/OB 0 MODULE **USERIDNT****ADDRESS**** W W W W R W W W 0 A j A 4 W W N R W W W W R P* W _0
0x01aa18…01abac Dummy {f00=0x0008, f01=0x0190, f02=» j W W R W W W W A j A _ < Y Z < P2 Y < " Y Y W W R OB V 0 USERIDNT ADDR 0 FILENM TP ADDR V ! P : R W W W W O :11 W
0x01abac…01ad40 Dummy {f00=0x0008, f01=0x0190, f02=» TABLE Z < PCVEYAR EQU CVELFT+2 CURRENT YEAR, 2 ASCIL CHAR < PCVEMON EQU CVEYAR+2 CURRENT MONTH,2 ASCIL*CHAR N < PCVEDAY EQU CVEMON+2 CURRENT DAY, 2 ASCIL CHAR 4 PCVEHOR EQU CVEDAY+2 HOURS ] @ PCV
0x01ad40…01aed4 (0, 34) Opaque[0x194]
0x01aed4…01b068 # DirEnt {nam=»CSEGB «, typ=»LM«, f00=0x0000, f01=0x0000, f02=0x0118, f03=0x0000}
0x01aed4…01b068 IdxSect {
0x01aed4…01b068 f00 = 0x0008 // 0x1aed4 @0x0
0x01aed4…01b068 f01 = 0x0002 // 0x1aed6 @0x2
0x01aed4…01b068 gno = [ // 0x1aed8 @0x4
0x01aed4…01b068 [0x00]: C0x0008.0x3.0
0x01aed4…01b068 ]
0x01aed4…01b068 }
0x01b068…01b1fc Dummy {f00=0x0008, f01=0x0190, f02=» 6 < r p W V TY 0 W W A B R W8W6W4W W2 V U. P* R R" V V W r R W W~W W W W W W V V P W W P P D P R W W W W V 0 V! R @ : : V R P0 T V
0x01b1fc…01b390 Dummy {f00=0x0008, f01=0x0190, f02=» V W R W W W W N W _~ | R W W W W WZ V V P T T P P W A W W V R T R W W:W W D W D B V V Ph W A UF
0x01b390…01b524 Dummy {f00=0x0008, f01=0x0190, f02=» 8 V : + W W N R WnW W WtWz V /OTh V B T^ W x R WDWpWnWl N " N /O BJ CT OB V R4 V P$ W ~ 8 : _ _ _ _( _0 "
0x01b524…01b6b8 Dummy {f00=0x0008, f01=0x0190, f02=» V Z V X W 4 V - N ! V # R _ W W R 4_ V P$ DEL OBDIR j n W | W < : W N " N /OBJCTOB W 0 V P4 P 8 L R 0W : OBJECT LIBRARY W
0x01b6b8…01b84c Dummy {f00=0x0008, f01=0x0190, f02=» R _D W C _ C _t W 6 R _hW W V T C $ R _ W _6 W _< : B V T C L R _* W C _ C f R _DW W W C C _$ DEL /OB W j n W | W < : N N R WbW W^W W LM 5 _" Pv '
0x01b84c…01b9e0 Dummy {f00=0x0008, f01=0x0190, f02=» : _2 _8 z R W WVW W , P P N O T O N V R V O P ( - Y ( | N N LM N O F T" V | ' O F P, . R W$W"W W _ O _ O _ W W W P ` 8 :
0x01b9e0…01bb74 (0, 35) Opaque[0x194]
0x01bb74…01bd08 # DirEnt {nam=»CSEGC «, typ=»LM«, f00=0x0000, f01=0x0000, f02=0x0120, f03=0x0000}
0x01bb74…01bd08 IdxSect {
0x01bb74…01bd08 f00 = 0x0009 // 0x1bb74 @0x0
0x01bb74…01bd08 f01 = 0x0002 // 0x1bb76 @0x2
0x01bb74…01bd08 gno = [ // 0x1bb78 @0x4
0x01bb74…01bd08 [0x00]: C0x0009.0x0.0
0x01bb74…01bd08 ]
0x01bb74…01bd08 }
0x01bd08…01be9c Dummy {f00=0x0009, f01=0x0190, f02=» H V @ A A A A N R P 8 V V : N R W W W W ~ V V P T T P _` A F T 9C9nP 9aP F F " A R W W W W W V V P T T P P _ A ! P
0x01be9c…01c030 Dummy {f00=0x0009, f01=0x0190, f02=» R , _ , _ , , _* _._ _ _ _ R _ W W W T R _4W W W T & * Q * & + Y P8R. @ A ( A . 8@ 8` K (@ + Y @ K @ @ R _ W W W > V 4 P C Y
0x01c030…01c1c4 Dummy {f00=0x0009, f01=0x0190, f02=» + FIRST SECOND TYPE BUG W DEB A Z R W W W W , P P T W( V | LM N N F P W R W~W|WzWx D DEB LM 0 V P PZ 8 L R @ N W 0
0x01c1c4…01c358 Dummy {f00=0x0009, f01=0x0190, f02=»W # v R _:W W W C _r B " W 2 , N O O T V O O ( " ! " PROCESSOR SYSTEM USER Y P R @ A A 8@ 8` K (@ + Y @ K @ @ R _ W W W > V 4 P C Y
0x01c358…01c4ec Dummy {f00=0x0009, f01=0x0190, f02=» , ( V W R _ _^W _V UFW V , ( ! /O /ST SCW /L 4 , ( A LM W N " N d , ( a V Z V X W , ( 4 V - N ! V # , ( R _
0x01c4ec…01c680 Dummy {f00=0x0009, f01=0x0190, f02=» N /OBJCTOB W 0 V , ( ! P 8 $ , ( A R 0W : OBJECT LIBRARY W T , ( a 4 # , ( R W W W W W C _ W W , ( ( R *
0x01c680…01c814 (0, 36) Opaque[0x194]
0x01c814…01c9a8 # DirEnt {nam=»CSEGD «, typ=»LM«, f00=0x0000, f01=0x0000, f02=0x0128, f03=0x0000}
0x01c814…01c9a8 IdxSect {
0x01c814…01c9a8 f00 = 0x0009 // 0x1c814 @0x0
0x01c814…01c9a8 f01 = 0x0002 // 0x1c816 @0x2
0x01c814…01c9a8 gno = [ // 0x1c818 @0x4
0x01c814…01c9a8 [0x00]: C0x0009.0x1.0
0x01c814…01c9a8 ]
0x01c814…01c9a8 }
0x01c9a8…01cb3c Dummy {f00=0x0009, f01=0x0190, f02=» " ~ z F L T X ` j t n W . R W W W|Wz W V W J R WhWfWdW Wx V V P T T PL PDWR W R W0W.W,W* F P W W0 W W W W W W W $ P 8 V : W V V # R
0x01cb3c…01ccd0 Dummy {f00=0x0009, f01=0x0190, f02=» ' + R _ W W2W W. V OBT$ G F >P _2 B T V UFP Wn R W^W W W K _< W V R W W V P $ P 8 W 2 W 2 : ( 8 R @ ,_ 0_4 , U T W C b R _. C C R
0x01ccd0…01ce64 Dummy {f00=0x0009, f01=0x0190, f02=» B V M R _ R 4_ V T. ON V W J R 4W 4 8 V C h R _R_ _ _ V * V K K K T R _ _ K V R$ R _ C B $ X _L =_R
0x01ce64…01cff8 Dummy {f00=0x0009, f01=0x0190, f02=»W W _ _ W W R W W W W W V W Q W Y , T W T : V P$ T MTP MLP TCP TKP TLP _F W R WBW W>W(WL W R4 W R* V ALT L T W _8 W R V _ W W W P j 8 : j P V V PlRv
0x01cff8…01d18c Dummy {f00=0x0009, f01=0x0190, f02=» _4 : ( R _ W _ W> B C C c # $ R W W W W V # ( : NO LABEL W j j ` R : : : : : R W W W W < V W , T : V P ( ( ) Y
0x01d18c…01d320 Dummy {f00=0x0009, f01=0x0190, f02=» ^ R _ h R _$W W _ ' R W ) Y R _DW W W R _ Y ( : V P T MTP MLP TCP TKP TLP _F W R W W W W W W R W R V ALT L T W _8 W R V _ W W W P 8 : j P V V P R
0x01d320…01d4b4 (0, 37) Opaque[0x194]
0x01d4b4…01d648 # DirEnt {nam=»CSEGE «, typ=»LM«, f00=0x0000, f01=0x0000, f02=0x0130, f03=0x0000}
0x01d4b4…01d648 IdxSect {
0x01d4b4…01d648 f00 = 0x0009 // 0x1d4b4 @0x0
0x01d4b4…01d648 f01 = 0x000a // 0x1d4b6 @0x2
0x01d4b4…01d648 gno = [ // 0x1d4b8 @0x4
0x01d4b4…01d648 [0x00]: C0x0009.0x2.0
0x01d4b4…01d648 [0x01]: C0x0009.0x3.0
0x01d4b4…01d648 [0x02]: C0x000a.0x0.0
0x01d4b4…01d648 [0x03]: C0x000a.0x1.0
0x01d4b4…01d648 [0x04]: C0x000a.0x2.0
0x01d4b4…01d648 ]
0x01d4b4…01d648 }
0x01d648…01d7dc Dummy {f00=0x0009, f01=0x0190, f02=» #3` ' .z R W W W W W 8 t _ V V _$ , T _8 t A R W W W W _F _X V , X6 4 MT A R W W W W WD _ V CK V A R W W W W W 0 _ A @
0x01d7dc…01d970 Dummy {f00=0x0009, f01=0x0190, f02=» * A2 H . A2 H 2 A2 F ! P8 "# # C C ( B @ A3Z VW( @3 t Q W A & A * A 6_4 A 6 A . A A ( B ( B @ P( A ( ( ( B A
0x01d970…01db04 Dummy {f00=0x0009, f01=0x0190, f02=» T P A : P P + W W 0 N A A N C A A W T A L A _ W R _* W. @ T B @ L @ R X4 B L_@ T( &Q L M _ A A B @ C @
0x01db04…01dc98 Dummy {f00=0x0009, f01=0x0190, f02=» W A @ T @ C T W A W0 @ P< B L L ^ W @ T @ P ( B :_4 A A A A ( @ @ ( Y ( ( ( f ( A p 6
0x01dc98…01de2c Dummy {f00=0x0009, f01=0x0190, f02=» P : P $VTOC A W T A A _ W R _* W @ T B @ @ R X4 B _@ T &Q L M _ A A B @ C @
0x01de2c…01dfc0 Dummy {f00=0x0009, f01=0x0190, f02=» W A @ T @ C T W A W @ P B L L ^ W @ T @ P ( B :_4 A A A A ( @ @ ( Y ( ( ( ( A 6
0x01dfc0…01e154 (0, 38) Dummy {f00=0x0009, f01=0x0190, f02=» P : P $VTOC A W T A A _ W R _* W @ T B @ @ R X4 B _@ T &Q L M _ A A B @ C @
0x01e154…01e2e8 Dummy {f00=0x0009, f01=0x0190, f02=» W A @ T @ C T W A W @ P B L L ^ W @ T @ P ( B :_4 A A A A ( @ @ ( Y ( ( ( ( A 6
0x01e2e8…01e47c Dummy {f00=0x0009, f01=0x0190, f02=» P : P $VTOC A W T A A _ W R _* W @ T B @ @ R X4 B _@ T &Q L M _ A A B @ C @
0x01e47c…01e610 Dummy {f00=0x0009, f01=0x0190, f02=» W A @ T @ C T W A W @ P B L L ^ W @ T @ P ( B :_4 A A A A ( @ @ ( Y ( ( ( ( A 6
0x01e610…01e7a4 Dummy {f00=0x0009, f01=0x0190, f02=» P : P $VTOC A W T A A _ W R _* W @ T B @ @ R X4 B _@ T &Q L M _ A A B @ C @
0x01e7a4…01e938 Dummy {f00=0x0009, f01=0x0190, f02=» W A @ T @ C T W A W @ P B L L ^ W @ T @ P ( B :_4 A A A A ( @ @ ( Y ( ( ( ( A 6
0x01e938…01eacc Dummy {f00=0x0009, f01=0x0190, f02=» P : P $VTOC A W T A A _ W R _* W @ T B @ @ R X4 B _@ T &Q L M _ A A B @ C @
0x01eacc…01ec60 Dummy {f00=0x0009, f01=0x0190, f02=» W A @ T @ C T W A W @ P B L L ^ W @ T @ P ( B :_4 A A A A ( @ @ ( Y ( ( ( ( A 6
0x01ec60…01edf4 (0, 39) Dummy {f00=0x000a, f01=0x0190, f02=» P : P $VTOC A W T A A _ W R _* W @ T B @ @ R X4 B _@ T &Q L M _ A A B @ C @
0x01edf4…01ef88 Dummy {f00=0x000a, f01=0x0190, f02=» W A @ T @ C T W A W @ P B L L ^ W @ T @ P ( B :_4 A A A A ( @ @ ( Y ( ( ( ( A 6
0x01ef88…01f11c Dummy {f00=0x000a, f01=0x0190, f02=» P : P $VTOC A W T A A _ W R _* W @ T B @ @ R X4 B _@ T &Q L M _ A A B @ C @
0x01f11c…01f2b0 Dummy {f00=0x000a, f01=0x0190, f02=» W A @ T @ C T W A W @ P B L L ^ W @ T @ P ( B :_4 A A A A ( @ @ ( Y ( ( ( ( A 6
0x01f2b0…01f444 Dummy {f00=0x000a, f01=0x0190, f02=» P : P $VTOC A W T A A _ W R _* W @ T B @ @ R X4 B _@ T &Q L M _ A A B @ C @
0x01f444…01f5d8 Dummy {f00=0x000a, f01=0x0190, f02=» W A @ T @ C T W A W @ P B L L ^ W @ T @ P ( B :_4 A A A A ( @ @ ( Y ( ( ( ( A 6
0x01f5d8…01f76c Dummy {f00=0x000a, f01=0x0190, f02=» P : P $VTOC A W T A A _ W R _* W @ T B @ @ R X4 B _@ T &Q L M _ A A B @ C @
0x01f76c…01f900 Dummy {f00=0x000a, f01=0x0190, f02=» W A @ T @ C T W A W @ P B L L ^ W @ T @ P ( B :_4 A A A A ( @ @ ( Y ( ( ( ( A 6
0x01f900…01fa94 (0, 40) Dummy {f00=0x000a, f01=0x0190, f02=» P : P $VTOC A W T A A _ W R _* W @ T B @ @ R X4 B _@ T &Q L M _ A A B @ C @
0x01fa94…01fc28 Dummy {f00=0x000a, f01=0x0190, f02=» W A @ T @ C T W A W @ P B L L ^ W @ T @ P ( B :_4 A A A A ( @ @ ( Y ( ( ( ( A 6
0x01fc28…01fdbc Dummy {f00=0x000a, f01=0x0190, f02=» P : P $VTOC A W T A A _ W R _* W @ T B @ @ R X4 B _@ T &Q L M _ A A B @ C @
0x01fdbc…01ff50 Dummy {f00=0x000a, f01=0x0190, f02=» W A @ T @ C T W A W @ P B L L ^ W @ T @ P ( B :_4 A A A A ( @ @ ( Y ( ( ( ( A 6
0x01ff50…0200e4 Dummy {f00=0x000a, f01=0x0190, f02=» P : P $VTOC A W T A A _ W R _* W @ T B @ @ R X4 B _@ T &Q L M _ A A B @ C @
0x0200e4…020278 Dummy {f00=0x000a, f01=0x0190, f02=» W A N " N M:PROCUF W 0 V T W 4 P ) Y : ( R @W j W | H W (" . _ 4 P ' (D R W W W WxW P W 4 4 P _ V ~T j ( R * ) ' ( R W W W W$W P W END 4
0x020278…02040c Dummy {f00=0x000a, f01=0x0190, f02=»)` 8W W 2 W 2 O : 8_ )l 8_. PROCEDURE IN PROCEDURE DEFINITION z ) W r ) . W V ~R ) - W Wx ) * W| V x =Td ) . WZ V ~ QP ) * WT 5 V x ,X` T0WV V ~ P ~ V r ( P 5
0x02040c…0205a0 Dummy {f00=0x000a, f01=0x0190, f02=» W v H % Y j P ) Y j # * R W W W WlW P W 4 H ( * R FWj_ )( )l ~ h J ( I +6 R W2_ _ _ ~ 8 *| + 8 )( END MISSING 8 )( + ~ H j 4 ( % Y _
0x0205a0…020734 (0, 41) Dummy {f00=0x000a, f01=0x0190, f02=» + , - W 4 4 ,0 . _ Y V x ,D R WJW6 =P _ ,X R W ,b R W,W ,n R W ,x R W W _ , . W + +x T" , . W + ! + _* W , R W , . W _ ( , R W _ _ _ *| +j V x =P - R W W8_ - R W - R
0x020734…0208c8 Dummy {f00=0x000a, f01=0x0190, f02=» 2 , U O O : W p z ~ 4 T V p $T - R *P - - _2 - V p 4 P : V t V vP % W t W p W ~ W .< R W$ .F R W&W$ =P W ~ V ~Z( 5 _. V ~Q V p W x V p , P P P V
0x0208c8…020a5c Dummy {f00=0x000a, f01=0x0190, f02=» T W P HWr A A ! 9A A A @ ( t <W: & @ Q .X T @ x A P _ N ?a A A A N A N ! A " A @ P A @ @ Z O W O O T _ N T: @
0x020a5c…020bf0 Dummy {f00=0x000a, f01=0x0190, f02=» @ 87P P D b 8 :EOVP ZLW$ $ A v A _r P W R W N t N T T @ NOT ( Jp T q r 9D 9B W 9E A A _r p <A B Y A
0x020bf0…020d84 Dummy {f00=0x000a, f01=0x0190, f02=»ADDRESS : DISK I/O ERROR MAG TAPE I/O ERROR END OF RESTORING UNKNOWN ADDRESS COPIED DISK VOLUME LABEL : A P _ N ?a A A A N A N ! A " A @ DATE OF COPY : 01 01 78 WRITING THE VOLUME LABEL ? . CO
0x020d84…020f18 Dummy {f00=0x000a, f01=0x0190, f02=» X : P***DAY EQU 32 CURRENT DAY, 2 ASCII CHAR 2 P***HOR EQU 34 HOURS, ^ F @ P***MIN EQU 36 MINUTES ^ BINARY VALUES | 2 P***SEC EQU 38 SECONDS ^ 2 P***FIT EQU
0x020f18…0210ac Dummy {f00=0x000a, f01=0x0190, f02=» | P***DMP EQU 48 * PCVEDP EQU 50 DADCT-POOL $ P EJECT R P* h * P* CCI WORK AREA EQUIVALENCES r P* P* ROOT WORK AREA P* P* NOTE '**'='W:' L P**DFRE EQU 0
0x0210ac…021240 Dummy {f00=0x000a, f01=0x0190, f02=» J P**SFRE EQU 2 ABSOLUTE SECTOR ADDR OF THE SECTOR WHERE F P* THE 1ST FREE ENTRY OF CAT OR DIR IS R 6 PW:DEC1 EQU 4 DISK ECB1 , 6 WORDS 6 P**DEC2 EQU W:DEC1+12 DISK ECB2 , 6 WORDS
0x021240…0213d4 (0, 42) Opaque[0x194]
0x0213d4…021568 # DirEnt {nam=»PRDUMP«, typ=»LM«, f00=0x0000, f01=0x0000, f02=0x0158, f03=0x0000}
0x0213d4…021568 IdxSect {
0x0213d4…021568 f00 = 0x000a // 0x213d4 @0x0
0x0213d4…021568 f01 = 0x0006 // 0x213d6 @0x2
0x0213d4…021568 gno = [ // 0x213d8 @0x4
0x0213d4…021568 [0x00]: C0x000a.0x3.0
0x0213d4…021568 [0x01]: C0x000b.0x0.0
0x0213d4…021568 [0x02]: C0x000b.0x1.0
0x0213d4…021568 ]
0x0213d4…021568 }
0x021568…0216fc Dummy {f00=0x000a, f01=0x0190, f02=» & A @ x D A D A D A D A @ @ @ @ W" @ T @ A A _< @ A @ A @ @ @ @ W $ | @ A A < @ FDT T T W R T T @
0x0216fc…021890 Dummy {f00=0x000a, f01=0x0190, f02=» @ _ @ @ T @ P ^ A @ z @ Pl @ x A x * @ @ @ T A @ |P @ ~T ^ @ A @ A @ T @ @ P ^ @ @ X | ` ^ D)hH P D >~ `" f >~ $ d p 4d @u { H
0x021890…021a24 Dummy {f00=0x000a, f01=0x0190, f02=»AST AREAEN REVLOP N DMP1 RET1 h NDLOC1 LOCEOF RET2 EXIT $ LOOP CASTST yERR yEOF DMP25 DMP3 > RET3 & RET6 8 DLLOOP Z JMP2 v RET4 OFLOP1 JMP1 RET5 , NUMEOF EOF1 OFLTST OFLOP2 $ C C ( : $ - -
0x021a24…021bb8 Dummy {f00=0x000a, f01=0x0190, f02=» @ 4 Y : T @ " p 0 5 0 P R D U M P REL 10.0 5 ==================== K 0 PRINTOUT OF MEMORY DUMP FROM F L E X I B L E - DISC
0x021bb8…021d4c Dummy {f00=0x000a, f01=0x0190, f02=»E EDITDT EDLOOP DATFLD SLASK CVALOP TIMFLD DAYLOP > TITWRT f NEWMOV Z TXTCAS CASFLX R TITECB TITLNO TITTAB TITLOP t PRTR TXT1 TXT6 TXT7 TXT11 " TXT9 p TXT10 9 $ Y :0123456789ABCDEF
0x021d4c…021ee0 Dummy {f00=0x000a, f01=0x0190, f02=» - f ( : r P XLOOP HEXDIG LINE t NILOC WXLOOP WXL001 ( WALOOP < WADOT J WASCR L LINECB f PRTFC @ TKT D E ~ ^ @ j A j T l( :
0x021ee0…022074 (0, 43) Dummy {f00=0x000b, f01=0x0190, f02=» C A S E T T E ADDPAG @ NEWMOV 4 TXTCAS PAGTXT x PAGENO j PNOFLD PAGECB l SPAECB PRTR SPATXT ; ; ; ; ; ; R Q @ - WL @ - A R* X R X _ Q @ X" A T - _0 D - Z
0x022074…022208 Dummy {f00=0x000b, f01=0x0190, f02=» J 6 @ NOP YE , @ S P _8 A ~ A : $ J 6 @ NOT@ A A A A @ |T A @ ~P A A zW YE l @ S v A z A x A z @ z @ U d WJ @ z _ T J J
0x022208…02239c Dummy {f00=0x000b, f01=0x0190, f02=» !00T !00T @ ~P @ @ !00P !00P @ W x S @ 9H @ @ :H @ $Wf S @ WR S @ 9H @ @ :H @ $W4 S R R R R W r @ x A x A A A A A A A A A A C C ( @ $
0x02239c…022530 Dummy {f00=0x000b, f01=0x0190, f02=» C C ( : I : @ FDP 8 ( J 6 @ YE : @ S D A G T :R Q Z [ Z [ : R W U Z [ : A L 0R 4V 0 Z [ : A A " L 0R,
0x022530…0226c4 Dummy {f00=0x000b, f01=0x0190, f02=» CASETTE: E1; FLOPPY: F4 - F7; ANSWER 00000-FFFFF D f * D ANSWER NOT 11 CHARACTERS &IF AREA 1 ANSWER CAN NOT BE ONLY "CR" 6:TH CHARACTER NOT A HYPHEN "-" ,IF ONE SIDE ENDADR MUST BE LESS THEN 0FFFF .IF ONE SIDE STARTADR MUST BE LESS
0x0226c4…022858 Dummy {f00=0x000b, f01=0x0190, f02=»F STARTADR NOT HEXADECIMAL ENDADR NOT HEXADECIMAL ENDADR LESS THEN STARTADR : R W 6 0PRDUMP REL 10.0 DATE 80.03.14 12NC=8701 359 41000 # SELECTIO
0x022858…0229ec Dummy {f00=0x000b, f01=0x0190, f02=» SIDE1 (0-63K) ? INSERTED SIDE2 ? A ( A * @ A 8 , ! T ( @ * 8 , @ * P 8 , @ ( A ( A * @ FDP 1 ( V , @ (& T ( n @ * T 4 -
0x0229ec…022b80 Dummy {f00=0x000b, f01=0x0190, f02=» Z , : HEX 0END OF PRDUMP 0FINIS. ( 0THERE WAS BLOCKS/SECTORS IN DUMP. 0XX ERROR STATUS WORD: 0 0INPUT-DEVICE MUST BE CASSETTE OR FLEXIBLE-DISC NOT OPERABLE D 0REQUESTE
0x022b80…022d14 (0, 44) Dummy {f00=0x000b, f01=0x0190, f02=» FDP @ C ( A @ T A A @ FDT THW RB _^ @ FDP @ C ( A @ T A A W W : @ T` B @ FDT P W V A ( @ C @ FDP ( @ A @
0x022d14…022ea8 Dummy {f00=0x000b, f01=0x0190, f02=» ( : J 6 @ ? T n_< D @ T$ D - - - D - : D :_zE1TK F4FD F5FD F6FD F7FD FILECODE: ASSETTE OR FLEXIBLE-DISC NOT OPERABLE D 0REQUESTE
0x022ea8…02303c Dummy {f00=0x000b, f01=0x0190, f02=» FDP @ C ( A @ T A A @ FDT T W R _^ @ ( A @ T A A W W : @ T B @ FDT P W V A ( @ C @ FDP ( @ A @
0x02303c…0231d0 Dummy {f00=0x000b, f01=0x0190, f02=»ASKFL QE1 QF4 QF5 QF6 QF7 ECBFC ECBBA ECBRL ECBEL ECBRC ECBCW1 ECBCW2 BUFF1 INLOOP INLAST SECTOR NILOC1 CTEST1 INEOF yOK1 NILOC2 INRTN * LASTBU EOFCND GETRTN CTEST2 ` WAIT j ERR2 d NILOC3 REWRTN
0x0231d0…023364 Dummy {f00=0x000b, f01=0x0190, f02=»1 LINK1 BUFF2 BUF2 LINK2 T A A @ FDT T W R _^ @ ( A @ T A A W W : @ T B @ FDT P W V A ( @ C @ FDP ( @ A @
0x023364…0234f8 Dummy {f00=0x000b, f01=0x0190, f02=»CTER p P SLL A1,8 ( P LC A1,SELBUF+8 GET THIRD CHARACTER ( P LC A2,SELBUF+9 GET FOURTH CHARACTER J P SLL A2,8 v ( P LC A2,SELBUF+/A GET FIFTH CHARACTER 4 P CF A14,HXBIN2 CONVERSION FROM STRING TO BINARY & P RF SERR9 ERROR RETURN FROM
0x0234f8…02368c Dummy {f00=0x000b, f01=0x018e, f02=» LD A1,0,A12 GET FIRST PART OF START ADDRESS . P LD A2,4,A12 GET FIRST PART OF END ADDRESS 4 " P CF A14,ADCMP1 COMPARE ADDRESS f 0 P LD A1,2,A12 GET SECOND PART OFSTART ADDRESS , P LD A2,6,A12 GET SECOND OF END ADDRESS $ P CF A14,ADCMP2 COMPARE A
0x02368c…023820 Dummy {f00=0x000b, f01=0x0190, f02=» 0 P* INCREMENT POINTER TO ADDRESS-FIELD TABLE, ( P* AND GO TO SELECTION OF NEXT AREA. 8 P* d P LD A1,TABREF n P ADK A1,8 P ST A1,TABREF P ABL SELLOP P EJECT P* . P* SUBROUTINE TO PRINT A LINE TO TELL WHAT &
0x023820…0239b4 (0, 45) Opaque[0x194]
0x0239b4…023b48 # DirEnt {nam=»DMPGEN«, typ=»LM«, f00=0x0000, f01=0x0000, f02=0x0170, f03=0x0000}
0x0239b4…023b48 IdxSect {
0x0239b4…023b48 f00 = 0x000b // 0x239b4 @0x0
0x0239b4…023b48 f01 = 0x0002 // 0x239b6 @0x2
0x0239b4…023b48 gno = [ // 0x239b8 @0x4
0x0239b4…023b48 [0x00]: C0x000b.0x2.0
0x0239b4…023b48 ]
0x0239b4…023b48 }
0x023b48…023cdc Dummy {f00=0x000b, f01=0x0190, f02=» ( d ( d ( d ( d ( d( d ( ( B T `T : f 0 T T B P D D W* B P 0 0
0x023cdc…023e70 Dummy {f00=0x000b, f01=0x0190, f02=» 4c @S{ D d 2Z $"z y B % y D Dbf d j 0TK ERROR 6 0DMPGEN REL 10.0 DATE 80.03.14 12NC=8701 361 41000 WRITE PROTECTED NOT OPERABLE STATUS WORD: $ A. A
0x023e70…024004 Dummy {f00=0x000b, f01=0x0190, f02=» V @ W @ A @ @ UU A @ T P A x _ W _ K _ A K : T `T : B P W B UU
0x024004…024198 Dummy {f00=0x000b, f01=0x018c, f02=» PDUMP80 SST A3,CHCR * P RB(NA) DUMP60 TRY OTR IF NOT ACCEPTED " P P & PERRORD LDK A1,/02 IND ERROR ON SOP X P RB DUMP10 P P* ( P* EXCOM SUBR TO EXECUTE CHCR COMMAND P* P PEXCOM CIO A1,1,CHCR P SST A3,
0x024198…02432c Dummy {f00=0x000b, f01=0x2008, f02=» DUMP80 SST A3,CHCR * P RB(NA) DUMP60 TRY OTR IF NOT ACCEPTED " P P & PERRORD LDK A1,/02 IND ERROR ON SOP X P RB DUMP10 P P* ( P* EXCOM SUBR TO EXECUTE CHCR COMMAND P* P PEXCOM CIO A1,1,CHCR P SST A3,
0x02432c…0244c0 Dummy {f00=0x000b, f01=0x018e, f02=»YS SET TO 1 BY DRIVER DRTC02 TO INDICATE I/O-ERROR, AND @ P* BITS 2-15 ARE THE EXACT BIT-CONFIGURATION RETURNED BY THE @ P* CASSETTE HARDWARE. P* P EJECT P* > P* CASSETTE SOFTWARE-STATUS BITS, RETURNED BY DRIVER DRTC02 P*
0x0244c0…024654 (0, 46) Opaque[0x194]
0x024654…0247e8 # DirEnt {nam=»XRF «, typ=»LM«, f00=0x0000, f01=0x0000, f02=0x0178, f03=0x0000}
0x024654…0247e8 IdxSect {
0x024654…0247e8 f00 = 0x000b // 0x24654 @0x0
0x024654…0247e8 f01 = 0x0002 // 0x24656 @0x2
0x024654…0247e8 gno = [ // 0x24658 @0x4
0x024654…0247e8 [0x00]: C0x000b.0x3.0
0x024654…0247e8 ]
0x024654…0247e8 }
0x0247e8…02497c Dummy {f00=0x000b, f01=0x0190, f02=» 8 8 P )I w x b # g $ ^ : 9 i $ 7 f w |4r tV u ' qC 5 * zuqV $ ' > P ZD o c r P| sV i % 9Zj Q > - D $ ' 4` 1P -8 T r tB l`Tg t z ^ lFZF H 2 Z j z
0x02497c…024b10 Dummy {f00=0x000b, f01=0x0190, f02=» RLINES INPUT. 1XRF 10.0 CROSS REFERENCE LISTING OF MODULE: &&&&&& DATE: YYMMDD PAGE: 0 SYMBOL DEF REFERENCES NO MORE SPACE AVAILABLE 0RESTARTED AFTER MEMORY OVERFLOW v P jW ( R ( @ R$ # " P
0x024b10…024ca4 Dummy {f00=0x000b, f01=0x0190, f02=»' X )R X*_ (" X, E PP _ D # P : A @ ( ? (T , ) , ( T ( )T ) P 4 @ ( BOT ( OLP @ : Q A > @ ( *P H ( CT A > ( CT A > : 9a : @ x! RP$ @ A9Q A1R Q
0x024ca4…024e38 Dummy {f00=0x000b, f01=0x0190, f02=»_( W @ 7 @ 7 W 7 : V * J R K W _$ _4 !A ZH !Z YN R ) 0 !' X` ! P !, P !+ P !- P !0 Z< !: YB_8 [ : . @ D :a A : A D 1 ( @ !
0x024e38…024fcc Dummy {f00=0x000b, f01=0x0190, f02=» : @ >Q W ! X 0 ! Xf_ !' T ! Xx !, X" !+ X( !- X. 0_ F( C R8Q> F l C ( C D E ^ _X 0 A " : R / *^ * !0 P P ' Y$ : A A (
0x024fcc…025160 Dummy {f00=0x000b, f01=0x0190, f02=» T W& *** . R Q + G Tl H r @ < 0 A @ z A $ F( @ P A H " A J F( A H C ( @ x' U A x_ gZ H_ ( P !+ P !- P !0 Z< !: YB_8 [ : . @ D :a A : A D 1 ( @ !
0x025160…0252f4 (0, 47) Opaque[0x194]
0x0252f4…025488 # DirEnt {nam=»DMPGEF«, typ=»LM«, f00=0x0000, f01=0x0000, f02=0x0180, f03=0x0000}
0x0252f4…025488 IdxSect {
0x0252f4…025488 f00 = 0x000c // 0x252f4 @0x0
0x0252f4…025488 f01 = 0x0002 // 0x252f6 @0x2
0x0252f4…025488 gno = [ // 0x252f8 @0x4
0x0252f4…025488 [0x00]: C0x000c.0x0.0
0x0252f4…025488 ]
0x0252f4…025488 }
0x025488…02561c Dummy {f00=0x000c, f01=0x0190, f02=» L ( ( ( J @ ? T ^_< D @ T D -W D $_d ( @ " Pf $ @ ( @ 4 ( 4 @ " P ( 4 ( $ C C
0x02561c…0257b0 Dummy {f00=0x000c, f01=0x0190, f02=» $ ( ( : FLOPPY: FD1 - FD4 n $ @ 4Z wL a [ ? d d% L & "~ T &b CCn 1 d J < R:R: ` 0FL ERROR 6 0DMPGEF REL 10.0 DATE 80.03.14 12NC=8701 376
0x0257b0…025944 Dummy {f00=0x000c, f01=0x0190, f02=» l ~ UU ' &P _ A. A I. L A 9 Z F. " :D # P& W W t W t W W W W W Th T TRWH ) T _ r v A T L :L W A 8B Tt A L : @ @
0x025944…025ad8 Dummy {f00=0x000c, f01=0x0190, f02=» &b CCn 1 d J < R:R: ` 0FL ERROR 6 0DMPGEF REL 10.0 DATE 80.03.14 12NC=8701 376
0x025ad8…025c6c Dummy {f00=0x000c, f01=0x018e, f02=»NUMBER (LEAST SIGNIFICANT BIT) P* BIT 10: RETRY & P* BIT 11: PROGRAM ERROR > P* BIT 12: INCORRECT LENGTH ^ P* BIT 13: DATA FAULT P* BIT 14: ZERO P* BIT 15: NOT OPERABLE DRIVE P* P* H P*SIGNIFICANT BITS IN STATUS RE
0x025c6c…025e00 Dummy {f00=0x000c, f01=0x018e, f02=» 6 PDUMPFD EQU * FIRST BYTE TO BE LOADED BY BOOTSTRAP * P DATA ' ' UNUSED DISC-FORMAT BYTES > P l PEXEC EQU * START ADDRESS t P LDR A13,P PROGRAM POINTER PBASE EQU * 4 P SUKL A13,BASE-DUMPFD A13:= DUMPFD START ADDRESS P P
0x025e00…025f94 (0, 48) Opaque[0x194]
0x025f94…026128 # DirEnt {nam=»CPLGEN«, typ=»LM«, f00=0x0000, f01=0x0000, f02=0x0188, f03=0x0000}
0x025f94…026128 IdxSect {
0x025f94…026128 f00 = 0x000c // 0x25f94 @0x0
0x025f94…026128 f01 = 0x0002 // 0x25f96 @0x2
0x025f94…026128 gno = [ // 0x25f98 @0x4
0x025f94…026128 [0x00]: C0x000c.0x1.0
0x025f94…026128 ]
0x025f94…026128 }
0x026128…0262bc Dummy {f00=0x000c, f01=0x0190, f02=» L f N( N ( N Z( N ( N( B T `T : ~ f ~ r f r Z( ( $ C C ( : 9 $ Y :0123456789ABCDEF ^ lFZF H 2 Z j z
0x0262bc…026450 Dummy {f00=0x000c, f01=0x0190, f02=» 0TK ERROR 4 0CPLGEN REL 10.0 DATE 80.03.14 12NC=8701 363 41000 STATUS WORD: [ A P UU x ' &P _ B A. R:R: ` T l` % l` ;d# A I T P^ 1 I T: P 0V W XB X"9A_
0x026450…0265e4 Dummy {f00=0x000c, f01=0x0190, f02=» & P* CASSETTE STATUS BITS. GENERAL. P* . 6 P* HARDWARE STATUS IS RETURNED BY DRIVER DRTC02 IF 8 H P* AT LEAST ONE OF THE STATUS BITS 6, 12-15, RETURNED BY THE CASSETTE r 8 P* HARDWARE, IS SET TO 1, THUS INDICATING I/O-ERROR, : P* ELSE I/O IS
0x0265e4…026778 Dummy {f00=0x000c, f01=0x0190, f02=»S, r P* RETURNED BY DRIVER DRTC02 P* . P* BIT 0: 1 8 P* BIT 1: ZERO L P* BIT 2: BOT MISSING b P* BIT 3: TAPE-MARK DETECTED P* BIT 4: NO DATA/ERASED P* BIT 5: BOT/EOT-HOLE P* BIT 6: WRITE PROTECTED P* BI
0x026778…02690c Dummy {f00=0x000c, f01=0x018e, f02=»11: ZERO P* BIT 12: INCORRECT LENGTH P* BIT 13: CRC-ERROR 2 P* BIT 14: THROUGHPUT ERROR N P* BIT 15: NOT OPERABLE p P* P* @ P* IN HARDWARE STATUS,RETURNED BY DRIVER DRTC02, BIT ZERO IS B P* ALWAYS SET TO 1 BY DRIVER DRTC02
0x02690c…026aa0 Dummy {f00=0x000c, f01=0x0190, f02=» P EJECT P* > P* CASSETTE SOFTWARE-STATUS BITS, RETURNED BY DRIVER DRTC02 P* b P* BIT 0: ZERO l P* BIT 1: ZERO P* BIT 2: ZERO P* BIT 3: ZERO P* BIT 4: ZERO P* BIT 5: ZERO P* BIT 6: ZERO P*
0x026aa0…026c34 (0, 49) Opaque[0x194]
0x026c34…026dc8 # DirEnt {nam=»SUP800«, typ=»LM«, f00=0x0000, f01=0x0000, f02=0x0190, f03=0x0000}
0x026c34…026dc8 IdxSect {
0x026c34…026dc8 f00 = 0x000c // 0x26c34 @0x0
0x026c34…026dc8 f01 = 0x0012 // 0x26c36 @0x2
0x026c34…026dc8 gno = [ // 0x26c38 @0x4
0x026c34…026dc8 [0x00]: C0x000c.0x2.0
0x026c34…026dc8 [0x01]: C0x000c.0x3.0
0x026c34…026dc8 [0x02]: C0x000d.0x0.0
0x026c34…026dc8 [0x03]: C0x000d.0x1.0
0x026c34…026dc8 [0x04]: C0x000d.0x2.0
0x026c34…026dc8 [0x05]: C0x000d.0x3.0
0x026c34…026dc8 [0x06]: C0x000e.0x0.0
0x026c34…026dc8 [0x07]: C0x000e.0x1.0
0x026c34…026dc8 [0x08]: C0x000e.0x2.0
0x026c34…026dc8 ]
0x026c34…026dc8 }
0x026dc8…026f5c Dummy {f00=0x000c, f01=0x0190, f02=»VT ? 2 :7 &| _ <
0x026f5c…0270f0 Dummy {f00=0x000c, f01=0x0190, f02=»
0x0270f0…027284 Dummy {f00=0x000c, f01=0x0190, f02=» VT$ l ~ /^1*> B<! 0!p"T=B<L !$/^ AZDM9 MC= HD8 WM9`RY:tRD:tAS; AB= PS=,RS=z & TY J& LP ( DK LP
0x027284…027418 Dummy {f00=0x000c, f01=0x0190, f02=» DK ) Ef T ? ? ? ? ? ? ? ' ? ? ? ? ? ? ? ) Z , Z b
0x027418…0275ac Dummy {f00=0x000c, f01=0x0190, f02=» Z L f : Z r f p ? ? ? ? ? ? ? R ? ? ? ? ? ? ? F R ? ? ? ? ? ? ? I ? ? ? ?
0x0275ac…027740 Dummy {f00=0x000c, f01=0x0190, f02=» r & L 6 6
0x027740…0278d4 (0, 50) Dummy {f00=0x000c, f01=0x0190, f02=» 6 6 6 6
0x0278d4…027a68 Dummy {f00=0x000c, f01=0x0190, f02=»
[…0x4…]
0x0280b8…02824c Dummy {f00=0x000c, f01=0x0190, f02=» 6
0x02824c…0283e0 Dummy {f00=0x000c, f01=0x0190, f02=»
0x0283e0…028574 (0, 51) Dummy {f00=0x000d, f01=0x0190, f02=»
[…0x3…]
0x028a30…028bc4 Dummy {f00=0x000d, f01=0x0190, f02=» L
0x028bc4…028d58 Dummy {f00=0x000d, f01=0x0190, f02=»
[…0x1…]
0x028eec…029080 Dummy {f00=0x000d, f01=0x0190, f02=» @ _ ? ? ? ? ? ? ? A R2 @ A A R$ A A R A A R A @ 8 > > > > > > > > ? ? ? ? ? ? ? U ^ ( H ( P < _ Q
0x029080…029214 (0, 52) Dummy {f00=0x000d, f01=0x0190, f02=»% _ @ A ^ 9j ?R > > > > > > > A @ E E E E E E > > a @ E @ ? ? > P P Q P ! P @ ! ? @ P W $ < @ @ 9a:a R0 Q Q" ?A <P @
0x029214…0293a8 Dummy {f00=0x000d, f01=0x0190, f02=» @ ;a=a R W* @ =a Z ;a RP ) i " E $ @ ;a=a R @ =a V ;A , P = - - _F @" L < 0 @ @ PR 0=a @ ?a RX @ ?a VN=A 0 ( P>P< , T T 1W 1W T )W )W ( , _ C
0x0293a8…02953c Dummy {f00=0x000d, f01=0x0190, f02=»W U, @" x # W @" A" ,P$ _: @" @" @" @" @" @" _ A" A" A" A" A" A" B A$ A" B :a Y B R A" _ @" # W4 @" A" ,Xp _ < @ A$ A$ A$ A$ A$ A$ A$ $"
0x02953c…0296d0 Dummy {f00=0x000d, f01=0x0190, f02=» x @" 8R P =A_ %_ XJ _ P0 @ !@T @ @ R < E A A ^ 9j =Q > > > > > > > > P @ !@ &l @ P @ X0 , &l A _< U` A% @ , L ? ? , L L L L L L ? ? ? ? ? ? ?
0x0296d0…029864 Dummy {f00=0x000d, f01=0x0190, f02=» ? A > @ P ,V$ A % @ 9 % T A T @ &z ? ? >_ ? ? ? ? ? ? ? Q _ ^ ( H & W '~ W ' X I I R P8 X B$P B*T Y Y W x Y Y $ 0T W W ,^ X ? ? ? ? ? ? ? '0 - X #?
0x029864…0299f8 Dummy {f00=0x000d, f01=0x0190, f02=» ? ? ? ? ' - ? ? ? ? ? ? ? ' - (@_~ + X R Y _ X D $! TR ? ? ? ? ? ? ? ( . 8 M ? ? ? ? ? ? ? (> - % > > > > > > > > ? ? ? ? ? ? ? (j . P X - - ( * 8 TRT X + + ? ? + Pl
0x0299f8…029b8c Dummy {f00=0x000d, f01=0x0190, f02=»B$P B*T" Y 0 Y Y X Q Y _ X X X U 5 X E _ X 4 Y 5 X 4 Y ! 1P, 0P +P Q Q W W Q Q R P Q 5 Y ( ? ? ? ? ? ? ? ) . Qv ) * " PF X Q< X P P ? ? ? ? ? ? ? **
0x029b8c…029d20 Dummy {f00=0x000d, f01=0x0190, f02=» - Y Y X X T ? ? ? ? ? ? ? * - > > > > > > > > ? @ ? > X B A* B (@ $ X X W W $ # C C P L L m A , DKP L X X L ! X L P L @ _ C C # $ _R _ _ _
0x029d20…029eb4 (0, 53) Dummy {f00=0x000d, f01=0x0190, f02=» R X + ! X Y T T Y Y Y Y Y U U X @ _ X X X X P,~, , -0, P $ Y Y Y Y > * Y 8 TPP" X R 8 TYX WH H, Y _8 X X: X R X ( _$ _* $ XtRX P Y _ A-& X
0x029eb4…02a048 Dummy {f00=0x000d, f01=0x0190, f02=» A-& ZrP Y _8 _< _@ ! * ! X M A- T S * X X B A- P X $ ,^_" B W B W A W I W J X %?W X %? A.4 A.8 > > > > > > > .6 V <a W X ' ?A q A. > > > > > > > .
0x02a048…02a1dc Dummy {f00=0x000d, f01=0x0190, f02=»% T> L % T6 L % T. L %?P& P" L % - A/-M T % T L T 4 L R % _X R _ 1 @ M " L '? L U "T 6 WP T 7 WF T 6 / 0`/ / 0`0`/ / / / 0`/ / 2v W* 3 W" 2v W 5 L :AR| M W M M 4 L T
0x02a1dc…02a370 Dummy {f00=0x000d, f01=0x0190, f02=» L 9JR@ P P T 7 5 U P T Q P P W Q P T@(@ L D " Q L Q Q L Q L ( L ! TNW P T P P W Q L ' - P p Y "(@ P P $ M 0r P ( M P Q P P P W P T Q
0x02a370…02a504 Dummy {f00=0x000d, f01=0x0190, f02=» M (@ L 2 7 T R Q @ ] 7 > 9C 9C > ^ U (@ L T U U U M L M L M M L 4 0r L 7 ! :c:A 7 L T V P T"W L >F 7 L & 7 2v M 4 1 M L M L " P M 2 0r M L M
0x02a504…02a698 Dummy {f00=0x000d, f01=0x0190, f02=»! XfWn L M L M M 3 0r L :c:A L D V D M L ! T*_ L < 7 < R M M "W 3 M 4 1 L E M L "! 7 L 2 L T L P L D Q 4( M 2 2 L L $:BV W $:AV M " M 7j L L $ M 0 D L U M "
0x02a698…02a82c Dummy {f00=0x000d, f01=0x0190, f02=» L L R $ 9 _ R $ 9 M , L M M M M M ( M ( M 0 M 0 L D L Z L L *R L * L P( ' P 5 R 5 _ T 5 M , M L L , U 7 L 7 L U 5 M 2 2 L M $ L M & L L I P0% P L X =h
0x02a82c…02a9c0 Dummy {f00=0x000d, f01=0x0190, f02=» L . P M . 6 M 2 2 L U 6 M 2 2 L L L & ) L $ I L M L L U M 7 @ M L M M M W L 7 @ M M ( L P0W" M L 7 @ M ( L U 7. M 2 2 L L ( E L % E L E L E M
0x02a9c0…02ab54 (0, 54) Dummy {f00=0x000d, f01=0x0190, f02=» L L ? ? ? ? ? ? ? M.A A ? 4 R W 7 @ Q 8 8 8 8 8 ? 7 5 8 ( "^ 9 ( "^ 5 9 $ @9 b 4T W j b H bP H d _ A8 8 A? 5 T6 @? P ? 8 8 8 8 8 @? A? A8 $ 5 4 X _8 8
0x02ab54…02ace8 Dummy {f00=0x000d, f01=0x0190, f02=» L . P M . 6 M 2 5 8 @l @R 8 P @l - _ 8 5 @l @R @l @R* :a;a 8 :A ;A > 8 T :> 0P :TY _ 1 X 1 9 :cW8 9 :^ X W* 8 A:^ T A:n :j(@( * + : 0 :R - Y
0x02ace8…02ae7c Dummy {f00=0x000d, f01=0x0190, f02=»! R V Y A; 8 TKP Y LPP MTP Y Y T T Y Y U U 0!? 5T W 1 Q TKP MTT Y P ; Y (@ 8 P Q 1 8 + X X ? ? ? ? ? ? ? ; .:_ 5 @l 8 @ l Q mP P lT Z 8 W P l
0x02ae7c…02b010 Dummy {f00=0x000d, f01=0x0190, f02=» L 0AB CD ADDR @ 9a:a;a R R A<| <~ A? _ $ _ P A @? P$ @<| = ^ ] ] @<~ _ A? $ = <0 A _ = @ 0 9U A<B <F V <2 ( "^ = = @ @ A @ !? T A ? _* 5 @? 8 @ A
0x02b010…02b1a4 Dummy {f00=0x000d, f01=0x0190, f02=» R: P @l R( > ( "^ > ^ @ T = ( "^ 8 8 = I/0 ERROR 5> W 1 1 A9 A? A? > A> A9 9 V 9 , PP , X QD V > Y , V > Z H @? P : > ` : 9 I V _* A
0x02b1a4…02b338 Dummy {f00=0x000d, f01=0x0190, f02=» A A A A? A? A? a ?T @ ? ? > P :b" Q P T4 P Q Q @ @ @ @ Y Y Y Y P AAX ( Qh Q P( @ @ @ @ Y Y Y Y " A "; V W # @ A A? @ ? ? > Q
0x02b338…02b4cc Dummy {f00=0x000d, f01=0x0190, f02=» : 8 P R( A@ A@ A@ A@ A@ A@ A@ @ ,:j Z ( I ^ - ^ *@9J M @ @@ @@ @@ @@ @@ @@ @@ @ ? ? ? ? ? ? ? @ $ < @ B @ 9a:a R @ @AX @ !` # !` C "! PX @ l Q mP
0x02b4cc…02b660 Dummy {f00=0x000d, f01=0x0190, f02=»X( DD _Z :EOS :EOF + + +v @ !? ?R _ BT * ' !? 0X A "! X6 @ l Q mP ^L_ P nXP P lR :AV L D I I "R (@(@ ^ :j >Z ^ @ P _ A ! M (@ M M M B B M M # C C @
0x02b660…02b7f4 (0, 55) Dummy {f00=0x000e, f01=0x0190, f02=» Y # C B + B + $? D P R B0 P R D B0P P| P Pv P $P &PN "P< /P :P ;P <P =P >P ?P 1 B0 8 B0Wv DPW B*W D W B$ W W DrW Wx 8 MTPp DYPj X T Y $ WZ
0x02b7f4…02b988 Dummy {f00=0x000e, f01=0x0190, f02=» DYXN _Z :EOS :EOF + + +v ; / = ? : > < . - ' ( 0 $ , G< X AEH X G B Y % G L G M L F B P + X P P P P + B P P 4 ^ :A HEJW W M W B
0x02b988…02bb1c Dummy {f00=0x000e, f01=0x0190, f02=» . P* - P$ L P :g: L :C ? W L Q W L M L M E.RX EHQR E:R M M M M M W2 M M M M M L T y W _ X L " * AGe- AG} L " X ! Y M T(% T$ ! R L W L A T M
0x02bb1c…02bcb0 Dummy {f00=0x000e, f01=0x0190, f02=»G< E& Y B AE X P PD P@ P< P8 P4 Ix !K B T B @E( ) @E* I @E, I Ix B P,9 Q$ B < R :A R V Q AE AE W Ix V AE AE AE X P< P P4 P M @E M M !K !I P @ W M @E M
0x02bcb0…02be44 Dummy {f00=0x000e, f01=0x0190, f02=» AE H M @EH + X ? ? ? ? ? ? ? I . P @E @E L T8 L Pj M I ? ? ? ? ? ? ? . X m M M WR L P2 M l J ? ? ? ? ? ? ? - X M M W JF ? ? ? ? ? ? ? - @EH - =b%0 X $ L <B<j P L *
0x02be44…02bfd8 Dummy {f00=0x000e, f01=0x0190, f02=» P W` X : P ; P W L P< M F$ < P > P W$ L P M @ ~ F X X U K` * M + . M @E 7P < $ <C ! 9 4 @E 9C @E : 4 M E( M !I Ix 4 ; % / : ! - .
0x02bfd8…02c16c Dummy {f00=0x000e, f01=0x0190, f02=» O$ B Y ! O$ L S B L ? ! P ! T< B T B Sx M 9A DK L P$:a P V` P :A M W ! T W M K K + 4 Y T T W _ X $ P W M ! B < V < + L :LR :l" HK < B Y B Y L ! P L ?a M
0x02c16c…02c300 Dummy {f00=0x000e, f01=0x0190, f02=» MWT ! X ! T @W" ! T W ! T W @ L X U X Y X Y X L P M M M W M M M W _ ? * AN N " :A AN * AN L " X I [ ! T, L :EV W L L q r B M T X
0x02c300…02c494 (0, 56) Dummy {f00=0x000e, f01=0x0190, f02=»P4 Q| !Q B T B @LB ) @LD I @LF I Q| AL0 M AL. !QF" T @ AL. !QF" T M L ]*W M L ZB Q| B P ! T B R AL, S [hU Q| h AL( AL4 AL2 !Q !Q X ! P !P W !Q P M L Z$ Q| Y AL6 AL,P L AL( @L(
0x02c494…02c628 Dummy {f00=0x000e, f01=0x0190, f02=» L AL( @L( hZD AL( _L L :B* Wl @L6 Q ? .: @L*:B @L.* WH O @L6 Q: ? .: O LF Q: ? .: @L*:B @L.W L :B @L. @L0* W Qd ? - X M AL8 X - X + L P& M !P P M L Z M Q| 4 AL. @L( 4R 4 @ AL. DN L
0x02c628…02c7bc Dummy {f00=0x000e, f01=0x0190, f02=» L * ! _ L X S S X % S @ P& L <AR A <B M * @ M * L * L * S X P % S L ? ! P ! T S S L P X M M L ? ! P ! P X P M M MR P X P2
0x02c7bc…02c950 Dummy {f00=0x000e, f01=0x0190, f02=»X( M Nn M 9 V 9c ! Q| @L8 4 @ _ X X X X $ PT T"T:U*UH % P Y Y Y >% X P Y _" P" P& R| ^T Y _D _T X _ X _ X" X& T: X P4 0' P. 1R P _ 0$
0x02c950…02cae4 Dummy {f00=0x000e, f01=0x0190, f02=»P Y $ W Y =D %_ X P V % P Y X XT Q _ Tn Q Tn 0DKER UNIT CYLD STAT U U * U U W2 U U X W$ U U W U ( X = 0 :R # Y ; ; ? 0 :R 9
0x02cae4…02cc78 Dummy {f00=0x000e, f01=0x0190, f02=»T Y" P T _ X n D n D E E l ] l @ E @ W ? ? > ? ? ? ? ? ? ? Z0 C ( "^ @Z XD U T " P " P @Z W C "& # ( "^ 0 A @ZR @ZT @ZV @ZX<h @ZX% @ZZ @Z Z^ Z` [ [
0x02cc78…02ce0c Dummy {f00=0x000e, f01=0x0190, f02=» > > > > > > >WZ 0 A ^ T " T0 ! P W SY SD AD _ ! P _, J _2 Z0 # C ( "^ P ZR ZT ZV ZX CCT I T P Q _, AZ: _V LM Z^ A AZ: Z0 L 9 !? AYL
0x02ce0c…02cfa0 Dummy {f00=0x000e, f01=0x0190, f02=» L R ! _ PP I H P _ A VT A A A @ ~ Z A ~ @Z A ~ @ [ ( 7 A A "^ ? (@_0 $ ( , 0 4 8 < Z> " P @ W C "& # ( "^ 0 A @ @ @ @ <h @ % @ @ [ [
0x02cfa0…02d134 (0, 57) Dummy {f00=0x000e, f01=0x0190, f02=» > > > > > > >W 0 A ^ T " T ! P W SY SD AD _ ! P _, J _2 # C ( "^ P CCT I T P DOS - PTS 8000 REL. 10.0 [ L 9 !? A
0x02d134…02d2c8 Dummy {f00=0x000e, f01=0x0190, f02=» z PMES PASG /02,NO PLED D:CDD & P!!IL 17 8 P EXTRN S:TIO H P!!IL 220 ( PECBCW1 EQU 10 MSB OF SECTOR ADDRESS l ( PECBCW2 EQU 12 LSB OF SECTOR ADDRESS P!!IL 223 P* TOSS DISC WORK AREA P!!IL 225 & PNRYMAX
0x02d2c8…02d45c Dummy {f00=0x000e, f01=0x0190, f02=»LSEC RES 1 INTERLACED AND SKEWED SECTOR NUMBER , PSECTST RES 1 1:ST PHYSICAL SECTOR NUMBER 6 * PSECPOS RES 1 SECTOR POSITION INDICATOR f ( PSCOUNT RES 1 LOGICAL SECTOR COUNTER $ PUBUFFP RES 1 USER BUFFER POINTER PA5SAVE RES 1 STACK POINTER
0x02d45c…02d5f0 Dummy {f00=0x000e, f01=0x018e, f02=» P LD A5,DWTORD,A6 ORDER * PTS & P ABL(Z) D:TOSSD TEST STATUS * PTS ( P SUK A5,/1F * PTS R ( P ABL(Z) D:TOSSD FORMAT VOLUME * PTS r & P LD A8,DWTECB,A6 ECB ADDRESS * PTS * P LD A5,ECBRL,A8 REQUESTED LENGTH * PTS P ST A5,DWTRLG,A6 *
0x02d5f0…02d784 Dummy {f00=0x000e, f01=0x0190, f02=» | P* P* TOSS DISC REQUEST HANDLER P* 6 $ P* CALL: REGISTER INPUT @ $ P* -------- ----- h * P* A3 DCT ADDRESS * P* A6 DWT ADDRESS $ P* A8 ECB ADD
0x02d784…02d918 Dummy {f00=0x000e, f01=0x018e, f02=»RY,A3 RESET RETRY COUNTER ( P CM DWTELG,A6 RESET EFFECTIVE LENGTH " P LD A1,ECBBF,A8 N . P ST A1,UBUFFP INITIATE USER BUFFER POINTER f $ P LD A1,DWTORD,A6 A1:= ORDER CODE P RF(Z) TESTST TEST STATUS P SUK A1,1 P RF(Z) DUA:10 BASIC
0x02d918…02daac Dummy {f00=0x000e, f01=0x0190, f02=» P RF(Z) DUA:10 PHYSICAL WRITE P SUK A1,10 ( P RF(Z) FORMAT FORMAT VOLUME : P ^ P LDKL A2,/8010 ILLEGAL ORDER f P ABL END:20 P EJECT P********************* P* * P* TEST STATUS * P*
0x02daac…02dc40 Dummy {f00=0x000e, f01=0x018e, f02=»R+48 $ P ST A1,TYPE DISK FORMAT AND TYPE P LD A1,ECBRL,A8 4 P SUK A1,6 L ( P RF(NZ) TEST10 REQUESTED LENGTH >< 6 ^ P* $ P* PUT VOLUME NAME IN USER BUFFER P* , P LD A2,ECBBF,A8 A2:= USER BUFFER ADDRESS P LD A1,BUFFER
0x02dc40…02ddd4 (0, 58) Opaque[0x194]
0x02ddd4…02df68 # DirEnt {nam=»LKE «, typ=»LM«, f00=0x0000, f01=0x0000, f02=0x01d8, f03=0x0000}
0x02ddd4…02df68 IdxSect {
0x02ddd4…02df68 f00 = 0x000e // 0x2ddd4 @0x0
0x02ddd4…02df68 f01 = 0x0006 // 0x2ddd6 @0x2
0x02ddd4…02df68 gno = [ // 0x2ddd8 @0x4
0x02ddd4…02df68 [0x00]: C0x000e.0x3.0
0x02ddd4…02df68 [0x01]: C0x000f.0x0.0
0x02ddd4…02df68 [0x02]: C0x000f.0x1.0
0x02ddd4…02df68 ]
0x02ddd4…02df68 }
0x02df68…02e0fc Dummy {f00=0x000e, f01=0x0190, f02=» p ^~ @ s> d 2Z $"z yd M P yz $ D ^ O " R>x2 +u K w [ ? d +b% L M "~ T &b ACn 1 d < ~R:R:L `{ ^ Z% ^ Dd z `,d x : t ` ^ D `H P D >~ m `" f >~ $ d p 4d @ X
0x02e0fc…02e290 Dummy {f00=0x000e, f01=0x0190, f02=» b z $ ^a : b 9 z i $ w z4r{ > tV u 3 qC zuq $ % > P ZD m c r zuq Z %C7 h > @Bh $/} F 4` 1 ` O PZ-8 T0 Hp tB / ^Tg t z ^ Z D D H Z2 Z } n zP bd ` z R:4d d z$(Rd0 Gt
0x02e290…02e424 Dummy {f00=0x000e, f01=0x0190, f02=» z $ 4c ^~ @ s> d 2Z $"z yd M P yz $ D ^ O " R>x2 +u K w [ ? d +b% L M "~ T &b ACn 1 d < ~R:R:L `{ ^ Z% ^ Dd z `,d x : t ` ^ D `H P D >~ m `" f >~ $ d p 4d @ X
0x02e424…02e5b8 Dummy {f00=0x000e, f01=0x0190, f02=» b z $ ^a : b 9 z i $ w z4r{ > tV u 3 qC zuq $ % > P ZD m c r zuq Z %C7 h > @Bh $/} F 4` 1 ` O PZ-8 T0 Hp tB / ^Tg t z ^ Z D D H Z2 Z } n zP bd ` z R:4d d z$(Rd0 Gt
0x02e5b8…02e74c Dummy {f00=0x000e, f01=0x0190, f02=» z $ 4c ^~ @ s> d 2Z $"z yd M P yz $ D ^ O " R>x2 +u K w R? d L PT Cn < ~R:R: ` ^ Z% ^ Dd z `,d x : t ` D `H D >~ m `" f >~ $ d p 4d @ X
0x02e74c…02e8e0 Dummy {f00=0x000e, f01=0x0190, f02=»DEF.INV.LGH.ABS.STR.TBL.OVL.INV.IDT.END.MIS.UNS.EXT.ERR.LKE.BLK.COM.NO STRT.PRG.OVL IDT.MIS.INV.STR.ERR.NOD. 9 R : ) Y : @ Pt %T _ . $ 5T` PX Y %T PJ_ $ 5 R8 P2 % @P 5 _ P %X = = $ 5 P :
0x02e8e0…02ea74 (0, 59) Dummy {f00=0x000f, f01=0x0190, f02=» A _" @ |R0 @ @ P& T < _ (;CZ A | A : @ |P. @ $" % A 6 L 5 @ P _* : @ |Pb @ < < @ A < < V @ A R0 A A N A L @ N @ L @ = > A @ @ : = > < @ $ A $" P $"
0x02ea74…02ec08 Dummy {f00=0x000f, f01=0x0190, f02=» @ @ = @ B : @ |P @ @ PR $" % (% P A 0 K.COM.NO (% P A ( T.MIS.IN $) ) ,! P @ 1 _X : @ |Pn @ @ Pd $" * % (% T A ( T` ( =e T ( T , 0Q W ,& T 1 0Q _ A 0 , _ : A x @ |Pj ` P P`
0x02ec08…02ed9c Dummy {f00=0x000f, f01=0x0190, f02=»T @ ( _ @ A T @ T ( @ A @ A @ A : H % : R 1( A R A Z A b A : $;e (<e P : 4 9P : Y : $;e (<e 4 9P Q : P Y : Y : @ ?a @ =a UL?A $=KR W6 <
0x02ed9c…02ef30 Dummy {f00=0x000f, f01=0x0190, f02=» 1 0 A _4 A r : A @ A A @ @ P 89D A 9A A < A @ P 8:GR _6 A @ A A T A V 8 A A A A N_ A A @ A A : W W W W W W
0x02ef30…02f0c4 Dummy {f00=0x000f, f01=0x0190, f02=» @ @ @ : W A A @ @ :a Q. @ @ @ :b Q A @ _8 @ P @ A : @ A : @ @ 9a @ :a Q2 A > A @ @ @ 9b Q @ @ A @ @ >_$ @ @ A : @ x ` A x @ A
0x02f0c4…02f258 Dummy {f00=0x000f, f01=0x0190, f02=» A r : A < A F A D A N A A A R A R % 1 a PTSLKF (790507) A 4 V A A I ^ 00 A : A V 8 A A A A N_ A A @ A A : W W W ` p A A
0x02f258…02f3ec Dummy {f00=0x000f, f01=0x0190, f02=» ` R NPH @ H A _, @ x ` " :A @ A A 9A _T f P 6 @ A ` NO ` NO _ @ xT ` ` @ ~R0 A ~ @ T @ P6 A S A f V6_ _ @ A SX0 @ a ` _F f V : @ a @ ` T" @
0x02f3ec…02f580 Dummy {f00=0x000f, f01=0x0190, f02=» 9A 9B A <a V :A A A J @ a @ M <a L 9a <A A @ @ P @ A A S A A ~ ` NO ` R NP8 @ H A _& @ x ` " :A @ A A 9A _N ` NO J @ A A
0x02f580…02f714 (0, 60) Dummy {f00=0x000f, f01=0x0190, f02=» A @ A @ :a9a A @ ` P P F @ tP R r ( @ @ T W @ P A _ : ` @ P& @ F $ ) Y @ L 4 : , @ 1 = *** SYMBOL TABLE ^ 4 @ 0 =W
0x02f714…02f8a8 Dummy {f00=0x000f, f01=0x0190, f02=» @ :a9a ^~ 4 @ _ 4 @ 0 = ** = ] ] 4 @ 0 = START = = @ LENGTH = @ REGION = @ U _ 4 : , 1 P , 1 : < , 1 : L P @ $;e $ ) a
0x02f8a8…02fa3c Dummy {f00=0x000f, f01=0x0190, f02=» : F @ A P @ A H I ( @ A A A : W f( : <A 0 R ( ) : (_ @ <a @ =a @ 9b9A A , ) Z A : @ @ <a @ =a :b:A A , ) Y A : @ @ P >a @ 9a Vp9A A A
0x02fa3c…02fbd0 Dummy {f00=0x000f, f01=0x0190, f02=» : < $ P A A B $ ) 9 @ P 9 : $<e :9C D 4 @ 5 A A : @ @ ;a<a V $:CR E P : _& ( ^ : @ p @ T : P @ A p :( B d A d : @ 9a R _ @ P @
0x02fbd0…02fd64 Dummy {f00=0x000f, f01=0x0190, f02=» LABEL = FIXS3-1 DATE = 790507 PACK NBR = 001 f P Y _( Y M : ] =IR E
[…0x3…]
0x030220…0303b4 (0, 61) Opaque[0x194]
0x0303b4…030548 # DirEnt {nam=»EDIT «, typ=»LM«, f00=0x0000, f01=0x0000, f02=0x01f0, f03=0x0000}
0x0303b4…030548 IdxSect {
0x0303b4…030548 f00 = 0x000f // 0x303b4 @0x0
0x0303b4…030548 f01 = 0x003c // 0x303b6 @0x2
0x0303b4…030548 gno = [ // 0x303b8 @0x4
0x0303b4…030548 [0x00]: C0x000f.0x2.0
0x0303b4…030548 [0x01]: C0x000f.0x3.0
0x0303b4…030548 [0x02]: C0x0010.0x0.0
0x0303b4…030548 [0x03]: C0x0010.0x1.0
0x0303b4…030548 [0x04]: C0x0010.0x2.0
0x0303b4…030548 [0x05]: C0x0010.0x3.0
0x0303b4…030548 [0x06]: C0x0011.0x0.0
0x0303b4…030548 [0x07]: C0x0011.0x1.0
0x0303b4…030548 [0x08]: C0x0011.0x2.0
0x0303b4…030548 [0x09]: C0x0011.0x3.0
0x0303b4…030548 [0x0a]: C0x0012.0x0.0
0x0303b4…030548 [0x0b]: C0x0012.0x1.0
0x0303b4…030548 [0x0c]: C0x0012.0x2.0
0x0303b4…030548 [0x0d]: C0x0012.0x3.0
0x0303b4…030548 [0x0e]: C0x0013.0x0.0
0x0303b4…030548 [0x0f]: C0x0013.0x1.0
0x0303b4…030548 [0x10]: C0x0013.0x2.0
0x0303b4…030548 [0x11]: C0x0013.0x3.0
0x0303b4…030548 [0x12]: C0x0014.0x0.0
0x0303b4…030548 [0x13]: C0x0014.0x1.0
0x0303b4…030548 [0x14]: C0x0014.0x2.0
0x0303b4…030548 [0x15]: C0x0014.0x3.0
0x0303b4…030548 [0x16]: C0x0015.0x0.0
0x0303b4…030548 [0x17]: C0x0015.0x1.0
0x0303b4…030548 [0x18]: C0x0015.0x2.0
0x0303b4…030548 [0x19]: C0x0015.0x3.0
0x0303b4…030548 [0x1a]: C0x0016.0x0.0
0x0303b4…030548 [0x1b]: C0x0016.0x1.0
0x0303b4…030548 [0x1c]: C0x0016.0x2.0
0x0303b4…030548 [0x1d]: C0x0016.0x3.0
0x0303b4…030548 ]
0x0303b4…030548 }
0x030548…0306dc Dummy {f00=0x000f, f01=0x0190, f02=» D ( b D F b J, b i d b o b w b y b } h h b b , b b 0@ :C H A M t H R M t PB " P :C_ @ 9C E ^ t V V ( T # Y$ @ z f
0x0306dc…030870 Dummy {f00=0x000f, f01=0x0190, f02=» ? : ? : a b @ P , 4 6 @ T h " b
0x030870…030a04 Dummy {f00=0x000f, f01=0x0190, f02=» @ T $ . @ P L ` " @ P 6 4 v
0x030a04…030b98 Dummy {f00=0x000f, f01=0x0190, f02=» Z @ 8 @ @ @ @ P @ 8 A @ : A @ < A @ > A b& > @ @ P @ 8 A @ : A @ < A @ > A b2 > @ @ P : b @ 8 A @ : A @ > A b> > @ @
0x030b98…030d2c Dummy {f00=0x000f, f01=0x0190, f02=» > A bV > @ @ P < @ 8 A @ : A @ > A bb > @ @ P Z @ 8 A @ : A @ > A bn > @ @ P @ 8 A @ : A @ > A bz > @ @ " P @
0x030d2c…030ec0 Dummy {f00=0x000f, f01=0x0190, f02=» P j @ > A $ @ * @ @ P & > @ @ ( P @" @ P " ( > @ @ , P , : @ & @ Z @ 8 B ` B @ ( P
0x030ec0…031054 (0, 62) Dummy {f00=0x000f, f01=0x0190, f02=» @ & P @ @ > > , : * @ *" " " " "
0x031054…0311e8 Dummy {f00=0x000f, f01=0x0190, f02=» H A @ : p @ P0 @ A @ P ( A A ( A P J A
0x0311e8…03137c Dummy {f00=0x000f, f01=0x0190, f02=» A : A A A : 0 I @" @ P 0 " " @" @" Q @" U @ r :
0x03137c…031510 Dummy {f00=0x000f, f01=0x0190, f02=» ` @ P Z > @ Z " " " @ A @ A @ A b @ P : @ A @ A @ A . @ P 2 : Z
0x031510…0316a4 Dummy {f00=0x000f, f01=0x0190, f02=» 0 I ` @ R " 6 @ ` U f | @ _2 v v _8 "
0x0316a4…031838 Dummy {f00=0x000f, f01=0x0190, f02=» R P $ INPUT I/O-ERROR FC:/XXXX, ST:/YYYY > z ~ P A : A t A v p A 8 8( @ @T0 @ : @ >P ( T A > t r z :R P T _ p @ 8! f D( ( 0 I
0x031838…0319cc Dummy {f00=0x000f, f01=0x0190, f02=» 0 I " " @ @ @" Q : TYDY R J 0 I V N . @ $ P x @ * $ @ $ @ & T Z @ $ @ (
0x0319cc…031b60 Dummy {f00=0x000f, f01=0x0190, f02=» B B r , D H * J : 0 aN , * ^ 0 I j b @ j A R R j j @ p l @ l ` l U l @ p l_2 X v_ p l @ l @ j U * L l @ p
0x031b60…031cf4 (0, 63) Dummy {f00=0x0010, f01=0x0190, f02=» : T$ @ , @ H P ( ( _0 @ , @ T @ , @ P A ,_R _ 6 P A v _ : @ ! @ @ , I p A P &P ^ P P P ^ _ Q & P A , P A A :
0x031cf4…031e88 Dummy {f00=0x0010, f01=0x0190, f02=»
0x031e88…03201c Dummy {f00=0x0010, f01=0x0190, f02=» NO @ ! @ P A 0 ( @ A @ D . @ , @ LPP DYP< TYP6 A PV 1 _ A ( @ P A , Q : A ) P$ $ T _ T _ P ) _( .
0x03201c…0321b0 Dummy {f00=0x0010, f01=0x0190, f02=» + . ) P 8 T I _ ) _ . A ( T 1 A . A ( . < 2 b 0 I n f n @ @
0x0321b0…032344 Dummy {f00=0x0010, f01=0x0190, f02=» P P p U 4 P P 9 Y P 4 9 : 8D Q 0 - : 7_ P 0 P R _ P 0V P - , 0 R - : d ' p 0 A 0 ( @ : P p V <A 0 _ :
0x032344…0324d8 Dummy {f00=0x0010, f01=0x0190, f02=» Z @ p @ p t @ t @ ~ U @ v ` V @ J_v ` @ ~ R @ v ` R @ v @ | v l Z @ v @ | r | x @ x @ v R ^ x @ |
0x0324d8…03266c Dummy {f00=0x0010, f01=0x0190, f02=» r x : | v t x 0 F: 0 0 $ P 8H , A ( ( Z P @ P ( ( @ < : ER 0123456789ABCDEF 8 *** ERROR NUMBER ***: W W W W
0x03266c…032800 Dummy {f00=0x0010, f01=0x0190, f02=» 0 4P&R ! P 8 S =aP 8 Sr _ : Pj_ p Uf p S^ TZ p UT SN p SH TD p U> p S4 P T( : _: _( p p Q S : W W f P 0 4T D f 0V S : :
0x032800…032994 (0, 64) Dummy {f00=0x0010, f01=0x0190, f02=»
[…0x17…]
0x034de0…034f74 (0, 67) Dummy {f00=0x0011, f01=0x0190, f02=»
[…0x13…]
0x036d70…036f04 Dummy {f00=0x0011, f01=0x0190, f02=» A
0x036f04…037098 Dummy {f00=0x0011, f01=0x0190, f02=» _| A z _ A z * _ A z _
0x037098…03722c Dummy {f00=0x0011, f01=0x0190, f02=» @ c c b " @" @b R b b c6 " @b " _2 c Z " c " @b c " @b c c Z " c b c _d " @b c c Z " c b c b " b b c g c g b " b
0x03722c…0373c0 Dummy {f00=0x0011, f01=0x0190, f02=» e 0 Ie e e " d c d d @e Ae e e d @e T e e&
0x0373c0…037554 (0, 70) Dummy {f00=0x0011, f01=0x0190, f02=» d c e :c d d d d d g 0 Ig g e e e e f Z @g g `g @e T f" f( f _2 @g Af f g e e @e P fd fx e e f f e f
0x037554…0376e8 Dummy {f00=0x0011, f01=0x0190, f02=»e e e e g 0 Ig g g @g g g Z " g g g g @g g g Z " g g g g :g g i 0 Ii i g g iz jN i g `i P
0x0376e8…03787c Dummy {f00=0x0011, f01=0x0190, f02=» i i g h iz g i g g @g P h h @i Ai @i Ai i g g @g P i i @i Ai i i g i : i @g i i| Z " i g i i @g i i| Z " i g i g i :
0x03787c…037a10 Dummy {f00=0x0011, f01=0x0190, f02=»" jD i jD jB " j, @jB Aj2 j2 Z " jD " jD jB " j6 : i j 0 Ij j @" @jH P j j jJ jF j " jF j Z " j j " jF j :" jL
0x037a10…037ba4 Dummy {f00=0x0011, f01=0x0190, f02=» G X e| 0 Ie e @e Aeb eb Z @e e e b @b @b T e @b @b T @e c c. b e eP @b @b P cL cX b b c` b b e @b e @e Aef @e Aeh ef l e b
0x037ba4…037d38 Dummy {f00=0x0011, f01=0x0190, f02=» e " b @b @" U d4 dJ d b @b b _2 ep b er k& @b P dz d b @b e ev Z " e b e d b @b e ev Z " e b e _ ez b @b @" T d e e@ ep b _. ep
0x037d38…037ecc Dummy {f00=0x0011, f01=0x0190, f02=» , ; g 0 Ig g e " e " @g Ag @g Ag @g Ag g g g e @g P f" f( f _P " " e " " @e " @g Ag g Z @g g g e @e @e T g @e @e
0x037ecc…038060 Dummy {f00=0x0011, f01=0x0190, f02=» e " @" @e P g g( " " @" @e U gF gN " " e `g T gv g e g g e e g : e e + - k 0 Ik k k g g k @k A
0x038060…0381f4 (0, 71) Dummy {f00=0x0012, f01=0x0190, f02=»k Aj j nN @k Aj j Z @k k k g @g @g T k @g @g T @k h h g k j @g @g P i i g g i& g g k @g k @k Aj @k Aj j nN @k Aj @k Aj @k Ak j r k g
0x0381f4…038388 Dummy {f00=0x0012, f01=0x0190, f02=» `k T j hh g `k R k `k @" Q @k jP j` g k g `k P j j g g j `k @g U j j g g j g g g k g k :
0x038388…03851c Dummy {f00=0x0012, f01=0x0190, f02=» T kt k k k @k k _B @k Ak @k Ak k n @k" Q k k k k k k :_Z k" k k k :k k$ k n2 0 In> n6 @n@ An n Z @n> nB `nB @l P lZ ln l n@
0x03851c…0386b0 Dummy {f00=0x0012, f01=0x0190, f02=»n@ @l nD n" Z @n> nF `nB `nF P m m* n@ @l n@ mn n@ @l nB @n@ An n Z @n> nD @n> An& @nD An* n& vJ n@ n. Z nB `nB @l P m m l n@ l `n@ P m n n. Z
0x0386b0…038844 Dummy {f00=0x0012, f01=0x0190, f02=» 0 In n @n An n Z @n n `n @nH P n n n @nJ n _H n : nL * r 0 Irh r` n n rj n n n r8 Z @rl rn `rn @n T o@ ob r& @rl Ar< r< ~ @n
0x038844…0389d8 Dummy {f00=0x0012, f01=0x0190, f02=» T o o p _2 @rh ArD @rl ArH rD z @n P p p p _< n @n rn rL Z @rl rp n @n rp n @n rn rL Z @rl rp n rp n n r" @rh ArP @rl ArT rP z @n P p r" @n @n Q p p
0x0389d8…038b6c Dummy {f00=0x0012, f01=0x0190, f02=» @n @n U q` qr n n n r : n @n rn rL Z @rl rp n @n rr rX Z @rl rt rt @n rp n @n n n @n rn rL Z @rl rp n @n rr rX Z @rl rt rp `rt n oD n n n r :n n n n n n
0x038b6c…038d00 Dummy {f00=0x0012, f01=0x0190, f02=» r rv @uL Au* u* Z @uJ uR uR r u. u @r Q s sv @uJ Au2 @uL Au4 u2 uN r `uN P sR sb r rv uL @r uL t @r @r P s s " uN t @r @r P s s "
0x038d00…038e94 (0, 72) Dummy {f00=0x0012, f01=0x0190, f02=» P tF tZ r rv t @uL Au* u* Z @uJ uR `uR @r P t t @uN Au8 u6 rv t r uR @uN Au< u: rv t r rv r @rv P u u uL @r uL rv uP rv u> : r rxr r
0x038e94…039028 Dummy {f00=0x0012, f01=0x0190, f02=» u uT @uV uT_B v Z @v v `v `v P u u uT v :_L uX uT uT v :uTuZ ? % $ [ * A zB 0 IzN zF v4 v$ v4 v& v6 v( zP v* y Z @zN zV zV v, @v, `zR T zV
0x039028…0391bc Dummy {f00=0x0012, f01=0x0190, f02=» zV @v* `zP P @zV wJ wb @zT Az z . v0 y> @v, @v> P zV v* @v4 zX z Z @zN zZ `zZ `zR P @zV w w @zT Az z . v0 y> @v, @v@ P w x< @zN Az @zT Az z | zV vB @zV P
0x0391bc…039350 Dummy {f00=0x0012, f01=0x0190, f02=»v< P zV @v2 @v> P @zV zX @v2 @vD P @zX x x yr @zT Az" z" v( y> @zT Az, z* . v0 @zN Az z zV @zT Az4 z2 . v0 v. v& v* @v4 v* y Z @zN zV zV v, v @v, `zR T y y vB v"
0x039350…0394e4 Dummy {f00=0x0012, f01=0x0190, f02=»v$v: v* v$v.vH v$v&v(vF v$v:zV v$v:v6 v$v: ERROR IN OMATCH CAN'T HAPPEN A % ? $ [ N } 0 I} } z z @} A} } Z @} } } z^ @} A} } Z @} } } z` @z^ @z P { { z
0x0394e4…039678 Dummy {f00=0x0012, f01=0x0190, f02=»{ z zb }^ @z` @z P { { `} @z P { { z zb }^ @z` @z P { |( @z^ @z T | |$ z zb }^ @z` @z P |F |p @z^ @z P |d |l z zb }^ @z` @z P | | }
0x039678…03980c Dummy {f00=0x0012, f01=0x0190, f02=»T } } @z } @} A} } L @z P @} }J }R z zb }^ } @zb @z V }| } } @zb } z z z } : z } z z^ } z^ } z zd ERROR IN PATSIZ CAN'T HAPPEN A % $ ? [ N * z
0x03980c…0399a0 Dummy {f00=0x0012, f01=0x0190, f02=» @} @} P @ @} @} P @ ~ ~ } } d @} @} P @} @} P @ ~ 2 @} r Z @ @} } d @} @} P P ~ } d v } z : } } ~ }
0x0399a0…039b34 (0, 73) Dummy {f00=0x0012, f01=0x0190, f02=» @ A 4 @ A k& @ P > X : ` @" P t_ : aN * 0 I @ @ ` V
0x039b34…039cc8 Dummy {f00=0x0012, f01=0x0190, f02=» @ A @ A . @ A @ A . @ " A @ A @ A . @ A @ A . : 0 I ` ` Q f r ( &
0x039cc8…039e5c Dummy {f00=0x0012, f01=0x0190, f02=» d 0 I p h @ p A Z @ r A Z nN @ r A Z @ p t ` t @ T R h P r @ r_J @ r A Z @ p t t @ @ R t @ @ Q @ t P @ @ @ Q t
0x039e5c…039ff0 Dummy {f00=0x0012, f01=0x0190, f02=» @ N T 0 I @ A Z @ z @ z @ | T z x @ ~ Z @ ` @ P . : | x @ ~ @ A Z @
0x039ff0…03a184 Dummy {f00=0x0012, f01=0x0190, f02=» T 0 I ` X @ ` A N @ b A P N ` ` ` ` P @ H R T : N [ ] , 0 I 8 0 : @ j : @ : A Z @ 8 @ ` @ @ l P
0x03a184…03a318 Dummy {f00=0x0012, f01=0x0190, f02=» f @ 8 A @ : A @ < A " @ > A $ ( Z @ < @ > @ h @ j @ @ : A Z @ 8 @ ` @ @ v P x d z d d , : x n p r p t p v p h x
0x03a318…03a4ac Dummy {f00=0x0012, f01=0x0190, f02=» Z @ * . ` ( ` . P F B B :_T H B B : J D J 0 I @ 2 0 2 @ 0 R " 0 0 : 0 1 2 3 4 5 6 7 8 9 A B C D E F G
0x03a4ac…03a640 Dummy {f00=0x0012, f01=0x0190, f02=» @ ` D T P @ @ T @ P r @ @ P @ F A @ H A P @ J A @ L A @ N A . @ @ T @ J A @ L A @ N A . ` L @ U P H @ R
0x03a640…03a7d4 (0, 74) Dummy {f00=0x0012, f01=0x0190, f02=» @ J R @ R A " u @ Q @ F A " @ H A $ @ J A & @ L A ( @ N A * ` L @ P Z @ J R @ R A . , u @ Q f @ F A . @ H A 0 @ J A 2 @ L A 4 @ N A 6 , ` @ J A @ L A @ N A .
0x03a7d4…03a968 Dummy {f00=0x0012, f01=0x0190, f02=» 0 I @ @ @ A t @ A v t @ A v v u V @ A z z Z @ @ A t @ A v t u X @ X @ V U 0 n X @ X_2
0x03a968…03aafc Dummy {f00=0x0012, f01=0x0190, f02=»
0x03aafc…03ac90 Dummy {f00=0x0012, f01=0x0190, f02=» c6 0 IcB c: cD @b cJ c. Z @cB cL `cL @b P b c @cF Ac4 c2 d cH c b cH cH b b c6 :cJb "
0x03ac90…03ae24 Dummy {f00=0x0012, f01=0x0190, f02=» . e 0 Ie e `e @d P dH d d cN e e " e 6 d cN @cN @d P d d e _" e e d @e P d d d cN e e Z cP e `e @d P e e Z cP
0x03ae24…03afb8 Dummy {f00=0x0012, f01=0x0190, f02=» cN e e 6 d cN e :d c cPd d d d d c g 0 Ig, g$ e e e e g Z @g, g. `g. @e T f@ fF f _2 @g, Ag g g e e @e P f f e
0x03afb8…03b14c Dummy {f00=0x0012, f01=0x0190, f02=»_ e g :e e e e " g.e e e e e e g 0 Ig g g @g0 g g Z " g g g g @g2 g g Z " g g g g :g g4 i 0 Ii i g g i jl
0x03b14c…03b2e0 Dummy {f00=0x0012, f01=0x0190, f02=»h i @g i i Z " i i g h i g i g g @g P h h @i Ai @i Ai i g g @g P i$ i> @i Ai i i g i : i @g i i Z " i g i i @g i i
0x03b2e0…03b474 (0, 75) Dummy {f00=0x0013, f01=0x0190, f02=» i j" @j` AjP jP Z " jb i jb j` " jJ @j` AjP jP Z " jb " jb j` " jT : i j 0 Ij j @" @jf P j j jh jd j " jd j Z " j j " jd j :" jj
0x03b474…03b608 Dummy {f00=0x0013, f01=0x0190, f02=» c 0 Ic c b c c @b c c Z @c c `c @b P c c @c Ac c c b @c P c@ c @c Ac c fl c b @c P c| c c i c @c Ac c d
0x03b608…03b79c Dummy {f00=0x0013, f01=0x0190, f02=» A : A : . fF 0 IfR fJ `fT @d P d d d c f* fR " f4 6 d c @c @d P
0x03b79c…03b930 Dummy {f00=0x0013, f01=0x0190, f02=» P fX f> Z c fZ `fZ @d P @fX e e d c f& f8 h fV d @fV P f f d c f& fB 6 e c fF :d d c d d d d d d g 0 Ig g `g
0x03b930…03bac4 Dummy {f00=0x0013, f01=0x0190, f02=»g `g @fh " " @g Ag g i " g fb @fb `g V gT gj g fb @fh fb_2 g g g g _( g jR fj g g f f g : g fbf^f`f^f` hf 0 Ihr hj @" @g P
0x03bac4…03bc58 Dummy {f00=0x0013, f01=0x0190, f02=» i 0 Ii i h hv h hx i Z @i i `i @h T h h i _2 @i Ai i j hx h @hx P i( i< h hv i i h| i i i h~ i jR i jR " @h
0x03bc58…03bdec Dummy {f00=0x0013, f01=0x0190, f02=» jB jJ @i i i @i R j, j4 " i i j> : j 0 Ij j j @jL j j Z " j j j j @jN j j Z " j j j j :j jP l
0x03bdec…03bf80 Dummy {f00=0x0013, f01=0x0190, f02=» l Z " l `l @j V k k l @j l l Z " l l j k l j l j j @j P k l @l Al @l Al l j j @j P l@ lZ @l Al l g j l : l @j l
0x03bf80…03c114 (0, 76) Dummy {f00=0x0013, f01=0x0190, f02=» mX 0 Imd m @" @l P m m* l l mJ " l mT Z " mf mf " l mX :" l
0x03c114…03c2a8 Dummy {f00=0x0013, f01=0x0190, f02=» cp 0 Ic| ct b c c~ @b c @c| Ac^ @c Acb @c Acd c^ c c b @c P c$ cL cf b ch v cl v cn b c b b cp : c b " b b b P
0x03c2a8…03c43c Dummy {f00=0x0013, f01=0x0190, f02=»d dp Z @d d `d @c P d: dN c d d^ c d d c c dt :c c
0x03c43c…03c5d0 Dummy {f00=0x0013, f01=0x0190, f02=» c 0 Id d b d d @b d @d Ac @d Ac @d Ac c d& d b @d P c c @d Ac c d b @d P c c @d Ac c e( d b @d P c c
0x03c5d0…03c764 Dummy {f00=0x0013, f01=0x0190, f02=» P e 0 Ie e e d d Z @e e `e @d P dv d d e d @d d d d e d Z @e e `e @d P d d d" e d d$ e e d d e :d d"
0x03c764…03c8f8 Dummy {f00=0x0013, f01=0x0190, f02=»g6 f fh e @f Aff ff f fh e f `f @e$ " " @f Aff ff g6 " f e @e `f V f f& f< e @e$ e _2 fj f fh f _( fl g e& f f e e ft : f e e e e e
0x03c8f8…03ca8c Dummy {f00=0x0013, f01=0x0190, f02=»g Z " g0 " g0 g. " g" : f g 0 Ig g g @g4 g2 g4 @g2 R g g " g2 g2 g : h" 0 Ih. h& h0 @g h6 h Z " h8 h. h8 h2 @g h6
0x03ca8c…03cc20 Dummy {f00=0x0013, f01=0x0190, f02=»
[…0x1…]
0x03cdb4…03cf48 Dummy {f00=0x0013, f01=0x0190, f02=» gJ 0 IgV gN e gZ gX @e gX @gV Ag4 @gX Ag6 g4 hh g^ e @g^ P f: g" @gV Ag4 @gX Ag6 g4 ht g^ e @g^ P f~ g" gX @e
0x03cf48…03d0dc Dummy {f00=0x0013, f01=0x0190, f02=» @g^ P g g" g8 h gZ gZ b b gJ : b e g^ " " P hN 0 IhZ hR h gd hJ Z @hZ hb `hb @gf P g g gh h^ gd @gh gd g gj h^ hJ Z @hZ hb `hb @gl
0x03d0dc…03d270 Dummy {f00=0x0013, f01=0x0190, f02=»_ A z _ A z > _(
0x03d270…03d404 Dummy {f00=0x0013, f01=0x0190, f02=»
[…0x1…]
0x03d598…03d72c Dummy {f00=0x0013, f01=0x0190, f02=» p` 0 Ipl pd k h k @" U l l& h p` : " k @k @" U lJ l` p$ k @k k _2 k k k k p. k k k
0x03d72c…03d8c0 Dummy {f00=0x0013, f01=0x0190, f02=»m p4 q2 k m k k @k @k Q pp @k @k T @pp mF mf k k @pl Ap@ p: t k k @k @k P pp @k @k P @pp m m p0 Z aN pp @pp Ap@ p@ p| k k @k k m k k l @k @k P n
0x03d8c0…03da54 (0, 78) Dummy {f00=0x0013, f01=0x0190, f02=»k p0 Z h pp `pp @k T n o p. k k @k T n o p0 k k @k pp p4 y @pp @k Q o o p$ pP vn k @k k k k p0 Z aN pp `pp @k T oh o~ o k @k
0x03da54…03dbe8 Dummy {f00=0x0013, f01=0x0190, f02=» k @h P p p p$ k h lN h p` :k k k aNk aNk k h k k k h k k k k k k k k k k q 0 Iq q `q `q Q p p pv pt p @q Aq q Z @q q q q q @px
0x03dbe8…03dd7c Dummy {f00=0x0013, f01=0x0190, f02=» q( q" t Z @t t `t @q& T q q tv @t At t } @q" q"_N t Z @t t `t @q* P q r q" q q" @q, q" q q$ t Z @t t `t @q& T r, r2 rl_2 @t At @t At t z" @q& P rf
0x03dd7c…03df10 Dummy {f00=0x0013, f01=0x0190, f02=» At @t At t z" @q& P s tr @q @q& Q s sN s q @q0 t t Z @t t t q _J q @q( t t Z @t t `t @q& Q s s s _n @q @q& U s s q& q q t : q @q( t t Z @
0x03df10…03e0a4 Dummy {f00=0x0013, f01=0x0190, f02=» t t Z @t t t `t q q q q q t :q"q0 q"q$q0 q$ q"t q0 q q"t q0 vB 0 IvN vF t t v2 Z @vT v `v @t T u" u8 v, t @t t _B v2 Z @vT v t
0x03e0a4…03e238 Dummy {f00=0x0013, f01=0x0190, f02=»vV Av< @vX Av> @vZ Av@ v: p| t _P v( v2 Z @vT v @v Av: @vV Av< @vX Av> @vZ Av@ v: p| t u& vB :t t t t w 0 Iw w `w @vf R v v vh w w @w Aw w
0x03e238…03e3cc Dummy {f00=0x0013, f01=0x0190, f02=»vd `w V wV wl w vd @vj vd_2 w w w w _( w vl w w v^ v^ w : w vdv`vbv`vb xh 0 Ixt xl @" @w P x x6 @xt Axd xd Z " xv w xv xt " x^ @xt Axd xd
0x03e3cc…03e560 Dummy {f00=0x0013, f01=0x0190, f02=» x xz y Z @y y `y @x T x x y _2 @y Ay y . xz x @xz P y* y> x xx y y x~ y y y x y y " @x " " @x " x xx_ xx y :xzx xzx|" y
0x03e560…03e6f4 (0, 79) Dummy {f00=0x0014, f01=0x0190, f02=» I}N }F z y @}P A}* }* Z @}N }V }V y @}T A}* }* Z @}R }V }V y @y @z P z z y }B : z y @y @z P z {$ }T @z }V }. Z @}R }X @y `}X P { { z y | @y @z P
0x03e6f4…03e888 Dummy {f00=0x0014, f01=0x0190, f02=» { z y | @y @z P { { @y @z P { { z y | @y @z P | |b }T @z }V @}R A}4 }2 . @z P |V |^ z y | @y @z P | | @y @z T }V }T @z }X @}R A
0x03e888…03ea1c Dummy {f00=0x0014, f01=0x0190, f02=» y y }B : z }Vz y }Vy }Xz y ERROR IN PATSIZ CAN'T HAPPEN A % $ ? [ N * 0 I @ A~ ~ Z @ } @} @}z P } } }| }Z ~ @} @}~ P @} @} P @
0x03ea1c…03ebb0 Dummy {f00=0x0014, f01=0x0190, f02=» ~ Z @ @}| }Z ~ @} @} P ~ ~ } }Z ~ }Z : }| }|} }^ 0 I @ @ R p x " :
0x03ebb0…03ed44 Dummy {f00=0x0014, f01=0x0190, f02=» 0 I ( " ( ` P " : @ * Z " ` @ , V @ * Z " & &
0x03ed44…03eed8 Dummy {f00=0x0014, f01=0x0190, f02=» @ A w " : @ * Z " & @ ( Z " , " : $ * & 0 I @ A | @ A ~ | ` ` P n v :
0x03eed8…03f06c Dummy {f00=0x0014, f01=0x0190, f02=» " " " :" 0 I @ A Z @ ` & @ & ` Q & @ ( &_2 Z @ ` ` P ( $ $ :_T * $ $ : , & ,
0x03f06c…03f200 Dummy {f00=0x0014, f01=0x0190, f02=» G jT 0 Ij` jX h h @jb AjD jD Z @j` jh `jh @h P h i h jT : jb @h jh jH Z @j` jj `jj @h P i@ iJ h jT : jb @h jh @jb AjD jD Z @j` jj @j` AjL @jj AjP @jd AjR jL q
0x03f200…03f394 (0, 80) Dummy {f00=0x0014, f01=0x0190, f02=»j" jb @h jb h jf j* h jf h h h jT : h jhh jh l 0 Il l @l Al l Z @l l `l @jn P j j jp l k l @jr l l Z @l l `l @jn P
0x03f394…03f528 Dummy {f00=0x0014, f01=0x0190, f02=»k k l @jr l k l @jr l @l Al l Z @l l @l Al @l Al l l l l Z l `l @jn P l l jp l jp `l P l@ ll l Z l jn l jp jl l| jt jl jl l
0x03f528…03f6bc Dummy {f00=0x0014, f01=0x0190, f02=»p l l l l l l p l p Z @p p p l @l `p T p @l @l T @p mf p l l @l @l P m m @p Ap p th l o @l @l P p @l `p P @p m m @p Ap p th l o @l @l
0x03f6bc…03f850 Dummy {f00=0x0014, f01=0x0190, f02=» P n n @p Ap @p Ap p v p l @p P n n p o @l @l P p @l `p Q @p o o l l p Z @p p p l @l @l P p @l @l P @p p @l @l P @p ox
0x03f850…03f9e4 Dummy {f00=0x0014, f01=0x0190, f02=» l p Z @p p p l m. @l `p T p" p6 l l p~ @p Ap p th @l P pb pv l l p~ l l l p :l l l l l l l l p l l l l l l l l l l l l l l p l l l l l
0x03f9e4…03fb78 Dummy {f00=0x0014, f01=0x0190, f02=»r r `r @p T @r q q r p @p p _l r Z @r r `r @p P q q p r @r Ar r th p r @r Ar r u r @r Ar r th p _ r Z @r r `r `r T rF rZ p p r @r Ar
0x03fb78…03fd0c Dummy {f00=0x0014, f01=0x0190, f02=» * tJ 0 ItV tN tX @r r @r `tZ V s8 sN s r @r r _2 r @r r t& Z @tV t^ @t^ At* @tV At, t* th r _P tX @r tX tZ r @tV At4 @tZ At6 t2 th r @tV At< @tZ At> t: th r
0x03fd0c…03fea0 Dummy {f00=0x0014, f01=0x0190, f02=» t 0 It t `u `u Q t t tb t` t @u At t Z @u u t u u @td u td t` t` t : tf @ N T vh 0 Ivt vl @vv Av` v` Z @vt vx vx
0x03fea0…040034 (0, 81) Dummy {f00=0x0014, f01=0x0190, f02=»u vV vv @u vv @vv Av` v` Z @vt vx vx u @u @u P v v$ u u vV @u @u P vB vN u u vV u u u vh : u vxu N [ ] xD 0 IxP xH xR @v xR @xR Ax x
0x040034…0401c8 Dummy {f00=0x0014, f01=0x0190, f02=» v~ xV v @xT Ax. @xV Ax0 x, th v~ @xP Ax6 @xR Ax8 @xT Ax: @xV Ax< x4 x x@ Z @xT xX xV @v @v xX @xR Ax x Z @xP xX `xX @v P w w v v| x v v| v| xD : v v v v v v v v v v v
0x0401c8…04035c Dummy {f00=0x0014, f01=0x0190, f02=» { 0 I{ { @{ A{ { Z @{ | | x @x `{ T | @x @x T @| y& { @x @x P yD y @{ A{ @{ A{ { u | @{ A{ @| A{ @| A{ { th x {r @x @x T y y @{ A{ @| A{ @| A
0x04035c…0404f0 Dummy {f00=0x0014, f01=0x0190, f02=»{ @| A{ @| A{ { th x {r | @x | { Z @{ | @| A{ { | @x Q z z @{ A{ @{ A{ @{ A{ @| A{ @| A{ { | {r | @x | { Z @{ | @| A{ { | @x Q { {N @{ A{ @{ A{ @{ A{ @
0x0404f0…040684 Dummy {f00=0x0014, f01=0x0190, f02=»x { : x | x | x x | x xZ xp | 0 I| | | | | Z @| | `| @| T |` |v | | @| | _B | Z @| | `| `| P | | | |
0x040684…040818 Dummy {f00=0x0014, f01=0x0190, f02=» @~ A} @~ A} } u ~$ @~ A} } | | @~ A} } Z @~ ~$ @~ A} @~$ A} } | | @| @| U } } } | @| | _2 ~ Z @~ ~$ @~$ A~ @~ A~ @~ A~ @~" A~ ~ th | _P ~ : ~$ | | |
0x040818…0409ac Dummy {f00=0x0014, f01=0x0190, f02=» c@ 0 IcL cD b cR cN @b cT c6 Z @cL cV `cV @b P c c$ c: g> cT @cP Ac> c< d cR cR b b c@ :cTb " cT
0x0409ac…040b40 Dummy {f00=0x0014, f01=0x0190, f02=» . e 0 Ie e `e @d P dR df d cX e e " e 6 d cX @cX @d P d d e _" e e d @e P d d d cX e e Z cZ e `e @d P e e
0x040b40…040cd4 (0, 82) Dummy {f00=0x0014, f01=0x0190, f02=»e e d cX e e 6 d cX e :d c cZd d d d d d g* 0 Ig6 g. e e e e g Z @g6 g8 `g8 @e T fJ fP g _2 @g6 Ag g hN e e @e P f
0x040cd4…040e68 Dummy {f00=0x0014, f01=0x0190, f02=» e _ e g* :e e e e " g8e e e e e e g 0 Ig g g @g< g: g< @g: R g g " g: g: g : h* 0 Ih6 h. h8 @g h> h& Z " h@ h6 h@ h: @g
0x040e68…040ffc Dummy {f00=0x0014, f01=0x0190, f02=» hB j j j4 hH `j4 P h h hB j$ : j4 @hJ j6 j Z " j8 `j8 @hL V h i j4 @hJ j6 j Z " j8 j8 hF i, j hF j hB hJ @hB P i` i| @j0 Aj @j2 Aj" j
0x040ffc…041190 Dummy {f00=0x0014, f01=0x0190, f02=» @hH j6 j Z " j8 hL j8 hB j$ :hDj6hJhF j 0 Ij j @" @j: P jv j @j Aj j Z " j j: j j " j @j Aj j Z " j " j j " j : j< kf
0x041190…041324 Dummy {f00=0x0014, f01=0x0190, f02=»" j
0x041324…0414b8 Dummy {f00=0x0014, f01=0x0190, f02=» d 0 Id( d b d, d* @b d* @d( Ad @d* Ad @d, Ad d eH d0 b @d0 P c" c2 b d, b `d, P cZ c @d( Ad @d* Ad @d. Ad @d, Ad d dB d0 b @d0
0x0414b8…04164c Dummy {f00=0x0014, f01=0x0190, f02=» b " " P e 0 Ie* e" e, d4 e Z @e* e2 `e2 @d6 P d d d8 e. d4 @d8 d4 d d: e. e Z @e* e2 `e2 @d< P d d d> e0 e d@ e0 e0 d2
0x04164c…0417e0 Dummy {f00=0x0014, f01=0x0190, f02=» @h Ahp hn k @h Ahn @h Ahp @h Ahr @h Aht hn l8 h e@ @h P e g @h Ahn @h Ahp hn k @h Aht ht Z @h h h e8 @e8 @eB T h @e8 @eD T @h fV fj e> h g @e8 @eB P f f
0x0417e0…041974 (0, 83) Dummy {f00=0x0015, f01=0x0190, f02=» @h P g g, h `h h e> `h P gT gd eF h e@ `h T g e e> `h R h `h @" Q @h g g eF h eF `h P h
0x041974…041b08 Dummy {f00=0x0015, f01=0x0190, f02=» e@ e< e:e< jp 0 Ij| jt h @" U j~ @" `j| U j `j| @" U @j @j~ i$ i8 h h jJ jT j j~ jV h jX j~ jV h jT h jX
0x041b08…041c9c Dummy {f00=0x0015, f01=0x0190, f02=» `j| " @j| Ajb jb h @j| Ajb jb j~ jV h jd j jh j h h h jp :" j~" h h h h h h h h h h j 0 Ij j j @j j j @j R j j " j j j :
0x041c9c…041e30 Dummy {f00=0x0015, f01=0x0190, f02=»k k kr :k j k 0 Il l @l Ak k Z @l l `l @k P k k l @k l _H k : k 0 1 2 3 4 5 6 7 8 9 . $ / n 0 In n l( l @n An
0x041e30…041fc4 Dummy {f00=0x0015, f01=0x0190, f02=»P l l l, l n @l. n nx @l& @l0 P m, m8 " n nx @l& @l2 P mV mb " n nx @l& @l4 P n @l& @l6 P @n m nh @n An @n An n o n l, @n P m m l,
0x041fc4…042158 Dummy {f00=0x0015, f01=0x0190, f02=»n An n r l nx l. l l( @l P n n n @l. n l n l n : l(l l& l* n o 0 Io o n n o Z @o o `o @n T oB oX o n @n n _B
0x042158…0422ec Dummy {f00=0x0015, f01=0x0190, f02=» 0 Iq q @q Aq q Z @q q `q @o P p p( o q q( q @o q q Z @q q `q @o P pf pz o q q( @q Aq q Z @q q q @o q q Z @q r `q `r P p p
0x0422ec…042480 Dummy {f00=0x0015, f01=0x0190, f02=» P qV qf o q o `q P q q q Z q o q o o q o o o q : o q o q o q o o s 0 Is s " s `s @r P rN
0x042480…042614 (0, 84) Dummy {f00=0x0015, f01=0x0190, f02=» r r s : `s @" P r _ r r r s : aN 0 9 t 0 It t @t At @t At t k s s @t At t Z @t t `t @s T s s t t @s t _J @t At t Z
0x042614…0427a8 Dummy {f00=0x0015, f01=0x0190, f02=»t @s @s$ P t @s @s& V @t @t tp t s( s t t @s s _ s t : s,s s* ? % $ [ * A x 0 Ix x t t t t t t x t x Z @x x x
0x0427a8…04293c Dummy {f00=0x0015, f01=0x0190, f02=» t w @t @t P x @t `x P @x u v @x Ax x {j t w @t @t P x t @t x x Z @x x `x `x P @x vZ vr @x Ax x {j t w @t @t P v v @x Ax @x Ax x @ x t
0x04293c…042ad0 Dummy {f00=0x0015, f01=0x0190, f02=» Z @x x x t @t @t P x @t @t P @x x @t @t P @x w w x @x Ax x y t w @x Ax x {j t @x Ax x x @x Ax x {j t t t t @t t x Z @x x x t u< @t `x T
0x042ad0…042c64 Dummy {f00=0x0015, f01=0x0190, f02=»t t t t t t x t t t t t t t t t t t t t t x t t t t t y 0 Iy y y x y Z @y y `y @y T yT yj y x @y x _B @y Ay @y Ay y | @y Q y y y
0x042c64…042df8 Dummy {f00=0x0015, f01=0x0190, f02=» @y y @y `{ V z: zP z y @y y _2 y @y y {( Z @{X {` @{` A{, @{X A{. {, {j y _P {Z @y {Z { y @{X A{6 @{ A{8 {4 {j y @{X A{> @{ A{@ {< {j y @{^ A{D @{X A{F @{ A{H {D {j y @{X A{> @{ A{@ {< {j
0x042df8…042f8c Dummy {f00=0x0015, f01=0x0190, f02=»| Q { { {d {b { @| A{ { Z @| | | | | @{f | {f {b {b { : {h * 0 I | | | | | v Z @ ` @| T |~ | d @ A z z
0x042f8c…043120 Dummy {f00=0x0015, f01=0x0190, f02=» @| T } } }Z_2 @ A @ A @ @| P }T }X }Z_< | @| Z @ | @| | @| Z @ | | | ` @ A @ A @ @| P } ` @| @| Q ~
0x043120…0432b4 (0, 85) Dummy {f00=0x0015, f01=0x0190, f02=» ~ _n @| @| U ~ ~ | | | : | @| Z @ | @| Z @ @| | @| | | @| Z @ | @| Z @ ` | | | | | :| | | | |
0x0432b4…043448 Dummy {f00=0x0015, f01=0x0190, f02=» @ $ $ @ @ T , " @ $ Z @ & ` & @ P j v " @ " @ " A Z @ $ $ @ @ P @ @ P
0x043448…0435dc Dummy {f00=0x0015, f01=0x0190, f02=» @ A Z @ ` @ 0 P @ A @ A {j * @ . @ A @ A {j * , @ A @ A {j * @ A @ A @ A @ A Z @ @ , @ . @ A Z @
0x0435dc…043770 Dummy {f00=0x0015, f01=0x0190, f02=» 4 , < ERROR IN OMATCH CAN'T HAPPEN A % ? $ [ N ` 0 I l d * @ n A H H Z @ l t t @ r A H H Z @ p t t @ @ * P ` : , @ @ . P
0x043770…043904 Dummy {f00=0x0015, f01=0x0190, f02=» ` ` n @ , P ~ * @ @ 2 P @ @ 4 T , @ @ 6 P @ @ 4 P * @ @ 8 P 8 r @ , t @ p A R P j @ ,
0x043904…043a98 Dummy {f00=0x0015, f01=0x0190, f02=» j @ * P @ t , < @ @ * V & > n @ n , ` : > t > t v < ERROR IN PATSIZ CAN'T HAPPEN A % $ ? [ N * $ 0 I 0 ( @ 2 A Z @
0x043a98…043c2c Dummy {f00=0x0015, f01=0x0190, f02=» P @ 6 d p x @ z @ P 4 @ z @ P @ 4 2 @ 4 Z @ 0 6 6 @ x @ z @ P x < x $ : 4 | 0 I
0x043c2c…043dc0 Dummy {f00=0x0015, f01=0x0190, f02=» 9 A B C D E F G H I J K L M N O P Q R S T U V W X Y Z @ - B 0 I N F @ R A Z @ P Z Z @ ` N T Z @ @ T @ Z | @ @ P @ P A @ R A Z @ T A @ V A @ X
0x043dc0…043f54 (0, 86) Dummy {f00=0x0015, f01=0x0190, f02=» R @ Z @ P ^ ` ^ @ P @ Z | @ T A @ V A " @ X A $ {j V @ Z & Z @ T @ A , * n @ Q $ @ P A , @ R A . @ T A 0 @ V A 2 @ X A 4 * X V @ Z & Z @ T
0x043f54…0440e8 Dummy {f00=0x0015, f01=0x0190, f02=» " @ X A $ {j R @ R @ R A Z @ P Z Z D B : Z Z : 0 I F > @ J A 2 2 Z @ H L J ` L b @ b ` J
0x0440e8…04427c Dummy {f00=0x0015, f01=0x0190, f02=» ` : : h b h 0 I @ T @ T @ A l @ A n l @ A n n n N @ A r r Z @ @ A l @ A n l n P @ P @ N U ( f P @ T P_2 v Z @
0x04427c…044410 Dummy {f00=0x0015, f01=0x0190, f02=» c, 0 Ic8 c0 b c< @c< Ac$ c c> b @c> P c c c& cN c< c< b b c, :b " " " b dB 0 IdN dF @dR Ad2 d2 cB dN cD @cD `dP U
0x044410…0445a4 Dummy {f00=0x0015, f01=0x0190, f02=» v d8 cF cL c@ c@ dB : cDaNcBcHdTcHcJ
0x0445a4…044738 Dummy {f00=0x0015, f01=0x0190, f02=» d 0 Id( d d* @b d* b d, @d( Ad @d* Ad @d, Ad d f d0 b @d0 P c" c2 b d, b `d, P cZ c @d( Ad @d* Ad @d. Ad @d, Ad d dB d0 b @d0
0x044738…0448cc Dummy {f00=0x0015, f01=0x0190, f02=» b " " P e 0 Ie* e" e, d4 e Z @e* e2 `e2 @d6 P d d d8 e. d4 @d8 d4 d d: e. e Z @e* e2 `e2 @d< P d d d> e0 e d@ e0 e0 d2
0x0448cc…044a60 Dummy {f00=0x0015, f01=0x0190, f02=»f U f `f @" U @f @f e e e> e4 f f " " e6 " e8 @e8 @" U f f f e8 @e< e8_2 f e: f j6 e4 e> @e4 P fV fZ f @" `f U fx f e6 @e< e6
0x044a60…044bf4 (0, 87) Dummy {f00=0x0016, f01=0x0190, f02=» j @j Ai @j Ai i l @j Ai @j Ai @j Ai @j Ai i of j" f @j" P gp i @j Ai @j Ai i l @j Ai i Z @j j" j" f @f @f T j" @f @f T @j" g g f j i @f @f
0x044bf4…044d88 Dummy {f00=0x0016, f01=0x0190, f02=» of j" f @j" P h h j `j j f `j P h h f j f `j T i gp f `j R j" `j @" Q @j" iX ih f j f `j
0x044d88…044f1c Dummy {f00=0x0016, f01=0x0190, f02=» j f j : f f f f kt 0 Ik kx j. j$ j0 j& kZ Z @k k `k @j2 T j j kP_2 @k Ak^ k^ l j& j. @j& P j j j. j$ kP kd
0x044f1c…0450b0 Dummy {f00=0x0016, f01=0x0190, f02=»j(" k j*j(j(j,j*j( k 0 Il l l @k l k Z " l l l l @k l k Z " l l l k :l k l 0 Il l @l Al l Z @l l `l @l P ll
0x0450b0…045244 Dummy {f00=0x0016, f01=0x0190, f02=»n l `n P m m l n| : n @l n nr Z " n `n @l V mL mx n @l n nr Z " n n l m np l nv l l @l P m m @n Anx @n Anz nx l l
0x045244…0453d8 Dummy {f00=0x0016, f01=0x0190, f02=» Z " n l n l n| :l n l l o, 0 Io8 o0 @" @n P n n @o8 Ao( o( Z " o: n o: o8 " o" @o8 Ao( o( Z " o: " o: o8 " o, : n 0 1 2 3 4 5 6 7 8 9
0x0453d8…04556c Dummy {f00=0x0016, f01=0x0190, f02=» o p< @r Aq @r Aq q v r oZ `r P p p( oZ o< r @o r q @oT @o^ P pZ pf " r q @oT @o` P p p " r q @oT @ob P r @oT @od P @r p q @r Aq @
0x04556c…045700 Dummy {f00=0x0016, f01=0x0190, f02=» P qV qn @r Aq q u o< q o r @r Ar r u o< q o o< oV @o< P q q r @o r o< r o< r : oVo>oT oX r r 0 Ir r @" @r
0x045700…045894 (0, 88) Dummy {f00=0x0016, f01=0x0190, f02=» 0 Ist sl r r sd Z @st sx `sx @r T s s sR r @r r _B sd Z @st sx `sv `sx P sF sP r sh :_L r r r sh :r r u 0 Iu u @u Au u Z @u u `u @s|
0x045894…045a28 Dummy {f00=0x0016, f01=0x0190, f02=» u t @u Au u Z @u u u @s u u Z @u u `u `u P t t u @s u t u @s u @u Au u Z @u u @u Au @u Au u x u u Z u `u @s| P u u& s~ u s~ `u
0x045a28…045bbc Dummy {f00=0x0016, f01=0x0190, f02=»s v 0 Iv v " v `v @u P v v& @v Av v v v: @v Av v } v @v Av v u v | @u P vr v u u u v : `v @" P v _ u
0x045bbc…045d50 Dummy {f00=0x0016, f01=0x0190, f02=»v v @x| Axf xf Z @xz x~ `x~ @v T w wr xZ x| @v x|_J @x| Axf xf Z @xz x~ x~ v @v @v R x~ @v @v Q @x~ w w xZ v @v v @v @v Q x~ @v @v P x @v @v V @x @x~
0x045d50…045ee4 Dummy {f00=0x0016, f01=0x0190, f02=» % $ [ * A | 0 I| | x x x x x x | x |V Z @| | | x @x `| T | @x @x T @| y4 { x x @x @x P yZ yr @| A| |Z x { @x @x P | @x `| P @|
0x045ee4…046078 Dummy {f00=0x0016, f01=0x0190, f02=» z z2 @| A|p |n x { @x @x P zP z @| A|v @| A|z |v v | x @| P z z { { @x @x P | @x `| Q @| z {b x x |~ Z @| | | x @x @x P | @x @x P
0x046078…04620c Dummy {f00=0x0016, f01=0x0190, f02=» @| A| | x x x x @x x |V Z @| | | x x @x `| T { | x x |L @| A| | @x P |0 |D x x |L 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
0x04620c…0463a0 Dummy {f00=0x0016, f01=0x0190, f02=» T } }* }r | @| | _B @} A} @} A} } V @| Q }^ }p | | | } :_Z | | | } :| | | ~ 0 I~ ~ ~ @} } } @} R } } " } } ~ :
0x0463a0…046534 (0, 89) Dummy {f00=0x0016, f01=0x0190, f02=»~ ~ _2 ~ @~ ~ ^ Z @ @ A b @ A d b ~ _P @~ ~ @ A l @ A n j ~ @ A t @ A v r ~ @ A z @ A | @ A ~ z ~ @ A t @ A v r ~ ~ :~ ~( ~ ~"~$ ~"~& ~" ~"
0x046534…0466c8 Dummy {f00=0x0016, f01=0x0190, f02=» Z @ 8 > 6 > : @ : * : * 0 I J B D L F Z @ ` @ J T @ A @ F F_N Z @ ` @ N P
0x0466c8…04685c Dummy {f00=0x0016, f01=0x0190, f02=» v @ J P _< B @ L Z @ H @ D B @ R Z @ D H D @ A @ A v @ J P ( @ B @ J Q D r B @ T Z @ B_J
0x04685c…0469f0 Dummy {f00=0x0016, f01=0x0190, f02=» : B @ L Z @ B @ L Z @ @ L B @ P F B @ R Z @ B @ L Z @ ` D D @ @ : F T F H T H F T D F T
0x0469f0…046b84 Dummy {f00=0x0016, f01=0x0190, f02=» 8 X @ Z F Z @ V ` @ P 8 X @ X @ X A B B Z @ V Z Z @ @ P 8 @ @ P $ 0 8 J : Z
0x046b84…046d18 Dummy {f00=0x0016, f01=0x0190, f02=» @ 6 A @ 8 A ` 4 @ d 4 " @ 6 A @ 8 A ` 8 b @ 6 A @ 8 A ` @ 2 A @ 4 A @ 6 A @ 8 A @ " Z @ 6 : 8 @ b @ d : @ 4 A Z @ 2 : ` : @ p P r
0x046d18…046eac Dummy {f00=0x0016, f01=0x0190, f02=»IN OMATCH CAN'T HAPPEN A % ? $ [ N 0 I ` < @ A ~ ~ Z @ > @ A ~ ~ Z @ @ @ > @ ` P < : b B @ @ @ d P . x @ b Z @ @ >
0x046eac…047040 Dummy {f00=0x0016, f01=0x0190, f02=» @ @ h P @ > @ j T b B > @ @ @ l P & P @ > @ j P D L ` B > @ @ @ n P n @ b @ A @ b P b B > @ @ @ p P
0x047040…0471d4 (0, 90) Dummy {f00=0x0016, f01=0x0190, f02=» r @ B @ ` V t @ B b < < : t t > > r D ERROR IN PATSIZ CAN'T HAPPEN A % $ ? [ N * Z 0 I f ^ @ h A N N Z @ f j j @ @ P < H
0x0471d4…047368 Dummy {f00=0x0016, f01=0x0190, f02=» P j @ @ P @ j h @ j R Z @ f l l @ D @ @ P 0 < D V r Z : j 0 I @ A @ A ` ` P
0x047368…0474fc Dummy {f00=0x0016, f01=0x0190, f02=» X Y Z @ - x 0 I | @ A 8 8 Z @ 2 @ 2 ` T @ 2 @ 6 T @ 2 @ 2 @ 8 P @ A < @ A > < @ A B @ A D @ A F @ 4 @ 2 @ : T 2 Z
0x0474fc…047690 Dummy {f00=0x0016, f01=0x0190, f02=» @ @ A V @ A X @ A Z T 4 @ < Z @ @ A b ` r @ 6 Q & Z @ A b @ A d @ A f @ A h @ A j ` @ < Z @ @ A n l r @ 6 Q @
0x047690…047824 Dummy {f00=0x0016, f01=0x0190, f02=» Z @ 2 z x : > 2 > : > p 0 I | t @ A h h Z @ ~ ` @ ` Q V @ _2 l Z @ ~
0x047824…0479b8 Dummy {f00=0x0016, f01=0x0190, f02=» 0 I @ @ @ A @ A @ A r @ A Z @ @ A @ A r @ @ U H ^ @ _2 Z @ @ A @ A @ A @ A
0x0479b8…047b4c Dummy {f00=0x0016, f01=0x0190, f02=»# $ U U W : 50 50 Aq Aq Aq Aq q Aq :o p,p p p SWALLOW CARD TIMEOUT (MULTIPLES OF 2.56 S) : TRANSMISSION TIMEOUT (MULTIPLES OF 2.56 S) : PIN LOADING TIMEOUT (MULTIPLES OF 2.56 S) : BUZZER TIMEOUT (MULTIPLES OF
0x047b4c…047ce0 Dummy {f00=0x0016, f01=0x0190, f02=»$ / $$ PIN CALCULATION FIELDS : @d P` q a Z Y rl q r ( q a Z Y rf r rB " : @d P q q :PARTITION LENGTH IN BYTES ( HEXA ) : NUMBER OF PARTITIONS : !!CH $$ X:A$$ / $$ !!CH $$ X:B$$ $$ # 0 !00R !
0x047ce0…047e74 (0, 91) Opaque[0x194]
0x047e74…048008 # DirEnt {nam=»M:PROC«, typ=»UF«, f00=0x0000, f01=0x0000, f02=0x02e0, f03=0x0000}
0x047e74…048008 IdxSect {
0x047e74…048008 f00 = 0x0017 // 0x47e74 @0x0
0x047e74…048008 f01 = 0x0004 // 0x47e76 @0x2
0x047e74…048008 gno = [ // 0x47e78 @0x4
0x047e74…048008 [0x00]: C0x0017.0x0.0
0x047e74…048008 [0x01]: C0x0017.0x1.0
0x047e74…048008 ]
0x047e74…048008 }
0x048008…04819c Dummy {f00=0x0017, f01=0x0190, f02=» P$PCAS PASG 3,@DA=TK0E PREW 3 ( PWEF 3 M=@M= 6 PRUN CPLGEN @M= J PMOV @M=,/L,@MU ` PRUN PCAS @M= v PWEF 3 @A= PMOV @A=,/L,@AU PRUN PCAS @A= 2 P$PCASC M=@M=,A=@A=,C=@C=,CU=@CU=,D=@D=,DU=@DU= * P$PCASC M=@M=
0x04819c…048330 Dummy {f00=0x0017, f01=0x0190, f02=»A=,C=@C=,D=@D= P$PCASC M=@M=,A=@A=,C=@C= P$PCASF C=@C= 6 P$PCASF D=@D= J P$PCASF CU=@CU= ^ P$PCASF DU=@DU= t P$PCASE M=@M=,A=@A= P$PCASE M=@M= P$PCASE A=@A= PMES PARAMETER ?? PEND P$PCASC PWEF 3
0x048330…0484c4 Dummy {f00=0x0017, f01=0x0190, f02=»MES @D= P$PCASE PEND P$PCASF * * PMES ILLEGEL PARAMETER COMBINATION!!!! 8 2 PMES M,M+A,A,M+A+C,M+A+C+D IS OK SO TRY AGAIN! f * PMES AND DON'T DO ANY MORE MISTAKES!!!! P$PCASE PEND P$PCASE PWEF 3,2 PULD /3
0x0484c4…048658 Dummy {f00=0x0017, f01=0x018e, f02=»=,/L,@MU PRUN PDISC,0 M=@M= , POPT OUT=@MOUT=@M=,FC=@FC=F4,FT=M,INP=@M= * PSCR /A A=@A= Z PSCR /L A=@A= n PMOV @A=,/L,@AU PRUN PDISC,0 A=@A= , POPT OUT=@AOUT=@A,FC=@FC=F4,FT=A,INP=@A= PSCR /A C=@C= PSCR /L C=@C=
0x048658…0487ec Dummy {f00=0x0017, f01=0x0190, f02=» P$PDISCE P=@C= * PMES ILLEGAL PARAMETER COMBINATION !!! * PMES FOLLOWING COMBINATIONS ARE VALID: L " PMES 1 A,A+AU,A+AOUT,A+AU+AOUT z " PMES 2 C,C+CU,C+COUT,C+CU+COUT " PMES 3 M,M+MU,M+MOUT,M+MU+MOUT PMES 4 FC : PMES ANY COMB
0x0487ec…048980 Dummy {f00=0x0017, f01=0x403e, f02=»IF NEEDED n PEND P$PDISCE PEND .@ :N !!! * PMES FOLLOWING COMBINATIONS ARE VALID: L " PMES 1 A,A+AU,A+AOUT,A+AU+AOUT z " PMES 2 C,C+CU,C+COUT,C+CU+COUT " PMES 3 M,M+MU,M+MOUT,M+MU+MOUT PMES 4 FC : PMES ANY COMB
0x048980…048b14 (0, 92) Dummy {f00=0x0017, f01=0x4008, f02=»@ PRUN CCDD,0 C=@C= P$PDISCE M=@M=,A=@A=,C=@C= ( P$PDISCE M=@M=,A=@A= J P$PDISCE M=@M=,C=@C= f P$PDISCE A=@A=,C=@C= P$PDISCE M=@M= P$PDISCE A=@A= P$PDISCE C=@C= PMES PARAMETER? PEND P$PDISC
0x048b14…048ca8 Dummy {f00=0x0017, f01=0x2008, f02=» REF /A PRDS /A PKPF /S $ PEND 2 P$RDAFL > PASG /E1,@D=FL09 L PASG /A,DK d PRUN READFL v PKPF /A,@N PEND P$ASGFL PASG /E1,@D=FL09 PASG /A,DK PRUN READFL PKPF /A,@N PASG /E
0x048ca8…048e3c Dummy {f00=0x0017, f01=0x0190, f02=» 6 6 6 6 6
0x048e3c…048fd0 Dummy {f00=0x0017, f01=0x0190, f02=» 6 6
0x048fd0…049164 Dummy {f00=0x0017, f01=0x0190, f02=» :
0x049164…0492f8 Dummy {f00=0x0017, f01=0x0190, f02=»
[…0x2…]
0x049620…0497b4 (0, 93) Opaque[0x194]
0x0497b4…049948 # DirEnt {nam=»SUM «, typ=»LM«, f00=0x0000, f01=0x0000, f02=0x02f0, f03=0x0000}
0x0497b4…049948 IdxSect {
0x0497b4…049948 f00 = 0x0017 // 0x497b4 @0x0
0x0497b4…049948 f01 = 0x0004 // 0x497b6 @0x2
0x0497b4…049948 gno = [ // 0x497b8 @0x4
0x0497b4…049948 [0x00]: C0x0017.0x2.0
0x0497b4…049948 [0x01]: C0x0017.0x3.0
0x0497b4…049948 ]
0x0497b4…049948 }
0x049948…049adc Dummy {f00=0x0017, f01=0x0190, f02=» 5 8 fY%w x b # g $ ^ : 9 i $ 7 f w |4r tV u 3 qC 5 * zuqV $ ' > P ZD o c r P| sV i % 9Zj Q > - D $ 4` 1P -8 T r tB l`Tg t z ^ lFZF H 2 Z j z
0x049adc…049c70 Dummy {f00=0x0017, f01=0x0190, f02=»R * Z ` D L R L A L W W ` * @ bV& L | ** - Z ` d h X 8 8 ( 8Y, W W : ( " f SUM 10.0 (800314) *** SAV
0x049c70…049e04 Dummy {f00=0x0017, f01=0x0190, f02=»1 357 41000 0SAVE D I S C ONTO MAGTAPE 0SAVE U S E R ONTO MAGTAPE 0MEMORY OVERFLOW STATISTICS TOTAL NUMBER OF SAVED USERS: SAVED FILES: SAVED GRANULES: A X z USERID: @ bV
0x049e04…049f98 Dummy {f00=0x0017, f01=0x0190, f02=» A v : A B @ bV T X 9! A | bV ( @ bV(W @ bV " T F Z2 @ bV @ V D F X _ A z :( " f SUM 10.0 (800314) *** SAV
0x049f98…04a12c Dummy {f00=0x0017, f01=0x0190, f02=»1 357 41000 0SAVE D I S C ONTO MAGTAPE 0SAVE U S E R ONTO MAGTAPE 0MEMORY OVERFLOW STATISTICS TOTAL NUMBER OF SAVED USERS: SAVED FILES: SAVED GRANULES: A USERID: @ bV T Z
0x04a12c…04a2c0 Dummy {f00=0x0017, f01=0x0190, f02=» STATUS WORD: @ * P WRITE PROTECTED @ * P NOT OPERABLE @ * P END OF TAPE ( < $" = A A ( : A B A D @( L A B A D < ! X !XXT L( ( @ L! : h A B A D (
0x04a2c0…04a454 (0, 94) Dummy {f00=0x0017, f01=0x0190, f02=»_ 0Z2 U ]@ YF< Y< ZT L A ` * R P b bZ : h bZ : F SA?? DISC FILE CODE ? OK ? LISTING OF FILENAMES ETC.? < $" = @ 0 A 0 A 2 A 0 : A 2W @ n A 2 A R A U "
0x04a454…04a5e8 Dummy {f00=0x0017, f01=0x0190, f02=» A 2 : ; [ [ [ Z Z Z : : < , = = $ - Y : - : " :d H - " H - :0123456789ABCDEF A 9h _@ - Y : @ nY : @ U " : @ A R _ : N A : J (
0x04a5e8…04a77c Dummy {f00=0x0017, f01=0x0190, f02=» 1 0Z2 U ]@ YF< Y< ZT L A ` R P b bZ : hPAGE: J F SA?? DISC FILE CODE ? OK ? LISTING OF FILENAMES ETC.? < $" = @ A A A : A W @ Z V Z W Z R` P WX
0x04a77c…04a910 Dummy {f00=0x0017, f01=0x0190, f02=» 4X X [ Z _ TV 4P P _ lWJ U : l R O T O O W O U W W @ * @ A &P @ : _ _ _ 1^ _ 1Y P . 0^& Q *_8 W ?B?e + A "
0x04a910…04aaa4 Dummy {f00=0x0017, f01=0x0190, f02=»C P @ * XXXXING SECTOR: XXXX, STATUS WORD: XXXX ( READWRIT , %Q R Y W W Z ' [ : ; [ [ [ [ [ R Q @ - WJ @ - A R( X R X _ Q @ X A T -
0x04aaa4…04ac38 Dummy {f00=0x0017, f01=0x0190, f02=» 8 P A_A ( A_1 ) { l A_A [ P [ T 4 A . @ 0 8A:a @ . 8A:a V [ T @ . Z [ 8 T Z & & T @ . Z 8 TB . F ' & F % G A_: = A_1
0x04ac38…04adcc Dummy {f00=0x0017, f01=0x0190, f02=» [ U F A_;P [ _$ [ X Z @ . ! Z @ . H A_: , A_1X A_: _1 G^,U A_A @_1 . C ( A_1P A_A _ _ A l A A_A A_: = A
0x04adcc…04af60 Dummy {f00=0x0017, f01=0x0190, f02=»_2 _ G A_: , A_1X W A_: ( A_1 A_AT A_AW( A_A @_2 8A:a OQf @_2 . G A_: , A_1T0 : A_A @_2 8A:a PQ @_2 . G . F G U A_A A_: ) A_1P A_A
0x04af60…04b0f4 (0, 95) Opaque[0x194]
0x04b0f4…04b288 # DirEnt {nam=»RUM «, typ=»LM«, f00=0x0000, f01=0x0000, f02=0x0300, f03=0x0000}
0x04b0f4…04b288 IdxSect {
0x04b0f4…04b288 f00 = 0x0018 // 0x4b0f4 @0x0
0x04b0f4…04b288 f01 = 0x0006 // 0x4b0f6 @0x2
0x04b0f4…04b288 gno = [ // 0x4b0f8 @0x4
0x04b0f4…04b288 [0x00]: C0x0018.0x0.0
0x04b0f4…04b288 [0x01]: C0x0018.0x1.0
0x04b0f4…04b288 [0x02]: C0x0018.0x2.0
0x04b0f4…04b288 ]
0x04b0f4…04b288 }
0x04b288…04b41c Dummy {f00=0x0018, f01=0x0190, f02=» 4 X 5 8 fY%w x b # g $ ^ : 9 i $ 7 f w |4r tV u 3 qC 5 * zuqV $ ' > P ZD o c r P| sV i % 9Zj Q > - D $ 4` 1P -8 T r tB l`Tg t z ^ lFZF H 2 Z j z
0x04b41c…04b5b0 Dummy {f00=0x0018, f01=0x0190, f02=» V b @ X D 4D;a<a * A A A R$S D L R( L A L 2 W v 0MT AT EOF! W H 2 A R Sr @ ^ _& @ V& 4 ** - &Z b N 0 8
0x04b5b0…04b744 Dummy {f00=0x0018, f01=0x0190, f02=» (800314) *** RESTORED FILES WITH GRANULE ADDRESSES ************** DATE OF RUN: YYMMDD 0RUM REL 10.0 DATE 80. 03. 14 12NC=8701 356 41000 0RESTORE D I S C FROM MAGTAPE 0RESTORE U S E R FROM MAGTAPE 0MEMORY OVERFLOW STATISTICS TOTAL NUMBER OF RESTOR
0x04b744…04b8d8 Dummy {f00=0x0018, f01=0x0190, f02=» P zW D * A x @ Q @ lT T A W 0 0 A | A K @ 4 K K @ T W N 4 0 @ 0 @ | V @ V N H @ vT @
0x04b8d8…04ba6c Dummy {f00=0x0018, f01=0x0190, f02=» OVFL W v 0CATALOG OVFL @ $ 4 v WHEN CREATING USER UUUUUUUU NEW USERID: N:O OF FILES RESTORED:, N:O OF GRANULES ALLOCATED: zE D I S C FROM MAGTAPE 0RESTORE U S E R FROM MAGTAPE 0MEMORY OVERFLOW STATISTICS TOTAL NUMBER OF RESTOR
0x04ba6c…04bc00 Dummy {f00=0x0018, f01=0x0190, f02=» lT z T RW A | A A K V6 B @ K B @ 0 0 ~ J @ | 9! A t V P R P v 0DISC OVFL W X V8 | 9! W ! T V B T ~ | Z$ V AQ, @ @ ~
0x04bc00…04bd94 (0, 96) Dummy {f00=0x0018, f01=0x0190, f02=» 4 v* WHEN RESTORING FFFFFFTT OF USER UUUUUUUU V A v @ v d ~ J ]x _ W S v UNEXPECTED TAPE MARK A v v RESTORED FILE NO GOOD _ < $" = 8 A A ( : A A ( A A ! X !XX
0x04bd94…04bf28 Dummy {f00=0x0018, f01=0x0190, f02=» A W ! T _ !//T ( _ 0Z2 U ]@ YF< Y< ZT A R 8 P Z : Z : 0DISC?? DISC FILE CODE ? OK ? LISTING OF FILENAMES ETC.? < $" = @ A A j A :
0x04bf28…04c0bc Dummy {f00=0x0018, f01=0x0190, f02=» @ d #U. A b @ b A d f p @ 8 N A : ; [ [ [ Z Z Z : : < , = = $ - Y : - : " :d H l - " H l - :0123456789ABCDEF A 9h R _@ - Y : @ ` nY : @ dU : @ ` A `R Z_
0x04c0bc…04c250 Dummy {f00=0x0018, f01=0x0190, f02=» A W ! T _ !//T 1 0Z2 U ]@ YF< Y< ZT A R P Z : PAGE: 0DISC?? DISC FILE CODE ? OK ? LISTING OF FILENAMES ETC.? < $" = @ A A A :
0x04c250…04c3e4 Dummy {f00=0x0018, f01=0x0190, f02=» : : W _" ~ n J 4X X [ Z _ ~ n JTV 4P P _ WJ U 4 : R O T O O W O U W W x A P @ : _ _ _ 1^ _ 1Y
0x04c3e4…04c578 Dummy {f00=0x0018, f01=0x0190, f02=» : A ]B v 0TOO MANY I/O ERRORS ON DISC P 4 @ v* XXXXING SECTOR: XXXX, STATUS WORD: XXXX ( READWRIT A ( @ P P,QT @ P0WH @ @ P> A Q8 ( ( _6 ( @ P W W @
0x04c578…04c70c Dummy {f00=0x0018, f01=0x0190, f02=» v LENGTH ERROR _ ( : , %Q R Y W W Z ' [ : V T(= @ | M ~ A | _ @ | V I ~ _ U X W @ | R A | L ~ M ~9# Z : _ _ _ 1^ _ 1Y
0x04c70c…04c8a0 Dummy {f00=0x0018, f01=0x0190, f02=» : A ]B v 0TOO MANY I/O ERRORS ON DISC P 4 @ v* XXXXING SECTOR: XXXX, STATUS WORD: XXXX ( READWRIT A ( @ P P Q @ P W @ @ P A Q ( ( _6 ( @ P W W @ ;
0x04c8a0…04ca34 (0, 97) Dummy {f00=0x0018, f01=0x0190, f02=» Z Z Z Z Z : :- 0123456789 d ' A A @ x 4 R" 4X @ x =C R 9 W - 9W: - 9W. ;c ` xQ( $ ,` A 5 <` @ x+ z @ x : W ~ M ~9# Z : _ _ _ 1^ _ 1Y
0x04ca34…04cbc8 Dummy {f00=0x0018, f01=0x0190, f02=» A W ! T _ !//T ( _ 0Z2 U ]@ YF< Y< ZT A R 8 P Z : Z : 0DISC?? DISC FILE CODE ? OK ? LISTING OF FILENAMES ETC.? < $" = @ A A j A :
0x04cbc8…04cd5c Dummy {f00=0x0018, f01=0x0190, f02=» @ d #U. A b @ b A d f p @ 8 N A : ; [ [ [ Z Z Z : : < , = = $ - Y : - : " :d H l - " H l - :0123456789ABCDEF A 9h R _@ - Y : @ ` nY : @ dU : @ ` A `R Z_
0x04cd5c…04cef0 Dummy {f00=0x0018, f01=0x0190, f02=» A W ! T _ !//T 1 0Z2 U ]@ YF< Y< ZT A R P Z : PAGE: 0DISC?? DISC FILE CODE ? OK ? LISTING OF FILENAMES ETC.? < $" = @ A A A :
0x04cef0…04d084 Dummy {f00=0x0018, f01=0x0190, f02=» : : W _" ~ n J 4X X [ Z _ ~ n JTV 4P P _ WJ U 4 : R O T O O W O U W W x A P @ : _ _ _ 1^ _ 1Y
0x04d084…04d218 Dummy {f00=0x0018, f01=0x0190, f02=» : A ]B v 0TOO MANY I/O ERRORS ON DISC P 4 @ v* XXXXING SECTOR: XXXX, STATUS WORD: XXXX ( READWRIT A ( @ P P,QT @ P0WH @ @ P> A Q8 ( ( _6 ( @ P W W @
0x04d218…04d3ac Dummy {f00=0x0018, f01=0x0190, f02=» v LENGTH ERROR _ ( : , %Q R Y W W Z ' [ : V T(= @ | M ~ A | _ @ | V I ~ _ U X W @ | R A | L ~ M ~9# Z : _ _ _ 1^ _ 1Y
0x04d3ac…04d540 Dummy {f00=0x0018, f01=0x0190, f02=» : A ]B v 0TOO MANY I/O ERRORS ON DISC P 4 @ v* XXXXING SECTOR: XXXX, STATUS WORD: XXXX ( READWRIT A ( @ P P Q @ P W @ @ P A Q ( ( _6 ( @ P W W @ ;
0x04d540…04d6d4 (0, 98) Opaque[0x194]
0x04d6d4…04d868 # DirEnt {nam=»DUMPA «, typ=»LM«, f00=0x0000, f01=0x0000, f02=0x0318, f03=0x0000}
0x04d6d4…04d868 IdxSect {
0x04d6d4…04d868 f00 = 0x0018 // 0x4d6d4 @0x0
0x04d6d4…04d868 f01 = 0x000a // 0x4d6d6 @0x2
0x04d6d4…04d868 gno = [ // 0x4d6d8 @0x4
0x04d6d4…04d868 [0x00]: C0x0018.0x3.0
0x04d6d4…04d868 [0x01]: C0x0019.0x0.0
0x04d6d4…04d868 [0x02]: C0x0019.0x1.0
0x04d6d4…04d868 [0x03]: C0x0019.0x2.0
0x04d6d4…04d868 [0x04]: C0x0019.0x3.0
0x04d6d4…04d868 ]
0x04d6d4…04d868 }
0x04d868…04d9fc Dummy {f00=0x0018, f01=0x0190, f02=» l #2 5 8 fY%w x b # g $ ^ : 9 i $ 7 f w |4r tV u 3 j @ @ h @ z @ FLT T W A l A rQ P A v_B z A tT A r :
0x04d9fc…04db90 Dummy {f00=0x0018, f01=0x0190, f02=»_ @ v P d A v : < d = v = R 0W 1 v Y Y = YF> X d J 4 ` NO DATA.W ` END OF VOLUME W ` END OF TAPE Wn ` BEGIN OF TAPE WL ` END OF SEGMENT A nW ` END OF FILE A p A n
0x04db90…04dd24 Dummy {f00=0x0018, f01=0x0190, f02=»G W % ` PARITY ERRORW DUMP IN ^ BLOCK NO: SIZE: UNKNOWN STATUS WORD: BLOCKS SKIPPED. PRINTED: ' U8 ! T v ! T v 4 4 ~# T . 9 Y< F " v d " v Q
0x04dd24…04deb8 Dummy {f00=0x0018, f01=0x0190, f02=»" = @ A A A : A W @ n A A , A U , ( @ @ A A h ( : U h W @ #U. A @ 1 A p @ l A : ; [ [ [ Z Z Z : : < , = = $ -
0x04deb8…04e04c Dummy {f00=0x0018, f01=0x0190, f02=» @ U : @ A R _ : 1 A : $ SIZE: UNKNOWN STATUS WORD: BLOCKS SKIPPED. PRINTED: ' U8 ! T ! T 1 4 # T . 9 Y< F " " Q
0x04e04c…04e1e0 Dummy {f00=0x0018, f01=0x0190, f02=»" = @ A A A : A W @ ! R ?U : : $ - - Y : @ 4 Q $ 1 ^ ` 1 Y j d ~ d $ d T T d ^ @ @
0x04e1e0…04e374 (0, 99) Dummy {f00=0x0019, f01=0x0190, f02=»ME: : : FORMAT: R EDITDT EDLOOP DATFLD SLASK CVALOP TIMFLD LOOP TXT5 j TXT5:L TXT6 ~ TXT6:L TXT1 TXT1:L $ LOOOP : TXTAB LENTAB TXT4 TXT3 TXT2 TXT4:L TXT3:L TXT2:L A A l !AAPN !EE
0x04e374…04e508 Dummy {f00=0x0019, f01=0x0190, f02=» A A A W ` A ^ " : 0 d : [ R 8 !--P # 0Z Y" W W 9H [ : 4 Q $ d !SST@ vR<Q l vU0 vR P 9 _ rW t l / "( A z_ A ( A A
0x04e508…04e69c Dummy {f00=0x0019, f01=0x0190, f02=» ASCII OR EBCDIC ? ASCII OR HEXA/ASCII ? C: Q1:L yECB QUEST1 GETPAR l HEXAQA TABLEN MOVTAB LOOP EBCDIC FMTFLG HEXAQE Q2:L QUEST2 RETURN T NOHEXA 8 RORDER V COMND SCLAB ` INPREQ ^ PRMPTP " QUESTN 0 GET
0x04e69c…04e830 Dummy {f00=0x0019, f01=0x0190, f02=» LKM3 PROMPT PRPT:L IBF:L SPALOP L LOOPP l L001 | L002 ~ CTWECB TEXT1 CODE1 CODE2 ASCII A @ FDP 1 ! ( : @ FDP ! ( 1 @ FDT @ C A C W ( : 1 ( B @ FDT" T$ @ C A
0x04e830…04e9c4 Dummy {f00=0x0019, f01=0x0190, f02=» "( B T : C C ( LP NOT OPERABLE . x LOOP EBCDIC FMTFLG HEXAQE Q2:L QUEST2 R C C ( $ : &CASETTE:E1
0x04e9c4…04eb58 Dummy {f00=0x0019, f01=0x0190, f02=» - ! - - D - ( B R : @ ) D _ E1TK E4MT F4FD F5FD F6FD F7FD FILECODE: XX NOT OPERABLE A C ! @ FDT T @ C A
0x04eb58…04ecec Dummy {f00=0x0019, f01=0x0190, f02=» ( B T : C C ( LP NOT OPERABLE x LOOP EBCDIC FMTFLG HEXAQE Q2:L QUEST2 R C C ( $ : &CASETTE:E1
0x04ecec…04ee80 Dummy {f00=0x0019, f01=0x0190, f02=» - - - D - ( B R : @ ) D _ E1TK E4MT F4FD F5FD F6FD F7FD FILECODE: XX NOT OPERABLE A C @ FDT T @ C A
0x04ee80…04f014 (0, 100) Dummy {f00=0x0019, f01=0x0190, f02=» ( B T : C C ( LP NOT OPERABLE x LOOP EBCDIC FMTFLG HEXAQE Q2:L QUEST2 R C C ( $ : &CASETTE:E1
0x04f014…04f1a8 Dummy {f00=0x0019, f01=0x0190, f02=» - - - D - ( B R : @ ) D _ E1TK E4MT F4FD F5FD F6FD F7FD FILECODE: XX NOT OPERABLE A C @ FDT T @ C A
0x04f1a8…04f33c Dummy {f00=0x0019, f01=0x0190, f02=» ( B T : C C ( LP NOT OPERABLE x LOOP EBCDIC FMTFLG HEXAQE Q2:L QUEST2 R C C ( $ : &CASETTE:E1
0x04f33c…04f4d0 Dummy {f00=0x0019, f01=0x0190, f02=» - - - D - ( B R : @ ) D _ E1TK E4MT F4FD F5FD F6FD F7FD FILECODE: XX NOT OPERABLE A C @ FDT T @ C A
0x04f4d0…04f664 Dummy {f00=0x0019, f01=0x0190, f02=» ( B T : C C ( LP NOT OPERABLE x LOOP EBCDIC FMTFLG HEXAQE Q2:L QUEST2 R C C ( $ : &CASETTE:E1
0x04f664…04f7f8 Dummy {f00=0x0019, f01=0x0190, f02=» - - - D - ( B R : @ ) D _ E1TK E4MT F4FD F5FD F6FD F7FD FILECODE: XX NOT OPERABLE A C @ FDT T @ C A
0x04f7f8…04f98c Dummy {f00=0x0019, f01=0x0190, f02=» ( B T : C C ( LP NOT OPERABLE x LOOP EBCDIC FMTFLG HEXAQE Q2:L QUEST2 R C C ( $ : &CASETTE:E1
0x04f98c…04fb20 Dummy {f00=0x0019, f01=0x0190, f02=» - - - D - ( B R : @ ) D _ E1TK E4MT F4FD F5FD F6FD F7FD FILECODE: XX NOT OPERABLE A C @ FDT T @ C A
0x04fb20…04fcb4 (0, 101) Dummy {f00=0x0019, f01=0x0190, f02=» ( B T : C C ( LP NOT OPERABLE x LOOP EBCDIC FMTFLG HEXAQE Q2:L QUEST2 R ! ( $ : &CASETTE:E1
0x04fcb4…04fe48 Dummy {f00=0x0019, f01=0x0190, f02=» - - - D - ( B R : @ ) D _ E1TK E4MT F4FD F5FD F6FD F7FD FILECODE: XX NOT OPERABLE A C @ FDT T @ C A
0x04fe48…04ffdc Dummy {f00=0x0019, f01=0x0190, f02=» ( B T : C C ( LP NOT OPERABLE x LOOP EBCDIC FMTFLG HEXAQE Q2:L QUEST2 R ( $ : &CASETTE:E1
0x04ffdc…050170 Dummy {f00=0x0019, f01=0x0190, f02=» - - - D - ( B R : @ ) D _ E1TK E4MT F4FD F5FD F6FD F7FD FILECODE: XX NOT OPERABLE A C @ FDT T @ C A
0x050170…050304 Dummy {f00=0x0019, f01=0x0190, f02=» ( B T : C C ( LP NOT OPERABLE x LOOP EBCDIC FMTFLG HEXAQE Q2:L QUEST2 R ( $ : &CASETTE:E1
0x050304…050498 Dummy {f00=0x0019, f01=0x0190, f02=» - - - D - ( B R : @ ) D _ E1TK E4MT F4FD F5FD F6FD F7FD FILECODE: XX NOT OPERABLE A C @ FDT T @ C A
0x050498…05062c Dummy {f00=0x0019, f01=0x0190, f02=» ( B T : C C ( LP NOT OPERABLE x LOOP EBCDIC FMTFLG HEXAQE Q2:L QUEST2 R ( $ : &CASETTE:E1
0x05062c…0507c0 Dummy {f00=0x0019, f01=0x0190, f02=» - - - D - ( B R : @ ) D _ E1TK E4MT F4FD F5FD F6FD F7FD FILECODE: XX NOT OPERABLE A C @ FDT T @ C A
0x0507c0…050954 (0, 102) Dummy {f00=0x0019, f01=0x0190, f02=» ( B T : C C ( LP NOT OPERABLE x LOOP EBCDIC FMTFLG HEXAQE Q2:L QUEST2 R ( $ : &CASETTE:E1
0x050954…050ae8 Dummy {f00=0x0019, f01=0x0190, f02=» - - - D - ( B R : @ ) D _ E1TK E4MT F4FD F5FD F6FD F7FD FILECODE: XX NOT OPERABLE A C @ FDT T @ C A
0x050ae8…050c7c Dummy {f00=0x0019, f01=0x0190, f02=» ( B T : C C ( LP NOT OPERABLE x LOOP EBCDIC FMTFLG HEXAQE Q2:L QUEST2 R ( $ : &CASETTE:E1
0x050c7c…050e10 Dummy {f00=0x0019, f01=0x0190, f02=» - - - D - ( B R : @ ) D _ E1TK E4MT F4FD F5FD F6FD F7FD FILECO ; [ [ [ [ [ R Q @1 - WJ @1 - A1 R( X1 R X1 _ Q @1 X A1 T1
0x050e10…050fa4 Dummy {f00=0x0019, f01=0x0190, f02=» !$*); ??? &%->? :#@'=" ABCDEFGHI JKLMNOPQR STUVWXYZ 0123456789 ( R * 2| Y _ : ~ & P$ U ?V W _ vW 2 dW $UN # v v : $ : &CASETTE:E1
0x050fa4…051138 Dummy {f00=0x0019, f01=0x0190, f02=» - - - D - ( B R : @ ) D _ E1TK E4MT F4FD F5FD F6FD F7FD FILECODE: XX NOT OPERABLE A C @ FDT T @ C A
0x051138…0512cc Dummy {f00=0x0019, f01=0x0190, f02=» ( B T : C C ( LP NOT OPERABLE x LOOP EBCDIC FMTFLG HEXAQE Q2:L QUEST2 R ( $ : &CASETTE:E1
0x0512cc…051460 Dummy {f00=0x0019, f01=0x0190, f02=» - - - D - ( B R : @ ) D _ E1TK E4MT F4FD F5FD F6FD F7FD FILECODE: XX NOT OPERABLE A C @ FDT T @ C A
0x051460…0515f4 (0, 103) Opaque[0x194]
0x0515f4…051788 # DirEnt {nam=»OBX «, typ=»LM«, f00=0x0000, f01=0x0000, f02=0x0340, f03=0x0000}
0x0515f4…051788 IdxSect {
0x0515f4…051788 f00 = 0x001a // 0x515f4 @0x0
0x0515f4…051788 f01 = 0x0018 // 0x515f6 @0x2
0x0515f4…051788 gno = [ // 0x515f8 @0x4
0x0515f4…051788 [0x00]: C0x001a.0x0.0
0x0515f4…051788 [0x01]: C0x001a.0x1.0
0x0515f4…051788 [0x02]: C0x001a.0x2.0
0x0515f4…051788 [0x03]: C0x001a.0x3.0
0x0515f4…051788 [0x04]: C0x001b.0x0.0
0x0515f4…051788 [0x05]: C0x001b.0x1.0
0x0515f4…051788 [0x06]: C0x001b.0x2.0
0x0515f4…051788 [0x07]: C0x001b.0x3.0
0x0515f4…051788 [0x08]: C0x001c.0x0.0
0x0515f4…051788 [0x09]: C0x001c.0x1.0
0x0515f4…051788 [0x0a]: C0x001c.0x2.0
0x0515f4…051788 [0x0b]: C0x001c.0x3.0
0x0515f4…051788 ]
0x0515f4…051788 }
0x051788…05191c Dummy {f00=0x001a, f01=0x0190, f02=» [ X R p X T0 x <~< ^ ^:^T^x^ ^ _ _ T0 * _ 8 0 d 0 0 $ 0 D F 0
0x05191c…051ab0 Dummy {f00=0x001a, f01=0x0190, f02=»
[…0x7…]
0x0525bc…052750 Dummy {f00=0x001a, f01=0x0190, f02=» *UD* *MD*
0x052750…0528e4 Dummy {f00=0x001a, f01=0x0190, f02=»
[…0x7…]
0x0533f0…053584 Dummy {f00=0x001a, f01=0x0190, f02=» ! !
0x053584…053718 Dummy {f00=0x001a, f01=0x0190, f02=»
[…0xa…]
0x0546e0…054874 (0, 107) Dummy {f00=0x001b, f01=0x0190, f02=»
[…0xa…]
0x05583c…0559d0 Dummy {f00=0x001b, f01=0x0190, f02=» ! !
0x0559d0…055b64 Dummy {f00=0x001b, f01=0x0190, f02=»
[…0x13…]
0x057960…057af4 (0, 111) Dummy {f00=0x001c, f01=0x0190, f02=»
[…0x1…]
0x057c88…057e1c Dummy {f00=0x001c, f01=0x0190, f02=» 0 0 0 0 0 0 0" $ & ( '00 0 ! # % ' $ 100 80-03-14MODULEIDENT=YYMMDDENTRY REFERRED FROM M
0x057e1c…057fb0 Dummy {f00=0x001c, f01=0x0190, f02=» STATISTICS E $ * 0 6 < B H J 0 ijk J 0 JB6B % _ _ _ F " A 1 1 , P PA PA P P 1 4 h J b 1 P PE P PD PC P P PC P P P@ P P PC P P ED
0x057fb0…058144 Dummy {f00=0x001c, f01=0x0190, f02=»Q P J Q R VP VP_ WP WP_& QA@4 P ED !B P EP P4 DP P4 # A R QR Q R R Q R Q _ J A A 4 P A% Q R Q$ R R0Q RA S R* S QR_ 0P PW 0P0Q 0QP P 4 "@ @ @ 4 $ A 1 "1 " 1 1 DC E 4 c&1 . ` 4 @`
0x058144…0582d8 Dummy {f00=0x001c, f01=0x0190, f02=»GA 4 Q G P Q(PA 4 p q r s t u v w x y z { - Q A PA"4 T P T P0P4 G F(GA )4 G0G GA 4 Q G P Q PA 0PA Q A S P P0P PA 4 4 UE h J b U G U U 4 SG R G(RA RIW 0RA 0HR RH P G(PA Q R W Q R p q r s t u v w x y + S A R0R PA& RA*4 @
0x0582d8…05846c Dummy {f00=0x001c, f01=0x0190, f02=»MBOLS* UNDEFINED *INPUT I/O ERROR* MULTIDEFINED ** UNREFERENCED *DOUBLE DEF MODULEINPUT FORMAT ERRORNAMES AREA OVERFLOWCHAIN ITEM AREA OVERFLOWINTERNAL ERROR IN INPUT ROUTINE -TTTT9 $ % # & Q la 0 # % 0 S: X ! $ & S ob
0x05846c…058600 Dummy {f00=0x001c, f01=0x0190, f02=»= d . e f NO EXTERNAL REFERENCES NO ENTRIES IN THIS MODULE ! p # q + r 3 s ; t C u K v S w [ x c y 1 OBX REL= d . e f 8701 378 4 d _ p q r ( s 0 t 8 u @ v H w P x X y ` z h { ( OBJECT CROSS REFERENCE: 8 ob G h J W DATE: i - j - k f
0x058600…058794 (0, 112) Dummy {f00=0x001c, f01=0x0190, f02=» 0 flc f d f d ( W W W > i* i i % Y m C n. & R V C n. h ' ( gZ( $ i^ P C C h i / "!@P n. C B h~ & % _ i W i i n. / W i h x g
0x058794…058928 Dummy {f00=0x001c, f01=0x0190, f02=» C W4781"&$ 39#$;< i B n. 'W i ( W C C C ( ' Pl i I "%@T^ B P B PR B 5W B TD P B % P C + j B P ! T B B U ( 5 _ "( l V I C B :( ' P i I : 6 V ?d ( # V "
0x058928…058abc Dummy {f00=0x001c, f01=0x0190, f02=» #? o ;D:B : n. C : m #0 T & C C : C C V W V Q (W Q W Q W j j 4 ! P T 0P(W$ 8 C S W C C 0 P C ;a 6 4 ZH T : 49d_Z B@5 @
0x058abc…058c50 Dummy {f00=0x001c, f01=0x0190, f02=» Lk R R _ R _ # Q R V > _V ' P _d P & 1 P 1_ , @ - R T U :B@ ' d k l l l m$m l m r.p p q0t4u u l mHmHm m m l m m x }>| |`| }>|:l m m m m l l l l @ t , V
0x058c50…058de4 Dummy {f00=0x001c, f01=0x0190, f02=»YPP > @l0] @l0]f 8_l ( 2 P W _ 2 # P LcjP " 2 P V D ! R T P _l 8^: Dl ! Pn DcxPh 6 7_* 2 # PR LclPL n. 2" &]P R W ^^ $! 6P Q $ T P DcjP _z _j _ _ _ 6 7
0x058de4…058f78 Dummy {f00=0x001c, f01=0x0190, f02=» W< 6 2 " T v n. : " # o ;b , (V ; [ n. Z H (;AR H & z ;AV: Z H # o ; 6 n. : & & Z 4 o : ,P T 4W
0x058f78…05910c Dummy {f00=0x001c, f01=0x0190, f02=» 7 : 4 ( ; V Y : 2! : 2 6 " # o ;b ; : W # " T & T + : * & !@P `1` P q Q ; 8 V W Q P # P ! P 4 V W Q P
0x05910c…0592a0 Dummy {f00=0x001c, f01=0x0190, f02=»T 9e! = K : #0 P8" T * & : * & !`P :J +_ +Q 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
0x0592a0…059434 (0, 113) Dummy {f00=0x001c, f01=0x0190, f02=» 9 : & P Q r ,^ , < r # ; [ _n' d V W V 4! P < S S S X 4 9d * & ! R + : V W R 4 0R Y 7 Y& P Z,;D 9_8 8 _< V W YL T 9 : &9d
0x059434…0595c8 Dummy {f00=0x001c, f01=0x0190, f02=» Q 9d! )0 + P 7 Y Z $ _ : V ) 0 !0 " TV *V &V : V S W P 9 S W _ V P W T V E + : & 6 [ [ [ [ $ [ [ >h ; w r. w r. w p
0x0595c8…05975c Dummy {f00=0x001c, f01=0x0190, f02=» I Z ! : 4 P 9 59D_ ! :d" 5 : 0 !0 " Tz *V &V PP= ;@ R P W ;a=a P " R & R V T W V E + : & 6 [ [ [ [ $ [
0x05975c…0598f0 Dummy {f00=0x001c, f01=0x0190, f02=» _ T { [ w w [ QB [ w p { R [ _ w p w u Z ! Z $ Z %_P [ Q* w p w q R [ Z { w p z 9e! W Z : V I _ , " -! 9H X" ,9 -9d_ Z H D & H D % [
0x0598f0…059a84 Dummy {f00=0x001c, f01=0x0190, f02=»y { { y y x 6W4 K K K K : n. xV xF x n y P 2 " T W "@T '?W "? Hx " K :e J J " J _T Z ; 6 [ 7 J Q : Z 7 : Pd 4
0x059a84…059c18 Dummy {f00=0x001c, f01=0x0190, f02=» + n. [ [ < !AAP !TTT W !**T * [ R !FFP !EET W I{ 6 * B Z 9 ! ; *X 8 ! D{ 0P Wt 0W@ Wl :T& *W4 FP . :T Z ! XBW *X& FWF :P # U J 1 zX !00 ;_ _ 9P F " X<# ; W )0_@ J R
0x059c18…059dac Dummy {f00=0x001c, f01=0x0190, f02=»zX 8 !++P !-- z ;$# + ^" _( Z z^. PT*AXYZ9 y2 { : ! P ! P ! P ! P n. ! P m W : ! )P9H " # T &W &" :I : |. : P & _ &X _ : : : : ~H x : { : ~0$0T
0x059dac…059f40 Dummy {f00=0x001c, f01=0x0190, f02=» _( : ~0$0TH $ R W R # P W ) V E ~H$0T Wp W W ( ~0 [ ~H : Z !0 , !0P2 0 > 4 R :d" 8 R ! :DW ! 9 R R Y, : rL : n. n.#03 T jP kT T : &
0x059f40…05a0d4 (0, 114) Dummy {f00=0x001c, f01=0x0190, f02=»W ( ~d p *1 TID ADDR OP CR LVL MODIFIED OPERAND CREDIT 2.1 TRACE * A~dT ~X ( A~ A~d( ~d p A~ ) Y V A~h ~l V _ v A~ : ~ Wr ~ 2 n.
0x05a0d4…05a268 Dummy {f00=0x001c, f01=0x0190, f02=» W WX WT WP WL WH WD W@ W< W8 W4 W0 W, W( W$ W W W W W W W W W ~ ** A~f A~j ER A~~ R A~ ~ R 4 4 A~ ~ U 4 - _ ~~ @~ lb ILLEGAL OPERATION MIXED ARITHMETIC ILLEGA
0x05a268…05a3fc Dummy {f00=0x001c, f01=0x0190, f02=»ERFLOW INDEX OVERFLOW ILL INDEX TYPE DIV BY ZERO EDIT BUFFER OVFL EDIT PICTURE OVERFLOW "ALLOCATION ERR AT INITIALIZATION ILLEGAL INSTRUCTION ADDRESS ILLEGAL FORMAT CODE NO FIX BUFFER ALLOCATED FIX BUFFER NOT ALLOWED ILLEGAL CONTROL CODE ILLEGAL IN
0x05a3fc…05a590 Dummy {f00=0x001c, f01=0x0190, f02=» _ <a R f <a V : ( P W W W W W W W W W W W W ~ ** A~f A~j ERIDENT ( d n. J G ' n. J G ' n. J G ' l n. n. @ PB @ $;m @ P P $ + Y @
0x05a590…05a724 Dummy {f00=0x001c, f01=0x0190, f02=»P P % A dW A A @ ' l ( : ( B RBP T2! T>W4 @ ! P4 U ! T( A B A B A : A : A : d_^ n. &9! ' l : ( v N @ X W 7 W N P <!@P ] ]
0x05a724…05a8b8 Dummy {f00=0x001c, f01=0x0190, f02=» Z h * & K [ * & i [ 6 * & [ d * & [ * & [ * &
0x05a8b8…05aa4c Dummy {f00=0x001c, f01=0x0190, f02=» [ x * & Y * & w D * & r * & * & * &
0x05aa4c…05abe0 Dummy {f00=0x001c, f01=0x4090, f02=» * & !g ] $ $ ! ] R !g! ] z@ ] r * & * & * &
0x05abe0…05ad74 (0, 115) Opaque[0x194]
0x05ad74…05af08 # DirEnt {nam=»PDISC «, typ=»LM«, f00=0x0000, f01=0x0000, f02=0x03a0, f03=0x0000}
0x05ad74…05af08 IdxSect {
0x05ad74…05af08 f00 = 0x001d // 0x5ad74 @0x0
0x05ad74…05af08 f01 = 0x0010 // 0x5ad76 @0x2
0x05ad74…05af08 gno = [ // 0x5ad78 @0x4
0x05ad74…05af08 [0x00]: C0x001d.0x0.0
0x05ad74…05af08 [0x01]: C0x001d.0x1.0
0x05ad74…05af08 [0x02]: C0x001d.0x2.0
0x05ad74…05af08 [0x03]: C0x001d.0x3.0
0x05ad74…05af08 [0x04]: C0x001e.0x0.0
0x05ad74…05af08 [0x05]: C0x001e.0x1.0
0x05ad74…05af08 [0x06]: C0x001e.0x2.0
0x05ad74…05af08 [0x07]: C0x001e.0x3.0
0x05ad74…05af08 ]
0x05ad74…05af08 }
0x05af08…05b09c Dummy {f00=0x001d, f01=0x0190, f02=» > :T:
0x05b09c…05b230 Dummy {f00=0x001d, f01=0x0190, f02=»
[…0x9…]
0x05c064…05c1f8 Dummy {f00=0x001d, f01=0x0190, f02=» :01 p
0x05c1f8…05c38c Dummy {f00=0x001d, f01=0x0190, f02=»
[…0x1…]
0x05c520…05c6b4 (0, 117) Dummy {f00=0x001d, f01=0x0190, f02=» P
0x05c6b4…05c848 Dummy {f00=0x001d, f01=0x0190, f02=»
[…0x3…]
0x05cd04…05ce98 Dummy {f00=0x001d, f01=0x0190, f02=» VOLUME 2 L VOLUME 365 2 & 0 F ` x * < V j 600PDISC REL 10.0 DATE 80.12.10 12NC=8701 082 41000 STATUS WORD: XXXX , IN
0x05ce98…05d02c Dummy {f00=0x001d, f01=0x0190, f02=» NO TOSS DISC FORMAT BADSPOT ON TRACK ZERO MORE THAN 5 BADSPOTS FLEXIBLE DISC WRITE PROTECTED ONE OR MORE VOLUMES UNKNOWN DISC OVERFLOW TOO MANY EXTENTS ILLEGAL BLOCKLENGTH VTOC OVERFLOW FILENAME ALREADY USED FILENAME UNKNO
0x05d02c…05d1c0 Dummy {f00=0x001d, f01=0x0190, f02=»LE INPUT DISC I/O ERROR TOO MANY SECTORS IN FILE , &| ' ' @ "T A A &0 "l @ 8 ! P $l @ " A &0 @ A A @ A L A NV P A @ "U H COP T A X *$ A
0x05d1c0…05d354 (0, 118) Dummy {f00=0x001d, f01=0x0190, f02=» @ J A Pd @ @P0 @ NP @ LT$ %@ % & A &0 @ A B * W. &0_d Y A f @ R )z )j A 8 f @ NP %@ % & A "l @ @ A A G "N A , A A @ A @ A A A X A ( E X Y X E Y
0x05d354…05d4e8 Dummy {f00=0x001d, f01=0x0190, f02=» R A _ & _ XPD @ @ P @ RB @ A ( @ R )z )j ( A A 8 f @ Z6 @ @ Y@W & X "l @ G @ G G ) & &| &|( "rW$ A A % @ ! : A N . A % @ P T P _
0x05d4e8…05d67c Dummy {f00=0x001d, f01=0x0190, f02=» 8 + : A % @ P T V _ 11P . D : 00 :: " _l : & 0 P 1 Q 1 Q 0 P @ "P 1 Q F A d A & : &X : p 0V , - P X 9A_ : $BR" ;D (!
0x05d67c…05d810 Dummy {f00=0x001d, f01=0x0190, f02=» x V W U A L + A R : @ P % @ T p R: 8 :p P <` D E ;@ % _> @ T " A TT A P : h @ R A J R A J U @ N A N + h + A R : P 8 @ P @ T R U +
0x05d810…05d9a4 Dummy {f00=0x001d, f01=0x0190, f02=» @ "P @ ( @ @ , T~ A : M R W - M : P V 0 : W W W p l C P l C ( : & &| & W W W W _$ W _, W & "d ? $ & Y :0123456789ABCDEF A A % v < (
0x05d9a4…05db38 Dummy {f00=0x001d, f01=0x0190, f02=»& A ( @ @ , & xPT Z ( P T T _. P P @ Z < ! X" !,,X( 5 _ @ !@@TV @ ! CT< $ % Q ( ! P R| ! Qv % _ . + W( + @ ! AP P T8 A " T ( $8
0x05db38…05dccc Dummy {f00=0x001d, f01=0x0190, f02=» QB_ P ( ! X W0 P& ( ! X !::P !00R !99Q _$ T : & W > P W A $ 8 + @ &T4 @ "P Q, 9H A dW" S A 6 A a A b A d A f @ ( A h + 0 A & @ $P 7D W ,v + P T P W @ "T @ h Y A : P 8 $ "d @
0x05dccc…05de60 Dummy {f00=0x001d, f01=0x0190, f02=»P & % _h &0_n @ DP & [ : A D D A F A H +b R4Q@ A & A H A D @ D @ @V2 &0 @ D D @ @ H E B_T A & A H_L &0 _V A @ @ @ A @ A % A A 2 *$ : T E A FQ W V |Z" : Q ( % _ : ;
0x05de60…05dff4 (0, 119) Dummy {f00=0x001e, f01=0x0190, f02=» A,$ A, A, A,& A, A,( , P A, @, P 7` @, : R !LLP< R 1 R 2 Y A,r A,p A,n Y A,n A,p @,rW S 1 A,n S 2 A,p A, -
0x05dff4…05e188 Dummy {f00=0x001e, f01=0x0190, f02=» W Q ( , X "' "' A,V @,$ / R 0 $' R T W $ T A,V R !LLP @, T A,8 A,: R 1 R 8 A,J R 6! A,HPJ A,N A,P @,8 @,: :` A,8 A,:S$ @,N @,P : Y4 @,8 A,H @,: A,JW : A, A, @, @, @,p :` A, A, @,H @,J : A,H A
0x05e188…05e31c Dummy {f00=0x001e, f01=0x0190, f02=» A, A, R A, A, A, . A,j9H A,h A,f A, A, A, @,&P A, A,& B A/ ( B 1& @/ C C @,h C ( C B / 1 : @,h:c A,l A,< A,> A,@ A,B @, A,4 @, A,6 A,N @,4 @,6 :` A,4 A,6 @,N R 14 0 A,8 0 A,:
0x05e31c…05e4b0 Dummy {f00=0x001e, f01=0x0190, f02=» @,:Y A,L @,8 A,@ @,: A,B_ @,8 A,< @,: A,> @, A,8 @, A,:W 5 T^ Q 1 Q Q ,Z R A, @, A,d A,f @,h C ( C @,b /T @,tT 4 A,t : W W : _ @,$T _ _ R @, A,8 @, A,: !LLPJ @,< T @,> @,p 30 P A,D P A,F @,< @,> @
0x05e4b0…05e644 Dummy {f00=0x001e, f01=0x0190, f02=» @,> 1 5 0 P A,< 0 A,> A,8 A,: @,p : A,8 A,: @,8 @,: @,p :` A,8 A,: @,< @,> @,p : A,< A,>^6 @,8 @,: P P :` Q Q P A,< 0 A,> @,< @,8 @,: : A,< A,>T Q Q @,< Q @,> 1 @, @, @,8 @,: : A, A, A,< A,> @,VP @,H @,J @,8 @
0x05e644…05e7d8 Dummy {f00=0x001e, f01=0x0190, f02=» @,X A,p -$ / : : A, @, @,j A, 2 C A, @, @, 1" A,d A,f ( @,b / 1 , 6 P J S T $ 1T P _ , X`_2 A," : @, T 3 @, 1 Q : ,, 3 @, 9 @, K @, K @,8 K @,: K @,D K @,F K K
0x05e7d8…05e96c Dummy {f00=0x001e, f01=0x0190, f02=» 4 K & K ( K ) ( @,b / 1 : @, T 3 @, 1 Q : ,, 3 @, 3~ A," 6 2 A, @,n % @, R 2 R 1 % Y @,8 A,N @,: A,P @,D @,F A,R A,T :` A,8 A,: ,Z @,n C @,R A,d @,T A,f( C @,R @,T @,p @,VP @,X :` A,R A,T @
0x05e96c…05eb00 Dummy {f00=0x001e, f01=0x0190, f02=»:` A,R A,T @,8 @,RY`R @,: @,TYl @,N A,8 @,P A,: : A, @, Q6 A, 9 9 9 A9 ( 9 9 A9 ( : 9 @, 0 A:0 @,D @,F :9 K6 @,8 @,: :I K6 ,, :O @,$T :X 9 : A A: ( ,Z @, : A,( 7 T @,"T : A,
0x05eb00…05ec94 (0, 120) Dummy {f00=0x001e, f01=0x0190, f02=»,b / 1 J A, J A,8 J A,: J A,D J A,F 6 R @,h9c A,l @,l 9l 0 A7@ 0 A7B @7@T @7B 9f P @,DT P @,F 7p A,N A,P A7> @7@ @7B P P :` A7@ A7B @,N @,P @7> @,D @7@Tr @,F @7BTh P A,D P A,F A,N A,P A7> P 0 @,8 @,: :` Q 1 P
0x05ec94…05ee28 Dummy {f00=0x001e, f01=0x0190, f02=» @,F @7B 8 @,D Q @,F Q _ 8 7p 3, @,8 I @,: ) @,D I @,F I 7p ( - : 9 FILE 9 9 VOLUME NAME FILE EXT.NO EXTENT BASE EXTENT LENGTH : A
0x05ee28…05efbc Dummy {f00=0x001e, f01=0x0190, f02=» Q S W S Q R S P W S _ R _ ;A [ :; ;J ;
0x05efbc…05f150 Dummy {f00=0x001e, f01=0x0190, f02=» NUMBER OF BADSPOTS = -WRITING THE SECTORS -FORMATTING THE DISC -CHECKING THE SECTORS TOSS REL 10.0 Z $ A< D A< D A< D A< D A< [ : Z $ A< D A< D A<
0x05f150…05f2e4 Dummy {f00=0x001e, f01=0x0190, f02=» V : = = = : = = = : << 2 C C ( B & D B .P " T D : A< @ A<@ A<2 =& R ' P P =XN$N$O$ < M ? =XO P Q < [+ [h 4 =&[4 4 P =XRHRHRH < rS
0x05f2e4…05f478 Dummy {f00=0x001e, f01=0x0190, f02=»&? &@ Wf R =XRHRHRH < L L P@ =XRHSHTH < 1g 1h P =XKxLxMx < L L W 2 A<> A<0 $ A<K $ A</ A<= R ! T << A< ( B D " D P C C ( @T C In D << 2 C I I " C
0x05f478…05f60c Dummy {f00=0x001e, f01=0x0190, f02=» C In A<> A<> D << R R C ' P ( C ( B R % R E R E B N< % Z R R E ( ( ( A<V A<X A<, ; A; ;J A;J ; A; ; A; 2 <x = << A<@ A< 2
0x05f60c…05f7a0 Dummy {f00=0x001e, f01=0x0190, f02=» A;J = @< @< U, Y A<@ Y A<@_ A< A<@_ < A<@ A<2 = <. ( $ A<> = << ( = <. B & D B P Wl @<2 Y 2 < < P W T = T P < < W( $ Y
0x05f7a0…05f934 (0, 121) Dummy {f00=0x001e, f01=0x0190, f02=» <<( <. ( = << B & D B P W @<@ Y , < < P W T = T P < < W $ Y P = _2 < < = = @< TP @< U| QB A<@ Q4 A<@W* T P6 @; ;JV. A; = =
0x05f934…05fac8 Dummy {f00=0x001e, f01=0x0190, f02=»W <,^` - $ M _> H <,^| - ( M _ @; Q> <,^ ( M H - _" @;JQ <,^ $ M D - _" A; <u J0 <^ = <, ; @; QT @; 4 T = : 1 Q @; Q4 4 T : = 1 Q @; Q _* @; W @
0x05fac8…05fc5c Dummy {f00=0x001e, f01=0x0190, f02=»_4 _ % <, R @< Y Y 2 T T 4 R _ T 4 : U 5 <Z = < A<@ G A< @< Q U( _ 2 % 2 * % Y : ; G 2 * @; Q Pl * BA % DS % PO % T % 5
0x05fc5c…05fdf0 Dummy {f00=0x001e, f01=0x0190, f02=»< 9A D< 2 @< R V 2 U A< = ]D 2 2 @< % % <Z ) % % Z @< % @< % @< % < ( % Y 2 % @< O . R O 1 R O 0 = <.( @<6 D H : @< T <.
0x05fdf0…05ff84 Dummy {f00=0x001e, f01=0x0190, f02=» I< $ ) Y I& IB I IB AI I ( I IB `I YP 2 : R _ P 0 - : ; [ V - - ' I I d I I I Z : : ; J* I : V *W R - _ 1 T R PJ* - _ :
0x05ff84…060118 Dummy {f00=0x001e, f01=0x0190, f02=» Jt d Jt Jt J Z Z Z Z : : ; K. J : V *W R - _ 1 T R PK. - _ :
0x060118…0602ac Dummy {f00=0x001e, f01=0x0190, f02=» 0 R _ <d?d U ?e R P S ?C/ G O % R ' P % =B S t w E M % t R.Q& @ Q R %| _B _& : T G.G K. A ;A; G. T ] S .
0x0602ac…060440 Dummy {f00=0x001e, f01=0x0190, f02=» #P & B. T P ' " P : P S P S P " ^_" F t v @0 UU 3 2P _ 4 , ) T G.G K. A ;A; G. ] $ ] S <% T V S @- S S < M % T S "
0x060440…0605d4 (0, 122) Dummy {f00=0x001e, f01=0x0190, f02=» " P #P ( B. T P ' " P : P S P S P " `_"O =D @ t w E M T 1 E _ M @ p : 6 "? UU t 3 2P _ 4 , 5 T G.G K. A ;A; G. ( ] ]
0x0605d4…060768 Dummy {f00=0x001e, f01=0x0190, f02=» P X _ R R "? R R P h:B* S R P S B J 4R 4 :B 4 R : V V 49B R 4R @ t w A I ! j :Qh P #P ( B. T P ' " P : P S P S P % `_" X1
0x060768…0608fc Dummy {f00=0x001e, f01=0x0190, f02=» : Z : %? v S : S f S 6 S b% =A S ^ S ` x UU 3 2P _ | , ) p ?e =e Q P ?e R P S ?C/ G O % R ' P % =B S t w E M % n : T G.G K. A ;A;
0x0608fc…060a90 Dummy {f00=0x001e, f01=0x0190, f02=» P X _ R z R 6"( R ~ | S P #P & B. T P ' " P : P S | P S ~ P " ^_" @ t w A I ! j :Qh P #P ( B. T P ' " P : P S P S P % `_" X1
0x060a90…060c24 Dummy {f00=0x001e, f01=0x0190, f02=» !@P !-v$ P !-v !-v 26 !-v T X " C T Y " + X Y " Y > X " X "" Y %Q Y > X Z2<BR > - Y !-v T X !-v Y " Zn 2. T _ !-v X $ P !3 0 R V P P" !-v 2FW 26 ." X $ X !3 _
0x060c24…060db8 Dummy {f00=0x001e, f01=0x0190, f02=» )X R@ X X "" Y & X % V Y !3 X $ X " !3 X & 0 0 `R Y !-v !-v !-v 4 !-v V !-v V W :h !-v 4 X %" X ## R 4 26 > 42 6 Y U R -P 6 X ( ) Y * 6 X " PP:A:
0x060db8…060f4c Dummy {f00=0x001e, f01=0x0190, f02=» % 5 X (T !- W 76 Y * V 7& !- B P X " _Z B P$ $$ R % C 7&* !- W Y 'PH Y &P> Y $P Y %P 7& R _Q P OR R W " !- B 4` Wr W 0 Z 7& !- B Z Z& X * ,T @ W X (P Y * 0 %_. % Y * W
0x060f4c…0610e0 Dummy {f00=0x001e, f01=0x0190, f02=» 76 X *T * W Y ( - + ? 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 > @T , _ ' "?:B ] d
0x0610e0…061274 (0, 123) Opaque[0x194]
0x061274…061408 # DirEnt {nam=»TOSSUT«, typ=»LM«, f00=0x0000, f01=0x0000, f02=0x03e0, f03=0x0000}
0x061274…061408 IdxSect {
0x061274…061408 f00 = 0x001f // 0x61274 @0x0
0x061274…061408 f01 = 0x0014 // 0x61276 @0x2
0x061274…061408 gno = [ // 0x61278 @0x4
0x061274…061408 [0x00]: C0x001f.0x0.0
0x061274…061408 [0x01]: C0x001f.0x1.0
0x061274…061408 [0x02]: C0x001f.0x2.0
0x061274…061408 [0x03]: C0x001f.0x3.0
0x061274…061408 [0x04]: C0x0020.0x0.0
0x061274…061408 [0x05]: C0x0020.0x1.0
0x061274…061408 [0x06]: C0x0020.0x2.0
0x061274…061408 [0x07]: C0x0020.0x3.0
0x061274…061408 [0x08]: C0x0021.0x0.0
0x061274…061408 [0x09]: C0x0021.0x1.0
0x061274…061408 ]
0x061274…061408 }
0x061408…06159c Dummy {f00=0x001f, f01=0x0190, f02=» Ii : j 0 $ ^ : 9 i $ 7 f w |4r tV u 3 qC 5 * zuqV $ ' > P ZD o c r P| sV i % 9Zj Q > - D $ 4` 1P -8 T r tB l`Tg t z ^ + RC: 6 F j z
0x06159c…061730 Dummy {f00=0x001f, f01=0x0190, f02=» ;PROGRAM ABORTED BY OPERATOR; TP TO > R > C ( B P 0_ B C : $ !; P I , =Z I , * C C ( : $ !; P I , =Z I , * _: [ * N` Z : [ [ [ [ QxP~
0x061730…0618c4 Dummy {f00=0x001f, f01=0x0190, f02=» : [ _ $6 Y R $6 Y$R $6 $> Y6 _ [ [ Q. , 0R" 9U AR FQ 0 P =D _, [ Z Z : = ! U 9 - Y : [ [ [ [ [ [ [ Rd 0=A O T R !LLT
0x0618c4…061a58 Dummy {f00=0x001f, f01=0x0190, f02=» : TO >EV UP ZN j TO >BV 0W,_d>AV* b P P~ >Px Pr PlW _ A h TO >FV :A HQD @ hY HQF @ hZ >AV R W _ _ @ h @ l >BV -Wp>AV -Wh>AVd B j RV _ @ l T T S S S S >T T S S S S @ j - -
0x061a58…061bec Dummy {f00=0x001f, f01=0x0190, f02=» 0_ @Nj @ j EXT ( HNlP X$_ @ l INn :a A f ;a LO # A A ^ P A ^ TH N #( W0 @ ^P N #( : d M ^ R _ N| W `_ * @ P8 P2 R " R Q N #( @
0x061bec…061d80 Dummy {f00=0x001f, f01=0x0190, f02=» @ f:A HNl A x HNn A z p ( A A A A A A 8 P A @ P @ : R !LLP< R 1 R 2 Y A A
0x061d80…061f14 (0, 124) Dummy {f00=0x001f, f01=0x0190, f02=»FD J T ( B TH ( B T< C C ( B P ! W B Q* ( , X "' ` _ "' A @ R 0 $' R T W $ T A R !LLP @ T A A R 1 R 8 A R 6! A PJ A A @ @ 5| A A
0x061f14…0620a8 Dummy {f00=0x001f, f01=0x0190, f02=» A A @ PZ @ A @ A @ A @ Y P8 @ A @ @ @ 5 P Y @ @ 5 A A A R A A A . A 9H A A A A A @ P A A B A H ( B @ H C C @ C ( C B / : @ :c
0x0620a8…06223c Dummy {f00=0x001f, f01=0x0190, f02=» @ @ R Q @ @ R @ A @ A @ @ ZTQ @ @ Z` @ @ R:Q @ @ U. @ @ Y R @ @ Y A @ A @ A _ @ A @ A @ A @ A W T^ Q 1 Q Q R A @ A A @ C ( C @ /T @ T A : W
0x06223c…0623d0 Dummy {f00=0x001f, f01=0x0190, f02=» A RnX W4 @ @ @ @ 5 A A ( @ P A P A @ @ P P 5| Q Q @ Q @ 1 z P A 0 A A A @ 5 A A @ @ @ 5| A A @ @ @ 5 A A ^6 @ @ P P 5| Q Q P A 0 A @
0x0623d0…062564 Dummy {f00=0x001f, f01=0x0190, f02=» z A A @ J : A z : P2 . P* @ P @ A @ A @ A J : : A @ @ A 2 C A @ @ A A ( @ / 6 P J S T $ 1T P _ X`_2 A : @ T
0x062564…0626f8 Dummy {f00=0x001f, f01=0x0190, f02=» R 1:H R K R !LLT R 4:H R 5 K K $ K & A ( F . " F R !LLP R 6 K % R 4 K & K ( K ) ( @ / : @ T , @ Q : , @ * A 8 2 A @ % @ R 2 R 1 % Y @ A @ A @ @
0x0626f8…06288c Dummy {f00=0x001f, f01=0x0190, f02=» @ Yd @ A @ A @ C @ A @ A ( C @ / @ @ @ @ P @ 5| A A @ @ Y`R @ @ Yl @ A @ A : A @ Q6 A T h F A X ( p 9 A t ( F @ 0 A @ @ 5: @
0x06288c…062a20 Dummy {f00=0x001f, f01=0x0190, f02=» T> , @ P. T& A z : P . P _> : F @ - ( @ / J A J A J A J A J A 8 R @ 9c A @ 0 A 0 A @ T @ P @ T P @ A A A @ @ P P
0x062a20…062bb4 (0, 125) Dummy {f00=0x001f, f01=0x0190, f02=» @ @ T _ ] = ] ] A A A P P @ @ 5 A A @ @ @ @ @ @ @ @ Q @ Q _ @ I @ ) @ I @ I ( - : ` FILE | 9 VOLUME NAME FILE EXT.NO
0x062bb4…062d48 Dummy {f00=0x001f, f01=0x0190, f02=»ETEDDU1 DU2 DU3 DU4 MD1 MD2 FD1 FD2 1 0 0VOLUME NAME: DISC: 0FREE SPACE TABLE 0EXT BASE EXT LENGTH OF ENTRIES USED 0VOLUME TABLE OF CONTENTS 0FILE FILE FILE
0x062d48…062edc Dummy {f00=0x001f, f01=0x0190, f02=»LEN ORG LENGTH FACT REC NO SEC NO EXT NO DATE PER FILES ADDRESS NO NO/SOP 0NUMBER OF FREE ENTRIES IN VTOC = ( - : C ( B z : 2 A A p A R A R A A , ` @ , P _ ,
0x062edc…063070 Dummy {f00=0x001f, f01=0x0190, f02=» t 2 H , 9 TO 4 4 I ` Y 0 * 8 $ * ^ * , A | , A t , A v " , A x @ x A >c A z C ( B . t B & ~ A 4 * ~ * * 2 z 4P 4W 4P4 A p 5: 4 4
0x063070…063204 Dummy {f00=0x001f, f01=0x0190, f02=» * | t r x r D ( B . t B & ~ v v]B *% 8 R p v R J U !LLT2 J " c 44 J " k 44 - U 8 U T U ZW - U d U l J 8 44 J ? 44 J J 5:
0x063204…063398 Dummy {f00=0x001f, f01=0x0190, f02=» T 44 J & X 44 v R p $ ! R !__Q Y . % Y p * W A @ 44 4 * & * 4 * W W W W :LPOP XLS TK1 TK2 MT1 MT2 pqCSH @ j !NNP !YYP D A h : @ j! P P D A h
0x063398…06352c Dummy {f00=0x001f, f01=0x0190, f02=» j ` Z D A h : W D @ j CDP FDP MDP DUT : W W S : @ j $P Wj 9a D A h : @ j I P ^ WF : R I j W6 : R !LLT : @ j! YT A h @ f &T : X #2 A W* A A A A W$ A A
0x06352c…0636c0 Dummy {f00=0x001f, f01=0x0190, f02=» P _ @ T A A! W @ P A _ A _ @ f F ] F ( = F F ( = P P P P _* _0 F ] @ @! ! A! ( B ( @F LP F ] : ] < ( A! @! @ T A
0x0636c0…063854 (0, 126) Dummy {f00=0x001f, f01=0x0190, f02=»F F ( = P P P P _& _, @ f *T $ @ f *T F B C W @ P F B C @ f *T %T T" B A! F A! ! : ( B T : ! P ! L' P< ( @! P W ! ( Q 9A DV2T
0x063854…0639e8 Dummy {f00=0x001f, f01=0x0190, f02=» @ j DKTj A : @ j DKP WX A : @ j DKX. W6 S DK ! A H H P Y S ( a S : W D ! P !TTP " W0 " W& " E P " A W " A h : @ j @ l "P ^ Wp C ;b : @
0x0639e8…063b7c Dummy {f00=0x001f, f01=0x0190, f02=» A "@W 0 _ A W< ! @ h # ( B # TlW IBM LABEL;TOSS LABEL; A W ! ( B ' @ h #( B P R P $ T W T # P :' P P #xW # _ j $6 Z rQ0 , 0 $6 Z %U #2 : ,! 9D ,"
0x063b7c…063d10 Dummy {f00=0x001f, f01=0x0190, f02=» : "_ _ S : 6 W @6 A h : 6 &P P @W W F < ) F < ) P P P P _& _, : &PV T 6 6> % T@ @ A W2 6 6^ % T @ A W 6> 6^ % T @ A W : $ ) :
0x063d10…063ea4 Dummy {f00=0x001f, f01=0x0190, f02=» A "@W 0 _ A W ! @ h # ( &^ B # T W IBM LABEL;TOSS LABEL; A W ! ( B ' @ h #( & P R P $ T W T # P :' P P #xW # Z % NUMBER OF BADSPO
0x063ea4…064038 Dummy {f00=0x001f, f01=0x0190, f02=» Z $ A' D A' D A' D A' D A' [ : Z $ A' D A' D A' D A' D A' [ : Z $ A' D A' D A' D A' D A' [ : ' C C ( : S : : V : (f (f (f : (v (v (v : ' 2 C
0x064038…0641cc Dummy {f00=0x001f, f01=0x0190, f02=» ' M *` ( h i j ' [+ [h 4 ' [4 4 P ( a a a ' rS S E ' q+ W R ' &? &@ ( a a a P ( a b c ' P ( c d e ' &? &@ Wf R ( a a a ' L L P@ ( a b
0x0641cc…064360 Dummy {f00=0x001f, f01=0x0190, f02=» B / " /~ P C C ( + C `x / ' 2 C I I " C ( + ( + C W B 9 R ! T : /~ / ' C C C ( B ! : /~ C `x A' A' / ' R R C ' P (
0x064360…0644f4 (0, 127) Dummy {f00=0x0020, f01=0x0190, f02=» A% & A& &^ A& & A& 2 '@ (R ' A' A' 2 (f ' T (f ( ' Tv B & /~ B /~ P& T /v @& & /z ) I A& (f @' @' U, Y A' Y A' _
0x0644f4…064688 Dummy {f00=0x0020, f01=0x0190, f02=» P Wl @& Y 2 ' ' P W T (f T P ' ' W( $ Y P (f_2 ' ' W& T /v @% & /z A% ( ( @' T& @' /j Q A& Q @ A& ' ( & ( ( ' B & /~ B P W
0x064688…06481c Dummy {f00=0x0020, f01=0x0190, f02=»( ( @' TP @' U| QB A' Q4 A' W* T P6 @% & V. A% ( ( & ( -` ' ( .r W W W W W 3 : A& A' @& % & @% Qv @& QN $ (Q*R D H R Q W & ^` - $ M _> H & ^| - ( M _
0x06481c…0649b0 Dummy {f00=0x0020, f01=0x0190, f02=» 4 T ( 5 1 Q @& Q4 4 T 5 ( 1 Q @& Q _* @& W @' @' 5 Q 1 Q A& @' A' &Z & 2 P T 0P( 0 % % @& Q ( _4 _ % & R @' Y Y 2 T T 4
0x0649b0…064b44 Dummy {f00=0x0020, f01=0x0190, f02=» * % Y : & 1 2 * @& Q Pl * BA % DS % PO % T % 5 Y 5 Y % % , % , % B % % (_x ( ^ W ( Y A' R " T `' A' 9A D' 2 @' R V 2 U
0x064b44…064cd8 Dummy {f00=0x0020, f01=0x0190, f02=» ( % Y 2 % @' O . R O 1 R O 0 ( & ( @& /~ 3 : @' T & : R _ P 0 - : ; [ V - - ' 3 3 d 3 3 3 Z : : ; 4. 3 : V *W R - _ 1 T R P4. -
0x064cd8…064e6c Dummy {f00=0x0020, f01=0x0190, f02=»' 4x 4x d 4x 4x 4 Z Z Z Z : : ; 52 4 : V *W R - _ 1 T R P52 - _ : [ S Q"R S P W S _ R Q _ ;A [ : [ Q S W
0x064e6c…065000 Dummy {f00=0x0020, f01=0x0190, f02=» ( % Y 2 % @' O . R O 1 R O 0 ( & ( @& /~ 3 : @' T & : R _ P 0 - : ; [ V - - ' 3 3 d 3 3 3 Z : : ; 4. 3 : V *W R - _ 1 T R P4. -
0x065000…065194 (0, 128) Dummy {f00=0x0020, f01=0x0190, f02=»' 4x 4x d 4x 4x 4 Z Z Z Z : : ; 52 4 : V *W R - _ 1 T R P52 - _ : [ S Q"R S P W S _ R Q _ ;A [ : [ Q S W
0x065194…065328 Dummy {f00=0x0020, f01=0x0190, f02=» ( % Y 2 % @' O . R O 1 R O 0 ( & ( @& /~ 3 : @' T & : R _ P 0 - : ; [ V - - ' 3 3 d 3 3 3 Z : : ; 4. 3 : V *W R - _ 1 T R P4. -
0x065328…0654bc Dummy {f00=0x0020, f01=0x0190, f02=»' 4x 4x d 4x 4x 4 Z Z Z Z : : ; 52 4 : V *W R - _ 1 T R P52 - _ : [ S Q"R S P W S _ R Q _ ;A [ : [ Q S W
0x0654bc…065650 Dummy {f00=0x0020, f01=0x0190, f02=» ( % Y 2 % @' O . R O 1 R O 0 ( & ( @& /~ 3 : @' T & : R _ P 0 - : ; [ V - - ' 3 3 d 3 3 3 Z : : ; 4. 3 : V *W R - _ 1 T R P4. -
0x065650…0657e4 Dummy {f00=0x0020, f01=0x0190, f02=»' 4x 4x d 4x 4x 4 Z Z Z Z : : ; 52 4 : V *W R - _ 1 T R P52 - _ : [ S Q"R S P W S _ R Q _ ;A [ : [ Q S W
0x0657e4…065978 Dummy {f00=0x0020, f01=0x0190, f02=» ( % Y 2 % @' O . R O 1 R O 0 ( & ( @& /~ 3 : @' T & : R _ P 0 - : ; [ V - - ' 3 3 d 3 3 3 Z : : ; 4. 3 : V *W R - _ 1 T R P4. -
0x065978…065b0c Dummy {f00=0x0020, f01=0x0190, f02=»' 4x 4x d 4x 4x 4 Z Z Z Z : : ; 52 4 : V *W R - _ 1 T R P52 - _ : [ S Q"R S P W S _ R Q _ ;A [ : [ Q S W
0x065b0c…065ca0 Dummy {f00=0x0020, f01=0x0190, f02=» ( % Y 2 % @' O . R O 1 R O 0 ( & ( @& /~ 3 : @' T & : R _ P 0 - : ; [ V - - ' 3 3 d 3 3 3 Z : : ; 4. 3 : V *W R - _ 1 T R P4. -
0x065ca0…065e34 (0, 129) Dummy {f00=0x0020, f01=0x0190, f02=»' 4x 4x d 4x 4x 4 Z Z Z Z : : ; 52 4 : V *W R - _ 1 T R P52 - _ : [ S Q"R S P W S _ R Q _ ;A [ : [ Q S W
0x065e34…065fc8 Dummy {f00=0x0020, f01=0x0190, f02=» ( % Y 2 % @' O . R O 1 R O 0 ( & ( @& /~ 3 : @' T & : R _ P 0 - : ; [ V - - ' 3 3 d 3 3 3 Z : : ; 4. 3 : V *W R - _ 1 T R P4. -
0x065fc8…06615c Dummy {f00=0x0020, f01=0x0190, f02=»' 4x 4x d 4x 4x 4 Z Z Z Z : : ; 52 4 : V *W R - _ 1 T R P52 - _ : [ S Q"R S P W S _ R Q _ ;A [ : [ Q S W
0x06615c…0662f0 Dummy {f00=0x0020, f01=0x0190, f02=» ( % Y 2 % @' O . R O 1 R O 0 ( & ( @& /~ 3 : @' T & : R _ P 0 - : ; [ V - - ' 3 3 d 3 3 3 Z : : ; 4. 3 : V *W R - _ 1 T R P4. -
0x0662f0…066484 Dummy {f00=0x0020, f01=0x0190, f02=»' 4x 4x d 4x 4x 4 Z Z Z Z : : ; 52 4 : V *W R - _ 1 T R P52 - _ : [ S Q"R S P W S _ R Q _ ;A [ : [ Q S W
0x066484…066618 Dummy {f00=0x0020, f01=0x0190, f02=» ( % Y 2 % @' O . R O 1 R O 0 ( & ( @& /~ 3 : @' T & : R _ P 0 - : ; [ V - - ' 3 3 d 3 3 3 Z : : ; 4. 3 : V *W R - _ 1 T R P4. -
0x066618…0667ac Dummy {f00=0x0020, f01=0x0190, f02=»' 4x 4x d 4x 4x 4 Z Z Z Z : : ; 52 4 : V *W R - _ 1 T R P52 - _ : [ S Q"R S P W S _ R Q _ ;A [ : [ Q S W
0x0667ac…066940 Dummy {f00=0x0020, f01=0x0190, f02=» ( % Y 2 % @' O . R O 1 R O 0 ( & ( @TOSS UTILITIES REL 10.0 DATE: 80-03-14 12NC=870136641000 ; CC: WHAT?? CRV CRF DLF PVC XEY , 9:)*+ W
0x066940…066ad4 (0, 130) Dummy {f00=0x0020, f01=0x0190, f02=» 67 - 4.5/0123 - <= 8 GHF@ 8J KLMVQRSTO 8 NP B AI A A V! VAW!T T"V"$, B A A A A A A AVAVA T A A A A V!VAVA A A E E AV!E A VAV! AV!V!
0x066ad4…066c68 Dummy {f00=0x0020, f01=0x0190, f02=» ' |
0x066c68…066dfc Dummy {f00=0x0020, f01=0x0190, f02=» d N ""@"F" " " " # "# " $ $ " $b " t ! $ ! $ ! j ` $
0x066dfc…066f90 Dummy {f00=0x0020, f01=0x0190, f02=» " ( . 5 6 4 * H ( F # #: VdV V V V V V V V W W*W>WNWXWdVrV WnW W Y W W W W W W X X*X*X:XJXXXtVd X X X X V X X X V X Y Y(W X W YBYZY YZYzY W
0x066f90…067124 Dummy {f00=0x0020, f01=0x0190, f02=»[|[ [ [ ^ [T[.] ] [ ^ Z [.[>[ Z [.[>^ Z [.^ ^ _Z ] [ [n[ ^ _rZ [. 4 J h_ ] ]*]@]V]j] ]V JZ [.[>_8Z [.] Z [.^ ~ Z [. 4 J h^T] Z [. 4 J h^T] ^ Z [.] ^8^ ^ Z [.[>^l [ ^ ^ _ 4 J h [ ^ ^ ^ 4 J h ^ _ ^ J h 4Z [ ^ ^ _$ 4 J_ _ _
0x067124…0672b8 Dummy {f00=0x0020, f01=0x0190, f02=» NAMES:;FILE NAME:; NUMBER OF VTOC ENTRIES:;CREATION DATE:; RETENTION PERIOD:;BLOCKING FACTOR:; EFFECTIVE RECORD LENGTH:; MAXIMUM NUMBER OF RECORDS:; SECTOR NUMBER:; POSITION:;HEX.VALUE:; FILE ORG:;***INPUT DEFINITION***; ***OUTPUT DEFINITION***;PACK:;OUTPUT DEVIC
0x0672b8…06744c Dummy {f00=0x0020, f01=0x0190, f02=»PUT TAPE:;TAPE VOLUME ID:;RECORD LIMITS:; PRINT FORMAT:;RECORD NUMBERS IN LISTING:; CHARACTER CODE:;PROGRAM LENGTH:;MONITOR NUMBER:;START SWITCH ON SOP:; MORE THAN ONE APPLICATION :;DATA SET NAME:; BOE-SECTOR:;EOE-SECTOR:;EXPIRATION DATE:; VOLUME INITIALIZATION:;
0x06744c…0675e0 Dummy {f00=0x0020, f01=0x0190, f02=»CORD LENGTH INPUT TAPE:;LOAD FACTOR:; INDEX FILE NAME:; MASTER INDEX FILE NAME:;INPUT DEVICE:;PTS 6876 DISC :;MAX NO OF RECORDS ON OUTPUT INDEX FILE:;SUB-KEY ADDRESSES IN RECORD:; SUB-KEY LENGTHS IN RECORD:; ***WORK FILE DEFINITION***; WORK FILE NAME:;SORTING IN A
0x0675e0…067774 (0, 131) Dummy {f00=0x0021, f01=0x0190, f02=»N 18 BADSPOTS.DISC NOT USABLE;DISC I/O ERROR.;PRINTER NOT OPERABLE; TOO MANY SECTORS IN FILE; DISC OVERFLOW;MORE THAN 4 EXTENTS NEEDED; ILLEGAL BLOCK LENGTH; VTOC OVERFLOW;NO FREE SPACE ENTRY AVAILABLE;FILE NAME ALREADY USED; NO TOSS DISC FORMAT;TAPE UNIT NOT OPER
0x067774…067908 Dummy {f00=0x0021, f01=0x0190, f02=»NOT LOCKED/LOADED;INCORRECT TNR;OUTPUT I/O ERROR, ;INPUT I/O ERROR, ; BLOCK FACTOR ON OUTPUT TOO LARGE; TAPE MARK MISSING;TAPE MARK MISSING AFTER LABEL RECORD; LABEL RECORD MISSING; UNEXPECTED TAPE MARK; LABEL RECORD ERROR; ILLEGAL BLOCK LENGTH ON INPUT;EOF INSI
0x067908…067a9c Dummy {f00=0x0021, f01=0x0190, f02=»OCKED;FLEX. DISC NOT LOCKED;FLEX. DISC WRITE PROTECTED; DATA SET NAME ALREADY USED; DATA SET NAME NOT FOUND;NO IBM DISC FORMAT; BLOCK SEQUENCE ERROR; KEY DEF. ERROR; LOAD FACTOR TOO SMALL;KEY SEQUENCE ERROR; DATA SET DEF. ERROR;ILLEGAL SECTOR NUMBER;CARD READER NO
0x067a9c…067c30 Dummy {f00=0x0021, f01=0x0190, f02=»LOWED TO MIX DISCSIZES; NOT ENOUGH CORE;OVERFLOW; WRONG FD PARAMETER; ILLEGAL FILE-CODE;ILLEGAL ECB PARAMETER;UNKNOWN FILE; ILLEGAL VOLUME/FILE NAME; BE`& CORD; LABEL RECORD MIS OK? 0OUTPUT VOLUME NAME: ` C C R A` " P A` ( : : B
0x067c30…067dc4 Dummy {f00=0x0021, f01=0x0190, f02=» [ ; @` H` -P Z : : H` M :B L # ;A H` @ P 0!? T P $ _@ P ZH P ! _ DU2 DU1 DU4 DU3 MD1 MD2 MD3 MD4 FD1 FD2 FD3 FD4 CD1 CD2 %? v S : S f S 6 S b% =A S ^ S ` x UU
0x067dc4…067f58 Dummy {f00=0x0021, f01=0x0190, f02=» R ' P % =B S t w E M % n : T G.G K. A ;A; G. x ] S z | . N 0 N S W P X _ R z R 6"( R ~ | c< P #P & B.
0x067f58…0680ec Dummy {f00=0x0021, f01=0x0190, f02=» [ ; @` H` -P Z : : H` M :B L # ;A %? v S @ S l S < S h% =A S d S f V UU H 3 2P _ , ) 0 R _ <d?d U ?e R P S ?C/ G O % R ' P
0x0680ec…068280 Dummy {f00=0x0021, f01=0x0190, f02=» G. T ] S . N 0 R N S 4 W P X _ R R <"( R e P #P & B. T P ' " P : P S P S P " ^_" F t v @0
0x068280…068414 (0, 132) Dummy {f00=0x0021, f01=0x0190, f02=»% T V S @- S S < M % T S " . N 0 " N S W " P X _ R R <" R R gp " P #P ( B. T P ' " P : P S P S P " `_"g
0x068414…0685a8 Dummy {f00=0x0021, f01=0x0190, f02=» G.G K. A ;A; G. ( ] ] S S S S " :A S S S . N 0 S & N S W P X _ R R "? R R i h:B* S R P S B J 4R 4 :B
0x0685a8…06873c Dummy {f00=0x0021, f01=0x0190, f02=» T P ' " P : P S P S P % `_" " . N 0 " N S W " P X _ R R <" R R gp " P #P ( B. T P ' " P : P S P S P " `_"g
0x06873c…0688d0 Dummy {f00=0x0021, f01=0x0190, f02=» P* * PBADSTP DATA BADSTP TABLE FOR BADSPOTS P RES QBADSP STORAGE, READ < PBADSTE EQU * ^ P* r & PWRSTP DATA WRSTP TAB FOR BADSPOTS | P RES QBADSP STORAGE, WRITE PWRSTE EQU * P* * PSPADTP DATA SPADET TAB FOR FREE SP
0x0688d0…068a64 Dummy {f00=0x0021, f01=0x018e, f02=» P* P* PWBUF DATA 0 P* 0 P EJECT CRVOL : P* P P* Z " PECBR DATA 0 ECB FOR DISC READ d PECBBF EQU *-ECBR P DATA 0 PECBRL EQU *-ECBR P DATA QSECL2 PECBEL EQU *-ECBR P DATA 0 PEC
0x068a64…068bf8 Dummy {f00=0x0021, f01=0x0190, f02=» P EJECT CRVOL P* P* $ PECBW DATA 0 ECB FOR WRITING . P DATA 0 R P DATA QSECL2 b P DATA 0,0,0 ECBEL, -RC, -CW v P DATA 0 CW2 =1 P* P* " PPRECB DATA 0 ECB FOR PRINTING $ P RES 5 ECBBF, -RL, -EL, -RC, -
0x068bf8…068d8c Dummy {f00=0x0021, f01=0x0190, f02=»BA DATA 0 VTOC BASE PVTOCLE DATA 0 VTOC LENGTH P* > ( PBSSET DATA ' NUMBER OF BADSPOTS =' H PBSPNO DATA ' ' t P DATA ' ' PQBSSEL EQU *-BSSET P* P EJECT CRVOL P* P* * PWRSET DATA ' -WRITING THE S
0x068d8c…068f20 Dummy {f00=0x0021, f01=0x0190, f02=»ING THE SECTORS' | PQRDSEL EQU *-RDSET P DATA 0 2 PTOSREL DATA 'TOSS REL 10.0' B P* f P EJECT CRVOL p P* P* P* =1 P* RETRY DELETED =30 PQCYLNR DATA 0 TOT NO OF CYL $ PQSECND DATA 0 LAST USABLE SECTOR
0x068f20…0690b4 (0, 133) Opaque[0x194]
0x0690b4…069248 # DirEnt {nam=»PCAS «, typ=»LM«, f00=0x0000, f01=0x0000, f02=0x0430, f03=0x0000}
0x0690b4…069248 IdxSect {
0x0690b4…069248 f00 = 0x0021 // 0x690b4 @0x0
0x0690b4…069248 f01 = 0x0004 // 0x690b6 @0x2
0x0690b4…069248 gno = [ // 0x690b8 @0x4
0x0690b4…069248 [0x00]: C0x0021.0x2.0
0x0690b4…069248 [0x01]: C0x0021.0x3.0
0x0690b4…069248 ]
0x0690b4…069248 }
0x069248…0693dc Dummy {f00=0x0021, f01=0x0190, f02=» ^ ^ 0XX ERROR 2 0PCAS REL 10.0 DATE 80.03.14 12NC=8701 362 41000 0TO MANY SEGMENTS STATUS WORD: D $ 4` 1P -8 T r tB l`Tg t z ^ lFZF H 2 Z j z
0x0693dc…069570 Dummy {f00=0x0021, f01=0x0190, f02=» 4c @]u N d 2Z $"z y L / y N Dl` n $ @ 4Z wL a [ ? d d% L & "~ T &b CCn 1 d J < R:R: ` T l` % l`zF :| Fb fvzn : v ` ^* D3bH P D' >~ `" f >~ $' d p 4d @ B
0x069570…069704 Dummy {f00=0x0021, f01=0x0190, f02=» ^F < 0XX ERROR 2 0PCAS REL 10.0 DATE 80.03.14 12NC=8701 362 41000 0TO MANY SEGMENTS STATUS WORD: D $ 4` 1P -8 T r tB l`Tg t z ^ lFZF H 2 Z j z
0x069704…069898 Dummy {f00=0x0021, f01=0x0190, f02=» 4c @]u N d 2Z $"z y L / y N Dl` n $ @ 4Z wL a [ ? d d% L & "~ T &b CCn 1 d J < R:R: ` T l` % l`zF :| Fb fvzn : v ` ^* D3bH P D' >~ `" f >~ $' 4d @ B
0x069898…069a2c Dummy {f00=0x0021, f01=0x0190, f02=» @ A A @ A A A @ A A A @ CRP W0 A P (R 2 @ 9a @ A 0 ) A A ^ W ,= V % @ QB @ @ P8 @ U A W* @ P A W A , a A A A T
0x069a2c…069bc0 Dummy {f00=0x0021, f01=0x0190, f02=»Pd A A A A T ` 9a A A @ A A ^ A 0% ) ( A : ( % @ E A A ( ( @ " ` T( : @ 0 @ Q( &( @ . T A 0 : TKW DKW FM A N J
0x069bc0…069d54 (0, 134) Dummy {f00=0x0021, f01=0x0190, f02=»P P Q : $ C C ( : 9 $ Y :0123456789ABCDEF P (R 2 @ 9a @ A 0 ) A A ^ W ,= V % @ Q @ @ P @ U A W @ P A W A , a A A A T
0x069d54…069ee8 Dummy {f00=0x0021, f01=0x000c, f02=» @ X
0x069ee8…06a07c Dummy {f00=0x0021, f01=0x018e, f02=» 0 P IDENT PCAS REL 10.0 80-03-14 8701 362 41000 P 8 P @ P H P P P X P ` P* h 0 P* PCAS WRITE PROGRAM FROM /L ON CASSETTE /3 r P* P* BLOCK LAYOUT: P* P* CCCC P* .... $ P* .... UP TO 240 BYTES OF
0x06a07c…06a210 Dummy {f00=0x0021, f01=0x0190, f02=» P* REGISTER USE: $ P* A1: PNTR IN CTBUF CODE WORDS $ P* A2: PNTR IN CTREL RELOC BYTES H $ P* A3: PNTR IN DKBUF CODE WORDS p $ P* A4: PNTR IN DKBUF RELOC BYTES P* A5: RELOCATION MASK P* A6: SCRATCH P* A7: ORDER P
0x06a210…06a3a4 Dummy {f00=0x0021, f01=0x0190, f02=»* P EJECT P* P* " & P* CASSETTE STATUS BITS. GENERAL. , P* V 6 P* HARDWARE STATUS IS RETURNED BY DRIVER DRTC02 IF ` H P* AT LEAST ONE OF THE STATUS BITS 6, 12-15, RETURNED BY THE CASSETTE 8 P* HARDWARE, IS SET TO 1, THUS INDI
0x06a3a4…06a538 Dummy {f00=0x0021, f01=0x0190, f02=»* $ P* CASSETTE HARDWARE-STATUS BITS, P* RETURNED BY DRIVER DRTC02 2 P* V P* BIT 0: 1 ` P* BIT 1: ZERO t P* BIT 2: BOT MISSING P* BIT 3: TAPE-MARK DETECTED P* BIT 4: NO DATA/ERASED P* BIT 5: BOT/EOT-HOLE
0x06a538…06a6cc Dummy {f00=0x0021, f01=0x0190, f02=»RROR ~ P* BIT 10: ZERO P* BIT 11: ZERO " P* BIT 12: INCORRECT LENGTH 8 P* BIT 13: CRC-ERROR Z P* BIT 14: THROUGHPUT ERROR v P* BIT 15: NOT OPERABLE P* P* @ P* IN HARDWARE STATUS,RETURNED BY DRIVER DRTC02, BIT ZERO IS
0x06a6cc…06a860 Dummy {f00=0x0021, f01=0x0190, f02=» T P* CASSETTE HARDWARE. P* $ P EJECT . P* < > P* CASSETTE SOFTWARE-STATUS BITS, RETURNED BY DRIVER DRTC02 F P* P* BIT 0: ZERO P* BIT 1: ZERO P* BIT 2: ZERO P* BIT 3: ZERO P* BIT 4: ZERO P* BIT 5
0x06a860…06a9f4 (0, 135) Opaque[0x194]
0x06a9f4…06ab88 # DirEnt {nam=»PMPTS «, typ=»LM«, f00=0x0000, f01=0x0000, f02=0x0440, f03=0x0000}
0x06a9f4…06ab88 IdxSect {
0x06a9f4…06ab88 f00 = 0x0022 // 0x6a9f4 @0x0
0x06a9f4…06ab88 f01 = 0x0010 // 0x6a9f6 @0x2
0x06a9f4…06ab88 gno = [ // 0x6a9f8 @0x4
0x06a9f4…06ab88 [0x00]: C0x0022.0x0.0
0x06a9f4…06ab88 [0x01]: C0x0022.0x1.0
0x06a9f4…06ab88 [0x02]: C0x0022.0x2.0
0x06a9f4…06ab88 [0x03]: C0x0022.0x3.0
0x06a9f4…06ab88 [0x04]: C0x0023.0x0.0
0x06a9f4…06ab88 [0x05]: C0x0023.0x1.0
0x06a9f4…06ab88 [0x06]: C0x0023.0x2.0
0x06a9f4…06ab88 [0x07]: C0x0023.0x3.0
0x06a9f4…06ab88 ]
0x06a9f4…06ab88 }
0x06ab88…06ad1c Dummy {f00=0x0022, f01=0x0190, f02=» :U ` % C 8 C ( #( #WN < C C ( P C C ( b @ P !VVT A W !WW A T C C ( h C % C ( @ h ? T & _B @ h F0ZL F9YR T h *L 00 @ h '
0x06ad1c…06aeb0 Dummy {f00=0x0022, f01=0x0190, f02=» A$ $ F &> C C ( C % E C ( @ NOT *L YE Z *L & S * * C C ( 8 C C ( @ b ? T & _> D b AB 88T B D 63 d E 68 n B D 75T
0x06aeb0…06b044 Dummy {f00=0x0022, f01=0x0190, f02=»* 01PMPTS REL 10.0 DATE 80.03.14 12NC=8701 364 41000 DISK TYPE : C COMPLETE PREMARK: C DISC FILE CODE : VV XX NOT OPERABLE END OF PMPTS VOLUME LABEL MISSING OR UNREADABLE OK ? ? T F0ZL F9YR 00 @
0x06b044…06b1d8 Dummy {f00=0x0022, f01=0x0190, f02=» A F C C ( C % E C ( @ NOT YE Z S * C C ( C C ( @ b ? T _> D b AB 88T B D 63 d 68 n B D 75T
0x06b1d8…06b36c Dummy {f00=0x0022, f01=0x0190, f02=» 01PMPTS REL 10.0 DATE 80.03.14 12NC=8701 364 41000 DISK TYPE : C COMPLETE PREMARK: C DISC FILE CODE : VV XX NOT OPERABLE END OF PMPTS VOLUME LABEL MISSING OR UNREADABLE OK ? ? T F0ZL F9YR 00 @
0x06b36c…06b500 Dummy {f00=0x0022, f01=0x0190, f02=» A F C C ( C % E C ( @ NOT YE Z S * C C ( C C ( @ b ? T _> D b AB 88T B D 63 d 68 n B D 75T
0x06b500…06b694 (0, 136) Dummy {f00=0x0022, f01=0x0190, f02=» 01PMPTS REL 10.0 DATE 80.03.14 12NC=8701 364 41000 DISK TYPE : C COMPLETE PREMARK: C DISC FILE CODE : VV XX NOT OPERABLE END OF PMPTS VOLUME LABEL MISSING OR UNREADABLE OK ? ? T F0ZL F9YR 00 @
0x06b694…06b828 Dummy {f00=0x0022, f01=0x0190, f02=» A F C C ( C % E C ( @ NOT YE Z S * C C ( C C ( @ b ? T _> D b AB 88T B D 63 d 68 n B D 75T
0x06b828…06b9bc Dummy {f00=0x0022, f01=0x0190, f02=» 01PMPTS REL 10.0 DATE 80.03.14 12NC=8701 364 41000 DISK TYPE : C COMPLETE PREMARK: C DISC FILE CODE : VV XX NOT OPERABLE END OF PMPTS VOLUME LABEL MISSING OR UNREADABLE OK ? ? T F0ZL F9YR 00 @
0x06b9bc…06bb50 Dummy {f00=0x0022, f01=0x0190, f02=» A F C C ( C % E C ( @ NOT YE Z S * C C ( C C ( @ b ? T _> D b AB 88T B D 63 d 68 n B D 75T
0x06bb50…06bce4 Dummy {f00=0x0022, f01=0x0190, f02=» 01PMPTS REL 10.0 DATE 80.03.14 12NC=8701 364 41000 DISK TYPE : C COMPLETE PREMARK: C DISC FILE CODE : VV XX NOT OPERABLE END OF PMPTS VOLUME LABEL MISSING OR UNREADABLE OK ? ? T F0ZL F9YR 00 @
0x06bce4…06be78 Dummy {f00=0x0022, f01=0x0190, f02=» A F C C ( C % E C ( @ NOT YE Z S * C C ( C C ( @ b ? T _> D b AB 88T B D 63 d 68 n B D 75T
0x06be78…06c00c Dummy {f00=0x0022, f01=0x0190, f02=» 01PMPTS REL 10.0 DATE 80.03.14 12NC=8701 364 41000 DISK TYPE : C COMPLETE PREMARK: C DISC FILE CODE : VV XX NOT OPERABLE END OF PMPTS VOLUME LABEL MISSING OR UNREADABLE OK ? ? T F0ZL F9YR 00 @
0x06c00c…06c1a0 Dummy {f00=0x0022, f01=0x0190, f02=» A F C C ( C % E C ( @ NOT YE Z S * C C ( C C ( @ b ? T _> D b AB 88T B D 63 d 68 n B D 75T
0x06c1a0…06c334 (0, 137) Dummy {f00=0x0022, f01=0x0190, f02=» 01PMPTS REL 10.0 DATE 80.03.14 12NC=8701 364 41000 DISK TYPE : C COMPLETE PREMARK: C DISC FILE CODE : VV XX NOT OPERABLE END OF PMPTS VOLUME LABEL MISSING OR UNREADABLE OK ? ? T F0ZL F9YR 00 @
0x06c334…06c4c8 Dummy {f00=0x0022, f01=0x0190, f02=» A F C C ( C % E C ( @ NOT YE Z S * C C ( C C ( @ b ? T _> D b AB 88T B D 63 d 68 n B D 75T
0x06c4c8…06c65c Dummy {f00=0x0022, f01=0x0190, f02=» 01PMPTS REL 10.0 DATE 80.03.14 12NC=8701 364 41000 DISK TYPE : C COMPLETE PREMARK: C DISC FILE CODE : VV XX NOT OPERABLE END OF PMPTS VOLUME LABEL MISSING OR UNREADABLE OK ? ? T F0ZL F9YR 00 @
0x06c65c…06c7f0 Dummy {f00=0x0022, f01=0x0190, f02=» A F C C ( C % E C ( @ NOT YE Z S * C C ( C C ( @ b ? T _> D b AB 88T B D 63 d 68 n B D 75T
0x06c7f0…06c984 Dummy {f00=0x0022, f01=0x0190, f02=» 01PMPTS REL 10.0 DATE 80.03.14 12NC=8701 364 41000 DISK TYPE : C COMPLETE PREMARK: C DISC FILE CODE : VV XX NOT OPERABLE END OF PMPTS VOLUME LABEL MISSING OR UNREADABLE OK ? ? T F0ZL F9YR 00 @
0x06c984…06cb18 Dummy {f00=0x0022, f01=0x0190, f02=» A F C C ( C % E C ( @ NOT YE Z S * C C ( C C ( @ b ? T _> D b AB 88T B D 63 d 68 n B D 75T
0x06cb18…06ccac Dummy {f00=0x0022, f01=0x0190, f02=» 01PMPTS REL 10.0 DATE 80.03.14 12NC=8701 364 41000 DISK TYPE : C COMPLETE PREMARK: C DISC FILE CODE : VV XX NOT OPERABLE END OF PMPTS VOLUME LABEL MISSING OR UNREADABLE OK ? ? T F0ZL F9YR 00 @
0x06ccac…06ce40 Dummy {f00=0x0022, f01=0x0190, f02=» A F C C ( C % E C ( @ NOT YE Z S * C C ( C C ( @ b ? T _> D b AB 88T B D 63 d 68 n B D 75T
0x06ce40…06cfd4 (0, 138) Dummy {f00=0x0022, f01=0x0190, f02=» 01PMPTS REL 10.0 DATE 80.03.14 12NC=8701 364 41000 DISK TYPE : C COMPLETE PREMARK: C DISC FILE CODE : VV XX NOT OPERABLE END OF PMPTS VOLUME LABEL MISSING OR UNREADABLE OK ? ? T F0ZL F9YR 00 @
0x06cfd4…06d168 Dummy {f00=0x0022, f01=0x0190, f02=» A F C C ( C % E C ( @ NOT YE Z S * C C ( C C ( @ b ? T _> D b AB 88T B D 63 d 68 n B D 75T
0x06d168…06d2fc Dummy {f00=0x0022, f01=0x0190, f02=» 01PMPTS REL 10.0 DATE 80.03.14 12NC=8701 364 41000 DISK TYPE : C COMPLETE PREMARK: C DISC FILE CODE : VV XX NOT OPERABLE END OF PMPTS VOLUME LABEL MISSING OR UNREADABLE OK ? ? T F0ZL F9YR 00 @
0x06d2fc…06d490 Dummy {f00=0x0022, f01=0x0190, f02=» A F C C ( C % E C ( @ NOT YE Z S * C C ( C C ( @ b ? T _> D b AB 88T B D 63 d 68 n B D 75T
0x06d490…06d624 Dummy {f00=0x0022, f01=0x0190, f02=» 01PMPTS RE C C ( #( # : $ ! R !__Q P _ : : & # $ C C C ( B : 0 & "! #( B : ' C C ( ' $ $ &> ' C C ( : ' '"'`'j' F0 - F9 :6875 - 2,5 MB; 6876
0x06d624…06d7b8 Dummy {f00=0x0022, f01=0x0190, f02=» P !00R* !::R !AAR !FFQ Y& 8 9 Y 9 8 9 W? W? W? W? W? A? A? 9D: " @? :D R 0 P P 9H _4 W? _< W? V? V? V? V? V? : W? W? W? W? W? ? L T PF_ L ( ) W4 @R 0 P 9D _( W? V? V
0x06d7b8…06d94c Dummy {f00=0x0022, f01=0x0190, f02=»9C L _( V? V? V? V? V? W? V? V? V? V? V? 0 R _ A? A? 9H: " @? :H 0 dR _ A? 9H: " @? :H 0 d R _ A? 9H: " @? :H : : 0R :R AR GV A* A* @* (@ $$T * ( A* : A* A* (@
0x06d94c…06dae0 Dummy {f00=0x0022, f01=0x0190, f02=»( : * & ) * ) _ SYSTEM HALTED, PLEASE RESTART SYSTEM +$ A A 9D: " @ :D R 0 P P 9H _4 W _< W V V V V V : W W W W W L T P _ L S r S t S S S S A5 A
0x06dae0…06dc74 (0, 139) Dummy {f00=0x0023, f01=0x0190, f02=» C ( #( 7r *0(@ ," # C C ( #( (@ * 5b # X V -| 8 C ( X 9DVr X C X # P $ A4 % P _ ( X 8 *L X $ ? T X ! P 9b & _~ W _ X X _ -" C % E
0x06dc74…06de08 Dummy {f00=0x0023, f01=0x0190, f02=» R R S R R S 5 LABEL = S < DATE = S h S l S p PACK NBR = S v 0 $ S f S h S j S l S n S . S S 8 R * $P 1 1 _ 8 " $P 1 1 _ 8 :A $P 1 1 _ R &N N 9 @ 0< S 9* . 3L
0x06de08…06df9c Dummy {f00=0x0023, f01=0x0190, f02=» / 3 W W: $T R T R T R 4 B8 > B8 T 0< . W /( S 9jN R S S >E s S R B9 Q2>A R Q( 7 (@ + 7 _ 7 _ 7 _ R / Qd A7 A7 7 _< 8 _D / Q A8x / _ A8| 0 _ A
0x06df9c…06e130 Dummy {f00=0x0023, f01=0x0190, f02=» R % R 9J 0 3fW R B8 R R R V 9d9A S - ] " :A H8 M ? S - Y < R R . % A1B 9J 1 3fW Q B9 R R 9J 1, 3fW R % Z $CATALOG S R S R S R R 2 QN
0x06e130…06e2c4 Dummy {f00=0x0023, f01=0x0190, f02=» R 2 A5r 7 (@ *0(@ ," # C C ( #( ,` & 3 2R 3L R R 3 2p 3 3 _ _ S R 9H R R R R S R O R 2 N 3 0 3L R R R R 9J 2 3f
0x06e2c4…06e458 Dummy {f00=0x0023, f01=0x0190, f02=»SbY ?T > Z > RP> > RL> ^ 7 / N S2Y ?T $ > ZT> R > V > R > _ / / / / A4L R R @4L : R 8 OKP NOT 2 [ : : R 8 YET [ W NOT ," [ : : A4L R 4F Q S S R : 4L 6 6 7
0x06e458…06e5ec Dummy {f00=0x0023, f01=0x0190, f02=» * / T 4L : R Y R R 8 0_: 4L R r @5Z ^ R t @5 T S S &_X R t @5` S _ 6875687660 8 3 6" 8 4 6J L 6R 0 6Z 466 r 5 6f * 6 4 6 6 4 6 " 6
0x06e5ec…06e780 Dummy {f00=0x0023, f01=0x0190, f02=»: PACK NBR: DISK UNIT PHYSICAL ADDRESS: DAD NAME: NBR. OF CYL OF DDDDDD : NBR. OF INT OF / : DK TYPE(1215 OR 1216): NBR. OF SEC./ GRAN. OF : : NBR. OF SEC./ TRACK OF ," [ : SEC. LENGTH(IN CHAR) OF S : SYST. USERID: PASSWORD :
0x06e780…06e914 (0, 140) Dummy {f00=0x0023, f01=0x0190, f02=»D TRACK IN FIRST CYL. TOO MANY DEF. TRACKS: DAD TOO BIG,BITAB OFLOW NBR. OF INT NOT COMPATIBLE WITH NBR. OF SECT/TRNBR. OF INT NOT LESS THAN NBR. OF SECT/TRXPCTD: 0 READ: 46 r.p.r3L. 3 /X3f3 3 3,2 3 3"3:3>
0x06e914…06eaa8 Dummy {f00=0x0023, f01=0x0190, f02=»3 3030 3030 3030 3030 ( ( P8P8 P8P8 SYST. USERID: / GRAN. -DEVICE ADDRESS UNKNOWN -I/O ERROR NO SYSTEM USER POSSIBLE RUN AGAIN ? : END OF PMPTS
0x06eaa8…06ec3c Dummy {f00=0x0023, f01=0x0190, f02=»
0x06ec3c…06edd0 Dummy {f00=0x0023, f01=0x0190, f02=» CATALOG
0x06edd0…06ef64 Dummy {f00=0x0023, f01=0x0190, f02=» ( 0 $ ,
0x06ef64…06f0f8 Dummy {f00=0x0023, f01=0x0190, f02=» CATALOG LABEL: DATE: PACK NBR: A* ? *0 ? ) :^ * ? ) :x *
0x06f0f8…06f28c Dummy {f00=0x0023, f01=0x0190, f02=» : $ ? T & _( @9 A9 9 ) 9 * @9 ? T & _& NOT 9 T 9 ?z ?| :N = I AA2 A AA8 I AA>I ! P A S I AA2 AA8 AA> ? $ D( 9 A :N D0 T AD> P D A @ ! 8 @?z @= P 8A A?z
0x06f28c…06f420 Dummy {f00=0x0023, f01=0x0190, f02=» @?z8A A?z! T: A= @= T = @?z O: ?z N: A?| @:N A:N_P D` P D A:N @:N! v @= T @?z O: = ?z A A= B D( :N @?z @= 9@ AB 9@ O: @: 9AR 9 : ) 9 P ? A: D0 P D A:N R AD> D0 P D @<T A=
0x06f420…06f5b4 (0, 141) Dummy {f00=0x0023, f01=0x0190, f02=» D @= A<T A<D :N AD> AD( ADL ADV ADZ ADz AD AD AD0 ADD AD` ADr :0 ) :> * NO @:>P YE @:> ( ? A AD :> $$ A* ) (@ * I ! :I ! D ) :N @?xA SvY (D Q ^ A SdI Y :I ! D = @?xA SHY (L Q ^ A S6I Y : @:N P
0x06f5b4…06f748 Dummy {f00=0x0023, f01=0x0190, f02=») ( S S S S SUPERV AM AM AM AM W2 *0(@ Ez # C C ( (@ ( Mz l # X V W 8 C ( X 9DV0 X C X # P $ AP. ( W _ X XD B_L E C ( A ! T 8 Y X ;E
0x06f748…06f8dc Dummy {f00=0x0023, f01=0x0190, f02=» S l S p PACK NBR = S v 8863 S r 0 f S . S S O R * $P 1 1 _ O " $P 1 1 _ O " :A $P 1 1 _ R & N N @ H K G0 K W BP$ T _" S Kn G LX S S Kv R R BP& " BP$ <
0x06f8dc…06fa70 Dummy {f00=0x0023, f01=0x0190, f02=» R BP(Q:>A R Q0 N (@ EP N _ N _ O _ O _& R HL Qd AO> AO@ O( _D OB _L Hp Q AO H|_ AO H _ AO R H _* AO R H _8 AO R H _F AO O $_ R H Qd AO> AO@ NBR OF O* Kn H LX R S R %
0x06fa70…06fc04 Dummy {f00=0x0023, f01=0x0190, f02=» P Kv Q S| BP6 R Kv R % Z $CATALOG S R S R S R R K QJ VTOC S BP$ R BP* S R 9H R R R R K R S S S S R K AM~ AM (@ E O*
0x06fc04…06fd98 Dummy {f00=0x0023, f01=0x0190, f02=» R K N Kn I LX H6 Kv : Lr AL =h KP K. L W @L KP KL L W : :a :Av v >L >B F : >B _ Lr AL =h K K K W @L K K K W : :a :Av v >L >B _f N H >L >B _| >A >K >B
0x06fd98…06ff2c Dummy {f00=0x0023, f01=0x0190, f02=» ? > Z > Z > Z(_ AL R DL @L :0 $(,1 !%)-2 "&*.3 #'+/ AL R L Q S Q VTOC : R 8 YEP( NOT$ # M C C ( * : END OF PMPTS L : L : L R r @MXP _" S & @MZ S r_(888863 R T
0x06ff2c…0700c0 Dummy {f00=0x0023, f01=0x0190, f02=» Nn M^ RUN AGAIN ?: LABEL: DATE: PACK NBR: DISK UNIT PHYSICAL ADDRESS: DAD NAME: NBR. OF CYL OF DDDDDD : NBR. OF INT OF A : SYST. USERID: DYN AREA OVF. F.C. MISSINGINVALID PARAM F.C. NOT ASGN INV. F.C. INV. DEVICE SEEK ERRORUNKNOWN DEVI
0x0700c0…070254 (0, 142) Dummy {f00=0x0023, f01=0x0190, f02=»TAB OFLOW NBR. OF INT NOT COMPATIBLE WITH NBR. OF SECT/TRNBR. OF INT NOT LESS THAN NBR. OF SECT/TRXPCTD: S READ:VTOC : R 8 SELECTED G G LXL K Kj KZK^K K R r @ S0 ; :P _
0x070254…0703e8 Dummy {f00=0x0023, f01=0x0190, f02=»:i q r E x T 4 &: 4: V - P Y _( Y M : $ ] $ =IR E : $_ AQ Q 0 1 Y SINGIN AQ Q 4 0R, ! Q& P 8 8 W Y( AQ @Q @
0x0703e8…07057c Dummy {f00=0x0023, f01=0x0190, f02=» f z ~ P P 4 ^ :A D W W =C W E I Q W P _ A _ M Y @ | T T &: 4: V - P Y _( ( ( 0 $ , ; :P
0x07057c…070710 Dummy {f00=0x0023, f01=0x0190, f02=» Z : X ] X W X ] X f X ] X f x T& P Z : T ] f_^ T &: 4: V - P Y _( Y 3P Q Q / ] f : 0 ] f : ] f : h P W ] Z : 0 ] f ] h ::L
0x070710…0708a4 Dummy {f00=0x0023, f01=0x0190, f02=»V DADGRN,A12 DIV / # OF SECT / GRANULES = # OF GRANULES I P INH *PTS J F 0 P LD A5,SLNG,A12 SECTOR LENGTH J X B P SUK A5,BITAB+2-DBUF1 REMAINING WORDS FOR BITAB J , P LDR A1,A2 # OF GRAN J P
0x0708a4…070a38 Dummy {f00=0x0023, f01=0x0190, f02=» ST A1,BITAB,A12 J 8 P LDK A3,BITAB+2 1ST WORD OF ALLOC BIT K & P ADR A3,A12 K b 0 P LDKL A4,-1 BITS SET TO 1 K PPK740 EQU * K , P STR A4,A3 SET BITAB K 6 P
0x070a38…070bcc Dummy {f00=0x0023, f01=0x0190, f02=» A3,2 NEXT WORD ADDR K * P SUK A1,2 COUNT -2 L & * P RB(4) PK740 NOT DONE L T P* L D P* RESET LAST WORD TO THE RIGHT VALUE L < P ANK A2,/F # OF GRANULES IN LAST
0x070bcc…070d60 Dummy {f00=0x0023, f01=0x0190, f02=»ITAB L ` P* M L P LDKL A4,/3FFF RESET 1ST BIT OF BITAB WHICH IS THE CATAL M $ P ANS A4,BITAB+2,A12 M f J PPK755 EQU * RESET TO ZERO REMAINING WORDS IN SECTOR M P CMR A3 M 0 P ADK
0x070d60…070ef4 (0, 143) Opaque[0x194]
0x070ef4…071088 # DirEnt {nam=»SUP600«, typ=»LM«, f00=0x0000, f01=0x0000, f02=0x0480, f03=0x0000}
0x070ef4…071088 IdxSect {
0x070ef4…071088 f00 = 0x0024 // 0x70ef4 @0x0
0x070ef4…071088 f01 = 0x0014 // 0x70ef6 @0x2
0x070ef4…071088 gno = [ // 0x70ef8 @0x4
0x070ef4…071088 [0x00]: C0x0024.0x0.0
0x070ef4…071088 [0x01]: C0x0024.0x1.0
0x070ef4…071088 [0x02]: C0x0024.0x2.0
0x070ef4…071088 [0x03]: C0x0024.0x3.0
0x070ef4…071088 [0x04]: C0x0025.0x0.0
0x070ef4…071088 [0x05]: C0x0025.0x1.0
0x070ef4…071088 [0x06]: C0x0025.0x2.0
0x070ef4…071088 [0x07]: C0x0025.0x3.0
0x070ef4…071088 [0x08]: C0x0026.0x0.0
0x070ef4…071088 [0x09]: C0x0026.0x1.0
0x070ef4…071088 ]
0x070ef4…071088 }
0x071088…07121c Dummy {f00=0x0024, f01=0x0190, f02=»i LoX # # #$ A~ X - _ H*f* + + ,0-T
0x07121c…0713b0 Dummy {f00=0x0024, f01=0x0190, f02=»
0x0713b0…071544 Dummy {f00=0x0024, f01=0x0190, f02=» i ( "D r !f9 : G p R $ $ %Z&>F E % 9 J DMC,MCGBHDB&WMC RYD RDD ASE0ABF PSF RSG & TY J- LP / TK M
0x071544…0716d8 Dummy {f00=0x0024, f01=0x0190, f02=» $ DK _ DK 8 _ P DK _ DK ( _ DK U ^ DK U 8DK ) U
0x0716d8…07186c Dummy {f00=0x0024, f01=0x0190, f02=» ? ? ? ? ? ? ? Q~ & ? ? ? ? ? ? ? MX ? ? ? ? ? ? ? L 2b
0x07186c…071a00 Dummy {f00=0x0024, f01=0x0190, f02=» f l Z f Z f D Z
0x071a00…071b94 (0, 144) Dummy {f00=0x0024, f01=0x0190, f02=» Z V f R . Z | f ? ? ? ? ? ? ? fN ? ? ? ? ? ? ?
0x071b94…071d28 Dummy {f00=0x0024, f01=0x0190, f02=» ? ? ? Y ? ? ? ? ? ? ? l Y j & L r 0 V |
0x071d28…071ebc Dummy {f00=0x0024, f01=0x0190, f02=» 6 6 6 6 6
0x071ebc…072050 Dummy {f00=0x0024, f01=0x0190, f02=» 6 6
0x072050…0721e4 Dummy {f00=0x0024, f01=0x0190, f02=» :
0x0721e4…072378 Dummy {f00=0x0024, f01=0x0190, f02=»
[…0x4…]
0x0729c8…072b5c Dummy {f00=0x0024, f01=0x0190, f02=» P
0x072b5c…072cf0 Dummy {f00=0x0024, f01=0x0190, f02=»
[…0x1…]
0x072e84…073018 Dummy {f00=0x0024, f01=0x0190, f02=» *
0x073018…0731ac Dummy {f00=0x0024, f01=0x0190, f02=»
[…0x2…]
0x0734d4…073668 Dummy {f00=0x0024, f01=0x0190, f02=» @
0x073668…0737fc Dummy {f00=0x0024, f01=0x0190, f02=» A A R$ A A R A A R A @#" > > > > > > > > ? ? ? ? ? ? ? U ^ ( H ( P F" _ Q 4&? ?R _ 5 H _ ^ ;j >P @ * Q 9A D *P _ P A ( @ Q A ' A"T ( A A)F_ @ A
0x0737fc…073990 Dummy {f00=0x0024, f01=0x0190, f02=» @ ? ? > "D P P Q P ! P @ $ H @ P W ( < JZ @ 9a:a R0 "Z Q Q" ?A <P @"N %J & _ ( _ _ 0 % JZ T @ W @ R (P& P (_ =a:a =A:A Z P Z _" TR @
0x073990…073b24 Dummy {f00=0x0024, f01=0x0190, f02=» @% L F" 0 JZ @ PR 0=a @ ?a RX @ ?a VN=A 0 ( P>P< , T T 1W 1W T )W )W ( , _ C ( _ 5 H A& A& A& A& A& A& A' A& ' ( D >a @ =a (@ D U@ x ',W U, @
0x073b24…073cb8 Dummy {f00=0x0024, f01=0x0190, f02=» B :a Y B R A& _ @& ' W4 @& A& ,Xp _ < @ A' A( A( A( A( A( A( ( =a @ >a V _ @ >a Y A' A' 4 T ' ( "^ 5 U P" @' @( @( @( @( @( @( ( @' x @& 8
0x073cb8…073e4c Dummy {f00=0x0024, f01=0x0190, f02=» @ !@ *V @ P @ X0 , *V A _< U` A)F @ , L ? ? , L L L L L L ? ? ? ? ? ? ? @" Px @ > > > > > > > ; [ [ [ [ [ [ > > [ [ A @" H" " ? A" >
0x073e4c…073fe0 Dummy {f00=0x0024, f01=0x0190, f02=»? V :!9 V @ P R W ;A [ [ : _4 Pj T Pf V Q UF V Ud Q4P P 9A?A:AV R Z _ P*R R P ;A [ [ : V X"Z(_( L _P S
0x073fe0…074174 (0, 147) Dummy {f00=0x0025, f01=0x0190, f02=»R _ ;A [ [ : # P| ' PL , ; R <a V 9A:A ; V ; V V W V < V < V H T P R ;H [ [ : _ T P ; R4 < S , _ _ W < R $ <A Q" T" U" :$ _ < Z& - W _ < <A9 R :a
0x074174…074308 Dummy {f00=0x0025, f01=0x0190, f02=» R Q ;H [ [ : " _J ? ? ? ? ? ? ? Q _ ^ ( H Z - W . W / X I I R P8 X RlP RrT Y Y W x Y Y $ 0T W W 6 X ? ? ? ? ? ? ? .^ 7 X #? P ? ? ? ? ? ? ? . 7 6 (@ 7P %
0x074308…07449c Dummy {f00=0x0025, f01=0x0190, f02=»7 (@_~ 52X R Y _ X D $! TR ? ? ? ? ? ? ? /F 7 8 M ? ? ? ? ? ? ? /l 7 % > > > > > > > > ? ? ? ? ? ? ? / 7 P X 7^ 7v / 4 8 TRT X 5P 4 $ <A 52 Pl 52 X X X M M
0x07449c…074630 Dummy {f00=0x0025, f01=0x0190, f02=»_ X X X U 5 X E _ X 4 Y 5 X 4 Y ! 1P, 0P +P Q Q W W Q Q R P Q 5 Y / ? ? ? ? ? ? ? 1 7 Qv 1& 4 " PF X Q< X P P ? ? ? ? ? ? ? 1X 7 (@ Y C^ X X X R
0x074630…0747c4 Dummy {f00=0x0025, f01=0x0190, f02=»1 7 > > > > > > > > 52R X X Q Y ( O` ? ? ? ? ? ? ? 2D 7 ? ? ? ? ? ? ? 2 7 (@ 7P ? ? ? ? ? ? ? 2z 7 2 4 X M X ! 40" P2 O` X ? ? ? ? ? ? ? 2 7 (@ C^ X 4Q W 9AY T Q P
0x0747c4…074958 Dummy {f00=0x0025, f01=0x0190, f02=» Qz 9AY Tn9ATj @3 D4 @3 $W 1 Y $ D ! P 2 Y 0 P :ET OFP OST Y Y X 5Z X M _d3 4 4 ABCDEFGHI JKLMNOPQR /STUVWXYZ 4 4$4*[.<(+^!$*);] ,%_>?" P X 2 ' Q X 4 X X R ( 5
0x074958…074aec Dummy {f00=0x0025, f01=0x0190, f02=» A , DKP L X X L ! X L P L @ _ C C # ( _R _ _ _ _ _ X T 5b 4 X ! TH X X X T" $ :ET D OFT W OST X P % Y X R X 4 ! X Y T T Y Y
0x074aec…074c80 Dummy {f00=0x0025, f01=0x0190, f02=» X R 8 TYX WH H6 Y _8 X X: X R X ( _$ _* $ XtRX P Y _ A6 X X Y X Y _ $ P4R P6 X Q Y Y <dW Y W $ P R , _ X X*Y$ X X X6 Y Z(P A6 ZrP Y _8 _< _@ ! 4 $ X
0x074c80…074e14 (0, 148) Dummy {f00=0x0025, f01=0x0190, f02=» > > > > > 7 V <a W X ' ?A q A82 > > > > > > > 80 , 0W 0T _ l P$ X X ] X * A8aJ " * - X ( 7P = V X X C^ X 4 L ! L % T< L P4 M ^ L X 4 _ ? ? ? ?
0x074e14…074fa8 Dummy {f00=0x0025, f01=0x0190, f02=»9J: 9l9l: : 9~9~9~9~: 9b9t < W* = W" < W ?: L :AR| M W M M 4 L T M M L PH=GV L L 4 9 M 2 ;6 M L 9G L 4 L M L M M L 4 : W M " A< L P L 9JR@ P P T A, 5 U P T Q P P
0x074fa8…07513c Dummy {f00=0x0025, f01=0x0190, f02=» L ' 7P P p Y "(@ P P $ M : P ( M P Q P P P W P T Q (@ L " A<(@ H H T A, E $ I 4P _ 5 % E (@ L 2 ( P _ 4 ) % ] M (@ L 2 A$ T!fR Q @!f] A,>
0x07513c…0752d0 Dummy {f00=0x0025, f01=0x0190, f02=» T V P T"W L >F A$ L & A$ < M 4 ; M L M L " P M < : M L M A< L ! PT L M L M L & P L E E M < : M M L L % T D V L ! P L ! XfWn L M L M M =0 : L :c:A L D
0x0752d0…075464 Dummy {f00=0x0025, f01=0x0190, f02=» D Q = M 2 < L L $:BV W $:AV M " M A L L $ M 0 D L U M " V L R L M ( M * M , L X L U M W > M 2 < L D L L 0U L 0 L (U L ( L L R $ 9 _ R $ 9 M , L M M
0x075464…0755f8 Dummy {f00=0x0025, f01=0x0190, f02=» L L , U A< L A$ L U ?X M 2 < L M $ L M & L L I P0% P L X =h P W P L X T M . L 9 M L A$ L L . Q L L L R 0 % _ M M L . P M . ? M 2 < L U @, M 2 < L
0x0755f8…07578c Dummy {f00=0x0025, f01=0x0190, f02=»P0W" M L A$ @ M ( L U @ M 2 < L L ( E L % E L E L E M A M 2 < L P$ A< M 2 ;r M "W F" = JZW ( L 4 5 L L " C m M ^ U L ( L L ? ? ? ? ? ? ? A A H 4 R W 7
0x07578c…075920 Dummy {f00=0x0025, f01=0x0190, f02=» d _ AB0 B AH 5 T6 @H P H BD BH BL BP BT @H AH AB0 ( 5 4 X _8 B P W M: B ( "^ B, B . L ER B H L L . Q L L L R 0 % _ M M L . P M . ? M 2 5 B J I B P
0x075920…075ab4 (0, 149) Dummy {f00=0x0025, f01=0x0190, f02=»D X W* 8 AD T AD D (@( 4 4 : 0 :R - Y PU,DNXX,STAT,RY C ;r 5 J ? B C 1P C Y _ @B RDP A P 8 FL B X X ! R V Y AD 8 TKP Y LPP MTP Y
0x075ab4…075c48 Dummy {f00=0x0025, f01=0x0190, f02=»B. 4 X X ? ? ? ? ? ? ? E. 7 _ 5 J B @ Q P P T Z B W P B $>H $ NOT W0 J @ ! $ T P Y B C C R ] B, 0 % E M 0AB CD ADDR @ 9a:a;a R R AF F AH
0x075c48…075ddc Dummy {f00=0x0025, f01=0x0190, f02=»U AE E il E ( "^ F = JZ @ A @ !? $> A"T H _* 5 @H B @ A B, 0 JZ AG AG G ( "^ @ A ( C 5 @ 4 B P J _ 5 B, 5 J AG J R: P J R( G ( "^ G ^ @ T G (
0x075ddc…075f70 Dummy {f00=0x0025, f01=0x0190, f02=»PP , X QD il Hl Y , il Hl Z H @H P : HV ` : B I il _* AHB H> ( "^ : ; ;<A ' R `R Q QB _ QB <a : : : - A ~(@ A" AH A A A A AH AH AH a H @ ? ? > "D P :b
0x075f70…076104 Dummy {f00=0x0025, f01=0x0190, f02=» @ @ @ @ Y Y Y Y " A "; V W # @ A AH @ ? ? > Q @ ? ? ? ? ? ? ? I F" @ P <a:a B :A : P6 $ R, Z R R Q $ :D P $ R ^& : B P R( AJH AJJ AJL AJN AJP AJR AJT
0x076104…076298 Dummy {f00=0x0025, f01=0x0190, f02=» ? JX ( < JZ B @ 9a:a R @ @J @"N %J '~ %J :EOS:EOV _* AHB H> ( AK< K> !? QM P ^ 52 V X 58 58 X AK AK0 AK2 KR @K@T AK@ !L PM !L L Q AK2P !L _ MF !L P Y !L !L AK2X _
0x076298…07642c Dummy {f00=0x0025, f01=0x0190, f02=»9C^ W| !L _ !L Wn !L _ K8 Y Y _ X r s W4 X @ _ W$ AW @W $W %W W !W W X 9d)` AKB AK0A T 7P 9CV * 9AV 9AV X 1P * 9EV )@ X Q6{ X Y Q& X $ :ET D OSP OVT * W * W Y AK0 Y 4 @K0J P Mj
0x07642c…0765c0 Dummy {f00=0x0025, f01=0x0190, f02=» :EOS:EOV ( < "$&1368 AM M !? QM P ^ 52 AN X AQ X AQ Q R x % =A Y X Y4 Z8 AM $ $ T D i M !Q. X "! T( !Q^ P Y " @M !? 1P P !Qb Y !P HN N N N N N N Q N Q(P P Q Q Q P P AQ !QV " P* AN
0x0765c0…076754 (0, 150) Dummy {f00=0x0025, f01=0x0190, f02=» D P X &Q Y W Y 4 X $;H D :ET $;H D OSP OVT W W !ON X ! P X 1P W @ X U W W W !ON X ! . @Wp !ON X ! Tb AW^ X P& T "P R Q W 8T Y W, W< O P6 4 X Q @Q Y _ X R Q @
0x076754…0768e8 Dummy {f00=0x0025, f01=0x0190, f02=» AP X 9c T DM EM 4 X B X :c HM % P^ !Qn_N !Qr !P _X !Qv_^ !Qf Y " !P _p M _ X # ;dC Y AM AM 7P AQ _ _ _( _, _0 _4 _8 _< _@ _D _H @M @M J P* P8 AQ X Q I -W ,A W @M ;I U @M M 4A @
0x0768e8…076a7c Dummy {f00=0x0025, f01=0x0190, f02=» C _: DL P H C _ P X( DD _Z :EOS :EOF 52 5J 5 @ !? ?R _ R 4 ' !? 0X A "! X6 @ Q P ^L_ P XP P R :AV L D I I "R (@(@ ^ :j >Z ^ @ P _ A $ M (@ M M M B
0x076a7c…076c10 Dummy {f00=0x0025, f01=0x0190, f02=» X M W M W y Y Y Y # C B 58 B 58 $? U P R Rx P R U8 RxP P| P Pv P $P &PN "P< /P :P ;P <P =P >P ?P 1 Rx 8 RxWv T W RrW T W Rl W W T W Wx
0x076c10…076da4 Dummy {f00=0x0025, f01=0x0190, f02=» $ X _0 8 TCX< TKXB MTXH DYXN _Z OS :EOF 52 5J 5 @ ( 0 $ , V X Y X W B Y % W L Wb M B P 58 X P P P P 52 B P P 4 ^ :A HU W W M B M
0x076da4…076f38 Dummy {f00=0x0025, f01=0x0190, f02=» L M UxR> U Q8 U|R M M M M W M M M M y W _ @U P M WR AU L " * AW/- AWG L " X ! Y M T(% T$ ! R L W L A T M AUZ AUX X 7P B M W~ i Z| M _* Up Y B AUf X P PD P@
0x076f38…0770cc Dummy {f00=0x0025, f01=0x0190, f02=» Y V AUd AUb AU` X P< P P4 P M @Uf M M !Z !X P @ W M @Uf M M !Z !X X X ? ? ? ? ? ? ? 7 X M AUZ AUX AUh X 7P AU^ ! T @Ub AU^ @Ud Y @U`U AUf X& M X 4 X ?
0x0770cc…077260 Dummy {f00=0x0025, f01=0x0190, f02=» Y ? ? ? ? ? ? ? 7 X M M W Y ? ? ? ? ? ? ? 7 X 7P =b%0 X $ L <B<j P L 4 $ _ L =AV L <AR A"R<B M 4 X Z X % Z L % 4 L ? 4 W M AU 8 4 M @Uh 7P
0x077260…0773f4 (0, 151) Dummy {f00=0x0026, f01=0x0190, f02=» 8P F" X % !X %`X P % X. R" X>W % P T % XT <A P X^<a P @ p @ $ " P $^ F" " A] A] A] A] A] A] A] ] > > > > > > > a] @] E E E E E E ] >
0x0773f4…077588 Dummy {f00=0x0026, f01=0x0190, f02=» " H Wx " Wn & P >b& >AW >a& @T " X X T$W. " P X ` `T 8 P X 8 T" T" T "<A U" U" T" U" T" T" ? ? U" : V: T" T" T" T" T" T" " " " " " " " T" >" H]
0x077588…07771c Dummy {f00=0x0026, f01=0x0190, f02=» 8P F" X % !X %`X P % X. R X>W % P T % XT <A P X^<a P @ p @ $ " P $^ F" " A A A A A A A > > > > > > > a @ E E E E E E >
0x07771c…0778b0 Dummy {f00=0x0026, f01=0x0190, f02=» " H Wx " Wn & P >b& _ X M M Y X a a B Y ! a L a6 X P P P P 52 B 58 @_ P M L 7P A_ ^ !` B !` X X ! P L y !aXW !a~ L x P !a M Q W ! P M L ZZ a6 B Y
0x0778b0…077a44 Dummy {f00=0x0026, f01=0x0190, f02=» Q a6 4 ! 9A " ! M 4 P P L P P ! _ 4 B aF i ` L :C* WL WH:a L ! 9A r X L :B* W":a L ! 9A r X L :B L !? B M A^ L 7P ^ M Y B A^ ^ Y X P P P P P P8
0x077a44…077bd8 Dummy {f00=0x0026, f01=0x0190, f02=» !aXW A_ !f !aX" P !aT M L ZL M A^ V !f !f ` B P2 A^ B T$ B S @] T !f @^H A] ! P W ` B <b :b ^ A^ A^ A^ R>P A^ A^ !d` A^ W& !d` A^ R !d` W !d` A^ P A^ V !d` !d`
0x077bd8…077d6c Dummy {f00=0x0026, f01=0x0190, f02=» !d` A^ Z X Td @] ! P W @^ P Q Y @^ @^ A^ A^ !d` @] ! P W Y A^ & B Y ` @^ :e L Pv !a M Q !aJ !f @] ! P L PP !a~" T" L @^ P<W !a~" T L @_ P$ M L Q !aT_Z M Q ` T X
0x077d6c…077f00 Dummy {f00=0x0026, f01=0x0190, f02=» " T A^ W A^ T P A^ Y T U 4 !f @] ! P !aXW !aX" P M L Z2 ` 4 !f @] ! P !a~" T W( !a~" P M L 6 ` @_ L 4 @^ L " P $ M 4 @^ ^ ( = Y 4 @^ ^ < ) Y 4 X ! J $ <b
0x077f00…078094 (0, 152) Dummy {f00=0x0026, f01=0x0190, f02=» a6 4 !aT !a M Q A^ M !a~ 4 @^8 TOTD @^@ 1T: B A^H @] ! P !aXW !aX" P M L ZJ ` 4 @ _ X X X X $ Pgjgrg hzh % P Y Y Y >% X P Y _" P" P& R| ^T Y _D _T X _ X
0x078094…078228 Dummy {f00=0x0026, f01=0x0190, f02=» P Q X Q % _" Y Y Y 4 % X P Y $ W Y =D %_ X P V % P Y X XT Q _ g Q g 0DKER UNIT CYLD STAT h i 4 h i W2 h i& X W$ h i2 W h ( X =
0x078228…0783bc Dummy {f00=0x0026, f01=0x0190, f02=» M M Y$ #? @ P R P T T T Y" P T _ X D D E E ] @ E @ jV ? ? > ? ? ? ? ? ? ? mv C ( "^ @m k U T " P " P @m W C "& # ( "^ A p @
0x0783bc…078550 Dummy {f00=0x0026, f01=0x0190, f02=» [ [ [ @ L ! P Y _ @ M ^ U > > > > > > >WZ A p ^ T " T0 ! P W SY SD AD _ ! P _, J _2 mv # C ( "^ P m m m m CCT I T P Q _, A
0x078550…0786e4 Dummy {f00=0x0026, f01=0x0190, f02=»( "^ B P @ !? M @m P M L R ! _ PP I H P _ A i A A A @ ~ mN A ~ @mV A ~ @ oL( A~ A A "^ H (@_0 $ ( , 0 4 8 < m T " P " P @ W C "& # ( "^ A p @
0x0786e4…078878 Dummy {f00=0x0026, f01=0x0190, f02=» [ [ [ @ L ! P Y _ @ M ^ U > > > > > > >W A p ^ T " T ! P W SY SD AD _ ! P _, J _2 # C ( "^ P CCT I T DOS - PTS
0x078878…078a0c Dummy {f00=0x0026, f01=0x0190, f02=» y : f P C W $0 P C w : C "!@P ") # B C B % C :d d d evfbd fZk i i j m oHoHe e e e f&d e e rBw@v v v w@vbf f~f f ~ W V 7 @? ! P ~ P W d e 9c Dd4 gN f Q dBW j :aW
0x078a0c…078ba0 Dummy {f00=0x0026, f01=0x0190, f02=»T V P V ~ W V _ 8^n Dd` 2 ! 9B V T SZW V P D $ V 6 V % V E @? ' T 2 % 7_ 2 # LR gN 2" &] Y $! 6P Q $ T 9B e _ _ 6 @? " T 7 $ V P ~ W _ d
0x078ba0…078d34 (0, 153) Opaque[0x194]
0x078d34…078ec8 # DirEnt {nam=»ASM «, typ=»LM«, f00=0x0000, f01=0x0000, f02=0x04d0, f03=0x0000}
0x078d34…078ec8 IdxSect {
0x078d34…078ec8 f00 = 0x0026 // 0x78d34 @0x0
0x078d34…078ec8 f01 = 0x0008 // 0x78d36 @0x2
0x078d34…078ec8 gno = [ // 0x78d38 @0x4
0x078d34…078ec8 [0x00]: C0x0026.0x2.0
0x078d34…078ec8 [0x01]: C0x0026.0x3.0
0x078d34…078ec8 [0x02]: C0x0027.0x0.0
0x078d34…078ec8 [0x03]: C0x0027.0x1.0
0x078d34…078ec8 ]
0x078d34…078ec8 }
0x078ec8…07905c Dummy {f00=0x0026, f01=0x0190, f02=» H % #N. q [::Z B Y%o=fr b Fr ? ^a T : 6 9 i %(TLw z~+ *S Nwm 3 C # 7 x zl L $=Tu Z<K m c mjv z L _^ z F$T$ %@$V$ %@% % 4` @ @ . Pn b~
0x07905c…0791f0 Dummy {f00=0x0026, f01=0x0190, f02=» + @J <Z % !2Z "z y :s % H D 6 Y d ~ { & B P y:p W [~ 7]d +b% L M >) E: ( : @ < z R:R: ` B@ ^% g 0~ "<d# c ( B R Q : B | B p ( 0IO ERROR
0x0791f0…079384 Dummy {f00=0x0026, f01=0x0190, f02=» @ c A A ( & $( 4 :a;a : MW& XW" CW RW EW IW LW FW SW OW P @ A b * A a @ A @ A @ P a @ a x @ vP 8 ) A _ * I a ^ a A @ P A @ END A A E A A
0x079384…079518 Dummy {f00=0x0026, f01=0x0190, f02=» + @J <Z % !2Z "z y :s % H a f A f : A f a f ` f : $:f:A $# Q $# P W WL $$ X $$ <A $# P _ ; $$ X, ; A $ 4 & X <a<A : : @ W @ AZQ4 > 09Q& ::Q ..Y
0x079518…0796ac Dummy {f00=0x0026, f01=0x0190, f02=» &<E P" "$ T" 4 %T W _> W W @ @ $<E % @ $$ Q ) A : A W 09U ( 9 S = S 0 S _ : 2 A 09Q AFR ( 9Q R V =D _( : 2 ` A ''Q Y
0x0796ac…079840 Dummy {f00=0x0026, f01=0x0190, f02=» + A ++Q --Q W W V . **Qx ''Qb //Q XXU ''Q Wl AZQf 09Q< 4W W> A ''R W& 09Q AF 2 A : W '' 2 W Z @ @ Wx Z A 6 T 2 $ P P A # P"#
0x079840…0799d4 (0, 154) Dummy {f00=0x0026, f01=0x0190, f02=» @ @ Q F 4 1 A : 2" P0 P, P( V P T * @ P . 60 FOR.O/R.1 SYMBOL TABLE0 UND.ENT.0 UND.LAB.0 ASS.ERR.1 ^ $ ) $ 0P P $ ) _ : d ' L R L _ 0 ) ^ : 9 R : ) Y : @
0x0799d4…079b68 Dummy {f00=0x0026, f01=0x0190, f02=» @ T @ @ A A Z 9! D A _ _ A A @ @ :a;a R R : T T _( O @ T& P 4 l ^ ~ ^ ( l ^ ^ : W W d Pj a d @ Q4 P.
0x079b68…079cfc Dummy {f00=0x0026, f01=0x0190, f02=» @ @ Q @ 4 1 A : 2" P0 P, P( V P T * @ P D 60 FOR.O/R.1 SYMBOL TABLE0 UND.ENT.0 UND.LAB.0 ASS.ERR.1
0x079cfc…079e90 Dummy {f00=0x0026, f01=0x0190, f02=» F @ 2P R A v H A A F 4 I >! A >!P H A I 0 @ tP ( A A _, A Q @ U ( D @ A $ U A : @ PH @ @ T 2 $" B $" P A t $ A A A ( A ) >C
0x079e90…07a024 Dummy {f00=0x0026, f01=0x0190, f02=» A ( @ A A A @ A A < h A f @ A @ A r I 0 ^ z A & . x A v **QX LRRQ 6 L J . T@ @$TP T P A . R A BW F *W _ ( @ P P @ I @ T~ Ut A
0x07a024…07a1b8 Dummy {f00=0x0026, f01=0x0190, f02=» V @ @ Q @ P 2 r 4 "( 4 ( 0FATAL ERROR HAS OCCURRED,NO OBJECT CODE PRODUCED W W 1 @ B L J 1P A A ^_ @ TZ ,W @ TN ( @ T LU> 6 B ,,Y R ,
0x07a1b8…07a34c Dummy {f00=0x0026, f01=0x0190, f02=» % @ @ ) I ((R * ))R U > S S ,,Y` R a B J T ( % a A : $ B : W @ B T B L J 2 @ 0 A a P2 6 ,,RR F $" T @ = ," W A 2 = ] ]
0x07a34c…07a4e0 Dummy {f00=0x0026, f01=0x0190, f02=»W. < Pz T W Tn @ W T * ] ] P 9A Y T2 < = T$ P &T F T W R ,,Y W ,,Y F @ 2 P R ^ ` " a Qx T //Q J Y 9a 09R, YV D 4" Y^ E 4 9 E T ,,Q - = _4 ZN
0x07a4e0…07a674 (0, 155) Dummy {f00=0x0027, f01=0x0190, f02=» @ , _2 @ A A A A $T @ A A A J @ B LPLQ @ @ P8 $T % _ 6 R $ R % ,,Y" J LU6 * @ T* R$ @ j 9a R S 9 @ J @ B L J
0x07a674…07a808 Dummy {f00=0x0027, f01=0x0190, f02=» . @ T 6 ! : J L J ''Q2 8 Y 4 Y T @ T P X ,,RD Q Z4 R ''Q X A ( Y 4 A _ ''Y X* XB Y 4 _L Z A 0 A 2 J Y 9a 09R, YV D 4" Y^ E 4 9 E T ,,Q - = _4 ZN
0x07a808…07a99c Dummy {f00=0x0027, f01=0x0190, f02=»PN 8 I 4 ;a P _ ] ] T ] " 2 YP _T T 8 P "T x _ R T* " P" P F 4 P @ G 4 @ P n _> G 4 4 G T_ PX P 8 @V "P ,,Q R A
0x07a99c…07ab30 Dummy {f00=0x0027, f01=0x0190, f02=»R P 9A G 4 Z_ T| @ @ J PX X @ O O O _ 2! Q : F A 2 : ,,Q R A : Z J R R @ R : P P * : 8 : 2 : 2' ?A 2&p : @ P @ P P P
0x07ab30…07acc4 Dummy {f00=0x0027, f01=0x0190, f02=» W @ B LUL * ==R@ * R4 P P A A B LV _ J 1 A @ T @ B LU A 6 @ %P % 6 A 6 A 6 R 4 F A D z E ^ ( A I ^ @ A @ A A F
0x07acc4…07ae58 Dummy {f00=0x0027, f01=0x0190, f02=»,,R 6 + J @ @ P& T 2 j 4 A _, P ( @ @ A PT $ $# P $ ] T A A @ T A 0_Z ] A @ P W P @
0x07ae58…07afec Dummy {f00=0x0027, f01=0x0190, f02=»# Q A W R W ** A $# Q W ( W X ~ _ P J j P T j A ( 4 & ( 4 ^ j A P 4 0^ ( ASS.ERR.Q D @ "1 I T A I D
0x07afec…07b180 Dummy {f00=0x0027, f01=0x0190, f02=» @ I W j @ I C ` @ I C V A Q M A a ! I 2 A i 1S A q BI @ " Q L @ " I S A I C A I U @ I V @ I A @ I S ~ @ I X t A I M j A I L @ I S A i AD L @ ADS B A i SU 6 @ SUS , A i MU
0x07b180…07b314 (0, 156) Dummy {f00=0x0027, f01=0x0190, f02=»"1 p TR ! 1 h DR DRS !h UR URS !h NR NRS !h RR RRS !h RR RRS !h FR h 1R h WR | h CR h CR z !h CR r p MR ! a h 2R ! 1RS !h TN p BR " H M 6 h NM . ` DK DKL 1 h DK DK
0x07b314…07b4a8 Dummy {f00=0x0027, f01=0x0190, f02=» t P B q BL ` IO@ @ h NR H h TR @ ` STH ? h ST H ` NB(@ h LT h NH h KM ( ` IT > p LR h SR !h CR !p UR a ! h VR h AR h SR ` LK i CK ! a UK i VK b AK j SK
0x07b4a8…07b63c Dummy {f00=0x0027, f01=0x0190, f02=» 8 h RC 8 p LN8 h RN 8 h ER p h ER x h GR h MR r !p XR a ! a XK ! h LR h SR ! ADR > ADRS 4 ! SUR * SURS ! MUR MURS ! DVR DVRS !h VF p h VB x VUS x VSU p STR ! LDR h LR h SR !h FL
0x07b63c…07b7d0 Dummy {f00=0x0027, f01=0x0190, f02=»x FF tx FT px IF TAB ORM FORM x EN J8 8 8 X Z X P X N 8 8 8 X E X G X L 8 8 8 8 X A X R :P ZA1 ZA2 ZA3 ZA4 ZA5 ZA6 ZA7 ZA8 ZA9 zA10 zA11 zA12 zA13 zA14 zA15 b AK j SK
0x07b7d0…07b964 Dummy {f00=0x0027, f01=0x0190, f02=» LABEL = FIXS3 DATE = 790404 PACK NBR = 001 f 4: V - P Y _( Y M : ] =IR E
[…0x3…]
0x07be20…07bfb4 (0, 157) Opaque[0x194]
0x07bfb4…07c148 # DirEnt {nam=»TLK «, typ=»LM«, f00=0x0000, f01=0x0000, f02=0x04f0, f03=0x0000}
0x07bfb4…07c148 IdxSect {
0x07bfb4…07c148 f00 = 0x0027 // 0x7bfb4 @0x0
0x07bfb4…07c148 f01 = 0x001a // 0x7bfb6 @0x2
0x07bfb4…07c148 gno = [ // 0x7bfb8 @0x4
0x07bfb4…07c148 [0x00]: C0x0027.0x2.0
0x07bfb4…07c148 [0x01]: C0x0027.0x3.0
0x07bfb4…07c148 [0x02]: C0x0028.0x0.0
0x07bfb4…07c148 [0x03]: C0x0028.0x1.0
0x07bfb4…07c148 [0x04]: C0x0028.0x2.0
0x07bfb4…07c148 [0x05]: C0x0028.0x3.0
0x07bfb4…07c148 [0x06]: C0x0029.0x0.0
0x07bfb4…07c148 [0x07]: C0x0029.0x1.0
0x07bfb4…07c148 [0x08]: C0x0029.0x2.0
0x07bfb4…07c148 [0x09]: C0x0029.0x3.0
0x07bfb4…07c148 [0x0a]: C0x002a.0x0.0
0x07bfb4…07c148 [0x0b]: C0x002a.0x1.0
0x07bfb4…07c148 [0x0c]: C0x002a.0x2.0
0x07bfb4…07c148 ]
0x07bfb4…07c148 }
0x07c148…07c2dc Dummy {f00=0x0027, f01=0x0190, f02=» D E % 6 % . % A / H < / W :C H A M 4 H R M 4 PB " P :C_ @ 9C E ^ 4 V V ( T # Y$ @ : ( @ D A V A X D ( A ;FR A W H T A Z 2 >
0x07c2dc…07c470 Dummy {f00=0x0027, f01=0x0190, f02=» H A N A T A $ @ A @ $ A " @ ( A & @ , A * @ N @ T A R A P A < A @ X A V V $P D " X E _ @ P @ A @ " A $ @ & A ( @ * A , @ P > H > H $ > > > >
0x07c470…07c604 Dummy {f00=0x0027, f01=0x0190, f02=» > % @ T8 @ P ! ! > > > > ( _ MR:FC W MR:OPN : D D ! L Qz L , % X P$ P P V G = G 0 G X <A @ BQ( P D G X G = X G X G V
0x07c604…07c798 Dummy {f00=0x0027, f01=0x0190, f02=» < N M N M T - Y : < V ;AP N N MR:RS W MR:GER F % P F P G G 0 1 G T G W F P~ N G G = U : H 4 8 U : L H V V V V V F P 0 G T G F F
0x07c798…07c92c Dummy {f00=0x0027, f01=0x0190, f02=»U : H W MR:PUR F % P F P F G G F G T G W 9 F TX F PR F U : D x F P 0 G T G F F W MR:ENR F ! P
0x07c92c…07cac0 Dummy {f00=0x0027, f01=0x0190, f02=» 1 G T G W F PH N G G = U : H F Pd 0 G T G F P " F P. 0 G T G F P U : H l " " " W MR:PUW F % P F P F G G F G T G W 9 F T0 F P 0 G
0x07cac0…07cc54 (0, 158) Dummy {f00=0x0027, f01=0x0190, f02=» G W % U : H F P. 0 G T G F P U : H MR:AR W MR:ASB & P P 2 F P F D E T %W ) G G 2 W MR:REL & P P D G G P 0 E T E MR:L
0x07cc54…07cde8 Dummy {f00=0x0027, f01=0x0190, f02=» W MR:WAI F R R G < ( B F B ] B P W B P ; R _ D G G R W MR:INF < ( B MR:RWR W MR:RBR F P $ T F T F P@ 0 G T G F
0x07cde8…07cf7c Dummy {f00=0x0027, f01=0x0190, f02=» F U : H N G G = MR:PC W MR:EXI D ( W MR:DAT @ T I Y 6 W MR:TIM @ " T I I Y I < I I 2 I p MR:ES
0x07cf7c…07d110 Dummy {f00=0x0027, f01=0x0190, f02=»T( " U : H T X N W MR:REW F $ P P p 1 U : H N p # " 'Q R # : A A A A A A A A A A A A A A A A A A A A
0x07d110…07d2a4 Dummy {f00=0x0027, f01=0x0190, f02=» L ! 0 5 1 L # # :* CREDIT CODE LINKER REL 10.0 800314 * * DATE XXXXXX * PAGE 0000 *
0x07d2a4…07d438 Dummy {f00=0x0027, f01=0x0190, f02=» UUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUU
0x07d438…07d5cc Dummy {f00=0x0027, f01=0x0190, f02=»UUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUU IDENT O T:D TRA NOD P:PIL T:FMT P:S001T:KEY S:GTABT:LIT P:BAS T:BAT T:PAT P:
0x07d5cc…07d760 Dummy {f00=0x0027, f01=0x0190, f02=»P : < = G T . F P _ F =h P8 T* . F P _ F P _ : & A ' : @ ' : # HT W T W ( < ) = # : # H P n P ( ) = # : ^ V H H
0x07d760…07d8f4 (0, 159) Dummy {f00=0x0028, f01=0x0190, f02=» V H H ` V H H V H H
0x07d8f4…07da88 Dummy {f00=0x0028, f01=0x0190, f02=» b V H H V H H `
0x07da88…07dc1c Dummy {f00=0x0028, f01=0x0190, f02=»
[…0x3…]
0x07e0d8…07e26c Dummy {f00=0x0028, f01=0x0190, f02=» | n n
0x07e26c…07e400 Dummy {f00=0x0028, f01=0x0190, f02=» ( p !
0x07e400…07e594 (0, 160) Dummy {f00=0x0028, f01=0x0190, f02=»! :f Q P # :b TD A! A! [ T 9h A! & A! T A! T 9h A! & A! A! W P@ P Z P Q0 0P* P$ P T [ # : # ! H #b A!( A!D A!J > NO 3 D S S H S > > # :
0x07e594…07e728 Dummy {f00=0x0028, f01=0x0190, f02=» # @ X @ dW& # @ d @ X @ ` @ U A =a>a R, @ V A =A>A A d A X " # : A A F ; &P _ # : : T : _ # %T # :
0x07e728…07e8bc Dummy {f00=0x0028, f01=0x0190, f02=»T # : )P _ [ [ [ [ ; Z [ : [ [ : Z # Z # Z Z Z Z Z Z Z : = $> % D $N % $X ( ( I/O ERROR FILE = STAT
0x07e8bc…07ea50 Dummy {f00=0x0028, f01=0x0190, f02=» " : : : G P W l : J A : _ A : _ A : _( A : _4 A : _@ A : b _L A : _X A : j _d A : x _p A : _| A : _ A : _ A : _
0x07ea50…07ebe4 Dummy {f00=0x0028, f01=0x0190, f02=» B A ` A d A ( C ( C ( C A(D ($ @(D ,P T (F @ X A @ @ A PWF A @(DT R2 ]B @ D !CCT A N A J C _n > A V $P$ D D X D * E _( A P @(DP T&
0x07ebe4…07ed78 Dummy {f00=0x0028, f01=0x0190, f02=» l % @(D A' A'& > > _ @ 9CV @ NT DW D A E A @ V A X @ ` A d A A > V @ d $P( D X ) # - M M _, ) V $P ! # ) A _ ) @ P A A N N J C C @ 9D % N A J
0x07ed78…07ef0c Dummy {f00=0x0028, f01=0x0190, f02=» : A ( : 2 R > : 5 v@7 7 > - - 7 ( - 2 #b @ V : " T. T Tn B P, B $ PZ B P Y<PL P T T W4 P4 W0 : )P ;M C W # : #b A,: T
0x07ef0c…07f0a0 Dummy {f00=0x0028, f01=0x0190, f02=» T| N ` N" :A B ;m )t " )t # )t ( T B ! T @)r! T A)r Z`_ A)r WB ! T. N T A)r @)r! T _ A)rW ! T A)r ) # : @)l @)n @)r" T P, @)pU +vWv R V $Rp A)l A)nWB
0x07f0a0…07f234 (0, 161) Dummy {f00=0x0028, f01=0x0190, f02=»_ _ @)p R V$ H N " @)p (" :A + : + @)p A)p_8 R @)p N R W )p T W # V8 A)j ,$ R @)l @)n A)n A)l A)p R S _P )p : # @)j R P S > R V A)j_" # : #b A-j R R @ ZR -b_ $:ARL:A
0x07f234…07f3c8 Dummy {f00=0x0028, f01=0x0190, f02=» A @ S b S # : @ 9FV@ @ b C E T A ET6W& D E P E DDP R E P D A D -b _^ _ S > R Z R S A Z : #b @ 9CV 9IR 4 # : 2 R >_ #b @ 9L . @ 9C 4 R P C / 0` 0 L n
0x07f3c8…07f55c Dummy {f00=0x0028, f01=0x0190, f02=» ~ 1 1 2J 2 ' 2| 2 A A A A A A A A n A z A A A @ ` A d @ P A # : R @ P " R P / @0^P 6 ,P _ P 2 0` 0 @ :DV W 1 2J = = R
0x07f55c…07f6f0 Dummy {f00=0x0028, f01=0x0190, f02=» $P 0Pj D L , 1 L P L 8 - 9 W6 @ =LR L V( 8 @ =LV X R Y _t X~ A0^_ : (P: (T _ ,P L P ^ P X" X&_ I ( 9 5 ) 4 _: : $P D H R I _ 0 _ : # H T"
0x07f6f0…07f884 Dummy {f00=0x0028, f01=0x0190, f02=» 9 P 9 Pz 9: C T @ , A ,W D C C ( # U :x D T A > D C C B U P :x 1 1 1 4P _ 4 9 1 # : $P D
0x07f884…07fa18 Dummy {f00=0x0028, f01=0x0190, f02=» : > R : #b x 4 f # @ 9C 4x @ T R < 4 PW R < P @ @ A A C h H " 4 . < X P & ;D _ R % ;D @ b 4 H " 4 < 0 4 A 4 ` H
0x07fa18…07fbac Dummy {f00=0x0028, f01=0x0190, f02=» @ T A A @ P R > S # > # : : A gP A _ @ TL f d T A R > S # > _V @ * A A _ _ @ _ @ $ @ b _. * & " , ( $ @ T R :h -Q 5R : @ T 4
0x07fbac…07fd40 Dummy {f00=0x0028, f01=0x0190, f02=» # # : #b R 9i @ :LRn 7z 9 P( 7r 7 9 P D7 D7 6 R ;a T C :OV C ;NV R Wp 7z 9 P4 @ <DR" 7 7 9 P D7 W 9: 6 ! Z C 8 W
0x07fd40…07fed4 (0, 162) Dummy {f00=0x0028, f01=0x0190, f02=» R P*?A S ?i R :x S # : n z f r ~ j v 9B9B9B9: $ ( #b 2>iP & R W R @ 9C 4 # : f " 2?m f # X8 8 8t f f Pd f @ T ( @
0x07fed4…080068 Dummy {f00=0x0028, f01=0x0190, f02=» T. B P P& Q @ P Q # : _ >_ # 8 8 2 0P ( 1 " P$ " ) # @8 I W P I # : @8 >_ #b W #b Q 9 U 9g D9 $ $ T2 @ n A n F P > S S M H > ;
0x080068…0801fc Dummy {f00=0x0028, f01=0x0190, f02=» 8 5R6Q0 Q, ;^ _` Q < X T _t W #b " P W ;t V W ;t R R T T R Q ; ; ; ; V R T(W # Q
0x0801fc…080390 Dummy {f00=0x0028, f01=0x0190, f02=» W : #b @ n D HP A n @ n D HT D F [ A n # : A n @ n F R P > S E H > S _< # P, Q B ^ _ @ T C _0 # : #b $P D D P V L PF =h & >A D R _ " P W
0x080390…080524 Dummy {f00=0x0028, f01=0x0190, f02=» C A # : # (P:W (P4 H V W P&Q =t P _ 5 ( 9 ) =t 8 # : >_F <T 5 9 : #b @ PF R ! @ R P : A @ S R B> 4T # : #b R ? ? ? ?, X?H #b W #b R ! TR
0x080524…0806b8 Dummy {f00=0x0028, f01=0x0190, f02=»! D?` D?f P # P Tr T Q !CCP @ P Ap P @ 9EV 9GR P B C @ P 8 # : 2 R >_ B_ R 0P Y P : P ! P P P Q P :>~> ? ? >x? > ? >x? ? > B C P Z b ^ #b R # p
0x0806b8…08084c Dummy {f00=0x0028, f01=0x0190, f02=» U :xW @ ! P& R ! ^ # A A p A # : [ A _ #b A p A A A ^ @ P A # : #b W #b @ 9B ^ A A C C P6 ' ?A ^ :x ^ :x p ^ C @
0x08084c…0809e0 Dummy {f00=0x0028, f01=0x0190, f02=» ' ?A B2 B0 !CCT W2 T W, X ' P" X A T R " P B< B< R P4W C C W$ , P - C - A > P Y # : @ C _ ^ 2 Z . b 0 #b @ P @ Y A 8P X V W QL V W Y"
0x0809e0…080b74 (0, 163) Dummy {f00=0x0029, f01=0x0190, f02=» ( > @L A ` A d A @ 9 R A A 9 R| 'J > A Z A . A ^ A 2 A j A v A A A A A A B 2 A > A @ V A X A @ P A V $P D " X E _ ` P 'Z D A T A P @ :DR$ D @ > A > @ R W R @ BP W 'd A B @ BR @ 9DR
0x080b74…080d08 Dummy {f00=0x0029, f01=0x0190, f02=» V % @ P @ < ( A < A H A L A ' A % @ P T ) A P ' @ T @ X A V : A _ D ? :n R S Z S A Z @ <P. A' @ <R A' > A <:A H' A' > : N J P D C V A : E $ N J " P C _ :
0x080d08…080e9c Dummy {f00=0x0029, f01=0x0190, f02=» * / #b N r ( @ X ( # : #b R S > P R # S _ # : R S S U W S # > S 4 S R > : #b A*H R R @ ZR *@_ $:ARL:ARB H b " b $ D @ Z R
0x080e9c…081030 Dummy {f00=0x0029, f01=0x0190, f02=» E T A ET6W& D E P E DDP R E P D A D *@ _^ _ S > R Z R S A Z : #b @ 9CV 9IR 1 # : 2 R >_ #b @ 9L + @ 9C 1 R P C , -> - L n 8 n f - L z 8
0x081030…0811c4 Dummy {f00=0x0029, f01=0x0190, f02=»/ A A A A A A A A n A z A A A @ ` A d @ P A # : R @ P " R P , @-<P 6 ,P _ P 2 -> - @ :DV W - /( : : R > S # > > / /Z '
0x0811c4…081358 Dummy {f00=0x0029, f01=0x0190, f02=» L 8 - 9 W6 @ =LR L V( 5 @ =LV X R Y _t X~ A-<_ : (P: (T _ ,P L P ^ P X" X&_ I ( 9 5 ) 4 _: : $P D H R I _ - _ : # H T" I $P D H R I _ - _ # : # $ /"
0x081358…0814ec Dummy {f00=0x0029, f01=0x0190, f02=»6 C T @ , A ,W D C C ( # U 7V D T A > D C C B U P 7V - - - 4P _ 4 9 - # : $P D H ^ E _ $P D H ^ E _ : R W
0x0814ec…081680 Dummy {f00=0x0029, f01=0x0190, f02=»# @ 9C 1V @ T R 9 1 PW R 9 P @ @ A A C h H " 1 . < X P & ;D _ R % ;D @ b 1 H " 1 < 0 1 A 1 ` H " 1 < 1P T A @ P& @ P
0x081680…081814 (0, 164) Dummy {f00=0x0029, f01=0x0190, f02=» # : : A gP A _ @ TL f d T A R > S # > _V @ * A A _ _ @ _ @ $ @ b _. * & " , ( $ @ T R :h -Q 20 : @ T 1 2 R > :; ; ;`; 2 2$2$2$2 2 2 2 2 2 2 2 > > >
0x081814…0819a8 Dummy {f00=0x0029, f01=0x0190, f02=» 6 P( 4P 4h 6 P D4x D4h 3 R ;a T C :OV C ;NV R Wp 4X 6 P4 @ <DR" 4` 4p 6 P D4pW 6 3 ! Z C 5 W " @ C C @ # # : # >
0x0819a8…081b3c Dummy {f00=0x0029, f01=0x0190, f02=» 7V S # : n z f r ~ j v 6 6 6 6 $ ( #b 2>iP & R W R @ 9C 1 # : f " 2?m f # X4 4 5R f f Pd f @ T 9 @ <CV C @ <CV : C P C $P _
0x081b3c…081cd0 Dummy {f00=0x0029, f01=0x0190, f02=» _ >_ # 5 5 2 0P ( 1 " P$ " ) # @5 I W P I # : @5 >_ #b W #b Q 6 U 9g D6 $ $ T2 @ n A n F P > S S M H > 8~ :a # R R S > _ S <H % [ [
0x081cd0…081e64 Dummy {f00=0x0029, f01=0x0190, f02=» Q, 8< _` Q < X T _t W #b " P W 8R V W 8R R R T T R Q 8~ 8~ 8f 8f V R T(W # Q P R Zf _n R 6 P
0x081e64…081ff8 Dummy {f00=0x0029, f01=0x0190, f02=» n # : A n @ n F R P > S E H > S _< # P, Q B ^ _ @ T C _0 # : #b $P D D P V L PF =h & >A D R _ " P W 7V " P W D Y T
0x081ff8…08218c Dummy {f00=0x0029, f01=0x0190, f02=» T Tn B P, B $ PZ B P Y<PL P T T W4 P4 W0 : )P ;M C W # : # (P:W (P4 H V W P&Q : P _ 5 ( 9 ) : 8 # : >_F <T 5 9 : #b @ PF R ! @ R
0x08218c…082320 Dummy {f00=0x0029, f01=0x0190, f02=»! TR @ P D< D< (P* H ;AZ H P # X P T A , > W| < P < X< W R ! D< D< P # P Tr T Q !CCP @ P > P @ 9EV 9GR P B C @ P 5 # : 2 R >_ B_
0x082320…0824b4 (0, 165) Dummy {f00=0x0029, f01=0x0190, f02=» & S PD " @ ^ D U 7VW A @ ! P ! @ ^ ) A @ R` @ ^ D U 7VW @ ! P& R ! ^ # A A p A # : [ A _ #b A p A A A ^ @ P A # : #b W
0x0824b4…082648 Dummy {f00=0x0029, f01=0x0190, f02=» C @ # R 3 #b < RJ @ ^ D " :AT 9h P _ R " S P 9H R @ ^ 2x # : # ' ?A ? ? !CCT W2 T W, X ' P" X A T R " P ? ? R P4W C C W$ , P -
0x082648…0827dc Dummy {f00=0x0029, f01=0x0190, f02=» W Y" X P X P 5 X T A A W 5 ( 8 ) 9 + _b # :
0x0827dc…082970 Dummy {f00=0x0029, f01=0x0190, f02=» F .R F 0 F *Q &< G . F .?DV ?d' % G . 2 F M M G =T p M P G * : F * F 0R 2 R&P 0 G * G * F M M _, : F 1 I I G * G ( ' F .>A ' + ' F n #
0x082970…082b04 Dummy {f00=0x0029, f01=0x0190, f02=» F 0 U U F .?BV F X ,?d'> )f " # U 2 U G * F .?CV@ F X ,?A'> )t " # U 2 U G * G . G / : F - n " p U U G * : G . G / : G .
0x082b04…082c98 Dummy {f00=0x0029, f01=0x0190, f02=» _()0 :R ' : # T V u0 ' )>9d A( )> d )> )> A( ( ( (X ( R W( ( ( P( !00X R !00P P % ( ( P _" % # : R _ 9D :) ) ) * * *$*>*V*d*x* * * * * + +&+X+Z+p+ + + + , ,",8,N,
0x082c98…082e2c Dummy {f00=0x0029, f01=0x0190, f02=»ABLE CALL TABLE PERFORM TABLE LITERAL POOL CROSS REFERENCE LISTING UNSATISFIED EXTERNALS PICTURE POOL LINKER STATISTICS KEYTABLE POOL FORMAT POOL SEGMENT MAP LINKER STATISTICS TOTAL &LOC MODULE ERROR COMMENT $LOC DATA IX SY
0x082e2c…082fc0 Dummy {f00=0x0029, f01=0x0190, f02=»AL 2 S E G M E N T N U M B E R O F 0NUMBER TYPE LENGTH USAGE MODULES ERRORS MEMORY OVERFLOW SYMBOL TYPE CONFLICT ILLEGAL INPUT LOAD ADR INCORRECT UNREFERRED LITERALS UNDEFINED LITERALS NO START ADR DBL DEF MODULES UNSATI
0x082fc0…083154 (0, 166) Dummy {f00=0x0029, f01=0x0190, f02=» TOO MANY LITERALS FORMAT LENGTH ERROR MULTI DEF ENTRY NOD TYPE ERROR MODULE LONGER THAN SEGMENT SIZE IDENT MISSING ADDRESSING MODE CONFLICT NOD SEQUENCE ERROR CALL TABLE PERFORM TABLE LB TABLE LITERAL DESCRIPTOR TABLE PICTURE DESCRIPTOR TAB
0x083154…0832e8 Dummy {f00=0x0029, f01=0x0190, f02=» PROGRAM LENGTH = NUMBER OF ERRORS KEYTABLE DESCRIPTOR TABLE KEYTABLE POOL SIZE AVAILABLE WORKSPACE USED WORKSPACE UNUSED WORKSPACE MAX WORKSPACE PER MODULE SEGMENT SIZE PERCENTUAL USAGEPROGRAM LENGTH =LINKAGE ERROR : : XXXXX BYTES, XXXXX ENTRIES: XXXX
0x0832e8…08347c Dummy {f00=0x0029, f01=0x0190, f02=» f ~ @ D A ` A d A @ @ P } ( : A } S A ~ |W > p ?H/ 2 Tr Q / 2 2 2 2 2 2 2 v 2 /@ 2 U`/ 2 38 6z N J " @ A T
0x08347c…083610 Dummy {f00=0x0029, f01=0x0190, f02=» 6> A 8 W 8x T U`/ 2 1| > P ! @ M A @ M A @ M A A A A : # A1 A1 > 3 S S @ S @ S S > # : # <: @ T U` 2 P <: #
0x083610…0837a4 Dummy {f00=0x0029, f01=0x0190, f02=» A2 > R :R8W @2 P.> > & 3 @2 S :a S @20 A2 > A2 # : # # A2 > " Z # ?h # S A3 > # : f j r v ~ " $ * , # @ @ P 3 3 =B < P L A P O W L P
0x0837a4…083938 Dummy {f00=0x0029, f01=0x0190, f02=»o W K =^ & A 3( < P F q P * W F P * =^ 34 # : f j ~ # @ P @ A4Z 4N > @ A4 @4Z A 4 4R > @ A4^ @4 A 6 T > @ A4` T @4^ A 8 4V > @ @4` A : A @
0x083938…083acc Dummy {f00=0x0029, f01=0x0190, f02=» C T 1 e 4b <: 4Z <: <: @ Q T 1 e 4d <: 4 <: <: T* 1 e 4f <: 4^ <: <: @ Q T v 1 e 4h <: 4` <: <: # : # 9a :a ; S < S dR _ Q R
0x083acc…083c60 Dummy {f00=0x0029, f01=0x0190, f02=»PD R( " # 0 C P C P C _, @ P = _ Z P " %W ! # 0 C P C _ > 2! P( ! P ! R A _& @ @&_8 R ! R R 9 Zd <: _ 7 8 8&848P8j) ) )
0x083c60…083df4 (0, 167) Dummy {f00=0x002a, f01=0x0190, f02=» 4 6 : # W # W # > X7 > > A7 @7 X7 V > 7 " # X7 0 P" P P /`W /D # @ P % " ) X7 $ $ T 9A P 9a ( P P 7 W )
0x083df4…083f88 Dummy {f00=0x002a, f01=0x0190, f02=» P 5 X T A A W 5 ( 8 ) 9 + _b # : # > D: > > 8 ; U @ ;L > (X X V * " Wr X 9AV" (X (XWH X L T X " G W" (X
0x083f88…08411c Dummy {f00=0x002a, f01=0x0190, f02=» > X X VL H 9a @ / 2 / <: X R / <: :09AR H XZ H V % <: % R <: :0 # : # 8P* X ^ X % <: % <: A _. # : ; % <P %_ : : # @ P <8
0x08411c…0842b0 Dummy {f00=0x002a, f01=0x0190, f02=»;a A<4= V A = V U A<6W^ @<4PV @<4 9a :A 3& A= > # S @= A=, > A<4 A<6 # : # "P _ P # : # P, Q B ^ _ @ T C _0 # : #b $P D D P V L PF =h &
0x0842b0…084444 Dummy {f00=0x002a, f01=0x0190, f02=»# _ # = : >V>f>n>rSTR BIN BCD PIC KEY FMT FTB #b A>L > T>D > > 8 @ X ^ @ VP > " T (X X 9l9B @>L >N # (X T R > _z Q W: X '
0x084444…0845d8 Dummy {f00=0x002a, f01=0x0190, f02=» - @> Q A> W A> @ V > (X > R <: _ Q @ V > > @> @ ^ > > _ # : # x P R * " B @ P _ > # (X h H " P T # >
0x0845d8…08476c Dummy {f00=0x002a, f01=0x0190, f02=» 8P X Y R X R W ^ # # : I E I I W I E E E I E E E E I E E E I E E # W # AA 8 B > @A T" P $ X P 8 B A @A P P /4 # W * " A ( AX " !WWP A
0x08476c…084900 Dummy {f00=0x002a, f01=0x0190, f02=» A # > A # : #b *Pp Z Z R 8 4 U 8 5R6Q0 Q, D$ _` Q < X T _t W #b " P W D: V W D: R R T T R Q
0x084900…084a94 (0, 168) Dummy {f00=0x002a, f01=0x0190, f02=»P B [ # : D $ ! 9A : R W : #b @ n D HP A n @ n D HT D F [ A n # : A n @ n F R P > S E H > S _<
0x084a94…084c28 Dummy {f00=0x002a, f01=0x0190, f02=» / 00 TLK.ERR. # ?$ A ` A d A @ @ TD A A 20 > 0 A A 4 > 7 6 @ P & @ T . > 5 @ T T @ P W ;< @ ?a @ A 5V A @ A 1 :> P / ( / ( A/ ( # :
0x084c28…084dbc Dummy {f00=0x002a, f01=0x0190, f02=» 3P 3Pj_: 2$ <A ]H f " 4?m f # f 3R P $P _ " C _^ 4V W >AX R _ T , L X L L T 5_( G _0 @0 V > > T S # 0 : # N E 8P E _
0x084dbc…084f50 Dummy {f00=0x002a, f01=0x0190, f02=» H 2 ";L = <J ( <J_T N $P. D ' X ( <J <J <J_2 <J = # : # # A3 > " Z # ?h # S A3J > # : #b @ V : " T. T Tn
0x084f50…0850e4 Dummy {f00=0x002a, f01=0x0190, f02=» # : & " * 4N4V4^4f4n4v4~4 4 4 4 4 4 4 P:END T:FMT T:PIC T:KEY T:LIT T:PAT T:CAT T:BAT P:BAS I:NTPA U:BTAB T:ATAB S:BTAB I:RST # 2 aH = eh eh = 3 $PNR
0x0850e4…085278 Dummy {f00=0x002a, f01=0x0190, f02=»S < S dR _ Q R _ # : I E I I W I E E E I E E E E I E E E I E E # W # A5 8 6 > @5 T" P $ X P 8 6 5 @5 P P /4 # W * " 5 ( 5 " !WWP A 5
0x085278…08540c Dummy {f00=0x002a, f01=0x0190, f02=»5 # > 5 # : # > > > > N 8P > X % (X X 9h S ( X ! P X 5V ( % G R $P D _ ! ( ) ( > _ # : # A7 A7 A > P R > _
0x08540c…0855a0 Dummy {f00=0x002a, f01=0x0190, f02=» H X ?a @/ = _* V $X H X ?a ` H L P / / = _: 2$ <A ] f " 4?m f # f 3R B ! X $P _ " C A7 _d 3TN 2$ <A 4 $P0 ( V S W* R >A_ % H
0x0855a0…085734 (0, 169) Dummy {f00=0x002a, f01=0x0190, f02=» L d ` h 4 6 8 : ` l 4 6 : # W # W # > X9 > > A9 @9 X9 V > 9 " # X9 0 P" P P /`W /D # @ P % " ) X9 $ $
0x085734…0858c8 Dummy {f00=0x002a, f01=0x0190, f02=» > > > 8P X T > > $ X* > ?m # P S S ! 9bT W D;8 S X ! Pj X T * " S WH (X (X (X - ' # & > 8 # : # @
0x0858c8…085a5c Dummy {f00=0x002a, f01=0x0190, f02=»= V S = V S ;a A<D= V A = V U A<FW^ @<DPV @<D 9a :A 3& A= > # S @= A=< > A<D A<F # : # A=b N =c J " T" =P $R ( <J_ <J # : # A= A= > 3 S S
0x085a5c…085bf0 Dummy {f00=0x002a, f01=0x0190, f02=» ' # > V ' @= # A= > R :R8W @= P.> > & 3 @= S :a S @> A> > A= # : # 4P [R > , > (X - ' # ( G ( ) ' _` P P > # :
0x085bf0…085d84 Dummy {f00=0x002a, f01=0x2008, f02=» B h p x
0x085d84…085f18 Dummy {f00=0x002a, f01=0x40a8, f02=» @ F IDENT Z:TB70 TRA 3.3 79-11-16 O111 REL 79-03-01/JATE Z:TB70 H Z:TB70T Z & 2 n 4 @ SREGCOSTREG VOL2 4 @
0x085f18…0860ac Dummy {f00=0x002a, f01=0x409e, f02=» @ F IDENT D:TB80 TRA 3.3 79-11-16 O111 REL 79-03-01/JATE D:TB80 H D:TB80T Z h n :T @ @ SREGCOSTREG VOL2 4 @
0x0860ac…086240 Dummy {f00=0x002a, f01=0x4168, f02=» @ F IDENT Z:TB80 TRA 3.3 79-11-16 O111 REL 79-03-01/JATE Z:TB80 H Z:TB80T Z & n & & = & [ & y & & & & &
0x086240…0863d4 (0, 170) Opaque[0x194]
0x0863d4…086568 # DirEnt {nam=»TRA «, typ=»LM«, f00=0x0000, f01=0x0000, f02=0x0558, f03=0x0000}
0x0863d4…086568 IdxSect {
0x0863d4…086568 f00 = 0x002a // 0x863d4 @0x0
0x0863d4…086568 f01 = 0x001a // 0x863d6 @0x2
0x0863d4…086568 gno = [ // 0x863d8 @0x4
0x0863d4…086568 [0x00]: C0x002a.0x3.0
0x0863d4…086568 [0x01]: C0x002b.0x0.0
0x0863d4…086568 [0x02]: C0x002b.0x1.0
0x0863d4…086568 [0x03]: C0x002b.0x2.0
0x0863d4…086568 [0x04]: C0x002b.0x3.0
0x0863d4…086568 [0x05]: C0x002c.0x0.0
0x0863d4…086568 [0x06]: C0x002c.0x1.0
0x0863d4…086568 [0x07]: C0x002c.0x2.0
0x0863d4…086568 [0x08]: C0x002c.0x3.0
0x0863d4…086568 [0x09]: C0x002d.0x0.0
0x0863d4…086568 [0x0a]: C0x002d.0x1.0
0x0863d4…086568 [0x0b]: C0x002d.0x2.0
0x0863d4…086568 [0x0c]: C0x002d.0x3.0
0x0863d4…086568 ]
0x0863d4…086568 }
0x086568…0866fc Dummy {f00=0x002a, f01=0x0190, f02=» #M M 2 # " 2 3 l 2 D h Fp R Fp W Fp [ d 2 ` :C H A M D H R M D PB " P :C_ @ 9C E ^ D V V ( T # Y$ @ J ( B A b 9o A
0x0866fc…086890 Dummy {f00=0x002a, f01=0x0190, f02=» N $ @ H | @ A @ P A A N A @ Q -J % : A A& ' N @ P A A W - @ A A n A < A > A @ A A A : . @ n @-H . A . ., ( @ p A r A p 1 (J - (J (J TD
0x086890…086a24 Dummy {f00=0x002a, f01=0x0190, f02=» @ BP .8 @ R .D @ - P T ~ P : T : _&.P. @ P R 2 d T @ R : @ P @ RP & P z T @ T A .h A L @ TL @ BP .8 F : z ` H :
0x086a24…086bb8 Dummy {f00=0x002a, f01=0x0190, f02=»% P< . W2 @ :P A : ! P"% T .8 -J W % T .8 : @ = V A J . @ T @ P T : * AZ AZ 09 .. '' < * '' * < J A p A A A-F M u
0x086bb8…086d4c Dummy {f00=0x002a, f01=0x0190, f02=» W* A U -J @ T n N @ V4 # b U -J N P A P @ V> @ XP <W * # b IQb N T P @ IV2 J +R IP W + # b IQ N PF J # W
0x086d4c…086ee0 Dummy {f00=0x002a, f01=0x0190, f02=» : Q : M M N N N N$N0N<NHNTN`NnN`N`N`N`N`N`N`N`N`N`N`N` (STACKTOP
0x086ee0…087074 (0, 171) Dummy {f00=0x002b, f01=0x0190, f02=» IDENT MODNAM TRA XX.Y - - F1 O1111 = , ( Z J , j ) z Z ) z , j , & , C X W D ' , , @' @' ,
0x087074…087208 Dummy {f00=0x002b, f01=0x0190, f02=» , " B+ - AZ f AZ f 09 f .. f AZ AZ 09 .. , TERM . TWB . UWB . CWB . SWB . DWB . DSET . START . REENTER . STACK . FMTCTL . BLK . DBLK . BIN / BCD / BOOL / STRG
0x087208…08739c Dummy {f00=0x002b, f01=0x0190, f02=»CMP SET A CLEAR @ TEST C XCOPY j COPY b EDIT ` EDSUB l INV B IB 6 B W BZ P BP Q BN R BOFL S BNZ T BNP U BNN V BE P BG Q BL R BNE T BNG U BNL V BF P BT T BOK
0x08739c…087530 Dummy {f00=0x002b, f01=0x0190, f02=» $ CBNE ( CBNG * CBNL , CALL 0 RET 4 INSERT d INSRT d MATCH h DELETE f DLETE f EXIT 0 "PAUSE 0 "KI 0 <NKI 0 <RSTRT 0 .USE 0 2UNUSE 0 8ACTV 0 &EDWRT 0 HDSC0 0 NDSC1 0 TDSC2 0 XSTAT 0 hWAIT 0 nMWAIT 0 rSWITCH 0 "
0x087530…0876c4 Dummy {f00=0x002b, f01=0x0190, f02=»DOWN 0 "TDOWN 0 "TUP 0 "DUPL 0 GETABX 0 |SETCUR 0 "GETCTL 0 TSTCTL 0 GETFLD 0 DISPLAY0 ERASE 0 PRINT 0 DYKI 0 UPDFLD 0 EDFLD 0 ATTFMT 0 DETFMT 0 "RREAD 0 RWRITE 0 READ 0 WRITE 0 ,REWRITE0 TDISCARD0 pPOSIT 0 OPEN 0 CLOSE 0 nRSTAT
0x0876c4…087858 Dummy {f00=0x002b, f01=0x0190, f02=» O $ @ 5 h ! Q ! Q O " " Q :
0x087858…0879ec Dummy {f00=0x002b, f01=0x0190, f02=» QIDENT H EJECT SPACE LIST NLIST DDIV DDUM OPTNS / CON /hPERF /tPERFI / PLIST / END / FTABLE / INCLUDE / KTAB / FRMT / FMEL / FMELI / FCTL / FCOPY / FXCOPY 0 FTEXT 0 FLINK
0x0879ec…087b80 Dummy {f00=0x002b, f01=0x0190, f02=»FBNZ 0 FBNP 0 FBNN 0 FB 0 FBF 0 FBT 0 FSL 0 FNL 1 FKI 1 FINP 1 FEOR 1,FMEND 18ENTRY 1DEXT 1PEXPROC 1 EQU 1hPROC 1tPFRMT 1 PKTAB 1 PLIT 1 PBIN 1 PBCD 1 PSTRG 1 PFREE 1 PBOOL 1 PDSET 1 PEND
0x087b80…087d14 (0, 172) Dummy {f00=0x002b, f01=0x0190, f02=»XXXXXX * PAGE 0000 * DATA DIVISION PROCEDURE DIVISION PROCEDURE LABELS DATA ITEM NAME TABLE nLOC OC OPERANDS LINE LABEL OPCODE OPERANDS COMMENT C n IX
0x087d14…087ea8 Dummy {f00=0x002b, f01=0x0190, f02=»PE NAME REF TYPE NAME REF TYPE NAME REF TYPE IX TYPE VALUE PROGRAM LENGTH = ERROR = REL 10.0 800314 * ! @ Pn $ T < ! T` @ <aP @ Q % % (J - R * A uX6 @ U -J @ U
0x087ea8…08803c Dummy {f00=0x002b, f01=0x0190, f02=» @ 4W W 2 : 9l:D 0 :R = : Q2 T W. 6 !0 R" !: R !A R !F Q $ =D _2 :END PDIV DDUM IDENT FRMT FMEND PEND ***GENERATED STATEMENT*** @ 9 V^ ?C & , R P Q W
0x08803c…0881d0 Dummy {f00=0x002b, f01=0x0190, f02=»! T ! : W @ ! Q A < ! P @ Q A / @ Q -J : @ ! Y A " ! T -J : : @& ) A& A B : B @ Q % % A L A : @ P @ P A& B : < ! P # 6
0x0881d0…088364 Dummy {f00=0x002b, f01=0x0190, f02=» V @ N @ P : A -J % % ( T : ' _ A " @ J ~ Q f 4 R W ~ @ f 4 Y P _P L R < # P _ ! @ J %
0x088364…0884f8 Dummy {f00=0x002b, f01=0x0190, f02=»P _ W @! R ! ! A! ! : ! U : R _ $ : 0 4T Y ::a Y : @ U4 u @ Q 9AR W 9CV - W : T 9 : .
0x0884f8…08868c Dummy {f00=0x002b, f01=0x0190, f02=»! # A Z P 6 P R* - W( @ 8P" @ W ! P W T - W - $0P A ZWn P # P - @TT # A! L A L R T2 @ P A X _B # - W A! A! T Q W P - Z
0x08868c…088820 Dummy {f00=0x002b, f01=0x0190, f02=» ! T P U U W" ! P P U n P h @ A L R P F P ! P: 6 !+ P !- P P Q W % # T W @ 3 T <D P _ A L A L R 9 _
0x088820…0889b4 (0, 173) Dummy {f00=0x002b, f01=0x0190, f02=» P @ Y =h 9 W @ W T ! @ # P P, 6 !0 R !9 U !A R !F Q % W W P 3 T <D_B 9 A L R_R @ @ W ! T" *>H J V >d _ K >h + P4 ! 9 V - 9 V - 9 V - 9 V - A! !
0x0889b4…088b48 Dummy {f00=0x002b, f01=0x0190, f02=» E E E E E E $ : ! W ! D D D D D D $ : [ [ [ [ ; Z [ Z [ : [ [ : " Z " Z Z Z Z Z
0x088b48…088cdc Dummy {f00=0x002b, f01=0x0190, f02=» P _ >hX> : Z ] _$ _ _&MEMORY OVERFLOW SEQUENCE ERROR DIRECTIVE MISSING SYNTAX ERROR LENGTH TRUNCATION MULTIDEFINED UNDEFINED UNEXPECTED VALUE UNDEFINED TYPE UNEXPECTED TYPE ILLEGAL CONSTANT
0x088cdc…088e70 Dummy {f00=0x002b, f01=0x0190, f02=» BLOCKS TOO MANY DATA ITEMS BLOCK SIZE OVERFLOW TOO MANY DATASETS TOO MANY PARAMETERS TOO MANY START STMTSILLEGAL DIMENSION TOO MANY VALUES OUT OF RANGE UNSPECIFIED PARAM PARAMETER LIST OVFL NO START DEFINITION @ >aPH @-FP@ & ** '
0x088e70…089004 Dummy {f00=0x002b, f01=0x0190, f02=»& " @ U - A& < V M u & ' n & " : P W V W # C ( : @& % - A& < Rf @& @ V < < R0<
0x089004…089198 Dummy {f00=0x002b, f01=0x0190, f02=» n + , A& @& " @& ?d' & n 6 * n 2 , - n * n 2 , 0 , @& ' . " * 2 , 2 , A& '2 P (r P )< &j ,| R : ( ( ( ( P ( P
0x089198…08932c Dummy {f00=0x002b, f01=0x0190, f02=» )N )Z )f )f P ) P * *( *4 *4
0x08932c…0894c0 Dummy {f00=0x002b, f01=0x0190, f02=» * * * * +v
0x0894c0…089654 (0, 174) Dummy {f00=0x002b, f01=0x0190, f02=» R& R W T R = ( B T B P : : * + &j ,| - : + _$ * @, P ?a 9H + *
0x089654…0897e8 Dummy {f00=0x002b, f01=0x0190, f02=»= STATUS = ":H - " - 2 + & -v + ( 0 , ( @ P u -J : Z A J _ A J v _ A J _( A J _4 A J _@ A J N _L A J _X A J T _d A J z _p A J _| A J _ A J _ A J
0x0897e8…08997c Dummy {f00=0x002b, f01=0x0190, f02=» _ A J _( A J _4 A J * _@ A J _L A J _X A J _d A J _p A J $ _| A J _ A J _ A J _ A J * _ A J l _ A J _ A J _ A J 8 _ A J f _ A J _ Z A J _ A J _ A J _(
0x08997c…089b10 Dummy {f00=0x002b, f01=0x0190, f02=» _ A J _ A J _ A J _ A J _ A J _ A J * _ A J D _ Z A J P _ A J _ A J h _( A J t _4 A J 6 _@ A J _L A J _X A J _d A J _p A J _| A J _ A J _ A J d _ A J | _
0x089b10…089ca4 Dummy {f00=0x002b, f01=0x0190, f02=» A J _4 A J j _@
0x089ca4…089e38 Dummy {f00=0x002b, f01=0x0190, f02=»2 TRUE 2 T 2 FALSE 2 F 2 @ <V @ 7 Rr u @2 @ P 9D 3 9 ( T@ 2 =P P =T . -JW @ A3 @ ?A A A3 <, - : T:A000T:D000 *0 : CZ
0x089e38…089fcc Dummy {f00=0x002b, f01=0x0190, f02=» F ! P A2 8 A2 8 & 3 # >HQ >AR -J W -J P -J E @ A2 A2 A2 A2 9h A2 A2 2 . A L L R 2 A2 @ P ?D A2 : 2 @2 8 @ ~ !DD 5 #
0x089fcc…08a160 Dummy {f00=0x002b, f01=0x0190, f02=» Q A A R( 3 T -JWJ 2 PD -JW< 2 P T A3 3 W A3 3 2 ! 3 @2 P$ @d 7 @3 7 A2 : 3< # A2 2 >HV - W* # >HZ U - V -
0x08a160…08a2f4 (0, 175) Dummy {f00=0x002c, f01=0x0190, f02=» 2 0 ' 2 @ 4 A2 W A2 @ 7 7 u 8 & 8 8 & P @2 T -JW @2 2 3 E A @ @2 P A2 A 8 2 @ ! P^ u 7 @ 8Q> @3 u 7 D AA A^ A n
0x08a2f4…08a488 Dummy {f00=0x002c, f01=0x0190, f02=» 0 ' : W W W W W W -J : 9pFC= 9 BUFL= 9 DEV= 9 BUFDS= @ R P u R $@P 2 T W( @2 @ P 9jT W 9fT 2 @ u @2 :D @ Q :D & A2 A8" A8& A8( A86 A88 A
0x08a488…08a61c Dummy {f00=0x002c, f01=0x0190, f02=»-J_ W - _^ @86 Y A8#_x @88 ( 6 0 A8& @ A8"_ @8< D ZR$@XV @2 ]` A8(_ @8: h_ (9 099 (,9 ) 099 8) W W W ! @3 ? 8 W $ W " A V A9 2 @ P @3 <V @3 <R @ 7 R u
0x08a61c…08a7b0 Dummy {f00=0x002c, f01=0x0190, f02=»P # ! T _ ^ X A9 A9 < 9 RF @9 9 T U4 @9 $ T ^ P @9 P - @9 A9 < _> P @9 ! Q - W - @2 @ P 9D 3 9 9 ( @9 P @ ! PV @ @ V=L @9 9 @3 Y 9 R @
0x08a7b0…08a944 Dummy {f00=0x002c, f01=0x0190, f02=»W W -J : 6 Q R P =oT >BV U - W - : @ ! P* @ 8Q$ ": @ A< 0 D " : = INDS= = OUTDS= @= T A= !?A < A=$ A=& =
0x08a944…08aad8 Dummy {f00=0x002c, f01=0x0190, f02=» A< _l @=&T0 R"$@P @ P A< _ W W - _ >dADRMOD= > LITADR= @>*P -J A>* > # P $ & : @>(T A>( T T R X( Q A % A 2 A A A A A _R @ Qj T` TX RRXn TH
0x08aad8…08ac6c Dummy {f00=0x002c, f01=0x0190, f02=»V B A2 A n & : # 6 T = V - =A a : - :? @? ? P< # >HR$ U - ? A? A : - : -J : @@ T. # >HR( U - A@
0x08ac6c…08ae00 Dummy {f00=0x002c, f01=0x0190, f02=» D @ n G @3 G G @ n D @ @ S AA D A^ A n P 2 D _ D @ n A n D @ A A A 8 : E E A E E : :BTABT:ATAB : T:A000 @ ! P @A P : AA @3 ;B
0x08ae00…08af94 (0, 176) Dummy {f00=0x002c, f01=0x0190, f02=» % H E _D @ _( 2 AA 9h AA A A A A A D AA A^ P E _ E A n D P D _ D @ n D @ AA @ AA U AA AA C* @ AA @ AA S AA AA C* @ A : A D
0x08af94…08b128 Dummy {f00=0x002c, f01=0x0190, f02=» D A A P. D " D @A _4 D @ n D : * F @, T @ n- K K J =A?A R , T^ : R T, ' A nSd : R<W* T - W ' / =A>A?A ' A nS8 A nS2 R :AR K K A, :=A?A>A^ A, K K !
0x08b128…08b2bc Dummy {f00=0x002c, f01=0x0190, f02=», T <GQ @, TJ : @* P <E, # ! T = V A, :R , : @ ! G G D @ @ AE AA A^ P E _ E A n @E P " D _ @ AE E " D
0x08b2bc…08b450 Dummy {f00=0x002c, f01=0x0190, f02=»D AA A^ @@ P @ E ? ? P E _ E E A n " D @E @ 9 Q * D @@ T D D W D D @? D P D D _" D @ n D
0x08b450…08b5e4 Dummy {f00=0x002c, f01=0x0190, f02=», P =A>A^ A, C ! , :
0x08b5e4…08b778 Dummy {f00=0x002c, f01=0x0190, f02=» 2pLIST 2 # ! 2 2 8 ! TV T 2 P . - W @ A2 @ Q @ P % % @ A @2 A A N - A :
0x08b778…08b90c Dummy {f00=0x002c, f01=0x0190, f02=»
[…0x2…]
0x08bc34…08bdc8 Dummy {f00=0x002c, f01=0x0190, f02=» 9 9 G ? ? 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 IH> 9 <t9 9 9 9 9 9 9 9 ?:9 9 9 9 9 9 9 B E E I )> "R
0x08bdc8…08bf5c Dummy {f00=0x002c, f01=0x0190, f02=» H :H 9 2 + 9 + ( 0 , ( DOS SYSTEM ERROR ON ADDRESS = W j 2 V 9 , : 5 V 9D9k D9 :J: : ; W( W W W W W W W W W 2 W V # T , 0V U V j : V NO 9 @ X 8<h 8
0x08bf5c…08c0f0 Dummy {f00=0x002c, f01=0x0190, f02=» @ U 9 . : M - <X F G U W D V : F V # f = Z V ;d R W W W W ' C ; R WdW W W V SCP" OBP LMP UFP : K V K K K
0x08c0f0…08c284 Dummy {f00=0x002c, f01=0x0190, f02=» @ _ V Q # T : : V V , T W W W V : 0 Q Q X*Q R U < V_> = _D @ , H Q R W H T T = W H T I I Y2 X_ , P P , P P C U T P
0x08c284…08c418 Dummy {f00=0x002c, f01=0x0190, f02=» 4 T C = R _ _ _ _ B , @ T * ,9cP J Y _ :` @ T T P T R ?A?i _ U U U W : W V C >n R W _ _ _ T 4 & C > R WL_ _ _ B , ,9c J [
0x08c418…08c5ac Dummy {f00=0x002c, f01=0x0190, f02=» V * 4T _ R ; J S6 T J 9C # 2 Q ? R W _ _ _ V V : W _ W _ V P ;B L? 8 W < B # , P P| Q& P R 9AR Wl B V T C F # C P W W
0x08c5ac…08c740 Dummy {f00=0x002c, f01=0x0190, f02=»? R ? R B W B < B , PX PN P RT T MTP TCP TKT2 ( B :ER ( B P ( A6 R W W W W W B < U T U U _& W W W V C B , X PD P QL QN T 9 R29 RJ T C
0x08c740…08c8d4 (0, 178) Dummy {f00=0x002c, f01=0x0190, f02=»B WxWv_ T TY * < B' ( < _L W W V W V W < B B W$W(W V <_x B B W W _, T TPX>_8 W C _ V B , P P P R W , P* 09AR R C* P F F G W W W V : L
0x08c8d4…08ca68 Dummy {f00=0x002c, f01=0x0190, f02=» G G F G , P D D @ U F L ?L D P X C L =CR =AR DP=CRH DJWB D =CR: DVW4 Db=l P* DhW$ ' ' ( J G G G G G G G G G C L '
0x08ca68…08cbfc Dummy {f00=0x002c, f01=0x0190, f02=»W D B P8 R R H T H T H P < 6 D G G G G G G G G G G G C W Q Z P F G V : P G G "P P _ < # @ 2 P P _ : AF<
0x08cbfc…08cd90 Dummy {f00=0x002c, f01=0x0190, f02=» F R *P G. F R *T < , T W | < V 8 W F R WLW WHWFWD 1P 1P 0 ) ] V :IDENT IDENT* W _ W G G G T P G F T V _( P # Q V W
0x08cd90…08cf24 Dummy {f00=0x002c, f01=0x0190, f02=» V # H R W _ _ _ W G W 6 W V F T W V P v Pd P &Qp T P _ V < 4T" < 5 W W Pp U _R _H W V V Px_ V T V W V 4 W V W ]<_ V T8 V 4 W W V W
0x08cf24…08d0b8 Dummy {f00=0x002c, f01=0x0190, f02=»9AR W W @I : I AI B P @I B R _ : X _$ X _, 2 <_(I I I ; J W" ; JbW ; JjW Z " [ Z : ! @JZ Z 9c Z P L U _< :` % _H % _P XV _Z
0x08d0b8…08d24c Dummy {f00=0x002c, f01=0x0190, f02=» # VF @ 3$ $ 3$ R $@P T $ P $ P W @ Q @ T W @ P $ TB $ T <HRv # P @ n @ Q ;hP - D8 4 @ BPv <CVp Pj 2 @T 2 3PR U2 - W( $ P4 $ P B KW F R A
0x08d24c…08d3e0 Dummy {f00=0x002c, f01=0x0190, f02=» J6 F6 < 6 5 2 >. = FL FX 86 9h = ;V Fd J9 4 O 4 U 34"@ 5 4. O D O A @ ! " @ A
0x08d3e0…08d574 (0, 179) Dummy {f00=0x002d, f01=0x0190, f02=» 3 @3N @ P @3HP @ P W @ P 4 5 0 1 $@P WH $0T # - _ &<BV A T W &R <CV &<CV _ & T - @ Q @ A n @ BT W E @ BP A 3R A3N A A3J A3F A :5 NW, 6 NE, ! < !..T< 5 P . %
0x08d574…08d708 Dummy {f00=0x002d, f01=0x0190, f02=»W - _$:FMTITEM # : V @ : V $ < 6| T P _ W R> R4 "@PP P: @ BP A "!T( @ QV TN @ PHW R $ T W W - @ P " P W " P " P :JV A @ Q @ D8 Q $0
0x08d708…08d89c Dummy {f00=0x002d, f01=0x0190, f02=»NW, 8|SEQ, 8 DIR, 8 CUR, 8 IXSEQ, 8 IXDIR, T:WRITT:LWRIT: $ P $ P < !..T 7 . -J 5 $`X $ PR XW S W( D W C W X W I W X A82 A9 9 83W A9 9 82 ~ 80 @ Q
0x08d89c…08da30 Dummy {f00=0x002d, f01=0x0190, f02=» A 56 $ T B 56 = 56 ? T P Q 56 D8_ - 56 J A3H A9 # V~ $ P( R ;> !0P @ D8 T 56 @ ;> ;:$@T $ ;>_: @ BP A $ Tf ;> @ Qb $ TP @ T WH $ P @ P< @ DT @ BT(
0x08da30…08dbc4 Dummy {f00=0x002d, f01=0x0190, f02=» R $pTX @ D8 0 @9 T 56 R4$ P4_& <E 56 @ B 4 A3H @9 4 @ P 4 W W W W - 9 @ U &:HR @= 9B @ @ n @ ,$ T, L R - W - R Q @ @ Z. W Q L P M W F @ <" A
0x08dbc4…08dd58 Dummy {f00=0x002d, f01=0x0190, f02=» ^ P( @ BV R W @ V$ P ? A! ! @ T @ B P* @ D8 56 @ A @ BQ P$ A P @ $ D8 56 L A @ DT @ D8 @ 56 4 <U - < A! ! D8 @ D8 Y @3FP A B @ U8 @ A @ 3 - @! M . M
0x08dd58…08deec Dummy {f00=0x002d, f01=0x0190, f02=» A= A= 56 # R4$ P4 T* = @= D8 @= <d D8 56 W - = _8 ? @ BP " Tf P ?^ < R ?b @ U =cT ; R& P ; V P& T W % P 9AW T 4 R2 >, D8 >, P T W -
0x08deec…08e080 Dummy {f00=0x002d, f01=0x0190, f02=»W T < V A A D8 56 W - <H^ _* ! @ U> @ P W0 u @3P ) u @ " : >U - > @ BP , @ <R A < @ P BP : - _ A? @ A? A? # $0P T W # ! P < R*< R6 P R $ P W2
0x08e080…08e214 (0, 180) Dummy {f00=0x002d, f01=0x0190, f02=»- W W W &0T # ? :$$$TRA ! @ P> A @ U2 A4 @ B B A4 A4 ! : P0 R P"? R ? R T B _6 B : * @, T @ n K Q A n ' A, FR @, P K ,
0x08e214…08e3a8 Dummy {f00=0x002d, f01=0x0190, f02=» T $ @3R @3T C A ! : <a$ @3JP * $ P * @ < W @ n @ L ABN=N=b C @BN : ! @ n @ @3JP * C ! : @, T <GQ @, TJ : @* P <E, # ! T = V A, :R , : @ P @ P @* U
0x08e3a8…08e53c Dummy {f00=0x002d, f01=0x0190, f02=» A @ n @ BP @3L A A* : ! * ,| - ! " K K :H K ?a + P$ @ BP ! U 3V ! * &j : P @ BT A A @ Q : <C R @ Q: Dn R A A @ @ A L R # U : V ;h XF A A
0x08e53c…08e6d0 Dummy {f00=0x002d, f01=0x0190, f02=» A @D6P * Q U A A3N : @D6P @ Q"W @ B R A A3N : W " 5 1 A3N A A : A A* @ BTX @ n A P, R C" R A~ Y" C"W % % @ A A L : @3L A 3 P" 2 C" A3L Y
0x08e6d0…08e864 Dummy {f00=0x002d, f01=0x0190, f02=»H APPL= I DUPL= J NUM J$ALPHA J<MINL= JpMAXL= J REWRT J ME J NEOI J NCLR J CTAB K VERIF K*USATTR KBSCHK= AG4 8 F AG 44 4~ AG4 F AF AG
0x08e864…08e9f8 Dummy {f00=0x002d, f01=0x0190, f02=» @F P Q @G2 AG W @G2 AG @F P 9dT @ P 9A G, G @G( IG @G) IG @G* IG G W$ G @F P Q @G2 W W @G2 W W AG6 D8 @G6P _ A : 44 56 @F G AF A3D ? T2 A3D G2 :hP AF 9H @G4T AG G AG
0x08e9f8…08eb8c Dummy {f00=0x002d, f01=0x0190, f02=» # G F & G # <HZ X& @ R R "@TnW Rf$ Pb @ P G.W G- @F ! Xh& Xf # <HZp @ R R "@T$W R P @ P G0_ G._ W - _ @G G AG G @G G AG @ AG( G @G G AG ? T @V G( G
0x08eb8c…08ed20 Dummy {f00=0x002d, f01=0x0190, f02=» AG( G @G G AG @ AG* G @G G AG AG* G @G G AG AG* G @G G AG AG* G @G G AG ? ^ G* G 4XW 4X A3F W 4@ A3F A B A < !==T ?r M @3FP D8 M ?r A B 48
0x08ed20…08eeb4 (0, 181) Dummy {f00=0x002d, f01=0x0190, f02=»W 4D AKlW 4D AKlW 4F AKlW 4F AKlWz 4F AKlWn 4F AKlWb 4F AKlWV 4V AKlWH 4F AKlW< 4L AKlW0 4P AKlW$ 4P AKlW 4D AKlW 4D AKlW A B ?r D8 Kl 4~
0x08eeb4…08f048 Dummy {f00=0x002d, f01=0x0190, f02=»:FMTITEM ?r A B A D 40 4~ ? P P @? F # < V A < 6 Fp ( 1T P _ @ Wr @ R2 R($ 9 $@XD $ T @ QJ T< @ P<WJ R<$ 9 $ P0 Fx @T( Fx 3PR @ D8 56 W W W
0x08f048…08f1dc Dummy {f00=0x002d, f01=0x0190, f02=» : @ U T A3P A3L A B @ <Rb A < @ Q( u @ < ) : u @ < C A 3R A3N B : -J_ -JW T K K A3P A3L A B @ <ZF A < @ Q K _ K @ < C A
0x08f1dc…08f370 Dummy {f00=0x002d, f01=0x0190, f02=» )W4 u * @ < C W -J : -J_p # AH AH T - WD AH @ P: Rz $ P $ P - " @ ! P ** C @H @H ! r @ P ( C : @ " P @H AH H : @ P R $@P $ P $ P
0x08f370…08f504 Dummy {f00=0x002d, f01=0x0190, f02=» AJ u ? P P W - @ A L A L R A > Z> @ J @ <R8 A < @ Q @ < )W0 # >U -J > < # BPW W -J : ?D ?P ! @ < V& @K K AK K K
0x08f504…08f698 Dummy {f00=0x002d, f01=0x0190, f02=»:FMTITEM 4 4b 4 A3JW 4 A L 4b @ LP A L 4, A3J_2 -J : A @3JT ? P P @? F # < V A < @ R, R"$ 9 $@P @ Q T @ P W 6 Fp ( 1T P _ @ Wj R @P @ PT WN RX
0x08f698…08f82c Dummy {f00=0x002d, f01=0x0190, f02=» I| @ P B % % @ P @ U H W AH @ P 0 H @ u ! P -J @H P # >HRT U - @H T V @ Q4 H W: @H 9CV $ P W,$PP W W W W - W -J AH : @ R.P. T" AH
0x08f82c…08f9c0 Dummy {f00=0x002d, f01=0x0190, f02=» A P _ : T_@ ***WARNING***FOLLOWING FORMAL PARAMETERS ARE NOT TYPE DEFINED: 8 W4 4 W. 2 W( > W" 0 W 0 W 0AW 0DW 0`W 1@ @ P -JW AI
0x08f9c0…08fb54 (0, 182) Dummy {f00=0x002d, f01=0x0190, f02=» P* @ P: A H @ @ P P V Q _ & X : W W W W - $0 & K # _0 ! @ Pd P I I @ @ P H _" P( > I & % I & % ! : AZK ,K K K AZK 09K ..K @(K ,K K K
0x08fb54…08fce8 Dummy {f00=0x002d, f01=0x0190, f02=» V VR VH V> $@P # <HR&;D+ @ A & X : W - $0 K # _$ - _&
0x08fce8…08fe7c Dummy {f00=0x002d, f01=0x0190, f02=» - # & . ( @& Q , A& ' x & @ n & @-H & " ' - # & ' @-HPD 2 + + + " 2 + ( 0 , :TRA.ERR.BIN BCD STR BOL FTB FOR EQU EXT ADR KEY PRO FLB @ P d 3 D
0x08fe7c…090010 Dummy {f00=0x002d, f01=0x0190, f02=» ! P 9 R _ & W * 9AV MW 9AV U Q& nZ % _ P % :
0x090010…0901a4 Dummy {f00=0x002d, f01=0x0000, f02=»
[…0x3…]
0x090660…0907f4 (0, 183) Opaque[0x194]
0x0907f4…090988 # DirEnt {nam=»/OBJCT«, typ=»OB«, f00=0x0000, f01=0x0000, f02=0x05c0, f03=0x0000}
0x0907f4…090988 IdxSect {
0x0907f4…090988 f00 = 0x002e // 0x907f4 @0x0
0x0907f4…090988 f01 = 0x0040 // 0x907f6 @0x2
0x0907f4…090988 gno = [ // 0x907f8 @0x4
0x0907f4…090988 [0x00]: C0x002e.0x0.0
0x0907f4…090988 [0x01]: C0x002e.0x1.0
0x0907f4…090988 [0x02]: C0x002e.0x2.0
0x0907f4…090988 [0x03]: C0x002e.0x3.0
0x0907f4…090988 [0x04]: C0x002f.0x0.0
0x0907f4…090988 [0x05]: C0x002f.0x1.0
0x0907f4…090988 [0x06]: C0x002f.0x2.0
0x0907f4…090988 [0x07]: C0x002f.0x3.0
0x0907f4…090988 [0x08]: C0x0030.0x0.0
0x0907f4…090988 [0x09]: C0x0030.0x1.0
0x0907f4…090988 [0x0a]: C0x0030.0x2.0
0x0907f4…090988 [0x0b]: C0x0030.0x3.0
0x0907f4…090988 [0x0c]: C0x0031.0x0.0
0x0907f4…090988 [0x0d]: C0x0031.0x1.0
0x0907f4…090988 [0x0e]: C0x0031.0x2.0
0x0907f4…090988 [0x0f]: C0x0031.0x3.0
0x0907f4…090988 [0x10]: C0x0032.0x0.0
0x0907f4…090988 [0x11]: C0x0032.0x1.0
0x0907f4…090988 [0x12]: C0x0032.0x2.0
0x0907f4…090988 [0x13]: C0x0032.0x3.0
0x0907f4…090988 [0x14]: C0x0033.0x0.0
0x0907f4…090988 [0x15]: C0x0033.0x1.0
0x0907f4…090988 [0x16]: C0x0033.0x2.0
0x0907f4…090988 [0x17]: C0x0033.0x3.0
0x0907f4…090988 [0x18]: C0x0034.0x0.0
0x0907f4…090988 [0x19]: C0x0034.0x1.0
0x0907f4…090988 [0x1a]: C0x0034.0x2.0
0x0907f4…090988 [0x1b]: C0x0034.0x3.0
0x0907f4…090988 [0x1c]: C0x0035.0x0.0
0x0907f4…090988 [0x1d]: C0x0035.0x1.0
0x0907f4…090988 [0x1e]: C0x0035.0x2.0
0x0907f4…090988 [0x1f]: C0x0035.0x3.0
0x0907f4…090988 ]
0x0907f4…090988 }
0x090988…090b1c Dummy {f00=0x002e, f01=0x4144, f02=» > @ IDENT FMOVE T,REL=10.0,800314,870137141000 FMOVE F FMOVE V I:EVA0 h I:ERR2 z I:EVA5 , ( D #0 & + I:ER18 I:RT1 * & $ P _
0x090b1c…090cb0 Dummy {f00=0x002e, f01=0x40f8, f02=» > @ IDENT TYPET T,REL=10.0,800314,870137141000 TYPET F TYPET V I:EVA0 h I:ERR2 z I:RT1 , ( B #03 ;d # + @ @
0x090cb0…090e44 Dummy {f00=0x002e, f01=0x40fc, f02=» > @ IDENT ICLEAR T,REL=10.0,800314,870137141000 ICLEAR F ICLEAR X I:EVA0 l I:RT1 ~ , ( @ #0 0T ' ' _ T $ @
0x090e44…090fd8 Dummy {f00=0x002e, f01=0x411c, f02=» > @ IDENT EMPTYT T,REL=10.0,800314,870137141000 EMPTYT F EMPTYT X I:EVA0 l , ( @ #0 0T & ! T ~ I:RT1 , ( P & ! X T C T T !P
0x090fd8…09116c Dummy {f00=0x002e, f01=0x0190, f02=» > @ IDENT T:STIN T,REL=10.0,800314,870137141000 STRIN1 F STRIN1 X T:STEV l , ( @ X x & Y " X R W ~ T:RNOK T:LOFS , ( P _ Y $ I:E
0x09116c…091300 Dummy {f00=0x002e, f01=0x416a, f02=» ! P " P z I:ERR2 , ( s W " P X $ X " R W , , ( V R W V % _ I:MOV T:GRFC , ( $ " D $ D X T:ROK $ X y &
0x091300…091494 (0, 184) Dummy {f00=0x002e, f01=0x018e, f02=» > @ IDENT T:STOU T,REL=10.0,800314,870137141000 STROU1 F STROU1 X T:STEV l T:LOFS ~ * & @ X x & Y " I:EVA0 T:LOPS I:ER17 , (
0x091494…091628 Dummy {f00=0x002e, f01=0x4158, f02=» f , ( s ?A W ?AW <! P , ( X " X R W V y 8 T:DUPX h T:GRFC z , ( & Y $ 8 " X X T:ROK T:RNOK x ( y $ < 8 9
0x091628…0917bc Dummy {f00=0x002e, f01=0x414a, f02=» > @ IDENT T:STEV T,REL=10.0,800314,870137141000 T:STEV F T:STEV X T:GRFC l I:EVA0 ~ * & H #0T Y Y , ( ! T # P & #0T ( I:ERR2 7
0x0917bc…091950 Dummy {f00=0x002e, f01=0x0190, f02=» > @ IDENT T:EDFL T,REL=10.0,800314,870137141000 T:EDFL F T:EDFL X T:PM1 l T:PM2 | T:CASP , ( I Y ( x P Y * , ( x y W X " T:DUPX
0x091950…091ae4 Dummy {f00=0x002e, f01=0x0190, f02=» , ( w V X ( x C T:SCUW 4 , ( ( Y * X Y , X F , ( X C & C C v T:IOER , ( ( B P 9 R 9 X , ( !@P X X * b ) Y *
0x091ae4…091c78 Dummy {f00=0x002e, f01=0x0190, f02=» B U C Q C D T:CLR1 * T:CLR2 < , ( mP X X * $" ~_> @ Y N , ( X * _R X !@XX y X # ~ , ( x V y X X * P , ( P 1 _ 1 X * X
0x091c78…091e0c Dummy {f00=0x002e, f01=0x4148, f02=» X n T:CLIT T:EKEY , ( C $ " P y _ x T 2 , ( a@ X H X X * , )$ b P _ : H D !T P d )Wv 9 T UP m d yV& Ph R^ PP #P =T QU [Q e r g t 4 0 i k m
0x091e0c…091fa0 Dummy {f00=0x002e, f01=0x0190, f02=» > @ IDENT T:DYKI T,REL=10.0,800314,870137141000 J F " T:DYKI T:PM1 T:PM2 T:CLR1 T:CLIT T:CLR2 T:IOER T:EKEY T:BELL F T:DYKI I:EVA7 , ( @ ' Y y , ( x C y X
0x091fa0…092134 (0, 185) Dummy {f00=0x002e, f01=0x0190, f02=»:CLRD , ( C Q " T X , ( ! X X ! x Y~ Y > , ( _ X "@P B R y C B n , ( P 9 V _F9 V X ! T X !@ T:EKEY , ( X y C _d y C C X
0x092134…0922c8 Dummy {f00=0x002e, f01=0x0190, f02=» _$ _ y z T:CLR2 ^ T:SCUW . * & Y @_6 x X@ X X # @ , ( u C _. B ]d P C n , ( Q X8_H x XD @ Y c C y , ( XR X x x T:BELL
0x0922c8…09245c Dummy {f00=0x002e, f01=0x0190, f02=» T:LOFS I:EVA0 T:LOPS , , ( @H ( ( > T:CLMI n , ( #H : B C _J + T:PM1 @ T:GRFC , ( ? . X 9 V ! P @ Y I
0x09245c…0925f0 Dummy {f00=0x002e, f01=0x4124, f02=» j , ( " ( $ $ : ! P # P : : H D ! ! @ YTf a eR k B uT y Q T , P R P V f H D ! VV T P #Q( S P Q8 , 3 < MV SP P P
0x0925f0…092784 Dummy {f00=0x002e, f01=0x0190, f02=» > @ IDENT T:UPDF T,REL=10.0,800314,870137141000 T:UPDF F T:UPDF X T:GRFC l I:ER14 ~ , ( @ 2! Y " T:LOFS I:EVA0 T:LOPS , (
0x092784…092918 Dummy {f00=0x002e, f01=0x406a, f02=»R T:RCTS $ O X MT D ` T@ f T:GRFC l I:ER14 ~ , ( @ 2! Y " T:LOFS I:EVA0 T:LOPS , (
0x092918…092aac Dummy {f00=0x002e, f01=0x0190, f02=» > @ IDENT T:DUPL T,REL=10.0,800314,870137141000 T:DUPL T:DUPX F T:DUPL ` T:GRFC t I:EVA0 I:ERR2 T:RNOK , ( HB !0 X T:ROK T:DUPX
0x092aac…092c40 Dummy {f00=0x002e, f01=0x406c, f02=» I:MOV & " S V : KT WV > h V@ h ` T:GRFC t I:EVA0 I:ERR2 T:RNOK , ( HB !0 X T:ROK T:DUPX
0x092c40…092dd4 (0, 186) Dummy {f00=0x002e, f01=0x4186, f02=» > @ IDENT T:GETC T,REL=10.0,800314,870137141000 T:GETC F T:GETC X T:GRFC l I:ER14 ~ I:EVA0 , ( @ 2' I:ERR2 I:RT1 , ( " P # P
0x092dd4…092f68 Dummy {f00=0x002e, f01=0x415a, f02=» > @ IDENT T:GETA T,REL=10.0,800314,870137141000 T:GETA F T:GETA X T:GRFC l I:EVA0 ~ I:ERR2 , ( H ! P # P X T:RNOK T:ROK T:RCR ( $
0x092f68…0930fc Dummy {f00=0x002e, f01=0x413a, f02=» > @ IDENT T:TSTC T,REL=10.0,800314,870137141000 T:TSTC F T:TSTC X T:GRFC l , ( @ X " 9b! X :c 2" ~ I:ER14 T:RTES , ( H @ ;
0x0930fc…093290 Dummy {f00=0x002e, f01=0x0190, f02=» > @ IDENT T:TFWD T,REL=10.0,800314,870137141000 D @ T:TLEF T:TRIG T:TLDO T:TDOW T:TUP T:TFWD T:TBWD T:THOM F T:TLEF T:TRIG T:TLDO T:TDOW T:TUP T:TFWD T
0x093290…093424 Dummy {f00=0x002e, f01=0x411a, f02=» Y 4 Y n T:TABE , ( ? 2 Y 69h Q X :h Y 0 W T:SCR2 P T:TABC b T:TABN t * & ] U X Q W Y 0 w 8 4 W W W W W W !W IQ YW ]U eQ kW
0x093424…0935b8 Dummy {f00=0x002e, f01=0x0190, f02=» > @ IDENT T:DISP T,REL=10.0,800314,870137141000 T:PRIN T:DISP T:ERAS F T:PRIN h T:FDSP | T:EDWI T:GRFC T:GTIP , ( D 9H Y * T:DISP
0x0935b8…09374c Dummy {f00=0x002e, f01=0x0190, f02=» *9h p I:ER14 , ( S P R Y >_ P R P R " T:TABD R , ( q Y +W Y + W d , ( T R W Q W Y , ( + U Q Y T:TABC , (
0x09374c…0938e0 Dummy {f00=0x002e, f01=0x418c, f02=»Y , ( X 0 Y 8 P Y , ( # 0 X 0 X 2] X 8 Y 0 : X 0 : T:WRDY j , ( C :H* : X 2T Y 2 : | T:EDIO $ a @ C 1 B ] : H D ! 1 W !W 7T SP: WR aP cR i
0x0938e0…093a74 (0, 187) Dummy {f00=0x002f, f01=0x0190, f02=» > @ IDENT T:GETF T,REL=10.0,800314,870137141000 T:GETF T:GTIT T:GTIP F T:GETF h I:ER14 | , ( X +! X +! U 9K T:TABC T:TABN T:GTIT 0 T:GRFC , (
0x093a74…093c08 Dummy {f00=0x002f, f01=0x40c8, f02=» I:EVA2 I:ER15 , ( W 4 0 6 2 X 0 " I:ERR2 R & " u@ : ! P # T : d 0 U S z e z P T @ T:TABN T:GTIT 0 T:GRFC , (
0x093c08…093d9c Dummy {f00=0x002f, f01=0x0190, f02=» > @ IDENT T:REWR T,REL=10.0,800314,870137141000 . * T:REWR T:SCUW T:CLRD T:IOWR T:CASP F T:IOWR x T:SCUW , ( C ( C : T:CLRD * T:REWR 0 , ( ! C B
0x093d9c…093f30 Dummy {f00=0x002f, f01=0x4148, f02=» D : K + Q | I:EVA3 ! I:EPIC ! . , ( } 2 P P ! @ T:LOPS ! p , ( ( B X # V : ! I:EVA0 ! I:ECPY ! I:EVI ! ( $ $ _0
0x093f30…0940c4 Dummy {f00=0x002f, f01=0x0190, f02=» > @ IDENT T:DEDT T,REL=10.0,800314,870137141000 " . * T:TABC T:TABD T:TABE T:TABN T:SCR2 " F I:EVNO " x I:ESKI " I:EVA0 " I:EBRI " I:EBRB " I:EBR " , (
0x0940c4…094258 Dummy {f00=0x002f, f01=0x0190, f02=» " z T:DSL # I:EXPY # * T:TABC ( # < T:TABD , # P T:TABE 0 # d , ( ! W W X 0Q # x T:EDWI # I:EVT # , ( 9 Y ( Y *P # I:EDSK #
0x094258…0943ec Dummy {f00=0x002f, f01=0x0190, f02=» V _` " P T " P & # T:LOPS $ 0 , ( (W " P Y 0] Y $ B , ( (_z P P T " X _@ $ r T:EDWF $ , ( " P * X *# P B 1 $ I:ER16 $ , ( " *W
0x0943ec…094580 Dummy {f00=0x002f, f01=0x4130, f02=» . C $ | , ( a W @ X (T W X y 6 Y ( % T:TABN % L T:RCR % ` : X (;n 0 % p H D ! +W /W 7Q ; . ? , KP Q P PR V PL T Ph Wp P P % < 8 P T0 P" P W P 9P ?P ET OP c
0x094580…094714 (0, 188) Dummy {f00=0x002f, f01=0x0190, f02=» > @ IDENT T:ENLI T,REL=10.0,800314,870137141000 & T:DNL T:DSL & F I:EVNO & I:ECPY & n I:EPIC & I:ETXT & I:ETAB & I:EBRI & I:EBRB & I:EBR & * &
0x094714…0948a8 Dummy {f00=0x002f, f01=0x0190, f02=» & I:ESKI ' . I:EXPY ' @ T:DSL ( ' R T:GRFC ' d T:DNL 6 ' v , ( ! " $ Y . Y ,W ' , ( 9 $ Y . X ( X ." P X 0R T ' T:WRDY ' , ( W Y *P
0x0948a8…094a3c Dummy {f00=0x002f, f01=0x4182, f02=» Q Y *T , : " P X 0U ' , ( X *# P P T " T : ( , I:ER16 ( T:ENIN ( n , ( " . Y . 0 Y ( ( , ( $ Y *T " T ! 1 W ( ! ) , : ( H D ! 6
0x094a3c…094bd0 Dummy {f00=0x002f, f01=0x0190, f02=» > @ IDENT T:EINP T,REL=10.0,800314,870137141000 ) " T:PKI T:PINP T:TKI T:TINP ) F T:PKI ) l T:PINP ) ~ T:GRFC ) I:ETAB ) I:EVIN ) , ( I P & ) , ( Y *T
0x094bd0…094d64 Dummy {f00=0x002f, f01=0x0190, f02=» & V D ! P $ ) | T:TINP * T:TKI * 0 , ( u ! P %_ : V * B , ( Y " X .9H $ P * r , ( & X ( " Q Y +Q R " P W * I:ER16 * , ( " U Y , " Q "
0x094d64…094ef8 Dummy {f00=0x002f, f01=0x0190, f02=» P * t , ( I W X ! X $" P Q X (# P X + , ( i # :! R W T @ Y ( + D T:ENIN + t T:ENI + I:EXIT + , ( W Y , W Y ( + , ( : X *:h X (! # P X & V + , (
0x094ef8…09508c Dummy {f00=0x002f, f01=0x0190, f02=» + h , ( # P Y (_ P P Y , T:WRDY , 8 , ( C 8 & X 8 X $ W _ , J , ( a " P X ( T X & V H "@T , z , ( P V Y X (P , T:CLMI , , ( X (
0x09508c…095220 Dummy {f00=0x002f, f01=0x0190, f02=» 8 V Y 8 : " P X & V , , ( ( P : : "0P - , , ( 7 $ T W %T : : Y - , ( W ( X $ Y X " Y X & Y X < Y - , ( w @ : Y : X : X ( - , ( T X & V H " V
0x095220…0953b4 (0, 189) Dummy {f00=0x002f, f01=0x4146, f02=» P - P H D ! W U Q R P" P PD W #Pt )Pn /P 5P A EP< I R . H D ! KWZ [P< ]Q eP2 sR$ uW y R } T$ W W P Tb W P@ . X H D !$ T, T R #P 3P* ; * ?P| [Wh cP mT }TF * P6 P z P . < 8 P V T P
0x0953b4…095548 Dummy {f00=0x002f, f01=0x0190, f02=» > @ IDENT T:ENIN T,REL=10.0,800314,870137141000 / T:ENIN T:ENI T:EVOU / F T:ENIN / f T:ENI / z , ( X Y " X Y $ X Y & X @W X / T:LOFS / , ( ! < Y = " / I:EGTB
0x095548…0956dc Dummy {f00=0x002f, f01=0x0190, f02=» X (P / n T:WRDY 0 , ( W X & V D ! P @ W X 0 , ( W Y ( : X , Y X $ Y 0 P , ( X &T Y Y Y W V $ 0 , ( :H D Y D :H Y ! P V 0 I:EVA0 0 I:EVA1 0 , (
0x0956dc…095870 Dummy {f00=0x002f, f01=0x411a, f02=» 0 , ( Q : 2' " P T 1 I:EVA3 1 8 I:EPIC 1 J , ( mD W : N : 1 H D ! W CT IW SP a mT" }T W4 W, P W" P W W T WD 1 ( $ P W )P /W A X aP gT qW 1
0x095870…095a04 Dummy {f00=0x002f, f01=0x4144, f02=» > @ IDENT T:SETC T,REL=10.0,800314,870137141000 2 T:SETC T:SCUR 2 F T:SETC 2 ` T:GRFC 2 t T:EDWI 2 T:RCTS 2 T:SCUR 2 , ( A C 2 T:WRDY 2
0x095a04…095b98 Dummy {f00=0x002f, f01=0x40e2, f02=» > @ IDENT T:CLMI T,REL=10.0,800314,870137141000 3 T:CLMI 3 F T:CLMI 3 X , ( "0P ' Q W ' 3 l ! Y : 3 P Q W 3 ( 3 @ 3 A2,0 PCLRM20 EQU * P SCR
0x095b98…095d2c Dummy {f00=0x002f, f01=0x0190, f02=» > @ IDENT T:ATTF T,REL=10.0,800314,870137141000 4 J F " T:ATTF T:DETF T:ROK T:RNOK T:RCR T:RCTS T:RTES T:GRFC T:WRDY 4 F T:CLDY 4 T:DETF 4 T:ATTF 4 I:EVA6 4 I:FFSN 4 , ( W
0x095d2c…095ec0 Dummy {f00=0x002f, f01=0x4100, f02=» < V E B 4 ~ T:RNOK < 5 T:GRFC @ 5 2 T:WRDY H 5 F T:EDIO 5 Z * & ; X _ v : C C 5 l T:CLDY 5 $ Y @ : C : 5 @ W @ 5 l 5 @ 5 W
0x095ec0…096054 (0, 190) Dummy {f00=0x002f, f01=0x0190, f02=» > @ IDENT T:LSEG T,REL=10.0,800314,870137141000 6 & " T:LOFS T:LOPS T:LSEG T:CSEG 6 F T:LSEG 6 p T:CSEG 6 , ( ( R : V E V D ' 6 I:ER1C 6 , ( ! $ W P 6
0x096054…0961e8 Dummy {f00=0x002f, f01=0x402c, f02=»R ;P OW YP 6 d 7 @ 7 (00314,870137141000 6 & " T:LOFS T:LOPS T:LSEG T:CSEG 6 F T:LSEG 6 p T:CSEG 6 , ( ( R : V E V D ' 6 I:ER1C 6 , ( ! $ W P 6
0x0961e8…09637c Dummy {f00=0x002f, f01=0x4146, f02=» > @ IDENT T:DC00 T,REL=10.0,800314,870137141000 8 DCREAD DCWRTE DCEXCH 8 F T:FDS0 8 h DCREAD 8 z T:DCR1 8 DCWRTE 8 T:DCW1 8 DCEXCH 8 T:DCE1 8 , ( I$
0x09637c…096510 Dummy {f00=0x002f, f01=0x40aa, f02=» > @ IDENT T:SWI0 T,REL=10.0,800314,870137141000 9 SWITCH 9 F T:SWIT 9 X SWITCH 9 j @ 9 ~ 9 @ 9 ~ . P* CREDIT ASSEMBLER SUBROUTINE ENTRIES * . P*
0x096510…0966a4 Dummy {f00=0x002f, f01=0x40da, f02=» > @ IDENT T:TEI0 T,REL=10.0,800314,870137141000 : TESTIO ABORT : F T:TEST : ^ TESTIO : p T:ABOR : ABORT : H : : @ : . P*
0x0966a4…096838 Dummy {f00=0x002f, f01=0x40de, f02=» > @ IDENT T:CLO0 T,REL=10.0,800314,870137141000 ; SETTIM GETTIM ; F T:SETT ; ` SETTIM ; r T:GETT ; GETTIM ; H ; ; @ ; . P*
0x096838…0969cc Dummy {f00=0x002f, f01=0x40a6, f02=» > @ IDENT T:DEL0 T,REL=10.0,800314,870137141000 < DELAY < F T:DELA < V DELAY < h @ < z < @ < * ~ . P* CREDIT ASSEMBLER SUBROUTINE ENTRIES * . P*
0x0969cc…096b60 Dummy {f00=0x002f, f01=0x40aa, f02=» > @ IDENT T:GTI0 T,REL=10.0,800314,870137141000 = GETTID = F T:GETI = X GETTID = j @ = ~ = @ = ~ . P* CREDIT ASSEMBLER SUBROUTINE ENTRIES * . P*
0x096b60…096cf4 (0, 191) Dummy {f00=0x0030, f01=0x0190, f02=» > @ IDENT T:DC T,REL=10.0,800314,870137141000 > 6 2 T:DCRE T:DCR1 T:DCWR T:DCW1 T:DCEX T:DCE1 > F T:DCRE > T:FDSP > T:DCR1 > T:DCWR > T:DCW1 > T:EDIO > , ( @@ /
0x096cf4…096e88 Dummy {f00=0x0030, f01=0x416e, f02=» 6 > * & 5 / "!@P ? I:EVA0 ? 8 , ( O ' / #0T ? J , ( i C #0T C ? z , ( #0 T ' P &R &P C ? * & #0 T & C : W ?
0x096e88…09701c Dummy {f00=0x0030, f01=0x40b6, f02=» > @ IDENT T:SWI T,REL=10.0,800314,870137141000 @ T:SWIT @ F T:SWIT @ X I:RT1 @ l ( @ | @ @ @ E LEVEL P* PT:SWIT EQU * P LDK A7,0 " P SU PP,CSB,TCA GET
0x09701c…0971b0 Dummy {f00=0x0030, f01=0x4174, f02=» > @ IDENT T:TEI T,REL=10.0,800314,870137141000 A T:TEST T:ABOR A F T:TEST A ` T:FDSP A t I:RT1 A T:ABOR A * & @ "R V I A T:KIAA A , ( ( T
0x0971b0…097344 Dummy {f00=0x0030, f01=0x410e, f02=» > @ IDENT T:DEL T,REL=10.0,800314,870137141000 C T:DELA C F T:DELA C X I:EVA0 C l I:ERR C ~ , ( @ #0 P ( C I:RT1 C C P C $ C @
0x097344…0974d8 Dummy {f00=0x0030, f01=0x4124, f02=» > @ IDENT T:MSK0 T,REL=10.0,800314,870137141000 D MASK D F MASK D V I:EVA0 D h , ( @ #0 T #0 T V D z I:RT1 D D I:ERR D # D T T D
0x0974d8…09766c Dummy {f00=0x0030, f01=0x0190, f02=» > @ IDENT T:SCD T,REL=10.0,800314,870137141000 E T:ACTV T:PAUS T:RSTR E F T:ACTV E h , ( 2 ;BP P J E | P:BAS E I:ERR4 E , ( ! T ( E I:NTPB
0x09766c…097800 Dummy {f00=0x0030, f01=0x4092, f02=» W & F : ( E I:RT1 F * w F : $ P P4 %T 1 ^ EW4 O ^ ]W F T ~ F |@ F
0x097800…097994 (0, 192) Dummy {f00=0x0030, f01=0x018e, f02=» > @ IDENT T:USE T,REL=10.0,800314,870137141000 G T:USE T:UERR G F T:USE G ^ I:ERR4 G p , ( 2 & >A >A 2 G I:EVA0 G , ( $ & V D 9a 9 G P:MTAB G , (
0x097994…097b28 Dummy {f00=0x0030, f01=0x0190, f02=» G f , ( @ 9 X ( H , ( 9 8 ? X Q , V H 8 , ( ( - 4T H h , ( V 5 ( W V H , ( P W U V X 9T H T:UERR B H
0x097b28…097cbc Dummy {f00=0x0030, f01=0x4010, f02=» H H @ I @ 9 X ( H , ( 9 8 ? X Q , V H 8 , ( ( - 4T H h , ( V 5 ( W V H , ( P W U V X 9T H T:UERR B H
0x097cbc…097e50 Dummy {f00=0x0030, f01=0x0190, f02=» > @ IDENT T:UNUS T,REL=10.0,800314,870137141000 J T:UNUS J F T:UNUS J X I:ERR4 J l , ( 2 ' >A >A 2 J ~ P:MTAB J , ( $ V L ;a ; R @ ( 8 J , ( = ? X
0x097e50…097fe4 Dummy {f00=0x0030, f01=0x402a, f02=» 5R@ OQ* J K @ K &,800314,870137141000 J T:UNUS J F T:UNUS J X I:ERR4 J l , ( 2 ' >A >A 2 J ~ P:MTAB J , ( $ V L ;a ; R @ ( 8 J , ( = ? X
0x097fe4…098178 Dummy {f00=0x0030, f01=0x4096, f02=» > @ IDENT T:EXIT T,REL=10.0,800314,870137141000 L T:EXIT L F T:EXIT L X ( L l L @ L KM P DATA 3 P* P END @ LDKL A6,-1 P ABL T:UERR END @ P ADR
0x098178…09830c Dummy {f00=0x0030, f01=0x4138, f02=» > @ IDENT T:GTCW T,REL=10.0,800314,870137141000 M GETCW M F T:FDSP M V GETCW M h I:EVA0 M z T:BINB M , ( H "$ P B B M T:GTCW M I:RT1 M $ W M
0x09830c…0984a0 Dummy {f00=0x0030, f01=0x4128, f02=» > @ IDENT T:GTID T,REL=10.0,800314,870137141000 N T:GETI N F T:GETI N X I:EVA0 N l , ( @ #0T R W T V G 9h N ~ I:RT1 N I:ERR N ' W N T R W T '
0x0984a0…098634 (0, 193) Dummy {f00=0x0030, f01=0x018e, f02=» > @ IDENT T:DM T,REL=10.0,800314,870137141000 O & " T:OPEN T:CLOS T:COMM T:RSTA O F T:OPEN O p T:FDSP O , ( @ # 9 2! P T O T:WRIO O T:IO2 O T:CLOS . O , (
0x098634…0987c8 Dummy {f00=0x0030, f01=0x4090, f02=» T:RSTA X P T:SCW2 P T:IO3 P * ( $ W C P : P T P f j P z@ P , ( @ # 9 2! P T O T:WRIO O T:IO2 O T:CLOS . O , (
0x0987c8…09895c Dummy {f00=0x0030, f01=0x018c, f02=» > @ IDENT T:DMR T,REL=10.0,800314,870137141000 Q & " T:DREA T:IREA T:XREA T:IXID Q F T:DREA Q p T:REAX Q T:SCW2 Q T:IO3 Q T:IREA Q T:IO2 Q , ( $ Q
0x09895c…098af0 Dummy {f00=0x0030, f01=0x4008, f02=»@ R IDENT T:DMR T,REL=10.0,800314,870137141000 Q & " T:DREA T:IREA T:XREA T:IXID Q F T:DREA Q p T:REAX Q T:SCW2 Q T:IO3 Q T:IREA Q T:IO2 Q , ( $ Q
0x098af0…098c84 Dummy {f00=0x0030, f01=0x0190, f02=» > @ IDENT T:DMW T,REL=10.0,800314,870137141000 S 6 2 T:SWRI T:DWRI T:IWRI T:DREW T:CREW T:IREW S F T:SWRI S T:WRIX S T:IO4 S T:DWRI S T:SCW2 S , ( / / S
0x098c84…098e18 Dummy {f00=0x0030, f01=0x40fc, f02=» 5D / C S , ( O ( B B @ C T , , ( o ( ( B B T , ( C C ( C T T:IO5 T C T T @ T / S
0x098e18…098fac Dummy {f00=0x0030, f01=0x4182, f02=» > @ IDENT T:DMDI T,REL=10.0,800314,870137141000 U T:DDIS T:CDIS T:IDIS U F T:DDIS U h T:FDSP U | T:SCW2 U T:IO3 U T:CDIS U , ( $ C <H / U T:IDIS $ U
0x098fac…099140 Dummy {f00=0x0030, f01=0x4168, f02=» > @ IDENT T:DMPO T,REL=10.0,800314,870137141000 V T:DPOS T:IPOS V F T:DPOS V ` T:FDSP V t T:SCW2 V T:GTBY V T:IO4 V , ( H@ C <H / V T:IPOS V T:WRIX
0x099140…0992d4 (0, 194) Dummy {f00=0x0030, f01=0x0190, f02=» > @ IDENT T:IO T,REL=10.0,800314,870137141000 W J F " T:WRIT T:READ T:SREA T:KI T:NKI T:EDWR T:DSC0 T:DSC1 T:DSC2 W F H D ! T:EDWE T:EDWF T:EDWI T:EDIO T:XSTA T:WAIT T:IO1 T:IO2 T:IO3 W J F " T:IO4 T:IO5 T:FDS0 T:FDSP T:GDSP T
0x0992d4…099468 Dummy {f00=0x0030, f01=0x0190, f02=»:WRIT W T:LWRI X , ( W / X $ T:WRIX " X T T:WRIO & X h I:EVA0 X | , ( ! _ P <H X T:SREA B X T:READ B X T:REAX J X , ( ? :
0x099468…0995fc Dummy {f00=0x0030, f01=0x0190, f02=» , ( { C C W C C J Y , ( ' W 781"&$ 39#$;< '()*+,-! Y 4 T:DSC2 Y d , ( P Y x T:XSTA Y T:WAIT Y , ( _D B 'W ( Y T:MWA
0x0995fc…099790 Dummy {f00=0x0030, f01=0x0190, f02=» Y T:IO3 D Z T:IO4 H Z I:ER19 Z , , ( 5 1W C C C " Z > T:IO5 Z Z n T:IORE ^ Z T:GCW2 Z * & S ( ' P P "! P Z T:GTCW Z I:RT1 Z , ( q W B
0x099790…099924 Dummy {f00=0x0030, f01=0x0190, f02=» Z j T:EDWR [ I:EDW [ , ( 5 P C : [ . T:EDWE [ ^ T:EDWF [ r , ( C C B B P C [ T:EDWI [ I:ERR [ , ( : "!@T V I C [
0x099924…099ab8 Dummy {f00=0x0030, f01=0x018e, f02=» Y [ t I:ERR5 , ( e C & & , ( B C "!@ V , ( : B T T T:FDS0 T:FDSP T:GDSP P:MTAB , (
0x099ab8…099c4c Dummy {f00=0x0030, f01=0x0190, f02=» , ( @ V H ;D:B " ] , ( : _, C ] 8 T:GTBY 2 ] h T:SCW2 ] | , ( P / : : 2 "! P ] T:DSCX R ] I:EVA2 ] , ( O : P C W
0x099c4c…099de0 Dummy {f00=0x0030, f01=0x415e, f02=» ] h H D ! Y W L D " H % ) - " 1P G J IW M Q " ]P cV { ^ H D ! V 2 W > W > " P W Wb 2 ;W" ^ T H D !B ]P. a gP$ mP sW }P P P& P P P P ^ H D ! 0 T ?P C O S "
0x099de0…099f74 (0, 195) Dummy {f00=0x0031, f01=0x0190, f02=» > @ IDENT T:CW T,REL=10.0,800314,870137141000 _ F B T:GCW2 T:GTCW T:SCW2 T:STCW T:SCW0 T:BCDB T:BINB T:KIAA _ F T:KIAC _ T:STCW _ I:EVA2 _ T:SCW0 _ , ( @ #0 T & C C : C _
0x099f74…09a108 Dummy {f00=0x0031, f01=0x0190, f02=» X R _ V _ T:GTCW ` I:ERR2 ` 4 , ( 4 _P :#0 T B 'W B ` F T:BINB ` v , ( B " : ` , ( P P L R ` , ( R _ R _
0x09a108…09a29c Dummy {f00=0x0031, f01=0x0190, f02=» T U :J ` z , ( ] a B@ ' d w5 1 a T:KIAA a J T:KIAC a ^ T:GCW2 a r , ( } #0 T a T:SCW2 a , ( B ' : B B : a , (
0x09a29c…09a430 Dummy {f00=0x0031, f01=0x4062, f02=» PR a T 8 4 Z R R Q !P )P 9P IR T P T b b L@ b ^:KIAC a ^ T:GCW2 a r , ( } #0 T a T:SCW2 a , ( B ' : B B : a , (
0x09a430…09a5c4 Dummy {f00=0x0031, f01=0x0190, f02=» > @ IDENT T:ADIT T,REL=10.0,800314,870137141000 c & " T:RREA T:RRE1 T:RWRI T:RWR1 c F T:RREA c p T:FDSP c T:RRE1 c I:EVA0 c , ( A #0 T &R c T:STCW c I:ERR c
0x09a5c4…09a758 Dummy {f00=0x0031, f01=0x40ac, f02=» / "!@P c v T:IO1 d , ( S #0T C : d & m W d V X TX RX A X _T oW d r v d @ d I:EVA0 c , ( A #0 T &R c T:STCW c I:ERR c
0x09a758…09a8ec Dummy {f00=0x0031, f01=0x0190, f02=» > @ IDENT T:KIA T,REL=10.0,800314,870137141000 e T:KIA T:NKIA e F T:KIA e ^ T:NKIA e p T:ABUF e , ( W P 6 V :a L e T:KIPR e , ( Q ' ( ( e
0x09a8ec…09aa80 Dummy {f00=0x0031, f01=0x0190, f02=» 6 K e , ( u V K V V K V K f , ( V 6V ( - _ : J 7 f P , ( J V W J :A f * & V 6V $ - _ * + : f , ( D T E D :A D ;A f
0x09aa80…09ac14 (0, 196) Dummy {f00=0x0031, f01=0x410a, f02=» I @P _ W *) + : f , ( g $: R P $ : D V D g 0 ( $ V ( < C C _, g ` H D !L W PZ !QJ % p 7 < ST WP c V V T> Q U 3 d AP g IP QW mR oP g g @ g
0x09ac14…09ada8 Dummy {f00=0x0031, f01=0x4098, f02=» > @ IDENT T:ABUF T,REL=10.0,800314,870137141000 h T:ABUF h F M h X T:ABUF h n h @ h IN T:ABUF f & !T:ABUF RES SIZE KIA/NKIA SAVEAREA P EJECT T:ABUF END @
0x09ada8…09af3c Dummy {f00=0x0031, f01=0x018e, f02=» > @ IDENT WRITEL T,REL=10.0,800314,870137141000 i WRITEL i F WRITEL i X T:FDS0 i l I:EVA0 i ~ , ( D / #0T C i , ( #0 T &R &P C i T:IO2 i , ( 9
0x09af3c…09b0d0 Dummy {f00=0x0031, f01=0x400c, f02=» i @ j IDENT WRITEL T,REL=10.0,800314,870137141000 i WRITEL i F WRITEL i X T:FDS0 i l I:EVA0 i ~ , ( D / #0T C i , ( #0 T &R &P C i T:IO2 i , ( 9
0x09b0d0…09b264 Dummy {f00=0x0031, f01=0x0190, f02=» > @ IDENT I:NTP T,REL=10.0,800314,870137141000 k B > I:TRC I:NTP I:NTPA I:NTPB I:NTPR I:RST I:RT0 I:RT1 I:RT2 k F I:MOV k I:ADD k I:SUB k I:CMP k I:MUL k * & T k
0x09b264…09b3f8 Dummy {f00=0x0031, f01=0x0190, f02=» k I:XCP l I:EDS l , ( / l ( A l X I:TRC N l v I:RST P l T:CSEG l I:NTPA T l I:NTPB X l P:MTAB l , ( O W V 7 @
0x09b3f8…09b58c Dummy {f00=0x0031, f01=0x0190, f02=» I:CHK l , ( B " $ m I:EVA0 m > I:EVA2 m P , ( pV 9c D & ( m b I:RT2 m , ( Q W :aW @ NYR m I:TRA m I:RT1 m I:TRB m
0x09b58c…09b720 Dummy {f00=0x0031, f01=0x0190, f02=» V m j T:BAT n , ( W _ 2 # ;B V T n , ( 7 2W V P L , V 2 n J , ( U P " 2 P V D ! R T V n z , ( u P V W V P _ 8 n T:PAT n , ( ^t D . 2 ! 9BP V
0x09b720…09b8b4 (0, 197) Dummy {f00=0x0031, f01=0x0190, f02=» 7_ 2 # P L 6P n , ( @ & 2" &] Y $! o * , ( @ + 6P Q $ T 9BP . _ _ o Z , ( K W 6 @ & " T 7 $ o , ( i V P W _ o I:EVB o , ( P
0x09b8b4…09ba48 Dummy {f00=0x0031, f01=0x40f4, f02=» o N H D ! = ? A C E G I K M kP uP VP Q W p H D ! W, P P W< - L 3T 9W UP [P kR oT uP P P T W p V 8 4 T PH PB -P /Q 3T 7P KW ]T oP W W p U p @ p , ( P
0x09ba48…09bbdc Dummy {f00=0x0031, f01=0x018e, f02=» > @ IDENT I:EVA T,REL=10.0,800821,870137141000 J F " I:EVA0 I:EVA1 I:EVA2 I:EVA3 I:EVA5 I:EVA6 I:EVA7 I:EVB I:EVI F I:FML I:EVTO P:MTAB , ( :l:d:h I:EVA2 I:E
0x09bbdc…09bd70 Dummy {f00=0x0031, f01=0x0190, f02=» f , ( 9 # W @ $ E " T ; [ , ( W # :H 2 T Z L 8 , ( @ w L D V W # h , ( L E V $ W D V I:EVA0 , ( @ L , W 6 2 W "
0x09bd70…09bf04 Dummy {f00=0x0031, f01=0x0190, f02=» Z Z , ( 3 : R ; 0 I:ERR9 ` , ( S 6 : F _v r , ( s :B , (V ; H [ [ , ( [ Z (;AR H W I:E
0x09bf04…09c098 Dummy {f00=0x0031, f01=0x0190, f02=» & Z t , ( 4 : Z , ( ' 4 " 2@P : [ D , ( G [ & @ $ ! P t , ( e Z [ 6 [ Z I:FML , ( 7 . Z 7
0x09c098…09c22c Dummy {f00=0x0031, f01=0x4182, f02=» :;h : ; V I:EVI * I:EVB < , ( Y : 2! : 6 2 N , ( @ W " # ;b ~ " ? ; : ;f" #?_" H D ! #W 'W -P 1W = ?W4 KT> [ kT V, W
0x09c22c…09c3c0 Dummy {f00=0x0031, f01=0x018e, f02=» > @ IDENT I:ADS T,REL=10.0,800314,870137141000 v I:ADD I:SUB v F I:ADD v I:SUB v n I:ERR2 v I:ERR1 v * & @ W # v , ( " T & T + : * v I:C
0x09c3c0…09c554 (0, 198) Dummy {f00=0x0031, f01=0x0190, f02=» , ( ! X # P 4 V W w , ( Q P [ " X $ P T w 4 , ( R R ` ; <( w d , ( Q P # W " <! =# T W = Z w , ( P _ V ^< `_@ w , ( ) R Q <# =_
0x09c554…09c6e8 Dummy {f00=0x0031, f01=0x4056, f02=» W T6 W P )R +Q 7P w h AP GU KP QT x $ l x @@ x R T w 4 , ( R R ` ; <( w d , ( Q P # W " <! =# T W = Z w , ( P _ V ^< `_@ w , ( ) R Q <# =_
0x09c6e8…09c87c Dummy {f00=0x0031, f01=0x4184, f02=» > @ IDENT I:CMP T,REL=10.0,800314,870137141000 y I:CMP y F I:CMP y V I:ERR1 y h , ( #0 P " T * & y z , ( : * & !`P :J +_ +Q y I:CPA y , ( ? _0
0x09c87c…09ca10 Dummy {f00=0x0031, f01=0x4172, f02=» > @ IDENT I:CPA T,REL=10.0,800314,870137141000 z I:CPA z F I:CPA z V * & R W z h , ( ( V W Q P W ! W V z , ( ? P , V W Q P W $ W V z * & _ P
0x09ca10…09cba4 Dummy {f00=0x0031, f01=0x0190, f02=» > @ IDENT I:MOV T,REL=10.0,800314,870137141000 { I:MOV I:MVC { F I:MOV { I:MVC { n , ( $0#0;b P P P P { , ( ! 0 - P _ 4 V { , ( A W Q P ) P 9_ &" ! 9 :
0x09cba4…09cd38 Dummy {f00=0x0031, f01=0x0190, f02=»V { p , ( 4! P < S S S X | , ( 4 9d * & ! R + : | @ , ( V W R 4 0R Y | p , ( ! 7 Y& P Z,;D 9_8 8 _< | I:ERR8 | , ( A V W YL T 9 :
0x09cd38…09cecc Dummy {f00=0x0031, f01=0x40fc, f02=»V 7 Y | r , ( P _& & Q 9d! )0 + P 7 Y } Z $ _ : } B H D ! ^ P P PF P -P0 EQ GP OP gP kQ s S S S } f 0 , R R R )P oP( T WJ V P. P } } @ } 9 :
0x09cecc…09d060 Dummy {f00=0x0031, f01=0x018e, f02=» > @ IDENT I:MUL T,REL=10.0,800314,870137141000 ~ I:MUL I:SH1L ~ F I:MUL ~ ^ I:ERR2 ~ p I:ERR1 ~ , ( V ) 0 !0 ~ , ( " T *V &V : V ~ , ( = S W P
0x09d060…09d1f4 (0, 199) Dummy {f00=0x0032, f01=0x0190, f02=» ~ f , ( [ [ $ [ [ I:MOV I:NTFA 8 * & P>h [ [ P I:SUB ~ , ( Z P , ( [ 9a Z $" T 9d! P P [ I:ADD , ( P
0x09d1f4…09d388 Dummy {f00=0x0032, f01=0x40e6, f02=» I:SH1L z , ( g ! I Z ! : 4 P 9 , ( 59D_ " P P [ ! :d" B 5 : r D @ @ TV 9V GP WV cW PP P6 P( P 5 z AR IP P P P @ I:ADD , ( P
0x09d388…09d51c Dummy {f00=0x0032, f01=0x018e, f02=» > @ IDENT I:DIV T,REL=10.0,800314,870137141000 I:DIV I:SH1R F I:DIV ^ I:ERR2 p I:ERR1 , ( 0 !0 " T , ( *V &V P = , ( ; ;@
0x09d51c…09d6b0 Dummy {f00=0x0032, f01=0x0190, f02=» , ( V & 6 , ( [ [ [ [ $ 8 I:MOV I:NTFA h , ( [ [ &! P I:SUB , ( , ( z " ! !
0x09d6b0…09d844 Dummy {f00=0x0032, f01=0x018e, f02=» r e P _ , ( i T { [ [ Q [ & I:ADD V , ( P { R [ _ f , ( Z ! Z $ * & P Z %_N [ Q * & R
0x09d844…09d9d8 Dummy {f00=0x0032, f01=0x40b2, f02=» f + X" ,9 -9d_ H D ! Tz V 'V 5PP KR QP UW aP iR qR yV T W P +P $ ( $ YQ eP y Q@ R Q* R W p 6 @ ! Z $ * & P Z %_N [ Q * & R
0x09d9d8…09db6c Dummy {f00=0x0032, f01=0x40da, f02=» > @ IDENT I:NTF T,REL=10.0,800314,870137141000 I:NTFA F I:NTFA X , ( Z H D & H l $ ! D % [ ( 8 @ P ABR* WK2 P P END ,PS
0x09db6c…09dd00 Dummy {f00=0x0032, f01=0x0190, f02=» > @ IDENT I:EDT T,REL=10.0,800314,870137141000 F B I:EDT I:EDW I:ED1 I:EDSK I:EVT I:ETAB I:EXIT I:ETXT I:ECPY F D @ I:ECTR I:ESL I:ENL I:EOR I:ECW I:ECWC I:EFIL I:EFLA I:SCB I:FFSN I:EXPY , ( !!
0x09dd00…09de94 (0, 200) Dummy {f00=0x0032, f01=0x0190, f02=»5 I:EVB I:EGTB I:EVI , I:EVA3 < I:EVA0 N * & AUT ` I:EVNO I:EPIC I:ESKI I:EBRI I:EBRB I:EBR * & Q T
0x09de94…09e028 Dummy {f00=0x0032, f01=0x0190, f02=» { 6 K K I:EDT . I:ED1 @ I:EDW R , ( K K V K : d I:EVA6 , ( * R B " V , ( V Z P 2 " T W , (
0x09e028…09e1bc Dummy {f00=0x0032, f01=0x0190, f02=» 7 [ Z P I:ERR9 * , ( U $ [ V < I:EXIT z l P:MTAB , ( s & 7_ Z @ " (! * & P $ Z 7 Z Z P I:FFSN , (
0x09e1bc…09e350 Dummy {f00=0x0032, f01=0x0190, f02=» : R J P v I < : I:ETXT ( I:ECPY < , ( J Q : P 4 P I:EXPY * I:ECTR < , ( % ! T _ P 4 W K I:ESL F I:ENL P , ( E W
0x09e350…09e4e4 Dummy {f00=0x0032, f01=0x418c, f02=»_& X ,W X & . J K I:EFIL ( I:SCB < I:ERRD N , ( : V : J T 0 1 ` H D ! U Y [ e f g z i p k 4 m P s u F y * < < H D ! P T W T W ;
0x09e4e4…09e678 Dummy {f00=0x0032, f01=0x0190, f02=» > @ IDENT I:EPIC T,REL=10.0,800314,870137141000 I:EPIC F I:EPIC X I:EVA0 l : + ~ [ [ < , ( ! !AAP !TTT W !**T * [ R A
0x09e678…09e80c Dummy {f00=0x0032, f01=0x0190, f02=»T j , ( *W FP . :T Z ! XBW *X& I:ERRD : , ( W :P # U J 1 p ! L I:SCB | , ( 00T ; _ 9P F " X> # ; W )0_B , ( J R Z R 4! P ;)0
0x09e80c…09e9a0 Dummy {f00=0x0032, f01=0x4158, f02=» , ( k ,_ 8 _ : W 8W p 8 ! , ( ++P !-- z ;$# + ^" _( 4 " |`. PT*AXYZ9 d H D ! ` %P +T /W 5T ?R EP KT OW S P Wv W@ Wn H D ! T& W4 P T W F WH P" U T P
0x09e9a0…09eb34 (0, 201) Dummy {f00=0x0032, f01=0x0190, f02=» > @ IDENT I:EDTE T,REL=10.0,800314,870137141000 D @ I:EKIH I:EINH I:EVIN I:EBRI I:EBRB I:EBR I:ESKI I:EVNO F I:EGTD I:EGTB I:EKIH I:EINH I:ETAB I:EVIN , ( @
0x09eb34…09ecc8 Dummy {f00=0x0032, f01=0x018a, f02=»:ERR2 * & ; W : ! )P9H " I:EBR r < , ( W # T &W &" :I : N I:EBRB v ~ I:ESKI I:EVNO I:ER11 I:EGTD I:EGTB , ( u : P &
0x09ecc8…09ee5c Dummy {f00=0x0032, f01=0x4008, f02=»@ * & ; W : ! )P9H " I:EBR r < , ( W # T &W &" :I : N I:EBRB v ~ I:ESKI I:EVNO I:ER11 I:EGTD I:EGTB , ( u : P &
0x09ee5c…09eff0 Dummy {f00=0x0032, f01=0x40ea, f02=» > @ IDENT I:EDS T,REL=10.0,800314,870137141000 I:EDS F I:EDS V I:EVS2 h I:ED1 z , ( : { : & @ P2E,OP1E END OF MAIN STRING
0x09eff0…09f184 Dummy {f00=0x0032, f01=0x0190, f02=» > @ IDENT I:STR T,REL=10.0,800314,870137141000 $ I:INS I:DLT I:MCH I:CPY I:XCP F I:DLT n I:EVS1 , ( @ $0T P 9 I:MCH " * & _ $0T [ , ( ;
0x09f184…09f318 Dummy {f00=0x0032, f01=0x0190, f02=» $ t , ( R W R # P W ) V E I:EVS2 D , ( $0T W W V I:ERR I:CPY I:XCP , ( W [ , ( : Z !0 ,
0x09f318…09f4ac Dummy {f00=0x0032, f01=0x409c, f02=» : H D !@ T H Pb )T ?T UR$ ]P cT mTd oW TH R W R P W ( $ T Wr W W P4 R* R %W Z P @ PY I:XCP , ( W [ , ( : Z !0 ,
0x09f4ac…09f640 Dummy {f00=0x0032, f01=0x0190, f02=» > @ IDENT I:EVS T,REL=10.0,800314,870137141000 I:EVS1 I:EVS2 F I:EVA0 ` , ( @ #03 T jP r , ( kT T : & 9! " : $ , ( = : T W V 9! , ( ]
0x09f640…09f7d4 (0, 202) Dummy {f00=0x0032, f01=0x4082, f02=»2 I:ERR _^ W , ( T )T GT KW eQ< qQ0 }Q$ T W < l@ ~ #03 T jP r , ( kT T : & 9! " : $ , ( = : T W V 9! , ( ]
0x09f7d4…09f968 Dummy {f00=0x0032, f01=0x0190, f02=» > @ IDENT I:TRA T,REL=10.0,800314,870137141000 2 . I:NTR I:PRT I:TRA0 I:TRA I:TRB I:BUF I:ECB F I:ECB | I:BUF , ( *1 TID ADDR OP CR LVL MOD ( / IFIED OPERAND
0x09f968…09fafc Dummy {f00=0x0032, f01=0x0190, f02=» ( z , ( ! @ ' $ * A T ( , ( A A ( J , ( p A ) Y V A V z I:HEX I:HEXB , ( V . 1 V v I:TRA0 8
0x09fafc…09fc90 Dummy {f00=0x0032, f01=0x0190, f02=» I:EVA0 I:HEXW , ( e & ( @ |Q X I:TRB | , ( R A W # V D ! )0 1 , ( @ & # T 6 V ^ I:NTPR I:PRT
0x09fc90…09fe24 Dummy {f00=0x0032, f01=0x4028, f02=»W> T n @ $ e & ( @ |Q X I:TRB | , ( R A W # V D ! )0 1 , ( @ & # T 6 V ^ I:NTPR I:PRT
0x09fe24…09ffb8 Dummy {f00=0x0032, f01=0x0190, f02=» > @ IDENT I:ERR T,REL=10.0,800314,870137141000 D @ I:ERR I:ERR0 I:ERR1 I:ERR2 I:ERR3 I:ERR4 I:ERR5 I:ERR6 F F B I:ERR7 I:ERR8 I:ERR9 I:ERRA I:ERRB I:ERRC I:ERRD I:ERRE F B I:ERRF I:ER10 I:ER11 I:ER12 I:ER13 I:ER1
0x09ffb8…0a014c Dummy {f00=0x0032, f01=0x0190, f02=» I:ERR3 I:ERR4 I:ERR5 0 I:ERR6 D I:ERR7 X , ( W W W W W W W W l I:ERR8 I:ERR9 $ I:ERRA ( I:ERRB , I:ERRC 0 I:ERR
0x0a014c…0a02e0 Dummy {f00=0x0032, f01=0x018e, f02=» I:ER12 H I:ER13 L I:ER14 P , I:ER15 T @ I:ER16 X T I:ER17 h , ( A W W W W W W W W | I:ER18 ` I:ER19 d I:ER1A h I:ER1B l I:ER1C p
0x0a02e0…0a0474 (0, 203) Dummy {f00=0x0033, f01=0x0190, f02=» f I:HEXB , ( $ ER A R A " I:ECB J * & @ R 4 4 $ A Z I:PRT , ( & U 4 - _ TC:ERR I:NTPR , ( @
0x0a0474…0a0608 Dummy {f00=0x0033, f01=0x0190, f02=» ILLEGAL REQUESTED | , ( W LENGTH STACK UNDERFLOW ARIT , ( w HM OVERFLOW STACK OVERFLOW IN L , ( DEX OVERFLOW ILL INDEX TYPE DI | , ( V BY ZERO EDIT BUFFER OVFL ED , ( IT PICTURE OVERFLOW ALLOCATION
0x0a0608…0a079c Dummy {f00=0x0033, f01=0x0190, f02=»LOCA l , ( W TED FIX BUFFER NOT ALLOWED IL , ( w LEGAL CONTROL CODE ILLEGAL INDE < , ( X VALUE FORMAT CONDITIONS CHAN l , ( GED ILLEGAL PARAMETER LENGTH , ( ERROR DATASET BUSY ILLEGAL DA , ( TASE
0x0a079c…0a0930 Dummy {f00=0x0033, f01=0x412a, f02=» W` W WX WT #WP 'WL +WH /WD 3W@ 7W< ;W8 ?W4 | H D ! CW0 GW, KW( OW$ SW WW [W _W cW gW kW oW sW R D 8 H D ! U # 3 C ] _ q @ < " + A [ s
0x0a0930…0a0ac4 Dummy {f00=0x0033, f01=0x4108, f02=» > @ IDENT I:HEX T,REL=10.0,800314,870137141000 I:HEXB I:HEXW I:HEX F I:HEXB f I:HEXW z I:HEX , ( W 9 " R 0 1 Y ! : W " @
0x0a0ac4…0a0c58 Dummy {f00=0x0033, f01=0x413c, f02=» > @ IDENT I:CHK T,REL=10.0,800314,870137141000 I:CHK F I:CHK V P:BAS h P:END x , ( ;a V P V P W TC:CHK I:ERR , ( B <a R 9a V :
0x0a0c58…0a0dec Dummy {f00=0x0033, f01=0x0190, f02=» > @ IDENT TRACHK T,REL=10.0,800314,870137141000 & " TC:CHK TC:ABT TC:ERR TC:RDC F TC:CHK p , ( @ P ( TT:HLT TT:TRP , ( !" _ @ P @ P P V
0x0a0dec…0a0f80 Dummy {f00=0x0033, f01=0x0190, f02=» P n TT:VER TT:VMM , ( s $ $P T , D 2 , ( @ E : @ P A H A b TT:TID TT:PRC TT:SNO , ( W TW V A V TB:ENT ,
0x0a0f80…0a1114 (0, 204) Dummy {f00=0x0033, f01=0x0190, f02=» TC:RDC TB:RDC TC:ERR & TT:MSG : * & TB( : TB( : A L , ( A E A V A z P:MTAB , ( 3 @ " # P ( R , ( @ M TB( ( A
0x0a1114…0a12a8 Dummy {f00=0x0033, f01=0x4042, f02=» W W P R ;P CR4 kP sR ~ ,@ >G : * & TB( : TB( : A L , ( A E A V A z P:MTAB , ( 3 @ " # P ( R , ( @ M TB( ( A
0x0a12a8…0a143c Dummy {f00=0x0033, f01=0x0190, f02=» > @ IDENT TRATAB T,REL=10.0,800314,870137141000 F B TT:TON TT:TRP TT:LOP TT:VON TT:VER TT:VMM TT:HLT TT:PRC F & " TT:TID TT:MSG TT:SNO TT:TRS TT:TON TT:TRP , (
0x0a143c…0a15d0 Dummy {f00=0x0033, f01=0x418a, f02=» j , ( a TT:VON : TT:VER N , ( b , ( TT:VMM @ TT:HLT
0x0a15d0…0a1764 Dummy {f00=0x0033, f01=0x0190, f02=» > @ IDENT TRABUG T,REL=10.0,800314,870137141000 TB:ENT TB:ABT TB:RDC F h P:BAS z , ( , ( , (
0x0a1764…0a18f8 Dummy {f00=0x0033, f01=0x0190, f02=»( ( ( TT:PRC $ TT:SNO 6 , ( i D "! A * @ @ H , ( @ *P ( V x , ( R V W Z T , ( _" = T , (
0x0a18f8…0a1a8c Dummy {f00=0x0033, f01=0x0190, f02=»B:RDC 8 , ( ! P @ A A , , ( ; A . "V # ( A , @ , ( @ [ P UW T A ,P p , ( { @ = W Q M / , ( S I J T Y G L P , (
0x0a1a8c…0a1c20 Dummy {f00=0x0033, f01=0x0190, f02=» UU A A A A A A A A , ( B ; A P A A , 0 , ( [ + - ; : ( . ` , ( { X " , A L A L @ A , ( @ A _T X ,T X , ( ) A A
0x0a1c20…0a1db4 (0, 205) Dummy {f00=0x0033, f01=0x0190, f02=» @ V " @ T , ( ( ; " @ @ P A A " @ , ( [ 8T @ 4 A @ : A @ @ A P , ( * { @ F A @ A @ A @ @ A , ( F @ A :P W @ T @ , ( @ Z @ A 4 W
0x0a1db4…0a1f48 Dummy {f00=0x0033, f01=0x0190, f02=» p , ( ; 0 P P P @ , ( [ R _ @ , ( { _T p , ( 8 4 T P W , ( T @R W , ( U
0x0a1f48…0a20dc Dummy {f00=0x0033, f01=0x0190, f02=» ; D @ A 8P W @ T @ , ( [ Z A @ 8 0 , ( { @ A 2 ` , ( A 8 @ R V ;a , ( @ Q _ 1 8 @ A , ( 2_ 0 A
0x0a20dc…0a2270 Dummy {f00=0x0033, f01=0x0190, f02=» @ 6 A @ < A @ B A , ( EU [ @ A @ A < @ A B @ A 6 , ( { P W @ T @ V @ P , ( @ A 0 0 P , ( @ @ P @ 1 8 A , ( @ @ < A @ 6 A _
0x0a2270…0a2404 Dummy {f00=0x0033, f01=0x0190, f02=» 0 p , ( $ W ! T @ P @ " 1 , ( P w 8 P @ @ @ @ T @ , ( @ @ R A *9l! P p , ( &9d! ) W P &9d , ( & _ & , ( P
0x0a2404…0a2598 Dummy {f00=0x0033, f01=0x018e, f02=» S P R % < < ! , ( H s T @ P @ ! 0 , ( D 5 = 8 8P @ ` TT:TRP TT:TRS , ( W $ TT:TON * & @
0x0a2598…0a272c Dummy {f00=0x0033, f01=0x0190, f02=» , ( @ ! @ @ T I _: TT:HLT 8 * & ( = P @ _ A , A J I:TRC x , ( Y @ A 8 @ ! A , ( s 8P @ @ P @ P , ( @ R @ T @
0x0a272c…0a28c0 Dummy {f00=0x0033, f01=0x0190, f02=» R )W A | , ( 8 , A A :B A , ( @ Q (P _ H @ T @ L , ( @ H A " EQ GT | , ( = LT NE NG NL P @ * R , ( ] @ P Q (
0x0a28c0…0a2a54 (0, 206) Dummy {f00=0x0033, f01=0x0190, f02=» A l , ( :B A (P _ @ , ( @ @ P @ < , ( V @ Q 1 @ Q Q l , ( +D A " ( R ( @ , ( G$ V @ H ) I " , ( a $
0x0a2a54…0a2be8 Dummy {f00=0x0033, f01=0x0190, f02=» P ,T n P )T , ( @ A T @ R ?aP * , , ( :l" T & W T C B B , ( B B B " A A A , ( ? A A A A R Q , ( _ ! 9D# 9hP Q
0x0a2be8…0a2d7c Dummy {f00=0x0033, f01=0x0190, f02=»Q L % Q | , ( W , ( C L , ( " _* Q P Q V | , ( ? _ W " A < V , ( _ " F <P
0x0a2d7c…0a2f10 Dummy {f00=0x0033, f01=0x0190, f02=» A l , ( .T @ *P P " A " , ( X X " , , A A < , ( :B A Q (P _ # # H A " l , ( ; A A 4 4 @ , ( [ I T A A A T A , ( @ { T
0x0a2f10…0a30a4 Dummy {f00=0x0033, f01=0x0190, f02=» n , ( "( @ " :S :X , ( :Y :Z $P W A > , ( + A 0R 9Q 0 A :B n , ( K _" A " , ( k A 0R 9U AR FQ , (
0x0a30a4…0a3238 Dummy {f00=0x0033, f01=0x0190, f02=» "! R _U .W A : , ( A " 9d ! R . , ( + :W W W W ? ^ , ( K W :W .W / a A T " , ( k @ T A ( , ( @ A "
0x0a3238…0a33cc Dummy {f00=0x0033, f01=0x0190, f02=» ! 1 ~ u 4 H D ! . K W e : y V } 6 P R V W V T 0 6 W P H D ! V $ P P 6 L #P ' 0 / ; t CV U : [P H D !o _W e V i 6 oP s w {
0x0a33cc…0a3560 Dummy {f00=0x0033, f01=0x0190, f02=» W . [ t _ c g k o s $ { d n T n j H D ! . 4 P 4 )V - 1 4 9T EP ] cT < H D ! P W T T W D W : 0 W H D ! 0 V 'PZ 9 T ? EP I L U
0x0a3560…0a36f4 (0, 207) Dummy {f00=0x0034, f01=0x0190, f02=» # / ? : IP M QW WT c l H D ! k u t } 0 0 < 0 0 R Q : j ( H D ! D 6 0 P P P P -P 9T a {P W T t H D ! V 6 P P D 0 T P V T
0x0a36f4…0a3888 Dummy {f00=0x0034, f01=0x0190, f02=» 9 =P` KT X H D ! Q S 4 WPF m T u $ y 6 T P P 0 W" b T W R % H D !1 3T =P A I 0 uPd PL P j j 0 R T V ` H D ! Rt W P RV W b * * * Q P T ' * MP2 UR* H D ! p Y j ] _
0x0a3888…0a3a1c Dummy {f00=0x0034, f01=0x0190, f02=» !A T 4 R: P T* W T 7 ; ? C G K O S j UR H D ! [Q kP oQ Pl ( P R PL W~ Pz R Tr Qj W" P` QV L H D !`C QL N N W /Q 3P 5Q 9V IW Q f wP W* P T j j H D ! j T P d P d :
0x0a3a1c…0a3bb0 Dummy {f00=0x0034, f01=0x018a, f02=» j P WH # j + b 1 Z 7R =Q C b Q j | H D ! _ b g j o wR$ }U R Q j T j 0 8 H D !q T R U WV $ ! $ )R /W& 5 V 9W ? V H D ! CW GW KW OW SW Y ] cT g m oT s w
0x0a3bb0…0a3d44 Dummy {f00=0x0034, f01=0x4008, f02=»@ j P WH # j + b 1 Z 7R =Q C b Q j | H D ! _ b g j o wR$ }U R Q j T j 0 8 H D !q T R U WV $ ! $ )R /W& 5 V 9W ? V H D ! CW GW KW OW SW Y ] cT g m oT s w
0x0a3d44…0a3ed8 Dummy {f00=0x0034, f01=0x0190, f02=» > @ IDENT SYSLOD REL 10.0 80-03-15 870105041000 & " SYSLOD SYSBAS NUMSEG PRGLG1 F NUMSEG p PRGLG1 SYSBAS SYSLOD SCTSFA SCTIPL , ( ($SWAP A
0x0a3ed8…0a406c Dummy {f00=0x0034, f01=0x0190, f02=» @ A. SCTOPT ( TABBE : * & Q UU @ @ ! P >B @ A J , ( k @ E D P _ x SCTMSZ SCTEFA , ( D $ % $P _ % A >f A , ( $ A
0x0a406c…0a4200 Dummy {f00=0x0034, f01=0x0190, f02=» A l , ( P _ * A W * , ( @ A W :a2 * A < SAVE09 l SAVE04 ~ APPTYP , ( - & W F W @ F W , ( G CRP BAP COP A SCT
0x0a4200…0a4394 (0, 208) Dummy {f00=0x0034, f01=0x0190, f02=» , ( W =J : R F P W W " SAVE05 8 SAVE01 J , ( B @ $ P @ R W $ W SAVE03 SAVE13 CMPADR , ( & ( * ,R SAVE07 S
0x0a4394…0a4528 Dummy {f00=0x0034, f01=0x0190, f02=» W ( t SCTNOP * & /D W 0 V ( V 0 V $P A & , ( E 2 @ , T , ( [ U U A Q SAVE22 , ( u@$ ,V Y2 W 4 V @ , ( " T W
0x0a4528…0a46bc Dummy {f00=0x0034, f01=0x0190, f02=» , ( 6 Y , ( P @ P @ 2T 4 , ( W - 6P _ T <B d SCTLAP TTB:MT SCTMMP , ( 7 B :L A 8 W 0 : SCTNPE
0x0a46bc…0a4850 Dummy {f00=0x0034, f01=0x0190, f02=» j SCTMMC , ( W Y( P Z& = : , ( A @:L . < P W L * & <9B @ V W Q | SCTLAC , ( W & @ A , ( B 0 @
0x0a4850…0a49e4 Dummy {f00=0x0034, f01=0x0190, f02=» a$ P V V " W _> , ( { @ , , ( H . V V " , ( $ P W @ @ ! T _ , ( P 8 , ( :l D
0x0a49e4…0a4b78 Dummy {f00=0x0034, f01=0x0190, f02=»P W T | , ( ] W , ( }A W 0 @ W ( L , ( | , ( , ( V * 00P
0x0a4b78…0a4d0c Dummy {f00=0x0034, f01=0x0190, f02=» j , ( S _ 0 !;; _ S A A , ( s @ R @ ! T A : , ( A @ V ( V & I j MOVE M:REL , ( F W & H V LDALEN , ( " &
0x0a4d0c…0a4ea0 Dummy {f00=0x0034, f01=0x0190, f02=»E20 , ( F LX 0T , ( 3 : T : < , ( Q : 0 !TTT 0 !;;T : l , ( q W W 0 !99Q P !00R P , ( 00W 11 A P =H_, !11R T , ( 0 !
0x0a4ea0…0a5034 (0, 209) Dummy {f00=0x0034, f01=0x0190, f02=» : : : : , ( / : : 0 )T : !00 , , ( O T W * : TID=TCL= , ( k LEV=TDC=T0LC=0SDC=S0A I. : , ( C. ~ X C.9h! , ( # "
0x0a5034…0a51c8 Dummy {f00=0x0034, f01=0x0190, f02=» @ " P P | , ( ' A A A A W A , ( G A A A A A A P A A L , ( g : 9e :e Q | , ( P 9e @ P A 9C) A I , ( " @ ! P " :B A
0x0a51c8…0a535c Dummy {f00=0x0034, f01=0x0190, f02=» l , ( @ ' " @ $ P " :B A t w B , ( G J " r R Q @ ( = < , ( g @ Q @ "| _@ _$ l , ( : A A A A A A P A , ( A : h:B* A @ P A , ( B
0x0a535c…0a54f0 Dummy {f00=0x0034, f01=0x0190, f02=» ' A P A A A ! T W , ( G A A I ! : 9D @ , , ( ! g @ r s @ A I T - , ( A _ I N T V S : , ( , ( 9P
0x0a54f0…0a5684 Dummy {f00=0x0034, f01=0x0190, f02=» : YX d C !CCT xB. ~ , ( ? <X B.9 H Q _ . SCTSWB ^ * & _ _ !SST 0 U P A p SAVE25 SAVE26 , ( } P X X W R W T X X SAVE27 S
0x0a5684…0a5818 Dummy {f00=0x0034, f01=0x0190, f02=» P V ZT W Z , ( F P P V . W ( , ( . @ $ P p W F T : X , ( ' A _ 0V , - , ( G P X 9A_ : @ ! P (W ( : H D ! [P$ {P P Q" U R> P0
0x0a5818…0a59ac Dummy {f00=0x0034, f01=0x0190, f02=» [U _U^ oQ yVD TJ P P P T W %P /T H D ! _W sT W V V W P P W V W Q % 1 5P < H D !/ GP UP* Y T aP q T T $ PZ T P V^ 4 # + H D ! = A IPH M Q 6 SW> W [T a e gW m
0x0a59ac…0a5b40 Dummy {f00=0x0034, f01=0x0190, f02=» : l x P J # 2 l H D ! ' : + r / GT O S X a Z e m q - u }R T v P ( H D ! P PN T -T 1 N 9 Q P _T iT qW wW Q P R P W t H D ! P. R T$ P P P P W W T~ Rr U Rf Q` TR
0x0a5b40…0a5cd4 (0, 210) Dummy {f00=0x0034, f01=0x418a, f02=» O S D W H X H D ! [ . c g Q P P P R U P /P UR, WQ$ oQ H D ! . P R V V R ! % . - 1 5 v ` H D !x` 9T = A z I z O v }T T V S PJ T@ T: Tr P H D ! P$ T 3Tx
0x0a5cd4…0a5e68 Dummy {f00=0x0034, f01=0x018c, f02=» > @ IDENT T:CLO T,REL=10.0,800314,870137141000 T:SETT T:GETT F T:SETT ` I:EVA0 t I:RT1 T:GETT , ( @ ( ( $ @ ( _
0x0a5e68…0a5ffc Dummy {f00=0x0034, f01=0x4008, f02=»@ IDENT T:CLO T,REL=10.0,800314,870137141000 T:SETT T:GETT F T:SETT ` I:EVA0 t I:RT1 T:GETT , ( @ ( ( $ @ ( _
0x0a5ffc…0a6190 Dummy {f00=0x0034, f01=0x2008, f02=» L = REL 10.0 DATE = 800317 1216PACK NBR = 0001 8
0x0a6190…0a6324 Dummy {f00=0x0034, f01=0x0000, f02=»
[…0x3…]
0x0a67e0…0a6974 (0, 211) Dummy {f00=0x0035, f01=0x0000, f02=»
[…0x1…]
0x0a6b08…0a6c9c Dummy {f00=0x0035, f01=0x0190, f02=» IN SCLASS r 6 P ST A2,SAVE11,A13 SAVE RELOCATED POINTER TO SCLASS P* L & P* CLEAR ALL WORDS IN SYSTEM AREA V P* P LD A1,SCTEFA P LD A2,SCTSFA PCLRSYS EQU * P SUK A1,2 P CMR A1 P CWR A1,A2 P RB(NE) CL
0x0a6c9c…0a6e30 Dummy {f00=0x0035, f01=0x018e, f02=»* b 4 /* CHPTRS - CHANGE POINTERS IN TCLASS/SCLASS * 4 /*********************************************** B * z , (* ENTRY: A2 - POINTER TO TCLASS/SCLASS ( P* A11 - SYSLOD START ADDRESS ( #* A12 - RELOCATION CONSTANT
0x0a6e30…0a6fc4 Dummy {f00=0x0035, f01=0x0190, f02=» ~ * PCHPTRS EQU * P ADR A2,A12 RELOCATE POINTER & 2 . LDR A3,A2 GET POINTER TO ORIGIN TCLASS/SCLASS J , ' LDR* A4,A3 GET LENGTH OF TCLASS/SCLASS CHPT10 EQU * . ) SUK A4,2 MOORE ENTRIES I TCLASS/SCLASS ? RF(Z) CHPT30 NO!
0x0a6fc4…0a7158 Dummy {f00=0x0035, f01=0x0190, f02=»,A5 GET LENGTH OF CLASS CHPT20 EQU * * & SUK A6,4 MOORE DEVICES IN THIS CLASS? 4 P RB(NP) CHPT10 NO! b ADK A5,4 NEXT DEVICE | LDR* A7,A5 GET DWT-ADDRESS P LDR A9,A7 GET DWT-ADDRESS " P CALL CMPADR COMPARE ADDRESSES P R
0x0a7158…0a72ec Dummy {f00=0x0035, f01=0x0190, f02=»D t P ANKL A8,1 MMU IN SYSTEM? P RB(Z) CHPT20 NO! , , P LD A8,DWTMEC,A7 GET MONITOR ECB ADDRESS F & P LDR A9,A8 GET MONITOR ECB ADDRESS v * P ANKL A9,1 ADDRESS ALREADY RELOCATED? P RB(NZ) CHPT20 YES! P ADR A8,A12 RELOCATE . P A
0x0a72ec…0a7480 Dummy {f00=0x0035, f01=0x018e, f02=»TN A14 P EJECT 6 2************************************************** 6 2* B:TCT - BUILD TASK CONTROL TABLE * V 6 2************************************************** * * REFERENCED IN: MONCON * 2 P* ENTRY:
0x0a7480…0a7614 (0, 212) Dummy {f00=0x0035, f01=0x0190, f02=» * WORK REGISTERS: A2,A3 * * * SUBROUTINES: 4 * L . )* TASK CONTROL TABLE LAYOUT V . )* _________________________ . ** I LENGTH I . )* ____________
0x0a7614…0a77a8 Dummy {f00=0x0035, f01=0x0190, f02=» I MONITOR TASKS I . )* _________________________ $ . ** I USER TASKS I V . )* __________________________ * EJECT PB:TCT EQU * 6 P ST P,SAVE03,A13 TEMPORARY STORAGE
0x0a77a8…0a793c Dummy {f00=0x0035, f01=0x0190, f02=» SAVE & " LDKL A2,TTMJOB GET TTMJOB ADDRESS ST A2,2,A7 STORE IN TC:TAB 8 * % ADK A7,4 CONTINUE WITH MONITOR TASKS ( P LD A2,SCTOPT ANY OPTIONS AVALIABLE? P RF(Z) BTCT15 NO! @ P********************************************************
0x0a793c…0a7ad0 Dummy {f00=0x0035, f01=0x0190, f02=» * X @ P*********************************************************** P EJECT P PBTCT15 EQU * ^ " P LD A2,SCTDMT DATA MANAGEMENT? r $ PBTCT20 ANK A2,/F MOORE DM-TASKS? P RF(Z) BTCT30 NO! P SRC A2,1 CHECK NEXT P RF(NN) BTCT25 NOT
0x0a7ad0…0a7c64 Dummy {f00=0x0035, f01=0x0190, f02=»OF TASKS AND RESERV SPACE IN TC:TAB ~ * , . )* A11 - POINTER TO TASK DEFINITION BLOCK 6 * h 2 P ST A7,SAVE13,A13 SAVE CURRENT USER TASK ENTRY r , P ST A7,SAVE02,A13 FIRST USER TASK ENTRY LCR A2,A11 GET BLOCK TYPE ( # CCK A2,'TT' T
0x0a7c64…0a7df8 Dummy {f00=0x0035, f01=0x0190, f02=» 0 ,* COMPUTE NUMBER OF TASK IN EACH TASK CLASS ! * ! < PBTCT40 EQU * ! F $ CALL GETTSK GET NUMBER OF TASKS ! Z PBTCT50 EQU * ! , P ADK A7,2 RESERV ANOTHER ENTRY IN TC:TAB ! & P CW A7,SCTEFA CHECK IF MEMORY LEFT ! P RF(NE) BTCT55 YES! !
0x0a7df8…0a7f8c Dummy {f00=0x0035, f01=0x0190, f02=»B(P) BTCT50 YES ! $ CALL NXTBLK SKIP TO NEXT BLOCK " ( # CCK A2,'TT' TASK DEFINITION BLOCK? " @ RB(E) BTCT40 YES " l * " 4 0* ENTRIES FOR ALL USER TASKS RESERVED IN TC:TAB " * " * % ST A7,SCTSFA UPDATE END OF FREE AREA " SUR A7,
0x0a7f8c…0a8120 Dummy {f00=0x0035, f01=0x0190, f02=»CT " 8 P*************************************************** # 8 P* * # F 8 P* B:FWT - BUILD FILE WORK TABLE * # 8 P* ============================= * # 8 P*
0x0a8120…0a82b4 (0, 213) Dummy {f00=0x0035, f01=0x0190, f02=» * # r 8 P* REFERENCED IN: CONMON * $ 8 P* * $ Z 8 P* ENTRY: SCTNFT - NUMBER OF FM-FILES PER TASK * $ 8 P* SCTNOF - NUMBER OF GENERAL FM-FILES * $
0x0a82b4…0a8448 Dummy {f00=0x0035, f01=0x0190, f02=» * $ 8 P* EXIT: SCTFWT - ADDRESS TO FIRST FWT * % 2 8 P* SCTNOF - TOTAL NUMBER OF FM-FILES * % n 8 P* * % 8 P* WORK REGISTERS: A2,A3
0x0a8448…0a85dc Dummy {f00=0x0035, f01=0x0190, f02=»* % ^ 8 P* * & 8 P* FUNCTIONAL DESCRIPTION: * & F 8 P* THIS SUBROUTINE RESERVES MEMORY AREA FOR * & 8 P* FILE WORK TABLES. * & 8 P* SIZE OF THE
0x0a85dc…0a8770 Dummy {f00=0x0035, f01=0x0190, f02=»TES * & r 8 P* L= FWT LENGTH IN BYTES * ' 8 P* G=NUMBER OF GENERAL FM-FILES * ' Z 8 P* T=NUMBER OF FM-FILES PER TASK * ' 8 P* N=NUMBER OF USER TASKS * '
0x0a8770…0a8904 Dummy {f00=0x0035, f01=0x0190, f02=» PB:FWT EQU * ( & P LD* A2,SCTTCT GET LENGTH OF TCTAB ( & P AD A2,SCTTCT COMPUTE END OF TCTAB ( B * P SU A2,SAVE02,A13 LENGTH OF USER PART ( l " P SRL A2,1 NUMBER OF USER TASKS ( 2 P LD A3,SCTNFT GET NUMBER OF FM-FILES PER TASK ( P CALL MULT MULTIPL
0x0a8904…0a8a98 Dummy {f00=0x0035, f01=0x0190, f02=» WORK TABLE LENGTH ( z P CALL MULT MULTIPLY ) , P SRL A3,1 NUMBER OF WORDS TO BE RESERVED ) 6 P ADK A3,0 ANY FWT:S AT ALL? ) f P RF(Z) FWT70 NO! ) 2 P ST A3,SAVE05,A13 SAVE FWT AREA SIZE IN WORDS ) ( P LD A2,SCTSFA GET START OF FREE AREA ) , P ST
0x0a8a98…0a8c2c Dummy {f00=0x0035, f01=0x0190, f02=»CATE MEMORY OVERFLOW ) ~ P CALL ERROR * ( PFWT60 ADK A2,2 RESERVE ANOTHER WORD * 0 $ P SUK A3,1 DECREMENT WORD COUNTER * * P RB(NZ) FWT50 CHECK IF MEMORY OVERFLOW * , P ST A2,SCTSFA UPDATE START OF FREE AREA * PFWT70 RTN A14 * EJECT * * &**
0x0a8c2c…0a8dc0 Dummy {f00=0x0035, f01=0x0190, f02=»* * ( $* NUMBER OF BLOCKS TO BE GENERATED: + ( P* 20+N*(NUMBER OF TASKS IN SYSTEM) + 6 $ P* WHERE N IS A SYSTEM CONSTANT + b $ P* DEFINED AT SYSTEM GENERATION + P* + * + * REFERENCED IN: SYSLOD + * + * &* ENTRY: SCTSFA - STAR
0x0a8dc0…0a8f54 (0, 214) Dummy {f00=0x0035, f01=0x018e, f02=»* WORK REGISTERS: A1,A2,A7,A12 + * , ( * SUBROUTINES: BLKGEN , 2 * , R EJECT , PMONBLK EQU * , j LDK A1,0 , ~ & ! LD A12,SCTSFA START OF FREE AREA , . P ST A12,FREQUE SAVE POINTER TO FIRST BLOCK , * , $ * GET NUMBER OF T
0x0a8f54…0a90e8 Dummy {f00=0x0035, f01=0x0190, f02=» P* - P LD A2,SCTBLK - PMON:10 EQU * - $ SUK A7,2 MOORE TASKS? - 8 RF(Z) MON:20 NO - V P CALL BLKGEN - p RB MON:10 - PMON:20 EQU * - * - * GENERATE 19 MOORE BLOCKS - * - LDK A2,19 - P CALL BLKGEN -
0x0a90e8…0a927c Dummy {f00=0x0035, f01=0x0000, f02=»
[…0x5…]
0x0a9a60…0a9bf4 (0, 215) Opaque[0x194]
0x0a9bf4…0a9d88 # DirEnt {nam=»SYSGEN«, typ=»LM«, f00=0x0000, f01=0x0000, f02=0x06c0, f03=0x0000}
0x0a9bf4…0a9d88 IdxSect {
0x0a9bf4…0a9d88 f00 = 0x0036 // 0xa9bf4 @0x0
0x0a9bf4…0a9d88 f01 = 0x0018 // 0xa9bf6 @0x2
0x0a9bf4…0a9d88 gno = [ // 0xa9bf8 @0x4
0x0a9bf4…0a9d88 [0x00]: C0x0036.0x0.0
0x0a9bf4…0a9d88 [0x01]: C0x0036.0x1.0
0x0a9bf4…0a9d88 [0x02]: C0x0036.0x2.0
0x0a9bf4…0a9d88 [0x03]: C0x0036.0x3.0
0x0a9bf4…0a9d88 [0x04]: C0x0037.0x0.0
0x0a9bf4…0a9d88 [0x05]: C0x0037.0x1.0
0x0a9bf4…0a9d88 [0x06]: C0x0037.0x2.0
0x0a9bf4…0a9d88 [0x07]: C0x0037.0x3.0
0x0a9bf4…0a9d88 [0x08]: C0x0038.0x0.0
0x0a9bf4…0a9d88 [0x09]: C0x0038.0x1.0
0x0a9bf4…0a9d88 [0x0a]: C0x0038.0x2.0
0x0a9bf4…0a9d88 [0x0b]: C0x0038.0x3.0
0x0a9bf4…0a9d88 ]
0x0a9bf4…0a9d88 }
0x0a9d88…0a9f1c Dummy {f00=0x0036, f01=0x0190, f02=»r ] @ . A > @ 4 A @ @x @s @s @yzP& @hf A` @hh A` @hdP A`| @hbP A` W @y P A[ A[ A[ @a( A[ A[ A[ @y A[ @`z A[ @`t @`v A[ @y A[ A[ @ @`~ A[ @ 0P A[ @` A[ @ T @ * A[ @` A[ A[ @ @`~P @ T A
0x0a9f1c…0aa0b0 Dummy {f00=0x0036, f01=0x0190, f02=» $ @`z A[ A @`r A[ A @`t @`v A[ A @a( A[ A[ A A A[ A[ A[ A[ A[ A[ A[ A[ PH @ 4" H A[ A[ A[ A[ @ A[ A[ A[ A[ A[ P( 6W" A[ A[ A[ A[ A[ P @ 6 @` A[ A[ A[ @` A A[ @`~ A @` A @`| A A
0x0aa0b0…0aa244 Dummy {f00=0x0036, f01=0x0190, f02=» F A v % @ r A W A r @x T . @y P W@ @a P Z ` [ $ ZW @a(P [ W [ Z 8 A r l A v [ L[ R M[ _ @`z A[ @`r A[ @`t @`v A[ @ * @ A[ @` A[ A[ A[ @` A[ @`~ A
0x0aa244…0aa3d8 Dummy {f00=0x0036, f01=0x0190, f02=» D A D AT A F A A H $R % _ A [ 8 B 8 u : DATA ILLINT122123124125126127128129130131132133134135136138139140141142145149150155156159163 04204304404504604704804905005105205305405505605705805906
0x0aa3d8…0aa56c Dummy {f00=0x0036, f01=0x0190, f02=»CH $$CHRT1$$IHLP$$LED SYSTABLED PFTAB LED INITAB!!IL 63 !!CH $$IHINPT$$TRAP$$ !!DL 85 ! D @ J R V Z ^ A[ A[ A[ A[ A[ : @ P@ A[ @ P 2T A[ A[ W A[ A[ W A[ @ *P @ _< :_$!!RE 127,$$ILLINT$$CHRT1$$!!RE 128,$$ILLINT$
0x0aa56c…0aa700 Dummy {f00=0x0036, f01=0x0190, f02=»56159163 : 3L<c P | & & : & & : & : & : ` & : & & : : A n A m X ( A p A o X ( x Y ( T T ' X ( A p A o X ( x Y ( T T ' : A P V V : X ( A R
0x0aa700…0aa894 (0, 216) Dummy {f00=0x0036, f01=0x0190, f02=» . F R ^ p z !!IL 12 !!IL 41 A h A x A w A g :!!IL 55 010101010101010101 EXTRN IH0000!!CH $$ILLINT XX$$IHAABB XX$$ !!CH $$CHLT1 14$$ILLINT 14$$!!CH $$IHFD 15$$ ILLINT 15$$!!CH $$CHRT3
0x0aa894…0aaa28 Dummy {f00=0x0036, f01=0x0190, f02=» 21$$ILLINT 21$$!!CH $$IHCC3 23$$ILLINT 23$$!!CH $$CHLT3 26$$ILLINT 26$$!!CH $$CHLT4 27$$ILLINT 27$$ DC A N ON A R L T M A P < : 3D T R X L 4P _ _ : 0715178182 2213 @s P
0x0aaa28…0aabbc Dummy {f00=0x0036, f01=0x0190, f02=»G$$*$$ @x Pl @`|P @` P @` P @` P D B A W C A @s n : E A @s _ D A @s _ @a( @ P G A _2 : F A @ _@ L pR _ L p,0 ) $ ) I :' d !!CH $$ X:A$$ $$ 4R P Z T 5 _$ : 4P^R`
0x0aabbc…0aad50 Dummy {f00=0x0036, f01=0x0190, f02=» _ 4R T _ : 4R T $X R l _$ : A 0 ) A W W W W W # C C ( B RF : _( $ @ $ A !YYP$ !NNP !$$T L !## u W : u _x _ t W
0x0aad50…0aaee4 Dummy {f00=0x0036, f01=0x0190, f02=»******************* P R D ! P ) _ _ : A _, ~ DTOSS TOSSWORK A T A X A A ` A d A h A l p t x | A A : A W ( -R _ : ( =R2 ( =
0x0aaee4…0ab078 Dummy {f00=0x0036, f01=0x0190, f02=» _ 4R T _ : 4R T $X R _$ :MOV ,/S,TOSSWORKINC ,TOSSWORK KPF /S,0 ASG /E0,TY10!!EN DATA 00!!DL LED KPF /O I/O ERROR SCR J 9 `r 8R T
0x0ab078…0ab20c Dummy {f00=0x0036, f01=0x0190, f02=»'Z A( A(j A( A( A*r A' A ( A n A) A A A A A A A' A( A(l A( A( A! A! A# A# A$ A% A%| A&X A*t A' A) A A( @ P DR A @ @ A X A * A 0 A A 6> X @` P DR A * @` P DR A 0 X +~ , 1n @a T W
0x0ab20c…0ab3a0 Dummy {f00=0x0036, f01=0x0190, f02=» A B (W ! T R 4 Y : 7F 7R 8 6 @ *P @ SP NUT 1 A @ P @ SP NUT 1 A 2 A 4 @ < SP 1P AE A62 1 @ SP NUT A @ X @ SP 1P AE 7& L 00 @ @ *T A : @y T A > @y T A B
0x0ab3a0…0ab534 (0, 217) Dummy {f00=0x0036, f01=0x0190, f02=»CD01DRMS02DROD01DRTP03DRGP02DRAS01DRSL01DRTC01DRSOP1DRSOP1DRMT01DRTW01DRDU01DRLP01DRFD01DRMD01DRCD01 DM01DRCR01DRIC01000000DRDC07DRDC15DRDC17DRDC81DRDC82DRDCXXDRDCYYDRDC22DRDC13DRCC01 ******************** D R I V E R S ********************* D & Z
0x0ab534…0ab6c8 Dummy {f00=0x0036, f01=0x0190, f02=»+r+r+r +r+r+r+r+r+r+r+r+r RETURN CODE UPON RECOVERY : CUT/PERFORATE JOURNAL TAPE : SPECIAL CHARACTER /13 : SPECIAL CHARACTER /14 : COMPLETION OF REQUEST IF PRINT OBJECT IS REMOVED : END OF REQUEST WHEN SELECTOR UNIT OR PRINTER IS INACTIVE : ROOM
0x0ab6c8…0ab85c Dummy {f00=0x0036, f01=0x0190, f02=»L CHARACTER /13 : SPECIAL CHARACTER /14 : COMPLETION OF REQUEST IF PRINT OBJECT IS REMOVED : INDICATION OF RECOVERY IN RETURN CODE (/80) : END OF REQUEST WHEN SELECTOR UNIT OR PRINTER IS INACTIVE : ROOMLESS POINT CODES : MMU BUFFER SIZE (BYTES) :
0x0ab85c…0ab9f0 Dummy {f00=0x0036, f01=0x0190, f02=»ON OF READ REQUEST AT POWER ON : CIRCULAR INPUT BUFFER SIZE : CODE CONVERSION/8-BIT SETTING : NUMERIC SHIFT FUNCTION : KEYBOARD LOCK IF NO KEYLOCK ON : MMU BUFFER SIZE (BYTES) : MMU KEY TABLE SIZE : ROOMLESS POINT CODES : SPECIAL CHARACTER
0x0ab9f0…0abb84 Dummy {f00=0x0036, f01=0x0190, f02=»F TRAILING BLANKS : END OF REQUEST WHEN SELECTOR UNIT OR PRINTER IS INACTIVE : MMU BUFFER SIZE (BYTES) : ORDER,WRITE NUMERIC DISPLAY : MMU BUFFER SIZE (BYTES) : ORDER,WRITE PROGRAM DISPLAY : FLASH FUNCTION : LOGG FUNCTION FOR INPUT/OUTPUT
0x0abb84…0abd18 Dummy {f00=0x0036, f01=0x0190, f02=»S : SOFTWARE TIMEOUT HANDLING MISSING DATA REQUESTS FROM PRINTERS : 01 NUMBER OF CASSETTE DRIVES : ORDERS LOCK,ERASE AND REVERSE ONE BLOCK : MMU BUFFER SIZE (WORDS) : LOGG FUNCTION FOR INPUT/OUTPUT CHRS : NUMBER OF LOCAL CHANNEL UNITS : ACKUMU
0x0abd18…0abeac Dummy {f00=0x0036, f01=0x0190, f02=»EST FILE CODE : 01 KEYBOARD TIMEOUT : COMPLETION OF READ REQUEST AT POWER ON : MMU BUFFER SIZE (WORDS) : GRAPHIC MODE : ONLY 6344/46 : LOWER CASE CHARACTERS : ECHO OF EOR-KEY : SUPRESSION OF TRAILING BLANKS : CURSOR STEADY ON 6386/6385 (
0x0abeac…0ac040 Dummy {f00=0x0036, f01=0x0190, f02=»F DISC UNITS : UNPACKED DISC FORMAT (A2) : PACKED DISC FORMAT (A3) : 00 EXTRA SOP INPUT DWT : FLASH FUNCTION : RECIEVE BUFFER LENGTH : DC-TASK DATCOM FILE CODE : INTERRUPT LOGGING : POLL TIMEOUT VALUE : STATUS AND RVI HANDLING : READ
0x0ac040…0ac1d4 (0, 218) Dummy {f00=0x0036, f01=0x0190, f02=» SPEED HIGH : SIEMENS MSV1 PROCEDURE : NUMBER OF RECEIVE BUFFERS : 00 PHYSICAL LINE NUMBER : IBM CHARACTER HANDLING : MESSAGE PASSING TO DC:TASK : IBM-3270 PACKAGE : MMU BUFFER SIZE (WORDS) : RECEIVE BUFFER LENGTH : DC-TASK DATCOM FILE CO
0x0ac1d4…0ac368 Dummy {f00=0x0036, f01=0x0190, f02=»PHYSICAL LINE NUMBER : MMU BUFFER SIZE (WORDS) : NUMBER OF LINES : BSC PROCEDURE (ELSE SIEMENS MSV2) : EBCDIC CODE (IF NO ASCII) : EBCDIC TRANSPARANCY : BID TIME OUT VALUE : LOGG AREA LENGTH PER LINE : 00 PHYSICAL LINE NUMBER : 34 04 05
0x0ac368…0ac4fc Dummy {f00=0x0036, f01=0x0190, f02=»NES : POLL LIST LENGTH : MAX BLOCK LENGTH : INTERRUPT LOGGING : RETRY LIMIT : 00 PHYSICAL LINE NUMBER : 34 04 05 06 07 32 33 35 36 37 38 MMU BUFFER SIZE (WORDS) : NUMBER OF LINES : POLL LIST LENGTH : INTERRUPT LOGGING : RETR
0x0ac4fc…0ac690 Dummy {f00=0x0036, f01=0x0190, f02=»RECEIVE BUFFER LENGTH : DC-TASK DATCOM FILE CODE : PHYSICAL LINE NUMBER : MMU BUFFER SIZE (WORDS) : RECEIVE BUFFER LENGTH : DC-TASK DATCOM FILE CODE : PHYSICAL LINE NUMBER : MMU DEVICE BUFFER : RECEIVE BUFFER LENGTH : DC-TASK DATCOM FILE
0x0ac690…0ac824 Dummy {f00=0x0036, f01=0x0190, f02=»S. : 00 PHYSICAL LINE NUMBER : MMU BUFFER SIZE (WORDS) : RECEIVE BUFFER LENGTH : DC-TASK DATCOM FILE CODE : INTERRUPT LOGGING : NUMBER OF RECEIVE BUFFERS (2-4) : POLL TIME-OUT VALUE : 00 PHYSICAL LINE NUMBER : MMU BUFFER SIZE : LP ON
0x0ac824…0ac9b8 Dummy {f00=0x0036, f01=0x0190, f02=» TO TOSS FORMAT (DM & PAGING) : IBM LABELLED DISC HANDLING : ORDERS OPEN,CLOSE : MMU BUFFER SIZE (WORDS) : COMPLETION OF READ REQUEST AT POWER ON : CIRCULAR INPUT BUFFER SIZE : MMU BUFFER SIZE (BYTES) : MMU KEY TABLE SIZE : CR ON PROGRAMMED
0x0ac9b8…0acb4c Dummy {f00=0x0036, f01=0x0190, f02=»ATION (0-9) : LOWER CASE CHARACTERS : CHARACTER PITCH DOCUMENT (2-0) : JOURNAL STATION IN PRINTER : CHARACTER PITCH JOURNAL (2-0) : PARAMETER ORDERS : MMU BUFFER SIZE (BYTES) : MMU BUFFER SIZE (WORDS) : NATIONAL CHARACTER VARIATION (0-15) :
0x0acb4c…0acce0 Dummy {f00=0x0036, f01=0x0190, f02=» : NUMBER OF DISC UNITS : READ AFTER WRITE : LOGG FUNCTION FOR INPUT/OUTPUT CHRS : NUMBER OF LOCAL CHANNEL UNITS : 01 LOGG FUNCTION FOR INPUT/OUTPUT CHRS : NUMBER OF LOCAL CHANNEL UNITS : 01 A/ W &P +r & + A,R 8R P &
0x0acce0…0ace74 (0, 219) Dummy {f00=0x0037, f01=0x0190, f02=» @q P 1XW @q T 0 W$ 0 W @s @s @{ @x @s P 1X 0 _ : @,R 4 A4 a4 _t 4R>" :Q [N A, W$ [N A, P , Z6T 5W _B : - R R P @D 5 P @D U P @D U @, D P P P
0x0ace74…0ad008 Dummy {f00=0x0037, f01=0x0190, f02=» P : 4 0Q 0 A) : : _ > @, D / / 1 7 3, @ 7 T # R dR W ! 0| 0~ 0|P( R D D _ 00 D ^ 0| @D :HV. !YYT 1;BV 8W !NNT 0;BV : A2 _ PD !00Z !99Y @
0x0ad008…0ad19c Dummy {f00=0x0037, f01=0x0190, f02=» dR _ _ @, D ! _ 4R [N A/ P T A4. A4- / A4,W@ 4 !SSPZ P T # R dR W ! P P A4, T A4. 4 W A4 3 W A4 4 A4 A4 A4( _ P A/ 4@ E : ! P@ .l @D !SSP& .l !NN .l @,
0x0ad19c…0ad330 Dummy {f00=0x0037, f01=0x0190, f02=» _f TL PH QB A0 A0 A0 D D ( - 0 D R - _ .@ .l @q P 5Z # @s P 5~ # @{ P 5 # @x P 5 # @s P 5 # @s P 6 # P 8 : 64 0 < : A : 3 @` P @
0x0ad330…0ad4c4 Dummy {f00=0x0037, f01=0x0190, f02=» 0 : A2 A2 A2 D ,,P <H .l .l 2 .l A2 @2 P @2 A2 .l X 17P 81P 82T @2 .lW @2 _ @2 _ <C 3L X Q 0 a2 @, A2 X 17T @2 A2 W 9B A2 @2 T A2 _ , @3L 5_ 9
0x0ad4c4…0ad658 Dummy {f00=0x0037, f01=0x0190, f02=»19 062021 072223 322627 332829 353233 363637 373839 384243 394647 EBCDIC LED EBCDIC!!DL 34,65!!DL 75,91!!CH $$EQU X:B$$EQU 0$$ !!CH $$ X:A$$ $$ !!CH $$ X:A$$ $$!!CH $$ X:A$$ $$ LED DVTKB : !!CH $$/2122,/2426,/3B3C,/3E40,/5E5F$$/ ,/
0x0ad658…0ad7ec Dummy {f00=0x0037, f01=0x0190, f02=» 0 : A A A ,,P <H .l .l .l A @ P @ A .l X 17P 81P 82!!CH $$CREDIT EQU 0$$CREDIT EQU 1$$ !!CH $$MMUPAG EQU 0$$MMUPAG EQU 1$$ !!CH $$CPU852 EQU 1$$CPU852 EQU 0$$ !!CH $$ASSOLY EQU 0$$ASSOLY EQU 1$
0x0ad7ec…0ad980 Dummy {f00=0x0037, f01=0x0190, f02=» T 6 : 6 @ KEP A A4 A4 A4( / 0 :DRKB03 LED DRKB03 @ PT 7 4 @(J SP CIT Q 0W @(J A B ( 7F ( 7R 8 :LED DVTOD @` T 7 :DRIC0X @ SP ECP 1P AE :DC : 7| : ( SP MMT
0x0ad980…0adb14 (0, 220) Dummy {f00=0x0037, f01=0x0190, f02=»R U Q P <H9D_( : : 9 5W : 9 @7 A, A, @7 A, : : 9 , ;v v Z P2 ; ; @y P B A; ; 8 @7 A, A, @7 A, @q P" TA A:& @s @s P TM A:P A:V A: T A: @x P TL
0x0adb14…0adca8 Dummy {f00=0x0037, f01=0x0190, f02=»x @yzP TO A:D : :l B : : Z 8 A: A:8 ;X A A4 0 @:2P 1 A4 3 8 A : : 7 0W @(J ( ( L K M - P R O C E S S O R S IMER TPROC MLKM DSEGTABORT MONTIM NTIM SSFM SSFM
0x0adca8…0ade3c Dummy {f00=0x0037, f01=0x0190, f02=»9050051 LED LKMAL P <H9D_(DELAY/DELAY AND ACTIVATION : ABORT FUNCTION : GET/SET TIME : LED LRPINT ; tl :LED TABORTATTACH/DETACH : LED TOSSIO!!CH $$ X:A$$ 1$$ @: A; @: A; @: A; @: A; @:&
0x0ade3c…0adfd0 Dummy {f00=0x0037, f01=0x0190, f02=»P A`V @`ZP A`Z M P E Id 7W DH E Id IX v Z PP 01 7 > `P E A> =vT _@ 7 @Ib Id AIb @62R ML C _h @LnPV AWp @IbP Id ALr ALn Lp E AIY 01 AIZ M T Dh
0x0adfd0…0ae164 Dummy {f00=0x0037, f01=0x0190, f02=» A> (R> [N A> P" (P W T N 7 W > _D W W X B C , D _ L 4P 1 A> @Ib 7 Id 01 7 @L , 7 4 W V T1P G1P TPT, 1 0P 1T W A> / A> @> W A> AIb
0x0ae164…0ae2f8 Dummy {f00=0x0037, f01=0x0190, f02=» D DE = 01 W L @D > R *Pr_ 7 A P^ "T @ . 1T V SIT TF P, LD !,,T2 U, LD LD 9H # A _4 # AL : ?0 @D 7 A : V @D P KB L V MTT 0P C @ I 7 P& @D !,,
0x0ae2f8…0ae48c Dummy {f00=0x0037, f01=0x0190, f02=»P ?0 @D W @D $ @IbP E@ @D _D T :h" P 0R U Q P <H9D_( : ?0 M ?0 ? ?0 @D A 9H @D A A A ?0 V KBT$ bqP brP b6T L @62
0x0ae48c…0ae620 Dummy {f00=0x0037, f01=0x0190, f02=»D !NNP !YY ?0 W : M ?0 V W ?0 Bl ?0 B W : D 0 0R Q ; W : # +0 !99U :d" *0 !99U :H : T TP M T1 NH G1 NH D4 Nn D5 Nn MD N CD N TWP DUP FDT MVW MVW 7 V
0x0ae620…0ae7b4 (0, 221) Dummy {f00=0x0037, f01=0x0190, f02=» 8 : AC4 f Ae$ : @IZ aWp !99R ?0W AIZ : 1R Q : ?0 L "P. @ P , 7 B W AL : T SIT* @ . 1T" 7 @L P @L W 02 W AL : DEFINE TERMINAL DEVICE CLASSES DEFINE ECHO DEVICE CLASSES
0x0ae7b4…0ae948 Dummy {f00=0x0037, f01=0x0190, f02=»JxJ KN J<J<K K FILE CODE : DEVICE ADDRESS : PTS NUMBER : BACKSPACE KEY : CANCEL KEY : END OF RECORD KEY : MULTIPLE ZERO KEY : ECHO DEVICE : KEYBOARD TIME-OUT : CODE CONVERSION : ?<? APA@A@A@A@@R B B LB6BFT1
0x0ae948…0aeadc Dummy {f00=0x0037, f01=0x0190, f02=»
[…0x1…]
0x0aec70…0aee04 Dummy {f00=0x0037, f01=0x0190, f02=» b2c1e1b3b1cBb4b6bqbr bAbBb2c1b3b4b6bqbr cBcQcRcDc c cF 20203000003010909090 000010100010101010 10101000202000 FILE CODE : DEVICE ADDRESS :
0x0aee04…0aef98 Dummy {f00=0x0037, f01=0x0190, f02=»MBER : NUMBER OF LINES : NUMBER OF CHARACTERS/LINE : KEYBOARD FILE CODE : PIN CHARACTER : DISPLAY FILE CODE : FILE CODE JOURNAL : DEVICE ADRESS : FILE CODE DOCUMENT :
0x0aef98…0af12c Dummy {f00=0x0037, f01=0x0190, f02=» LEVEL: ********* : LED DRTW01!!CH $$ X:F$$ / $$ b2c1e1b3b1cBb4b6bqbr bAbBb2c1b3b4b6bqbr cBcQcRcDc c cF M W M( Et $ ! P ) _ :END OF RECORD KEY : TRIPLE ZERO KEY : AE b6 : CO AE : 7 V W V W
0x0af12c…0af2c0 Dummy {f00=0x0037, f01=0x0190, f02=» P W @D AD 0 AD @D : : @q C 7 W V W 0 W V W 2 W V W V W 1 W C 7 V W 0 W V W 1 W C 7 V W V W W : V W : A @z P V AS Id Sd 4 8R @ObV @LpP O Rx O X *0 T1P@
0x0af2c0…0af454 (0, 222) Dummy {f00=0x0037, f01=0x0190, f02=» AV _ / P Q$ AOb T _ ` AO AOb b Ud_ : 8R F_ P _ : AR AR AR Id9a R _ :H 00 00 AR AS R : A16 0 R : X P Id D@ 00 AS X Wf X NT2 @V 90R R V U U
0x0af454…0af5e8 Dummy {f00=0x0037, f01=0x0190, f02=»10T V W X AV X AV V X X W 1 AS$ !99U W 1 AS$ 40 Q W 1 AS$ Q 8 DIT : @V AV P AS& 1 AS$ X 90R V X 90R X Q X AS6 X AS8 S* X ASX X ASZ SL Q O T !99U AS#:h AS% @z P
0x0af5e8…0af77c Dummy {f00=0x0037, f01=0x0190, f02=» U 10 AV _Z @ 0Tf P P " 9U AVb VR P P8 ! " R _ EV P AVL AV} AV~ V8 Vf A :LED DVT Q2Q$Q$Q P P QBQ P Q P Q !!CH $$DVT $$DV $$!!CH $$ECH$$DW $$!!CH $$/1111$$/ 000$$ !!CH $$BCA$$ $$
0x0af77c…0af910 Dummy {f00=0x0037, f01=0x0190, f02=»
0x0af910…0afaa4 Dummy {f00=0x0037, f01=0x0190, f02=» !!DL 07 !!DL 29 DATA 1 !!CH $$2010$$0000$$ !!CH $$DATA /3F4F,/5F6F$$ $$
0x0afaa4…0afc38 Dummy {f00=0x0037, f01=0x0190, f02=»B0 !!CH $$KBAD$$KBAD3$$!!CH $$0 CODE $$CTAB00 CODE $$ Id9a R _ :H 00 AV : 32 @ P" @ P W AWx 16 @ 4P X$ AWzW @ *P @ P W AWx : W~ : T E SWr0000000000 * W
0x0afc38…0afdcc Dummy {f00=0x0037, f01=0x0190, f02=»00 : 4T : 3T 12 : 2T 08 : 1T 04 : 00 : _ a v Z P [ [N 0R _ _ W AY AY > X, D ( H <H% [h V2 ` A[l A[v [h _ A[l A[v _ A[l A[v Zn Y`rW E`P H !,,P
0x0afdcc…0aff60 Dummy {f00=0x0037, f01=0x0190, f02=»s P" @` T @a @y P FD A` W DU A`| 1 A_ Y @a(P @` P Z0 @x Aa @` P$ 2 A_ Z0 @x A 4 Aq Aq Aq Aq @a Ph A . Aq Aq Aq Aq WP _ : Av| u @x Ax Ax A . 01 Ax Av| DW Ax x 8 : @`PP a* a `P ` $R T )
0x0aff60…0b00f4 (0, 223) Dummy {f00=0x0038, f01=0x0190, f02=» ` tl NU A ^ @a Q 00 A ^ A z A @y P 01 A ( : 09HR _ _ : F_ P F_ ^ : Z _ KB KEYBOARD TP TELLER TERMINAL PRINTER GP GENERAL PRINTER DN NUMERIC DISPLAY DI INDICATOR DISPLAY/KEYBOARD LAMPS DY VI
0x0b00f4…0b0288 Dummy {f00=0x0038, f01=0x0190, f02=»OPTICAL DOCUMENT READER T1 TELLER TERMINAL PRINTER (TP71) G1 GENERAL PRINTER AS LOCAL TERMINALS (PTS 8000) SL LOCAL AND REMOTE TERMINALS (PTS 8000) TC TAPE CASSETTE SI SOP INPUT SO SOP OUTPUT MT MAGNETIC TAPE UNIT TW
0x0b0288…0b041c Dummy {f00=0x0038, f01=0x0190, f02=»DGE DISC (80MB) CR CARD READER II INTERTASK COMMUNICATION INPUT IO INTERTASK COMMUNICATION OUTPUT D1 DATA COM DRIVER DRDC07 D2 DATA COM DRIVER DRDC15 D3 DATA COM DRIVER DRDC17 D4 DATA COM DRIVER DRDC81 D5 DATA C
0x0b041c…0b05b0 Dummy {f00=0x0038, f01=0x0190, f02=»RIVER DRDC22 D9 DATA COM DRIVER DRDC13 DEVICE ABBREVIATIONS DEFINE DEVICES : DC-DRIVER1 NAME,USERID : KBTPGPDNDIDYLTRT MSODT1G1ASSL TCSISOMTTWDULPFDMDCDDMCRIIIOD1D2D3D4D5D6D7D8D9
0x0b05b0…0b0744 Dummy {f00=0x0038, f01=0x0190, f02=»VTDY DVTMS DVTOD DVTT1 DVTG1 aX v Z T Aa W az v Z P Aa W Aa :KEYBOARD 6236/71/72 IN SYSTEM : ONLY KEYBOARD 6236/71/72 : @a @y P 01 A A! A" A&8 A& : ` $ ` P DC Aa( : DEVICE LIST (Y/N) :
0x0b0744…0b08d8 Dummy {f00=0x0038, f01=0x0190, f02=» b b < 7 :
0x0b08d8…0b0a6c Dummy {f00=0x0038, f01=0x0190, f02=»
0x0b0a6c…0b0c00 Dummy {f00=0x0038, f01=0x0190, f02=»ECIAL DEVICE-CLASSES FILE CODE FIXED DISC : UNIT NUMBER : FILE CODE CARTRIDGE DISC : FILE CODE : UNIT NUMBER : FILE CODE : INPUT FILE CODE : OUTPUT FILE CODE :
0x0b0c00…0b0d94 (0, 224) Dummy {f00=0x0038, f01=0x0190, f02=» FILE CODE LEFT DISC : DISC UNIT NUMBER : FILE CODE RIGHT DISC : FILE CODE : LINE NUMBER : INPUT FILE CODE : LINE NUMBER : OUTPUT FILE CODE : FILE CODE :
0x0b0d94…0b0f28 Dummy {f00=0x0038, f01=0x0190, f02=» Ahh A` @x P DM A` : L`r P T _ : @ . Al @ 4 Al @z T DW Am^ l @a(P @mH 4 k l md 8Rt X Am` KBT @l T Al CGT @l TL Al G1T @q T< Aq TPT @l T, Al T1T @l T Al UdT m T mL _x X P" mb
0x0b0f28…0b10bc Dummy {f00=0x0038, f01=0x0190, f02=» @s T W l mr l mj @mH 00 Al Am Am m @mH @l k / Am@ 0 T T1P* G1P$ MDP CDP DUP FDP TPP MTT T CGT @l TH Al 0 AmA AmB T nd DV Am@ T AmB @mJ AmD @mH UdT m m. 4^ m Al T T$ @l PT @a(
0x0b10bc…0b1250 Dummy {f00=0x0038, f01=0x0190, f02=»T AmH mJ mr mb mr 00 Al Am Am Am T P AmJ Amb h S Al W Ajs Am_ Ud Al @x @s @s @yz @ Xl $ p l md o l 00 Al Am Am Am l mj m pP m 8 Ud_ :
0x0b1250…0b13e4 Dummy {f00=0x0038, f01=0x0190, f02=» 0715178182 2213 ASM DC:TABLED TCLASS!!IL 11 DATA TC00TC00 DATA TC00E-* TC00E EQU * DATA +1Sd00 EXTRN DV 00!!IL 6!!IL 12 $ !99R % : LPPl MTPf MDP` CDPZ DMPT FDPN DUT PF 02WD D1
0x0b13e4…0b1578 Dummy {f00=0x0038, f01=0x0190, f02=» CDP FDP MTP DUT W X ! P Hl T Il W : AmC AmD m. : 00 Amb @` P n @` P n @` P n @` P n @` P n @` P n @ P q o : 07W 15W @ .W @ 4W 22W 13W Am` mL : @` P o @` P o @` P o @` P o
0x0b1578…0b170c Dummy {f00=0x0038, f01=0x0190, f02=» .W @%B @ 4W Al /0 Am@ AmB nd DW Am@ @l AmB 00 AmD m. : @x @s @s @yzP@ @` Am`P pJ @` Am`P pJ @`| Am`P @ 0P pJ @` Am`P pJ : Amb mL : 01_ @x @s @s @yz @ q @` P> 01 q MD Aq Aq 0 F4 q 1 F5 q 2 F6 q 3 F7
0x0b170c…0b18a0 Dummy {f00=0x0038, f01=0x0190, f02=»q 3 F3 q 01 q 0 F0 q 1 F1 q @` q 01 q FD Aq Aq 0 F8 q 1 F9 q 2 FA q 3 FB q : AmB /0 Am@ nd q : q : DATA DWDU01 Aq Aq : EXTRN DWREMU DATA /015 DATA DWREMU : : P A 4 v : : :w8 w
0x0b18a0…0b1a34 (0, 225) Dummy {f00=0x0038, f01=0x0190, f02=» Iy Iy AwJ Av Az wL A { > X @D 82P UKP 68 0 @D H{ Z< P _ H{ Aa A{ W. A{ Ay W A{ Ay W A{ zh v Z P As M Ay# | v Z P As y| Ax P AS Aw A Ay# { v Z As x v Z P$ Ay @s T x W x
0x0b1a34…0b1bc8 Dummy {f00=0x0038, f01=0x0190, f02=» @x P W A { |Z { { @yzP { @x P A B A{ { 0 v tl WX @s @{ @s @x @q @s P0 t 4R(P 9 T Y T Y t 0 _0 :LED Aw Dv P @w _ A y w y B {" @` P {d
0x0b1bc8…0b1d5c Dummy {f00=0x0038, f01=0x0190, f02=» y @y P y y$ y [N d @r A xp ( x| v Z P W^ > x Pv D ( 1 PH !,, D T$ DW @D T Ax DC @D T Ax @D Ax / 1 S Q Q _T x AZt x 8 W^_ :XV
0x0b1d5c…0b1ef0 Dummy {f00=0x0038, f01=0x0190, f02=»OC MSUBSTTMJOB OINT TASKTOSSIOSYSLDMSYSLDALDTASKDRSW01ST8000 PFTAB LKMAL CTABX TCLASSSCLASSMONTAB @ @s @ @q @s P 4R P 9 T Y T Y 0 _0 :LED A D P DC:TABIN:LT1IN:LT2IN:LT3IN:LT4IN:RT1IN:RT2IN:RT3IN:RT4 S Y S
0x0b1ef0…0b2084 Dummy {f00=0x0038, f01=0x0190, f02=»SYSGEN ENDEDEXTRA MONITOR MODULES : MOV LED DWDC00 DEBUGGER : INC DEBUG,TOSSWORK INC DEBUGM,TOSSWORK KPF /O INC SYSTABINC DEBUG LKE M ASG /02,LP0FSCR CREDIT APPLICATION : DATA MANAGEMENT : FILE MANAGEMENT :
0x0b2084…0b2218 Dummy {f00=0x0038, f01=0x0190, f02=»025026027028029030031032033034035036041042043044045046047048049 052053054055056057058059060061062063064065066067057058059060061 MEMORY MANAGEMENT UNIT : !!DL 20 !!DL 51 @a P P P W W A XW @z P z W @a(X : {| z z : {
0x0b2218…0b23ac Dummy {f00=0x0038, f01=0x0190, f02=»BXX EXTRN ITAD DATA ITAD !!IL 50 LED DSKSUB!!CH $$ X:A$$ 1$$ DSKSUB ****!!IL 19 { :TIODMX 050113101200s s$s s>s>s COMPUTER TYPE : SWAPPABLE WORK BLOCK HANDLING : DISC PAGING : L|0 :0102030405060708091011121314151617181920 @s @{ @s @
0x0b23ac…0b2540 Dummy {f00=0x0038, f01=0x0190, f02=» ~ | ~ , @ AD A A~ ~, @~ AD @~ AD ^ ;a B A~ ~, 0 A , } : A} A ,Wn @`|P A A @ 1T A @` A @` A @` P A A @* 1T A B @
0x0b2540…0b26d4 (0, 226) Dummy {f00=0x0038, f01=0x0190, f02=» @ r! B A~ ~, 0 A tl : : L~ R _ L~ ,0 ) $ ) I : :d B 9C :' d !!CH $$ X:A$$ $$ MAX BLOCK SIZE IN BYTES : MAX NUMBER OF DISC BLOCK BUFFERS : MAX NUMBER OF CURRENCY BUFFERS : MAX NUMBER
0x0b26d4…0b2868 Dummy {f00=0x0038, f01=0x0190, f02=» : LED DMBUF LED DFTAB !!CH $$F0F1,/F2F3$$F0F1$$ !!DL 22 DATA MANAGEMENT PARAMETERS LED DMFDB LED DMTASK!!DL 20 @ r! T A j @ * AD @ , AD B A~ ~, @ AD @ AD C A~ ~, D A~ @~ 9A ~, A A~ : : @ r! B A~ ~, @
0x0b2868…0b29fc Dummy {f00=0x0038, f01=0x0190, f02=» 00 A A A A : : A A @ r 1R @ ~ @ " 9a A~ @ @ : D 0 0R Q ; W : TIODMDMTASKDMINITDMOPCL DMBUF DMFDB DFTABDMSUBXADDMODDSUMODMPYMODDIVMODDMSUBR @yzP &
0x0b29fc…0b2b90 Dummy {f00=0x0038, f01=0x0190, f02=»ILE MANAGEMENT PARAMETERS NUMBER OF FILES FOR ALL TASKS : NUMBER OF FILES/TASK : LED DMOPCLLED FMTASKFMTASK DFTAB @`|P @ 1P @` P @` P @` P @* 1P ' M V M P
0x0b2b90…0b2d24 Dummy {f00=0x0038, f01=0x0190, f02=»01010101000000000101010102020202 DATA /0000,/0000,/0000,/0000,/0000,/0000,/0000,/0000,/0000 /0000 DATA /0000,/0000,/0000,/0000,/0000,/0000,/0000,/0000,/0000,/0000 !!IL 29 !!IL 30 022023024025026027 | @D ?0 !NNPF !YY
0x0b2d24…0b2eb8 Dummy {f00=0x0038, f01=0x0190, f02=» A : !::T <h !00R !77Q @ T( A @IZ A @ I A A : HD !,,T T> W& !00R4 !FFQ. !99U !AAR" P E B J : @ P A | ?0 @ I :LED CTABX 8-BIT SETTING : !!CH $$X$$
0x0b2eb8…0b304c Dummy {f00=0x0038, f01=0x0190, f02=»010101010000 : @x P` v Z Y ( v Z Y V 2 " : @x P :PARTITION LENGTH IN BYTES ( HEXA ) : NUMBER OF PARTITIONS : !!CH $$ X:A$$ / $$ !!CH $$ X:B$$ $$ D 0 !00R !FFQ !99U !AAR -
0x0b304c…0b31e0 Dummy {f00=0x0038, f01=0x0000, f02=»
0x0b31e0…0b3374 (0, 227) Opaque[0x194]
0x0b3374…0b3508 # DirEnt {nam=»SUP60M«, typ=»LM«, f00=0x0000, f01=0x0000, f02=0x0720, f03=0x0000}
0x0b3374…0b3508 IdxSect {
0x0b3374…0b3508 f00 = 0x0039 // 0xb3374 @0x0
0x0b3374…0b3508 f01 = 0x0010 // 0xb3376 @0x2
0x0b3374…0b3508 gno = [ // 0xb3378 @0x4
0x0b3374…0b3508 [0x00]: C0x0039.0x0.0
0x0b3374…0b3508 [0x01]: C0x0039.0x1.0
0x0b3374…0b3508 [0x02]: C0x0039.0x2.0
0x0b3374…0b3508 [0x03]: C0x0039.0x3.0
0x0b3374…0b3508 [0x04]: C0x003a.0x0.0
0x0b3374…0b3508 [0x05]: C0x003a.0x1.0
0x0b3374…0b3508 [0x06]: C0x003a.0x2.0
0x0b3374…0b3508 [0x07]: C0x003a.0x3.0
0x0b3374…0b3508 ]
0x0b3374…0b3508 }
0x0b3508…0b369c Dummy {f00=0x0039, f01=0x0190, f02=»T >Zt R : Z | D )v _ H&2& ' ' ' )
0x0b369c…0b3830 Dummy {f00=0x0039, f01=0x0190, f02=»
0x0b3830…0b39c4 Dummy {f00=0x0039, f01=0x0190, f02=» T $ r > 22V4" C6 !&" ? > 2V BTRY= AS>(AB? & TY J) V jLP + r DK J DK 8 J
0x0b39c4…0b3b58 Dummy {f00=0x0039, f01=0x0190, f02=» r * ? ? ? ? ? ? ? , Z f Z f D Z f
0x0b3b58…0b3cec Dummy {f00=0x0039, f01=0x0190, f02=» ? ? ? ? ? ? ? Qj ? ? ? ? ? ? ? Qj ? ? ? ? ? ? ? ^ Qj ? ? ? ? ? ? ? Qj V t r r r r 0
0x0b3cec…0b3e80 Dummy {f00=0x0039, f01=0x0190, f02=» 6 6 6 6 6
0x0b3e80…0b4014 (0, 228) Dummy {f00=0x0039, f01=0x0190, f02=» 6 6 6 h
0x0b4014…0b41a8 Dummy {f00=0x0039, f01=0x0190, f02=»
[…0x4…]
0x0b47f8…0b498c Dummy {f00=0x0039, f01=0x0190, f02=» ~
0x0b498c…0b4b20 Dummy {f00=0x0039, f01=0x0190, f02=»
[…0x1…]
0x0b4cb4…0b4e48 Dummy {f00=0x0039, f01=0x0190, f02=» X
0x0b4e48…0b4fdc Dummy {f00=0x0039, f01=0x0190, f02=»
[…0x3…]
0x0b5498…0b562c Dummy {f00=0x0039, f01=0x0190, f02=» @
0x0b562c…0b57c0 Dummy {f00=0x0039, f01=0x0190, f02=» _ ? ? ? ? ? ? ? A R2 @ A A R$ A A R A A R A @ > > > > > > > > ? ? ? ? ? ? ? U ^ ( H ( P ? _ Q 4&? ?R _ 5 H _ ^ ;j >P @ * Q 9A D *P _ P A
0x0b57c0…0b5954 (0, 230) Dummy {f00=0x0039, f01=0x0190, f02=» E > > a @ E @ ? ? > P P Q P ! P @ @ @ P W $ < A @ 9a:a R0 & Q Q" ?A <P @ ! " _ $ _ _ 0 ! A T @ W @ R (P& P
0x0b5954…0b5ae8 Dummy {f00=0x0039, f01=0x0190, f02=» E $ @ ;a=a R @ =a V ;A , P = - - _F @! L ? 0 A @ PR 0=a @ ?a RX @ ?a VN=A 0 ( P>P< , T T 1W 1W T )W )W ( , _ C $ _ 5 H A" A" A" A" A" A" A# A" " # D
0x0b5ae8…0b5c7c Dummy {f00=0x0039, f01=0x0190, f02=» @" _ A" A" A" A" A" A" B A# A" B :a Y B R A" _ @" # W4 @" A" ,Xp _ < @ A# A# A# A# A# A# A# # =a @ >a V _ @ >a Y A# A# 4 T # ( "^ 5 U P" @
0x0b5c7c…0b5e10 Dummy {f00=0x0039, f01=0x0190, f02=» A A ^ 9j =Q > > > > > > > > P @ !@ &" @ P @ X0 , &" A _< U` A% @ , L ? ? , L L L L L L ? ? ? ? ? ? ? @ Px @ > > > > > > > ; [ [ [ [ [ [
0x0b5e10…0b5fa4 Dummy {f00=0x0039, f01=0x0190, f02=»_ T PT PJV P>V SH? V :!9 V @ P R W ;A [ [ : _4 Pj T Pf V Q UF V Ud Q4P P 9A?A:AV R Z _ P*R R P ;A [ [
0x0b5fa4…0b6138 Dummy {f00=0x0039, f01=0x0190, f02=» Q S W S Q R S P W S _ R _ ;A [ [ : # P| ' PL (T ; R <a V 9A:A ; V ; V V W V < V < V H T P R ;H [ [ : _ T P ; R4 < S ( _ _ W < R $ <A
0x0b6138…0b62cc Dummy {f00=0x0039, f01=0x0190, f02=»; RJ P 0 9 T ^ T V T Z U x : R Q ;H [ [ : _J ? ? ? ? ? ? ? Q _ ^ ( H F ) W *x W * X I I R P8 X C P C$T Y Y W x Y Y $ 0T W W /X X ? ? ? ? ? ? ? **
0x0b62cc…0b6460 Dummy {f00=0x0039, f01=0x0190, f02=» 0 ? ? ? ? ? ? ? * 0 ? ? ? ? ? ? ? * 0 (@_~ . X R Y _ X D $! TR ? ? ? ? ? ? ? + 1 8 M ? ? ? ? ? ? ? +8 0 % > > > > > > > > ? ? ? ? ? ? ? +d 1 P X 0 0 +| - 8 TRT X . - $ <A
0x0b6460…0b65f4 (0, 231) Dummy {f00=0x003a, f01=0x0190, f02=» 0 X C P C$T" Y 0 Y Y X Q Y _ X X X U 5 X E _ X 4 Y 5 X 4 Y ! 1P, 0P +P Q Q W W Q Q R P Q 5 Y + ? ? ? ? ? ? ? , 1 Qv , - " PF X Q< X P P ? ? ? ? ? ?
0x0b65f4…0b6788 Dummy {f00=0x003a, f01=0x0190, f02=» ? ? - 0 Y Y X X T ? ? ? ? ? ? ? - 0 > > > > > > > > ? @ ? > X B A- B (@ $ X X W W $ # C C P L L m A , DKP L X X L ! X L P L @ _ C C # $ _R _
0x0b6788…0b691c Dummy {f00=0x003a, f01=0x0190, f02=» % Y X R X . ! X Y T T Y Y Y Y Y U U X @ _ X X X X P/x/ / 0*/ P $ Y Y Y Y > - Y 8 TPP" X R 8 TYX WH H/ Y _8 X X: X R X ( _$ _* $ XtRX P Y _
0x0b691c…0b6ab0 Dummy {f00=0x003a, f01=0x0190, f02=» Y Z(P A0 ZrP Y _8 _< _@ ! - X M A0 T Rf - X X B A0 P X $ /X_" B W B W A W I W J X %?W X %? A1. A12 > > > > > > > 10 V <a W X ' ?A q A1 > > > > >
0x0b6ab0…0b6c44 Dummy {f00=0x003a, f01=0x0190, f02=» L % T< L P4 M ^ L X 4 _ ? ? ? ? ? ? ? L W L R % _R ^ 1 A M " L '? L U "T 9 WP T 9 WF T 9 2 3X2 2 3X3X2 2 2 2 3X2 2 5n W* 6 W" 5n W 8 L :AR| M W M M 4
0x0b6c44…0b6dd8 Dummy {f00=0x003a, f01=0x0190, f02=»: L P L 9JR@ P P T : 5 U P T Q P P W Q P T@(@ L D " Q L Q Q L Q L ( L ! TNW P T P P W Q L ' 0 P p Y "(@ P P $ M 3j P ( M P Q P P P W P
0x0b6dd8…0b6f6c Dummy {f00=0x003a, f01=0x0190, f02=» % ] M (@ L 2 :x T 2R Q @ 2] : > 9C 9C > ^ U 2(@ L T U U U M L M L M M L 4 3j L :x ! :c:A :x L T V P T"W L >F :x L & :x 5n M 4 4 M L M L " P M 5 3j M
0x0b6f6c…0b7100 Dummy {f00=0x003a, f01=0x0190, f02=»! P L ! XfWn L M L M M 6 3j L :c:A L D V D M L ! T*_ L < :x< R M M "W 6 M 4 4 L E M L "! :x L 2 L T L P L D Q 7 M 2 5 L L $:BV W $:AV M " M :b L L $ M 0 D L
0x0b7100…0b7294 (0, 232) Dummy {f00=0x003a, f01=0x0190, f02=» (U L ( L L R $ 9 _ R $ 9 M , L M M M M M ( M ( M 0 M 0 L D L Z L L *R L * L P( ' P 5 R 5 _ T 5 M , M L L , U : L :x L U 8 M 2 5 L M $ L M & L L I P0% P L
0x0b7294…0b7428 Dummy {f00=0x003a, f01=0x0190, f02=»_ M M L . P M . 9 M 2 5 L U 9 M 2 5 L L L & ) L $ I L M L L U M : @ M L M M M W L :x @ M M ( L P0W" M L :x @ M ( L U :& M 2 5 L L ( E L % E L E L E
0x0b7428…0b75bc Dummy {f00=0x003a, f01=0x0190, f02=» U L ( L L ? ? ? ? ? ? ? A A @ 4 R W 7 A Q ; ; ; ; ; @ : 5 ; ( "^ ; ( "^ 5 < $ @< b 4T W b b H bP H d _ A; ; A@ 5 T6 @@ P @ ; ; ; ; ; @@ A@ A; $ 5 4 X
0x0b75bc…0b7750 Dummy {f00=0x003a, f01=0x0190, f02=»_ M M L . P M . 9 M 2 T < 0P < Y _ 1 X 1 < < W8 < < X W* 8 A< T A= = (@( - - : 0 :R - Y PU,DNXX,STAT,RY < U 5 Af ? ; < 1P < Y _ @< RDP A
0x0b7750…0b78e4 Dummy {f00=0x003a, f01=0x0190, f02=» 0!? LT W 1 Q TKP MTT Y P ; Y (@ ; P Q 1 ; . X X ? ? ? ? ? ? ? >& 14_ 5 Af ; @ Q P P T Z ; W P ; $>H $ NOT W0 Af @ p ! $ rT tP Y ; C r C R
0x0b78e4…0b7a78 Dummy {f00=0x003a, f01=0x0190, f02=»@ P$ @? = ^ ] ] @? _ A@ $ ? > A _ = A 0 9U A> > T > ( "^ ? = A @ A @ !? A @ _* 5 @@ ; @ A ; 0 A A@ A@ @ ( "^ @ A $ < )v A ~(@ A
0x0b7a78…0b7c0c Dummy {f00=0x003a, f01=0x0190, f02=» Y Y Y P ABR ( Qh Q P( @ @ @ @ Y Y Y Y " A "; V W # @ A A@ @ ? ? > Q @ ? ? ? ? ? ? ? AX ? P6 $ R, Z R R Q $ :D P $ R ^& : ; R
0x0b7c0c…0b7da0 Dummy {f00=0x003a, f01=0x0190, f02=» @A @A @A @A @A @A A ? ? ? ? ? ? ? A $ < A B @ 9a:a R @ @BR @ ! #J ! C "! PX @ Q P VF_ P RN;AR P P4 0 P P C C C LPT P P C # $ C _: DL P H C _ P X( DD _Z :E
0x0b7da0…0b7f34 (0, 233) Dummy {f00=0x003a, f01=0x0190, f02=» D I I "R (@(@ ^ :j >Z ^ @ P _ A M (@ M M M B B M M # C C @ _ "ZN(@(@ ^ :j >Z _ m (@ M M 8 DKT X X T X M W M W y Y Y Y # C
0x0b7f34…0b80c8 Dummy {f00=0x003a, f01=0x0190, f02=» /P :P ;P <P =P >P ?P 1 C* 8 C*Wv EJW C$W EVW C W W ElW Wx 8 MTPp DYPj X T Y $ WZ E WX $ # T $ T Y B W0 %@ R b " Y Y Y Y Y $ X _0 8 TCX< TKXB MTXH DYXN ^
0x0b80c8…0b825c Dummy {f00=0x003a, f01=0x0190, f02=»% XT <A P X^<a P @ p @ $ XP $^ ? AI AI AI AI AI AI AI I > > > > > > > aI @I E E E E E E I > > aI @I E @I @I @I @I @I @I @I I Q (@ T W@ &_T@ H P
0x0b825c…0b83f0 Dummy {f00=0x003a, f01=0x0190, f02=»W. X P X ` `T 8 P X 8 T T ^ T "<A U U ^ T x U Z T X T Z ? ? U X: V: T T ^ T ` T b T f T h j l n p r t v T d >" HI AI T T ^ T ` T b T f T h j l n p r t v T d AI > ?f' _ 8
0x0b83f0…0b8584 Dummy {f00=0x003a, f01=0x0190, f02=»% XT <A P X^<a P @ p @ $ XP $^ ? A A A A A A A > > > > > > > a @ E E E E E E > > a @ E @ @ @ @ @ @ @ Q (@ T W &_T H P
0x0b8584…0b8718 Dummy {f00=0x003a, f01=0x0190, f02=» L LR X P P P P . B . @J P M L 0 AJ I0 !K B !L X X ! P L y !LtW !L L x P !L0 M Q W ! P M L ZZ LR B Y K AJ 1 - B :e L P !L0 M Q !Lf B !L !L L x P2 x X$ M L
0x0b8718…0b88ac Dummy {f00=0x003a, f01=0x0190, f02=»T" K L :C* WL WH:a L ! 9A r X L :B* W":a L ! 9A r X L :B L !? B M AI2 L 0 I0 M Y B AI$ I4 Y X P P P P P P8 K !Q AI B T B @I4 ) @I6 I @I8 I K 4 B AI ! T h AI" M !
0x0b88ac…0b8a40 Dummy {f00=0x003a, f01=0x0190, f02=» T$ B S @I T !Q @Id AI ! P W K B <b :b ^ AI AI AI R>P AI AI !O| AI"W& !O| AI"R !O| W !O| AI"P AI"V !O| !O| _ P& AI"R Ql !O| Wb !O| !O| WP !O| !O| W> B <e
0x0b8a40…0b8bd4 (0, 234) Dummy {f00=0x003a, f01=0x0190, f02=» @I ! P W Y AI" & B Y K @I :e L Pv !L0 M Q !Lf !Q, @I ! P L PP !L " T" L @I4P<W !L " T L @J P$ M L Q !Lp_Z M Q K T X $ P@ D R: P @I ! P !P T D $ !QT @I ! T L AJ !P W !P T D R@
0x0b8bd4…0b8d68 Dummy {f00=0x003a, f01=0x0190, f02=» M L Z2 K 4 !Q" @I ! P !L " T W( !L " P M L 6 K @J L 4 @I L " P $ M 4 @I$ I4 ( = Y 4 @I$ I4 < ) Y 4 X ! J $ <b! L !? P L ! _ @I2 L T !L0 L 9AV$ !L0 M Q A @ M
0x0b8d68…0b8efc Dummy {f00=0x003a, f01=0x0190, f02=» !LtW !Lt" P M L ZJ K 4 @ _ X X X X $ PR R R S S % P Y Y Y >% X P Y _" P" P& R| ^T Y _D _T X _ X _ X" X& T: X P4 0' P. 1R P _ 0$ XT % X` Z _f % _n
0x0b8efc…0b9090 Dummy {f00=0x003a, f01=0x0190, f02=» P V % P Y X XT Q _ R Q R 0DKER UNIT CYLD STAT S T* - T T4W2 T TB X W$ T TN W T ( X = 0 :R # Y ; ; ? 0 :R 9 Y 9 9 : : :
0x0b9090…0b9224 Dummy {f00=0x003a, f01=0x0190, f02=» D D E E ] @ E @ Ur ? ? > ? ? ? ? ? ? ? X C ( "^ @X V U T " P " P @X W C "& # ( "^ | A @X @X @X @X <h @X % @X @X X X f [ [ [ [ [ [ [
0x0b9224…0b93b8 Dummy {f00=0x003a, f01=0x0190, f02=» > > >WZ | A ^ T " T0 ! P W SY SD AD _ ! P _, J _2 X # C ( "^ P X X X X CCT I T P Q _, AX _V LM X A $ AX X L 9 !? AW AW AW AW AW AW J AW
0x0b93b8…0b954c Dummy {f00=0x003a, f01=0x0190, f02=» T A A A @ ~ Xj A ~ @Xr A ~ @ Zh( : A A "^ @ (@_0 $ ( , 0 4 8 < X T " P " P @ W C "& # ( "^ | A @ @ @ @ <h @ % @ @ f [ [ [ [ [ [ [
0x0b954c…0b96e0 Dummy {f00=0x003a, f01=0x0190, f02=» > > >W | A ^ T " T ! P W SY SD AD _ ! P _, J _2 # C ( "^ P CCT I T DOS - PTS 6000 REL. 10.01 80-09-29 Z< , L 9 !? AW AW AW AW AW AW J AW
0x0b96e0…0b9874 (0, 235) Opaque[0x194]
0x0b9874…0b9a08 # DirEnt {nam=»READFL«, typ=»LM«, f00=0x0000, f01=0x0000, f02=0x0760, f03=0x0000}
0x0b9874…0b9a08 IdxSect {
0x0b9874…0b9a08 f00 = 0x003b // 0xb9874 @0x0
0x0b9874…0b9a08 f01 = 0x0002 // 0xb9876 @0x2
0x0b9874…0b9a08 gno = [ // 0xb9878 @0x4
0x0b9874…0b9a08 [0x00]: C0x003b.0x0.0
0x0b9874…0b9a08 ]
0x0b9874…0b9a08 }
0x0b9a08…0b9b9c Dummy {f00=0x003b, f01=0x0190, f02=» f f f B $ ? T f_8 FD L $:h 1ZX 4Y^" $ # B B - C ( B P A A Wb B L L :ET OFP, B C ( B Xx A A W B
0x0b9b9c…0b9d30 Dummy {f00=0x003b, f01=0x0190, f02=» 9 $ Y :0123456789ABCDEFL / y N Dl m < 0Z sL a [ ? d `% L % "~ T &b ?Cn 1 d l X% l zB :x F^ bvvm : r ` ^* D3^H P D' >~ `" f >~ $' d p 4d @~ >
0x0b9d30…0b9ec4 Dummy {f00=0x003b, f01=0x0190, f02=» 0 0FD1 FD2 FD3 OR FD4 B $ ? T _8 FD L $:h 1ZX 4Y^" $ # B B - C ( B P A A W B L L :ET OFP B C ( B Xx A A W B
0x0b9ec4…0ba058 Dummy {f00=0x003b, f01=0x0190, f02=» " P # POPNU LDKL A5,UREGS # P # * P # 2 ( PREGS LDR A2,A2 CHECK IF REG NO GIVEN # : ( P RF(Z) REGS20 NO PRINT ALL REISTERS # f " PREGS05 LDR A7,A1 SAVE REG TYPE # P LD A6,ARG2+2 GET REG NO # P # PREGS10 ANK A6,/F # " P LDR A4,A5 CALC
0x0ba058…0ba1ec Dummy {f00=0x003b, f01=0x0190, f02=» CWK A5,QREGS # P RF(NE) REGS15 $ P ST A5,QRSWI $ , P LD A3,QREGSM-QREGS,A4 $ @ P RF(Z) REGS15 $ ^ P CF A8,PRCOL PRINT ADDR MODE $ t P LDR A1,A3 $ P CF A8,PRCHAR $ & PREGS15 CF A8,GETNSA GET NEW VALUE $ P RB OPEN30 @ INDIRECT $ P
0x0ba1ec…0ba380 Dummy {f00=0x003b, f01=0x0190, f02=»1,A7 $ P CF A8,PRCHAR % P RB REGS10 % " P % 4 P % < ( PREGS20 LDK A3,2 PRINT ALL REGISTERS % D P % p PREGS30 LDR A4,A5 % x P CM ADDRMD % PREGS40 CF A8,PRCRLF % P CF A8,PR8WDS % P SUK A3,1 % P RB(NZ) REGS40 % P ABL RDCOM %
0x0ba380…0bb020 (1, 0) DirGranule ((1, 0)) {
0x0ba380…0bb020 DirEnt {nam=»DEN10 «, typ=» «, f00=0x0000, f01=0x0000, f02=0x0768, f03=0x0000}
0x0ba380…0bb020 DirEnt {nam=»DE70ST«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x07f8, f03=0x0000}
0x0ba380…0bb020 DirEnt {nam=»DELINK«, typ=»LM«, f00=0x0000, f01=0x0000, f02=0x15d0, f03=0x0000}
0x0ba380…0bb020 DirEnt {nam=»DEUNPF«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0858, f03=0x0000}
0x0ba380…0bb020 DirEnt {nam=»DECOMP«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0888, f03=0x0000}
0x0ba380…0bb020 DirEnt {nam=»/OBJCT«, typ=»OB«, f00=0x0000, f01=0x0000, f02=0x0890, f03=0x0000}
0x0ba380…0bb020 DirEnt {nam=»OBDIR «, typ=»UF«, f00=0x0000, f01=0x0000, f02=0x3020, f03=0x0000}
0x0ba380…0bb020 DirEnt {nam=»PTSDE «, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0c30, f03=0x0000}
0x0ba380…0bb020 DirEnt {nam=»DE10ST«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0c58, f03=0x0000}
0x0ba380…0bb020 DirEnt {nam=»DE11ST«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0c68, f03=0x0000}
0x0ba380…0bb020 DirEnt {nam=»DE30ST«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0c70, f03=0x0000}
0x0ba380…0bb020 DirEnt {nam=»DE40ST«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0c80, f03=0x0000}
0x0ba380…0bb020 DirEnt {nam=»DE20ST«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0c98, f03=0x0000}
0x0ba380…0bb020 DirEnt {nam=»DEDDIV«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0ef8, f03=0x0000}
0x0ba380…0bb020 DirEnt {nam=»DLINK «, typ=»LM«, f00=0x0000, f01=0x0000, f02=0x0cf8, f03=0x0000}
0x0ba380…0bb020 DirEnt {nam=»M:PROC«, typ=»UF«, f00=0x0000, f01=0x0000, f02=0x0db8, f03=0x0000}
0x0ba380…0bb020 DirEnt {nam=»CDVRUT«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x2e70, f03=0x0000}
0x0ba380…0bb020 DirEnt {nam=»DE50ST«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0dd8, f03=0x0000}
0x0ba380…0bb020 DirEnt {nam=»DE31ST«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0e00, f03=0x0000}
0x0ba380…0bb020 DirEnt {nam=»DE14ST«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0e20, f03=0x0000}
0x0ba380…0bb020 DirEnt {nam=»DEACCU«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0e30, f03=0x0000}
0x0ba380…0bb020 DirEnt {nam=»DE60ST«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0e50, f03=0x0000}
0x0ba380…0bb020 DirEnt {nam=»DE80ST«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0e68, f03=0x0000}
0x0ba380…0bb020 DirEnt {nam=»DELITT«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0e78, f03=0x0000}
0x0ba380…0bb020 DirEnt {nam=»ASSRUT«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0e88, f03=0x0000}
0x0ba380…0bb020 DirEnt {nam=»DENTER«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x1118, f03=0x0000}
0x0ba380…0bb020 DirEnt {nam=»DERROR«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0f18, f03=0x0000}
0x0ba380…0bb020 DirEnt {nam=»DEKEYS«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0f38, f03=0x0000}
0x0ba380…0bb020 DirEnt {nam=»DEFDSC«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0f40, f03=0x0000}
0x0ba380…0bb020 DirEnt {nam=»DE24ST«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0f80, f03=0x0000}
0x0ba380…0bb020 DirEnt {nam=»DEPOOL«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0f90, f03=0x0000}
0x0ba380…0bb020 DirEnt {nam=»CDVASM«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0fd0, f03=0x0000}
0x0ba380…0bb020 DirEnt {nam=»DE21ST«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0fe0, f03=0x0000}
0x0ba380…0bb020 DirEnt {nam=»DE12ST«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x1008, f03=0x0000}
0x0ba380…0bb020 DirEnt {nam=»DE15ST«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x1018, f03=0x0000}
0x0ba380…0bb020 DirEnt {nam=»DE23ST«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x1028, f03=0x0000}
0x0ba380…0bb020 DirEnt {nam=»DEGENE«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x1048, f03=0x0000}
0x0ba380…0bb020 DirEnt {nam=»DEVGAC«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x1068, f03=0x0000}
0x0ba380…0bb020 DirEnt {nam=»DERECS«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x1098, f03=0x0000}
0x0ba380…0bb020 DirEnt {nam=»DECONV«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x1528, f03=0x0000}
0x0ba380…0bb020 DirEnt {nam=»DEDISC«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x1128, f03=0x0000}
0x0ba380…0bb020 DirEnt {nam=»DKRUT1«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x1138, f03=0x0000}
0x0ba380…0bb020 DirEnt {nam=»DKRUT2«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x1160, f03=0x0000}
0x0ba380…0bb020 DirEnt {nam=»DKRUT3«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x1188, f03=0x0000}
0x0ba380…0bb020 DirEnt {nam=»DE20FS«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x11a8, f03=0x0000}
0x0ba380…0bb020 DirEnt {nam=»DEDICO«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x11e0, f03=0x0000}
0x0ba380…0bb020 DirEnt {nam=»DKRUT4«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x11f8, f03=0x0000}
0x0ba380…0bb020 DirEnt {nam=»DE16ST«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x1218, f03=0x0000}
0x0ba380…0bb020 DirEnt {nam=»DELOCK«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x1228, f03=0x0000}
0x0ba380…0bb020 DirEnt {nam=»DATCHK«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x1238, f03=0x0000}
0x0ba380…0bb020 DirEnt {nam=»DENT01«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0bf8, f03=0x0000}
0x0ba380…0bb020 DirEnt {nam=»CONV «, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x1280, f03=0x0000}
0x0ba380…0bb020 DirEnt {nam=»DENT03«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x1290, f03=0x0000}
0x0ba380…0bb020 DirEnt {nam=»DEAPPU«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x12a0, f03=0x0000}
0x0ba380…0bb020 DirEnt {nam=»DEPRFG«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x12a8, f03=0x0000}
0x0ba380…0bb020 DirEnt {nam=»DECVRT«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x12d0, f03=0x0000}
0x0ba380…0bb020 DirEnt {nam=»DENVAL«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x1300, f03=0x0000}
0x0ba380…0bb020 DirEnt {nam=»DEREC2«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x1338, f03=0x0000}
0x0ba380…0bb020 DirEnt {nam=»DENT02«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x1360, f03=0x0000}
0x0ba380…0bb020 DirEnt {nam=»DEPROC«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x1388, f03=0x0000}
0x0ba380…0bb020 DirEnt {nam=»DATUM «, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x13c0, f03=0x0000}
0x0ba380…0bb020 DirEnt {nam=»DE1201«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x13d0, f03=0x0000}
0x0ba380…0bb020 DirEnt {nam=»DEATTF«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x13f0, f03=0x0000}
0x0ba380…0bb020 DirEnt {nam=»DESTAT«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x1408, f03=0x0000}
0x0ba380…0bb020 DirEnt {nam=»DE90ST«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x1410, f03=0x0000}
0x0ba380…0bb020 DirEnt {nam=»TRALL «, typ=»UF«, f00=0x0000, f01=0x0000, f02=0x1418, f03=0x0000}
0x0ba380…0bb020 DirEnt {nam=»DEATNY«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x1420, f03=0x0000}
0x0ba380…0bb020 DirEnt {nam=»DCTASK«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x1438, f03=0x0000}
0x0ba380…0bb020 DirEnt {nam=»FDIO «, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x1440, f03=0x0000}
0x0ba380…0bb020 DirEnt {nam=»LIST «, typ=»UF«, f00=0x0000, f01=0x0000, f02=0x2038, f03=0x0000}
0x0ba380…0bb020 DirEnt {nam=»DEDSHB«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x2990, f03=0x0000}
0x0ba380…0bb020 DirEnt {nam=»DELINK«, typ=»UF«, f00=0x0000, f01=0x0000, f02=0x0f00, f03=0x0000}
0x0ba380…0bb020 DirEnt {nam=»DKCONV«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x07e8, f03=0x0000}
0x0ba380…0bb020 DirEnt {nam=»DELBUG«, typ=»UF«, f00=0x0000, f01=0x0000, f02=0x15c8, f03=0x0000}
0x0ba380…0bb020 DirEnt {nam=»DELBUG«, typ=»LM«, f00=0x0000, f01=0x0000, f02=0x2d58, f03=0x0000}
0x0ba380…0bb020 DirEnt {nam=»TEST «, typ=»UF«, f00=0x0000, f01=0x0000, f02=0x07a8, f03=0x0000}
0x0ba380…0bb020 DirEnt {nam=»DEPROD«, typ=»LM«, f00=0x0000, f01=0x0000, f02=0x2f38, f03=0x0000}
0x0ba380…0bb020 DirEnt {nam=»NJLINK«, typ=»UF«, f00=0x0000, f01=0x0000, f02=0x07c0, f03=0x0000}
0x0ba380…0bb020 DirEnt {nam=»NYCONV«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0770, f03=0x0000}
0x0ba380…0bb020 DirEnt {nam=»NJ «, typ=»UF«, f00=0x0000, f01=0x0000, f02=0x0ef0, f03=0x0000}
0x0ba380…0bb020 DirEnt {nam=»EVCONV«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x07a0, f03=0x0000}
0x0ba380…0bb020 }
0x0bb020…0bb1b4 (1, 1) Opaque[0x194]
0x0bb1b4…0bb348 # DirEnt {nam=»DE70ST«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x07f8, f03=0x0000}
0x0bb1b4…0bb348 IdxSect {
0x0bb1b4…0bb348 f00 = 0x003f // 0xbb1b4 @0x0
0x0bb1b4…0bb348 f01 = 0x000a // 0xbb1b6 @0x2
0x0bb1b4…0bb348 gno = [ // 0xbb1b8 @0x4
0x0bb1b4…0bb348 [0x00]: C0x003f.0x3.0
0x0bb1b4…0bb348 [0x01]: C0x0040.0x0.0
0x0bb1b4…0bb348 [0x02]: C0x0040.0x1.0
0x0bb1b4…0bb348 [0x03]: C0x0040.0x2.0
0x0bb1b4…0bb348 [0x04]: C0x0040.0x3.0
0x0bb1b4…0bb348 ]
0x0bb1b4…0bb348 }
0x0bb348…0bb4dc Dummy {f00=0x003f, f01=0x0190, f02=» $ P IDENT DE70ST REL 10.0 80-12-17 P UPD 80-11-18/DALI , P UPD 80-03-24/DALI H P DDUM DEDDIV d P PDIV x P ENTRY DE70ST P ENTRY DEAP7A P* * P* EXTERNAL REFERENCES TO SCREEN P* P EXT DECLRA P
0x0bb4dc…0bb670 Dummy {f00=0x003f, f01=0x018e, f02=» & P EXT DECONV USER OR STANDARDCODED P CONVERSION ROUTINE . & P EXT DELAST WRITE AND READ ON LAST L P ROW OF DISPLAY. v ( P EXT DERROR WRITE AND READ A KEY ON P LAST ROW OF THE DISPLAY P EXT DEOPBC OPEN BATCH P EXT DEPOOL
0x0bb670…0bb804 Dummy {f00=0x003f, f01=0x0190, f02=» P EXT DEDISC FILE HANDLING P* & P EXT RESTOR RESTOR WORKBLOCK 0 P AND DESCRIPTORADRESSES T P EXT EMPTYT v P EXT UPDBOL P EXT UPDBIN P EXT GETIND $ P EXT DEANOK NOT OK RET FROM APPL P EXT DEAOK0 OK RET FROM AP
0x0bb804…0bb998 Dummy {f00=0x003f, f01=0x0190, f02=»STSAVE(W3) HOLDING THE DEVICE-TYPE . P* STSAVE(W4) HOLDING THE FILE-NAME 2 P* d ( P* PERF DECONV,<FC1>,<FC2>,<RETCODE> n P* ( P* <FC1> = 1 TRANSMIT & P* = 2 RECEIVE . P*
0x0bb998…0bbb2c Dummy {f00=0x003f, f01=0x0190, f02=» 2 P* = 3 DATARECORD ATTACHED 0 P* = 4 BALANCE ATTACHED : 0 P* = 5 CLOSE CONVERSION n 2 P* <RETCODE> = 0 NO ERRORS DETECTED . P* /= 0 ERROR DETECTED 2
0x0bbb2c…0bbcc0 Dummy {f00=0x003f, f01=0x0190, f02=» =-2 MAKE BALANCE CURRENT @ P* =-3 GET CURRENT BATCH FROM BEGINNING , 6 P* =-4 RETURN FROM CONVERSION p 4 P* =-5 DELETE CURRENT BATCH 8 P* =-6 GET CURRENR
0x0bbcc0…0bbe54 (1, 2) Dummy {f00=0x0040, f01=0x0190, f02=»* P EJECT 2 P********************************************* 0 P* START OF CONVERSION. HANDLE PRORAMSCREEN- N $ P* LAYOUTS 70,71 CONVERSION MODE. , P* THESE ROUTINES USE THE DENTER-SCREEN. 2 P*********************************************
0x0bbe54…0bbfe8 Dummy {f00=0x0040, f01=0x018e, f02=»00 & P SET BOOL1 PART OF FORMAT DISPLAY PDEST10 4 $ P TBT BOOL2,DEST20 JUMP IF NOT 70 B P ATTFMT F70ST j P B DEST30 PDEST20 P IB BIN2,DEST21,DEST22 PDEST21 PROGRAM 71 P ATTFMT F71ST P B DEST30 PDEST22
0x0bbfe8…0bc17c Dummy {f00=0x0040, f01=0x0190, f02=» P TBT BOOL2,DEST55 P PERF DECLRA P B DEST60 2 PDEST55 D P PERF DECLRS R PDEST60 f 0 P IB DEBINW2,DE70CA,DE70RE,DE70EN CAN,RET,ENT t P MOVE DEBINW4,W0 PDE70ER P CLEAR DOOL3 P BNZ D70ER2 P MOVE BIN3,DEBINW4
0x0bc17c…0bc310 Dummy {f00=0x0040, f01=0x0190, f02=» | P* PDE70CA P CLEAR DEPROMPT P B DEST50 8 P* J P* RETURN-KEY PRESSED T P* p PDE70RE z * P CLEAR DOOL3 DATAENTERING ON USERFILE P PERF OPCL,W4 CLOSE USERFILE P BNERR DERE20 P MOVE DEBINW1,W0 P
0x0bc310…0bc4a4 Dummy {f00=0x0040, f01=0x0190, f02=»TURN FROM THIS MODE P MOVE BIN1,W0 PDERE30 2 P RET @ PDERE50 L " P CLEAR BOOL2 CHANGE TO FRMT 70 Z P CLEAR BOOL1 P MOVE BIN1,W7 P MUL BIN1,W10 P MOVE PRNUM,BIN1 PDERE55 P PERF DEPRUT,PRNUM,BIN1,BIN2
0x0bc4a4…0bc638 Dummy {f00=0x0040, f01=0x0190, f02=» MODE l * P* THESE ROUTINES USE THE DENTER-SCREEN * P************************************** < P* j P* ENTER-KEY PRESSED t P* PDE70EN P TBT BOOL2,DEOPEN PDEEN10 P CBNE BIN1,W7,DERE30 P CLEAR BOOL3 PROGRAM 72
0x0bc638…0bc7cc Dummy {f00=0x0040, f01=0x0190, f02=»OOL1 PART OF FORMAT P B DEST20 PDEOPEN . " P IB BIN2,DE71ST,DE72ST,DE73ST < P EJECT b PDE71ST START OF DATACOMM p PDE72ST * P MOVE WORK(W8),W0 USED FOR CHECKING OF P PART CONVERSION. P 0 = THE WHOLE USERFILE
0x0bc7cc…0bc960 Dummy {f00=0x0040, f01=0x0190, f02=»OBNAME P MOVE WORK(W8),W1 PCO7110 ( ( P CALL EMPTYT,BATCH LOOK IF BATCHNAME 6 P BNZ CO7130 NO BATCHNAME b P CBE WORK(W8),W1,CO7120 ( P MOVE DEBINW4,W5 JOBNAME NOT ENTERED P GETFLD 0,W2,DEBINW3 P B DE70ER PCO7120
0x0bc960…0bcaf4 (1, 3) Dummy {f00=0x0040, f01=0x0190, f02=» P PERF DELAST,W13,DEKTAB8 PCO7145 $ . P CBE DEBINW2,W1,DE70CA JUMP ON CANCEL-KEY 2 PCO7150 d P MOVE DEBINW2,W0 r P PERF DEOPBC,DEBINW2 , P IB DEBINW2,CO7160,CO7160,DE70RE,DE70ER PCO7160 " P SET SOOL2 IF SET LINE IS OPEN
0x0bcaf4…0bcc88 Dummy {f00=0x0040, f01=0x0190, f02=»,W0,CO7161 JUMP IF OKEY P B ERRCO1 JUMP ON ERROR PCO7161 @ P IB WORK(W8),CO7170,CO7186 N PCO7162 SEND WHOLE FILE p P MOVE BATCH,HEX00 & P PERF DEDISC,W21 GET NEXT JOBNAME P BOK CO7164 P CBNE DEBINW4,W9,CO7183 P
0x0bcc88…0bce1c Dummy {f00=0x0040, f01=0x0190, f02=»INW3,STRG10A v * P PERF DEPOOL,W6,PINDFR,DEBINW3,STRG10A PCO7170 B * P MOVE STSAVE(W4),BATCH SAVE BATCHNAME P ( P MOVE BIN3,=W'34' GET NEXT BATCHNAME ~ 0 P CALL RESTOR,W0,W4,PWBDB4 RESTORE RBUF WB10 P PERF DEDISC,BIN3 P BOK CO7180
0x0bce1c…0bcfb0 Dummy {f00=0x0040, f01=0x0190, f02=» * P PERF DEPOOL,W6,PINACC,DEBINW3,STRG10A * P PERF DEPOOL,W6,PINDFR,DEBINW3,STRG10A 2 PCO7180 ` , P MOVE BCDI21(W3),W0 SET WANTED RECNO = 0 n P PERF DERECS,W11 P BOK CO7186 " P CBG DEBINW4,W11,CO7183 ERROR P CBL DEBINW4,W8,CO7182
0x0bcfb0…0bd144 Dummy {f00=0x0040, f01=0x0190, f02=» IB WORK(W8),CO7185,ERRCO2 PCO7185 " P B CO7166 GET NEXT BATCH 0 PCO7186 P P PERF DERECS,W5 GET CURRENT ^ P BNOK ERRCO2 P CBNE BIN3,W10,CONVNO * P IB WORK(W8),CO7166,RETUBC EMPTY BATCH PCONVNO 4 P CBNE NUMBER,=D'0',CONVE
0x0bd144…0bd2d8 Dummy {f00=0x0040, f01=0x0190, f02=»BINW4,W0,ERRCO1 JUMP IF NOT OKEY 2 PCONVE1 MOVE DEBINW4,NUMBER CURRENT REC.NUMBER ( 0 P CBE DEBINW4,BDPOIN(W2),CONVE2 JUMP IF LAST ^ 0 P ADD BCDI21(W3),=D'1' INCREASE WANTED RECNO $ P PERF DERECS,W4 GET NEXT RECORD " P BNOK ERRCO2 JUMP IF NOT O
0x0bd2d8…0bd46c Dummy {f00=0x0040, f01=0x0190, f02=»MP IF NOT OKEY v P B CONVE1 PCONVE2 ( P MOVE DEINPUT,HEX00 6 4 P COPY DEINPUT,W0,W6,FORTAB(W21),W0 BALANCEFORMAT R P MOVE FRMTPNTR,SYMREC(W11) PCONVEF P PERF DEDISC,W10 GET FORMAT P BOK CONVE3 * P CBNE DEBINW4,W13,ERRC
0x0bd46c…0bd600 Dummy {f00=0x0040, f01=0x0190, f02=»DUMMYFORMAT z P DISPLAY 0,W1,W0 P THOME , P MOVE FORMAT,HEX00 : P B CONVEF T PCONVE3 f * P MOVE FORMAT,FORTAB(W21) BALANCE NAME t $ P CALL ATTDB,BPOOL(PINDFR),W6,W10 P MOVE BIN16,FLIND(W1) P ATTFMT BPOOL(BIN16) PCONV
0x0bd600…0bd794 (1, 4) Dummy {f00=0x0040, f01=0x0190, f02=» CALL RESTOR,W0,W4,PWBDB4 RESTORE RBUF WB10 P CBE PINACC,W0,CONVEC 4 P CLEAR BDAACT R P CALL UPDBIN,BDSTAT h ( P PERF DEDISC,W18 WRITE ACCUMULATORS P BNOK ERRCO2 PCONVEC P MOVE DEBINW2,W0 P IB WORK(W8),CONVE5,RETUBC
0x0bd794…0bd928 Dummy {f00=0x0040, f01=0x0190, f02=» P MOVE BIN13,=W'27' $ P PERF DEDISC,BIN13 DELETE BATCH P BNOK ERRCO1 F P MOVE BATCH,STSAVE(W4) Z P B CONVEC x PGETCUR 4 P CBNE DEBINW4,W6,CONVEA JUMP IF NOT GET CURRENT P SET DOOL4 EXISTING DATA P PERF DERECS,W5 GET CURR
0x0bd928…0bdabc Dummy {f00=0x0040, f01=0x0190, f02=»ERRCO1 P CBG DEBINW4,W0,ERRCO3 P MUL DEBINW4,=W'-1' , : P IB DEBINW4,CONVE4,CONVE2 JUMP ON NEGATIV ERROR-CODE C H P CO7175,RETUBC,DELCUR P B ERRCLR PERRCO3 P PERF DERROR,DEKTABS & P MOVE DEBINW4,W0 ZEROIZE ERRORMESS 0
0x0bdabc…0bdc50 Dummy {f00=0x0040, f01=0x0190, f02=»LEAR SOOL2 PERRCO2 P PERF DERROR,DEKTABS P IB DEBINW2,ERRCO2,CONVE4 < PRETUBC ^ 0 PRETBC2 PERF DEPOOL,W6,PINDFR,DEBINW3,STRG10A l , P PERF DEPOOL,W6,PJOBCUR,DEBINW3,STRG10A < P CALL RESTOR,W0,W16,PWBDB4 RESTORE ORIGINATE ADRESSES TO
0x0bdc50…0bdde4 Dummy {f00=0x0040, f01=0x0190, f02=»SC,W18 WRITE ACCUMULATORS * P PERF DEPOOL,W6,PINACC,DEBINW3,STRG10A " PRETBC3 P P CLEAR SOOL2 CONVERSION OPEN ^ P BZ RETBC4 P PERF DECONV,BIN5,W5,DEBINW4 PRETBC4 P CLEAR DOOL3 P PERF DEPRUT,PRNUM,BIN1,BIN2 P PERF OPCL
0x0bdde4…0bdf78 Dummy {f00=0x0040, f01=0x0190, f02=»-VALUE HANDLING ROUTINE P* PDEAP7A PROC * P IB DEBINW3,DEA71 > P B DEANOK ILLEGAL APPL-VALUE X P* | 0 P* APPL-VALUE = 1(101) OUTPUT:BIN6 = FILECODE < P* BIN5 = <FC>,FUNCTION-CLASS P* PDEA7
0x0bdf78…0be10c Dummy {f00=0x0040, f01=0x0190, f02=»EVTYP,DEBIN3,W3,DEINPUT,W0,W3 P BOK DEA71B & " P ADD DEBIN2,W5 GET NEXT DEVICE : * P CBE DEBIN2,DEBIN1,DEA71E LAST DEVICE ` P B DEA71A PDEA71B & P ADD DEBIN3,W3 ADJUST FOR FILECODE 2 P XCOPY BIN6,W1,W1,DEVTYP,DEBIN3 SAVE FILECODE
0x0be10c…0be2a0 Dummy {f00=0x0040, f01=0x0190, f02=»NW4,W9 NOT FOUND P B DEANOK P PEND * P EJECT 8 P* F P* FORMATS P P* h PF70ST FRMT r P FSL P FTEXT '70 ' P FCOPY =C'CONVERSION' $$ P FNL P FCOPY =C'PROGRAM:' ( P FKI 9,MINL=2,MAXL=2,ME,NEOI
0x0be2a0…0be434 (1, 5) Dummy {f00=0x0040, f01=0x0190, f02=» P FSL P FLINK F71S P FNL ( P FLINK F71UV 4 P FNL H P FLINK F71JOB T P FTAB 20 j P FLINK F71BAT z P FLINK F71END P FMEND PF71ST FRMT P FSL P FLINK F72S P FNL P FLINK F71UV P F
0x0be434…0be5c8 Dummy {f00=0x0040, f01=0x0190, f02=» PF71S FRMT P FTEXT '71 ' P FCOPY =C'CONVERSION' * P FILLR ' ',1 H P FCOPY =C'VIA' P FILLR ' ',1 r P FCOPY =C'DATA COMM' P FMEND PF72S FRMT P FTEXT '71 ' P FCOPY =C'CONVERSION' P FILLR ' ',1 P
0x0be5c8…0be75c Dummy {f00=0x0040, f01=0x0190, f02=»TCH LINKING' P FMEND PF71UV FRMT " P FCOPY =C'UNIT' 4 P FTEXT ':U' L ( P FKI 7,MINL=1,MAXL=1,NEOI,ME,APPL=2 ` P FMEL 'X',USERFILE P FTAB 20 P FCOPY =C'VOLUME' P FILLR ':',1 P FINP 27 P FCOPY TABLE P
0x0be75c…0be8f0 Dummy {f00=0x0040, f01=0x0190, f02=»=3,DUPL=STSAVE(W1) l P FCOPY JOBNAME ! P FMEND ! 0 PF71BAT FRMT ! > P FCOPY =C'BATCH' ! R P FCOPY =C'NAME' ! j P FILLR ':',1 ! < P FKI 30,ALPHA,MINL=1,MAXL=6,NEOI,APPL=4,DUPL=STSAVE(W2) ! P FCOPY BATCH ! P FMEND ! PF71END FRMT !
0x0be8f0…0bea84 Dummy {f00=0x0040, f01=0x0190, f02=»,ALPHA,MINL=2,MAXL=3,NEOI,ME,APPL=101 ! P FCOPY STSAVE(W3) " . P FTAB 20 " H P FCOPY =C'FILE' " X P FILLR '-',1 " p P FCOPY =C'NAME' " P FILLR ':',1 " P FKI 32,ALPHA,MAXL=8,NEOI " P FCOPY STR8B " P FMEND " PFFETCH FRMT " P
0x0bea84…0bec18 Dummy {f00=0x0040, f01=0x4034, f02=»EX00 " P FMEND # P* # END # $@ # 0 STSAVE(W3) " . P FTAB 20 " H P FCOPY =C'FILE' " X P FILLR '-',1 " p P FCOPY =C'NAME' " P FILLR ':',1 " P FKI 32,ALPHA,MAXL=8,NEOI " P FCOPY STR8B " P FMEND " PFFETCH FRMT " P
0x0bec18…0bedac Dummy {f00=0x0040, f01=0x2008, f02=» $ FTEXT '50 SEARCH/CORRECTION' FNL . FTEXT '60 VERIFICATION' : FNL Z FTEXT '70 CONVERTION' f FNL FTEXT '80 FILE HANDLING' F00OUT FMEND END @ '10 SUPERVISORY FUNCTIONS' FNL
0x0bedac…0bef40 Dummy {f00=0x0040, f01=0x0190, f02=»O SAVE C $ f & P X'000000000000',X'000000000000' % P 1 = JOBNAME % : P 2 = BATCH % R & P 3 = CONDITIONAL FORMAT CHANGE % h $ P 4 = COND. FORMAT CHANGE (R) % P 5 = FILE NAME SHB FD % P EJECT % P* % P* TERMINAL-BLOC
0x0bef40…0bf0d4 (1, 6) Opaque[0x194]
0x0bf0d4…0bf268 # DirEnt {nam=»DELINK«, typ=»LM«, f00=0x0000, f01=0x0000, f02=0x15d0, f03=0x0000}
0x0bf0d4…0bf268 IdxSect {
0x0bf0d4…0bf268 f00 = 0x00ae // 0xbf0d4 @0x0
0x0bf0d4…0bf268 f01 = 0x0030 // 0xbf0d6 @0x2
0x0bf0d4…0bf268 gno = [ // 0xbf0d8 @0x4
0x0bf0d4…0bf268 [0x00]: C0x00ae.0x2.0
0x0bf0d4…0bf268 [0x01]: C0x00af.0x3.0
0x0bf0d4…0bf268 [0x02]: C0x00b0.0x0.0
0x0bf0d4…0bf268 [0x03]: C0x00b0.0x1.0
0x0bf0d4…0bf268 [0x04]: C0x00b0.0x2.0
0x0bf0d4…0bf268 [0x05]: C0x00b0.0x3.0
0x0bf0d4…0bf268 [0x06]: C0x00b1.0x0.0
0x0bf0d4…0bf268 [0x07]: C0x00b2.0x1.0
0x0bf0d4…0bf268 [0x08]: C0x00b2.0x2.0
0x0bf0d4…0bf268 [0x09]: C0x00b2.0x3.0
0x0bf0d4…0bf268 [0x0a]: C0x0139.0x3.0
0x0bf0d4…0bf268 [0x0b]: C0x0161.0x2.0
0x0bf0d4…0bf268 [0x0c]: C0x0161.0x3.0
0x0bf0d4…0bf268 [0x0d]: C0x0162.0x0.0
0x0bf0d4…0bf268 [0x0e]: C0x0162.0x1.0
0x0bf0d4…0bf268 [0x0f]: C0x0162.0x3.0
0x0bf0d4…0bf268 [0x10]: C0x0163.0x0.0
0x0bf0d4…0bf268 [0x11]: C0x0163.0x1.0
0x0bf0d4…0bf268 [0x12]: C0x0163.0x2.0
0x0bf0d4…0bf268 [0x13]: C0x0163.0x3.0
0x0bf0d4…0bf268 [0x14]: C0x0164.0x0.0
0x0bf0d4…0bf268 [0x15]: C0x0164.0x1.0
0x0bf0d4…0bf268 [0x16]: C0x0164.0x2.0
0x0bf0d4…0bf268 [0x17]: C0x0164.0x3.0
0x0bf0d4…0bf268 ]
0x0bf0d4…0bf268 }
0x0bf268…0bf3fc Dummy {f00=0x00ae, f01=0x0190, f02=»@ g CR R G |R P ~R [ R f R q LR { R R R R xR rR nCB1 @
0x0bf3fc…0bf590 Dummy {f00=0x00ae, f01=0x0190, f02=» a 6 P F T1 n b @ $ X T p t t t t 8T1 x *
0x0bf590…0bf724 Dummy {f00=0x00ae, f01=0x0190, f02=» > P P h 0
0x0bf724…0bf8b8 Dummy {f00=0x00ae, f01=0x0190, f02=» 8 F
0x0bf8b8…0bfa4c Dummy {f00=0x00ae, f01=0x0190, f02=»LP 0 GP 6 FD DLU FRO GPL6 LPL0 B . D Z p - r 7
0x0bfa4c…0bfbe0 Dummy {f00=0x00ae, f01=0x0190, f02=» SYSVOLSYSVOLSYSVOLSYSVOLSYSVOLSYSVOLSYSVOLSYSVOLPFJESVCHM/=><DL!ASUFTCE+-*:;&V?'ZGRNX()MEVTFCAB/,LRAPTXZY+S,.><0-VEX * >0 0 0 M U t ~ 0
0x0bfbe0…0bfd74 (1, 7) Dummy {f00=0x00af, f01=0x0190, f02=» * B 0 0 0 " ( . F @ B D F H J L N P R T V @ f $ B
0x0bfd74…0bff08 Dummy {f00=0x00af, f01=0x0190, f02=» T > < >
0x0bff08…0c009c Dummy {f00=0x00af, f01=0x0190, f02=» F Q 0 [0 0 ^ e f h n t ~ ^ b@ F 3
0x0c009c…0c0230 Dummy {f00=0x00af, f01=0x0190, f02=» 6 ## _ jX 3 0 0}@d "P n_r 4 # 6 P 7MW (j "M ( 0 P 0 * 1W 'W 1 1 1 1 v j !!Ov v" Cv 0 "" VvW 0 0 )W`0 "" Vv 0 !!W6 'WH ! W+ " W% h * h `h h
0x0c0230…0c03c4 Dummy {f00=0x00af, f01=0x0190, f02=»!!L 0 /P /0 f 4 0 f 4 4 0 0 0 $0 T 0 0 W 0 W 0 4P +W 4 0 4 j !! % !j !! 0 ) 4 4 @p@q@r@t@v@ @x 2 # !"#$% H ! ( Hx 4 $ !"4 "!4 !!4 I @w 0 0
0x0c03c4…0c0558 Dummy {f00=0x00af, f01=0x0190, f02=»a0 ` b#$ ! 0 `f `f b" c$" ! b c b" W !4 ( #M0 T ! ! P.W< !0 P) * 2 *#U 1 * * 4 & !4 _ 4 J " b 4 ,0 8 t % z% R1 1 0 2R2B0 1 $ 0 n 6 n j d1@ Z N$ &p3>$F/ 1l# 4 | # " , j $ $ $ 1h P @
0x0c0558…0c06ec Dummy {f00=0x00af, f01=0x0190, f02=» @ | H B " Y # , 6 Q d F J S:T JOBPTS GETDATAMODE NO.:ENTRYTYPE:999999FORMATSEARCHVERIFY CREATEELEMENTNAME: TPROGRAM:REL 10.0SIZE OF DEFINI
0x0c06ec…0c0880 Dummy {f00=0x00af, f01=0x0190, f02=»
0x0c0880…0c0a14 (1, 8) Dummy {f00=0x00b0, f01=0x0190, f02=» U U RETURN FROM DATA-ENTRY U h d ' . ) e e @ " f d f @ , ( f d T g T ( f ! ~ ! + * h dG 0 20 $ - - 30 - - 40 ! 50 % 60
0x0c0a14…0c0ba8 Dummy {f00=0x00b0, f01=0x0190, f02=» V ] d l t | 0 0 ! ' . 5 < D L T ] f p { ( < S k ! & A C g g & 4 @ 5 5 & 5 &9B %W _
0x0c0ba8…0c0d3c Dummy {f00=0x00b0, f01=0x0190, f02=»<A <a ^ <h = F F ) 5 ' A 5 & X X X* T Z0 I R < _ <h =_H ^L _ _R 5 & G _d 5 F '_p R : <<H P < : 5 5 & R P _v _| V V Q WR _< _B 46 5
0x0c0d3c…0c0ed0 Dummy {f00=0x00b0, f01=0x0190, f02=» 5 5 5 P < C 9h9G & C 9b! 8 #_h B " ' ""? 99g! ":e" B =_ _f 5 5 & 9_ 46 @ # 5 C _ 5 #0P T # P W & ?_ . 8 ! P& P P P T 5 _. W P 8 _> 5 5 5 5
0x0c0ed0…0c1064 Dummy {f00=0x00b0, f01=0x0190, f02=»46 5 & C 5 5 & C 5 & C C ( B X _ W & Y < * C _& 46 5 5 P ) 5 B & 9 5 & 9 ( B +_ @ P V E $ E & E ( E 0 E , Y E . A 5 08 X '
0x0c1064…0c11f8 Dummy {f00=0x00b0, f01=0x0190, f02=» Y T P U U T W _F T P Y P 5 V E A 5 5 P P V V V E A _H ^ 9C : T _4 4 !00Z !99Y ! : 46 2 ' 5 5 & C
0x0c11f8…0c138c Dummy {f00=0x00b0, f01=0x0190, f02=»5 ;d # + A 5 #0 0T & ! T P & ! X T C A "t " 'H Y ( x P Y * x y Wv X " X X . 8 #| 08 X 0P X T 5 ! Y * y X V& X ( '$ x C ( Y * X Y , ' X X C
0x0c138c…0c1520 Dummy {f00=0x00b0, f01=0x0190, f02=» x Y X " T Y _ " _ B U C Q C D . @ ! ! X X * $" ~_> @ Y X * J_R X !@XX y X # x V y X X * '$ P P 1 _ 1 X * 2 X X * $" X D % " X # X * '$ y _< X # X * y '$ X 1 1 X
0x0c1520…0c16b4 (1, 9) Dummy {f00=0x00b0, f01=0x0190, f02=» y x C y X C C X ( x Tf B ! 9 R 9 !v X ! T " _ y C Q " T 'H '$ X ! "` 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 Q(
0x0c16b4…0c1848 Dummy {f00=0x00b0, f01=0x0190, f02=»X8_H x XD @ Y c C y XR X x ' "` x X X # '$_ B ", C & : + 'H X ' '$ ( 0 5 ( 0 / : B "p C _J + . 08 X 9 V ! P @ Y 5 #0 F Y Y . X ! F : 5@ 5 "
0x0c1848…0c19dc Dummy {f00=0x00b0, f01=0x0190, f02=» 08 X "T X 0" '* 0. 08 5 !0 F X 04 #| 0 0 ' 5 ! Y 0T V 0 8b : 08 2' FN 5 " P # P F R P P X ' ' A X _ X ' _ X '?_ 08 5 ! P # P F X ' 04 X ! 0 0"
0x0c19dc…0c1b70 Dummy {f00=0x00b0, f01=0x0190, f02=» * Y 4 Y 2 Y 69h Q X :h Y 0 ' W U X Q ( W Y 0 ' )H 46 3t 08 9H Y * & W W & 3t X 0T FR X 2Z X +" X *9h P: R Y >_ P R P R FN Y +Wl &T Y + &F ' WZ T R( &F & WJ Q W Y + U Q FN Y
0x0c1b70…0c1d04 Dummy {f00=0x00b0, f01=0x0190, f02=» &6 : X 0 :H* 0@ : X 2T Y 2 : C 1 B ] 3 : & X +! FN X +! U 9K Y ( Y + ' )H 089H Y * 2 Y ( Y > Y + 5 & 4 0 5& & 6 2 X 0 FR : ! P # T : F C ( C : C B _( _ X ' 'H
0x0c1d04…0c1e98 Dummy {f00=0x00b0, f01=0x0190, f02=»V : 5 <h_0 8 _>C C 5 C C C C C C < ; < ; ) * * C )zC <~ W W X 0Q ( ( Y ( Y *P 3t : ' X <' X X : 08 X *# X ( " Q " P X 0PR V _` " PL T " Ph .$ 0 Wp " P Y 0] Y (_z P P T0 " X _@
0x0c1e98…0c202c Dummy {f00=0x00b0, f01=0x0190, f02=» / C W @ X (T W X y 6 Y ( : X (;n 0"C <h< <h<P*>C C C < ; < ; ) *b*b< )zC <~ 08 Y . Y ,W 08 Y . X ( X ." PV X 0RzT$ Y *P U :H 0@ )R K T < W < X . X 2QP Y *T2 < : " P$ X 0U X *# P P T " T : " FV
0x0c202c…0c21c0 Dummy {f00=0x00b0, f01=0x0190, f02=» D ! T W < /| 08 X >P( R Q" X & V D ! P $ ! P %_ < : 08 V Y " X .9H $ Cd P & X ( " Q Y +Q R " P W " U -8 Y , " Q " FV X . X 0R P" X *:h P PD FV) Y (W X *:h Pt Pn P P FV
0x0c21c0…0c2354 (1, 10) Dummy {f00=0x00b0, f01=0x0190, f02=» X (! # P X & V L TbW X , X 0P@ -l 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 $ 0@Wh_ " P X ( T X & V H "@TF - P6 V Y X (P /| - X (P
0x0c2354…0c24e8 Dummy {f00=0x00b0, f01=0x0190, f02=» : -P "0P $ T W %T : : Y ( X $ Y X " Y X & Y X < Y @ : Y : 08 X : X ( T X & V H " V Y : X $ 0@ X : 0T : X Y " X Y $ X Y & X @W X < Y = " 0 ! T W C ! P =H C . X *!
0x0c24e8…0c267c Dummy {f00=0x00b0, f01=0x0190, f02=» &T Y Y Y WD V $:H D Y D :H Y ! P V Y 5 W Y ! P 5.W V Y /| V Y : 5 <h : 2' " P T 8 W 52 < : /r : 08 3t / C 0. X 0@ : "0P ' Q W ' Y : W 56 V
0x0c267c…0c2810 Dummy {f00=0x00b0, f01=0x0190, f02=» V D ' $ Fn W 0d P A X =' V W V Y =P 0d : ( A 46 "R V I A 46 ( T _& @@8X, @@: _6 5 #0 P Fr ( A 5 #0 T 5 #0 T V A Fr W 3 2 1 /
0x0c2810…0c29a4 Dummy {f00=0x00b0, f01=0x0190, f02=»W 4 C C J2 ' W 781"&$ 39#$;< '()*+,-! 4 4 4 5 P _D 46 B 5 'W 46 ( Wb 5 4 46 ( 1W" C C C " Fb ( ' P. 2 P$ "! P @<W B % P C + ?: A
0x0c29a4…0c2b38 Dummy {f00=0x00b0, f01=0x0190, f02=» C 3 : "!@T Fr V I C B : ( ' P 4 I : 46 4 % Y 5@ C 5 & F F C 5 "!@ FJ : B T T T V : 2 ' W 2 6 2 @ " T # ' ?D 7 W.' #? 7 V H Ff
0x0c2b38…0c2ccc Dummy {f00=0x00b0, f01=0x0190, f02=» > : C "!@P ") # B C B % C : :l:d:h 5 W W P W 6 2# 7 W4 @ E5 " T> ; [ # 7 :H 2 T Z L L5 D V, W # 7 L5 E V $ W D V L5 , W 6 2 7 W$ " P&
0x0c2ccc…0c2e60 Dummy {f00=0x00b0, f01=0x0190, f02=» 5 6 : F _v F":B , (V ; H [ [ [ 5 Z (;AR H WD F& F& Z H # 8 ; 6 F" 5 : Z L # & F& F& & Z 4 8 : Z 4 " 2@P : [ [ 5
0x0c2e60…0c2ff4 (1, 11) Dummy {f00=0x00b0, f01=0x0190, f02=»" P ! P [ :;H 2 6 6H;h 7 : ; V Y : 2! : 6 2 7 W& " # 7 ;b ; : ;f" #?_"$0#0;b 9 P P PF P 0 - P0 _ 4 V W Q P ) P 9_ &" ! 9 : & P Q 9
0x0c2ff4…0c3188 Dummy {f00=0x00b0, f01=0x0190, f02=»9d * & ! R + : V W R 4 0R Y 7 Y& P Z,;D 9_8 8 _< V W YL T 9 : F &9d! + P( & T 9d! T 7 V Y " WJ Q V V 7 Y P._& & Q 9d! )0 + P 7 Y Z $
0x0c3188…0c331c Dummy {f00=0x00b0, f01=0x0190, f02=»< CZCZ< < C <~ : 6 ; K K K K V K : 5 : : : 56 V < ; <: V Z P 2 " T W "@T '?W "? H:V" K :e J J " J _Z Z < [ Z P 0d [ V F"
0x0c331c…0c34b0 Dummy {f00=0x00b0, f01=0x0190, f02=» : : J P v I < : J Qx : Pn 4 ! Th_ PX 4 WT K < WJ < W +_ < < K W. _& X 3 W X & 3X J K : V : J T F2 1 : + 5 [ [ < !AAP !TTT W !**T * [ R !FFP !EET
0x0c34b0…0c3644 Dummy {f00=0x00b0, f01=0x0190, f02=» :P"# U J F2 1 =d !00T ; < _ 9P F " X># ; W )0_B J R( Z R 4! P ;)0 9U ? F6 Z ] 49d_4 _HU ; :X _ _ z 9d! ) ^ _ ,_ 8 _ : W 8W =d 8 !++P !-- z ;$# + ^" _( |`. PT*AXYZ9 5&
0x0c3644…0c37d8 Dummy {f00=0x00b0, f01=0x0190, f02=»V 4 _P :#0 T B 'W F B B " ?^ : P@" @8PR L@ R R _ R _ # Q R V > _V X^ ' h P P & 1_ P 1_ , @ - R T U :J a B@ ' d w5 1
0x0c37d8…0c396c Dummy {f00=0x00b0, f01=0x0190, f02=» :ATATATB0C0A C(8b_ _ `nabc c A B B B B B A B B ; f~f e e f~e|A CPCLCVCXA A A A 0h W V 7 @ ! P 0d P W A. @@ R E If B< pVP 9c D@ 5 5& Q @ W `n :aW, @@ YRP E6 @@ ]^ E @@ ]h E0_n Fr 2
0x0c396c…0c3b00 Dummy {f00=0x00b0, f01=0x0190, f02=» V 0d W V P _ 8^t D@ 2 ! 9BP V T W V P D $ V 6 V % V E @ ' T 2 % 7_ 2 # PH L PB 5 2" &] Y $! 6P Q $ T 9BP A _ _ W A 6 @ " T 7 $ V P 0d W
0x0c3b00…0c3c94 (1, 12) Dummy {f00=0x00b1, f01=0x0190, f02=»P 5.W : ! )P9H " F # T &W &" :I : C : P & _ &X _ : FB : : : D p *1 TID ADDR OP CR LVL MODIFIED OPERAND CREDIT 5.0 TRACE @D P ( _ AD AD
0x0c3c94…0c3e28 Dummy {f00=0x00b1, f01=0x0190, f02=» IJ . 1 V ID v ID AC : DxW Dx 2 D# ID @ # T R ID 5 IJ & ID DtQ D AC W> Dx D V D ! )0 1 @ # T 6 V ^ ID AC E A. C ( ( AD : Wp Wl Wh Wd
0x0c3e28…0c3fbc Dummy {f00=0x00b1, f01=0x0190, f02=» ** AD AD ER AD$ R AD& D( ID F R 4 IB 4 $ AC D, U 4 - _ E D$ @C J A. ILLEGAL OPERATION MIXED ARITHMETIC ILLEGAL TYPE ODD WORD ADDR MISSING ENTRY ILLEGAL REQUESTED LENGTH STACK UNDERFLOW ARITHM OVERFLOW STACK
0x0c3fbc…0c4150 Dummy {f00=0x00b1, f01=0x0190, f02=» AT INITIALIZATION ILLEGAL INSTRUCTION ADDRESS ILLEGAL FORMAT CODE NO FIX BUFFER ALLOCATED FIX BUFFER NOT ALLOWED ILLEGAL CONTROL CODE ILLEGAL INDEX VALUE FORMAT CONDITIONS CHANGED ILLEGAL PARAMETER LENGTH ERROR DATASET BUSY ILLEGAL DATASET REFERE
0x0c4150…0c42e4 Dummy {f00=0x00b1, f01=0x0190, f02=» V P W <a R 9a V I : Fr @I P ( _ @L(P @L*Pj Pf K V $ $T$ D BR V T D P T D @PL E @W . @K P$ JN K $ $P BT , D E @ : @I P AI H AL(W TW V AI L. L, V AL0 TB( M ( A
0x0c42e4…0c4478 Dummy {f00=0x00b1, f01=0x0190, f02=»L, TB( M ( AI L, @L0 V P ( R W : T REFERE
0x0c4478…0c460c Dummy {f00=0x00b1, f01=0x0190, f02=» V P W <a R 9a V : Fr @I P ( _ @ P @ P P V $ $T D R V T D P T D P E W . @ P L6
0x0c460c…0c47a0 Dummy {f00=0x00b1, f01=0x0190, f02=»]6 R M V W Z TM@ _" = ] T M ]6 ]f ]lW ]6 , ] 9a ]Z @M`P ] ]P ]l ] L. ] @L2P ]f @L4 ] AL2 AMb ^ AMd "V # ( L ]p AMbP UW T ] ]l AMbP ] O8 [>N @O$ O =P WP QQR MR /Sn STP IT JUr T
0x0c47a0…0c4934 (1, 13) Dummy {f00=0x00b2, f01=0x0190, f02=» AO, AO$ AO& AO( AO* AO6 AO. AO2 AO4 X P AO2 AO4 [>O Pd ,O +P -P ;P, :PR (O .PZ M X " , AO4 L AO0 L @ AO, AO2_T X X ,T X X ) AO( AO* ] [>P Pd ;P, :PR Pj @O2P AO61+X AO6_ Pj @O$ AO @O& AO @O( AO @O* AO"_ Z A
0x0c4934…0c4ac8 Dummy {f00=0x00b2, f01=0x0190, f02=»Mv @O. AM| @O0 AMpP [ W @O.T @O,Z T0 @ 4 AMj ] S W ]zW 0 ]p A 4 ]fW ]f A 4 A 4 @ 4 ]6 W ] @Mv AO, @Mp AO0_x M AMd PZ @O&& ] 0 ]6 P P ] ] P @R ] ]P S _ ]z ]f ]Z ] _T ]p ]f Q
0x0c4ac8…0c4c5c Dummy {f00=0x00b2, f01=0x0190, f02=» @O&W @O @O& @O,R T0 >a A 4 AMt @O. AMz ]p @O0 AMnP [ W @O.T @O,Z T0 A 4 @^ Nn @ 4 AMh ]f ]6 ]f [r ]f ]f [ ] A] Nn @O,R V ;a Q ]p_ ] 1 Nn ]z @ 4 AMh_ 0 ]6 ]l ASf O8 P 3P O C @O$P @O&
0x0c4c5c…0c4df0 Dummy {f00=0x00b2, f01=0x0190, f02=»W @O.T T0 @O,V @ 4 AMf 0 ]P ]l O8 P O @O$P @O& 1 Nn ]z ]f A 4 @ 4 ]6 ] @Mr AO, @Ml AO0_ @M`P @O,V @L0( O V " @O0T @L. Z TP @O$P @O& A 4 AMp AMv P ] 0! ]Z ]l O8 T @O$P @O&" 1 Nn O Px @O& @
0x0c4df0…0c4f84 Dummy {f00=0x00b2, f01=0x0190, f02=»O AUN AUR ]p @^ Z ]f " ! U 0 AURU U2_ ]$ "P` @O& @O0T @L. Yj PF R % < < ] ! ]Z ]l O8 T @O$P @O&! 5 = Nn O O W NnP @O& O XfW" K X K $ B % AK NnT @L,W @O& AMb O @O,R AL0
0x0c4f84…0c5118 Dummy {f00=0x00b2, f01=0x0190, f02=»NnPd @O& @O PL @O P ] ] [>WfR @O0T @L. W V [>K Rt ) I I @ I B AK W P W RV )W K X AK Nn K , AW` AW`:B AW`Q (P _ H B @O0T @L. H AW` " O EQ GT LT NE NG NL P2 @M` R* ] [>W @O&P Q W (
0x0c5118…0c52ac Dummy {f00=0x00b2, f01=0x0190, f02=» B @O& @O @O P W O @O,V @L0 Q B 1 @O0 Q Q @ AK " K ( R$ ( @O,V @L0 H B ) I B " O $ % " ] # C C C C *T W #T AO. ] NP PR (T X Pl ,T X P^ )TX ] Z AO0 T @L.
0x0c52ac…0c5440 Dummy {f00=0x00b2, f01=0x0190, f02=»# 9hP Q " ;B 2 Pl L ?b Z^ P ,R PLW~ Pz9AR Tr L Qj W" P` L $ QV L % QL Z Z W C " _* Q P Q V _ W " AZ < V "
0x0c5440…0c55d4 (1, 14) Dummy {f00=0x00b2, f01=0x0190, f02=»O, .T @M`P P " AO, " X X O " , , A[p A[p:B A[pQ (P _ # # H A[p " A] A] 4 ]f ]6 4 @] I[ T A] A 4 A 4T A] T [ @O,R T0 A] N @ 4 " P P (T @M`! PD @O0T @L. [> 6 Q";H @ 4;d ( @
0x0c55d4…0c5768 Dummy {f00=0x00b2, f01=0x0190, f02=»_" A " ] A 0R$ 9U AR FQ 0:D A ] _* 'T ] :H_ A " A] A] 4 ]f ]6 T A] A] " , ]$ "! R _U .WV A]N: ]Z A]N " 9d ]Z ! R :W& ] W ] W W ?W :W .W / a^D
0x0c5768…0c58fc Dummy {f00=0x00b2, f01=0x0190, f02=» @^D ^FP A^: ^6( ^F A^D " !^C 1^F ^F Q (P _ # # H A " A A 4 4 @ I T A A A T A T @ 5 ^ ( A 5 ^ ( _ R #0T : F^ Fr W
0x0c58fc…0c5a90 Dummy {f00=0x00b2, f01=0x0190, f02=» W Q P [ ! X # P 4 V W Q P [ " X $ P TF R R ` ; <( Q P # W " <! =# T6W = Z P _ V ^< `_@ R Q <# =_ P :" P * U P 1`! T "# 9e! # K : #0 F
0x0c5a90…0c5c24 Dummy {f00=0x00b2, f01=0x0190, f02=» R W ( V W Q P W ! W V P , V W Q P W $ W V P T V W Z : V ) 0 F !0 F " TV *V &V : V S W P 9 S W _ V P W T V E + : & 6 F" [
0x0c5c24…0c5db8 Dummy {f00=0x00b2, f01=0x0190, f02=»P( [ Z w [ P eD_ V H )_ eDb _X z R z ! P 1` { V (9h T W z 9e! I Z ! : 4 P 9 59D_ " P P [ ! :d" 5 : 0 F !0 F " Tz *V &V PP= ;@ R P W ;a=a P
0x0c5db8…0c5f4c Dummy {f00=0x00b2, f01=0x0190, f02=» $ [ [ &! P e eD8b eD8b eD_ z " ! ! R 2` { z " P ! R 2` { 1 ! { [ Z eD` Q eDb P _ T { [ eDe& [ Q@ [ eD_ { R [ _ eD_ eDb Z ! Z $ Z %_N [ Q* eD_ eD`
0x0c5f4c…0c60e0 Dummy {f00=0x00b2, f01=0x0190, f02=» & H D % [ ( g ; : { : gr$0T f Pb 9 _ gr$0T [ gr$0T Z : R$ P $ 1T Y TdW 5 _& : gr$0TH $ R W R # P W ) V E
0x0c60e0…0c6274 (1, 15) Dummy {f00=0x00b2, f01=0x0190, f02=»R R _. : 8 : 5 5 #03 T jP kT T : & 9! " : $ : T W V 9! R W Q< R W Q0 R W Q$ : f 5 T $_X f _^ W Fr _ b Z ! Z $ Z %_N [ Q* _ `
0x0c6274…0c6408 Dummy {f00=0x00b2, f01=0x0190, f02=» | 7 F l p t x6 &90 A! P K 4 0 A! P K 4 0 Av P K 4 0 Av P K 4 0 Av e 4 0 Av e 4 @ 0 >0 P 64 <0 P 54 0 P A 4 !0 P 34 E bR * )bR* I 0 A R V 4 0 A R V K E I b )*R b R*
0x0c6408…0c659c Dummy {f00=0x00b2, f01=0x0190, f02=»$"` uV> av uajb " " b ( bR#j $"u b^&jb "R" b bR j $" b 5W j ""u j $" j &"* u`Hp *? v? u? ` _ u) 5 ? j` " $ `: 0 ja " " a ua j $" ` )? u`? j` " "_2As ua? @u@v E 0 ? !"? 1AxW-j " - R R _9 W I
0x0c659c…0c6730 Dummy {f00=0x00b2, f01=0x0190, f02=» -jc " c c R c R _a _) +_% 0 c c 4 ! ! ! " V 0 _ " b )*R b R* !4 "bR * )bR* & 4 @k@lja " "j` " $(` AlW= ` Rgjd " "j ""a (a # d ja " $ a a RCj ""d a d`W ` (a AkIl'W a R jd " $j $"` a R `vIs `! d` 4
0x0c6730…0c68c4 Dummy {f00=0x00b2, f01=0x0190, f02=»! "R! ! ! " Q E! "! [ 3@ 4 H #@ C!!"C! !T !!RT "!R0" A!R 4 H 0 _ #! R R W A T A @p Cv! Cv! H Vv0! Av Tg `vP Ap ?v` #! RTj v " % j !! jGv " ! Apj !'! $! P Ap R$ ! ! " T Ev "v P Ev & 0" AvR 5@ Cv!W Hp ?@
0x0c68c4…0c6a58 Dummy {f00=0x00b2, f01=0x0190, f02=» / s 4 : m `!: )`W} d$ bd !bRV ! 55? jc "R&#c91j " b "&m j (" ) bRc* c*jR&"c "dR? b W jd "R$ d U d!: jR$"d "bR c* REjR""b jR$" _` b{ ! a ja!! b(jR(" b1 a A c!V a ) ) !aR: ? jR$"c bR* b "`R: Hp _ ba `=jR "` `c_V c Ap_1Ar 0 mP r
0x0c6a58…0c6bec Dummy {f00=0x00b2, f01=0x0190, f02=»t` t*_- t: `"_- `" Ab !&R`bm &R` m? < m@s $R*: ` a&j` "R&fRa* `*jR&"` "`* @s R: " R: ab !aR: "V )( ) )? j` "R$jR " "aR: a! ` % !`R: b "R A9 `!j` "R$_! r : '6c ( ]@s $R*: Cq< RU !bR "V ! 6 ! 7 AvT ? )? bjd
0x0c6bec…0c6d80 Dummy {f00=0x00b2, f01=0x0190, f02=»{c? 8? Hq ` j`!! b'$`! _ ? %_5Aq_ : RF `* a!bR`1 a `1 a! a+ "%R? : !%RP RU `* a!b a 1R` `1 a! a+ ? ApWg RBbR(" 1bR* "cR? a!: jR$"a "cR: ca_0AqW3jRd" "'R< !`R< ja "R$ `!< a & `a_ %6c : b " ! d %d8 !? !'RP 5<
0x0c6d80…0c6f14 (1, 16) Dummy {f00=0x0139, f01=0x0190, f02=»_ )? Cp< b! a! !ba < b b)*R b b R* $ba & a b? 4? ` a*Hs `W ` V ! 50W< a"j " &h a& &V! a a! a j " $ ` _E )W a&jb " a 4 d"@s$ " As d R jd " $jc " * c d ? 4 j " " & 6 jR " 4 j "R !"4 !!4
0x0c6f14…0c70a8 Dummy {f00=0x0139, f01=0x0190, f02=» _ F " DSF T X AC FC SV TC PTS-DE SYSFIL " % ( + . 50 < p p !`R< ja "R$ `!< a & `a_ %6c : b " ! d %d8 !? !'RP 5<
0x0c70a8…0c723c Dummy {f00=0x0139, f01=0x0190, f02=» ~ W f T r v zApAt : As k # *V ) ? Ht ? l b ,V ) ? Ht ? It (? cv: a*mja " &"asz kj a"c a"j &"a `: ` a* ?j ""` j $" l `v: j a"` a" uv: j a"u a"j &"a c: Uj &"* W @ `#j "" j $" a*_zj $"c `: @j ""` `c cv_(ja " &"as c`_z cv
0x0c723c…0c73d0 Dummy {f00=0x0139, f01=0x0190, f02=» uv ud d , ) v )? jo !v bo!&k bo'&l ) oV5 ! ! " : * o | Uj |)"` It ? u) 5 ? 4? : VJ! 5 ) ? `b b W `!: RBjR""b bR* z "`R: b !bR: jR$"` "bR? bR* z "bR? '6c @rT `# : !`RV ! 5 ? )? a7b &Ra0
0x0c73d0…0c7564 Dummy {f00=0x0139, f01=0x0190, f02=» Kq %_1Aq_ : @s RHl Hk RU "#R? a$W a" k `#0 kT : j` "Ra ` >Ar_ ApAs0 kTY k # *RnHp. a$*a j " $ Z : j` " &*`*K a,Hp bk & a? 0 lT$ l b ,R. a& a =bl & a? #X;! 5 ? b: ja " &*a* a,_' )? c# bc !bRR)jc "R&"c* 5W d7b &Rd k jc "R$ c
0x0c7564…0c76f8 Dummy {f00=0x0139, f01=0x0190, f02=» h~ !X8H !( @ h~ U !j~ ! ! !P !0# ! N_m ? j !! '( !1j !& !j !! ( * j +& 'j !! ( j ! ! ! 9 ? jy " $ j !! 1 j !! 2 j !! (I !Y A ! p ! ? ! 0 !h & !&P !0# !< _ ( ) +h & '&
0x0c76f8…0c788c Dummy {f00=0x0139, f01=0x0190, f02=» h^ !T f^ ! !j^ !U !j '! !j !! ( _N ! ( + ~UWhj !! ' !QU I N! 9 ! : ;b ! W:0 ^ h^ U !P :! ;j !!^ b ! f^ ! !A j ! !d^ ! j '! !j !! (( + b +$~ WR j !! '( ! j !! 0 (j ! !W0 )W# + Aj !
0x0c788c…0c7a20 Dummy {f00=0x0139, f01=0x0190, f02=» 6 <W U j !!~ W j !! (W Uj ! j '!!! !j !!~ j (!~ _+( # j (! !j !!~ 4 I H~*H $H !@~ W 0$@mI~ Hn @f $U W I~ W I Ao 2 H~ I Ao { _ H{ 2 _ 2 b & . #K~M g "pK s_W!gC ? /_>Iz H 0
0x0c7a20…0c7bb4 (1, 17) Dummy {f00=0x0161, f01=0x0190, f02=»Hm @ P&@jP A W3Ao ,P !_ g  L@mAo? H 0 Hm ! &@h@jP #W @fPO $0 TF 8 h ! !T #P ( -& Ub & ? Ub & @ .P )gC Ao? AzAzT @mA *P @ ? @ @m8 @xP 2 !! h ( & H #: W ? Im1I~ I & h ( & H I ) ?"I ) ?#I H
0x0c7bb4…0c7d48 Dummy {f00=0x0161, f01=0x0190, f02=»({ % H~ - !gC Az? @z? H~ C < I 0 ! W 0 ! W /8 0 ! 0$? Az % h ( & J K @o?(@m!gC C~8)?(@zC~8*?(?$Km Jz I gC T Io Ao #: _3Ao@ T / 2 %% + % # #g W ! #g #20 ! &_ I~ Jo K _@ @ !0$@o ( A P W @ 6 / A _ Hm 0 ! A %
0x0c7d48…0c7edc Dummy {f00=0x0161, f01=0x0190, f02=»%% 10 ! !0$ (V ? ##2 2 2 322 1& _ Co<$Cm<$Cz8$0 ! 2 %% 4 !X b !U *8 0% ? h ! & ? C <$ h ( & H I ?0 g( " @oW $ 2 %% 5 ): @oA ?6C <$Hz @ T Cm<$Io I~ #V - ? @o@z Ub & 5 +@mA{ *V#( - 1 0 ! 0$ { &{ mU_"@{Ao?
0x0c7edc…0c8070 Dummy {f00=0x0161, f01=0x0190, f02=»% !g2 @m?:?;@ _/0 + 0 , A~4 @~P + , 4 _ ; $ - ; Y i . & E 3 N + n | i Q m
0x0c8070…0c8204 Dummy {f00=0x0161, f01=0x0190, f02=» " ! I Y R *FTX J BC JC FTJBJD FETCHING FORMAT: FROM DISC. @ UF 0 % * & j j Ub & 5 +@mA{ *V#( - 1 0 ! 0$ { &{ mU_"@{Ao?
0x0c8204…0c8398 Dummy {f00=0x0161, f01=0x0190, f02=» !4 "4 #4 $4 4 @} 8 In06 W 0 ! WP0 ! WII~ 0 ! W?H 0 ! W50 !! W.@n6 0 ! W 0 ! I~ 0 ! W H 0 ! W 0 ! (0 : H~ ? 0% P : _ 0' P C{P A )? H ? 0(HoO !H~ 0) $ W 0) # ! 2 W 0 0 /1& _5K~|0 ! _
0x0c8398…0c852c Dummy {f00=0x0161, f01=0x0190, f02=»( 2" + " ( " # I ? & 0, P ? 0 Pm0* 0 -8 Wa0* 6 > W<( , ! :d # !_'0* P 0' P o8W o;d o "_HI 0* 2 W @ @ @ @ @h@j #U 0- ! Td$ + " , 0( %@|PI0' T /hZ " !T f ! j !! H{ ? 0' P 0. P H !?
0x0c852c…0c86c0 Dummy {f00=0x0161, f01=0x0190, f02=»88" .4 #H 0Hj 0 #T @m?#@hP !PP01 02 V 0 !_ $ + ?$I 03WL0' P 0 9%0 !01 02 T10' T2WO0 ! 04W #I{ H~ I K 0% 0(? A 0$P#:&;%Io 0. P H 2 ' ' ' ? JA J K{ 0* ?( !01 02 8 _^J #H 0' P 0. P T 2 ' 0' T 2 )
0x0c86c0…0c8854 (1, 18) Dummy {f00=0x0161, f01=0x0190, f02=» /P 06 & ?.06 " ?.0(_.0 0 H ,W H +0* 0' P 0 Q ,8/?0A 0 !01 02 P : SqW 0' X70. P J ? EK{H ,LH 0' P 0. P T +_bH KAk0* 1& ? Am #4 0% S 0' P 0 Q I ) *&KA)? 0% % 0' P-0. P H % !W/ ?1 #? 08 $+ %'0
0x0c8854…0c89e8 Dummy {f00=0x0161, f01=0x0190, f02=»W > "j 0 0 #4 @ 0, P j !!!WP U0' P m ( &W 6) D b !Z/h U ! !Q !4 !0(@ T 07 j %! !0& ! 08 % ! 6 cv6 C & 4 W 9W :0' P " "Jh !U !TA0' T h ! !T00/ _ A 0' T f !07 0(0& _ 0 0 (P h !
0x0c89e8…0c8b7c Dummy {f00=0x0161, f01=0x0190, f02=» 7jo " 1& W % 4 "1& M 0(W 1& !0) ! 6 W"0 0 $( # _.0 ! _y $5 !( * @ . !4 80 4 o? o0 0 6 4 Am4 0 0 4 6 v k | _ O x T u T
0x0c8b7c…0c8d10 Dummy {f00=0x0161, f01=0x0190, f02=» * ! & 3 8 ? P + +-0? 1 BATCH IN USESYMBOLICVALUE-SET XXXXTTT9TTTT9XXXXX- o A . 1 . . : k A C : A $ : A NOT . TIME-OUT CDV-ERROR NOT FOUND I/O-ERROR DATE ERR
0x0c8d10…0c8ea4 Dummy {f00=0x0161, f01=0x0190, f02=»ERED BATCH RECOVERY RUNNING. DISC NOT OPERABLE @ : l IN : k A CHANGE FLOPPY DISC DISC I/O-ERROR : ILLEGAL FORMAT NAME PRESS ENT TO CONFIRM NO WORKSPACE IN CORE FUNCTION NOT ALLOWED USERFILE ASSIGN-ERROR 95 % OF FILESPACE USED PRESS EN
0x0c8ea4…0c9038 Dummy {f00=0x0161, f01=0x0190, f02=»EXECUTED TOO FEW INPUT CHARACTERS OUTPUT DEVICE NOT OPERABLE COMPULSORY FIELD NOT FILLED DEFINED LINE MAXIMUM EXCEEDED MAXIMUM RECORD-LENGTH EXCEEDED !MAXIMUM FORMAT-CODE SIZE EXCEEDED !MAXIMUM NUMBER OF FIELDS EXCEEDED (USERFILE NOT CLOSED IN PREVIOU
0x0c9038…0c91cc Dummy {f00=0x0161, f01=0x0190, f02=» : h y : k : l : : z : n : : g : ASD 5 PAGE : WARNING:REFERENCE TO FIELD (F ) OUTSIDE FORMAT DEFINITION ,OCCUPIED RECORDLENGTH CHANGED WITHIN FORMAT: m . SIZE ON DISC: . B $ : ! DOES NOT EXIST IN JOB-DEFINITION OR ON SYSTEM-D
0x0c91cc…0c9360 Dummy {f00=0x0161, f01=0x0190, f02=» ! )0 2 ' 0 9 B M Y e q ~ 3 H ] s 6 Q l ! $ $ ' + K / v 4 ? ? F W J @7 z
0x0c9360…0c94f4 (1, 19) Dummy {f00=0x0162, f01=0x0190, f02=» @g@i@k@ "0 ( #W H % W % 6 0* 2 W ? A o W o ~H h~ ) !PL@ < ~E h~ ' !< A ! & !@ W 2 W 09 #XA _ 2 !j !! j ! !$ 60 ! ? A _ !A <
0x0c94f4…0c9688 Dummy {f00=0x0162, f01=0x0190, f02=» ? A _ 0# !< " ? #@ T 0' P9W I 46 0 ! W 0 ! : 6 h W h 8 ? 6 0# !< " ? 0# !< " ? ( 09 ( #)0* A h U ! < h 8 ? " ? < 9h ! !P !W !j !! ! =f "d "!U d !
0x0c9688…0c981c Dummy {f00=0x0162, f01=0x0190, f02=» ? & ? ? 0 9 ? " W @g@k !Ai !? $@kAgW #@gAk@i ! j !! ! Uj ? 60 < h !TL j !! ! 4 ) 5 ! h ! !T ! R h !U !P7 !_& h ! !X&W#@ T 0' P! W I h P Wk ~Ub~ "~
0x0c981c…0c99b0 Dummy {f00=0x0162, f01=0x0190, f02=» ! _6j " - 8 & ?!@ P 5Ii Ik Ig A|W 4@|@ & , 3hZ !PDj !! 0 (P 60 !_<( 4 !, @h $ !ThI|m2 ? 2 """"#$"$$$#$$"""""%&&"""#''" !_h( !? 4( !_ "_ _ ! j !! ! _ _ A| "
0x0c99b0…0c9b44 Dummy {f00=0x0162, f01=0x0190, f02=» Af4 L@d@g0 @ W< %Ad01 02 R Ag00 ! T 01 02 @dW Hd 01 02 @ 4 ! ! L Ah $ !6 00 W. "0 @| uA j !! ! j !! 60 _N ! 6 iiWJ@e !L ! ;h ! !P !@i ! 9( Jh * !TX6 rr rrW !
0x0c9b44…0c9cd8 Dummy {f00=0x0162, f01=0x0190, f02=»! 6 & ) 0# !<) W30# !P(?)0# !<) $W ( 09 # W a / " Hi b " !P 6 ! "?* ! "?* ! "?* ! "He U m " 0# !<) ?+( 01 02 0* 0' TJ U m ! P Q 0* , ~8d ! ~ W f ! ! 0 0/ 0% ?+ h X
0x0c9cd8…0c9e6c Dummy {f00=0x0162, f01=0x0190, f02=» U j ! !0 P b ![ ! ! ( 4 @h0B ! P # ( + ?,0. <-AhW %hZ ( !<- % (:- ! ! ( $ 2hZ ! !T !j !! W % 2 .../ !X b !U ( W )W =f "d "!U d ! 8T 0: (+0; + j !! 1 ! & 0' T/0* V
0x0c9e6c…0ca000 Dummy {f00=0x0162, f01=0x0190, f02=»! 4 ! U 6 _l; 2*0# !T Wo0 "T j !! !b WX WU Wb Sf !WAH{ W<09 " m W W 0# !T3m W 0# !T&m W 7h U ! V !!4 !"4 80 1& 0 6 ''' ' y ''' "W% ," "0 We08 W "_ '_ !08
0x0ca000…0ca194 (1, 20) Dummy {f00=0x0162, f01=0x0190, f02=» T O j & % . i } 8 [ D S q d E = G B 0 M 8 7 > D Z ^ L q - Y c + ? P0:;=
0x0ca194…0ca328 Dummy {f00=0x0162, f01=0x0190, f02=»TTTTTTTTTTT9 ! I D DELETED INSERTED + ON UNIT:U i + WITHIN JOB: k RECOVERY RUNNING. RECORD CORRECTION F FREEZING OF BATCH l CONFIRM RECORD INSERT CONFIRM RECORD DELETE: RECORD MUST BE VERIFIED ENTER
0x0ca328…0ca4bc Dummy {f00=0x0162, f01=0x0190, f02=» FF* RECOVERY OF : k B : l RUNNING. ( ',!.%)$&"#-* $ * 0 7 ? G P Y c0 m * 5 A Q c w
0x0ca4bc…0ca650 Dummy {f00=0x0162, f01=0x0190, f02=» L @ D H( &Ad1 An@m 6 0 _ @n_ ( !'( _&3 @d0 0} h* h _? ! 4 6 99 W 2 !8 "8 #8 W j " # L j " "# P|j " $# Pr? ! !6 +; ^# 8Zb !" Xj !# 'bc (c" 3? 1? ? @ W' ## 7 ! ? " 5 " " ! T T
0x0ca650…0ca7e4 Dummy {f00=0x0162, f01=0x0190, f02=»2 _ !0 #$} & 2 _,4 j 1! ! !j 2! ! 4 R ! 4 Hd ? ! 8T & ( !0 #$}? ) _ ! Zb "" " < $ U@f@e0 " An 2 _ ! : ! @ ; W < " ! j " j $" Af07~ 0 "P 07~ j~#!
0x0ca7e4…0ca978 Dummy {f00=0x0162, f01=0x0190, f02=»e ! 8R AnW* ! " _W) !$ ! $ W !W 8P )B? 0: (+0; +@eAf ! ! 0 %%In 0 $%Ao 2 W ) !Ao _ ! 8T !_ ! 8 ! ( TJ? ! & ! Xb !# ~ " ~ T $ 0: (+? - !?
0x0ca978…0cab0c Dummy {f00=0x0162, f01=0x0190, f02=»~ ~ RR j !! !07~ j " V0 "P W07~ " !j~#! ! T j " $ j !! 1j !! 2 !!4 1 W 3P W An 2 _ 4 4 ! ! ! P 2 _ 0: +1 0 ! !G! "?! !r ! " ! ! # !An@m 6 p _ 0 ! _7Hm_ #P Q 2 ! " _ 0$ 6 A _ $Gv ?
0x0cab0c…0caca0 Dummy {f00=0x0162, f01=0x0190, f02=»0} # * h h _? ! 4 1 Ad!hq @dAn@mAe 6 ?$ " &z 2 %&%4 5W 6Jd P AoHe @o W 0: z ,AnAo@e 2 ''()*++ _( (z T &PU 1 2 ,,-./. # %XjAo _9 z! X#b !& "z <0 $z zU0: z ,@e0 " *k0 " _ He% k0 k<1Id $P )SW "T k
0x0caca0…0cae34 (1, 21) Dummy {f00=0x0162, f01=0x0190, f02=» = =_=0 !P #_R * , !" 3 h &U !T , , _ ,& !8'W:6 1? >h ! !P 0 /8 W 0 /< ? W %W ( ?2 2 j k | d t 1 2 s 3 R
0x0cae34…0cafc8 Dummy {f00=0x0162, f01=0x0190, f02=» c ! Y f P ] c *AN010203040506070809101:232:3:4:595:6:7:8:9:A N T GETTT FILESIZEDATE:TIME:CREATEBALANCE:JOBNAME:USERFILEFREE %SYMBOLIC:BATCHHEAD:SYSTEMFILEVOLUME-NAME:15 FILE SPACE15 FILE-SPACEUSERFILE UNITNAME CONTENT
0x0cafc8…0cb15c Dummy {f00=0x0162, f01=0x0190, f02=»XE-XXXXE.XXE.XX T 0 * h d m p n o i m ] f ! ^ g T U h d ' l a e k e k 30 - - * 3 h d 31 _ - - 32 Y - - h j :U i g [ c f ! " # # b $ % # & U
0x0cb15c…0cb2f0 Dummy {f00=0x0162, f01=0x0190, f02=»@ ( X% I @ ) X% J @ * U e f 4 ` &g 5 $ K fA ! d &A + $ M fA " d &A , $ N fA # d &A - $ O fA $ d &A . $ Q fA % d &A / $ R fA & d &A 0 $ S fA ' d &A 1
0x0cb2f0…0cb484 Dummy {f00=0x0162, f01=0x0190, f02=» " $ & ( * , . 0 2 4 6 8 : < > @ B D F H K N R V [ ` f n v ~ (0 <0 > ! # # & F < l Q
0x0cb484…0cb618 Dummy {f00=0x0162, f01=0x0190, f02=» T ( !Ad1 9An@m 6 6 W,@n_ ( "2( _!@j3 @ @d0 0} 4 h _= _< ! 4 6 Sfl{ W j ! Ii ! 9 W ) 9 m ,P ) ? ;j !& 'bc c b W 0* ! 6 $ r"? 7" v$ !r? 8 Tj *P ? 1? " Q$ FWK $ $< ?
0x0cb618…0cb7ac Dummy {f00=0x0162, f01=0x0190, f02=»/ !T; 6 MMMMMM~~MM~~MW|Iiy ! %n h / !T ,JWX ! %P h / ! 6 3 W1Ak_+ !" %% h / !T , W Hk ! c % c c _ & !? 0 %% 8? !6 (DTdt_ * ? + ? ,< j ! ! 9 @iW Ai? P ! : ? A W @ ! < A ? @ ?
0x0cb7ac…0cb940 Dummy {f00=0x0162, f01=0x0190, f02=»% A0; ,0: , $ ? "r= ( 2 07 6 'h #Q !j , w j 1!w!Ii j 2! ! !j "" j $" mHj -P !2 _ &{ { )P !Ix 6 * ? &{ { *P !2 _ ({ P !2 _ -P !2 _ { + Ii 0; {$* p!0
0x0cb940…0cbad4 (1, 22) Dummy {f00=0x0163, f01=0x0190, f02=» !* & & & ! 5 0 "}H{ Ij 4 !6 H" W 0; {$*0 P _4 0 "}_? 1 !6 TT _P - PJ !6 ??_&Aj p! u # $ j $!! {1j #!! {2 $ #? &{ @jP { &{ W &{ @jP H{ m *" ! I{ ? % & 4 0 6 55 555555555W 'I ( W Ij I
0x0cbad4…0cbc68 Dummy {f00=0x0163, f01=0x0190, f02=»Hi! ' 0 (T W $0% "W 0% 4 @g0 0} { 1 7An@ An2 _ 0 0}@n_ 6 5 ? Ag@ij !m ) 9 AiW 0; {$* p!0 AnP 0 ! 0% 4 2 _Q 4W XT 8 2 Jgwjm & {!_: 2 _ ({ P _ &! 1 2 -P 7 nn &{
0x0cbc68…0cbdfc Dummy {f00=0x0163, f01=0x0190, f02=» "|Bn { |? 3? @n ! " P W0 % A0; ,0: , T W % & 0 ($}2 ? &{ 0 0}4 0 0} { 1 8An 6 _ @n_ 2 Wm * ;j !& 0; {$* p!0 0 ! 0% 3 6 ++3 ({ T j !&m j {!& ! )P R W 2 W &{ _
0x0cbdfc…0cbf90 Dummy {f00=0x0163, f01=0x0190, f02=» 4 & ( $j ! ! !4 & ! c # ( % !j ! !! !j ! ` !4 & " c # ( & "j ! "! !j " ` "4 & # c # ( ' #j ! #! !j # ` #4 & $ ( ( $j ! $! !j $ $4 0
0x0cbf90…0cc124 Dummy {f00=0x0163, f01=0x0190, f02=» w! 0 ""j !Q W = ! +W !@ !@ 4 j !Q * & ' @d@ 4 % ( H + "20 !!" " !)I 0 # W 0 # & ' % y %Ad W < ! !4 I /W . ( a - !+ 7 !) !< # j ! ! ! # 7 j ! !
0x0cc124…0cc2b8 Dummy {f00=0x0163, f01=0x0190, f02=» wHj $ # 4 j y C o 7 7 $ l 0 C v h o 9 - X ! Y G ~ y 7 N & " ' v
0x0cc2b8…0cc44c Dummy {f00=0x0163, f01=0x0190, f02=» h @ m 24 COPY $ $ TO BE COPIED: q @ NEW $ NAME: v @ m U 20 $ - - * h d7 21 ? - $ - 22 @ - $ - 23 > $ 24 COPY $10/.-,+*)('&%$#"! 2 0 ;
0x0cc44c…0cc5e0 Dummy {f00=0x0163, f01=0x0190, f02=» ! # * M C Q @ : : 7 7 $ l 0 C v h o 9 - X ! Y G ~ y 7 N & " ' v
0x0cc5e0…0cc774 (1, 23) Dummy {f00=0x0163, f01=0x0190, f02=» e t 4 $ f c# # d# 7hZ c! 7 c! #2 W bch b!Z7!T W c N? b% ! b_ b$ " b ,# c bch b!Z2! } c! b$ " b_DW ( % $N b/hZb" c!T b/ >j c! b c! b$ " a W b# # b*a & &a_ a c! ac bch baZ7!
0x0cc774…0cc908 Dummy {f00=0x0163, f01=0x0190, f02=»)c ' ) ' j (! '!f c! ! d!? ` 4 j b c a j c!a! b b! c!f cb db4 j b u a4 u $ #@g c hZ a b! +2 jc!! b"c W 6 b! !jc!! b"c b! !W, ! b! !Hg ( 'b `3d b!Z` b! ! !@g _ " ,0 b! ! `bh `!Z2
0x0cc908…0cca9c Dummy {f00=0x0163, f01=0x0190, f02=»b! ! ' j '!! b ' j b!Z= 'b '!Ag_ 4 b!jc!! b c ` m ` f b!d b` `! ` b` ` !Hg '`4 1& P # W !05 p! u ! " !! w jw!! {1j !! {2 w d "2@h u" ! Kh !@k ~60 oT @j~ # # - b o -( q0 TF b , ! , " , # E h )
0x0cca9c…0ccc30 Dummy {f00=0x0163, f01=0x0190, f02=» &%W #$d &%( A b ~6Ak_Dj~ b #* Ii !"d &%W #$d &% ~6Ak4 + 1& P W !2 1& P # W ! 4 @l #hQ 0 !0 6 F MMMMMM? !j !! !_9 "_> Hj j !! {(j { ! % { $! 0 ""Il _h !Ah? Al - ! j !!
0x0ccc30…0ccdc4 Dummy {f00=0x0163, f01=0x0190, f02=» !: ":H "< #:H #< $:H $< %<H %:H "8 # oU U b ! " # $ + ~E U # hQ 0 !T 2 W W #_) !j !! !( "Q Ii "_H ! `! a! !07 h )Q ! ! # `" a j a` j a` ! ( !_ $ 6 1j b#~ W j b#~#W j
0x0ccdc4…0ccf58 Dummy {f00=0x0163, f01=0x0190, f02=» ! " `" a j a` j a` ! p 4 !jo ! - h] $ !T 6 #+jo ! ! !" %_*jo ! )_ jo ! +_ ! !_+J .jo ! ._/jo ! , !4 6 b @h@k hQ 2 !0 2 ? !j b! - b! !j !! H ;W 9j ba baj b! , ! b!__ j b o "
0x0ccf58…0cd0ec Dummy {f00=0x0163, f01=0x0190, f02=» _ %b!b5 j b!U b!_ HkJ cWE , a ! b jb!! b!+ b"$ $ # !07 h )Q ! 0F a #? !4 = 0 !01 02 T$0* 0' P 0* ( " ;_* 9_/ _44 0 i } - p ; [ s = e 9 ; 6 ` e 0
0x0cd0ec…0cd280 Dummy {f00=0x0163, f01=0x0190, f02=»GTH#V:#G:#A:GENERATION VALIDATION ACCUMULATION 9Z9999XXXZZ9XE+XXZZVZZ9ZZVZZZ! 1 k " ( % & ) 0 ~ k: " $ % & ' ! " # $ % ) 0 ~ 1 $ : m ( NUMBER OF POOL-UNITS: # d A : ! C ACCUMULATOR POSI
0x0cd280…0cd414 (1, 24) Dummy {f00=0x0163, f01=0x0190, f02=»# d A : ! C B - MAX/MIN K M A V I DUPLIC. SPEC. #L:< B LAYOUT> #V: G #G: F #A: H NO NO/POS - D I E T E C -ITEM HANDL. % + 4 ? J
0x0cd414…0cd5a8 Dummy {f00=0x0163, f01=0x0190, f02=» f 0 !P * 0 "P + , * , +! *5: + 5 5 *f * 8 j % , + , +5 *5W * , + c : E bch b! !Tk c! h & c"T " "Hi #L c" bc a , ach ba "T cb c!W. bc :h ba !P b , b T ( # A c ,T c!_hHi 0 -.0 &' &W 0 120 ,-
0x0cd5a8…0cd73c Dummy {f00=0x0163, f01=0x0190, f02=» Wf b2 W? ;2 W Ik Ak 2 ? W c c! bch b!Z7!P c!WF c! c % a=hZa! c!P "5 c!W)Ag >W @gT _F c! c _ ? !T 0#a !T _ "T ( ) , $a #a7 W60#a !T W-0#a !T W$$
0x0cd73c…0cd8d0 Dummy {f00=0x0163, f01=0x0190, f02=» a ac bch baZ7!T( bc*b !,b : ; W "b& cb_ c!,c _C( $ c ! & ! W Kg !!4 c! bc b "b Uj c b m b b a 4 Ii 1 W 1 4 Ii " !W ! 0 " P !, ! ? Ij { j 1! !j 2! !Hj ;j !&m $ r"Ii' U ! ( j !! (
0x0cd8d0…0cda64 Dummy {f00=0x0163, f01=0x0190, f02=» ! @n ! Ij 0 : 0% P8: _ 0 && du d ! 0 ## #_* 4 ! !( % A _ 0(I I I I Ij& # x 0+ )+ W20+ *+ W(0+ ,, W ! $ 0) / T W 0) - T ! 2 W "? I I I I IjO2 !0* / 2 W$0/ Am6 ! b
0x0cda64…0cdbf8 Dummy {f00=0x0163, f01=0x0190, f02=»T %y0 %%_ W}? ( 0(W !0* ( 1& ? 06 . ? Hi He 0 ( #0 T ,I ! He $W I # 0% ? 0^ $ % 0 0 < 2 ? 2 #? 0 0 ? $ 2 !" #$% &'(2 !" ) *0 %% ( @h u!He8Kh 0 % $
0x0cdbf8…0cdd8c Dummy {f00=0x0163, f01=0x0190, f02=» @ #?+A @ u!Jh _ @ !^A _DA ( .He @h u!Kh ( ! u! du d ! _3 $? $? , 2 O > ! , + @ z f Y { @ Z ^ o m w ` 8 J # 1
0x0cdd8c…0cdf20 Dummy {f00=0x0163, f01=0x0190, f02=»HFIELDLINE STARTLENGTHNUMBERRECORDSTART:V:G:A:(#A:...)(#G:...)(#V:...)123456789 1234567890CORRECTIONGENERATION VALIDATION ACCUMULATION AAZ9ZZXXXTTTTXE+XXAAAAAAZZVZZZ 1 $ : e ` m < SIZE: f ` ! ? B : + " . B OF POOL-UNITS: D # 1 2 3 ( 4
0x0cdf20…0ce0b4 (1, 25) Dummy {f00=0x0163, f01=0x0190, f02=» = -ACCUMULATOR:A m ( . SPECIAL HANDLING: @k M H L G o@ ! p@ " U 21 USER $ - j # K > : F $ D % A : & & . OCCUPIED C A : E ( KEYED INPUT ( Y /N/C): l@ ! . MINIMUM A > : @i ' MUST EN
0x0ce0b4…0ce248 Dummy {f00=0x0163, f01=0x0190, f02=» ) : @t@ $ INITIAL CLEAR ( Y /N): u@ % . SPECIAL HANDLING: @k M H L G 2 N F o@ ! p@ " U # ( . 4 : @ F N V ^ h r |
0x0ce248…0ce3dc Dummy {f00=0x0163, f01=0x0190, f02=» R ` @e kU lU( .AdIe 1 0W 1 ,An@mIe W 6 . _ @n_ Ief( $A6 _<A W A W A A Ae@d_D@ $V 1 ,An@m _L@ T Ie ! 4 @e@dKeN@ @ @ $ * h h _ + , 2 _ 0 1 ,0% _ @e kU lU( ,AdIe'1 *An@m 6 $ @ P $ _
0x0ce3dc…0ce570 Dummy {f00=0x0163, f01=0x0190, f02=»(+0; +( > " 1 W 1 "An@m h 2 _ _ 0: (+0; +0% _ "l lU h " 1 W 1 " l "2 ! 4W 5 T ! +T | j " &| W E !" ! 0 %, ! b &l b &!Z2b '( "lW b &k !k # 0 # 8~@ P $0 #$@m0
0x0ce570…0ce704 Dummy {f00=0x0163, f01=0x0190, f02=»2 _ _ 0 ~P + , @z6 Az _ @ @z $XP@ ~U 0 , P& b~ ![) !0 + T b~ ![( !b~ ![ ! ! (41 .0 %%0 &&0% $ _ 6 ? ? + , 6 h[ * !T06 $ $$ 0 , T 0 , @ T 0 + !_6A X @ T ? &? @e( +AdIe 1 /W 1 +An@m 6 -
0x0ce704…0ce898 Dummy {f00=0x0163, f01=0x0190, f02=» 2 _ 0 1 +0% _ kU lU( xAdIe 1 (W 6 1 #W 1 An@mIe W 6 K @ T $ _ @n_)@ $V 6 Ie ! 4 @e@d ' * h h _sIe ' @f6 _ AfAe@d_ 2 ( 0 kT (!0 lT (! %0% " _ ("6 ( , W - ! 2 AzT ! '
0x0ce898…0cea2c Dummy {f00=0x0163, f01=0x0190, f02=»6 ( _W %T ( * 2 ( )gK " '"( g " #2 $T # '#( _ Ub & 5 + *P ( - { &{ 1 -0 ! 0$ mU_" m 50; {&* p!0 $ '$( D0 $} | @ 0 2TX 6 ( W? 0 $} 3 T l $_ & A %T @ _ @ W'" 2 !W 2 " 2 ' #$%&@z 7
0x0cea2c…0cebc0 Dummy {f00=0x0163, f01=0x0190, f02=»b? )? ( h < Q j p % t " d w ( h X " ! Y "TOKEYVIAFILENAMETESTUNIT
0x0cebc0…0ced54 (1, 26) Dummy {f00=0x0164, f01=0x0190, f02=»X U & U 45 ? - < & ' 1 71 I 5 J 71 I 7 F ' ! 9 : ! k < 9 : " l 9 : !A k < 9 : "A l % ' ! 1 ' ! ) 53 % A = 52 % < = 51 % = ; :U
0x0ced54…0ceee8 Dummy {f00=0x0164, f01=0x0190, f02=»> 6 / : ' h ! : ' FETCHING FORMAT: FROM DISC. @ U $ ' A - @ : # A - B : -e@ ~ 60 * h d0 61 6 62 > 63 6 / : 64 > / : 40 ! * h d3 41 G <
0x0ceee8…0cf07c Dummy {f00=0x0164, f01=0x0190, f02=» ) / 0 1 ) 2 3 4 ) 5 6 7 ) 8 ! & + 1 7 = C I P W ` i r |0 " 0 ? N ] m } + # I $ l & * 2 F
0x0cf07c…0cf210 Dummy {f00=0x0164, f01=0x0190, f02=» x ; J l p t2 $WU6 _ PCWD1& *T !05 T W/ W- W)6 ! W @( ( SUW 6 W W W W W 4 6 _ 6 D I 5 W W4 %Q / 1 3 @ @ @ @ T U0C T 1& " R_R AW A _[K H 1& 'A _lK !05 % - ! _ _ W'W
0x0cf210…0cf3a4 Dummy {f00=0x0164, f01=0x0190, f02=»& %_- 2 I i W Wh ' 80G 40 TP W WJ %Q / 1 3 @ @ A T, U0C T 1& # W W 6 ! W W ? AW A ? ' 80G 6? K "H 1& 'A ? K 3I $ " W !05 E - ! ? W W W W %_e _j _ W WA !_% W W 8 '0
0x0cf3a4…0cf538 Dummy {f00=0x0164, f01=0x0190, f02=» 8 '0G 6 2 W _ W _&2 W _2 8 0G _H0 @ ' 80G @ ' 80G 0 & ? U0C T 1& )_D U0C T 1& (_S # # " T - ! B4 4 8 " '0G 0 <0 T@ 7j & j ( % 6j !% 5j " 1 -An0 !
0x0cf538…0cf6cc Dummy {f00=0x0164, f01=0x0190, f02=»$2 / b /W b $ 'I ` F `!*` a`h a! ! aW W j b b ` ` j ` 1 % `* ` 1j 0 1 ` 3 $ `* ` 3j 2 3 `" W-d " ` `"0H `f " f !X 4 d " ` `"0H `f "4 0 0 0 "P 4 90 : 6 ? B j
0x0cf6cc…0cf860 Dummy {f00=0x0164, f01=0x0190, f02=» 1 % `* ` 1j 0 1 ` 3 $ `* ` 3j 2 3 `" Ej ! !WRH ` ( ` ! ! Dj ! ! 8 0G f !8 4 Ba & j W 8 0G 4 4 ' 80G 0 0 %P 30 T 4 ' 80G 4 " C $Q @ H A !01 02 P : ? 0*
0x0cf860…0cf9f4 (1, 27) Dummy {f00=0x0164, f01=0x0190, f02=» ) @ _ _ ) A _ & m W @ _ ) H 0 T 0* 0' P R m Wf" 5 R 0* 0 /P%H ) m WBm W m 6 !W H ) m W m W m 5 f () m H ( # $ / @ /! ! " ? 4 4 4 4 4 % v } K
0x0cf9f4…0cfb88 Dummy {f00=0x0164, f01=0x0190, f02=» ` b j } & V A ! - 7 B O o ! &&FILENAME KLARDEVICELISTNING AFBRYDESEXPIRATION DATE:FLOPPY DISC SKRIVNINGOLD VOLUME SEQUENCE NO:OLD DATA SET IDENTIFIER: 99999999999999999-99-9999999999999999999999
0x0cfb88…0cfd1c Dummy {f00=0x0164, f01=0x0190, f02=» S l K , N , K L , K I , SLUTD % + EJ GODKENDT N KLAR , N AFBRYDES , 1 * NUMBER: g JOBNAME: k BATCHNAME: l DATO: S TID: T IND: g UD: % J : # G - H : M
0x0cfd1c…0cfeb0 Dummy {f00=0x0164, f01=0x0190, f02=» 1 7 ? H X m 0 0 , A V l & 1 < J Z j ~ # 0 5 d EQUENCE NO:OLD DATA SET IDENTIFIER: 99999999999999999-99-9999999999999999999999
0x0cfeb0…0d0044 Dummy {f00=0x0164, f01=0x0190, f02=» r f j n 0 Hf ( Hg ( j I 0 ##Ie !l_0 ! $ % & Ii I " " ( I 0 $'Ii # 3 " . I 0 $ W .W 0 ! ( % ( % !4 @e@f@g 6@l l eIe ( 5@l l f( If 7Al l g !Af( hIg !W` 6@l l eIeJ(
0x0d0044…0d01d8 Dummy {f00=0x0164, f01=0x0190, f02=» " !P I A ! ! ! % _2 ! W ! !4 % @e@f@g@ 4 ! " # $ * + , 4 o5 Hi 0 h / !Tr 6 )'''''48fD]]NW[A A A jo ! ! ! ! h / ! ,p_ A jo ! !W:A W.jo !] A A W*A jo !]!W jo !]#A A !W jo !]" !A jo !
0x0d01d8…0d036c Dummy {f00=0x0164, f01=0x0190, f02=» 8 h ) c#T # # d0 3 ( `c_*0 T ` c d H 0 $ 4 I 4 " " j " " j " " $ . ! # T ! 0 "" U W !+ !4 0 *0I 0 0 "X 0 *P A _ @ 0 )X$_ 0 n : 8 E I w U _
0x0d036c…0d0500 Dummy {f00=0x0164, f01=0x0190, f02=» < f M f M A ! ! ! % _2 ! W ! !4 % @e@f@g@ 4 ! " # $ * + , 4 o5 Hi 0 h / !Tr 6 )'''''48fD]]NW[A A A jo ! ! ! ! h / ! ,p_ A jo ! !W:A W.jo !] A A W*A jo !]!W jo !]#A A !W jo !]" !A jo !
0x0d0500…0d0694 (1, 28) Dummy {f00=0x0164, f01=0x0190, f02=» d 0 $}j *!! x0 @l 2 ? j x! ! wx xyj &"x !g:e x y" e @ TW( ' )g: @l? j xy wj x! { W< .V xwj &"w W j ! " "Hn ' wxjx " & wx wxf xwj x! { wxj !! x( % j " &W ( ' j ! " " { 0; {$* p!0 0: x*6 VVVVOVOVV V "!H '0 **P I %!@ A W
0x0d0694…0d0828 Dummy {f00=0x0164, f01=0x0190, f02=» x* !u uv_ 0 j x! ! 7 ZH_ j " "jx " &"x* ( 3 Zf_q 1Zm u ? !u (R j "" j &"x u !? ! _ j " & wx x 'jy " xy x u$x Aj " $( xw u 4 /_ /Z j " &( * 1Z)_5 x* wx x 'jy " g2 #gYuP W j ! x0 , + & # ( #2_
0x0d0828…0d09bc Dummy {f00=0x0164, f01=0x0190, f02=» : ? ,wx W x* WY uj " "( ? j " &( * % 1W 0 : j " & *1 1 W u ! u ! u ! 4 : jx " & 1 w*j " w wx wx j &"w xw? w w !( % _ ' xw g2 # ( ( #g? g "b & AlW '2 : 1 _ : ? $ )g: ' 4WAH !W9AlHl
0x0d09bc…0d0b50 Dummy {f00=0x0164, f01=0x0190, f02=» *PE - { ) ? 1 0 ! 0$({ ' x( ' ' wj " jy " ? &{ mU_ m $ ' ( @lW !g: ( nmW *W * n An xIl j ! { W . ( ' !g: j x) w < ? < ? !j &m &j "y ( + ? A ? < 0 @vP C 8 ? ' ( % 2 ! C 8 0 @v< "!_y # "= g "
0x0d0b50…0d0ce4 Dummy {f00=0x0164, f01=0x0190, f02=» ) 0 @v $W &z &| &{ 0 @v_U &z &| &{ 0 $} 5 ^ # + "@ X& ! : !0# !X 0 " %P @ 0 0 $} 2_R * ' #2 $T -_ #_-@ P 0 $}A 3 W Ay@m 4 @ 0 0 $} 2V @y@z@oA # &{ &z &| h Ae0 0} 4 2 $%%&' uf
0x0d0ce4…0d0e78 Dummy {f00=0x0164, f01=0x0190, f02=»* u$x j $" 7 :(W .:( uf *y x *j &" _* u 4 :(j "" 7 :(W j ! "u u 4 :( w* x*j x! { ?) h ( ' 0 kP W1( $ ( % W ( % # 0 @vP (z Ub &k "V 0% " ?(I + #P R 0 @v0% # b &l ?*A 0 @vP 6 &z ?+0 @vT/( ' z W ( % 6 !
0x0d0e78…0d100c Dummy {f00=0x0164, f01=0x0190, f02=» I H 4W I 5W H~ I (W ' A P A WB0 @vT ( ' $W3 $W I K @ 0 0 $} 2TmH 7 Uj &"* W 4 TT0: z , { 0 @vT % 4 * *T4 m 4W mU x*0 @vT % I S2 * An0: |"- wx g 0 WYH ( 3 # W &| 0% ' 0 @vT &z @ P $0 $
0x0d100c…0d11a0 Dummy {f00=0x0164, f01=0x0190, f02=»_B 4 ! ! + 9h # !T}6 ,, !0 @|Thj !! ! j !! 80 _K ! $ !A !@( "90# !T2@e@i@k !" ? 'hZ 2 !TP &6 " _ Ai_8Ae_<" v :WpAkW ! ( ~ !~W)j !! C 80 U !b ! !
0x0d11a0…0d1334 (1, 29) Dummy {f00=0x0164, f01=0x0190, f02=» = N D ^ P R 1 y s n G a 3 4 X Y ! - ! " % & ?MDA FETCHING FORMAT:
0x0d1334…0d14c8 Dummy {f00=0x0164, f01=0x406c, f02=» ( > : 8 @RRR_,4 j 1! ! !j 2! ! L R R ! 4 t V@ h & n XX | " T & & g XX " T & ELEMENT
0x0d14c8…0d165c Dummy {f00=0x0164, f01=0x018e, f02=» @ H IDENT DE1201 TRA 10.0 80-10-10 F1 O1111 REL 10.0 80-04-11 ENT12 H $$$TRA1 X ENT12 j > : hA20 ATTDB ATTWB CANC110 CANC12F CLEARB DECLRN. DEDISC- | B > DEPOOL DERR DERROR FMOVE RESTOR T:DISP T:ERAS T:GETF T
0x0d165c…0d17f0 Dummy {f00=0x0164, f01=0x0190, f02=» % 4 TT ( < < J F " D Hd ?R ! R8T R& ( RK !0R#$}?R ) _ ! Lb "" R" L B ! D R Y ] ^ _ g
0x0d17f0…0d1984 Dummy {f00=0x0164, f01=0x0190, f02=» ! L ! L L W b 0 " @ P ` J F " D L " ! j " j $" Af0R~F0R "P 0R~Fj~#! ! ! !W p c $ !
0x0d1984…0d1b18 Dummy {f00=0x0164, f01=0x0190, f02=» $$ %0X 0X %%0X %% ` . > N ^ n ~ $ ! $ +
0x0d1b18…0d1cac Dummy {f00=0x0164, f01=0x0190, f02=» d { J F " D @ !$ ! $ W !W R8P )B?R0R (+0R +@eAf ! ! 0X %%I j z R 3 @ , ,
0x0d1cac…0d1e40 Dummy {f00=0x0164, f01=0x0190, f02=» !_ ! R8 Z ( 8 T H J F " D ! R( TJ?R ! R& ! Lb !# ~ Z % &
0x0d1e40…0d1fd4 (1, 30) Opaque[0x194]
0x0d1fd4…0d2168 # DirEnt {nam=»DEUNPF«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0858, f03=0x0000}
0x0d1fd4…0d2168 IdxSect {
0x0d1fd4…0d2168 f00 = 0x0042 // 0xd1fd4 @0x0
0x0d1fd4…0d2168 f01 = 0x000c // 0xd1fd6 @0x2
0x0d1fd4…0d2168 gno = [ // 0xd1fd8 @0x4
0x0d1fd4…0d2168 [0x00]: C0x0042.0x3.0
0x0d1fd4…0d2168 [0x01]: C0x0043.0x0.0
0x0d1fd4…0d2168 [0x02]: C0x0043.0x1.0
0x0d1fd4…0d2168 [0x03]: C0x0043.0x2.0
0x0d1fd4…0d2168 [0x04]: C0x0043.0x3.0
0x0d1fd4…0d2168 [0x05]: C0x0044.0x0.0
0x0d1fd4…0d2168 ]
0x0d1fd4…0d2168 }
0x0d2168…0d22fc Dummy {f00=0x0042, f01=0x0190, f02=» $ P IDENT DEUNPF REL 10.0 80-04-11 P 80-02-19/JAER , * D , '* THIS PROGRAM UNPACKS NEXT FIELD N , (* FROM CURRENT ATTACHED FORMAT AND ~ . )* MOVES THE UNPAKED VALUES IN THEIR . ** CORRESPONDING ITEMS. THIS COULD
0x0d22fc…0d2490 Dummy {f00=0x0042, f01=0x0190, f02=»ETERS : BUFPOS = CURRENT BUFFER POSITION z > P* OPT = 1 = CORRECTION MODE 0 < P* = 2 = PRINTOUT MODE r @ P* -INPUT VARIABLES : PINDCB = FORMAT BUFFER INDEX @ ;*
0x0d2490…0d2624 Dummy {f00=0x0042, f01=0x0190, f02=»ES : z H P* FBIN1 = NUMBER OF CONVERTED POSITIONS > P* BOOL9 = F FKI NOT FOUND YET Z 6 P* = T FKI FOUND P* 0 +* -OUTPUT VARIABLE : DEBINW2= 0
0x0d2624…0d27b8 Dummy {f00=0x0042, f01=0x0190, f02=»HARACTERS X H P* FMTWK(W1) = NUMBER OF VALIDATION CHARACTERS H P* FMTWK(W2) = NUMBER OF GENERATION CHARACTERS ^ J P* FMTWK(W3) = NUMBER OF ACCUMULATION CHARACTERS J P*
0x0d27b8…0d294c Dummy {f00=0x0042, f01=0x0190, f02=»**************************************************** ~ DDUM DEDDIV < PDIV P $ ENTRY DEUNPF UNPACK NEXT FIELD ^ * P ENTRY FEDIT FORMAT EDITING P* " P ENTRY DEUNPL UNPACK NEXT LINE $ P EXT NOPOOL NUMBER OF USED POOLS
0x0d294c…0d2ae0 Dummy {f00=0x0042, f01=0x0190, f02=» FROM CURRENT | P EXT ADJUST P* * P* EQUATES 4 P* L PALPHA EQU X'00' ALPHANUMERIC V PSCHK EQU X'03' SPECIAL CHECK z EJECT PDEUNPF PROC BUFPOS,OPT P CLEAR BOOL9 NO FKI FOUND UNPM P MOVE BIN16,W3 M
0x0d2ae0…0d2c74 (1, 31) Dummy {f00=0x0043, f01=0x018e, f02=» 1-4 C n . P UNPELB,UNPELB,UNPELB,UNPELB,UNP9, 5-9 C . P UNP10,UNP11,UNPELB,UNP13,UNP13, 10-14 C @ P UNP13,UNP13,UNP13,UNP13 15 r PUNPELB P B UNPE END OF FORMAT P EJECT PUNP3 MOVE BIN15,W0 P ADD BUFPOS,W1 NEXT BU
0x0d2c74…0d2e08 Dummy {f00=0x0043, f01=0x0190, f02=» P ADD BUFPOS,W1 NEXT BUFPOS B UNPM GO ON * UNP4 (FTAB) @ P ADD BUFPOS,W2 V B UNPM GO ON l EJECT UNP9 (FLINK) 6 P PERF UNPFLK,BUFPOS UNPACK FLINK INIT NEXT BUFFER * P TBF BOOL7,UNP9A JUMP IF NOT CORR-MODE
0x0d2e08…0d2f9c Dummy {f00=0x0043, f01=0x0190, f02=»X'-FREEMARK j $ P MOVE PINDFR,DEBINW3 NEXT BUFFER . P SUB WORK(W4),W1 REDUCE NUMB OF OLD FPOOLS < & P PERF NOPOOL NUMBER OF USED POOLS n 0 P DISPLAY 2,W2,W2 DISPLAY DITO WHILE CHANGED PUNP9A & P TBT BOOL9,UNPMF JUMP IF FKI FOUND B U
0x0d2f9c…0d3130 Dummy {f00=0x0043, f01=0x0190, f02=» P SET BOOL9 FKI FOUND SUB BIN16,W13 $ P ADD BUFPOS,W1 NEXT BUFPOS : MOVE BIN15,W0 6 P XCOPY BIN15,W1,W1,BPOOL(PINDCB),BUFPOS GET TABPOS r , P CBE BIN15,W1,UNPELB JUMP IF DUMMY-FIELD * % MOVE FDVBCD(W5),BIN15 STORE FIELDPOS (
0x0d3130…0d32c4 Dummy {f00=0x0043, f01=0x0190, f02=»13Y,U13X JUMP ON FKI-CODE v P B U13Z " PU13X 2 , P XCOPY BIN15,W0,W2,BPOOL(PINDCB),BUFPOS > & P ADD BUFPOS,W2 ADJUST NEXT BUFFPOS n P B U13Z PU13Y , P XCOPY BIN15,W1,W1,BPOOL(PINDCB),BUFPOS & P ADD BUFPOS,W1 ADJUST NEXT BUFPOS
0x0d32c4…0d3458 Dummy {f00=0x0043, f01=0x0190, f02=»A,IND1 FETCH INDEX-ITEMADRESS=1 ~ & P MATCH STRG10A,BIN15,W9,FDIR,W0,W1 ( * P ADD BUFPOS,BIN15 ADJUST NEXT BUFFPOS R U13A > P CALL RCNTRL,BPOOL(PINDCB),BUFPOS,DEBINW1,BIN15,BIN7 CTLS * P MOVE FDVBCD(W6),BIN7 STORE MAXLENGTH * P MOVE FDVBCD
0x0d3458…0d35ec Dummy {f00=0x0043, f01=0x018e, f02=» TBF CTAB,U13V JUMP IF KEYED INPUT P MOVE FDVSTR(W1),='C' * P CBL BIN16,W3,U13V H ( P MOVE FDVSTR(W1),='N' NO KEYED INPUT b PU13V MOVE FDVSTR(W2),='N' ME=N P TBF ME,U13B MOVE FDVSTR(W2),='Y' ME=Y U13B $ MOVE FDVS
0x0d35ec…0d3780 Dummy {f00=0x0043, f01=0x0190, f02=» p P TBF VERIFY,U13D " MOVE FDVSTR(W4),='Y' VERIFY=Y U13D F & P MOVE FDVSTR(W5),='Y' INIT.CLEAR=Y R P TBF NCLR,U13E | & P MOVE FDVSTR(W5),='N' INIT.CLEAR=N U13E P TBF SCHK4,U13F MOVE FDVSTR(W2),='C' ME=C U13F
0x0d3780…0d3914 (1, 32) Dummy {f00=0x0043, f01=0x0190, f02=»POINTER:=0 v " P MOVE FMTWK(W1),W0 VALCARS:=0 " P MOVE FMTWK(W2),W0 GENCHARS:=0 8 " P MOVE FMTWK(W3),W0 ACCCHARS:=0 ^ " P MOVE FMTWK(W4),W0 DUPCHARS:=0 P MOVE FMTWK(W11),W0 P MOVE STR64A,=C'#V:#G:#A:' P MOVE DUPL,HEX00 PUNPMF
0x0d3914…0d3aa8 Dummy {f00=0x0043, f01=0x0190, f02=» & P BNOK U13G NO FVAL,FGEN,FACC,FDUPL & P CBE BIN16,W0,UNPLB END OF FORMAT . ( P IB BIN16,UNP1,UNP2,UNLB,UNLB, 1-4 C X " P UNP2,UNP2,UNP2,UNP2,UNP9 5-9 PUNLB $ P B U13G NO FVAL,FGEN,FACC,FDUPL PUNPLB P B UNPE UNP1 P
0x0d3aa8…0d3c3c Dummy {f00=0x0043, f01=0x0190, f02=» v > P XCOPY BIN15,W1,W1,BPOOL(PINDCB),BUFPOS GET NUMB OF CHARS P ADD BUFPOS,W1 1ST CHAR.-POS J * P CBNE BIN16,W2,UNP2A JUMP IF NOT FMELI n . P PERF UNPICT,BUFPOS UNPACK PICTURE LAYOUT * P TBT BOOL6,PICB JUMP IF BALANCE FORMAT P ADD BUFPOS,
0x0d3c3c…0d3dd0 Dummy {f00=0x0043, f01=0x0190, f02=»OVE DEBIN2,W1 WORK:=1 P MOVE BIN15,W1 WORK:=1 6 P CALL FMOVE,STRG10A,IND1 FETCH INDEX-ITEMADRESS=1 < & P MATCH STRG10A,BIN15,W9,FDIR,W0,W1 v * P CBE BIN15,W1,PICB1 JUMP IF 1BYTE ADR * P ADD BUFPOS,W3 ADJUST BUFFERPOS 2B-ADR 0 P MOVE DEBIN1
0x0d3dd0…0d3f64 Dummy {f00=0x0043, f01=0x0190, f02=»,DEBIN2,DEBIN1,BPOOL(PINDCB),BUFPOS INDEX-ITEMADR P MOVE BIN16,W0 WORK:=0 : > P XCOPY BIN16,DEBIN2,DEBIN1,STRG10A,W0 LOAD IND-ITEM ADR=1 X P SUB BIN16,W1 FIX MASK X0 * P SUB BIN15,BIN16 MASKOUT=>INDEX VALUE ( P MOVE FDVBCD(W8),BIN15 STORE A
0x0d3f64…0d40f8 Dummy {f00=0x0043, f01=0x0190, f02=»NW1,BIN16 SAVE FUNCINDEX & P IB BIN16,UNP2B,UNP2C,UNP2D,UNP2E PUNP2B (FVAL) J , P XCOPY JOBSPC,DEBIN3,W3,STR64A,W0 '#V:' ` P B UNP2F PUNP2C (FGEN) , P XCOPY JOBSPC,DEBIN3,W3,STR64A,W3 '#G:' P B UNP2F ADJUST PUNP2D
0x0d40f8…0d428c Dummy {f00=0x0043, f01=0x0190, f02=»T BINNUM=>STRG n 0 P ADD FMTWK(W11),BIN15 ADD NUMB OF CONV CHARS , P CBE OPT,W2,UNP2G JUMP IF PRINTOUT MODE J 8 P MOVE FMTWK(DEBINW1),DEBIN3 SAVE NUMB OF ACCUM.CHARS z P B UNPMF PUNP2G 4 P MOVE FMTWK(DEBINW1),BIN15 SAVE NUMB CONV CHARS
0x0d428c…0d4420 Dummy {f00=0x0043, f01=0x0190, f02=»BINCON,DUPL,DEBINW1 CONVERT BINNUM=>STRG 2 P MOVE FMTWK(W4),BIN15 SAVE NUMB OF DUPL.CHARS 0 P B UNPMF GO ON f P EJECT | PU13G * P CBE OPT,W2,U13I JUMP IF PRINTOUT MODE 0 P MOVE FMTWK(W10),=X'50' NUMB OF CHARS 1:=80 < P CBL FMTWK(W10),
0x0d4420…0d45b4 (1, 33) Dummy {f00=0x0043, f01=0x0190, f02=»F CHARS2:=0 v P B U13I PU13H $ 4 P SUB FMTWK(W11),FMTWK(W10) COMPUT NUMB OF CHARS1 0 PU13I h MOVE DEBINW2,W0 OK t B UNRET UNPE " P MOVE DEBINW2,W1 END-OF-FORMAT UNRET RET PEND P EJECT P
0x0d45b4…0d4748 Dummy {f00=0x0043, f01=0x0190, f02=»ST BUFPOINTER 1B-ADR ~ 0 P MOVE DEBIN1,W1 NUMB OF CHARS TO COPY 1B-ADR $ P MOVE DEBIN2,W1 STARTPOS 1B-ADR P $ P MOVE BIN15,W1 MATCH STARTPOS:=1 x 4 P CALL FMOVE,STRG10A,IND1 FETCH IND-ITEM-ADRESS=1 & P MATCH STRG10A,BIN15,W9,FDIR,W0,W1 ( P CBE B
0x0d4748…0d48dc Dummy {f00=0x0043, f01=0x0190, f02=»OVE DEBIN2,W0 STPOS 2B-ADR PUNPFL2 " P MOVE BIN15,W0 WORK:=0 0 @ P XCOPY BIN15,DEBIN2,DEBIN1,BPOOL(PINDCB),POINT INDEX-ITEMADR N P MOVE BIN16,W0 WORK:=0 < P XCOPY BIN16,DEBIN2,DEBIN1,STRG10A,W0 INDEX-ITEMADRESS=1 P SUB BIN16,W1 FIX MASK X
0x0d48dc…0d4a70 Dummy {f00=0x0043, f01=0x018e, f02=»N NEXT BUFFER x P RET P PEND " P EJECT 0 P* > 4 P* UNPACK AND EDIT PICTURE LAYOUT IN LDISP H P* PUNPICT PROC POINT P MOVE BIN12,W1 LDES-POINTER , P XCOPY STATSH,W0,W1,PICSTR,W13 COPY '<' PPICM PICTUREST
0x0d4a70…0d4c04 Dummy {f00=0x0043, f01=0x018e, f02=» x * P CBE BIN16,W0,PICS JUMP IF 'S'-CONVERT P IB BIN16,PICP,PICE,PICX 6 PPINC V . P XCOPY STATSH,BIN12,W1,BPOOL(PINDCB),POINT b PPI00 P ADD POINT,W1 NEXT BUFFERPOS P ADD BIN12,W1 NEXT LDES POS 4 P CBG BIN12,BIN15,PICR END OF PIC
0x0d4c04…0d4d98 Dummy {f00=0x0043, f01=0x0190, f02=» PPICP '.'-CONVERT . P XCOPY STATSH,BIN12,W1,PICSTR,W11 COPY '.' P B PI00 P PPICE 'E'-CONVERT ` & P ADD POINT,W1 TAKE NEXT BUFFERPOS z ( P SUB BIN15,W1 ADJUST NUMBER OF CHARS P B PINC PPICX . P TBF SCHK2,PINC JUMP IF NOT
0x0d4d98…0d4f2c Dummy {f00=0x0043, f01=0x0190, f02=»STR,W12 COPY '>' v ( P ADD BIN12,W1 =NUMB OF LAYOUT CHARS P RET D P PEND P P EJECT ^ P* l B P* THIS ROUTINE UNPACKS NEXT LINE FROM CURRENT ATTACHED v D P* FORMAT AND EDITS THE FORMAT PARTS IN 'LINE-DESIGN'-ITEM P*
0x0d4f2c…0d50c0 Dummy {f00=0x0043, f01=0x0190, f02=» DEBIN2 = MAXLENGTH ALPHANUM-FIELDS L P* DEBIN3 = POINTER POSITIONER LDES-ITEM F L P* DEBIN4 = SAVED BUFFER-IDEX IF ALTERED D P*
0x0d50c0…0d5254 (1, 34) Dummy {f00=0x0043, f01=0x0190, f02=»S' t $ P MOVE DEBIN3,W0 POINTER LDES:=0 * P CLEAR BOOL5 F=END-OF-LINE NOT REACHED 2 $ P CLEAR BOOL8 F=NO BUFFER ALTERED ` PLUPM $ P MOVE BIN16,W0 MATCHING INDEX:=0 2 P MATCH FDIR,BIN16,W18,BPOOL(PINDCB),BUFPOS,W1 P SWITCH ( P IB BI
0x0d5254…0d53e8 Dummy {f00=0x0043, f01=0x0190, f02=»3, 13-16 C x P LUP13,LUP13 17-18 PLUPRLB . P B LUPR END OF FORMAT < P EJECT Z PLUP1 FCOPY h P MOVE BIN15,W0 WORK:=0 | " P ADD BUFPOS,W1 NEXT BUFFERPOS . P XCOPY LDES,DEBIN3,W1,PICSTR,W13 COPY '<' $ P ADD DEBIN3,W1 NEXT LD
0x0d53e8…0d557c Dummy {f00=0x0043, f01=0x0190, f02=»P IF LEFT ADJUSTED | & P MOVE DEINPUT,='R' LOAD WITH 'R':S P B LUP1B D PLUP1A T & P MOVE DEINPUT,='L' LOAD WITH 'L':S b PLUP1B B P XCOPY LDES,DEBIN3,DEBIN2,DEINPUT,W0 COPY NUMBER OF 'R'/'L':S * P ADD DEBIN3,DEBIN2 ADJUST LDESPOINTER
0x0d557c…0d5710 Dummy {f00=0x0043, f01=0x0190, f02=»CT PLUP2 FMELI ! 2 P PERF UNPICT,BUFPOS UNPACK/EDUT PICTURELAYOUT ! & P XCOPY LDES,DEBIN3,BIN12,STATSH,W0 ! T $ P ADD BUFPOS,W2 ADJUST BUFFERPOS ! ~ $ P ADD DEBIN3,BIN12 ADJUST POINTER ! * P TBF BOOL6,LUPM JUMP IF GENERAL FORMAT ! P MOVE BIN15,
0x0d5710…0d58a4 Dummy {f00=0x0043, f01=0x018e, f02=»B-ADR ! t ( P ADD BUFPOS,W2 ADJUST BUFPOS 2B-ADR " P B LUPM GO ON " : P EJECT " P PLUP3 FTEXT " ^ P MOVE BIN15,W0 WORK:=0 " r " P ADD BUFPOS,W1 ADJUST BUFFPOS " > P XCOPY BIN15,W1,W1,BPOOL(PINDCB),BUFPOS GET NUMB CHARCTERS " ( P ADD BUFPOS,W1 1
0x0d58a4…0d5a38 Dummy {f00=0x0043, f01=0x0190, f02=» ( P ADD DEBIN3,BIN15 ADJUST POINTERPOS # P B LUPM GO ON # 0 P EJECT # F PLUP4 FTAB # T P MOVE DEBIN3,W0 POINTER:=0 # h P ADD BUFPOS,W1 NEXT BUFFPOS # 4 P XCOPY DEBIN3,W1,W1,BPOOL(PINDCB),BUFPOS TABPOS # P SUB DEBIN3,W1 ADJUST TABPOS #
0x0d5a38…0d5bcc Dummy {f00=0x0043, f01=0x0190, f02=»OVE BIN15,W0 WORK:=0 # P ADD BUFPOS,W1 NEXT BUFFPOS $ B P XCOPY BIN15,W1,W1,BPOOL(PINDCB),BUFPOS GET NUMB OF CHARACTERS $ @ ( P ADD BUFPOS,W1 1ST CHARCTERPOSITION $ $ P CBE BIN16,W2,LUP2 JUMP IF FMELI $ . P ADD BUFPOS,BIN15 ADJUST FOR NUMB OF CHARS $
0x0d5bcc…0d5d60 Dummy {f00=0x0043, f01=0x0190, f02=» $ h * P MOVE DEBIN4,PINDCB SAVE BUFFERNUMBER % PLUP9A % 6 6 P PERF UNPFLK,BUFPOS UNPACK FLINK INIT NEXT BUFFER % D P B LUPM GO ON % ~ P EJECT % PLUP11 FNL % 6 P MOVE FMTWK(W5),DEBIN3 SAVE NUMBERS OF LDES CHARS % PLUP11A % 2 P CBE DEBIN
0x0d5d60…0d5ef4 (1, 35) Dummy {f00=0x0044, f01=0x0190, f02=»11A % PLUP11B & . P TBF BOOL8,LUPR JUMP IF NO BUFF.ALTERATION & 0 P MOVE PINDCB,DEBIN4 RESTORE BUFFER'POINTER' & L P B LUPR END-OF-LINE & P EJECT & PLUP13 FKI:S & P SUB BIN16,W12 & P MOVE DEBIN2,W0 WORK:=0 & P ADD BUFPOS,W1 NEX
0x0d5ef4…0d6088 Dummy {f00=0x0044, f01=0x0190, f02=»,LUPREF DUMMY-FORMAT FOUND & P SUB DEBIN3,W2 ' " 2 P CBL BIN16,W4,LUP13A JUMP IF FKI WITHOUT DUPL ' 8 * P SUB BIN16,W3 ADJUST FOR FKI WITH DUPL ' n P MOVE BIN15,W1 ' P CALL FMOVE,STRG10A,IND1 ' 8 P MATCH STRG10A,BIN15,W9,FDIR,W0,W1 CHECK ADRESS-TYPE '
0x0d6088…0d621c Dummy {f00=0x0044, f01=0x0190, f02=»OL(PINDCB),BUFPOS,DEBINW1,BIN16,DEBIN2 ' " P ADD BUFPOS,W3 ADJUST BUFFPOS ( . P B LUPM GO ON ( T P EJECT ( j PLUPREF ( x " P MOVE DEBINW2,W1 E-O-F-SIGNAL ( PLUPR ( P RET ( P PEND ( P EJECT ( P* ( 2 P* THIS ROUTINE EDITS AN
0x0d621c…0d63b0 Dummy {f00=0x0044, f01=0x018e, f02=» ( V < P* 'RRR......' IN RIGHTADJUSTED ALPHANUMERIC ITEMS ) P* ) H L P*********************************************************************** ) R P* ) PFEDIT PROC ) , P MOVE DEINPUT,='-9' LOAD WITH -999999... ) , P MOVE DEBINW3,W0 INITIATE
0x0d63b0…0d6544 Dummy {f00=0x0044, f01=0x0190, f02=» P CALL ADJUST,BIN16 * P BNOK FEDITR * " P GETCTL 1,DEBINW4 GETMAXLENGTH * 2 2 P CBE DEBINW4,W0,FEDITR MAXL=0 => END-OF-FORMAT * X P TSTCTL ALPHA * P BZ FEDBCD JUMP IF NUMERIC * . P GETCTL SCHK,DEBINW4 GET SPECIAL CHECK NR * * P CBNE DEBINW4,W2
0x0d6544…0d66d8 Dummy {f00=0x0044, f01=0x4108, f02=»L' LOAD ITEM WITH 'L':S * ~ P B FEDITL GO ON + PFEDBCD + 8 0 P MOVE :FMTITEM,DEINPUT LOAD ITEM WITH '-9':S + F P B FEDITL GO ON + z PFEDITR + P RET + P PEND + P EJECT + PIND1 FRMT + P FCTL W1 + P FMEND + END + @ +
0x0d66d8…0d686c Dummy {f00=0x0044, f01=0x2008, f02=» , JUMP IF NOT 2 ( . P MOVE :FMTITEM,=C'R' LOAD ITEM WITH 'R':S ) P B FEDITL GO ON ) P PFELEFT ) h . P MOVE :FMTITEM,=C'L' LOAD ITEM WITH 'L':S ) v P B FEDITL GO ON ) PFEDBCD ) 0 P MOVE :FMTITEM,DEINPUT LOAD ITEM WITH '-9':S ) P B FED
0x0d686c…0d6a00 Dummy {f00=0x0044, f01=0x0190, f02=» 8 8 4 D P$ E @ # P H I K T + Y@ _`R& @ @ @ % P V 4 4 4 _r @ @ T Ev : W V F !SST WJ !AAT W> V V 0 V P _ W $ q > R P >b W >b & 8
0x0d6a00…0d6b94 (1, 36) Opaque[0x194]
0x0d6b94…0d6d28 # DirEnt {nam=»DECOMP«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0888, f03=0x0000}
0x0d6b94…0d6d28 IdxSect {
0x0d6b94…0d6d28 f00 = 0x0044 // 0xd6b94 @0x0
0x0d6b94…0d6d28 f01 = 0x0002 // 0xd6b96 @0x2
0x0d6b94…0d6d28 gno = [ // 0xd6b98 @0x4
0x0d6b94…0d6d28 [0x00]: C0x0044.0x1.0
0x0d6b94…0d6d28 ]
0x0d6b94…0d6d28 }
0x0d6d28…0d6ebc Dummy {f00=0x0044, f01=0x0190, f02=» 0 P IDENT DECOMP REL 10.0 80-04-11,81-07-10,EV " P 81-07-10,EV, CDVDK, DENMARK 8 P 79-03-06/DALI ^ P DDUM DEDDIV v P PDIV P ENTRY DECOMP P EXT CDV10 MODULO 10 CHECK P EXT CDV110 MODULO 11 CHECK P LAST BYTE 0 WEIGH
0x0d6ebc…0d7050 Dummy {f00=0x0044, f01=0x0190, f02=»MDDCK P EXT DDMMCK PDECOMP PROC FC " 0 P IB FC,DEC001,DEC002,DEC003,DEC004,DEC005 C 8 , P DEC006,DEC007,DEC008,DEC009,DEC010 C l ( P DEC011,DEC012,DEC013,DEC014,DEC015 PDEC001 P CALL MMDDCK,W0,DEINPUT P RET PDEC002
0x0d7050…0d71e4 Dummy {f00=0x0044, f01=0x0190, f02=» P RET PDEC004 P RET PDEC005 * P RET 8 PDEC006 D P RET R PDEC007 ^ P RET l PDEC008 x P RET PDEC009 P RET PDEC010 P CALL CDV10,DEINPUT,BIN7 P RET PDEC011 P CALL CDVDK,DEINPUT,
0x0d71e4…0d7378 Dummy {f00=0x0044, f01=0x405a, f02=» PDEC014 P RET PDEC015 " P RET 0 PEND < END J@ V PDEC007 ^ P RET l PDEC008 x P RET PDEC009 P RET PDEC010 P CALL CDV10,DEINPUT,BIN7 P RET PDEC011 P CALL CDVDK,DEINPUT,
0x0d7378…0d750c Dummy {f00=0x0044, f01=0x2008, f02=» NT DE12ST DDUM DEDDIV PDIV . ENTRY DE12ST < DE12ST R PROC ` RET n PEND z END @ KITEM PSTR6A STRG 6 WORKITEM PSTRG10A STRG 10 WORKITEM PDIV END @ ARIABL
0x0d750c…0d76a0 Dummy {f00=0x0044, f01=0x0190, f02=»g! J F " D T " e_Z Y Y0X ""_g T X)DL W L ( Y 0 X j z H J F " D Y!DL 0X ##_ 0X ##_ 4 _ P P P( R0R P0R H
0x0d76a0…0d7834 (1, 37) Opaque[0x194]
0x0d7834…0d79c8 # DirEnt {nam=»/OBJCT«, typ=»OB«, f00=0x0000, f01=0x0000, f02=0x0890, f03=0x0000}
0x0d7834…0d79c8 IdxSect {
0x0d7834…0d79c8 f00 = 0x0044 // 0xd7834 @0x0
0x0d7834…0d79c8 f01 = 0x00fe // 0xd7836 @0x2
0x0d7834…0d79c8 gno = [ // 0xd7838 @0x4
0x0d7834…0d79c8 [0x00]: C0x0044.0x2.0
0x0d7834…0d79c8 [0x01]: C0x0044.0x3.0
0x0d7834…0d79c8 [0x02]: C0x0045.0x0.0
0x0d7834…0d79c8 [0x03]: C0x0045.0x1.0
0x0d7834…0d79c8 [0x04]: C0x0045.0x2.0
0x0d7834…0d79c8 [0x05]: C0x0045.0x3.0
0x0d7834…0d79c8 [0x06]: C0x0046.0x0.0
0x0d7834…0d79c8 [0x07]: C0x0046.0x1.0
0x0d7834…0d79c8 [0x08]: C0x0046.0x2.0
0x0d7834…0d79c8 [0x09]: C0x0046.0x3.0
0x0d7834…0d79c8 [0x0a]: C0x0047.0x0.0
0x0d7834…0d79c8 [0x0b]: C0x0047.0x1.0
0x0d7834…0d79c8 [0x0c]: C0x0047.0x2.0
0x0d7834…0d79c8 [0x0d]: C0x0047.0x3.0
0x0d7834…0d79c8 [0x0e]: C0x0048.0x0.0
0x0d7834…0d79c8 [0x0f]: C0x0048.0x1.0
0x0d7834…0d79c8 [0x10]: C0x0048.0x2.0
0x0d7834…0d79c8 [0x11]: C0x0048.0x3.0
0x0d7834…0d79c8 [0x12]: C0x0049.0x0.0
0x0d7834…0d79c8 [0x13]: C0x0049.0x1.0
0x0d7834…0d79c8 [0x14]: C0x0049.0x2.0
0x0d7834…0d79c8 [0x15]: C0x0049.0x3.0
0x0d7834…0d79c8 [0x16]: C0x004a.0x0.0
0x0d7834…0d79c8 [0x17]: C0x004a.0x1.0
0x0d7834…0d79c8 [0x18]: C0x004a.0x2.0
0x0d7834…0d79c8 [0x19]: C0x004a.0x3.0
0x0d7834…0d79c8 [0x1a]: C0x004b.0x0.0
0x0d7834…0d79c8 [0x1b]: C0x004b.0x1.0
0x0d7834…0d79c8 [0x1c]: C0x004b.0x2.0
0x0d7834…0d79c8 [0x1d]: C0x004b.0x3.0
0x0d7834…0d79c8 [0x1e]: C0x004c.0x0.0
0x0d7834…0d79c8 [0x1f]: C0x004c.0x1.0
0x0d7834…0d79c8 [0x20]: C0x004c.0x2.0
0x0d7834…0d79c8 [0x21]: C0x004c.0x3.0
0x0d7834…0d79c8 [0x22]: C0x004d.0x0.0
0x0d7834…0d79c8 [0x23]: C0x004d.0x1.0
0x0d7834…0d79c8 [0x24]: C0x004d.0x2.0
0x0d7834…0d79c8 [0x25]: C0x004d.0x3.0
0x0d7834…0d79c8 [0x26]: C0x004e.0x0.0
0x0d7834…0d79c8 [0x27]: C0x004e.0x1.0
0x0d7834…0d79c8 [0x28]: C0x004e.0x2.0
0x0d7834…0d79c8 [0x29]: C0x004e.0x3.0
0x0d7834…0d79c8 [0x2a]: C0x004f.0x0.0
0x0d7834…0d79c8 [0x2b]: C0x004f.0x1.0
0x0d7834…0d79c8 [0x2c]: C0x004f.0x2.0
0x0d7834…0d79c8 [0x2d]: C0x004f.0x3.0
0x0d7834…0d79c8 [0x2e]: C0x0050.0x0.0
0x0d7834…0d79c8 [0x2f]: C0x0050.0x1.0
0x0d7834…0d79c8 [0x30]: C0x0050.0x2.0
0x0d7834…0d79c8 [0x31]: C0x0050.0x3.0
0x0d7834…0d79c8 [0x32]: C0x0051.0x0.0
0x0d7834…0d79c8 [0x33]: C0x0051.0x1.0
0x0d7834…0d79c8 [0x34]: C0x0051.0x2.0
0x0d7834…0d79c8 [0x35]: C0x0051.0x3.0
0x0d7834…0d79c8 [0x36]: C0x0052.0x0.0
0x0d7834…0d79c8 [0x37]: C0x0052.0x1.0
0x0d7834…0d79c8 [0x38]: C0x0052.0x2.0
0x0d7834…0d79c8 [0x39]: C0x0052.0x3.0
0x0d7834…0d79c8 [0x3a]: C0x0053.0x0.0
0x0d7834…0d79c8 [0x3b]: C0x0053.0x1.0
0x0d7834…0d79c8 [0x3c]: C0x0053.0x2.0
0x0d7834…0d79c8 [0x3d]: C0x0053.0x3.0
0x0d7834…0d79c8 [0x3e]: C0x0054.0x0.0
0x0d7834…0d79c8 [0x3f]: C0x0054.0x1.0
0x0d7834…0d79c8 [0x40]: C0x0054.0x2.0
0x0d7834…0d79c8 [0x41]: C0x0054.0x3.0
0x0d7834…0d79c8 [0x42]: C0x0055.0x0.0
0x0d7834…0d79c8 [0x43]: C0x0055.0x1.0
0x0d7834…0d79c8 [0x44]: C0x0055.0x2.0
0x0d7834…0d79c8 [0x45]: C0x0055.0x3.0
0x0d7834…0d79c8 [0x46]: C0x0056.0x0.0
0x0d7834…0d79c8 [0x47]: C0x0056.0x1.0
0x0d7834…0d79c8 [0x48]: C0x0056.0x2.0
0x0d7834…0d79c8 [0x49]: C0x0056.0x3.0
0x0d7834…0d79c8 [0x4a]: C0x0057.0x0.0
0x0d7834…0d79c8 [0x4b]: C0x0057.0x1.0
0x0d7834…0d79c8 [0x4c]: C0x0057.0x2.0
0x0d7834…0d79c8 [0x4d]: C0x0057.0x3.0
0x0d7834…0d79c8 [0x4e]: C0x0058.0x0.0
0x0d7834…0d79c8 [0x4f]: C0x0058.0x1.0
0x0d7834…0d79c8 [0x50]: C0x0058.0x2.0
0x0d7834…0d79c8 [0x51]: C0x0058.0x3.0
0x0d7834…0d79c8 [0x52]: C0x0059.0x0.0
0x0d7834…0d79c8 [0x53]: C0x0059.0x1.0
0x0d7834…0d79c8 [0x54]: C0x0059.0x2.0
0x0d7834…0d79c8 [0x55]: C0x0059.0x3.0
0x0d7834…0d79c8 [0x56]: C0x005a.0x0.0
0x0d7834…0d79c8 [0x57]: C0x005a.0x1.0
0x0d7834…0d79c8 [0x58]: C0x005a.0x2.0
0x0d7834…0d79c8 [0x59]: C0x005a.0x3.0
0x0d7834…0d79c8 [0x5a]: C0x005b.0x0.0
0x0d7834…0d79c8 [0x5b]: C0x005b.0x1.0
0x0d7834…0d79c8 [0x5c]: C0x005b.0x2.0
0x0d7834…0d79c8 [0x5d]: C0x005b.0x3.0
0x0d7834…0d79c8 [0x5e]: C0x005c.0x0.0
0x0d7834…0d79c8 [0x5f]: C0x005c.0x1.0
0x0d7834…0d79c8 [0x60]: C0x005c.0x2.0
0x0d7834…0d79c8 [0x61]: C0x005c.0x3.0
0x0d7834…0d79c8 [0x62]: C0x005d.0x0.0
0x0d7834…0d79c8 [0x63]: C0x005d.0x1.0
0x0d7834…0d79c8 [0x64]: C0x005d.0x2.0
0x0d7834…0d79c8 [0x65]: C0x005d.0x3.0
0x0d7834…0d79c8 [0x66]: C0x005e.0x0.0
0x0d7834…0d79c8 [0x67]: C0x005e.0x1.0
0x0d7834…0d79c8 [0x68]: C0x005e.0x2.0
0x0d7834…0d79c8 [0x69]: C0x005e.0x3.0
0x0d7834…0d79c8 [0x6a]: C0x005f.0x0.0
0x0d7834…0d79c8 [0x6b]: C0x005f.0x1.0
0x0d7834…0d79c8 [0x6c]: C0x006e.0x2.0
0x0d7834…0d79c8 [0x6d]: C0x0042.0x1.0
0x0d7834…0d79c8 [0x6e]: C0x006e.0x1.0
0x0d7834…0d79c8 [0x6f]: C0x0078.0x2.0
0x0d7834…0d79c8 [0x70]: C0x00a7.0x3.0
0x0d7834…0d79c8 [0x71]: C0x00a8.0x2.0
0x0d7834…0d79c8 [0x72]: C0x00aa.0x0.0
0x0d7834…0d79c8 [0x73]: C0x00aa.0x1.0
0x0d7834…0d79c8 [0x74]: C0x00aa.0x2.0
0x0d7834…0d79c8 [0x75]: C0x00aa.0x3.0
0x0d7834…0d79c8 [0x76]: C0x00ae.0x3.0
0x0d7834…0d79c8 [0x77]: C0x00af.0x0.0
0x0d7834…0d79c8 [0x78]: C0x00af.0x1.0
0x0d7834…0d79c8 [0x79]: C0x00af.0x2.0
0x0d7834…0d79c8 [0x7a]: C0x0162.0x2.0
0x0d7834…0d79c8 [0x7b]: C0x00b1.0x1.0
0x0d7834…0d79c8 [0x7c]: C0x00b1.0x2.0
0x0d7834…0d79c8 [0x7d]: C0x00b1.0x3.0
0x0d7834…0d79c8 [0x7e]: C0x00b2.0x0.0
0x0d7834…0d79c8 ]
0x0d7834…0d79c8 }
0x0d79c8…0d7b5c Dummy {f00=0x0044, f01=0x0190, f02=» L H IDENT T:AT10 TRA 10.0 82-05-10 F1 O1111 REL 10.0 80-04-11,81-08-27,EV T:AT10 T T:AT10A f > : T:DT10 D:CB10 U:CB10 D:CB20 C:CB20 D:CB30 C:CB30 z > : D:CB40A C:CB40A D:CB502 C:CB50F D:TB20 Z:TB20. D:TB30- > : Z:TB30
0x0d7b5c…0d7cf0 Dummy {f00=0x0044, f01=0x0190, f02=»B60 C:CB60 * & * & B * & = a p * & [ 6 * & y P * &
0x0d7cf0…0d7e84 Dummy {f00=0x0044, f01=0x4090, f02=» " $ , ( & ( * , . 0 2 4 & 6 8 : < > V z@ a p * & [ 6 * & y P * &
0x0d7e84…0d8018 Dummy {f00=0x0044, f01=0x40ec, f02=» L H IDENT T:DT10 TRA 10.0 82-05-10 F1 O1111 REL 10.0 80-04-11,81-08-27,EV T:DT10 T T:DT10D f PTSDE z * & 8T1 x * * @ * &
0x0d8018…0d81ac Dummy {f00=0x0044, f01=0x40b8, f02=» L H IDENT T:ATAB TRA 10.0 82-05-10 F1 O1111 REL 10.0 80-04-11,81-08-27,EV T:ATAB T T:ATABA f T:AT10 z @ :A @ * @ * &
0x0d81ac…0d8340 Dummy {f00=0x0044, f01=0x40bc, f02=» L H IDENT U:BTAB TRA 10.0 82-05-10 F1 O1111 REL 10.0 80-04-11,81-08-27,EV U:BTAB T U:BTABB f U:CB10 z @ CB1 :C @ * @ * &
0x0d8340…0d84d4 (1, 38) Dummy {f00=0x0044, f01=0x40a2, f02=» L H IDENT S:BTAB TRA 10.0 82-05-10 F1 O1111 REL 10.0 80-04-11,81-08-27,EV S:BTAB T S:BTABB f z :B @
0x0d84d4…0d8668 Dummy {f00=0x0044, f01=0x4138, f02=» L H IDENT Z:TB10 TRA 10.0 82-05-10 F1 O1111 REL 10.0 80-04-11,81-08-27,EV Z:TB10 T Z:TB10T f & z & & = & [ & y & & & &
0x0d8668…0d87fc Dummy {f00=0x0044, f01=0xc13e, f02=» & & ; & Y $ & w 4 & D & T & d & t & & + & I & g & & & &
0x0d87fc…0d8990 Dummy {f00=0x0044, f01=0x40aa, f02=» L H IDENT D:TB10 TRA 10.0 82-05-10 F1 O1111 REL 10.0 80-04-11,81-08-27,EV D:TB10 T D:TB10T f z :T @ & [ & y & & & &
0x0d8990…0d8b24 Dummy {f00=0x0044, f01=0x40fe, f02=» L H IDENT D:DB10 TRA 10.0 82-05-10 F1 O1111 REL 10.0 80-04-11,81-08-27,EV D:DB10 T D:DB10D f * & > P P h z * & 0 = > @
0x0d8b24…0d8cb8 Dummy {f00=0x0044, f01=0x40be, f02=» L H IDENT D:DB20 TRA 10.0 82-05-10 F1 O1111 REL 10.0 80-04-11,81-08-27,EV D:DB20 T D:DB20D f * & z @ = > @
0x0d8cb8…0d8e4c Dummy {f00=0x0044, f01=0x40be, f02=» L H IDENT D:DB30 TRA 10.0 82-05-10 F1 O1111 REL 10.0 80-04-11,81-08-27,EV D:DB30 T D:DB30D f * & J z @ = > @
0x0d8e4c…0d8fe0 Dummy {f00=0x0044, f01=0x414a, f02=» L H IDENT U:CB10 TRA 10.0 82-05-10 F1 O1111 REL 10.0 80-04-11,81-08-27,EV U:CB10 T U:CB10C f * & @ z & & = & [ & y & &
0x0d8fe0…0d9174 (1, 39) Dummy {f00=0x0045, f01=0x40ea, f02=» L H IDENT D:CB10 TRA 10.0 82-05-10 F1 O1111 REL 10.0 80-04-11,81-08-27,EV D:CB10 T D:CB10C f * & : z ( $ : @ & &
0x0d9174…0d9308 Dummy {f00=0x0045, f01=0x40e8, f02=» L H IDENT C:CB20 TRA 10.0 82-05-10 F1 O1111 REL 10.0 80-04-11,81-08-27,EV C:CB20 T C:CB20C f * & z $ $ @
0x0d9308…0d949c Dummy {f00=0x0045, f01=0x4102, f02=» L H IDENT D:CB20 TRA 10.0 82-05-10 F1 O1111 REL 10.0 80-04-11,81-08-27,EV D:CB20 T D:CB20C f * & B z * & = B @
0x0d949c…0d9630 Dummy {f00=0x0045, f01=0x40fc, f02=» L H IDENT C:CB30 TRA 10.0 82-05-10 F1 O1111 REL 10.0 80-04-11,81-08-27,EV C:CB30 T C:CB30C f * & z & " 8 8 @
0x0d9630…0d97c4 Dummy {f00=0x0045, f01=0x4106, f02=» L H IDENT D:CB30 TRA 10.0 82-05-10 F1 O1111 REL 10.0 80-04-11,81-08-27,EV D:CB30 T D:CB30C f * & F z * & = F @
0x0d97c4…0d9958 Dummy {f00=0x0045, f01=0x0190, f02=» L H IDENT C:CB40 TRA 10.0 82-05-10 F1 O1111 REL 10.0 80-04-11,81-08-27,EV C:CB40 T C:CB40C f * & z * & * & = * &
0x0d9958…0d9aec Dummy {f00=0x0045, f01=0x4096, f02=» a LP 0 GP 6 FD * & DLU FRO GPL6 LPL0 , Z l @ z * & * & = * &
0x0d9aec…0d9c80 Dummy {f00=0x0045, f01=0x4102, f02=» L H IDENT D:CB40 TRA 10.0 82-05-10 F1 O1111 REL 10.0 80-04-11,81-08-27,EV D:CB40 T D:CB40C f * & B . z * & D Z p - r 7 = B @ &
0x0d9c80…0d9e14 (1, 40) Dummy {f00=0x0045, f01=0x0190, f02=» L H IDENT C:CB50 TRA 10.0 82-05-10 F1 O1111 REL 10.0 80-04-11,81-08-27,EV C:CB50 T C:CB50C f $ & z & & = & [ & y & & &
0x0d9e14…0d9fa8 Dummy {f00=0x0045, f01=0x40b8, f02=»ESVCHM/=><DL!ASUFTCE ~ * & i +-*:;&V?'ZGRNX()MEVTFCAB/,LRAP & TXZY+S,.><0-VEX J & j * z @
0x0d9fa8…0da13c Dummy {f00=0x0045, f01=0x40fe, f02=» L H IDENT D:CB50 TRA 10.0 82-05-10 F1 O1111 REL 10.0 80-04-11,81-08-27,EV D:CB50 T D:CB50C f * & >0 0 0 z * & M U t ~ 0 = > @
0x0da13c…0da2d0 Dummy {f00=0x0045, f01=0x4132, f02=» L H IDENT Z:TB20 TRA 10.0 82-05-10 F1 O1111 REL 10.0 80-04-11,81-08-27,EV Z:TB20 T Z:TB20T f & & z & & = & [ & y & *
0x0da2d0…0da464 Dummy {f00=0x0045, f01=0x4102, f02=» L H IDENT D:TB20 TRA 10.0 82-05-10 F1 O1111 REL 10.0 80-04-11,81-08-27,EV D:TB20 T D:TB20T f * & B z * & 0 0 0 " = ( . B @
0x0da464…0da5f8 Dummy {f00=0x0045, f01=0x4106, f02=» L H IDENT D:TB30 TRA 10.0 82-05-10 F1 O1111 REL 10.0 80-04-11,81-08-27,EV D:TB30 T D:TB30T f * & F @ B D F H z * & J L N P R T V @ = f F @
0x0da5f8…0da78c Dummy {f00=0x0045, f01=0x40e8, f02=» L H IDENT Z:TB40 TRA 10.0 82-05-10 F1 O1111 REL 10.0 80-04-11,81-08-27,EV Z:TB40 T Z:TB40T f * & z $ $ @ F @
0x0da78c…0da920 Dummy {f00=0x0045, f01=0x4102, f02=» L H IDENT D:TB40 TRA 10.0 82-05-10 F1 O1111 REL 10.0 80-04-11,81-08-27,EV D:TB40 T D:TB40T f * & B z * & = B @
0x0da920…0daab4 (1, 41) Dummy {f00=0x0045, f01=0x4182, f02=» L H IDENT Z:TB50 TRA 10.0 82-05-10 F1 O1111 REL 10.0 80-04-11,81-08-27,EV Z:TB50 T Z:TB50T f & z & & = & [ * & y * &
0x0daab4…0dac48 Dummy {f00=0x0045, f01=0xc106, f02=» L H IDENT D:TB50 TRA 10.0 82-05-04 F1 O1111 REL 10.0 80-04-11,81-08-27,EV D:TB50 T D:TB50T f * & F Q 0 [ z * & 0 0 ^ e f h n t = ~ F @
0x0dac48…0daddc Dummy {f00=0x0045, f01=0x4128, f02=» L H IDENT Z:TB60 TRA 10.0 82-05-10 F1 O1111 REL 10.0 80-04-11,81-08-27,EV ! Z:TB60 ! T Z:TB60T ! f * & ! z * & ! $ = ! T
0x0daddc…0daf70 Dummy {f00=0x0045, f01=0x40fe, f02=» L H IDENT D:TB60 TRA 10.0 82-05-10 F1 O1111 REL 10.0 80-04-11,81-08-27,EV " D:TB60 " T D:TB60T " f * & > " z * & < > F0 " = N " > " @ " T
0x0daf70…0db104 Dummy {f00=0x0045, f01=0x0190, f02=» @ H IDENT DEDISC TRA 10.0 80-10-10 F1 O1111 REL 10.0 80-04-11 ; : 6 COND DEDISC RELEAS RETURN SCHPOO STRT01 WAIT ; H $$$TRAD ; @ < COND M DEDISCR RELEAST RETURNO 7 SCHPOO STRT01 ; WAITR d ; > : CHANFCM CLSBTHR DELBTCA
0x0db104…0db298 Dummy {f00=0x0045, f01=0x0190, f02=»REVT NEXFMTS NEXJOB NXBTH NXJOB ; r > : OPNEBCd OPNNBCA PREFMT0 PREJOBF RECURR SCHFMT. SCHJOB- < ( 2 . T:DSC1M T:SWITR WRFSP WRIACCE WRICURM WRTCO < j < < 7 < : < < 0 < .
0x0db298…0db42c Dummy {f00=0x0045, f01=0x0190, f02=» # $ < $ = % B = & = 0 ' = @ ( , = P ) 7 = ` * F = p + = , = - = . = / 7 = 0 ( = 1 4 = 2 & = 3 2
0x0db42c…0db5c0 Dummy {f00=0x0045, f01=0x4170, f02=»RRRRRRRRRRRRRH R! R( = ` H > J M > 0 n Q > @ p > R t < > b ~ M > r J F " D @ Hx L R4 $ !"4 "!4 !!4 I @w L0R 0X V # R4 > > > Q > >
0x0db5c0…0db754 (1, 42) Dummy {f00=0x0045, f01=0x0190, f02=» @ H IDENT DKRUT1 TRA 10.0 80-10-10 F1 O1111 REL10.0 80-04-11 ? B > CLSBTH DISU DLCURR DLRCCH FREESP GTNEXT GTPREV OFRSP ? H B > HRDT RDACC RDDSA RECURR0 REFSP RFRSPHWR WRDS0 WRFSP WRIACC ? WRICUR WRTCO ? $$$TRAA ? @ < CLSBTH
0x0db754…0db8e8 Dummy {f00=0x0045, f01=0x018e, f02=»HWRD WRDSD _ WRFSP WRIACC` WRICUR- W WRTCO ? B > CONDE DEPOOLR GETFRER MASKA READDKD RETURNC SETFRER SETOCC @ : $ T:SWIT T:XSTAW WAIT_ WRITDK @ @ k @ @ @ % k @ * @
0x0db8e8…0dba7c Dummy {f00=0x0045, f01=0x0190, f02=» @ K k A P A T A ( A 8 ` A H h A X n A h v " A x x A J F " D @0R Av P RK R4 0R Av e R4 0R Av e R4 @ 0X L0R P 6 A A A
0x0dba7c…0dbc10 Dummy {f00=0x0045, f01=0x0190, f02=»R E bR * )bR* A ^ B k B , B < B L B k B l B | J F " D I 0R A R V R R4 R0R A R V RK E I b )*R b R* R4 Is B B B B
0x0dbc10…0dbda4 Dummy {f00=0x0045, f01=0x0190, f02=» _ R R#`RR b | R*j |)"` R4 R RL B n O C , T C < X - C L a DS C o _ C n t - C ~ J F " D @bR* | j` " |) R$`R R4 R`vV Ap Lb " j $"` RuV> Rav uajb " " C S C _ C S C
0x0dbda4…0dbf38 Dummy {f00=0x0045, f01=0x0190, f02=» C D _ D D * S D : D J D S D l D | J F " D "* u`Hp *?R R Rv?R Ru?R ` _ Ru) L ?Rj` " $ R`:R 0 ja " " D _ D D D
0x0dbf38…0dc0cc Dummy {f00=0x0045, f01=0x0190, f02=» D _ E d E j F E ( n F E 8 J F " D @ ? !"? 1AxW-j " - R R R R R R_9 RW Iu Au "_ *" E H E E E E J F " D ! A R4 R 0R c c ? !( ! A R4 ! ! e
0x0dc0cc…0dc260 Dummy {f00=0x0045, f01=0x0190, f02=»jc " c c R R R Rc R R E d F F " F 2 F B # F R + F b J F " D _a R_) +_% R 0R c c 4 ! ! ! R" V 0X_ " b )*R b R* F r Y F y F J F " D @ !4 "bR * )bR* R& 4 @k
0x0dc260…0dc3f4 (1, 43) Dummy {f00=0x0046, f01=0x40ba, f02=» Ra RCj ""d Ra d`W R` (a AkIl'W F n G , G < G L G 4 / - Ra R jd " $j $"` Ra R `vIs `! Rd` R4 " G l G @ G r Y F y F J F " D @ !4 "bR * )bR* R& 4 @k
0x0dc3f4…0dc588 Dummy {f00=0x0046, f01=0x018e, f02=» @ H IDENT DKRUT2 TRA 10.0 80-10-10 F1 O1111 REL 10.0 80-04-11 H , ( DELFMT ENTFMT NEXFMT OPCL PREFMT H H $$$TRAR H x 6 2 DELFMT ENTFMTN NEXFMTC OPCLM PREFMT H @ < ALGOR CLOSEFT CMPIND COND- DEDISC1 DEPOOLL DISU DLRCCH1 H B >
0x0dc588…0dc71c Dummy {f00=0x0046, f01=0x0190, f02=» I I | I $ ( I 4 $ SYSFIL I D * I Z 4 I j J F " D 2 RRRRH 0X_ A T|A @s C!!"C!!o L kV!0R A!R kP 0R A!R @ 4 I z L I U X I I d I
0x0dc71c…0dc8b0 Dummy {f00=0x0046, f01=0x0190, f02=» I , J J J ( J 8 J H J F " D Q E! R"! [ R3@ R4 H #@ C!!"C! R!T R!!RT R"!R0R A!R R4 J X ( J J J PTS-DE J J J
0x0dc8b0…0dca44 Dummy {f00=0x0046, f01=0x0190, f02=»?v` R#! RTj v " % j !! jGv " ! Apj !'! R$! P Ap RR$ ! ! J A K H M K X Q K h Y K x _ K u K y K J F " D @ R" T Ev R"v RP Ev R& 0R AvR 5@ Cv!W Hp L@ R4 H 4@ K
0x0dca44…0dcbd8 Dummy {f00=0x0046, f01=0x0190, f02=» R& R#! T j ! ! R$! T 0R AvR R4 j " )( K x L 6 L H 0 L X L j * L z " L L " L J F " D Lj " '( ! 0R * 6 LW e / s R4 R:R m R`!:R L
0x0dcbd8…0dcd6c Dummy {f00=0x0046, f01=0x0190, f02=»jR L L E M J " M ^ M * b " M : j M J s FC M Z H F " D @&"c R"dR?R b W jd "R$ d U Rd!:RjR$"d R"bR c* RLjR""b jR$" M n M M M " M M J
0x0dcd6c…0dcf00 Dummy {f00=0x0046, f01=0x0190, f02=» M J F " D R"`R:RHp _ ba `LjR "` `c_V c Ap_1Ar 0RmP r$ t Ir t4(r N & N X " N h * N x " N N N " " N * " N J F " D m R$R*:R r` ta t( R:R R!rRV ! L ?R ) r
0x0dcf00…0dd094 (1, 44) Dummy {f00=0x0046, f01=0x0190, f02=» & N L O * O " O * & O : " O J O Z " O j O z J F " D R` m?R R<R m@s R$R*:R ` a&j` "R&fRa* `*jR&"` "`* @s RR:R R" R O " O O " O
0x0dd094…0dd228 Dummy {f00=0x0046, f01=0x4092, f02=» )( ) )?Rj` "R$jR " R"aR:R Ra! ` % R!`R:R O x F P 6 $ P H b "R L9 R`!j` "R$_! P X P |@ P m?R R<R m@s R$R*:R ` a&j` "R&fRa* `*jR&"` "`* @s RR:R R" R O " O O " O
0x0dd228…0dd3bc Dummy {f00=0x0046, f01=0x0190, f02=» @ H IDENT DKRUT3 TRA 10.0 80-10-10 F1 O1111 REL 10.0 80-04-11 Q D @ ALGO DELTBL ENTSYS ENTTBL GETFMT GETSYS GETTBL NOFFRE Q H NXPRFMR SCHFMTA SFMTCH0 Q $$$TRAD Q @ < ALGOF DELTBLA o ENTSYS1 ENTTBL1 ; GETFMT1 GETSYS- Q 8 4
0x0dd3bc…0dd550 Dummy {f00=0x0046, f01=0x0190, f02=»POOD STRT01R WAITN Q R R * R : F R J x R # R l ' R | , R 1 R : R > R J F " D r R:R RL '6c ( ]@s R$R*:RCq<R RU R!bR R
0x0dd550…0dd6e4 Dummy {f00=0x0046, f01=0x0190, f02=»!R( `b c jc!!R) R!bc V -?R b _Y cb R n S , S < S L S J F " D j b R*j b)*R `! ` ! R!dRV R&cb _ojd "R$jb!! b(_3 cb R$c` R&{ S l S S S S F S
0x0dd6e4…0dd878 Dummy {f00=0x0046, f01=0x0190, f02=» S T T T . T > : T N A T T ^ J F " D `1 a! a+ R"%R?R R:R R!%RP RU `* a!b a 1R` `1 a! a+ ?RApWg T p Q T V T X T T d T
0x0dd878…0dda0c Dummy {f00=0x0046, f01=0x0190, f02=» T U U U , U < T U L U ^ U n _ U ~ U U J F " D R!`R<Rja "R$ R`!<R a & `a_ RL %6c R:Rb " ! d %dL !?R U
0x0dda0c…0ddba0 Dummy {f00=0x0046, f01=0x0190, f02=» J F " D R!'RP L<R Hpl RL R"'R:R d" d*j` "Rd(` HpO R`!:RjRd"` R"'R: V V R V b J F " D R c`_ Cq R!`R<R c` ` j`!!R)* `!j` "R$ ` !Hp a1h a!R(!X _ ) V r A V E B V M V S V c
0x0ddba0…0ddd34 (1, 45) Dummy {f00=0x0046, f01=0x416a, f02=» ` a*Hs V R W W W 0 J F " D R`W R` V ! L0W< a"j " &h a& &V! a a! a j " $ ` _E W B W W W J F " D )W a&jb " a R4 d"@s$ " As Rd R jd " $jc " * c d ? R4 W
0x0ddd34…0ddec8 Dummy {f00=0x0046, f01=0x0190, f02=» @ H IDENT DKRUT4 TRA 10.0 80-10-10 F1 O1111 REL 10.0 80-04-11 X B > DELBTC DELJOB ENTJOB GETJOB NEXJOB NXBTH NXJOB OPNEBC X H & " OPNNBCR PREJOBA READJB0 SCHJOBF X $$$TRA X @ < DELBTCR DELJOBR ENTJOBH GETJOB1 6 NEXJOB. NXBTH 4 X
0x0ddec8…0de05c Dummy {f00=0x0046, f01=0x0190, f02=» @ < RELEAS2 RETURN RFRSP SCHPOOP SFMTCH T:SWITH WAITH WRDS Y WRFSP Y H Y X Y h Y x Y Y # Y . Y 3 Y ; Y = Y J F " D ApAt R:RAs
0x0de05c…0de1f0 Dummy {f00=0x0046, f01=0x0190, f02=» R Y } Z Z J F " D @:R a*mja " &"asz Rkj a"c a"j &"a R`:R ` a* Lj ""` j $" Rl Z * Z x Z Z Z Z JC m Z J F " D R`v:Rj a"` a" Ruv:Rj a"u a"j &"a Rc
0x0de1f0…0de384 Dummy {f00=0x0046, f01=0x0190, f02=» D $" a*_zj $"c R`:R Lj ""` `c Rcv_(ja " &"as c`_z Rcv:Rj $" Z [ L [ : [ l J F " D c R`:R a*_ jd " ajc " & a"ju " aIp `dWY a* c,j &"c f a, R`R7"c [ | C [ F [ J [ L [
0x0de384…0de518 Dummy {f00=0x0046, f01=0x0190, f02=» ud d , ) Rv ) [ * : J Z J F " D ?Rjo !v bo!&k bo'&l R) oV5 ! ! R" :R R* o | Uj |)"` It j
0x0de518…0de6ac Dummy {f00=0x0046, f01=0x018e, f02=» JD & ] J F " D ?R R Ru) L ?R L?R R:R RVJ! L ) ?R `b b W R`!:R RLjR"" ] ( ] v ] ] ] " ] ' ] 0 ] 5 ] : ]
0x0de6ac…0de840 Dummy {f00=0x0046, f01=0x0190, f02=» ] W ^ Z ^ _ ^ * b ^ : j ^ L y ^ J F " D @ @rT `# R:R R!`RV ! L ?R )?R aLb &Ra0R Hr R_Cj` " ^ l ^ ^ J ^ ^ ^
0x0de840…0de9d4 (1, 46) Dummy {f00=0x0046, f01=0x0190, f02=» ^ _ _ _ . _ > _ N _ ^ J F " D & bcbk & ! R&zb R ba zb?R k L?RKq %_1Aq_ R R:R@s RRHl Hk _ n _ _ _ _ _
0x0de9d4…0deb68 Dummy {f00=0x0046, f01=0x0190, f02=» Z _ ] ` u ` w ` , ` < J F " D @# *RnHp. a$*a j " $ Z R :Rj` " &*`*K a,Hp bk & a?R0RlT$ l R ` L ` ` ` ` ` ` `
0x0deb68…0decfc Dummy {f00=0x0046, f01=0x4086, f02=» ` J F " D !bRR)jc "R&"c* LW dLb &Rd k jc "R$ c 0 ) R4 j a" a"b a& a a&4 a a p@ a ?R0RlT$ l R ` L ` ` ` ` ` ` `
0x0decfc…0dee90 Dummy {f00=0x0046, f01=0x0190, f02=» @ H IDENT PTSDE TRA 10.0 81-02-27 F1 O1111 REL 10.0 80-04-11 > : ATTDEV ATTPRT DEANOK DEAOK0 DEAOK1 DEAOK2 DEAOK4 H < 8 DEAPPLS DEFINDA DEPMSK1 DEPRUTF DETCHK DETPRT. PTSDE $$$TRA B > ATTDEVS ATTPRTD DEANOKP DEAOK0H j D
0x0dee90…0df024 Dummy {f00=0x0046, f01=0x0190, f02=»HANFCP CONDD DE10ST- DE20STK DE30STU DE40STT DE50ST > : DE60STS DE70STE DEAP1AA DEAP2AD DEAP3Aj DEAP5A. DEAP7AK < @ < DECLRA DERRF GETINDD GETVOL- MSKOUTK OPCLS POOLA RESTOR5 ~ D @ SAVES T:ABORS T:ATTF1 T:DELA2 T:DISP3 T:DSC05 T:DSC17 T:ERAS 4
0x0df024…0df1b8 Dummy {f00=0x0046, f01=0x0190, f02=» 2 P d |
0x0df1b8…0df34c Dummy {f00=0x0046, f01=0x0190, f02=» 0 0 @ P $ ` , p 4 " - " 5 4 6 ' : J F " D 0R 0}0R o0R oA T 0
0x0df34c…0df4e0 Dummy {f00=0x0046, f01=0x0190, f02=» h i j k . l > m N n ^ o n q ~ s . ~ * J F " D @) R!P V R_, R6 ## _ jX 3 RRRRRRRRRR R0R 0}@d R" "
0x0df4e0…0df674 (1, 47) Dummy {f00=0x0047, f01=0x0190, f02=» 4 8 4 , : < 4 L ( J F " D R * R 1W 'W 1XF1XF1XF 1 v j !!Ov v" C l > & " > . 8 J
0x0df674…0df808 Dummy {f00=0x0047, f01=0x0190, f02=» c ~ d e ~ * f : g ~ J J F " D @ " W% L h * h `h h h 2` RRRRRRRRW 4 !4 "4 $4 Z J F " D & #4 H "4 4 * 4 | z { !V f 4 * H
0x0df808…0df99c Dummy {f00=0x0047, f01=0x0190, f02=» /0R f 4 0 f 4 L R 4 0R 0X 0X$0X T x D 6 F F 2 V < f ! # v # ' < 6 J F " D 0X 0X W 0X W 0X 4P +W L R4 0X 4 j !! % L !j !!
0x0df99c…0dfb30 Dummy {f00=0x0047, f01=0x018e, f02=»DATA $ & ENTRY * $ @ & P REL 10.0 ^ $ v & & & PROGRAM: $ & XX " h
0x0dfb30…0dfcc4 Dummy {f00=0x0047, f01=0x0190, f02=» $ 0 & - DEFINITION & $ 0 @ & P & 30 ^ JOB n $ 0 & - DEFINITION $ 0 & & 40 ENTRY $ 0
0x0dfcc4…0dfe58 Dummy {f00=0x0047, f01=0x018e, f02=» " MODE $ "0 & $ & 60 2 # VERIFY B $ #0 X & h $ MODE v $ $0 & % 70 CONVERSIONY $ %0 & & MODE $ &0
0x0dfe58…0dffec Dummy {f00=0x0047, f01=0x0190, f02=» ( ( & & U ) 99 . " )h @ & d P * CREATEO ` $ * x & + GET $ + , VALUE-SETSA $ , & - NAME: TS
0x0dffec…0e0180 Dummy {f00=0x0047, f01=0x0190, f02=» ( . C & / TYPE:F . $ / D & f T & d d & t & & & f @ & & 0 SIZE OF $ 0 1 ELEMENT
0x0e0180…0e0314 (1, 48) Dummy {f00=0x0047, f01=0x018e, f02=»& & g 4 XX " 4T 0 & 4 @ 5 ELEMENTO N $ 5 f 6 NO.:F v $ 6 & f & 7 XX " 7 ! & 7 & ~ (
0x0e0314…0e04a8 Dummy {f00=0x0047, f01=0x40a4, f02=» : & & , & : & U L ( Z $ @ 0X ) L 4 4 f Y @
0x0e04a8…0e063c Dummy {f00=0x0047, f01=0x0190, f02=» D H IDENT DENTER TRA 10.0 81-08-28 F1 O1111 REL 10.0 81-08-27/EV , ( DECLRA DECLRD DECLRN DECLRS DERR L $$$TRAN | 6 2 DECLRA DECLRDD DECLRNC DECLRS DERR B > ADJUSTN ATTPRTA CANC DEAPPL8 DEFORC1 DEGEN DELAST1 DELOCKE
0x0e063c…0e07d0 Dummy {f00=0x0047, f01=0x0190, f02=» P > : T:DYKI T:EDFLR T:EDWRC T:ERASD T:GETA T:GETC T:GETF D @ T:NKI T:PRINE T:SETCW T:TBWDE T:TFWDA T:THOMD T:TSTCD T:UPDF J T:XSTA TESTB & "
0x0e07d0…0e0964 Dummy {f00=0x0047, f01=0x0190, f02=» < T n
0x0e0964…0e0af8 Dummy {f00=0x0047, f01=0x0190, f02=» 8 6 J F " D R!4 R"4 R#4 R$4 R 4 @} 8RIn06 W 0X ! WP0X ! WII~ B , f L , v S , c 6 j 6 r , | , J F " D @ 0X ! W?H 0X ! W50X!! W.@n6 0X ! W 0X
0x0e0af8…0e0c8c Dummy {f00=0x0047, f01=0x0190, f02=» ] ] B $ J F " D W 0X ! (0X :RH~ ?R0X P :R _ 0X P C{P A )?RH ?R0XHoO 4 > >
0x0e0c8c…0e0e20 Dummy {f00=0x0047, f01=0x0190, f02=» K W 0X K R! 2 RRRW 0X 0R /1X F_5K~|0X ! _D2 RR @ P x ` p s : P $ 0 & ' . 0 0 1
0x0e0e20…0e0fb4 (1, 49) Dummy {f00=0x0047, f01=0x0190, f02=» RRRW P E G 8 J , . U j > V F N W j ^ X n Y ~ Z g [ j j ] j ^ j _ j ` j a
0x0e0fb4…0e1148 Dummy {f00=0x0047, f01=0x0190, f02=» ?R N " , s < L : P l | : -" J F " D & 0R P RK?R0R Pm0X 0R -8RWa0X 6 > W<( , ! Ld :
0x0e1148…0e12dc Dummy {f00=0x0047, f01=0x0190, f02=» D # !_'0X P 0X P oLW oLd o "_HI 0X R2 RRRW ( L ) B + l 6 J | J F " D @ @ @ @ @h@j #U 0R ! Td$ + " , 0X R %@|PI0X T /hZ ] ^ ` s
0x0e12dc…0e1470 Dummy {f00=0x0047, f01=0x018e, f02=» L 5 * J F " D @" !T f ! j !! H{ RK?R0X P 0X P H RK?R RK?R0X W 2 : L J . & J . J J F
0x0e1470…0e1604 Dummy {f00=0x0047, f01=0x018e, f02=» ( O 8 ] H t X h x
0x0e1604…0e1798 Dummy {f00=0x0047, f01=0x0190, f02=» % * F . J ( 3 8 6 0 H 8 8 X > $ h J F " D !PP0R 0R V 0X !_ $ + ?RI 0XWL0X P 0R 9R0X !0R x D I J P 8 W D
0x0e1798…0e192c Dummy {f00=0x0047, f01=0x018e, f02=» K 0X 0X?RA 0XP#:R;RI f . $ 4 D T d t O :
0x0e192c…0e1ac0 Dummy {f00=0x0047, f01=0x018e, f02=» . $ 4 j D J T d t h . C C
0x0e1ac0…0e1c54 (1, 50) Dummy {f00=0x0047, f01=0x018e, f02=» 4 @ $ 4 D # T % d , J t 1 . > J F " D ?R R<R1X F !0X R?RH{ A W B R.K #_ 0X P 0X P H %@m?R G : O
0x0e1c54…0e1de8 Dummy {f00=0x0047, f01=0x0190, f02=» j o 5 q B $ u 8 4 x 6 D J F " D @ - !0X ( 1X F?R0X 0R /P 0X K ?R0X K ?R0X_.0X 0X H T : J 8
0x0e1de8…0e1f7c Dummy {f00=0x0047, f01=0x0190, f02=» . J . 0 @ : P 4 ` p J F " D 70X P J ? R EK{H ,LH 0X P 0X P RT +_bH KAk0X 1X F?R < J
0x0e1f7c…0e2110 Dummy {f00=0x0047, f01=0x0190, f02=»X P N D E I , K < P L U F _ N l c * | g A l m q r z { |
0x0e2110…0e22a4 Dummy {f00=0x0047, f01=0x4176, f02=»W RK ! 2 RRRRRR J * . : J Z j z O & & ( &
0x0e22a4…0e2438 Dummy {f00=0x0047, f01=0x0190, f02=» H H IDENT DENT01 TRA 10.0 81-08-27 F1 O1111 10.0 80-04-11,81-08-27/EV DENT01 P $$$TRAN b DENT01 t D @ CLEARBN DEACC DECLRA DECLRD7 DECLRN1 DECLRS DEDISC1 DELAST2 B > DEPOOL DEPRUT DERECS DERR DERROR EMPTYT RESTOR
0x0e2438…0e25cc Dummy {f00=0x0047, f01=0x0190, f02=» 2 H f z
0x0e25cc…0e2760 Dummy {f00=0x0047, f01=0x0190, f02=» ( F . V # f * v 3 7 8 9 : ; < G =
0x0e2760…0e28f4 (1, 51) Dummy {f00=0x0048, f01=0x0190, f02=» U V ] $ ^ _ 4 _ ~ D e l T f l d g t h i j k & s J F " D @R H~ I Ao { R_ RKH{ 2 RRR_ 2 RRRRRRRb
0x0e28f4…0e2a88 Dummy {f00=0x0048, f01=0x0190, f02=» 0X_ H %?RIm)I~ Rh ( & g" " H I t 2 ( B R ( b r ( ~ ~ J F " D R@o0X ! _ R_ 0X ! R%Z @m@n
0x0e2a88…0e2c1c Dummy {f00=0x0048, f01=0x0190, f02=» + - 8 4 = 0 J F " D <R R" ?RHm R @ P&@jP A W3Ao R,P R!_ g R&K7 L@mAo?RH 0R @ D [ b *R t J F " D @Hm R! &@h@jP #W @fPO $0R TF L h ! !T
0x0e2c1c…0e2db0 Dummy {f00=0x0048, f01=0x0190, f02=» " D & ?R Ub & @ R.P )gL Ao?RAzAzT @mA R*P @ ?R@ @m8R@xP N ` p D
0x0e2db0…0e2f44 Dummy {f00=0x0048, f01=0x0190, f02=» . A > % N (0 L ^ 5 p 7 ; W < W = > d ? J F " D )K?RI R)K?RI H W Io ?R g( "
0x0e2f44…0e30d8 Dummy {f00=0x0048, f01=0x0190, f02=»g #g &?R #* " #g_> ! & #g #L_ 0X ! R$PE;R@ 0 > T P T ` p $ $ $ . J F " D }({ % H~ - !gL Az?R@z?RH~ C <RI 0X ! W 0X !
0x0e30d8…0e326c Dummy {f00=0x0048, f01=0x0190, f02=» 0 - A 0 0 J F " D ?RAz % Rh ( & J RK @o?R@m!gL C~8R?R@zC~8R?R?RKm Jz I gL B D W W
0x0e326c…0e3400 Dummy {f00=0x0048, f01=0x0190, f02=»g #L0X R C U X . 0 @ ^ P b ` f p j y ( J F " D @! R&_ I~ Jo K _@ @ R!0X@o R(KA RP RW R@ 6 / A R_ Hm 0
0x0e3400…0e3594 (1, 52) Dummy {f00=0x0048, f01=0x0190, f02=» ( , . > J F " D X ! A R%V @ _ @ R"@m0X2 RRRRRRR R" 1 80X !"W 0X ! @m Rh N 2 4 A A
0x0e3594…0e3728 Dummy {f00=0x0048, f01=0x0190, f02=» ( J F " D ( & H I R?RAo( ! ?R R?RAoW I~ Co8RC <RCz8R RAo R"K2 RRRR0X Z . j z ~
0x0e3728…0e38bc Dummy {f00=0x0048, f01=0x0190, f02=» A 1 A 3 * 6 * 8 : < W J = W Z > j ? 5 z J F " D ! R!0X R(V RK?R R#K2 RRRRRRRR1X F_ Co<RCm<RCz8R0X R!K2 RRRR L O Q ,
0x0e38bc…0e3a50 Dummy {f00=0x0048, f01=0x0190, f02=»!X b !U R*8R0X ?R Rh ! & R?RC <R Rh ( & H I R?R F V W f W v D A A
0x0e3a50…0e3be4 Dummy {f00=0x0048, f01=0x0190, f02=» $ . $ 4 D D J F " D ?R@o@z Ub & 5 +@mA{ R*V#( - 1XF0X ! 0X { R&{ mU_"@{Ao?R T " ' ) / 1
0x0e3be4…0e3d78 Dummy {f00=0x0048, f01=0x018e, f02=»RA #W R D ( N V 0 d @ i P s ` v0 5 p { & } J F " D @ 80X _5 R_:A @{0R $} !4 @{Az R'P ;R -pA{_% R!gL @m?R?R@
0x0e3d78…0e3f0c Dummy {f00=0x0048, f01=0x409a, f02=» & FROM DISC.R & & @ O , & U > ( L ( $ " _/0R + 0R , A~4 @~P + , 4 X @ J F " D @ 80X _5 R_:A @{0R $} !4 @{Az R'P ;R -pA{_% R!gL @m?R?R@
0x0e3f0c…0e40a0 Dummy {f00=0x0048, f01=0x0190, f02=» @ H IDENT DENT03 TRA 10.0 80-10-10 F1 O1111 REL 10.0 80-04-11 DEFORC DEVERI H $$$TRAN b DEFORC DEVERI : t B > DELOCKN DERRORA DESTAT0 FMOVE FORCED1 MASKL T:DISP0 T:EDWR B > T:GETA T:GETCR T:KI T:SETC T:TSTC T:UPDF
0x0e40a0…0e4234 (1, 53) Dummy {f00=0x0048, f01=0x0190, f02=» , @ X l
0x0e4234…0e43c8 Dummy {f00=0x0048, f01=0x018e, f02=» ~ ? . > N # ` . r 1 J F " D A 0X P L W 0X "0R /P LW L "j 0X 0X #4 @ C S ]
0x0e43c8…0e455c Dummy {f00=0x0048, f01=0x0190, f02=» $ 4 D T J F " D !4 !0X@ T 0R F j %! !0X ! 0X K R! 6 cv6 C d +4 -4
0x0e455c…0e46f0 Dummy {f00=0x0048, f01=0x0190, f02=» $ 4 D T - d / t 3 5 : ? J F " D _ A 0X T f !0R F0X0X _ 0X 0R (P h ! !P 1X F_ 1X F !0X X
0x0e46f0…0e4884 Dummy {f00=0x0048, f01=0x40f0, f02=» & & ( , & < & . J & . Z ( h t & . & ( * & $ @ 0X O _U "4 #4 $4 ` @ ! !P 1X F_ 1X F !0X X
0x0e4884…0e4a18 Dummy {f00=0x0048, f01=0x018e, f02=» @ H IDENT DEPOOL TRA 10.0 80-10-10 F1 O1111 REL 10.0 80-04-11 DEPOOL H $$$TRAP Z DEPOOL l CMPINDP GETINDA SETB ' '
0x0e4a18…0e4bac Dummy {f00=0x0048, f01=0x0190, f02=» J F " D @ 2 RRRRRRRRRRR A ! ~U ! L& !0R !T J _ R:R J F " D @I !_) _7j ! ! h~ !X8H !( @ h~ U !j~ ! ! !P R E J F " D !0R ! N_m R ?R j !! '( !1j !& !j !!
0x0e4bac…0e4d40 Dummy {f00=0x0048, f01=0x0190, f02=» & 1 J F " D j !! (I !Y A ! p ! ?R ! 0R !h & !&P E l J | J F " D @ !0R !<R_ ( ) +h & '&Z h ! !R !W h ! !Z< " ! J F " D ) L
0x0e4d40…0e4ed4 (1, 54) Dummy {f00=0x0048, f01=0x0190, f02=»!j !! ( _N Z - Fj 1 Tj * 5 Xj < @ N J F " D ! ( + ~UWhj !! ' !QU I N! L ! L Lb ! W:0 ^ R T V X J F " D @R^ h^ U !P L! Lj !!^ b ! f^ ! !A j !
0x0e4ed4…0e5068 Dummy {f00=0x0048, f01=0x4176, f02=» " D )W# + Lj ! h $ !T 8 W - !"4 !!4 j !!^ XW N 3 ` J F " D ( !"4 Lj ! j !! ( j (! ! _ f^ !0R^ !j^ !U p S J F " D @ !!4 6 LW U j !!~ W j !! (W
0x0e5068…0e51fc Dummy {f00=0x0048, f01=0x0190, f02=» @ H IDENT DE10ST TRA 10.0 80-10-10 F1 O1111 REL 10.0 80-04-11 DE10ST DEAP1A H $$$TRA1 b DE10ST DEAP1A M t > : DE11ST1 DE12STA DE14ST0 DE15STF DEANOK DEAOK0. DECLRA- < 8 DECOMP DEPMSK1 DEPOOL DEPRUT DERR RESTOR T:A
0x0e51fc…0e5390 Dummy {f00=0x0048, f01=0x0190, f02=» 1 5 = $ J F " D ( &Ad1XFAn@m R6 0 R_ @n_ ( !'( _&3 RRRRR@d0R 0} h* Rh 4 B Z [ ] n ^ a c f h
0x0e5390…0e5524 Dummy {f00=0x0048, f01=0x0190, f02=» 59 ] & T 8 J Z J F " D L|j " $# Lr?R ! !6 +; ^# LZb !" Lj !# R'bc (c" L l A N P
0x0e5524…0e56b8 Dummy {f00=0x0048, f01=0x0190, f02=» & $ 10 SUPERVISORY FUNCTIONS $ 6 & F & T PROGRAM: b $ z & XX " h & d & d 11 DATE AND TIME $
0x0e56b8…0e584c Dummy {f00=0x0048, f01=0x40b0, f02=»& 14 SYSTEM-VARIABLESS $ 0 & @ 15 FILE-SPACEI N $ l ( | &?RP @ " h & d & d 11 DATE AND TIME $
0x0e584c…0e59e0 Dummy {f00=0x0048, f01=0x0190, f02=» @ H IDENT DE11ST TRA 10.0 80-10-10 F1 O1111 REL 10.0 80-04-11 DE11ST H $$$TRA1 Z DE11ST l 6 2 DECLRN1 DERRORA T:ATTF0 T:DISPF T:GETT T:SETT.
0x0e59e0…0e5b74 (1, 55) Dummy {f00=0x0049, f01=0x0190, f02=»K ! _ @n0X T !S0X ! _*a F0X n # , & < 11 DATE AND TIME J $ j & z DATE: $ & f XXE-XXE-XX " ! & TIME:
0x0e5b74…0e5d08 Dummy {f00=0x0049, f01=0x4070, f02=» 999999 " T * ( : @S !4 F E Z@ l j & z DATE: $ & f XXE-XXE-XX " ! & TIME:
0x0e5d08…0e5e9c Dummy {f00=0x0049, f01=0x0190, f02=» @ H IDENT DE12ST TRA 10.0 80-10-10 F1 O1111 REL 10.0 80-04-11 * & hA20 CANC11 CANC12 DE12ST WRIT12 H $$$TRA1 v 4 0 hA20 CANC11C / CANC121 2 DE12ST1 WRIT12 G : 6 DECLRA1 DEDISCA DEPOOL0 DERR0 ENT12 RESTORL T:ATTF0 T
0x0e5e9c…0e6030 Dummy {f00=0x0049, f01=0x0190, f02=» 8 @ A E B 0 J F " D L1XFAd # @d An@mAe@f R 2 RRR R_ !0R#$} R& 2 @ ] _ & & 99 " h & d
0x0e6030…0e61c4 Dummy {f00=0x0049, f01=0x0190, f02=» NAME: TS $ & e , & < & J & X & e @ f & x & $ ( C & TYPE: $ & f &
0x0e61c4…0e6358 Dummy {f00=0x0049, f01=0x0190, f02=» ELEMENT $ S: , $ > & f N & d ^ & n XX | " T & & g XX " T & ELEMENT
0x0e6358…0e64ec Dummy {f00=0x0049, f01=0x406c, f02=» ( > : 8 @RRR_,4 j 1! ! !j 2! ! L R R ! 4 t V@ h & n XX | " T & & g XX " T & ELEMENT
0x0e64ec…0e6680 Dummy {f00=0x0049, f01=0x018e, f02=» @ H IDENT DE1201 TRA 10.0 80-10-10 F1 O1111 REL 10.0 80-04-11 ENT12 H $$$TRA1 X ENT12 j > : hA20 ATTDB ATTWB CANC110 CANC12F CLEARB DECLRN. DEDISC- | B > DEPOOL DERR DERROR FMOVE RESTOR T:DISP T:ERAS T:GETF T
0x0e6680…0e6814 (1, 56) Dummy {f00=0x0049, f01=0x0190, f02=» % 4 TT ( < < J F " D Hd ?R ! R8T R& ( RK !0R#$}?R ) _ ! Lb "" R" L B ! D R Y ] ^ _ g
0x0e6814…0e69a8 Dummy {f00=0x0049, f01=0x0190, f02=» ! L ! L L W b 0 " @ P ` J F " D L " ! j " j $" Af0R~F0R "P 0R~Fj~#! ! ! !W p c $ !
0x0e69a8…0e6b3c Dummy {f00=0x0049, f01=0x0190, f02=» $$ %0X 0X %%0X %% ` . > N ^ n ~ $ ! $ +
0x0e6b3c…0e6cd0 Dummy {f00=0x0049, f01=0x0190, f02=» d { J F " D @ !$ ! $ W !W R8P )B?R0R (+0R +@eAf ! ! 0X %%I j z R 3 @ , ,
0x0e6cd0…0e6e64 Dummy {f00=0x0049, f01=0x0190, f02=» !_ ! R8 Z ( 8 T H J F " D ! R( TJ?R ! R& ! Lb !# ~ Z % &
0x0e6e64…0e6ff8 Dummy {f00=0x0049, f01=0x0190, f02=» 0R (+?R - RK !?R &A R$ 1 RK !2 x K 6 S F Y V b f d x g n r z ~ J F " D @ RRR_
0x0e6ff8…0e718c Dummy {f00=0x0049, f01=0x0190, f02=» i ( 8 A H " Z J F " D R R_ L R (0X % 0R ?R ~ R ~ RR j !! !0R~Fj " L0 j N &
0x0e718c…0e7320 Dummy {f00=0x0049, f01=0x40aa, f02=» & & & U 0 ( > F A ? R "P L0R~F " !j~#! ! T j " $ j !! 1j !! 2 !!4 2 J @ L0 j N &
0x0e7320…0e74b4 (1, 57) Dummy {f00=0x0049, f01=0x0190, f02=» @ H IDENT DE14ST TRA 10.0 80-10-10 F1 O1111 REL 10.0 80-04-11 DE14ST H $$$TRA1 Z DE14ST l $ DECLRN1 DEDISCA DERR T:ATTF0
0x0e74b4…0e7648 Dummy {f00=0x0049, f01=0x0190, f02=» NAME CONTENTS $ & & 6 & X% D 01 T $ f & @ v & ! & & X% 02 $ & @ & " &
0x0e7648…0e77dc Dummy {f00=0x0049, f01=0x0190, f02=» & @ & $ & . & X% < 05 L $ ^ & @ n & % & & X% 06 $ & @ & & & & X%
0x0e77dc…0e7970 Dummy {f00=0x0049, f01=0x416c, f02=» & @ & ( & & & X% 4 09 D $ V & @ f & ) x & & X% 10 $ & @ & * & &
0x0e7970…0e7b04 Dummy {f00=0x0049, f01=0x0190, f02=» @ H IDENT DE15ST TRA 10.0 80-10-10 F1 O1111 REL 10.0 80-04-11 DE15ST H $$$TRA1 Z DE15ST l @ < ATTWB DECLRNT DEPOOL DERR- OPCL T:ATTFR T:DISP T:ERAS1 T:THOM
0x0e7b04…0e7c98 Dummy {f00=0x0049, f01=0x018e, f02=» !G! "?! !L ! " ! ! # !A h D & O 6 S F ] V d f h A v i j q s J F " D @n@m R6 p R_ 0X ! _7Hm_ R#P Q R2 RRR _ 0X R6 A
0x0e7c98…0e7e2c Dummy {f00=0x0049, f01=0x018e, f02=» J F " D $Gv ?v !L "?v ! " ! $ & ! % 0X & R$Xm R2 RRR _ R& V Q f & v 15 FILE SPACE? $ & USERFILE UNIT? $ & :U &
0x0e7e2c…0e7fc0 Dummy {f00=0x0049, f01=0x0190, f02=» FILE $ & , SIZE : $ N & ^ FREE %M l $ & SYSTEMFILE $ & ZZZZ9 " ! &
0x0e7fc0…0e8154 (1, 58) Dummy {f00=0x0049, f01=0x410c, f02=»$ # & ZZZZ9 " $ 2 & B ZZZZ9 P " % f & # v ZZ9 " & & & & U ( R$4 @
0x0e8154…0e82e8 Dummy {f00=0x0049, f01=0x018e, f02=» @ H IDENT DE20ST TRA 10.0 80-10-10 F1 O1111 REL 10.0 80-04-11 DE20ST DEAP2A H $$$TRA2 b DE20ST DEAP2A S t > : CMPIND2 CNTNUMA DE21ST0 DE23STF DE24ST DEANOK. DEAOK0- > : DEAOK4 DECLRA2 DEDISC DEPMSK DEPOOL DEPRUT D
0x0e82e8…0e847c Dummy {f00=0x0049, f01=0x0190, f02=» + , - ( 3 8 ; H @ X J F " D ( !Ad1XFAn@m R6 6 W,@n_ ( "2( _!@j3 RRRR@ @d0R 0} 4 Rh h G H l *! r *! | J
0x0e847c…0e8610 Dummy {f00=0x0049, f01=0x0190, f02=» $ v , J F " D ) ?R Lj !& R'bc c b W 0X ! L R$ r"?R 7" v$ <
0x0e8610…0e87a4 Dummy {f00=0x0049, f01=0x0190, f02=» C? Y? 0 @ $ P / ` 4 p 9 > J F " D RP ! L W+! L A ?R@ ?R 0R !T ?R )6 W ?R "?R &?R (?R C J F " D @ ?R
0x0e87a4…0e8938 Dummy {f00=0x0049, f01=0x0190, f02=» 6 L J F " D 3 W1Ak_+ !" %% h / !T , W Hk ! c % c c X h x " 3 9 > J F " D _ & RK !?R 0X %%
0x0e8938…0e8acc Dummy {f00=0x0049, f01=0x0190, f02=» 5 f N k o , q < s 5 L v N { n ~ J F " D @<Rj ! ! L @iW Ai?R RP ! L ?RA W @ ! L A ?R@ ?R R<R! L A ?R@ ?R 5 N
0x0e8acc…0e8c60 Dummy {f00=0x0049, f01=0x0190, f02=» N Y Q $ & 4 & 20 B FORMAT R $ 0 h & - x DEFINITION $ 0 & PROGRAM: $ 0 & XX
0x0e8c60…0e8df4 (1, 59) Dummy {f00=0x004a, f01=0x0190, f02=» $ 1 DEFINITION $ 1 * & : & 22 H BALANCE X $ 2 p & - FORMAT $ 2 DEFINITION $ 2 & & 23 GET
0x0e8df4…0e8f88 Dummy {f00=0x004a, f01=0x4082, f02=»AT $ O ( B = ; R<R! L A ?R@ ?R R<R! L @ ?RA ?R?R ! L ! L !W 4 & l@ ~& - FORMAT $ 2 DEFINITION $ 2 & & 23 GET
0x0e8f88…0e911c Dummy {f00=0x004a, f01=0x0190, f02=» @ H IDENT DE21ST TRA 10.0 80-10-10 F1 O1111 REL 10.0 80-04-11 DE21ST DEFGTC H $$$TRA2 b DE21ST DEFGTC t B > ATTDB ATTPRTT ATTWB DEDISC- DEFDSC1 DEPOOLL DERROR0 DETPRT D @ EMPTYT FCODE FEDIT FLINK FMOVE MTEXT PRFGUF
0x0e911c…0e92b0 Dummy {f00=0x004a, f01=0x0190, f02=» ! ( r , * % # 0 P 1 < 2 j 8 z > J F " D AnIj @{ " @iW Ai ! R" P RK7 ?R % L0R ,0R , R D J P
0x0e92b0…0e9444 Dummy {f00=0x004a, f01=0x0190, f02=» 2 RRRR0R F 'h #Q !j R, w j 1!w!I x 6 F V J f J v J F " D i j 2! ! !j "" j $" mHj R-P RK !2 RR_ R&{ { R
0x0e9444…0e95d8 Dummy {f00=0x004a, f01=0x0190, f02=» J F " D )P RK !Ix 6 * ?R R&{ { R*P RK !2 RR_ R({ P RK $ J r J J J ) 3
0x0e95d8…0e976c Dummy {f00=0x004a, f01=0x0190, f02=» Z ( e * v { 0 @ P J F " D @i, ! 0X Q R A ! 0X Q R A 0R j { ! !jm & {!0R "} R)P ` ( '
0x0e976c…0e9900 Dummy {f00=0x004a, f01=0x0190, f02=» " 0 @ P ` p J F " D "}H{ Ij L RK !6 H" W 0R {$*0X R RP RK_4 R R0R "}_? 1
0x0e9900…0e9a94 (1, 60) Dummy {f00=0x004a, f01=0x0190, f02=» K X ` p , z = < L J F " D @ {2 $ #?R R&{ @jP { R&{ W R&{ @jP H{ m R*" ! I{ ?R % & J F " D R& 4 0X 6 55 555555555W 'I ( W Ij I }I ( 'A He !
0x0e9a94…0e9c28 Dummy {f00=0x004a, f01=0x418c, f02=» ? ? ? ( 8 J F " D &Hdx #t #Wj #k &g2 RRRRRRRRRRRRRWHHdR #W;IeJ_J # & H # . ( ; ( J F " D '<W- RA ( %Ie,I ) xW Hi! ' 0R (T W
0x0e9c28…0e9dbc Dummy {f00=0x004a, f01=0x0190, f02=» @ H IDENT DEATTF TRA 10.0 80-10-10 F1 O1111 REL 10.0 80-04-11 DEATTF H $$$TRAA Z DEATTF l T:ATTFA & & 21 USER
0x0e9dbc…0e9f50 Dummy {f00=0x004a, f01=0x0190, f02=» CORRECTION $ 1 & * & 8 & F $ %1 T & d & r FIELD $ 1 & : FU & XXXE " $ & START:
0x0e9f50…0ea0e4 Dummy {f00=0x004a, f01=0x018e, f02=» & & ZZ " & & . 0 & OCCUPIED > RECORD T $ C j LENGTH z $ C & : & E TTTT " ( & & &
0x0ea0e4…0ea278 Dummy {f00=0x004a, f01=0x0190, f02=» & . & MINIMUM LENGTH ( $ I > & > N & : & @i j XX | " ' & & & MUST ENTER & (Y/T & & N & N
0x0ea278…0ea40c Dummy {f00=0x004a, f01=0x0190, f02=» & N & N & ): & @s@ 0 & #@ B & R & ` & DUPLICATE n & & : & jA & & . & VERIFY & 9 & (Y/I &
0x0ea40c…0ea5a0 Dummy {f00=0x004a, f01=0x0190, f02=»ITIAL CLEAR & ( & ( " & Y 0 & Y > & /N): L & u@ ^ & %@ p & . & SPECIAL HANDLING: & @k ZZVZZZ " & &
0x0ea5a0…0ea734 (1, 61) Dummy {f00=0x004a, f01=0x0190, f02=» (#G:...) $ & 2 $ ACCUMULATION 2 $ N (#A:...) ^ $ v & & o@ & !@ & & p@ & "@ & & &
0x0ea734…0ea8c8 Dummy {f00=0x004a, f01=0x0190, f02=»DEFINITION $ 2 & j 2 " & # 2 & # @ CORRECTION N $ 2 h & x & $ %2 & & & STARTN $ 2 & & :
0x0ea8c8…0eaa5c Dummy {f00=0x004a, f01=0x018e, f02=» & @ ZZ " & & 0 & > BATCHN L $ & b & -ACCUMULATOR:A r & m XX " ( & . & SPECIAL HANDLING: & @k
0x0eaa5c…0eabf0 Dummy {f00=0x004a, f01=0x018e, f02=» & # GENERATION $ # 0 $ (#G:...) @ $ $ X & h & o@ v & !@ & & p@ & "@ & & & U ( %
0x0eabf0…0ead84 Dummy {f00=0x004a, f01=0x018e, f02=» & SIZE: & f ` ( AA . " ( ! @ & P ) LINE ^ $ )! r * NUMBER $ *! & : & + + Z9 " + " & . , NUMBER
0x0ead84…0eaf18 Dummy {f00=0x004a, f01=0x0190, f02=» & & 2 & $ & 3 2 & ( @ & 4 N & 2 & 5 j & < x & 6 & F & 7 & & & . 1234567890 $ .#
0x0eaf18…0eb0ac Dummy {f00=0x004a, f01=0x413e, f02=»7890 $ 2# 3 1234567890 $ 3# 6 4 1234567890 F $ 4# ` 5 123456789 p $ 5# & & & & & & n @ & (
0x0eb0ac…0eb240 Dummy {f00=0x004a, f01=0x0190, f02=» @ H IDENT DE23ST TRA 10.0 80-10-10 F1 O1111 REL 10.0 80-04-11 DE23ST H $$$TRA2 Z DE23ST l @ < ATTDB ATTPRTT ATTWB DE21ST- DECLRA1 DEDISCL DEPOOL0 DERR1 D @ DERROR DESTAT DETPRT FEDIT PRFGUF RESTOR T:ATTF T:DISP
0x0eb240…0eb3d4 (1, 62) Dummy {f00=0x004a, f01=0x0190, f02=» $ ( 8 7 H ~ X h ! x % . / 6 J F " D @g0R 0} { 1XFAn@ RAn2 RRRRR R_ 0R 0}@n_ RK6 5 ?RAg@
0x0eb3d4…0eb568 Dummy {f00=0x004a, f01=0x0190, f02=» o s j t * u : v ~ J w Z x j y z z { c J F " D @ ) L AiW 0R {$* p!0X RAnP 0X ! 0X L RK2 RRRRRRRRR_Q
0x0eb568…0eb6fc Dummy {f00=0x004a, f01=0x018e, f02=» ~ * : J J F " D LW R XT 8 RK2 RRRJgwjm & {!_: RK2 RRRRR_ R({ P _ &! Z j j
0x0eb6fc…0eb890 Dummy {f00=0x004a, f01=0x018e, f02=» H J F " D $!! {1Ii=j #!! {2 $ #j !! {(j ' { j {'" j { ! % { ! # _)j G V [ 7 f ] v b - l t u * % # P J F " D @ { ' R@j@{
0x0eb890…0eba24 Dummy {f00=0x004a, f01=0x0190, f02=» $ 4 7 D T d 7 t & & 23 GET FORMAT $ 3 &
0x0eba24…0ebbb8 Dummy {f00=0x004a, f01=0x403c, f02=» 0R($}2 RRR?R R&{ 0R 0}4 _ j &@ 8 x h p
0x0ebbb8…0ebd4c Dummy {f00=0x004a, f01=0x0190, f02=» @ H IDENT DE24ST TRA 10.0 80-10-10 F1 O1111 REL 10.0 80-04-11 DE24ST H $$$TRA2 Z DE24ST l @ < ATTDB DECLRAT DEDISC DEPOOL0 DERR1 DERRORL FEDIT RESTOR1 T:ATTF T:DISP T:GETF D
0x0ebd4c…0ebee0 Dummy {f00=0x004a, f01=0x0190, f02=» ' . 4 F < 2 J F " D 0R 0} { 1XFAn R6 R_ @n_ RK2 RRWm R* Lj !& 0R {$ B F J L T Z ] e
0x0ebee0…0ec074 (1, 63) Dummy {f00=0x004b, f01=0x0190, f02=» d 0 @ P ` M p & & 24 COPY FORMAT $ 4 & FORMAT $ 4 & TO
0x0ec074…0ec208 Dummy {f00=0x004b, f01=0x40aa, f02=» & v @ & m & m ( & @ 6 & U H ( V . * ( RKW RK2 RRW R&{ _ R&{ 0R 0}4 b @ FORMAT $ 4 & FORMAT $ 4 & TO
0x0ec208…0ec39c Dummy {f00=0x004b, f01=0x0190, f02=» @ H IDENT DE30ST TRA 10.0 80-10-10 F1 O1111 REL 10.0 80-04-11 DE30ST H $$$TRA3 Z DE30ST l < 8 DE31ST3 DECLRAA DEPMSK0 DEPRUTF DERR1 RESTOR1 T:ATTF0 +
0x0ec39c…0ec530 Dummy {f00=0x004b, f01=0x018e, f02=» < & & 30 JOB , $ 0 @ & - P DEFINITION ^ $ 0 x & PROGRAM: $ 0 & 3 & XX " h & d
0x0ec530…0ec6c4 Dummy {f00=0x004b, f01=0x4118, f02=» DEFINITION $ 1 & . & 32 < GET L $ 2 ` & p JOB ~ $ 2 & - DEFINITION $ 2 ( @ R_? ! 4 D
0x0ec6c4…0ec858 Dummy {f00=0x004b, f01=0x0190, f02=» @ H IDENT DE31ST TRA 10.0 80-10-10 F1 O1111 REL 10.0 80-04-11 DE31ST DEAP3A H $$$TRA3 b DE31ST DEAP3A t B > ATTWB DEANOKT DEAOK0 DECLRA0 DECLRN1 DEDISC1 DEPOOL0 DERR < 8 DERROR EMPTYT3 T:ATTF T:DISP T:ERAS T:GET
0x0ec858…0ec9ec Dummy {f00=0x004b, f01=0x018e, f02=» & : R f
0x0ec9ec…0ecb80 Dummy {f00=0x004b, f01=0x0190, f02=» x 0 2 ( : J ! Z ) j * , z + 0 5 : J F " D 1XFAd!hL @dAn@mAe R6 ?R " R&z 2 RRR4 LW
0x0ecb80…0ecd14 (1, 64) Dummy {f00=0x004b, f01=0x0190, f02=» ^ 3 _ f ` f g , w < x L | Q } Q l ~ | s s J F " D @He @o RW 0R z ,AnAo@e R2 RRRRRRR _( R(z T &PU 1 RK2 RRRR
0x0ecd14…0ecea8 Dummy {f00=0x004b, f01=0x018e, f02=» z! X#b !& R"z <R R$z zU0R z ,@e0X " z 8 H X h x J F " D *k0X " R_ He% k0Rk<RId R$P )SW R"T k _ kLW @f !" )*
0x0ecea8…0ed03c Dummy {f00=0x004b, f01=0x0190, f02=» c g k , J F " D @" )&0R * * L L_=0R !P #_R * , !" < *& J F " D 3 h &U !T , , _ ,& R!8RW:6 1?R
0x0ed03c…0ed1d0 Dummy {f00=0x004b, f01=0x0190, f02=» & & 99 " h * & d : CREATE J $ b & r GET $ JOB-DEFINITION $ & JOBNAME: $
0x0ed1d0…0ed364 Dummy {f00=0x004b, f01=0x0190, f02=» & BATCHHEAD: $ 6 & f F & 4 X & h BALANCE: v $ & &g & 5 & FORMAT $ &
0x0ed364…0ed4f8 Dummy {f00=0x004b, f01=0x0190, f02=» & + & FORMAT $ 4 & D 2: R $ d & fA r & "A & ! SYMBOLIC: $ !A & &A & , & " FORM
0x0ed4f8…0ed68c Dummy {f00=0x004b, f01=0x0190, f02=»IC: $ $A & &A & - . & > % FORMAT L $ % b & r & 4: $ & & fA & $A & ' SYMBOLIC: $ 'A & &A
0x0ed68c…0ed820 Dummy {f00=0x004b, f01=0x0190, f02=» & %A & * SYMBOLIC: " $ *A < & &A L & / ^ & n + FORMAT | $ + & , 6: $ , & fA & &A & -
0x0ed820…0ed9b4 (1, 65) Dummy {f00=0x004b, f01=0x0190, f02=» / 7: $ / & fA " & 'A 4 & D 0 SYMBOLIC: R $ 0A l & &A | & 1 & 1 FORMAT $ 1 & 2 8: $ 2 &
0x0ed9b4…0edb48 Dummy {f00=0x004b, f01=0x4154, f02=» 4 FORMAT $ 4 & " 5 9: 0 $ 5 B & fA R & )A d & t 6 SYMBOLIC: $ 6A & &A & 3 & & & U ( 2 -
0x0edb48…0edcdc Dummy {f00=0x004b, f01=0x018e, f02=» @ H IDENT DE40ST TRA 10.0 80-10-10 F1 O1111 REL 10.0 80-04-11 DE40ST H $$$TRA4 Z DE40ST l > : DECLRA4 DECLRNA DECLRS0 DENT01F DEOPBC DEPMSK. DEPRUT- 2 . DERRS DERROR OPCL T:ATTF T:GETA T:GETF & "
0x0edcdc…0ede70 Dummy {f00=0x004b, f01=0x0190, f02=» x 4 H j
0x0ede70…0ee004 Dummy {f00=0x004b, f01=0x0190, f02=» " ! ( % 8 0 H J F " D @e kU lU( .AdIe 1XFW 1XFAn@mIe RW R6 . R_ @n_ Ief( $A6 X ] e f h i " o J F "
0x0ee004…0ee198 Dummy {f00=0x004b, f01=0x0190, f02=» Z $ 4 D T " d t J F " D @e@dKeN@ @ @ $ * h Rh R_ + , R 2 RRRR R_ 0X 1XF0 M & & 40
0x0ee198…0ee32c Dummy {f00=0x004b, f01=0x018e, f02=»& XX " h " & d3 2 & d B & 41 P OPEN NEW ` $ 1 x BATCH $ 1 & & 42 OPEN OLD $ 2 BATCH
0x0ee32c…0ee4c0 Dummy {f00=0x004b, f01=0x018e, f02=» BATCH $ 3 & * & 44 8 OPEN OLD H $ 4 ` TEST p $ & - ! BATCH $ !4 & $ '4 ( " & &
0x0ee4c0…0ee654 (1, 66) Dummy {f00=0x004b, f01=0x018e, f02=» & % MODE $ %4 & & 4 6 & F & TEST T $ &4 h & x $ *4 & $ .4 & $ 14 & $ 44 ( '
0x0ee654…0ee7e8 Dummy {f00=0x004b, f01=0x0190, f02=» + UNIT $ +5 & :U ( & 8 , X J " ,i & l - VOLUME z $ - & : & & ( . / JOB $ /
0x0ee7e8…0ee97c Dummy {f00=0x004b, f01=0x410e, f02=» $ 2 3 NAME $ 3 $ & : 4 & " B & l V ( d 4 p & & U ( 5 & U & ( X _ @
0x0ee97c…0eeb10 Dummy {f00=0x004b, f01=0x018e, f02=» @ H IDENT DE20FS TRA 10.0 80-10-10 F1 O1111 REL 10.0 80-04-11 > : FACC FCODE FCOPY FDUPL FGEN FITEMhFKI FLINK FMELIhFNL H $ hFSL FTABF FTEXT FVAL NOPOOL0 $$$TRAF D @ FACCF FCODE FCOPY FDUPL 1 FGEN1 FITEM .hFKI FLINK d
0x0eeb10…0eeca4 Dummy {f00=0x004b, f01=0x0190, f02=» . > N " ^ $ n & . ~ 6 8 ; . ? J F " D R! R4 R"j ! ! !j o Hi 0R F R ! " !
0x0eeca4…0eee38 Dummy {f00=0x004b, f01=0x0190, f02=»& R ( R$j ! d * : J F " D ! !4 & ! c # R ( R% R !j ! !! !j ! ` !4 J d J F " D & " c # R ( R& R "j ! "! !j " ` "4
0x0eee38…0eefcc Dummy {f00=0x004b, f01=0x0190, f02=» & $ R ( V D G $ k 4 m D J F " D @ R( R $j ! $! !j $ $4 0R F !h )Q ! ! #* T .
0x0eefcc…0ef160 Dummy {f00=0x004b, f01=0x0190, f02=» D 0 @ P J F " D r!H (W% ! m R# T+ w! R0X ""j !Q W = RK ! ` 2 < d J F " D R+W
0x0ef160…0ef2f4 (1, 67) Dummy {f00=0x004c, f01=0x0190, f02=» ` x ! J F " D @ H R+ "L0X !!" " !)I 0X # W 0X # & ' % y %Ad R W ! ! l ! | d ! ! N ! J F " D < RK ! !4 I /W . R ( a - !+ L !) ! !
0x0ef2f4…0ef488 Dummy {f00=0x004c, f01=0x0190, f02=»j ! ! ! # L j ! ! !W j " ") !L 0R F R '0 ! J F " D R #4 j !Q !4 j !*! !j ! ! !4 !h )Q !j " @ T d " " & ! " ( " " & p! " ( " " &
0x0ef488…0ef61c Dummy {f00=0x004c, f01=0x0190, f02=» " " " # " # " # * " # 8 " # F " # T " # b " # p " # ~ " # " # " # " # " # " # " # " # " #
0x0ef61c…0ef7b0 Dummy {f00=0x004c, f01=0x0190, f02=» $ & #! $ ( $ " $ . & $! $ > ( $ L $ X & %! $ h ( $ v $ & &! $ ( $ $ & '! $ ( $ $ & (! $ ( $
0x0ef7b0…0ef944 Dummy {f00=0x004c, f01=0x018e, f02=»& ,! $ ( % % & -! % ( ( % 6 % B & .! % R ( % ` % l & /! % | ( % % & 0! % ( % % & 1! % ( % % & 2! %
0x0ef944…0efad8 Dummy {f00=0x004c, f01=0x0190, f02=» & & 6! & ( & " & . & 7! & > ( & L & X & 8! & h ( & v & & 9! & ( & & & :! & ( & & & ;! & ( & !
0x0efad8…0efc6c Dummy {f00=0x004c, f01=0x400e, f02=» & @ ' & 6! & ( & " & . & 7! & > ( & L & X & 8! & h ( & v & & 9! & ( & & & :! & ( & & & ;! & ( & !
0x0efc6c…0efe00 Dummy {f00=0x004c, f01=0x0190, f02=» @ H IDENT DEUNPF TRA 10.0 80-10-10 F1 O1111 REL 10.0 80-04-11 ( DEUNPF DEUNPL FEDIT ( H $$$TRAU ( h " DEUNPF DEUNPLF FEDIT G ( z D @ ADJUSTU BINCONA FMOVE GETFWD0 NOPOOL1 RCNTRL1 T:DISP0 T:GETC ( T:SWIT T:TSTCP (
0x0efe00…0eff94 (1, 68) Dummy {f00=0x004c, f01=0x0190, f02=» a ( p F ) J F " D @ R Hj j !! {(j { ! % { $! R0X ""Il _h !Ah?RAl - ! j !! ) ) n ) ~ J F " D !c % $ ! 6 W j " "W j !! ! $ # !0 ) ) Y ) C
0x0eff94…0f0128 Dummy {f00=0x004c, f01=0x0190, f02=»L "LH "L ) X Yh * Nh * ( Yh * : Yh * L Nh * ^ % Ch * p J F " D #LH #L $LH $L %LH %LH "L # oU U b ! " # * H #V:#G:#A:$ * c p * d u *
0x0f0128…0f02bc Dummy {f00=0x004c, f01=0x0190, f02=» hQ 0 !T 2 RRRRRRRRRW W #_) !j !! * z + 8 + H + X J F " D !( "Q R Ii "_H ! `! a! !0R Fh )Q ! ! # `" a j a` + h J F " D j a` ! ( !_ $ 6 1j b#~ W j b#~#W j b#~& b# +
0x0f02bc…0f0450 Dummy {f00=0x004c, f01=0x0190, f02=» _ , J F " D @ + * W !4 # `! a! !0R Fh )Q ! ! " `" a j a` , J F " D j a` ! p 4 !jo ! - h] $ !T 6 #+jo ! ! , b , J F " D !" %_*jo ! )_ jo ! +_ ! !_+J .jo ! ._/jo ! , !4 L b ,
0x0f0450…0f05e4 Dummy {f00=0x004c, f01=0x0190, f02=» , - - - . E - > - N ! - ^ " - n # - ~ $ - % - ' E - J F " D @h@k hQ 2 !0X2 RRRRRRRRRRRRRRRRRR?R !j b! - b! !j !! -
0x0f05e4…0f0778 Dummy {f00=0x004c, f01=0x0190, f02=»o " b Jiq !0R Fh ) - ` J F " D Q ! ! "_ !j !! !j b b _ b !jb!! b! !_ . P . l P . | J F " D !j !! ! "q _ AkT c R _ %b!bL j b!U b!_ HkJ cWE . % . ' . 6 .
0x0f0778…0f090c Dummy {f00=0x004c, f01=0x4110, f02=» S . Y / ^ / f / , k / < t R9 / L y L9 / ^ J F " D @?R !4 L 0X !0R 0R T$0X 0X P 0X ( " L_* L_/ _ / p / & ! / ( / 44 9 / /
0x0f090c…0f0aa0 Dummy {f00=0x004c, f01=0x0190, f02=» @ H IDENT DEPRFG TRA 10.0 80-10-10 F1 O1111 REL 10.0 80-04-11 0 PRFGUF 0 H $$$TRAP 0 Z PRFGUF 0 l 6 2 DERRORP DEUNPFA EMPTYT0 NOPOOLF T:EDWR T:PRIN. 0 0 0 ' 0 0 0
0x0f0aa0…0f0c34 (1, 69) Dummy {f00=0x004c, f01=0x0190, f02=» P 0 d 1 f 1 l #L: 1 . ~ 1 B J F " D @2 w R d "L@h Ru" ! Kh !@k ~L0RoT Lj~ # # - b Ro 1 R 1 #V:#G:#A:" 1 1 J F " D -( q0R TF b , ! , " , # L h
0x0f0c34…0f0dc8 Dummy {f00=0x004c, f01=0x0190, f02=» ( 0 , b _1Ii R!"dL&%( _ R#$dL&% W 1X F 4 1 n 2 J , 2 Z n 2 l $ , 2 | 8 2 J F " D $ 9 j~ bIi R!"dL&%W R#$dL&%( A b ~LAk_Dj~ 2 S n 2 W , 2
0x0f0dc8…0f0f5c Dummy {f00=0x004c, f01=0x0190, f02=»&%W R#$dL&% ~LAk4 + 1X F P W 2 r 3 0 3 @ 3 P 3 ` * 3 p " 3 " 3 " 3 " ! 3 ( 3 3 & 1 3 FORMAT 3 $ 1 3
0x0f0f5c…0f10f0 Dummy {f00=0x004c, f01=0x0190, f02=» PAGE 3 $ # 4 & : 4 ZZ9R 4 . " ! 4 B & 4 R & 4 ` & 4 n & 4 | LINE 4 $ ! 4 FIELDO 4 $ ! 4 & - 4 & MAX/MIN 4 " & K M A V I
0x0f10f0…0f1284 Dummy {f00=0x004c, f01=0x0190, f02=» A 4 & #G: 5 GENERATION 5 $ # 5 6 & #A: 5 F ACCUMULATION 5 X $ # 5 t & 5 & 5 & NO NO/POS -L 5 LENGTH 5 $ N 5 $ & I E T E C -ITEM HANDL. 5
0x0f1284…0f1418 Dummy {f00=0x004c, f01=0x0190, f02=»" " 5 & 6 XXXT 6 " $ 6 0 & 6 @ Z9 6 N " % 6 ` & 6 p Z9 6 ~ " & 6 & 6 Z9 6 " ' 6 & 6 & !' 6 & 6 & "' 6
0x0f1418…0f15ac Dummy {f00=0x004c, f01=0x018e, f02=» ZZVZZZ 6 " ' 7 & 0 7 & & ~ 7 4 & ~ 7 B ( 7 P 7 & 1 7 l FORMAT 7 | $ 1 7 & : 7 & m 7 & ( 7 & NUMBER OF POOL-UNITS:N 7 XE+XXO 7
0x0f15ac…0f1740 Dummy {f00=0x004c, f01=0x018e, f02=» 7 & 8 & 8 LINE 8 $ $ ! 8 8 & ACCUMULATOR 8 H & POSITION 8 b LENGTH 8 x $ O 8 & ( 8 & SPECIAL 8 & #L:< 8 FIELD 8 $ L 8 & LAYOUT>
0x0f1740…0f18d4 (1, 70) Dummy {f00=0x004c, f01=0x0190, f02=» 8 NOT 9 $ # 9 & 9 , NOT 9 : $ 9 N & ' 9 & HANDLING 9 j & 9 & 9 & 9 ( 9 ! " 9 & 9 & k A 9 & 9 " Z9 9 "
0x0f18d4…0f1a68 Dummy {f00=0x004c, f01=0x40f0, f02=» " % & : & ) : & ZZVZZ9 : " " & & : 8 & 0 : H & ~ : V & ~ : d ( : r ' : ~ & 1 : ( : , ( & !L 1X F P # RKW ! 4 : : @ : " Z9 9 "
0x0f1a68…0f1bfc Dummy {f00=0x004c, f01=0x0190, f02=» @ H IDENT DEPROC TRA 10.0 80-10-29 F1 O1111 REL 10.0 80-04-11 DESC FDIR LINIT MTEXT H $$$TRAP j & " DESC & FDIRL LINIT MTEXT | @ < DEPOOLP DERRORA EMPTYT0 FACC9 FCOPY FDUPL FGEN.hFKI FMELI D @ hFNL FTABF FTEXT FVALT NOPOO
0x0f1bfc…0f1d90 Dummy {f00=0x004c, f01=0x0190, f02=» # J F " D 0X RHf R( Hg R( j I 0X ##Ie !l_0 ! $ % & I _ j h z s x J F " D @i I " " ( I 0X $'Ii # L " . I 0X $ RW .W
0x0f1d90…0f1f24 Dummy {f00=0x004c, f01=0x0190, f02=»@f@g L@l R l eIe ( L@l R l l < * J < < L J ^ J F " D f( If LAl R l g !Af( hIg !W` L@l R l eIeJ( M_5 c n J < $ J J F " D d
0x0f1f24…0f20b8 Dummy {f00=0x004c, f01=0x018e, f02=»!P I A ! ! J F " D ! % _2 ! W ! !4 % @e@f@g@ R4 ! " # $ * x $ J F " D * + , 4 oL Hi 0R h / !Tr 6 )'''''48fD J F " D ]]NW[A A A jo ! ! ! !
0x0f20b8…0f224c Dummy {f00=0x004c, f01=0x018e, f02=» , * * $ * 4 * D * T 7 d ; t i G ` Q " &
0x0f224c…0f23e0 Dummy {f00=0x004c, f01=0x0190, f02=» #V:#G:#A:R " . > N ^ J F " D Rj I 0X ##AdA 0R T3 ` c d L h ) c#T # # d0X3 n 1 0 J F " D RRR(
0x0f23e0…0f2574 (1, 71) Dummy {f00=0x004d, f01=0x408e, f02=» " " $ . ! R# T ! R0X "" U | : J W RK !+ !4 T Z x@
0x0f2574…0f2708 Dummy {f00=0x004d, f01=0x018e, f02=» @ H IDENT DECVRT TRA 10.0 80-10-29 F1 O1111 REL 10.0 80-04-11 BINCON CONNUM H $$$TRAC b BINCON CONNUM t 0 - [ . [ / [ 0 [ 1
0x0f2708…0f289c Dummy {f00=0x004d, f01=0x0190, f02=» ; [ < [ = [ ( > [ 8 ? [ H @ [ X A [ h B [ x C D [ E - F M G M H [ I [ J e J F
0x0f289c…0f2a30 Dummy {f00=0x004d, f01=0x018e, f02=»RRRRRRRW bch b!Z7!T W c N?R b% R ! b_ b$ R " b ,# c D T J F " D bch b!Z2! } c! b$ R " b_DW ( % $N b/hZb" c!T b/ Lj c! f J F " D b c! b$ R " a W b# R # b*a & &a_ a c!
0x0f2a30…0f2bc4 Dummy {f00=0x004d, f01=0x018e, f02=» J F " D @c a ac bc Lh baZ ! )b c! bc 'b?R c! )c ' ) ' j (! '!f c [ R J F " D ! ! d!?R ` 4 j b c a j c!a! b b! c!f cb db4 j b b / / / /
0x0f2bc4…0f2d58 Dummy {f00=0x004d, f01=0x0190, f02=» / / / $ / 4 / D / T / d / t / / { / J F " D u aL u $
0x0f2d58…0f2eec Dummy {f00=0x004d, f01=0x0190, f02=» !W, R ! b! !Hg ( 'b `L d X " v 2 J F " D @d b!Z` b! ! !@g _ R " ,0 b! ! `bh `!Z2! R "_L( % B J F " D !T b! L ` h `" b!T `/j b!Z` !_L b! R #_} c j b!Z7 bc b! c J F " D !d
0x0f2eec…0f3080 Dummy {f00=0x004d, f01=0x4134, f02=» ` b` ` !Hg '`4 ^ * " , " : " H ( V b 9! r " ( 99 " ( 999 "
0x0f3080…0f3214 (1, 72) Dummy {f00=0x004d, f01=0x0190, f02=» @ H IDENT DE50ST TRA 10.0 80-10-10 F1 O1111 REL 10.0 80-04-11 O DE50ST DEAP5A O H $$$TRA5 O b DE50ST DEAP5A O t B > ATTDB ATTWB DEANOK. DEAOK0- DECLRA1 DECLRNL DECLRS0 DEDISC O D @ DENT01 DEOPBC5 DEPOOL DEPRUT DERECS DERR
0x0f3214…0f33a8 Dummy {f00=0x004d, f01=0x0190, f02=» O ~ P P : P X P n P P P P
0x0f33a8…0f353c Dummy {f00=0x004d, f01=0x0190, f02=» P v Q Q Q : Q N * Q l Q | Q + $ Q 1 Q ? h Q @ h Q A Q J F " D @e kU lU( ,AdIe'1XFAn
0x0f353c…0f36d0 Dummy {f00=0x004d, f01=0x018e, f02=» RKIe ! 4 @e@d@ @ _Z@dAe " " R" J Q z R 8 R H * R X R h * R x R J F " D ! U Uj ! !j !!/!j %!8!0R (+0R +( > " 1XFW 1XFAn@m R R R
0x0f36d0…0f3864 Dummy {f00=0x004d, f01=0x0190, f02=» R S J F " D R Rh 2 RRR R_ R_ 0R (+0R +0X _ "l lU R R S * S f S v * S S S S S S " S ' S
0x0f3864…0f39f8 Dummy {f00=0x004d, f01=0x0190, f02=» USE S U 0 T J F " D @ R&| W L !" ! 0X %, ! b &l b &!Z2b '( "lW b &k T , T j $ T z , T . T T T T } T T T J
0x0f39f8…0f3b8c Dummy {f00=0x004d, f01=0x0190, f02=» T } U " U } U ( } U 8 & U H U X J F " D ) Rh @ P R$ R_+ Rh " $ kU?R % 0Rk >?R lU?R0R 0} R U h D U * U U U ) U
0x0f3b8c…0f3d20 Dummy {f00=0x004d, f01=0x0190, f02=» R_ R_ 0R~P + , R U f L V $ T $ V 4 d 4 V D x 4 V T J F " D @@z6 Az R_ @ @z R$XP@ ~U 0R , P& b~ ![) !0R + T b~ V d * V V , V , V 2 V
0x0f3d20…0f3eb4 (1, 73) Dummy {f00=0x004d, f01=0x0190, f02=» ( V W J F " D 6 h[ * !T06 $ $$ 0R , T 0R , @ T 0R + !_6A X @ T ?R W W n # W ~ & W & 50 W SEARCH W $ 0 W & W MODE W $ 0 W &
0x0f3eb4…0f4048 Dummy {f00=0x004d, f01=0x0190, f02=» W & X $ % X & X ( $ * X 6 ( X F X R & X b $ X p & X ~ $ / X & X $ 3 X $ @ X & X $ ? X ( X X &
0x0f4048…0f41dc Dummy {f00=0x004d, f01=0x0190, f02=» X $ ? Y ( Y 2 Y & & Y 6 $ * Y D & Y T $ / Y b & Y r $ 6 Y & Y $ < Y & Y RECORD Y $ Y & - Y NUMBER Y
0x0f41dc…0f4370 Dummy {f00=0x004d, f01=0x0190, f02=»& - Y STATUS Z $ # Z " & : Z 2 & -e@ Z @ & ~ Z R $ @@ Z ` ( Z p Z | & 51 Z ! SEARCH Z $ !1 Z & Z " MODE Z $ "1 Z & Z #
0x0f4370…0f4504 Dummy {f00=0x004d, f01=0x018e, f02=»ARCH Z $ &2 [ & [ ' MODE [ * $ '2 [ > & [ N ( BATCH [ $ (2 [ r & [ ) LEVEL [ $ )2 [ ( [ * [ & 53 [ + SEARCH [ $ +3 [
0x0f4504…0f4698 Dummy {f00=0x004d, f01=0x018e, f02=» $ .3 ( / 0 UNIT 0 $ 03 D & :U T & d 1 X v " 1i & 2 VOLUME $ 2 & : & & ( 3
0x0f4698…0f482c Dummy {f00=0x004d, f01=0x0190, f02=» 6 ] 7 JOB ] $ 7 ] , 8 NAME ] < $ 8 ] P & : ] ` & ! ] n & k ] ( ] 9 ] : BATCH ] $ : ] ; NAME ] $ ; ] & : ] &
0x0f482c…0f49c0 Dummy {f00=0x004d, f01=0x0190, f02=» : ] & " ^ & l ^ ( ^ , ? ^ 8 & ^ H & ! ^ V & ^ f & " ^ t & ) ^ & # ^ & ^ & ^ & $ ^ & ^ & % ^ & ) ^ & & ^
0x0f49c0…0f4b54 (1, 74) Dummy {f00=0x004d, f01=0x0190, f02=»& * ^ & _ & + _ & ) _ , & , _ : & _ J & _ X & - _ f & _ v & . _ & ) _ & / _ & _ & _ & 0 _ & _ & 1 _ & ) _
0x0f4b54…0f4ce8 Dummy {f00=0x004d, f01=0x40da, f02=» & _ & 6 ` & ` & 7 ` , & ) ` < & 8 ` J ( ` Z @ ` f & ` v & ` & U ` ( ` &?R ` ` @ ` & _ & 1 _ & ) _
0x0f4ce8…0f4e7c Dummy {f00=0x004d, f01=0x018e, f02=» @ H IDENT DE60ST TRA 10.0 80-10-10 F1 O1111 REL 10.0 80-04-11 a DE60ST a H $$$TRA6 a Z DE60ST a l B > DECLRA6 DECLRNA DENT010 DEOPBCF DERR1 DERROR1 OPCL0 T:ATTF a T:GETA T:GETF a & " a
0x0f4e7c…0f5010 Dummy {f00=0x004d, f01=0x0190, f02=» b b b 0 b R b t b b b b
0x0f5010…0f51a4 Dummy {f00=0x004d, f01=0x0190, f02=» b c ' c J F " D @e( +AdIe 1XFW 1XFAn@m R6 - @~@ R_ @n_ IeW( &@6 _8A c 0 O c ~ W c X c ^ c _ c e c J F " D @W A A Ae@d_<@ R$V RK@ P 1XFAn@m
0x0f51a4…0f5338 Dummy {f00=0x004d, f01=0x0190, f02=» c d d d , F d < & d L & 60 d Z $ !0 d j & d z PROGRAM: d $ 0 d & d XX d " h d & d0 d & d d &
0x0f5338…0f54cc Dummy {f00=0x004d, f01=0x0190, f02=» 2 d & e & 63 e $ !3 e ( KEY e 8 $ 3 e L & / e TEST e j $ 3 e ~ & e & 64 e $ !4 e SIGHT e $ 4 e & / e TEST e $
0x0f54cc…0f5660 Dummy {f00=0x004d, f01=0x0190, f02=» SIGHT e $ 4 f & f $ KEY f 2 $ 4 f F & 4 f V & / f f TEST f t $ f & f $ $4 f & f $ (4 f & f $ +4 f & f $ .4 f
0x0f5660…0f57f4 (1, 75) Dummy {f00=0x004e, f01=0x018e, f02=» ( f $ g % UNIT g $ %4 g 0 & :U g @ & g P & X g b " &i g t & g ' VOLUME g $ ' g & : g & g & g ( g ( g ) JO
0x0f57f4…0f5988 Dummy {f00=0x004e, f01=0x414a, f02=» , BATCH h $ , h - NAME h * $ - h > & : h N & " h & l h p ( h ~ . h & h & U h ( h / h & U h & h ( h 2 . , @ @
0x0f5988…0f5b1c Dummy {f00=0x004e, f01=0x0190, f02=» @ H IDENT DE70ST TRA 10.0 81-07-14 F1 O1111 REL 10.0 80-12-17 DE70ST DEAP7A H $$$TRA7 b DE70ST DEAP7A t D @ ATTDB DEANOKT DEAOK0 DECLRA4 DECLRS1 DECONV1 DEDISC1 DELAST D @ DEOPBC DEPMSK7 DEPOOL DEPRUT DERECS DER
0x0f5b1c…0f5cb0 Dummy {f00=0x004e, f01=0x0190, f02=» & D Z x
0x0f5cb0…0f5e44 Dummy {f00=0x004e, f01=0x018e, f02=» & : ( X h ( x ( ) - ? $ J F " D kU lU( xAdIe 1XFW 6 1
0x0f5e44…0f5fd8 Dummy {f00=0x004e, f01=0x0190, f02=» J F " D @$ R_ @n_)@ R$V RK6 Ie ! 4 @e@d ' * h Rh R_sI V f v , J F " D e ' @f6 _ AfAe@d_ 2 RRR ( 0RkT (!0RlT (! %0X " _
0x0f5fd8…0f616c Dummy {f00=0x004e, f01=0x018e, f02=» : $ J F " D ("6 ( R,KW R-K ! R 2 RRRRAzT R ! '! ?R6 ( k lU 4 i " " $ & ) 5 i
0x0f616c…0f6300 Dummy {f00=0x004e, f01=0x0190, f02=» h t u i $ x0 4 { F J F " D @&{ # R+P " + $ ( ( * ?R( $ 6 ( _W R%T ( * 2 ( RR)gL R " V 0 J F " D '"( g " #L R$T R #
0x0f6300…0f6494 (1, 76) Dummy {f00=0x004e, f01=0x0190, f02=» ( & $ J F " D R&{ 1XF0X ! 0X mU_" m 50R {&* p!0X R $ '$( D0R $} | @ 4 0 & . @ J F "
0x0f6494…0f6628 Dummy {f00=0x004e, f01=0x018e, f02=» H L M $ T W 4 U D V i T [ d g t ] ' ^ b c j p v & J F " D @L2 RRRRRW RK
0x0f6628…0f67bc Dummy {f00=0x004e, f01=0x0190, f02=» $ , $ 4 " D J F " D 0R R2 R&| @zP R % @ Rh R$8R?R6 ?R0RN`a a bahNb# #P a% T & & 70 CONVERSION
0x0f67bc…0f6950 Dummy {f00=0x004e, f01=0x0190, f02=» & d $ ( " . & > $ L & $ # j & z $ ' & $ * $ - ( & $ &
0x0f6950…0f6ae4 Dummy {f00=0x004e, f01=0x018e, f02=» & 71 CONVERSION $ $ 1 > & N VIA $ 1 p & DATA COMMN $ 1 ( & 71 CONVERSION $ 1
0x0f6ae4…0f6c78 Dummy {f00=0x004e, f01=0x018e, f02=» & 73 " BATCH LINKING $ "3 2 ( B # N $ UNIT ^ $ $3 r & :U & % X " %i & & VOLUME $ & & :
0x0f6c78…0f6e0c Dummy {f00=0x004e, f01=0x0190, f02=» & !A & k ( * * 6 + BATCH F $ + , NAME l $ , & : & "A & l ( - & l & A & U
0x0f6e0c…0f6fa0 Dummy {f00=0x004e, f01=0x416c, f02=» FILE $ 0 & - 1 NAME , $ 1 @ & : P & @ ^ & p ( ~ 2 * & & FETCHING FORMAT: & & FROM DISC.R & & @ O
0x0f6fa0…0f7134 (1, 77) Dummy {f00=0x004e, f01=0x0190, f02=» D H IDENT DE80ST TRA 10.0 80-10-10 F1 O1111 REL 1.0 79-08-14/DALI w DE80ST DEAP8A w L $$$TRA8 w f DE80ST DEAP8A 0 w x 4 0 DEANOK8 DEAOK0A DECLRA0 DECONVF DERR1 T:ATTF1 w w w w w
0x0f7134…0f72c8 Dummy {f00=0x004e, f01=0x0190, f02=» 2 w N G x M YA x Q NA x . T x @ x P & x ` & 80 x n RECEIVE MODE x ~ $ 0 x & x UNIT x $ 0 x & :U x & x X
0x0f72c8…0f745c Dummy {f00=0x004e, f01=0x0190, f02=» TYPE: x & e y X y " " y 4 & y D & 1= LINE TO PRINTER y R & y r & 2= LINE TO DISKT y & y & 3= DISK TO PRINTER y & y & RESTART(Y/N):I y & f y
0x0f745c…0f75f0 Dummy {f00=0x004e, f01=0x4026, f02=» L ?RD y | U z @ z " X y " " y 4 & y D & 1= LINE TO PRINTER y R & y r & 2= LINE TO DISKT y & y & 3= DISK TO PRINTER y & y & RESTART(Y/N):I y & f y
0x0f75f0…0f7784 Dummy {f00=0x004e, f01=0x018e, f02=» @ H IDENT DERROR TRA 10.0 80-12-03 F1 O1111 REL 10.0 80-04-11 CANC DERROR H $$$TRAR ` CANC DERROR r D @ DELASTR DELOCKA MASK MSKOUT3 T:DISP1 T:EDWR1 T:ERAS0 T:GETA T:NKI T:SETCO T:XSTA * 7
0x0f7784…0f7918 Dummy {f00=0x004e, f01=0x0190, f02=» " " " " . " < " J " X " f " t " " " " " " # " & " ) " - " .
0x0f7918…0f7aac Dummy {f00=0x004e, f01=0x0190, f02=» ; " D " D " D & " D 4 " D B " D P " D ^ " D l " D z " = " > " ? " @ " A " B " C (
0x0f7aac…0f7c40 Dummy {f00=0x004e, f01=0x0190, f02=» & & I/O-ERROR ( 4 @ & P & FUNCTION NOT ALLOWED ^ ( & & ! & COMPULSORY FIELD NOT FILLED ( & & ILLE
0x0f7c40…0f7dd4 (1, 78) Dummy {f00=0x004e, f01=0x018e, f02=»ALREADY DEFINED/EXECUTED ( , & < & NOT FOUNDE J ( b n & ~ & NO DISC SPACEE ( & IN USEP $ O (
0x0f7dd4…0f7f68 Dummy {f00=0x004e, f01=0x0190, f02=» ! & ( $ &" MAXIMUM RECORD-LENGTH EXCEEDED & ( R ^ & n & NO RECORD FOUNDL | ( $ & , ' &% !MAXIMUM NUMBER OF FIELDS EXCEEDED (
0x0f7f68…0f80fc Dummy {f00=0x004e, f01=0x0190, f02=» SYMBOLIC $ R & " FORMAT 0 $ R F & : V & : d & r , ' &% ! DOES NOT EXIST IN JOB-DEFINITION & D & OR ON SYSTEM-DISC ( ? &
0x0f80fc…0f8290 Dummy {f00=0x004e, f01=0x0190, f02=» & : & & : TTTT9S * " O @ & z O P & : ` & n n & : | & & : TTTT9S " gO & O & : & ASD & 5
0x0f8290…0f8424 Dummy {f00=0x004e, f01=0x0190, f02=»RORD v ( & ( & USERFILE ASSIGN-ERRORO 6 ( Z f & v & DISC I/O-ERROR & : XXXXX- " I ( & & DISC
0x0f8424…0f85b8 Dummy {f00=0x004e, f01=0x0190, f02=» IN USEO $ "I ( " # . & > $ VALUE-SETE L $ $I f & : v & % IN USEE $ %I ( & & ' JOBN $ 'I
0x0f85b8…0f874c Dummy {f00=0x004e, f01=0x0190, f02=» *I & : & l & IN ( + JOBN : $ +I N & : ^ & k l , IN USEO z $ ,I ( - & ( # &! DEFINED LINE MAXIMUM EXCEEDEDT (
0x0f874c…0f88e0 Dummy {f00=0x004e, f01=0x018e, f02=»ONFIRM | ( 0 4 & * 1 FORMAT 8 $ 1R N & : ^ & m l & : z 4 / &- )CONFIRM WANTED FUNCTION (CORR,RDEL,PRINT) ( 2 & ) & ILLEGAL FORMAT NAMET
0x0f88e0…0f8a74 (1, 79) Dummy {f00=0x004f, f01=0x0190, f02=» ( 5 & TEST ENTERED BATCH ( @ 6 L & $ & OUTPUT DEVICE NOT OPERABLE j ( 7 / & 6 2 &0 ,END OF FORMAT FOUND PRESS RINS FOR NEW LINES ( 8
0x0f8a74…0f8c08 Dummy {f00=0x004f, f01=0x0190, f02=»THIN FORMAT: j & m & . " & SIZE ON DISC:R 0 : TTT9 L " : I ` & . p ( ~ ; ? & . ( # &! WARNING:REFERENCE TO FIELD (F < XXXN " < A & ! & ) OUTSIDE
0x0f8c08…0f8d9c Dummy {f00=0x004f, f01=0x0190, f02=» > & ( & 95 % OF FILESPACE USED ( @ ? L & & CDV-ERRORI j ( @ & & DATE ERROR ( A & & TIME-OUT (
0x0f8d9c…0f8f30 Dummy {f00=0x004f, f01=0x0190, f02=»Y DISC ~ ( D & * " & THIS IS A DUMMY MESSAGEN 8 ( ^ j F z 3 ) ? + : + J F " D !1X F P Q LU80X 88 R*j !!
0x0f8f30…0f90c4 Dummy {f00=0x004f, f01=0x0190, f02=» Q T X * Z F : _ J f Z r j v z J F " D @ 1X FW % L "1X F 0XW 1X F !0X R! 6 W"0X 0R $(
0x0f90c4…0f9258 Dummy {f00=0x004f, f01=0x4090, f02=» F & o ( & 6 ( D & " 6 4 Am4 0X 0X 4 P z@ 1X FW % L "1X F 0XW 1X F !0X R! 6 W"0X 0R $(
0x0f9258…0f93ec Dummy {f00=0x004f, f01=0x0190, f02=» @ H IDENT DERECS TRA 10.0 80-10-10 F1 O1111 REL 10.0 80-04-11 DERECS DEREFO H $$$TRAR b DERECS DEREFO w t @ < ATTDB ATTWB DEDISC. DEPOOL- DEREC21 MSKOUTL OFRSP RESTOR1 4 0 T:ATTF T:DISPF T:THOM TESTB UPDBIN UPDBOL
0x0f93ec…0f9580 Dummy {f00=0x004f, f01=0x0190, f02=» / 40 J F " D 0R $}j *!! x0R @l 2 RRRRRRR?Rj x! ! wx xyj &"x !gLe x y" e 0 J0 $ ~ O ` J F " D @@ TW( ' )gL @l?Rj xy wj x! { W< R.V xwj &"w W j ! " "Hn ' wx
0x0f9580…0f9714 (1, 80) Dummy {f00=0x004f, f01=0x0190, f02=» $* p!0X 0R x*6 VVVVOVOVV V "!H '0R **P I %!@ A W I J 50 Z 7 l J F " D " W %!T A @ 0R *,T H $!A W I $!T @ " , , gL0R #g !! | G M _0 t
0x0f9714…0f98a8 Dummy {f00=0x004f, f01=0x0190, f02=» @ , J F " D ! 7 R ZH_ j " "jx " &"x* ( L R Zf_q R1Zm u ?R !u R(R j " < N J F " D " j &"x u !?R ! _ j " & wx x 'jy " xy x u$x Aj " $( !
0x0f98a8…0f9a3c Dummy {f00=0x004f, f01=0x0190, f02=» p0 w u0 w z0 w . J F " D @ gL #gYuP W j ! x0R , + & # ( #L_ !gL #LWl x @ 0 L 6 P J F " D !?RI W!gLSj " $(wx WW ! wb &
0x0f9a3c…0f9bd0 Dummy {f00=0x004f, f01=0x0190, f02=» " D "u u j $" x*j &"x ( m ?RAn?R L R :R?R,wx W x* WY uj " "( N ^ n J F " D ?Rj " &( * % 1W 0 R :Rj " & *1 1 W u ! u ! u ! ~ B ! D G v
0x0f9bd0…0f9d64 Dummy {f00=0x004f, f01=0x0190, f02=» # r . k > N ^ n J F " D ( % _ ' xw gL # ( ( #g?R g "b & AlW '2 RRRRRRR R :R ~ B 0
0x0f9d64…0f9ef8 Dummy {f00=0x004f, f01=0x0190, f02=» ! Hl " * W 2?RIl * (m Hl . W H ?R?R Ub & H0 J ^ o B l q | r t y J F " D @$ ' )gL *W ( W R*PE - { ) ?R1XF0X ! 0X({
0x0f9ef8…0fa08c Dummy {f00=0x004f, f01=0x0190, f02=»0 x w e 6 , J F " D nmW *W * n An xIl j ! { W . ( ' !gL j x) w R<R? < w e " 6 $ ' ` )
0x0fa08c…0fa220 Dummy {f00=0x004f, f01=0x0190, f02=» ?R R <R0R@vP C 8R?R ' ( % 2 R j F ( H 8 L H D X b h h x q ` s v y J F " D @RRRC 8R0R@v<R "!_y # "=R g " R&| R&z )?R R ?R ' xj
0x0fa220…0fa3b4 (1, 81) Dummy {f00=0x004f, f01=0x4062, f02=»@ O & U ( " " ( y !!4 L 4 y & L@ ^ X b h h x q ` s v y J F " D @RRRC 8R0R@v<R "!_y # "=R g " R&| R&z )?R R ?R ' xj
0x0fa3b4…0fa548 Dummy {f00=0x004f, f01=0x0190, f02=» @ H IDENT DEREC2 TRA 10.0 80-10-10 F1 O1111 REL 10.0 80-04-11 DEOPBC DEREC2 H $$$TRAR b DEOPBC DEREC2 7 t B > ATTWB CLEARBT CMPIND DEACC DEDISC1 DELASTL DEPOOL0 DEPRUT B > DERECS DEREFOC DERROR EMPTYT OPCL RESTOR
0x0fa548…0fa6dc Dummy {f00=0x004f, f01=0x0190, f02=» . L ` x
0x0fa6dc…0fa870 Dummy {f00=0x004f, f01=0x0190, f02=» , < " L % n " ~ " * ? J F " D 2 RR0R@vP LW2 R+P 0R@vP'A T# R*K kU lU R5P7 # k
0x0fa870…0faa04 Dummy {f00=0x004f, f01=0x0190, f02=» x ~ " J F " D @@v $W R&z R&| R&{ 0R@v_U R&z R&| R&{ 0R $} L . | 0 & $ J F " D R ^
0x0faa04…0fab98 Dummy {f00=0x004f, f01=0x0190, f02=» . > P $ ` p J F " D R'K R #L R$T R-_ R#_-@ P 0R $}A L R W Ay@m 4 @ 0R 0R $
0x0fab98…0fad2c Dummy {f00=0x004f, f01=0x0190, f02=» > 9 J F " D } R2V RK@y@z@oA # R&{ R&z R&| Rh Ae0R 0} 4 2 RRRRR n q J l J F " D @ uf xyj " & yj &" * 7W (u ! j ! " " 1 R :R "!H $! g | E E E
0x0fad2c…0faec0 Dummy {f00=0x004f, f01=0x0190, f02=» J ! * J : J F " D $" 7 R :RW R.:R uf *y x *j &" _* u L R :Rj "" J J ! J ( E -
0x0faec0…0fb054 (1, 82) Dummy {f00=0x004f, f01=0x018e, f02=» l J q x ( | 8 J F " D @( % W ( % # 0R@vP (z Ub &k R"V 0X " ?RI + R#P R 0R@v0X # H " % / " E J F
0x0fb054…0fb1e8 Dummy {f00=0x004f, f01=0x0190, f02=» E * & : " J J F " D l W H R&P$?R R'T j " &( * )?R Lb %f #j?R0R |"-0R 0R@vP Z E E 4 ! < " J F " D I N?R( % #@H A ?R(
0x0fb1e8…0fb37c Dummy {f00=0x004f, f01=0x0190, f02=»P A WB0R@vT ( ' $W3 $W I K @ 0R 0R $} R2TmH z ! 8 J Z " j z J F " D 7 Uj &"* W L R TT0R z , { 0R@vT % 4 * R*T4 m 4W m "
0x0fb37c…0fb510 Dummy {f00=0x004f, f01=0x40da, f02=» " # ( - 8 0 H J F " D # W R&| 0X ' 0R@vT R&z @ P R$0R $} W xyj &" X @x x* !!4 ! 4 O @
0x0fb510…0fb6a4 Dummy {f00=0x004f, f01=0x0190, f02=» @ H IDENT DEFDSC TRA 10.0 80-10-10 F1 O1111 REL 10.0 80-04-11 DEFDSC H $$$TRAF Z DEFDSC l D @ ATTPRTF CANCT DEAPPL DEATTF0 DEFGTC1 DELOCK1 DEPOOL0 DERROR B > DESTAT DETPRT DEUNPF DEUNPL EMPTYT FDIR hFNLhFSL MASK
0x0fb6a4…0fb838 Dummy {f00=0x004f, f01=0x0190, f02=»:TFWD V . * T:THOMN T:UPDFT T:XSTAT UPDBOLT VGACNTT @ d $
0x0fb838…0fb9cc Dummy {f00=0x004f, f01=0x0190, f02=» J & ' , 3 < J F " D Ii " !W ! 0R R" P RK !, ! ?RIj { j L P F X J F " D @1! !j 2! !Hj Lj !&m R$ r"Ii' U ! ( j !! ( ) x.
0x0fb9cc…0fbb60 Dummy {f00=0x004f, f01=0x018e, f02=» J ( ( ( 4 8 H 8 X J F " D !U 'U U & Ii ( R In 0X ! W 0X ! @n ! Ij 0X :R0X h 2 ( ' $
0x0fbb60…0fbcf4 (1, 83) Dummy {f00=0x0050, f01=0x018e, f02=» V W ^ , ( ` 8 a H h , X j h k x | : J F " D @ I I Ij& # x 0X KK W20X KK W(0X KK W ! $ 0X K :
0x0fbcf4…0fbe88 Dummy {f00=0x0050, f01=0x018e, f02=» ( 8 H X h x J F " D T W 0X K T R! 2 RRRW "?RI I I I
0x0fbe88…0fc01c Dummy {f00=0x0050, f01=0x0190, f02=» J F " D RR !0X / R2 RRRRW$0X Am6 ! bC I .4 ?R F f B v @ D " 4 0 6 : > 0 @ J F "
0x0fc01c…0fc1b0 Dummy {f00=0x0050, f01=0x018e, f02=» O S T $ U 4 W : D Y T ` * d i 2 t u { > J F " D @F !0X R?R RK2 RRR?R RW #0X T %y0X %%_ W}?R( 0XW 6
0x0fc1b0…0fc344 Dummy {f00=0x0050, f01=0x0190, f02=» $ J F " D !0X ( 1X F?R0X K ?RHi He 0R ( #0R T R ,I R ! R $ r 8 : H "
0x0fc344…0fc4d8 Dummy {f00=0x0050, f01=0x0190, f02=» ?R 0^ $ % 0X 0R <R RK2 RRRR?R R2 r 0 4 @ ( P : ` p 1 1 ! " #
0x0fc4d8…0fc66c Dummy {f00=0x0050, f01=0x0190, f02=» , - l . / 0 0 @ 1 P 5 ` 6 p 7 8 9 1 : 1 ; < = > ?
0x0fc66c…0fc800 Dummy {f00=0x0050, f01=0x0190, f02=» H I J J F " D RR #?R0X 0X ?R $ 2 RRRRRRRRRRRRRRRRRRRRRRRR2 RRRRRRRRRRR 0 L 2 ~ Q $ Y c ( k m 2 t $ | J F " D @RRRR
0x0fc800…0fc994 (1, 84) Dummy {f00=0x0050, f01=0x0190, f02=» 2 , J F " D e Kh R( ! u!0X #'@ @ @ R( ?R@ R( !"_cA $?R0X && < 2 $ J F " D Ru! !eJh ?R0X &&A % Ad@ @ #?RA @ R
0x0fc994…0fcb28 Dummy {f00=0x0050, f01=0x40c6, f02=» & & & ( 4 @ & 1 P ( ` @ < : .He @h Ru!Kh R( ! Ru! R du Rd ! _3 $?R $?R l 6 @ $ J F " D Ru! !eJh ?R0X &&A % Ad@ @ #?RA @ R
0x0fcb28…0fccbc Dummy {f00=0x0050, f01=0x0190, f02=» @ H IDENT DEACCU TRA 10.0 80-10-28 F1 O1111 REL 10.0 80-04-11 DEACC SETERR H $$$TRAA ` DEACC SETERR r > : ADJUSTA CMPINDA DEFIND0 DENVALF EMPTYT GETACC. GETFWD- MSKOUT T:GETA & "
0x0fccbc…0fce50 Dummy {f00=0x0050, f01=0x0190, f02=» $ 8 Z |
0x0fce50…0fcfe4 Dummy {f00=0x0050, f01=0x0190, f02=» # / 5 * : : J F " D @l L H KAd6 @d !0R 0R R40R ! T&Hl 0R 0R @l0R T W J G M R s MDA J F " D @ 0Al0R 0R X/ R"_B 4 !
0x0fcfe4…0fd178 Dummy {f00=0x0050, f01=0x0190, f02=» @|Thj !! ! j !! L0R _K ! R $ !A !@( | : J J F " D "90R !T2@e@i@k !" ? 'hZ 2 !TP &6 R" Z 0 R @ ? J F " D _ Ai_8Ae_<" v LWpAkW ! R (
0x0fd178…0fd30c Dummy {f00=0x0050, f01=0x40a2, f02=» J @ d 0 ( 0 : < 7 5 R#Ik ! 9R 3hZ ! ! ?R6 PW LW L4 W L @ Z 0 R @ ? J F " D _ Ai_8Ae_<" v LWpAkW ! R (
0x0fd30c…0fd4a0 Dummy {f00=0x0050, f01=0x0190, f02=» @ H IDENT DEGENE TRA 10.0 80-11-06 F1 O1111 REL 10.0 80-04-11 DEGEN H $$$TRAG X DEGEN j > : ADJUSTG CMPINDA DEFIND0 DENVALF EMPTYT GETFWD. GETGEN- | > : MSKOUT T:ERAS T:GETA T:GETC T:GETF T:TSTC T:UPDF TYPET
0x0fd4a0…0fd634 (1, 85) Dummy {f00=0x0050, f01=0x0190, f02=» 2 J ^
0x0fd634…0fd7c8 Dummy {f00=0x0050, f01=0x0190, f02=»* " " " * " 8 ( F R & b ( r ~ & ( " +TTTTTTTTTTTTTTTTTTTT9 " ! (
0x0fd7c8…0fd95c Dummy {f00=0x0050, f01=0x0190, f02=» 1 ; J F " D L@d@g0X @ W< %Ad0R 0R R Ag0R ! T 0R 0R @dW Hd 0R A j b DUFM z z } J F " D @0R @ 4 ! ! L Lh $ !6 00 W. R"0X @ ?
0x0fd95c…0fdaf0 Dummy {f00=0x0050, f01=0x0190, f02=» ! L R !UF+-*:;AS J F " D h ! !P !@i ! 9R Lh * !TX6 rr rrW ! : 8 ;! J F " D _ AiAe_<Ae #_F0R Xo@ s( " { Lh B
0x0fdaf0…0fdc84 Dummy {f00=0x0050, f01=0x0190, f02=» ( 8 H X h J F " D 0R !<R W30R !P(?R0R !<R $W ( 0R # W a F x J F "
0x0fdc84…0fde18 Dummy {f00=0x0050, f01=0x4156, f02=» " $ / 4 ; D J F " D 0R !<R ?R( 0R 0R 0X 0X TJ U m F ! P Q 0X , T G 0 ] b j o S H D ! B @ ~Ld ! ~
0x0fde18…0fdfac Dummy {f00=0x0050, f01=0xc18a, f02=» @ H IDENT DECOMP TRA 10.0 80-10-10 F1 O1111 REL 10.0 80-04-11 DECOMP H $$$TRAC Z DECOMP l , ( CDV10 CDV110T CDV111 DDMMCK0 MMDDCK1 1 7 =
0x0fdfac…0fe140 Dummy {f00=0x0050, f01=0x0190, f02=» @ H IDENT DELOCK TRA 10.0 80-10-10 F1 O1111 REL 10.0 80-04-11 DELOCK H $$$TRAL Z DELOCK l , ( CLEARBL MSKOUTA SETB UPDBIN0 UPDBOL1 . ; ? J F " D c b"R b! b
0x0fe140…0fe2d4 (1, 86) Dummy {f00=0x0050, f01=0x4010, f02=» n @ ( 0 8 ( 0 8 @ H P X ` h p x h p x " " " " " " " # # # # # #(#0#8
0x0fe2d4…0fe468 Dummy {f00=0x0050, f01=0x0190, f02=» @ H IDENT DESTAT TRA 10.0 80-10-10 F1 O1111 REL 10.0 80-04-11 DESTAT DESTAU H $$$TRAS b DESTAT DESTAU t TESTB UPDBINT & "
0x0fe468…0fe5fc Dummy {f00=0x0050, f01=0x0190, f02=» < T n
0x0fe5fc…0fe790 Dummy {f00=0x0050, f01=0x4064, f02=»z 0R R 34 U j ! !0R P b ![ x @! ! ( 4 6 J N@ ` T n
0x0fe790…0fe924 Dummy {f00=0x0050, f01=0x0190, f02=» > F IDENT ASSRUT REL 10.0 80-04-11 H D ! ATTWB ATTDB SAVEY RESTOR GETFREA SETFREA SETOCC CHANFC` GETVOL F J F " UPDBOLN UPDBIN SETBY TESTB CLEARB MSKOUTL RCNTRLD WCNTRL GETVAL F B GETACC GETGEN GETDUPV ATTBUF FORCE
0x0fe924…0feab8 Dummy {f00=0x0050, f01=0x018e, f02=» & &9B ATTDB $ CHANFC` $ 6 T:FDSP J SAVEY 6 , ( @ %W _ F C W n RESTOR L , ( 7 ( = W GETFREA n , ( W" _ &
0x0feab8…0fec4c Dummy {f00=0x0050, f01=0x0190, f02=» SETFREA , ( ) ' , ( & X X X* T Z0 L , ( I R < _ <h =_H ^L | SETOCC UPDBOLN UPDBIN , ( _ _R & G _d
0x0fec4c…0fede0 Dummy {f00=0x0050, f01=0x018e, f02=»ARB , ( c P _v _| V V Q W TESTB > GETVOL P , ( _< _B d , ( C ( B T B , ( " $ ' Y ' , ( _
0x0fede0…0fef74 (1, 87) Dummy {f00=0x0051, f01=0x0190, f02=» f , ( ) 9h9G & C 9b! 8 #_h B " ' " WCNTRL b 8 MSKOUTL f L , ( I "? 99g! ":e" B =_ _f ` ATTBUF v , ( i & 9_ @ # FORCED~ , ( @ C _ #0
0x0fef74…0ff108 Dummy {f00=0x0051, f01=0x0190, f02=» T l , ( _. W P 8 _> , ( " < , ( P 8# ' Y = # l GETACC < GETGEN @ GETDUPV D GETIND H , ( 3 x _ _ _ _
0x0ff108…0ff29c Dummy {f00=0x0051, f01=0x0190, f02=» ]8 Z YB_J W , ( A & C & C ( , ( & C C ( B X X CLOSEF OPENF * & _ W & Y < * C _& , (
0x0ff29c…0ff430 Dummy {f00=0x0051, f01=0x0190, f02=» 3 ( B +_ @ P V , ( Q E $ E & E ( E 0 E , Y 0 GETFWD ~ ` T:GRFC t , ( q H E . X , ( ' X P &V Y , X T:GETF( ADJUST
0x0ff430…0ff5c4 Dummy {f00=0x0051, f01=0x4092, f02=» -R AP T H D ! aR cP uV WR T !P P P W P& P P P T W P P }W W P V |@ E . X , ( ' X P &V Y , X T:GETF( ADJUST
0x0ff5c4…0ff758 Dummy {f00=0x0051, f01=0x0190, f02=» > F IDENT CDVRUT REL 10.0 80-04-11 " CDV10 CDV110 CDV111 CDVDK F CDVDK l CDV110 ~ CDV111 CDV10 I:EVA0 , ( W W _ , ( P T
0x0ff758…0ff8ec Dummy {f00=0x0051, f01=0x4084, f02=»T1 } V E @ < W W PB )R4 /Q. =T CP GU QU WT [W iT mP sP * n@ 110 ~ CDV111 CDV10 I:EVA0 , ( W W _ , ( P T
0x0ff8ec…0ffa80 Dummy {f00=0x0051, f01=0x0190, f02=» > F IDENT DATCHK REL 10.0 80-04-11 DATCHKK DDMMCK MMDDCK F DATCHKK h MMDDCK | I:EVA0 , ( " P , ( P V V V I:R
0x0ffa80…0ffc14 (1, 88) Dummy {f00=0x0051, f01=0x4062, f02=»! : 0 , J P % J )P /V 3 7V M b W b eT L@ ^" " # # # # # #(#0#8#@#H
0x0ffc14…0ffda8 Dummy {f00=0x0051, f01=0xc07c, f02=» L H IDENT DEDDIV TRA 10.0 82-02-17 F1 O1111 REL 10.0 80-04-11,81-08-27,EV % $$$TRA % T % f@ % x & $ z 0 $ & $ @ $ = N " > " @ " T
0x0ffda8…0fff3c Dummy {f00=0x0051, f01=0x4162, f02=» H H IDENT DCTASK TRA 10.0 80-11-19 F1 O1111 REL=1.0 VER=1 801027-SHB V DCTASK V P $$$TRAT V b DCTASK V t $ T:DSC1T T:READA T:XSTA0 TESTB V V V V V V '
0x0fff3c…1000d0 Dummy {f00=0x0051, f01=0x0190, f02=» B H IDENT DEAPPU TRA 10.0 80-11-19 F1 O1111 CE SYSTEM 80-10-29 W DEAPPU W J $$$TRAA W DEAPPU W n DEDISCA EMPTYTA W & " W W W
0x1000d0…100264 Dummy {f00=0x0051, f01=0x0190, f02=» W z X X . X F X ` X x X X X X
0x100264…1003f8 Dummy {f00=0x0051, f01=0x407c, f02=» T ! ! P.W< !0R P) * L *LU L * * R X @4 & !4 _ 4 Y B V Y f@ Y x X x X X X X
0x1003f8…10058c Dummy {f00=0x0051, f01=0x40e2, f02=» @ H IDENT T:DD20 TRA 10.0 80-11-19 F1 O1111 REL 10.0 80-04-11 T:DD20 H T:DD20D Z DCTASK n * & D2 x * * @
0x10058c…100720 Dummy {f00=0x0051, f01=0x40d8, f02=» L H IDENT C:CB60 TRA 10.0 82-05-10 F1 O1111 REL 10.0 80-04-11,81-08-27,EV # C:CB60 # T C:CB60C # f & `@ @ # z # ( # ( # @ # = N " > " @ " T
0x100720…1008b4 (1, 89) Dummy {f00=0x0051, f01=0x40d6, f02=» L H IDENT D:CB60 TRA 10.0 82-05-10 F1 O1111 REL 10.0 80-04-11,81-08-27,EV $ D:CB60 $ T D:CB60C $ f * & & $ z 0 $ & $ @ $ = N " > " @ " T
0x1008b4…100a48 Dummy {f00=0x0051, f01=0x0190, f02=» @ H IDENT T:AD20 TRA 10.0 80-11-19 F1 O1111 REL 10.0 80-04-11 T:AD20 H T:AD20A " Z > : T:DD20 D:CB10 U:CB10 D:CB20 C:CB20 D:CB30. C:CB30- n > : D:CB40A C:CB40A D:CB500 C:CB50F D:DU10 Z:DU10. D:DU20- > : Z:DU20 D:DU30 Z:D
0x100a48…100bdc Dummy {f00=0x0051, f01=0x411e, f02=» v * & ` * & T D2 6 , ( 1 d , ( A " $ & ( * , , ( Q . 0 2 4 6 8 : < a >
0x100bdc…100d70 Dummy {f00=0x0051, f01=0x40ac, f02=» @ H IDENT Z:DU10 TRA 10.0 80-11-19 F1 O1111 REL 10.0 80-04-11 ) Z:DU10 ) H Z:DU10D ) Z ) n ) ) @ ) ( & ( @ ( &
0x100d70…100f04 Dummy {f00=0x0051, f01=0x4096, f02=» @ H IDENT D:DU10 TRA 10.0 80-11-19 F1 O1111 REL 10.0 80-04-11 * D:DU10 * H D:DU10D * Z * n :D * @ * ) @ ) ( & ( @ ( &
0x100f04…101098 Dummy {f00=0x0051, f01=0x40ac, f02=» @ H IDENT Z:DU20 TRA 10.0 80-11-19 F1 O1111 REL 10.0 80-04-11 + Z:DU20 + H Z:DU20D + Z + n + + @ + ( & ( @ ( &
0x101098…10122c Dummy {f00=0x0051, f01=0x4096, f02=» @ H IDENT D:DU20 TRA 10.0 80-11-19 F1 O1111 REL 10.0 80-04-11 , D:DU20 , H D:DU20D , Z , n :D , @ , + @ + ( & ( @ ( &
0x10122c…1013c0 Dummy {f00=0x0051, f01=0x40ac, f02=» @ H IDENT Z:DU30 TRA 10.0 80-11-19 F1 O1111 REL 10.0 80-04-11 - Z:DU30 - H Z:DU30D - Z - n - - @ - ( & ( @ ( &
0x1013c0…101554 (1, 90) Dummy {f00=0x0051, f01=0x4096, f02=» @ H IDENT D:DU30 TRA 10.0 80-11-19 F1 O1111 REL 10.0 80-04-11 . D:DU30 . H D:DU30D . Z . n :D . @ .
0x101554…1016e8 Dummy {f00=0x0051, f01=0x40ac, f02=» @ H IDENT Z:DU40 TRA 10.0 80-11-19 F1 O1111 REL 10.0 80-04-11 / Z:DU40 / H Z:DU40D / Z / n / / @ /
0x1016e8…10187c Dummy {f00=0x0051, f01=0x4096, f02=» @ H IDENT D:DU40 TRA 10.0 80-11-19 F1 O1111 REL 10.0 80-04-11 0 D:DU40 0 H D:DU40D 0 Z 0 n :D 0 @ 0 / @ /
0x10187c…101a10 Dummy {f00=0x0051, f01=0x40ac, f02=» @ H IDENT Z:DU50 TRA 10.0 80-11-19 F1 O1111 REL 10.0 80-04-11 1 Z:DU50 1 H Z:DU50D 1 Z 1 n 1 1 @ 1
0x101a10…101ba4 Dummy {f00=0x0051, f01=0x4096, f02=» @ H IDENT D:DU50 TRA 10.0 80-11-19 F1 O1111 REL 10.0 80-04-11 2 D:DU50 2 H D:DU50D 2 Z 2 n :D 2 @ 2 1 @ 1
0x101ba4…101d38 Dummy {f00=0x0051, f01=0x40ac, f02=» @ H IDENT Z:DU60 TRA 10.0 80-11-19 F1 O1111 REL 10.0 80-04-11 3 Z:DU60 3 H Z:DU60D 3 Z 3 n 3 3 @ 3
0x101d38…101ecc Dummy {f00=0x0051, f01=0x4096, f02=» @ H IDENT D:DU60 TRA 10.0 80-11-19 F1 O1111 REL 10.0 80-04-11 4 D:DU60 4 H D:DU60D 4 Z 4 n :D 4 @ 4 3 @ 3
0x101ecc…102060 Dummy {f00=0x0051, f01=0x40ac, f02=» @ H IDENT Z:DU70 TRA 10.0 80-11-19 F1 O1111 REL 10.0 80-04-11 5 Z:DU70 5 H Z:DU70D 5 Z 5 n 5 5 @ 5
0x102060…1021f4 (1, 91) Dummy {f00=0x0052, f01=0x4096, f02=» @ H IDENT D:DU70 TRA 10.0 80-11-19 F1 O1111 REL 10.0 80-04-11 6 D:DU70 6 H D:DU70D 6 Z 6 n :D 6 @ 6
0x1021f4…102388 Dummy {f00=0x0052, f01=0x40ac, f02=» @ H IDENT Z:DU80 TRA 10.0 80-11-19 F1 O1111 REL 10.0 80-04-11 7 Z:DU80 7 H Z:DU80D 7 Z 7 n 7 7 @ 7
0x102388…10251c Dummy {f00=0x0052, f01=0x4096, f02=» @ H IDENT D:DU80 TRA 10.0 80-11-19 F1 O1111 REL 10.0 80-04-11 8 D:DU80 8 H D:DU80D 8 Z 8 n :D 8 @ 8 7 @ 7
0x10251c…1026b0 Dummy {f00=0x0052, f01=0x40ac, f02=» @ H IDENT Z:DU90 TRA 10.0 80-11-19 F1 O1111 REL 10.0 80-04-11 9 Z:DU90 9 H Z:DU90D 9 Z 9 n 9 9 @ 9
0x1026b0…102844 Dummy {f00=0x0052, f01=0x4096, f02=» @ H IDENT D:DU90 TRA 10.0 80-11-19 F1 O1111 REL 10.0 80-04-11 : D:DU90 : H D:DU90D : Z : n :D : @ : 9 @ 9
0x102844…1029d8 Dummy {f00=0x0052, f01=0x4160, f02=» 8 F IDENT FDIO 801022REL10 FDIOY @ FDIOY P T:FDSP b I:EVA0 t * & @ 2 ' T:SCW2 , ( & C T # T:IO3 ( $
0x1029d8…102b6c Dummy {f00=0x0052, f01=0x0190, f02=» @ H IDENT DEVGAC TRA 10.0 80-10-29 F1 O1111 REL 10.0 80-04-11 CNTNUM VGACNT H $$$TRAV b CNTNUM 9 VGACNT t 6 2 CMPINDV DERRORA EMPTYT0 T:DISPF T:ERAS T:GETF. R !
0x102b6c…102d00 Dummy {f00=0x0052, f01=0x0190, f02=» M P Q P b #P , e V:G:A: > J F " D @% ,L + , +L *LW * , + c L L bch b! !Tk c! h & c"T T #L J F " D " "Hi #L c" bc a , ach ba "T cb c!W. bc Lh ba !P b
0x102d00…102e94 (1, 92) Dummy {f00=0x0052, f01=0x0190, f02=»X &' &W 0X 120X ,- , ! d Q " 4 D T ; d J F " D L c !%cL ! !0X & RKj ! W * + !!4 L@k@g v Z $ [ $ $ ] $
0x102e94…103028 Dummy {f00=0x0052, f01=0x0190, f02=» g $ h $ i $ $ j $ 4 k $ D l $ T m $ d n $ t o $ p q r s t u $ $
0x103028…1031bc Dummy {f00=0x0052, f01=0x018e, f02=» A A $ $ 4 $ D $ T $ d $ t $ $ $ $
0x1031bc…103350 Dummy {f00=0x0052, f01=0x0190, f02=» $ $ $ $ $ 4 D A T $ d t A 0 A A $ $ $
0x103350…1034e4 Dummy {f00=0x0052, f01=0x0190, f02=» $ 4 D J F " D RRRRRRRRRRRRRRRRRRRRRRRRRRRRRW? ;2 RRRRRRRRRRRRRRRRRRRRRRRRRR T $
0x1034e4…103678 Dummy {f00=0x0052, f01=0x0190, f02=»RRRRRR?RW c c! bch b!Z7!P c!WF c! c r / 2 0 1 : @ 9 P J F " D % a=hZa! c!P "5 c!W)Ag >W @gT _F c! c _ ?R R !T 0Ra !T _ ` B : [ c ` i w ^ J F " D @
0x103678…10380c Dummy {f00=0x0052, f01=0x4186, f02=»T $o b/i_u c! R #T ` J F " D $a X#aLT % W , a WH c"_ c!,c ; a ac bch baZ7!T( bc*b !,b 0 + ~ , J F " D : ; W "b& cb_ c!,c _C( $ c ! & RK ! W Kg !!4 c! bc Z
0x10380c…1039a0 Dummy {f00=0x0052, f01=0x0190, f02=» L H IDENT Z:TB30 TRA 10.0 82-05-10 F1 O1111 REL 10.0 80-04-11,81-08-27,EV Z:TB30 T Z:TB30T f * & z * & * & = &
0x1039a0…103b34 (1, 93) Dummy {f00=0x0052, f01=0x4010, f02=» @ 0 TRA 10.0 82-05-10 F1 O1111 REL 10.0 80-04-11,81-08-27,EV Z:TB30 T Z:TB30T f * & z * & * & = &
0x103b34…103cc8 Dummy {f00=0x0052, f01=0x0190, f02=» @ H IDENT DENVAL TRA 10.0 80-11-19 F1 O1111 REL 10.0 80-04-11 DENVAL H $$$TRAN Z DENVAL l B > ADJUSTN ATTDB ATTWB CLEARB- CMPIND1 DEAPPUL DECOMP0 DEDISC > : DEEDIT DEFIND DEPOOL EMPTYT GETFWD GETIND GETVAL @ <
0x103cc8…103e5c Dummy {f00=0x0052, f01=0x0190, f02=» v & < Z n
0x103e5c…103ff0 Dummy {f00=0x0052, f01=0x0190, f02=» ~ $ : J 0 & Z 8 j < F z = > A J F " D @g@i@k@ "0X ( R#W H % W % 6 0X R2 RRRW E
0x103ff0…104184 Dummy {f00=0x0052, f01=0x0190, f02=» ~L h~ ' !<R Z ( 8 H X h x .
0x104184…104318 Dummy {f00=0x0052, f01=0x0190, f02=» [ [ ( ( 8 J F " D RRR !j !! j ! !$ L0R ! ?RA _ !A <R R 0X H [ # +-*: '0 - ? L!ASUFTCXE J F " D & ' (
0x104318…1044ac Dummy {f00=0x0052, f01=0x0190, f02=» d e * f $ g 4 h D i M T n 6 d t t y [ J F " D @h~ * !P *W !, ( R !2 RRRRRRRRRR ?RA _ 0R !<R " ? *
0x1044ac…104640 Dummy {f00=0x0052, f01=0x0190, f02=» E [ 0 @ [ P ` . p & J F " D 8R?R6 0R !<R " ?R0R !<R " ?R( 0R ( #)0X A E z E
0x104640…1047d4 (1, 94) Dummy {f00=0x0052, f01=0x0190, f02=» b T t } J F " D @ !P !W !j !! ! Lf "d "!U d ! R8P R& 0 6 ~ * J F " D !?R 0R (+0R +j !! 1j !! 2 !I 0X P,W
0x1047d4…104968 Dummy {f00=0x0052, f01=0x0190, f02=» z E J F " D $ h o P U ! ! 9R_ " ?R R& ?R R ?R0R 9R?R j V z J F " D " W @g@k !Ai R !?R $@kAgW #@gAk@i ! j !! ! U L V O ? Q
0x104968…104afc Dummy {f00=0x0052, f01=0x0190, f02=» * J F " D ! !T ! R h !U !P7 !_& h ! !X&W#@ T 0X P! " l J F " D W I h P Wk ~Ub~ "~ @ P 0R "!0R ""6 | " +-*: , 7 J F " D ! "W ! "W ! "W
0x104afc…104c90 Dummy {f00=0x0052, f01=0x0190, f02=» <R ! !" ! _6j " - 8R R& ?R@ P | : J J F " D 5Ii Ik Ig A|W 4@|@ R& , LhZ !PDj !! , ? DGRN
0x104c90…104e24 Dummy {f00=0x0052, f01=0x0190, f02=» 4 / 4 4 0 4 @ 9 P 4 ` 4 p / / / / / " " /
0x104e24…104fb8 Dummy {f00=0x0052, f01=0x0190, f02=» R !, Lh $ !ThI|m2 RRR?R2 p * V . : > J F " D RRRRRRRRRRRRRRRRRRRRRRRRRRRR !_h( !?R 4( !_ "_ R _ N X w } J F " D @ ! j !! ! _ R_ A| " @ P & ' ( !
0x104fb8…10514c Dummy {f00=0x0052, f01=0x4014, f02=» @ !ThI|m2 RRR?R2 p * V . : > J F " D RRRRRRRRRRRRRRRRRRRRRRRRRRRR !_h( !?R 4( !_ "_ R _ N X w } J F " D @ ! j !! ! _ R_ A| " @ P & ' ( !
0x10514c…1052e0 Dummy {f00=0x0052, f01=0x8190, f02=» H H IDENT DECONV TRA 10.0 81-08-28 F1 O1111 REL=1.0 VER=1 81-08-27/EV DECONV P $$$TRAC b DECONV t D @ ADJUSTC ATTDEVA DEPOOL1 DERRORF DETPRT EMPTYT0 FDIO1 GETFWD2 B > MASKN T:ATTF T:DISP T:DSC1 T:EDWR T:GETC T:GETT
0x1052e0…105474 (1, 95) Dummy {f00=0x0053, f01=0x8190, f02=» + " 5 # 9 & J F " D 6 f1E $WU6 _ R PCWD1X FT !0X T W/ LW- RW)6 ! 6 E w | x y z { v J F " D @ W L( (
0x105474…105608 Dummy {f00=0x0053, f01=0x8190, f02=» 6 J F " D RW Wf ' L0R 40X TN RW WH %L / 1 3 @ @ L R T, * x #
0x105608…10579c Dummy {f00=0x0053, f01=0x818e, f02=» * " J F " D L_ K "H 1X FA L_ K 3I $ " W !0X E - ! A n T 6 ~ X G e [ l q z 7 | } J F " D
0x10579c…105930 Dummy {f00=0x0053, f01=0x8190, f02=» e & 6 H J F " D _" RW _"2 RRR RW _.J D L?RA . _>@ - ! . L 0R X ) 7
0x105930…105ac4 Dummy {f00=0x0053, f01=0x8190, f02=» J ( 8 H X j $ ( z - / = ? J F " D RW _&2 RRR RW _2 L 0R _H0X @ ' L0R
0x105ac4…105c58 Dummy {f00=0x0053, f01=0x818e, f02=» k q s } , J F " D @ 0X R R& ?R U0X T 1X F_D U0X T 1X F_S # # R" < * o B J F " D
0x105c58…105dec Dummy {f00=0x0053, f01=0x8190, f02=» $ $ B 4 J F " D j ( % 6j !% Lj " 1XFAn0X ! 0X !0X K 4 4 L F - & *
0x105dec…105f80 Dummy {f00=0x0053, f01=0x8190, f02=» '0R 0X L0R T L L L0R p H ( . K * > O , N X O ^ Z p l O J F " D @ 4 4 0X 0X 0R "P 4 L0R R 6 W L j W 0 4 0 4
0x105f80…106114 (1, 96) Dummy {f00=0x0053, f01=0x8190, f02=» 3 $ * 3j 2 3 !" ! $L / Lj ! !WP !H ! F X j 7 z ; ) J F " D ! ! Lj ! ! L 0R f ! 4 La F j K P
0x106114…1062a8 Dummy {f00=0x0053, f01=0x8190, f02=» ' L0R 0X 0R %P L0R T 4 p . @ P 0 ` r J F " D ' L0R 4 " L $L @ H A !0R
0x1062a8…10643c Dummy {f00=0x0053, f01=0x8190, f02=» J F " D <% L % L % L "W+ L / _; 0 0X 1 LW 2 0X 3 LW ( # l | $ & * $ $
0x10643c…1065d0 Dummy {f00=0x0053, f01=0x8190, f02=» # 4 J F " D 2 RRRRW=A W9@ W52 RRRRRRRRRRRRRRRW!A _ @ _ _ A _ & D Z K j P z T & g + z ~ , J F " D @m FWsH 0R Tq0X 0X P Rrm FWP" 5e R
0x1065d0…106764 Dummy {f00=0x0053, f01=0x818e, f02=» f X & & 1 6 & F & T & * b & NUMBER: p 9999 " gU & & & ( & B
0x106764…1068f8 Dummy {f00=0x0053, f01=0x8190, f02=» & ( " & 2 $ &U @ ( P & l ( z 999999 " SU ( 99 " U (
0x1068f8…106a8c Dummy {f00=0x0053, f01=0x8190, f02=»ER: 9999 " U & 0 & MISST[MMER > & V & d ( r ~ $ I & EJ GODKENDT & ( # & & &
0x106a8c…106c20 Dummy {f00=0x0053, f01=0x818e, f02=»& l ( & l ( & l 6 & l D & S[NDNING R $ [ h ( x & & & & S[NDNING & KLARI $ K &
0x106c20…106db4 (1, 97) Dummy {f00=0x0053, f01=0x8190, f02=» & & ( $ 0 & @ & N & & FLOPPY DISC SKRIVNING j $ L ( % & & & & FLOPPY DISC SKRIVNING
0x106db4…106f48 Dummy {f00=0x0053, f01=0x818e, f02=»& FLOPPY DISC SKRIVNING & AFBRYDESS " $ A : & J & X ( f 0 r & & DATO: 99-99-99 " SA & & TID: 99-99-99 "
0x106f48…1070dc Dummy {f00=0x0053, f01=0x818e, f02=» " % & & " ( 0 5 < & L DEVICE Z $ % p & : & & #% & FILE $ & - ! NAME $ !%
0x1070dc…107270 Dummy {f00=0x0053, f01=0x818e, f02=» & $ # OLD DATA SET IDENTIFIER: $ #% : & J & X & f $ $ OLD VOLUME SEQUENCE NO:: t $ $% & & & & D & U ( %
0x107270…107404 Dummy {f00=0x0053, f01=0x8190, f02=» & & ( $ ) 0 & SLUTD @ * 99999E T " * % j & z & ( + & ( , " - 999999999999999999999O " -
0x107404…107598 Dummy {f00=0x0053, f01=0xc100, f02=»TTTTTTTTTTTT9- " 1 % ( & 2 2 " 3 999999999999999999999- B " 3 % h ( x 4 5 999 " 5 % ( " ! " ?R4 4 4 4 4 @
0x107598…10772c Dummy {f00=0x0053, f01=0x8190, f02=» $ EXPIRATION DATE: $ $I ( & 8 & F & T $ % OLD DATA SET IDENTIFIER: b $ %I & & & $ & OLD VOLUME SEQUENCE NO:: $ &I &
0x10772c…1078c0 Dummy {f00=0x0053, f01=0x8190, f02=» ( ) 001 $ ) * 999999 0 " *S F & V & d ( r + ~ & SLUTD , 99999E " , % & & ( - &
0x1078c0…107a54 (1, 98) Dummy {f00=0x0053, f01=0xc148, f02=»TTTTTTTT9O | " 1 % ( " 2 . " 3 TTTTTTTTTTTTTTTTTTTT9- > " 3 % d ( t 4 " 5 999999999999999999999- " 5 % ( 6 7 999 " 7 %
0x107a54…107be8 Dummy {f00=0x0053, f01=0x8190, f02=» & $ # OLD VOLUME SEQUENCE NO:: $ #I 6 & F & T & b & : p & U ( $ & U $ ( ( % & 001: $ &
0x107be8…107d7c Dummy {f00=0x0053, f01=0xc15e, f02=» & ( * $ & 4 ( B + N " , 999999999999999999999O ^ " , ( - " . 999999999999999999999+ " . ( / 0
0x107d7c…107f10 Dummy {f00=0x0053, f01=0x4144, f02=» > @ IDENT FMOVE T,REL=10.0,800314,870137141000 FMOVE F FMOVE V I:EVA0 h I:ERR2 z I:EVA5 , ( D #0 & + I:ER18 I:RT1 * & $ P _
0x107f10…1080a4 Dummy {f00=0x0053, f01=0x40f8, f02=» > @ IDENT TYPET T,REL=10.0,800314,870137141000 TYPET F TYPET V I:EVA0 h I:ERR2 z I:RT1 , ( B #03 ;d # + @ @
0x1080a4…108238 Dummy {f00=0x0053, f01=0x40fc, f02=» > @ IDENT ICLEAR T,REL=10.0,800314,870137141000 ICLEAR F ICLEAR X I:EVA0 l I:RT1 ~ , ( @ #0 0T ' ' _ T $ @
0x108238…1083cc Dummy {f00=0x0053, f01=0x411c, f02=» > @ IDENT EMPTYT T,REL=10.0,800314,870137141000 EMPTYT F EMPTYT X I:EVA0 l , ( @ #0 0T & ! T ~ I:RT1 , ( P & ! X T C T T !P
0x1083cc…108560 Dummy {f00=0x0053, f01=0x0190, f02=» > @ IDENT T:STIN T,REL=10.0,800314,870137141000 STRIN1 F STRIN1 X T:STEV l , ( @ X x & Y " X R W ~ T:RNOK T:LOFS , ( P _ Y $ I:E
0x108560…1086f4 (1, 99) Dummy {f00=0x0054, f01=0x416a, f02=» ! P " P z I:ERR2 , ( s W " P X $ X " R W , , ( V R W V % _ I:MOV T:GRFC , ( $ " D $ D X T:ROK $ X y &
0x1086f4…108888 Dummy {f00=0x0054, f01=0x018e, f02=» > @ IDENT T:STOU T,REL=10.0,800314,870137141000 STROU1 F STROU1 X T:STEV l T:LOFS ~ * & @ X x & Y " I:EVA0 T:LOPS I:ER17 , (
0x108888…108a1c Dummy {f00=0x0054, f01=0x4158, f02=» f , ( s ?A W ?AW <! P , ( X " X R W V y 8 T:DUPX h T:GRFC z , ( & Y $ 8 " X X T:ROK T:RNOK x ( y $ < 8 9
0x108a1c…108bb0 Dummy {f00=0x0054, f01=0x414a, f02=» > @ IDENT T:STEV T,REL=10.0,800314,870137141000 T:STEV F T:STEV X T:GRFC l I:EVA0 ~ * & H #0T Y Y , ( ! T # P & #0T ( I:ERR2 7
0x108bb0…108d44 Dummy {f00=0x0054, f01=0x0190, f02=» > @ IDENT T:EDFL T,REL=10.0,800314,870137141000 T:EDFL F T:EDFL X T:PM1 l T:PM2 | T:CASP , ( I Y ( x P Y * , ( x y W X " T:DUPX
0x108d44…108ed8 Dummy {f00=0x0054, f01=0x0190, f02=» , ( w V X ( x C T:SCUW 4 , ( ( Y * X Y , X F , ( X C & C C v T:IOER , ( ( B P 9 R 9 X , ( !@P X X * b ) Y *
0x108ed8…10906c Dummy {f00=0x0054, f01=0x0190, f02=» B U C Q C D T:CLR1 * T:CLR2 < , ( mP X X * $" ~_> @ Y N , ( X * _R X !@XX y X # ~ , ( x V y X X * P , ( P 1 _ 1 X * X
0x10906c…109200 Dummy {f00=0x0054, f01=0x4148, f02=» X n T:CLIT T:EKEY , ( C $ " P y _ x T 2 , ( a@ X H X X * , )$ b P _ : H D !T P d )Wv 9 T UP m d yV& Ph R^ PP #P =T QU [Q e r g t 4 0 i k m
0x109200…109394 (1, 100) Dummy {f00=0x0054, f01=0x0190, f02=» > @ IDENT T:DYKI T,REL=10.0,800314,870137141000 J F " T:DYKI T:PM1 T:PM2 T:CLR1 T:CLIT T:CLR2 T:IOER T:EKEY T:BELL F T:DYKI I:EVA7 , ( @ ' Y y , ( x C y X
0x109394…109528 Dummy {f00=0x0054, f01=0x0190, f02=»:CLRD , ( C Q " T X , ( ! X X ! x Y~ Y > , ( _ X "@P B R y C B n , ( P 9 V _F9 V X ! T X !@ T:EKEY , ( X y C _d y C C X
0x109528…1096bc Dummy {f00=0x0054, f01=0x0190, f02=» _$ _ y z T:CLR2 ^ T:SCUW . * & Y @_6 x X@ X X # @ , ( u C _. B ]d P C n , ( Q X8_H x XD @ Y c C y , ( XR X x x T:BELL
0x1096bc…109850 Dummy {f00=0x0054, f01=0x0190, f02=» T:LOFS I:EVA0 T:LOPS , , ( @H ( ( > T:CLMI n , ( #H : B C _J + T:PM1 @ T:GRFC , ( ? . X 9 V ! P @ Y I
0x109850…1099e4 Dummy {f00=0x0054, f01=0x4124, f02=» j , ( " ( $ $ : ! P # P : : H D ! ! @ YTf a eR k B uT y Q T , P R P V f H D ! VV T P #Q( S P Q8 , 3 < MV SP P P
0x1099e4…109b78 Dummy {f00=0x0054, f01=0x0190, f02=» > @ IDENT T:UPDF T,REL=10.0,800314,870137141000 T:UPDF F T:UPDF X T:GRFC l I:ER14 ~ , ( @ 2! Y " T:LOFS I:EVA0 T:LOPS , (
0x109b78…109d0c Dummy {f00=0x0054, f01=0x406a, f02=»R T:RCTS $ O X MT D ` T@ f T:GRFC l I:ER14 ~ , ( @ 2! Y " T:LOFS I:EVA0 T:LOPS , (
0x109d0c…109ea0 Dummy {f00=0x0054, f01=0x0190, f02=» > @ IDENT T:DUPL T,REL=10.0,800314,870137141000 T:DUPL T:DUPX F T:DUPL ` T:GRFC t I:EVA0 I:ERR2 T:RNOK , ( HB !0 X T:ROK T:DUPX
0x109ea0…10a034 (1, 101) Dummy {f00=0x0054, f01=0x406c, f02=» I:MOV & " S V : KT WV > h V@ h ` T:GRFC t I:EVA0 I:ERR2 T:RNOK , ( HB !0 X T:ROK T:DUPX
0x10a034…10a1c8 Dummy {f00=0x0054, f01=0x4186, f02=» > @ IDENT T:GETC T,REL=10.0,800314,870137141000 T:GETC F T:GETC X T:GRFC l I:ER14 ~ I:EVA0 , ( @ 2' I:ERR2 I:RT1 , ( " P # P
0x10a1c8…10a35c Dummy {f00=0x0054, f01=0x415a, f02=» > @ IDENT T:GETA T,REL=10.0,800314,870137141000 T:GETA F T:GETA X T:GRFC l I:EVA0 ~ I:ERR2 , ( H ! P # P X T:RNOK T:ROK T:RCR ( $
0x10a35c…10a4f0 Dummy {f00=0x0054, f01=0x413a, f02=» > @ IDENT T:TSTC T,REL=10.0,800314,870137141000 T:TSTC F T:TSTC X T:GRFC l , ( @ X " 9b! X :c 2" ~ I:ER14 T:RTES , ( H @ ;
0x10a4f0…10a684 Dummy {f00=0x0054, f01=0x0190, f02=» > @ IDENT T:TFWD T,REL=10.0,800314,870137141000 D @ T:TLEF T:TRIG T:TLDO T:TDOW T:TUP T:TFWD T:TBWD T:THOM F T:TLEF T:TRIG T:TLDO T:TDOW T:TUP T:TFWD T
0x10a684…10a818 Dummy {f00=0x0054, f01=0x411a, f02=» Y 4 Y n T:TABE , ( ? 2 Y 69h Q X :h Y 0 W T:SCR2 P T:TABC b T:TABN t * & ] U X Q W Y 0 w 8 4 W W W W W W !W IQ YW ]U eQ kW
0x10a818…10a9ac Dummy {f00=0x0054, f01=0x0190, f02=» > @ IDENT T:DISP T,REL=10.0,800314,870137141000 T:PRIN T:DISP T:ERAS F T:PRIN h T:FDSP | T:EDWI T:GRFC T:GTIP , ( D 9H Y * T:DISP
0x10a9ac…10ab40 Dummy {f00=0x0054, f01=0x0190, f02=» *9h p I:ER14 , ( S P R Y >_ P R P R " T:TABD R , ( q Y +W Y + W d , ( T R W Q W Y , ( + U Q Y T:TABC , (
0x10ab40…10acd4 (1, 102) Dummy {f00=0x0054, f01=0x418c, f02=»Y , ( X 0 Y 8 P Y , ( # 0 X 0 X 2] X 8 Y 0 : X 0 : T:WRDY j , ( C :H* : X 2T Y 2 : | T:EDIO $ a @ C 1 B ] : H D ! 1 W !W 7T SP: WR aP cR i
0x10acd4…10ae68 Dummy {f00=0x0054, f01=0x0190, f02=» > @ IDENT T:GETF T,REL=10.0,800314,870137141000 T:GETF T:GTIT T:GTIP F T:GETF h I:ER14 | , ( X +! X +! U 9K T:TABC T:TABN T:GTIT 0 T:GRFC , (
0x10ae68…10affc Dummy {f00=0x0054, f01=0x40c8, f02=» I:EVA2 I:ER15 , ( W 4 0 6 2 X 0 " I:ERR2 R & " u@ : ! P # T : d 0 U S z e z P T @ T:TABN T:GTIT 0 T:GRFC , (
0x10affc…10b190 Dummy {f00=0x0054, f01=0x0190, f02=» > @ IDENT T:REWR T,REL=10.0,800314,870137141000 . * T:REWR T:SCUW T:CLRD T:IOWR T:CASP F T:IOWR x T:SCUW , ( C ( C : T:CLRD * T:REWR 0 , ( ! C B
0x10b190…10b324 Dummy {f00=0x0054, f01=0x4148, f02=» D : K + Q | I:EVA3 ! I:EPIC ! . , ( } 2 P P ! @ T:LOPS ! p , ( ( B X # V : ! I:EVA0 ! I:ECPY ! I:EVI ! ( $ $ _0
0x10b324…10b4b8 Dummy {f00=0x0054, f01=0x0190, f02=» > @ IDENT T:DEDT T,REL=10.0,800314,870137141000 " . * T:TABC T:TABD T:TABE T:TABN T:SCR2 " F I:EVNO " x I:ESKI " I:EVA0 " I:EBRI " I:EBRB " I:EBR " , (
0x10b4b8…10b64c Dummy {f00=0x0054, f01=0x0190, f02=» " z T:DSL # I:EXPY # * T:TABC ( # < T:TABD , # P T:TABE 0 # d , ( ! W W X 0Q # x T:EDWI # I:EVT # , ( 9 Y ( Y *P # I:EDSK #
0x10b64c…10b7e0 Dummy {f00=0x0054, f01=0x0190, f02=» V _` " P T " P & # T:LOPS $ 0 , ( (W " P Y 0] Y $ B , ( (_z P P T " X _@ $ r T:EDWF $ , ( " P * X *# P B 1 $ I:ER16 $ , ( " *W
0x10b7e0…10b974 (1, 103) Dummy {f00=0x0055, f01=0x4130, f02=» . C $ | , ( a W @ X (T W X y 6 Y ( % T:TABN % L T:RCR % ` : X (;n 0 % p H D ! +W /W 7Q ; . ? , KP Q P PR V PL T Ph Wp P P % < 8 P T0 P" P W P 9P ?P ET OP c
0x10b974…10bb08 Dummy {f00=0x0055, f01=0x0190, f02=» > @ IDENT T:ENLI T,REL=10.0,800314,870137141000 & T:DNL T:DSL & F I:EVNO & I:ECPY & n I:EPIC & I:ETXT & I:ETAB & I:EBRI & I:EBRB & I:EBR & * &
0x10bb08…10bc9c Dummy {f00=0x0055, f01=0x0190, f02=» & I:ESKI ' . I:EXPY ' @ T:DSL ( ' R T:GRFC ' d T:DNL 6 ' v , ( ! " $ Y . Y ,W ' , ( 9 $ Y . X ( X ." P X 0R T ' T:WRDY ' , ( W Y *P
0x10bc9c…10be30 Dummy {f00=0x0055, f01=0x4182, f02=» Q Y *T , : " P X 0U ' , ( X *# P P T " T : ( , I:ER16 ( T:ENIN ( n , ( " . Y . 0 Y ( ( , ( $ Y *T " T ! 1 W ( ! ) , : ( H D ! 6
0x10be30…10bfc4 Dummy {f00=0x0055, f01=0x0190, f02=» > @ IDENT T:EINP T,REL=10.0,800314,870137141000 ) " T:PKI T:PINP T:TKI T:TINP ) F T:PKI ) l T:PINP ) ~ T:GRFC ) I:ETAB ) I:EVIN ) , ( I P & ) , ( Y *T
0x10bfc4…10c158 Dummy {f00=0x0055, f01=0x0190, f02=» & V D ! P $ ) | T:TINP * T:TKI * 0 , ( u ! P %_ : V * B , ( Y " X .9H $ P * r , ( & X ( " Q Y +Q R " P W * I:ER16 * , ( " U Y , " Q "
0x10c158…10c2ec Dummy {f00=0x0055, f01=0x0190, f02=» P * t , ( I W X ! X $" P Q X (# P X + , ( i # :! R W T @ Y ( + D T:ENIN + t T:ENI + I:EXIT + , ( W Y , W Y ( + , ( : X *:h X (! # P X & V + , (
0x10c2ec…10c480 Dummy {f00=0x0055, f01=0x0190, f02=» + h , ( # P Y (_ P P Y , T:WRDY , 8 , ( C 8 & X 8 X $ W _ , J , ( a " P X ( T X & V H "@T , z , ( P V Y X (P , T:CLMI , , ( X (
0x10c480…10c614 (1, 104) Dummy {f00=0x0055, f01=0x0190, f02=» 8 V Y 8 : " P X & V , , ( ( P : : "0P - , , ( 7 $ T W %T : : Y - , ( W ( X $ Y X " Y X & Y X < Y - , ( w @ : Y : X : X ( - , ( T X & V H " V
0x10c614…10c7a8 Dummy {f00=0x0055, f01=0x4146, f02=» P - P H D ! W U Q R P" P PD W #Pt )Pn /P 5P A EP< I R . H D ! KWZ [P< ]Q eP2 sR$ uW y R } T$ W W P Tb W P@ . X H D !$ T, T R #P 3P* ; * ?P| [Wh cP mT }TF * P6 P z P . < 8 P V T P
0x10c7a8…10c93c Dummy {f00=0x0055, f01=0x0190, f02=» > @ IDENT T:ENIN T,REL=10.0,800314,870137141000 / T:ENIN T:ENI T:EVOU / F T:ENIN / f T:ENI / z , ( X Y " X Y $ X Y & X @W X / T:LOFS / , ( ! < Y = " / I:EGTB
0x10c93c…10cad0 Dummy {f00=0x0055, f01=0x0190, f02=» X (P / n T:WRDY 0 , ( W X & V D ! P @ W X 0 , ( W Y ( : X , Y X $ Y 0 P , ( X &T Y Y Y W V $ 0 , ( :H D Y D :H Y ! P V 0 I:EVA0 0 I:EVA1 0 , (
0x10cad0…10cc64 Dummy {f00=0x0055, f01=0x411a, f02=» 0 , ( Q : 2' " P T 1 I:EVA3 1 8 I:EPIC 1 J , ( mD W : N : 1 H D ! W CT IW SP a mT" }T W4 W, P W" P W W T WD 1 ( $ P W )P /W A X aP gT qW 1
0x10cc64…10cdf8 Dummy {f00=0x0055, f01=0x4144, f02=» > @ IDENT T:SETC T,REL=10.0,800314,870137141000 2 T:SETC T:SCUR 2 F T:SETC 2 ` T:GRFC 2 t T:EDWI 2 T:RCTS 2 T:SCUR 2 , ( A C 2 T:WRDY 2
0x10cdf8…10cf8c Dummy {f00=0x0055, f01=0x40e2, f02=» > @ IDENT T:CLMI T,REL=10.0,800314,870137141000 3 T:CLMI 3 F T:CLMI 3 X , ( "0P ' Q W ' 3 l ! Y : 3 P Q W 3 ( 3 @ 3 A2,0 PCLRM20 EQU * P SCR
0x10cf8c…10d120 Dummy {f00=0x0055, f01=0x0190, f02=» > @ IDENT T:ATTF T,REL=10.0,800314,870137141000 4 J F " T:ATTF T:DETF T:ROK T:RNOK T:RCR T:RCTS T:RTES T:GRFC T:WRDY 4 F T:CLDY 4 T:DETF 4 T:ATTF 4 I:EVA6 4 I:FFSN 4 , ( W
0x10d120…10d2b4 (1, 105) Dummy {f00=0x0055, f01=0x4100, f02=» < V E B 4 ~ T:RNOK < 5 T:GRFC @ 5 2 T:WRDY H 5 F T:EDIO 5 Z * & ; X _ v : C C 5 l T:CLDY 5 $ Y @ : C : 5 @ W @ 5 l 5 @ 5 W
0x10d2b4…10d448 Dummy {f00=0x0055, f01=0x0190, f02=» > @ IDENT T:LSEG T,REL=10.0,800314,870137141000 6 & " T:LOFS T:LOPS T:LSEG T:CSEG 6 F T:LSEG 6 p T:CSEG 6 , ( ( R : V E V D ' 6 I:ER1C 6 , ( ! $ W P 6
0x10d448…10d5dc Dummy {f00=0x0055, f01=0x402c, f02=»R ;P OW YP 6 d 7 @ 7 (00314,870137141000 6 & " T:LOFS T:LOPS T:LSEG T:CSEG 6 F T:LSEG 6 p T:CSEG 6 , ( ( R : V E V D ' 6 I:ER1C 6 , ( ! $ W P 6
0x10d5dc…10d770 Dummy {f00=0x0055, f01=0x4146, f02=» > @ IDENT T:DC00 T,REL=10.0,800314,870137141000 8 DCREAD DCWRTE DCEXCH 8 F T:FDS0 8 h DCREAD 8 z T:DCR1 8 DCWRTE 8 T:DCW1 8 DCEXCH 8 T:DCE1 8 , ( I$
0x10d770…10d904 Dummy {f00=0x0055, f01=0x40aa, f02=» > @ IDENT T:SWI0 T,REL=10.0,800314,870137141000 9 SWITCH 9 F T:SWIT 9 X SWITCH 9 j @ 9 ~ 9 @ 9 ~ . P* CREDIT ASSEMBLER SUBROUTINE ENTRIES * . P*
0x10d904…10da98 Dummy {f00=0x0055, f01=0x40da, f02=» > @ IDENT T:TEI0 T,REL=10.0,800314,870137141000 : TESTIO ABORT : F T:TEST : ^ TESTIO : p T:ABOR : ABORT : H : : @ : . P*
0x10da98…10dc2c Dummy {f00=0x0055, f01=0x40de, f02=» > @ IDENT T:CLO0 T,REL=10.0,800314,870137141000 ; SETTIM GETTIM ; F T:SETT ; ` SETTIM ; r T:GETT ; GETTIM ; H ; ; @ ; . P*
0x10dc2c…10ddc0 Dummy {f00=0x0055, f01=0x40a6, f02=» > @ IDENT T:DEL0 T,REL=10.0,800314,870137141000 < DELAY < F T:DELA < V DELAY < h @ < z < @ < * ~ . P* CREDIT ASSEMBLER SUBROUTINE ENTRIES * . P*
0x10ddc0…10df54 (1, 106) Dummy {f00=0x0055, f01=0x40aa, f02=» > @ IDENT T:GTI0 T,REL=10.0,800314,870137141000 = GETTID = F T:GETI = X GETTID = j @ = ~ = @ = ~ . P* CREDIT ASSEMBLER SUBROUTINE ENTRIES * . P*
0x10df54…10e0e8 Dummy {f00=0x0055, f01=0x0190, f02=» > @ IDENT T:DC T,REL=10.0,800314,870137141000 > 6 2 T:DCRE T:DCR1 T:DCWR T:DCW1 T:DCEX T:DCE1 > F T:DCRE > T:FDSP > T:DCR1 > T:DCWR > T:DCW1 > T:EDIO > , ( @@ /
0x10e0e8…10e27c Dummy {f00=0x0055, f01=0x416e, f02=» 6 > * & 5 / "!@P ? I:EVA0 ? 8 , ( O ' / #0T ? J , ( i C #0T C ? z , ( #0 T ' P &R &P C ? * & #0 T & C : W ?
0x10e27c…10e410 Dummy {f00=0x0055, f01=0x40b6, f02=» > @ IDENT T:SWI T,REL=10.0,800314,870137141000 @ T:SWIT @ F T:SWIT @ X I:RT1 @ l ( @ | @ @ @ E LEVEL P* PT:SWIT EQU * P LDK A7,0 " P SU PP,CSB,TCA GET
0x10e410…10e5a4 Dummy {f00=0x0055, f01=0x4174, f02=» > @ IDENT T:TEI T,REL=10.0,800314,870137141000 A T:TEST T:ABOR A F T:TEST A ` T:FDSP A t I:RT1 A T:ABOR A * & @ "R V I A T:KIAA A , ( ( T
0x10e5a4…10e738 Dummy {f00=0x0055, f01=0x410e, f02=» > @ IDENT T:DEL T,REL=10.0,800314,870137141000 C T:DELA C F T:DELA C X I:EVA0 C l I:ERR C ~ , ( @ #0 P ( C I:RT1 C C P C $ C @
0x10e738…10e8cc Dummy {f00=0x0055, f01=0x4124, f02=» > @ IDENT T:MSK0 T,REL=10.0,800314,870137141000 D MASK D F MASK D V I:EVA0 D h , ( @ #0 T #0 T V D z I:RT1 D D I:ERR D # D T T D
0x10e8cc…10ea60 Dummy {f00=0x0055, f01=0x0190, f02=» > @ IDENT T:SCD T,REL=10.0,800314,870137141000 E T:ACTV T:PAUS T:RSTR E F T:ACTV E h , ( 2 ;BP P J E | P:BAS E I:ERR4 E , ( ! T ( E I:NTPB
0x10ea60…10ebf4 (1, 107) Dummy {f00=0x0056, f01=0x4092, f02=» W & F : ( E I:RT1 F * w F : $ P P4 %T 1 ^ EW4 O ^ ]W F T ~ F |@ F
0x10ebf4…10ed88 Dummy {f00=0x0056, f01=0x0190, f02=» > @ IDENT T:UNUS T,REL=10.0,800314,870137141000 J T:UNUS J F T:UNUS J X I:ERR4 J l , ( 2 ' >A >A 2 J ~ P:MTAB J , ( $ V L ;a ; R @ ( 8 J , ( = ? X
0x10ed88…10ef1c Dummy {f00=0x0056, f01=0x402a, f02=» 5R@ OQ* J K @ K &,800314,870137141000 J T:UNUS J F T:UNUS J X I:ERR4 J l , ( 2 ' >A >A 2 J ~ P:MTAB J , ( $ V L ;a ; R @ ( 8 J , ( = ? X
0x10ef1c…10f0b0 Dummy {f00=0x0056, f01=0x4096, f02=» > @ IDENT T:EXIT T,REL=10.0,800314,870137141000 L T:EXIT L F T:EXIT L X ( L l L @ L KM P DATA 3 P* P END @ LDKL A6,-1 P ABL T:UERR END @ P ADR
0x10f0b0…10f244 Dummy {f00=0x0056, f01=0x4138, f02=» > @ IDENT T:GTCW T,REL=10.0,800314,870137141000 M GETCW M F T:FDSP M V GETCW M h I:EVA0 M z T:BINB M , ( H "$ P B B M T:GTCW M I:RT1 M $ W M
0x10f244…10f3d8 Dummy {f00=0x0056, f01=0x4128, f02=» > @ IDENT T:GTID T,REL=10.0,800314,870137141000 N T:GETI N F T:GETI N X I:EVA0 N l , ( @ #0T R W T V G 9h N ~ I:RT1 N I:ERR N ' W N T R W T '
0x10f3d8…10f56c Dummy {f00=0x0056, f01=0x018e, f02=» > @ IDENT T:DM T,REL=10.0,800314,870137141000 O & " T:OPEN T:CLOS T:COMM T:RSTA O F T:OPEN O p T:FDSP O , ( @ # 9 2! P T O T:WRIO O T:IO2 O T:CLOS . O , (
0x10f56c…10f700 Dummy {f00=0x0056, f01=0x4090, f02=» T:RSTA X P T:SCW2 P T:IO3 P * ( $ W C P : P T P f j P z@ P , ( @ # 9 2! P T O T:WRIO O T:IO2 O T:CLOS . O , (
0x10f700…10f894 (1, 108) Dummy {f00=0x0056, f01=0x018c, f02=» > @ IDENT T:DMR T,REL=10.0,800314,870137141000 Q & " T:DREA T:IREA T:XREA T:IXID Q F T:DREA Q p T:REAX Q T:SCW2 Q T:IO3 Q T:IREA Q T:IO2 Q , ( $ Q
0x10f894…10fa28 Dummy {f00=0x0056, f01=0x4008, f02=»@ R IDENT T:DMR T,REL=10.0,800314,870137141000 Q & " T:DREA T:IREA T:XREA T:IXID Q F T:DREA Q p T:REAX Q T:SCW2 Q T:IO3 Q T:IREA Q T:IO2 Q , ( $ Q
0x10fa28…10fbbc Dummy {f00=0x0056, f01=0x0190, f02=» > @ IDENT T:DMW T,REL=10.0,800314,870137141000 S 6 2 T:SWRI T:DWRI T:IWRI T:DREW T:CREW T:IREW S F T:SWRI S T:WRIX S T:IO4 S T:DWRI S T:SCW2 S , ( / / S
0x10fbbc…10fd50 Dummy {f00=0x0056, f01=0x40fc, f02=» 5D / C S , ( O ( B B @ C T , , ( o ( ( B B T , ( C C ( C T T:IO5 T C T T @ T / S
0x10fd50…10fee4 Dummy {f00=0x0056, f01=0x4182, f02=» > @ IDENT T:DMDI T,REL=10.0,800314,870137141000 U T:DDIS T:CDIS T:IDIS U F T:DDIS U h T:FDSP U | T:SCW2 U T:IO3 U T:CDIS U , ( $ C <H / U T:IDIS $ U
0x10fee4…110078 Dummy {f00=0x0056, f01=0x4168, f02=» > @ IDENT T:DMPO T,REL=10.0,800314,870137141000 V T:DPOS T:IPOS V F T:DPOS V ` T:FDSP V t T:SCW2 V T:GTBY V T:IO4 V , ( H@ C <H / V T:IPOS V T:WRIX
0x110078…11020c Dummy {f00=0x0056, f01=0x0190, f02=» > @ IDENT T:IO T,REL=10.0,800314,870137141000 W J F " T:WRIT T:READ T:SREA T:KI T:NKI T:EDWR T:DSC0 T:DSC1 T:DSC2 W F H D ! T:EDWE T:EDWF T:EDWI T:EDIO T:XSTA T:WAIT T:IO1 T:IO2 T:IO3 W J F " T:IO4 T:IO5 T:FDS0 T:FDSP T:GDSP T
0x11020c…1103a0 Dummy {f00=0x0056, f01=0x0190, f02=»:WRIT W T:LWRI X , ( W / X $ T:WRIX " X T T:WRIO & X h I:EVA0 X | , ( ! _ P <H X T:SREA B X T:READ B X T:REAX J X , ( ? :
0x1103a0…110534 (1, 109) Dummy {f00=0x0056, f01=0x0190, f02=» , ( { C C W C C J Y , ( ' W 781"&$ 39#$;< '()*+,-! Y 4 T:DSC2 Y d , ( P Y x T:XSTA Y T:WAIT Y , ( _D B 'W ( Y T:MWA
0x110534…1106c8 Dummy {f00=0x0056, f01=0x0190, f02=» Y T:IO3 D Z T:IO4 H Z I:ER19 Z , , ( 5 1W C C C " Z > T:IO5 Z Z n T:IORE ^ Z T:GCW2 Z * & S ( ' P P "! P Z T:GTCW Z I:RT1 Z , ( q W B
0x1106c8…11085c Dummy {f00=0x0056, f01=0x0190, f02=» Z j T:EDWR [ I:EDW [ , ( 5 P C : [ . T:EDWE [ ^ T:EDWF [ r , ( C C B B P C [ T:EDWI [ I:ERR [ , ( : "!@T V I C [
0x11085c…1109f0 Dummy {f00=0x0056, f01=0x018e, f02=» Y [ t I:ERR5 , ( e C & & , ( B C "!@ V , ( : B T T T:FDS0 T:FDSP T:GDSP P:MTAB , (
0x1109f0…110b84 Dummy {f00=0x0056, f01=0x0190, f02=» , ( @ V H ;D:B " ] , ( : _, C ] 8 T:GTBY 2 ] h T:SCW2 ] | , ( P / : : 2 "! P ] T:DSCX R ] I:EVA2 ] , ( O : P C W
0x110b84…110d18 Dummy {f00=0x0056, f01=0x415e, f02=» ] h H D ! Y W L D " H % ) - " 1P G J IW M Q " ]P cV { ^ H D ! V 2 W > W > " P W Wb 2 ;W" ^ T H D !B ]P. a gP$ mP sW }P P P& P P P P ^ H D ! 0 T ?P C O S "
0x110d18…110eac Dummy {f00=0x0056, f01=0x0190, f02=» > @ IDENT T:KIA T,REL=10.0,800314,870137141000 e T:KIA T:NKIA e F T:KIA e ^ T:NKIA e p T:ABUF e , ( W P 6 V :a L e T:KIPR e , ( Q ' ( ( e
0x110eac…111040 Dummy {f00=0x0056, f01=0x0190, f02=» 6 K e , ( u V K V V K V K f , ( V 6V ( - _ : J 7 f P , ( J V W J :A f * & V 6V $ - _ * + : f , ( D T E D :A D ;A f
0x111040…1111d4 (1, 110) Dummy {f00=0x0056, f01=0x410a, f02=» I @P _ W *) + : f , ( g $: R P $ : D V D g 0 ( $ V ( < C C _, g ` H D !L W PZ !QJ % p 7 < ST WP c V V T> Q U 3 d AP g IP QW mR oP g g @ g
0x1111d4…111368 Dummy {f00=0x0056, f01=0x4098, f02=» > @ IDENT T:ABUF T,REL=10.0,800314,870137141000 h T:ABUF h F M h X T:ABUF h n h @ h IN T:ABUF f & !T:ABUF RES SIZE KIA/NKIA SAVEAREA P EJECT T:ABUF END @
0x111368…1114fc Dummy {f00=0x0056, f01=0x018e, f02=» > @ IDENT I:EVA T,REL=10.0,800821,870137141000 J F " I:EVA0 I:EVA1 I:EVA2 I:EVA3 I:EVA5 I:EVA6 I:EVA7 I:EVB I:EVI F I:FML I:EVTO P:MTAB , ( :l:d:h I:EVA2 I:E
0x1114fc…111690 Dummy {f00=0x0056, f01=0x0190, f02=» f , ( 9 # W @ $ E " T ; [ , ( W # :H 2 T Z L 8 , ( @ w L D V W # h , ( L E V $ W D V I:EVA0 , ( @ L , W 6 2 W "
0x111690…111824 Dummy {f00=0x0056, f01=0x0190, f02=» Z Z , ( 3 : R ; 0 I:ERR9 ` , ( S 6 : F _v r , ( s :B , (V ; H [ [ , ( [ Z (;AR H W I:E
0x111824…1119b8 Dummy {f00=0x0056, f01=0x0190, f02=» & Z t , ( 4 : Z , ( ' 4 " 2@P : [ D , ( G [ & @ $ ! P t , ( e Z [ 6 [ Z I:FML , ( 7 . Z 7
0x1119b8…111b4c Dummy {f00=0x0056, f01=0x4182, f02=» :;h : ; V I:EVI * I:EVB < , ( Y : 2! : 6 2 N , ( @ W " # ;b ~ " ? ; : ;f" #?_" H D ! #W 'W -P 1W = ?W4 KT> [ kT V, W
0x111b4c…111ce0 Dummy {f00=0x0056, f01=0x018e, f02=» > @ IDENT I:ADS T,REL=10.0,800314,870137141000 v I:ADD I:SUB v F I:ADD v I:SUB v n I:ERR2 v I:ERR1 v * & @ W # v , ( " T & T + : * v I:C
0x111ce0…111e74 (1, 111) Dummy {f00=0x0057, f01=0x0190, f02=» , ( ! X # P 4 V W w , ( Q P [ " X $ P T w 4 , ( R R ` ; <( w d , ( Q P # W " <! =# T W = Z w , ( P _ V ^< `_@ w , ( ) R Q <# =_
0x111e74…112008 Dummy {f00=0x0057, f01=0x4056, f02=» W T6 W P )R +Q 7P w h AP GU KP QT x $ l x @@ x R T w 4 , ( R R ` ; <( w d , ( Q P # W " <! =# T W = Z w , ( P _ V ^< `_@ w , ( ) R Q <# =_
0x112008…11219c Dummy {f00=0x0057, f01=0x4184, f02=» > @ IDENT I:CMP T,REL=10.0,800314,870137141000 y I:CMP y F I:CMP y V I:ERR1 y h , ( #0 P " T * & y z , ( : * & !`P :J +_ +Q y I:CPA y , ( ? _0
0x11219c…112330 Dummy {f00=0x0057, f01=0x4172, f02=» > @ IDENT I:CPA T,REL=10.0,800314,870137141000 z I:CPA z F I:CPA z V * & R W z h , ( ( V W Q P W ! W V z , ( ? P , V W Q P W $ W V z * & _ P
0x112330…1124c4 Dummy {f00=0x0057, f01=0x0190, f02=» > @ IDENT I:MOV T,REL=10.0,800314,870137141000 { I:MOV I:MVC { F I:MOV { I:MVC { n , ( $0#0;b P P P P { , ( ! 0 - P _ 4 V { , ( A W Q P ) P 9_ &" ! 9 :
0x1124c4…112658 Dummy {f00=0x0057, f01=0x0190, f02=»V { p , ( 4! P < S S S X | , ( 4 9d * & ! R + : | @ , ( V W R 4 0R Y | p , ( ! 7 Y& P Z,;D 9_8 8 _< | I:ERR8 | , ( A V W YL T 9 :
0x112658…1127ec Dummy {f00=0x0057, f01=0x40fc, f02=»V 7 Y | r , ( P _& & Q 9d! )0 + P 7 Y } Z $ _ : } B H D ! ^ P P PF P -P0 EQ GP OP gP kQ s S S S } f 0 , R R R )P oP( T WJ V P. P } } @ } 9 :
0x1127ec…112980 Dummy {f00=0x0057, f01=0x018e, f02=» > @ IDENT I:MUL T,REL=10.0,800314,870137141000 ~ I:MUL I:SH1L ~ F I:MUL ~ ^ I:ERR2 ~ p I:ERR1 ~ , ( V ) 0 !0 ~ , ( " T *V &V : V ~ , ( = S W P
0x112980…112b14 (1, 112) Dummy {f00=0x0057, f01=0x0190, f02=» ~ f , ( [ [ $ [ [ I:MOV I:NTFA 8 * & P>h [ [ P I:SUB ~ , ( Z P , ( [ 9a Z $" T 9d! P P [ I:ADD , ( P
0x112b14…112ca8 Dummy {f00=0x0057, f01=0x40e6, f02=» I:SH1L z , ( g ! I Z ! : 4 P 9 , ( 59D_ " P P [ ! :d" B 5 : r D @ @ TV 9V GP WV cW PP P6 P( P 5 z AR IP P P P @ I:ADD , ( P
0x112ca8…112e3c Dummy {f00=0x0057, f01=0x018e, f02=» > @ IDENT I:DIV T,REL=10.0,800314,870137141000 I:DIV I:SH1R F I:DIV ^ I:ERR2 p I:ERR1 , ( 0 !0 " T , ( *V &V P = , ( ; ;@
0x112e3c…112fd0 Dummy {f00=0x0057, f01=0x0190, f02=» , ( V & 6 , ( [ [ [ [ $ 8 I:MOV I:NTFA h , ( [ [ &! P I:SUB , ( , ( z " ! !
0x112fd0…113164 Dummy {f00=0x0057, f01=0x018e, f02=» r e P _ , ( i T { [ [ Q [ & I:ADD V , ( P { R [ _ f , ( Z ! Z $ * & P Z %_N [ Q * & R
0x113164…1132f8 Dummy {f00=0x0057, f01=0x40b2, f02=» f + X" ,9 -9d_ H D ! Tz V 'V 5PP KR QP UW aP iR qR yV T W P +P $ ( $ YQ eP y Q@ R Q* R W p 6 @ ! Z $ * & P Z %_N [ Q * & R
0x1132f8…11348c Dummy {f00=0x0057, f01=0x40da, f02=» > @ IDENT I:NTF T,REL=10.0,800314,870137141000 I:NTFA F I:NTFA X , ( Z H D & H l $ ! D % [ ( 8 @ P ABR* WK2 P P END ,PS
0x11348c…113620 Dummy {f00=0x0057, f01=0x0190, f02=» > @ IDENT I:EDT T,REL=10.0,800314,870137141000 F B I:EDT I:EDW I:ED1 I:EDSK I:EVT I:ETAB I:EXIT I:ETXT I:ECPY F D @ I:ECTR I:ESL I:ENL I:EOR I:ECW I:ECWC I:EFIL I:EFLA I:SCB I:FFSN I:EXPY , ( !!
0x113620…1137b4 (1, 113) Dummy {f00=0x0057, f01=0x0190, f02=»5 I:EVB I:EGTB I:EVI , I:EVA3 < I:EVA0 N * & AUT ` I:EVNO I:EPIC I:ESKI I:EBRI I:EBRB I:EBR * & Q T
0x1137b4…113948 Dummy {f00=0x0057, f01=0x0190, f02=» { 6 K K I:EDT . I:ED1 @ I:EDW R , ( K K V K : d I:EVA6 , ( * R B " V , ( V Z P 2 " T W , (
0x113948…113adc Dummy {f00=0x0057, f01=0x0190, f02=» 7 [ Z P I:ERR9 * , ( U $ [ V < I:EXIT z l P:MTAB , ( s & 7_ Z @ " (! * & P $ Z 7 Z Z P I:FFSN , (
0x113adc…113c70 Dummy {f00=0x0057, f01=0x0190, f02=» : R J P v I < : I:ETXT ( I:ECPY < , ( J Q : P 4 P I:EXPY * I:ECTR < , ( % ! T _ P 4 W K I:ESL F I:ENL P , ( E W
0x113c70…113e04 Dummy {f00=0x0057, f01=0x418c, f02=»_& X ,W X & . J K I:EFIL ( I:SCB < I:ERRD N , ( : V : J T 0 1 ` H D ! U Y [ e f g z i p k 4 m P s u F y * < < H D ! P T W T W ;
0x113e04…113f98 Dummy {f00=0x0057, f01=0x0190, f02=» > @ IDENT I:EPIC T,REL=10.0,800314,870137141000 I:EPIC F I:EPIC X I:EVA0 l : + ~ [ [ < , ( ! !AAP !TTT W !**T * [ R A
0x113f98…11412c Dummy {f00=0x0057, f01=0x0190, f02=»T j , ( *W FP . :T Z ! XBW *X& I:ERRD : , ( W :P # U J 1 p ! L I:SCB | , ( 00T ; _ 9P F " X> # ; W )0_B , ( J R Z R 4! P ;)0
0x11412c…1142c0 Dummy {f00=0x0057, f01=0x4158, f02=» , ( k ,_ 8 _ : W 8W p 8 ! , ( ++P !-- z ;$# + ^" _( 4 " |`. PT*AXYZ9 d H D ! ` %P +T /W 5T ?R EP KT OW S P Wv W@ Wn H D ! T& W4 P T W F WH P" U T P
0x1142c0…114454 (1, 114) Dummy {f00=0x0057, f01=0x40ea, f02=» > @ IDENT I:EDS T,REL=10.0,800314,870137141000 I:EDS F I:EDS V I:EVS2 h I:ED1 z , ( : { : & @ P2E,OP1E END OF MAIN STRING
0x114454…1145e8 Dummy {f00=0x0057, f01=0x0190, f02=» > @ IDENT I:STR T,REL=10.0,800314,870137141000 $ I:INS I:DLT I:MCH I:CPY I:XCP F I:DLT n I:EVS1 , ( @ $0T P 9 I:MCH " * & _ $0T [ , ( ;
0x1145e8…11477c Dummy {f00=0x0057, f01=0x0190, f02=» $ t , ( R W R # P W ) V E I:EVS2 D , ( $0T W W V I:ERR I:CPY I:XCP , ( W [ , ( : Z !0 ,
0x11477c…114910 Dummy {f00=0x0057, f01=0x409c, f02=» : H D !@ T H Pb )T ?T UR$ ]P cT mTd oW TH R W R P W ( $ T Wr W W P4 R* R %W Z P @ PY I:XCP , ( W [ , ( : Z !0 ,
0x114910…114aa4 Dummy {f00=0x0057, f01=0x0190, f02=» > @ IDENT T:ADIT T,REL=10.0,800314,870137141000 c & " T:RREA T:RRE1 T:RWRI T:RWR1 c F T:RREA c p T:FDSP c T:RRE1 c I:EVA0 c , ( A #0 T &R c T:STCW c I:ERR c
0x114aa4…114c38 Dummy {f00=0x0057, f01=0x40ac, f02=» / "!@P c v T:IO1 d , ( S #0T C : d & m W d V X TX RX A X _T oW d r v d @ d I:EVA0 c , ( A #0 T &R c T:STCW c I:ERR c
0x114c38…114dcc Dummy {f00=0x0057, f01=0x0190, f02=» > @ IDENT T:CW T,REL=10.0,800314,870137141000 _ F B T:GCW2 T:GTCW T:SCW2 T:STCW T:SCW0 T:BCDB T:BINB T:KIAA _ F T:KIAC _ T:STCW _ I:EVA2 _ T:SCW0 _ , ( @ #0 T & C C : C _
0x114dcc…114f60 Dummy {f00=0x0057, f01=0x0190, f02=» X R _ V _ T:GTCW ` I:ERR2 ` 4 , ( 4 _P :#0 T B 'W B ` F T:BINB ` v , ( B " : ` , ( P P L R ` , ( R _ R _
0x114f60…1150f4 (1, 115) Dummy {f00=0x0058, f01=0x0190, f02=» T U :J ` z , ( ] a B@ ' d w5 1 a T:KIAA a J T:KIAC a ^ T:GCW2 a r , ( } #0 T a T:SCW2 a , ( B ' : B B : a , (
0x1150f4…115288 Dummy {f00=0x0058, f01=0x4062, f02=» PR a T 8 4 Z R R Q !P )P 9P IR T P T b b L@ b ^:KIAC a ^ T:GCW2 a r , ( } #0 T a T:SCW2 a , ( B ' : B B : a , (
0x115288…11541c Dummy {f00=0x0058, f01=0x018e, f02=» > @ IDENT T:USE T,REL=10.0,800314,870137141000 G T:USE T:UERR G F T:USE G ^ I:ERR4 G p , ( 2 & >A >A 2 G I:EVA0 G , ( $ & V D 9a 9 G P:MTAB G , (
0x11541c…1155b0 Dummy {f00=0x0058, f01=0x0190, f02=» G f , ( @ 9 X ( H , ( 9 8 ? X Q , V H 8 , ( ( - 4T H h , ( V 5 ( W V H , ( P W U V X 9T H T:UERR B H
0x1155b0…115744 Dummy {f00=0x0058, f01=0x4010, f02=» H H @ I @ 9 X ( H , ( 9 8 ? X Q , V H 8 , ( ( - 4T H h , ( V 5 ( W V H , ( P W U V X 9T H T:UERR B H
0x115744…1158d8 Dummy {f00=0x0058, f01=0x018e, f02=» > @ IDENT WRITEL T,REL=10.0,800314,870137141000 i WRITEL i F WRITEL i X T:FDS0 i l I:EVA0 i ~ , ( D / #0T C i , ( #0 T &R &P C i T:IO2 i , ( 9
0x1158d8…115a6c Dummy {f00=0x0058, f01=0x400c, f02=» i @ j IDENT WRITEL T,REL=10.0,800314,870137141000 i WRITEL i F WRITEL i X T:FDS0 i l I:EVA0 i ~ , ( D / #0T C i , ( #0 T &R &P C i T:IO2 i , ( 9
0x115a6c…115c00 Dummy {f00=0x0058, f01=0x0190, f02=» > @ IDENT I:NTP T,REL=10.0,800314,870137141000 k B > I:TRC I:NTP I:NTPA I:NTPB I:NTPR I:RST I:RT0 I:RT1 I:RT2 k F I:MOV k I:ADD k I:SUB k I:CMP k I:MUL k * & T k
0x115c00…115d94 (1, 116) Dummy {f00=0x0058, f01=0x0190, f02=» k I:XCP l I:EDS l , ( / l ( A l X I:TRC N l v I:RST P l T:CSEG l I:NTPA T l I:NTPB X l P:MTAB l , ( O W V 7 @
0x115d94…115f28 Dummy {f00=0x0058, f01=0x0190, f02=» I:CHK l , ( B " $ m I:EVA0 m > I:EVA2 m P , ( pV 9c D & ( m b I:RT2 m , ( Q W :aW @ NYR m I:TRA m I:RT1 m I:TRB m
0x115f28…1160bc Dummy {f00=0x0058, f01=0x0190, f02=» V m j T:BAT n , ( W _ 2 # ;B V T n , ( 7 2W V P L , V 2 n J , ( U P " 2 P V D ! R T V n z , ( u P V W V P _ 8 n T:PAT n , ( ^t D . 2 ! 9BP V
0x1160bc…116250 Dummy {f00=0x0058, f01=0x0190, f02=» 7_ 2 # P L 6P n , ( @ & 2" &] Y $! o * , ( @ + 6P Q $ T 9BP . _ _ o Z , ( K W 6 @ & " T 7 $ o , ( i V P W _ o I:EVB o , ( P
0x116250…1163e4 Dummy {f00=0x0058, f01=0x40f4, f02=» o N H D ! = ? A C E G I K M kP uP VP Q W p H D ! W, P P W< - L 3T 9W UP [P kR oT uP P P T W p V 8 4 T PH PB -P /Q 3T 7P KW ]T oP W W p U p @ p , ( P
0x1163e4…116578 Dummy {f00=0x0058, f01=0x0190, f02=» > @ IDENT I:EDTE T,REL=10.0,800314,870137141000 D @ I:EKIH I:EINH I:EVIN I:EBRI I:EBRB I:EBR I:ESKI I:EVNO F I:EGTD I:EGTB I:EKIH I:EINH I:ETAB I:EVIN , ( @
0x116578…11670c Dummy {f00=0x0058, f01=0x018a, f02=»:ERR2 * & ; W : ! )P9H " I:EBR r < , ( W # T &W &" :I : N I:EBRB v ~ I:ESKI I:EVNO I:ER11 I:EGTD I:EGTB , ( u : P &
0x11670c…1168a0 Dummy {f00=0x0058, f01=0x4008, f02=»@ * & ; W : ! )P9H " I:EBR r < , ( W # T &W &" :I : N I:EBRB v ~ I:ESKI I:EVNO I:ER11 I:EGTD I:EGTB , ( u : P &
0x1168a0…116a34 (1, 117) Dummy {f00=0x0058, f01=0x0190, f02=» > @ IDENT I:EVS T,REL=10.0,800314,870137141000 I:EVS1 I:EVS2 F I:EVA0 ` , ( @ #03 T jP r , ( kT T : & 9! " : $ , ( = : T W V 9! , ( ]
0x116a34…116bc8 Dummy {f00=0x0058, f01=0x4082, f02=»2 I:ERR _^ W , ( T )T GT KW eQ< qQ0 }Q$ T W < l@ ~ #03 T jP r , ( kT T : & 9! " : $ , ( = : T W V 9! , ( ]
0x116bc8…116d5c Dummy {f00=0x0058, f01=0x0190, f02=» > @ IDENT I:TRA T,REL=10.0,800314,870137141000 2 . I:NTR I:PRT I:TRA0 I:TRA I:TRB I:BUF I:ECB F I:ECB | I:BUF , ( *1 TID ADDR OP CR LVL MOD ( / IFIED OPERAND
0x116d5c…116ef0 Dummy {f00=0x0058, f01=0x0190, f02=» ( z , ( ! @ ' $ * A T ( , ( A A ( J , ( p A ) Y V A V z I:HEX I:HEXB , ( V . 1 V v I:TRA0 8
0x116ef0…117084 Dummy {f00=0x0058, f01=0x0190, f02=» I:EVA0 I:HEXW , ( e & ( @ |Q X I:TRB | , ( R A W # V D ! )0 1 , ( @ & # T 6 V ^ I:NTPR I:PRT
0x117084…117218 Dummy {f00=0x0058, f01=0x4028, f02=»W> T n @ $ e & ( @ |Q X I:TRB | , ( R A W # V D ! )0 1 , ( @ & # T 6 V ^ I:NTPR I:PRT
0x117218…1173ac Dummy {f00=0x0058, f01=0x0190, f02=» > @ IDENT I:ERR T,REL=10.0,800314,870137141000 D @ I:ERR I:ERR0 I:ERR1 I:ERR2 I:ERR3 I:ERR4 I:ERR5 I:ERR6 F F B I:ERR7 I:ERR8 I:ERR9 I:ERRA I:ERRB I:ERRC I:ERRD I:ERRE F B I:ERRF I:ER10 I:ER11 I:ER12 I:ER13 I:ER1
0x1173ac…117540 Dummy {f00=0x0058, f01=0x0190, f02=» I:ERR3 I:ERR4 I:ERR5 0 I:ERR6 D I:ERR7 X , ( W W W W W W W W l I:ERR8 I:ERR9 $ I:ERRA ( I:ERRB , I:ERRC 0 I:ERR
0x117540…1176d4 (1, 118) Dummy {f00=0x0058, f01=0x018e, f02=» I:ER12 H I:ER13 L I:ER14 P , I:ER15 T @ I:ER16 X T I:ER17 h , ( A W W W W W W W W | I:ER18 ` I:ER19 d I:ER1A h I:ER1B l I:ER1C p
0x1176d4…117868 Dummy {f00=0x0058, f01=0x0190, f02=» f I:HEXB , ( $ ER A R A " I:ECB J * & @ R 4 4 $ A Z I:PRT , ( & U 4 - _ TC:ERR I:NTPR , ( @
0x117868…1179fc Dummy {f00=0x0058, f01=0x0190, f02=» ILLEGAL REQUESTED | , ( W LENGTH STACK UNDERFLOW ARIT , ( w HM OVERFLOW STACK OVERFLOW IN L , ( DEX OVERFLOW ILL INDEX TYPE DI | , ( V BY ZERO EDIT BUFFER OVFL ED , ( IT PICTURE OVERFLOW ALLOCATION
0x1179fc…117b90 Dummy {f00=0x0058, f01=0x0190, f02=»LOCA l , ( W TED FIX BUFFER NOT ALLOWED IL , ( w LEGAL CONTROL CODE ILLEGAL INDE < , ( X VALUE FORMAT CONDITIONS CHAN l , ( GED ILLEGAL PARAMETER LENGTH , ( ERROR DATASET BUSY ILLEGAL DA , ( TASE
0x117b90…117d24 Dummy {f00=0x0058, f01=0x412a, f02=» W` W WX WT #WP 'WL +WH /WD 3W@ 7W< ;W8 ?W4 | H D ! CW0 GW, KW( OW$ SW WW [W _W cW gW kW oW sW R D 8 H D ! U # 3 C ] _ q @ < " + A [ s
0x117d24…117eb8 Dummy {f00=0x0058, f01=0x4108, f02=» > @ IDENT I:HEX T,REL=10.0,800314,870137141000 I:HEXB I:HEXW I:HEX F I:HEXB f I:HEXW z I:HEX , ( W 9 " R 0 1 Y ! : W " @
0x117eb8…11804c Dummy {f00=0x0058, f01=0x413c, f02=» > @ IDENT I:CHK T,REL=10.0,800314,870137141000 I:CHK F I:CHK V P:BAS h P:END x , ( ;a V P V P W TC:CHK I:ERR , ( B <a R 9a V :
0x11804c…1181e0 Dummy {f00=0x0058, f01=0x0190, f02=» > @ IDENT TRACHK T,REL=10.0,800314,870137141000 & " TC:CHK TC:ABT TC:ERR TC:RDC F TC:CHK p , ( @ P ( TT:HLT TT:TRP , ( !" _ @ P @ P P V
0x1181e0…118374 (1, 119) Dummy {f00=0x0059, f01=0x0190, f02=» P n TT:VER TT:VMM , ( s $ $P T , D 2 , ( @ E : @ P A H A b TT:TID TT:PRC TT:SNO , ( W TW V A V TB:ENT ,
0x118374…118508 Dummy {f00=0x0059, f01=0x0190, f02=» TC:RDC TB:RDC TC:ERR & TT:MSG : * & TB( : TB( : A L , ( A E A V A z P:MTAB , ( 3 @ " # P ( R , ( @ M TB( ( A
0x118508…11869c Dummy {f00=0x0059, f01=0x4042, f02=» W W P R ;P CR4 kP sR ~ ,@ >G : * & TB( : TB( : A L , ( A E A V A z P:MTAB , ( 3 @ " # P ( R , ( @ M TB( ( A
0x11869c…118830 Dummy {f00=0x0059, f01=0x0190, f02=» > @ IDENT TRATAB T,REL=10.0,800314,870137141000 F B TT:TON TT:TRP TT:LOP TT:VON TT:VER TT:VMM TT:HLT TT:PRC F & " TT:TID TT:MSG TT:SNO TT:TRS TT:TON TT:TRP , (
0x118830…1189c4 Dummy {f00=0x0059, f01=0x418a, f02=» j , ( a TT:VON : TT:VER N , ( b , ( TT:VMM @ TT:HLT
0x1189c4…118b58 Dummy {f00=0x0059, f01=0x0190, f02=» > @ IDENT TRABUG T,REL=10.0,800314,870137141000 TB:ENT TB:ABT TB:RDC F h P:BAS z , ( , ( , (
0x118b58…118cec Dummy {f00=0x0059, f01=0x0190, f02=»( ( ( TT:PRC $ TT:SNO 6 , ( i D "! A * @ @ H , ( @ *P ( V x , ( R V W Z T , ( _" = T , (
0x118cec…118e80 Dummy {f00=0x0059, f01=0x0190, f02=»B:RDC 8 , ( ! P @ A A , , ( ; A . "V # ( A , @ , ( @ [ P UW T A ,P p , ( { @ = W Q M / , ( S I J T Y G L P , (
0x118e80…119014 (1, 120) Dummy {f00=0x0059, f01=0x0190, f02=» UU A A A A A A A A , ( B ; A P A A , 0 , ( [ + - ; : ( . ` , ( { X " , A L A L @ A , ( @ A _T X ,T X , ( ) A A
0x119014…1191a8 Dummy {f00=0x0059, f01=0x0190, f02=» @ V " @ T , ( ( ; " @ @ P A A " @ , ( [ 8T @ 4 A @ : A @ @ A P , ( * { @ F A @ A @ A @ @ A , ( F @ A :P W @ T @ , ( @ Z @ A 4 W
0x1191a8…11933c Dummy {f00=0x0059, f01=0x0190, f02=» p , ( ; 0 P P P @ , ( [ R _ @ , ( { _T p , ( 8 4 T P W , ( T @R W , ( U
0x11933c…1194d0 Dummy {f00=0x0059, f01=0x0190, f02=» ; D @ A 8P W @ T @ , ( [ Z A @ 8 0 , ( { @ A 2 ` , ( A 8 @ R V ;a , ( @ Q _ 1 8 @ A , ( 2_ 0 A
0x1194d0…119664 Dummy {f00=0x0059, f01=0x0190, f02=» @ 6 A @ < A @ B A , ( EU [ @ A @ A < @ A B @ A 6 , ( { P W @ T @ V @ P , ( @ A 0 0 P , ( @ @ P @ 1 8 A , ( @ @ < A @ 6 A _
0x119664…1197f8 Dummy {f00=0x0059, f01=0x0190, f02=» 0 p , ( $ W ! T @ P @ " 1 , ( P w 8 P @ @ @ @ T @ , ( @ @ R A *9l! P p , ( &9d! ) W P &9d , ( & _ & , ( P
0x1197f8…11998c Dummy {f00=0x0059, f01=0x018e, f02=» S P R % < < ! , ( H s T @ P @ ! 0 , ( D 5 = 8 8P @ ` TT:TRP TT:TRS , ( W $ TT:TON * & @
0x11998c…119b20 Dummy {f00=0x0059, f01=0x0190, f02=» , ( @ ! @ @ T I _: TT:HLT 8 * & ( = P @ _ A , A J I:TRC x , ( Y @ A 8 @ ! A , ( s 8P @ @ P @ P , ( @ R @ T @
0x119b20…119cb4 (1, 121) Dummy {f00=0x0059, f01=0x0190, f02=» R )W A | , ( 8 , A A :B A , ( @ Q (P _ H @ T @ L , ( @ H A " EQ GT | , ( = LT NE NG NL P @ * R , ( ] @ P Q (
0x119cb4…119e48 Dummy {f00=0x0059, f01=0x0190, f02=» A l , ( :B A (P _ @ , ( @ @ P @ < , ( V @ Q 1 @ Q Q l , ( +D A " ( R ( @ , ( G$ V @ H ) I " , ( a $
0x119e48…119fdc Dummy {f00=0x0059, f01=0x0190, f02=» P ,T n P )T , ( @ A T @ R ?aP * , , ( :l" T & W T C B B , ( B B B " A A A , ( ? A A A A R Q , ( _ ! 9D# 9hP Q
0x119fdc…11a170 Dummy {f00=0x0059, f01=0x0190, f02=»Q L % Q | , ( W , ( C L , ( " _* Q P Q V | , ( ? _ W " A < V , ( _ " F <P
0x11a170…11a304 Dummy {f00=0x0059, f01=0x0190, f02=» A l , ( .T @ *P P " A " , ( X X " , , A A < , ( :B A Q (P _ # # H A " l , ( ; A A 4 4 @ , ( [ I T A A A T A , ( @ { T
0x11a304…11a498 Dummy {f00=0x0059, f01=0x0190, f02=» n , ( "( @ " :S :X , ( :Y :Z $P W A > , ( + A 0R 9Q 0 A :B n , ( K _" A " , ( k A 0R 9U AR FQ , (
0x11a498…11a62c Dummy {f00=0x0059, f01=0x0190, f02=» "! R _U .W A : , ( A " 9d ! R . , ( + :W W W W ? ^ , ( K W :W .W / a A T " , ( k @ T A ( , ( @ A "
0x11a62c…11a7c0 Dummy {f00=0x0059, f01=0x0190, f02=» ! 1 ~ u 4 H D ! . K W e : y V } 6 P R V W V T 0 6 W P H D ! V $ P P 6 L #P ' 0 / ; t CV U : [P H D !o _W e V i 6 oP s w {
0x11a7c0…11a954 (1, 122) Dummy {f00=0x0059, f01=0x0190, f02=» W . [ t _ c g k o s $ { d n T n j H D ! . 4 P 4 )V - 1 4 9T EP ] cT < H D ! P W T T W D W : 0 W H D ! 0 V 'PZ 9 T ? EP I L U
0x11a954…11aae8 Dummy {f00=0x0059, f01=0x0190, f02=» # / ? : IP M QW WT c l H D ! k u t } 0 0 < 0 0 R Q : j ( H D ! D 6 0 P P P P -P 9T a {P W T t H D ! V 6 P P D 0 T P V T
0x11aae8…11ac7c Dummy {f00=0x0059, f01=0x0190, f02=» 9 =P` KT X H D ! Q S 4 WPF m T u $ y 6 T P P 0 W" b T W R % H D !1 3T =P A I 0 uPd PL P j j 0 R T V ` H D ! Rt W P RV W b * * * Q P T ' * MP2 UR* H D ! p Y j ] _
0x11ac7c…11ae10 Dummy {f00=0x0059, f01=0x0190, f02=» !A T 4 R: P T* W T 7 ; ? C G K O S j UR H D ! [Q kP oQ Pl ( P R PL W~ Pz R Tr Qj W" P` QV L H D !`C QL N N W /Q 3P 5Q 9V IW Q f wP W* P T j j H D ! j T P d P d :
0x11ae10…11afa4 Dummy {f00=0x0059, f01=0x018a, f02=» j P WH # j + b 1 Z 7R =Q C b Q j | H D ! _ b g j o wR$ }U R Q j T j 0 8 H D !q T R U WV $ ! $ )R /W& 5 V 9W ? V H D ! CW GW KW OW SW Y ] cT g m oT s w
0x11afa4…11b138 Dummy {f00=0x0059, f01=0x4008, f02=»@ j P WH # j + b 1 Z 7R =Q C b Q j | H D ! _ b g j o wR$ }U R Q j T j 0 8 H D !q T R U WV $ ! $ )R /W& 5 V 9W ? V H D ! CW GW KW OW SW Y ] cT g m oT s w
0x11b138…11b2cc Dummy {f00=0x0059, f01=0x0190, f02=» > @ IDENT SYSLOD REL 10.0 80-03-15 870105041000 & " SYSLOD SYSBAS NUMSEG PRGLG1 F NUMSEG p PRGLG1 SYSBAS SYSLOD SCTSFA SCTIPL , ( ($SWAP A
0x11b2cc…11b460 Dummy {f00=0x0059, f01=0x0190, f02=» @ A. SCTOPT ( TABBE : * & Q UU @ @ ! P >B @ A J , ( k @ E D P _ x SCTMSZ SCTEFA , ( D $ % $P _ % A >f A , ( $ A
0x11b460…11b5f4 (1, 123) Dummy {f00=0x005a, f01=0x0190, f02=» A l , ( P _ * A W * , ( @ A W :a2 * A < SAVE09 l SAVE04 ~ APPTYP , ( - & W F W @ F W , ( G CRP BAP COP A SCT
0x11b5f4…11b788 Dummy {f00=0x005a, f01=0x0190, f02=» , ( W =J : R F P W W " SAVE05 8 SAVE01 J , ( B @ $ P @ R W $ W SAVE03 SAVE13 CMPADR , ( & ( * ,R SAVE07 S
0x11b788…11b91c Dummy {f00=0x005a, f01=0x0190, f02=» W ( t SCTNOP * & /D W 0 V ( V 0 V $P A & , ( E 2 @ , T , ( [ U U A Q SAVE22 , ( u@$ ,V Y2 W 4 V @ , ( " T W
0x11b91c…11bab0 Dummy {f00=0x005a, f01=0x0190, f02=» , ( 6 Y , ( P @ P @ 2T 4 , ( W - 6P _ T <B d SCTLAP TTB:MT SCTMMP , ( 7 B :L A 8 W 0 : SCTNPE
0x11bab0…11bc44 Dummy {f00=0x005a, f01=0x0190, f02=» j SCTMMC , ( W Y( P Z& = : , ( A @:L . < P W L * & <9B @ V W Q | SCTLAC , ( W & @ A , ( B 0 @
0x11bc44…11bdd8 Dummy {f00=0x005a, f01=0x0190, f02=» a$ P V V " W _> , ( { @ , , ( H . V V " , ( $ P W @ @ ! T _ , ( P 8 , ( :l D
0x11bdd8…11bf6c Dummy {f00=0x005a, f01=0x0190, f02=»P W T | , ( ] W , ( }A W 0 @ W ( L , ( | , ( , ( V * 00P
0x11bf6c…11c100 Dummy {f00=0x005a, f01=0x0190, f02=» j , ( S _ 0 !;; _ S A A , ( s @ R @ ! T A : , ( A @ V ( V & I j MOVE M:REL , ( F W & H V LDALEN , ( " &
0x11c100…11c294 (1, 124) Dummy {f00=0x005a, f01=0x0190, f02=»E20 , ( F LX 0T , ( 3 : T : < , ( Q : 0 !TTT 0 !;;T : l , ( q W W 0 !99Q P !00R P , ( 00W 11 A P =H_, !11R T , ( 0 !
0x11c294…11c428 Dummy {f00=0x005a, f01=0x0190, f02=» : : : : , ( / : : 0 )T : !00 , , ( O T W * : TID=TCL= , ( k LEV=TDC=T0LC=0SDC=S0A I. : , ( C. ~ X C.9h! , ( # "
0x11c428…11c5bc Dummy {f00=0x005a, f01=0x0190, f02=» @ " P P | , ( ' A A A A W A , ( G A A A A A A P A A L , ( g : 9e :e Q | , ( P 9e @ P A 9C) A I , ( " @ ! P " :B A
0x11c5bc…11c750 Dummy {f00=0x005a, f01=0x0190, f02=» l , ( @ ' " @ $ P " :B A t w B , ( G J " r R Q @ ( = < , ( g @ Q @ "| _@ _$ l , ( : A A A A A A P A , ( A : h:B* A @ P A , ( B
0x11c750…11c8e4 Dummy {f00=0x005a, f01=0x0190, f02=» ' A P A A A ! T W , ( G A A I ! : 9D @ , , ( ! g @ r s @ A I T - , ( A _ I N T V S : , ( , ( 9P
0x11c8e4…11ca78 Dummy {f00=0x005a, f01=0x0190, f02=» : YX d C !CCT xB. ~ , ( ? <X B.9 H Q _ . SCTSWB ^ * & _ _ !SST 0 U P A p SAVE25 SAVE26 , ( } P X X W R W T X X SAVE27 S
0x11ca78…11cc0c Dummy {f00=0x005a, f01=0x0190, f02=» P V ZT W Z , ( F P P V . W ( , ( . @ $ P p W F T : X , ( ' A _ 0V , - , ( G P X 9A_ : @ ! P (W ( : H D ! [P$ {P P Q" U R> P0
0x11cc0c…11cda0 Dummy {f00=0x005a, f01=0x0190, f02=» [U _U^ oQ yVD TJ P P P T W %P /T H D ! _W sT W V V W P P W V W Q % 1 5P < H D !/ GP UP* Y T aP q T T $ PZ T P V^ 4 # + H D ! = A IPH M Q 6 SW> W [T a e gW m
0x11cda0…11cf34 (1, 125) Dummy {f00=0x005a, f01=0x0190, f02=» : l x P J # 2 l H D ! ' : + r / GT O S X a Z e m q - u }R T v P ( H D ! P PN T -T 1 N 9 Q P _T iT qW wW Q P R P W t H D ! P. R T$ P P P P W W T~ Rr U Rf Q` TR
0x11cf34…11d0c8 Dummy {f00=0x005a, f01=0x418a, f02=» O S D W H X H D ! [ . c g Q P P P R U P /P UR, WQ$ oQ H D ! . P R V V R ! % . - 1 5 v ` H D !x` 9T = A z I z O v }T T V S PJ T@ T: Tr P H D ! P$ T 3Tx
0x11d0c8…11d25c Dummy {f00=0x005a, f01=0x018c, f02=» > @ IDENT T:CLO T,REL=10.0,800314,870137141000 T:SETT T:GETT F T:SETT ` I:EVA0 t I:RT1 T:GETT , ( @ ( ( $ @ ( _
0x11d25c…11d3f0 Dummy {f00=0x005a, f01=0x4008, f02=»@ IDENT T:CLO T,REL=10.0,800314,870137141000 T:SETT T:GETT F T:SETT ` I:EVA0 t I:RT1 T:GETT , ( @ ( ( $ @ ( _
0x11d3f0…11d584 Dummy {f00=0x005a, f01=0x0190, f02=» @ H IDENT DENT02 TRA 10.0 80-12-10 F1 O1111 REL 10.0 80-12-10 DEEDIT DELAST DENDUP H $$$TRAN j $ DEEDIT S DELASTD DENDUP | B > ATTDB ATTWB CMPIND. DEDISC- DEFIND1 DELOCKL DEPOOL0 EMPTYT D @ GETDUP MASKL T:DISPD T:DUP
0x11d584…11d718 Dummy {f00=0x005a, f01=0x0190, f02=» v 2 P f
0x11d718…11d8ac Dummy {f00=0x005a, f01=0x0190, f02=» 2 F d > t E * E 3 E ; J F " D @h0R ! P # ( + ?R0X <RAhW %hZ ( !<R %
0x11d8ac…11da40 Dummy {f00=0x005a, f01=0x018e, f02=» 2hZ ! !T !j !! W R%K2 RRRR !X b !U ( T @ R b r J F " D W )W Lf "d "!U d ! R8T 0R (+0R + j !! S (
0x11da40…11dbd4 (1, 126) Dummy {f00=0x005a, f01=0x0190, f02=» ( , $ / 4 4 * D J F " D 0R T(0X P 0X h P W ! ! 0X 0X 0X #@hT A T f s . J F " D @ !!4 ! 4 ! U 6 _l; 2*0R !T Wo0R "T j !! !
0x11dbd4…11dd68 Dummy {f00=0x005a, f01=0x0190, f02=» 2 3 P . J F " D W 0R !T3m FW 0R !T&m F W Lh U ! V !!4 ! @ 6 = " J F " D "4 80X 1X F 6 ''' ' y '
0x11dd68…11defc Dummy {f00=0x005a, f01=0x018e, f02=» j J F " D @ W "_ '_ !0X R! 2 RRRW 0X 0R (P" &W:6 33 33 Z 4 j $ z 4
0x11defc…11e090 Dummy {f00=0x005a, f01=0x018e, f02=» " " " ! $ " 2 " @ " " N " % " & j " ' x " ( " , " . " / " 0 ( & &
0x11e090…11e224 Dummy {f00=0x005a, f01=0x0190, f02=» $ O & DELETED ( ( > J $ E Z & INSERTED j ( & & RECORD $ N & TTTT9D "
0x11e224…11e3b8 Dummy {f00=0x005a, f01=0x018e, f02=» & T:L XX " T , & < ELEMENT J $ T b NUMBER r $ & : ( ! & : & : & CONFIRM RECORD INSERT: (
0x11e3b8…11e54c Dummy {f00=0x005a, f01=0x018e, f02=» & $ BATCHY $ $E ( & : 8 & l F & RUNNING.O T ( l % x & & & RECORD CORRECTIONS ( & & & " & RECORD
0x11e54c…11e6e0 Dummy {f00=0x005a, f01=0x018e, f02=» ) CONFIRM $ )E & FREEZING OF BATCH 0 & l P ( ^ * j + CONFIRM z $ +R $ & CONVERSION OF ALL BATCHES ( , & $ *O &
0x11e6e0…11e874 (1, 127) Dummy {f00=0x005b, f01=0x0190, f02=» & k ( / & & k . & AUTOMATIC SKIP/DUP *OC < & U ` & N* p & & FF*O ( 0 & $ & ENTER WANTED RECORDNUMBER: ( 1
0x11e874…11ea08 Dummy {f00=0x005b, f01=0x4054, f02=» & & ( 0X4 , >@ P *OC < & U ` & N* p & & FF*O ( 0 & $ & ENTER WANTED RECORDNUMBER: ( 1
0x11ea08…11eb9c Dummy {f00=0x005b, f01=0x0190, f02=» L H IDENT DECOMP TRA 10.0 81-07-10 F1 O1111 REL 10.0 80-04-11,81-07-10,EV DECOMP T $$$TRAC f DECOMP x 2 . CDV10 CDV110T CDV111 CDVDK DDMMCK1 MMDDCKL 1 7
0x11eb9c…11ed30 Dummy {f00=0x005b, f01=0x4020, f02=»4 C L @ 7-10 F1 O1111 REL 10.0 80-04-11,81-07-10,EV DECOMP T $$$TRAC f DECOMP x 2 . CDV10 CDV110T CDV111 CDVDK DDMMCK1 MMDDCKL 1 7
0x11ed30…11eec4 Dummy {f00=0x005b, f01=0x8190, f02=» H H IDENT DECONV TRA 10.0 82-02-22 F1 O1111 REL=1.0 VER=1 82-02-22/EV DECONV P $$$TRAC b DECONV t D @ ADJUSTC ATTDEVA DEPOOL2 DERRORF DETPRT EMPTYT0 FDIO1 GETFWD2 B > MASKN T:ATTF T:DISP T:DSC1 T:EDWR T:GETC T:GETT
0x11eec4…11f058 Dummy {f00=0x005b, f01=0x8190, f02=» + " 5 # 9 & J F " D 6 f1E $WU6 _ R PCWD1X FT !0X T W/ LW- RW)6 ! 6 E w | x y z { x J F " D @ W L( (
0x11f058…11f1ec Dummy {f00=0x005b, f01=0x8190, f02=» 6 J F " D RW Wh ' L0R 40X TP RW WJ %L / 1 3 @ @ A L R T * x #
0x11f1ec…11f380 Dummy {f00=0x005b, f01=0x818e, f02=» , " J F " D L_ K "H 1X FA L_ K 3I $ " W !0X E - ! C n V 6 ~ Z I g n s | 7 ~ J F " D
0x11f380…11f514 (1, 128) Dummy {f00=0x005b, f01=0x8190, f02=» e & 6 J F " D 7 _" RW _"2 RRR RW _.J D L?RA . _>@ - ! . L H ) 7
0x11f514…11f6a8 Dummy {f00=0x005b, f01=0x8190, f02=» J ( 8 H X j & ( z / 1 ? J F " D _ RW _&2 RRR RW _2 L 0R _H0X @ ' L0R @ ' L
0x11f6a8…11f83c Dummy {f00=0x005b, f01=0x818e, f02=» m s u , J F " D @0R 0X R R& ?R U0X T 1X F_D U0X T 1X F_S # # R < * o B J F " D
0x11f83c…11f9d0 Dummy {f00=0x005b, f01=0x8190, f02=» $ $ B 4 J F " D j ( % 6j !% Lj " 1XFAn0X ! 0X !0X K 4 4 L F - ( *
0x11f9d0…11fb64 Dummy {f00=0x005b, f01=0x8190, f02=» L '0R 0X L0R T L L L0R p J ( . M * > Q , N Z O ^ p ` j n O { | J F " D @ 4 4 0X 0X 0R "P 4 L0R :R6 ?R L
0x11fb64…11fcf8 Dummy {f00=0x005b, f01=0x8190, f02=»I ` L `!*` a`h a! ! h J F " D aW W j b b ` ` j ` 1 % `* ` 1j 0 1 & t < ! J F " D ` 3 $ `* ` 3j 2 3 `" Lj ! !WRH ` ( ` ! ! Lj F K
0x11fcf8…11fe8c Dummy {f00=0x005b, f01=0x818e, f02=»L L , * < , L n ~ J F " D 0R 4 4 ' L0R 0X 0R %P L0R T 4 ' L0R 4 0 R
0x11fe8c…120020 Dummy {f00=0x005b, f01=0x8190, f02=» J F " D " L $L @ H A !0R 0R P :R?R0X % L<% L % L % L h z $ - 7 ; 8 9 = : A J F " D "W
0x120020…1201b4 (1, 129) Dummy {f00=0x005b, f01=0x8190, f02=» L X M X N X O X , P X < Q X L R X S X l T b | U d V h W { x J F " D @>@ W:2 RRRRRRRRRRRRRRRRW%A _ @ _ _ A _ & m
0x1201b4…120348 Dummy {f00=0x005b, f01=0x8190, f02=» 0R Tq0X 0X P Rrm FWP" 5e R 0X 0R /P H m 2 H . X , h J F " D F W0m F 6 !W H m F W m F 5 f ! " x & 1 & &
0x120348…1204dc Dummy {f00=0x005b, f01=0x8190, f02=» & B $ U 0 & @ & N ( h & x B $ U & & ( & $ &U (
0x1204dc…120670 Dummy {f00=0x005b, f01=0x8190, f02=» " U ( $ $ U 4 & EJ AVST[MD D & & j ( x $ J & NUMBER: 9999 " U & & MISST[MMER &
0x120670…120804 Dummy {f00=0x005b, f01=0x818e, f02=» & & & & JOBNAME: * & k @ & N & BATCHNAME: & l t & ( & l ( & l & l & l & S[
0x120804…120998 Dummy {f00=0x005b, f01=0x818e, f02=» $ K & & & ( 4 @ & P & ^ & l & S[NDNING z & AVBRYTS $ A & & ( & &
0x120998…120b2c Dummy {f00=0x005b, f01=0x8190, f02=» & FLOPPY DISC SKRIVNING & KLARY ( $ K < & L & Z ( h ) t & & & & FLOPPY DISC SKRIVNING & AFBRYDESS $ A &
0x120b2c…120cc0 Dummy {f00=0x005b, f01=0x8190, f02=»TID: 99-99-99 " TI $ & 4 & B & IND: P 99999E b " gN x & UD: 99999E " % & & ( 5 &
0x120cc0…120e54 (1, 130) Dummy {f00=0x005b, f01=0x8190, f02=» ! NAME $ !% & : , & : & H & V " EXPIRATION DATE: d $ "% & & & $ # OLD DATA SET IDENTIFIER: $ #% & &
0x120e54…120fe8 Dummy {f00=0x005b, f01=0x8190, f02=» & U ( % & U . $ ) < ( L & X ' 001 h $ ' | ( 999999 " (S & & ( ) & SLUTD * 99
0x120fe8…12117c Dummy {f00=0x005b, f01=0x8190, f02=»9999999999999999999O " - % ( , . 8 " / TTTTTTTTTTTTTTTTTTTT9O H " / % n ( ~ 0 " 1 TTTTTTTTTTTTTTTTTTTT9- " 1 % ( 2 " 3 99999999999999999999
0x12117c…121310 Dummy {f00=0x005b, f01=0xc012, f02=» @ 9O " - % ( , . 8 " / TTTTTTTTTTTTTTTTTTTT9O H " / % n ( ~ 0 " 1 TTTTTTTTTTTTTTTTTTTT9- " 1 % ( 2 " 3 99999999999999999999
0x121310…1214a4 Dummy {f00=0x005b, f01=0x407c, f02=» L H IDENT DEDDIV TRA 10.0 82-05-10 F1 O1111 REL 10.0 80-04-11,81-08-27,EV % $$$TRA % T % f@ % x & $ z 0 $ & $ @ $ = N " > " @ " T
0x1214a4…121638 Dummy {f00=0x005b, f01=0x0190, f02=» F H IDENT NYCONV TRA 10.0 82-05-04 F1 O1111 REL=1.0,VER=1 820420/NJ DECONV N $$$TRAC ` DECONV r D @ ADJUSTC ATTDEVA DEPOOL2 DERRORF DETPRT EMPTYT0 FDIO1 GETFWD/ B > MASKN T:ATTF T:DISP T:DSC1 T:EDWR T:GETC T:GETT T
0x121638…1217cc Dummy {f00=0x005b, f01=0x0190, f02=» p * = : Q J r Z j # z % , " 6 # : J F " D 2 RRRRRRRRR $WU6 _ R PCWD1X FT !0X T W/
0x1217cc…121960 Dummy {f00=0x005b, f01=0x018e, f02=»0 6 . > N 0 p ^ p # J F " D RW W5 %L / 1 3 @ @ @ L R T U0X T 1X F L_S LW LA
0x121960…121af4 (1, 131) Dummy {f00=0x005c, f01=0x0190, f02=» ( 6 , I J F " D K M - ! R _ W W W W %_h L_m R_ _!_# !_%_I -I & I t K V ^ e k m v {
0x121af4…121c88 Dummy {f00=0x005c, f01=0x0190, f02=»RRRRRI i R T $ 4 S D 0 T 6 f x J F " D W Wh ' L0R 40X TP RW WJ %L / 1 3 @ @ A L R T,
0x121c88…121e1c Dummy {f00=0x005c, f01=0x018e, f02=» U0X T 1X F RW W 6 ! RW W ?R LW LA ?R ' L0R 7 J f l | f + " J F " D L?RK "H 1X FA L?RK 3I $ " W !0X E - !
0x121e1c…121fb0 Dummy {f00=0x005c, f01=0x0190, f02=» ~ J F " D @ R ?RW W W W %_e L_j R_ W WA !_% RW W L '0R L RK $ r l f J F " D 7 _" RW
0x121fb0…122144 Dummy {f00=0x005c, f01=0x0190, f02=» ( 8 H S X J F " D 0R _q_ -I !a FW _ W L '0R L RK2 RRR RW h
0x122144…1222d8 Dummy {f00=0x005c, f01=0x0190, f02=» _H0X @ ' L0R @ ' L l A * L : Q J S Z Y c j ^ z d f m s u J F " D @0R 0X R R&
0x1222d8…12246c Dummy {f00=0x005c, f01=0x0190, f02=» B J F " D " T - ! L4 4 L " '0R 0X L0R T@ Lj & - n " $ B J F " D j ( % 6j !
0x12246c…122600 Dummy {f00=0x005c, f01=0x0190, f02=» ( , - O $ / 6 60 O F 9 X < j > | J F " D "m F %m F Lm F L '0R 0X L0R T L L L0R T0 " X0 " 0 "
0x122600…122794 (1, 132) Dummy {f00=0x005c, f01=0x0190, f02=» b b ` ` j ` 1 % ` p * . J F " D * ` 1j 0 1 ` 3 $ `* ` 3j 2 3 `" W 0X f > * ( , . O ! % Q / Q
0x122794…122928 Dummy {f00=0x005c, f01=0x0190, f02=» L0 X P0 X T0 X " o && 4 J F " D @R 8R %L $L! $L / b /W b $ 'I ` L `!*` a`h a! F J F " D ! aW W j b b ` ` j ` 1 % `* ` 1j ! J F "
0x122928…122abc Dummy {f00=0x005c, f01=0x0190, f02=» 3 - J F " D Lj ! ! L 0R f !8R4 La F j W C f H x X Z b , f . m o { }
0x122abc…122c50 Dummy {f00=0x005c, f01=0x0190, f02=» . > P b J F " D 4 " L $L @ H A !0R 0R P :R?R0X % L<% L % L t
0x122c50…122de4 Dummy {f00=0x005c, f01=0x018e, f02=» LW 2 0X 3 LW ( # 2 RRRR j ( 8 H # X h x + -
0x122de4…122f78 Dummy {f00=0x005c, f01=0x0190, f02=» Y ] & p / ( J F " D @ m FW @ _ ) H 0R T 0X 0X P R m FWf" 5 8 . 4 6 8 2 J F " D R~0X 0R /P%H ) m F W
0x122f78…12310c Dummy {f00=0x005c, f01=0x0190, f02=» ( ) m F ! " ?R4 4 4 4 t 2 & B ( P & 1 l & | & & * & NUMBER: 9999 " gU & & &
0x12310c…1232a0 Dummy {f00=0x005c, f01=0x0190, f02=»& B $ U & . & < ( J V & f $ *U t ( & ( 999999 " SU (
0x1232a0…123434 (1, 133) Dummy {f00=0x005c, f01=0x0190, f02=»( $ J & NUMBER: * 9999 @ " U T & d & MISST[MMER r & & ( $ I & EJ GODKENDT & (
0x123434…1235c8 Dummy {f00=0x005c, f01=0x0190, f02=» & ( " & l 2 ( @ L & l & l j & l x & S[NDNING $ [ ( & & & & S[NDNING
0x1235c8…12375c Dummy {f00=0x005c, f01=0x018e, f02=»& S[NDNING & AVBRYTS $ A * & : & H ( V b & r & & & FLOPPY DISC SKRIVNING $ L ( % & &
0x12375c…1238f0 Dummy {f00=0x005c, f01=0x018e, f02=» & & & $ & FLOPPY DISC SKRIVNING 2 & AFBRYDESS V $ A n & ~ & ( > & & & = &; 7LISTNING" $ I
0x1238f0…123a84 Dummy {f00=0x005c, f01=0x0190, f02=» ( & $ & 2 & @ & LISTNING AFBRYDES N $ I n & ~ & ( 0 & & DATO: 99-99-99 " SA &
0x123a84…123c18 Dummy {f00=0x005c, f01=0x0190, f02=» gN & UD: ! 99999G " ! % 6 & ! F & ! T ( b " 5 n & ! ~ # DEVICE $ #% & : & & #% & $ FILE $ $%
0x123c18…123dac Dummy {f00=0x005c, f01=0x018e, f02=»E: z $ &% & & ( & 6 $ ' OLD DATA SET IDENTIFIER: D $ '% l & | & & $ ( OLD VOLUME SEQUENCE NO:: $ (% & & &
0x123dac…123f40 Dummy {f00=0x005c, f01=0x018e, f02=» $ + , 999999 " ,S * & : & H ( V - b & SLUTD r . 99999G " . % & & ( / & ( 0
0x123f40…1240d4 (1, 134) Dummy {f00=0x005c, f01=0x4170, f02=» ( 4 " 5 TTTTTTTTTTTTTTTTTTTT9- $ " 5 % J ( Z 6 f " 7 BBBBBBBBBBBBBBBBBBBB9- v " 7 % ( 8 " 9 999999999999999999999- " 9 % (
0x1240d4…124268 Dummy {f00=0x005c, f01=0x8190, f02=» F H IDENT DECONV TRA 10.0 82-05-04 F1 O1111 REL=1.0,VER=1 820420/NJ DECONV N $$$TRAC ` DECONV r D @ ADJUSTC ATTDEVA DEPOOL2 DERRORF DETPRT EMPTYT0 FDIO1 GETFWD/ B > MASKN T:ATTF T:DISP T:DSC1 T:EDWR T:GETC T:GETT T
0x124268…1243fc Dummy {f00=0x005c, f01=0x8190, f02=» p * = : Q J r Z j # z % , " 6 # : J F " D 2 RRRRRRRRR $WU6 _ R PCWD1X FT !0X T W/
0x1243fc…124590 Dummy {f00=0x005c, f01=0x818e, f02=»0 6 . > N 0 p ^ p # J F " D RW W5 %L / 1 3 @ @ @ L R T U0X T 1X F L_S LW LA
0x124590…124724 Dummy {f00=0x005c, f01=0x8190, f02=» ( 6 , I J F " D K M - ! R _ W W W W %_h L_m R_ _!_# !_%_I -I & I t K V ^ e k m v {
0x124724…1248b8 Dummy {f00=0x005c, f01=0x8190, f02=»RRRRRI i R T $ 4 S D 0 T 6 f x J F " D W Wh ' L0R 40X TP RW WJ %L / 1 3 @ @ A L R T,
0x1248b8…124a4c Dummy {f00=0x005c, f01=0x818e, f02=» U0X T 1X F RW W 6 ! RW W ?R LW LA ?R ' L0R 7 J f l | f + " J F " D L?RK "H 1X FA L?RK 3I $ " W !0X E - !
0x124a4c…124be0 Dummy {f00=0x005c, f01=0x8190, f02=» ~ J F " D @ R ?RW W W W %_e L_j R_ W WA !_% RW W L '0R L RK $ r l f J F " D 7 _" RW
0x124be0…124d74 (1, 135) Dummy {f00=0x005d, f01=0x8190, f02=» ( 8 H S X J F " D 0R _q_ -I !a FW _ W L '0R L RK2 RRR RW h
0x124d74…124f08 Dummy {f00=0x005d, f01=0x8190, f02=» _H0X @ ' L0R @ ' L l A * L : Q J S Z Y c j ^ z d f m s u J F " D @0R 0X R R&
0x124f08…12509c Dummy {f00=0x005d, f01=0x8190, f02=» B J F " D " T - ! L4 4 L " '0R 0X L0R T@ Lj & - n " $ B J F " D j ( % 6j !
0x12509c…125230 Dummy {f00=0x005d, f01=0x8190, f02=» ( , - O $ / 6 60 O F 9 X < j > | J F " D "m F %m F Lm F L '0R 0X L0R T L L L0R T0 " X0 " 0 "
0x125230…1253c4 Dummy {f00=0x005d, f01=0x8190, f02=» b b ` ` j ` 1 % ` p * . J F " D * ` 1j 0 1 ` 3 $ `* ` 3j 2 3 `" W 0X f > * ( , . O ! % Q / Q
0x1253c4…125558 Dummy {f00=0x005d, f01=0x8190, f02=» L0 X P0 X T0 X " o && 4 J F " D @R 8R %L $L! $L / b /W b $ 'I ` L `!*` a`h a! F J F " D ! aW W j b b ` ` j ` 1 % `* ` 1j ! J F "
0x125558…1256ec Dummy {f00=0x005d, f01=0x8190, f02=» 3 - J F " D Lj ! ! L 0R f !8R4 La F j W C f H x X Z b , f . m o { }
0x1256ec…125880 Dummy {f00=0x005d, f01=0x8190, f02=» . > P b J F " D 4 " L $L @ H A !0R 0R P :R?R0X % L<% L % L t
0x125880…125a14 (1, 136) Dummy {f00=0x005d, f01=0x818e, f02=» LW 2 0X 3 LW ( # 2 RRRR j ( 8 H # X h x + -
0x125a14…125ba8 Dummy {f00=0x005d, f01=0x8190, f02=» Y ] & p / ( J F " D @ m FW @ _ ) H 0R T 0X 0X P R m FWf" 5 8 . 4 6 8 2 J F " D R~0X 0R /P%H ) m F W
0x125ba8…125d3c Dummy {f00=0x005d, f01=0x8190, f02=» () m F ! " ?R4 4 4 4 t 2 & B ( P & 1 l & | & & * & NUMBER: 9999 " gU & & &
0x125d3c…125ed0 Dummy {f00=0x005d, f01=0x8190, f02=»& B $ U & . & < ( J V & f $ *U t ( & ( 999999 " SU (
0x125ed0…126064 Dummy {f00=0x005d, f01=0x8190, f02=»( $ J & NUMBER: * 9999 @ " U T & d & MISST[MMER r & & ( $ I & EJ GODKENDT & (
0x126064…1261f8 Dummy {f00=0x005d, f01=0x8190, f02=» & ( " & l 2 ( @ L & l & l j & l x & S[NDNING $ [ ( & & & & S[NDNING
0x1261f8…12638c Dummy {f00=0x005d, f01=0x818e, f02=»& S[NDNING & AVBRYTS $ A * & : & H ( V b & r & & & FLOPPY DISC SKRIVNING $ L ( % & &
0x12638c…126520 Dummy {f00=0x005d, f01=0x8190, f02=» & & & $ & FLOPPY DISC SKRIVNING 2 & AFBRYDESS V $ A n & ~ & ( & & & & LISTNING $ I
0x126520…1266b4 (1, 137) Dummy {f00=0x005d, f01=0x8190, f02=» ( & & . & < & LISTNING AFBRYDESN J $ I j & z & ( 0 & & DATO: 99-99-99 " SA &
0x1266b4…126848 Dummy {f00=0x005d, f01=0x818e, f02=» & UD: ! 99999G " ! % 2 & ! B & ! P ( ^ " 5 j & ! z # DEVICE $ #% & : & & #% & $ FILE $ $%
0x126848…1269dc Dummy {f00=0x005d, f01=0x8190, f02=» v $ &% & & & & 4 $ ' OLD DATA SET IDENTIFIER: B $ '% j & z & & $ ( OLD VOLUME SEQUENCE NO:: $ (% & & &
0x1269dc…126b70 Dummy {f00=0x005d, f01=0x818e, f02=» $ + , 999999 " ,S & & 6 & D ( R - ^ & SLUTD n . 99999G " . % & & ( / & ( 0 "
0x126b70…126d04 Dummy {f00=0x005d, f01=0xc16c, f02=» ( 4 " 5 TTTTTTTTTTTTTTTTTTTT9- " 5 % F ( V 6 b " 7 BBBBBBBBBBBBBBBBBBBB9- r " 7 % ( 8 " 9 999999999999999999999- " 9 % (
0x126d04…126e98 Dummy {f00=0x005d, f01=0x4106, f02=» L H IDENT D:TB50 TRA 10.0 82-05-10 F1 O1111 REL 10.0 80-04-11,81-08-27,EV D:TB50 T D:TB50T f * & F Q 0 [ z * & 0 0 ^ e f h n t = ~ F @
0x126e98…12702c Dummy {f00=0x005d, f01=0x0190, f02=» F H IDENT DECONV TRA 10.0 82-05-06 F1 O1111 REL=1.0,VER=1 820506/NJ DECONV N $$$TRAC ` DECONV r D @ ADJUSTC ATTDEVA DEPOOL2 DERRORF DETPRT EMPTYT0 FDIO1 GETFWD/ D @ MASKN T:ATTF T:DISP T:DSC1 T:EDWR T:GETC T:GETT T
0x12702c…1271c0 Dummy {f00=0x005d, f01=0x0190, f02=» o * = : Q J r Z j # z % , $ 6 # : J F " D 2 RRRRRRRRR $WU6 _ R PCWD1X FT !0X T W/
0x1271c0…127354 (1, 138) Dummy {f00=0x005d, f01=0x018e, f02=»0 , < 0 L ^ # p J F " D RW W4 %L / 1 3 @ @ @ @ R T U0X T 1X F L_R LW LA _
0x127354…1274e8 Dummy {f00=0x005d, f01=0x0190, f02=» + H J F " D M - ! R _ W W W W %_h L_m R_ _!_# !_%_g -I H b J r U [ ] d j l u z v w
0x1274e8…12767c Dummy {f00=0x005d, f01=0x0190, f02=» " x 2 0 B 6 T f J F " D Wh ' L0R 40X TP RW WJ %L / 1 3 @ @ A L R T, v
0x12767c…127810 Dummy {f00=0x005d, f01=0x0190, f02=»W 6 ! RW W ?R LW LA ?R ' L0R z 7 8 f J Z j z f * $ J F " D L?RK "H 1X FA L?RK 3I $ " W !0X E - ! A
0x127810…1279a4 Dummy {f00=0x005d, f01=0x0190, f02=» ~ J F " D @ R ?RW W W W %_e L_j R_ W WA !_% RW W L '0R L RK7 ^ n k ~ f J F " D _" RW _"2
0x1279a4…127b38 Dummy {f00=0x005d, f01=0x0190, f02=» $ 4 x D J F " D R _q_ -I !a FW _ W L '0R L RK2 RRR RW T
0x127b38…127ccc Dummy {f00=0x005d, f01=0x0190, f02=»_H0X @ ' L0R @ ' L0 h K & P 6 R F X c V ] f c v e l r t ~ J F " D @R 0X R R& ?R U0X T 1X F_D U0
0x127ccc…127e60 Dummy {f00=0x005d, f01=0x0190, f02=» B J F " D T - ! L4 4 L " '0R 0X L0R T@ Lj & - Z l | & " B J F " D j ( % 6j !% Lj " 1XFA
0x127e60…127ff4 (1, 139) Dummy {f00=0x005e, f01=0x0190, f02=» ' , , O . " 50 O 2 8 D ; V = h J F " D "m F %m F Lm F L '0R 0X L0R T L L L0R x S0 m W0 m [0 m v &&
0x127ff4…128188 Dummy {f00=0x005e, f01=0x0190, f02=» ` 1 % `* J F " D ` 1j 0 1 ` 3 $ `* ` 3j 2 3 `" W-d " ` `"0X `f * ' x 4 * 7 , ; . J F " D " f !X 4 d " ` `"0X `f "4 0X 0X 0R "P
0x128188…12831c Dummy {f00=0x005e, f01=0x0190, f02=» u0 O y0 O J F " D @4 L0R :R6 ?R L j ?R 8R %L $L! $L / && n J F " D b /W b $ 'I ` L `!*` a`h a! ! aW W j b J F " D b ` ` j ` 1 % `* ` 1j 0 1 ` 3 $
0x12831c…1284b0 Dummy {f00=0x005e, f01=0x0190, f02=» ! ! L 0R f b N 3 T ` 0 X & B h R m d } t J F " D @ !8R4 La F j W L 0R 4 4 ' L0R , .
0x1284b0…128644 Dummy {f00=0x005e, f01=0x0190, f02=»L0R 4 " L $L @ H j ( 8 1 H 5 X h x J F " D A !0R 0R P :R?R0X % L>%
0x128644…1287d8 Dummy {f00=0x005e, f01=0x018e, f02=» & - 4 D 5 $ 6 F 4 7 J D 8 D T 9 D d : D t ; D < D = D > D ? D @ R A T B
0x1287d8…12896c Dummy {f00=0x005e, f01=0x0190, f02=» J F " D @RRRRW-A _ ) @ _ _ ) A _ & m FW @ _ ) H 0R T 0 ( R ( b r . + J F " D X 0X P R m FWf" 5 R 0X 0R /P%H ) m F / 3
0x12896c…128b00 Dummy {f00=0x005e, f01=0x0190, f02=» 0 & . ( < H & 1 X & h & v & * & NUMBER: 9999 " gU & & & (
0x128b00…128c94 (1, 140) Dummy {f00=0x005e, f01=0x0190, f02=» " U ( $ U , & EJ GODKENDT < & V ( d # p & & & & JOBNAME: & k & & BATCHNAME: & l &
0x128c94…128e28 Dummy {f00=0x005e, f01=0x018e, f02=»ISC SKRIVNING $ A $ A & ( 6 B & R & ` & n " FLOPPY DISC SKRIVNING | $ A & KLARN $ K & & (
0x128e28…128fbc Dummy {f00=0x005e, f01=0x0190, f02=» & & ( $ 0 & @ & N & LISTNING j $ A $ A ( & & & LISTNING $ A
0x128fbc…129150 Dummy {f00=0x005e, f01=0x0190, f02=» & LISTNING $ A 0 AFBRYDES @ $ A Z $ A j & z & ( 0 & & DATO: 99-99-99 " SA &
0x129150…1292e4 Dummy {f00=0x005e, f01=0x0190, f02=» & UD: 99999E " % 2 & B & P ( ^ 5 j & z DEVICE $ & : & & #% & ! FILE $ !%
0x1292e4…129478 Dummy {f00=0x005e, f01=0x0190, f02=» $ #% & & " & 0 $ $ OLD DATA SET IDENTIFIER: > $ $% f & v & & $ % OLD VOLUME SEQUENCE NO:: $ %% & & & &
0x129478…12960c Dummy {f00=0x005e, f01=0x018e, f02=» ( ( & ( . ) : " * TTTTTTTTTTTTTTTTTTTT9O J " * % p ( + " , TTTTTTTTTTTTTTTTTTTT9- " , % ( - " . ZZZZZZZZZZZZZZZZZZ
0x12960c…1297a0 Dummy {f00=0x005e, f01=0x40f8, f02=» " 2 999999999999999999999- " 2 % * ( : 3 F " 4 999999999999999999999- V " 4 % | ( F A ? () m FH ( # $ / @ /! ! " ?R4 4 4 4 4 ; @ ZZZZZZZZZZZZZZZZ
0x1297a0…129934 (1, 141) Dummy {f00=0x005e, f01=0x8190, f02=» * + 001 $ + , 999999 0 " ,S F & V & d ( r - ~ & SLUTD . 99999G " . % & & ( / &
0x129934…129ac8 Dummy {f00=0x005e, f01=0x8190, f02=»TTTTTTTT9O | " 3 % ( " 4 . " 5 TTTTTTTTTTTTTTTTTTTT9- > " 5 % d ( t 6 " 7 BBBBBBBBBBBBBBBBBBBB9- " 7 % ( 8 " 9 999999999999999999999-
0x129ac8…129c5c Dummy {f00=0x005e, f01=0xc028, f02=»4 4 4 4 4 d 0 @ $ " 4 . " 5 TTTTTTTTTTTTTTTTTTTT9- > " 5 % d ( t 6 " 7 BBBBBBBBBBBBBBBBBBBB9- " 7 % ( 8 " 9 999999999999999999999-
0x129c5c…129df0 Dummy {f00=0x005e, f01=0x2008, f02=» A L = KMD09 DATE = 810326 6876PACK NBR = 0001 8~ L `
0x129df0…129f84 Dummy {f00=0x005e, f01=0x0190, f02=» & %A & * SYMBOLIC: " $ *A < & &A L & / ^ & n + FORMAT | $ + & , 6: $ , & fA & &A & -
0x129f84…12a118 Dummy {f00=0x005e, f01=0x0190, f02=» / 7: $ / & fA " & 'A 4 & D 0 SYMBOLIC: R $ 0A l & &A | & 1 & 1 FORMAT $ 1 & 2 8: $ 2 &
0x12a118…12a2ac Dummy {f00=0x005e, f01=0x4154, f02=» 4 FORMAT $ 4 & " 5 9: 0 $ 5 B & fA R & )A d & t 6 SYMBOLIC: $ 6A & &A & 3 & & & U ( 2 -
0x12a2ac…12a440 Dummy {f00=0x005e, f01=0x4014, f02=» PNOD ) @ ) ! ! ! ! ! !(!0!8!@!H!P!`)P+p
0x12a440…12a5d4 (1, 142) Dummy {f00=0x005e, f01=0x018e, f02=» @ H IDENT DE40ST TRA 10.0 80-10-10 F1 O1111 REL 10.0 80-04-11 DE40ST H $$$TRA4 Z DE40ST l > : DECLRA4 DECLRNA DECLRS0 DENT01F DEOPBC DEPMSK. DEPRUT- 2 . DERRS DERROR OPCL T:ATTF T:GETA T:GETF & "
0x12a5d4…12a768 Dummy {f00=0x005e, f01=0x0190, f02=» x 4 H j
0x12a768…12a8fc Dummy {f00=0x005e, f01=0x0190, f02=» " ! ( % 8 0 H J F " D @e kU lU( .AdIe 1XFW 1XFAn@mIe RW R6 . R_ @n_ Ief( $A6 X ] e f h i " o J F "
0x12a8fc…12aa90 Dummy {f00=0x005e, f01=0x0190, f02=» Z $ 4 D T " d t J F " D @e@dKeN@ @ @ $ * h Rh R_ + , R 2 RRRR R_ 0X 1XF0 M & & 40
0x12aa90…12ac24 Dummy {f00=0x005e, f01=0x0190, f02=» P W ;a=a P " R & R V T W V E + : V & 6 I [ [ [ [ $ [ [ &! P h h ; h ; h b~ z " ! ! R 2` { z " P ! R 2` { 1 ! { [ Z h
0x12ac24…12adb8 Dummy {f00=0x005e, f01=0x0190, f02=» [ Q* h bx h d R [ Z { h bx z 9e! W Z : V I _ , " -! 9H X" ,9 -9d_ Z H D & H D % [ ( k >| : { : j $0T j` Pb 9 _ j $0T [
0x12adb8…12af4c Dummy {f00=0x005e, f01=0x0190, f02=» ) V E k $0T Wr W W I j [ k : Z !0 , !0P4 0 > R* 4 R :d" 8 R ! :DW ! 9 R R _. : ; : 9F 9F#03 T jP kT T : & 9! " : $ : T W V 9! R
0x12af4c…12b0e0 Dummy {f00=0x005e, f01=0x0190, f02=» | 7 F l p t x6 &90 A! P K 4 0 A! P K 4 0 Av P K 4 0 Av P K 4 0 Av e 4 0 Av e 4 @ 0 >0 P 64 <0 P 54 0 P A 4 !0 P 34 E bR * )bR* I 0 A R V 4 0 A R V K E I b )*R b R*
0x12b0e0…12b274 (1, 143) Dummy {f00=0x005f, f01=0x0190, f02=»$"` uV> av uajb " " b ( bR#j $"u b^&jb "R" b bR j $" b 5W j ""u j $" j &"* u`Hp *? v? u? ` _ u) 5 ? j` " $ `: 0 ja " " a ua j $" ` )? u`? j` " "_2As ua? @u@v E 0 ? !"? 1AxW-j " - R R _9 W I
0x12b274…12b408 Dummy {f00=0x005f, f01=0x0190, f02=» -jc " c c R c R _a _) +_% 0 c c 4 ! ! ! " V 0 _ " b )*R b R* !4 "bR * )bR* & 4 @k@lja " "j` " $(` AlW= ` Rgjd " "j ""a (a # d ja " $ a a RCj ""d a d`W ` (a AkIl'W a R jd " $j $"` a R `vIs `! d` 4
0x12b408…12b59c Dummy {f00=0x005f, f01=0x0190, f02=»! "R! ! ! " Q E! "! [ 3@ 4 H #@ C!!"C! !T !!RT "!R0! A!R 4 H 0 _ #! R R W A T A @p Cv! Cv! H Vv0 Av Tg `vP Ap ?v` #! RTj v " % j !! jGv " ! Apj !'! $! P Ap R$ ! ! " T Ev "v P Ev & 0! AvR 5@ Cv!W Hp ?@
0x12b59c…12b730 Dummy {f00=0x005f, f01=0x0190, f02=» / s 4 : m `!: )`W} d$ bd !bRV ! 55? jc "R&#c91j " b "&m j (" ) bRc* c*jR&"c "dR? b W jd "R$ d U d!: jR$"d "bR c* REjR""b jR$" _` b{ ! a ja!! b(jR(" b1 a A c!V a ) ) !aR: ? jR$"c bR* b "`R: Hp _ ba `=jR "` `c_V c Ap_1Ar 0 mP r
0x12b730…12b8c4 Dummy {f00=0x005f, f01=0x0190, f02=»t` t*_- t: `"_- `" Ab !&R`bm &R` m? < m@s $R*: ` a&j` "R&fRa* `*jR&"` "`* @s R: " R: ab !aR: "V )( ) )? j` "R$jR " "aR: a! ` % !`R: b "R A9 `!j` "R$_! r : '6c ( ]@s $R*: Cq< RU !bR "V ! 6 ! 7 AvT ? )? bjd
0x12b8c4…12ba58 Dummy {f00=0x005f, f01=0x0190, f02=»{c? 8? Hq ` j`!! b'$`! _ ? %_5Aq_ : RF `* a!bR`1 a `1 a! a+ "%R? : !%RP RU `* a!b a 1R` `1 a! a+ ? ApWg RBbR(" 1bR* "cR? a!: jR$"a "cR: ca_0AqW3jRd" "'R< !`R< ja "R$ `!< a & `a_ %6c : b " ! d %d8 !? !'RP 5<
0x12ba58…12bbec Dummy {f00=0x005f, f01=0x0190, f02=»_ )? Cp< b! a! !ba < b b)*R b b R* $ba & a b? 4? ` a*Hs `W ` V ! 50W< a"j " &h a& &V! a a! a j " $ ` _E )W a&jb " a 4 d"@s$ " As d R jd " $jc " * c d ? 4 j " " & 6 jR " 4 j "R !"4 !!4
0x12bbec…12bd80 Dummy {f00=0x005f, f01=0x0190, f02=» _ F " DSF T X AC FC SV TC PTS-DE SYSFIL " % ( + . 50 < p p !`R< ja "R$ `!< a & `a_ %6c : b " ! d %d8 !? !'RP 5<
0x12bd80…12bf14 (1, 144) Dummy {f00=0x005f, f01=0x0190, f02=» ApAt : As k # *V ) ? Ht ? l b ,V ) ? Ht ? It (? cv: a*mja " &"asz kj a"c a"j &"a `: ` a* >j ""` j $" l `v: j a"` a" uv: j a"u a"j &"a c: Uj &"* W ? `#j "" j $" a*_zj $"c `: ?j ""` `c cv_(ja " &"as c`_z cv
0x12bf14…12c0a8 Dummy {f00=0x005f, f01=0x0190, f02=» uv ud d , ) v )? jo !v bo!&k bo'&l ) oV5 ! ! " : * o | Uj |)"` It ? u) 5 ? 4? : VJ! 5 ) ? `b b W `!: RAjR""b bR* z "`R: b !bR: jR$"` "bR? bR* z "bR? '6c @rT `# : !`RV ! 5 ? )? a7b &Ra0
0x12c0a8…12c23c Dummy {f00=0x005f, f01=0x0190, f02=» Kq %_1Aq_ : @s RHl Hk RU "#R? a$W a" k `#0 kT : j` "Ra ` =Ar_ ApAs0 kTY k # *RnHp. a$*a j " $ Z : j` " &*`*K a,Hp bk & a? 0 lT$ l b ,R. a& a =bl & a? #X;! 5 ? b: ja " &*a* a,_' )? c# bc !bRR)jc "R&"c* 5W d7b &Rd k jc "R$ c
0x12c23c…12c3d0 Dummy {f00=0x005f, f01=0x0190, f02=» h~ !X8H !( @ h~ U !j~ ! ! !P !0" ! N_m ? j !! '( !1j !& !j !! ( * j +& 'j !! ( j ! ! ! 8 ? jy " $ j !! 1 j !! 2 j !! (I !Y A ! p ! ? ! 0 !h & !&P !0" !< _ ( ) +h & '&
0x12c3d0…12c564 Dummy {f00=0x005f, f01=0x0190, f02=» LD A10,COM04+STKCOM RESTORE A10 ! P ABR* A14 " ( P " : P " B P " J P EJECT " R P " ` P* MMU TABLES * " h P " ~ P " . PMMDDIV EQU *-REL DDIV (& SYSLDA) MM-TABLE " P IFT MMUPAG=1 " P RES 16 " P XIF " P " $ PMMTAB EQU *-RE
0x12c564…12c6f8 Dummy {f00=0x005f, f01=0x0190, f02=» PMMEND EQU * # ( P DATA 0 CURRENT SEGMENT BASE IN T:A # 4 PTTPAG DATA 0 LAST ENTRY (FROM BOTTOM) IN MM-TAB # D P DATA 0 # | 0 PLSTPAG EQU TTPAG-* DISPL. TO 'ENTRY-POINTER' # ( P DATA 0 APPL. CONTROL BLOCK ADDRESS # P # PMMBEG EQU TABBE-* #
0x12c6f8…12c88c Dummy {f00=0x005f, f01=0x018e, f02=»*** # b 6 P*** *** $ 6 P************************************************* $ F 6 P************************************************* $ P $ P $ , P** E R R O R ** $ , P**
0x12c88c…12ca20 Dummy {f00=0x005f, f01=0x0190, f02=» , P** ** % , P** INPUT :A1=SOP-MESSAGE ** % 4 , P** OUTPUT:A2=RELATIVE CALLING ADDRESS** % d , P** (REG-CONTENTS IS SAVED) ** % , P**************************************** % P % PERROR EQU *
0x12ca20…12cbb4 (1, 145) Dummy {f00=0x006e, f01=0x018e, f02=» A7,10 LOAD DIVIDEND CDV20 EQU * ( $ CALL I:EVA0 ADDRESS TO INPUT STRING 0 LDK A2,1 LOAD START WEIGHT SUR A10,A10 ZERO TO SUM CDV30 EQU * CWR A5,A9 RF(E) CDV60 IF FINISHED LC A4,-1,A5 GET CHARACTER P
0x12cbb4…12cd48 Dummy {f00=0x006e, f01=0x0002, f02=»
0x12cd48…12cedc Dummy {f00=0x006e, f01=0x0190, f02=» L H IDENT DECOMP TRA 10.0 81-07-10 F1 O1111 REL 10.0 80-04-11,81-07-10,EV DECOMP T $$$TRAC f DECOMP x 2 . CDV10 CDV110T CDV111 CDVDK DDMMCK1 MMDDCKL 1 7
0x12cedc…12d070 Dummy {f00=0x006e, f01=0x4020, f02=»4 C L @ 7-10 F1 O1111 REL 10.0 80-04-11,81-07-10,EV DECOMP T $$$TRAC f DECOMP x 2 . CDV10 CDV110T CDV111 CDVDK DDMMCK1 MMDDCKL 1 7
0x12d070…12d204 Dummy {f00=0x006e, f01=0x2008, f02=» SUM STILL > 0 RF(Z) CDVOUT IF CDV-OK ADR A10,A7 GET CHECK DIGIT > LDK A6,1 INDICATE NOT OK b CDVOUT EQU * & ! CALL I:EVA0 GET CHECK-DIGIT ITEM * & STR A10,A9 STORE CHECK-DIGIT IF ERROR LD A1,2,A13 GET STACK B
0x12d204…12d398 Dummy {f00=0x006e, f01=0x0190, f02=» F IDENT ASSRUT D @ CHANFCK CREVOL CREFIL DELFIL GETVOL COPYDD GETFREL CHVOL $ J F " SURVEY UPDBOL UPDBIN SETBY TESTB CLEARB MSKOUT` RDSECT SETOCCN l 4 0 SETFRE VOLNAMR ATTWB CMPIND GETIND! RESTOR CHANFCK
0x12d398…12d52c Dummy {f00=0x006e, f01=0x0190, f02=» ~ I:RT1 CREFIL L , , ( 5 D ' @ , ( O p CRFILE , ( i ' DELFIL , (
0x12d52c…12d6c0 Dummy {f00=0x006e, f01=0x0190, f02=» z COPVOL , ( * GETVOL Z , ( ' n , ( ( B Q C C , ( ! ( B T B $ ' , ( A D
0x12d6c0…12d854 (1, 146) Dummy {f00=0x0042, f01=0x4102, f02=» L H IDENT D:TB40 TRA 10.0 82-02-19 F1 O1111 REL 10.0 80-04-11,81-08-27,EV D:TB40 T D:TB40T f * & B z * & = B @
0x12d854…12d9e8 Dummy {f00=0x0042, f01=0x4182, f02=» L H IDENT Z:TB50 TRA 10.0 82-02-19 F1 O1111 REL 10.0 80-04-11,81-08-27,EV Z:TB50 T Z:TB50T f & z & & = & [ * & y * &
0x12d9e8…12db7c Dummy {f00=0x0042, f01=0x4106, f02=» L H IDENT D:TB50 TRA 10.0 82-02-19 F1 O1111 REL 10.0 80-04-11,81-08-27,EV D:TB50 T D:TB50T f * & F Q 0 [ z * & 0 0 ^ e f h n t = ~ F @
0x12db7c…12dd10 Dummy {f00=0x0042, f01=0x4128, f02=» L H IDENT Z:TB60 TRA 10.0 82-02-19 F1 O1111 REL 10.0 80-04-11,81-08-27,EV ! Z:TB60 ! T Z:TB60T ! f * & ! z * & ! $ = ! T
0x12dd10…12dea4 Dummy {f00=0x0042, f01=0x40fe, f02=» L H IDENT D:TB60 TRA 10.0 82-02-19 F1 O1111 REL 10.0 80-04-11,81-08-27,EV " D:TB60 " T D:TB60T " f * & > " z * & < > F0 " = N " > " @ " T
0x12dea4…12e038 Dummy {f00=0x0042, f01=0x40d8, f02=» L H IDENT C:CB60 TRA 10.0 82-02-19 F1 O1111 REL 10.0 80-04-11,81-08-27,EV # C:CB60 # T C:CB60C # f & `@ @ # z # ( # ( # @ # = N " > " @ " T
0x12e038…12e1cc Dummy {f00=0x0042, f01=0x40d6, f02=» L H IDENT D:CB60 TRA 10.0 82-02-19 F1 O1111 REL 10.0 80-04-11,81-08-27,EV $ D:CB60 $ T D:CB60C $ f * & & $ z 0 $ & $ @ $ = N " > " @ " T
0x12e1cc…12e360 Dummy {f00=0x0042, f01=0x407c, f02=» L H IDENT DEDDIV TRA 10.0 82-02-19 F1 O1111 REL 10.0 80-04-11,81-08-27,EV % $$$TRA % T % f@ % x & $ z 0 $ & $ @ $ = N " > " @ " T
0x12e360…12e4f4 (1, 147) Dummy {f00=0x006e, f01=0x018e, f02=»RT POINT % v P B FDWR55 & P* & " PFDWR50 & , 0 P* FIRST OUTPUT RECORD FOR THIS INPUT RECORD & : , P MOVE BIN15,BIN4 NO OF COPIED CHARACTERS & n P MOVE DEBIN3,W0 START POINT & P* & PFDWR55 & 0 P CBNG BIN16,BIN15,FDWR59 ROOM FOR EVERYTHING &
0x12e4f4…12e688 Dummy {f00=0x006e, f01=0x0190, f02=» & d " P MOVE STR2A,=C'&&' LOOK FOR & ' PFDWR57 ' . P SUB DEBIN1,W1 ' < P CBNG DEBIN1,W0,FDWR59 NO & ' R P MOVE DEBIN2,DEBIN1 ' v * P MATCH BPOOL(BIN9),DEBIN2,W1,STR2A,W0 ' P BNOK FDWR57 NOT FOUND ' P MOVE DEBIN1,BIN15 & FOUND ' $ P SUB DEB
0x12e688…12e81c Dummy {f00=0x006e, f01=0x0190, f02=»IN10),DEBIN3,BIN4,BPOOL(BIN9),W0 COPY FIRST ' P* ( 4 PFDWR60 ( > $ P* INSERT RECORD NO - BCDI21(W5) ( L 0 P CBE WORK(W17),W0,FDWR70 SKIP IF LENGTH ZERO ( t . P MOVE STRG10A,BCDI21(W5) CONVERT RECORD NO ( P MOVE BIN4,W10 LENGTH FIELD ( ( P SUB BIN4,
0x12e81c…12e9b0 Dummy {f00=0x006e, f01=0x0190, f02=» NO - BCDI21(W4) ( ~ 0 P CBE WORK(W19),W0,FDWR80 SKIP IF LENGTH ZERO ) 0 P MOVE STRG10A,BCDI21(W4) CONVERT SEQUENCE NO ) N P MOVE BIN4,W10 LENGTH FIELD ) * P SUB BIN4,WORK(W19) FIELD START OF NO ) 8 P XCOPY BPOOL(BIN10),WORK(W18),WORK(W19),STRG10A,BIN4
0x12e9b0…12eb44 Dummy {f00=0x006e, f01=0x0190, f02=»ROOM, CONTINUATION ) t P* INSERT EOR * 4 P CBE BCDI21(W4),=D'1',FDWR85 FIRST IN SEQUENCE? * 0 , P ADD BIN16,WORK(W15) NO, ADD USED HEADER * h PFDWR85 * P MOVE STR2A,=X'7F' EOR CHAR * 4 P XCOPY BPOOL(BIN10),BIN16,W1,STR2A,W1 INSERT EOR * P B FDW
0x12eb44…12ecd8 Dummy {f00=0x006e, f01=0x018e, f02=»ONTINUATION * P SUB BIN15,W1 + ( P MOVE STR2A,=X'21' CONTINUATION MARK + * * P XCOPY BPOOL(BIN10),BIN15,W1,STR2A,W1 + V PFDWR150 + P MOVE REQFD,=W'128' + P MOVE CWFD,W0 + 2 P CALL FDIO,DSFD,X'06',BPOOL(BIN10),REQFD,CWFD + * P SUB BIN15,D
0x12ecd8…12ee6c Dummy {f00=0x006e, f01=0x0190, f02=» P MOVE BIN13,BIN16 , . P CBE VSEIND,W1,FDWR00 WRITE REST OF BUFFER , P RET 6 , P P* , ^ PFDWRBAL , h 4 P MOVE BPOOL(BIN10),=X'00' INITIATE OUTPUT BUFFER , x P EDIT BPOOL(BIN9),FFD999 , P MOVE BIN4,RECLGD , . P XCOPY BPOOL(BIN10),W0,BIN4,BP
0x12ee6c…12f000 Dummy {f00=0x006e, f01=0x018e, f02=»,DSFD,X'06',BPOOL(BIN10),REQFD,CWFD WRITE BLOCKS , PFDWRRET - 8 P RET - H PFDWR20 - T P RET 2 - b P PEND - p P EJECT - ~ P* - P* FDLOAD LOAD FD PROCEDURE - P* - P - P - PFDLOAD PROC - P MOVE CWFD,W7 HDR RECORD - P
0x12f000…12f194 (1, 148) Dummy {f00=0x0078, f01=0x0190, f02=» - v P BZ FDLOA2 . P MOVE BIN7,=X'000F' . P CALL MASK,BIN4,BIN7 . 6 P BNOK FDLOA2 . R P RET . f PFDLOA2 . r P MOVE CWFD,W7 HDR RECORD . P MOVE REQFD,=W'128' . 8 P CALL FDIO,DSFD,X'B8',BPOOL(BIN10),REQFD,CWFD UNLOAD . P RET 2 . P P
0x12f194…12f328 Dummy {f00=0x0078, f01=0x0190, f02=» 2 =TRANSMIT . & P* RET 4 =CUMPULSORY FIELD EMPTHY / P* RET 6 =BCD-FIELD OVERFLOW / > " P* RET 8 =EDIT BUFFER OVERFLOW / b P* / $ P* APPL = FIELD INTO BUFFER / 4 P* APPL = 1 FIELD INTO BUFFER, TRANSMIT BLOCK / $ P* APPL = 2 NO TRANS
0x12f328…12f4bc Dummy {f00=0x0078, f01=0x0190, f02=»ET GENERAL) / ` . P* FOLLOWING APPL ONLY USED IN BATCHHEADER 0 0 P* APPL = 13 EOR-CHAR AS END OF EACH RECORD 0 F J P* APPL = 14 CONT-CHAR IN END OF EACH DATA RECORD WHICH IS CONTINUED 0 z 0 P* APPL = 15 INSERT BACHNAME IN THIS FIELD 0 8 P* APPL = 16
0x12f4bc…12f650 Dummy {f00=0x0078, f01=0x0190, f02=»D IS THE RECORD NUMBER FIELD 0 v J P* APPL = 3XXX THIS FIELD IS THE CONTINUATION SEQUENCE NUMBER FIELD 1 $ P* 1 r P* BIN4 = WORK ITEM 1 | P* BIN7 = MAX LENGTH 1 P* BIN8 = FIELD NUMBER 1 " P* BIN9 = INDEX TO EDIT BUFFER 1 " P* BIN13= DELETE
0x12f650…12f7e4 Dummy {f00=0x0078, f01=0x0190, f02=»STRING FOR DATE/TIME/CONVERTED BCD 1 ~ $ P* WORK(W15) = LENGTH OF HEADER 2 * * P* WORK(W16) = RECORD NUMBER POSITION 2 R ( P* WORK(W17) = RECORD NUMBER LENGTH 2 2 P* WORK(W18) = CONTINUATION SEQUENCE POSITION 2 0 P* WORD(W19) = CONTINUATION SEQUENCE L
0x12f7e4…12f978 Dummy {f00=0x0078, f01=0x018e, f02=» CBG CONT,W0,CON100 2 PCON090 3 P MOVE BPOOL(BIN9),=X'20' 3 * , P MOVE BCDI21(W4),=D'0' RESET SEQUENCE NO 3 J ( P MOVE BIN13,W0 RESET DELETE POINTER 3 z ( P MOVE BIN16,BIN13 LOAD EDIT POINTER 3 PCON100 3 P CLEAR FSUPR 3 P TBF BSUPR,CON105 3
0x12f978…12fb0c Dummy {f00=0x0078, f01=0x0190, f02=» 3 | P BOK CON130 4 P BN CONRET ALL FIELD DONE 4 & P B CONER1 COMPULSORY FIELD EMPTHY 4 > PCON130 4 h P GETCTL 0,VSEIND GET APPL 4 v P* 4 2 P CBL VSEIND,=W'1000',CON131 NORMAL APPL VALUE 4 6 P CBL VSEIND,=W'2000',APL1000 HANDLE RECORD HEADE
0x12fb0c…12fca0 Dummy {f00=0x0078, f01=0x0190, f02=»CLEAR ERROR APPL 4 P B CON131 5 P* 5 * P* HANDLE RECORD HEADER: 5 4 4 P* APPL=1000, WHERE XXX=LENGTH OF RECORD HEADER 5 T PAPL1000 5 P SUB VSEIND,=W'1000' 5 8 P MOVE WORK(W15),VSEIND WORK(W15) = LENGTH OF HEADER 5 P B CON100 5 P*
0x12fca0…12fe34 (1, 149) Dummy {f00=0x00a7, f01=0x018e, f02=»L 1,BIN7 GET MAXL OF FIELD 5 0 P MOVE WORK(W17),BIN7 SET LENGTH OF RECORD NO 6 " * P SUB VSEIND,=W'2000' ADJUST APPL VALUE 6 V P B CON131 FURTHER HANDLING 6 P* 6 0 P* HANDLE POSITION AND LENGTH OF SEQUENCE NO 6 PAPL3000 6 < P MOVE WORK(W18),BIN1
0x12fe34…12ffc8 Dummy {f00=0x00a7, f01=0x018e, f02=» * P SUB VSEIND,=W'3000' ADJUST APPL VALUE 7 P B CON131 FURTHER HANDLING 7 2 P* 7 T P* 7 ^ PCON131 7 h P* 7 v P CBNE BTYPE,W3,CON150 7 P* DATA RECORD 7 * P IB VSEIND,CON132,CON100,CON135,CON140 7 PCON132 7 P B CON190 7 P*
0x12ffc8…13015c Dummy {f00=0x00a7, f01=0x0190, f02=» 7 | P CLEAR FSUPR 8 P B CON190 8 P* 8 . P* 8 8 PCON150 8 B ( P* IN HEADER, SET GENERAL CONDITIONS 8 P 6 P IB VSEIND,CON152,CON100,CON155,CON160,CON152, C 8 | , P CON152,CON152,CON152,CON152,CON152, C 8 0 P CON152,CON152,CON165,CON170,CON1
0x13015c…1302f0 Dummy {f00=0x00a7, f01=0x0190, f02=» B CON100 8 P* 9 PCON160 9 P* GENERAL NO SUPPRESSION 9 * P CLEAR BSUPR 9 L P B CON100 9 ` P* 9 r PCON165 9 | P* EOR CHARACTER 9 P B CON100 9 P* 9 PCON170 9 P* CONTINUATION CHARACTER 9 * P SET BCONT INDICATE CONT. CH
0x1302f0…130484 Dummy {f00=0x00a7, f01=0x0190, f02=»UB BIN4,BIN7 LENGTH FIELD 9 P SUB BIN4,BIN16 : " 6 P EDSUB BPOOL(BIN9),BIN16,FMTBATCH INSERT BATCHNAME : : P B CON260 : t P* : PCON180 : , P* FIELDS (STARTING WITH &) ARE NOT SPLIT : $ P CLEAR SPLITFL NOT NORMAL SPLIT : P B CON100 : P
0x130484…130618 Dummy {f00=0x00a7, f01=0x018e, f02=»E FIELD : x PCON195 ; P GETCTL 1,BIN7 GET MAXL ; P TSTCTL 0 TEST - ALPHA ; > P BZ CON200 BCD ; P ; r P* ALPHA ; z P ; * P MOVE BIN4,W188 GET EDIT BUFFER LENGTH ; * P SUB BIN4,BIN7 ADJUST WITH MAX LENGTH ; , P SUB BIN4,BIN16 ADJUST WIT
0x130618…1307ac Dummy {f00=0x00a7, f01=0x018e, f02=» ; PCON200 < & P CBG BIN7,W21,CONER2 BCD-OVERFLOW < * P MOVE BIN4,W188 GET EDIT BUFFER LENGTH < @ * P SUB BIN4,BIN7 ADJUST WITH MAX LENGTH < n , P SUB BIN4,BIN16 ADJUST WITH EDIT POINTER < P BN CONER3 < P GETCTL 3,BIN4 GET SCHK < P CALL TEST
0x1307ac…130940 Dummy {f00=0x00a7, f01=0x0190, f02=» P B CON280 = PCON210 = 2 P EDSUB BPOOL(BIN9),BIN16,FRMBCS EDIT 21 DIGITS = $ & P MOVE BIN4,W22 SET PICTURE LENGTH = Z ( P ADD BIN7,W1 ADJUST POINTER FOR SIGN = P B CON250 = P = PCON220 = P TBF FSUPR,CON230 = $ P EDSUB BPOOL(BIN9),BIN
0x130940…130ad4 (1, 150) Dummy {f00=0x00a8, f01=0x0190, f02=»Hm @ P&@jP A W3Ao ,P !_ g  L@mAo? H 0 Hm ! &@h@jP #W @fPO $0 TF 8 h ! !T #P ( -& Ub & ? Ub & @ .P )gC Ao? AzAzT @mA *P @ ? @ @m8 @xP 2 !! h ( & H #: W ? Im1I~ I & h ( & H I ) ?"I ) ?#I H
0x130ad4…130c68 Dummy {f00=0x00a8, f01=0x0190, f02=»({ % H~ - !gC Az? @z? H~ C < I 0 ! W 0 ! W /8 0 ! 0$? Az % h ( & J K @o?(@m!gC C~8)?(@zC~8*?(?$Km Jz I gC T Io Ao #: _3Ao@ T / 2 %% + % # #g W ! #g #20 ! &_ I~ Jo K _@ @ !0$@o ( A P W @ 6 / A _ Hm 0 ! A %
0x130c68…130dfc Dummy {f00=0x00a8, f01=0x0190, f02=»%% 10 ! !0$ (V ? ##2 2 2 322 1& _ Co<$Cm<$Cz8$0 ! 2 %% 4 !X b !U *8 0% ? h ! & ? C <$ h ( & H I ?0 g( " @oW $ 2 %% 5 ): @oA ?6C <$Hz @ T Cm<$Io I~ #V - ? @o@z Ub & 5 +@mA{ *V#( - 1 0 ! 0$ { &{ mU_"@{Ao?
0x130dfc…130f90 Dummy {f00=0x00a8, f01=0x0190, f02=»% !g2 @m?:?;@ _/0 + 0 , A~4 @~P + , 4 _ ; $ - ; Y i . & E 3 N + n | i Q m
0x130f90…131124 Dummy {f00=0x00a8, f01=0x0190, f02=» " ! I Y R *FTX J BC JC FTJBJD FETCHING FORMAT: FROM DISC. @ UF 0 % * & j j Ub & 5 +@mA{ *V#( - 1 0 ! 0$ { &{ mU_"@{Ao?
0x131124…1312b8 Dummy {f00=0x00a8, f01=0x0190, f02=» !4 "4 #4 $4 4 @} 8 In06 W 0 ! WP0 ! WII~ 0 ! W?H 0 ! W50 !! W.@n6 0 ! W 0 ! I~ 0 ! W H 0 ! W 0 ! (0 : H~ ? 0% P : _ 0' P C{P A )? H ? 0(HoO !H~ 0) $ W 0) # ! 2 W 0 0 /1& _5K~|0 ! _
0x1312b8…13144c Dummy {f00=0x00a8, f01=0x0190, f02=»( 2" + " ( " # I ? & 0, P ? 0 Pm0* 0 -8 Wa0* 6 > W<( , ! :d # !_'0* P 0' P o8W o;d o "_HI 0* 2 W @ @ @ @ @h@j #U 0- ! Td$ + " , 0( %@|PI0' T /hZ " !T f ! j !! H{ ? 0' P 0. P H !?
0x13144c…1315e0 Dummy {f00=0x00a8, f01=0x0190, f02=»88" .4 #H 0Hj 0 #T @m?#@hP !PP01 02 V 0 !_ $ + ?$I 03WL0' P 0 9%0 !01 02 T10' T2WO0 ! 04W #I{ H~ I K 0% 0(? A 0$P#:&;%Io 0. P H 2 ' ' ' ? JA J K{ 0* ?( !01 02 8 _^J #H 0' P 0. P T 2 ' 0' T 2 )
0x1315e0…131774 (1, 151) Dummy {f00=0x00aa, f01=0x018e, f02=»NL U P FMEND V P V PFDCERR FRMT V P FNL V 4 P FEOR V @ P FNL V N P FTEXT 'S[NDNING' V Z P FTEXT ' AVBRYTS' V t P FLINK HDR V P FEOR V P FNL V P FMEND V P V PFFDHDR FRMT V P FNL V P FEOR V P FNL V "
0x131774…131908 Dummy {f00=0x00aa, f01=0x018e, f02=» " P FTEXT 'FLOPPY DISC SKRIVNING' W P FTEXT ' KLAR' W * P FLINK HDR W @ P FEOR W R P FNL W ` P FMEND W l P W z PFFDERR FRMT W P FNL W P FEOR W P FNL W " P FTEXT 'FLOPPY DISC SKRIVNING' W P FTEXT ' AFBRYDES' W P FLINK HDR W
0x131908…131a9c Dummy {f00=0x00aa, f01=0x0190, f02=» P FLINK HDR X P FMEND X P X $ PFLSEND FRMT X , P FNL X @ P FEOR X L P FNL X Z P FTEXT 'LISTNING KLAR' X f P FLINK HDR X P FEOR X P FNL X P FMEND X P X PFLSERR FRMT X P FNL X P FEOR X P FNL X P FTEXT '
0x131a9c…131c30 Dummy {f00=0x00aa, f01=0x0190, f02=»DATO: ' X P FMEL '99-99-99',DATE Y P FILLR ' ',4 Y . P FTEXT 'TID: ' Y B P FMEL '99-99-99',TIME Y X P FEOR Y v P FNL Y P FTEXT 'IND: ' Y P FMEL '99999',NUMBER Y P FTEXT ' UD: ' Y P FMEL '99999',BCDI21(W5) Y P FEOR Y P
0x131c30…131dc4 Dummy {f00=0x00aa, f01=0x0190, f02=»COPY STSAVE(W3) Y P FTAB 20 Z P FCOPY =C'FILE' Z ( P FILLR '-',1 Z @ P FCOPY =C'NAME' Z T P FILLR ':',1 Z l P FINP 32 Z P FCOPY STR8B Z P FNL Z P FCOPY =C'EXPIRATION DATE:' Z P FINP 32 Z P FCOPY STR6A Z P FNL Z ( P FCO
0x131dc4…131f58 Dummy {f00=0x00aa, f01=0x0190, f02=»32 Z P FCOPY STR2A [ P FNL [ P FKI 1 [ * P FCOPY HEX00 [ 8 P FMEND [ L P EJECT [ Z PFRMC99 FRMT [ h P FSL [ | P FLINK FFD999 [ P FMEND [ P [ PFFD001 FRMT [ P FCOPY =C'001' [ P FMEL '999999',DATE [ P FILLR ' ',60
0x131f58…1320ec Dummy {f00=0x00aa, f01=0x0190, f02=» ',60 [ P FILLR ' ',62 P FMEND $ P EJECT 2 PFRMALP FRMT @ P FCOPY :FMTITEM T P FMEND l P z P PFRMBCD FRMT * P FMEL '999999999999999999999',:FMTITEM P FMEND P PFRMTCD FRMT * P FMEL 'TTTTTTTTTTT
0x1320ec…132280 Dummy {f00=0x00aa, f01=0x4106, f02=» PFRMZCD FRMT ] , P FMEL 'BBBBBBBBBBBBBBBBBBBB9-',:FMTITEM ] PFRMBCS FRMT ] H , P FMEL '999999999999999999999-',:FMTITEM ] P FMEND ] P ] P ] PFRMTID FRMT ] P FMEL '999',BCD13A ] P FMEND ] P ] P ] P END ] @ ] TT
0x132280…132414 (1, 152) Dummy {f00=0x00aa, f01=0x2008, f02=» ^ 0 & " ADD DEBIN2,W1 UPDATE FIELD NUMBER GETFLD 2,DEBIN2,DEBIN3 < BOK DEC130 BN DEC900 ALL FIELD DONE p & ! B DEC920 COMPULSORY FIELD EMPTHY DEC130 GETCTL 0,DEBIN5 GET APPL @ MOVE DEBINW1,DEBIN4 LOA
0x132414…1325a8 Dummy {f00=0x00aa, f01=0x018e, f02=» P FTEXT 'TID: ' G P FMEL '99-99-99',TIME G P FEOR G 8 P FNL G F P FTEXT 'IND: ' G R P FMEL '99999',NUMBER G h P FTEXT ' UD: ' G P FMEL '99999',BCDI21(W5) G P FEOR G P FNL G P FMEND G P EJECT G PFCAS02 FRMT G P F
0x1325a8…13273c Dummy {f00=0x00aa, f01=0x0190, f02=» P FILLR '-',1 H P FCOPY =C'NAME' H P FILLR ':',1 H 0 P FINP 32 H D P FCOPY STR8B H T P FNL H h P FCOPY =C'EXPIRATION DATE:' H t P FINP 32 H P FCOPY STR6A H P FNL H ( P FCOPY =C'OLD DATA SET IDENTIFIER:' H P FINP 32 H P FCO
0x13273c…1328d0 Dummy {f00=0x00aa, f01=0x0190, f02=»PY HEX00 H P FMEND I P EJECT I PFRMC99 FRMT I , P FSL I @ P FLINK FFD999 I L P FMEND I b P I p PFFD001 FRMT I x P FCOPY =C'001' I P FMEL '999999',DATE I P FILLR ' ',60 I P FILLR ' ',56 I P FMEND I P I PFFD999 F
0x1328d0…132a64 Dummy {f00=0x00aa, f01=0x0190, f02=» PFRMALP FRMT J P FCOPY :FMTITEM J P FMEND J 0 P J > P J F PFRMBCD FRMT J N * P FMEL '999999999999999999999',:FMTITEM J b P FMEND J P J PFRMTCD FRMT J * P FMEL 'TTTTTTTTTTTTTTTTTTTT9',:FMTITEM J P FMEND J P J PFRMTCS FRM
0x132a64…132bf8 Dummy {f00=0x00aa, f01=0x408c, f02=»,:FMTITEM J r P FMEND K P K P K ( PFRMTID FRMT K 0 P FMEL '999',BCD13A K D P FMEND K ^ P K l P K t P END K |@ K P FMEND J P J PFRMTCD FRMT J * P FMEL 'TTTTTTTTTTTTTTTTTTTT9',:FMTITEM J P FMEND J P J PFRMTCS FRM
0x132bf8…132d8c Dummy {f00=0x00aa, f01=0x2008, f02=» L 0 & " ADD DEBIN2,W1 UPDATE FIELD NUMBER GETFLD 2,DEBIN2,DEBIN3 < BOK DEC130 BN DEC900 ALL FIELD DONE p & ! B DEC920 COMPULSORY FIELD EMPTHY DEC130 GETCTL 0,DEBIN5 GET APPL @ MOVE DEBINW1,DEBIN4 LOA
0x132d8c…132f20 Dummy {f00=0x00aa, f01=0x0190, f02=»{c? 8? Hq ` j`!! b'$`! _ ? %_5Aq_ : RF `* a!bR`1 a `1 a! a+ "%R? : !%RP RU `* a!b a 1R` `1 a! a+ ? ApWg RBbR(" 1bR* "cR? a!: jR$"a "cR: ca_0AqW3jRd" "'R< !`R< ja "R$ `!< a & `a_ %6c : b " ! d %d8 !? !'RP 5<
0x132f20…1330b4 (1, 153) Dummy {f00=0x00aa, f01=0x018e, f02=»BIN7 ADJUST WITH MAX LENGTH M , P SUB BIN4,BIN16 ADJUST WITH EDIT POINTER N $ P BN CONER3 N T P GETCTL 3,BIN4 GET SCHK N f P CALL TESTB,BIN4,W15 SIGN N P BZ CON220 NO N P TBF FSUPR,CON210 N P CBE FC,W9,CON205 N $ P EDSUB BPOOL(BIN9),BIN
0x1330b4…133248 Dummy {f00=0x00aa, f01=0x001a, f02=» P X ` h p x x 'H
0x133248…1333dc Dummy {f00=0x00aa, f01=0x0190, f02=» * P IDENT NYCONV REL=1.0,VER=1 820420/NJ P UPD 82-02-22/EV 2 P UPD 81-08-27/EV L P UPD 80-12-12/SHB f P UPD 80-07-14/JAER P DDUM DEDDIV P PDIV P ENTRY DECONV P P P EXT DEPOOL P EXT TESTB
0x1333dc…133570 Dummy {f00=0x00aa, f01=0x0190, f02=» EXT GETFWD P EXT ADJUST P EXT FDIO ( P EJECT : P* H P* KEYTABLE R P* j PCLR EQU X'8F' CLEAR t PCAN EQU X'91' CANCEL PRET EQU X'98' RETURN PENT EQU X'8C' ENTER P* PKEYTAB KTAB CLR,CAN,RET,EN
0x133570…133704 Dummy {f00=0x00aa, f01=0x0190, f02=»PAR EQU X'00' P EJECT @ P* THIS MODULE TAKE CARES OF THE DIFFERENT CONVERTIONS- $ P* -METHODS h @ P* ONE OF THEM IS ALREADY PREPAIRED FOR YOUR PRINTOUT). 2 P* THE OTHER YOU HAVE TO CODE YOURSELVES. D P* FORM
0x133704…133898 Dummy {f00=0x00aa, f01=0x0190, f02=» = 2 DATACOMMUNICATION IN 8 P* = 3 CASETTE OUTPUT : 8 P* = 4 PRINTOUT LP/GP v 2 P* = 5 DISCFILE : P*
0x133898…133a2c Dummy {f00=0x00aa, f01=0x0190, f02=»= 8 FREEZE BATCHES ON USER FILE n 8 P* = 9 LISTING LP/GP ( 8 P* TYPE = TYPE OF HANDLING d . P* = 1 OPEN : P* = 2 BATCHHEAD-RECORD
0x133a2c…133bc0 Dummy {f00=0x00aa, f01=0x0190, f02=» = 5 CLOSE 4 P* RETCON = RETURN-CODE * , P* = 0 OK b > P* /= 0 ERROR MESSAGE-NUMBER F P* =-1 SKIP CURR BATC
0x133bc0…133d54 (1, 154) Dummy {f00=0x00aa, f01=0x0190, f02=»T BATCH (CANCEL) D P* =-4 ABORT CONVERSION (RETURN) < P* =-5 DELETE THIS BATCH ` > P* =-6 GET CURRENT RECORD : P* INPUT VARIABLE: BIN4 = FC
0x133d54…133ee8 Dummy {f00=0x00aa, f01=0x0190, f02=»TA,DISCFD,FLOPPY,DELETE,FREEZE,LISTE PRECEIV , PDISCFD : PCASSET H PERROR V * P MOVE RETCON,W4 'FUNCTION NOT ALLOWED? d P B RETURN P* * P* THIS IS THE PRINTOUT FUNCTION P* PPRINTA : P IB TYPE,PR100,PR200
0x133ee8…13407c Dummy {f00=0x00aa, f01=0x0190, f02=»* PPR100 $ P PERF ATTDEV,BIN6 ATTACH DEVICE P BOK DECOOK @ P B RETURN T P EJECT f P* t P* ~ 4 P* PRINTOUT OF THE DIFFERENT RECORD TYPES P* PPR200 P EDWRT DEDSPRT,FCOUNT P BNOK PR298
0x13407c…134210 Dummy {f00=0x00aa, f01=0x0190, f02=»UT DEVICE NOT OP....' x P B RETURN GO AND CLOSE P* < * P* CLOSE DEVICE = DETACH PRINTER F P* t PPR500 ~ P PERF DETPRT DETACH DEVICE P B RETURN P EJECT P* 8 P* THIS ROUTINE DELETE BATCHES ON THE USERF
0x134210…1343a4 Dummy {f00=0x00aa, f01=0x0190, f02=»(W8),W0,DEL110 NOT THE WHOLE FILE P MOVE DATE,HEX00 RESET DATE * PDEL110 N P B RETURN P EJECT n P* | . P* THIS ROUTINE FREEZE BATCHES ON USER FILE P* P PFREEZE 8 P IB TYPE,FRE100,FRE200,FRE300 OPEN BATCHHEAD DAT
0x1343a4…134538 Dummy {f00=0x00aa, f01=0x0190, f02=» PFRE300 P B DECOOK P* BALANCE RECORD ( PFRE400 @ P B DECOOK N P* CLOSE ` PFRE500 p P B DECOOK ~ P EJECT P* P* OK P* PDECOOK P MOVE RETCON,W0 PRETURN P RET P EJE
0x134538…1346cc Dummy {f00=0x00aa, f01=0x0190, f02=» P* P* SEND SOF P* SEND '001'+DATE P* : P D PDC100 L P* Z P* BATCHHEAD RECORD d P* ~ PDC200 PDC300 P* P* TRANSM BLOCKS P* P P* P* SEND '999' P* SEND EOF P
0x1346cc…134860 Dummy {f00=0x00aa, f01=0x0190, f02=» 6 P IB TYPE,LS100,LS200,LS300, OPEN,BATCHHEAD,DATA, C P LS400,LS500 BALANCE,CLOSE > P b PLS100 j P TBT LSBAB,LS170 x * P PERF GETBUF GET 3 CONSECUTIVE BUFFERS P B LS110 OK P B LSERR ERROR PLS110 ( P MOVE BCDI21(W5),=
0x134860…1349f4 (1, 155) Dummy {f00=0x00ae, f01=0x40b8, f02=»ESVCHM/=><DL!ASUFTCE ~ * & i +-*:;&V?'ZGRNX()MEVTFCAB/,LRAP & TXZY+S,.><0-VEX J & j * z @
0x1349f4…134b88 Dummy {f00=0x00ae, f01=0x40fe, f02=» L H IDENT D:CB50 TRA 10.0 - - F1 O1111 REL 10.0 80-04-11,81-08-27,EV D:CB50 T D:CB50C f * & >0 0 0 z * & M U t ~ 0 = > @
0x134b88…134d1c Dummy {f00=0x00ae, f01=0x4132, f02=» L H IDENT Z:TB20 TRA 10.0 - - F1 O1111 REL 10.0 80-04-11,81-08-27,EV Z:TB20 T Z:TB20T f & & z & & = & [ & y & *
0x134d1c…134eb0 Dummy {f00=0x00ae, f01=0x4102, f02=» L H IDENT D:TB20 TRA 10.0 - - F1 O1111 REL 10.0 80-04-11,81-08-27,EV D:TB20 T D:TB20T f * & B z * & 0 0 0 " = ( . B @
0x134eb0…135044 Dummy {f00=0x00ae, f01=0x0190, f02=» L H IDENT Z:TB30 TRA 10.0 - - F1 O1111 REL 10.0 80-04-11,81-08-27,EV Z:TB30 T Z:TB30T f * & z * & * & = &
0x135044…1351d8 Dummy {f00=0x00ae, f01=0x4010, f02=» @ 0 TRA 10.0 - - F1 O1111 REL 10.0 80-04-11,81-08-27,EV Z:TB30 T Z:TB30T f * & z * & * & = &
0x1351d8…13536c Dummy {f00=0x00ae, f01=0x4106, f02=» L H IDENT D:TB30 TRA 10.0 - - F1 O1111 REL 10.0 80-04-11,81-08-27,EV D:TB30 T D:TB30T f * & F @ B D F H z * & J L N P R T V @ = f F @
0x13536c…135500 Dummy {f00=0x00ae, f01=0x40e8, f02=» L H IDENT Z:TB40 TRA 10.0 - - F1 O1111 REL 10.0 80-04-11,81-08-27,EV Z:TB40 T Z:TB40T f * & z $ $ @ F @
0x135500…135694 (1, 156) Dummy {f00=0x00af, f01=0x4102, f02=» L H IDENT D:TB40 TRA 10.0 - - F1 O1111 REL 10.0 80-04-11,81-08-27,EV D:TB40 T D:TB40T f * & B z * & = B @
0x135694…135828 Dummy {f00=0x00af, f01=0x4182, f02=» L H IDENT Z:TB50 TRA 10.0 - - F1 O1111 REL 10.0 80-04-11,81-08-27,EV Z:TB50 T Z:TB50T f & z & & = & [ * & y * &
0x135828…1359bc Dummy {f00=0x00af, f01=0x4106, f02=» L H IDENT D:TB50 TRA 10.0 - - F1 O1111 REL 10.0 80-04-11,81-08-27,EV D:TB50 T D:TB50T f * & F Q 0 [ z * & 0 0 ^ e f h n t = ~ F @
0x1359bc…135b50 Dummy {f00=0x00af, f01=0x4128, f02=» L H IDENT Z:TB60 TRA 10.0 - - F1 O1111 REL 10.0 80-04-11,81-08-27,EV ! Z:TB60 ! T Z:TB60T ! f * & ! z * & ! $ = ! T
0x135b50…135ce4 Dummy {f00=0x00af, f01=0x40fe, f02=» L H IDENT D:TB60 TRA 10.0 - - F1 O1111 REL 10.0 80-04-11,81-08-27,EV " D:TB60 " T D:TB60T " f * & > " z * & < > F0 " = N " > " @ " T
0x135ce4…135e78 Dummy {f00=0x00af, f01=0x40d8, f02=» L H IDENT C:CB60 TRA 10.0 - - F1 O1111 REL 10.0 80-04-11,81-08-27,EV # C:CB60 # T C:CB60C # f & `@ @ # z # ( # ( # @ # = N " > " @ " T
0x135e78…13600c Dummy {f00=0x00af, f01=0x40d6, f02=» L H IDENT D:CB60 TRA 10.0 - - F1 O1111 REL 10.0 80-04-11,81-08-27,EV $ D:CB60 $ T D:CB60C $ f * & & $ z 0 $ & $ @ $ = N " > " @ " T
0x13600c…1361a0 Dummy {f00=0x00af, f01=0x407c, f02=» L H IDENT DEDDIV TRA 10.0 - - F1 O1111 REL 10.0 80-04-11,81-08-27,EV % $$$TRA % T % f@ % x & $ z 0 $ & $ @ $ = N " > " @ " T
0x1361a0…136334 (1, 157) Dummy {f00=0x00af, f01=0x2008, f02=» &
0x136334…1364c8 Dummy {f00=0x00af, f01=0x0190, f02=»FDWR56 NOT FOUND 6 P MOVE BIN15,DEBIN2 7 P B FDWR59 7 2 0 P* NORMAL SPLIT, USE COMPLETE AVAILABLE ROOM 7 D PFDWR57 7 x P MOVE BIN15,BIN4 7 P B FDWR59 7 ( P* NO OF CHARS, FIT IN AVAILABLE ROOM 7 PFDWR58 7 $ P MOVE BIN15,BIN16 SEND ALL CHA
0x1364c8…13665c Dummy {f00=0x00af, f01=0x0190, f02=» OUTPUT BUFFER 7 l * P* BIN4 = NO OF CHARS IN OUTPUT BUFFER 8 P MOVE BIN4,BIN15 8 D P ADD BIN4,DEBIN3 ADD HEADER 8 P* 8 P MOVE DEBIN1,RECLGD 8 " P SUB DEBIN1,BIN4 NO OF BLANKS 8 B P XCOPY BPOOL(BIN10),BIN4,DEBIN1,BPOOL(BIN9),BIN16 MOVE BLANK
0x13665c…1367f0 Dummy {f00=0x00af, f01=0x0190, f02=»10A,BCDI21(W5) CONVERT RECORD NO 8 " P MOVE DEBIN1,W10 LENGTH FIELD 9 ( * P SUB DEBIN1,WORK(W17) FIND START OF NO 9 N : P XCOPY BPOOL(BIN10),WORK(W16),WORK(W17),STRG10A,DEBIN1 9 | P* 9 PFDWR70 9 ( P* INSERT SEQUENCE NO - BCDI21(W4) 9 0 P CBE WORK(
0x1367f0…136984 Dummy {f00=0x00af, f01=0x0190, f02=» DEBIN1,WORK(W19) FIELD START OF NO 9 : P XCOPY BPOOL(BIN10),WORK(W18),WORK(W19),STRG10A,DEBIN1 : , P* : j PFDWR80 : t P* HANDLE END OF RECORD : 2 P CBG BIN16,BIN15,FDWR100 NO ROOM, CONTINUATION : P* INSERT EOR : P MOVE STR2A,=X'7F' EOR CHA
0x136984…136b18 Dummy {f00=0x00af, f01=0x0190, f02=» CHAR NEEDED : x P TBF BCONT,FDWR150 ; P* CONTINUATION ; . P MOVE DEBIN1,RECLGD ; F P CBNE BIN4,DEBIN1,FDWR140 ; b P SUB BIN4,W1 ; P SUB BIN15,W1 ; PFDWR140 ; ( P MOVE STR2A,=X'21' CONTINUATION MARK ; ( P XCOPY BPOOL(BIN10),BIN4,W1,ST
0x136b18…136cac Dummy {f00=0x00af, f01=0x0190, f02=»OVE CWFD,W0 ; 6 P DELETE BPOOL(BIN9),CWFD,BIN15 DELETE WHAT IS SEND < P SUB BIN16,BIN15 < N P MOVE BIN13,BIN16 < f P CMP VSEIND,W1 < $ P BE FDWR00 WRITE REST OF BUFFER < P RET 6 < P* < PFDWRBAL < 4 P MOVE BPOOL(BIN10),=X'00' INITIATE
0x136cac…136e40 Dummy {f00=0x00af, f01=0x018e, f02=»RSEND < P* = P* = PFDWRSEND = " P MOVE REQFD,=W'128' = 2 P MOVE CWFD,W0 = N > P CALL FDIO,DSFD,X'06',BPOOL(BIN10),REQFD,CWFD WRITE BLOCKS = d PFDWRRET = P RET = PFDWR20 = P RET 2 = P PEND = P EJECT = P* = P* F
0x136e40…136fd4 (1, 158) Dummy {f00=0x00af, f01=0x0190, f02=» 6 P CALL FDIO,DSFD,X'B7',BPOOL(BIN10),REQFD,CWFD LOAD > P XSTAT DSFD,BIN4 > > P CALL TESTB,BIN4,W5 IBM > V P BZ FDLOA2 > v P MOVE BIN7,=X'000F' > P CALL MASK,BIN4,BIN7 > P BNOK FDLOA2 > P RET > PFDLOA2 > P MOVE CWFD,W7 HDR RECORD >
0x136fd4…137168 Dummy {f00=0x00af, f01=0x0190, f02=»* > 8 P* CONVERSI0N OF DATA ENTRY RECORDS TO BPOOL BUFFER ? P* RET =RECORD CONVERTED ? F P* RET 2 =TRANSMIT ? h & P* RET 4 =CUMPULSORY FIELD EMPTHY ? P* RET 6 =BCD-FIELD OVERFLOW ? " P* RET 8 =EDIT BUFFER OVERFLOW ? P* ? $ P* APPL
0x137168…1372fc Dummy {f00=0x00af, f01=0x0190, f02=»= 3 SUPPRESS LEADING ZEROES (IF HEADER:SETR GENEREL) ? @ P* APPL = 4 LENGTH OF FIELD=MAXL (IF HEADER: SET GENERAL) @ > " P* LISTE: ALWAYS SET @ . P* FOLLOWING APPL ONLY USED IN BATCHHEADER @ 0 P* APPL = 13 EOR-CHAR AS END OF EACH RECORD @
0x1372fc…137490 Dummy {f00=0x00af, f01=0x0190, f02=» LISTE: ALWAYS CLEAR @ 0 P* APPL = 15 INSERT BACHNAME IN THIS FIELD A 8 P* APPL = 16 FIELDS (STARTING WITH &) ARE NOT SPLIT A R & P* LSTE: ALWAYS CLEAR A P* A 0 P* APPL = 1XXX XXX=LENGTH OF RECORD HEADER A : P* APPL = 2XXX T
0x137490…137624 Dummy {f00=0x00af, f01=0x0190, f02=»IN4 = WORK ITEM A P* BIN7 = MAX LENGTH B P* BIN8 = FIELD NUMBER B 4 " P* BIN9 = INDEX TO EDIT BUFFER B R " P* BIN13= DELETE START POINTER B x P* BIN16= EDIT POINTER B P* B 4 P* BIN15 = NO OF CHAR INSERTED IN OUTPUT RECORD B 8 P* STRG10A
0x137624…1377b8 Dummy {f00=0x00af, f01=0x0190, f02=»* WORK(W17) = RECORD NUMBER LENGTH B 2 P* WORK(W18) = CONTINUATION SEQUENCE POSITION C , 0 P* WORD(W19) = CONTINUATION SEQUENCE LENGTH C b 0 P* BCDI21(W4) = CONTINUATION SEQUENCE NUMBER C " P* BCDI21(W5) = RECORD NUMBER C P* C PCONV PROC CONT
0x1377b8…13794c Dummy {f00=0x00af, f01=0x0190, f02=»OVE BIN13,W0 RESET DELETE POINTER C ( P MOVE BIN16,BIN13 LOAD EDIT POINTER D * PCON100 D V P CLEAR FSUPR D d P TBF BSUPR,CON105 D x P SET FSUPR D PCON105 D $ P ADD BIN8,W1 UPDATE FIELD NUMBER D " P CALL GETFWD,BIN7,2,BIN8,BIN4 D P CALL AD
0x13794c…137ae0 Dummy {f00=0x00af, f01=0x0190, f02=»0,VSEIND GET APPL D P* E 2 P CBL VSEIND,=W'1000',CON131 NORMAL APPL VALUE E $ 6 P CBL VSEIND,=W'2000',APL1000 HANDLE RECORD HEADER E Z 2 P CBL VSEIND,=W'3000',APL2000 HANDLE RECORD NO E 4 P CBL VSEIND,=W'4000',APL3000 HANDLE SEQUENCE NO E $ P MOVE
0x137ae0…137c74 (1, 159) Dummy {f00=0x0162, f01=0x0190, f02=» U P FNL V P FMEND V P V " PFDCERR FRMT V * P FNL V > P FEOR V J P FNL V X P FTEXT 'S[NDNING' V d P FTEXT ' AVBRYTS' V ~ P FLINK HDR V P FEOR V P FNL V P FMEND V P V PFFDHDR FRMT V P FNL V P FEOR V P
0x137c74…137e08 Dummy {f00=0x0162, f01=0x0190, f02=» FNL V " P FTEXT 'FLOPPY DISC SKRIVNING' W P FTEXT ' KLAR' W 2 P FLINK HDR W H P FEOR W Z P FNL W h P FMEND W t P W PFFDERR FRMT W P FNL W P FEOR W P FNL W " P FTEXT 'FLOPPY DISC SKRIVNING' W P FTEXT ' AFBRYDES' W P FLI
0x137e08…137f9c Dummy {f00=0x0162, f01=0x0190, f02=»" W P FLINK HDR X P FMEND X P X * PFLSEND FRMT X 2 P FNL X F P FEOR X R P FNL X ` P FTEXT 'LISTNING KLAR' X l P FLINK HDR X P FEOR X P FNL X P FMEND X P X PFLSERR FRMT X P FNL X P FEOR X P FNL X P F
0x137f9c…138130 Dummy {f00=0x0162, f01=0x0190, f02=»TEXT 'DATO: ' X P FMEL '99-99-99',DATE Y P FILLR ' ',4 Y 4 P FTEXT 'TID: ' Y H P FMEL '99-99-99',TIME Y ^ P FEOR Y | P FNL Y P FTEXT 'IND: ' Y P FMEL '99999',NUMBER Y P FTEXT ' UD: ' Y P FMEL '99999',BCDI21(W5) Y P FEOR Y
0x138130…1382c4 Dummy {f00=0x0162, f01=0x0190, f02=» P FCOPY STSAVE(W3) Z P FTAB 20 Z P FCOPY =C'FILE' Z . P FILLR '-',1 Z F P FCOPY =C'NAME' Z Z P FILLR ':',1 Z r P FINP 32 Z P FCOPY STR8B Z P FNL Z P FCOPY =C'EXPIRATION DATE:' Z P FINP 32 Z P FCOPY STR6A Z P FNL Z (
0x1382c4…138458 Dummy {f00=0x0162, f01=0x0190, f02=» FINP 32 Z P FCOPY STR2A [ P FNL [ $ P FKI 1 [ 0 P FCOPY HEX00 [ > P FMEND [ R P EJECT [ ` PFRMC99 FRMT [ n P FSL [ P FLINK FFD999 [ P FMEND [ P [ PFFD001 FRMT [ P FCOPY =C'001' [ P FMEL '999999',DATE [ P FILLR '
0x138458…1385ec Dummy {f00=0x0162, f01=0x018e, f02=»ILLR ' ',60 [ P FILLR ' ',62 P FMEND * P EJECT 8 PFRMALP FRMT F P FCOPY :FMTITEM Z P FMEND r P P PFRMBCD FRMT * P FMEL '999999999999999999999',:FMTITEM P FMEND P PFRMTCD FRMT * P FMEL 'TTTTT
0x1385ec…138780 Dummy {f00=0x0162, f01=0x4124, f02=» P ] PFRMZCD FRMT ] , P FMEL 'BBBBBBBBBBBBBBBBBBBB9-',:FMTITEM ] P FMEND ] P P ] ^ PFRMBCS FRMT ] f , P FMEL '999999999999999999999-',:FMTITEM ] z P FMEND ] P ] P ] PFRMTID FRMT ] P FMEL '999',BCD13A ] P FMEND ] P ]
0x138780…138914 (1, 160) Dummy {f00=0x00b1, f01=0x4102, f02=» L H IDENT D:TB40 TRA 10.0 82-05-05 F1 O1111 REL 10.0 80-04-11,81-08-27,EV D:TB40 T D:TB40T f * & B z * & = B @
0x138914…138aa8 Dummy {f00=0x00b1, f01=0x4182, f02=» L H IDENT Z:TB50 TRA 10.0 82-05-05 F1 O1111 REL 10.0 80-04-11,81-08-27,EV Z:TB50 T Z:TB50T f & z & & = & [ * & y * &
0x138aa8…138c3c Dummy {f00=0x00b1, f01=0x4106, f02=» L H IDENT D:TB50 TRA 10.0 82-05-05 F1 O1111 REL 10.0 80-04-11,81-08-27,EV D:TB50 T D:TB50T f * & F Q 0 [ z * & 0 0 ^ e f h n t = ~ F @
0x138c3c…138dd0 Dummy {f00=0x00b1, f01=0x4128, f02=» L H IDENT Z:TB60 TRA 10.0 82-05-05 F1 O1111 REL 10.0 80-04-11,81-08-27,EV ! Z:TB60 ! T Z:TB60T ! f * & ! z * & ! $ = ! T
0x138dd0…138f64 Dummy {f00=0x00b1, f01=0x40fe, f02=» L H IDENT D:TB60 TRA 10.0 82-05-05 F1 O1111 REL 10.0 80-04-11,81-08-27,EV " D:TB60 " T D:TB60T " f * & > " z * & < > F0 " = N " > " @ " T
0x138f64…1390f8 Dummy {f00=0x00b1, f01=0x40d8, f02=» L H IDENT C:CB60 TRA 10.0 82-05-05 F1 O1111 REL 10.0 80-04-11,81-08-27,EV # C:CB60 # T C:CB60C # f & `@ @ # z # ( # ( # @ # = N " > " @ " T
0x1390f8…13928c Dummy {f00=0x00b1, f01=0x40d6, f02=» L H IDENT D:CB60 TRA 10.0 82-05-05 F1 O1111 REL 10.0 80-04-11,81-08-27,EV $ D:CB60 $ T D:CB60C $ f * & & $ z 0 $ & $ @ $ = N " > " @ " T
0x13928c…139420 Dummy {f00=0x00b1, f01=0x407c, f02=» L H IDENT DEDDIV TRA 10.0 82-05-05 F1 O1111 REL 10.0 80-04-11,81-08-27,EV % $$$TRA % T % f@ % x & $ z 0 $ & $ @ $ = N " > " @ " T
0x139420…1395b4 (1, 161) Dummy {f00=0x00b1, f01=0x0190, f02=»NW2,FD350,FD360,FD170 CLR,CAN,RET P B FD350 ENT * PFD370 > " P PERF FDRVOL READ VOLUME LABEL L P B FD375 OK r P B FD360 ERROR PFD375 . P IB DEBINW2,FD380,FD360,FD170 CLR,CAN,RET P* ENT P PFD380 $ P PERF FD
0x1395b4…139748 Dummy {f00=0x00b1, f01=0x0190, f02=»TCON,=W'-6' GET CURRENT RECORD P B RETURN & P 8 PFDEOF05 @ P SET FDEOF INDICATE EOF P & P MOVE WORK(W14),BIN8 SAVE FIELD NO p P B FD360 P PFDEOF10 P CLEAR FDEOF * P MOVE BIN10,WORK(W13) GET BUFFER INDEX $ P MOV
0x139748…1398dc Dummy {f00=0x00b1, f01=0x0190, f02=»,W0 > P CALL FDIO,DSFD,X'06',BPOOL(BIN10),REQFD,CWFD WRITE BLOCKS P B FD340 N P EJECT ^ PFD400 l P* BALANCE FORMAT z P B FD300 PFD500 * P MOVE BIN10,WORK(W13) GET BUFFER INDEX P TBT FDBAB,FD560 ABORT $ P MOVE
0x1398dc…139a70 Dummy {f00=0x00b1, f01=0x0190, f02=» FD570 OK P B FDERR ERR ! P B FD510 EOE ! & PFD510 ! : P MOVE REQFD,=W'128' ! H P MOVE CWFD,W7 ! d 8 P CALL FDIO,DSFD,X'B8',BPOOL(BIN10),REQFD,CWFD UNLOAD ! z PFD515 ! * P MOVE DEBINW4,=W'55' CHANGE FLOPPYDISK ! P PERF DERROR,KEYTAB !
0x139a70…139c04 Dummy {f00=0x00b1, f01=0x0190, f02=»5 ! " P PERF FDRVOL READ VOLUME LABEL " P B FD530 OK " 0 P B FD510 ERROR " D PFD530 " Z . P IB DEBINW2,FD535,FD510,FD170 CLR,CAN,RET " h P* ENT " PFD535 " $ P PERF FDWVOL WRITE VOLUME LABEL " P B FD540 OK " P B FD510 ERROR " P
0x139c04…139d98 Dummy {f00=0x00b1, f01=0x0190, f02=»05 " PFD550 # P WAIT DSFD # P CLEAR FDBAB # * P MOVE CWFD,W7 HDR SECTOR # > P MOVE REQFD,=W'128' # ^ 8 P CALL FDIO,DSFD,X'B8',BPOOL(BIN10),REQFD,CWFD UNLOAD # z P CLEAR FDEOF RESET EOF # P MOVE CWFD,W7 # P MOVE REQFD,=W'128' # 8 P C
0x139d98…139f2c Dummy {f00=0x00b1, f01=0x0190, f02=»AS BUFFERS # & P PERF DEPOOL,W6,BIN10,BIN4,STRG10A $ P B DECOOK $ < PFD560 $ N P MOVE STRG10A,HEX00 $ P GETTIME STRG10A $ x P MOVE TIME,STRG10A $ P EDWRT DEDSPRT,FFDERR $ P B FD550 $ P $ PFD570 $ P MOVE STRG10A,HEX00 $
0x139f2c…13a0c0 Dummy {f00=0x00b1, f01=0x0190, f02=»* GETBUF GET TWO CONSECUTIVE BUFFERS $ P* % , P* BUFFER INDEX IN WORK(W13) % 6 P* % Z P % d PGETBUF PROC % l * P MOVE BIN10,W3 TOTAL NUMBER OF BUFFERS % , P MOVE BIN4,W3 NO. OF COSECUTIVE BUFFERS % @ P PERF DEPOOL,W2,BIN10,BIN4,STRG10A GET 3 C
0x13a0c0…13a254 (1, 162) Dummy {f00=0x00b1, f01=0x0190, f02=»WORKING BUFFER INDEX % z " P ADD BIN9,W1 INDEX EDIT BUFFER & 4 P MOVE BPOOL(BIN10),=X'00' RESET TRANSMIT BUFFER & B P RET & z PGETBU2 & P RET 2 & P PEND & P EJECT & P* & , P* FDRVOL READ VOLUME LABEL AND DISPLAY & P* & PFDRVOL
0x13a254…13a3e8 Dummy {f00=0x00b1, f01=0x018e, f02=»FD,W7 & > P CALL FDIO,DSFD,X'91',BPOOL(BIN13),REQFD,CWFD READ (HDR1) ' P XSTAT DSFD,BIN4 ' P P MOVE BIN7,=X'086F' ' h P CALL MASK,BIN4,BIN7 ' P BNOK FDRV02 ' P MOVE BIN7,=W'66' ' 8 P XCOPY STR6A,W0,W6,BPOOL(BIN13),BIN7 EXPIRATION DATE ' 4
0x13a3e8…13a57c Dummy {f00=0x00b1, f01=0x0190, f02=» ' j P MOVE RECLGD,STR6B ( P MOVE BIN7,=W'45' ( " 6 P XCOPY STR2A,W0,W2,BPOOL(BIN13),BIN7 GET FD NUMBER ( < P ATTFMT FCAS02 ( v P SET DEPROMPT ( P DISPLAY 0,W1,W0 ( P THOME ( & P MOVE DEBINW3,W1 REQUESTED LENGTH ( 2 P NKI .NE,DEDSDYKB,STR1
0x13a57c…13a710 Dummy {f00=0x00b1, f01=0x0190, f02=»EL ( v P* ) P ) P ) PFDWVOL PROC ) $ P MOVE BIN7,=W'66' ) 8 & P MOVE BIN13,BIN10 GET BUFFER INDEX ) R ( P ADD BIN13,W2 ADJUST FOR READ BUFFER ) | * P EDSUB BPOOL(BIN13),BIN7,FRMVOL2 DATE ) P MOVE BIN7,W5 ) 0 P EDSUB BPOOL(BIN13),BIN7,FRM
0x13a710…13a8a4 Dummy {f00=0x00b1, f01=0x0190, f02=» ) l P MOVE CWFD,W7 * > P CALL FDIO,DSFD,X'95',BPOOL(BIN13),REQFD,CWFD WRITE (HDR1) * P XSTAT DSFD,BIN4 * ` P MOVE BIN7,=X'024F' * x P CALL MASK,BIN4,BIN7 * P * P BNOK FDWVO2 * & P ADD FDCNT,=D'1' UPDATE FD NUMBER * P MOVE CWFD,=W'26'
0x13a8a4…13aa38 Dummy {f00=0x00b1, f01=0x0190, f02=»WVO2 * P RET 2 + P PEND + P EJECT + ( P* + 6 P* LSWRIT WRITE BLOCKS + @ P* + ^ P + h PLSWRIT PROC + p PLSWR00 + " P* BIN16 NO OF CHARS TO SEND + . P* BIN4 AVAILABLE SPACE IN OUTPUT BUFFER + P* DEBIN3 LENGTH OF HEADER +
0x13aa38…13abcc Dummy {f00=0x00b1, f01=0x0190, f02=»RD LENGTH + v , P ADD BCDI21(W5),=D'1' ADD 1 TO RECORD NO , . P ADD BCDI21(W4),=D'1' ADD 1 TO SEQUENCE NO , B P CBE BCDI21(W4),=D'1',LSWR50 , t ( P* NOT FIRST TIME (SEQUENCE NO > 1) , , P* COPY HEADER PART, LENGTH IN WORK(W15) , , P SUB BIN4,WORK(W15)
0x13abcc…13ad60 Dummy {f00=0x00b1, f01=0x0190, f02=»PUT RECORD , n P MOVE DEBIN3,W0 START POINT - P* - 6 PLSWR55 - @ . P CBL BIN16,BIN4,LSWR58 ROOM FOR EVERYTING? - N P NO ROOM - $ P TBT SPLITFL,LSWR57 NORMAL SPLIT - P FIND PRECEDING & - , P MOVE DEBIN1,BIN4 START AT END OF RECORD - " P M
0x13ad60…13aef4 (1, 163) Dummy {f00=0x00b2, f01=0x0190, f02=» MATCH BPOOL(BIN9),DEBIN2,W1,STR2A,W0,W1 - P BNOK LSWR56 NOT FOUND . 0 P MOVE BIN15,DEBIN2 . N P B LSWR59 . h P*NORMAL SPLIT . z PLSWR57 . P MOVE BIN15,BIN4 . P B LSWR59 . ( P* NO OF CHARS, FIT IN AVAILABLE ROOM . PLSWR58 . $ P MOVE
0x13aef4…13b088 Dummy {f00=0x00b2, f01=0x0190, f02=»S INTO REMAINING PART OF OUTPUT BUFFER . * P* BIN4 = NO OF CHARS IN OUTPUT BUFFER / . P MOVE BIN4,BIN15 / P ADD BIN4,DEBIN3 ADD HEADER / t P* / P MOVE DEBIN1,RECLGD / " P SUB DEBIN1,BIN4 NO OF BLANKS / B P XCOPY BPOOL(BIN10),BIN4,DEBIN1,BPOO
0x13b088…13b21c Dummy {f00=0x00b2, f01=0x0190, f02=»H ZERO / j . P MOVE STRG10A,BCDI21(W5) CONVERT RECORD NO 0 " P MOVE DEBIN1,W10 LENGTH FIELD 0 @ * P SUB DEBIN1,WORK(W17) FIND START OF NO 0 f : P XCOPY BPOOL(BIN10),WORK(W16),WORK(W17),STRG10A,DEBIN1 0 P* 0 PLSWR70 0 ( P* INSERT SEQUENCE NO - BCDI
0x13b21c…13b3b0 Dummy {f00=0x00b2, f01=0x0190, f02=»ENGTH FIELD 0 ~ , P SUB DEBIN1,WORK(W19) FIELD START OF NO 1 : P XCOPY BPOOL(BIN10),WORK(W18),WORK(W19),STRG10A,DEBIN1 1 D P* 1 PLSWR80 1 P* HANDLE END OF RECORD 1 * P CBG BIN16,BIN15,LSWR100 NO ROOM, CONT 1 P* INSERT EOR 1 P B LSWRSEND 1
0x13b3b0…13b544 Dummy {f00=0x00b2, f01=0x0190, f02=»SEND 1 b P SUB BIN16,BIN15 2 P MOVE BIN13,BIN16 2 $ P CMP VSEIND,W1 2 > $ P BE LSWR00 WRITE RESET OF BUFFER 2 T P RET 6 2 | P* 2 PLSWRSEND 2 P WRITE DEDSPRT,BPOOL(BIN10) 2 PLSWRRET 2 P RET 2 P PEND 2 P EJECT 2 P* 2
0x13b544…13b6d8 Dummy {f00=0x00b2, f01=0x0190, f02=»ALL TESTB,BIN4,W2 EOE 2 P BZ FDWR10 3 P RET 4 END OF EXTENT 3 0 PFDWR10 3 L P MOVE BIN7,=X'024F' 3 Z P CALL MASK,BIN4,BIN7 3 v P BERR FDWR20 3 4 P IB BTYPE,FDWROP,FDWRHD,FDWRDATA,FDWRBAL,FDWRCL 3 PFDWROP 3 PFDWRCL 3 P B FDWR20 3
0x13b6d8…13b86c Dummy {f00=0x00b2, f01=0x0190, f02=»W0,BIN4,BPOOL(BIN9),W0 3 | P B FDWRSEND 4 P* 4 2 PFDWRDATA 4 < " P* BIN16 NO OF CHARS TO SEND 4 L . P* BIN4 AVAILABLE SPACE IN OUTPUT BUFFER 4 r P* DEBIN3 LENGTH OF HEADER 4 . P* BIN15 ACTUAL LENGTH OF INPUT DATA USED 4 P CMP BIN16,W0 4
0x13b86c…13ba00 Dummy {f00=0x00b2, f01=0x0190, f02=» ADD BCDI21(W4),=D'1' ADD 1 TO SEQUENCE NO 4 P CBE BCDI21(W4),=D'1',FDWR50 5 2 ( P* NOT FIRST TIME (SEQUENCE NO > 1) 5 V , P* COPY HEADER PART, LENGTH IN WORK(W15) 5 , P SUB BIN4,WORK(W15) MAKE ROOM FOR HEADER 5 & P MOVE DEBIN3,WORK(W15) START POINT 5
0x13ba00…13bb94 (1, 164) Opaque[0x194]
0x13bb94…13bd28 # DirEnt {nam=»OBDIR «, typ=»UF«, f00=0x0000, f01=0x0000, f02=0x3020, f03=0x0000}
0x13bb94…13bd28 IdxSect {
0x13bb94…13bd28 f00 = 0x0181 // 0x13bb94 @0x0
0x13bb94…13bd28 f01 = 0x0010 // 0x13bb96 @0x2
0x13bb94…13bd28 gno = [ // 0x13bb98 @0x4
0x13bb94…13bd28 [0x00]: C0x0181.0x0.0
0x13bb94…13bd28 [0x01]: C0x0182.0x0.0
0x13bb94…13bd28 [0x02]: C0x0183.0x2.0
0x13bb94…13bd28 [0x03]: C0x0183.0x3.0
0x13bb94…13bd28 [0x04]: C0x0184.0x0.0
0x13bb94…13bd28 [0x05]: C0x0184.0x1.0
0x13bb94…13bd28 [0x06]: C0x0184.0x2.0
0x13bb94…13bd28 [0x07]: C0x0184.0x3.0
0x13bb94…13bd28 ]
0x13bb94…13bd28 }
0x13bd28…13bebc Dummy {f00=0x0181, f01=0x000c, f02=»820510 > B ?D/ MASKN T:ATTF T:DISP T:DSC1 T:EDWR T:GETC T:GETT T:LWRI T:NKI T:PRINE T:THOMO T:TSTCO T:WAITR T:XSTAY TESTB ; F T:DISP T:DSC1 T:EDWR T:GETC T:GETT T:NKI T:PRINC T:THOMA T:TSTC2 T:WAITF T:WRIT T:XSTA0 TESTB ,D:TB
0x13bebc…13c050 Dummy {f00=0x0181, f01=0x0190, f02=» .T:AT10 820510 T:AT10A T:DT10 D:CB10 U:CB10 D:CB20 C:CB20 D:CB30 C:CB30 D:CB40A C:CB40A D:CB502 C:CB50F D:TB20 Z:TB20. D:TB30- Z:TB30 D:TB40 Z:TB40 D:TB50 Z:TB50 D:TB10 Z:TB10 D:DB10A Z:TB10A D:DB202 Z:TB10F D:DB30 Z:TB10. D:T
0x13c050…13c1e4 Dummy {f00=0x0181, f01=0x0190, f02=»T10 :A 6U:BTAB 820510 U:BTABB U:CB10 :C ,S:BTAB 820510 S:BTABB :B ,Z:TB10 820510 Z:TB10T ,D:TB10 820510 D:TB10T :T ,D:DB10 820510 D:DB10D > ,D:DB20
0x13c1e4…13c378 Dummy {f00=0x0181, f01=0x0190, f02=» 820510 D:CB10C : ,C:CB20 820510 C:CB20C $ ,D:CB20 820510 D:CB20C B ,C:CB30 820510 C:CB30C 8 ,D:CB30 820510 D:CB30C F ,C:CB40 820510 C:CB40C
0x13c378…13c50c Dummy {f00=0x0181, f01=0x0190, f02=» > ,Z:TB20 820510 Z:TB20T ,D:TB20 820510 D:TB20T B ,D:TB30 820510 D:TB30T F ,Z:TB40 820510 Z:TB40T $ ,D:TB40 820510 D:TB40T B ,Z:TB50 820510 Z
0x13c50c…13c6a0 Dummy {f00=0x0181, f01=0x0190, f02=» $$$TRAD COND M DEDISCR RELEAST RETURNO 7 SCHPOO STRT01 WAITR d CHANFCM CLSBTHR DELBTCA DELFMTT DELJOBS DELTBL DEPOOL DLCURRd ENTFMTA ENTJOB0 ENTSYSF ENTTBL GETFMT. GETJOB- GETSYSM GETTBLR GTNEXTA GTPREVT NEXFMTS NEXJOB NXBTH NXJOB OPNEB
0x13c6a0…13c834 (1, 165) Dummy {f00=0x0182, f01=0x0190, f02=»TRAA CLSBTH DISUD DLCURRR # DLRCCHS ` FREESP - GTNEXTO GTPREVA OFRSP HRDR RDACC RDDSW S RECURRW REFSP RFRSP HWRD WRDSD _ WRFSP WRIACC` WRICUR- W WRTCO CONDE DEPOOLR GETFRER MASKA READDKD RETURNC SETFRER SETOCC T:SWIT T:XSTAW
0x13c834…13c9c8 Dummy {f00=0x0182, f01=0x0190, f02=»D- DEDISC1 DEPOOLL DISU DLRCCH1 EMPTYT FREESPM GETINDX NOFFREO NXPRFMP OPENF REFSP RELEAS RETURNC RFRSP SFMTCH T:SWITD WAIT1 WRFSP DKRUT3 8 820510 $$$TRAD ALGOF DELTBLA o ENTSYS1 ENTTBL1 ; GETFMT1 GETSYS- GETTBLD NOFFRET
0x13c9c8…13cb5c Dummy {f00=0x0182, f01=0x0190, f02=» 820510 $$$TRA DELBTCR DELJOBR ENTJOBH GETJOB1 6 NEXJOB. NXBTH 4 NXJOB 2 OPNEBC OPNNBCG PREJOBX READJBH SCHJOBN CONDT DEPOOLL DISU DLRCCHH EMPTYTO FREESPX RDACC RDDSH RELEAS2 RETURN RFRSP SCHPOOP SFMTCH T:SWITH WAITH WRDS
0x13cb5c…13ccf0 Dummy {f00=0x0182, f01=0x0190, f02=»EFINDA - DEPMSKK DEPRUT DETCHK DETPRTS & PTSDE ATTBUF CHANFCP CONDD DE10ST- DE20STK DE30STU DE40STT DE50ST DE60STS DE70STE DEAP1AA DEAP2AD DEAP3Aj DEAP5A. DEAP7AK DECLRA DERRF GETINDD GETVOL- MSKOUTK OPCLS POOLA RESTOR5 SAVES T:ABORS T:ATTF1
0x13ccf0…13ce84 Dummy {f00=0x0182, f01=0x0190, f02=»ECLRA DECLRDD DECLRNC DECLRS DERR ADJUSTN ATTPRTA CANC DEAPPL8 DEFORC1 DEGEN DELAST1 DELOCKE DENDUP DENVALR DERRORC DESTATD DETCHK DETPRT DEVERI EMPTYTN FORCEDA GETFWDD GETGEND GETVALD MASKD T:DISPD T:DUPL T:DYKI T:EDFLR T:EDWRC T:ERASD
0x13ce84…13d018 Dummy {f00=0x0182, f01=0x0190, f02=» $$$TRAN DENT01 CLEARBN DEACC DECLRA DECLRD7 DECLRN1 DECLRS DEDISC1 DELAST2 DEPOOL DEPRUT DERECS DERR DERROR EMPTYT RESTOR SETB T:ATTFN T:DISPD T:EDWRD T:ERASD T:GETAD T:GETFD T:THOMD DENT03 } 820510 $$$TRAN DEFORC
0x13d018…13d1ac Dummy {f00=0x0182, f01=0x0190, f02=» ` NDEPOOL 820510 $$$TRAP DEPOOL CMPINDP GETINDA SETB @ DE10ST 820510 $$$TRA1 DE10ST DEAP1A M DE11ST1 DE12STA DE14ST0 DE15STF DEANOK DEAOK0. DECLRA- DECOMP DEPMSK1 DEPOOL DEPRUT DERR RESTOR T:ATTF
0x13d1ac…13d340 Dummy {f00=0x0182, f01=0x0190, f02=» $$$TRA1 hA20 CANC11C / CANC121 2 DE12ST1 WRIT12 G DECLRA1 DEDISCA DEPOOL0 DERR0 ENT12 RESTORL T:ATTF0 t DE1201 820510 $$$TRA1 ENT12 hA20 ATTDB ATTWB CANC110 CANC12F CLEARB DECLRN. DEDISC- DEPOOL DERR DERROR FMOVE RESTOR T:D
0x13d340…13d4d4 (1, 166) Dummy {f00=0x0183, f01=0x0190, f02=»DE15ST 820510 $$$TRA1 DE15ST ATTWB DECLRNT DEPOOL DERR- OPCL T:ATTFR T:DISP T:ERAS1 T:THOM DE20ST 820510 $$$TRA2 DE20ST DEAP2A S CMPIND2 CNTNUMA DE21ST0 DE23STF DE24ST DEANOK. DEAOK0- DEAOK4 DECLRA2 DEDISC
0x13d4d4…13d668 Dummy {f00=0x0183, f01=0x0190, f02=»TTDB ATTPRTT ATTWB DEDISC- DEFDSC1 DEPOOLL DERROR0 DETPRT EMPTYT FCODE FEDIT FLINK FMOVE MTEXT PRFGUF RESTOR T:ATTF T:DISPA T:GETAA T:GETFD UPDBINF G @DEATTF 820510 $$$TRAA DEATTF T:ATTFA DE23ST 820510 $$$TR
0x13d668…13d7fc Dummy {f00=0x0183, f01=0x0190, f02=»P T:GETFA DE24ST 820510 $$$TRA2 DE24ST ATTDB DECLRAT DEDISC DEPOOL0 DERR1 DERRORL FEDIT RESTOR1 T:ATTF T:DISP T:GETF nDE30ST 820510 $$$TRA3 DE30ST DE31ST3 DECLRAA DEPMSK0 DEPRUTF DERR1 RESTOR1 T:ATT
0x13d7fc…13d990 Dummy {f00=0x0183, f01=0x0190, f02=»ROR EMPTYT3 T:ATTF T:DISP T:ERAS T:GETF TESTB DE40ST 820510 $$$TRA4 DE40ST DECLRA4 DECLRNA DECLRS0 DENT01F DEOPBC DEPMSK. DEPRUT- DERRS DERROR OPCL T:ATTF T:GETA T:GETF DE20FS 820510 $$$TRAF FACCF
0x13d990…13db24 Dummy {f00=0x0183, f01=0x0190, f02=» FMOVE LINIT T:DISPT T:ERASI WCNTRLK e DEUNPF 820510 $$$TRAU DEUNPF DEUNPLF FEDIT G ADJUSTU BINCONA FMOVE GETFWD0 NOPOOL1 RCNTRL1 T:DISP0 T:GETC T:SWIT T:TSTCP hDEPRFG 820510 $$$TRAP PRFGUF DERRORP DEUNP
0x13db24…13dcb8 Dummy {f00=0x0183, f01=0x0190, f02=»T0 FACC9 FCOPY FDUPL FGEN.hFKI FMELI hFNL FTABF FTEXT FVALT NOPOOLT T:DISP T:ERAS T:SWIT UPDBOL @DECVRT 820510 $$$TRAC BINCON CONNUM @ @ DE50ST 820510 $$$TRA5 DE50ST DEAP5A ATTDB ATTWB DEANOK. DEAOK0- D
0x13dcb8…13de4c Dummy {f00=0x0183, f01=0x0190, f02=»ISPL T:DSC00 T:ERAS T:GETF TESTB DE60ST ( 820510 $$$TRA6 DE60ST DECLRA6 DECLRNA DENT010 DEOPBCF DERR1 DERROR1 OPCL0 T:ATTF T:GETA T:GETF DE70ST 0 820510 $$$TRA7 DE70ST DEAP7A ATTDB DEANOKT DEAOK0 D
0x13de4c…13dfe0 Dummy {f00=0x0183, f01=0x0190, f02=»:DISP1 T:GETF1 T:THOM1 UPDBIN pDE80ST > 820510 $$$TRA8 DE80ST DEAP8A 0 DEANOK8 DEAOK0A DECLRA0 DECONVF DERR1 T:ATTF1 U DERROR B 820510 $$$TRAR CANC DERROR DELASTR DELOCKA MASK MSKOUT3 T:DISP1 T:EDWR1 T:ERAS0
0x13dfe0…13e174 (1, 167) Dummy {f00=0x0183, f01=0x0190, f02=» MSKOUTL OFRSP RESTOR1 T:ATTF T:DISPF T:THOM TESTB UPDBIN UPDBOL DEREC2 _ 820510 $$$TRAR DEOPBC DEREC2 7 ATTWB CLEARBT CMPIND DEACC DEDISC1 DELASTL DEPOOL0 DEPRUT DERECS DEREFOC DERROR EMPTYT OPCL RESTOR SETB T:GETF T
0x13e174…13e308 Dummy {f00=0x0183, f01=0x0190, f02=»ROR DESTAT DETPRT DEUNPF DEUNPL EMPTYT FDIR hFNLhFSL MASK MTEXT NOPOOLT T:DISP T:DUPL0 T:DYKI1 T:EDFL1 T:EDWR0 T:ERAS T:GETA T:GETC T:GETF T:NKI T:PRINY T:SETC T:TBWDL T:TFWD T:THOMN T:UPDFT T:XSTAT UPDBOLT VGACNTT 6 DEACCU x 8205
0x13e308…13e49c Dummy {f00=0x0183, f01=0x0190, f02=»820510 $$$TRAG DEGEN ADJUSTG CMPINDA DEFIND0 DENVALF EMPTYT GETFWD. GETGEN- MSKOUT T:ERAS T:GETA T:GETC T:GETF T:TSTC T:UPDF TYPET o ~ ^DELOCK 820510 $$$TRAL DELOCK CLEARBL MSKOUTA SETB UPDBIN0 UPDBOL1 I n PDE
0x13e49c…13e630 Dummy {f00=0x0183, f01=0x0190, f02=»HANFC` $ T:FDSP SAVEY 6 RESTOR L GETFREA n I:RT1 SETFREA SETOCC UPDBOLN UPDBIN SETBY J CLEARB TESTB GETVOL RCNTRLD WCNTRL b MSKOUTL f ATTBUF v FORCED~ GETVAL P:BAS GETACC < GETGEN @ GETDU
0x13e630…13e7c4 Dummy {f00=0x0183, f01=0x0190, f02=» ^CDVRUT 820510 CDVDK CDV110 CDV111 CDV10 I:EVA0 I:RT1 VDATCHK 820510 DATCHKK MMDDCK I:EVA0 I:RT1 DDMMCK F VDCTASK 820510 $$$TRAT DCTASK T:DSC1T T:READA T:X
0x13e7c4…13e958 Dummy {f00=0x0183, f01=0x0190, f02=»ASK * ,C:CB60 820510 C:CB60C ( ,D:CB60 820510 D:CB60C & .T:AD20 820510 T:AD20A " T:DD20 D:CB10 U:CB10 D:CB20 C:CB20 D:CB30. C:CB30- D:CB40A C:CB40A D:CB500 C:CB50F D:DU10 Z:DU10. D:DU20- Z:D
0x13e958…13eaec Dummy {f00=0x0183, f01=0x0190, f02=» Q b ,Z:DU10 820510 Z:DU10D ,D:DU10 820510 D:DU10D :D ,Z:DU20 820510 Z:DU20D ,D:DU20 820510 D:DU20D :D ,Z:DU30 820510 Z:DU30D ,D:DU30 820510
0x13eaec…13ec80 Dummy {f00=0x0183, f01=0x0190, f02=» Z:DU50D ,D:DU50 820510 D:DU50D :D ,Z:DU60 820510 Z:DU60D ,D:DU60 820510 D:DU60D :D ,Z:DU70 820510 Z:DU70D ,D:DU70 820510 D:DU70D :D ,Z:DU80
0x13ec80…13ee14 (1, 168) Dummy {f00=0x0184, f01=0x0190, f02=» 820510 D:DU90D :D PFDIO 820510 FDIOY T:FDSP I:EVA0 T:SCW2 T:IO3 P rDEVGAC 820510 $$$TRAV CNTNUM 9 VGACNT CMPINDV DERRORA EMPTYT0 T:DISPF T:ERAS T:GETF. c ,Z:TB30 820510 Z
0x13ee14…13efa8 Dummy {f00=0x0184, f01=0x0190, f02=» DEFIND DEPOOL EMPTYT GETFWD GETIND GETVAL MSKOUTN SETBB T:GETAC T:GETCC T:GETFD T:TSTCD TESTB TYPET ZFMOVE 820510 FMOVE I:EVA0 I:ERR2 I:EVA5 I:ER18 I:RT1 4 FTYPET 820510 TYPET I:EVA0 I:ERR2
0x13efa8…13f13c Dummy {f00=0x0184, f01=0x0190, f02=» < T:STIN 820510 STRIN1 T:STEV T:RNOK T:LOFS I:EVA0 T:LOPS I:ER17 T:CLMI I:ERR2 I:MOV T:GRFC T:ROK T:STOU 820510 STROU1 T:STEV T:LOFS I:EVA0 T:LOPS I:ER17 I:ERR2 T:D
0x13f13c…13f2d0 Dummy {f00=0x0184, f01=0x0190, f02=»10 T:EDFL T:PM1 T:PM2 T:CASP T:DUPX T:GRFC T:CLRD T:SCUW T:IOER T:BELL T:CLR1 T:CLR2 T:CLIT T:EKEY T:DYKI 820510 T:DYKI I:EVA7 T:CASP T:CLRD T:EKEY T:RCR T:IOER B T:CLR1 P
0x13f2d0…13f464 Dummy {f00=0x0184, f01=0x0190, f02=» T:PM2 T:UPDF 820510 T:UPDF T:GRFC I:ER14 T:LOFS I:EVA0 T:LOPS I:ERR2 I:MOV T:RCR T:REWR T:RCTS ` T:DUPL 820510 T:DUPL T:GRFC I:EVA0 I:ERR2 T:RNOK T:ROK T:DUPX T:L
0x13f464…13f5f8 Dummy {f00=0x0184, f01=0x0190, f02=» 820510 T:GETA T:GRFC I:EVA0 I:ERR2 T:RNOK T:ROK T:RCR 0 JT:TSTC 820510 T:TSTC T:GRFC I:ER14 T:RTES < T:TFWD 820510 T:TLEF T:TRIG T:TLDO T:TDOW T:TUP T:TFWD
0x13f5f8…13f78c Dummy {f00=0x0184, f01=0x0190, f02=»I T:GRFC T:GTIP T:DISP T:ERAS " T:GTIT I:ER15 I:ER14 T:TABD T:TABC T:RNOK I:RT1 T:CLDY T:WRDY T:EDIO v T:GETF 820510 T:GETF I:ER14 T:TABC T:TABN T:GTIT 0 T:GRFC T:GTIP @ I:EVA0
0x13f78c…13f920 Dummy {f00=0x0184, f01=0x0190, f02=» I:EVA3 I:EPIC T:LOPS I:EVA0 I:ECPY I:EVI @T:DEDT 820510 I:EVNO I:ESKI I:EVA0 I:EBRI I:EBRB I:EBR I:ECWC I:EXIT I:EFLA T:DNL T:TINP T:TKI T:DSL I:EXPY T:TABC ( T:TABD , T:TABE 0 T:E
0x13f920…13fab4 (1, 169) Dummy {f00=0x0184, f01=0x0190, f02=» 820510 I:EVNO I:ECPY I:EPIC I:ETXT I:ETAB I:EBRI I:EBRB I:EBR I:EOR I:EXIT I:ECW I:EFLA T:PINP T:PKI I:EFIL I:ESKI I:EXPY T:DSL ( T:GRFC T:DNL 6 T:WRDY I:ENL I:ESL I:ECTR I:ER16 T:ENIN
0x13fab4…13fc48 Dummy {f00=0x0184, f01=0x0190, f02=» T:ENIN T:ENI I:EXIT T:WRDY T:CLMI I:EVA0 T:CLDY T:ENIN 820510 T:ENIN T:ENI T:LOFS I:EGTB T:WRDY I:EVA0 I:EVA1 I:ECPY T:EVOU X I:EVI I:EVA3 I:EPIC `T:SETC 820510 T:SET
0x13fc48…13fddc Dummy {f00=0x0184, f01=0x0190, f02=» T:DETF T:ATTF I:EVA6 I:FFSN T:ROK ( T:RCR * I:RT1 T:RCTS 6 T:RTES : T:RNOK < T:GRFC @ T:WRDY H T:EDIO T:CLDY l bT:LSEG 820510 T:LSEG T:CSEG I:ER1C I:RT1 T:LOFS D T:LOPS P d
0x13fddc…13ff70 Dummy {f00=0x0184, f01=0x0190, f02=» T:SWIT SWITCH JT:TEI0 # 820510 T:TEST TESTIO T:ABOR ABORT LT:CLO0 $ 820510 T:SETT SETTIM T:GETT GETTIM 4T:DEL0 % 820510 T:DELA DELAY 6T:GTI0 & 820510
0x13ff70…140104 Dummy {f00=0x0184, f01=0x0190, f02=»O2 T:DCEX 2 T:DCE1 6 I:EVA0 4T:SWI ) 820510 T:SWIT I:RT1 ^T:TEI * 820510 T:TEST T:FDSP I:RT1 T:ABOR T:KIAA T:KIAC B FT:DEL + 820510 T:DELA I:EVA0 I:ERR I:RT1
0x140104…140298 Dummy {f00=0x0184, f01=0x0190, f02=»B T:BAT T:RSTR L I:EVA0 T:PAUS l I:RT1 ~ RT:UNUS / 820510 T:UNUS I:ERR4 P:MTAB I:RT1 T:UERR ,T:EXIT 1 820510 T:EXIT ZT:GTCW 2 820510 T:FDSP GETCW I:EVA0 T:BINB T:GTC
0x140298…14042c Dummy {f00=0x0184, f01=0x0190, f02=»P T:WRIO T:IO2 T:CLOS . T:COMM @ I:EVA0 I:RT1 T:RSTA X T:SCW2 T:IO3 j ~T:DMR 6 820510 T:DREA T:REAX T:SCW2 T:IO3 T:IREA T:IO2 T:XREA T:IXID I:EVA2 , T:DMW 8 820510 T:SWRI
0x14042c…1405c0 Dummy {f00=0x0184, f01=0x0190, f02=»:DDIS T:FDSP T:SCW2 T:IO3 T:CDIS T:IDIS $ T:WRIX H rT:DMPO ; 820510 T:DPOS T:FDSP T:SCW2 T:GTBY T:IO4 T:IPOS T:WRIX T:IXID 2 JT:IO < 820510 T:KI T:NKI T:WRIT T:LWRI
0x1405c0…140754 (1, 170) Dummy {f00=0x0184, f01=0x0190, f02=»T T:MWAI T:IO1 < T:IO2 @ T:IO3 D T:IO4 H I:ER19 T:IO5 Z T:IORE ^ T:GCW2 T:GTCW I:RT1 T:IOEN T:EDWR I:EDW T:EDWE T:EDWF T:EDWI I:ERR T:EDIO 0 T:KIPR L I:EVA7 I:ERR5 T:FDS0 T:FDSP T
0x140754…1408e8 Dummy {f00=0x0184, f01=0x0190, f02=»0510 T:KIA T:NKIA T:ABUF T:KIPR T:LSEG T:IORE I:ERR9 I:ER1B T:KIAA T:KIAC ,T:ABUF G 820510 T:ABUF I:EVA H 820510 P:MTAB I:EVA2 I:EVA1 I:EVA3 $ I:EVA6 ( I:EVA5 . I
0x1408e8…140a7c Dummy {f00=0x0184, f01=0x0190, f02=» I:ADD I:SUB I:ERR2 I:ERR1 I:CPA l <I:CMP P 820510 I:CMP I:ERR1 I:CPA x *I:CPA Q 820510 I:CPA | >I:MOV R 820510 I:MOV I:MVC I:ERR8 tI:MUL U 820510 I:MUL
0x140a7c…140c10 Dummy {f00=0x0184, f01=0x0190, f02=» I:ERR9 I:MOV I:NTFA I:SUB I:CPA I:SH1L I:ADD I:SH1R 6 ,I:NTF 820510 I:NTFA 8 I:EDT ] 820510 I:EVT B I:EGTD I:EVA2 I:EVA5 I:EVB I:EGTB I:EVI I:EVA3 I:EVA0 I:EVNO I:EPIC I:E
0x140c10…140da4 Dummy {f00=0x0184, f01=0x0190, f02=» I:EXIT z P:MTAB I:FFSN P:BAS I:ETAB I:ETXT I:ECPY I:EXPY * I:ECTR < I:ESL F I:ENL P I:EOR f T:EDWF I:ECW p T:EDWE I:ECWC z I:EFIL I:SCB I:ERRD RI:EPIC c 820510 I:EPIC I:EVA0
0x140da4…140f38 Dummy {f00=0x0184, f01=0x0190, f02=»:EVS1 I:MCH " I:INS ~ I:EVS2 I:ERR I:CPY I:XCP I:MVC P T:ADIT j 820510 T:RREA T:FDSP T:RRE1 I:EVA0 T:STCW I:ERR T:IO2 T:RWRI : T:RWR1 > T:IO1 v T:CW l 820510 T:STCW I:EVA2
0x140f38…1410cc Dummy {f00=0x0184, f01=0x0190, f02=» T:USE I:ERR4 I:EVA0 P:MTAB T:UERR B I:RT0 H PWRITEL s 820510 WRITEL T:FDS0 I:EVA0 T:IO2 I:ERR lI:NTP u 820510 I:MOV I:ADD I:SUB I:CMP I:MUL I:DIV I:EDT I:CPY I:INS I:DLT I
0x1410cc…141260 Dummy {f00=0x0184, f01=0x0190, f02=»:EVA0 I:EVA2 I:RT2 I:TRA I:RT1 I:TRB I:RT0 I:TRA0 I:ERR T:BAT T:PAT T:CAT I:EVB U I:EDTE { 820510 I:EKIH I:EINH I:ETAB I:EVIN I:EVA0 I:EVA1 I:EBRI F I:ERR2 I:EBR r I:EBRB v I:ESK
0x141260…1413f4 (1, 171) Dummy {f00=0x0184, f01=0x0190, f02=» I:TRA 820510 I:ECB I:BUF I:NTR I:HEX I:HEXB I:TRA0 8 I:TRA > P:MTAB I:EVA0 I:HEXW I:TRB I:NTPR I:PRT I:ERR 820510 I:ERR0 I:ERR1 I:ERR2 I:ERR3 I:ERR4 I:E
0x1413f4…141588 Dummy {f00=0x0184, f01=0x0190, f02=» @ I:ER11 D I:ER12 H I:ER13 L I:ER14 P I:ER15 T I:ER16 X I:ER17 I:ER18 ` I:ER19 d I:ER1A h I:ER1B l I:ER1C p I:ERR t I:NTR I:BUF I:HEXB I:ECB I:PRT TC:ERR I:NTPR F BI:HEX 820510 I:HEXB
0x141588…14171c Dummy {f00=0x0184, f01=0x0190, f02=» TC:CHK TT:HLT TT:TRP TT:TRS TT:LOP TT:VON TT:VER TT:VMM TT:TID TT:PRC TT:SNO TB:ENT TC:ABT TB:ABT TC:RDC TB:RDC TC:ERR TT:MSG P:MTAB ~ TRATAB 820510 TT:TON TT:TRP TT:LOP
0x14171c…1418b0 Dummy {f00=0x0184, f01=0x0190, f02=»0510 P:BAS TB:ABT H TB:ENT T P:MTAB TT:PRC TT:SNO TT:TID TT:MSG TB:RDC 8 TT:TRP TT:TRS TT:TON TT:LOP TT:HLT I:TRC TT:VER TT:VMM TT:VON SYSLOD 820510 NUMSEG PRGLG1 SYSBAS S
0x1418b0…141a44 Dummy {f00=0x0184, f01=0x0190, f02=»TYP SCTPSZ SAVE06 SAVE29 SAVE05 SAVE01 SAVE03 SAVE13 CMPADR SAVE07 SAVE08 SCTNOP SAVE22 MMEND SCTLAP TTB:MT SCTMMP SCTNPE SCTMMC SCTLAC MMDDIV MOVE M:REL LDALEN SAVE20 CONVRT SCTSWB SAV
0x141a44…141bd8 Dummy {f00=0x0184, f01=0x0190, f02=»RR L DENT02 820510 $$$TRAN DEEDIT S DELASTD DENDUP ATTDB ATTWB CMPIND. DEDISC- DEFIND1 DELOCKL DEPOOL0 EMPTYT GETDUP MASKL T:DISPD T:DUPL T:EDWR T:ERAS T:GETA T:GETC T:KIB T:PRINC T:THOMD T:TSTCD T:UPDFD T:XSTAD TESTB TYPET
0x141bd8…141d6c Dummy {f00=0x0184, f01=0x0190, f02=» $$$TRA NYCONV 8 820510 $$$TRAC DECONV ADJUSTC ATTDEVA DEPOOL2 DERRORF DETPRT EMPTYT0 FDIO1 GETFWD/ MASKN T:ATTF T:DISP T:DSC1 T:EDWR T:GETC T:GETT T:NKI T:PRINC T:THOMA T:TSTC2 T:WAITF T:WRIT T:XSTA0 TESTB ,D:TB
0x141d6c…141f00 Dummy {f00=0x0184, f01=0x4090, f02=» FDIO1 GETFWD/ MASKN T:ATTF T:DISP T:DSC1 T:EDWR T:GETC T:GETT T:LWRI T:NKI T:PRINE T:THOMO T:TSTCO T:WAITR T:XSTAY TESTB ; F T:DISP T:DSC1 T:EDWR T:GETC T:GETT T:NKI T:PRINC T:THOMA T:TSTC2 T:WAITF T:WRIT T:XSTA0 TESTB ,D:TB
0x141f00…142094 (1, 172) Opaque[0x194]
0x142094…142228 # DirEnt {nam=»PTSDE «, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0c30, f03=0x0000}
0x142094…142228 IdxSect {
0x142094…142228 f00 = 0x0061 // 0x142094 @0x0
0x142094…142228 f01 = 0x000a // 0x142096 @0x2
0x142094…142228 gno = [ // 0x142098 @0x4
0x142094…142228 [0x00]: C0x0061.0x2.0
0x142094…142228 [0x01]: C0x0061.0x3.0
0x142094…142228 [0x02]: C0x0062.0x0.0
0x142094…142228 [0x03]: C0x0062.0x1.0
0x142094…142228 [0x04]: C0x0062.0x2.0
0x142094…142228 ]
0x142094…142228 }
0x142228…1423bc Dummy {f00=0x0061, f01=0x0190, f02=» " P IDENT PTSDE REL 10.0 80-04-11 P UPD 81-02-27 * P UPD 80-11-17/DALI B P UPD 80-10-22/DALI ^ P UPD 80-04-24/DALI z P 80-03-24/DALI DDUM DEDDIV PDIV ENTRY PTSDE P* 0 P* ENTRIES FOR APPLI
0x1423bc…142550 Dummy {f00=0x0061, f01=0x0190, f02=»4 P ENTRY DEANOK P ENTRY DETCHK P ENTRY DEPMSK 6 P ENTRY DEPRUT L P ENTRY ATTPRT b P ENTRY DETPRT x P ENTRY ATTDEV P* , P ENTRY DEFIND ROUTINE FINDING FIELDINDEX P EJECT * * ** EXTERNAL
0x142550…1426e4 Dummy {f00=0x0061, f01=0x0190, f02=» TO DATA-ENTRY MODES t * & ! EXT DE10ST SUPERVISORY FUNCTIONS & " EXT DE20ST FORMAT DEFINITION P EXT DE30ST JOB DEFINITION v EXT DE40ST ENTRY MODE " EXT DE50ST SEARCH/CORRECTION EXT DE60ST VERIFICATION EXT DE70ST
0x1426e4…142878 Dummy {f00=0x0061, f01=0x0190, f02=»HANFC CHANGE FILECODE P EXT GETVOL GET VOLUMENAME * @ 6 P* EXTERNAL REFERENCES FOR SPECIAL ROUTINES J * P EXT DEPOOL TESTVARIANT P EXT DERR P EXT SAVE P EXT RESTOR P EXT ATTBUF P EXT TESTB
0x142878…142a0c Dummy {f00=0x0061, f01=0x018e, f02=»NGTH p P EJECT P* : P* EXTERNAL REFERENCES TO APPL HANDLING ROUTINES $ P* b P EXT DEAP1A l P EXT DEAP2A P EXT DEAP3A P EXT DEAP5A P EXT DEAP7A P* P* P INCLUDE DELITT P EJE
0x142a0c…142ba0 Dummy {f00=0x0061, f01=0x0190, f02=» " P WORKBLOCKS AND DESCRIPTORS 8 P CALL ATTBUF,DEDSSCRN,STATSH ATTACH BUFFERS FOR THE * 6 P CALL ATTBUF,DEDSPRT,STATSH SCREEN AND PRINT DSETS f P SET UORG P BNZ FINISH $ P CALL GETIND,RBUF,RBUFLN,DEBINW1 P CALL POOLA ADJUST POOLS
0x142ba0…142d34 (1, 173) Dummy {f00=0x0061, f01=0x0190, f02=» DISPLAY v STA050 P CLEAR DECHANGE P PERF DECLRA 6 STA100 J " P IB DEBINW2,CANCEL,RETUR,ENTER X P MOVE DEBINW4,W0 ~ P PERF DERR P B STA100 CANCEL P CLEAR DEPROMPT B STA050 * RETUR
0x142d34…142ec8 Dummy {f00=0x0061, f01=0x0190, f02=»F OPCL,W1 P BOK ENT4 P BNERR ENT32 $ P MOVE DEBINW1,W0 8 P PERF DERR P P B STA100 b PENT32 t P MOVE DEBINW1,W0 P PERF DERR P IB DEBINW2,ENT52,ENT52,ENT5 P MOVE DEBINW4,W0 P B ENT32 PENT4 P MOV
0x142ec8…14305c Dummy {f00=0x0061, f01=0x018e, f02=»F DEPMSK PENT5 < P CALL RESTOR,W0,W16,PWBDB4 RESTORE ORIGINATE ADRESSES TO " P WORKBLOCKS AND DESCRIPTORS P CLEAR BOOL1 P CBNE BIN1,W0,ENT4 PENT52 P PERF OPCL,W2 P BOK ENT6 P PERF DERR PENT6 P CBN
0x14305c…1431f0 Dummy {f00=0x0061, f01=0x018e, f02=» * APPLICATION ROUTINE * , PDEAPPL PROC 6 P CBG DEBINW3,=W'100',DEAPP0 J P IB DEBINW3 C n P DEAPRTES C P DEAUNIT C P DEAJOB C P DEABATCH C P DEAENKEY C P DEUNENT P B DEAER
0x1431f0…143384 Dummy {f00=0x0061, f01=0x0190, f02=» n P DIV BIN1,W8 . P XCOPY DEBINW4,W0,W2,PROGNR,BIN1 PROGRAMNR P MUL BIN1,W8 N P SUB BIN2,BIN1 b . P CALL TESTB,DEBINW4,BIN2 LOOK IF EXISTING x P BZ DEAPRERR JUMP IF NOT P MOVE BIN1,W0 & P CALL UPDBOL,BIN1 CLEAR ALL BOOLS
0x143384…143518 Dummy {f00=0x0061, f01=0x0190, f02=»PMSK PDEAENKEY P MOVE DEBINW3,W0 P MOVE DEBINW2,W17 4 P B DEAOK0 N PDEAPRERR ` P MOVE DEBINW4,W7 p P B DEANOK P* P* $ P ATTFMT FORMN DUMMY INSTRUCTION P ATTFMT FORMA - " - P ATTFMT VSET
0x143518…1436ac Dummy {f00=0x0061, f01=0x0190, f02=»D2A UNIT NUMBER IS P MOVE FILINDUS,DEBINW4 4 P XCOPY DEBINW4,W1,W1,DUNIT,FILINDUS GET FILECODE 8 P ADD FILINDUS,W2 p & P CBE FCOUNTER(FILINDUS),W0,DEAUN0 P ERASE 1,W2,W2 " P MOVE TABLE,FVOLNAME(FILINDUS) P B DEAUN5 PDEAUN0
0x1436ac…143840 Dummy {f00=0x0061, f01=0x0190, f02=»AUN4 JUMP IF OKEY ~ P MOVE DEBINW4,W9 NOT FOUND P B DEANOK < PDEAUN4 N P ERASE 1,W2,W2 P MOVE TABLE,STRG10A r " P MOVE FVOLNAME(FILINDUS),TABLE PDEAUN5 P DISPLAY 2,W1,W1 P B DEAOK0 PDEAUN2 P MOVE DEBINW4,
0x143840…1439d4 (1, 174) Dummy {f00=0x0062, f01=0x0190, f02=» DEAOK0 " PDEABATCH CHECK IF SPECIFIED P BATCH EXISTS ON USERFILE 6 P MOVE STSAVE(W2),DEINPUT Z P B DEAOK0 z P EJECT P* < P* JUMP TO APPL HANDLING IN CORRESPONDING PROGRAM P* PDEAPP0 P SUB DEBINW3
0x1439d4…143b68 Dummy {f00=0x0062, f01=0x0190, f02=»OVE DEBIN1,PRNUM LOAD MODE BINARY & P MOVE PRNUM,DEBINW4 RESTORE PRNUM * . P MOVE BCD2A,PRNUM GET MODE LEVEL ONETH FIG T . P MOVE DEBINW4,BCD2A LOAD MODE LEVEL BINARY P IB DEBIN1 JUMP MODE APPL C P DEAP1A C P DEAP2A C P DE
0x143b68…143cfc Dummy {f00=0x0062, f01=0x0190, f02=» > P* RETURNS FROM APPL HANDLING IN CORRESPONDING PROGRAM P* J PDEAOK0 T P MOVE DEBINW3,W0 b RET z PDEAOK1 P MOVE DEBINW3,W1 P RET PDEAOK2 P MOVE DEBINW3,W2 P RET PDEAOK4 P MOVE DEBINW3,W4
0x143cfc…143e90 Dummy {f00=0x0062, f01=0x0190, f02=» EJECT * & !* TABULATION-CHECK ROUTINE * B PDETCHK PROC L P TBF DOOL3,DCHKUT ` P MOVE DEBINW3,W2 z P RET PDCHKUT P MOVE DEBINW3,W0 RET PEND P EJECT F P****************************
0x143e90…144024 Dummy {f00=0x0062, f01=0x0190, f02=»************************************************** PDEPRUT PROC NUM,FIRST,SECOND : P PBCD NUM ^ P PBIN FIRST p P PBIN SECOND P MOVE FIRST,NUM P DIV FIRST,W10 P MOVE BCD2A,NUM P MOVE SECOND,BCD2A P RET P PEN
0x144024…1441b8 Dummy {f00=0x0062, f01=0x0190, f02=»************************ PDEPMSK PROC P MOVE PINACC,W0 4 P MOVE PJOBCUR,W0 L P MOVE PINDFR,W0 d P MOVE PINDTB,W0 | P MOVE BIN4,BIN1 & P SUB BIN4,W1 FIRST DIGIT IN PRNUM P BNL DEAPR10 JUMP IF > 00 P MOVE KEYMSK,W0
0x1441b8…14434c Dummy {f00=0x0062, f01=0x0190, f02=» P MOVE DEBINW3,W0 $ P XCOPY DEBINW3,W1,W1,PRKEYS,BIN4 , P CALL TESTB,BIN2,W15 LOOK WHICH HALFBYTE D P BZ DEAPR20 JUMP IF FIRST t P MOVE DEBINW2,W15 P CALL MSKOUT,DEBINW2,DEBINW3 P MOVE KEYMSK,DEBINW2 P RET PDEAPR20
0x14434c…1444e0 Dummy {f00=0x0062, f01=0x018e, f02=»BE PERFORMED BEFORE ANY PRINTING IS DONE r . P* CONDITION-REGISTER IS SET TO 0 : OKAY 0 8 P* 1 : PRINTER BUSY; b L P* IF THE PRINTER IS BUSY, THE ERROR-INDICATION 11 (IN USE) IS GIVEN IN L P* IN DEBIN1, THE TERMINA
0x1444e0…144674 (1, 175) Dummy {f00=0x0062, f01=0x0190, f02=» z P RET P PEND PATTDEV PROC FC " P CALL CHANFC,DEDSPRT,FC 8 P MOVE DEBINW4,W0 X 6 P DSC0 .NW,DEDSPRT,TSTAT CHECK IF PRINTER AVAILABLE p P DELAY W4 WAIT FOR 4/100 SEC P TESTIO DEDSPRT P BNZ NOTOK P WAIT DEDSPRT
0x144674…144808 Dummy {f00=0x0062, f01=0x0190, f02=»INTER POK P DSC1 DEDSPRT,ATTACH,W20 P BOK OUT 8 P MOVE DEBINW4,W11 H P B OUT b PATT10 p 0 P MOVE DEBINW4,=W'35' 'OUT-DEV NOT OPERABLE' ~ POUT ( P PERF COND SET/CLEAR CONDITION REG. P RET P PEND P*
0x144808…14499c Dummy {f00=0x0062, f01=0x0190, f02=»ET P PEND P* 0 P* THIS ROUTINE CALCULATE FIELDNUMBER FOR A " , P* RELATIVE FIELD ADRESSING TYP + OR - V P* PDEFIND PROC VAR1,VAR2 P PBIN VAR1 P PBIN VAR2 ( P XCOPY VAR1,W1,W1,BPOOL(BIN11),BIN12 P CBL VAR1,
0x14499c…144b30 Dummy {f00=0x0062, f01=0x018e, f02=» v P MOVE VAR1,BIN16 P SUB VAR1,VAR2 P RET 6 PDEFI00 B P ADD VAR2,BIN16 P P MOVE VAR1,VAR2 h PUTFIN P RET P PEND P EJECT * * FORMATS * F00ST FRMT FSL
0x144b30…144cc4 Dummy {f00=0x0062, f01=0x0190, f02=» P FCOPY =C'REL 10.0' FNUL $ FNL 2 FNL > P FCOPY =C'PROGRAM:' J ( P FKI 9,MINL=2,MAXL=2,ME,NEOI,APPL=1 f P FMEL 'XX',PRNUM FBF BOOL1,F00OUT FNL ( P FCOPY =C'10 SUPERVISORY FUNCTIONS' FNL P
0x144cc4…144e58 Dummy {f00=0x0062, f01=0x0190, f02=»C'JOB' P FILLR '-',1 P FCOPY =C'DEFINITION' " FNL @ P FTEXT '40 ' L P FCOPY =C'ENTRY' ` P FILLR ' ',1 x P FCOPY =C'MODE' FNL P FTEXT '50 ' P FCOPY =C'SEARCH' P FILLR ' ',1 P FCOPY =C'MODE'
0x144e58…144fec Dummy {f00=0x0062, f01=0x0190, f02=»ION' | P FILLR ' ',1 P FCOPY =C'MODE' P FNL 8 F00OUT D FMEND R PF00RET FRMT ` P FSL t $ P FTEXT 'RETURN FROM DATA-ENTRY' P FNL P FKI 1 P FCOPY HEX00 P FMEND P EJECT $ P**********************
0x144fec…145180 Dummy {f00=0x0062, f01=0x0190, f02=»******************************* PVSET FRMT ( P FSL : P FMEL '99',PRNUM F P FBT BOOL1,F13 ^ P FCOPY =C' CREATE' t P FB F12A PF13 FCOPY =C' GET' PF12A FCOPY =C' VALUE-SETS' P FNL P FCOPY =C'NAME: T' P FBT BOO
0x145180…145314 (1, 176) Dummy {f00=0x0062, f01=0x018e, f02=» b P FCOPY STR6A P FB F12UT PF12C . P FLINK F121 : PF12UT FMEND N P* b PF121 FRMT l P FNL ~ P FCOPY =C'TYPE:' P FBT BOOL3,F121A P FBF BOOL1,F124 IF CREATE PF121A P FINP 7 P FCOPY STR2A
0x145314…1454a8 Dummy {f00=0x0062, f01=0x0190, f02=» P FCOPY =C'SIZE OF ' P FCOPY =C'ELEMENT' $ P FCOPY =C'S:' > P FBT BOOL3,F125A T P FBF BOOL1,F127 IF CREATE l PF125A P FINP 28 P FMEL 'XX',TIME P FB F128 PF127 : P FKI 28,MINL=1,MAXL=2,NEOI,ME,NCLR,REWRT
0x1454a8…14563c Dummy {f00=0x0062, f01=0x0190, f02=»IF LINE 1-3 P FINP 13 ENTER P FMEL 'XX',ACK(W1) * P FNL D P* FLINK STR64A P P FCTL X'DE',STR64A f PFEND P FMEND P* PFORMN FRMT * P FKI 1,NUM,MINL=1,MAXL=1,REWRT,SCHK=1 0 P FMEL 'XXXXXXXXXXXXXXXXXXXXX-',FDVBC
0x14563c…1457d0 Dummy {f00=0x0062, f01=0x40ca, f02=»=1,MAXL=1,NEOI,ME ~ P* FCOPY FDVBCD(BIN6) ! 6 P FCTL X'F0',1,X'C1',X'01',X'00',X'C0',FDVBCD(BIN6) ! 6 P FNL ! p P FKI 1,MINL=0,MAXL=0 ! | P FCOPY HEX00 ! P FMEND ! END ! @ ! XL=1,REWRT,SCHK=1 0 P FMEL 'XXXXXXXXXXXXXXXXXXXXX-',FDVBC
0x1457d0…145964 Dummy {f00=0x0062, f01=0x2008, f02=» " FCTL X'F0',1,X'C1',X'01',X'00',X'C0',FDVBCD(BIN6) ! P FNL ! B P FKI 1,MINL=0,MAXL=0 ! N P FCOPY HEX00 ! j P FMEND ! ~ END ! @ ! =1,REWRT,SCHK=1 0 P FMEL 'XXXXXXXXXXXXXXXXXXXXX-',FDVBCD(BIN6) P FNL P FKI 1,MINL=0,MAXL=0
0x145964…145af8 Dummy {f00=0x0062, f01=0x018e, f02=» [ D S q * & 3 d E = G B & * & Q 0 M 8 3 T & " o : @ V Z * & H n - V c * & + ? P0:;= * &
0x145af8…145c8c Dummy {f00=0x0062, f01=0x0190, f02=» * & FTCXE XTTTT9+TTTTTTTTTTTTTTTTT * & = TTT9 ! I 2 * & [ D DELETED ` * & y INSERTED + ON UNIT:U i + * & WITHIN JOB: k RECOVERY RUNNI * & NG. RECORD CORRECTI
0x145c8c…145e20 Dummy {f00=0x0062, f01=0x0190, f02=» MUST BE V t * & - ERIFIED ENTER WANTED RECORDN * & K UMBER: F CONVERSION OF ALL BA @ * & i TCHES DUPL FROM G T: n * & ( C : AUTOMATIC SKIP/DUP * * & O N* FF* RECOVERY OF * & : k
0x145e20…145fb4 (1, 177) Opaque[0x194]
0x145fb4…146148 # DirEnt {nam=»DE10ST«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0c58, f03=0x0000}
0x145fb4…146148 IdxSect {
0x145fb4…146148 f00 = 0x0062 // 0x145fb4 @0x0
0x145fb4…146148 f01 = 0x0004 // 0x145fb6 @0x2
0x145fb4…146148 gno = [ // 0x145fb8 @0x4
0x145fb4…146148 [0x00]: C0x0062.0x3.0
0x145fb4…146148 [0x01]: C0x0063.0x0.0
0x145fb4…146148 ]
0x145fb4…146148 }
0x146148…1462dc Dummy {f00=0x0062, f01=0x0190, f02=» $ P IDENT DE10ST REL 10.0 80-04-11 P 79-11-13/DALI , DDUM DEDDIV D PDIV X P ENTRY DE10ST f P ENTRY DEAP1A | * * ** EXTERNAL REFERENCES TO SCREEN * P EXT DECLRA P EXT DERR * : P*
0x1462dc…146470 Dummy {f00=0x0062, f01=0x018e, f02=» DE14ST SYSTEM-VARIABLES P EXT DE15ST FILE-SPACE , P EXT DECOMP STANDARD VALIDATION ROUTINE > P EXT DEPOOL POOL-HANDLING n P* 8 P* EXTERNAL REFERENCES TO APPLICATION ROUTINE P* P EXT DEAOK0 P EXT DEANOK P
0x146470…146604 Dummy {f00=0x0062, f01=0x018e, f02=» PDE10ST PROC P CBNE BIN2,W0,ENT1 PDEST 2 & P SET BOOL1 PART OF FORMAT DISPLAY > PDEST10 h P ATTFMT F10ST v & P SET DEPROMPT PROMPT-TEXTS DISPLAY PDEST20 P CLEAR DECHANGE P PERF DECLRA PDEST40 " P IB DEBINW
0x146604…146798 Dummy {f00=0x0062, f01=0x0190, f02=» ~ P B DEST20 * ENTER $ P CBNE BIN1,W1,RET2 2 P CBNE BIN2,W0,ENT1 L P B DEST f PENT1 v 2 P PERFI BIN2,DE11ST,DE12ST,DE12ST,DE14ST,DE15ST P CLEAR BOOL1 < P CALL RESTOR,W0,W16,PWBDB4 RESTORE ORIGINATE ADRESSES TO
0x146798…14692c Dummy {f00=0x0062, f01=0x0190, f02=» * PRETUR P MOVE BIN2,W1 P MOVE BIN1,W0 2 PRET2 H RET T P EJECT ` P* n ( P* APPL VALUE HANDLING ROUTINE x P* PDEAP1A 2 P IB DEBINW4,DEAP11,DEAP12,DEAP12,DEAP14,DEAP15 PDEAP10 P B DEAER
0x14692c…146ac0 Dummy {f00=0x0062, f01=0x0190, f02=»E SWEDISH WAY t P BOK DEAOK0 * P PERF DECOMP,W2 TEST THE AMERICAN WAY * P BOK DEAOK0 X P PERF DECOMP,W3 DATE DDMMYY l P BOK DEAOK0 P B DEAER6 , PDEA113 XCOPY STR2A,W0,W2,DEINPUT,W0 HOUR P CBG STR2A,=C'23',DEAER6 & P X
0x146ac0…146c54 (1, 178) Dummy {f00=0x0063, f01=0x0190, f02=»R6 z P B DEAOK0 PDEAP12 12 VALUE SETS P MOVE BCDI21(W1),DEINPUT : P MOVE BIN1,BCDI21(W1) Z ( P IB DEBINW3,DEAP121,DEAP122,DEAP123 x PDEAP121 VALUE-SET NO. P CBE BIN1,W0,DEAER6 P CBG BIN1,=W'93',DEAER6 P COPY TA
0x146c54…146de8 Dummy {f00=0x0063, f01=0x018e, f02=»RG10A SCAN BUFFERS p P CBNE DEBIN4,W2,DE1211 P MOVE DEBINW4,=W'25' 8 P B DEANOK T PDE1211 f P MOVE DEBINW2,W17 ENT-KEY t PDEOK P B DEAOK0 PDEAP122 VALUE-SET TYPE P MOVE STR2A,DEINPUT P MOVE STR1A,DEINPUT
0x146de8…146f7c Dummy {f00=0x0063, f01=0x0190, f02=» j P CBG BIN1,=W'80',DEAER6 P MOVE STR1A,STR2A ( P CBE STR1A,=C'A',DE123A B P CBG BIN1,W21,DEAER6 b P DIV BIN1,W2 NUMERIC ~ P MUL BIN1,W2 P ADD BIN1,W1 P MOVE TIME,BIN1 P MOVE DEINPUT,TIME PDE123A P MOVE
0x146f7c…147110 Dummy {f00=0x0063, f01=0x018e, f02=»END EJECT * * FORMATS $ * < PF10ST FRMT F FSL X ( P FCOPY =C'10 SUPERVISORY FUNCTIONS' d FNL FNL P FCOPY =C'PROGRAM:' ( P FKI 9,MINL=2,MAXL=2,ME,NEOI,APPL=1 P FMEL 'XX',PRNUM P
0x147110…1472a4 Dummy {f00=0x0063, f01=0x40b2, f02=» P FCOPY =C'13 GET VALUE-SETS' FNL ( " P FCOPY =C'14 SYSTEM-VARIABLES' 4 P FNL Z P FCOPY =C'15 FILE-SPACE' f PF10OUT FMEND END @ PROGRAM:' ( P FKI 9,MINL=2,MAXL=2,ME,NEOI,APPL=1 P FMEL 'XX',PRNUM P
0x1472a4…147438 Dummy {f00=0x0063, f01=0x2008, f02=» FTEXT '50 SEARCH/CORRECTION' FNL . FTEXT '60 VERIFICATION' : FNL Z FTEXT '70 CONVERTION' f FNL FTEXT '80 FILE HANDLING' F00OUT FMEND END @ '10 SUPERVISORY FUNCTIONS' FNL
0x147438…1475cc Dummy {f00=0x0063, f01=0x0190, f02=»Cz8 Ao " 2 '0 ~ * & ! !0) (V ? g 2 #%2 * & ) ( ()*(( 11 _ Co< Cm< Cz8 0+ J * & G ! 2 + !X b !U *8 0( x * & e ? h ! & ? C < h * & ( & H I ?& g( " @oW $ * &
0x1475cc…147760 Dummy {f00=0x0063, f01=0x0190, f02=» 0) { &{ mU_"@{Ao? m 5 * & + p!0 An ! 6 @_2( (' % * * & 7 ) _ + 2 ../0A #W 80 X * & U _3 _8A @{0 $} !4 @{A * & s z 'P ; -nA{_% !g2 @m?1?2@ * & _/0 + 0 , A~4 @~P + , 4
0x147760…1478f4 (1, 179) Opaque[0x194]
0x1478f4…147a88 # DirEnt {nam=»DE11ST«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0c68, f03=0x0000}
0x1478f4…147a88 IdxSect {
0x1478f4…147a88 f00 = 0x0063 // 0x1478f4 @0x0
0x1478f4…147a88 f01 = 0x0002 // 0x1478f6 @0x2
0x1478f4…147a88 gno = [ // 0x1478f8 @0x4
0x1478f4…147a88 [0x00]: C0x0063.0x1.0
0x1478f4…147a88 ]
0x1478f4…147a88 }
0x147a88…147c1c Dummy {f00=0x0063, f01=0x0190, f02=» $ P IDENT DE11ST REL 10.0 80-04-11 P 79-11-15/LABJ , P************************* D P* 11 DATE AND TIME f P************************* DDUM DEDDIV PDIV P ENTRY DE11ST P EXT DECLRN P EXT DERROR EJECT
0x147c1c…147db0 Dummy {f00=0x0063, f01=0x0190, f02=»ROC P ATTFMT F11 P SET DEPROMPT P GETTIME STR6A 6 P MOVE TIME,STR6A L P MOVE BCDI21(W1),DATE d PCANC P PERF DECLRN PCBE11 " P IB DEBINW2,CANCEL,RETUR,ENTER P MOVE DEBINW4,W4 ERROR P PERF DERROR,DEKTAB4
0x147db0…147f44 Dummy {f00=0x0063, f01=0x018e, f02=»ME,STR6A P MOVE BCDI21(W1),DATE P DISPLAY 1,W1,W0 . P B CANC F PENTER EDIT STR6A,FTIME V P SETTIME STR6A t P MOVE DATE,BCDI21(W1) RETUR RET PEND EJECT PF11 FRMT FSL P FCOPY ='11 DATE AND T
0x147f44…1480d8 Dummy {f00=0x0063, f01=0x411e, f02=» l FILLR ' ',4 FCOPY ='TIME:' 0 P FKI 25,MINL=6,MAXL=6,ME,NEOI,REWRT,APPL=103 4 FMEL 'XXE.XXE.XX',TIME h P FNL P FKI 1,MINL=0,MAXL=0 P FCOPY HEX00 FMEND PFTIME FRMT P FMEL '999999',TIME P FMEND
0x1480d8…14826c Dummy {f00=0x0063, f01=0x2008, f02=» FMEND END @ &E TIME RETUR RET 8 PEND J EJECT X F111 FRMT f FSL x FCOPY ='111 DATE AND TIME' FNL FCOPY ='DATE:' . * FKI 17,MINL=6,MAXL=6,ME,NEOI,REWRT,APPL=1 FMEL 'XXE
0x14826c…148400 Dummy {f00=0x0063, f01=0x0190, f02=»8" .4 #H .Hj 0" #T @m?#@hP !0. 0/ V 0+ !_ $ + ?$I 07WI00 P 0" 9%0+ !0. 0/ T.00 T/WL0+ ! 08W #I{ H~ I H 0( 03? A 0)P#:&;%Io 09 P H 2 ' ' ' ? JA J K{ 0* ?( !0. 0/ 8 _[J # T 2 ' 00 T 2 )**? 09 8+J ?+
0x148400…148594 (1, 180) Opaque[0x194]
0x148594…148728 # DirEnt {nam=»DE30ST«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0c70, f03=0x0000}
0x148594…148728 IdxSect {
0x148594…148728 f00 = 0x0063 // 0x148594 @0x0
0x148594…148728 f01 = 0x0004 // 0x148596 @0x2
0x148594…148728 gno = [ // 0x148598 @0x4
0x148594…148728 [0x00]: C0x0063.0x2.0
0x148594…148728 [0x01]: C0x0063.0x3.0
0x148594…148728 ]
0x148594…148728 }
0x148728…1488bc Dummy {f00=0x0063, f01=0x0190, f02=» $ P IDENT DE30ST REL 10.0 80-04-11 P 79-10-10/DALI , DDUM DEDDIV D PDIV X P ENTRY DE30ST f * | * ** EXTERNAL REFERENCES TO SCREEN * P EXT DECLRA P EXT DERR * 2 P* EXTERNAL REFERENC
0x1488bc…148a50 Dummy {f00=0x0063, f01=0x0190, f02=»ESTOR P EJECT * * START OF PROGRAM & * H PDE30ST PROC R P CBNE BIN2,W0,ENT1 f PDEST & P SET BOOL1 PART OF FORMAT DIDELAY PDEST10 P ATTFMT F30ST & P SET DEPROMPT PROMPT-TEXTS DIDELAY PDEST
0x148a50…148be4 Dummy {f00=0x0063, f01=0x0190, f02=»M r P PERF DERR P B DEST40 CANCEL . P CLEAR DEPROMPT < P B DEST20 T * f ENTER p P CBNE BIN1,W3,RET2 ~ P CBNE BIN2,W0,ENT1 P B DEST PENT1 P PERF DE31ST P CLEAR BOOL1 < P CALL RESTOR,W0,W1
0x148be4…148d78 Dummy {f00=0x0063, f01=0x0190, f02=»NUM,BIN1 P PERF DEPRUT,PRNUM,BIN1,BIN2 P PERF DEPMSK 4 P B DEST10 H * Z PRETUR d P MOVE BIN2,W1 r P MOVE BIN1,W0 PRET2 RET P PEND EJECT * * FORMATS * PF30ST FRMT
0x148d78…148f0c Dummy {f00=0x0063, f01=0x0190, f02=»OGRAM:' P FILLR '3',1 ( P FKI 9,MINL=2,MAXL=2,ME,NEOI,APPL=1 $ P FMEL 'XX',PRNUM P P FBF BOOL1,F30OUT h FNL P FTEXT '31 ' P FCOPY =C'CREATE' P FILLR ' ',1 P FCOPY =C'JOB' P FILLR '-',1 P FCOPY =C'DEFI
0x148f0c…1490a0 Dummy {f00=0x0063, f01=0x4046, f02=»PY =C'DEFINITION' PF30OUT FMEND ( END 6@ B1 $ P FMEL 'XX',PRNUM P P FBF BOOL1,F30OUT h FNL P FTEXT '31 ' P FCOPY =C'CREATE' P FILLR ' ',1 P FCOPY =C'JOB' P FILLR '-',1 P FCOPY =C'DEFI
0x1490a0…149234 (1, 181) Dummy {f00=0x0063, f01=0x2008, f02=» FTEXT '50 SEARCH/CORRECTION' FNL . FTEXT '60 VERIFICATION' : FNL Z FTEXT '70 CONVERTION' f FNL FTEXT '80 FILE HANDLING' F00OUT FMEND END @ '10 SUPERVISORY FUNCTIONS' FNL
0x149234…1493c8 Dummy {f00=0x0063, f01=0x0002, f02=»#
0x1493c8…14955c Dummy {f00=0x0063, f01=0x0190, f02=» ~ " ` ?( G ! +b L 8 b f P ,i p$ A j z H&g a ~N> ` `0 H ^% H @` z@u ` `N> H >N> `H ja @ `H ^ z@c @ i ` d @8 U ! ~ ` @Z @ @ ~ ^ @^ ` ~~ 6 ( . ~ @ ~ ~f ` & ^ f @ `
0x14955c…1496f0 Dummy {f00=0x0063, f01=0x0190, f02=»A1,12,A8 ICOMPS SEQUENCE ~ B P SUK SPTR,4 STACK POINTER ON ARG2 > P CF A14,ARG2 F P LD A1,REGFLG ONE ARGUMENT IN REGISTER ? 6 P RF(0) ICOMP1
0x1496f0…149884 Dummy {f00=0x0063, f01=0x0190, f02=» JUMP IF SO v B P MLK 3 OUTPUT THE INSTRUCTION < P DATA X'8304' LDR A3,A1 f D P DATA 0 TO TRANSFER 2ND ARGUMENT H P DATA 0
0x149884…149a18 Dummy {f00=0x0063, f01=0x0190, f02=» INSTRUCTION ^ F P CF A14,INST LD(*) A2,"1ST ARG" P RF ICOMP4 ^ P* ~ F P* NONE ARGUMENT IN REGISTER: PICOMP1 EQU * J P LDK.L A7,X'824
0x149a18…149bac Dummy {f00=0x0063, f01=0x0190, f02=» FIRST ARGUMENT IN REGISTER: PICOMP2 EQU * D D P MLK 3 PRODUCE THE INSTRUCTION ` > P DATA X'8204' LDR A2,A1 H P DATA 0
0x149bac…149d40 Dummy {f00=0x0063, f01=0x0190, f02=» t P* PICOMP3 EQU * J P ADK SPTR,4 STACK POINTER ON 2ND ARG.ITEM . D P LDK.L A7,X'8340' PRODUCE THE INSTRUCTION: | H P CF A14,INST LD(*) A3,"2ND ARG"
0x149d40…149ed4 (1, 182) Opaque[0x194]
0x149ed4…14a068 # DirEnt {nam=»DE40ST«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0c80, f03=0x0000}
0x149ed4…14a068 IdxSect {
0x149ed4…14a068 f00 = 0x0064 // 0x149ed4 @0x0
0x149ed4…14a068 f01 = 0x0006 // 0x149ed6 @0x2
0x149ed4…14a068 gno = [ // 0x149ed8 @0x4
0x149ed4…14a068 [0x00]: C0x0064.0x0.0
0x149ed4…14a068 [0x01]: C0x0064.0x1.0
0x149ed4…14a068 [0x02]: C0x0064.0x2.0
0x149ed4…14a068 ]
0x149ed4…14a068 }
0x14a068…14a1fc Dummy {f00=0x0064, f01=0x0190, f02=» $ P IDENT DE40ST REL 10.0 80-04-11 P 80-01-29/DALI , DDUM DEDDIV D PDIV X P ENTRY DE40ST f * | * ** EXTERNAL REFERENCES TO SCREEN * P EXT DECLRA P EXT DECLRN P EXT DECLRS P EXT DERR
0x14a1fc…14a390 Dummy {f00=0x0064, f01=0x0190, f02=» EXT DEPMSK 8 P* EXTERNAL REFERENCES TO APPLICATION ROUTINE P* P P EXT DENT01 Z " P EXT DEOPBC OPEN BATCH-ROUTINE n P* P INCLUDE DELITT P EJECT 2 P********************************************* 2 P* START OF DAT
0x14a390…14a524 Dummy {f00=0x0064, f01=0x0190, f02=»********************************************* PDE40ST PROC 6 P CLEAR BOOL2 J P MOVE JOBNAME,HEX00 ^ P MOVE BATCH,HEX00 z P CBNE BIN2,W0,DEEN10 PDEST00 & P SET BOOL1 PART OF FORMAT DISPLAY PDEST10 P TBT BOOL2,DEST20
0x14a524…14a6b8 Dummy {f00=0x0064, f01=0x0190, f02=» PDEST50 P CLEAR DECHANGE P TBT BOOL2,DEST55 * P PERF DECLRA D P B DEST60 X PDEST55 j P PERF DECLRS x PDEST60 $ P IB DEBINW2,DE40CA,DE40RE,DE40EN P MOVE DEBINW4,W0 PDE40ER P PERF DERR P B DEST60
0x14a6b8…14a84c Dummy {f00=0x0064, f01=0x0190, f02=»TER-KEY PRESSED P* PDE40EN " ( P TBT BOOL2,OPEN1 JUMP IF OPEN BATCH 0 PDEEN10 P CBNE BIN1,W4,DERE30 j 0 P IB BIN2,DEEN20,DEEN50,DEEN30,DEEN40,DEEN15 P B DEST00 PDEEN15 P SET DOOL4 P B DEEN50 PDEEN20
0x14a84c…14a9e0 Dummy {f00=0x0064, f01=0x0190, f02=» CLEAR BOOL1 P B DEST20 P EJECT & * 4 P* RETURN-KEY PRESSED > * Z PDE40RE d * P CLEAR DOOL3 DATAENTERING ON USERFILE r P PERF OPCL,W4 CLOSE USERFILE P BNERR DERE20 P MOVE DEBINW1,W0 P PERF DERROR,DEKTAB6
0x14a9e0…14ab74 (1, 183) Dummy {f00=0x0064, f01=0x0190, f02=»20 * P CLEAR DOOL5 IF SET RETURN FROM DEOPBC , P BNZ DERE60 OTHERWISE WITHIN THIS MODULE 8 ( P TBT BOOL2,DERE50 IF SET NOT FRMT 40 h ( P MOVE BIN2,W1 RETURN FROM THIS MODE P MOVE BIN1,W0 PDERE30 RET PDERE50 " P CLEAR BOO
0x14ab74…14ad08 Dummy {f00=0x0064, f01=0x0190, f02=» r P CLEAR DOOL4 P CLEAR DOOL8 P MOVE BIN1,W4 0 P MUL BIN1,W10 F P MOVE PRNUM,BIN1 P PERF DEPRUT,PRNUM,BIN1,BIN2 t P PERF DEPMSK P B DEST10 P EJECT * P************************************** ( P* THIS IS THE
0x14ad08…14ae9c Dummy {f00=0x0064, f01=0x018e, f02=» MOVE DEBINW2,W0 POPEN2 P MOVE WORK(W11),W0 MSK-WORD & P MOVE WORK(W12),W0 COMP-WORD J P PERF DEOPBC,DEBINW2 n ( P IB DEBINW2,OPEN3,OPEN3,DE40RE,OPEN4 POPEN3 P PERF DENT01 P B OPEN2 POPEN4 P GETABX DEBINW3
0x14ae9c…14b030 Dummy {f00=0x0064, f01=0x0190, f02=» ~ * PF40ST FRMT FSL $ P FTEXT '40 ' 0 P FCOPY =C'ENTRY' D P FILLR ' ',1 P FCOPY =C'MODE' p FNL P FCOPY =C'PROGRAM:' ( P FKI 9,MINL=2,MAXL=2,ME,NEOI,APPL=1 P FMEL 'XX',PRNUM P FBF BOOL1,F40OUT
0x14b030…14b1c4 Dummy {f00=0x0064, f01=0x0190, f02=» OLD ' P FCOPY =C'BATCH' P FNL & P FTEXT '43 ' 2 P FCOPY =C'OPEN NEW ' F P FCOPY =C'TEST' b P FILLR '-',1 z P FCOPY =C'BATCH' P FNL P FTEXT '44 ' P FCOPY =C'OPEN OLD ' P FCOPY =C'TEST' P FILLR '-',1
0x14b1c4…14b358 Dummy {f00=0x0064, f01=0x0190, f02=»1 P FLINK F45ST P FB F41ST2 PF41ST1 FMEL 'XX',PRNUM 0 P FTAB 4 N P FCOPY =C'ENTRY' ^ P FILLR ' ',1 v P FCOPY =C'MODE' P FBF DOOL7,F41ST2 P FILLR ' ',1 P FCOPY =C'TEST' PF41ST2 FNL P FLINK
0x14b358…14b4ec Dummy {f00=0x0064, f01=0x018e, f02=»5ST FRMT P FTEXT '45 ' P FCOPY =C'DELETE' $ P FILLR '-',1 > P FCOPY =C'BATCH' R P FMEND j PF40UV FRMT x P FCOPY =C'UNIT' P FTEXT ':U' ( P FKI 7,MINL=1,MAXL=1,NEOI,ME,APPL=2 P FMEL 'X',USERFILE P FTAB 20
0x14b4ec…14b680 Dummy {f00=0x0064, f01=0x0190, f02=» P FCOPY =C'NAME' P FILLR ':',1 > P FKI 9,ALPHA,MINL=1,MAXL=6,ME,NEOI,APPL=3,DUPL=STSAVE(W1) 4 P FCOPY JOBNAME v P FMEND PF40BAT FRMT P FCOPY =C'BATCH' P FCOPY =C'NAME' P FILLR ':',1 > P FKI 30,ALPHA,MINL=1,M
0x14b680…14b814 (1, 184) Dummy {f00=0x0064, f01=0x405c, f02=»ND PBELL FRMT P FSL P FILLR X'07',1 ( P FMEND > P END L@ X
0x14b814…14b9a8 Dummy {f00=0x0064, f01=0x2008, f02=»
0x14b9a8…14bb3c Dummy {f00=0x0064, f01=0x0190, f02=»1 COMMA MISSING AFTER FIRST ELEM. OF AN EQUIV. LISTE ILLEGAL EQUIVALENCE LIST ELEMENT ILLEGAL SUBSCRIPT VALUER0 LEFT PARENTHESIS MISSING IN FORMAL ARGUMENT LIST ILLEGAL FORMAL ARGUMENTS1 ILLEGAL SYNTACTIC UNIT AFTER FORMAL ARGUMENT LISTN. MISSING LEFT PARENTHES
0x14bb3c…14bcd0 Dummy {f00=0x0064, f01=0x0190, f02=»/ MISSING RIGTH PARENTHESIS IN A DEFINE FILE LISTS" ILLEGAL SYNTACTIC UNIT AFTER COMMA* CONSTANT LIST DOES NOT MATCH VARIABLE LIST/ NON-COMMON VARIABLE @ FORBIDDEN IN A BLOCK DATAA+ FORMAL ARG. @ CANNOT BE INITIALIZED BY DATA 3 INIT.OF COMMON VARIABLE @ FORBIDDEN
0x14bcd0…14be64 Dummy {f00=0x0064, f01=0x0190, f02=»1 NB. OF SUBSCRIPTS DOES NOT MATCH NB OF DIMENSIONS 2 A CONSTANT CANNOT BE CONVERTED TO THE COR.VAR.TYPE ILLEGAL OR TOO LARGE CONSTANT-# ILLEGAL SYNTAX FOR A DATA STATEMENTK ILLEGAL SUBSCRIPT LIST MISSING OR ILLEGAL DELIMITER ILLEGAL ITEM IN A CONSTANT LISTE$
0x14be64…14bff8 Dummy {f00=0x0064, f01=0x0190, f02=»1 LOWER OR UPPER LIMIT MISSING IN A DO-IMPLIED LIST ! ILLEGAL STEP IN A DO-IMPLIED LIST ILLEGAL COMPLEX CONSTANT MISSING ELEMENT IN A LISTE2 @ IN A NAMELIST STATEMENT IS NOT VARIABLE OR ARRAY ARRAY NN IS GREATER THAN 32KITER ILLEGAL ITEM IN A CONSTANT LISTE$
0x14bff8…14c18c Dummy {f00=0x0064, f01=0x0190, f02=»% THIS STATEMENT IS TOO LONG TO COMPILE CONVERSION OVERFLOW @ IS NOT AN INTEGER VARIABLE ILLEGAL DO TERMINAL STATEMENT ) DO STATEMENT MUST NOT FOLLOW A LOGICAL IF 0 DO TERMINAL STATEMENT LABEL @ PREVIOUSLY DEFINED IMPROPERLY NESTED DO LOOPS UNDEFINED LABEL
0x14c18c…14c320 Dummy {f00=0x0064, f01=0x0190, f02=»& EXPRESSION IN ARITHMETIC IF IS COMPLEX SYNTAX ERROR, END PARAMETER NOT ALLOWED FOR THIS STATEMENT* NAMELISTS ARE INCOMPATIBLE WITH RANDON I/O @ IS NOT A FORMAT LABEL NOT INTEGER EXPRESSION$ MISSING LIST IN AN UNFORMATTED WRITE) MULTIPLE RETURN NOT ALLOWED IN
0x14c320…14c4b4 (1, 185) Opaque[0x194]
0x14c4b4…14c648 # DirEnt {nam=»DE20ST«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0c98, f03=0x0000}
0x14c4b4…14c648 IdxSect {
0x14c4b4…14c648 f00 = 0x0064 // 0x14c4b4 @0x0
0x14c4b4…14c648 f01 = 0x000a // 0x14c4b6 @0x2
0x14c4b4…14c648 gno = [ // 0x14c4b8 @0x4
0x14c4b4…14c648 [0x00]: C0x0064.0x3.0
0x14c4b4…14c648 [0x01]: C0x0065.0x0.0
0x14c4b4…14c648 [0x02]: C0x0065.0x1.0
0x14c4b4…14c648 [0x03]: C0x0065.0x2.0
0x14c4b4…14c648 [0x04]: C0x0065.0x3.0
0x14c4b4…14c648 ]
0x14c4b4…14c648 }
0x14c648…14c7dc Dummy {f00=0x0064, f01=0x0190, f02=» $ P IDENT DE20ST REL 10.0 80-04-11 P 80-03-23/JAER , DDUM DEDDIV D PDIV X P ENTRY DE20ST f P ENTRY DEAP2A | * * ** EXTERNAL REFERENCES TO SCREEN * P EXT DECLRA P EXT DERROR * 6 P*
0x14c7dc…14c970 Dummy {f00=0x0064, f01=0x0190, f02=» EXT DE24ST COPY FORMAT P* 8 P* EXTERNAL REFERENCES TO APPLICATION ROUTINE * P* f $ P EXT DEAOK0 RETURN TO DEAPPL =0 p $ P EXT DEANOK RETURN TO DEAPPL =3 $ P EXT DEAOK2 RETURN TO DEAPPL =2 $ P EXT DEAOK4 RETURN TO DEAPPL =4
0x14c970…14cb04 Dummy {f00=0x0064, f01=0x0190, f02=»OOL BUFFERPOOL ROUTINE & P EXT CNTNUM CONTROL VARIABLE INDEX P* H P EXT RESTOR R P EXT DEPRUT f P EXT DEPMSK z P EXT CMPIND COMPERE INDEX EJECT * * KEYTABLES * & P* USAGE: DATA ENTRY S
0x14cb04…14cc98 Dummy {f00=0x0064, f01=0x0190, f02=» t P* PDEKTAB4 KTAB CLR,CAN,RET,CFW * 6 * START OF PROGRAM @ * b P EJECT l PDE20ST PROC z P CBNE BIN2,W0,ENT1 PDEST & P SET BOOL1 PART OF FORMAT DISPLAY PDEST20 P ATTFMT F20ST & P SET D
0x14cc98…14ce2c Dummy {f00=0x0064, f01=0x0190, f02=»ER t P B ERROR CANCEL P CLEAR DEPROMPT ( B STA050 @ * R ENTER P CBNE BIN1,W2,RET2 j P CBNE BIN2,W0,ENT1 P B DEST PENT1 P CLEAR BOOL7 , P PERFI BIN2,DE21ST,DE21ST,DE23ST,DE24ST P CLEAR DOO
0x14ce2c…14cfc0 Dummy {f00=0x0064, f01=0x0190, f02=»E BIN1,W20 P PERF DEPRUT,PRNUM,BIN1,BIN2 P PERF DEPMSK 6 P B DEST20 J * ERROR f P MOVE DEBINW4,DEBINW2 t ERR2 P PERF DERROR,DEKTAB4 B STA100 * PRETUR P MOVE BIN2,W1 P MOVE BIN1,W0
0x14cfc0…14d154 (1, 186) Dummy {f00=0x0065, f01=0x0190, f02=»DEA21,DEA22,DEA23, C ( P DEA24,DEA25,DEA26,DEA27,DEA28, C P DEA29 J & P B DEAP2B LONG BRANCH CONSTRUCTION Z P EJECT P* P* APPLE=1,DE21 P* FORMAT DEFINED? P* PDEA21 . P XCOPY STR1A,W0,W1,DEINP
0x14d154…14d2e8 Dummy {f00=0x0065, f01=0x0190, f02=»1A , P CBNE STR1A,='*',DEE232 JUMP IF # * NOK PDE1B : P CBE FORMAT,DEINPUT,DEB21 F & P MOVE FRMTPNTR,W0 FORMATPOINTER:=0 h " P PERF DEDISC,W12 SEARCH FORMAT P BOK DEE28 FOUND NOT OK & P CBE DEBINW4,W9,DE1C NOT FOUND OK P B DEA
0x14d2e8…14d47c Dummy {f00=0x0065, f01=0x0190, f02=»,DEBIN4,STRG10A SEARCH AMONG BUFFERS z . P CBE DEBIN4,W0,DE1D NOT FOUND AMONG BUFFER , 6 P CBE DEBIN3,PINDDB,DE1D FOUND BUT SAME CURR BUFFER ^ P B DEE28 NOT OK PDE1D $ P GETCTL 0,DEBINW3 GET APPL VALUE . P CBE DEBINW3,=W'118',DEB21 JUMP IF A
0x14d47c…14d610 Dummy {f00=0x0065, f01=0x0190, f02=»JECT P* P* APPLE=2,DE21 4 P* CHECK IF INPUT IS LESS THAN OR EQUAL 23 2 P* j PDEA22 t * P MOVE BCD3A,DEINPUT LOAD INPUT DECIMAL * P MOVE DEBINW3,BCD3A LOAD INPUT BINARY $ P MOVE DEBINW4,W23 LOAD 23 BINARY * P C
0x14d610…14d7a4 Dummy {f00=0x0065, f01=0x0190, f02=»APPLE=3,DE21 , P* CHECK IF INPUT IS Y(ES) OR N(O) P* D PDEA23 N P PERF DEYN CHECK YES OR NO P BOK DEAOK0 OK ~ P BNOK DEE26 ILLEGAL VALUE P EJECT P* P* APPLE=4,DE21 & P* CHECK AND GET FORMAT-N
0x14d7a4…14d938 Dummy {f00=0x0065, f01=0x0190, f02=» B DEANOK NOT OK PDE24A P MOVE DEBINW2,W17 FAKE ENTER & P B DEAOK0 OK J P EJECT ^ P* l P* APPLE=5,DE21 v @ P* CHECK IF INPUT IS LESS THAN 64 AND NOT > FIELDLENGTH P* PDEA25 * P MOVE BCD3A,DEINPUT LOAD I
0x14d938…14dacc Dummy {f00=0x0065, f01=0x0190, f02=»EB21 <64 OK ~ P B DEE26 ILLEGAL VALUE P EJECT 2 P* @ P* APPLE=6,DE21 J * P* DUPLICATION-REFERENCE-CONTROL f P* PDEA26 4 P MOVE FMTWK(W4),DEBINW1 STORE NUMB OF DUPL.CHARS 4 P PERF CNTNUM,DEINPUT,FMTWK,W4 CONTRO
0x14dacc…14dc60 Dummy {f00=0x0065, f01=0x0190, f02=» APPLE=7,DE21 * P* CHECK IF INPUT VALUE < =32.767 P* D PDEA27 N , P MOVE BCD13A,DEINPUT LOAD INPUT DECIMAL , P CBNG BCD13A,=D'+32767',DEB21 <=32767 OK P B DEE26 ILLEGAL VALUE P EJECT P* P* APPLE=8,DE21
0x14dc60…14ddf4 (1, 187) Dummy {f00=0x0065, f01=0x0190, f02=»OR NO z * P CBE STR1A,='C',DE8B C(ONDITIONAL) OK P B DEE26 ILLEGAL VALUE < PDE8A Z P CBE STR1A,='Y',DE8C f PDE8B P SET CTAB P B DEAOK0 PDE8C ( P CLEAR CTAB INICATE KEYED INP-FIELD P B DEAOK0 P EJECT
0x14ddf4…14df88 Dummy {f00=0x0065, f01=0x0190, f02=»D INPUT DECIMAL x ( P MOVE DEBINW3,BCD13A LOAD '99'BINARY P CALL CMPIND,DEBINW3,ACK(W1) D P BNOK DEE26 OUT OF RANGE h P B DEAOK0 OK P EJECT P* P* LONG BRANCHE LIST P* ( P* APPL VALUE HANDLING ROUTINE
0x14df88…14e11c Dummy {f00=0x0065, f01=0x0190, f02=»CTION r P* PDEB21 P B DEAOK0 & PDEE22 8 $ P MOVE DEBINW4,W2 UNDEFINED ERROR F P B DEANOK n PDEE26 " P MOVE DEBINW4,W6 ILLEGAL VALUE P B DEANOK PDEE28 $ P MOVE DEBINW4,W8 ALREADY DEFINED P B DEANOK
0x14e11c…14e2b0 Dummy {f00=0x0065, f01=0x0190, f02=»* LINE-DESIGN CONTROL P* $ PDEA210 . 2 P MOVE FMTWK(W5),DEBINW1 STORE NUMB OF LDES CHS < P MOVE BIN5,W0 LOAD STPOINTER r 2 P MOVE DEBIN4,DEBINW1 STORE NUMBER OF LDES CHRS PD10A P CLEAR BOOL8 , P MATCH DEINPUT,BIN5,DEBIN4,P
0x14e2b0…14e444 Dummy {f00=0x0065, f01=0x0190, f02=» FIELD = > l ( P MOVE DEBINW1,BIN5 SAVE STARTPOINTER * P MOVE BIN16,W0 STPOINTER PICCHRS-TABLE > , P MATCH PICSTR,BIN16,W15,DEINPUT,BIN5,W1 l & P BNOK D10X NUMERIC FIELD OK (E<X>) * P CBE BIN16,W0,D10B ALPHANUM INDICATED * P IB BIN16,D10B,D10D,
0x14e444…14e5d8 Dummy {f00=0x0065, f01=0x0190, f02=»D ERROR ~ PD10B , P TBT BOOL6,D10NOK JUMP IF BALANCE FORMAT " P MOVE BIN15,BIN16 SAV PIC-TYPE L PD10C r P ADD BIN5,W1 NEXT POS ~ 2 P CBE BIN5,FMTWK(W5),D10NOK NO END OF FIELD = > . P MOVE BIN16,W0 STARTPOINTER PICCHRS-TABLE , P MAT
0x14e5d8…14e76c Dummy {f00=0x0065, f01=0x0190, f02=»D10Z * P CBE BIN16,W12,D10J END OF FIELD FOUND P B D10NOK ILLEGAL PIC-STRG : PD10X P ADD BIN5,W1 NEXT POS h 2 P CBE BIN5,FMTWK(W5),D10NOK NO END OF FIELD = > P MOVE BIN16,W0 , P MATCH PICSTR,BIN16,W15,DEINPUT,BIN5,W1 P BNOK
0x14e76c…14e900 Dummy {f00=0x0065, f01=0x018e, f02=»0-14 r P B D10NOK UNDEFINED ERROR PD10D . P SET BOOL8 : $ P B D10X LONG BRANCH INSTRUCTION L PD10F t P ADD BIN5,W1 NEXT POS 2 P CBG BIN5,FMTWK(W5),D10NOK NO END OF FIELD = > P MOVE BIN16,W0 , P MATCH PICSTR,BIN16,W15,DEINPU
0x14e900…14ea94 (1, 188) Dummy {f00=0x0065, f01=0x0190, f02=» ( P TBF BOOL8,D10NOK JUST 'E':S NOT OK PD10J 0 P ADD BIN5,W1 NEXT MATCH POS < 0 P MOVE DEBIN4,FMTWK(W5) RESORE NUMB OF CHARS ` P SUB DEBIN4,BIN5 P CBE DEBIN4,W0,D10OK READY P B D10A SEARCH NEXT FIELD PD10NOK " P MOVE DEBI
0x14ea94…14ec28 Dummy {f00=0x0065, f01=0x018e, f02=»EAOK4 INDICATE EDIT-MODE PD10OK P MOVE BIN5,W0 . $ P ERASE 2,W5,W5 CLEAR LINE DESIGN D P MOVE LDISP,=' ' MOVE SPACES l P B DEAOK0 OK P EJECT P* ( P* APPL VALUE HANDLING ROUTINE P* P* P* LONG
0x14ec28…14edbc Dummy {f00=0x0065, f01=0x0190, f02=» P DEA213,DEA214,DEA215, C P DEA216,DEA217,DEA218 & * P B DEE22 JUMP IF APPLE-VALUE OVERFLOW D P EJECT r P* P* APPL = 11,DE21 * P* SAVE NUMBER OF CHARS IN STRG 1 P* PDEA211 6 P MOVE FMTWK(W10),DEBINW1 S
0x14edbc…14ef50 Dummy {f00=0x0065, f01=0x0190, f02=»VE NUMBER OF CHARS IN STRG2 P* $ PDEA212 . 6 P MOVE FMTWK(W11),DEBINW1 STORE NUMB OF ACC.-CHARS < $ P B DEAOK0 OK NO UPDATE OF FIELD v P EJECT P* P* APPL = 13,DE21 P* PDEA213 & P MOVE FRMTPNTR,W0 FORMATPOIN
0x14ef50…14f0e4 Dummy {f00=0x0065, f01=0x0190, f02=»TR1A,='*',DE13A P CLEAR BOOL6 F=USER FORMAT P B DE13B : PDE13A J P SET BOOL6 T=BALANCE FORMAT X PDE13B | P B DEAOK0 P EJECT P* P* APPL=14,DE21 T P* MUST ENTER YES, SET SCHK4-BIT IF C(ONDITIONAL ME
0x14f0e4…14f278 Dummy {f00=0x0065, f01=0x0190, f02=»'C',DE14C P B DEE26 ILLEGAL VALUE PDE14C 0 & P SET SCHK4 INDICATE CONDITIONAL ME > P B DE14A CLEAR ME h PDE14B P CLEAR SCHK4 NO COND ME $ P CBE STR1A,='N',DE14A JUMP IF NO P SET ME INDICATE MUST ENTER P B DEAOK0 OK
0x14f278…14f40c Dummy {f00=0x0065, f01=0x0190, f02=» AUTOTAB YES/NO SET NEOI-BIT IF YES P* 0 PDEA215 : P PERF DEYN CHECK YES OR NO H P BNOK DEE26 ILLEGAL VALUE j $ P CBE STR1A,='N',DE15A JUMP IF NO P SET NEOI INDICATE AUTO-TAB P B DEAOK0 OK PDE15A $ P CLEAR NEOI IN
0x14f40c…14f5a0 Dummy {f00=0x0065, f01=0x0190, f02=» IF YES h P* PDEA216 " P PERF DEYN CHECK IF YES OR NO ( P BNOK DEE26 ILLEGAL VALUE N $ P CBE STR1A,='N',D16A JUMP IF NO p & P SET VERIFY INDICATE VERIFICATION P B DEAOK0 PD16A * P CLEAR VERIFY INDICATE NO VERIFICATION
0x14f5a0…14f734 (1, 189) Dummy {f00=0x0065, f01=0x0190, f02=»* PDEA217 P PERF DEYN CHECK YES OR NO P BNOK DEE26 ILLEGAL VALUE : $ P CBE STR1A,='N',D17A JUMP IF NO & P CLEAR NCLR INDICATE INITIAL CLEAR P B DEAOK0 PD17A ( P SET NCLR INDICATE NO INITIAL CLEAR P B DEAOK0
0x14f734…14f8c8 Dummy {f00=0x0065, f01=0x018e, f02=» CHECK IF INPUT IS Y(ES) OR N(O) P* , PDEYN PROC 6 ( P MOVE STR1A,DEINPUT LOAD INPUT VALUE H " P CBE STR1A,='N',DEYNOK N(O) OK t $ P CBE STR1A,='Y',DEYNOK Y(ES) OK P CMP W0,W1 CR:#0 P B DEYNRT PDEYNOK P CMP W0,W0 CR:
0x14f8c8…14fa5c Dummy {f00=0x0065, f01=0x0190, f02=» P FTEXT '20 ' P FCOPY =C'FORMAT' P FILLR '-',1 2 P FCOPY =C'DEFINITION' F FNL d P FCOPY =C'PROGRAM:' p ( P FKI 9,MINL=2,MAXL=2,ME,NEOI,APPL=1 P FMEL 'XX',PRNUM P FBF BOOL1,F20OUT P FNL P FTEXT '21 '
0x14fa5c…14fbf0 Dummy {f00=0x0065, f01=0x4144, f02=»COPY =C'BALANCE' P FILLR '-',1 ! P FCOPY =C'FORMAT' ! , P FCOPY =C'DEFINITION' ! F P FNL ! d P FTEXT '23 ' ! p P FCOPY =C'GET' ! P FILLR ' ',1 ! P FCOPY =C'FORMAT' ! P FNL ! P FTEXT '24 ' ! P FTEXT 'COPY ' ! P FCOPY =
0x14fbf0…14fd84 Dummy {f00=0x0065, f01=0x2008, f02=» " P FTEXT '22 ' P FCOPY =C'BALANCE' P FILLR '-',1 : P FCOPY =C'FORMAT' N P FCOPY =C'DEFINITION' h P FNL P FTEXT '23 ' P FCOPY =C'GET' P FILLR ' ',1 P FCOPY =C'FORMAT' PF20OUT FMEND E
0x14fd84…14ff18 Dummy {f00=0x0065, f01=0x0190, f02=» b f 0 n 2!X!6 l ! T v ^ X @ T W D V P @ & @ T 2 W A < P C V 0 C V P @ T
0x14ff18…1500ac Dummy {f00=0x0065, f01=0x0190, f02=» _" V ~ V 0 9 A ~ P P D D @ D D A @ V T V ~ V 0 ] R D D " = # @ T A _
0x1500ac…150240 Dummy {f00=0x0065, f01=0x0190, f02=» D D B X._. P 9H P C @ P P D @ W" @ W D @ B V W U @ T W X @ D B @ T B @ T @ W X
0x150240…1503d4 (1, 190) Opaque[0x194]
0x1503d4…150568 # DirEnt {nam=»DEDDIV«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0ef8, f03=0x0000}
0x1503d4…150568 IdxSect {
0x1503d4…150568 f00 = 0x0077 // 0x1503d4 @0x0
0x1503d4…150568 f01 = 0x000e // 0x1503d6 @0x2
0x1503d4…150568 gno = [ // 0x1503d8 @0x4
0x1503d4…150568 [0x00]: C0x0077.0x3.0
0x1503d4…150568 [0x01]: C0x0078.0x1.0
0x1503d4…150568 [0x02]: C0x0092.0x1.0
0x1503d4…150568 [0x03]: C0x0092.0x2.0
0x1503d4…150568 [0x04]: C0x0092.0x3.0
0x1503d4…150568 [0x05]: C0x00a8.0x3.0
0x1503d4…150568 [0x06]: C0x00a9.0x0.0
0x1503d4…150568 ]
0x1503d4…150568 }
0x150568…1506fc Dummy {f00=0x0077, f01=0x0190, f02=» 0 P IDENT DEDDIV REL 10.0 80-04-11,81-08-27,EV P 81-07-10,EV. NJ-AMT 8 P 80-03-24 V L P************************************************************************ j P* P* L P* *******************************************
0x1506fc…150890 Dummy {f00=0x0077, f01=0x0190, f02=»/ IDENTIFIER t P* * NUMBER P* * 8 $ P* * BOOL >0 - P $ P* * BIN >0 - x 4 P* * BCD >0 A,B,C,............ 4 P* * STR >0 A,B,C,............
0x150890…150a24 Dummy {f00=0x0077, f01=0x018e, f02=»********************************************************** P EJECT B P DDIV P P TERM T1 ^ P UWB CB1 n P CWB CB2 ~ P CWB CB3 P CWB CB4 P CWB CB5 P TWB TB2 P TWB TB3 P TWB TB4 P TWB TB5 P TWB TB1
0x150a24…150bb8 Dummy {f00=0x0077, f01=0x0190, f02=» P* DATA-SETS P* " P* , P* 6 PDISK DSET FC=D0,DEV=DU @ PDEDSDYKB DSET FC=20 ^ PDEDSSCRN DSET FC=50 z PDEDSPRT DSET FC=36 PDSDCFD DSET FC=61,DEV=DC SHB PDSFD DSET FC=F8,DEV=FD SHB ( P FMTCTL INDS=DEDSD
0x150bb8…150d4c Dummy {f00=0x0077, f01=0x0190, f02=»00 P EJECT P* P* TERMINAL-BLOCK: 1 " P* D ( P* USAGE: DATA RECORD STORING N P* z PTB1 BLK PRBUF STRG 256 RECORD AREA * POVERFLOW STRG 10 OVERFLOWAREA FOR RBUF P EJECT P* P* TER
0x150d4c…150ee0 Dummy {f00=0x0077, f01=0x018e, f02=»1 DBLK " PFDVBCD BCDI (8),5 1=PAGE SIZE P 2=LINE NUMBER 4 P 3=PAGE NUMBER L P 4=FIELDNR d P 5=FIELDSTART x P 6=FIELDLENGTH P 7=MINIMUMLENGTH P 8=USED RECORD SPACE PLDES STRG 80 LINE DESIGN PLDISP ST
0x150ee0…151074 (1, 191) Dummy {f00=0x0078, f01=0x0190, f02=» P 3=AUTO TABULATION FIELD P 4=VERIFICATION FIELD & P 5=INITIAL CLEAR F P VALUE = Y(ES) OR N(O) ` PSPEC BCD 6 SPECIAL HANDLING 0 PFMTWK BINI (24) WORKITEMS FORMAT GENERATION ( PPINDCB BIN POINTERINDEX CURR BUFFER , PPIND
0x151074…151208 Dummy {f00=0x0078, f01=0x0190, f02=»BIN WORKITEM FORMAT GENERATION P EJECT ( P* 6 B P* THIS DATA-BLOCK MUST NOT EXCCED 188 BYTES = POOL-SIZE @ P* PDB2 DBLK PSTATUS BIN STATUS " PSIZSYM BIN SIZE OF SYMBOLICS PSYMREC BINI (12) RECORDNR & PFORTAB
0x151208…15139c Dummy {f00=0x0078, f01=0x0190, f02=»-BLOCK MUST NOT EXCCED 188-BYTES = POOL-SIZE ~ P* USAGE: BATCHDATA 4 P* V PDB3 DBLK ` PBDABAL BOOL BALANCED BATCH p PBDAFRO BOOL FROSEN BATCH " PBDATRA BOOL TRANSFERRED BATCH PBDAFOR BOOL FORCED BATCH PBDATES BOO
0x15139c…151530 Dummy {f00=0x0078, f01=0x0190, f02=»H j & PBDSTAT STRG 2 STATUS OF BATCHDATA ( PBDPOIN BINI (6) 1 = LAST ENTERED REC 4 P 2 = NUMBER OF REC ` P 3 = NUMBER OF TRANSMITTED | P 4 = NUMBER OF FORCED P 5 = NUMBERS TO VERIFY P 6 = LAST ENTERED SUBTOTAL , PACK
0x151530…1516c4 Dummy {f00=0x0078, f01=0x0190, f02=»OCK: 1 ~ P* 6 P* USAGE: BUFFERPOOL-HANDLING + OTHER TABLES P* R PCB1 BLK PPOOL1 BOOL CONSEC. REQ. l PBOOLA1 BOOL USED IN OPENSY PBOOLA2 BOOL USED IN OPENUS PUORG BOOL F PW32 BIN W'32' CONSTANT PW6
0x1516c4…151858 Dummy {f00=0x0078, f01=0x0190, f02=» (11) 5 % OF FILESPACE & PSYSV STRGI (10),17 SYSTEMVARIABLES ( PRPOOL STRGI (1),2 BUFFER-REFERENCES H P 1-1 USAGE-TYPE STRG t P 2-7 NAME P 8-8 NUMBER OF USERS P 9-9 LINK TO NEXT BUFFER PBPOOL STRGI (1),2 BUFFERPOOL 4
0x151858…1519ec Dummy {f00=0x0078, f01=0x0190, f02=»GE: CONSTANTS P* PCB2 BLK PW0 BIN W'0' CONSTANT 0 PW1 BIN W'1' CONSTANT L PW2 BIN W'2' CONSTANT h PW3 BIN W'3' CONSTANT PW4 BIN W'4' CONSTANT PW5 BIN W'5' CONSTANT PW6 BIN W'6' CONSTANT PW7 BIN W'7' CONSTANT
0x1519ec…151b80 Dummy {f00=0x0078, f01=0x0190, f02=»' CONSTANT PW13 BIN W'13' CONSTANT PW14 BIN W'14' CONSTANT 0 PW15 BIN W'15' CONSTANT N P EJECT l P* z P* COMMON-BLOCK:3 P* P* USAGE: CONSTANTS P* PCB3 BLK PW16 BIN W'16' CONSTANT P
0x151b80…151d14 (1, 192) Dummy {f00=0x0092, f01=0x0190, f02=»NSTANT PW22 BIN W'22' CONSTANT PW23 BIN W'23' CONSTANT , PW24 BIN W'24' CONSTANT J PW25 BIN W'25' CONSTANT h PW26 BIN W'26' CONSTANT PW27 BIN W'27' CONSTANT PW28 BIN W'28' CONSTANT PW29 BIN W'29' CONSTANT " PSYSLEN BIN
0x151d14…151ea8 Dummy {f00=0x0092, f01=0x0190, f02=»* " P* USAGE: DISC-HANDLING PCB4 BLK 0 PRECOV BOOL RECOVERY RUNNUNG @ & PAUTENT BOOL T AUTOMATIC ENTER WHEN d P WHEN LAST FIELD REACHED PRECFIL BIN FILE IN RECOVERY & PFILECODE BINI (11),X'D0' FILECODE * PFCOUNTER B
0x151ea8…15203c Dummy {f00=0x0092, f01=0x0190, f02=»C.NUMBER FREESPACE ~ $ PRBUFLN BIN RECORDBUFFERLENGTH PPRKEYS STRG X' KEYMASKS C B , P 0444400000 THE ITEM CONTAIN 5 BYTES C d $ P 0444400000 (OR 10 HALFBYTES) C * P 0440000000 FOR EACH MODE STARTING C * P 0888880000 WITH SUPERVISORY
0x15203c…1521d0 Dummy {f00=0x0092, f01=0x0190, f02=»MNUMBER 10,THE C z . P 0000000000 NEXT BY 11 AND SO ON UP TO C $ P 0000000000 PROGRAMNUMBER 19. C J P ' THE NEXT 5 BYTES IS FOR r P FORMAT DEFINITION MODE. P (PROGRAMNUMBERS 20 - 29). P EACH HALBYTE REPRESENTS & P A KEYMA
0x1521d0…152364 Dummy {f00=0x0092, f01=0x0190, f02=» p $ P BYTE IS X'60',THE FIRST HALF- P BYTE IS 6, THEN THE 0 P BITS 0110 MEANS THAT THE N " P THE KEYS 2 AND 3 HAVE TO BE r P SWITCHED ON WHEN WORKING " P WITH THE SPECIFIED PROGRAM. , PPROGNR STRG X' EXISTING PROGRAMNUMBERS
0x152364…1524f8 Dummy {f00=0x0092, f01=0x0190, f02=» 80 - 95 C P 0000 96 - 115 C P ' , P EJECT 8 L P* DEVTYP POS 1- F " P POS 3 = DEVICE UNIT NUMBER P POS 4 = FILE-CODE P POS 5 = DEVICE-CLASS " P CLASS =
0x1524f8…15268c Dummy {f00=0x0092, f01=0x0190, f02=» = 5 DISK-FILE $ P = 6 FLOPPY-DISC FILE $ P = 7 DELETE USERFILE D PDEVTYP STRG X' C l $ P 4443006101 DC[]<FC=61><CL=1> C $ P 0000000002 DC[]<FC=00><CL=2> C $ P 0000001203 TK[]<FC=12><CL=3> C $ P 4C500030
0x15268c…152820 Dummy {f00=0x0092, f01=0x0190, f02=»L=6> C v $ P 444C550007 DLU <FC=00><CL=7> C $ P 46524F0008 FRO <FC=00><CL=8> C 6 $ P 47504C3609 GPL <FC=36><CL=9> C ^ $ P 4C504C3009 LPL <FC=30><CL=9> C P ' P* DISC UNIT NUMBERS PDUNIT STRG X' C P F4 C P F0 FIX D
0x152820…1529b4 (1, 193) Dummy {f00=0x0092, f01=0x0190, f02=»LEX 1 6879 C P F9 FLEX 2 6879 C P FA FLEX 3 6879 C . P FB FLEX 4 6879 C H P FC 80-MB 6877 C b P ' | P EJECT P* P* COMMON-BLOCK: 5 P* P* USAGE: STATUS LINE/ P* PCB5 BLK P
0x1529b4…152b48 Dummy {f00=0x0092, f01=0x0190, f02=» P C3 3 = FTEXT C P C4 4 = FTAB C P C5 5 = FVAL C 4 P C6 6 = FGEN C L P C7 7 = FACC C d P CC 8 = FDUPL C | P DE 9 = FLINK C P E0 10= FSL C P E1 11= FNL C P E9 12= FEXIT C P F0 13= FKI C P
0x152b48…152cdc Dummy {f00=0x0092, f01=0x0190, f02=» FKI APPLE>255 DUPL C P ' P EJECT * PSYSBUF STRG 256C DISC BUFFER 8 PDATE BCD 8X'0F000000' YYMMDD PTIME BCD 8 HHMMSS PHEX00 STRG 1X'00' PAUSE ITEM . PFVOLNAME STRGI (8),6C'SYSVOL' VOLUMENAMES $ PMODTAB STRGI (8),1 MODE
0x152cdc…152e70 Dummy {f00=0x0092, f01=0x0190, f02=»4D 0. M=MESSAGE C P 2F 1. /=NOT C P 3D 2. ==EQUAL C 2 P 3E 3. >=GREATER C L P 3C 4. <=LESS C h " P 44 5. D=DUPLICATE STRING C P* P 4C 6. L=LENGTH C P 21 7. !=ABSOLUTE VALUE C P 41 8. A=ACCUMULATOR
0x152e70…153004 Dummy {f00=0x0092, f01=0x018e, f02=» z * P 43 13. C=CODED VALIDATION ROUTINE C P 45 14. E=EMPTY FIELD C 6 P* V P 2B 15. +=ADD C ` P 2D 16. -=SUBTRACT C x P 2A 17. *=MULTIPLY C P 3A 18. :=DIVIDE C P* $ P 3B 19. ;=EXPRESION SEPARATOR C P 26 2
0x153004…153198 Dummy {f00=0x0092, f01=0x0190, f02=» p $ P 5A 24. Z=ZEROISE ACCUMULATOR C P 47 25. G=GO TO FIELDNR C 0 $ P 52 26. R=NEXT FORMAT CHANGE C R ( P 4E 27. N=IMMIDIATE RECORD CHANGE C z $ P 58 28. X=INDEX OF VALUE-SET C " P 28 29. (=LINK PARENTHESIS C " P 29 30. )=RIGHT PAR
0x153198…15332c Dummy {f00=0x0092, f01=0x0190, f02=» 56 2. V=VERIFIED C P 54 3. T=TEST ENTERED C P 46 4. F=FORCED C < P 43 5. C=CONVERTED C V P 41 6. A=ACCEPTED(FROSEN) C t P 42 7. B=BALANCED C P 2F 8. /=NOT STATUS C P 2C 9. ,=SEPARATOR C P ' & PPICSTR STRG
0x15332c…1534c0 Dummy {f00=0x0092, f01=0x0190, f02=»T TO LEAD. DIG. C | $ P 50 3. P=SKIP THIS POSITION C * P 54 4. T=LEFTADJ. TO LEAD. N. ZER C B $ P 58 5. X=PRINT ALPHANUMERIC C p * P 5A 6. Z=LEAD. ZEROES REPL. SPACE C , P 59 7. Y=ALPHANUM/=EMPTY ELSE SPACE C " P 2B 8. +=PRINT +
0x1534c0…153654 (1, 194) Dummy {f00=0x0092, f01=0x0190, f02=»3E 12. >=END OF PICTURE STRING C ( P 3C 13. <=BEGIN OF PICTURE STRING C ( P 30 14. 0=LEFT ZERO FILL C T P ' x P EJECT & PPICCON STRG X' PICTURECONVERTION C ( P 2D 0. -=S(SIGN -SIGN IF NEGATIV C " P 56 1. V=.(ROOMLESS POINT C
0x153654…1537e8 Dummy {f00=0x0092, f01=0x018e, f02=» j P EJECT P* P* TERMINAL-BLOCK: 2 P* B 2 P* USAGE: TERMINAL-DEPENDENT VARIASBELS L P* PTB2 BLK " PKEY4 BOOL POSITION INDICATORS $ PKEY3 BOOL ...FOR KEY-LOCKS 1-4. PKEY2 BOOL ...F=OFF, PKE
0x1537e8…15397c Dummy {f00=0x0092, f01=0x0190, f02=» PBOOL5 BOOL WORKITEM PBOOL6 BOOL WORKITEM PBOOL7 BOOL WORKITEM < PBOOL8 BOOL WORKITEM X PBOOL9 BOOL WORKITEM t $ PDECHANGE BOOL VARIABLES CHANGED " PDEPROMPT BOOL DISPLAY PROMTS ( PDENOCHAN BOOL NO CHANGES PERMITTED
0x15397c…153b10 Dummy {f00=0x0092, f01=0x0190, f02=»IN WORKITEM ( PUSELEN BIN LENGTH OF MAX RECORDAREA ! PKEYMSK BIN MASK AUTHORITY ! @ & PNUMBER BCD 7 CURRENT RECORDNUMBER ! b & PPRNUM BCD 4 CURRENT PROGRAMNUMBER ! $ PUSERFILE BCD 2 CURRENT USER-FILE ! PMODE STRG 1 CURRENT MODE ! " PJOBNAME ST
0x153b10…153ca4 Dummy {f00=0x0092, f01=0x0190, f02=»IC ! t " PSTATSH STRG 133 SEARCH STATUS " P EJECT " 0 P* " > P* TERMINAL-BLOCK: 3 " H P* " j " P* USAGE: DATA ENTERING " t P* " PTB3 BLK " PSWIT01 BOOL USED IN DEDISC " PSWIT02 BOOL -"- " PSWIT03 BOOL -"-
0x153ca4…153e38 Dummy {f00=0x0092, f01=0x0190, f02=»ISC " x $ PSW95PR BOOL 95% FILESPACE USED # $ PSOOL1 BOOL USED FOR STATUSLINE # 4 PSOOL2 BOOL -"- # PDOOLA BOOL # z PDOOLB BOOL # PDOOLC BOOL # PVERIFM BOOL VERIFM MODE # " PKEYVER BOOL KEY-VERIFICATION # P EJECT # $ PFLIN
0x153e38…153fcc Dummy {f00=0x0092, f01=0x0190, f02=»BIN POINTER IN RNRFMCH # * PCURSEC BIN CURRENT SECTORNO USERFILE $ $ PFILINDUS BIN INDEX FOR USERFILE $ N , PPRECPR BIN PREVIOUS DATA-RECORD IN RBUF $ v & PPRECCUR BIN CURRENT - " - $ & PRECLNTH BIN CURRENT RECORDLENGTH $ ( PPJOBCUR BIN L
0x153fcc…154160 Dummy {f00=0x0092, f01=0x0190, f02=»EAREA FOR WORKBLOCKS $ ~ P AND DESCRIPTORS % " PSTR64A STRG 64 STRINGWORKITEM % 8 6 PSTSAVE STRGI (5),6 THIS VARIABEL IS USED TO SAVE C % ^ & P X'000000000000',X'000000000000' % P 1 = JOBNAME % P 2 = BATCH % & P 3 = CONDITIONAL FORM
0x154160…1542f4 (1, 195) Dummy {f00=0x00a8, f01=0x0190, f02=»K: 4 % z P* & 0 P* USAGE: BOOLEAN AND BINARY WORKITEMS & P* & J PTB4 BLK & T PDBOBAL BOOL BALANCED RECORD & d PDBOFRO BOOL FROSEN RECORD & $ PDBOTRA BOOL TRANSFERRED RECORD & PDBOFOR BOOL FORCED RECORD & $ PDBOTES BOOL TESTENT
0x1542f4…154488 Dummy {f00=0x00a8, f01=0x0190, f02=»OL1 BOOL USED IN ENTRY MODE & PDOOL2 BOOL -"- ' $ PDOOL3 BOOL -"- ' B PDOOL4 BOOL -"- ' ` PDOOL5 BOOL -"- ' ~ PDOOL6 BOOL -"- ' PDOOL7 BOOL T=TEST MODE ' & PDOOL8 BOOL IF SET OPEN NEW BATCH ' P I
0x154488…15461c Dummy {f00=0x00a8, f01=0x0190, f02=»EM ' PBIN5 BIN WORKITEM ( PBIN6 BIN WORKITEM ( $ PBIN7 BIN WORKITEM ( > PBIN8 BIN WORKITEM ( X PBIN9 BIN WORKITEM ( r PBIN10 BIN WORKITEM ( PBIN11 BIN WORKITEM ( PBIN12 BIN WORKITEM ( PBIN13 BIN WORKITEM ( PBIN14 BIN W
0x15461c…1547b0 Dummy {f00=0x00a8, f01=0x0190, f02=» D P* USAGE: BCD-/ STRG-WORKITEMS AND DENTERPACKAGE VARIABLES ) . P* BOOLEANS: BITS OF CTLWORD IN FKI ) L P* ) ~ PTB5 BLK ) & PSCHK1 BOOL SPECIAL CHECK 1 MINUS ) PSCHK2 BOOL SPECIAL CHECK 2 ) PSCHK4 BOOL SPECIAL CHECK 4 )
0x1547b0…154944 Dummy {f00=0x00a8, f01=0x018e, f02=»REWRT BOOL REWRITE-BIT ) " PNEOI BOOL NOT-END-OF-ITEM-BIT * PALPHA BOOL ALPHANUMERIC BIT * F PME BOOL MUST ENTER BIT * j P EJECT * PDEBINW1 BIN DENTERVARIABLE * PDEBINW2 BIN DENTERVARIABLE * PDEBINW3 BIN DENTERVARIABLE * PDEBI
0x154944…154ad8 Dummy {f00=0x00a8, f01=0x0190, f02=» * z PBCD3A BCD 3 WORKITEM + PBCD13A BCD 13 WORKITEM + $ PSTR1A STRG 1 WORKITEM + B PSTR2A STRG 2 WORKITEM + ` PSTR6A STRG 6 WORKITEM + ~ PSTR6B STRG 6 + PSTRG10A STRG 10 WORKITEM + PSTR15A STRG 15 WORKITEM + & PBCDI21 BCDI (5),21 WORKI
0x154ad8…154c6c Dummy {f00=0x00a8, f01=0x0190, f02=»LOCK: 6 + ~ P* , PTB6 BLK , & PNEWVOL BOOL F 'NEW VOLUME LOADED' , * " PSWITFS BOOL F FREESPACE TAKEN , T & PSWITWT BOOL F SYSBUF ATTACHED Y/N , z * PSWITSY BOOL F SYSTEMFILE ASSIGNED Y/N , ( PSWITUS BOOL F USERFILE ASSIGNED Y/N , & PASDFLAG BO
0x154c6c…154e00 Dummy {f00=0x00a8, f01=0x0190, f02=»ULATION SHB , v $ PCHKBAL BOOL F CHECK BALANCE SHB - * PFSUPR BOOL F T=SUPPRESS ZERO,FIELD,DK - < ( PBSUPR BOOL F T=SUPPRESS ZERO,ALL,DK - j PCORR BOOL F CORRECTION,DK - ( PBCONT BOOL F T=CONTINUATION CHAR,DK - , PFIRSTFL BOOL F T=FIRST RECORD HEADER
0x154e00…154f94 (1, 196) Dummy {f00=0x00a9, f01=0x0190, f02=»ALUE-SETS - v ( PDKBIN1 BIN WORKITEM, DISC-ROUTINES . ( PDKBIN2 BIN WORKITEM, DISC-ROUTINES . > $ PDKBIN3 BIN WORKITEM, DISC-ROUT . j PSECLEN BIN W'256' . P SECTORLENTH USERFILE . ( PTABLE STRG 6 TABLE-NAME (VALUE-SETS) . PEOLINE BIN END-
0x154f94…155128 Dummy {f00=0x00a9, f01=0x0190, f02=»EARCH MODE . " P WORKITEM 13 USED BY DECONV / " P WORKITEM 14 USED BY DECONV / 8 " P 15,DECONV,LENGTH HEADER,DK / ^ P 16,DECONV,POS.REC.NO,DK / " P 17,DECONV,LENGTH REC.NO,DK / P 18,DECONV,POS.SEQ.NO,DK / " P 19,DECONV,LENGTH SEQ.NO
0x155128…1552bc Dummy {f00=0x00a9, f01=0x0190, f02=»LGD, DK / | P EJECT 0 P* 0 P* COMMON WORKITEM FOR SHB 0 ( P* 0 J P 0 T PCB6 BLK 0 ( PDCSTAT BOOL F CARRIER OFF, TIME OUT 0 l & PDCBAB BOOL F T=ABORT DC CONVERSION 0 & PFDBAB BOOL F T=ABORT FD CONVERSION 0 $ PFDEOF BOOL F T=END OF FILE O
0x1552bc…155450 Dummy {f00=0x00a9, f01=0x4126, f02=» PDCWRK BIN DC TASK WORK 1 $ PTSKADR BIN X'0040' TASK ADDRESS 1 $ ( PREQDC BIN REQUESTED LENGTH DCWRITE 1 L , PREQFD BIN REQUESTED LENGTH FDWRITE/READ 1 x PCWFD BIN CONTROL WORD FD 1 PFDCNT BCD 4 FD NUMBER 1 PDCBUF STRG 20 DC BUFFER 1
0x155450…1555e4 Dummy {f00=0x00a9, f01=0x2008, f02=» 2 EOLINE BIN END-OF-LINE + ( PVSEIND BIN VALUE-SET ELEMENT INDEX + ( " PWORK BINI (12) FREE WORK ITEMS + T P WORKITEM 11,12 USED BYE + z P SEARCH MODE + PDIV + END + @ + SC-ROUTINES * ( PDKBIN2 BIN WORKITEM, DISC-ROUTINES
0x1555e4…155778 Dummy {f00=0x00a9, f01=0x0190, f02=»V 4 _P :#0 T B 'W F B B " ?^ : P@" @8PR L@ R R _ R _ # Q R V > _V X^ ' h P P & 1_ P 1_ , @ - R T U :J a B@ ' d w5 1
0x155778…15590c Dummy {f00=0x00a9, f01=0x0190, f02=» :ATATATB0C0A C(8b_ _ `nabc c A B B B B B A B B ; f~f e e f~e|A CPCLCVCXA A A A 0h W V 7 @ ! P 0d P W A. @@ R E If B< pVP 9c D@ 5 5& Q @ W `n :aW, @@ YRP E6 @@ ]^ E @@ ]h E0_n Fr 2
0x15590c…155aa0 Dummy {f00=0x00a9, f01=0x0190, f02=» V 0d W V P _ 8^t D@ 2 ! 9BP V T W V P D $ V 6 V % V E @ ' T 2 % 7_ 2 # PH L PB 5 2" &] Y $! 6P Q $ T 9BP A _ _ W A 6 @ " T 7 $ V P 0d W
0x155aa0…155c34 (1, 197) Opaque[0x194]
0x155c34…155dc8 # DirEnt {nam=»DLINK «, typ=»LM«, f00=0x0000, f01=0x0000, f02=0x0cf8, f03=0x0000}
0x155c34…155dc8 IdxSect {
0x155c34…155dc8 f00 = 0x0067 // 0x155c34 @0x0
0x155c34…155dc8 f01 = 0x0030 // 0x155c36 @0x2
0x155c34…155dc8 gno = [ // 0x155c38 @0x4
0x155c34…155dc8 [0x00]: C0x0067.0x3.0
0x155c34…155dc8 [0x01]: C0x0068.0x0.0
0x155c34…155dc8 [0x02]: C0x0068.0x1.0
0x155c34…155dc8 [0x03]: C0x0068.0x2.0
0x155c34…155dc8 [0x04]: C0x0068.0x3.0
0x155c34…155dc8 [0x05]: C0x0069.0x0.0
0x155c34…155dc8 [0x06]: C0x0069.0x1.0
0x155c34…155dc8 [0x07]: C0x0069.0x2.0
0x155c34…155dc8 [0x08]: C0x0069.0x3.0
0x155c34…155dc8 [0x09]: C0x006a.0x0.0
0x155c34…155dc8 [0x0a]: C0x006a.0x1.0
0x155c34…155dc8 [0x0b]: C0x006a.0x2.0
0x155c34…155dc8 [0x0c]: C0x006a.0x3.0
0x155c34…155dc8 [0x0d]: C0x006b.0x0.0
0x155c34…155dc8 [0x0e]: C0x006b.0x1.0
0x155c34…155dc8 [0x0f]: C0x006b.0x2.0
0x155c34…155dc8 [0x10]: C0x006b.0x3.0
0x155c34…155dc8 [0x11]: C0x006c.0x0.0
0x155c34…155dc8 [0x12]: C0x006c.0x1.0
0x155c34…155dc8 [0x13]: C0x006c.0x2.0
0x155c34…155dc8 [0x14]: C0x006c.0x3.0
0x155c34…155dc8 [0x15]: C0x006d.0x0.0
0x155c34…155dc8 [0x16]: C0x006d.0x1.0
0x155c34…155dc8 [0x17]: C0x006d.0x2.0
0x155c34…155dc8 ]
0x155c34…155dc8 }
0x155dc8…155f5c Dummy {f00=0x0067, f01=0x0190, f02=»Dl k FCR x D I |D R D X D c D n D u D D D D D D 6D D l |CB1 @
0x155f5c…1560f0 Dummy {f00=0x0067, f01=0x0190, f02=» | F Z 4 a 6 P
0x1560f0…156284 Dummy {f00=0x0067, f01=0x0190, f02=» x * z
0x156284…156418 Dummy {f00=0x0067, f01=0x0190, f02=»
[…0x1…]
0x1565ac…156740 Dummy {f00=0x0067, f01=0x0190, f02=» n 6 $ B 8
0x156740…1568d4 (1, 198) Dummy {f00=0x0068, f01=0x0190, f02=» " " ? < DC a GP 6 FD DLU FRO B . D Z
0x1568d4…156a68 Dummy {f00=0x0068, f01=0x0190, f02=» SYSVOLSYSVOLSYSVOLSYSVOLSYSVOLSYSVOLSYSVOLSYSVOLPFJESVCHM/=><DL!ASUFT
0x156a68…156bfc Dummy {f00=0x0068, f01=0x0190, f02=» 0 M U t ~ 0 * B 0
0x156bfc…156d90 Dummy {f00=0x0068, f01=0x0190, f02=» B @
0x156d90…156f24 Dummy {f00=0x0068, f01=0x0190, f02=» . D2 x * ( `@ @ & 0
0x156f24…1570b8 Dummy {f00=0x0068, f01=0x0190, f02=» j pDl z > h h 3 p 1 l t x xDh 0 0}0 o0 oA T 0 K 0 Ad1 An@m 6 _ @n_ 1 An _% ) !P V _, 6 ## _ jX 3 0 0}@d "P n_r 4 # 6 P 7MW (j "M (
0x1570b8…15724c Dummy {f00=0x0068, f01=0x0190, f02=» Vv 0 !!W6 'WH ! W+ " W% h * h `h h h 2` W 4 !4 "4 $4 & #4 H "4 4 * 4 | z { !V f 4 * " j !!L 0 /P /0 f 4 0 f 4 4 0 0 0 $0 T 0 0 W 0 W 0 4P +W 4 0 4 j
0x15724c…1573e0 Dummy {f00=0x0068, f01=0x0190, f02=» 4 $ !"4 "!4 !!4 I @w 0 0 V # 4 A 0 _ @ P 0 0 4 b !& bc 4 c b"R b! b 0 `" !($ 5W% a a0$a, 0 `aW a$$a, 0 `a0 ` b#$ ! 0 `f `f b" c$" ! b c b" W !4 ( #M0 T ! ! P.W< !0 P) * 2 *#U 1 *
0x1573e0…157574 (1, 199) Dummy {f00=0x0068, f01=0x0190, f02=»':# "& &r 2( ( ( (p! 4 x L B H bHb, v4 B5 % [ a ~ $ D ~ e ) 1 @ | H B "
0x157574…157708 Dummy {f00=0x0068, f01=0x0190, f02=»ELEMENTNAME: TPROGRAM:REL 10.0SIZE OF DEFINITION VALUE-SETS70 CONVERSION10 SUPERVISORY FUNCTIONS1 99XXXXXXXXXXXXXXXXXXXXXXX-
0x157708…15789c Dummy {f00=0x0068, f01=0x0190, f02=» U U RETURN FROM DATA-ENTRY U h d ' . ) e e @
0x15789c…157a30 Dummy {f00=0x0068, f01=0x0190, f02=»- - 30 - - 40 ! 50 % 60 & / $ ( - 2 7 = C I O V ] d l t | 0 0 ! ' . 5 < D
0x157a30…157bc4 Dummy {f00=0x0068, f01=0x0190, f02=» P " 9F 9F & 9F &9B %W _ 7 9F F C W ( = Wn _ 9F & 9F & 9F ( : T P< P8 <<HT _ R <A_ <A <a ^ <h = F F ) 9F ' D T 9F & X X X* T Z0 I R < _ <h =
0x157bc4…157d58 Dummy {f00=0x0068, f01=0x0190, f02=» V V Q WR _< _B 7 9F C 9F ( B T B $ ' Y 9F ' D _ 9F 9F : 9F 9F 9F 9F 9F P < C 9h9G & C 9b! 8 #_h B " ' ""? 99g! ":e" B =_ _f 9F 9F & 9_
0x157d58…157eec Dummy {f00=0x0068, f01=0x0190, f02=» W P 8 _> 9F 9F 9F 9F P 8# ' Y = # _ _ _ _ _ 9F 9F ' 9F _ 9F & 9F ]8 Z YB_J W 7 9F & C 9F 9F & C 9F & C C ( B X _ W & Y < * C _& 7 9F 9F
0x157eec…158080 Dummy {f00=0x0068, f01=0x0190, f02=» E 0 E , Y E . D 9F 3 X ' 9F X P &V Y , X Y / X Y ) 9F 3 & Y _P W _ 9F P2 T !00R$ !99Q $ Y T U U _6 T P Y P 9F V E D 9F 9F P P
0x158080…158214 (1, 200) Dummy {f00=0x0068, f01=0x0190, f02=»9F 9F & C C T #W T # C C 6" 9F#0 I| 8 & + P _ I D 9F#03 I| 9F;d # + D 9F #0 0T & ! T P & ! X T C D % &4 * Y ( x P Y * # x y Wv X "
0x158214…1583a8 Dummy {f00=0x0068, f01=0x0190, f02=» Y , * X X C & C C ( B Ph9 R^9 $ X !@PP X X * b ) Y * Y , X , * x X *YrP y X " x Y X " T Y _ % _ B U C Q C D" " " " # $ % #2 X X * $" ~_> @ Y X * ! _R X !@XX y X # x V y
0x1583a8…15853c Dummy {f00=0x0068, f01=0x0190, f02=» * X 1 1 X !@T X $ " P y _ x T % $ X H X X * , )$ P _ : % ' Y 8 &4 y x C y X C C X ( x Tf B %,9 R 9 $ X ! T % _ y C Q " T * * X !
0x15853c…1586d0 Dummy {f00=0x0068, f01=0x0190, f02=» C X !? x P Q( B y " y $ c 3 C _$ _ % y _6 # x X@ X * X # * C _. B ]d P C Q8X8_H x XD @ Y c C y XR X x * % $L x X X # * _ B % C *p : + * X * * (
0x1586d0…158864 Dummy {f00=0x0068, f01=0x0190, f02=»I : 8 9F &b 9F &b " 9F &b $ : ! P # P I| : 3 2! I Y " 4 9F 4* 9F !0 I| ; 3 X "T X 3 * 3 3 9F !0 I| X 3 & 3 4 ' 9F ! Y 0T V 4* ;
0x158864…1589f8 Dummy {f00=0x0068, f01=0x0190, f02=» 3 X ! 3 3 3 X " 9b! X :c 2" I H' 3 @ W W W W W W W 3 Y ( Y 09H Y * Y 4 Y 2 Y 69h Q X :h Y 0 +lW U X Q ,jW Y 0 +d , 7 6 3 9H Y * *&W W * 6 X 0T I X 2
0x1589f8…158b8c Dummy {f00=0x0068, f01=0x0190, f02=» U Q I Y Q P W W Y ( +d C 3 X *! P V L ! 3 D X 0 Y 8 ) P 3 Y 0 X 0 X 2] X 8 Y 0 ) : X 0 :H* 3 : X 2T Y 2 : C 1 B ] 7 : * X +! I X +! U 9K Y ( Y + +d , 3 9H Y * 2 Y
0x158b8c…158d20 Dummy {f00=0x0068, f01=0x0190, f02=»_( _ X * * P * B _N ( 4 X D D : K + Q 2 P. P8 8 @l ( 4* B X # V : 9F ? _0 ; _>GZGX9FGXGXGXG GFGB@D?D@D> , .`.`GX, GX? W W X 0Q ,j ,h Y ( Y *P 6 > +< X <'
0x158d20…158eb4 (1, 201) Dummy {f00=0x0068, f01=0x0190, f02=»P P T0 " X _@ " P" 6 X *# P B 1 6 W I " P X X( C : X *! P P T I P 6 3: C W @ X (T W X y 6 Y ( : X (;n 3 GZ? @l? ? - G GFGB@0?D@:> , - - @N, GX? 3 Y . Y ,W 3 Y . X ( X ." PV X 0
0x158eb4…159048 Dummy {f00=0x0068, f01=0x0190, f02=» T " T : " I Y . 1 Y ( ?D 3 Y *T " T ! 1 W ! ) @ : 3 ? F P & Y *T - : X > T X & V D ! T W @ 2 3 X >P( R Q" X & V D ! P $ ! P %_ @ : 3 V Y " X .9H $ F P & X (
0x159048…1591dc Dummy {f00=0x0068, f01=0x0190, f02=»Pn P P I 0 P< 1*WZ X ! X $" P<Q X (# P2 X # :! R$W 1* 0 T$ @ Y (W Y , 1 W 1 Y ( ?D : X *:h X (! # P X & V L TbW X , X 0P@ 0 T, X *:h XF XL X (!@T @ Y ( X , Y t X 0 l 1*_r X ( P Y (_
0x1591dc…159370 Dummy {f00=0x0068, f01=0x0190, f02=»1R X (P 0 3F 8 Y 0 X 2P X 0V _z Y ( " T Y ( : 8 2 9F 8 V Y 8 : " P X & V ( P 1 : : 0 "0P $ T W %T : : Y ( X $ Y X " Y X & Y X < Y @ : Y : 3 X : X ( T X & V H " V
0x159370…159504 Dummy {f00=0x0068, f01=0x0190, f02=»=H Gb 2` X *! T" X y 4 @ X (T y 6W4 X y 6W, @ X (P W" X & V D ! P @ W X 3 W Y ( : X , Y X $ Y X &T Y Y Y WD V $:H D Y D :H Y ! P V Y 9FW Y ! P 8 W V Y 2 V Y : 9F ? : 2'
0x159504…159698 Dummy {f00=0x0068, f01=0x0190, f02=» Y : W 8 V ? 3 Y Y Y < V E D B X _ v : C C 7 : C 7 :( R : V E V D ' $ I W 3 P D X =' V W V Y =P 3 : ( D 7 "R V I D 7
0x159698…15982c Dummy {f00=0x0068, f01=0x0190, f02=»W 7* 6" 5 / 6& _ 7 8` 8 P 9F <H : 5(W 7 8 9F &P B V C / <H "!@ I : 7 8 C C W 8 C C J5~ ' W 781"&$ 39#$;< '()*+,-! 8 8d 8 9F P _D 7 B 9F 'W 7 ( Wb 9F 8
0x15982c…1599c0 Dummy {f00=0x0068, f01=0x0190, f02=»% P C + B D 7z I "%@P "% P& B C C 4 "5 # B P B P B 5 P C : 7 6 >~ 6 C 6j C B B P C 7 : "!@T I V I C B : ( ' P 7z I : 7 8 % Y 8 C 9F & I
0x1599c0…159b54 (1, 202) Dummy {f00=0x0069, f01=0x0190, f02=» ;" V H I ;D:B " : _, 9F C : : 7 8 "! P C : 8 P C W $0 P I| C B. : C "!@P ") # B C B % C : T X ` :l:d:h 9F W W P W 6 2# ;BW4 @ j E8 " T> ; [
0x159b54…159ce8 Dummy {f00=0x0069, f01=0x0190, f02=» 2 ;BW$ " P& Pd" # ;" ;b Wv " ;d# _ [ v [ 4 9F 4* Z Z : R ; 9F 6 : F _v I :B , (V ; H [ [ [ 9F Z (;AR H WD I I Z H #
0x159ce8…159e7c Dummy {f00=0x0069, f01=0x0190, f02=» : [ [ 9F & @ j! P I Z I [ 6 [ Z 7 8 Z 7 : ( :A ( :mT @ l" P ! P [ :;H 2 9~ 9 ;h ;, : ; V Y : 2! : 6 2 ;BW& " # ;";b ;
0x159e7c…15a010 Dummy {f00=0x0069, f01=0x0190, f02=» & P Q <z ,^ , < < # ; [ _n' d V W V 4! P < S S S X 4 9d * & ! R + : V W R 4 0R Y 7 Y& P Z,;D 9_8 8 _< V W YL T 9 : I &9d! +
0x15a010…15a1a4 Dummy {f00=0x0069, f01=0x0190, f02=»P 7 Y Z $ _ : !! gg++ L 33 G`8 8 ; Gb; 8 9FGZ? @l? ? GXG GFGB@0?D@:> @ F F @N@ GX? >X 6 ? K K K K V K : 9F > > >X 8 V ? ? ? V Z P 2 " T
0x15a1a4…15a338 Dummy {f00=0x0069, f01=0x0190, f02=» V I 7_ Z ? @ h! P 3 Z 7 Z Z P 3 : V R (Q V : z z : > J P v I < : J Qx : Pn 4 ! Th_ PX 4 WT K @XWJ @ W +_ @0 @, K W. _&
0x15a338…15a4cc Dummy {f00=0x0069, f01=0x0190, f02=» * [ R !FFP !EET W IB" 6 * B Z 9 ! ; *Xt 8 ! DB 0P Wv 0W@ Wn :T& *W4 FP . :T Z ! XBW *X& FWH :P"# U J I 1 @ !00T ; @Z _ 9P F " X># ; W )0_B J R( Z R 4! P ;)0 9U ? I Z
0x15a4cc…15a660 Dummy {f00=0x0069, f01=0x0190, f02=» |`. PT*AXYZ9 8 #0 T & C C : BN C C : & T ;d# P V P P* 9A:AV X R _ V 4 _P :#0 T B 'W I| B B " B : PC C PR LC R R _ R _
0x15a660…15a7f4 (1, 203) Dummy {f00=0x0069, f01=0x0190, f02=» d w5 1 C 8 #0 T B ' : I| B B B : 8 P C #0 T & C C : I| BN C C :D D D E F E F ; bxb~c d f f E F F F$F$FjD F$F$>xi i i i:i h E F F F F E E E E 3 W V 7 @ h! P 3 P W
0x15a7f4…15a988 Dummy {f00=0x0069, f01=0x0190, f02=»Df]h H _n I 2 P V W< _ 2 # ;B Fd V T W V P L , V 2P " 2 P V D ! R T V P V 3 W V P _ 8^t DDF 2 ! 9BP V T hW V P D $ V 6 V % V E @ l' T 2 % 7_
0x15a988…15ab1c Dummy {f00=0x0069, f01=0x0190, f02=» V P 3 W _ C D ; V & E2 HDf 'W 'W '_6 ? F : ! P ! P ! P ! P 9F ! P 8 W : ! )P9H " I|# T &W &" :I : Gb : P & _ &X _ : I : : : G| p *1 TID ADDR
0x15ab1c…15acb0 Dummy {f00=0x0069, f01=0x0190, f02=»( _ AGz AGx Gn ( @Gv' $ * AG|T( Gn ( AGr AG| ( G| p AGr ) Y V AG G V V L . 1 V L v L AGr : G W G 2 G L @ l# T R L 9F L & L G Q
0x15acb0…15ae44 Dummy {f00=0x0069, f01=0x0190, f02=»Gz : 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 G ** AG~ AG ER AG R AG G L Jb R 4 L 4 $ AGr G U 4 - _ IN G @Gr N* D ILLEGAL OPERATION
0x15ae44…15afd8 Dummy {f00=0x0069, f01=0x0190, f02=»ITHM OVERFLOW STACK OVERFLOW INDEX OVERFLOW ILL INDEX TYPE DIV BY ZERO EDIT BUFFER OVFL EDIT PICTURE OVERFLOW "ALLOCATION ERR AT INITIALIZATION ILLEGAL INSTRUCTION ADDRESS ILLEGAL FORMAT CODE NO FIX BUFFER ALLOCATED FIX BUFFER NOT ALLOWED ILLEGAL
0x15afd8…15b16c Dummy {f00=0x0069, f01=0x0190, f02=»ILLEGAL DATASET REFERENCE TOO MANY KIA/NKIA STACK LEVELS DISC ERROR; NO REENTER POINT W 9 " R 0 1 Y : ;a V P V P W z x<a R 9a V M : I @M P ( _ @O P @O Pj Pf N V $ $T$ D BR V T D
0x15b16c…15b300 Dummy {f00=0x0069, f01=0x0190, f02=» AO TB( Q ( AM O @O V P ( R W M TB( P : TB( Q : AO AO E AM O V AO @ h# P ( R4 O TB( Q ( AM O @O V P ( R W :
0x15b300…15b494 (1, 204) Dummy {f00=0x0069, f01=0x0190, f02=» T REFERENCE TOO MANY KIA/NKIA STACK LEVELS DISC ERROR; NO REE W 9 " R 0 1 Y : ;a V P V P W z x<a R 9a V : I @M P ( _ @ P @ P P V $ $T D R V T D
0x15b494…15b628 Dummy {f00=0x0069, f01=0x0190, f02=» a ( ( a ( Pt ` F D "! AP a ` @O @O @P P ( Pv V ` R Pv V W Z TP _" = a T Pv ` ` ` W ` , a 9a ` @P P ` ` ` ` O ` @O P
0x15b628…15b7bc Dummy {f00=0x0069, f01=0x0190, f02=» MU /V SW IX* JX TYN YYZ GY LY PY HY RZ VZ KZ ` ` _ R ` _ NO! AR AR AR AR AR AR AR AR AR AR AR AR AR AR P AR AR ^ S S ,S +S -S ;S :S (SL .S Pv ` X " , AR L AR L @ AR A
0x15b7bc…15b950 Dummy {f00=0x0069, f01=0x0190, f02=»R AR @R AR _ ^` AR @R V ^| S " @R T " @R @R P AR AR " Rx @R ` Q T @P AR @P AR @P AR @P AR @R A_ @R AP @R AP @R AP P _X W @R T @R Z W @_ AP a V W ` W 0 ` A_ ` W ` A_ A_ @_ ` W a @P AR @
0x15b950…15bae4 Dummy {f00=0x0069, f01=0x0190, f02=» ` ` UH Q 4 ` T P ` ` W T @R ` ` W ` ` ` B "T" @P AR @P AR @P AR @P AR W @R T @R W @R @R @R R W >a A_ AP @R AP ` @R AP P _X W @R T @R Z W A_ @b Q @_ AP ` `
0x15bae4…15bc78 Dummy {f00=0x0069, f01=0x0190, f02=» Rx C @R P @R 1 @P P @R Q @ @R Q P " Q T @P AR @P AR @P AR @P AR @R A_ @R AP @R AP @R AP P _X W @R T W @R V @_ AP 0 ` ` R P Rx @R P @R 1 Q ` ` A_ @_ ` a @P AR @P AR _ @P P @R
0x15bc78…15be0c Dummy {f00=0x0069, f01=0x0190, f02=» 1 Q RxPx @R @R @R @R T @O RX A_ *9l! P2 Tn X &9d! ) X W P$ &9d X & X _ X & X Q Rx AX AX ` @b Z ` " ! U 0 AX U X _ ` "P` @R @R T @O PF R % < < a ! ` `
0x15be0c…15bfa0 Dummy {f00=0x0069, f01=0x0190, f02=» @R AP R @R R AO AP AO @O ( Q AP R @O [< Rx @R @R T I @_:P [j @O [ _ AP R AO @R AO Q @R ! ADf Q Pd @R @R PL @R P a a ^ Z R @R T @O Z V ^ O Rt ) I I @ I B AO W P Z RV )W O AO Q O , AZ
0x15bfa0…15c134 (1, 205) Dummy {f00=0x0069, f01=0x0190, f02=»P Q [$ ( Q Rx L U N ( R ( @R V @O H B W # + C " N B A[ A[ :B A[ Rx (P _ B @R @R @R P [< R @R V @O Q B 1 @R Q Q @ AN " N ( R$ ( @R V @O H B ) I B " Rx $ %
0x15c134…15c2c8 Dummy {f00=0x0069, f01=0x0190, f02=» ^` AR T @O R: ?aP *:l" T* & W T C B B B B B " Rx A] A] A] A] A] A] A] ^ R Q ! 9D# 9hP Q " ;B 2 Pl L ?b ] P ,R PLW~ Pz9AR Tr L Qj W" P` L $ QV L % QL ]
0x15c2c8…15c45c Dummy {f00=0x0069, f01=0x0190, f02=» < V " f F <P W* @P " P ( Rx F $ C " :T a a a " " A^ AR .T @P P ` P " AR " ` X X Rx " , , A^ A^ :B A^ Q (P _ # # H A^ " A` A` 4 ` ` 4 @`
0x15c45c…15c5f0 Dummy {f00=0x0069, f01=0x0190, f02=»;H @_ ;d _ ( @_ "( Rx @_ " :S :X :Y :Z a $P WH a A` A` 0R 9Q 0 A` :B a _" A` " a A`` 0R$ 9U AR FQ 0:D A`` a _* 'T a :H_ A`` " A` A` 4 ` ` T A`
0x15c5f0…15c784 Dummy {f00=0x0069, f01=0x0190, f02=» W ?W :W .W / aa Aa T an " @alT an Aa4 a8 a ( @a Aal " an ad a ( A( ab( Aal " Aa a @a a P Aa a ( a Aa " !a 1a a Q (P _ # # H A " A A 4 4 @
0x15c784…15c918 Dummy {f00=0x0069, f01=0x0190, f02=»#0T : I I W I| # Ix" T & T + : * & !@P `1` P d Q [ ; 8 V W Q P [ ! X # P 4 V W Q P [ " X $ P TF R R ` ; <( Q P # W " <
0x15c918…15caac Dummy {f00=0x0069, f01=0x0190, f02=» : #0 Ix P8" T * & : * & !`P :J +_ +Q d _0 , T T XD W 1 L P X _& R W ( V W Q P W ! W V P , V W Q P W $ W V P T V W Z : V ) 0
0x15caac…15cc40 Dummy {f00=0x0069, f01=0x0190, f02=» 6 I [ [ [ [ $ [ [ >h [ [ h ; h ; h b~ Z PP [ 9a Z $" T 9d! P6 P( [ Z w [ P h bx V H )_ h fR _X z R z ! P 1` { V (9h T W z 9e! I Z ! : 4 P 9 5
0x15cc40…15cdd4 (1, 206) Dummy {f00=0x006a, f01=0x0190, f02=» P W ;a=a P " R & R V T W V E + : V & 6 I [ [ [ [ $ [ [ &! P h h ; h ; h b~ z " ! ! R 2` { z " P ! R 2` { 1 ! { [ Z h
0x15cdd4…15cf68 Dummy {f00=0x006a, f01=0x0190, f02=» [ Q* h bx h d R [ Z { h bx z 9e! W Z : V I _ , " -! 9H X" ,9 -9d_ Z H D & H D % [ ( k >| : { : j $0T j` Pb 9 _ j $0T [
0x15cf68…15d0fc Dummy {f00=0x006a, f01=0x0190, f02=» ) V E k $0T Wr W W I j [ k : Z !0 , !0P4 0 > R* 4 R :d" 8 R ! :DW ! 9 R R _. : ; : 9F 9F#03 T jP kT T : & 9! " : $ : T W V 9! R
0x15d0fc…15d290 Dummy {f00=0x006a, f01=0x0190, f02=» | 7 F l p t x6 &90 A! P K 4 0 A! P K 4 0 Av P K 4 0 Av P K 4 0 Av e 4 0 Av e 4 @ 0 >0 P 64 <0 P 54 0 P A 4 !0 P 34 E bR * )bR* I 0 A R V 4 0 A R V K E I b )*R b R*
0x15d290…15d424 Dummy {f00=0x006a, f01=0x0190, f02=»$"` uV> av uajb " " b ( bR#j $"u b^&jb "R" b bR j $" b 5W j ""u j $" j &"* u`Hp *? v? u? ` _ u) 5 ? j` " $ `: 0 ja " " a ua j $" ` )? u`? j` " "_2As ua? @u@v E 0 ? !"? 1AxW-j " - R R _9 W I
0x15d424…15d5b8 Dummy {f00=0x006a, f01=0x0190, f02=» -jc " c c R c R _a _) +_% 0 c c 4 ! ! ! " V 0 _ " b )*R b R* !4 "bR * )bR* & 4 @k@lja " "j` " $(` AlW= ` Rgjd " "j ""a (a # d ja " $ a a RCj ""d a d`W ` (a AkIl'W a R jd " $j $"` a R `vIs `! d` 4
0x15d5b8…15d74c Dummy {f00=0x006a, f01=0x0190, f02=»! "R! ! ! " Q E! "! [ 3@ 4 H #@ C!!"C! !T !!RT "!R0! A!R 4 H 0 _ #! R R W A T A @p Cv! Cv! H Vv0 Av Tg `vP Ap ?v` #! RTj v " % j !! jGv " ! Apj !'! $! P Ap R$ ! ! " T Ev "v P Ev & 0! AvR 5@ Cv!W Hp ?@
0x15d74c…15d8e0 Dummy {f00=0x006a, f01=0x0190, f02=» / s 4 : m `!: )`W} d$ bd !bRV ! 55? jc "R&#c91j " b "&m j (" ) bRc* c*jR&"c "dR? b W jd "R$ d U d!: jR$"d "bR c* REjR""b jR$" _` b{ ! a ja!! b(jR(" b1 a A c!V a ) ) !aR: ? jR$"c bR* b "`R: Hp _ ba `=jR "` `c_V c Ap_1Ar 0 mP r
0x15d8e0…15da74 (1, 207) Dummy {f00=0x006a, f01=0x0190, f02=»t` t*_- t: `"_- `" Ab !&R`bm &R` m? < m@s $R*: ` a&j` "R&fRa* `*jR&"` "`* @s R: " R: ab !aR: "V )( ) )? j` "R$jR " "aR: a! ` % !`R: b "R A9 `!j` "R$_! r : '6c ( ]@s $R*: Cq< RU !bR "V ! 6 ! 7 AvT ? )? bjd
0x15da74…15dc08 Dummy {f00=0x006a, f01=0x0190, f02=»{c? 8? Hq ` j`!! b'$`! _ ? %_5Aq_ : RF `* a!bR`1 a `1 a! a+ "%R? : !%RP RU `* a!b a 1R` `1 a! a+ ? ApWg RBbR(" 1bR* "cR? a!: jR$"a "cR: ca_0AqW3jRd" "'R< !`R< ja "R$ `!< a & `a_ %6c : b " ! d %d8 !? !'RP 5<
0x15dc08…15dd9c Dummy {f00=0x006a, f01=0x0190, f02=»_ )? Cp< b! a! !ba < b b)*R b b R* $ba & a b? 4? ` a*Hs `W ` V ! 50W< a"j " &h a& &V! a a! a j " $ ` _E )W a&jb " a 4 d"@s$ " As d R jd " $jc " * c d ? 4 j " " & 6 jR " 4 j "R !"4 !!4
0x15dd9c…15df30 Dummy {f00=0x006a, f01=0x0190, f02=» _ F " DSF T X AC FC SV TC PTS-DE SYSFIL " % ( + . 50 < p p !`R< ja "R$ `!< a & `a_ %6c : b " ! d %d8 !? !'RP 5<
0x15df30…15e0c4 Dummy {f00=0x006a, f01=0x0190, f02=» ApAt : As k # *V ) ? Ht ? l b ,V ) ? Ht ? It (? cv: a*mja " &"asz kj a"c a"j &"a `: ` a* >j ""` j $" l `v: j a"` a" uv: j a"u a"j &"a c: Uj &"* W ? `#j "" j $" a*_zj $"c `: ?j ""` `c cv_(ja " &"as c`_z cv
0x15e0c4…15e258 Dummy {f00=0x006a, f01=0x0190, f02=» uv ud d , ) v )? jo !v bo!&k bo'&l ) oV5 ! ! " : * o | Uj |)"` It ? u) 5 ? 4? : VJ! 5 ) ? `b b W `!: RAjR""b bR* z "`R: b !bR: jR$"` "bR? bR* z "bR? '6c @rT `# : !`RV ! 5 ? )? a7b &Ra0
0x15e258…15e3ec Dummy {f00=0x006a, f01=0x0190, f02=» Kq %_1Aq_ : @s RHl Hk RU "#R? a$W a" k `#0 kT : j` "Ra ` =Ar_ ApAs0 kTY k # *RnHp. a$*a j " $ Z : j` " &*`*K a,Hp bk & a? 0 lT$ l b ,R. a& a =bl & a? #X;! 5 ? b: ja " &*a* a,_' )? c# bc !bRR)jc "R&"c* 5W d7b &Rd k jc "R$ c
0x15e3ec…15e580 Dummy {f00=0x006a, f01=0x0190, f02=» h~ !X8H !( @ h~ U !j~ ! ! !P !0" ! N_m ? j !! '( !1j !& !j !! ( * j +& 'j !! ( j ! ! ! 8 ? jy " $ j !! 1 j !! 2 j !! (I !Y A ! p ! ? ! 0 !h & !&P !0" !< _ ( ) +h & '&
0x15e580…15e714 (1, 208) Dummy {f00=0x006a, f01=0x0190, f02=» h^ !T f^ ! !j^ !U !j '! !j !! ( _N ! ( + ~UWhj !! ' !QU I N! 8 ! 9 :b ! W:0 ^ h^ U !P 9! :j !!^ b ! f^ ! !A j ! !d^ ! j '! !j !! (( + b +$~ WR j !! '( ! j !! 0 (j ! !W0 )W# + @j !
0x15e714…15e8a8 Dummy {f00=0x006a, f01=0x0190, f02=» 6 ;W U j !!~ W j !! (W Uj ! j '!!! !j !!~ j (!~ _+( # j (! !j !!~ 4 ~ $ - ; ; m n . a Y R FTX J BC JC FTJBJD
0x15e8a8…15ea3c Dummy {f00=0x006a, f01=0x0190, f02=» !4 "4 #4 $4 4 @} 8 In06 W 0 ! WP0 ! WII~ 0 ! W?H 0 ! W50 !! W.@n6 0 ! W 0 ! I~ 0 ! W H 0 ! W 0 ! (0# : H~ ? 0$ P : _ 0% P C{P A )? H ? 0&HoO !H~ 0' $ W 0' # ! 2 W 0 0 /1( _5K~|0 ! _
0x15ea3c…15ebd0 Dummy {f00=0x006a, f01=0x0190, f02=»( 2" + " ( " # I ? & 0+ P ? 0 Pm0) 0 -8 Wa0) 6 > W<( , ! :d # !_'0) P 0% P o8W o;d o "_HI 0) 2 W @ @ @ @ @h@j #U 0, ! Td$ + " , 0& %@|PI0% T /hZ " !T f ! j !! H{ ? 0% P 0- P H !?
0x15ebd0…15ed64 Dummy {f00=0x006a, f01=0x0190, f02=»0Hj 0 #T @m?#@hP !PP00 01 V 0# !_ $ + ?$I 02WL0% P 0 9%0# !00 01 T10% T2WO0# ! 03W #I{ H~ I K 0$ 0&? A 04P#:&;%Io 0- P H 2 ' ' ' ? JA J K{ 0) ?( !00 01 8 _^J # T 2 ' 0% T 2 )**? 2 ***0- 8+J ?+ ?
0x15ed64…15eef8 Dummy {f00=0x006a, f01=0x0190, f02=»0# 0 H { ,W H s +0) 0% P 0 Q ,8/?0A 0# !00 01 P : SdW 0% X70- P J ? EK{H ,L T +_UH KA^0) 1( ? Am #4 0$ S 0% P 0 Q I ) *&KA)? 0$ % 0% P-0- P H % !W/ ?1 #? 08 $+ %'0 0 < H{ W ! 2 ***234 " @
0x15eef8…15f08c Dummy {f00=0x006a, f01=0x0190, f02=» j !!!WP U0% P m ( &W 6) D b !Z/h U ! !Q !4 !0&@ T 07 j %! !0( ! 08 % ! 6 cv6 C & 4 W 9W :0% P " "Jh !U !TA0% T h ! !T00. _ A 0% T f !07 0&0( _ 0 0 (P h ! !P 1( _ 1( !0% X 0) 0% O
0x15f08c…15f220 Dummy {f00=0x006a, f01=0x0190, f02=»0' ! 6 W"0 0 $( # _.0 ! _y $5 !( * @ . !4 80 4 o? o0# 0 6 4 Am4 0# 0 4 6 O ^ Z | 8 O l x T u : ^ C P h x
0x15f220…15f3b4 (1, 209) Dummy {f00=0x006a, f01=0x0190, f02=» & 3 8 ? P + +-0? 1 BATCH IN USESYMBOLICVALUE-SET XXXXTTT9TTTT9XXXXX- o A . 1 . . : k A C : A $ : A NOT . TIME-OUT CDV-ERROR NOT FOUND I/O-ERROR DATE ERROR FOUND LOCKED NO DISC SPACE ILLE
0x15f3b4…15f548 Dummy {f00=0x006a, f01=0x0190, f02=»T OPERABLE @ : l IN : k A CHANGE FLOPPY DISC DISC I/O-ERROR : ILLEGAL FORMAT NAME PRESS ENT TO CONFIRM NO WORKSPACE IN CORE FUNCTION NOT ALLOWED USERFILE ASSIGN-ERROR 95 % OF FILESPACE USED PRESS ENT FOR DELETION THIS IS A DUMMY MESSAGE
0x15f548…15f6dc Dummy {f00=0x006a, f01=0x0190, f02=»TPUT DEVICE NOT OPERABLE COMPULSORY FIELD NOT FILLED DEFINED LINE MAXIMUM EXCEEDED MAXIMUM RECORD-LENGTH EXCEEDED !MAXIMUM FORMAT-CODE SIZE EXCEEDED !MAXIMUM NUMBER OF FIELDS EXCEEDED (USERFILE NOT CLOSED IN PREVIOUS SESSION. ,END OF FORMAT FOUND PRESS R
0x15f6dc…15f870 Dummy {f00=0x006a, f01=0x0190, f02=» : ASD 5 PAGE : WARNING:REFERENCE TO FIELD (F ) OUTSIDE FORMAT DEFINITION ,OCCUPIED RECORDLENGTH CHANGED WITHIN FORMAT: m . SIZE ON DISC: . B $ : ! DOES NOT EXIST IN JOB-DEFINITION OR ON SYSTEM-DISC?-&7A*+>%) (6C,E:LI<830! 1BD5H4 "@G/
0x15f870…15fa04 Dummy {f00=0x006a, f01=0x0190, f02=» ' 0 9 B M Y e q ~ 3 H ] s 6 Q l ! $ $ ' + K / v 4 ? ? F W J @7 R ! 4 ,END OF FORMAT FOUND PRESS R
0x15fa04…15fb98 Dummy {f00=0x006a, f01=0x0190, f02=» @g@i@k@ "0# ( #W H % W % 6 0) 2 W ? A o W o ~H h~ ) !PL@ < ~E h~ ' !< A ! & !@ W 2 W 09 #XA _ 2 !j !! j ! !$ 60 ! ? A _ !A <
0x15fb98…15fd2c Dummy {f00=0x006a, f01=0x0190, f02=» ? A _ 0" !< " ? #@ T 0% P9W I 46 0 ! W 0 ! : 6 h W h 8 ? 6 0" !< " ? 0" !< " ? ( 09 ( #)0) A h U ! < h 8 ? " ? < 9h ! !P !W !j !! ! =f "d "!U d !
0x15fd2c…15fec0 Dummy {f00=0x006a, f01=0x0190, f02=» ? & ? ? 0 9 ? " W @g@k !Ai !? $@kAgW #@gAk@i ! j !! ! Uj ? 60 < h !TL j !! ! 4 ) 5 ! h ! !T ! R h !U !P7 !_& h ! !X&W#@ T 0% P! W I h P Wk ~Ub~ "~
0x15fec0…160054 (1, 210) Dummy {f00=0x006b, f01=0x0190, f02=» ! _6j " - 8 & ?!@ P 5Ii Ik Ig A|W 4@|@ & , 3hZ !PDj !! 0 (P 60 !_<( 4 !, @h $ !ThI|m2 ? 2 """"#$"$$$#$$"""""%&&"""#''" !_h( !? 4( !_ "_ _ ! j !! ! _ _ A| "
0x160054…1601e8 Dummy {f00=0x006b, f01=0x0190, f02=» Af4 L@d@g0# @ W< %Ad00 01 R Ag0/ ! T 00 01 @dW Hd 00 01 @ 4 ! ! L Ah $ !6 00 W. "0# @| uA j !! ! j !! 60 _N ! 6 iiWJ@e !L ! ;h ! !P !@i ! 9( Jh * !TX6 rr rrW !
0x1601e8…16037c Dummy {f00=0x006b, f01=0x0190, f02=»! 6 & ) 0" !<) W30" !P(?)0" !<) $W ( 09 # W a / " Hi b " !P 6 ! "?* ! "?* ! "?* ! "He U m " 0" !<) ?+( 00 01 0) 0% TJ U m ! P Q 0) , ~8d ! ~ W f ! ! 0 0. 0$ ?+ h X
0x16037c…160510 Dummy {f00=0x006b, f01=0x0190, f02=» j ! !0 P b ![ ! ! ( 4 @h0A ! P # ( + ?,0- <-AhW %hZ ( !<- % (:- ! ! ( $ 2hZ ! !T !j !! W % 2 .../ !X b !U ( W )W =f "d "!U d ! 8T 0: (+0; + j !! 1 ! & 0% T/0) V& >
0x160510…1606a4 Dummy {f00=0x006b, f01=0x0190, f02=» ! U 6 _l; 2*0" !T Wo0 "T j !! !b WX WU Wb Sf !WAH{ W<09 " m W W 0" !T3m W 0" !T&m W 7h U ! V !!4 !"4 80 1( 0 6 ''' ' y ''' "W% ," "0 We08 W "_ '_ !08
0x1606a4…160838 Dummy {f00=0x006b, f01=0x0190, f02=» O j & % . i } 8 [ D S q d E = G B 0 M 8 3 : @ V Z H n - V c + ? P0:;=?T+-
0x160838…1609cc Dummy {f00=0x006b, f01=0x0190, f02=»TTTTTTT9 ! I D DELETED INSERTED + ON UNIT:U i + WITHIN JOB: k RECOVERY RUNNING. RECORD CORRECTION F FREEZING OF BATCH l CONFIRM RECORD INSERT CONFIRM RECORD DELETE: RECORD MUST BE VERIFIED ENTER WANT
0x1609cc…160b60 Dummy {f00=0x006b, f01=0x0190, f02=»FF* RECOVERY OF : k B : l RUNNING. ( ',!.%)$&"#-* $ * 0 7 ? G P Y c0 m * 5 A Q c w
0x160b60…160cf4 (1, 211) Dummy {f00=0x006b, f01=0x0190, f02=» > ( &Ad1 An@m 6 0 _ @n_ ( !'( _&3 @d0 0} h* h _? ! 4 6 99 W 2 !8 "8 #8 W j " # G j " "# H|j " $# Hr? ! !6 +; ^# 6Zb !" Kj !# 'bc (c" 3? 1? ; < W' ## 5 ! ; " 5 " " ! T T
0x160cf4…160e88 Dummy {f00=0x006b, f01=0x0190, f02=»2 _ !0 #$} & 2 _,4 j 1! ! !j 2! ! 4 R ! 4 Hd ? ! 8T & ( !0 #$}? ) _ ! Lb "" " < $ U@f@e0 " An 2 _ ! 8 ! < 9 W : " ! j " j $" Af07~ 0 "P 07~ j~#!
0x160e88…16101c Dummy {f00=0x006b, f01=0x0190, f02=»e ! 8R AnW* ! " _W) !$ ! $ W !W 8P )B? 0: (+0; +@eAf ! ! 0 %%In 0 $%Ao 2 W ) !Ao _ ! 8T !_ ! 8 ! ( TJ? ! & ! Kb !# ~ " ~ T $ 0: (+? - !?
0x16101c…1611b0 Dummy {f00=0x006b, f01=0x0190, f02=»~ ~ RR j !! !07~ j " I0 "P J07~ " !j~#! ! T j " $ j !! 1j !! 2 !!4 1 W 3P W An 2 _ 4 4 ! ! ! P 2 _ 0: +1 0 ! !G! "?! !] ! " ! ! # !An@m 6 p _ 0 ! _7Hm_ #P Q 2 ! " _ 04 6 A _ $Gv ?
0x1611b0…161344 Dummy {f00=0x006b, f01=0x0190, f02=» 1 2 s 3 R * E " V c V f P ] c AN010203040506070809102359A N T TT FILESIZEDATE:TIME:USERFILEFREE %SYSTEMFILEVOLUME-N
0x161344…1614d8 Dummy {f00=0x006b, f01=0x0190, f02=»CREATE VALUE-SETS XZZ9ZZZZ9999999XXE-XXE-XXXXE.XXE.XX T 0 * h d Y Z [ V Y O f ! P g T U U W :U i T M N R S ! " # # Q $ % # & U [ X X% = @ ! X% > @ " X% ? @ # X% @ @
0x1614d8…16166c Dummy {f00=0x006b, f01=0x0190, f02=» " $ & ( * , . 0 3 7 ; @ E M V ` l y 0 ! # # Q F l k ILESIZEDATE:TIME:USERFILEFREE %SYSTEMFILEVOLUME-N
0x16166c…161800 Dummy {f00=0x006b, f01=0x0190, f02=» T ( !Ad1 9An@m 6 6 W,@n_ ( "2( _!@j3 @ @d0 0} 4 h _= _< ! 4 6 Sfl{ W j ! Ii ! 9 W ) 9 m ,P ) ? ;j !& 'bc c b W 0) ! 6 $ r"? 7" v$ !r? 8 Tj *P ? 1? " Q$ FWK $ $< ?
0x161800…161994 (1, 212) Dummy {f00=0x006b, f01=0x0190, f02=»/ !T; 6 MMMMMM~~MM~~MW|Iiy ! %n h / !T ,JWX ! %P h / ! 6 3 W1Ak_+ !" %% h / !T , W Hk ! c % c c _ & !? 0 %% 8? !6 (DTdt_ * ? + ? ,< j ! ! 9 @iW Ai? P ! : ? A W @ ! < A ? @ ?
0x161994…161b28 Dummy {f00=0x006b, f01=0x0190, f02=»% A0; ,0: , $ ? "r= ( 2 07 6 'h #Q !j , w j 1!w!Ii j 2! ! !j "" j $" mHj -P !2 _ &{ { )P !Ix 6 * ? &{ { *P !2 _ ({ P !2 _ -P !2 _ { + Ii 0; {$* p!0
0x161b28…161cbc Dummy {f00=0x006b, f01=0x0190, f02=» !* & & & ! 5 0 "}H{ Ij 4 !6 H" W 0; {$*0 P _4 0 "}_? 1 !6 TT _P - PJ !6 ??_&Aj p! u # $ j $!! {1j #!! {2 $ #? &{ @jP { &{ W &{ @jP H{ m *" ! I{ ? % & 4 0# 6 55 555555555W 'I ( W Ij I
0x161cbc…161e50 Dummy {f00=0x006b, f01=0x0190, f02=»Hi! ' 0 (T W $0$ "W 0$ 4 @g0 0} { 1 7An@ An2 _ 0 0}@n_ 6 5 ? Ag@ij !m ) 9 AiW 0; {$* p!0 AnP 0 ! 0$ 4 2 _Q 4W XT 8 2 Jgwjm & {!_: 2 _ ({ P _ &! 1 2 -P 7 nn &{
0x161e50…161fe4 Dummy {f00=0x006b, f01=0x0190, f02=» "|Bn { |? 3? @n ! " P W0 % A0; ,0: , T W % & 0 ($}2 ? &{ 0 0}4 0 0} { 1 8An 6 _ @n_ 2 Wm * ;j !& 0; {$* p!0 0 ! 0$ 3 6 ++3 ({ T j !&m j {!& ! )P R W 2 W &{ _
0x161fe4…162178 Dummy {f00=0x006b, f01=0x0190, f02=» 4 & ( $j ! ! !4 & ! c # ( % !j ! !! !j ! ` !4 & " c # ( & "j ! "! !j " ` "4 & # c # ( ' #j ! #! !j # ` #4 & $ ( ( $j ! $! !j $ $4 0
0x162178…16230c Dummy {f00=0x006b, f01=0x0190, f02=» w! 0 ""j !Q W = ! +W !@ !@ 4 j !Q * & ' @d@ 4 % ( H + "20 !!" " !)I 0 # W 0 # & ' % y %Ad W < ! !4 I /W . ( a - !+ 7 !) !< # j ! ! ! # 7 j ! !
0x16230c…1624a0 Dummy {f00=0x006b, f01=0x0190, f02=» wHj $ # 4 j y C o 7 7 $ l 0 C v h o 9 - X V y 7 N & " ' v
0x1624a0…162634 (1, 213) Dummy {f00=0x006b, f01=0x0190, f02=» h @ m 24 COPY $ $ TO BE COPIED: q @ NEW $ NAME: v @ m U 20 $ - - * h d7 21 ? - $ - 22 @ - $ - 23 > $ 24 COPY $10/.-,+*)('&%$#"! 2 0 ;
0x162634…1627c8 Dummy {f00=0x006b, f01=0x0190, f02=» ! # * M C Q @ : : 7 7 $ l 0 C v h o 9 - X V y 7 N & " ' v
0x1627c8…16295c Dummy {f00=0x006b, f01=0x0190, f02=» e t 4 $ f c# # d# 7hZ c! 7 c! #2 W bch b!Z7!T W c N? b% ! b_ b$ " b ,# c bch b!Z2! } c! b$ " b_DW ( % $N b/hZb" c!T b/ >j c! b c! b$ " a W b# # b*a & &a_ a c! ac bch baZ7!
0x16295c…162af0 Dummy {f00=0x006b, f01=0x0190, f02=»)c ' ) ' j (! '!f c! ! d!? ` 4 j b c a j c!a! b b! c!f cb db4 j b u a4 u $ #@g c hZ a b! +2 jc!! b"c W 6 b! !jc!! b"c b! !W, ! b! !Hg ( 'b `3d b!Z` b! ! !@g _ " ,0 b! ! `bh `!Z2
0x162af0…162c84 Dummy {f00=0x006b, f01=0x0190, f02=»b! ! ' j '!! b ' j b!Z= 'b '!Ag_ 4 b!jc!! b c ` m ` f b!d b` `! ` b` ` !Hg '`4 1( P # W !05 p! u ! " !! w jw!! {1j !! {2 w d "2@h u" ! Kh !@k ~60 oT @j~ # # - b o -( q0 TF b , ! , " , # E h )
0x162c84…162e18 Dummy {f00=0x006b, f01=0x0190, f02=» &%W #$d &%( A b ~6Ak_Dj~ b #* Ii !"d &%W #$d &% ~6Ak4 + 1( P W !2 1( P # W ! 4 @l #hQ 0 !0 6 F MMMMMM? !j !! !_9 "_> Hj j !! {(j { ! % { $! 0 ""Il _h !Ah? Al - ! j !!
0x162e18…162fac Dummy {f00=0x006b, f01=0x0190, f02=» !: ":H "< #:H #< $:H $< %<H %:H "8 # oU U b ! " # $ + ~E U # hQ 0 !T 2 W W #_) !j !! !( "Q Ii "_H ! `! a! !07 h )Q ! ! # `" a j a` j a` ! ( !_ $ 6 1j b#~ W j b#~#W j
0x162fac…163140 Dummy {f00=0x006b, f01=0x0190, f02=» ! " `" a j a` j a` ! p 4 !jo ! - h] $ !T 6 #+jo ! ! !" %_*jo ! )_ jo ! +_ ! !_+J .jo ! ._/jo ! , !4 6 b @h@k hQ 2 !0 2 ? !j b! - b! !j !! H ;W 9j ba baj b! , ! b!__ j b o "
0x163140…1632d4 (1, 214) Dummy {f00=0x006c, f01=0x0190, f02=» _ %b!b5 j b!U b!_ HkJ cWE , a ! b jb!! b!+ b"$ $ # !07 h )Q ! 0E a #? !4 = 0 !00 01 T$0) 0% P 0) ( " ;_* 9_/ _44 0 i } - p ; [ s = e 9 ; 6 ` e 0
0x1632d4…163468 Dummy {f00=0x006c, f01=0x0190, f02=»GTH#V:#G:#A:GENERATION VALIDATION ACCUMULATION 9Z9999XXXZZ9XE+XXZZVZZ9ZZVZZZ! 1 k " ( % & ) 0 ~ k: " $ % & ' ! " # $ % ) 0 ~ 1 $ : m ( NUMBER OF POOL-UNITS: # d A : ! C ACCUMULATOR POSI
0x163468…1635fc Dummy {f00=0x006c, f01=0x0190, f02=»# d A : ! C B - MAX/MIN K M A V I DUPLIC. SPEC. #L:< B LAYOUT> #V: G #G: F #A: H NO NO/POS - D I E T E C -ITEM HANDL. % + 4 ? J
0x1635fc…163790 Dummy {f00=0x006c, f01=0x0190, f02=» d 0 Hf ( Hg ( j I 0 ##Ie !l_0 ! $ % & Ii I " " ( I 0 $'Ii # 8 " . I 0 $ W .W 0 ! ( % ( % !4 @e@f@g =@l l eIe ( ;@l l f( If >Al l g !Af( hIg !W` =@l l eIeJ(
0x163790…163924 Dummy {f00=0x006c, f01=0x0190, f02=» " !P I A ! ! ! % _2 ! W ! !4 % @e@f@g@ 4 ! " # $ * + , 4 o; Hi 0 h / !Tr 6 )'''''48fD]]NW[A A A jo ! ! ! ! h / ! ,p_ A jo ! !W:A W.jo !] A A W*A jo !]!W jo !]#A A !W jo !]" !A jo !
0x163924…163ab8 Dummy {f00=0x006c, f01=0x0190, f02=» L h ) c#T # # d0 3 ( `c_*0 T ` c d H 0 $ 4 I : " " j " " j " " $ . ! # T ! 0 "" U W !+ !4 0 !P * 0 "P + , * , +! *4: + 5 4 *f * 7 j % , + , +4 *4W * ,
0x163ab8…163c4c Dummy {f00=0x006c, f01=0x0190, f02=»T ( # A c ,T c!_hHi 0 -.0 &' &W 0 120 ,- , ! 4 c !%c ! !0$ & j ! W * + !!4 3@k@g hZ c!T 6 %Ls 2 Wf b2 W? ;2 W Ik Ak 2
0x163c4c…163de0 Dummy {f00=0x006c, f01=0x0190, f02=» "T ( ) , $a #a6 W60"a !T W-0"a !T W$$a! #a5 bc b" b `h b!Z2!T c" &_T c!_vIi c! b/hZb" c!T $o b/i_u c! #T $a X#a9T % W , a WH c"_ c!,c ; a ac bch baZ7!T( bc*b !,b : ; W "b& cb_ c!,c _C( $ c ! & ! W Kg !!4 c! bc b "b U
0x163de0…163f74 (1, 215) Dummy {f00=0x006c, f01=0x0190, f02=» X 4 t m , e P ^ c 0 #<< PAGEBATCHFIELDLINE STARTLENGTHNUMBERRECORDSTART:V:G:A:(#A:...)(#G:...)(#V:...)#V:#G:#A:123456789 1234567890CORRECTIONGENERATION VALIDATION ACCUMULATI
0x163f74…164108 Dummy {f00=0x006c, f01=0x0190, f02=» 2 3 ( 4 2 5 < 6 F 7 N N N N N N N M n @ 22 BALANCE $ - j # O C : % . D > : @ & @ -ACCUMULATOR:A m ( . SPECIAL HANDLING: @k Q K P J o@ ! p@ " U 21 USER $ - j # O A : F
0x164108…16429c Dummy {f00=0x006c, f01=0x0190, f02=»' MUST ENTER (Y/ N /C): r@ " . AUTO TAB 9 (Y/ N ): @s@ # DUPLICATE : jA . VERIFY 9 (Y/ N ) : @t@ $ INITIAL CLEAR ( Y /N): u@ % . SPECIAL HANDLING: @k Q K P J 2 R I o@ ! p@ " U
0x16429c…164430 Dummy {f00=0x006c, f01=0x0190, f02=» , F c 2 BALANCE $ - j # O C : % . D > : @ & @ -ACCUMULATOR:A m ( . SPECIAL HANDLING: @k Q K P J o@ ! p@ " U 21 USER $ - j # O A : F
0x164430…1645c4 Dummy {f00=0x006c, f01=0x0190, f02=» 4 B ( &Ad1 An@m 6 0 _ @n_ ( #'( _& @d0 0} # * h h _? ! 4 1 Ad!hG @dAn@mAe 6 ? " &z 2 4 3W 4Jd P AoHe @o W 0: z ,AnAo@e 2 _( (z T &PU 1 2 # %XjAo _9 z! X#b !& "z < $z
0x1645c4…164758 Dummy {f00=0x006c, f01=0x0190, f02=» " !0$ W !" (60 X !" )&0 * * 5 5_=0 !P #_R * , !" 3 h &U !T , , _ ,& !8 W:6 1? 6h ! !P 0 /8 W 0 /< ? W %W ( ? . f { x ; 3 j
0x164758…1648ec Dummy {f00=0x006c, f01=0x0190, f02=»D: JOB-DEFINITION 2 h d ' F C e k e k 30 - - * 3 h d 31 A - - 32 @ - - E f 4 B &g 5 $ 7 fA ! D &A + $ 8 fA " D &A , $ 9 fA # D &A - $ : fA $ D &A . $ ; f
0x1648ec…164a80 Dummy {f00=0x006c, f01=0x0190, f02=»A ) D &A 3 U ! ) 1 : D0 S & < & b W:6 1? 6h ! !P 0 /8 W 0 /< ? W %W ( ? . f { x ; 3 j
0x164a80…164c14 (1, 216) Dummy {f00=0x006c, f01=0x0190, f02=» R ` @e kU lU( .AdIe 1 0W 1 ,An@mIe W 6 . _ @n_ Ief( $A6 _<A W A W A A Ae@d_D@ $V 1 ,An@m _L@ T Ie ! 4 @e@dKeN@ @ @ $ * h h _ + , 2 _ 0# 1 ,0$ _ @e kU lU( ,AdIe'1 *An@m 6 $ @ P $ _
0x164c14…164da8 Dummy {f00=0x006c, f01=0x0190, f02=»(+0; +( > " 1 W 1 "An@m h 2 _ _ 0: (+0; +0$ _ "l lU h " 1 W 1 " l "2 ! 4W 5 T ! +T | j " &| W E !" ! 0 %, ! b &l b &!Z2b '( "lW b &k !k # 0 # 8~@ P $0 #$@m0
0x164da8…164f3c Dummy {f00=0x006c, f01=0x0190, f02=»2 _ _ 0 ~P + , @z6 Az _ @ @z $XP@ ~U 0 , P& b~ ![) !0 + T b~ ![( !b~ ![ ! ! (41 .0 %%0 &&0$ $ _ 6 ? ? + , 6 h[ * !T06 $ $$ 0 , T 0 , @ T 0 + !_6A X @ T ? &? @e( +AdIe 1 /W 1 +An@m 6 -
0x164f3c…1650d0 Dummy {f00=0x006c, f01=0x0190, f02=» 2 _ 0# 1 +0$ _ kU lU( xAdIe 1 (W 6 1 #W 1 An@mIe W 6 K @ T $ _ @n_)@ $V 6 Ie ! 4 @e@d ' * h h _sIe ' @f6 _ AfAe@d_ 2 ( 0 kT (!0 lT (! %0$ " _ ("6 ( , W - ! 2 AzT ! '
0x1650d0…165264 Dummy {f00=0x006c, f01=0x0190, f02=»6 ( _W %T ( * 2 ( )gK " '"( g " #2 $T # '#( _ Ub & 5 + *P ( - { &{ 1 -0 ! 04 mU_" m 50; {&* p!0 $ '$( D0 $} | @ 0 2TX 6 ( W? 0 $} 3 T l $_ & A %T @ _ @ W'" 2 !W 2 " 2 ' #$%&@z 7
0x165264…1653f8 Dummy {f00=0x006c, f01=0x0190, f02=»b? )? ( h < Q j p % t " d w ( h X " V "TOKEYVIAFILENAMETESTUNIT
0x1653f8…16558c Dummy {f00=0x006c, f01=0x0190, f02=»X U & U 45 ? - < & ' 1 71 I 5 J 71 I 7 F ' ! 9 : ! k < 9 : " l 9 : !A k < 9 : "A l % ' ! 1 ' ! ) 53 % A = 52 % < = 51 % = ; :U
0x16558c…165720 Dummy {f00=0x006c, f01=0x0190, f02=» > 6 / : ' h ! : ' FETCHING FORMAT: FROM DISC. @ U $ ' A - @ : # A - B : -e@ ~ 60 * h d0 61 6 62 > 63 6 / : 64 > / : 40 ! * h d3 41 G <
0x165720…1658b4 (1, 217) Dummy {f00=0x006c, f01=0x0190, f02=». ) / 0 1 ) 2 3 4 ) 5 6 7 ) 8 ! & + 1 7 = C I P W ` i r |0 " 0 ? N ] m } + # J $ m & * 2 F
0x1658b4…165a48 Dummy {f00=0x006c, f01=0x0190, f02=» 5 D 2 $? 6 _ 8 ? 1( )T !05 T ? ? ? 2 ? O( ( SU? 2 P ? U0B T 1( &? H ? I 1( %_ !00 01 0) LQ KR A W CQ @Y A _: !00 01 R 0) MY KR G AZ$ CQ A T< $ _3 EQ $ _> FQ A T
0x165a48…165bdc Dummy {f00=0x006c, f01=0x0190, f02=»] H A W U0B T 1( ' W 4 6 bqq I / 40 T W W T U0B T 1( $ 0 T a ! >0 ;0F T a >0 ;0F T _oI II 1( # _{I : $ " W !05 T+ - ! I _ W W W W %W@ W; P_ W10 0 90 R >0 :j " ;0F
0x165bdc…165d70 Dummy {f00=0x006c, f01=0x0190, f02=» ? U0B T 1( +_#2 I _ W W^ ' <0G 40 TF W W@ T8 U0B T 1( , W W%6 & % $ ! W W a " ? W W PW A ? ' <0G 7? K "I 1( #A ? K 3I $ " W !05 E - ! ? W W W W %_` _e _ W W< W W < '0G 7
0x165d70…165f04 Dummy {f00=0x006c, f01=0x0190, f02=» 7 2 W _ W _&2 W _2 < 0G _J0 @ ' <0G @ ' <0G 0 & ? U0B T 1( 0_D U0B T 1( /_S # # " T - ! Q4 4 < " '0G 0 B0 T3 8j & j & % 5j " 1 1An0 ! 04 !0' 4 4 8
0x165f04…166098 Dummy {f00=0x006c, f01=0x0190, f02=»0G 4 4 ' <0G 0 0 %P 30 T 4 ' <0G 4 T !00 01 P R W 0) ?R) @Q ?W MQ KR K ?Rn ?_ ? ?Y "H0) 0% P R m W6" 5 Rx0) 0 /P m 6 !W m 5 f !A_ 0 P( !00 01 P R(W*0)
0x166098…16622c Dummy {f00=0x006c, f01=0x0190, f02=» J ^ Q f W E l x ^ & i - 5 7 B F } O X o o q X ?. 001999FILENAMEDEVICEEXPIRATION DATE:OLD VOLUME SEQUENCE NO:OLD DATA SET IDENTIFI
0x16622c…1663c0 Dummy {f00=0x006c, f01=0x0190, f02=»S . EJ GODK[ND S[NDNING * . EJ AVST[MD FRYSNING * FRYSNING KLAR * S[NDNING KLAR * 1 * NUMBER: g DATUM: S TID: T S[NDNING AVBRYTS * FLOPPY DISC SKRIVNING * . NUMBER: MISST[MMER JOBNAME:
0x1663c0…166554 (1, 218) Dummy {f00=0x006d, f01=0x0190, f02=»- X : $ Z [ U$ " $ & ( * , . 0 2 4 6 8 : < = > ? @ C F J N T d {0 *
0x166554…1666e8 Dummy {f00=0x006d, f01=0x0190, f02=» 6 6 D * . 2Ii " !W ! 0 " P !, ! ? Ij { j 1! !j 2! !Hj 4j !&m $ r"Ii' U ! ( j !! ( ) x. .K .*W x( Hj mIn 0 ! W 0 ! Hj m !7 w! y "! !U 'U U & Ii ( In 0 ! W 0 ! @n ! Ij 0# :
0x1666e8…16687c Dummy {f00=0x006d, f01=0x0190, f02=»,, W ! $ 0' / T W 0' - T ! 2 W "? I I I I IjO2 !0) / 2 W$0. Am6 ! bC I .4 ? "(0. _*Am #02W 03W 04W X Z [ +( H I C_ 1( _ T 1( !05 ? 2 ? W #0- T %y0 %%_
0x16687c…166a10 Dummy {f00=0x006d, f01=0x0190, f02=» % 0 0 < 2 ? 2 #? 0# 0 ? $ 2 2 0 %% ( @h u!He8Kh 0 % $? 0 %%A ( @h u!He Kh ( ! u!0 #'@ @ @ ( ? @ ( !"_cA $? 0 && u! !eJh ? 0 &&A % Ad@ @ #? A @ u!
0x166a10…166ba4 Dummy {f00=0x006d, f01=0x0190, f02=» j ! H ? f G Y z L & $F 1 " " T 1( !05 ? 2 ? W #0- T %y0 %%_
0x166ba4…166d38 Dummy {f00=0x006d, f01=0x0190, f02=» d 0 $}j *!! x0 @l 2 ? j x! ! wx xyj &"x !g:e x y" e @ TW( ' )g: @l? j xy wj x! { W< .V xwj &"w W j ! " "Hn ' wxjx " & wx wxf xwj x! { wxj !! x( % j " &W ( ' j ! " " { 0; {$* p!0 0: x*6 VVVVOVOVV V "!H '0 **P I %!@ A W
0x166d38…166ecc Dummy {f00=0x006d, f01=0x0190, f02=» x* !u uv_ 0 j x! ! 7 ZH_ j " "jx " &"x* ( 3 Zf_q 1Zm u ? !u (R j "" j &"x u !? ! _ j " & wx x 'jy " xy x u$x Aj " $( xw u 4 /_ /Z j " &( * 1Z)_5 x* wx x 'jy " g2 #gYuP W j ! x0 , + & # ( #2_
0x166ecc…167060 Dummy {f00=0x006d, f01=0x0190, f02=» : ? ,wx W x* WY uj " "( ? j " &( * % 1W 0 : j " & *1 1 W u ! u ! u ! 4 : jx " & 1 w*j " w wx wx j &"w xw? w w !( % _ ' xw g2 # ( ( #g? g "b & AlW '2 : 1 _ : ? $ )g: ' 4WAH !W9AlHl
0x167060…1671f4 (1, 219) Dummy {f00=0x006d, f01=0x0190, f02=» *PE - { ) ? 1 0 ! 04({ ' x( ' ' wj " jy " ? &{ mU_ m $ ' ( @lW !g: ( nmW *W * n An xIl j ! { W . ( ' !g: j x) w < ? < ? !j &m &j "y ( + ? A ? < 0 @vP C 8 ? ' ( % 2 ! C 8 0 @v< "!_y # "= g "
0x1671f4…167388 Dummy {f00=0x006d, f01=0x0190, f02=» ) 0 @v $W &z &| &{ 0 @v_U &z &| &{ 0 $} 5 ^ # + "@ X& ! : !0" !X 0 " %P @ 0 0 $} 2_R * ' #2 $T -_ #_-@ P 0 $}A 3 W Ay@m 4 @ 0 0 $} 2V @y@z@oA # &{ &z &| h Ae0 0} 4 2 $%%&' uf
0x167388…16751c Dummy {f00=0x006d, f01=0x0190, f02=»* u$x j $" 7 :(W .:( uf *y x *j &" _* u 4 :(j "" 7 :(W j ! "u u 4 :( w* x*j x! { ?) h ( ' 0 kP W1( $ ( % W ( % # 0 @vP (z Ub &k "V 0$ " ?(I + #P R 0 @v0$ # b &l ?*A 0 @vP 6 &z ?+0 @vT/( ' z W ( % 6 !
0x16751c…1676b0 Dummy {f00=0x006d, f01=0x0190, f02=» I H 4W I 5W H~ I (W ' A P A WB0 @vT ( ' $W3 $W I K @ 0 0 $} 2TmH 7 Uj &"* W 4 TT0: z , { 0 @vT % 4 * *T4 m 4W mU x*0 @vT % I S2 * An0: |"- wx g 0 WYH ( 3 # W &| 0$ ' 0 @vT &z @ P $0 $
0x1676b0…167844 Dummy {f00=0x006d, f01=0x0190, f02=»_B 4 ! ! + 9h # !T}6 ,, !0# @|Thj !! ! j !! 80 _K ! $ !A !@( "90" !T2@e@i@k !" ? 'hZ 2 !TP &6 " _ Ai_8Ae_<" v :WpAkW ! ( ~ !~W)j !! C 80 U !b ! !
0x167844…1679d8 Dummy {f00=0x006d, f01=0x0190, f02=» = N D ^ P R 1 y s n G a 3 4 X V - ! " % & ?MDA FETCHING FORMAT:
0x1679d8…167b6c Dummy {f00=0x006d, f01=0x0190, f02=» p I H~*H $H !@~ W 04@mI~ Hn @f $U W I~ W I Ao 2 H~ I Ao { _ H{ 2 _ 2 b & . #K~M g "pK s_W!g4 ? /_>Iz H 04_ H %? Im)I~ h ( & g" " H I @o0 ! _ _ 0 ! %Z @m@n 0 ! _ Io @ T I~ #> ?
0x167b6c…167d00 Dummy {f00=0x006d, f01=0x0190, f02=»! !T #P ( -& Ub & ? Ub & @ .P )g4 Ao? AzAzT @mA *P @ ? @ @m8 @xP 2 h ( & H #: W ? Im1I~ I & h ( & H I ) ? I ) ? I H W Io ? g( " C~< )g4 @z )WkI~5 / 2 $ # " #g #g &? #* " #g_> ! & #g #2_
0x167d00…167e94 (1, 220) Dummy {f00=0x006d, f01=0x0190, f02=» C~8 ? @zC~8 ? ? Km Jz I g4 T Io Ao #: _3Ao@ T / 2 ! % # #g W ! #g #20 ! &_ I~ Jo K _@ @ !04@o ( P W 6 - _ Hm 0 ! A %V @ _ @ "@m042 " #$$$% " / 80 !"W 0$ ! @m h ( & H I ?&Ao( ! ? ? AoW I~ Co8 C < Cz
0x167e94…168028 Dummy {f00=0x006d, f01=0x0190, f02=» ! & ? C < h ( & H I ?& g( " @oW $ 2 + ): @oA ?,C < Hz @ T Cm< Io I~ #V - ? @o@z Ub & 5 +@mA{ *V#( - 1 0 ! 04 { &{ mU_"@{Ao? m 5 + p!0 An ! 6 Ba4( () % ) _ W + 2 --./A #W 80 _5 _:A @{0 $} !4 @{Az
0x168028…1681bc Dummy {f00=0x006d, f01=0x0190, f02=» z ( B R b O c r ; @ > > , A L ] 8 4 " " V * FETCHING FORMAT: FROM DISC. @ UF 0 *
0x1681bc…168350 Dummy {f00=0x006d, f01=0x0190, f02=» + , - ( 3 8 ; H @ X J F " D ( !Ad1XFAn@m R6 6 W,@n_ ( "2( _!@j3 RRRR@ @d0R 0} 4 Rh h G H l *! r *! | J
0x168350…1684e4 Dummy {f00=0x006d, f01=0x0190, f02=» $ v , J F " D ) ?R Lj !& R'bc c b W 0X ! L R$ r"?R 7" v$ <
0x1684e4…168678 Dummy {f00=0x006d, f01=0x0190, f02=» C? Y? 0 @ $ P / ` 4 p 9 > J F " D RP ! L W+! L A ?R@ ?R 0R !T ?R )6 W ?R "?R &?R (?R C J F " D @ ?R
0x168678…16880c Dummy {f00=0x006d, f01=0x0190, f02=» 6 L J F " D 3 W1Ak_+ !" %% h / !T , W Hk ! c % c c X h x " 3 9 > J F " D _ & RK !?R 0X %%
0x16880c…1689a0 Dummy {f00=0x006d, f01=0x0190, f02=» 5 f N k o , q < s 5 L v N { n ~ J F " D @<Rj ! ! L @iW Ai?R RP ! L ?RA W @ ! L A ?R@ ?R R<R! L A ?R@ ?R 5 N
0x1689a0…168b34 (1, 221) Opaque[0x194]
0x168b34…168cc8 # DirEnt {nam=»M:PROC«, typ=»UF«, f00=0x0000, f01=0x0000, f02=0x0db8, f03=0x0000}
0x168b34…168cc8 IdxSect {
0x168b34…168cc8 f00 = 0x006d // 0x168b34 @0x0
0x168b34…168cc8 f01 = 0x0004 // 0x168b36 @0x2
0x168b34…168cc8 gno = [ // 0x168b38 @0x4
0x168b34…168cc8 [0x00]: C0x006d.0x3.0
0x168b34…168cc8 [0x01]: C0x006e.0x0.0
0x168b34…168cc8 ]
0x168b34…168cc8 }
0x168cc8…168e5c Dummy {f00=0x006d, f01=0x0190, f02=» P$TRALI PSCR /O PTRA DEDDIV PTRA DECONV 2 PTRA DCTASK D PTRA DEAPPU V PASM FDIO h PKPF /O x PSCR /O PASG 2,LP0F P$LINK PEND P$TRANL PASG 2,NO P$TRALI END $LINK PDE
0x168e5c…168ff0 Dummy {f00=0x006d, f01=0x0190, f02=»DKRUT1 PINC DKRUT2 PINC DKRUT3 PNOD 2 PINC DKRUT4 > PINC DEPOOL P PNOD b PINC DENTER n PINC DENT03 PINC DERROR PNOD PINC DENVAL PINC DEGENE PINC DECOMP PINC DESTAT PINC DENT02
0x168ff0…169184 Dummy {f00=0x006d, f01=0x0190, f02=»C DE20ST PINC DE21ST PINC DE23ST " PINC DE24ST 4 PINC DE20FS F PNOD X PINC DECVRT d PINC DEPRFG v PINC DEUNPF PNOD PINC DEPROC PINC DEVGAC PINC DEATTF PNOD PINC DE30ST PINC DE31ST
0x169184…169318 Dummy {f00=0x006d, f01=0x0190, f02=»INC DEFDSC PNOD PINC DERECS PINC DEREC2 0 PINC DEACCU B PNOD T PINC DENT01 ` PTLK U,4K r PLKE M KPF /L,DELINK PEND P$LINKLI PDEL DELINK,/L PSCR /O PNOD C PINC PTSDE PIN
0x169318…1694ac Dummy {f00=0x006d, f01=0x0190, f02=» PKPF /L,DELINK PEND P$PRDLNK * PDEL PRDAPL,/L : PSCR /O P PNOD C ^ PINC PTSDE l PINC DEDISC ~ PINC DELOCK PINC DEAPPU PNOD PINC DKRUT1 PINC DKRUT2 PINC DKRUT3 PNOD PINC DK
0x1694ac…169640 Dummy {f00=0x006d, f01=0x0190, f02=» PINC DECOMP PINC DESTAT PINC DENT02 , PNOD > PINC DE10ST J PINC DE11ST PINC DE12ST n PINC DE1201 PINC DE14ST PINC DE15ST PNOD PINC DE20ST PINC DE21ST PINC DE23ST PINC DE24ST
0x169640…1697d4 (1, 222) Dummy {f00=0x006e, f01=0x018e, f02=»C DEATTF PNOD PINC DE30ST PINC DE31ST . PNOD @ PINC DE40ST L PINC DE50ST ^ PINC DE60ST p PINC DE70ST PNOD PINC DECONV PINC DCTASK PINC DEFDSC PNOD PINC DERECS PINC DEREC2 PIN
0x1697d4…169968 Dummy {f00=0x006e, f01=0x009e, f02=» PINC /OBJCT PASG 3,DK PPOB & PRUN OBX 2 PEND B P$TRA N PTRA @S= Z PKPF /O j PXRF @S= x PSKF 2 PEND PINC DECONV PINC DCTASK PINC DEFDSC PNOD PINC DERECS PINC DEREC2 PIN
0x169968…169afc Dummy {f00=0x006e, f01=0x2008, f02=» /OBJCT PASG 3,DK PPOB & PRUN OBX 2 PEND B P$TRA N PTRA @S= Z PKPF /O j PXRF @S= x PSKF 2 PEND PINC DECONV PINC DCTASK PINC DEFDSC PNOD PINC DERECS PINC DEREC2 PIN
0x169afc…169c90 Dummy {f00=0x006e, f01=0x40ac, f02=» @ H IDENT Z:DU20 TRA 10.0 80-11-19 F1 O1111 REL 10.0 80-04-11 Z:DU20 H Z:DU20D Z n @ & ( * , , ( Q . 0 2 4 6 8 : < a >
0x169c90…169e24 Dummy {f00=0x006e, f01=0x4096, f02=» @ H IDENT D:DU20 TRA 10.0 80-11-19 F1 O1111 REL 10.0 80-04-11 D:DU20 H D:DU20D Z n :D @ @ & ( * , , ( Q . 0 2 4 6 8 : < a >
0x169e24…169fb8 Dummy {f00=0x006e, f01=0x40ac, f02=» @ H IDENT Z:DU30 TRA 10.0 80-11-19 F1 O1111 REL 10.0 80-04-11 Z:DU30 H Z:DU30D Z n @ & ( * , , ( Q . 0 2 4 6 8 : < a >
0x169fb8…16a14c Dummy {f00=0x006e, f01=0x4096, f02=» @ H IDENT D:DU30 TRA 10.0 80-11-19 F1 O1111 REL 10.0 80-04-11 D:DU30 H D:DU30D Z n :D @ @ & ( * , , ( Q . 0 2 4 6 8 : < a >
0x16a14c…16a2e0 Dummy {f00=0x006e, f01=0x40ac, f02=» @ H IDENT Z:DU40 TRA 10.0 80-11-19 F1 O1111 REL 10.0 80-04-11 Z:DU40 H Z:DU40D Z n @ & ( * , , ( Q . 0 2 4 6 8 : < a >
0x16a2e0…16a474 (1, 223) Opaque[0x194]
0x16a474…16a608 # DirEnt {nam=»CDVRUT«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x2e70, f03=0x0000}
0x16a474…16a608 IdxSect {
0x16a474…16a608 f00 = 0x0173 // 0x16a474 @0x0
0x16a474…16a608 f01 = 0x0004 // 0x16a476 @0x2
0x16a474…16a608 gno = [ // 0x16a478 @0x4
0x16a474…16a608 [0x00]: C0x0173.0x2.0
0x16a474…16a608 [0x01]: C0x0173.0x3.0
0x16a474…16a608 ]
0x16a474…16a608 }
0x16a608…16a79c Dummy {f00=0x0173, f01=0x0190, f02=» $ P IDENT CDVRUT REL 10.0 80-04-11 P 81-07-10,EV DK1 , P 79-03-12/PEEN F P UPD 79-01-18/PEEN ^ P* z P* 6 P* THIS ROUTINE MAKES CDV-CHECK ON A STRING ITEM. P* @ P* NOTE: THE DIGIT(S) ZERO SHOULD BE INSERTED IN THE
0x16a79c…16a930 Dummy {f00=0x0173, f01=0x0190, f02=» INPUT CAN BE OF VARIABLE LENGTH P* * P* 4 6 P* CALLING FORMAT: 1. CALL CDV10,STRING,BIN > 6 P* 2. CALL CDV110,STRING,BIN x 6 P* 3. CALL CDV111,STRING,BIN 8 P* 4. CAL
0x16a930…16aac4 Dummy {f00=0x0173, f01=0x0190, f02=» INPUT TO MAKE CDV-CHECK ON z L P* (NOT NUMERIC CHARACTERS ARE SKIPPED) 0 H P* 'BIN' = A BINARY ITEM HOLDING THE CHECK- F P* DIGIT(S) AS OUTPUT IF THE
0x16aac4…16ac58 Dummy {f00=0x0173, f01=0x0190, f02=» CR = 1 NOT OK P* , P* 'STRING' IS UNCHANGED " F P* 'BIN' HOLDS CHECK-DIGIT(S) IF CR=1 (ELSE BIN=0) R P EJECT P* USE OF REGISTERS P* REGISTER USE ( P* A1 COUNTER FOR MULTIPLY
0x16ac58…16adec Dummy {f00=0x0173, f01=0x0190, f02=» A6 MAX VALUE FOR RESTART OF WEIGHT * P* A7 DIVIDEND FOR TOTAL SUM 4 " P* A10 SUM OF PRODUCTS b P* P* P* PARAMETERS FOR CDV F P* USE CONTENTS AT CDV10 CDV110 CDV111 CDVDK DK1 P*
0x16adec…16af80 Dummy {f00=0x0173, f01=0x0190, f02=»1 11 DK1 Z P EJECT P ENTRY CDV10 " P ENTRY CDV110 6 P ENTRY CDV111 L P ENTRY CDVDK DK1 b P* | P EXTRN I:EVA0 P EXTRN I:RT1 P* P* PCALL FORM 16=/F6A1,16 P EJECT * PCDVDK EQU * CDV 11 CHECK
0x16af80…16b114 (1, 224) Dummy {f00=0x0173, f01=0x0190, f02=» A6,11 LOAD RESTART LIMIT PCD005 EQU * " P LDK A7,11 LOAD DIVIDEND 6 P RF CDV20 V P* h P* r PCDV111 EQU * | " P LDK A6,10 LOAD RESTART LIMIT P RB CD005 P* P* PCDV10 EQU * P LDK A6,2 LOAD RESTART L
0x16b114…16b2a8 Dummy {f00=0x0173, f01=0x0190, f02=» t P SUR A10,A10 ZERO TO SUM PCDV30 EQU * ( P CWR A5,A9 < P RF(E) CDV60 IF FINISHED N P LC A4,-1,A5 GET CHARACTER n P CCK A4,'00' P RF(L) CDV50 IF NO DIGIT P CCK A4,'99' P RF(G) CDV50 IF NO DIGIT P ANK A4,/F MASK
0x16b2a8…16b43c Dummy {f00=0x0173, f01=0x0190, f02=»ADD TO SUM P SUK A1,1 DECREMENT COUNTER P RB(P) CDV40 IF MORE TO ADD 6 & P CWR A2,A6 MULTIPLY BY 2 IN CDV10 Z P RF(NE) CDV45 NO P CWK A6,7 IF CDVDK DK1 P RF(E) CDV45 YES DK1 P SUK A4,4 , P RF(NP) CDV45 IF DIGIT SUM LESS
0x16b43c…16b5d0 Dummy {f00=0x0173, f01=0x0190, f02=»OT MAX LIMIT ~ P CWK A6,7 IF CDVDK DK1 * P RF(NE) CDV48 NO, RESTART WEIGHT=1 DK1 2 ( P LDK A2,2 YES, RESTART WEIGHT=2 DK1 ` P RF CDV50 DK1 PCDV48 EQU * DK1 P LDK A2,1 RESTART WEIGHT CDV50 EQU * SUK A5,1 DECREMENT POINTE
0x16b5d0…16b764 Dummy {f00=0x0173, f01=0x0190, f02=»DV10 z LDR A10,A10 RF(Z) CDVOUT IF SUM = 0 CDV70 EQU * @ ( # SUR A10,A7 SUBTRACT 10/11 FROM SUM T RB(P) CDV70 SUM STILL > 0 RF(Z) CDVOUT IF CDV-OK P NGR A10,A10 GET CHECK DIGIT LDK A6,1 INDICATE NOT OK
0x16b764…16b8f8 Dummy {f00=0x0173, f01=0x4050, f02=» t " SC A6,-2,A1 STORE CR ON STACK ABL I:RT1 . END @@ L ( # SUR A10,A7 SUBTRACT 10/11 FROM SUM T RB(P) CDV70 SUM STILL > 0 RF(Z) CDVOUT IF CDV-OK P NGR A10,A10 GET CHECK DIGIT LDK A6,1 INDICATE NOT OK
0x16b8f8…16ba8c Dummy {f00=0x0173, f01=0x2008, f02=» SUM STILL > 0 RF(Z) CDVOUT IF CDV-OK ADR A10,A7 GET CHECK DIGIT > LDK A6,1 INDICATE NOT OK b CDVOUT EQU * & ! CALL I:EVA0 GET CHECK-DIGIT ITEM * & STR A10,A9 STORE CHECK-DIGIT IF ERROR LD A1,2,A13 GET STACK B
0x16ba8c…16bc20 Dummy {f00=0x0173, f01=0x0190, f02=»2 _ _ 0 ~P + , @z6 Az _ @ @z $XP@ ~U 0 , P& b~ ![) !0 + T b~ ![( !b~ ![ ! ! (41 .0 %%0 &&0% $ _ 6 ? ? + , 6 h[ * !T06 $ $$ 0 , T 0 , @ T 0 + !_6A X @ T ? &? @e( +AdIe 1 /W 1 +An@m 6 -
0x16bc20…16bdb4 (1, 225) Opaque[0x194]
0x16bdb4…16bf48 # DirEnt {nam=»DE50ST«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0dd8, f03=0x0000}
0x16bdb4…16bf48 IdxSect {
0x16bdb4…16bf48 f00 = 0x006e // 0x16bdb4 @0x0
0x16bdb4…16bf48 f01 = 0x000a // 0x16bdb6 @0x2
0x16bdb4…16bf48 gno = [ // 0x16bdb8 @0x4
0x16bdb4…16bf48 [0x00]: C0x006e.0x3.0
0x16bdb4…16bf48 [0x01]: C0x006f.0x0.0
0x16bdb4…16bf48 [0x02]: C0x006f.0x1.0
0x16bdb4…16bf48 [0x03]: C0x006f.0x2.0
0x16bdb4…16bf48 [0x04]: C0x006f.0x3.0
0x16bdb4…16bf48 ]
0x16bdb4…16bf48 }
0x16bf48…16c0dc Dummy {f00=0x006e, f01=0x0190, f02=» $ P IDENT DE50ST REL 10.0 80-04-11 P UPD 80-04-24/DALI , P 80-04-14/DALI H DDUM DEDDIV ` PDIV t P ENTRY DE50ST P ENTRY DEAP5A * * ** EXTERNAL REFERENCES TO SCREEN * P EXT DECLRA P EXT
0x16c0dc…16c270 Dummy {f00=0x006e, f01=0x0190, f02=»XT DERECS P EXT DEDISC P EXT SETB & P EXT TESTB 8 P EXT CLEARB J P EXT MSKOUT ^ P EXT DERROR r P EXT OPCL P EXT DESTAU BUILD STATUS P EXT DEPRUT P EXT ATTWB P EXT ATTDB P EXT EMPTYT P EXT
0x16c270…16c404 Dummy {f00=0x006e, f01=0x0190, f02=» INCLUDE DELITT EJECT 2 P********************************************* & 0 P* START OF SEARCH/CORR. HANDLE PRORAMSCREEN- ( P* LAYOUTS 50,51,52,53 SEARCH MODE. , P* THESE ROUTINES USE THE DENTER-SCREEN. 2 P****************************
0x16c404…16c598 Dummy {f00=0x006e, f01=0x0190, f02=»50EN PDEST00 & P SET BOOL1 PART OF FORMAT DISPLAY PDEST10 D P TBT BOOL2,DE50EN R P ATTFMT F50ST l & P SET DEPROMPT PROMPT-TEXTS DISPLAY PDEST50 P CLEAR DECHANGE P PERF DECLRS PDEST60 $ P IB DEBINW2,DE50CA,D
0x16c598…16c72c Dummy {f00=0x006e, f01=0x0190, f02=» t P MOVE DEBINW4,BIN3 PDE50E2 " PDE50ER 0 P PERF DERR > P B DEST60 P P EJECT b P* p P* CANCEL-KEY PRESSED z P* PDE50CA P CLEAR DEPROMPT P B DEST50 * P* ENTER-KEY PRESSED P* P
0x16c72c…16c8c0 Dummy {f00=0x006e, f01=0x0190, f02=» CLEAR DOOL3 P BZ DERE20 P PERF OPCL,W4 CLOSE USERFILE & P BNERR DERE20 J P MOVE DEBINW1,W0 ` P PERF DERROR,DEKTAB6 x PDERE20 P TBT BOOL2,DERE50 P MOVE BIN2,W1 P MOVE BIN1,W0 PDERE30 RET PDERE50
0x16c8c0…16ca54 (1, 226) Dummy {f00=0x006f, f01=0x0190, f02=»LEAR BOOL1 PART OF FORMAT DISPLAY P SET BOOL2 LEVEL 2 IN SEARCH * & P MOVE EOLINE,W2 NUMBER OF BUFFERS N $ P MOVE BIN4,W2 NUMBER OF CONSEC. x 0 P PERF DEPOOL,W2,EOLINE,BIN4,STRG10A GET LOCK P BNOK DE50ER P MOVE DEBINW2,W0 PDE5203
0x16ca54…16cbe8 Dummy {f00=0x006f, f01=0x0190, f02=» x & P XCOPY BPOOL(EOLINE),W0,W1,W128,W1 & P XCOPY BPOOL(EOLINE),W1,W1,W15,W1 2 & P XCOPY BPOOL(EOLINE),W5,W1,W24,W1 $ P CALL ATTWB,BPOOL(EOLINE),W8,W11 $ P CALL ATTDB,BPOOL(EOLINE),W0,W11 P CBNE DEBINW2,W0,DE52EN & P CBE BIN2,W2,DE520
0x16cbe8…16cd7c Dummy {f00=0x006f, f01=0x0190, f02=» CLEAR DECHANGE P PERF DECLRS PDE5210 , P PERF DEPRUT,PRNUM,BIN1,BIN2 : $ P IB DEBINW2,DE52CA,DE52RE,DE52EN ^ P MOVE DEBINW4,W0 PDE5220 P PERF DERR P B DE5210 PDE52CA P PERF DECLRA P B DE5210 PDE52
0x16cd7c…16cf10 Dummy {f00=0x006f, f01=0x0190, f02=»NW2 z P B DE5220 PDE52EN P MOVE DEBINW2,W0 , P MOVE STSAVE(W2),BATCH D P MOVE BATCH,HEX00 b P PERF DEOPBC,DEBINW2 | P MOVE BIN7,W0 P PERF DEPRUT,PRNUM,BIN1,BIN2 & P CBE BIN2,W2,EN5202 JUMP IF BATCH P ATTFMT F51S
0x16cf10…16d0a4 Dummy {f00=0x006f, f01=0x0190, f02=»52RE,DE52ER t PEN5205 $ P CBE BIN2,W1,EN5210 JUMP IF JOB " ( P MOVE BIN5,=W'34' GET NEXT BATCHNAME J P B EN5220 v PEN5210 $ P MOVE BIN5,W21 GET NEXT JOBNAME PEN5220 P PERF DEDISC,BIN5 P BNOK EN5270 $ P CBE BIN2,W1,E
0x16d0a4…16d238 Dummy {f00=0x006f, f01=0x0190, f02=»T,W0 x P* CALL MSKOUT,BIN10,BIN7 . P* CBNE BIN6,BIN10,DE52EN STATUS NOT MATCH , P PERF DESTAU,BDSTAT,STRG10A ^ ( P PERF DEPOOL,W6,PINACC,BIN8,STRG10A P B EN5250 PEN5240 P MOVE STRG10A,=C'IN USE ' PEN5250 P ADD BIN7,
0x16d238…16d3cc Dummy {f00=0x006f, f01=0x0190, f02=»ATCH,W0 COPY p 0 P CON X.COPY,FDVBCD(BIN7),W6,W1,VALSTR,W18 : 2 P CON X.COPY,FDVBCD(BIN7),W7,W8,STRG10A,W0 COPY H P MOVE STSAVE(W2),BATCH ~ P B EN5257 PEN5255 . P CON X.COPY,FDVBCD(BIN7),W0,W6,JOBNAME,W0 P MOVE STSAVE(W1),JOBNAME
0x16d3cc…16d560 Dummy {f00=0x006f, f01=0x0190, f02=»E BIN7,W24,EN5205 PEN5258 P CLEAR DOOL3 ( P BZ EN5259 < P PERF OPCL,W4 CLOSE USERFILE N PEN5259 r P DISPLAY 3,W3,W4 P CLEAR DECHANGE P DSC0 DEDSDYKB,02 P PERF DECLRN PEN5260 2 P IB DEBINW2,DE52CA,DE52RE,DE
0x16d560…16d6f4 (1, 227) Dummy {f00=0x006f, f01=0x0190, f02=» FOUND' h P CBNE BIN7,W0,EN5258 P PERF DEPRUT,PRNUM,BIN1,BIN2 , PEN5280 P P CLEAR DOOL3 ^ P BZ EN5281 IF NOT OPEN r P MOVE BIN3,DEBINW4 " P PERF OPCL,W4 CLOSE USER FILE P MOVE DEBINW4,BIN3 PEN5281 P PERF DERR
0x16d6f4…16d888 Dummy {f00=0x006f, f01=0x0190, f02=»WD PRESSED x P MOVE JOBNAME,HEX00 P B DE5203 . PBW5200 @ & P CBE DEBINW2,W5,BW5210 BWD PREESED N P CALL EMPTYT,JOBNAME x P BNZ EN5265 EMPTY! P B DE5203 PBW5210 P MOVE BATCH,HEX00 PDE52CL P B DE5203 P
0x16d888…16da1c Dummy {f00=0x006f, f01=0x0190, f02=»NE,BIN8,STRG10A | P SET BOOL2 P B DE50RE * P EJECT < . P****************************************** J , P* THIS IS THE MAINLOOP IN SEARCH RECORD. | , P* THE PROCEDURES FOR BATCHHANDLING USED , P* ARE THE SAME AS FOR ENTRY AND VERIFY.
0x16da1c…16dbb0 Dummy {f00=0x006f, f01=0x018e, f02=» " P NOT USED WITHIN PROGRAM 53 PDE5305 * P SET DEPROMPT 8 P CLEAR DECHANGE N PDE5310 f P MOVE WORK(W11),W0 COMP-WORD t " P MOVE WORK(W12),W0 MSKOUT-WORD & P PERF DECLRS CLEAR SOME VARIABELS PDE5315 $ P IB DEBINW2,DE53CA
0x16dbb0…16dd44 Dummy {f00=0x006f, f01=0x0190, f02=» P B DE5315 PDE53EN P MOVE DEBINW2,W0 ( P CALL EMPTYT,STR64A @ P BZ EN5300 IF NOT EMPTY P MOVE WORK(W11),W0 COMP-WORD | " P MOVE WORK(W12),W0 MSKOUT-WORD PEN5300 , P PERF DEOPBC,DEBINW2 OPEN BATCH-ROUTINE P CLE
0x16dd44…16ded8 Dummy {f00=0x006f, f01=0x018e, f02=»ATARECORDHANDLING-ROUTINE $ P B EN5300 TAKE CARE OF RETURCODE " PDE53RE J P CLEAR DOOL3 X P CLEAR SOOL2 l P PERF OPCL,W4 CLOSE USERFILE P BOK DE53ST SUCCESSFULLY PEN5320 OPEN BATCH FAILED P CLEAR DOOL3 P MOVE STR64A,H
0x16ded8…16e06c Dummy {f00=0x006f, f01=0x0190, f02=» P CBE DEBINW2,W0,DES120 * P COPY STR64A,DEBINW2,W1,STATIU,W9 ',' & ADD DEBINW2,W1 T PDES120 l , P CALL TESTB,WORK(W11),DEBINW3 COMP-WORD z P BNZ DES140 * P COPY STR64A,DEBINW2,W1,STATIU,W8 '/' ADD DEBINW2,W1 PDES1
0x16e06c…16e200 Dummy {f00=0x006f, f01=0x0190, f02=»ES100 ~ P ATTFMT F53ST P DISPLAY 3,W5,W5 $ P DISPLAY 3,W6,W6 < P GETFLD 0,W4,DEBINW3 T " P B DE5320 DISPLAY ERRORMESSAGE p P EJECT P* ( P* APPL VALUE HANDLING ROUTINE P* PDEAP5A $ P IB DEBINW4,DEAP51,DEA
0x16e200…16e394 (1, 228) Dummy {f00=0x006f, f01=0x0190, f02=»RD v " P MOVE WORK(W12),W0 MSKOUT-WORD P MOVE BIN9,W0 0 PAPP003 F P CBE BIN9,DEBINW1,APP340 T P MOVE BIN8,W0 t PAPP005 * P MATCH STATIU,BIN8,W10,DEINPUT,BIN9,W1 P BNOK APP395 ILLEGAL LETTER P IB BIN8, C P APP395 -
0x16e394…16e528 Dummy {f00=0x006f, f01=0x0190, f02=»35 = C P APP330 = PAPP310 . P CALL TESTB,WORK(W12),BIN8 LOOK IF STATUS . P BNZ APP395 MASK ALREADY SET ` * P CALL SETB,WORK(W12),BIN8 MSKOUT-WORD P CLEAR DOOL6 NOT-FLAG SAT? P BNZ APP330 PAPP320 ( P CALL SETB,WORK(W1
0x16e528…16e6bc Dummy {f00=0x006f, f01=0x018e, f02=» P BZ APP330 PAPP340 P CLEAR DOOL6 NOT-FLAG ( " P BNZ APP395 LAST LETTER = '/' F PAPP350 l P B DEAOK0 z PAPP395 PDEAER6 P MOVE DEBINW4,W6 P B DEANOK P PEND EJECT * * FORMATS
0x16e6bc…16e850 Dummy {f00=0x006f, f01=0x0190, f02=» FNL P FCOPY =C'PROGRAM:' ( P FKI 9,MINL=2,MAXL=2,ME,NEOI,APPL=1 , P FMEL 'XX',PRNUM X P FBF BOOL1,F50OUT p FNL P FLINK F51ST2 P FNL P FLINK F52ST2 P FNL P FLINK F53ST2 PF50OUT P FMEND
0x16e850…16e9e4 Dummy {f00=0x006f, f01=0x0190, f02=» P FNL P FLINK F50STA P FMEND * PF52ST FRMT 8 P FSL J P FLINK F52ST2 V P FNL l P FLINK F50UV x P FNL P FLINK F52JOB P FTAB 20 P FLINK F50BAT P FLINK F50END P FNL P FLINK F50STA
0x16e9e4…16eb78 Dummy {f00=0x006f, f01=0x0190, f02=» FTAB 20 P FLINK F53BAT P FNL & P FCOPY =C'RECORD' 2 P FILLR '-',1 L P FCOPY =C'NUMBER' ` P FILLR ':',1 z P FKI 15,MAXL=7,NEOI P FMEL 'XXXX',BCDI21(W3) P FTAB 30 P FCOPY =C'RECORD' P FILLR '-',1 P
0x16eb78…16ed0c Dummy {f00=0x006f, f01=0x0190, f02=»MEND PF51ST2 FRMT P FTEXT '51 ' P FCOPY =C'SEARCH' 4 P FILLR ' ',1 N P FCOPY =C'MODE' b P FILLR ' ',1 z P FCOPY =C'JOB' P FILLR ' ',1 P FCOPY =C'LEVEL' P FMEND PF52ST2 FRMT P FTEXT '52 ' P F
0x16ed0c…16eea0 Dummy {f00=0x006f, f01=0x0190, f02=»PY =C'LEVEL' P FMEND PF53ST2 FRMT " P FTEXT '53 ' 6 P FCOPY =C'SEARCH' J P FILLR ' ',1 d P FCOPY =C'MODE' x P FILLR ' ',1 P FCOPY =C'RECORD' P FILLR ' ',1 P FCOPY =C'LEVEL' P FMEND PF50UV FRMT
0x16eea0…16f034 (1, 229) Dummy {f00=0x006f, f01=0x0190, f02=»PY =C'VOLUME' P FILLR ':',1 P FINP 27 * P FCOPY TABLE : P FMEND N PF50JOB FRMT P FCOPY =C'JOB' p P FCOPY =C'NAME' P FILLR ':',1 : P FKI 9,ALPHA,MINL=1,MAXL=6,NEOI,APPL=3,DUPL=STSAVE(W1) P FCOPY JOBNAME P F
0x16f034…16f1c8 Dummy {f00=0x006f, f01=0x0190, f02=»L=3,DUPL=STSAVE(W1) j P FCOPY JOBNAME P FMEND 2 PF50BAT FRMT @ P FCOPY =C'BATCH' T P FCOPY =C'NAME' l P FILLR ':',1 < P FKI 30,ALPHA,MINL=1,MAXL=6,NEOI,APPL=4,DUPL=STSAVE(W2) P FCOPY BATCH FMEND PF53BAT FRMT
0x16f1c8…16f35c Dummy {f00=0x006f, f01=0x0190, f02=» P FCOPY BATCH FMEND PF50STA FRMT & P FINP 1 : P FCTL X'C0',FDVBCD(W1) J P FINP 21 h P FCTL X'C0',FDVBCD(W2) x P FINP 41 P FCTL X'C0',FDVBCD(W3) P FNL P FINP 1 P FCTL X'C0',FDVBCD(W4) P FINP 21
0x16f35c…16f4f0 Dummy {f00=0x006f, f01=0x0190, f02=» P FINP 21 ! P FCTL X'C0',FDVBCD(W8) ! P FINP 41 ! 2 P FCTL X'C0',FDVBCD(W9) ! B P FNL ! ` P FINP 1 ! l P FCTL X'C0',FDVBCD(W10) ! | P FINP 21 ! P FCTL X'C0',FDVBCD(W11) ! P FINP 41 ! P FCTL X'C0',FDVBCD(W12) ! P FNL ! P
0x16f4f0…16f684 Dummy {f00=0x006f, f01=0x0190, f02=» ! x P FNL " P FINP 1 " P FCTL X'C0',FDVBCD(W16) " $ P FINP 21 " D P FCTL X'C0',FDVBCD(W17) " T P FINP 41 " t P FCTL X'C0',FDVBCD(W18) " P FNL " P FINP 1 " P FCTL X'C0',FDVBCD(W19) " P FINP 21 " P FCTL X'C0',FDVBCD(W20)
0x16f684…16f818 Dummy {f00=0x006f, f01=0x40ba, f02=»L X'C0',FDVBCD(W23) " P FINP 41 # P FCTL X'C0',FDVBCD(W24) # , P FMEND # L PF50END FRMT # Z P FNL # n P FKI 1 # z P FCOPY HEX00 # P FMEND # END # @ # P FCTL X'C0',FDVBCD(W19) " P FINP 21 " P FCTL X'C0',FDVBCD(W20)
0x16f818…16f9ac Dummy {f00=0x006f, f01=0x2008, f02=» $ PY HEX00 P FMEND END &@ 2 P FCTL X'C0',FDVBCD(W19) : P FINP 21 Z P FCTL X'C0',FDVBCD(W20) j P FINP 41 P FCTL X'C0',FDVBCD(W21) P FNL P FINP 1 P FCTL X'C0',FDVBCD(W22) P FINP 21 P F
0x16f9ac…16fb40 Dummy {f00=0x006f, f01=0x0190, f02=»!* & & & ! 1 0 "}H{ Ij 0 !6 H" W 09 {$*0 P _4 0 "}_? 1 !6 TT _P - PJ !6 ??_&Aj p! u # $ j $!! {1j #!! {2 $ #? &{ @jP { &{ W &{ @jP H{ m *" ! I{ ? % & 4 0# 6 55 555555555W 'I ( W Ij I }I
0x16fb40…16fcd4 (1, 230) Opaque[0x194]
0x16fcd4…16fe68 # DirEnt {nam=»DE31ST«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0e00, f03=0x0000}
0x16fcd4…16fe68 IdxSect {
0x16fcd4…16fe68 f00 = 0x0070 // 0x16fcd4 @0x0
0x16fcd4…16fe68 f01 = 0x0008 // 0x16fcd6 @0x2
0x16fcd4…16fe68 gno = [ // 0x16fcd8 @0x4
0x16fcd4…16fe68 [0x00]: C0x0070.0x0.0
0x16fcd4…16fe68 [0x01]: C0x0070.0x1.0
0x16fcd4…16fe68 [0x02]: C0x0070.0x2.0
0x16fcd4…16fe68 [0x03]: C0x0070.0x3.0
0x16fcd4…16fe68 ]
0x16fcd4…16fe68 }
0x16fe68…16fffc Dummy {f00=0x0070, f01=0x0190, f02=» $ P IDENT DE31ST REL 10.0 80-04-11 P 79-10-19/DALI , P*************************** D P* 31 CREATE JOB DEFINITION h P* 32 GET JOB DEFINITION P*************************** P************************** P* FORTAB 1 - 21
0x16fffc…170190 Dummy {f00=0x0070, f01=0x0190, f02=» * z P* 21 BALANCE * P* SYMREC 1 - 12 * . P* 1-9 REC.NR FORMAT 1-9 * P P* 10 REC.NR BATCHHEAD * r P* 11 REC.NR BALANCE * P* 12 MAXL. SYMB.NAMES * P************************** 6 P**************
0x170190…170324 Dummy {f00=0x0070, f01=0x0190, f02=»RE FORMAT * n 6 P************************************************* DDUM DEDDIV R PDIV f P ENTRY DE31ST t P ENTRY DEAP3A P EXT DECLRA P EXT DECLRN P EXT DERROR P EXT DERR P EXT DEDISC P EXT A
0x170324…1704b8 Dummy {f00=0x0070, f01=0x0190, f02=»JECT PDE31ST PROC P ATTFMT F31 P SET BOOL1 4 P CBE PRNUM,=D'32',A10 F P CLEAR BOOL1 d PA10 x P SET DEPROMPT P CLEAR DECHANGE " P SET BOOL2 2 LINES ON DISPLAY P PERF DECLRA PA20 * P IB DEBINW2,CANC
0x1704b8…17064c Dummy {f00=0x0070, f01=0x0190, f02=»R,BIN7,STRG10A RELEASE BUFFER z PA50 & P IB DEBINW2,A10,RETUR,A10 2 PRETUR RET T P PEND f P EJECT t PFORW , P MOVE BIN1,=W'29' GET NEXT,REL.PREV.BUFF P B B20 PBACKW . P MOVE BIN1,=W'30' GET PREV. REL.PREV.BUFF
0x17064c…1707e0 Dummy {f00=0x0070, f01=0x018e, f02=»L2,B35 IF COMPLETE PICTURE P CLEAR DENOCHAN " PB35 : P PERF DERR F P B B70 X PB50 f & P CALL ATTWB,BPOOL(PJOBCUR),W0,W12 r P SET DEPROMPT PB60 & P SET DENOCHAN NO CHANGES POSSIBLE P CLEAR BOOL2 ENTIRE FORMAT
0x1707e0…170974 (1, 231) Dummy {f00=0x0070, f01=0x0190, f02=» P EJECT PCORR PDEL 4 P PERF DEPOOL,W8,PJOBCUR,BIN7,STRG10A LOCK BUFFER * P BNOK DEL200 b P CMP DEBINW2,W6 v P BE C70 IF CORRECTION P* P* DELETION P* PDEL100 . P MOVE DEBINW4,W17 'PRESS ENT FOR DELET
0x170974…170b08 Dummy {f00=0x0070, f01=0x0190, f02=»DEL100 4 CFW C P DEL150 5 ENT C P DEL100 6 EOI . P* ENTER-KEY D PDEL150 X P MOVE DEBINW2,W3 f P PERF DEDISC,W5 DELETE JOB ~ P BOK CANC PDEL200 & P SET DENOCHAN NO CHANGES POSSIBLE P PERF DERR P B B70
0x170b08…170c9c Dummy {f00=0x0070, f01=0x0190, f02=»N7,W0 NO CONSECUTIVE BUFFERS " P MOVE STRG10A,MODTAB(W3) ='J' $ * P COPY STRG10A,W1,W6,DEINPUT,W0 JOBNAME J > P PERF DEPOOL,W2,PJOBCUR,BIN7,STRG10A GET BUFFER WITH LOCK x P BNOK ERR99 4 P PERF DEPOOL,W4,PJOBCUR,BIN7,STRG10A SET BUFFER P M
0x170c9c…170e30 Dummy {f00=0x0070, f01=0x018e, f02=»EMS t P MOVE FORTAB(W10),JOBNAME P DISPLAY 4,W2,W0 . PC70 F P************** R P* CORR. JOB h P************** | P PERF DECLRN P B A20 P EJECT PENTER & P TBF BOOL2,ENTER2 IF ENTIRE FORMAT P MOVE DEINPUT,
0x170e30…170fc4 Dummy {f00=0x0070, f01=0x0190, f02=» t P* MODUL 31 - CREATE JOB P************************** ( P PERF DEDISC,W4 SEARCH JOB J P BOK ERR8 'ALREADY EXISTS' l " P CBE DEBINW4,W9,C20 NOT FOUND P B ERR99 P************************** P* MODUL 32 - GET JOB P****
0x170fc4…171158 Dummy {f00=0x0070, f01=0x0190, f02=» PD20 P MOVE JOBNAME,=X'00' P B ERR99 , P EJECT < P*************************** J P* CHECK FORMAT-SYMBOLIC: n P*************************** PENTER2 P MOVE BIN2,W0 PEA P CLEAR BOOL3 P ADD BIN2,W1
0x171158…1712ec Dummy {f00=0x0070, f01=0x0190, f02=»OVE BIN3,BIN2 P ADD BIN3,W10 , P CALL EMPTYT,FORTAB(BIN3) SYMBOLIC NAME , P BNZ EA EMPTY P CLEAR BOOL3 r P BNZ EA JOB NOT EMPTY P* GET INPUT FIELD NO. P MOVE BIN3,BIN2 P MUL BIN3,W2 P ADD BIN3,W1 PEERR G
0x1712ec…171480 Dummy {f00=0x0070, f01=0x0190, f02=»E1 ADD BIN2,W1 P CBG BIN2,W8,E3 P CALL EMPTYT,FORTAB(BIN2) . P BZ E1 NOT EMPTY P P MOVE BIN3,BIN2 h PE11 ADD BIN3,W1 P CBG BIN3,W9,E3 READY P CALL EMPTYT,FORTAB(BIN3) P BNZ E11 EMPTY $ P MOVE FORTAB(BIN2),FORTAB(
0x171480…171614 (1, 232) Dummy {f00=0x0070, f01=0x0190, f02=») r P MOVE FORTAB(BIN3),=X'00' P MOVE FORTAB(BIN5),=X'00' , P B E1 N PE3 CALL EMPTYT,FORTAB(W1) & P********************************* ~ $ P* FIRST FORMAT MUST BE PRESENT & P********************************* P BZ E4 NOT EMP
0x171614…1717a8 Dummy {f00=0x0070, f01=0x018e, f02=» MOVE BIN2,W10 0 P MOVE SYMREC(W12),W0 MAXL.OF SYMBOLIC NAMES PE41 ADD BIN2,W1 J P CBG BIN2,W19,E5 READY b P MOVE BIN3,W0 , P MATCH FORTAB(BIN2),BIN3,W6,HEX00,W0,W1 P BNZ E42 NO MATCH = 6 CHAR. P CBNG BIN3,SYMREC(W12),E41
0x1717a8…17193c Dummy {f00=0x0070, f01=0x0190, f02=» P BOK CANC P B ERR99 P EJECT & P* 4 ( P* APPL VALUE HANDLING ROUTINE > P* j PDEAP3A t $ P IB DEBINW3,APP101,APP102,APP102 PAPP101 P MOVE DEBINW2,W17 IND.ENTER P B DEAOK0 PAPP102 P MOVE BIN3,W
0x17193c…171ad0 Dummy {f00=0x0070, f01=0x018e, f02=»AOK0 BATCHEAD P B DAER32 BALANCE PAPP1020 0 P CALL TESTB,DEBINW3,W15 @ P BNZ DEAOK0 BALANCE ` PDAER32 | P MOVE DEBINW4,W32 P B DEANOK P* P* PERR0 P MOVE DEBINW4,W0 'BELL' P B ERR99 PER
0x171ad0…171c64 Dummy {f00=0x0070, f01=0x0190, f02=» P MOVE DEBINW1,W0 P PERF DERR P B A20 2 EJECT @ PF31 FRMT N P FSL ^ P FMEL '99',PRNUM j P FBT BOOL1,F32 P FCOPY =C' CREATE' P FB F31A PF32 FCOPY =C' GET' " PF31A FCOPY =C' JOB-DEFINITION' P FNL
0x171c64…171df8 Dummy {f00=0x0070, f01=0x0190, f02=»INES 0 P FKI 11,MINL=1,MAXL=6,ALPHA,ME,NEOI,APPL=101 P FCOPY JOBNAME @ P FB F31UT V PF31C h P FLINK F311 t PF31UT FMEND P* PF311 FRMT FNL P FCOPY =C'BATCHHEAD:' 0 P FKI 12,MINL=1,MAXL=6,ALPHA,NEOI,ME,AP
0x171df8…171f8c Dummy {f00=0x0070, f01=0x0190, f02=»03 f P FCOPY FORTAB(W21) BALANCE P FNL , P FCOPY =C'FORMAT' 8 P FILLR ' ',1 R P FCOPY =C'1:' f . P FKI 11,MINL=1,MAXL=6,NEOI,ALPHA,APPL=102 | P FCOPY FORTAB(W1) P FTAB 28 P FCOPY =C'SYMBOLIC:' $ P FKI 38,MINL=1,MAXL=
0x171f8c…172120 Dummy {f00=0x0070, f01=0x0190, f02=»NL=1,MAXL=6,NEOI,ALPHA,APPL=102 P FCOPY FORTAB(W2) ( P FTAB 28 B P FCOPY =C'SYMBOLIC:' R $ P FKI 38,MINL=1,MAXL=6,NEOI,ALPHA n P FCOPY FORTAB(W12) P FNL P FCOPY =C'FORMAT' P FILLR ' ',1 P FCOPY =C'3:' . P FKI 11,
0x172120…1722b4 (1, 233) Dummy {f00=0x0070, f01=0x0190, f02=»OI,ALPHA x P FCOPY FORTAB(W13) P FNL * P FCOPY =C'FORMAT' 6 P FILLR ' ',1 P P FCOPY =C'4:' d . P FKI 11,MINL=1,MAXL=6,NEOI,ALPHA,APPL=102 z P FCOPY FORTAB(W4) P FTAB 28 P FCOPY =C'SYMBOLIC:' $ P FKI 38,MINL=1,MAXL=6,
0x1722b4…172448 Dummy {f00=0x0070, f01=0x0190, f02=»=1,MAXL=6,NEOI,ALPHA,APPL=102 P FCOPY FORTAB(W5) & P FTAB 28 @ P FCOPY =C'SYMBOLIC:' P $ P FKI 38,MINL=1,MAXL=6,NEOI,ALPHA l P FCOPY FORTAB(W15) P FNL P FCOPY =C'FORMAT' P FILLR ' ',1 P FCOPY =C'6:' . P FKI 11,MI
0x172448…1725dc Dummy {f00=0x0070, f01=0x0190, f02=»,ALPHA v P FCOPY FORTAB(W16) P FNL ( P FCOPY =C'FORMAT' 4 P FILLR ' ',1 N P FCOPY =C'7:' b . P FKI 11,MINL=1,MAXL=6,NEOI,ALPHA,APPL=102 x P FCOPY FORTAB(W7) P FTAB 28 P FCOPY =C'SYMBOLIC:' $ P FKI 38,MINL=1,MAXL=6,NE
0x1725dc…172770 Dummy {f00=0x0070, f01=0x0190, f02=»,MAXL=6,NEOI,ALPHA,APPL=102 P FCOPY FORTAB(W8) $ P FTAB 28 > P FCOPY =C'SYMBOLIC:' N $ P FKI 38,MINL=1,MAXL=6,NEOI,ALPHA j P FCOPY FORTAB(W18) P FNL P FCOPY =C'FORMAT' P FILLR ' ',1 P FCOPY =C'9:' . P FKI 11,MINL
0x172770…172904 Dummy {f00=0x0070, f01=0x4080, f02=»LPHA t P FCOPY FORTAB(W19) P FNL & P FKI 1,MINL=0,MAXL=0 2 P FCOPY HEX00 N P FMEND b END p@ |NEOI,ALPHA j P FCOPY FORTAB(W18) P FNL P FCOPY =C'FORMAT' P FILLR ' ',1 P FCOPY =C'9:' . P FKI 11,MINL
0x172904…172a98 Dummy {f00=0x0070, f01=0x2008, f02=» P FKI 1,MINL=0,MAXL=0 P FCOPY HEX00 ( P FMEND < END J@ V=1,MAXL=6,NEOI,ALPHA N P FCOPY FORTAB(W18) v P FNL P FCOPY =C'FORMAT' P FILLR ' ',1 P FCOPY =C'9:' $ P FKI 11,MINL=1,MAXL=6,NEOI,ALPHA P
0x172a98…172c2c Dummy {f00=0x0070, f01=0x0190, f02=» | Z V, [ t @ [ | Z [ _ 0 t 5 P 8 8 8 Z P 9 _ Z P 8 0 5 _ 0 5 SJ SJP _0 P 0 5 _ P 0 5 Z Z
0x172c2c…172dc0 Dummy {f00=0x0070, f01=0x0190, f02=» $ , P T f 6 @ 0 A 6 A 8 <P Q "P A 8 D A A $ P Q A 6 S @ : A , 4 @ 4P A , @ 4=!P A 4 A $ A _2 @ 6P @ : A $ 0 @ 8P A $ D : Q B _ @ :_ C_ 5
0x172dc0…172f54 (1, 234) Opaque[0x194]
0x172f54…1730e8 # DirEnt {nam=»DE14ST«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0e20, f03=0x0000}
0x172f54…1730e8 IdxSect {
0x172f54…1730e8 f00 = 0x0071 // 0x172f54 @0x0
0x172f54…1730e8 f01 = 0x0004 // 0x172f56 @0x2
0x172f54…1730e8 gno = [ // 0x172f58 @0x4
0x172f54…1730e8 [0x00]: C0x0071.0x0.0
0x172f54…1730e8 [0x01]: C0x0071.0x1.0
0x172f54…1730e8 ]
0x172f54…1730e8 }
0x1730e8…17327c Dummy {f00=0x0071, f01=0x0190, f02=» $ P IDENT DE14ST REL 10.0 80-04-11 P 79-11-15/LABJ , P************************* D P* 14 SYSTEM-VARIABLES f P************************* DDUM DEDDIV PDIV P ENTRY DE14ST P EXT DECLRN P EXT DERR P EXT
0x17327c…173410 Dummy {f00=0x0071, f01=0x0190, f02=»OK SETPR PCANC10 PERF DERR P B A1 ( PSETPR SET DEPROMPT 6 P PERF DECLRN P " PA1 IB DEBINW2,CANC,RETUR,ENTER d P MOVE DEBINW4,W0 ERROR P B CANC10 P* $ PENTER PERF DEDISC,W20 ENTER SYSV P BNOK CANC10 PRETUR RE
0x173410…1735a4 Dummy {f00=0x0071, f01=0x0190, f02=»ENTS' | FNL P FCOPY MODTAB(W5) FCOPY =C'01' 4 P FKI 7,MINL=0,MAXL=17,ALPHA J P FCOPY SYSV(W1) n P FNL P FCOPY MODTAB(W5) FCOPY =C'02' P FKI 7,MINL=0,MAXL=17,ALPHA P FCOPY SYSV(W2) FNL
0x1735a4…173738 Dummy {f00=0x0071, f01=0x0190, f02=»W5) FCOPY =C'04' P FKI 7,MINL=0,MAXL=17,ALPHA " P FCOPY SYSV(W4) F FNL ^ P FCOPY MODTAB(W5) j FCOPY =C'05' P FKI 7,MINL=0,MAXL=17,ALPHA P FCOPY SYSV(W5) FNL P FCOPY MODTAB(W5) FCOPY =C'06
0x173738…1738cc Dummy {f00=0x0071, f01=0x0190, f02=»,MINL=0,MAXL=17,ALPHA P FCOPY SYSV(W7) FNL 6 P FCOPY MODTAB(W5) B FCOPY =C'08' P FKI 7,MINL=0,MAXL=17,ALPHA r P FCOPY SYSV(W8) FNL P FCOPY MODTAB(W5) FCOPY =C'09' P FKI 7,MINL=0,MAXL=17,ALPHA
0x1738cc…173a60 Dummy {f00=0x0071, f01=0x4068, f02=»V(W10) P FNL P FKI 1,MINL=0,MAXL=0 P FCOPY HEX00 6 FMEND J END X@ d' P FKI 7,MINL=0,MAXL=17,ALPHA r P FCOPY SYSV(W8) FNL P FCOPY MODTAB(W5) FCOPY =C'09' P FKI 7,MINL=0,MAXL=17,ALPHA
0x173a60…173bf4 (1, 235) Dummy {f00=0x0071, f01=0x2008, f02=» END @ FCOPY =C'15' FKI 7,MINL=0,MAXL=20,ALPHA . FCOPY WTAB(15) R FNL j FCOPY STR1A v FCOPY =C'16' FKI 7,MINL=0,MAXL=20,ALPHA FCOPY WTAB(16) FMEND F131 FRMTR1A FSLPY =C'
0x173bf4…173d88 Dummy {f00=0x0071, f01=0x0190, f02=»OVV V "!H '0 **P I * & %!@ A W I " W %!T A @ 0 * & *,T H $!A W I $!T @ " N * & ; , , g40 #g !!4 { 0' {$* | * & Y 0& x*({ ' ( $ g4@ !" #g4 * & w x* !u uv_ 0 j x! ! 7 * &
0x173d88…173f1c Dummy {f00=0x0071, f01=0x0190, f02=» 'jy " xy x u$x Jj " $( * & xw u 1 /_ /Z j . * & + " &( * 1Z)_5 x* wx x 'j * & I y " g4 #gYuP W j ! x0 * & g , + & # #4_ !g3 #4W * & l x !? I W!g3Sj " $(wx
0x173f1c…1740b0 Dummy {f00=0x0071, f01=0x0190, f02=» x* W p * & Y uj " "( _ j " &( * % * & 1W 0 : j " & *1 1 W < * & 9 u ! u ! u ! 1 : jx " & j * & W 1 w*j " w wx wx * & u j &"w xw? w w !( % _ ' * & xw g4 # (
0x1740b0…174244 Dummy {f00=0x0071, f01=0x0190, f02=»*W + 4 ! ~ * & Hl " * W 2? Il * * & ) (m Hl . W H ? ? Ub & J * & G $ ' )g3 *W ( W x * & e *PE - { ) ? 1 0 ! 0) * & ({ ' x( ' ' wj " jy " * &
0x174244…1743d8 Dummy {f00=0x0071, f01=0x0190, f02=» g3 j x) w < ? < ? !j &m * & &j "y ( + ? A ? < 0 @vP * * & 7 C 8 ? ' ( % 2 ! C 8 0 @v< X * & U "!_y # "= g " &| & * & s z )? ? ' xj " ( y !!4 2 4 ' * &
0x1743d8…17456c Dummy {f00=0x0071, f01=0x412a, f02=» + z w q l E [ * * & ' 8 > ! & H * & E FETCHING FORMAT: FROM D v * & c ISC. @ U 0 0 * n < D
0x17456c…174700 Dummy {f00=0x0071, f01=0x4014, f02=» HNOD @ q l E [ DEREC2 , * & ' 8 n ! & > * & E FETCHING FORMAT: FROM D l * & c ISC. @ U 0 0 * n < D D
0x174700…174894 (1, 236) Opaque[0x194]
0x174894…174a28 # DirEnt {nam=»DEACCU«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0e30, f03=0x0000}
0x174894…174a28 IdxSect {
0x174894…174a28 f00 = 0x0071 // 0x174894 @0x0
0x174894…174a28 f01 = 0x0008 // 0x174896 @0x2
0x174894…174a28 gno = [ // 0x174898 @0x4
0x174894…174a28 [0x00]: C0x0071.0x2.0
0x174894…174a28 [0x01]: C0x0071.0x3.0
0x174894…174a28 [0x02]: C0x0072.0x0.0
0x174894…174a28 [0x03]: C0x0072.0x1.0
0x174894…174a28 ]
0x174894…174a28 }
0x174a28…174bbc Dummy {f00=0x0071, f01=0x0190, f02=» $ P IDENT DEACCU REL 10.0 80-04-11 P UPD 80-10-28/DALI , P UPD 80-03-05/DALI J * h L L************************************************************************ r * : 6* SUBMODULE TO THE DATA-ENTRY PACKAGE FOR PTS6800
0x174bbc…174d50 Dummy {f00=0x0071, f01=0x0190, f02=» * THE FORMAT. * < 7* AT DELETION OF A RECORD THIS MODULE REVERSES THE ( . )* ACCUMULATIONS DONE BY THAT RECORD. h * 6 P* THE MODULE IS ENTERED WHITH THE STATEMENT: P* $ P* * PERF DEACC,OPTION *
0x174d50…174ee4 Dummy {f00=0x0071, f01=0x0190, f02=»C v " P* - 1 = REVERSED ACC 0 P* -2 = CORRECTION,IGNORE ZEROIZING 0 L L************************************************************************ d * DDUM DEDDIV PDIV * * ***** ENTRIES
0x174ee4…175078 Dummy {f00=0x0071, f01=0x0190, f02=»OUT P EXT EMPTYT P EXT GETFWD P EXT ADJUST 4 P EXT CMPIND COMPARE INDEX H ( P EXT DEFIND FIELD ADRESS ROUTINE j P EXT DENVAL P INCLUDE DELITT EJECT * L L**********************************************
0x175078…17520c Dummy {f00=0x0071, f01=0x0190, f02=»********************************** j * * PDEACC PROC OPTION 4 A000 N P CLEAR BOOL9 Z * & MOVE BCD2A,='0' CLEAR ERROR-INDICATOR n , P MOVE DEBINW3,W0 CLEAR CURRENT-FIELD-NR ( P TBF DBOACC,A900 NO ACC IN FORMAT ? " P SET BOOL1 INDIC
0x17520c…1753a0 Dummy {f00=0x0071, f01=0x0190, f02=»H ACC-FIELD ***** * A100 $ . P ADD DEBINW3,W1 INCREASE CURRENT-FIELD-NR 0 < P CALL GETFWD,DEBINW4,3,DEBINW3,BIN11 GET NEXT ACC-FIELD b P CALL ADJUST,DEBINW4 BERR A900 END OF FORMAT ? " P ..."CURRENT-FIELD" CURRENT *
0x1753a0…175534 (1, 237) Dummy {f00=0x0071, f01=0x018e, f02=»TRING NOT FOUND ? P TBF BOOL9,A210 ( P CALL GETFWD,DEBINW4,0,DEBINW3,BIN7 2 P CALL ADJUST,DEBINW4 ^ P CLEAR BOOL9 z PA210 P CALL EMPTYT,:FMTITEM P BNZ A800 IF EMPTY FIELD * * $ ***** EXECUTE ACC-STRING *
0x175534…1756c8 Dummy {f00=0x0071, f01=0x0190, f02=» > P CALL GETFWD,DEBINW4,0,BIN1,BIN7 MAKE DUPPL-FIELD CURRENT P CALL ADJUST,DEBINW4 J P BOK A200 'DUPL-FIELD' FOUND f EJECT * * ***** SET ERROR-CODE ***** * A800 " PERF SETERR,W2 ERROR-CODE = 2
0x1756c8…17585c Dummy {f00=0x0071, f01=0x0190, f02=»ET CONDITION-CODE ~ P* RET $ EJECT 0 * > L L************************************************************************ H * F B* SUB-ROUTINE FOR EXAMINATION AND EXECUTION OF THE ACC-STRING * L L******************
0x17585c…1759f0 Dummy {f00=0x0071, f01=0x0190, f02=»DD BIN13,BIN12 DISPL. FOR LAST BYTE IN BIN13 P* 4 & P MOVE BIN1,W0 CLEAR DUPL-FIELD-NR > P EJECT h P* v P* " P*****GET ACCUMULATOR-NR ***** P* PB100 " P ADD BIN12,W1 INCREASE DISPL. * P CBG BIN12,BIN13,A250 END OF
0x1759f0…175b84 Dummy {f00=0x0071, f01=0x018e, f02=»,BIN7,W3,BPOOL(BIN11),BIN12,W1 NEXT BYTE... ( P BNOK B120 ...NOT D OR A ? 4 P IB BIN7,B105,B105 ` P EJECT z P* & P* HANDLE CONDITIONAL ACCUMULATION P* ( P MOVE DEBINW1,W0 SET INPUTLENGT = 0 ( P SUB BIN13,BIN12 PUT D
0x175b84…175d18 Dummy {f00=0x0071, f01=0x0190, f02=» P CLEAR DOOLB ERROR-FLAG P BNZ B120 ERROR IN FORMAT $ " P GET THE ACCUMULATION STRING F * P XCOPY BIN12,W1,W1,BIN3,W1 STARTPOINT l . P MOVE BIN3,W0 GET THE LENGTH OF ACC.STRING ( P XCOPY BIN3,W1,W1,BPOOL(BIN11),BIN12 P MOVE BIN13,=X'3
0x175d18…175eac Dummy {f00=0x0071, f01=0x0190, f02=»DD BIN12,W1 INCREASE DISPL. P PERF DEFIND,BIN6,DEBINW4 $ ( P CBL BIN6,W1,B120 ACC-/DUPL-NR < 1 ? F " P CBE BIN7,W1,B140 DUPL-FIELD ? r P* P CBNE BIN7,W2,B120 NOT ACC ? P CALL CMPIND,BIN6,ACK(W1) P BNOK B120 OUT OF RANGE P
0x175eac…176040 Dummy {f00=0x0071, f01=0x0190, f02=» j P EJECT P* P* P***** EXAMINE ***** * P* H PB110 R " P ADD BIN12,W1 INCREASE DISPL. ^ * P CBG BIN12,BIN13,B190 END OF STRING ? P MOVE BIN7,W7 @ P MATCH VALSTR,BIN7,W18,BPOOL(BIN11),BIN12,W1 NEXT BYTE = ?
0x176040…1761d4 (1, 238) Dummy {f00=0x0072, f01=0x018e, f02=» B200,B120,B120,B120 "F,T,C,E" C & P B175,B170,B120,B120 "+,-,*,:" C * & P B190,B120,B120,B120 ";,&,V,?" C T P B120,B180 "',Z" ~ * * ( #***** FORMAT-ERROR DETECTED ***** * PB120 & " PERF SETERR,W2 SET ERROR-
0x1761d4…176368 Dummy {f00=0x0072, f01=0x0190, f02=» j P B A250 P EJECT P* & P* 0 P***** ABSOLUTE-VALUE ***** : P* ^ PB160 h & P SET BOOL6 INDICATE ABSOLUTE-VALUE t P B B110 P* P* P***** MINUS-SIGN ***** P* PB170 " P SET BOOL2 INDIC
0x176368…1764fc Dummy {f00=0x0072, f01=0x0190, f02=»* ZEROISE ***** P* PB180 $ $ P CBG OPTION,W0,B390 JUMP IF CORR 0 , P MOVE ACK(BIN6),='0' ZEROISE ACCUMULATOR X P B B390 P* P* P***** DEFAULT ***** P* PB190 $ P SET BOOL8 INDICATE DEFAULT USED P
0x1764fc…176690 Dummy {f00=0x0072, f01=0x0190, f02=» r P PERF DEFIND,BIN7,DEBINW4 * P CBNE BIN7,W0,B220 JUMP IF NOT CURRENT * PB210 X $ P MOVE BIN7,DEBINW3 CURRENT FIELD d PB220 2 P CON X.MOVE,STR64A,X.PSEU1,X.PSEU2,X.WB10,BIN7 P MOVE BCDI21(W1),STR64A P B B300 P* P
0x176690…176824 Dummy {f00=0x0072, f01=0x0190, f02=» BIN7,W64,B120 NO LITTERAL ? P MOVE BIN9,=X'3F' REMOVE... $ $ P CALL MSKOUT,BIN9,BIN7 ...FLAGGS H P MOVE DEINPUT,HEX00 p " P ADD BIN12,W1 INCREASE DISPL. : P COPY DEINPUT,W0,BIN9,BPOOL(BIN11),BIN12 GET LITTERAL . P MOVE BCDI21(W1),DEINPUT
0x176824…1769b8 Dummy {f00=0x0072, f01=0x018e, f02=»*** EXECUTE ACCUMULATION ***** P* ( PB300 2 ( P TBF BOOL6,B310 NO ABSOLUTE-VALUE ? > 6 P COPY BCDI21(W1),W0,W1,D1,W0 PLUS-SIGN TO WORKITEM j PB310 P TBT BOOL2,B330 MINUS-SIGN ? " P TBT BOOL1,B340 REVERSED ACC ? PB320 0 P A
0x1769b8…176b4c Dummy {f00=0x0072, f01=0x0190, f02=» 8 P SUB ACK(BIN6),BCDI21(W1) SUBTRACT FROM ACCUMULATOR P* @ PB350 J P BOFL B360 V P B B380 h PB360 x & P PERF SETERR,W3 SET ERROR-CODE = 3 P* PB380 " P TBT BOOL8,B395 DEFAULT USED ? PB390 " P ADD BIN12,W1 INCR
0x176b4c…176ce0 Dummy {f00=0x0072, f01=0x0190, f02=»1),BIN12,W1 NEXT BYTE... p P BNOK B120 $ PB395 6 P B B100 B * R PEND EJECT j * x L M************************************************************************ * 2 -* SUB-ROUTINE FOR SETTING THE ERROR-COD
0x176ce0…176e74 (1, 239) Dummy {f00=0x0072, f01=0x415c, f02=»X000 IB ERRIND,X100,X200,X300 * . X100 8 " P MOVE BCD2A,D1 UNDEFINED ERROR D B X900 j * z X200 " MOVE BCD2A,='-1' FORMAT-ERROR B X900 * X300 MOVE BCD2A,='9' OVERFLOW *
0x176e74…177008 Dummy {f00=0x0072, f01=0x2008, f02=» * X300 MOVE BCD2A,='9' OVERFLOW & * H * R X900 RET h * t PEND ~ * END @ ****** d * SETERR PROC ERRIND X000 IB ERRIND,X100,X200,X300 B
0x177008…17719c Dummy {f00=0x0072, f01=0x0058, f02=» SCR $TRA S=DENVAL $TRA S=DENT02 & SCR < ASG /E0,TY10 H 4 F B T F d@ F v
0x17719c…177330 Dummy {f00=0x0072, f01=0x2008, f02=» $TRA S=DENVAL $TRA S=DENT02 & SCR < ASG /E0,TY10 H 4 F B T F d@ F v
0x177330…1774c4 Dummy {f00=0x0072, f01=0x4014, f02=» HNOD @ OM DISC. @ U * & , * & " ) 2 <0 G Z * & = 0 H & * & [ 5 E U g * y } @
0x1774c4…177658 Dummy {f00=0x0072, f01=0x0190, f02=» IDENT P:S020 * & !1( P Q /U80 88 R*j " * & - !! oU 10 !jo! 2j P * & K o " 1( W % 0 "1( H 0&W 1( ~ * & i !0' ! 6 W"0 0 * & $( # _.0 ! _y $5 !( * * &
0x177658…1777ec Dummy {f00=0x0072, f01=0x0190, f02=» 3 8 ? +1 BATCH IN U ~ * & SESYMBOLICVALUE-SETXXXXTTT9TTT * & ' T9XXXXX- o 5 * : k 5 J * & E 7 : 5 " : 5 NOT * TI x * & c ME-OUT CDV-ERROR NOT FOUND * & I/O-ERROR DATE ERROR FO * &
0x1777ec…177980 Dummy {f00=0x0072, f01=0x0190, f02=» FOUND UNDEFINED ERROR TEST * & ENTERED BATCH RECOVERY RUNNI * * & 5 NG. DISC NOT OPERABLE 4 : l X * & S IN : k 5 DISC I/O-ERRO * & q R : ILLEGAL FORMAT NAME * & PRESS ENT TO CONFIRM NO WORK
0x177980…177b14 (1, 240) Opaque[0x194]
0x177b14…177ca8 # DirEnt {nam=»DE60ST«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0e50, f03=0x0000}
0x177b14…177ca8 IdxSect {
0x177b14…177ca8 f00 = 0x0072 // 0x177b14 @0x0
0x177b14…177ca8 f01 = 0x0006 // 0x177b16 @0x2
0x177b14…177ca8 gno = [ // 0x177b18 @0x4
0x177b14…177ca8 [0x00]: C0x0072.0x2.0
0x177b14…177ca8 [0x01]: C0x0072.0x3.0
0x177b14…177ca8 [0x02]: C0x0073.0x0.0
0x177b14…177ca8 ]
0x177b14…177ca8 }
0x177ca8…177e3c Dummy {f00=0x0072, f01=0x0190, f02=» $ P IDENT DE60ST REL 10.0 80-04-11 P 79-07-30/DALI , DDUM DEDDIV D PDIV X P ENTRY DE60ST f * | * ** EXTERNAL REFERENCES TO SCREEN * P EXT DECLRA P EXT DERR P EXT DECLRN P EXT DECLRS
0x177e3c…177fd0 Dummy {f00=0x0072, f01=0x0190, f02=» DEPMSK P* 8 P* EXTERNAL REFERENCES TO APPLICATION ROUTINE P* V P EXT DEAOK0 ` P EXT DEANOK t P INCLUDE DELITT P EJECT 2 P********************************************* . P* START OF VERIFYING. HANDLE PRORAMS
0x177fd0…178164 Dummy {f00=0x0072, f01=0x0190, f02=»***************** t PDE60ST PROC P CLEAR BOOL2 . P CBNE BIN2,W0,DEEN10 B PDEST00 ^ & P SET BOOL1 PART OF FORMAT DISPLAY l PDEST10 P TBT BOOL2,DEST20 P ATTFMT F60ST P B DEST30 PDEST20 P ATTFMT F61ST
0x178164…1782f8 Dummy {f00=0x0072, f01=0x0190, f02=»BINW2,DE60CA,DE60RE,DE60EN P MOVE DEBINW4,W0 " PDE60ER : P CLEAR VERIFM H P CLEAR KEYVER ^ P PERF DERR t P B DEST60 P EJECT P* P* CANCEL-KEY PRESSED P* PDE60CA P CLEAR DEPROMPT P B DEST50
0x1782f8…17848c Dummy {f00=0x0072, f01=0x0190, f02=»,W6,DERE30 ( P IB BIN2,DEEN20,DEEN50,DEEN30,DEEN60 P B DEST00 > PDEEN20 P P SET KEYVER ^ P B DEEN50 r PDEEN30 P SET KEYVER PDEEN60 P SET DOOL7 PDEEN50 P SET BOOL2 P CLEAR BOOL1 P B DEST20
0x17848c…178620 Dummy {f00=0x0072, f01=0x018e, f02=» BNERR DERE20 P MOVE DEBINW1,W0 P PERF DERROR,DEKTAB6 . P CLEAR DOOL5 J P BZ DERE60 ^ P ATTFMT F61ST p & P SET DEPROMPT PROMPT-TEXTS DISPLAY P CLEAR DECHANGE P PERF DECLRN P B DEST60 PDERE20 P CLEAR DOOL5
0x178620…1787b4 (1, 241) Dummy {f00=0x0072, f01=0x0190, f02=» P CLEAR BOOL2 P CLEAR BOOL1 PDERE60 , P CLEAR VERIFM VERIFY-MODE : P TBT BOOL2,DEEN10 P CLEAR DOOL7 v P CLEAR DOOL4 P CLEAR KEYVER P B DEST10 P EJECT * P************************************** * P* THIS
0x1787b4…178948 Dummy {f00=0x0072, f01=0x0190, f02=»1 P SET VERIFM VERIFY-MODE P MOVE DEBINW2,W0 * POPEN2 B P PERF DEOPBC,DEBINW2 P ( P IB DEBINW2,OPEN3,OPEN3,DE60RE,OPEN4 l POPEN3 P PERF DENT01 P B OPEN2 POPEN4 P GETABX DEBINW3 P ATTFMT F61ST P G
0x178948…178adc Dummy {f00=0x0072, f01=0x0190, f02=» FSL P FTEXT '60 ' P FLINK F60VER $ FNL : P FCOPY =C'PROGRAM:' F ( P FKI 9,MINL=2,MAXL=2,ME,NEOI,APPL=1 b P FMEL 'XX',PRNUM P FBF BOOL1,F60OUT FNL P FTEXT '61 ' P FLINK F60VER P FCOPY =C'KEY'
0x178adc…178c70 Dummy {f00=0x0072, f01=0x0190, f02=» FCOPY =C'KEY' P FILLR '/',1 P FCOPY =C'TEST' * P FNL B P FTEXT '64 ' N P FLINK F60VER b P FCOPY =C'SIGHT' x P FILLR '/',1 P FCOPY =C'TEST' PF60OUT FMEND PF61ST FRMT FSL PF61ST1 FMEL 'XX',P
0x178c70…178e04 Dummy {f00=0x0072, f01=0x0190, f02=»PY =C'KEY' PF61ST3 P FBF DOOL7,F61ST4 P FILLR '/',1 : P FCOPY =C'TEST' N PF61ST4 f FNL t P FLINK F60UV P FNL P FLINK F60JOB P FTAB 20 P FLINK F60BAT P FNL P FLINK F60END P FMEND
0x178e04…178f98 Dummy {f00=0x0072, f01=0x0190, f02=»MT P FCOPY =C'UNIT' P FTEXT ':U' " ( P FKI 7,MINL=1,MAXL=1,NEOI,ME,APPL=2 6 P FMEL 'X',USERFILE b P FTAB 20 | P FCOPY =C'VOLUME' P FILLR ':',1 P FINP 27 P FCOPY TABLE P FMEND PF60JOB FRMT P FCOPY =
0x178f98…17912c Dummy {f00=0x0072, f01=0x416a, f02=»ME P FMEND PF60BAT FRMT P FCOPY =C'BATCH' , P FCOPY =C'NAME' D P FILLR ':',1 > P FKI 30,ALPHA,MINL=1,MAXL=6,ME,NEOI,APPL=4,DUPL=STSAVE(W2) p P FCOPY BATCH FMEND PF60END FRMT P FKI 1 P FCOPY HEX00
0x17912c…1792c0 Dummy {f00=0x0072, f01=0x2008, f02=» F60BAT FRMT P FCOPY =C'BATCH' P FCOPY =C'NAME' 4 P FILLR ':',1 L > P FKI 30,ALPHA,MINL=1,MAXL=6,ME,NEOI,APPL=4,DUPL=STSAVE(W2) ` P FCOPY BATCH FMEND PF60END FRMT P FKI 1 P FCOPY HEX00 P FMEND P
0x1792c0…179454 (1, 242) Dummy {f00=0x0073, f01=0x2008, f02=»
0x179454…1795e8 Dummy {f00=0x0073, f01=0x0190, f02=» P MOVE BIN2,=W'495' FLOPPY P CBG FCOD,=X'F7',F31 & " P MOVE BIN2,=W'6400' CARTRIDGE B PF31 h $ P* CALCULATE NO. OF FREE SECTORS t P MOVE BIN3,=X'D0' P CALL CHANFC,DISK,BIN3 P DSC0 DISK,CLOSE ( P ASSIGN DISK,0,RETCOD,SYSFIL
0x1795e8…17977c Dummy {f00=0x0073, f01=0x018e, f02=» IF OTHER VOLUME PF32 P MOVE RECNUM,W1 $ " P RREAD DISK,RBUF,SYSLEN,RECNUM < P BERR DISKERR b $ P* NO. OF RECORDS IN SYSTEMFILE x P XCOPY CREREC,W0,W2,RBUF,W1 P DIV CREREC,W2 P SUB BIN2,CREREC PF33 P ATTFMT FU
0x17977c…179910 Dummy {f00=0x0073, f01=0x0190, f02=» PF40 ( P CBE PRNUM,=D'4',F45 IF COPY SYSFIL & P CBE FTYPE,=D'1',F45 IF SYSTEMFILE @ P MOVE FILNAM,DCFILE j P B F50 PF45 P MOVE FILNAM,SYSFIL P MOVE VOLNAM,SYSVOL P CBNE PRNUM,=D'4',F50 & P MOVE VOLNAM,OUTPU
0x179910…179aa4 Dummy {f00=0x0073, f01=0x0190, f02=»************ P ERASE 0,W1,W4 P MOVE STR1A,=C'S' * * P XCOPY PBLOCK,W6,W1,STR1A,W0 F.ORG='S' D , P XCOPY PBLOCK,W8,W8,FILNAM,W0 FILE-NAME r . P XCOPY PBLOCK,W16,W6,VOLNAM,W0 VOL-NAME 1 P MOVE BIN1,=W'49' " P XCOPY PBLOCK,BIN1,W1,W1,W
0x179aa4…179c38 Dummy {f00=0x0073, f01=0x0190, f02=»PY PBLOCK,BIN1,W1,W2,W1 BF 2 P XCOPY PBLOCK,BIN2,W2,SYSLEN,W0 RECORD LENGTH " & P CBE FTYPE,=D'1',F53 IF SYSTEMFILE X , P XCOPY PBLOCK,BIN1,W1,W3,W1 DCFILE-BF=3 6 P XCOPY PBLOCK,BIN2,W2,W128,W0 RECORD LENGTH = 128 PF53 P MOVE BIN1,=W'56
0x179c38…179dcc Dummy {f00=0x0073, f01=0x0190, f02=»,W0 NIF x P MOVE BIN1,=W'52' " P XCOPY PBLOCK,BIN1,W2,W0,W0 KA * * P CALL CREFIL,PBLOCK,SBUF,SYSBUF,RETCOD P P CMP RETCOD,W3 ~ P BE DERR10 P CMP RETCOD,W7 P BE DERR7 P CMP RETCOD,W0 P BNE DISKERR P MOVE BIN1,=X'D0
0x179dcc…179f60 Dummy {f00=0x0073, f01=0x018e, f02=»NAM p P BNOK DISKERR P PERF REC2 " P PERF REC1 4 P CMP PRNUM,=D'4' F P BE C43 IF COPY SYSFIL ^ P DSC0 DISK,CLOSE | PRETUR P B DEINIT P EJECT PREC1 PROC P********************** P* WRITE 1:ST RECORD
0x179f60…17a0f4 (1, 243) Opaque[0x194]
0x17a0f4…17a288 # DirEnt {nam=»DE80ST«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0e68, f03=0x0000}
0x17a0f4…17a288 IdxSect {
0x17a0f4…17a288 f00 = 0x0073 // 0x17a0f4 @0x0
0x17a0f4…17a288 f01 = 0x0004 // 0x17a0f6 @0x2
0x17a0f4…17a288 gno = [ // 0x17a0f8 @0x4
0x17a0f4…17a288 [0x00]: C0x0073.0x1.0
0x17a0f4…17a288 [0x01]: C0x0073.0x2.0
0x17a0f4…17a288 ]
0x17a0f4…17a288 }
0x17a288…17a41c Dummy {f00=0x0073, f01=0x0190, f02=» ( P IDENT DE80ST REL 1.0 79-08-14/DALI DDUM DEDDIV 0 PDIV D P ENTRY DE80ST R P ENTRY DEAP8A h * ~ * ** EXTERNAL REFERENCES TO SCREEN * P EXT DECLRA P EXT DECLRN P EXT DERR P EXT DERROR
0x17a41c…17a5b0 Dummy {f00=0x0073, f01=0x0190, f02=»VERTING h P EXT DECONV PWEOF EQU 3 CLOSE FILE $ EJECT B PDE80ST PROC P PDEST d PDEST80 p P ATTFMT F80ST ~ PDEST72 & P SET DEPROMPT PROMPT-TEXTS DISPLAY STA050 P CLEAR DECHANGE P PERF DECLRA ST
0x17a5b0…17a744 Dummy {f00=0x0073, f01=0x0190, f02=» ERROR P MOVE DEBINW4,W0 ERR2 . P PERF DERR : B STA100 L * ^ PDE80RE h P MOVE BIN1,W0 v P MOVE BIN2,W1 P RET PDE80EN P MOVE DEBINW3,BCD13A $ P PERF DECONV,W2,DEBINW3,DEBINW4 P CBE DEB
0x17a744…17a8d8 Dummy {f00=0x0073, f01=0x0190, f02=» P MOVE BCD2A,DEINPUT P MOVE DEBINW3,BCD2A $ P IB DEBINW3,DEAOK0,DEAOK0,DEAOK0 < PTYPE81 d " P MOVE DEBINW4,W6 ILLEGAL VALUE r P B DEANOK PREST80 P MOVE STR1A,DEINPUT P CBE STR1A,=C'Y',REST81 P CBNE STR1A,=C'N',TY
0x17a8d8…17aa6c Dummy {f00=0x0073, f01=0x0190, f02=»XT '80 ' P FCOPY =C'RECEIVE MODE' P FNL 0 P FCOPY =C'UNIT' < P FTEXT ':U' T ( P FKI 7,MINL=1,MAXL=1,NEOI,ME,APPL=2 h P FMEL 'X',USERFILE P FTAB 20 P FCOPY =C'VOLUME' P FILLR ':',1 P FINP 27 P FCOPY TABLE
0x17aa6c…17ac00 Dummy {f00=0x0073, f01=0x4164, f02=»INE TO PRINTER' P FNL P FTEXT '2= LINE TO DISK' $ P FNL D P FTEXT '3= DISK TO PRINTER' P P FNL t P FTEXT 'RESTART(Y/N):' * P FKI 15,ALPHA,MAXL=1,ME,NEOI,APPL=102 P FCOPY STR1A P FNL P FLINK F80END P FMEND
0x17ac00…17ad94 (1, 244) Dummy {f00=0x0073, f01=0x2008, f02=»
0x17ad94…17af28 Dummy {f00=0x0073, f01=0x0190, f02=» Z < P* OF THE VARIABLE FIELDS BEFORE HANDLING THE PICTURE P* H PDECLRD PROC R P* f P PERF DENTER,W4 p P RET P PEND P* P* ERROR PRINTOUT P* PDERR PROC P MOVE DEBINW1,W0 P PERF DENTER
0x17af28…17b0bc Dummy {f00=0x0073, f01=0x0190, f02=»VARIABLE v " P TO ALLOW INSTR.S CMP AND IB $ P CMP DEBINW2,W0 "DEERR" ENTRY ? 6 P BE ERRPRINT YES ! ^ P x . P TBT DEPROMPT,ENTIRE JUMP IF ENTIRE FORMAT P SHOULD BE DIDELAYED P* P* ONLY VARIABLE FIELDS P* P I
0x17b0bc…17b250 Dummy {f00=0x0073, f01=0x0190, f02=»SE ALL FROM 1 AND UP ~ P B CONT P* , PCLEARS 6 , P ERASE 5,W1,W0 ERASE SOME FROM 1 AND UP D P B CONT t PCLEARD P TBT VERIFM,VERIF * P DISPLAY 3,W1,W0 DISPLAY FROM 1 AND UP P B CONT PVERIF P TBF KEYVER,SIGH
0x17b250…17b3e4 Dummy {f00=0x0073, f01=0x018e, f02=» DISPLAY ENTIRE FORMAT P* PENTIRE ( P CLEAR DEPROMPT 6 P IB DEBINW2 JUMP C N P ECLRA ON C h P ECLRS ROUTINE C | P ECLRN INDEX C P ECLRN P* P* CLEAR ALL VARIABLES P* PECLRA * P ERASE 3
0x17b3e4…17b578 Dummy {f00=0x0073, f01=0x0190, f02=» PECLRS * P ERASE 6,W1,W0 CLEAR SOME FIELDS FROM P 1 AND UP IN MEMORY @ P* ^ & P* CLEAR NO VARIABLES IN MEMORY h P* PECLRN P TBT VERIFM,EVERIF ( P DISPLAY 0,W1,W0 DISPLAY ENTIRE FORM P B CONT PEVERIF
0x17b578…17b70c Dummy {f00=0x0073, f01=0x0190, f02=» P* PCONT P MOVE DEBINW2,W8 HOME-KEY & P GETABX DEBINW4 GET CURRENT INDEX < ( P BL KTHOME JUMP IF NO CURRENT FIELD f P TBF VERIFM,CONT5 P B KTHOME PCONT5 6 P GETFLD 0,DEBINW4,DEBINW3 SEARCH CURRENT POSITION P B
0x17b70c…17b8a0 Dummy {f00=0x0073, f01=0x0190, f02=»4,DEBINW3 CHANGE INDEX P B CONT5 SEARCH AGAIN P* < PCONT6 F P TSTCTL 5 LOOK IF CTAB T P BZ SETCREAD r P TEST DOOLA " P BZ KTHOME JUMP IF NOT BALANCE P MOVE DEBINW2,W9 P B KTHOME P EJECT P* & P* S
0x17b8a0…17ba34 (1, 245) Opaque[0x194]
0x17ba34…17bbc8 # DirEnt {nam=»DELITT«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0e78, f03=0x0000}
0x17ba34…17bbc8 IdxSect {
0x17ba34…17bbc8 f00 = 0x0073 // 0x17ba34 @0x0
0x17ba34…17bbc8 f01 = 0x0004 // 0x17ba36 @0x2
0x17ba34…17bbc8 gno = [ // 0x17ba38 @0x4
0x17ba34…17bbc8 [0x00]: C0x0073.0x3.0
0x17ba34…17bbc8 [0x01]: C0x0074.0x0.0
0x17ba34…17bbc8 ]
0x17ba34…17bbc8 }
0x17bbc8…17bd5c Dummy {f00=0x0073, f01=0x0190, f02=» P* DELITT EJECT ENT EQU X'8C' ENTER * CAN EQU X'91' CANCEL F PRET EQU X'92' RETURN b PRG EQU X'94' PROGRAM ~ PTOT EQU X'93' TOTAL PSTS EQU X'96' STATUS PPRT EQU X'98' PRINT $ PKEP EQU X'8D' KEEP FIELD
0x17bd5c…17bef0 Dummy {f00=0x0073, f01=0x0190, f02=»NSERT z RDL EQU X'89' RECORD DELETE RFW EQU X'83' RECORD FORWARD 2 " RBW EQU X'81' RECORD BACKWARD V PASD EQU X'82' | EOI EQU X'80' FIELD FORWARD $ PPLS EQU X'9C' FIELD FORWARD PLUS & PMIN EQU X'9D' FIELD FORWARD MINUS P
0x17bef0…17c084 Dummy {f00=0x0073, f01=0x018e, f02=» REST OF FIELD ~ CFW EQU X'86' CURSOR FORWARD " CBW EQU X'84' CURSOR BACKWARD : PBSP EQU X'8B' BACKSPACE ` " PVAL EQU X'97' FORCE VALIDATION NOK EQU X'FF' NOKEY PX.MOVE EQU X'00' PX.COPY EQU X'62' PX.MATCH EQU X'68'
0x17c084…17c218 Dummy {f00=0x0073, f01=0x0190, f02=» PDETACH EQU X'0F' EJECT * * * KEYTABLES 4 * N & P* USAGE: DATA ENTRY SCREEN X * , PDEKTAB1 KTAB BSP,CLR,NOK,EOI,CAN,RET, C P PLS,BTB,HOM,ERS, C P KEP,NOK,NOK,STS,PRT, C . P DUP,CFW,EN
0x17c218…17c3ac Dummy {f00=0x0073, f01=0x0190, f02=»NOK,NOK,NOK, C P NOK,CBW * * ( PDEKTAB3 KTAB CFW,CBW,RIN,RDL,NOK, C 4 P CLR,SKP,EOI,CAN,RET, C ` P PLS,BTB,HOM P* PDEKTAB4 KTAB CLR,CAN,RET,CFW P* , PDEKTAB5 KTAB CLR,STS,PRT,CAN,RET,NOK, C " P RFW,RB
0x17c3ac…17c540 Dummy {f00=0x0073, f01=0x0190, f02=» PDEKTAB8 KTAB CAN,NOK,ENT * $ , PDEKTABA KTAB BSP,NOK,CLR,EOI,CAN,RET, C . P PLS,BTB,HOM,NOK, C ^ P NOK,NOK,MIN,NOK,NOK, C | P NOK,CBW * ( PDEKTABB KTAB CFW,CBW,RIN,RDL,NOK, C P CLR,SKP,EOI,CAN,RET, C P
0x17c540…17c6d4 (1, 246) Dummy {f00=0x0074, f01=0x0190, f02=»,RET,NOK,VAL,FRC C | P BTB,HOM P* . ( PDEKTABF KTAB CLR,CAN,RET,NOK,NOK,FRC 8 8 PDEKTABI KTAB CLR,CAN,RET,RBW,VAL,FRC,NOK,NOK,NOK,ASD d P* 8 PDEKTABK KTAB PLS,EOI,MIN,DUP,STS,PRT,CAN,RET,NOK, C " P RFW,RBW,COR,RDL,TOT,NOK,RIN
0x17c6d4…17c868 Dummy {f00=0x0074, f01=0x408c, f02=»KTABS KTAB CLR,CAN,RET P* , PDEKTABV KTAB NOK,STS,PRT,CAN,RET,ENT, C ( " P RFW,RBW,COR,RDL,TOT,NOK,RIN X P* ~@ ,NOK,NOK,ASD d P* 8 PDEKTABK KTAB PLS,EOI,MIN,DUP,STS,PRT,CAN,RET,NOK, C " P RFW,RBW,COR,RDL,TOT,NOK,RIN
0x17c868…17c9fc Dummy {f00=0x0074, f01=0x2008, f02=» LR,EOI,CAN,RET, C EOI,BTB,HOM,NOK, C " NOK,NOK,NOK,NOK,PRT, C @ NOK,CBW,ENT b * x ( $SPKTAB3 KTAB CFW,CBW,RIN,RDL,NOK, C CLR,KEP,EOI,CAN,RET, C EOI,BTB,HOM,NOK, C NOK,NOK,NOK,NOK,PRT, C
0x17c9fc…17cb90 Dummy {f00=0x0074, f01=0x414a, f02=» > @ IDENT T:STEV T,PRR=5.0,791206,870137140500 T:STEV F T:STEV X T:GRFC l I:EVA0 ~ * & H #0T Y Y , ( ! T # P & #0T ( I:ERR2 7
0x17cb90…17cd24 Dummy {f00=0x0074, f01=0x0190, f02=» > @ IDENT T:EDFL T,PRR=5.0,791206,870137140500 T:EDFL F T:EDFL X T:PM1 l T:PM2 | T:CASP , ( I Y ( x P Y * , ( x y W X " T:DUPX
0x17cd24…17ceb8 Dummy {f00=0x0074, f01=0x0190, f02=» , ( w V X ( x C T:SCUW 4 , ( ( Y * X Y , X F , ( X C & C C v T:IOER , ( ( B P 9 R 9 X , ( !@P X X * b ) Y *
0x17ceb8…17d04c Dummy {f00=0x0074, f01=0x0190, f02=» B U C Q C D T:CLR1 * T:CLR2 < , ( mP X X * $" ~_> @ Y N , ( X * _R X !@XX y X # ~ , ( x V y X X * P , ( P 1 _ 1 X * X
0x17d04c…17d1e0 Dummy {f00=0x0074, f01=0x4148, f02=» X n T:CLIT T:EKEY , ( C $ " P y _ x T 2 , ( a@ X H X X * , )$ b P _ : H D !T P d )Wv 9 T UP m d yV& Ph R^ PP #P =T QU [Q e r g t 4 0 i k m
0x17d1e0…17d374 (1, 247) Opaque[0x194]
0x17d374…17d508 # DirEnt {nam=»ASSRUT«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0e88, f03=0x0000}
0x17d374…17d508 IdxSect {
0x17d374…17d508 f00 = 0x0074 // 0x17d374 @0x0
0x17d374…17d508 f01 = 0x0014 // 0x17d376 @0x2
0x17d374…17d508 gno = [ // 0x17d378 @0x4
0x17d374…17d508 [0x00]: C0x0074.0x1.0
0x17d374…17d508 [0x01]: C0x0074.0x2.0
0x17d374…17d508 [0x02]: C0x0074.0x3.0
0x17d374…17d508 [0x03]: C0x0075.0x0.0
0x17d374…17d508 [0x04]: C0x0075.0x1.0
0x17d374…17d508 [0x05]: C0x0075.0x2.0
0x17d374…17d508 [0x06]: C0x0075.0x3.0
0x17d374…17d508 [0x07]: C0x0076.0x0.0
0x17d374…17d508 [0x08]: C0x0076.0x1.0
0x17d374…17d508 [0x09]: C0x0076.0x2.0
0x17d374…17d508 ]
0x17d374…17d508 }
0x17d508…17d69c Dummy {f00=0x0074, f01=0x0190, f02=» $ P IDENT ASSRUT REL 10.0 80-04-11 P 80-03-18/PEEN , P UPD 79-11-01/PEEN D P UPD 79-10-18/PEEN ` P UPD 79-10-04/PEEN | P UPD 79-09-24/DALI P UPD 79 08 14/PEEN$$ P UPD 79-04-24/PEEN P UPD 79-02-28/PEEN
0x17d69c…17d830 Dummy {f00=0x0074, f01=0x0190, f02=»AVE P ENTRY RESTOR ENTRY GETFRE " ENTRY SETFRE 8 ENTRY SETOCC N P ENTRY CHANFC d P ENTRY GETVOL z P ENTRY UPDBOL P ENTRY UPDBIN P ENTRY SETB P ENTRY TESTB P ENTRY CLEARB P ENTRY MSKOUT
0x17d830…17d9c4 Dummy {f00=0x0074, f01=0x0190, f02=» P ENTRY ATTBUF P ENTRY FORCED P ENTRY GETIND 0 P ENTRY CMPIND F P ENTRY WRITDK P ENTRY READDK r P ENTRY CLOSEF P ENTRY OPENF P ENTRY POOLA P ENTRY GETFWD P ENTRY ADJUST * EXTRN I:EVA
0x17d9c4…17db58 Dummy {f00=0x0074, f01=0x0190, f02=» * CALL FORM 16=/F6A1,16 P* 0 PFVAL EQU /C5 : PFACC EQU /C7 N PFGEN EQU /C6 b PFDUP EQU /CC v PFLINK EQU /DE PFCBIX EQU 12 PFCBNIX EQU 44 PFCBROW EQU 14 PFCBNLI EQU 46 PFCBLP EQU 4
0x17db58…17dcec Dummy {f00=0x0074, f01=0x0190, f02=»L AREA z 0 P* SYNTAX: CALL ATTWB,STRG,DISPL,BLOCK , P* STRG= STRING ITEM TO BE WORKBLOCK B 6 P* DISPL= BIN ITEM HOLDING DISPLACEMENT RELATIVE r P* 'STRG'-START 8 P* BLOCK= BIN ITEM HOLDING BLOCK NUMBER WITHIN T:A P
0x17dcec…17de80 Dummy {f00=0x0074, f01=0x0190, f02=»DRESS ~ " P CALL I:EVA0 GET DISPLACEMENT P ADR* A7,A9 4 & ! CALL I:EVA0 ADDRESS TO WB NUMBER H LDR* A1,A9 r SLL A1,2 TIMES 4 ADR A1,A13 ADDRESS TO DB ( P ADR A1,A10 GET ADDRESS TO WB OR DB PATT100 EQU * & P STR A
0x17de80…17e014 (1, 248) Dummy {f00=0x0074, f01=0x0190, f02=»TO ` P* THE TERMINAL CONTROL AREA 0 P* SYNTAX: CALL ATTDB,STRG,DISPL,BLOCK . 2 P* STRG= STRING ITEM TO BE DISCRIPTOR BLOCK b 6 P* DISPL= BIN ITEM HOLDING DISPLACEMENT RELATIVE P* 'STRG'-START 8 P* BLOCK= BIN ITEM HO
0x17e014…17e1a8 Dummy {f00=0x0074, f01=0x0190, f02=» P* P* CHANGE FILE CODE IN ECB P* CALL: 2 * P* CALL CHANFC,DATASET,FILECODE D P* r PCHANFC EQU * | " P CF A14,T:FDSP GET ECB-ADDRESS & P CF A14,I:EVA0 GET ADDRESS TO BIN. P LC A3,1,A9 GET FILE CODE & P SC A3
0x17e1a8…17e33c Dummy {f00=0x0074, f01=0x0190, f02=»NTAX: CALL SAVE,DISPL,LENGTH,STRG 6 P* DISPL= BIN ITEM HOLDING DISPLACEMENT RELATIVE * ( P* THE VERY FIRST DB:POINTER d @ P* LENGTH= BIN ITEM HOLDING THE NUMBER OF BYTES TO BE MOVED > P* STRG= STRING VARIABLE TO STORE THE SAVED POINTE
0x17e33c…17e4d0 Dummy {f00=0x0074, f01=0x0190, f02=»00 EQU * P LCR A1,A2 P SCR A1,A7 " P ADK A2,1 4 P ADK A7,1 F P SUK A6,1 X P RB(NZ) SAV200 j P RF RETUR P* 4 P* RESTORE DB/WB-POINTERS FROM A STRING VARIABLE * P* TO THE T:A (TERMINAL CONTROL AREA) 0 P* SY
0x17e4d0…17e664 Dummy {f00=0x0074, f01=0x0190, f02=»ES TO RESTORE x : P* STRG= STRING ITEM HOLDING POINTERS TO BE RESTORED P* T PRESTOR EQU * ^ P CALL GETP r P LDR A1,A2 P LDR A2,A9 CHANGE P LDR A9,A1 ADDRESSES P RB SAV100 START TO RESTORE P* ( P* GET PARAME
0x17e664…17e7f8 Dummy {f00=0x0074, f01=0x0190, f02=» LDR* A6,A9 GET LENGTH P CALL I:EVA0 P LDK A2,40 2 , P ADR A2,A13 GET ADDRESS TO DB-POINTER /A D P RTN A14 t P EJECT 0 +* GET A FREE RECORD FROM FREE-SPACE RECORD 6 2* SYNTAX: CALL GETFRE,BPOOL(IND),RPOOL(IND),NUMB < 8* OUTP
0x17e7f8…17e98c Dummy {f00=0x0074, f01=0x0190, f02=» NUMBER OF FRE RECORDS RF(Z) NOK IF NONE FREE GET100 EQU * > CWR A7,A8 R RF(E) NOK END OF RECORD d & ! LCR A4,A7 GET BITS FOR 8 RECORDS SLL A4,8 SHIFT TO RIGHTMOST , ' RF(NZ) SEARCH AT LEAST ONE RECORD FREE ADK A
0x17e98c…17eb20 Dummy {f00=0x0074, f01=0x0190, f02=»N BYTE r LDR A4,A4 SEA100 RF(N) FOUND IF FOUND ADK A5,1 INCREMENT COUNTER D SLL A4,1 h RB SEA100 z FOUND SLL A4,1 CLEAR BIT , ( ADR A6,A5 UPDATE RELATIVE RECORD NUMBER FOU100 SRL A4,1 SUK A5,1 DECREMENT
0x17eb20…17ecb4 (1, 249) Dummy {f00=0x0074, f01=0x0190, f02=»A7,18,A9 GET START RECORD NUMBER ( $ ADR A6,A7 GET CURRENT RECORD NUMBER ( LDKL A1,-1 T , ' ADRS A1,A2 DECREMENT NO. OF FREE RECS. h NOK EQU * CALL I:EVA0 & "NOK100 STR A6,A9 STORE FOUND INDEX RETUR ABL I:RT1 EJECT
0x17ecb4…17ee48 Dummy {f00=0x0074, f01=0x0190, f02=»RRENT RECORD WAS BUSY 6 1* SYNTAX: CALL SETFRE,BPOOL(IND),RPOOL(IND),NUMB @ <* NUMB = CURRENT RECORD NUMBER (=0 IF WRONG NUMBER) X * SETFRE EQU * SUR A10,A10 INDICATE SETFRE SET EQU * CALL GETPAR LDR
0x17ee48…17efdc Dummy {f00=0x0074, f01=0x0190, f02=»7,A6 ECR A1,A1 ( $ LC A1,18,A6 GET START RECORD NUMBER & " SUR A3,A1 GET RELATIVE RECORD NO. J " P CALL SEABIT SEARCH WANTED BIT t P LDR A6,A6 P RB(Z) NOK100 JUMP IF ERROR LDR A10,A10 RF(NZ) TEST0 IF SET0CC " * SE
0x17efdc…17f170 Dummy {f00=0x0074, f01=0x0190, f02=» A1,1 INDICATE INCREMENT . *TES100 ADS A1,-2,A2 IN-/DE-CREMENT COUNTER TES200 SUK A3,1 R RF(N) TES300 BYTE RESTORED j SRC A4,1 RB TES200 * &TES300 SRL A4,8 MOVE TO RIGHTMOST BYTE " SCR A4,A7 STORE UPDATED BYTE R
0x17f170…17f304 Dummy {f00=0x0074, f01=0x0190, f02=»IED r * % SUK A1,1 A1 = -1; INDICATE DECREMENT $ ANKL A4,/7FFF INDICATE OCCUPIED : RB TES100 b EJECT t 2 -* SET RECORD OCCUPIED AND DECREMENT NUMBER OF 8 3* FREE RECORDS; THIS IS ONLY DONE IF CURRENT RECORD * IS FREE 6 2*
0x17f304…17f498 Dummy {f00=0x0074, f01=0x0190, f02=» WRONG NUMBER) ~ SETOCC EQU * , LDR A10,A14 INDICATE SETOCC @ RB SET d P EJECT t P* 2 P* MOVE CONTENTS OF BIN ITEM TO CORRESPONDING P* 16 BOOLEAN ITEMS P* PUPDBOL EQU * ( P CALL I:EVA0
0x17f498…17f62c Dummy {f00=0x0074, f01=0x0190, f02=»MOVE 16 BOOLEAN ITEMS TO CORRESPONDING BIN P* 2 PUPDBIN EQU * < ( P CALL I:EVA0 GET ADDRESS TO BIN ITEM P P LD A1,-2,A9 GET BOOLEANS | P STR A1,A9 STORE IN BIN P RB RETUR P EJECT P* 0 P* SEARCH WANTED BIT IN A CHARA
0x17f62c…17f7c0 Dummy {f00=0x0074, f01=0x0190, f02=» A3,8 RF(N) SET100 ADK A7,1 $ CWR A7,A8 6 & " RB(NE) SET050 CONTINUE IN NOT EOR H * % LDK A6,0 INDICATE INCORRECT REC. NO. r P RTN A14 * PLACED IN CURRENT BYTE SET100 EQU * ADK A3,8 LCR A4,A7
0x17f7c0…17f954 (1, 250) Dummy {f00=0x0075, f01=0x0190, f02=» A1,1 RB(NZ) SET300 TEST EQU * $ P RTN A14 6 P EJECT F P* T . P* SET WANTED BIT IN A STRING OR BIN ITEM ^ & P* SYNTAX: CALL SETB,ITEM,INDEX P* PSETB EQU * P SUR A10,A10 INDICATE 'SET' PSETB10 EQU *
0x17f954…17fae8 Dummy {f00=0x0075, f01=0x0190, f02=» TO INDEX x P LDR* A3,A9 GET INDEX " P CALL SEABIT SEARCH WANTED BIT 0 P LDR A10,A10 V P RF(N) SETB30 IF TEST BIT j P RF(Z) SETB20 JUMP IF SETBIT P* CLEAR BIT P ANKL A4,/7FFF CLEAR BIT P RB TES200 RESTORE BYTE P* SE
0x17fae8…17fc7c Dummy {f00=0x0075, f01=0x0190, f02=»ALSE | P LDR A4,A4 TEST BIT P RF(NN) SETB40 IF FALSE ( P LDK A1,1 INDICATE TRUE H PSETB40 EQU * h P LD A4,2,A13 GET STACK BASE | " P SC A1,-2,A4 STORE CR ON STACK P RF RET P* * P* CLEAR BIT IN STRING OR BIN VARIABLE
0x17fc7c…17fe10 Dummy {f00=0x0075, f01=0x0190, f02=»NUE P* * P* TEST BIT IN STRING OR BIN VARIABLE ( P* SYNTAX: CALL TESTB,ITEM,INDEX D & P* OUTPUT: CR = 0 (BIT IS FALSE) p & P* CR = 1 (BIT IS TRUE) P* PTESTB EQU * $ P LDKL A10,-1 INDICATE 'TEST BIT'
0x17fe10…17ffa4 Dummy {f00=0x0075, f01=0x0190, f02=»OD b ( P* RETCOD = 0 IF OK, ELSE 1 P* 6 PGETVOL EQU * @ ( P CALL T:FDSP GET DSET ADDRESS TO A8 T * P CALL I:EVA0 GET BUFFER ADDRESS TO A9 ( P ADKL A9,1 MAKE BUFFER ADDRESS EVEN P ANKL A9,/FFFE , P ST A9,2,A8 STORE BUFFER
0x17ffa4…180138 Dummy {f00=0x0075, f01=0x0190, f02=»DDRESS TO VOLNAM ~ P LDK A7,/80 LOAD ORDER CODE , P* A7 ORDER CODE FOR TEST STATUS < P* A8 DSET ADDRESS l P LKM P DATA 1 P LD A1,8,A8 LOAD RETURN CODE P RF(NZ) ERROR : P* STORE THE VOLUME NAME (OUTPUT
0x180138…1802cc Dummy {f00=0x0075, f01=0x0190, f02=»NAME p PLOOP EQU * P LCR A3,A1 P SCR A3,A9 0 P ADK A1,1 B P ADKL A9,1 T P SUK A2,1 f P RB(P) LOOP x PUT EQU * P LDK A6,0 PVIN CF A14,I:EVA0 P STR A6,A9 STORE RETURN-CODE PRET ABL I:RT1 PERROR
0x1802cc…180460 Dummy {f00=0x0075, f01=0x0190, f02=» CALL I:EVA0 ADDRESS TO RPOOL LC A8,15,A9 & ECR A8,A8 : $ LC A8,16,A9 GET OCCUPIED BYTES L ADR A8,A7 GET END ADDRESS t P SUKL A8,10 " LDR A2,A7 SAVE START ADDRESS $ ADK A7,2 ADDRESS TO FIRST BITS LDK A6,0
0x180460…1805f4 (1, 251) Dummy {f00=0x0075, f01=0x0190, f02=»S h : P* SYNTAX: CALL RCNTRL,BUFF,DISPL,BOOLBIN,MINL,MAXL 6 P* BUFF+DISPL= START ADDRESS IN STRING ITEM H > P* BOOLBIN= FIRST BIN IN SAME WB AS CURRENT BOOLS , P* MINL= BIN FOR MIN LENGTH , P* MAXL=
0x1805f4…180788 Dummy {f00=0x0075, f01=0x0190, f02=»S p P LDR A8,A9 & P CALL I:EVA0 DISPLACEMENT ADDRESS " P ADR* A8,A9 GET START POINTER F P CALL I:EVA0 l P LDR A7,A9 " P SUK A7,2 ADDRESS TO BOOLEANS P CALL I:EVA0 MINL ADDRESS P LDR A6,A9 P CALL I:EVA0 MAXL ADDRESS
0x180788…18091c Dummy {f00=0x0075, f01=0x0190, f02=»E IN BUFFER " P SRL A1,8 SHIFT OUT 8 BOOLEANS P SLL A1,7 : P ADR* A1,A9 GET NEOI + MAXL L P SC A1,1,A8 STORE IN BUFFER p P SRL A1,2 SHIFT IN ME + TYPE P ANK A1,/C0 P ADR* A1,A6 GET MINL P SCR A1,A8 STORE IN BUFFER
0x18091c…180ab0 Dummy {f00=0x0075, f01=0x018e, f02=»AXL z P STR A2,A9 STORE MAXL ! P LCR A2,A8 ! * P ANK A2,/3F MASK OUT MINL ! < P STR A2,A6 STORE MINL ! ^ $ P SRL A1,7 NEOI TO RIGHTMOST POS. ! | P ANK A1,1 MASK OUT NEOI ! $ P LCR A2,A8 GET ME + TYPE + MINL ! P SRL A2,5 SHIFT OUT MINL !
0x180ab0…180c44 Dummy {f00=0x0075, f01=0x0190, f02=» ! P EJECT " P* " 0 P* WRITE CONTROLS FROM BOOLEANS AND BINS TO " P* STRING ITEM " T : P* SYNTAX: CALL WCNTRL,BUFF,DISPL,BOOLBIN,MINL,MAXL " l 2 P* BUFF+DISPL= START POINT FOR WRITINGM " B P* BOOLBIN= FIRST BIN IN SAME W
0x180c44…180dd8 Dummy {f00=0x0075, f01=0x0190, f02=»WCNTRL EQU * " ( P LDR A10,A14 INDICATE WRITE CONTROLS # P RB CONTRL # @ P EJECT # R P* # ` . P* MASK OUT WANTED BITS ACCORDING TO MASK # j & P* SYNTAX: CALL MSKOUT,MASK,BIN # 6 P* MASK= BIN ITEM HOLDING THE MASK; WILL CONTAIN # 8 P*
0x180dd8…180f6c Dummy {f00=0x0075, f01=0x018e, f02=»ALL I:EVA0 ADDRESS TO MASK # P LDR A6,A9 $ " P CALL I:EVA0 ADDRESS TO BIN $ 4 $ P LDR* A1,A9 GET CONTENTS OF BIN $ X * P ANRS A1,A6 LOGICAL AND WITH MASK AND $ P STORE RESULT IN MASK $ P RB RET $ P* $ P EJECT $ P* $ , P* ATTAC
0x180f6c…181100 Dummy {f00=0x0075, f01=0x018e, f02=» $ P CALL T:FDSP DSET-ADDRESS % P LDKL A1,/4000 % * $ P ORRS A1,A8 INDICATE FIX BUFFER % @ $ P CALL I:EVA0 GET BUFFER ADDRESS % h $ P ST A9,2,A8 STORE BUFFER ADDRESS % P SUR A5,A9 CALCULATE LENGTH % P ST A5,14,A8 STORE LENGTH % PATTRET EQU
0x181100…181294 (1, 252) Dummy {f00=0x0075, f01=0x0190, f02=» 0 P* STRGITEM = LEFTMOST BYTE IS EQUAL TO '?' & P* & 8 , P* SYNTAX: CALL FORCED,ITEM & B 2 P* OUTPUT: CR = 0 NOT FORCED & r . P* CR = 1 FORCED & P* & PFORCED EQU * & " P CALL I:EVA0 GET
0x181294…181428 Dummy {f00=0x0075, f01=0x0190, f02=»ET RIGHTMOST DIGIT & P SUK A3,/A ' PFOR100 EQU * ' , P RF(Z) NOTFND JUMP IF FORCED ' @ P RF UT150 NOT FORCED ' d PALPHA EQU * ' & P LCR A3,A9 GET LEFTMOST CHARACTER ' P SUK A3,'?' ' P RB FOR100 ' P EJECT ' P* ' P* GET VALID
0x181428…1815bc Dummy {f00=0x0075, f01=0x0190, f02=»PLEN = POOL UNIT LENGT (BIN) ' 4 P* OUTPUT: BUFFX = CURRENT POOL UNIT INDEX (BIN) ( $ > P* START = POINTER TO STRING WIN CURRENT POOL UNIT ( . P* LEN = LENGTh OF FOUND STRING ( , P* CR = 0 IF STRING IS FOUND ( 0 P*
0x1815bc…181750 Dummy {f00=0x0075, f01=0x018e, f02=» * ( P LDR A10,A12 SAVE PP ) P LD* A11,-8,A13 ) & P ADR A11,A13 GET FCB-ADDRESS ) > $ P LDR* A6,A11 GET ADDRESS TO ITEM ) b . P ADKL A6,P:BAS+2 GET START SEARCH ADDRESS ) PVAL150 EQU * ) P LCR A1,A6 GET FORMAT CODE ) P ADK A6,1 INCREMENT PO
0x181750…1818e4 Dummy {f00=0x0075, f01=0x0190, f02=» P RF(E) VAL300 * P CWK A1,FDUP * P RF(E) VAL300 * . P SUK A1,FLINK * D P RF(NZ) VAL200 IF NOT FLINK * Z P* FLINK * ~ ( P LDR A12,A6 UPDATE PP TO FLINK-ITEM * * P CALL I:EVA0 ADDRESS TO NEXT POOL UNIT * P LDR A12,A10 RESTORE PP * $ P
0x1818e4…181a78 Dummy {f00=0x0075, f01=0x0190, f02=»DICATE NOT FOUND * P RF OUT + P* FVAL,FACC OR FGEN + ( PVAL300 EQU * + D P CWR A1,A7 + X P RF(E) OUT JUMP IF FOUND + j P LCR A1,A6 GET COUNTER + $ P ADR A6,A1 UPDATE FORMAT POINTER + P ADK A6,1 + P RB VAL150 CONTINUE + P* + P
0x181a78…181c0c Dummy {f00=0x0075, f01=0x0190, f02=»11,A5 SAVE POOL LENGTH + $ P CALL I:EVA0 ADDRESS TO BUFFIND , P LDR A7,A9 SAVE ADDRESS , F * P CALL I:EVA0 ADDRESS TO START POINTER , f P LDR A8,A9 SAVE ADDRESS , " P CALL I:EVA0 ADDRESS TO LENGTh , P LDR A6,A6 , P RF(Z) NOTFND IF NOT FOUND ,
0x181c0c…181da0 Dummy {f00=0x0075, f01=0x018e, f02=» , r P LDK A1,0 - PUT100 EQU * - P ADK A1,1 - . " P SUR A6,A11 SUB WIF POOL-LENGF - @ & P RB(P) UT100 CONTINUE IF POSITIVE - f * P ADR A6,A11 RESTORE RELATIVE POSITION - ( P STR A1,A7 STORE BUFFER UNIT NUMBER - " P STR A6,A8 STORE START POINTER
0x181da0…181f34 (1, 253) Dummy {f00=0x0075, f01=0x0190, f02=» - n PGREAT EQU * . PNOTFND EQU * . P LDK A1,1 INDICATE CR = 1 . 0 " P RB UT200 STORE CR AND RETURN . R PLESS EQU * . x P LDK A1,2 . P RB UT200 . P EJECT . P* . P* GET ACCUMULATION STRING . P* SEE UNDER GETVAL ABOVE .
0x181f34…1820c8 Dummy {f00=0x0075, f01=0x0190, f02=»* GET GENERATION STRING . P* SEE UNDER GETVAL ABOVE / P* / B PGETGEN EQU * / L , P LDK A7,FGEN INDICATE GENERATION STRING / ` P RB VAL100 START TO SEARC / P* / P / P* GET DUPLICATION STRING / P* SEE UNDER GETVAL ABOVE / P
0x1820c8…18225c Dummy {f00=0x0075, f01=0x0190, f02=»BLE AND LENGTH / n P* 0 > P* SYNTAX: CALL GETIND,ITEM(W1),LENGTH,DIMENSION 0 P* 0 b : P* ITEM(W1) = CURRENT ITEM 0 l F P* LENGTH = BIN HOLDING ITEM LENGTH 0 D P*
0x18225c…1823f0 Dummy {f00=0x0075, f01=0x0190, f02=»ND EQU * 0 P CALL I:EVA0 ADDRESS TO ITEM 1 2 P LD A10,-6,A14 READ DIMENSION STORED BY I:EVA 1 4 P LDR A7,A5 COPY END ADDRESS 1 j $ P SUR A7,A9 CALCULATE ITEM LENGTH 1 ( P CALL I:EVA0 ADDRESS TO LENGTH ITEM 1 P STR A7,A9 STORE LENGTH 1 & P CALL
0x1823f0…182584 Dummy {f00=0x0075, f01=0x0190, f02=» > P* COMPARE INDEX VARIABLE WITH DIMENSION OF INDEXED ITEM 2 P* 2 F : P* SYNTAX: CALL CMPIND,INDEX,ITEM(INDEX1) 2 P P* 2 @ P* OUTPUT: CR = 0 IF INDEX=OK INDEX OF ITEM 2 8 P* CR = 1 IF INDEX > MAX
0x182584…182718 Dummy {f00=0x0075, f01=0x0190, f02=»DEX 2 r P LDR* A6,A9 SAVE INDEX VALUE 3 2 P CALL I:EVA0 GET ADDRESS AND DIMENSION OF ITEM 3 0 P LDR A6,A6 3 f P RB(NP) LESS IF LESS THAN 1 3 x ( P CW A6,-6,A14 COMPARE WITH DIMENSION 3 P RB(G) GREAT IF TOO HIGH 3 P RB EQUAL IF OK INDEX 3 P*
0x182718…1828ac Dummy {f00=0x0075, f01=0x0190, f02=»CK 3 h & P* FILECODE FILE NUMBER 4 " P* BUF BUFFER 4 4 , P* LEN REQUESTED LENGTH 4 Z > P* RECNO REALATIV SECTOR NO WITHIN THE FILE 4 P* 4 PWRITDK EQU * 4 P LDKL A11,/95 ORDER CODE 4
0x1828ac…182a40 Dummy {f00=0x0075, f01=0x0190, f02=» CONTROL BLOCK 4 t & P* FILECODE FILE NUMBER 5 " P* BUF BUFFER 5 @ , P* LEN REQUESTED LENGTH 5 f > P* RECNO RELATIVE SECTOR NO WITHIN THE FILE 5 P* 5 PREADDK EQU * 5 P LDKL A11,/91 ORDE
0x182a40…182bd4 (1, 254) Dummy {f00=0x0076, f01=0x0190, f02=»* THEM IN DSET 5 P CALL I:EVA0 FILE CODE 6 P LDR* A6,A9 6 8 P SC A6,1,A8 6 L P CALL I:EVA0 BUFFER ADDRESS 6 ` P ST A9,2,A8 6 P CALL I:EVA0 RECORD LENGTH 6 P LDR* A6,A9 6 P ST A6,4,A8 6 P CALL I:EVA0 RECORD NO 6 P LDR* A6
0x182bd4…182d68 Dummy {f00=0x0076, f01=0x0190, f02=»DSET ADDRESS 6 P LKM 7 P DATA 15 7 P* 7 0 P* CHECK ON ERROR CODE 7 : PREAD40 EQU * 7 P LD A6,8,A8 7 p ( P RB(Z) EQUAL SET COND CODE TO 0 ,OK 7 P ANKL A6,/2000 7 * P RB(NZ) GREAT SET COND CODE TO 1 ,EOF 7 & P RB LESS SET COND CO
0x182d68…182efc Dummy {f00=0x0076, f01=0x0190, f02=» EVENT CONTROL BLOCK 7 ~ ( P* FILECODE FILE NUMBER 8 " > P* BUFF BUFFER OF AT LEAST 80 BYTES 8 N F P* RECNO LAST RECORD NUMBER (SHOULD BE ZERO) 8 P* 8 PCLOSEF EQU * 8 P LDR A11,A14 IND
0x182efc…183090 Dummy {f00=0x0076, f01=0x0190, f02=» LDR* A6,A10 GET FILE CODE 8 P SC A6,1,A8 9 " P LDK A7,/A2 LOAD ORDER CODE 9 6 P RB READ20 9 Z P EJECT 9 l P* 9 z 4 P* CALL OPENF,DSET,FILECODE,BUF,FILE,VOLUME 9 P* 9 0 P* DSET EVENT CONTROL BLOCK 9 ( P*
0x183090…183224 Dummy {f00=0x0076, f01=0x0190, f02=» VOLUME VOLUME NAME 9 P* : " POPENF EQU * : , P SUR A11,A11 INDICATE OPENF : @ POPENF0 EQU * : d ( P CALL T:FDSP GET DSET ADDRESS TO A8 : x * P CALL I:EVA0 SAVE ADDRESS TO FILE CODE : P LDR A10,A9 : 4 P CALL I:EVA0 GET ADDRESS TO FPB(FI
0x183224…1833b8 Dummy {f00=0x0076, f01=0x0190, f02=»8 STORE THE ADDRESS IN DSET : " P LDK A3,80 NO OF BYTES IN FPB ; $ P LDR A2,A9 ADDRESS TO FPB ; J POPEN00 EQU * ; l P CMR A2 STORE ZERO IN FPB ; P ADK A2,2 INCREACE ADDRESS ; P SUK A3,2 ; P RB(NZ) OPEN00 ; P* ; , P* GET FILE NAM
0x1833b8…18354c Dummy {f00=0x0076, f01=0x0190, f02=»SE ; v * P ADK A6,8 ADDRESS TO FILE NAME IN FPB < & P LDK A4,8 NO OF CHAR IN FILE NAME < 8 POPEN20 EQU * < b P LCR A3,A9 GET ON CHAR < v $ P SCR A3,A6 STORE ONE CHAR IN FPB < P ADKL A9,1 < P ADK A6,1 < P SUK A4,1 < P RB(NZ) OPEN20 < P
0x18354c…1836e0 Dummy {f00=0x0076, f01=0x0190, f02=»CHAR IN VOLUME NAME < POPEN40 EQU * = P LCR A3,A9 = 0 $ P SCR A3,A6 STORE ONE CHAR IN FPB = B P ADKL A9,1 = j P ADK A6,1 = | P SUK A4,1 = P RB(NZ) OPEN40 = P LDK A7,/A1 LOAD ORDER CODE = P LKM = P DATA 15 = , P* STORE FILE COD
0x1836e0…183874 (1, 255) Dummy {f00=0x0076, f01=0x0190, f02=»EVALUATE NUMBERS OF POOLS SPECIFIED IN CONFIGURATION = P* > < P* SYNTAX: CALL POOLA > F P* > f P* > p PPOOLA EQU * > z & P LD A4,P:MTAB+2 GET U:BTAB-ADDRESS > * P LD A4,2,A4 GET NUMBER OF BLOCK UNITS > P SUK A4,1 > ( P LD A1,4,A13 GET
0x183874…183a08 Dummy {f00=0x0076, f01=0x0190, f02=»ISP. FOR RPOOL > x P ST A3,38,A1 STORE - " - ? , P ST A4,40,A1 STORE DIMENSION FOR RPOOL ? : * P ST A4,48,A1 - " - BPOOL ? j 2 P ADK A2,188-19 LOAD TYPE AND LENGTH FOR BPOOL ? " P ST A2,44,A1 STORE - " - ? 4 PPOOL10 ADK A3,19 ADD
0x183a08…183b9c Dummy {f00=0x0076, f01=0x0190, f02=»T A3,46,A1 ST DISPL. FOR BPOOL ? PPOOLUT EQU * @ & P ABL I:RT1 @ : P EJECT @ L P* @ Z , P* PREPARE FOR GETFLD FROM CURRENT FIELD @ d 0 P* IT IS REQUIRED THAT THE FORMAT DOES NOT @ * P* CONTAIN ANY RETURN FROM SUBFORMAT @ P* @ > P* THE
0x183b9c…183d30 Dummy {f00=0x0076, f01=0x018e, f02=» BIN1 = WORK ITEM TO BE USED ALSO IN ROUTINE "ADJUST" @ T P* TYPE = A VALUE TELLING WHATGETFLD FUNTION YOU WANT TO EXECU A L < P* START = ITEM1 IN THE GETFLD FUNTION A > P* SLUT = ITEM2 I
0x183d30…183ec4 Dummy {f00=0x0076, f01=0x0190, f02=» A l , P LD A7,FCBLP,A6 GET FORMAT START ADDRESS B " P STR A7,A9 STORE IN SAVE ITEM B 8 P LDR A10,A12 SAVE PP B ^ & P ADKL A12,1 STEP PAST GETFLD-TYPE B z 4 P CALL I:EVA0 GET ADDRESS TO WANTED FIELD NUMBER B P LDR A12,A10 RESTORE PP B & P LD A1,FCBIX
0x183ec4…184058 Dummy {f00=0x0076, f01=0x0190, f02=»NTED IS LOWER B | & P ST A1,FCBNIX,A6 STORE IN WORKAREA C , P LC A1,FCBROW,A6 GET CURRENT ROW NUMBER C @ * P SC A1,FCBNLI+1,A6 STORE IN WORK AREA C p & P LD A1,FCBFMA,A6 GET CURRENT START C $ P ST A1,FCBLP,A6 STORE NEW START C PGETF50 EQU * C P ABL
0x184058…1841ec Dummy {f00=0x0076, f01=0x4120, f02=»1 C l @ P* BIN1 = OUTPUT ITEM FROM ROUTINE "GETFWD" D P* D N PADJUST EQU * D X $ P CALL I:EVA0 GET ADDRESS TO BIN1 D l & P CALL T:GRFC GET FCB-ADDRESS TO A6 D P LDR* A1,A9 D ( P ST A1,FCBLP,A6 RESTORE FORMAT START D P RB POOLUT
0x1841ec…184380 Dummy {f00=0x0076, f01=0x2008, f02=» E ADDRESS TO DB $ ST A7,2,A1 STORE NEW WB-ADDRESS ABL I:RT1 F END X@ d* h EXTRN I:EVA0,I:RT1 r * * * CALL FORM 16=/F6A1,16 ATTWB EQU * " CALL I:EVA0 ADDRESS TO NE
0x184380…184514 (1, 256) Dummy {f00=0x0076, f01=0x0190, f02=» & COPY USERFIL $ 6 $ # F ( V b & r WHOLE FILE ? Y/N: $ & & F $ Q ( ! & "
0x184514…1846a8 Dummy {f00=0x0076, f01=0x018e, f02=» $ $ & % UNIT NO.:O $ % 8 & H & E Z & h & VOLUME-NAME: v $ & & ! & H & H ' OUTPUT $ ' & (
0x1846a8…18483c Dummy {f00=0x0076, f01=0x018e, f02=» & H $ Q ( " * + . & > + CHANGE VOLUME-NAME L $ + n & ~ , INPUT $ , & - UNIT NO.:L $ - & & E
0x18483c…1849d0 Dummy {f00=0x0076, f01=0x0190, f02=» & 0 VOLUME-NAME: $ 0 . & > & P $ Q ^ ( n 1 z & 2 CREATE FILE: $ 2 $ 6 ( 3 & 4 DE
0x1849d0…184b64 Dummy {f00=0x0076, f01=0x0190, f02=» 7 UNIT: UF $ 7 & ( & E : & H 8 VOLUME-NAME: V $ 8 r & & H & H 9 FILE $ 9 & : : $ : &
0x184b64…184cf8 Dummy {f00=0x0076, f01=0x0190, f02=»= & > FILE $ > , & < ? 2 = J $ ? ^ & n @ USER | $ @ & A FILE $ A & B 3 = $ B &
0x184cf8…184e8c Dummy {f00=0x0076, f01=0x0190, f02=» E & F DELETE $ F 0 & @ G USERDEFINED: N $ G j & z H FILE $ H & I FILE $ I & J NAME: $
0x184e8c…185020 Dummy {f00=0x0076, f01=0x0190, f02=»L & M UNIT: US $ M 0 & @ & E R & ` N VOLUME-NAME: n $ N & & H $ Q ( O & " P PRESS ENT TO CON
0x185020…1851b4 (1, 257) Opaque[0x194]
0x1851b4…185348 # DirEnt {nam=»DENTER«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x1118, f03=0x0000}
0x1851b4…185348 IdxSect {
0x1851b4…185348 f00 = 0x0088 // 0x1851b4 @0x0
0x1851b4…185348 f01 = 0x0010 // 0x1851b6 @0x2
0x1851b4…185348 gno = [ // 0x1851b8 @0x4
0x1851b4…185348 [0x00]: C0x0088.0x3.0
0x1851b4…185348 [0x01]: C0x0089.0x0.0
0x1851b4…185348 [0x02]: C0x00a6.0x1.0
0x1851b4…185348 [0x03]: C0x00a6.0x2.0
0x1851b4…185348 [0x04]: C0x00a6.0x3.0
0x1851b4…185348 [0x05]: C0x00a7.0x0.0
0x1851b4…185348 [0x06]: C0x00a7.0x1.0
0x1851b4…185348 [0x07]: C0x00a7.0x2.0
0x1851b4…185348 ]
0x1851b4…185348 }
0x185348…1854dc Dummy {f00=0x0088, f01=0x0190, f02=» & P IDENT DENTER REL 10.0 81-08-27/EV P UPD 80-11-06/DALI . P UPD 80-10-21/DALI J P UPD 80-06-28/DALI f P UPD 80-04-14/DALI . P****************************************** . P* THIS ROUTINE HANDLE THE KEYBOARD INPUT * . P* AND
0x1854dc…185670 Dummy {f00=0x0088, f01=0x0190, f02=» f P* . P* RUNNING UNDER: CREDIT REL 10.0 * . P* TOSS REL 10.0 * D . P****************************************** v P DDUM DEDDIV P PDIV P* , P ENTRY DECLRA CLEAR ALL VARIABLE FIELDS , P ENT
0x185670…185804 Dummy {f00=0x0088, f01=0x0190, f02=» x P EXT DERROR ERROR-MESSAGES " P EXT DEGEN GENERATION ROUTINE * P EXT CANC -ROUTINES P P* l $ P EXT DESTAT BUILD THE STATUSLINE v $ P EXT DEAPPL STANDARD ROUTINE TO P HANDLE APPL VALUES ( P EXT DETCHK USER ROUTINE TO EVALUATE
0x185804…185998 Dummy {f00=0x0088, f01=0x0190, f02=» P EXT DEVERI KEY-VERIFICATION P* ( . P EXT EMPTYT ASSEMBLY SUBROUTINE EMPTYT - 2 " P TEST IF DATA ITEM IS EMPTY d . P EXT FORCED ASSEMBLY SUBROUTINE FORCED - $ P TEST IF DATA ITEM IS FORCED * P EXT ATTDB ASSEMBLY SUBROUTINE ATTDB
0x185998…185b2c Dummy {f00=0x0088, f01=0x0190, f02=»INTER z P EXT MASK $ P EXT GETVAL LOOK FOR VALIDATION- P STRING FOR CURRENT FIELD H & P EXT GETGEN LOOK FOR GENERARTION- l P STRING FOR CURRENT FIELD & P EXT TESTB TEST FOR A BIT IN A BIN * P EXT CLEARB CLEAR A BIT IN A BIN ITE
0x185b2c…185cc0 Dummy {f00=0x0088, f01=0x018e, f02=»TION=3, ~ P MEANING THAT EMPTY P COMPULSURY FIELDS IS . P FOUND,WILL "NOT" BE N P INDICATED l , P EXT ADJUST ASSEMBLY SUBROUTINE ADJUST - " P ADJUST FORMATPOINTERS AFTER P EXECUTION OF GETFWD P EXT DELAST P
0x185cc0…185e54 (1, 258) Dummy {f00=0x0089, f01=0x018e, f02=» T P* PDECLRA PROC P PERF DENTER,W1 & P RET > P PEND J P* X @ P* CLEAR SOME VARIABLE FIELDS BEFORE HANDLING THE PICTURE b P* PDECLRS PROC P PERF DENTER,W2 P RET P PEND P* > P* CLE
0x185e54…185fe8 Dummy {f00=0x0089, f01=0x018e, f02=» P* 8 P* CLEAR SOME VARIABLE FILEDS AND DISPLAY THE REST < P* OF THE VARIABLE FIELDS BEFORE HANDLING THE PICTURE J P* PDECLRD PROC P* P PERF DENTER,W4 P RET P PEND P* P* ERROR PRINTOUT
0x185fe8…18617c Dummy {f00=0x0089, f01=0x0190, f02=» ~ P CLEAR DOOLC ERASEFLAG OFF & P MOVE DEBINW2,OPT MOVE TO VARIABLE * " P TO ALLOW INSTR.S CMP AND IB T $ P CMP DEBINW2,W0 "DEERR" ENTRY ? z P BE ERRPRINT YES ! P . P TBT DEPROMPT,ENTIRE JUMP IF ENTIRE FORMAT P SHOULD BE DIDEL
0x18617c…186310 Dummy {f00=0x0089, f01=0x0190, f02=»C P CLEARD P* PCLEARA $ * P ERASE 2,W1,W0 ERASE ALL FROM 1 AND UP 2 P B CONT ` P* p PCLEARS z , P ERASE 5,W1,W0 ERASE SOME FROM 1 AND UP P B CONT PCLEARD P TBT VERIFM,VERIF * P DISPLAY 3,W1,W0 DISPLAY
0x186310…1864a4 Dummy {f00=0x0089, f01=0x0190, f02=»ISPLAY 33,W1,W0 P B CONT P EJECT ( P* 6 P* DISPLAY ENTIRE FORMAT @ P* b PENTIRE l P CLEAR DEPROMPT z P IB DEBINW2 JUMP C P ECLRA ON C P ECLRS ROUTINE C P ECLRN INDEX C P ECLRN P*
0x1864a4…186638 Dummy {f00=0x0089, f01=0x0190, f02=»ONTINUE P* P* CLEAR SOME VARIABLES P* < PECLRS F * P ERASE 6,W1,W0 CLEAR SOME FIELDS FROM T P 1 AND UP IN MEMORY P* & P* CLEAR NO VARIABLES IN MEMORY P* PECLRN P TBT VERIFM,EVERIF ( P D
0x186638…1867cc Dummy {f00=0x0089, f01=0x0190, f02=» PESIGHT P DISPLAY 30,W1,W0 P EJECT , P* : PCONT D P MOVE DEBINW2,W8 HOME-KEY P PCONT3 r & P GETABX DEBINW4 GET CURRENT INDEX ( P BL KTHOME JUMP IF NO CURRENT FIELD P TBF VERIFM,CONT5 P B KTHOME PCONT5
0x1867cc…186960 Dummy {f00=0x0089, f01=0x0190, f02=»* P* COMPULSORY FIELD FOUND P* . & P MOVE DEBINW4,DEBINW3 CHANGE INDEX 8 P B CONT5 SEARCH AGAIN b P* PCONT6 P TSTCTL 5 LOOK IF CTAB P BZ SETCREAD P TEST DOOLA " P BZ CONT7 JUMP IF NOT BALANCE P SET
0x186960…186af4 (1, 259) Dummy {f00=0x00a6, f01=0x0190, f02=» P EJECT P* & P* SET CURSOR AND READ KEYBOARD P* F PSETCREAD P ( P SETCUR SET CURSOR ON CURRENT FIELD ` P P* * P* READ TO CURRENT FIELD ON DISPLAY P* PREADIN P TBF DENOCHAN,READ50 PREAD10 M
0x186af4…186c88 Dummy {f00=0x00a6, f01=0x0190, f02=»D14 PREAD12 6 P NKI .NE,DEDSDYKB,DEINPUT,DEKTAB5,DEBINW3,DEBINW2 PREAD14 T P PERF DELOCK,W1,DEBINW2 b $ P IB DEBINW3,READ30,READ20,READ10 P B READ40 P* PREAD20 ERROR P XSTAT DEDSDYKB,DEBINW3 P CALL MASK,D
0x186c88…186e1c Dummy {f00=0x00a6, f01=0x0190, f02=»IF P DISPLAY 0,W1,W0 P B SETCREAD " P* 6 * PREAD40 IB DEBINW2,READ10,STATUS,KCOPY @ P SUB DEBINW2,W3 n * P TBT DOOL3,READ45 JUMP IF NOT WORKING ( P CLEAR DENOCHAN WITTH THE DATA-FILE PREAD45 P RET P* PREAD
0x186e1c…186fb0 Dummy {f00=0x00a6, f01=0x0190, f02=»TURN FROM DENTER DEPENDING ON FUNCTION-KEYT P RET 4 PREAD55 @ P GETCTL 3,DEBINW3 GET SCHK N P CALL TESTB,DEBINW3,W15 p P BZ READ60 JUMP IF NOT SIGN . P DYKI DEINPUT,DEKTAB1,DEKTABA,DEBINW1, C P DEBINW2,DEBINW4 P B DYKOU
0x186fb0…187144 Dummy {f00=0x00a6, f01=0x0190, f02=»2 z $ P IB DEBINW3,ECLRN,ERRPRT,DYK050 P B DYK100 2 PDYK050 D P MOVE DEBINW2,W2 R P B ERRCAN j PDYK070 | * P GETABX DEBINW4 GET CURRENT TAB INDEX , P DISPLAY 1,DEBINW4,DEBINW4 DISPLAY FIELD P B SETCREAD CONTINUE PDYK1
0x187144…1872d8 Dummy {f00=0x00a6, f01=0x0190, f02=»UPDATE,UPDATE CONVERTED C 4 P UPDATE,UPDATE,UPDATE,STATUS END-OF-ITEM-KEY C " P KCOPY,KDUPL,KEDIT Z P B UPDATE v PDYK150 " P MOVE DEBINW2,W3 SET PLS = EOI P EJECT , P*************************************** , P* VALIDATE ENT
0x1872d8…18746c Dummy {f00=0x00a6, f01=0x018e, f02=»DATION-STRING * , P* * * , P* RETURNVALUES ARE PUT INTO DEBINW3. * Z , P*************************************** PUPDATE P CBNE DEBINW1,W0,UPD100 P VALIDATION OF EMPTY FIELD
0x18746c…187600 Dummy {f00=0x00a6, f01=0x0190, f02=» P CBG DEBINW2,W8,UPD005 P CBG DEBINW2,W3,UPD010 " PUPD005 @ P TBT DOOL3,UPD020 N PUPD010 B UPDR50 h & PUPD020 MOVE DEBINW4,W6 FORCED ITEM * P MOVE BIN3,W0 USED FOR SAV ERRORINDEX P CALL FORCED,:FMTITEM P BOK UPD030
0x187600…187794 (1, 260) Dummy {f00=0x00a6, f01=0x0190, f02=»3,DEBINW4 GET SCHK , P CALL TESTB,DEBINW4,W13 LOOK IF COND ME " P BZ UPDR35 VALIDATION IF COND J P B UPDVAL p P EJECT P* P* ENTERED DATA FROM KEYBOARD P* PUPD100 & P GETCTL 3,DEBINW4 GET SCHK-NUMBER PUPD105
0x187794…187928 Dummy {f00=0x00a6, f01=0x018e, f02=»D110 =5 C P UPD120 =6 C P UPD120 =7 ( P B UPD200 < PUPD110 N 0 P CBNE DEBINW2,W12,UPD115 JUMP IF NOT MINUS P MOVE DEBINW2,W0 P MOVE DEBINW3,W1 P MOVE STR1A,='-' , P INSERT DEINPUT,DEBINW2,DEBINW3,STR1A,W0 " P
0x187928…187abc Dummy {f00=0x00a6, f01=0x0190, f02=» t P SUB DEBINW3,DEBINW1 " P BZ UPD150 MAXL = INPUTLENGTH $ P TSTCTL 0 LOOK IF ALPHA J P BZ UPD130 NO! j * P MOVE STATSH,=X'20' PUT SPACE IN AREA P B UPD140 PUPD130 * P MOVE STATSH,=X'30' PUT ZERO IN ARTEA ( PUPD140 RIG
0x187abc…187c50 Dummy {f00=0x00a6, f01=0x0190, f02=»00 & P TBT DOOL3,UPDVAL ENTRY-MODE APPL- " P VALUE-HANDLING IS EXECUTED 4 P WITHIN DENVAL Z $ P GETCTL 0,DEBINW3 GET APPL-VALUE r 0 P CBE DEBINW3,W0,UPDR25 JUMP IF NO APPL VALUE P* ( P* APPL-VALUE DIFFERENT FROM ZERO P*
0x187c50…187de4 Dummy {f00=0x00a6, f01=0x0190, f02=»LIDATIONSTRING x ( P* WITHIN THE FORMAT AND EXECUTE IT. P* B PUPDVAL L P CLEAR DOOL1 Z P CLEAR DOOL4 n P CLEAR DOOL6 P CLEAR DOOL7 * P CLEAR BOOL5 ***F=UNVALID/NO COND TAB . P CLEAR BOOL7 ***F=UNVALID/NO COND REC. CH (
0x187de4…187f78 Dummy {f00=0x00a6, f01=0x0190, f02=»POOL(W1),BIN11,BIN12,BIN13 & P BNOK UPDR25 JUMP IF NO VALSTRING " 0 P CBL DEBINW2,W11,UPDV10 LOOK IF AUTODUP AND L 2 P CBG DEBINW2,W12,UPDV10 ERASE OR KEEP PRESSED ( P SETCUR SET CURSOR ON CURRENT FIELD PUPDV10 P PERF DENVAL,W0 P
0x187f78…18810c Dummy {f00=0x00a6, f01=0x0190, f02=»LAG | P BZ UPDR20 PUPDR12 P TSTCTL 0 L00K IF ALPHA , P BNZ UPDR16 JUMP IF ALPHA L P MOVE BIN9,W15 POINTER TO + n ( P MATCH VALSTR,BIN9,W2,DEINPUT,W0,W1 P BNOK UPDR16 & P DLETE DEINPUT,W0,W1 DELETE + OR - PUPDR16 (
0x18810c…1882a0 Dummy {f00=0x00a6, f01=0x0190, f02=»UPDR17 ( P TBF DOOLA,UPDR13 JUMP IF NOT BALACE P PERF DERROR,DEKTAB6 : P B ERRP20 V PUPDR13 h P TSTCTL 5 LOOK IF CTAB v P BZ UPDR14 NO! ( P DUPL STR2A LOOK IF KEYED INPUT = N P BOK UPDR18 YES! P TBF ASDFLAG,UPDR14
0x1882a0…188434 (1, 261) Dummy {f00=0x00a6, f01=0x0190, f02=» EJECT P* & P* VALDATION SUCCESSFULLY PERFORMED P* B PUPDR15 L ( P UPDFLD 1,DEINPUT UNCONDITIONAL UPD. Z P B UPDR28 PUPDR20 & P IB DEBINW3,UPDR25,SETCREAD,UPDR12 PUPDR25 P CBE DEBINW3,W1,UPDR15 ( P CBE DEBINW1
0x188434…1885c8 Dummy {f00=0x00a6, f01=0x0190, f02=» TBT ASDFLAG,UPDR33 P DUPL STR2A KEYED INPUT = N? P BOK UPDR33 YES! @ . PUPDR30 SET DECHANGE INDICATE CHANGED ITEM X PUPDR33 ( P TBF DOOL3,UPDR50 JUMP IF NOT ENTRY PUPDR35 , P CALL GETGEN,BPOOL(W1),BIN11,BIN12,BIN13 P BNOK
0x1885c8…18875c Dummy {f00=0x00a6, f01=0x0190, f02=» DUPL STR2A KEYED INPUT=N? P BOK UPDR40 YES! " PUPDR37 : P DK END H P PERF DEGEN Z PUPDR40 n P TSTCTL 5 | P BZ UPDR45 P TBT ASDFLAG,UPDR50 P DUPL STR2A KEYED INPUT = N? P BOK UPDR50 YES! PUPDR45 P S
0x18875c…1888f0 Dummy {f00=0x00a6, f01=0x0190, f02=»WD, C z ( P KTBWD,KTHOME,KERASE,KKEEP,KEOI, C ! * P KEOI,DUMMY,DUMMY,DUMMY,DUMMY,KENTER ! : P CMP DEBINW2,W24 ! h P BE KASD JUMP IF ASD FLAG ! * P SUB DEBINW2,W14 ADJUST EOI-KEY INDEX ! PDUMMY ! PRETUR ! P RET ! P EJECT ! PKT
0x1888f0…188a84 Dummy {f00=0x00a6, f01=0x0190, f02=»IF NOT ENTRY-MODE ! v 4 P TBF BOOL7,KEOI10 ***JUMP IF NO IMMIDIATE REC.CH " P CALL EMPTYT,STSAVE(W3) *** " R , P BNZ KEOI10 ***JUMP IF NO FORMAT-CHANGE " v P CLEAR DECHANGE " P B KENT04 " PKEOI10 *** " " P CLEAR BOOL5 ***CLEAR /SET CR " .
0x188a84…188c18 Dummy {f00=0x00a6, f01=0x0190, f02=» FIELD NR " p & P SUB DEBINW4,W1 ***ADJUST FOR TFWD # $ P BE KTHOME JUMP IF GOTO FIELD 1 # < PKEOI15 # d * P CALL GETFWD,DKBIN1,0,DEBINW4,DEBINW3 # r P CALL ADJUST,DKBIN1 # . P BNN KEOI20 ***JUMP IF NO FORMAT OVERFLOW # P GETABX DEBINW4 *** #
0x188c18…188dac Dummy {f00=0x00a6, f01=0x018e, f02=»L3,KEOI40 ENTRY SCREEN # P TFWD $ P B TSTTAB $ , PKEOI40 $ > & P TSTCTL 2 LOOK IF COMPULSORY FIELD $ L P BZ KEOI45 NO! $ v . P CALL EMPTYT,:FMTITEM LOOK IF EMPTY FIELD $ P BP KENT15 YES! $ PKEOI45 $ P GETABX DEBINW4 $ P ADD DEBINW4
0x188dac…188f40 Dummy {f00=0x00a6, f01=0x0190, f02=» P BNZ TSTT05 % P B TSTT10 % P* % * $ PKTBWD TABULATION 1 STEP BACKW. % 4 P GETABX DEBINW4 % P CBE DEBINW4,W1,KTBWD2 % t P TBWD % P B TSTTAB % PKTBWD2 % P MOVE DEBINW2,W3 EOI % P* % " PKTHOME TAB. TO HOME POSITION %
0x188f40…1890d4 (1, 262) Dummy {f00=0x00a7, f01=0x0190, f02=» GETFLD 0,DEBINW1,DEBINW3 % P SETCUR & " P B READ10 & 2 PKTHOM4 & D & P SET ASDFLAG SET ASD WHEN BALANCE & R ( P MOVE DEBINW1,W0 SET INPUT.LENGTH=0 & | P WHEN BALANCE-FORMAT & PKTHOM2 & P THOME & PTSTTAB TEST TAB OUTPUT & P BE TS
0x1890d4…189268 Dummy {f00=0x00a7, f01=0x0190, f02=»ION & x P TBT DENOCHAN,TSTT15 ' P DUPL STR2A KEYED INPUT = N? ' ( P BOK TSTT07 YES! ' L P TBF ASDFLAG,TSTT15 ' d PTSTT07 ' P PERF DETCHK ' P CBE DEBINW3,W0,TSTT15 ' P IB DEBINW2,DUMMY,DUMMY, C ' " P KTEOI,DUMMY,DUMMY,KTEOI, C '
0x189268…1893fc Dummy {f00=0x00a7, f01=0x018e, f02=»EN ' p $ P TBT DOOLA,TSTT15 BALANCE FORMAT ( P GETCTL 1,DEBINW4 GET MAXL ( 2 P CBNE DEBINW4,W0,TSTT15 ( T P B KENT06 ( t P EJECT ( PKTKEY ( P MOVE BIN11,W0 ( PKTKEY2 ( P ADD BIN11,W1 ( : P CALL GETFWD,DEBINW4,4,BIN11,DEBINW3 SEARCH
0x1893fc…189590 Dummy {f00=0x00a7, f01=0x0190, f02=» ( ~ P MOVE DEBINW2,W3 ) P EJECT ) P* ) . P* DUPL KEY ) 8 P* ) N PKDUPL ) X P DK BEGIN ) f * P TBF CORR,KDUPL10 IN CORRECTION MODE? ) z P TSTCTL 5 YES, LOKK IF CTAB ) P BZ KDUPL10 NO! ) P DUPL STR2A KEYED INPUT=N? ) P B
0x189590…189724 Dummy {f00=0x00a7, f01=0x0190, f02=»Y,UPDATE ) z PKTEOI2 * P TSTCTL 5 LOOK IF CTAB * P BNZ KTEOI4 YES! * < PKTEOI3 * T $ P IB DEBINW2,KCOP10,ERRRET,ERRRET * b P B ERRPRINT * PKTEOI4 * $ P IB DEBINW2,ERRRET,ERRRET,ERRRET * P DUPL STR2A * P BOK KENT20 * P TBF ASDFLAG
0x189724…1898b8 Dummy {f00=0x00a7, f01=0x0190, f02=»0 * P* + P* PRINT KEY + P* + , PKCOPY HARD COPY + 6 P PERF ATTPRT RESERVE PRINTER + P P BNOK ERRPRINT + t " P EDWRT DEDSPRT,FORMF FORMFEED + P MOVE DEBINW3,W1 + P PRINT DEDSPRT,DEBINW3,W0 + P PERF DETPRT RELEASE PRINTER +
0x1898b8…189a4c Dummy {f00=0x00a7, f01=0x0190, f02=»ET ASDFLAG + P B KASD3 , PKASD2 , " P INV ASDFLAG , 0 PKASD3 , D P PERF DELAST,W14,DEKTAB4 , R " P MOVE DEBINW2,W3 SIMULATE EOI , r P B KEOI50 , P EJECT , P* , P* EDIT FIELD , P* , PKEDITX , P TSTCTL 5 LOOK IF CTAB
0x189a4c…189be0 Dummy {f00=0x00a7, f01=0x0190, f02=»OVE DEBINW2,W5 RBWD , P CLEAR DECHANGE - P B ERRET1 - 4 PKED050 - F P CBE DEBINW1,W0,KEDITY - T P MOVE DEBINW1,W1 - r PKEDIT - P GETCTL 1,DEBINW3 GET MAXL - P CBNE DEBINW3,W0,KED100 - ( P EDWRT DEDSSCRN,BELL ACOUSTIC ALARM - P B
0x189be0…189d74 (1, 263) Dummy {f00=0x00a7, f01=0x018e, f02=»,DEKTABB,DEBINW1, C - P DEBINW2,DEBINW4 . P B DYKOUT . 6 PKED200 . H & P EDFLD DEINPUT,DEKTAB3,DEBINW1, C . V P DEBINW2,DEBINW4 . " P B DYKOUT CONTINUE AS FOR DYKI . PKEDITY . P SETCUR . P B KEDIT . P* . P* ERASE KE
0x189d74…189f08 Dummy {f00=0x00a7, f01=0x0190, f02=» P B KKEEP1 / P* / P* KEEP KEY / P* / 6 PKKEEP / @ ( P TBF DOOL3,KENT03 JUMP IF NOT ENTRY / N PKKEEP0 / z & P MOVE DEBINW2,W11 SIMULATE KKEEP2 / PKKEEP1 / P GETCTL 1,DEBINW4 GET MAXL / P CBE DEBINW4,W0,KENT07 / & P TSTCTL
0x189f08…18a09c Dummy {f00=0x00a7, f01=0x018e, f02=» / P CMP DEBINW2,W12 ERASE KEY 0 P BZ UPD040 0 * P B UPD020 0 < PKKEEP2 0 N P SET DOOL5 0 P GETABX DEBINW4 0 n P ADD DEBINW4,W1 0 * P CALL GETFWD,DKBIN1,0,DEBINW4,DEBINW3 0 P CALL ADJUST,DKBIN1 0 P BE KKEEP5 0 P BL SETCREAD 0
0x18a09c…18a230 Dummy {f00=0x00a7, f01=0x0190, f02=» 0 r P BOK KKEEP4 1 P TBF ASDFLAG,KKEEP1 1 PKKEEP4 1 8 P PERF DETCHK 1 F P CBE DEBINW3,W0,KKEEP1 1 Z & P TBT DOOLA,KKEEP1 JUMP IF BALANCE 1 x " P CBE DEBINW2,W12,KKEEP1 ERASE 1 P DK BEGIN 1 * P TBF CORR,KKEEP45 IN CORRECTION MODE? 1
0x18a230…18a3c4 Dummy {f00=0x00a7, f01=0x0190, f02=» DK END 1 P PERF DENDUP 2 P BNOK KENT20 2 & PKKEEP48 2 : $ P MOVE DEBINW2,W11 SIMULATE KEEP 2 J P B KKEEP1 2 r P EJECT 2 P* 2 P* ENTER KEY 2 P* 2 PKENTER 2 P TBF DOOL3,KENT03 2 P TBT AUTENT,KKEEP0 2 P GETCTL 1,
0x18a3c4…18a558 Dummy {f00=0x00a7, f01=0x0190, f02=» DECHANGE AT LEAST ONCE 2 PKENT04 3 2 P MOVE DEBINW2,W3 INDICATE ENTER KEY DEPRESSED 3 . P RET 3 d PKENT03 3 p * P MOVE DEBINW1,W0 INDICATE NO CLEARING 3 ~ < P GETFLD 0,DEBINW1,DEBINW3 SEARCH FOR EMPTY COMP. FIELDS 3 ( P BOFL KENT10 EMPTY COMP. FIE
0x18a558…18a6ec Dummy {f00=0x00a7, f01=0x0190, f02=»NT10 YES! 3 PKENT05 4 ( P TBT DOOL3,KENT07 JUMP IF ENTRY-MODE 4 P CBE DEBINW2,W9,KENT07 4 L P CBNE DEBINW2,W10,KENT06 4 j PKENT07 4 P TBT AUTENT,KENT06 4 P B SETCREAD 4 P* 4 & P* EMPTY COMPULSORY FIELD FOUND 4 P* 4 PKENT
0x18a6ec…18a880 Dummy {f00=0x00a7, f01=0x0190, f02=»E DEBINW1,W0 4 P TSTCTL 5 LOOK IF CTAB 5 P BZ ERRPRINT NO! 5 2 P DUPL STR2A 5 J P BOK KENT20 YES! 5 ^ P TBF ASDFLAG,ERRPRINT 5 v PKENT20 YES! 5 P PERF DERROR,DEKTABI 5 P B ERRP25 5 P EJECT 5 P* 5 P* INDICATE FORCED ITEM 5
0x18a880…18aa14 (1, 264) Dummy {f00=0x00a7, f01=0x0190, f02=»W3 RESTORE ITEMLENGTH 5 P B UPDR25 6 P EJECT 6 0 PERRPRT 6 > P CMP DEBINW2,W16 6 L P BE KEDIT JUMP IF EDIT 6 d , P CBE DEBINW2,W4,ERRCAN JUMP IF ERRCANEL1 6 , P CBE DEBINW2,W5,ERRCAN JUMP IF ERRCANEL2 6 P XSTAT DEDSDYKB,DEBINW3 6 P CALL
0x18aa14…18aba8 Dummy {f00=0x00a7, f01=0x0190, f02=»T BALANCE 6 t P PERF DERROR,DEKTAB6 7 P B ERRP20 7 . PERRP10 7 @ P PERF DERROR,DEKTAB4 7 N PERRP20 7 j $ P CBE DEBINW2,W1,ERRCAN CLEAR-KEY 7 x PERRP25 7 . P IB DEBINW2,ERRRET,ERRRET,ERRRET,KEDITX C 7 P KVALID,KFORCE,KTBWD,KTHOME 7 PERRR
0x18aba8…18ad3c Dummy {f00=0x00a7, f01=0x0190, f02=»AG,ERRET4 7 P DUPL STR2A KEYED INPUT = N 8 P BOK ERRET4 YES! 8 6 PERRCA1 8 N ( P IB DEBINW2,SETCREAD,SETCREAD,CONT3 8 PERRET0 8 . P SUB DEBINW2,W3 ADJUST FOR CANCEL1,CANCEL2 8 PERRET1 8 P TBT DOOL3,ERRET2 8 P CLEAR DENOCHAN 8 P
0x18ad3c…18aed0 Dummy {f00=0x00a7, f01=0x40c0, f02=»ULATE TBWD 8 | P B KTBWD 9 P PEND 9 " P* 9 0 PBELL FRMT 9 : P FSL 9 L P FILLR X'07',1 9 X P FMEND 9 n PFORMF FRMT 9 | P FTEXT ' 1' 9 P FMEND 9 P END 9 @ 9 8 PERRET1 8 P TBT DOOL3,ERRET2 8 P CLEAR DENOCHAN 8 P
0x18aed0…18b064 Dummy {f00=0x00a7, f01=0x2008, f02=» : PERRET4 7 ( P IB DEBINW2,SETCREAD,SETCREAD,ERRET5 7 P B ERRET0 7 D PERRET5 7 V " P MOVE DEBINW2,W8 SIMULATE TBWD 7 d P B KTBWD 7 P PEND 7 P* 7 PBELL FRMT 7 P FSL 7 P FILLR X'07',1 7 P FMEND 7 PFORMF FRMT 7 P F
0x18b064…18b1f8 Dummy {f00=0x00a7, f01=0x0190, f02=» T ( !Ad1 9An@m 6 6 W,@n_ ( "2( _!@j3 @ @d0 0} 4 h _= _< ! 4 6 Sfl{ W j ! Ii ! 9 W ) 9 m ,P ) ? ;j !& 'bc c b W 0* ! 6 $ r"? 7" v$ !r? 8 Tj *P ? 1? " Q$ FWK $ $< ?
0x18b1f8…18b38c Dummy {f00=0x00a7, f01=0x0190, f02=»/ !T; 6 MMMMMM~~MM~~MW|Iiy ! %n h / !T ,JWX ! %P h / ! 6 3 W1Ak_+ !" %% h / !T , W Hk ! c % c c _ & !? 0 %% 8? !6 (DTdt_ * ? + ? ,< j ! ! 9 @iW Ai? P ! : ? A W @ ! < A ? @ ?
0x18b38c…18b520 Dummy {f00=0x00a7, f01=0x0190, f02=»% A0; ,0: , $ ? "r= ( 2 07 6 'h #Q !j , w j 1!w!Ii j 2! ! !j "" j $" mHj -P !2 _ &{ { )P !Ix 6 * ? &{ { *P !2 _ ({ P !2 _ -P !2 _ { + Ii 0; {$* p!0
0x18b520…18b6b4 (1, 265) Opaque[0x194]
0x18b6b4…18b848 # DirEnt {nam=»DERROR«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0f18, f03=0x0000}
0x18b6b4…18b848 IdxSect {
0x18b6b4…18b848 f00 = 0x0078 // 0x18b6b4 @0x0
0x18b6b4…18b848 f01 = 0x0008 // 0x18b6b6 @0x2
0x18b6b4…18b848 gno = [ // 0x18b6b8 @0x4
0x18b6b4…18b848 [0x00]: C0x0078.0x3.0
0x18b6b4…18b848 [0x01]: C0x0079.0x0.0
0x18b6b4…18b848 [0x02]: C0x0079.0x1.0
0x18b6b4…18b848 [0x03]: C0x0079.0x2.0
0x18b6b4…18b848 ]
0x18b6b4…18b848 }
0x18b848…18b9dc Dummy {f00=0x0078, f01=0x018e, f02=» $ P IDENT DERROR REL 10.0 80-04-11 P 80-04-08/DALI , P* D 4 P* THIS IS A GENERAL ERRORMESSAGES-ROUTINE N 2 P* IT - POSITIONS CURSOR AT THE LAST LINE F P* - DISPLAYS CORRESPNDING ERROR MESSAGE AT THE LAST LINE > P*
0x18b9dc…18bb70 Dummy {f00=0x0078, f01=0x0190, f02=» DDUM DEDDIV PDIV P ENTRY DERROR & P ENTRY CANC < P EXT MASK P P EXT MSKOUT b P EXT DELOCK TEST KEY-LOCKS v P EXT DELAST P EJECT P* P** ERROR-MESSAGES P* H PDEFTBERR FTABLE ERFM01,ERF
0x18bb70…18bd04 Dummy {f00=0x0078, f01=0x0190, f02=»RFM18,ERFM19,ERFM20,ERFM21, C x : P ERFM22,ERFM23,ERFM24,ERFM25,ERFM26,ERFM27,ERFM28, C & : P ERFM29,ERFM30,ERFM31,ERFM32,ERFM33,ERFM34,ERFM35, C d : P ERFM36,ERFM37,ERFM38,ERFM39,ERFMDM,ERFMDM,ERFMDM, C : P ERFMDM,ERFMDM,ERFMDM,ERFMDM,ERFMDM,ERF
0x18bd04…18be98 Dummy {f00=0x0078, f01=0x0190, f02=»T CHARACTERS' | P FMEND P* $ PERFM02 FRMT . P FSL B P FTEXT 'UNDEFINED ERROR' N P FMEND n P* | PERFM03 FRMT P FSL P FTEXT 'I/O-ERROR' P FMEND P* PERFM04 FRMT P FSL " P FTEXT 'FUNCTION
0x18be98…18c02c Dummy {f00=0x0078, f01=0x0190, f02=» P* PERFM06 FRMT P FSL " P FTEXT 'ILLEGAL VALUE' . P FMEND L P* Z PERFM07 FRMT d P FSL x P FTEXT 'INVALID NUMBER' P FMEND P* PERFM08 FRMT P FSL & P FTEXT 'ALREADY DEFINED/EXECUTED' P F
0x18c02c…18c1c0 Dummy {f00=0x0078, f01=0x0190, f02=» FTEXT 'NO DISC SPACE' P FMEND P* , P EJECT 6 PERFM11 FRMT D P FSL X P FCOPY =' IN USE' d P FMEND ~ PERFM12 FRMT P FSL P FTEXT 'FOUND LOCKED' P FMEND P* PERFM13 FRMT P FSL " P FTEXT
0x18c1c0…18c354 (1, 266) Dummy {f00=0x0079, f01=0x0190, f02=» FMEND P* PERFM15 FRMT P FSL , P FTEXT 'NO RECORD FOUND' 8 P FMEND X P* f PERFM16 FRMT p P FSL . P FTEXT 'MAXIMUM NUMBER OF FIELDS EXCEEDED' P FMEND P EJECT PERFM17 FRMT P FSL $ P FTEXT 'PR
0x18c354…18c4e8 Dummy {f00=0x0079, f01=0x018e, f02=»SYMBOLIC' P FB E18RES PE18FOR $ P FCOPY =C'FORMAT' 2 PE18RES L P FILLR ':',1 Z P FHIGH n P FCOPY DEINPUT | . P FTEXT ' DOES NOT EXIST IN JOB-DEFINITION' P FBT DOOL1,E18OUT P FTEXT ' OR ON SYSTEM-DISC' PE18OUT
0x18c4e8…18c67c Dummy {f00=0x0079, f01=0x0190, f02=» ~ P FBF SOOL1,E19OUT P FILLR ':',1 " P FCOPY JOBNAME 6 P FILLR ':',1 L P FCOPY BATCH ` P FILLR ':',1 t P FCOPY STR15A P FILLR ':',1 P FMEL 'TTTT9',BCD13A P FBF SOOL2,E19OUT P FILLR ':',1 P FCOPY SYMBO
0x18c67c…18c810 Dummy {f00=0x0079, f01=0x0190, f02=»ILLR ':',1 P FTEXT 'ASD' PE19END FTAB 53 & P FTEXT 'PAGE' < P FILLR ':',1 R P FMEL 'X',BCD2A f P FMEND ~ P* P EJECT PERFM20 FRMT P FSL $ P FTEXT 'SYSTEMFILE ASSIGN-ERROR' P FMEND P* PERFM
0x18c810…18c9a4 Dummy {f00=0x0079, f01=0x0190, f02=»/O-ERROR' P FTAB 58 P FMEL 'XXXXX-',BCD13A " P FMEND @ P* N PERFM23 FRMT X P FSL l P FTEXT 'DISC NOT OPERABLE' x P FMEND P* PERFM24 FRMT P FSL P FCOPY =C'FORMAT' P FILLR ':',1 P FCOPY S
0x18c9a4…18cb38 Dummy {f00=0x0079, f01=0x0190, f02=» FILLR ':',1 P FCOPY TABLE P FCOPY =' IN USE' ( P FMEND B PERFM26 FRMT P P FSL d P FCOPY =C'JOB' p P FILLR ':',1 P FCOPY JOBNAME P FCOPY =' IN USE' P FMEND P* PERFM27 FRMT P FSL P FCOPY
0x18cb38…18cccc Dummy {f00=0x0079, f01=0x0190, f02=» P FCOPY =' IN USE' P FMEND " P* 0 P EJECT : PERFM28 FRMT H P FSL * P FTEXT 'DEFINED LINE MAXIMUM EXCEEDED' h P FMEND PERFM29 FRMT P FSL . P FTEXT 'MAXIMUM FORMAT-CODE SIZE EXCEEDED' P FMEND P*
0x18cccc…18ce60 Dummy {f00=0x0079, f01=0x018e, f02=»SL P FCOPY =C'FORMAT' P FILLR ':',1 $ P FCOPY FORMAT 8 P FILLR ':',1 N 6 P FTEXT 'CONFIRM WANTED FUNCTION (CORR,RDEL,PRINT)' b P FMEND P* PERFM32 FRMT P FSL P FTEXT 'ILLEGAL FORMAT NAME' P FMEND PER
0x18ce60…18cff4 (1, 267) Dummy {f00=0x0079, f01=0x0190, f02=» P FMEND PERFM3A FRMT P FTEXT 'TEST ENTERED BATCH' * P FMEND N P* PERFM35 FRMT f P FSL z ( P FTEXT 'OUTPUT DEVICE NOT OPERABLE' P FMEND P EJECT P* PERFM36 FRMT P FSL : P FTEXT 'END OF F
0x18cff4…18d188 Dummy {f00=0x0079, f01=0x0190, f02=» FMEND P* PERFM38 FRMT P FSL , : P FTEXT 'OCCUPIED RECORDLENGTH CHANGED WITHIN FORMAT:' 8 P FCOPY FORMAT v P FILLR '.',1 P FTEXT 'SIZE ON DISC:' P FMEL 'TTT9',BCD13A P FILLR '.',1 P FMEND P* PER
0x18d188…18d31c Dummy {f00=0x0079, f01=0x0190, f02=»N' n P FMEND P EJECT P* & PERFM49 FRMT 0 P FSL D 6 P FTEXT 'USERFILE NOT CLOSED IN PREVIOUS SESSION.' P P FMEND P* PERFM50 FRMT P FSL $ P FTEXT '95 % OF FILESPACE USED' P FMEND P* PERFM51
0x18d31c…18d4b0 Dummy {f00=0x0079, f01=0x0190, f02=» FMEND P* PERFM53 FRMT P FSL , P FTEXT 'TIME-OUT' 8 P FMEND R P* ` PERFM54 FRMT j P FSL ~ & P FTEXT 'EDIT ERROR IN CONVERSION' P FMEND P* PERFM55 FRMT P FSL P FTEXT 'CHANGE FLOPPY DISC'
0x18d4b0…18d644 Dummy {f00=0x0079, f01=0x0190, f02=»CT PDERROR PROC KEYTAB P PKTAB KEYTAB $ P* : P* ERROR HANDLING D P* ` P MOVE DEBINW2,W1 j ( P EDWRT DEDSSCRN,BELL ACOUSTIC ALARM P CMP DEBINW4,W0 P BZ DERR99 P BP DERR00 P ADD DEBINW4,=W'51' & P B
0x18d644…18d7d8 Dummy {f00=0x0079, f01=0x0190, f02=»03 2 P XCOPY DEBINW2,W1,W1,BPOOL(BIN11),BIN3 LENGTH P MOVE STATSH,HEX00 @ P MOVE DEBINW3,=X'3F' Z P CALL MSKOUT,DEBINW3,DEBINW2 v P ADD DEBINW3,W1 . P XCOPY STATSH,W1,DEBINW3,BPOOL(BIN11),BIN3 P MOVE DEBINW3,=X'202B' " P XCOPY
0x18d7d8…18d96c Dummy {f00=0x0079, f01=0x0190, f02=» PDERR03 P CBL DEBINW4,=W'56',DERR04 PDERR02 4 P MOVE DEBINW4,W2 B PDERR04 Z & P EDWRT DEDSSCRN,DEFTBERR(DEBINW4) h P* P* READ AFTER ERROR P* PDERR05 ( P SETCUR SET CURSOR AT THE BEGINNING P OF THE
0x18d96c…18db00 Dummy {f00=0x0079, f01=0x0190, f02=»DEBINW3,W1 REQUESTED LENGTH 2 P NKI .NE,DEDSDYKB,STR1A,KEYTAB,DEBINW3,DEBINW2 $ P PERF DELOCK,W1,DEBINW2 Z $ P IB DEBINW3,DERR18,DERR17,DERR19 z P B DERR20 P* PDERR17 P XSTAT DEDSDYKB,DEBINW3 P CALL MASK,DEBINW3,W64
0x18db00…18dc94 (1, 268) Dummy {f00=0x0079, f01=0x0190, f02=» B DERR10 PDERR18 P DISPLAY 0,W1,W0 P B DERR00 8 PDERR19 J 0 P CBNE DEBINW4,W4,DERR15 NO KEY-LOCK-ERROR ? X ( P MOVE DEBINW2,W1 SIMULATE CLEAR-KEY PDERR20 P CBNE DEBINW2,W10,DERR25 P* P* HANDLE ASDFLAG
0x18dc94…18de28 Dummy {f00=0x0079, f01=0x0190, f02=» ( P MOVE DEBINW3,W24 INDICATE LAST LINE P* 4 P* CLEAR ERROR PRINTOUT > P* ` PDERR30 j , P ERASE 0,DEBINW3,DEBINW3 ERASE LAST LINE x PDERR99 P RET P PEND P EJECT PCANC PROC , P CBE DEBINW1,W0,CANC20 J
0x18de28…18dfbc Dummy {f00=0x0079, f01=0x0190, f02=»THING IN THE FIELD r & P GETABX DEBINW4 GET CURRENT INDEX * P ERASE 10,DEBINW4,DEBINW4 CLEAR FIELD D PCANC10 r P IB DEBINW2,CLEAR1,CLEAR2 PCANC15 4 P MOVE :FMTITEM,DEINPUT RESTORE CURRENT CONTENTS PCANC20 P RET PCLEAR1
0x18dfbc…18e150 Dummy {f00=0x0079, f01=0x40f8, f02=» ` PCLEA20 * P GETABX DEBINW4 GET CURRENT TAB INDEX , P DISPLAY 1,DEBINW4,DEBINW4 DISPLAY FIELD D P RET t P PEND P EJECT P* PBELL FRMT P FSL P FILLR X'07',1 P FMEND END @ ET PCLEAR1
0x18e150…18e2e4 Dummy {f00=0x0079, f01=0x2008, f02=»
0x18e2e4…18e478 Dummy {f00=0x0079, f01=0x4030, f02=» # #_ 4 4 4 4 4 ~ @ , $ $ ) 8 & H & V ( d * p & ( + " , 999999999999999999999O " , ( - " . 9999
0x18e478…18e60c Dummy {f00=0x0079, f01=0x2008, f02=» ( FCOUNTER C(!FDBAB FDCNT FDEOF FDIR Q( FDVBCD ("FDVSTR ($FFSNR I(!FILECODE A(!FILINDUS v( FINDEXPO E(!FLIND p(!FMTWK (!FNOOFREC ?(!FORMAT m( FORTAB ($FRINF G(!FRMTPNTR ( FVOLNAME V($HEX00 U JOBNAME k JO
0x18e60c…18e7a0 Dummy {f00=0x0079, f01=0x0190, f02=» & & 6! & ( & " & . & 7! & > ( & L & X & 8! & h ( & v & & 9! & ( & & & :! & ( & & & ;! & ( & !
0x18e7a0…18e934 (1, 269) Opaque[0x194]
0x18e934…18eac8 # DirEnt {nam=»DEKEYS«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0f38, f03=0x0000}
0x18e934…18eac8 IdxSect {
0x18e934…18eac8 f00 = 0x0079 // 0x18e934 @0x0
0x18e934…18eac8 f01 = 0x0002 // 0x18e936 @0x2
0x18e934…18eac8 gno = [ // 0x18e938 @0x4
0x18e934…18eac8 [0x00]: C0x0079.0x3.0
0x18e934…18eac8 ]
0x18e934…18eac8 }
0x18eac8…18ec5c Dummy {f00=0x0079, f01=0x0190, f02=» P* DEKEYS EJECT ENT EQU X'8C' ENTER * CAN EQU X'91' CANCEL F PRET EQU X'92' RETURN b PRG EQU X'94' PROGRAM ~ PTOT EQU X'93' TOTAL PSTS EQU X'96' STATUS PPRT EQU X'98' PRINT $ PKEP EQU X'8D' KEEP FIELD
0x18ec5c…18edf0 Dummy {f00=0x0079, f01=0x0190, f02=»NSERT z RDL EQU X'89' RECORD DELETE RFW EQU X'83' RECORD FORWARD 2 " RBW EQU X'81' RECORD BACKWARD V EOI EQU X'80' FIELD FORWARD | $ PPLS EQU X'9C' FIELD FORWARD PLUS & PMIN EQU X'9D' FIELD FORWARD MINUS PBTB EQU X'8A' BACKTAB
0x18edf0…18ef84 Dummy {f00=0x0079, f01=0x40b0, f02=»CFW EQU X'86' CURSOR FORWARD " CBW EQU X'84' CURSOR BACKWARD $ PBSP EQU X'8B' BACKSPACE J " PVAL EQU X'97' FORCE VALIDATION j NOK EQU X'FF' NOKEY @ ELD FORWARD PLUS & PMIN EQU X'9D' FIELD FORWARD MINUS PBTB EQU X'8A' BACKTAB
0x18ef84…18f118 Dummy {f00=0x0079, f01=0x2008, f02=» LR,EOI,CAN,RET, C EOI,BTB,HOM,NOK, C " NOK,NOK,NOK,NOK,PRT, C @ NOK,CBW,ENT b * x ( $SPKTAB3 KTAB CFW,CBW,RIN,RDL,NOK, C CLR,KEP,EOI,CAN,RET, C EOI,BTB,HOM,NOK, C NOK,NOK,NOK,NOK,PRT, C
0x18f118…18f2ac Dummy {f00=0x0079, f01=0x0190, f02=»0X L * : J Z j z ! " ( / J F " D %% R2
0x18f2ac…18f440 Dummy {f00=0x0079, f01=0x0190, f02=» J F " D @ _W) !$ ! $ W !W R8P )B?R0R (+0R +@eAf ! ! 0X V f v V 7 D * *
0x18f440…18f5d4 (1, 270) Opaque[0x194]
0x18f5d4…18f768 # DirEnt {nam=»DEFDSC«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0f40, f03=0x0000}
0x18f5d4…18f768 IdxSect {
0x18f5d4…18f768 f00 = 0x007a // 0x18f5d4 @0x0
0x18f5d4…18f768 f01 = 0x0010 // 0x18f5d6 @0x2
0x18f5d4…18f768 gno = [ // 0x18f5d8 @0x4
0x18f5d4…18f768 [0x00]: C0x007a.0x0.0
0x18f5d4…18f768 [0x01]: C0x007a.0x1.0
0x18f5d4…18f768 [0x02]: C0x007a.0x2.0
0x18f5d4…18f768 [0x03]: C0x007a.0x3.0
0x18f5d4…18f768 [0x04]: C0x007b.0x0.0
0x18f5d4…18f768 [0x05]: C0x007b.0x1.0
0x18f5d4…18f768 [0x06]: C0x007b.0x2.0
0x18f5d4…18f768 [0x07]: C0x007b.0x3.0
0x18f5d4…18f768 ]
0x18f5d4…18f768 }
0x18f768…18f8fc Dummy {f00=0x007a, f01=0x0190, f02=» $ P IDENT DEFDSC REL 10.0 80-04-11 P 80-04-28/JAER , * D @ <* THIS IS THE GENERAL FORMAT DEFINITION SCREEN VERSION N * * -INPUT : @ P* BOOL6 = F = GENERAL FORMAT DEFINITION @ P*
0x18f8fc…18fa90 Dummy {f00=0x007a, f01=0x0190, f02=» T = CHANGE FORMAT DEFINITION | 0 P* DOOL3 = F = CORR-MODE 0 H P* T = TEMPORARY MODE CHANGE (FIELD CH.) d 0 P* DOOL4 = F = CORR-MODE N P* T = T
0x18fa90…18fc24 Dummy {f00=0x007a, f01=0x0190, f02=»PORARY MODE CHANGE (CORR CURR.LINE) j L P* DOOL6 = F = NO PASS IN 'MTEXT' THROUGH 'DETCHHK' , . P* = T = PASSED | 0 P* DOOL7 = F = CORR-MODE N P* = T = END
0x18fc24…18fdb8 Dummy {f00=0x007a, f01=0x0190, f02=» = T = INHIBIT DISPLAY OF LDISP AND ERASE OF FIELDPA | P* D * N * -OUTPUT: X 4 P* DEBINW2 = 1 = 'CANCEL'-KEY p 4 P* = 2 = 'RETURN'-KEY 4 P* = 3 = 'ENTE
0x18fdb8…18ff4c Dummy {f00=0x007a, f01=0x0190, f02=»R FORMAT BUFFER d > P* BIN2 = POINTER DESC.BUFFER F P* BIN3 = BUFFERPOOL-INDEX FORMATCODE Z L P* BIN4 = BUFFERPOOL-INDEX FORMAT DESCRIPTOR < P*
0x18ff4c…1900e0 Dummy {f00=0x007a, f01=0x0190, f02=» BIN7 = FIELDLENGTH = MAXL t 8 P* BIN8 = TABPOS 'FTAB' $ F P* BIN9 = NUMBER OF FTEXT'-CHARACTERS ` : P* BIN10 = CURRENT FIELD NR H P* BIN
0x1900e0…190274 (1, 271) Dummy {f00=0x007a, f01=0x0190, f02=» BIN13 = LAST DISPLACEMENTS OF DESCRIPTOR ~ D P* BIN14 = LAST LENGTH OF DESCRIPTOR < . P* BIN15 = WORK . P* BIN16 = WORK F P* PIN
0x190274…190408 Dummy {f00=0x007a, f01=0x0190, f02=» = 8 = LAST FIELD IN BALANCE FORMDEF L M************************************************************************ B DDUM DEDDIV PDIV ENTRY DEFDSC PROGRAM-START P* & P EXT DEAPPL USER ROUTINE TO HANDLE
0x190408…19059c Dummy {f00=0x007a, f01=0x0190, f02=» l " P EXT DEUNPF UNPACK NEXT FIELD P EXT DEUNPL UNPACK NEXT LINE . , P EXT DEFGTC FORMAT GENERATION TABULATION R * P EXT VGACNT VAL-GEN-ACC-STRING-CONTROL P EXT CANC -ROUTINES P EXT DESTAT STATUS-LINE P EXT FSL FORMAT START LINE
0x19059c…190730 Dummy {f00=0x007a, f01=0x0190, f02=»ERING PROCEDURE P EXT MASK $ P EXT EMPTYT CHECK IF EMPTY ITEM * $ P EXT UPDBOL UPDATE BOOLEAN/WORD R P EXT DELOCK TEST KEY-LOCKS z P EXT ATTPRT RESERVE PRINTER P EXT DETPRT RELEASE PRINTER P* P INCLUDE DEKEYS,LIST
0x190730…1908c4 Dummy {f00=0x007a, f01=0x018e, f02=»,RET C p P PLS,BTB,HOM,NOK, C P KEP,NOK,NOK,STS,PRT, C . P DUP,CFW,ENT,NOK P * j , PDEKTAB2 KTAB BSP,NOK,CLR,EOI,CAN,RET, C t P PLS,BTB,HOM,NOK, C P NOK,NOK,NOK,NOK,PRT, C P NOK,CBW,NOK,NOK * ( P
0x1908c4…190a58 Dummy {f00=0x007a, f01=0x0190, f02=» t P NOK,NOK,NOK,NOK P* " , PDEKTAB4 KTAB BSP,CLR,NOK,EOI,CAN,RET, C , P PLS,BTB,HOM,NOK, C P KEP,NOK,NOK,STS,PRT, C z P DUP,CFW,NOK,TOT P* , PDEKTAB5 KTAB NOK,NOK,NOK,NOK,CAN,RET, C P NOK,BTB,NOK,NOK, C
0x190a58…190bec Dummy {f00=0x007a, f01=0x0190, f02=»,CAN,RET,NOK,TOT,RIN P* , PDEKTABA KTAB NOK,NOK,NOK,NOK,CAN,RET, C & P NOK,NOK,NOK,NOK, C V P NOK,NOK,NOK,STS,PRT, C t P NOK,NOK,ENT,TOT,RFW, C & P NOK,COR,RDL,RIN NOK,COR,RDL,RIN P* , PDEKTABB KTAB NOK,NOK,NOK,NOK
0x190bec…190d80 Dummy {f00=0x007a, f01=0x0190, f02=» ~ P* PDEKTABC KTAB CLR,CAN,RET EJECT 2 PDEFDSC PROC @ PIN05 T * P TBT BOOL6,IN10 JUMP IF BALANCE FORMAT ` ( P MOVE BIN4,W2 NUMB OF WANTED BUFFERS P MOVE DEBINW2,W1 P B IN15 PIN10 ( P MOVE BIN4,W1 NUMB OF WANT
0x190d80…190f14 (1, 272) Dummy {f00=0x007a, f01=0x018e, f02=» , P CALL UPDBOL,BIN1 INITIATE RECORDSTATUS * P MOVE BIN3,W0 NUMB OF CONSEC. BUFFERS 8 * P MOVE DEBINW1,BIN4 SAVE NUMB OF WANTED f 2 P PERF DEPOOL,W2,BIN4,BIN3,STRG10A GET BUFFERS P BOK IN20 & P PERF DERROR,DEKTAB6 ERROR-MESSAGE * P C
0x190f14…1910a8 Dummy {f00=0x007a, f01=0x0190, f02=» PIN20 & P TBT BOOL7,IN21 JUMP IF CORR-MODE 2 P MOVE PINDFR,BIN4 SAVE ST-INDEX IF NEWREG-MODE : PIN21 p 0 P MOVE PINDDB,BIN4 SAVE START BUFFERPOOLINDEX | * P XCOPY RPOOL(PINDDB),W17,W1,DEBINW1,W1 * P XCOPY RPOOL(PINDDB),W18,W1,DEBINW2,W1
0x1910a8…19123c Dummy {f00=0x007a, f01=0x0190, f02=»F DEPOOL,W4,PINDDB,BIN16,STRG10A SET BUFFER * P MOVE RNRFMCH,W2 LOAD FORMATLINKINDEX 4 P* b ( P* <RELEASE OLD DESC. BUFFERS> l P* PIN22 * P TBT BOOL6,IN25 JUMP IF BALANCE FORMAT P* 0 P* INITIALIZATION OF USER FO
0x19123c…1913d0 Dummy {f00=0x007a, f01=0x0190, f02=»,W8 POINTER DESCBUFF:=8 P MOVE BIN3,W0 : P XCOPY BIN3,W1,W1,RPOOL(PINDDB),W8 FETCH INDEX FCBUFF 6 ( P MOVE BIN13,W0 LAST DISPLACEMENTS:=0 t " P MOVE BIN14,W9 LAST LENGTH:=9 $ P MOVE PRECCUR,W14 LAST FIELD:=14 4 P MOVE FMTWK(W14),RBUFLN FE
0x1913d0…191564 Dummy {f00=0x007a, f01=0x0190, f02=» INITIALIZATION OF BALANCE FORMAT PARTS P* 6 PIN25 @ * P MOVE BIN3,PINDDB 1ST BUFFER=FCBUFFER L * P MOVE PINDND,W0 NUMB OF DESCBUFFERS:=0 z " P MOVE PRECCUR,W8 LAST FIELD:=8 PIN30 * P PERF DEATTF ATTACH DEFINITION FORMAT P
0x191564…1916f8 Dummy {f00=0x007a, f01=0x0190, f02=»5 PIN34 ( P ERASE 3,W1,W0 CLEAR ALL FIELDS FROM P 1 AND UP B PIN35 V P TBF BOOL7,IN36 b , P MOVE FORMAT,STRG10A RESTORE FORMATNAME z , P MOVE FDVBCD(W1),W23 PAGE SIZE:=23 (MAX) PIN36 P* <INITIALIZING PHASE> 0
0x1916f8…19188c Dummy {f00=0x007a, f01=0x018e, f02=»POOL NUMB OF POOLS:=1+01 , P MOVE FDVSTR(W1),HEX00 KEYED INPUT EMPTY * P MOVE FDVBCD(W7),HEX00 MINLENGTH EMPTY P P MOVE DUPL,HEX00 DUPL EMPTY ~ . P MOVE WORK(W6),W0 HIGHEST FIELD REF. NO:=0 * P TBT BOOL6,IN40 JUMP IF BALANCE FORMAT 0 P MOVE
0x19188c…191a20 Dummy {f00=0x007a, f01=0x0190, f02=» ~ P TBT DEPROMPT,POOFF P DISPLAY 3,W1,W0 $ P B CONT1 < PPOOFF L ( P DISPLAY 0,W1,W0 DISPLAY ENTIRE FORM Z P CLEAR DEPROMPT , P CBE DEBINW3,W1,CONT1 JUMP IF POWER OFF ( P TBT BOOL7,COR010 JUMP IF CORR-MODE P EJECT P
0x191a20…191bb4 (1, 273) Dummy {f00=0x007a, f01=0x0190, f02=»BINW4,DEBINW3 SEARCH CURRENT POSITION P BZ SETCREAD JUMP IF FOUND . " P BL KTHOME POSITION NOT FOUND P P* v P* COMPULSORY FIELD FOUND P* & P MOVE DEBINW4,DEBINW3 CHANGE INDEX P B CONT5 SEARCH AGAIN P* P* ,
0x191bb4…191d48 Dummy {f00=0x007a, f01=0x0190, f02=»T h $ P MOVE BIN5,W0 'LDES'-POINTER:=0 * P PERF DEUNPL,DEBIN5 UNPACK LINE=>LDES 2 ( P CBE DEBINW2,W1,COR400 END-OF-FORMAT ` ( P DISPLAY 1,W3,W3 DISPLAY LINE DESIGN PCOR015 ( P MOVE DEBINW4,W3 LDES-FIELD CURRENT P B CONT5 P*
0x191d48…191edc Dummy {f00=0x007a, f01=0x0190, f02=» MOVE DEBINW4,=W'36' MESSAGE-NO:=36 6 P PERF DERROR,DEKTAB7 'E-O-F FOUND PRESS 'RINS' ' , P CBE DEBINW2,W1,COR400 f $ P SUB DEBINW2,W1 ADJUST KEY-INEX PCOR450 . P CBNE DEBINW2,W5,RETUR JUMP IF NOT INSERT $ P SET DOOL7 T=NEW LINES INSER
0x191edc…192070 Dummy {f00=0x007a, f01=0x0190, f02=»URSOR ON CURRENT FIELD P P* & * P* READ TO CURRENT FIELD ON DISPLAY 0 P* ^ PREADIN h 2 P TBT DOOL7,READ00 JUMP IF INSERT OF NEW LINES v 0 P TBT DOOL5,READ00 JUMP IF CORR-MODE CHANGED 0 P TBT DOOL4,READ00 JUMP IF CORR-MODE CHAN
0x192070…192204 Dummy {f00=0x007a, f01=0x018e, f02=»UMP IF FIELDNR =3 x > P CBE DEBINW4,PRECCUR,READ20 JUMP IF FIELDNR = LAST FIELDNR . P DYKI DEINPUT,DEKTAB1,DEKTAB2,DEBINW1, C P DEBINW2,DEBINW4 P B DYKOUT PREAD10 . P DYKI DEINPUT,DEKTAB4,DEKTAB2,DEBINW1, C P DEBINW2,DEBI
0x192204…192398 Dummy {f00=0x007a, f01=0x0190, f02=» PREAD30 P MOVE DEBINW3,W1 P MOVE BIN16,DEBINW4 * P CBE BIN16,W4,READ40 F 4 P NKI .NE,DEDSDYKB,STR1A,DEKTABA,DEBINW3,DEBINW2 b P BNOK BELLY P B DYKOUT PREAD40 4 P NKI .NE,DEDSDYKB,STR1A,DEKTABB,DEBINW3,DEBINW2 P B
0x192398…19252c Dummy {f00=0x007a, f01=0x0190, f02=» MOVE DEBINW2,W2 P B ERRCAN PDYK100 * 2 P TBT DOOL7,DYK101 JUMP IF INSERT OF NEW LINES 8 , P TBT DOOL5,DYK101 JUMP IF TEMP CHH MODE n * P TBT DOOL4,DYK101 JUMP IF TEMP CH MODE * P TBT DOOL3,DYK101 JUMP IF TEMP CH MODE ( P TBT BOOL7,COR
0x19252c…1926c0 Dummy {f00=0x007a, f01=0x0190, f02=»E,UPDATE,UPDATE CONVERTED C 4 P UPDATE,UPDATE,UPDATE,UPDATE END-OF-ITEM-KEY C $ P UPDATE,KDUPL,KEDIT P EJECT x P* 4 P* HANDLE THE RESPECTIVE KEY AS EOI-KEY FIRST P* PUPDATE . P CBE DEBINW1,W0,UPD350 JUMP IF LENGTH =
0x1926c0…192854 (1, 274) Dummy {f00=0x007b, f01=0x0190, f02=»ONAL DISPLAYING P* $ P GETCTL 0,DEBINW3 GET APPL-VALUE " 0 P CBE DEBINW3,W0,UPD400 JUMP IF NO APPL VALUE J P* ~ ( P* APPL-VALUE DIFFERENT FROM ZERO P* P PERF DEAPPL , P IB DEBINW3,UPD260,UPD300,ERRPRINT,KEDIT P B UPD
0x192854…1929e8 Dummy {f00=0x007b, f01=0x0190, f02=»UPDATE FIELD WITH DISPLAYING ~ . PUPD300 SET DECHANGE INDICATE CHANGED ITEM $ PUPD350 V $ P* JUMP ON FUNCTION KEY INDEX d P IB DEBINW2,KTFWD,DUMMY, C P KEOI,DUMMY,DUMMY,KTFWD, C & P KTBWD,KTHOME,DUMMY,KEEP,DUMMY C & P DUMMY,KS
0x1929e8…192b7c Dummy {f00=0x007b, f01=0x0190, f02=» ADJUST EOI-KEY INDEX PDUMMY PRETUR , P RET : PCORL30 F P B COR030 LONG BRANCH LABEL T P* x PUPD400 6 P CBE DEBINW4,W2,UPD260 JUMP IF UNCONDITIONAL DIDEL 0 P UPDFLD 0,DEINPUT UPDATE FIELD DIDEL. COND. P B UPD300
0x192b7c…192d10 Dummy {f00=0x007b, f01=0x0190, f02=» PKTFWD TAB. FORWARD 1 STEP ! P TFWD ! ( P B TSTTAB ! 6 P* ! H $ PKTBWD TABULATION 1 STEP BACKW. ! R P TBWD ! z P B TSTTAB ! P* ! " PKTHOME TAB. TO HOME POSITION ! P THOME ! P B TSTTAB ! P* ! P ! PTSTTAB TES
0x192d10…192ea4 Dummy {f00=0x007b, f01=0x0190, f02=»NDITIONAL TABULATION ! P* " P PERF DEFGTC " & . P CBNE DEBINW2,W0,RETUR JUMP IF ERROR FOUND " : P CBNE DEBINW3,W0,BELLY " l P TBF DOOL5,BELLA " * P TBT DOOL6,CRL110 JUMP IF MTEXT PASSED " PBELLA " P B SETCREAD " PBELLY " ( P EDWRT D
0x192ea4…193038 Dummy {f00=0x007b, f01=0x0190, f02=»KPRTER " " P EDWRT DEDSPRT,FORMF FORMFEED # P MOVE DEBINW3,W1 # 4 P PRINT DEDSPRT,DEBINW3,W0 # L P PERF DETPRT RELEASE PRINTER # n $ P B SETCREAD SET CURSOR AND READ # PKPRTER # P PERF DERROR,DEKTABC # $ P IB DEBINW2,ERRCAN,ERRCAN,RETUR #
0x193038…1931cc Dummy {f00=0x007b, f01=0x0190, f02=»E COMMON EOI-KEY # x P DUPL DEINPUT DUPLICATION $ P BNOK KDUPLE $ : 8 P MOVE FMTWK(W5),RECLNTH RESTORE LAST LINE NUMB CHARS $ N P ERASE 2,W5,W5 CLEAR LDISP $ P B UPD260 DUPL ALLOWED $ PKDUPLE $ . P MOVE DEBINW4,W0 INDICATE ILLEGAL EOI-KEY $
0x1931cc…193360 Dummy {f00=0x007b, f01=0x0190, f02=» PKEDITX % P CBNE DEBINW1,W0,KEDITY % P SETCUR % 2 P B KEDIT % B PKEDITY % R P MOVE DEBINW1,W1 % ` PKEDIT % x P GETCTL 1,DEBINW3 GET MAXL % P CBNE DEBINW3,W0,KED100 % ( P EDWRT DEDSSCRN,BELL ACOUSTIC ALARM % P B SETCREAD % P
0x193360…1934f4 (1, 275) Dummy {f00=0x007b, f01=0x0190, f02=» % P* ENTER KEY & P* & PKEEP & ( PKENTER & 4 0 P TBF BOOL6,KENT0A JUMP IF NOT BALANCE-FORMAT & B 0 P TBF BOOL2,KENT0A JUMP IF NO ACC/FIELD FOUND & v * P CALL EMPTYT,FDVBCD(W8) ACC NO EMPTY ? & & P BNOK KEDIT JUMP IF EMPTY (ERROR) & PKENT0A
0x1934f4…193688 Dummy {f00=0x007b, f01=0x0190, f02=»K KEDIT JUMP IF ERROR FOUND & PKENT00 ' $ . P TBT DOOL3,COR060 JUMP IF CORRMODE TEMP CH ' 2 ( P PERF FDIR GENERATE FIELD DIRECTIVE ' d P CBNE DEBINW2,W0,RETUR NOK ' & P CBE EOLINE,W1,KENT03 EOL REACHED ' * P PERF MTEXT MATCH AND SEARCH FOR FIELD '
0x193688…19381c Dummy {f00=0x007b, f01=0x0190, f02=»NT03 ' ( P TBT DOOL4,COR058 NEW LINE INSERTED ( " P PERF FNL END-OF-LINE ROUTINE ( 8 & P MOVE DEBINW4,W3 INDICATE FIELD 3 ( ^ P CBNE DEBINW2,W0,RETUR NOK ( PKENT04 ( P GETFLD 0,DEBINW4,DEBINW3 ( P B SETCREAD OK ( P EJECT ( PERRPRT (
0x19381c…1939b0 Dummy {f00=0x007b, f01=0x0190, f02=» ( h P XSTAT DEDSDYKB,DEBINW3 ) P CALL MASK,DEBINW3,W64 ) ( P BNZ DYK050 ) F P* ) Z P* ERROR HANDLING ) d P* ) PERRPRINT ) P PERF DERROR,DEKTAB6 ) * P IB DEBINW2,ERRCAN,ERRCAN,RETUR,KEDITX ) P B SETCREAD ) P* ) P*
0x1939b0…193b44 Dummy {f00=0x007b, f01=0x0190, f02=»CEL2 ) j P B RETUR * PCLEA20 * * P GETABX DEBINW4 GET CURRENT TAB INDEX * * , P DISPLAY 1,DEBINW4,DEBINW4 DISPLAY FIELD * X P B SETCREAD CONTINUE * P* * P EJECT * PCOR030 * P CBE BIN16,W4,COR035 * , P IB DEBINW2,DUMMY,DUMMY,DUMMY,DUMM
0x193b44…193cd8 Dummy {f00=0x007b, f01=0x0190, f02=»COR040,COR120,COR050, ENT,RFW C * ( P DUMMY,COR100,COR080,COR090 RDL,RIN + ( PCOR035 + T , P IB DEBINW2,DUMMY,DUMMY,DUMMY,DUMMY, C + b $ P CORRET,CORRET,DUMMY,DUMMY, C + " P DUMMY,DUMMY,DUMMY,DUMMY, C + P DUMMY,KSTS,KPRT,DUMMY, C + " P DU
0x193cd8…193e6c Dummy {f00=0x007b, f01=0x0190, f02=» NEXT FIELD + ~ P* , PCOR040 , P ERASE 2,W5,W5 CLEAR LDISP , , PCOR045 , N P PERF MTEXT LDES-MATCH , * P CBNE DEBINW2,W0,COR499 JUMP IF NOT OK , z PCOR046 , P CLEAR BOOL5 , , P PERF DEUNPF,CURSEC,W1 UNPACK NEXT FIELD , & P TBF BOOL2,COR
0x193e6c…194000 Dummy {f00=0x007b, f01=0x0190, f02=»URRENT , p P B CONT5 - P* - , P* CORRECTION LINE-LEVEL 'RFW'-KEY - ( P* - DISPLAY NEXT LINE - X P* - | PCOR050 - P ERASE 2,W5,W5 ERASE LDISP - PCOR051 - & P SET DOOL8 T=IHIBIT DISPLAY ERASES - P PERF MTEXT 'LDES'-MATCH -
0x194000…194194 (1, 276) Dummy {f00=0x007b, f01=0x0190, f02=»5 JUMP IF NO FIELD - P TBT BOOL5,COR052 . $ P PERF FDIR FIELD DIRECTIVE-PROC . 4 P CBNE DEBINW2,W0,COR499 . 2 P CBNE EOLINE,W1,COR051 JUMP IF NOT END-OF-LINE . | PCOR053 . $ P ADD CURSEC,W1 ADJUST BUFFERPOS . PCOR055 . 0 P DISPLAY 2,W3,W7 D
0x194194…194328 Dummy {f00=0x007b, f01=0x0190, f02=»NE . P CBNE DEBINW2,W0,COR499 / P B COR010 / * P* / < . P* CORRECTION FIELD-LEVEL 'ENT'-KEY / F " P* - DISPLAY NEXT FIELD / x P* / PCOR060 / " P CLEAR DOOL3 F= PURE CORRMODE / $ P PERF FDIR FIELD DIRECTIVE PROC / P CBN
0x194328…1944bc Dummy {f00=0x007b, f01=0x0190, f02=» LEVEL 'CORR'-KEY CHANGE FIELD PARAMETERS / x P* 0 2 PCOR070 0 < ( P SET DOOL3 T= TEMPORARY MODE CHANGE 0 J PCOR075 0 v P MOVE DEBINW4,W4 0 P B CONT5 0 P* 0 . P* CORRECTION LINE-LEVEL 'RDEL'-KEY 0 $ P* -DELETE CURRENT LINE
0x1944bc…194650 Dummy {f00=0x007b, f01=0x0190, f02=»INW2,W1,COR498 END-OF-FORMAT 0 P TBF BOOL5,COR085 1 $ P B COR010 GO ON NEXT LINE 1 > P* 1 ` " P* CORRECTION LINE-LEVEL 1 j P* - INSERT NEW LINE 1 P* 1 PCOR090 1 P ERASE 2,W6,W6 ERASE LDES 1 . P SET DOOL4 T=CHHANGE MODE IN
0x194650…1947e4 Dummy {f00=0x007b, f01=0x0190, f02=»CONF CURR LINE 1 x ( P CLEAR DOOL2 F=CURR LINE NOT DELETED 2 P MOVE DEBINW4,W3 2 B P B CONT5 2 Z P* 2 j , P* CORRECTION LINE-LEVEL 'COR'-KEY 2 t P* 2 PCOR100 2 ( P SET DOOL5 T=TEMPORARY MODE CHHANGE 2 * P CLEAR DOOL6 F=DEFGTC/MTEXT NOT
0x1947e4…194978 Dummy {f00=0x007b, f01=0x0190, f02=»LEAR DOOL6 2 P CBE EOLINE,W1,COR058 3 P SET DOOL4 3 0 P B COR075 3 B P* 3 T . P* CORRECTION -LINE-LEVEL 'TOT'-KEY 3 ^ $ P* - KEEP REST OF FORMAT 3 P* 3 PCOR120 3 & P SET DOOL8 T=INHBIT DISPLAY-ERASE 3 P PERF MTEXT LD
0x194978…194b0c Dummy {f00=0x007b, f01=0x0190, f02=»OOL5 3 , P PERF DEUNPF,CURSEC,W1 UNPACK NEXT FIELD 4 ( P TBT BOOL5,COR125 JUMP IF EOL FOUND 4 < & P PERF FDIR FIELD DIRECTIVE PROCESS 4 h P CBNE DEBINW2,W0,COR499 4 PCOR130 4 0 P CBNE EOLINE,W1,COR120 END OF LINE NOT FOUND 4 , P PERF DEUNPF,CURSEC,
0x194b0c…194ca0 Dummy {f00=0x007b, f01=0x0190, f02=»OINTER:=0 4 z * P PERF DEUNPL,DEBIN5 UNPACK LINE=>LDES 5 ( P CBE DEBINW2,W1,COR498 END-OF-FORMAT 5 @ P B COR120 GO ON 5 l P* 5 & P* CORRECTION END-OF-FORMAT 5 P* 5 PCOR498 5 & P MOVE DEBINW2,W4 SIMULATE TOT-KEY 5 PCOR499 5 P
0x194ca0…194e34 (1, 277) Dummy {f00=0x007b, f01=0x4052, f02=»FORMF FRMT 5 P FTEXT ' 1' 6 P FMEND 6 & P PEND 6 4 END 6 B@ 6 N
0x194e34…194fc8 Dummy {f00=0x007b, f01=0x2008, f02=» 7 PDIV ENTRY DEFDSC PROGRAM-START * > INCLUDE DEKEYS,LIST H EJECT d DEFDSC PROC r RET PEND END @ * * * * * -OUTPUT: * * *
0x194fc8…19515c Dummy {f00=0x007b, f01=0x0190, f02=»/ !T; 6 MMMMMM~~MM~~MW|Iiy ! %n h / !T ,JWX ! %P h / ! 6 3 W1Ak_+ !" %% h / !T , W Hk ! c % c c _ & !? 0 %% 3? !6 (DTdt_ * ? + ? ,< j ! ! 4 @iW Ai? P ! 5 ? A W @ ! 7 A ? @ ?
0x19515c…1952f0 Dummy {f00=0x007b, f01=0x0190, f02=»% <09 ,08 , $ ? r8 ( 2 0< 'h #Q !j , w j 1!w!Ii j 2! ! !j "" j $" mHj -P !2 _ &{ { )P !Ix 6 * ? &{ { *P !2 _ ({ P !2 _ -P !2 _ { + Ii 09 {$* p!0
0x1952f0…195484 Dummy {f00=0x007b, f01=0x0190, f02=»!* & & & ! 1 0 "}H{ Ij 0 !6 H" W 09 {$*0 P _4 0 "}_? 1 !6 TT _P - PJ !6 ??_&Aj p! u # $ j $!! {1j #!! {2 $ #? &{ @jP { &{ W &{ @jP H{ m *" ! I{ ? % & 4 0# 6 55 555555555W 'I ( W Ij I }I
0x195484…195618 Dummy {f00=0x007b, f01=0x0190, f02=» ' 0" (T W $0$ "W 0$ 4 u C o 4 7 ! i 8 G r U 1 ' v *CFNYGETUSERBALANCE P 'g @ U 20 # - , )
0x195618…1957ac Dummy {f00=0x007b, f01=0x0190, f02=» 0 7 Q ( ` ` H{ Ij 0 !6 H" W 09 {$*0 P _4 0 "}_? 1 !6 TT _P - PJ !6 ??_&Aj p! u # $ j $!! {1j #!! {2 $ #? &{ @jP { &{ W &{ @jP H{ m *" ! I{ ? % & 4 0# 6 55 555555555W 'I ( W Ij I }I
0x1957ac…195940 Dummy {f00=0x007b, f01=0x0190, f02=» > 2 6 :@g0 0} { 1 An@ An2 _ 0 0}@n_ 6 5 ? Ag@ij !m ) 2 AiW 09 {$* p!0 AnP 0 ! 0$ 1 2 _Q 1W XT 8 2 Jgwjm & {!_: 2 _ ({ P _ &! 1 2 -P 7 nn &{ _ 0 0}AjA{ p! u IiL
0x195940…195ad4 (1, 278) Opaque[0x194]
0x195ad4…195c68 # DirEnt {nam=»DE24ST«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0f80, f03=0x0000}
0x195ad4…195c68 IdxSect {
0x195ad4…195c68 f00 = 0x007c // 0x195ad4 @0x0
0x195ad4…195c68 f01 = 0x0004 // 0x195ad6 @0x2
0x195ad4…195c68 gno = [ // 0x195ad8 @0x4
0x195ad4…195c68 [0x00]: C0x007c.0x0.0
0x195ad4…195c68 [0x01]: C0x007c.0x1.0
0x195ad4…195c68 ]
0x195ad4…195c68 }
0x195c68…195dfc Dummy {f00=0x007c, f01=0x0190, f02=» $ P IDENT DE24ST REL 10.0 80-04-11 P 79-12-14/JAER , P* D 2 P* THIS FORMAT PROCESS FOLLOWING FUNTION N P* - COPY OF FORMAT P* L P************************************************************************ DDUM DE
0x195dfc…195f90 Dummy {f00=0x007c, f01=0x0190, f02=» EXT DEDISC DISC-ROUTINE P EXT DERROR ERROR-MESSAGES * P EXT RESTOR RESTORE ORIG.-DESC-POINTER B ( P EXT DEPOOL BUFFERRESERVATION-MODUL p P EXT FEDIT ( P EXT ATTDB ATTACH FORMAT-DESCRIPTOR P INCLUDE DEKEYS,LIST EJECT *
0x195f90…196124 Dummy {f00=0x007c, f01=0x0190, f02=» P* P EJECT PDE24ST PROC PDEST24 0 : P CALL RESTOR,W0,W16,PWBDB4 RESTOR ORIG.-DESC.-POINTER > P MOVE PINDFR,W0 | P ATTFMT F24CF $ P SET DEPROMPT PROMTTEXT-DISPLAY PDE24CA " P PERF DECLRA DATA-ENTRY-SCREEN PDE
0x196124…1962b8 Dummy {f00=0x007c, f01=0x0190, f02=»CANCEL P CLEAR DEPROMPT P B DE24CA & PERROR 8 P PERF DERROR,DEKTAB6 F P IB DEBINW2,CHANGE,DEST24 b P B RELRET P EJECT P* $ P* LOCK FORMAT IN BUFFERS P* & P* DUPL = FORMAT TO BE COPIED
0x1962b8…19644c Dummy {f00=0x007c, f01=0x0190, f02=»JUMP IF NOT OK P MOVE STRG10A,='F' 6 P XCOPY STRG10A,W1,W6,DUPL,W0 LOAD OLD FORMAT NAME 0 6 P CALL ATTDB,BPOOL(PINDFR),W4,W10 ATTACH DESCRIPTOR j 4 P MOVE ELMNO,FLIND(W1) STORE FORMATBUFFER-POINTER . P ATTFMT BPOOL(ELMNO) ATTACH DEFINED FORMAT
0x19644c…1965e0 Dummy {f00=0x007c, f01=0x0190, f02=»RSOR ON LAST FIELD p 0 P MOVE DEBINW4,=W'30' PRESS ENTER TO CONFIRM' P PERF DERROR,DEKTAB7 N $ P IB DEBINW2,CHAN20,CHAN20,RELRET j PCHAN10 4 P PERF DEPOOL,W8,PINDFR,BIN16,STRG10A FORMAT LOCK P BNOK CHERR 6 P XCOPY STRG10A,W1,W6,FORMAT,
0x1965e0…196774 (1, 279) Dummy {f00=0x007c, f01=0x018e, f02=» BERR CHERR P PERF DERROR,DEKTAB6 P B RELRET 0 PCHERR B P PERF DERROR,DEKTAB6 P P IB DEBINW2,CHAN10,CHAN20 l P B RELRET PCHAN20 8 P PERF DEPOOL,W6,PINDFR,BIN16,STRG10A RELEASE BUFFERS P B DEST24 P EJECT
0x196774…196908 Dummy {f00=0x007c, f01=0x0190, f02=» P RET PEND P EJECT PF24CF FRMT , P FSL > P FTEXT '24 COPY ' J P FCOPY ='FORMAT' d P FNL | P FCOPY ='FORMAT' P FTEXT ' TO BE COPIED:' 6 P FKI 21,APPL=113,MINL=1,MAXL=6,ALPHA,NEOI,ME,NCLR P FCOPY DUPL
0x196908…196a9c Dummy {f00=0x007c, f01=0x406e, f02=»CLR b P FCOPY FORMAT P FNL " P FKI 1 . P FCOPY HEX00 < P FMEND P END ^@ jORMAT' d P FNL | P FCOPY ='FORMAT' P FTEXT ' TO BE COPIED:' 6 P FKI 21,APPL=113,MINL=1,MAXL=6,ALPHA,NEOI,ME,NCLR P FCOPY DUPL
0x196a9c…196c30 Dummy {f00=0x007c, f01=0x2008, f02=»
0x196c30…196dc4 Dummy {f00=0x007c, f01=0x0190, f02=» a =h% % P ! T ZLABN , BINDEC < ZVALUE N BINHEX ` , ( X( r ZCLASS ZREFER , ( FORMAT '@ b UNUSED , ( _p ! P
0x196dc4…196f58 Dummy {f00=0x007c, f01=0x4026, f02=» R P t @ " ZLABN , BINDEC < ZVALUE N BINHEX ` , ( X( r ZCLASS ZREFER , ( FORMAT '@ b UNUSED , ( _p ! P
0x196f58…1970ec Dummy {f00=0x007c, f01=0x4180, f02=» IDENT MAP3 MAP3Y " MAP3Y 2 CURPRT D BLANK V TRANSF f LISTN x MODLG , ( A @ 0 = # * & D @ bLCV Z
0x1970ec…197280 Dummy {f00=0x007c, f01=0x40fe, f02=» IDENT MAP4 MAP4Y " MAP4Y 2 LSTSTA D LSTNN V LSTECB f , ( P W _ _ W : x IOERR H V W W $ @ @
0x197280…197414 (1, 280) Opaque[0x194]
0x197414…1975a8 # DirEnt {nam=»DEPOOL«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0f90, f03=0x0000}
0x197414…1975a8 IdxSect {
0x197414…1975a8 f00 = 0x007c // 0x197414 @0x0
0x197414…1975a8 f01 = 0x0010 // 0x197416 @0x2
0x197414…1975a8 gno = [ // 0x197418 @0x4
0x197414…1975a8 [0x00]: C0x007c.0x2.0
0x197414…1975a8 [0x01]: C0x007c.0x3.0
0x197414…1975a8 [0x02]: C0x007d.0x0.0
0x197414…1975a8 [0x03]: C0x007d.0x1.0
0x197414…1975a8 [0x04]: C0x007d.0x2.0
0x197414…1975a8 [0x05]: C0x007d.0x3.0
0x197414…1975a8 [0x06]: C0x007e.0x0.0
0x197414…1975a8 [0x07]: C0x007e.0x1.0
0x197414…1975a8 ]
0x197414…1975a8 }
0x1975a8…19773c Dummy {f00=0x007c, f01=0x0190, f02=» $ P IDENT DEPOOL REL 10.0 80-04-11 P 80-03-26/DALI , DDUM DEDDIV D @ <************************************************************ X @ <* THIS PROCEDURE HANDLES POOLING FUNCTIONS. THE CALLING * @ <* SEQUENCE AND THE FORMAL PARAMETERS ARE
0x19773c…1978d0 Dummy {f00=0x007c, f01=0x0190, f02=»FF2>,<KEY> * h @ <* * @ <************************************************************ ` P* : P* FOLLOWING DATA ITEMS ARE USED BY THE DEPOOL ROUTINES . P* AND ORIGINATE CONTENTS OF
0x1978d0…197a64 Dummy {f00=0x007c, f01=0x0190, f02=» BIN15 P* BIN16 P* DEBINW3 , P* DEBINW4 F P* POOL1 ` P* STR1A x P* STR64A P* @ <************************************************************ P EJECT @ <****
0x197a64…197bf8 Dummy {f00=0x007c, f01=0x0190, f02=» THE RETURNED BUFFERS ARE FREE FOR USE : =* BY ANY TASK FOR THE SAME PURPOSES. 6 < 8* THE COUNTER OF THE PASSED BUFFERCHAIN t $ P* IS SET TO 1. * =* PASSED PARAMETERS: 6
0x197bf8…197d8c Dummy {f00=0x007c, f01=0x018e, f02=» RETURNED PARAMETERS: > 9* <BUFF1> = POOLINDEX TO THE FIRST RESERVED BUFFER $ ( P* IF NO BUFFERS = 0 f * @ <************************************************************ * , (* <FC> = 2 GET BUFFERS
0x197d8c…197f20 Dummy {f00=0x007c, f01=0x0190, f02=» X < 8* THE COUNTER OF THE PASSED BUFFERCHAIN $ P* IS SET TO 1. H * =* PASSED PARAMETERS: p 6 P* <BUFF1> = TOTAL NUMBER OF WANTED BUFFERS < >* <BUFF2> = NUMBER OF WANTED CONSECUTIVE
0x197f20…1980b4 (1, 281) Dummy {f00=0x007c, f01=0x0190, f02=» IF NO BUFFERS = 0 * & @ <************************************************************ 0 P EJECT t @ <************************************************************ * $ * <FC> = 3 CHAIN BUFFERS : 6*
0x1980b4…198248 Dummy {f00=0x007c, f01=0x0190, f02=»D BUFFERS f $ P* IS SET TO 1. * 3* PASSED PARAMETERS: : 6 P* <BUFF1> = TOTAL NUMBER OF WANTED BUFFERS h 8 P* <BUFF2> = POOLINDEX TO THE RESERVED BUFFER B P* IN THE CHAIN AFTER WHIC
0x198248…1983dc Dummy {f00=0x007c, f01=0x0190, f02=» = POOLINDEX TO THE ADDED BUFFER. ( P* IF NO BUFFERS = 0 * > P* <BUFF2> = POOLINDEX TO THE FIRST RESERVED BUFFER V $ * IN THE CHAIN * @ <************************************************************
0x1983dc…198570 Dummy {f00=0x007c, f01=0x0190, f02=»* THE NAME AND THE TYPE > :* OF THE USER IS PUT INTO THE POOLELEMENT 0 < 8* THE COUNTER OF THE PASSED BUFFERCHAIN r . P* WILL NOT BE INCREASED . * %* PASSED PARAMETERS
0x198570…198704 Dummy {f00=0x007c, f01=0x0190, f02=»AME. THE NAME IS STRG7 VARIABEL CONSISTING | < 8* OF A STRG1 TYPE AND STRG6 NAME. 2 0 ,* RETURNED PARAMETERS: NONE r * @ <************************************************************ P EJECT @ <******
0x198704…198898 Dummy {f00=0x007c, f01=0x0190, f02=»UFFERPOOL IS SEARCHED FOR A POOL- x : 5* ELEMENT OF THE SAME NAME AND TYPE. * < 8* THE COUNTER OF THE PASSED BUFFERCHAIN h * P* IS INCREASED BY 1. > P* IF THE SEARCHED BUFFER IS FOUND
0x198898…198a2c Dummy {f00=0x007c, f01=0x0190, f02=»1>,<BUFF2> = USED FOR RETURNVALUES B >* <KEY> = NAME. THE NAME IS STRG7 VARIABEL CONSISTING * < 8* OF A STRG1 TYPE AND STRG6 NAME. p , '* RETURNED PARAMETERS: @ ;* <BUFF1> = POOLINDEX TO THE BUFF
0x198a2c…198bc0 Dummy {f00=0x007c, f01=0x0190, f02=» 4 P* 2 = FOUND LOCKED 0 P* 0 = NOT FOUND < * p @ <************************************************************ z P EJECT @ <************************************************************
0x198bc0…198d54 (1, 282) Dummy {f00=0x007d, f01=0x0190, f02=» IF THE COUNTER AFTERWARDS IS 0, THE > P* BUFFER IS PUT ON LRUQUE IF IT WAS FREE. 4 8 P* IF IT WAS LOCKED IT BECOMES FREE v 8 P* IMMEDIATLY AND IS NOT PUT ON THE & P* LRUQUE
0x198d54…198ee8 Dummy {f00=0x007d, f01=0x0190, f02=» IN THE CHAIN , '* RETURNED PARAMETERS: P* <BUFF1> = SET TO 0 P * t @ <************************************************************ ~ P EJECT @ <********************************************************
0x198ee8…19907c Dummy {f00=0x007d, f01=0x0190, f02=» ELEMENT OF THE SAME NAME AND TYPE. < 8* THE COUNTER OF THE PASSED BUFFERCHAIN 2 . P* WILL NOT BE INCREASED . r * %* PASSED PARAMETERS: 4 0* <BUFF1>,<BUFF2> = USED FOR RETURNVALUES B
0x19907c…199210 Dummy {f00=0x007d, f01=0x0190, f02=»* RETURNED PARAMETERS: @ ;* <BUFF1> = POOLINDEX TO THE BUFFER THAT MATCHED THE 0 6 P* TYPE AND NAME. IF NOT FOUND = 0 t 2 P* <BUFF2> = RETURNCODE. 1 = FOUND FREE 4 P* 2 = F
0x199210…1993a4 Dummy {f00=0x007d, f01=0x0190, f02=»****** Z P EJECT @ <************************************************************ * ` $ P* <FC> = 8 LOCK BUFFERS j : 6* THE RETURNED BUFFERS ARE LOCKED AND > P* RESERVED FOR USE ONLY BY THIS TASK ON
0x1993a4…199538 Dummy {f00=0x007d, f01=0x018e, f02=»OUNTER OF THE PASSED BUFFERCHAIN x . P* WILL NOT BE INCREASED . ( * %* PASSED PARAMETERS: Z > 9* <BUFF1> = POOLINDEX TO THE FIRST RESERVED BUFFER $ * IN THE CHAIN * @ <************
0x199538…1996cc Dummy {f00=0x007d, f01=0x0190, f02=» * " P* <FC> = 9 SCAN BUFFER < P* THE BUFFERPOOL IS SCANNED FOR A POOL- 4 , P* ELEMENTCONSISTING OF. t < 8* THE COUNTER OF THE PASSED BUFFERCHAIN . P* WILL NOT BE INCRE
0x1996cc…199860 Dummy {f00=0x007d, f01=0x0190, f02=»AME. THE NAME IS STRG7 VARIABEL CONSISTING | < 8* OF A STRG1 TYPE AND STRG6 NAME. 2 , '* RETURNED PARAMETERS: r @ ;* <BUFF1> = POOLINDEX TO THE BUFFER THAT MATCHED THE 6 P* TYPE AND NAME.
0x199860…1999f4 (1, 283) Dummy {f00=0x007d, f01=0x0190, f02=» 0 = NOT FOUND * 2 @ <************************************************************ < P EJECT @ <************************************************************ * $ P* <FC> = 10 SET BUFFERS 6 P*
0x1999f4…199b88 Dummy {f00=0x007d, f01=0x0190, f02=» THE COUNTER OF THE PASSED BUFFERCHAIN . P* WILL NOT BE INCREASED . 0 * %* PASSED PARAMETERS: b > 9* <BUFF1> = POOLINDEX TO THE FIRST RESERVED BUFFER $ * IN THE CHAIN B >* <KEY>
0x199b88…199d1c Dummy {f00=0x007d, f01=0x0190, f02=» RETURNED PARAMETERS: NONE * $ @ <************************************************************ . P* r & P* <FC> = 11 RELEASE BUFFER | 6 P* THE CHAINLINKS FOR THE BUFFERS 4 P* ON DISK ARE CLEARED
0x199d1c…199eb0 Dummy {f00=0x007d, f01=0x018e, f02=» PASSED PARAMETERS: > 9* <BUFF1> = POOLINDEX TO THE FIRST RESERVED BUFFER " $ * IN THE CHAIN d * @ <************************************************************ PDIV ENTRY DEPOOL P EXT SETB
0x199eb0…19a044 Dummy {f00=0x007d, f01=0x0190, f02=» P CLEAR POOL1 P IB FC C P DEPO1 C * P DEPO1 C < P DEPO3 C N P DEPO4 C ` P DEPO5 C r P DEPO6 C P DEPO5 C P DEPO8 C P DEPO5 C P DEPO4 C P DEPO6 FC=11 P EJECT PDEPO1
0x19a044…19a1d8 Dummy {f00=0x007d, f01=0x0190, f02=» FOR CONSECUTIVES z PDEPO3 & P MOVE BIN15,W1 STARTINDEX IN POOL ( PDEPO11 R . P MOVE STR64A,HEX00 DROP TEMPORARY RESERVED ` PDEPO12 . P MOVE STR1A,RPOOL(BIN15) GET FILETYPE CODE PDEPO13 0 P CBE STR1A,=C'X',DEPO18 JUMP IF FREE BUF
0x19a1d8…19a36c Dummy {f00=0x007d, f01=0x0190, f02=»15,BPOOL(W1) $ P BNOK DEPO16 JUMP IF LAST BUFFER PDEPO15 < . P TBF POOL1,DEPO12 JUMP IF NOT CONSECUTIVE J . P ADD BUFF1,BIN16 ADJUST REQUESTED BUFFERS | . P MOVE BIN16,W0 SET NUMBER OF CONSECUTIVE=0 P REQUESTED P B DEPO11 ( PDE
0x19a36c…19a500 Dummy {f00=0x007d, f01=0x0190, f02=» POOL1,DEPO17 JUMP IF CONSEC REQ ( P MOVE BIN15,W1 START FROM BEGINNING ( P B DEPO12 T PDEPO17 f . P ADD BUFF1,BIN16 ADJUST REQUESTED BUFFERS t P B DEPO05 P EJECT P* P* HANDLE FREE BUFFERS P* PDEPO18 P X
0x19a500…19a694 (1, 284) Dummy {f00=0x007d, f01=0x0190, f02=»L1,DEPO19 JUMP IF NOT CONSECUTVE P ADD BIN16,W1 REQUESTED ( 2 P CBNE BUFF2,BIN16,DEPO19 JUMP IF NOT NUMBER OF H $ P REQUESTED CONSECUTVES REACHED ~ P CLEAR POOL1 PDEPO19 & P MOVE DEBINW3,W0 RESERV TEMPORARY * P MATCH STR64A,DEBINW3,
0x19a694…19a828 Dummy {f00=0x007d, f01=0x0190, f02=» JUMP IF ENOUGH BUFFERS P ADD BIN15,W1 P CALL CMPIND,BIN15,BPOOL(W1) 6 P BNOK DEPO16 Z P B DEPO12 CONTINUE n PDEPO20 P MOVE BUFF1,BUFF2 * P PERF DEPORE,BUFF1,FC RESERV PERMANENT P B DEPOOK P EJECT PDEPO4
0x19a828…19a9bc Dummy {f00=0x007d, f01=0x0190, f02=» IF MORE THAN ONE USER t $ P XCOPY RPOOL(BUFF1),W1,W6,KEY,W1 P XCOPY DEBINW3,W1,W1,KEY,W0 F 0 P CBNE FC,W10,DEPO41 JUMP IF NOT ACCUMULATORS j & P XCOPY RPOOL(BUFF1),W11,W6,KEY,W7 PDEPO41 ( P XCOPY DEBINW4,W1,W1,RPOOL(BUFF1),W0 $ P CBE D
0x19a9bc…19ab50 Dummy {f00=0x007d, f01=0x0190, f02=» RPOOL(BUFF1),W0,W1,DEBINW3,W1 PDEP430 MOVE STR1A,KEY ! & * P CBE STR1A,=C'F',DEP440 HANDLE FORMATS ! D P B DEPOOK ! r & PDEP440 STORE THE RECORDLENGTH OF ! 8 P XCOPY RECLNTH,W0,W2,BPOOL(BUFF1),W4 THE DATARECORD ! * P MOVE BIN15,W0 GET THE TOTAL N
0x19ab50…19ace4 Dummy {f00=0x007d, f01=0x018e, f02=»OL(BUFF1),W18 DESCRIPTORRECORDS ! z & P MOVE DEBINW4,BUFF1 START OF CHAIN " ( . P CBE BIN16,W0,DEP470 JUMP IF NO DESCRIPTOR " R ( P SUB BIN15,BIN16 JUST FORMATRECORDS " PDEP450 MOVE DEBINW3,DEBINW4 " < P XCOPY DEBINW4,W1,W1,RPOOL(DEBINW3),W8 GET LINK TO N
0x19ace4…19ae78 Dummy {f00=0x007d, f01=0x018e, f02=» ( PDEP475 ADD BIN16,W1 SET FLINK INDEX # P MOVE FLIND(BIN16),DEBINW4 # 0 PDEP480 SUB BIN15,W1 # R ( P BNZ DEP450 JUMP IF MORE FORMATRECS. # n P B DEPOOK # P EJECT # PDEPO5 # P MOVE BUFF2,W0 # P MOVE DEBINW3,W1 # P MOVE STR1A,KEY #
0x19ae78…19b00c Dummy {f00=0x007d, f01=0x0190, f02=» PDEPO52 $ P ADD DEBINW3,W1 $ " P CALL CMPIND,DEBINW3,BPOOL(W1) $ * $ P BNOK DEPON9 JUMP IF LAST INDEX $ P P B DEPO51 $ x PDEPO53 $ 0 P CBNE FC,W9,DEPO58 JUMP IF NOT ACCUMULATORS $ P MOVE BIN15,W11 $ , P MATCH RPOOL(DEBINW3),BIN15,W6,KEY,W
0x19b00c…19b1a0 Dummy {f00=0x007d, f01=0x0190, f02=» MOVE BUFF2,W1 $ P B DEPO55 % PDEPO54 % ( P MOVE BIN15,W0 % 6 . P MATCH RPOOL(DEBINW3),BIN15,W1,STR1A,W0,W1 % L P BERR DEPO52 % ~ P MOVE BUFF2,W2 % PDEPO55 % P CBNE STR1A,=X'D4',DEP565 % P JUMP IF NOT VALUESET % $ P CBE ELMNO,W0,DE
0x19b1a0…19b334 (1, 285) Dummy {f00=0x007d, f01=0x0190, f02=»8 % l P CBL ELMNO,BIN15,DEP560 & P CBNG ELMNO,BIN16,DEP565 & * PDEP560 & J P MOVE BUFF2,W0 & X P B DEPO52 & n PDEP565 & P MOVE BUFF1,DEBINW3 & P CBE BUFF2,W2,DEP570 & $ P CBE FC,W5,DEPO59 JUMP IF SEARCH & PDEP570 & P B DEPOOK JU
0x19b334…19b4c8 Dummy {f00=0x007d, f01=0x0190, f02=»6 JUMP IF START OF CHAIN & P SET POOL1 ALREADY HANDLED. ' , P CBNE DEBINW4,W0,DEPO56 JUMP IF NOT = 0 ' D P XCOPY STR1A,W0,W1,BIN15,W1 ' t & P CALL GETIND,LRUQUE,BIN16,DEBINW3 ' P MOVE DEBINW3,W0 ' < P MATCH LRUQUE,DEBINW3,BIN16,STR1A,W0,W1 LOOK F
0x19b4c8…19b65c Dummy {f00=0x007d, f01=0x0190, f02=»0 ' r PDEPO56 ( P ADD DEBINW4,W1 ( 6 P XCOPY RPOOL(BIN15),W7,W1,DEBINW4,W1 STORE COUNTER ( 0 : P XCOPY DEBINW3,W1,W1,RPOOL(BIN15),W8 GET LINK TO NEXT ( j . P CBE DEBINW3,W0,DEPOOK JUMP IF LAST BUFFER ( P B DEPO59 ( P EJECT ( PDEPO6 ( P
0x19b65c…19b7f0 Dummy {f00=0x007d, f01=0x0190, f02=»6 MAKE AN IDLE-LOOP ( ~ PDEPO61 ) P CBNE FC,W11,DEP610 ) * P MOVE STR64A,HEX00 ) F P B DEP660 ) ` PDEP610 ) r 4 P XCOPY DEBINW4,W1,W1,RPOOL(BIN15),W7 GET COUNTER ) $ P SUB DEBINW4,W1 DECREASE COUNTER ) P BG DEPO62 ) & P MOVE STR1A,RPOOL(BIN1
0x19b7f0…19b984 Dummy {f00=0x007d, f01=0x0190, f02=»SET ) r PDEP620 * P MOVE STR1A,=C'X' * & P COPY RPOOL(BIN15),W0,W1,STR1A,W0 * 4 P B DEPO62 * ^ PDEP630 * p & P CALL GETIND,LRUQUE,BIN16,DEBINW3 * ~ P MOVE DEBINW3,W0 * @ P MATCH LRUQUE,DEBINW3,BIN16,HEX00,W0,W1 LOOK FOR EMPTY PLACE * P BOK
0x19b984…19bb18 Dummy {f00=0x007d, f01=0x018e, f02=»6),W0,W1,STR1A,W0 * P DLETE LRUQUE,W0,W1 + P SUB DEBINW3,W1 + 6 PDEP640 + N P SET POOL1 ALREADY HANDLED. + P XCOPY STR1A,W0,W1,BIN15,W1 + & P INSRT LRUQUE,DEBINW3,W1,STR1A,W0 + PDEPO62 + 6 P XCOPY RPOOL(BIN15),W7,W1,DEBINW4,W1 STORE C
0x19bb18…19bcac Dummy {f00=0x007d, f01=0x0190, f02=» + j PDEP680 , P MOVE BIN15,BIN16 , P CBNE BIN15,W0,DEPO61 , 0 P MOVE BUFF1,W0 , N PDEP690 , d P B DEPOOK , r P EJECT , PDEPO8 MOVE DEBINW4,W0 , 4 P XCOPY DEBINW4,W1,W1,RPOOL(BUFF1),W7 GET COUNTER , 2 P CBNE DEBINW4,W1,DEPON11 JUMP IF
0x19bcac…19be40 Dummy {f00=0x007d, f01=0x0190, f02=»BINW4,W1 , t P B DEPOOK - P EJECT - " P* - 0 P* BAD RESULT - : P* - N PDEPON9 MOVE DEBINW4,W9 - X P B DEPONO - v PDEPON11 MOVE DEBINW4,W11 - " P MOVE STR6B,='FTJB' FUNCTIONS - ( P XCOPY STR1A,W0,W1,KEY,W0 CHECK FUNC - P MOVE BIN16,W0
0x19be40…19bfd4 (1, 286) Dummy {f00=0x007e, f01=0x0190, f02=» B DEPON20 - PDEPON13 MOVE DEBINW4,W13 . PDEPONO . 2 P MOVE BUFF1,W0 . @ PDEPON20 . V P CMP W1,W2 . f P RET . x P* . P* BUFFERS FOUND . P* . PDEPOOK . P MOVE DEBINW4,W0 . P CMP W1,W1 . RET . PEND . P EJECT
0x19bfd4…19c168 Dummy {f00=0x007e, f01=0x0190, f02=»THE CALLING SEQUENCE IS: . P* PERF DELRUF / P* / > > P********************************************************* / H PDELRUF PROC / P MOVE DEBINW4,W0 / : P XCOPY DEBINW4,W1,W1,LRUQUE,W0 GET INDEX TO THE FIRST / P BUFFER IN LRUQUE
0x19c168…19c2fc Dummy {f00=0x007e, f01=0x018e, f02=»DEBINW3,W0 / P MOVE STR1A,=C'X' FREE-MARK 0 PDEL11 0 6 ( P XCOPY RPOOL(DEBINW4),W0,W1,STR1A,W0 0 D < P XCOPY DEBINW3,W1,W1,RPOOL(DEBINW4),W8 GET LINK TO NEXT 0 p * P CBE DEBINW3,W0,DEL12 JUMP IF LINK = 0 0 2 P XCOPY RPOOL(DEBINW4),W8,W1,W0,W1 SET LINK
0x19c2fc…19c490 Dummy {f00=0x007e, f01=0x0190, f02=» 0 b ( P CALL GETIND,LRUQUE,DEBINW3,DEBINW4 1 P SUB DEBINW3,W1 1 4 & P XCOPY LRUQUE,DEBINW3,W1,HEX00,W0 1 L P CMP W1,W1 1 v P RET 1 P PEND 1 P EJECT 1 8 P**************************************************** 1 2 P* THIS PROCEDURE RESERV THE
0x19c490…19c624 Dummy {f00=0x007e, f01=0x0190, f02=»ORE,<WBIN>,<FC> 1 ~ P* 2 & P* RETURNED PARAMETER: 2 " 6 P* <WBIN> = POOLINDEX TO THE FIRST RESERVED 2 L & P* BUFFER IN RPOOL. 2 8 P**************************************************** 2 PDEPORE PROC WBIN,FC 2 P
0x19c624…19c7b8 Dummy {f00=0x007e, f01=0x0190, f02=» DEO1B 2 PDEO1 3 * P MOVE STR1A,HEX00 BUFFER WITHOUT LOCK 3 PDEO1B 3 H P MOVE WBIN,W0 3 V 0 P XCOPY WBIN,W1,W1,STR64A,W0 GET FIRST BUFFER 3 l P B DEO3B 3 PDEO3 3 P MOVE STR1A,RPOOL(WBIN) 3 & P XCOPY BIN15,W1,W1,RPOOL(WBIN),W8 3 P B
0x19c7b8…19c94c Dummy {f00=0x007e, f01=0x0190, f02=»,W7,W1,W1,W1 SET COUNTER TO 1 3 ~ * P ADD DEBINW3,W1 POINTER TO NEXT INDEX 4 & PDEO3C 4 T 6 P XCOPY DEBINW4,W1,W1,STR64A,DEBINW3 GET NEXT INDEX 4 b 0 P CBE DEBINW4,W0,DE04 JUMP IF NO MORE BUFFERS 4 8 P XCOPY RPOOL(WBIN),W8,W1,STR64A,DEBINW3 LINK TO NEXT 4
0x19c94c…19cae0 Dummy {f00=0x007e, f01=0x40c4, f02=»COPY RPOOL(WBIN),W8,W1,BIN15,W1 4 PDEPO90 5 ( 8 P XCOPY WBIN,W1,W1,STR64A,W0 RETURN FIRST BUFFERINDEX 5 6 P RET 5 r P PEND 5 ~ P END 5 PTRA /S 5 EJECT 5 END 5 @ 5 FERS 4 8 P XCOPY RPOOL(WBIN),W8,W1,STR64A,DEBINW3 LINK TO NEXT 4
0x19cae0…19cc74 (1, 287) Dummy {f00=0x007e, f01=0x2008, f02=» 6 : 6* IF THE COUNTER AFTERWARDS IS 0, THE , '* BUFFER IS MADE FREE. J 0 +* PARAMETERS: SEE <FC> = 3 z * @ ;*********************************************************** EJECT
0x19cc74…19ce08 Dummy {f00=0x007e, f01=0x403a, f02=» $@ 6 ' ; @ > > 8 * & E 2 G f " c P a > 4 " * & y " * & A 8
0x19ce08…19cf9c Dummy {f00=0x007e, f01=0x4014, f02=» HNOD @ @ . * & E 2 G J " c P a > 4 " x * & y " DELAST * & A 8 *
0x19cf9c…19d130 Dummy {f00=0x007e, f01=0x0190, f02=» IDENT P:S024 < " * & @h0E ! P # ( + ? 09 < AhW @ * & - %hZ ( !< % (R ! j n * & K !! ! ( $ 2hZ ! !T * & i !j !! W % 2 !X b ! * & U
0x19d130…19d2c4 Dummy {f00=0x007e, f01=0x0190, f02=»T 0* V f 0" * & T(00 P 0* h P W ! * & ! 0+ 0 06 #@hT A !!4 N * & ; ! 4 ! U 6 _l; | * & Y 2*0! !T Wo0 "T j !! !b * & w Wp Wj Wb Sf !W * &
0x19d2c4…19d458 Dummy {f00=0x007e, f01=0x0190, f02=» !!4 !"4 80 11 / 6 * & ''' ' y ''' "W% ," " . * & + 0 We0F W "_ '_ !0 * & I F ! 2 W 0 0 (P" * & g &W:6 33 33 333 36 # * & W(11 _ !02 _ 11 W 0
0x19d458…19d5ec Dummy {f00=0x007e, f01=0x0190, f02=» 0 p * & C P j !!!WP U00 P m ( * & &W 0) = b !Z/h U ! !Q < * & 9 !4 !03@ T 0% j %! !01 j * & W ! 0F ( ! 6 cv6 * & u C & 4 W 1W 2 * & 00 P " "Jh
0x19d5ec…19d780 Dummy {f00=0x007e, f01=0x018e, f02=» 0* 00 O _U ~ "4 #4 $4 * & 3 : @ r Z < 9 j * & = 8 H = ~ * & [ P+-?T BATCHNUMBERRECORDCON * & y FIRM VALUESETSYMBOLIC: XTTTT9 * &
0x19d780…19d914 (1, 288) Opaque[0x194]
0x19d914…19daa8 # DirEnt {nam=»CDVASM«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0fd0, f03=0x0000}
0x19d914…19daa8 IdxSect {
0x19d914…19daa8 f00 = 0x007e // 0x19d914 @0x0
0x19d914…19daa8 f01 = 0x0004 // 0x19d916 @0x2
0x19d914…19daa8 gno = [ // 0x19d918 @0x4
0x19d914…19daa8 [0x00]: C0x007e.0x2.0
0x19d914…19daa8 [0x01]: C0x007e.0x3.0
0x19d914…19daa8 ]
0x19d914…19daa8 }
0x19daa8…19dc3c Dummy {f00=0x007e, f01=0x0190, f02=» P IDENT CDVASM P* P* $ P* BANKDATA APPLICATION . P* L P* V P* ` " P* CHECK CDV ON ITEM IN INPBUF j P EJECT P* P* USE OF REGISTERS P* REGISTER USE " P* A5 POINTER TO INPBUF (INDEX) P* A2 A
0x19dc3c…19ddd0 Dummy {f00=0x007e, f01=0x0190, f02=» FOR MULTIPLY & P* A7 LIMIT FOR DIGITSUM IN CDV-10 P* @ P* J P* T P* PARAMETERS FOR CDV ^ : P* AREA USE CONTENT AT CDVEL0 CDVEL1 CDVTEN | 6 P* A1 MAX FOR RESTART OF WEIGHT 10 10 2 6 P* A7 LIMIT FOR DIGIT
0x19ddd0…19df64 Dummy {f00=0x007e, f01=0x0190, f02=»11 11 10 l P* P* " P* CALLING SEQUENSE , P* N . P* CALL CDV0N,PARAM *CDV10 TEST X P* . P* CALL CDV1N,PARAM *CDV11 TEST P* 6 P* CALL CDV1S,PARAM *CDV11 TEST SPECIAL
0x19df64…19e0f8 Dummy {f00=0x007e, f01=0x0190, f02=»RY CDV0N P ENTRY CDV1N P ENTRY CDV1S $ P ENTRY CDVSUB 8 P ENTRY CHANFC N P EXTRN T:FDSP d P EXTRN I:EVA0 z P EXTRN I:RT1 P* 0 P* HERE IS JOINED COMMON PART OF ALL MODULES P* P NLIST P LIST P
0x19e0f8…19e28c Dummy {f00=0x007e, f01=0x0190, f02=»T CHECK VALUE FOR TOTAL P LDK A1,10 P LDK A7,10 4 P RF CDV20 F P* X P* b " PCDV1S LDK A5,1 FOR GOTABANKEN l * P ST A5,WBASE RESTART VALUE FOR WEIGHT P RB CDV10 P* P* PWBASE DATA 0 PWDIV DATA 0
0x19e28c…19e420 Dummy {f00=0x007e, f01=0x018e, f02=» p P ST A5,WDIV P LDK A1,2 P LDK A7,4 . P* @ & PCDV20 CF A14,I:EVA0 GET PARAM ADDR J P LDK A2,1 t P SUK A5,1 P LDK A3,0 ZERO TO SUM P* PCDV30 LCR A4,A5 FETCH CHAR P ANK A4,/F MASK " P CWK A4,9 IS A
0x19e420…19e5b4 (1, 289) Dummy {f00=0x007e, f01=0x0190, f02=» x P SRL A4,4 SHIFT P ANK A4,/F MASK P CWK A4,9 ALL DONE ? 8 P RF(G) CDV40 YES T P CF A14,CDVSUB n P* P SUK A5,1 DECREMENT POINTER P RB CDV30 P* * PCDV40 LD A8,WDIV GET DIVIDEND FOR SUM P LDR A3,A3
0x19e5b4…19e748 Dummy {f00=0x007e, f01=0x0190, f02=» > 0 z P RB(Z) CDV42 P SUKL A12,1 P CF A14,I:EVA0 4 P LCR A1,A9 J P ANK A1,/F P ADK A1,/D0 n P SCR A1,A9 0 P RB CDV42 GO FOR NEW MISSIONS IN CREDIT PART P EJECT P* 6 P* SUBROUTINE TO MULTIPLY AND ACCUMULATE
0x19e748…19e8dc Dummy {f00=0x007e, f01=0x0190, f02=»IT TO SUM x P SUK A6,1 DECREMENT COUNTER P RB(G) CDVS10 POS. 6 & P CWR A2,A1 IS MULTIPLY BY 2(10) ? P P RF(NE) CDVS30 NO z 4 P CWR A4,A7 SHALL THERE BE DIGIT SUM FO 10-MODULO P RF(NG) CDVS30 NO * P SUK A3,9 YES - SUBTRACT 9 F
0x19e8dc…19ea70 Dummy {f00=0x007e, f01=0x4188, f02=»ASE WEIGHT ~ PCDVS40 RTN A14 P EJECT ( P* 6 P* CHANGE FILE CODE IN ECB @ P* CALL: d * P* CALL CHANFC,DATASET,FILECODE v P* PCHANFC EQU * " P CF A14,T:FDSP GET ECB-ADDRESS & P CF A14,I:EVA0 GET ADDRESS TO BI
0x19ea70…19ec04 Dummy {f00=0x007e, f01=0x2008, f02=» HT ~ PCDVS40 RTN A14 P EJECT ( P* 6 P* CHANGE FILE CODE IN ECB @ P* CALL: d * P* CALL CHANFC,DATASET,FILECODE v P* PCHANFC EQU * " P CF A14,T:FDSP GET ECB-ADDRESS & P CF A14,I:EVA0 GET ADDRESS TO BI
0x19ec04…19ed98 Dummy {f00=0x007e, f01=0x4096, f02=» * F IDENT D:CB10 TRA 3.1 78-11-06 O111 D:CB10 2 D:CB10C D $ P X :C @ & y ( & & & &
0x19ed98…19ef2c Dummy {f00=0x007e, f01=0x0190, f02=» * F IDENT C:CB10 TRA 3.1 78-11-06 O111 C:CB10 2 C:CB10C D & X & l & = | & [ & y & & & & & & -
0x19ef2c…19f0c0 Dummy {f00=0x007e, f01=0x0190, f02=» ; & Y & w & , & < & L & & l & + | & I & g & & & & & &
0x19f0c0…19f254 (1, 290) Opaque[0x194]
0x19f254…19f3e8 # DirEnt {nam=»DE21ST«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0fe0, f03=0x0000}
0x19f254…19f3e8 IdxSect {
0x19f254…19f3e8 f00 = 0x007f // 0x19f254 @0x0
0x19f254…19f3e8 f01 = 0x000a // 0x19f256 @0x2
0x19f254…19f3e8 gno = [ // 0x19f258 @0x4
0x19f254…19f3e8 [0x00]: C0x007f.0x0.0
0x19f254…19f3e8 [0x01]: C0x007f.0x1.0
0x19f254…19f3e8 [0x02]: C0x007f.0x2.0
0x19f254…19f3e8 [0x03]: C0x007f.0x3.0
0x19f254…19f3e8 [0x04]: C0x0080.0x0.0
0x19f254…19f3e8 ]
0x19f254…19f3e8 }
0x19f3e8…19f57c Dummy {f00=0x007f, f01=0x0190, f02=» $ P IDENT DE21ST REL 10.0 80-04-11 P 80-07-14/JAER , P* D P* FORMAT DEFINITION N , P* THIS PROGRAM CREATE FORMATS. p F P* USED VARIABLES : BOOL6 = F GENERAL FORMAT DEFINITION F P*
0x19f57c…19f710 Dummy {f00=0x007f, f01=0x0190, f02=» PRECCUR= LAST FIELDNR IN 'FORM.DEF.'-FORMAT z P* : P DDUM DEDDIV D P PDIV X P* f P ENTRY DE21ST p P* P ENTRY DEFGTC P* , P EXT PRFGUF PRINT USER FORMAT DEFINITION P EXT DERROR ERROR-MESSAGES & P EXT D
0x19f710…19f8a4 Dummy {f00=0x007f, f01=0x018e, f02=» r P* P EXT FLINK FORMAT LINKING & P EXT FCODE FORMAT CODE GENERATION 4 $ P EXT FMOVE FORMAT MOVE PROCEDURE ^ P EXT FEDIT FORMAT EDITING $ P EXT UPDBOL UPDATE BOOLEAN/WORD $ P EXT UPDBIN UPDATE WORD/BOOLEANS P EXT EMPTYT CHEC
0x19f8a4…19fa38 Dummy {f00=0x007f, f01=0x0190, f02=» d P EXT ATTPRT RESERVE PRINTER P EXT DETPRT RELEASE PRINTER , P* P P INCLUDE DEKEYS,LIST Z EJECT v * * KEYTABLES * P* PDEKTAB6 KTAB CLR,CAN,RET P* , PDEKTAB8 KTAB CLR,CAN,RET,ENT,COR,R
0x19fa38…19fbcc Dummy {f00=0x007f, f01=0x018e, f02=»ING THE PICTURE f P* PDE21ST PROC " P* 6 & P SET DEPROMPT T=PROMPTTEXT DISPLAY @ . P TBT BOOL7,DEFD00 JUMP IF CORRECTION MODE j P CLEAR DOOLA . P CBE BIN2,W2,DE22BF JUMP IF BALANCE FORMAT , P CLEAR BOOL6 INDICATE GENERAL FORMATDE
0x19fbcc…19fd60 Dummy {f00=0x007f, f01=0x0190, f02=» : P* RESERVE ONE WORK-BUFFER FOR FORMAT GENERATION 2 P* -ATTACH RESERVED WITH NEW DESCRIPTOR B 2 P* -ATTACH RESERVED BUFFER AS WORK-BLOCK x P* P* DB2 BLK 6 P* <ITEM> BIN X'200200
0x19fd60…19fef4 (1, 291) Dummy {f00=0x007f, f01=0x0190, f02=»* FORTAB STRG (2),80 X'8050001C00020000' 6 P* JOBSPC STRG 160 X'00A0001C' B F P* JOBSPC REDEFINES FORTAB(W2) | P* PDEFD00 , P MOVE BIN16,W0 NUMBER OF CONSEC BUFFERS
0x19fef4…1a0088 Dummy {f00=0x007f, f01=0x0190, f02=» z P PERF DERROR,DEKTAB6 P IB DEBINW2,DEFD00,DEFD00 $ P B RETEX F PDEFD10 V 4 P MOVE WORK(W5),BIN4 SAVE POINTER TO WORK BUFFER d . P MOVE BPOOL(BIN4),=X' MOVE IN DESCRIPTOR C P 20020000 C P 20020000 C P A0020004000C
0x1a0088…1a021c Dummy {f00=0x007f, f01=0x0190, f02=»12 t " P CALL ATTWB,BPOOL(BIN4),W0,W12 PDEFDST 0 P PERF DEFDSC > ( P CBE DEBINW2,W4,KTOT JUMP IF TOT-KEY R P B RETERR ~ P EJECT PKTOT 4 P CBG RNRFMCH,W29,KTOT05 JUMP IF LAST BUFFER USED P MOVE BIN16,W188 " P SUB BIN16,W8
0x1a021c…1a03b0 Dummy {f00=0x007f, f01=0x0190, f02=» P CALL FMOVE,STRG10A,FDUM P MOVE BIN15,W7 WORK:=7 $ 6 P MATCH STRG10A,BIN15,W3,FDIR,W0,W1 1- OR 2-BYTE ? B > P XCOPY BPOOL(BIN3),BIN1,BIN15,STRG10A,W0 STORE DUMMY FIELD | * P ADD BIN1,BIN15 ADJUST BUFFERPOSITION PKTOT10 & P PERF FCODE,W1
0x1a03b0…1a0544 Dummy {f00=0x007f, f01=0x0190, f02=»S V & P TBT BOOL6,KTOT12 JUMP IF BALANCE D P XCOPY RPOOL(PINDDB),W18,W1,PINDND,W1 STORE NUMB OF DESCBUFFERS 4 * P ADD BIN10,W1 ADJUST NUMB OF FIELDS F0 | : P XCOPY BPOOL(PINDDB),W2,W2,BIN10,W0 STORE DESC-LENGTH P NUMBER OF FIELDS P ADD
0x1a0544…1a06d8 Dummy {f00=0x007f, f01=0x0190, f02=»L7,KTOT18 JUMP IF NOT CORR-MODE PKTOT14 ( " P PERF DEDISC,W13 DELETE FORMAT 6 P BOK KTOT16 P PERF DERROR,DEKTAB6 p $ P SUB DEBINW2,W1 ADJUST KEY-INDEX P IB DEBINW2,RETERR,RETERR P B KTOT14 PKTOT16 8 P PERF DEPOOL,W6,PI
0x1a06d8…1a086c Dummy {f00=0x007f, f01=0x0190, f02=»T20 & P PERF DERROR,DEKTAB6 DISPLAY ERROR $ P SUB DEBINW2,W1 ADJUST KEY-INDEX 6 P TBT SW95PR,KTOT20 ^ P IB DEBINW2,KTOT19,KTOT19 x * P CBE DEBINW4,W10,KTOT18 NO DISK SPACE PKTOT19 P B RETUR PKTOT20 8 P PERF DEPOOL,W6,PIND
0x1a086c…1a0a00 Dummy {f00=0x007f, f01=0x0190, f02=» GET FORMAT P BOK KTOT30 P PERF DERROR,DEKTAB6 ( $ P SUB DEBINW2,W1 ADJUST KEY-INDEX D P IB DEBINW2,RETERR,RETERR l P B KTOT25 PKTOT30 . P PERF DEPOOL,W8,PINDFR,BIN16,STRG10A LOCK P BOK KTOT35 & P PERF DERROR,DEKTAB6
0x1a0a00…1a0b94 (1, 292) Dummy {f00=0x007f, f01=0x0190, f02=»DISC,W13 DELETE FORMAT P BOK KTOT40 P PERF DERROR,DEKTAB6 2 $ P SUB DEBINW2,W1 ADJUST KEY-INDEX N P IB DEBINW2,RETERR,RETERR v P B KTOT35 PKTOT40 P MOVE DEBINW4,PINDFR < P PERF DEPOOL,W11,DEBINW4,BIN16,STRG10A UNLINK FORMCH
0x1a0b94…1a0d28 Dummy {f00=0x007f, f01=0x0190, f02=»MNO,FLIND(W1) LOAD FORMATBUFFER-POINTER . P ATTFMT BPOOL(ELMNO) ATTACH DEFINED FORMAT 0 P PERF FEDIT FORMAT EDITING b P DISPLAY 0,W1,W0 & P SET DEPROMPT T=PROMPTTEXT DISPLAY , P TBT BOOL6,KTOT70 JUMP IF BALANCE FORMAT P MOVE DEBINW3,W1
0x1a0d28…1a0ebc Dummy {f00=0x007f, f01=0x0190, f02=»S z , P SET DBOACC INDICATE ACCFIELDS IN FORMAT PKTOT60 : P MOVE DEBINW3,W1 H P MOVE DEBINW4,W0 ` 4 P GETFLD 4,DEBINW3,DEBINW4 CHECK IF VERIFY-FIELDS x P BP KTOT65 NO VERIFY-FIELDS P BN KTOT65 NO VERIFY-FIELDS ( P SET DBOMVR INDI
0x1a0ebc…1a1050 Dummy {f00=0x007f, f01=0x0190, f02=»ATUS ^ PKTOT70 ( P XCOPY FORMAT,W0,W6,RPOOL(PINDFR),W1 < P CALL RESTOR,W0,W2,PWBDB4 RESTOR ORIGINAL DESC.-POINTERS F ( P PERF DEDISC,W9 STORE FORMAT ON DISC P BOK KTOT75 JUMP IF OK & P PERF DERROR,DEKTAB6 DISPLAY ERROR $ P SUB DEBINW2,W
0x1a1050…1a11e4 Dummy {f00=0x007f, f01=0x0190, f02=»71 P B RETERR PKTOT75 2 P CALL ATTDB,BPOOL(PINDFR),W4,W10 ATTACH DESCR. * P MOVE DEBINW3,W0 ` P GETFLD 0,DEBINW3,DEBINW4 x . P TBT BOOL6,KTOT78 NO WARNING WHEN BALANCE ( P SUB BIN10,W1 ADJUST FOR DUMMY FIELD 8 P CBNG WORK(W6),B
0x1a11e4…1a1378 Dummy {f00=0x007f, f01=0x018e, f02=» P MOVE DEBINW4,=W'39' WARNING P PERF DERROR,DEKTAB6 ( PKTOT78 D < P CALL RESTOR,W0,W2,PWBDB4 RESTOR ORIGINAL DESC.-POINTERS R . P TBF DOOLA,KTOT79 F=CORR FROM THIS PROGRAM " P TBT BOOL7,RETUR JUMP IF CORR PKTOT79 P MOVE DEBINW4,=W
0x1a1378…1a150c Dummy {f00=0x007f, f01=0x0190, f02=» , P RETUR,KTOT95,KTOT90,KTOT80 ENT,COR,RDL P B RETUR JUMP ON CLEAR-KEY 4 PKTOT80 V P* PRT PRESSED d 2 P CALL ATTDB,BPOOL(PINDFR),W4,W10 ATTACH DESCR. z . P ATTFMT BPOOL(ELMNO) ATTACH DEFINED FORMAT P PERF FEDIT FORMAT EDITING P PER
0x1a150c…1a16a0 Dummy {f00=0x007f, f01=0x0190, f02=»T DEFINITION x P PERF DETPRT RELEASE PRINTER < P CALL RESTOR,W0,W2,PWBDB4 RESTOR ORIGINAL DESC.-POINTERS 8 P B KTOT78 x PKTOT90 RDEL-KEY P MOVE DEBINW4,W17 0 P PERF DERROR,DEKTAB9 'PRESS ENT TO CONFIRM' $ P SUB DEBINW2,W1 ADJUST
0x1a16a0…1a1834 (1, 293) Dummy {f00=0x007f, f01=0x0190, f02=»NW2,W0 P BOK RETUR P PERF DERROR,DEKTAB6 $ P SUB DEBINW1,W1 ADJUST KEY-INDEX < P IB DEBINW2,RETUR,RETUR d P B KTOT90 JUMP ON CLEAR-KEY PKTOT95 COR-KEY P SET BOOL7 , P MOVE PINDCB,FLIND(W1) LOAD BUFFERINDEX * P MOVE
0x1a1834…1a19c8 Dummy {f00=0x007f, f01=0x0190, f02=»,W1,RPOOL(PINDFR),W17 SAVE NUMB POOLS ~ B P XCOPY WORK(W3),W1,W1,RPOOL(PINDFR),W18 SAVE NUMB DESC BUFFERS . 0 P SUB WORK(W4),WORK(W3) ADJUST NUMB OF FPOOLS t P B DEFDST P EJECT P* D P* ERROR IN FORMAT GENEREATION OR STOPPED BY KEYP
0x1a19c8…1a1b5c Dummy {f00=0x007f, f01=0x0190, f02=» IF NEW FORMAT , P MOVE PINDFR,PINDDB CHANGE BUFFERPOINTER 8 P PERF DEPOOL,W6,PINDFR,BIN16,STRG10A RELEASE BUFFERS F P B RETCH PRETUR 8 P PERF DEPOOL,W6,PINDFR,BIN16,STRG10A RELEASE BUFFERS P CLEAR BOOL7 P BZ RETEX JUMP IF NEW RE
0x1a1b5c…1a1cf0 Dummy {f00=0x007f, f01=0x0190, f02=»,W10 PRETEX 0 P CBG DEBINW2,W1,REXIT JUMP IF NOT CANCEL-KEY " P TBT DOOLA,REXIT JUMP IF CORR N P B DEFDST JUMP ON CANCEL-KEY t PREXIT 0 P MOVE BIN4,WORK(W5) RESTORE WORKBUFFERINDEX : P PERF DEPOOL,W6,BIN4,BIN16,STRG10A RELEASE WOR
0x1a1cf0…1a1e84 Dummy {f00=0x007f, f01=0x0190, f02=» l ( P FNR5,FPS1,FPS1,FPS1,FPS1,FPS1, C P FPS1,FPS1,FPS1,FPS1 4 P B DETC97 NO TAB R P* j P* FIELD 1 FORMAT NAME t P* PFNR1 & P CBE DEBINW2,W7,F2BTB JUMP IF BTB & P CBE DEBINW2,W8,F1HOM JUMP IF HOM P B DET
0x1a1e84…1a2018 Dummy {f00=0x007f, f01=0x0190, f02=»HOME ALLOWED FIELD NOT CONFIRMED WITHIN LINE P* 4 PF1A > , P TBT DOOL2,F1B JUMP IF ALREADY DEL ONCE J , P MOVE FMTWK(W8),BIN3 SAVE CURR BUFFERIND z 6 P MOVE BIN3,FMTWK(W7) REESTORE LAST LINE'S BUFFIND P SET DOOL2 T=LINE DELETED * P T
0x1a2018…1a21ac Dummy {f00=0x007f, f01=0x0190, f02=»POINT f & P TBF BOOL1,DETC99 HOME TO FIELD 1 2 P CBE DEBINW4,W3,DETC99 JUMP FIELD ALREADY = 3 8 P MOVE DEBINW4,W3 n P B DETC92 P* ( P* PRE SELECTION FIELD 2,3,6-15 P* PFPS1 & P CBE DEBINW2,W3,DETC99 JUMP IF EOI
0x1a21ac…1a2340 Dummy {f00=0x007f, f01=0x0190, f02=»ETC99,F3Z,DETC99, FIELD 5-8 C 0 P DETC99,DETC99,DETC99,DETC99, FIELD 9-12 C & P F3Z Z P B DETC97 h PF2BTB z & P TBF BOOL1,DETC99 NO FIELDS TAB OK . P MOVE DEBINW4,W3 FIELD 3 NO TAB => 'PEEP' P B DETC90 P* P*
0x1a2340…1a24d4 (1, 294) Dummy {f00=0x0080, f01=0x0190, f02=»4 KEYED INPUT FIELD P* PFNR4 & & P CBE DEBINW2,W3,F4EOI JUMP IF EOI 2 & P CBE DEBINW2,W6,F4PLS JUMP IF PLS & P CBE DEBINW2,W7,DETC99 JUMP IF BTB P B DETC97 TAB NOK PF4EOI PF4PLS P MOVE BIN5,W0 $ P PERF MTEXT
0x1a24d4…1a2668 Dummy {f00=0x0080, f01=0x0190, f02=»TBFWD OK FIELD 4 ~ ( P TBT DOOL5,DETC99 JUMP IF CORR LINE & P MOVE DEBINW4,PRECCUR LAST FIELDNR D P B DETC92 TAB NOT ALLOWED n P* : P* CHECK IF ACC-FIELD EMPTY WHEN BALANCE FORMAT P* PFNR5 * P TBF BOOL6,DETC99 JUMP IF
0x1a2668…1a27fc Dummy {f00=0x0080, f01=0x0190, f02=»ETC99 ACCFIELD NOT EMPTY OK & PDETC84 FIELD 4 NO TAB => 'PEEP' $ P MOVE DEBINW4,W4 N PDETC90 f P GETFLD 0,DEBINW4,DEBINW3 t PDETC97 P MOVE DEBINW2,W0 OK PDETC98 $ P MOVE DEBINW3,W2 TAB NOT ALLOWED P B DETCRT P
0x1a27fc…1a2990 Dummy {f00=0x0080, f01=0x40fe, f02=» P RET ! P PEND ! P EJECT ! P* ! , 8 P* DUMMY FORMAT TO BE GENERATED AS DUMMY-FIELD ! 6 & P* IN EVERY GENERATED FORMAT ! r P* ! PFDUM FRMT ! P FKI 1,ALPHA ! P FCOPY HEX00 ! P FMEND ! P END ! @ ! T P
0x1a2990…1a2b24 Dummy {f00=0x0080, f01=0x2008, f02=» " ,W6,PINDFR,BIN16,STRG10A RELEASE BUFFERS P TBT BOOL7,RETCH 8 PRETEX P RET ^ P PEND j P EJECT x P* 8 P* DUMMY FORMAT TO BE GENERATED AS DUMMY-FIELD & P* IN EVERY GENERATED FORMAT P* PFDUM FRM
0x1a2b24…1a2cb8 Dummy {f00=0x0080, f01=0x0190, f02=»CTUAL POSITION v 4 P MOVE DEBIN2,FMTWK(W12) LOAD TOTAL NUMB OF CHARS . P SUB DEBIN2,DEBIN4 NUMB OF CHARS TO MATCH N D P MATCH JOBSPC,DEBIN3,DEBIN2,STRG10A,FBIN1,W2 JUST ONE FUNC EACH ( P BNOK VGAC35 NO MORE OF SAME FONC OK . P MOVE DEBIN4,DEBIN3
0x1a2cb8…1a2e4c Dummy {f00=0x0080, f01=0x018e, f02=»L POSITION r P MOVE STR1A,=C'#' 0 P MATCH JOBSPC,DEBIN3,DEBIN2,STR1A,W0,W1 NEXT , P BOK VGAC40 OK NEXT # FOUND ` 4 P MOVE DEBIN3,FMTWK(W12) LOAD WITH LAST POSITION PVGAC40 6 P MOVE FMTWK(DEBINW2),DEBIN3 LOAD ENDPOS OF CONTROL 6 P PER
0x1a2e4c…1a2fe0 Dummy {f00=0x0080, f01=0x0190, f02=» P SET ACKUM PVGAC45 8 P CBE DEBIN4,FMTWK(W12),VGAC99 JUMP IF END OF STRING $ P ADD DEBIN4,W1 NEXT POSITION ` P B VGAC15 P EJECT PVGAC90 . P TBF BOOL6,VGAC92 JUMP IF ORDINARY FORMAT " P ERASE 0,W13,W14 ERASE 2 LINES
0x1a2fe0…1a3174 (1, 295) Opaque[0x194]
0x1a3174…1a3308 # DirEnt {nam=»DE12ST«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x1008, f03=0x0000}
0x1a3174…1a3308 IdxSect {
0x1a3174…1a3308 f00 = 0x0080 // 0x1a3174 @0x0
0x1a3174…1a3308 f01 = 0x0004 // 0x1a3176 @0x2
0x1a3174…1a3308 gno = [ // 0x1a3178 @0x4
0x1a3174…1a3308 [0x00]: C0x0080.0x1.0
0x1a3174…1a3308 [0x01]: C0x0080.0x2.0
0x1a3174…1a3308 ]
0x1a3174…1a3308 }
0x1a3308…1a349c Dummy {f00=0x0080, f01=0x0190, f02=» $ P IDENT DE12ST REL 10.0 80-04-11 P 79-12-14/LABJ , P**************** D P* * P* VALUE SETS * t P* * P**************** 2 P********************************************* 2 P* BOOL1 : T=GET V-S
0x1a349c…1a3630 Dummy {f00=0x0080, f01=0x0190, f02=» 2 P********************************************* * P* BIN1 WORKITEM * : * P* BIN2 NO. OF ELEM.IN THIS RECORD * h * P* BIN3 SIZE OF ELEMENT * * P* BIN4 FIRST EL.NO. IN RECORD * * P* BIN5 LAST - "
0x1a3630…1a37c4 Dummy {f00=0x0080, f01=0x0190, f02=» * | * P* BIN10 X'8000' / X'B000' ,A/N * * P************************************* H DDUM DEDDIV v PDIV ENTRY DE12ST P ENTRY WRIT12 P ENTRY CANC11 P ENTRY CANC12 P ENTRY A20 P*
0x1a37c4…1a3958 Dummy {f00=0x0080, f01=0x0190, f02=» EXT DEPOOL EJECT PDE12ST PROC " P MOVE TABLE,=X'5400' 6 P ATTFMT VSET R P SET BOOL1 GET f & P CBE BIN2,W3,A10 JUMP IF PRNUM=13 | P CLEAR BOOL1 ENTER PA10 P MOVE PINDTB,W0 P SET DEPROMPT P CLEAR DECHANG
0x1a3958…1a3aec Dummy {f00=0x0080, f01=0x018e, f02=» PA20 , P CBE DEBINW2,W0,CANC11 CLR-KEY ON ERROR $ P IB DEBINW2,CANC12,CANC12,ENT12 @ P MOVE DEBINW4,W0 'BELL' h P PERF DERR P B A20 PCANC11 P MOVE DEBINW2,W1 PCANC12 < P CALL RESTOR,W3,W4,PWBDB4 RESTORE ORIG. DESC
0x1a3aec…1a3c80 Dummy {f00=0x0080, f01=0x0190, f02=» PRETUR RET P PEND P EJECT $ PWRIT12 PROC 2 < P XCOPY RPOOL(PINDTB),W17,W1,BIN4,W1 1:ST EL.NO. IN REC. F P MOVE BIN5,ELMNO P SUB BIN5,W1 4 P XCOPY RPOOL(PINDTB),W18,W1,BIN5,W1 LAST - " - P MOVE BIN8,=W'26' & P PER
0x1a3c80…1a3e14 (1, 296) Dummy {f00=0x0080, f01=0x0190, f02=»IN5,BIN2 P SUB BIN5,W1 LAST - " - P CMP W0,W0 2 PWR10 D P RET P P PEND EJECT j * P************************************** x * P* APPL-ROUTINES IN MODULE : DE10ST * * P************************************** $ P******
0x1a3e14…1a3fa8 Dummy {f00=0x0080, f01=0x0190, f02=» * x $ P******************************* PVSET FRMT 8 P FSL J P FMEL '99',PRNUM V P FBT BOOL1,F13 n P FCOPY =C' CREATE' P FB F12A PF13 FCOPY =C' GET' PF12A FCOPY =C' VALUE-SETS' P FNL P FCOPY =C'NAME: T'
0x1a3fa8…1a413c Dummy {f00=0x0080, f01=0x018e, f02=»LR,NEOI,APPL=101 r P FCOPY STR6A P FB F12UT , PF12C > P FLINK F121 J PF12UT FMEND ^ P* r PF121 FRMT | P FNL P FCOPY =C'TYPE:' P FBT BOOL3,F121A P FBF BOOL1,F124 IF CREATE PF121A P FINP 7
0x1a413c…1a42d0 Dummy {f00=0x0080, f01=0x0190, f02=» P FTAB 10 P FCOPY =C'SIZE OF ' P FCOPY =C'ELEMENT' 4 P FCOPY =C'S:' N P FBT BOOL3,F125A d P FBF BOOL1,F127 IF CREATE | PF125A P FINP 28 P FMEL 'XX',TIME P FB F128 PF127 : P FKI 28,MINL=1,MAXL=2,NE
0x1a42d0…1a4464 Dummy {f00=0x0080, f01=0x40ba, f02=» FBF BOOL3,FEND IF LINE 1-3 P FINP 13 ENTER $ P FMEL 'XX',ACK(W1) : P FNL T P* FLINK STR64A ` P FCTL X'DE',STR64A v PFEND P FMEND END @ P FMEL 'XX',TIME P FB F128 PF127 : P FKI 28,MINL=1,MAXL=2,NE
0x1a4464…1a45f8 Dummy {f00=0x0080, f01=0x2008, f02=» NT DE12ST DDUM DEDDIV PDIV . ENTRY DE12ST < DE12ST R PROC ` RET n PEND z END @ KITEM PSTR6A STRG 6 WORKITEM PSTRG10A STRG 10 WORKITEM PDIV END @ ARIABL
0x1a45f8…1a478c Dummy {f00=0x0080, f01=0x0190, f02=»#4 @ 0C P j !!!WP U00 P m ( &W 0) = b !Z/h U ! !Q !4 !03@ T 0% j %! !01 ! 0F ( ! 6 cv6 C & 4 W 1W 200 P " "Jh !U !TA00 T h ! !T006 _ A 00 T f !0% 0301 _ 0 0 (P h ! !P 11 _ 11 !00 X 0
0x1a478c…1a4920 Dummy {f00=0x0080, f01=0x0190, f02=»HNUMBERRECORDCONFIRM VALUESETSYMBOLIC: XTTTT9 < . . 9 DELETED INSERTED + ON UNIT:U i + WITHIN JOB: k RECOVERY RUNNING. RECORD CORRECTION : FREEZING OF BATCH l CONFIRM RECORD INSERT CONFIRM RECORD DELETE:
0x1a4920…1a4ab4 (1, 297) Opaque[0x194]
0x1a4ab4…1a4c48 # DirEnt {nam=»DE15ST«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x1018, f03=0x0000}
0x1a4ab4…1a4c48 IdxSect {
0x1a4ab4…1a4c48 f00 = 0x0080 // 0x1a4ab4 @0x0
0x1a4ab4…1a4c48 f01 = 0x0004 // 0x1a4ab6 @0x2
0x1a4ab4…1a4c48 gno = [ // 0x1a4ab8 @0x4
0x1a4ab4…1a4c48 [0x00]: C0x0080.0x3.0
0x1a4ab4…1a4c48 [0x01]: C0x0081.0x0.0
0x1a4ab4…1a4c48 ]
0x1a4ab4…1a4c48 }
0x1a4c48…1a4ddc Dummy {f00=0x0080, f01=0x0190, f02=» $ P IDENT DE15ST REL 10.0 80-04-11 P 79-12-02/LABJ , P**************** D P* FILE SPACE * P**************** t DDUM DEDDIV PDIV P ENTRY DE15ST P EXT DECLRN P EXT ATTWB P EXT DEPOOL P EXT OPCL
0x1a4ddc…1a4f70 Dummy {f00=0x0080, f01=0x0190, f02=» n P BOK C00 PC01 P PERF DERR $ P IB DEBINW2,DE15,RETUR 6 P B C01 T PC00 b $ P CALL ATTWB,BPOOL(PINDTB),W0,W11 n P ATTFMT F15 P ERASE 3,W1,W0 ONLY ITEMS PC05 6 P MOVE FDVBCD(W1),FRINF(W1) NO. OF REC. SYSTEMFIL
0x1a4f70…1a5104 Dummy {f00=0x0080, f01=0x0190, f02=»IV BCDI21(W1),FDVBCD(W1) % P MOVE FDVBCD(W3),BCDI21(W1) " P SET DEPROMPT F PC10 P CLEAR DECHANGE h P PERF DECLRN PC15 P IB DEBINW2,C20,RETUR,E10 P MOVE DEBINW4,W0 P PERF DERR P B C15 PC20 P E
0x1a5104…1a5298 Dummy {f00=0x0080, f01=0x0190, f02=» PERR1 P PERF DERR P IB DEBINW2,C10,RETUR,E11 & P MOVE DEBINW2,W0 H P B ERR1 ` PE12 p P THOME | P PERF DERR P IB DEBINW2,E15,RETUR,E40 PE15 P MOVE DEBINW4,W0 P B E12 PE40 : P MOVE FDVBCD
0x1a5298…1a542c Dummy {f00=0x0080, f01=0x0190, f02=»0' z ( P MOVE BCDI21(W2),FNOOFREC(FILINDUS) $ P MUL BCDI21(W1),BCDI21(W2) FREE 6 P DIV BCDI21(W1),FDVBCD(W4) % ^ P MOVE FDVBCD(W6),BCDI21(W1) P MOVE FDVBCD(W5),BIN1 P* PE50 P DISPLAY 3,W6,W0 FINP-FIELDS P PERF OPCL
0x1a542c…1a55c0 Dummy {f00=0x0080, f01=0x0190, f02=»R P * P PERF DEPOOL,W6,PINDTB,PINDTB,STRG10A P PERF OPCL,W4 @ P RET V PEND b P EJECT p PF15 FRMT ~ P FSL P FCOPY =C'15 FILE SPACE' P FNL P FCOPY =C'USERFILE UNIT' P FTEXT ':U' ( P FKI 16,MINL=1
0x1a55c0…1a5754 (1, 298) Dummy {f00=0x0081, f01=0x0190, f02=» P FNL P FCOPY =C'FILE' P FTAB 19 ( P FCOPY =C'SIZE' 8 P FTAB 29 P P FCOPY =C'FREE %' ` P FNL | P FCOPY =C'SYSTEMFILE' P FINP 18 " P FMEL 'ZZZZ9',FDVBCD(W1) SIZE P FINP 28 2 P FMEL 'ZZZZ9',FDVBCD(W2) FRE
0x1a5754…1a58e8 Dummy {f00=0x0081, f01=0x40fa, f02=» FMEL 'ZZZZ9',FDVBCD(W4) SIZE P FINP 28 & 0 P FMEL 'ZZZZ9',FDVBCD(W5) FREE REC. USERFILE 6 P FINP 35 j " P FMEL 'ZZ9',FDVBCD(W6) % FREE z P FNL P FKI 1,MINL=0,MAXL=0 P FCOPY HEX00 P FMEND END @ FDVBCD(W2) FRE
0x1a58e8…1a5a7c Dummy {f00=0x0081, f01=0x2008, f02=» NT DE12ST DDUM DEDDIV PDIV . ENTRY DE12ST < DE12ST R PROC ` RET n PEND z END @ KITEM PSTR6A STRG 6 WORKITEM PSTRG10A STRG 10 WORKITEM PDIV END @ ARIABL
0x1a5a7c…1a5c10 Dummy {f00=0x0081, f01=0x0190, f02=»h _ @ !^A _DA ( ~ * & .He @h u!Kh ( ! u! * & ) du d ! _3 $? $? @l 4 J * & G H KAd6 @d !0. 0/ R40 x * & e ; ! T&Hl 0. 0/ @l0" T W * & 0Al0. 0/ X/ "_B 4 ! * &
0x1a5c10…1a5da4 Dummy {f00=0x0081, f01=0x0190, f02=» A !@( "90! !T2@e@i@k !" ? * & 'hZ 2 !TS &6 * * & 7 " _ Ai_8Ae_<" y 4 X * & U WsAkW !j !! ( ~ * & s !~W)j !! F 10 U !b * & ! ! Hi b ! !P Ie I
0x1a5da4…1a5f38 Dummy {f00=0x0081, f01=0x018e, f02=»40 l * & < 4 0<" 4 0=" 4 4 4 4 4 4 4 0 * & ' > 4 0? 4 0@ 4 4 4 4 !Hy 0 8 * & E "Hz 0 34 U f * & c j ! !0 P b ![ ! ! ( 4 j * & " " * &
0x1a5f38…1a60cc Dummy {f00=0x0081, f01=0x4144, f02=» * & & * & 1 I 1 = T * & O ] $ ? * & m FMDA 1 $ 0 0 0 z h
0x1a60cc…1a6260 Dummy {f00=0x0081, f01=0x4014, f02=» HNOD @ * & t * & 1 I 1 = H DENVAL v * & O @ v ] $ ? * & m FMDA 1 $ 0 0 0 z h
0x1a6260…1a63f4 (1, 299) Opaque[0x194]
0x1a63f4…1a6588 # DirEnt {nam=»DE23ST«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x1028, f03=0x0000}
0x1a63f4…1a6588 IdxSect {
0x1a63f4…1a6588 f00 = 0x0081 // 0x1a63f4 @0x0
0x1a63f4…1a6588 f01 = 0x0008 // 0x1a63f6 @0x2
0x1a63f4…1a6588 gno = [ // 0x1a63f8 @0x4
0x1a63f4…1a6588 [0x00]: C0x0081.0x1.0
0x1a63f4…1a6588 [0x01]: C0x0081.0x2.0
0x1a63f4…1a6588 [0x02]: C0x0081.0x3.0
0x1a63f4…1a6588 [0x03]: C0x0082.0x0.0
0x1a63f4…1a6588 ]
0x1a63f4…1a6588 }
0x1a6588…1a671c Dummy {f00=0x0081, f01=0x018e, f02=» $ P IDENT DE23ST REL 10.0 80-04-11 P 80-05-05/JAER , P* D P* GET FORMAT N 2 P* THIS FORMAT PROCESS FOLLOWING FUNTIONS h 4 P* - SEARCH AND DISPLAY FORMAT 'RFW','RBW' , P* - PRINT HARDCOPY OF FORMAT 'PRT' , P*
0x1a671c…1a68b0 Dummy {f00=0x0081, f01=0x0190, f02=» f P* L P************************************************************************ DDUM DEDDIV b PDIV v P ENTRY DE23ST P* $ P EXT DEAPPL APPLE VALUE HANDLING P EXT DECLRA P EXT DERR P EXT DEDISC DISC-ROUTI
0x1a68b0…1a6a44 Dummy {f00=0x0081, f01=0x0190, f02=»NPF UNPACK NEXT FIELD P EXT DEUNPL UNPACK NEXT LINE ( P EXT PRFGUF PRINT FORMAT DEFINITION B P EXT FEDIT n ( P EXT ATTDB ATTACH FORMAT-DESCRIPTOR P EXT ATTWB ATTACH WORKBLOCK * P EXT RESTOR RESTORE ORIG.-DESC-POINTER ( P EXT DEPOO
0x1a6a44…1a6bd8 Dummy {f00=0x0081, f01=0x0190, f02=»JECT * * KEYTABLES * 0 P* : PDEKTAB6 KTAB CLR,CAN,RET D P* d PDEKTAB7 KTAB CLR,CAN,RET,ENT n P* ( PDEKTAB8 KTAB CLR,CAN,RET,RFW,RBW, C P COR,RDL,STS,PRT P* $ PDEKTAB9 KTAB CLR,CAN,RET,RFW
0x1a6bd8…1a6d6c Dummy {f00=0x0081, f01=0x0190, f02=»POINTER b P MOVE PINDFR,W0 P ATTFMT F23GF ( $ P SET DEPROMPT PROMTTEXT-DISPLAY > PDE23CA f P CLEAR DOOL3 t " P PERF DECLRA DATA-ENTRY-SCREEN & P SET DEPROMPT T=PROMPTTEXT DISPLAY PDE23ER . P IB DEBINW2,CANCEL,RETUR,ENTER,FOR
0x1a6d6c…1a6f00 Dummy {f00=0x0081, f01=0x0190, f02=»BDB4 RESTOR ORIG.-DESC.-POINTER z P CLEAR DEPROMPT ( P B DE23CA @ PERROR R P PERF DERROR,DEKTAB6 ` P IB DEBINW2,ENT20,DEL30 | P B RETUR P EJECT PENTER P SET BOOL4 " P CLEAR BOOL6 F=GENERAL FORMAT P XCOPY S
0x1a6f00…1a7094 (1, 300) Dummy {f00=0x0081, f01=0x0190, f02=»NCE FORMAT ~ PENT05 6 P CALL ATTDB,BPOOL(PINDFR),W4,W10 ATTACH DESCRIPTOR PENT08 Z 4 P MOVE ELMNO,FLIND(W1) STORE FORMATBUFFER-POINTER h . P ATTFMT BPOOL(ELMNO) ATTACH DEFINED FORMAT P PERF FEDIT FORMAT EDITING P SET DEPROMPT
0x1a7094…1a7228 Dummy {f00=0x0081, f01=0x0190, f02=»N LAST FIELD j PENT20 P MOVE DEBINW4,=W'31' " , P PERF DERROR,DEKTAB8 'MAKE YOUR CHOICE' > , P IB DEBINW2,ENT20,DEL30,RELRET,FORW, C n & P BACKW,DELCOR,DELCOR,STS10,PRT10 P B ERROR P EJECT P* 4 P* GET NEXT/PREVIO
0x1a7228…1a73bc Dummy {f00=0x0081, f01=0x018e, f02=»NW1,W32 LOAD FUNC-CODE = 32 PNEPR $ 2 P PERF DEDISC,DEBINW1 GET NEXT/PREVIOUS FORMAT 0 P BOK ENTER f $ P CBE DEBINW4,W24,NEPRIU IN USE ? x PNEPRER P PERF DERROR,DEKTAB6 $ P IB DEBINW2,NEPRCL,DEL30,RELRET PNEPRCL P TBF BOO
0x1a73bc…1a7550 Dummy {f00=0x0081, f01=0x018e, f02=» . P IB DEBINW2,NEPRCL,DEL30,RETUR,FORW,BACKW P B ERROR 6 P EJECT F P* T 8 P* DELETION AND CORRECTION PRE-INITIALIZATION ^ $ P* LOCK FORMAT IN BUFFERS P* PDELCOR 4 P PERF DEPOOL,W8,PINDFR,BIN16,STRG10A FORMAT LO
0x1a7550…1a76e4 Dummy {f00=0x0081, f01=0x0190, f02=» P* P* DELETION P* & P MOVE DEBINW4,W17 LOAD 17 0 2 P PERF DERROR,DEKTAB7 'PRESS ENTER TO CONFIRM' R " P IB DEBINW2,ENT20,ENT20,DEL30 PDEL20 * P PERF DEDISC,W13 DELETE FORMAT ON DISC P BOK DEL30 JUMP IF OK P
0x1a76e4…1a7878 Dummy {f00=0x0081, f01=0x0190, f02=»0A RELEASE BUFFERS n PDEL40 P B DEST23 ( P EJECT : P* H P* CORRECTION R P* n 4 P* BOOL7 = T INDICATE CORR-MODE x 2 P* DOOLA = T INDICATE CORR-MODE P* PCOR10 : P CALL REST
0x1a7878…1a7a0c Dummy {f00=0x0081, f01=0x018e, f02=» LOAD BUFFERINDEX z & P MOVE CURSEC,W0 LOAD BUFFERPOINTER P* D ( P* RELEASE DESCRIPTOR BUFFERS N P* z P MOVE DEBINW3,W0 WORK:=0 , P MOVE DEBINW2,W0 NUMB OF DESC.BUFFERS:=0 P MOVE WORK(W3),W0 WORK:=0 ( P MOVE WORK(W4),W0
0x1a7a0c…1a7ba0 Dummy {f00=0x0081, f01=0x0190, f02=» B P XCOPY WORK(W3),W1,W1,RPOOL(PINDFR),W18 SAVE NUMB DESC BUFFERS 0 P SUB WORK(W4),WORK(W3) ADJUST NUMB OF FPOOLS J PCOR20 ~ < P XCOPY DEBINW3,W1,W1,RPOOL(PINDFR),W8 LOAD LINK TO NEXT : P XCOPY DEINPUT,W0,W7,RPOOL(PINDFR),W0 SAVE TYPE & NAME $
0x1a7ba0…1a7d34 (1, 301) Dummy {f00=0x0081, f01=0x0190, f02=» 0 P ADD DEBINW2,W1 NUMB OF REL. DESC.BUFFERS+1 4 P CBE WORK(W3),DEBINW2,COR25 JUMP IF ALL RELEASED 8 P B COR20 GO ON p PCOR25 > P XCOPY RPOOL(PINDFR),W0,W7,DEINPUT,W0 RESTORE TYPE & NAME PCOR30 P PERF DE21ST P CLEAR BOOL7 F=N
0x1a7d34…1a7ec8 Dummy {f00=0x0081, f01=0x0190, f02=»T-KEY p P INV DEPROMPT 2 P CBE PINDFR,W0,DEL40 JUMP IF NO CURRENT FORMAT $ P B ENTER Z P EJECT j P* x P* PRINT STATUS LINE P* PSTS10 " P PERF DESTAT LOAD STATUS-LINE P MOVE DEBINW4,W19 P B ERROR
0x1a7ec8…1a805c Dummy {f00=0x0081, f01=0x0190, f02=» P* : P* RESERVE ONE WORK-BUFFER FOR FORMAT GENERATION 2 P* -ATTACH RESERVED WITH NEW DESCRIPTOR L 2 P* -ATTACH RESERVED BUFFER AS WORK-BLOCK P* P* DB2 BLK 6 P* <ITEM> BIN
0x1a805c…1a81f0 Dummy {f00=0x0081, f01=0x0190, f02=»' X > P* FORTAB STRG (2),80 X'8050001C00020000' 6 P* JOBSPC STRG 160 X'00A0001C' L F P* JOBSPC REDEFINES FORTAB(W2) P* P CLEAR DEPROMPT , P MOVE BIN16,W0 NUMBER
0x1a81f0…1a8384 Dummy {f00=0x0081, f01=0x0190, f02=»OK PRT20 0 P PERF DERROR,DEKTAB6 ERROR-MESSAGE IF NOT OK P B PRT40 D PPRT20 T 4 P MOVE WORK(W5),BIN4 SAVE POINTER TO WORK BUFFER b . P MOVE BPOOL(BIN4),=X' MOVE IN DESCRIPTOR C P 20020000 C P 20020000 C P A0020004000C00
0x1a8384…1a8518 Dummy {f00=0x0081, f01=0x0190, f02=» r " P CALL ATTWB,BPOOL(BIN4),W0,W12 P PERF ATTPRT RESERVE PRINTER . P BNOK PRT30 R " P PERF PRFGUF PRINT USER FORMAT f P PERF DETPRT RELEASE PRINTER P B PRT35 PPRT30 0 P PERF DERROR,DEKTAB6 ERROR MESSAGE IF NOT OK PPRT35
0x1a8518…1a86ac Dummy {f00=0x0081, f01=0x0190, f02=»8,W4,PWBDB4 RESTOR ORIG.-DESC.-POINTER PPRT40 . 8 P IB DEBINW2,ENTER,DEL30,RELRET JUMP DEP ON KEY-INDEX < P B ENTER x P EJECT PRELRET 8 P PERF DEPOOL,W6,PINDFR,BIN16,STRG10A RELEASE BUFFERS PRETUR : P CALL RESTOR,W0,W16,PWBDB4
0x1a86ac…1a8840 Dummy {f00=0x0081, f01=0x40b6, f02=» ='FORMAT' P FNL P FCOPY ='FORMAT' P FILLR ':',1 6 4 P FKI 9,APPL=104,MINL=1,MAXL=6,ALPHA,NEOI,ME,NCLR J P FCOPY FORMAT P FMEND END @ NDFR,BIN16,STRG10A RELEASE BUFFERS PRETUR : P CALL RESTOR,W0,W16,PWBDB4
0x1a8840…1a89d4 (1, 302) Dummy {f00=0x0082, f01=0x2008, f02=»
0x1a89d4…1a8b68 Dummy {f00=0x0082, f01=0x0190, f02=»T ( * 2 ( )g= " '"( g " #> $T # '#( _ Ub & 5 + *P ( - { &{ 1 !0 ! 04 mU_" m 509 {&* p!0 $ '$( 10 $} | @ 0 2TC 6 ( B? 0 $} / T l $_ " 2 2 2 ' @z 7 ^ &{ &z 0 0} | @ 0 2
0x1a8b68…1a8cfc Dummy {f00=0x0082, f01=0x0190, f02=» P)W*1( T !05 T W W W 6 W 1W 4 Z E 5 b F " P " : h " + $ " TOVIAFILENAMEUNITBATCHVOLUMEDEVICE DATA COMMCONVERSIONOTHE
0x1a8cfc…1a8e90 Dummy {f00=0x0082, f01=0x0190, f02=» 6 :U i 8 : 1 * NUMBER: g 70 ; ( h d 9 : e # 4 - 5 : @ $ FETCHING FORMAT: FROM DISC. @ U " ) 2 <0 G0 H & 5 E U g
0x1a8e90…1a9024 Dummy {f00=0x0082, f01=0x0190, f02=» F : > B !1( P Q /U80 88 R*j !! oU 10 !jo! 2jo " 1( W % 0 "1( H 0&W 1( !0' ! 6 W"0 0 $( # _.0 ! _y $5 !( * @ . !4 80 4 o3 o0# 0 6 4 Am4 0# 0 4 3 8 ? +1 BATCH IN U
0x1a9024…1a91b8 Dummy {f00=0x0082, f01=0x0190, f02=»OT FOUND I/O-ERROR DATE ERROR FOUND LOCKED NO DISC SPACE ILLEGAL VALUE INVALID NUMBER CHANGE CASSETTE NO RECORD FOUND UNDEFINED ERROR TEST ENTERED BATCH RECOVERY RUNNING. DISC NOT OPERABLE 4 : l IN : k 5 DISC I/O-ERROR : ILLEGAL
0x1a91b8…1a934c Dummy {f00=0x0082, f01=0x0190, f02=»OF FILESPACE USED PRESS ENT FOR DELETION THIS IS A DUMMY MESSAGE SYSTEMFILE ASSIGN-ERROR EDIT ERROR IN CONVERSION ALREADY DEFINED/EXECUTED TOO FEW INPUT CHARACTERS OUTPUT DEVICE NOT OPERABLE COMPULSORY FIELD NOT FILLED DEFINED LINE MAXIMUM EXCEED
0x1a934c…1a94e0 Dummy {f00=0x0082, f01=0x0190, f02=»ERFILE NOT CLOSED IN PREVIOUS SESSION. ,END OF FORMAT FOUND PRESS RINS FOR NEW LINES " : m : )CONFIRM WANTED FUNCTION (CORR,RDEL,PRINT) j : h y : k : l : : z : n : : g : ASD 5 PAGE : WARNING:REFERENCE TO FIELD (F ) OUTSIDE FORMAT DEFINITION
0x1a94e0…1a9674 (1, 303) Opaque[0x194]
0x1a9674…1a9808 # DirEnt {nam=»DEGENE«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x1048, f03=0x0000}
0x1a9674…1a9808 IdxSect {
0x1a9674…1a9808 f00 = 0x0082 // 0x1a9674 @0x0
0x1a9674…1a9808 f01 = 0x0008 // 0x1a9676 @0x2
0x1a9674…1a9808 gno = [ // 0x1a9678 @0x4
0x1a9674…1a9808 [0x00]: C0x0082.0x1.0
0x1a9674…1a9808 [0x01]: C0x0082.0x2.0
0x1a9674…1a9808 [0x02]: C0x0082.0x3.0
0x1a9674…1a9808 [0x03]: C0x0083.0x0.0
0x1a9674…1a9808 ]
0x1a9674…1a9808 }
0x1a9808…1a999c Dummy {f00=0x0082, f01=0x0190, f02=» $ P IDENT DEGENE REL 10.0 80-04-11 P UPD 80-11-06/DALI , P UPD 80-10-28/DALI H P UPD 80-08-22/DALI d P UPD 80-04-10/DALI * L M************************************************************************ * : 6* S
0x1a999c…1a9b30 Dummy {f00=0x0082, f01=0x0190, f02=» CHECKS IF THERE IS A "FGEN-STRING" ATTACHED TO THAT 6 1* ELEMENT AND IF SO EXECUTES THE GENERATION. > * x & !* GENERATION CAN BE DONE TO: * P* - AN ELEMENT IN THE PICTURE " * - AN USER-VARIABLE * L
0x1a9b30…1a9cc4 Dummy {f00=0x0082, f01=0x0190, f02=»* ***** ENTRIES ***** * ( ENTRY DEGEN 2 * F * P ***** EXTERNALS ***** Z * z EXT GETGEN EXT MSKOUT EXT TYPET P EXT EMPTYT P EXT DENVAL P EXT GETFWD P EXT ADJUST
0x1a9cc4…1a9e58 Dummy {f00=0x0082, f01=0x0190, f02=» * ( #***** INTERNAL WORK-FORMATS ***** * : PWFORM FTABLE WF1,WF2,WF3,WF4 D * h WF1 FRMT r P FCOPY USEV(BIN10) FMEND * PWF2 FRMT , P FCTL X'C0',X.PSEU1,X.PSEU2,X.WB10,BIN10 FMEND P*
0x1a9e58…1a9fec Dummy {f00=0x0082, f01=0x0190, f02=» FMEND EJECT * L O************************************************************************ & * v & "* MAIN-ROUTINE FOR GENERATION * L O************************************************************************ *
0x1a9fec…1aa180 Dummy {f00=0x0082, f01=0x0190, f02=»L4 CLEAR DUPL-INDICATOR ( P GETABX DEBINW3 GET CURRENT-FIELD NR P CLEAR ME COND GEN FLAG L P B EXGEN "PERF" EXGEN l PA250 & P CBE BIN1,W0,A900 NO DUPL FOUND ? ( # SET BOOL1 INDICATE CHANGED CURRENT . P CALL GETFWD,DEBINW4,0,BIN1,
0x1aa180…1aa314 (1, 304) Dummy {f00=0x0082, f01=0x0190, f02=»GETGEN,BPOOL(W1),BIN11,BIN12,BIN13 P BNOK A900 * 6 P CALL GETFWD,DEBINW4,0,DEBINW3,BIN4 MAKE ORIGINATE < , P CALL ADJUST,DEBINW4 FIELD CURRENT AGAIN v P CLEAR BOOL1 P B EXGEN P EJECT * * ( #***** FORMAT-ERROR DETECT
0x1aa314…1aa4a8 Dummy {f00=0x0082, f01=0x0190, f02=»? h 4 P CALL GETFWD,DEBINW4,0,DEBINW3,BIN4 MAKE CURRENT & P CALL ADJUST,DEBINW4 FIELD CURRENT B A910 l P ADD BCD2A,BCD2A x P CLEAR ME COND GEN FLAG RET EJECT * L M****************************************************
0x1aa4a8…1aa63c Dummy {f00=0x0082, f01=0x0190, f02=»********************************************************** * B PEXGEN L B000 Z P SUB BIN12,W1 ADJUST DISPL. f 2 P ADD BIN13,BIN12 DISPL FOR LAST BYTE IN BIN13 * & P MOVE BIN1,W0 CLEAR DUPL-FIELD-NR EJECT *
0x1aa63c…1aa7d0 Dummy {f00=0x0082, f01=0x0190, f02=»D 0F STRING ? x P* PB055 * P MOVE BIN7,W0 CLEAR RESULT-FIELD-NR... , * P MOVE BIN6,W0 ...AND RESET TYPE-INDEX Z P MOVE STR6B,=C'DUFM' . P MATCH STR6B,BIN6,W4,BPOOL(BIN11),BIN12,W1 P IB BIN6,B070,B070,B065 P B B070 P E
0x1aa7d0…1aa964 Dummy {f00=0x0082, f01=0x018e, f02=»13,BIN12 PUT DISP INTO BIN13 P PERF DENVAL,W2 $ ( P GETABX DEBINW3 MAKE ORIGINATE FIELD < P CURRENT AGAIN h P CLEAR DOOLB P BNZ A250 P SET ME COND GEN FLAG P XCOPY BIN12,W1,W1,BIN3,W1 P MOVE BIN3,W0 ( P XCOPY BIN3,
0x1aa964…1aaaf8 Dummy {f00=0x0082, f01=0x0190, f02=» P BNOK A250 FORMAT ERROR ? P* * P* 4 " P ADD BIN12,W1 INCREASE DISPL. > ( P PERF DEFIND,BIN7,BIN4 GET FIELD-NR d , P IB BIN6,B180,B180 JUMP IF USER OR FIELD P B B140 PB075 , ( CLEAR BOOL2 INDICATE NO ARITHMETIC DONE
0x1aaaf8…1aac8c Dummy {f00=0x0082, f01=0x0190, f02=» MOVE STR1A,=C'=' . P MATCH STR1A,BIN4,W1,BPOOL(BIN11),BIN12,W1 & P BOK B100 ..."="-SIGN ? L P* v P SUB BIN12,W1 ADJUST DISPL. EJECT * * ***** EXAMINE ***** * B100 , P CLEAR BOOL6 I
0x1aac8c…1aae20 Dummy {f00=0x0082, f01=0x0190, f02=»D-NR... p * P MOVE BIN9,W0 ...AND RESET TYPE-INDEX " P ADD BIN12,W1 INCREASE DISPL. > P CMP BIN12,BIN13 d P BG B600 | P MOVE STRG10A,=C'!UF+-*:;AS' 2 P MATCH STRG10A,BIN9,W10,BPOOL(BIN11),BIN12,W1 BNOK B200 LITTERAL PREFIX ?
0x1aae20…1aafb4 (1, 305) Dummy {f00=0x0082, f01=0x0190, f02=» ***** x * PB140 * P CBL BIN7,W1,A250 DUPL-NR NOT > ZERO ? & 6 P CBNL BIN7,DEBINW3,A250 DUPL-NR NOT < "CURRENT" ? T ( P MOVE BIN1,BIN7 UPDATE DUPL-FIELD-NR P B A250 EJECT * * ***** ABSULUTE VALUE *****
0x1aafb4…1ab148 Dummy {f00=0x0082, f01=0x018e, f02=»* " ***** ARITHMETIC SIGN ***** * 0 B170 : " SET BOOL2 INDICATE ARITHMETIC F & P MOVE BIN3,BIN9 MOVE TO SIGN-INDEX l " P SUB BIN3,W3 ADJUST SIGN-INDEX B B110 * * * P**** OWN FIELD OR USER-VAIABEL ****
0x1ab148…1ab2dc Dummy {f00=0x0082, f01=0x0190, f02=» P*CURRENT FIELD EMPTY P CLEAR ME COND GEN FLAG P BNZ B075 @ P CBNE BIN6,W2,B190 NOT FIELD R P CBE BIN7,W0,B075 IF CURRENT v & P CBE BIN7,DEBINW3,B075 IF CURRENT PB190 , P MOVE BIN4,BIN13 CALCULATE LENGTH OF... . P SUB BIN
0x1ab2dc…1ab470 Dummy {f00=0x0082, f01=0x0190, f02=»ND ? ~ P B B050 P EJECT * * * 4 ***** LITTERAL ***** > * B200 f & P MOVE DEINPUT,HEX00 CLEAR WORKITEM r P MOVE BIN10,W0 " @ P XCOPY BIN10,W1,W1,BPOOL(BIN11),BIN12 GET LITTERAL-PREFIX P MOVE BIN9,=X'3F
0x1ab470…1ab604 Dummy {f00=0x0082, f01=0x018e, f02=»IN12 GET LITTERAL l P SUB BIN9,W1 ADJUST INDEX $ P ADD BIN12,BIN9 INCREASE DISPL. > P B B500 f EJECT v * * ( P***** USER- OR FORMAT-VALUE ***** * B300 & P MOVE DEINPUT,HEX00 CLEAR WORKITEM P MOV
0x1ab604…1ab798 Dummy {f00=0x0082, f01=0x0190, f02=» . P CBE BIN9,W9,B315 JUMP IF SYSTEM VARIABLE P HANDLE ACCUMULATORS 6 P CALL CMPIND,BIN10,ACK(W1) T P BNOK A250 OUT OF RANGE v P MOVE DEINPUT,ACK(BIN10) P B B500 PB310 HANDLE USERVARIABELS P* P CALL CMPIND,BIN10,U
0x1ab798…1ab92c Dummy {f00=0x0082, f01=0x0190, f02=»NOK A250 IF OUT OF RANGE P MOVE BIN9,W4 P B B350 6 * F ***** FORMAT-FIELD ***** P * r B320 | * P CBNE BIN10,W0,B330 "CURRENT FIELD" ? 2 P MOVE BIN10,DEBINW3 UPDATE INDEX WITH CURRENT P* PB330 > P CALL
0x1ab92c…1abac0 Dummy {f00=0x0082, f01=0x0190, f02=»R FORMAT-VALUE TO WORKITEM ***** * * > P CON X.MOVE,DEINPUT,X.PSEU1,X.PSEU2,X.WB10,BIN10 BCD-ITEM 4 P B B500 v * B350 ( P EDIT DEINPUT,WFORM(BIN9) STRG-ITEM EJECT * * $ ***** EXECUTE ARITHMETIC ***
0x1abac0…1abc54 (1, 306) Dummy {f00=0x0083, f01=0x0190, f02=»BCDI21(W2),W0,W1,D1,W0 "+-SIGN" TO WORKITEM PB510 4 P IB BIN3,B520,B530,B540 @ " P ADD BCDI21(W1),BCDI21(W2) "+" ` P B B100 PB520 " P SUB BCDI21(W1),BCDI21(W2) "-" P B B100 PB530 " P MUL BCDI21(W1),BCDI21(W2) "*"
0x1abc54…1abde8 Dummy {f00=0x0083, f01=0x0190, f02=» n * B600 ( P TBF BOOL2,B610 NO ARITHMETIC DONE ? ( P MOVE DEINPUT,HEX00 CLEAR STRG-WORK J , P MOVE BIN10,W0 MOVE SUM TO STRG-WORK... v 6 P EDSUB DEINPUT,BIN10,WF3 ...AND GET LENGTH OF SUM PB610 $ P CBE BIN6,W2,B620 FORMAT-FIE
0x1abde8…1abf7c Dummy {f00=0x0083, f01=0x0190, f02=» USER-VARIABLE n P B B050 * & B620 0 ( P CBNE BIN7,W0,B640 CURRENT FIELD ?? < 0 P MOVE BIN7,DEBINW3 UPDATE WITH CURRENT INDEX h * B640 " P CALL GETFWD,BIN4,0,BIN7,BIN9 P CALL ADJUST,BIN4 * P GETCTL 1,BI
0x1abf7c…1ac110 Dummy {f00=0x0083, f01=0x0190, f02=»UT,BIN10,WF3 & P SUB BIN10,W1 ADJUST LENGTH OF SUM & P CMP BIN10,BIN9 RESULT LEN VS MAXL > P BE NUM h P BG B650 x P GETCTL 2,BIN9 GET MINL 4 P CBNL BIN10,BIN9,NUM IF RESULT LEN NOT LESS MINL , P SUB BIN9,BIN10 CALCULATE MISSING ZEROES
0x1ac110…1ac2a4 Dummy {f00=0x0083, f01=0x0190, f02=»UB BIN10,BIN9 CLEAR BYTE IN... P DLETE DEINPUT,W1,BIN10 & PNUM F 8 P CBE BCDI21(W1),:FMTITEM,CONT DONT DISPLAY IF EQUAL R PNUM100 * P ERASE 1,BIN7,BIN7 ERASE OLD CONTENTS P UPDFLD 1,DEINPUT PCONT 2 P CBE BIN7,DEBINW3,FINISH
0x1ac2a4…1ac438 Dummy {f00=0x0083, f01=0x40a6, f02=»,W0 . P MATCH DEINPUT,BIN4,BIN9,:FMTITEM,W0,BIN9 P BOK CONT IF EQUAL CONTENTS > P B NUM100 b * t PEND ~ * END @ IN7,BIN7 ERASE OLD CONTENTS P UPDFLD 1,DEINPUT PCONT 2 P CBE BIN7,DEBINW3,FINISH
0x1ac438…1ac5cc Dummy {f00=0x0083, f01=0x2008, f02=» . P MATCH DEINPUT,BIN4,BIN9,:FMTITEM,W0,BIN9 P BOK CONT IF EQUAL CONTENTS > P B NUM100 b * t PEND ~ * END @ IN7,BIN7 ERASE OLD CONTENTS P UPDFLD 1,DEINPUT PCONT 2 P CBE BIN7,DEBINW3,FINISH
0x1ac5cc…1ac760 Dummy {f00=0x0083, f01=0x0190, f02=» IF NOT BALACE z P PERF DERROR,DEKTAB6 P B ERRP20 2 PUPDR13 D P TSTCTL 5 LOOK IF CTAB R P BZ UPDR14 NO! p ( P DUPL STR2A LOOK IF KEYED INPUT = N P BOK UPDR18 YES! P TBF ASDFLAG,UPDR14 PUPDR18 & P PERF DERROR,DEKTABI
0x1ac760…1ac8f4 (1, 307) Opaque[0x194]
0x1ac8f4…1aca88 # DirEnt {nam=»DEVGAC«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x1068, f03=0x0000}
0x1ac8f4…1aca88 IdxSect {
0x1ac8f4…1aca88 f00 = 0x0083 // 0x1ac8f4 @0x0
0x1ac8f4…1aca88 f01 = 0x000c // 0x1ac8f6 @0x2
0x1ac8f4…1aca88 gno = [ // 0x1ac8f8 @0x4
0x1ac8f4…1aca88 [0x00]: C0x0083.0x1.0
0x1ac8f4…1aca88 [0x01]: C0x0083.0x2.0
0x1ac8f4…1aca88 [0x02]: C0x0083.0x3.0
0x1ac8f4…1aca88 [0x03]: C0x0084.0x0.0
0x1ac8f4…1aca88 [0x04]: C0x0084.0x1.0
0x1ac8f4…1aca88 [0x05]: C0x0084.0x2.0
0x1ac8f4…1aca88 ]
0x1ac8f4…1aca88 }
0x1aca88…1acc1c Dummy {f00=0x0083, f01=0x0190, f02=» $ P IDENT DEVGAC REL 10.0 80-04-11 P 80-10-28/JAER , * D @ <* THIS PROGRAM-MODUL CONTAINS ENTRIES TO THE DIFFERENT N < 8* CONVERTIONS THAT OCCURS IN THE FORMAT GENERATION * DDUM DEDDIV PDIV P* , P
0x1acc1c…1acdb0 Dummy {f00=0x0083, f01=0x018e, f02=»SAGE | P* * P EXT CMPIND COMPARE INDEX (DIMENSION) * D P EXT EMPTYT CHECK EMPTY ITEM N P* r * KEYTABLES | * & P* USAGE: DATA ENTRY SCREEN * CLR EQU X'8F' CLEAR CAN EQU X'91' CANCEL
0x1acdb0…1acf44 Dummy {f00=0x0083, f01=0x018e, f02=» P* < P* VALIDATION- GENERATION- AND ACCUMULATION CONTROL P* N L P* THIS MODULE STEERS THE PROCESSING OF THE THREE DIFFERENT FUNCTIO X P* P* INPUT PARAMETERS: H P* FMTWK(W10) = NUMBER OF CHA
0x1acf44…1ad0d8 Dummy {f00=0x0083, f01=0x0190, f02=» L P* FMTWK(W12) = CALCULATE TOTAL NUMBER OF CHARCTE D P* DEBIN3 = POINTER FUNC,-TEXT-STRING T D P* DEBIN4 = POINTER CHARACTER-STRING : P* DEBINW2
0x1ad0d8…1ad26c Dummy {f00=0x0083, f01=0x0190, f02=»ATION ` < P* = 3 = ACCUMULATION : P* STRG10A = FUNCTION TEXTS N 0 P* STR1A = WORK 0 P* BIN16 = WORK P* P* OU
0x1ad26c…1ad400 Dummy {f00=0x0083, f01=0x018e, f02=»* DEBINW1 = ERRORPOSITION IN CHARACTERSTRING D P* DEBINW4 = FIELDNR WHEN ERROR FOUND P PVGACNT PROC 4 P CALL EMPTYT,FORTAB(W1) CHECK IF 1ST LINE EMPTY P AFTER CORRECTION P BOK VGA
0x1ad400…1ad594 (1, 308) Dummy {f00=0x0083, f01=0x0190, f02=» P AFTER CORRECTION P BOK VGAC03 NOT EMPTY * P MOVE FMTWK(W11),W0 EMPTY => NO CHARS > PVGAC03 l 2 P MOVE FMTWK(W12),FMTWK(W10) LOAD NUMB CHARS 1 z 0 P ADD FMTWK(W12),FMTWK(W11) ADD NUMB CHARS 2 4 P CBE FMTWK(W10),=X'50',VGAC10 JUMP I
0x1ad594…1ad728 Dummy {f00=0x0083, f01=0x0190, f02=»MAX FILLED AND 2ND STRING j P* PARTIAL FILLED. " < P* -ACTION: DELETE EMPTY POSITIONS OF 1ST STRING B > P* WITH HELP OF THE REDEFINED ITEM JOBSPC : P* FINALLY DISPLAY IT IN SEQUENS AGAIN P*
0x1ad728…1ad8bc Dummy {f00=0x0083, f01=0x0190, f02=»IN16 DELETE EMPTY CHARACTERS v * P MOVE BIN15,=X'A0' LOAD WITH MAXLENTH $ & P SUB BIN15,BIN16 COMPUTE STARTP]OS R > P XCOPY JOBSPC,BIN15,BIN16,DEINPUT,W0 FILL REST WITH X'00' | " P CBL FMTWK(W12),=X'51',VGAC05 P MOVE FMTWK(W11),FMTWK(W12) P
0x1ad8bc…1ada50 Dummy {f00=0x0083, f01=0x0190, f02=»FMTWK(W11),W0 P EJECT PVGAC10 $ & P MOVE DEBIN4,W0 STARTPOS IN JOBSPC 2 . P MOVE STR1A,=C'#' WORK:=FUNCTIONSEPARATOR 0 P MOVE STRG10A,=C'V:G:A:' LOAD FUNCTION-TEXTS ( P MOVE DEBIN3,DEBIN4 LOAD ACTUAL POS 4 P MATCH JOBSPC,DEBIN3,W1,ST
0x1ada50…1adbe4 Dummy {f00=0x0083, f01=0x0190, f02=»IONINDEX:=0 z . P MATCH STRG10A,DEBINW2,W6,JOBSPC,DEBIN4,W2 " P BNOK VGAC90 JUMP IF NOT FOUND F . P MOVE FBIN1,DEBINW2 SAVE FUNCTEXT POINTER l P ADD DEBINW2,W2 P DIV DEBINW2,W2 . P TBF BOOL6,VGAC20 JUMP IF ORDINARY FORMAT 6 P CBE DEB
0x1adbe4…1add78 Dummy {f00=0x0083, f01=0x0190, f02=»CTUAL POSITION v 4 P MOVE DEBIN2,FMTWK(W12) LOAD TOTAL NUMB OF CHARS . P SUB DEBIN2,DEBIN4 NUMB OF CHARS TO MATCH N D P MATCH JOBSPC,DEBIN3,DEBIN2,STRG10A,FBIN1,W2 JUST ONE FUNC EACH ( P BNOK VGAC35 NO MORE OF SAME FONC OK . P MOVE DEBIN4,DEBIN3
0x1add78…1adf0c Dummy {f00=0x0083, f01=0x018e, f02=»L POSITION r P MOVE STR1A,=C'#' 0 P MATCH JOBSPC,DEBIN3,DEBIN2,STR1A,W0,W1 NEXT , P BOK VGAC40 OK NEXT # FOUND ` 4 P MOVE DEBIN3,FMTWK(W12) LOAD WITH LAST POSITION PVGAC40 6 P MOVE FMTWK(DEBINW2),DEBIN3 LOAD ENDPOS OF CONTROL 6 P PER
0x1adf0c…1ae0a0 Dummy {f00=0x0083, f01=0x0190, f02=» P SET ACKUM PVGAC45 8 P CBE DEBIN4,FMTWK(W12),VGAC99 JUMP IF END OF STRING $ P ADD DEBIN4,W1 NEXT POSITION ` P B VGAC15 P EJECT PVGAC90 . P TBF BOOL6,VGAC92 JUMP IF ORDINARY FORMAT " P ERASE 0,W13,W14 ERASE 2 LINES
0x1ae0a0…1ae234 (1, 309) Dummy {f00=0x0083, f01=0x0190, f02=»RASE 2LINES ON SCREEN ~ P DISPLAY 1,W12,W13 REDISPLAY 0 P MOVE DEBINW4,W12 FIELD TO MAKE CURRENT =19 B PVGAC94 v $ P MOVE BIN16,W1 1ST LINE CURRENT & P MOVE BIN15,=X'50' LOAD SIZE = 80 . P MOVE DEBINW1,DEBIN4 STORE ACTUAL POSITION & P
0x1ae234…1ae3c8 Dummy {f00=0x0083, f01=0x0190, f02=» DEBINW4,W1 FIELD TO MAKE CURRENT = +1 " P ADD BIN16,W1 2ND LINE CURRENT . PVGAC95 T P GETFLD 0,DEBINW4,DEBINW3 b " P MOVE DEBINW4,W6 ILLEGAL VALUE P PERF DERROR,DEKTAB4 > P XCOPY DEINPUT,W0,BIN15,FORTAB(BIN16),W0 RELOAD FALSE LINE P
0x1ae3c8…1ae55c Dummy {f00=0x0083, f01=0x0190, f02=»CHARS STRG2:=0 t P CMP W1,W1 CR = 0 PVGACEX 0 P RET > P PEND J P EJECT X P* f , P* CONTROL VARIABLE NUMBER (INDEX) p P* & P* INPUT PARAMETERS (FORMAL): J P* CHNUM = NUMBER O
0x1ae55c…1ae6f0 Dummy {f00=0x0083, f01=0x0190, f02=» DEBIN4 = STRG TO CONTROL r P* $ P* INPUT PARAMETERS: . L P* VALSTR = VAL/GEN/ACC---CHARACTERSTRIN P H P* DEBIN4 = POINTER CHARACTER-STRING P* H P* WORKITEMS
0x1ae6f0…1ae884 Dummy {f00=0x0083, f01=0x0190, f02=» BIN15 = LENGTH OF VALSTR J P* BIN16 = MATCHING-POINTER 'VALSTR' < P* P* OUTPUT PARAMETERS : 6 P* 'CR' = 0 , OK : P*
0x1ae884…1aea18 Dummy {f00=0x0083, f01=0x0190, f02=»****************************************************************** " PCNTNUM PROC WSTRG,CHNUM(),WIND J , P MOVE BIN15,=W'31' LOAD LENGTH OF VALSTR p * P CLEAR BOOL8 F=NO TREASPASSING OF DUPL P CLEAR BOOL4 P EJECT PCNT00 P MOVE BIN1
0x1aea18…1aebac Dummy {f00=0x0083, f01=0x0190, f02=» " P CBE BIN16,W0,CNTM JUMP IF 'M' ( P IB BIN16,CNT0,CNT0,CNT0,CNT0, 1-4 C . & P CNT3,CNT2,CNT0,CNT2,CNT2, 5-9 C Z ( P CNT1,CNT3,CNT2,CNT2,CNT0, 10-14 C ( P CNT0,CNT0,CNT0,CNT0,CNT0, 15-19 C * P CNT0,CNT0,CNT0,CNTLL,CNNOKL, 20-24 C
0x1aebac…1aed40 Dummy {f00=0x0083, f01=0x018e, f02=» n ( P IB BIN16,CNT0,CNT0,CNT0,CNT0, 1-4 C & P CNT3,CNT2,CNT0,CNT2,CNT2, 5-9 C 4 ( P CNT1,CNT3,CNT2,CNT2,CNT0, 10-14 C ^ ( P CNT0,CNT0,CNT0,CNT0,CNT0, 15-19 C * P CNT0,CNT0,CNT0,CNTL,CNNOKL, 20-24 C . P CNTCC,CNNOKL,CNNOKL,CNT0,CNNOKL, 2
0x1aed40…1aeed4 (1, 310) Dummy {f00=0x0084, f01=0x018e, f02=» ( P IB BIN16,CNT0,CNT0,CNT0,CNT0, 1-4 C & P CNT3,CNT2,CNT0,CNTCC,CNT2, 5-9 C 0 ( P CNT1,CNT3,CNT2,CNT2,CNT0, 10-14 C Z ( P CNT0,CNT0,CNT0,CNT0,CNT0, 15-19 C ( P CNT0,CNT0,CNT0,CNTL,CNT0, 20-24 C 0 P CNNOKL,CNNOKL,CNNOKL,CNNOKL,CNNOKL 25-29
0x1aeed4…1af068 Dummy {f00=0x0084, f01=0x018e, f02=» P SET BOOL8 DUPL PASSED ONCE & P CBE BIN16,W0,CNNOKL M NOT ALLOWED ( , P IB BIN16,CNNOK,CNNOK,CNNOK,CNNOK 1-4 C R & P CNT0,CNNOK,CNNOK,CNT2,CNT2 5-9 C P CNT1,CNT3,CNT2 10-12 PCNNOKL P B CNNOK PCNTLL P B CNTL P E
0x1af068…1af1fc Dummy {f00=0x0084, f01=0x0190, f02=» , P MOVE DEBIN3,DEBIN4 LOAD ACTUAL POSITION 2 P MATCH WSTRG,DEBIN3,W1,VALSTR,W23,W1 M'...' ? 4 P BOK CNTL M'......' j P SUB DEBIN4,W1 ADJUST P B CNT2 M99 P EJECT PCNTCC CONDITIONAL GEN/ACC P ADD DEBIN4,W1 NEXT POD0S
0x1af1fc…1af390 Dummy {f00=0x0084, f01=0x0190, f02=» CHAR ^ P BOK CNTLP LEFT PARENTESIS 2 P CBE WIND,W2,CNNOKL G OR A NOT ALLOWED IN GEN 0 ( P SUB DEBIN4,W1 ADJUST FOR ORDIN ACC f P B CNT2 P* P* P* PCNTLP LEFT PARENTHESIS $ P SET BOOL4 T=COND GEN/ACC FOUND P
0x1af390…1af524 Dummy {f00=0x0084, f01=0x0190, f02=»OUND l P BNZ CNT0 P B CNNOKL P EJECT 0 P* > P* CNT0 NO CONTROL H P* h PCNT0 r P ADD DEBIN4,W1 NEXT POS ~ > P CBE DEBIN4,CHNUM(WIND),CNTOKLB JUMP IF END OF LINE FOUND P B CNT00 GO ON PCNTOKLB P B
0x1af524…1af6b8 Dummy {f00=0x0084, f01=0x0190, f02=»CK f P BNOK CNNOK JUMP IF NOT OK P CALL CMPIND,DEBIN2,USEV(W1) , P BNZ CNNOK OUT OF RANGE P P B CNT0 GO ON p P EJECT P* $ P* CNT2 CONTROL OF 2 BYTES , P* -M,-L,-A,-S,-T,-C P* PCNT2
0x1af6b8…1af84c Dummy {f00=0x0084, f01=0x0190, f02=»CNT2C S 10 P CBE BIN16,W12,CNT2E T -- P* 4 P* M,L,C,F+,G+,D+ > P* $ P CBL DEBIN2,W0,CNNOK <00 NOT OK f ( P CBG DEBIN2,=W'99',CNNOK >99 NOT OK P B CNT2F P* P* A P* PCNT2B P CALL CMPI
0x1af84c…1af9e0 Dummy {f00=0x0084, f01=0x0190, f02=»ND,DEBIN2,SYSV(W1) P BNZ CNNOK OUT OF RANGE P B CNT2F : PCNT2E J $ P CBL DEBIN2,W1,CNNOK <01 NOT OK X ( P CBG DEBIN2,=W'94',CNNOK >94 NOT OK , P MOVE DEBIN3,DEBIN4 LOAD WORKPOSITIONER ( P ADD DEBIN3,W2 ADJUST WORKPOSITIONER 2 P
0x1af9e0…1afb74 (1, 311) Dummy {f00=0x0084, f01=0x0190, f02=» DEBIN4,W2 ADJUST POINTER IF OK . P MOVE BIN16,W6 SIMULATE L TO CHECK VS-IND ( P B CNT2 Z PCNT2F j P ADD DEBIN4,W1 NEXT POS x P B CNT0 GO ON P EJECT P* , P* CNT3 CONTROL OF 3 BYTES -D,-F P* PCNT3
0x1afb74…1afd08 Dummy {f00=0x0084, f01=0x0190, f02=»ONER p < P MATCH VALSTR,DEBIN3,W2,WSTRG,DEBIN4,W1 RELATIVE SIGN ? " P BNOK CNT3Z NO REL SIGN FOUND L . P CBNE WIND,W4,CNT2 JUMP IF NOT DUPL-STRING r 0 P CBE DEBIN3,W15,CNNOK F+ NOT ALLOWED IN DUPL " P B CNT2 CONTROL FOR 2CHARCTERS PCNT3Z
0x1afd08…1afe9c Dummy {f00=0x0084, f01=0x0190, f02=»,CNNOK < 0 NOT OK * P CBG DEBIN2,=W'999',CNNOK > 999 NOT OK $ P CBE BIN16,W5,CNT3A JUMP IF 'D' H P B CNT3B JUMP IF 'F' OR 'G' p PCNT3A . P CBNL BIN10,DEBIN2,CNT3B FXX NOT < DXX OK P B CNNOK JUMP IF ERROR PCNT3B P ADD DEB
0x1afe9c…1b0030 Dummy {f00=0x0084, f01=0x0190, f02=» 4 P CBNL DEBIN4,CHNUM(WIND),CNNOK JUMP, IF OFERFLOW ! ( P MOVE DEBIN2,CHNUM(WIND) SAVE ENDPOS ! < , P SUB DEBIN2,DEBIN4 NUMB OF CHRS TO MATCH ! h * P MOVE DEBIN3,DEBIN4 STARTPOS IN MATCH ! : P MATCH WSTRG,DEBIN3,DEBIN2,VALSTR,W23,W1 MATCH NEXT ' ! P BNO
0x1b0030…1b01c4 Dummy {f00=0x0084, f01=0x0190, f02=» ! n 6 P CBE BIN16,W26,CNTLFK JUMP IF COND FORM CHANGE (R) " 6 P CBE BIN16,W27,CNTLFK JUMP IF COND FORM CHANGE (N) " B P B CNTLOK " | PCNTLFK " 0 P CBG DEBIN3,W6,CNNOK FORMAT NAME > 6 NOT OK " PCNTLOK " & P ADD DEBIN4,DEBIN3 ADJUST NEXT POS " P
0x1b01c4…1b0358 Dummy {f00=0x0084, f01=0x0190, f02=»T POINTER POSITION " | 4 P CBNL DEBIN4,CHNUM(WIND),CNNOK JUMP IF OVERFLOW # P B CNTL JUMP LITERAL CONTROL # R P EJECT # v PCNNOK # ( P CBNE WIND,W4,CNNCR JUMP IF NOT DUPL # 0 P MOVE DEBINW1,DEBIN4 RESTORE ERROR-POSITION # . P ADD DEBINW1,W1 ADJUST
0x1b0358…1b04ec Dummy {f00=0x0084, f01=0x0190, f02=» B CNRT # PCNTOK $ : P TBT BOOL4,CNNOK NOT OK IF COND GEN/ACC NOT CONCLUDED $ P CMP W1,W1 CLEAR CR $ PCNRT $ x P RET $ P PEND $ P EJECT $ P* $ B P* THIS PROCEDURE CHECKS IF RIGHT NUMBER OF REAL DIGITS $ @ P* HA
0x1b04ec…1b0680 Dummy {f00=0x0084, f01=0x0190, f02=»RS (FORMAL) : WSTRG = WORKSTRING CONTAINS DIGIT $ x L P* CHNUM = ENDPOSITION IN WSTRG FOR % 8 B P* WIND = INDEX TO CHNUM % L P* NUMB = NUMBER OF D
0x1b0680…1b0814 (1, 312) Dummy {f00=0x0084, f01=0x0190, f02=» PARAMETERS : DEBIN3 =WORKAREA % < P* STR6A = WORKAREA & 0 < P* BCD13A = WORKAREA & p P* & L P* OUTPUT PARAMETERS : DEBIN2 = CHECKED DIGITS BINARY STO & L
0x1b0814…1b09a8 Dummy {f00=0x0084, f01=0x0190, f02=» : P* CR/= 0 = NOT OK ' L P************************************************************************ ' B ( PDIGCHK PROC WSTRG,CHNUM(),WIND,NUMB ' * P ADD DEBIN4,W1 ADJUST POINTER POSITION ' , P MOVE DEBIN3,DEBIN4 SAVE POI
0x1b09a8…1b0b3c Dummy {f00=0x0084, f01=0x4180, f02=»HEX00 INITIALIZE:=00000000 ' & P XCOPY STR6A,W0,NUMB,WSTRG,DEBIN4 ( " P MOVE BCD13A,STR6A STR=>BCD ( L P MOVE DEBIN3,W0 ( p P EDSUB STR6A,DEBIN3,FSCONV ( ( P CMP DEBIN3,NUMB CHECK IF EQUAL = OK ( P MOVE DEBIN2,BCD13A BCD=>BIN ( PDIGC99 ( P
0x1b0b3c…1b0cd0 Dummy {f00=0x0084, f01=0x2008, f02=» ) P MOVE BCD13A,STR6A STR=>BCD ' P MOVE DEBIN3,W0 ' . P EDSUB STR6A,DEBIN3,FSCONV ' F ( P CMP DEBIN3,NUMB CHECK IF EQUAL = OK ' h P MOVE DEBIN2,BCD13A BCD=>BIN ' PDIGC99 ' P RET ' P PEND ' P EJECT ' PFSCONV FRMT ' P FMEL
0x1b0cd0…1b0e64 Dummy {f00=0x0084, f01=0x4014, f02=» HNOD @ &| 0$ * & ) ' 0 @vT &z @ P $0 $} W . $ G xyj &"x x* !!4 ! 4 * & _ M 7 G X } S = DEACC * & @ + j
0x1b0e64…1b0ff8 Dummy {f00=0x0084, f01=0x018e, f02=» IDENT P:S023 * & Ii " !W ! 0 " * & - " P !, ! ? Ij { P * & K j 1! !j 2! !Hj 1j !&m $ ~ * & i r"Ii' U ! ( j !! ( * & ) x. .K .*W x( H * &
0x1b0ff8…1b118c Dummy {f00=0x0084, f01=0x0190, f02=» * & ! Ij 0# : 0$ P8: _ 0 && * & du d ! 0 ## #_* / 2 * & ; ! !( % A _ 0&I I I I Ij ` * & Y & # x 0* )+ W20* *+ W(0 * & w * ,, W ! $ 0' / T W * & 0' - T ! 2 W
0x1b118c…1b1320 Dummy {f00=0x0084, f01=0x0190, f02=» I .4 t * & ? "(0. _*Am #02W 03W 04W X * & + Z [ +( H I C_ 1( _ @ * & I T 1( !05 ? 2 ? n * & g W #0- T %y0 %%_ W}? * & ( 0&W !0) ( 1( ? 06 . * & ? Hi H
0x1b1320…1b14b4 (1, 313) Opaque[0x194]
0x1b14b4…1b1648 # DirEnt {nam=»DERECS«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x1098, f03=0x0000}
0x1b14b4…1b1648 IdxSect {
0x1b14b4…1b1648 f00 = 0x0084 // 0x1b14b4 @0x0
0x1b14b4…1b1648 f01 = 0x000e // 0x1b14b6 @0x2
0x1b14b4…1b1648 gno = [ // 0x1b14b8 @0x4
0x1b14b4…1b1648 [0x00]: C0x0084.0x3.0
0x1b14b4…1b1648 [0x01]: C0x0085.0x0.0
0x1b14b4…1b1648 [0x02]: C0x0085.0x1.0
0x1b14b4…1b1648 [0x03]: C0x0085.0x2.0
0x1b14b4…1b1648 [0x04]: C0x0085.0x3.0
0x1b14b4…1b1648 [0x05]: C0x0086.0x0.0
0x1b14b4…1b1648 [0x06]: C0x0086.0x1.0
0x1b14b4…1b1648 ]
0x1b14b4…1b1648 }
0x1b1648…1b17dc Dummy {f00=0x0084, f01=0x0190, f02=» $ P IDENT DERECS REL 10.0 80-04-11 P UPD 80-05-13/DALI , P 80-04-14/DALI H DDUM DEDDIV ` PDIV t P ENTRY DERECS P ENTRY DEREFO EXT ATTDB EXT ATTWB EXT RESTOR EXT SAVE EXT DEPOOL
0x1b17dc…1b1970 Dummy {f00=0x0084, f01=0x0190, f02=» P EXT TESTB P EXT MSKOUT EJECT * PDERECS PROC FC 8 * P CALL RESTOR,W0,W4,PWBDB4 RESTORE RBUF N 6 P XCOPY WORK(W10),W1,W1,RBUF,PRECCUR INITIAL STATUS | P CALL UPDBIN,BIN1 P CLEAR BOOL9 P MOVE BIN11,FC * P IB FC,ENTNEW,
0x1b1970…1b1b04 Dummy {f00=0x0084, f01=0x0190, f02=»DATARECORD ********************** PENTNEW FC= 1 0 . P XCOPY RBUF,PRECCUR,W1,BIN1,W1 REC.STATUS F MOVE PRECPR,PRECCUR x ADD PRECCUR,RECLNTH 2 P XCOPY RBUF,W6,W2,PRECCUR,W0 STORE USED SPACE . P CBE NUMBER,=D'0',DROK00 JUMP IF
0x1b1b04…1b1c98 Dummy {f00=0x0084, f01=0x0190, f02=»30 JUMP IF NOT SPACE z P CLEAR DOOL4 P BNZ DROK00 0 PENTN20 D * P CBNE FC,W7,ENTN25 JUMP IF NOT GETLST R 0 P CBNE NUMBER,=D'0',ENTN25 JUMP IF NOT FIRST P CLEAR BOOL9 P B NEWR70 PENTN25 , P XCOPY RBUF,PRECCUR,RECLNTH,RBUF
0x1b1c98…1b1e2c Dummy {f00=0x0084, f01=0x018e, f02=» ENTN40 P MOVE PRECCUR,PRECPR P XCOPY RBUF,W6,W2,PRECPR,W0 , P B DRNO00 P PENTN40 b 8 P XCOPY BDPOIN(W1),W0,W2,RBUF,W2 LAST ENTERED RECORD p . P TBF DEPROMPT,ENT45 JUMP IF NOT NEW FORMAT $ P CBE FC,W7,ENT45 JUMP IF GETLAST , P M
0x1b1e2c…1b1fc0 Dummy {f00=0x0084, f01=0x0190, f02=» t PENTN50 SUB PRECPR,PRECCUR P DLETE RBUF,PRECCUR,PRECPR * PENTN55 L , P XCOPY RBUF,PRECCUR,W1,BPOOL(PINDFR),W0 Z PENTN60 P MOVE PRECPR,PRECCUR P EJECT P********************** P* RETURN FROM DERECS * P**********
0x1b1fc0…1b2154 (1, 314) Dummy {f00=0x0085, f01=0x0190, f02=»ROK10 PDROK05 P CBNE FC,W7,DROK10 8 P XCOPY BDPOIN(W1),W0,W2,RBUF,W2 LAST ENTERED RECORD 6 PDROK10 r ( P CBE PINDFR,W0,DROK20 NO CURR FORMAT 6 P CALL ATTDB,BPOOL(PINDFR),W4,W10 FORMAT DESCRIPTOR P MOVE BIN14,FLIND(W1) P ATT
0x1b2154…1b22e8 Dummy {f00=0x0085, f01=0x0190, f02=»C P DROK45 ENTOLD C P DROK70 ENTLST C $ P DROK70 GETNXT C > P DROK70 GETCUR C X P DROK70 GETPRE C r P DROK65 GETLST C P DROK70 DELREC C P DROK65 INSREC C P DROK70 NEWREC C P DROK70 OPENBC C
0x1b22e8…1b247c Dummy {f00=0x0085, f01=0x0190, f02=» TBF DBOMVR,DROK56 JUMP IF NOT MUST VERIFY 2 P CALL TESTB,WORK(W10),W10 LOOK IF OLD VERIFIED 2 P BZ DROK52 NOT! h , P TBT DBOVER,DROK56 JUMP IF NEW VERIFIED & PDROK50 RECORD TO VERIFY ENTERED 0 P ADD BDPOIN(W5),W1 INCREASE NUMBER TO VERIFY
0x1b247c…1b2610 Dummy {f00=0x0085, f01=0x018e, f02=»P IF RECORD VERIFIED NOW z * P CBNE FC,W2,DROK50 JUMP IF NEW RECORD P B DROK56 OLD RECORD N PDROK54 VERIFIED RECORD j 2 P SUB BDPOIN(W5),W1 DECREASE NUMBERS TO VERIFY ( P BNZ DROK56 ALL RECORDS NOT VERIFIED P SET BDAVER VERIFIED BATCH
0x1b2610…1b27a4 Dummy {f00=0x0085, f01=0x018e, f02=» P BNZ DROK57 YES! , P TBF DBOFOR,DROK60 NEW RECORD NOT FORCED 0 P ADD BDPOIN(W4),W1 INCREASE NUMBER OF FORCED L * P SET BDAFOR BATCH WITH FORCED RECORDS P B DROK60 PDROK57 ( P TBT DBOFOR,DROK60 NEW RECORD FORCED 0 P SUB BDPOIN(W4
0x1b27a4…1b2938 Dummy {f00=0x0085, f01=0x0190, f02=» $ P CBE FC,W2,DROK70 JUMP IF ENTOLD PDROK65 0 . P CBNL FC,W12,DROK70 JUMP IF RECORD INSERT > , P ADD NUMBER,=D'1' ADJUST CURRENT REC.NO p PDROK70 P CALL UPDBOL,BIN1 PDROK71 P MOVE BCDI21(W3),NUMBER P CMP W1,W1 CONDITI
0x1b2938…1b2acc Dummy {f00=0x0085, f01=0x0190, f02=» ^ PDRNO10 . P CALL ATTWB,RBUF,PRECCUR,W10 FIX WORKBLOCK P CBNE PINDFR,W0,DRNO20 H P CBE FC,W7,DRNO15 GETLST f P CBNE FC,W4,DRNO20 GETNXT PDRNO15 P ADD NUMBER,=D'1' PDRNO20 P CLEAR DOOL1 P CMP W1,W2 CONDITION =
0x1b2acc…1b2c60 Dummy {f00=0x0085, f01=0x0190, f02=»1),CURSEC SAVE LAST SECTOR P PERF OFRSP,CURSEC,FILINDUS " P B DROK10 F P EJECT X * P************************************** f * P* ENTER OLD RECORD AFTER CORRECTION. * * P************************************** PENTOLD FC= 2 P C
0x1b2c60…1b2df4 (1, 315) Dummy {f00=0x0085, f01=0x0190, f02=»ERR DRNO00 P B DROK00 P EJECT $ P************************* 2 P* ENTER LAST DATARECORD. T P************************* t PENTLST FC= 3 , P XCOPY BIN14,W0,W2,RBUF,W2 LINK TO PREV PENTL10 , P XCOPY PRECCUR,W0,W2,RBUF,W6 U
0x1b2df4…1b2f88 Dummy {f00=0x0085, f01=0x0190, f02=»DEDISC,BIN13 DELETE BATCH P BERR DRNO00 " P B DROK71 6 PENTL15 H " P PERF DEDISC,W17 DELETE SECTOR V P BERR DRNO00 | P MOVE CURSEC,BIN14 P B GETL05 PENTL20 P MOVE BDPOIN(W1),CURSEC P PERF DEDISC,W8 ENTER LAST
0x1b2f88…1b311c Dummy {f00=0x0085, f01=0x0190, f02=»GET LAST RECORD PENTL30 P MOVE BDPOIN(W1),BIN14 & P B DRNO00 D EJECT V *********************** d * GET NEXT RECORD *********************** PGETNXT FC= 4 P XCOPY BIN14,W0,W2,RBUF,W6 P MOVE PRECPR,PRECC
0x1b311c…1b32b0 Dummy {f00=0x0085, f01=0x0190, f02=»,RECLNTH P MOVE BIN13,PRECCUR * P MOVE BIN12,CURSEC SAVE CURRENT SECTOR , 6 P CBL PRECCUR,BIN14,GETN43 JUMP IF MOORE IN SECTOR Z PGETN10 , ( XCOPY BIN13,W0,W2,RBUF,W4 GET NEXT LINK 0 P CBNE BIN13,W0,GETN30 JUMP IF MOORE SECTORS PGE
0x1b32b0…1b3444 Dummy {f00=0x0085, f01=0x0190, f02=»DEDISC,BIN13 P CBNE DEBINW4,W0,DRNO00 PGETN28 4 & P MOVE DEBINW4,W15 NO MOORE RECORDS B P B DRNO00 l PGETN30 ~ & ! PERF DEDISC,W15 READ NEXT SECTOR P BERR DRNO00 . ) XCOPY BIN13,W0,W2,RBUF,W6 GET USED SPACE , P CBNE BIN13,
0x1b3444…1b35d8 Dummy {f00=0x0085, f01=0x0190, f02=» x P MOVE PRECCUR,W10 P MOVE PRECPR,PRECCUR " P* > P MOVE BIN13,PRECCUR H PGETN43 d * P ADD BIN13,W7 GET RECLNTH IN DATRECORD r $ P XCOPY RECLNTH,W0,W2,RBUF,BIN13 PGETN45 * P ADD NUMBER,=D'1' INCREASE CURR RECNO PGETN
0x1b35d8…1b376c Dummy {f00=0x0085, f01=0x0190, f02=»SECTOR x PGETN55 P MOVE BIN15,W0 0 P XCOPY BIN15,W0,W1,RBUF,PRECCUR RECORDSTATUS 2 * P CALL MSKOUT,BIN15,WORK(W12) MSK-WORD f P CBE BIN15,WORK(W11),GETN70 & P CBE FC,W6,GETN60 JUMP IF GETPREV P CBE FC,W3,GETN60 OR ENTLST P C
0x1b376c…1b3900 Dummy {f00=0x0085, f01=0x0190, f02=»BE NUMBER,=D'0',GETN70 BATCHHEAD REACHED P SUB BCDI21(W3),=D'1' 0 " P B GETPRE GET PREVIOUS RECORD N PGETN70 t P MOVE BIN13,PRECCUR P ADD BIN13,W1 P B GETL90 P EJECT " P***************************** P* GET CURRENT
0x1b3900…1b3a94 (1, 316) Dummy {f00=0x0085, f01=0x0190, f02=»=D'0',GETC60 OR BATCHHEAD , P XCOPY BIN11,W0,W2,RBUF,W4 LINK TO NEXT " 0 P CBNE PRECPR,PRECCUR,GETC10 JUMP IF NOT THE R " P FIRST RECORD WITHIN SECTOR " P B GETP10 GET PREVIOUS RECORD PGETC10 P MOVE BIN13,W1 * P ADD BIN13,PRECPR
0x1b3a94…1b3c28 Dummy {f00=0x0085, f01=0x018e, f02=»MP IF NOT LAST x P ENTERED SECTOR P CBNE STR6A,FORMAT,GETC30 0 P CMP FC,W7 R P BZ ENTN10 JUMP IF GETLST d P B ENTN25 PGETC30 SET DEPROMPT P B DROK00 PGETC40 * P XCOPY RBUF,W2,W2,CURSEC,W0 LINK PREV P MOVE
0x1b3c28…1b3dbc Dummy {f00=0x0085, f01=0x0190, f02=» f P CBNE STR6A,FORMAT,GETC50 P B ENTN50 * PGETC50 < P SET DEPROMPT J P B ENTN60 ` PGETC60 r P MOVE BIN13,=W'33' P PERF DEDISC,BIN13 P BERR DRNO00 P B DROK00 P EJECT " P*****************************
0x1b3dbc…1b3f50 Dummy {f00=0x0085, f01=0x018e, f02=» B GETL40 PGETP10 P CBE PRECCUR,W10,GETP20 P B GETL20 @ PGETP20 R * P MOVE BIN12,CURSEC SAVE CURRENT SECTOR ` PGETP30 ( P XCOPY BIN13,W0,W2,RBUF,W2 LINK PREV P CBNE BIN13,W0,GETP40 P B GETN20 PGETP40 . ) X
0x1b3f50…1b40e4 Dummy {f00=0x0085, f01=0x0190, f02=» p P B GETP48 PGETP45 ( P MOVE BIN14,W16 GET PREVIOUS SECTOR ( PGETP48 T P PERF DEDISC,BIN14 b P BERR GETN20 | PGETP50 . ) XCOPY BIN13,W0,W2,RBUF,W6 GET USED SPACE P CBE BIN13,W10,GETP30 ( P CBE BIN14,W17,GETL05 DELE
0x1b40e4…1b4278 Dummy {f00=0x0085, f01=0x0190, f02=»*************** PGETLST FC= 7 P MOVE BIN12,CURSEC . 0 P CBE BDPOIN(W1),W0,GETL05 LAST SECTORADRESS H 2 P CBE CURSEC,BDPOIN(W1),GETL15 CURR.SEC IN RBUF | P MOVE CURSEC,BDPOIN(W1) PGETL05 P MOVE BIN14,=W'33' P PERF DEDISC,B
0x1b4278…1b440c Dummy {f00=0x0085, f01=0x0190, f02=»PR,W10 PGETL25 " P XCOPY BIN13,W0,W2,RBUF,BIN14 ( P CBE BIN13,W0,GETL27 ERROR IN SECTOR B P ADD PRECPR,BIN13 n P ADD BIN14,BIN13 P CBL PRECPR,PRECCUR,GETL25 0 P CBE PRECPR,PRECCUR,GETL30 LAST RECORD FOUND PGETL27 SERIOUS E
0x1b440c…1b45a0 Dummy {f00=0x0085, f01=0x0190, f02=» PGETL40 MOVE BIN13,PRECPR P ADD BIN13,W1 $ ( P CBNE FC,W5,GETL50 JUMP BACK IF GET : P B GETC20 CURRENT RECOPRD f PGETL50 $ P CBE FC,W7,GETL60 JUMP IF GETLST P MOVE PRECCUR,PRECPR P SUB NUMBER,=D'1' $ P CBE FC,W3,GETL53 JU
0x1b45a0…1b4734 (1, 317) Dummy {f00=0x0085, f01=0x0190, f02=» PGETL60 P MOVE NUMBER,BDPOIN(W2) PGETL90 2 " P COPY DEINPUT,W0,W6,RBUF,BIN13 @ P SET BOOL9 f P B NEWREC x P EJECT POTHERS $ P SUB BIN11,W7 ADJUST FOR DEREC2 : P IB BIN11,DELREC,INSREC,NEWREC,OPENBC,ENTINS,FREREC C
0x1b4734…1b48c8 Dummy {f00=0x0085, f01=0x0190, f02=»BE BIN14,W17,GETP50 P B GETPRE " P* RESERV SPACE FOR INSERTION * . " P* OF A NEW DATARECORD. * T PINSREC FC= 9 z P PERF DEREC2,BIN11 P BERR DRNO00 P B DROK00 P EJECT P******************** P* CHANGE FORMA
0x1b48c8…1b4a5c Dummy {f00=0x0085, f01=0x018e, f02=»F NOT BATCHHEAD p $ P CBE FC,W7,NEWR07 JUMP IF GETLST P MOVE BIN13,W20 @ P B NEWR32 X PNEWR05 j P TBF DOOL8,NEWR10 x PNEWR07 P MOVE BIN13,W1 P B NEWR32 PNEWFRM P SET BOOL9 PNEWR10 P TBF BOOL9,NEWR15
0x1b4a5c…1b4bf0 Dummy {f00=0x0085, f01=0x0190, f02=» PNEWR20 ! P MOVE STR6A,DEINPUT ! * PNEWR25 CBE STR6A,FORTAB(BIN13),NEWR30 ! . P ADD BIN13,W1 ! P CBNE BIN13,DEBINW4,NEWR25 ! r P TBF BOOL9,NEWR28 ! P CBG BIN13,W10,NEWR28 ! P MOVE BIN13,W0 ! P B NEWR35 ! PNEWR28 ! P MOVE
0x1b4bf0…1b4d84 Dummy {f00=0x0085, f01=0x0190, f02=»13) ! z PNEWR35 " P CBNE FORMAT,STR6A,NEWR37 " P TBF BOOL9,NEWR34 " < P CBE FC,W14,NEWR36 " V P B NEWR74 " p PNEWR34 " , P TBF DOOL8,NEWR36 JUMP IF NOT BATCHHEAD " " P B ENTN10 ENTRY NEW BATCHHEAD " PNEWR36 " P B DROK00 " PNE
0x1b4d84…1b4f18 Dummy {f00=0x0085, f01=0x0190, f02=»TLST " t P CBNE NUMBER,=D'0',NEWR40 # P MOVE FRMTPNTR,SYMREC(W10) # . P B NEWR45 # P PNEWR40 # b P CBNE BIN13,W0,NEWR43 # p P MOVE FRMTPNTR,W0 # P B NEWR45 # PNEWR43 # P MOVE FRMTPNTR,SYMREC(BIN13) # PNEWR45 # P PERF DEDISC,W
0x1b4f18…1b50ac Dummy {f00=0x0085, f01=0x0190, f02=» CBE DEBINW4,W9,NEWR28 NOT FOUND # P B DRNO00 $ ( PNEWR46 $ : & P ATTFMT FFETCH ATTACH DUMMYFORMAT $ H P DISPLAY 0,W1,W0 $ r P THOME $ * P CBNE PINDFR,W0,NEWR48 ATTACHED FORMAT $ PNEWR47 $ P MOVE BIN13,W7 $ P ADD BIN13,PRECCUR $ " P CBN
0x1b50ac…1b5240 Dummy {f00=0x0085, f01=0x0190, f02=» XCOPY RECLNTH,W0,W2,RBUF,BIN13 $ P B DRNO00 % ( PNEWR48 % : ( P PERF DEPOOL,W6,PINDFR,BIN14,STRG10A % H P MOVE FORMAT,HEX00 % t P B NEWR35 % PNEWR49 % P MOVE FORMAT,DEINPUT % $ P CBE FC,W4,NEWR50 JUMP IF GETNXT % $ P CBE FC,W7,NEWR50 JUMP
0x1b5240…1b53d4 (1, 318) Dummy {f00=0x0086, f01=0x0190, f02=»CHHEAD % l PNEWR50 & 0 P CBNE BIN13,W0,NEWR52 EXIST IN JOBDEFINITION & PNEWR51 & P $ P MOVE SYMBOL,FORMAT NO SYMBOLIC & ^ P B NEWR65 & PNEWR52 & P MOVE SYMREC(BIN13),FRMTPNTR & P ADD BIN13,W10 & P B NEWR60 & PNEWR55 & P MOVE SY
0x1b53d4…1b5568 Dummy {f00=0x0086, f01=0x0190, f02=»PRECCUR & P TBT BOOL9,NEWR77 ' PNEWR75 ' * * P XCOPY RBUF,BIN13,W1,BPOOL(PINDFR),W0 ' 8 P B NEWR80 ' f PNEWR77 ' x P CBE FC,W14,NEWR75 ' PNEWR74 ' P CBNE FC,W7,NEWR78 ' & P CBE NUMBER,=D'0',NEWR76 BATCHHEAD ' & P XCOPY RBUF,PRECCUR,W9
0x1b5568…1b56fc Dummy {f00=0x0086, f01=0x0190, f02=»30 ' P B DROK00 ( PNEWR80 ( P ADD BIN13,W1 ( * " P XCOPY RBUF,BIN13,W6,FORMAT,W0 ( @ P ADD BIN13,W6 ( f $ P XCOPY RBUF,BIN13,W2,RECLNTH,W0 ( | , P CBNE FC,W11,NEWR90 JUMP IF NOT OPEN BC ( P B DROK00 ( PNEWR90 ( P SET DOOL4 ( P B
0x1b56fc…1b5890 Dummy {f00=0x0086, f01=0x0190, f02=» WANTED BATCH. ( P* ) * P************************************** ) POPENBC FC=11 ) N P PERF DEREC2,BIN11 ) d P BNOK DRNO20 ) ~ 0 P CALL TESTB,RECFIL,FILINDUS LOOK IF RECOVERY ) P BZ OPBC05 JUMP IF NOT ) " P TEST DOOL1 LOOK IF THIS BATCH )
0x1b5890…1b5a24 Dummy {f00=0x0086, f01=0x0190, f02=»E BIN11,W5,OPBC10 ) P* SEARCH OR CONVERSION MODE * POPBC07 * > * P IB BIN12,DROK71,DROK71,OPBC20,DROK00 * L POPBC10 * z P TEST DOOL8 * P BZ DROK00 * 0 P CALL TESTB,RECFIL,FILINDUS LOOK IF RECOVERY * P BNZ DROK00 YES * P SUB BDPOIN(W2
0x1b5a24…1b5bb8 Dummy {f00=0x0086, f01=0x0190, f02=»NG GETN50 * P MOVE NUMBER,BDPOIN(W2) + * P PERF DEPOOL,W6,PINACC,DEBINW3,STRG10A + 2 , P PERF DEPOOL,W6,PJOBCUR,DEBINW3,STRG10A + ` P MOVE DEBINW4,W9 + P B DRNO20 + PENTINS FC=12 + P PERF DEREC2,BIN11 + P B ENTOLD + P PEND +
0x1b5bb8…1b5d4c Dummy {f00=0x0086, f01=0x0190, f02=»HE + r " P* FORMAT NOT HAS BEEN CHANGED , $ P* SINCE THE RECORD WAS STORED ON , 0 P* DISC. , X P* BAD RESULT IS OVERFLOW. , h P* , & P********************************* , PDEREFO PROC , P MOVE DEBINW4,W7 , P ADD DEBINW4,PRECCUR , & P X
0x1b5d4c…1b5ee0 Dummy {f00=0x0086, f01=0x4136, f02=»OVE BCD13A,DEBINW3 , P MOVE DEBINW4,=W'38' - P DIV W0,W0 CONDITION =3 - 6 P RET - V P PEND - b PFFETCH FRMT - p P FSL - P FTEXT 'FETCHING FORMAT:' - P FCOPY DEINPUT - P FTEXT ' FROM DISC.' - P FNL - P FKI 1,ALPHA - P FCO
0x1b5ee0…1b6074 (1, 319) Dummy {f00=0x0086, f01=0x2008, f02=» . OIN(W2),W1 P B NEWR70 PENTINS FC=12 , P PERF DEREC2,BIN11 B P B ENTOLD P PEND n P END |@ F DEREC2,BIN11 P BNOK DRNO20 P CBNE BIN11,W5,OPBC10 P* SEARCH MODE " P IB BIN12,DROK71,DROK71,DROK00
0x1b6074…1b6208 Dummy {f00=0x0086, f01=0x0190, f02=»7 : AUTOMATIC SKIP/DUP *O N* FF* RECOVERY OF : k 6 : l RUNNING. ( ',!.%)$&"#-* # +0 4 ! + 6 B R d x / & N ) t@
0x1b6208…1b639c Dummy {f00=0x0086, f01=0x0190, f02=» r @g@i@k@ "0# ( #W H % W % o 6 0) 2 W ? A W o ~7 h~ ) !PO@ < ~6 h~ ' !< A ! & j !! !@ W 2 W 0: #[A __2 !j !! j ! !$ 00 ! ? A _ !A <
0x1b639c…1b6530 Dummy {f00=0x0086, f01=0x0190, f02=» ? A _ 0! !< " ? #@ T 0% P9W I 46 0 ! W 0 ! : 6 h W h 8 ? 6 0! !< " ? 0! !< " ? ( 0: ( #)0) A h U ! < h 8 ? " ? < 1h ! !P !W !j !! ! 3f "d
0x1b6530…1b66c4 Dummy {f00=0x0086, f01=0x0190, f02=» 9 _ " W & ? ? 0" 9 ? " W @g@k !Aij !! !? $@kAgW #@gAk@i ! j !! ! Uj ? 00 2 h !T= h !U !P ! h ! !T ! 7 !_ h ! !X W#@ T 0% P! W I h P Wk ~Ub~ "~ @
0x1b66c4…1b6858 Dummy {f00=0x0086, f01=0x0190, f02=» ! _6j " - 8 & ?!@ P 5Ii Ik Ig A|W 4@|@ & , /hZ !PDj !! 0 (P 00 !_<( 4 !, z 5h $ !TbI|g2 ? 2 """""#"######"""""$%%"""#&&" !_h( !? 4" !_ "_ ! j !! ! _ _ A| " @ P &
0x1b6858…1b69ec Dummy {f00=0x0086, f01=0x0190, f02=» U j , 1 : ` A g A P n d K : ? - D H + ?:?T+-*:DGRNASUFFFXM/=><DGRNL!ASUFTCXE 0 )
0x1b69ec…1b6b80 Dummy {f00=0x0086, f01=0x0190, f02=» V o ~ J N R@ 2 A ! ~U ! 7& !0! !T J _ : I !_) _7j ! ! h~ !X8H !( @ h~ U !j~ ! ! !P !0! ! N_m ? j !! '( !1j !& !j !! ( * j +& 'j !! ( j ! ! ! 4 ? jy " $ j !! 1 j !!
0x1b6b80…1b6d14 (1, 320) Opaque[0x194]
0x1b6d14…1b6ea8 # DirEnt {nam=»DECONV«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x1528, f03=0x0000}
0x1b6d14…1b6ea8 IdxSect {
0x1b6d14…1b6ea8 f00 = 0x00a9 // 0x1b6d14 @0x0
0x1b6d14…1b6ea8 f01 = 0x0018 // 0x1b6d16 @0x2
0x1b6d14…1b6ea8 gno = [ // 0x1b6d18 @0x4
0x1b6d14…1b6ea8 [0x00]: C0x00a9.0x1.0
0x1b6d14…1b6ea8 [0x01]: C0x00a9.0x2.0
0x1b6d14…1b6ea8 [0x02]: C0x00a9.0x3.0
0x1b6d14…1b6ea8 [0x03]: C0x00ab.0x0.0
0x1b6d14…1b6ea8 [0x04]: C0x00ab.0x1.0
0x1b6d14…1b6ea8 [0x05]: C0x00ab.0x2.0
0x1b6d14…1b6ea8 [0x06]: C0x00ab.0x3.0
0x1b6d14…1b6ea8 [0x07]: C0x00ac.0x0.0
0x1b6d14…1b6ea8 [0x08]: C0x00ac.0x1.0
0x1b6d14…1b6ea8 [0x09]: C0x00ad.0x2.0
0x1b6d14…1b6ea8 [0x0a]: C0x00ad.0x3.0
0x1b6d14…1b6ea8 [0x0b]: C0x00ae.0x0.0
0x1b6d14…1b6ea8 ]
0x1b6d14…1b6ea8 }
0x1b6ea8…1b703c Dummy {f00=0x00a9, f01=0x0190, f02=» * P IDENT DECONV REL=1.0,VER=1 820506/NJ P UPD 82-02-22/EV 2 P UPD 81-08-27/EV L P UPD 80-12-12/SHB f P UPD 80-07-14/JAER P DDUM DEDDIV P PDIV P ENTRY DECONV P P P EXT DEPOOL P EXT TESTB
0x1b703c…1b71d0 Dummy {f00=0x00a9, f01=0x0190, f02=» EXT GETFWD P EXT ADJUST P EXT FDIO ( P EJECT : P* H P* KEYTABLE R P* j PCLR EQU X'8F' CLEAR t PCAN EQU X'91' CANCEL PRET EQU X'98' RETURN PENT EQU X'8C' ENTER P* PKEYTAB KTAB CLR,CAN,RET,EN
0x1b71d0…1b7364 Dummy {f00=0x00a9, f01=0x0190, f02=»PAR EQU X'00' P EJECT @ P* THIS MODULE TAKE CARES OF THE DIFFERENT CONVERTIONS- $ P* -METHODS h @ P* ONE OF THEM IS ALREADY PREPAIRED FOR YOUR PRINTOUT). 2 P* THE OTHER YOU HAVE TO CODE YOURSELVES. D P* FORM
0x1b7364…1b74f8 Dummy {f00=0x00a9, f01=0x0190, f02=» = 2 DATACOMMUNICATION IN 8 P* = 3 CASETTE OUTPUT : 8 P* = 4 PRINTOUT LP/GP v 2 P* = 5 DISCFILE : P*
0x1b74f8…1b768c Dummy {f00=0x00a9, f01=0x0190, f02=»= 8 FREEZE BATCHES ON USER FILE n 8 P* = 9 LISTING LP/GP ( 8 P* TYPE = TYPE OF HANDLING d . P* = 1 OPEN : P* = 2 BATCHHEAD-RECORD
0x1b768c…1b7820 Dummy {f00=0x00a9, f01=0x0190, f02=» = 5 CLOSE 4 P* RETCON = RETURN-CODE * , P* = 0 OK b > P* /= 0 ERROR MESSAGE-NUMBER F P* =-1 SKIP CURR BATC
0x1b7820…1b79b4 (1, 321) Dummy {f00=0x00a9, f01=0x0190, f02=»T BATCH (CANCEL) D P* =-4 ABORT CONVERSION (RETURN) < P* =-5 DELETE THIS BATCH ` > P* =-6 GET CURRENT RECORD : P* INPUT VARIABLE: BIN4 = FC
0x1b79b4…1b7b48 Dummy {f00=0x00a9, f01=0x0190, f02=»TA,DISCFD,FLOPPY,DELETE,FREEZE,LISTE PRECEIV , PDISCFD : PCASSET H PERROR V * P MOVE RETCON,W4 'FUNCTION NOT ALLOWED? d P B RETURN P* * P* THIS IS THE PRINTOUT FUNCTION P* PPRINTA : P IB TYPE,PR100,PR200
0x1b7b48…1b7cdc Dummy {f00=0x00a9, f01=0x0190, f02=»* PPR100 $ P PERF ATTDEV,BIN6 ATTACH DEVICE P BOK DECOOK @ P B RETURN T P EJECT f P* t P* ~ 4 P* PRINTOUT OF THE DIFFERENT RECORD TYPES P* PPR200 P EDWRT DEDSPRT,FCOUNT P BNOK PR298
0x1b7cdc…1b7e70 Dummy {f00=0x00a9, f01=0x0190, f02=»UT DEVICE NOT OP....' x P B RETURN GO AND CLOSE P* < * P* CLOSE DEVICE = DETACH PRINTER F P* t PPR500 ~ P PERF DETPRT DETACH DEVICE P B RETURN P EJECT P* 8 P* THIS ROUTINE DELETE BATCHES ON THE USERF
0x1b7e70…1b8004 Dummy {f00=0x00a9, f01=0x0190, f02=»(W8),W0,DEL110 NOT THE WHOLE FILE P MOVE DATE,HEX00 RESET DATE * PDEL110 N P B RETURN P EJECT n P* | . P* THIS ROUTINE FREEZE BATCHES ON USER FILE P* P PFREEZE 8 P IB TYPE,FRE100,FRE200,FRE300 OPEN BATCHHEAD DAT
0x1b8004…1b8198 Dummy {f00=0x00a9, f01=0x0190, f02=» PFRE300 P B DECOOK P* BALANCE RECORD ( PFRE400 @ P B DECOOK N P* CLOSE ` PFRE500 p P B DECOOK ~ P EJECT P* P* OK P* PDECOOK P MOVE RETCON,W0 PRETURN P RET P EJE
0x1b8198…1b832c Dummy {f00=0x00a9, f01=0x0190, f02=» P* P* SEND SOF P* SEND '001'+DATE P* : P D PDC100 L P* Z P* BATCHHEAD RECORD d P* ~ PDC200 PDC300 P* P* TRANSM BLOCKS P* P P* P* SEND '999' P* SEND EOF P
0x1b832c…1b84c0 Dummy {f00=0x00a9, f01=0x0190, f02=» 6 P IB TYPE,LS100,LS200,LS300, OPEN,BATCHHEAD,DATA, C P LS400,LS500 BALANCE,CLOSE > P b PLS100 j P TBT LSBAB,LS170 x * P PERF GETBUF GET 3 CONSECUTIVE BUFFERS P B LS110 OK P B LSERR ERROR PLS110 ( P MOVE BCDI21(W5),=
0x1b84c0…1b8654 (1, 322) Dummy {f00=0x00a9, f01=0x018e, f02=»SEQUENCE NO v " P CLEAR BCONT CONTINUATION MARK P CLEAR BSUPR : P CLEAR SPLITFL NNO SPLIT N ( P CLEAR FIRSTFL INITIATE FIRST RECORD n $ P PERF ATTDEV,BIN6 ATTACH DEVICE P BNOK LSERR P MOVE STRG10A,HEX00 P GETTIME STRG10A
0x1b8654…1b87e8 Dummy {f00=0x00a9, f01=0x0190, f02=» ( P MOVE RETCON,=W'-4' ABORT CONVERSION P B LSERRT 4 PLSERR F 0 P MOVE RETCON,=W'35' OUTPUT DEV NOT OPERABLE T PLSERRT P SET LSBAB P B RETURN P* P* BATCHEAD RECORD P* PLS200 P TBT LSBAB,LS170
0x1b87e8…1b897c Dummy {f00=0x00a9, f01=0x0190, f02=»GET NEXT BATCH | P B RETURN PLS250 BATCHHEAD OR BALANCE ( P TBT LSBAB,LS170 L P MOVE DEBINW3,W1 d P PRINT DEDSPRT,DEBINW3,W0 | P BNOK LSERR 2 P* CONVERT HEADER TO SET CONVERSION INDICATIONS PLS220 , P MOVE BIN10,WORK(
0x1b897c…1b8b10 Dummy {f00=0x00a9, f01=0x0190, f02=»,W0 PLS210 P PERF CONV,BIN4,FC P B DECOOK ALL DONE 4 P B LS210 NOT ALL DONE N P B LS315 COMP FIELD EMPTY l P B LS320 BCD FIELD OVERFLOW " P B LS320 EDIT BUFFER OVERFLOW P B DECOOK P P PLS300 P
0x1b8b10…1b8ca4 Dummy {f00=0x00a9, f01=0x0190, f02=»BIN8,W0 RESET FIELD NUMBER PLS310 " P MOVE BIN4,W0 0 PLS311 F P PERF CONV,BIN4,FC T P B DECOOK ALL DONE n P B LS340 WRITE BLOCKS P B LS315 CUMP FIELD EMPTY P B LS320 BCD FIELD OVERFLOW " P B LS320 EDIT BUFFER OVERFLO
0x1b8ca4…1b8e38 Dummy {f00=0x00a9, f01=0x018e, f02=»WRITE BLOCKS P PLS340 P PERF LSWRIT * P B LS310 OK > P B LS310 DUMMY R P B LS310 DUMMY h * P MOVE BIN4,W1 CONTINUE IN SAME BUFFER ~ P B LS311 P P PLS400 P* BALANCE FORMAT P B LS250 P
0x1b8e38…1b8fcc Dummy {f00=0x00a9, f01=0x0190, f02=» P MOVE BIN4,W0 P PERF DETPRT P* RELEAS BUFFERS 2 & P PERF DEPOOL,W6,BIN10,BIN4,STRG10A J P B DECOOK t PLS560 P MOVE STRG10A,HEX00 P GETTIME STRG10A P MOVE TIME,STRG10A P EDWRT DEDSPRT,FLSERR P B LS550
0x1b8fcc…1b9160 Dummy {f00=0x00a9, f01=0x0190, f02=»50 P EJECT P* P* FLOPPY DUMPING " P* : P D PFLOPPY L P MOVE BTYPE,TYPE Z 4 P IB TYPE,FD100,FD200,FD300 OPEN,BATCHHEAD,DATA C r P FD400,FD500 BALANCE,CLOSE P P P* P* SEND SOF P* SEND '001'+D
0x1b9160…1b92f4 (1, 323) Dummy {f00=0x00ab, f01=0x0190, f02=» FDERR ERROR PFD110 P MOVE CWFD,W7 HDR RECORD " P MOVE REQFD,=W'128' B 6 P CALL FDIO,DSFD,X'A1',BPOOL(BIN10),REQFD,CWFD OPEN ^ P MOVE BIN4,W20 , P DSC1 DSFD,ATTACH,BIN4 ATTACH DEVICE FD P BNOK FDERR P PERF FDLOAD P B
0x1b92f4…1b9488 Dummy {f00=0x00ab, f01=0x0190, f02=»GTH HEADER z ( P MOVE WORK(W17),W0 LENGTH RECORD NO * P MOVE WORK(W19),W0 LENGTH SEQUENCE NO > " P CLEAR BCONT CONTINUATION MARK l P CLEAR BSUPR P SET SPLITFL NORMAL SPLIT * P MOVE BIN6,=X'0036' FILE CODE PRINTER $ P PERF ATTDEV,BIN6
0x1b9488…1b961c Dummy {f00=0x00ab, f01=0x0190, f02=»FDHDR " P PERF FDRVOL READ VOLUME LABEL P B FD150 OK 4 P B FDERR ERR H PFD150 . P IB DEBINW2,FD160,FD180,FD170 CLR,CAN,RET j P* ENT P PFD160 $ P MOVE STR8A,STR8B SAVE FILE NAME $ P MOVE FDCNT,W1 RESET FD COUNTER
0x1b961c…1b97b0 Dummy {f00=0x00ab, f01=0x0190, f02=» PFD170 ( P MOVE RETCON,=W'-4' ABORT CONVERSION P B FDERRT > P P PFDERR X 0 P MOVE RETCON,=W'35' OUTP. DEV. NOT OPERABLE f PFDERRT P SET FDBAB P B RETURN P PFD180 P MOVE CWFD,W7 P MOVE REQFD,=W'1
0x1b97b0…1b9944 Dummy {f00=0x00ab, f01=0x018e, f02=»JECT P* P* BATCHEAD RECORD P* 0 PFD200 : P TBT FDBAB,FD170 H ( P TBF BDAFOR,FD300 ANY FORCED FIELDS? ` , P EDWRT DEDSPRT,FBATC3 PRINT ERROR REPORT P SET FDBAB & P MOVE RETCON,=W'-1' GET NEXT BATCH P B RETURN
0x1b9944…1b9ad8 Dummy {f00=0x00ab, f01=0x018e, f02=» P B FD308 NO PRINTING PFD305 * P* PRINT BATCH HEAD AND BALANCE RECORD . P MOVE DEBINW3,W1 P PRINT DEDSPRT,DEBINW3,W0 t P BNOK FDERR PFD308 * P MOVE BIN10,WORK(W13) GET BUFFER INDEX $ P MOVE BIN9,BIN10 GET BPOOL INDEX
0x1b9ad8…1b9c6c Dummy {f00=0x00ab, f01=0x0190, f02=» | P B DECOOK ALL DONE P B FD340 WRITE BLOCKS " P B FD315 CUMP FIELD EMPTHY @ P B FD320 BCD FIELD OVERFLOW b " P B FD320 EDIT BUFFER OVERFLOW PFD315 P MOVE RETCON,W5 P B FDERRT P PFD320 " P MOVE RETCON,=
0x1b9c6c…1b9e00 Dummy {f00=0x00ab, f01=0x0190, f02=»K P B FD360 ERROR P B FDEOF05 EOE * P MOVE BIN4,W1 CONTINUE IN SAME BUFFER 6 P B FD311 d PFD350 t P PERF FDLOAD P B FD370 OK P B FD360 ERROR PFD360 P MOVE REQFD,=W'128' P MOVE CWFD,W7 8 P CALL FD
0x1b9e00…1b9f94 (1, 324) Dummy {f00=0x00ab, f01=0x0190, f02=» . P IB DEBINW2,FD350,FD360,FD170 CLR,CAN,RET P B FD350 ENT 6 PFD370 J " P PERF FDRVOL READ VOLUME LABEL X P B FD375 OK ~ P B FD360 ERROR PFD375 . P IB DEBINW2,FD380,FD360,FD170 CLR,CAN,RET P* ENT P PFD380
0x1b9f94…1ba128 Dummy {f00=0x00ab, f01=0x018e, f02=» * P MOVE RETCON,=W'-6' GET CURRENT RECORD P B RETURN 2 P D PFDEOF05 L P SET FDEOF INDICATE EOF & P MOVE WORK(W14),BIN8 SAVE FIELD NO | P B FD360 P PFDEOF10 P CLEAR FDEOF * P MOVE BIN10,WORK(W13) GET BUFFER INDEX
0x1ba128…1ba2bc Dummy {f00=0x00ab, f01=0x0190, f02=» P MOVE CWFD,W0 > P CALL FDIO,DSFD,X'06',BPOOL(BIN10),REQFD,CWFD WRITE BLOCKS P B FD340 P EJECT l PFD400 z P* BALANCE FORMAT P B FD300 PFD500 * P MOVE BIN10,WORK(W13) GET BUFFER INDEX P TBT FDBAB,FD560 ABORT
0x1ba2bc…1ba450 Dummy {f00=0x00ab, f01=0x0190, f02=»WRIT P B FD570 OK ! P B FDERR ERR ! P B FD510 EOE ! 4 PFD510 ! H P MOVE REQFD,=W'128' ! V P MOVE CWFD,W7 ! r 8 P CALL FDIO,DSFD,X'B8',BPOOL(BIN10),REQFD,CWFD UNLOAD ! PFD515 ! * P MOVE DEBINW4,=W'55' CHANGE FLOPPYDISK ! P PERF DE
0x1ba450…1ba5e4 Dummy {f00=0x00ab, f01=0x0190, f02=»OR ! PFD525 " " P PERF FDRVOL READ VOLUME LABEL " P B FD530 OK " > P B FD510 ERROR " R PFD530 " h . P IB DEBINW2,FD535,FD510,FD170 CLR,CAN,RET " v P* ENT " PFD535 " $ P PERF FDWVOL WRITE VOLUME LABEL " P B FD540 OK " P B FD510
0x1ba5e4…1ba778 Dummy {f00=0x00ab, f01=0x0190, f02=» " V P B FD505 # PFD550 # P WAIT DSFD # & P CLEAR FDBAB # 8 P MOVE CWFD,W7 HDR SECTOR # L P MOVE REQFD,=W'128' # l 8 P CALL FDIO,DSFD,X'B8',BPOOL(BIN10),REQFD,CWFD UNLOAD # P CLEAR FDEOF RESET EOF # P MOVE CWFD,W7 # P MOVE REQFD,=W'1
0x1ba778…1ba90c Dummy {f00=0x00ab, f01=0x0190, f02=» # P* RELEAS BUFFERS $ & P PERF DEPOOL,W6,BIN10,BIN4,STRG10A $ P B DECOOK $ J PFD560 $ P MOVE STRG10A,HEX00 $ j P GETTIME STRG10A $ P MOVE TIME,STRG10A $ P EDWRT DEDSPRT,FFDERR $ P B FD550 $ P $ PFD570 $ P MOVE STRG10
0x1ba90c…1baaa0 Dummy {f00=0x00ab, f01=0x0190, f02=» P* % ( P* GETBUF GET TWO CONSECUTIVE BUFFERS % P* % : P* BUFFER INDEX IN WORK(W13) % D P* % h P % r PGETBUF PROC % z * P MOVE BIN10,W3 TOTAL NUMBER OF BUFFERS % , P MOVE BIN4,W3 NO. OF COSECUTIVE BUFFERS % @ P PERF DEPOOL,W2,BIN10,BIN4,S
0x1baaa0…1bac34 (1, 325) Dummy {f00=0x00ab, f01=0x018e, f02=»N9,BIN10 LOAD WORKING BUFFER INDEX % " P ADD BIN9,W1 INDEX EDIT BUFFER & * 4 P MOVE BPOOL(BIN10),=X'00' RESET TRANSMIT BUFFER & P P RET & PGETBU2 & P RET 2 & P PEND & P EJECT & P* & , P* FDRVOL READ VOLUME LABEL AND DISPLAY & P*
0x1bac34…1badc8 Dummy {f00=0x00ab, f01=0x0190, f02=» & j P MOVE CWFD,W7 ' > P CALL FDIO,DSFD,X'91',BPOOL(BIN13),REQFD,CWFD READ (HDR1) ' P XSTAT DSFD,BIN4 ' ` P MOVE BIN7,=X'086F' ' x P CALL MASK,BIN4,BIN7 ' P BNOK FDRV02 ' P MOVE BIN7,=W'66' ' 8 P XCOPY STR6A,W0,W6,BPOOL(BIN13),BIN7 EXPIR
0x1badc8…1baf5c Dummy {f00=0x00ab, f01=0x0190, f02=»OL(BIN13),BIN7 ' z P MOVE RECLGD,STR6B ( P MOVE BIN7,=W'45' ( 0 6 P XCOPY STR2A,W0,W2,BPOOL(BIN13),BIN7 GET FD NUMBER ( J P ATTFMT FCAS02 ( P SET DEPROMPT ( P DISPLAY 0,W1,W0 ( P THOME ( & P MOVE DEBINW3,W1 REQUESTED LENGTH ( 2 P NKI .NE
0x1baf5c…1bb0f0 Dummy {f00=0x00ab, f01=0x0190, f02=»ITE VOLUME LABEL ( P* ) P ) " P ) * PFDWVOL PROC ) 2 P MOVE BIN7,=W'66' ) F & P MOVE BIN13,BIN10 GET BUFFER INDEX ) ` ( P ADD BIN13,W2 ADJUST FOR READ BUFFER ) * P EDSUB BPOOL(BIN13),BIN7,FRMVOL2 DATE ) P MOVE BIN7,W5 ) 0 P EDSUB BPOOL(B
0x1bb0f0…1bb284 Dummy {f00=0x00ab, f01=0x0190, f02=»QUESTED LENGTH ) z P MOVE CWFD,W7 * > P CALL FDIO,DSFD,X'95',BPOOL(BIN13),REQFD,CWFD WRITE (HDR1) * , P XSTAT DSFD,BIN4 * n P MOVE BIN7,=X'024F' * P CALL MASK,BIN4,BIN7 * P * P BNOK FDWVO2 * & P ADD FDCNT,=D'1' UPDATE FD NUMBER * P MOV
0x1bb284…1bb418 Dummy {f00=0x00ab, f01=0x0190, f02=» RET * PFDWVO2 + P RET 2 + P PEND + ( P EJECT + 6 P* + D P* LSWRIT WRITE BLOCKS + N P* + l P + v PLSWRIT PROC + ~ PLSWR00 + " P* BIN16 NO OF CHARS TO SEND + . P* BIN4 AVAILABLE SPACE IN OUTPUT BUFFER + P* DEBIN3 LENGTH
0x1bb418…1bb5ac Dummy {f00=0x00ab, f01=0x0190, f02=»ECLGD SET RECORD LENGTH + , P ADD BCDI21(W5),=D'1' ADD 1 TO RECORD NO , . P ADD BCDI21(W4),=D'1' ADD 1 TO SEQUENCE NO , P P CBE BCDI21(W4),=D'1',LSWR50 , ( P* NOT FIRST TIME (SEQUENCE NO > 1) , , P* COPY HEADER PART, LENGTH IN WORK(W15) , , P SUB B
0x1bb5ac…1bb740 Dummy {f00=0x00ab, f01=0x0190, f02=»RD FOR THIS INPUT RECORD , | P MOVE DEBIN3,W0 START POINT - P* - D PLSWR55 - N . P CBL BIN16,BIN4,LSWR58 ROOM FOR EVERYTING? - P NO ROOM - $ P TBT SPLITFL,LSWR57 NORMAL SPLIT - P FIND PRECEDING & - , P MOVE DEBIN1,BIN4 START AT END OF RE
0x1bb740…1bb8d4 (1, 326) Dummy {f00=0x00ab, f01=0x018e, f02=»EBIN1 - , P MATCH BPOOL(BIN9),DEBIN2,W1,STR2A,W0,W1 . P BNOK LSWR56 NOT FOUND . > P MOVE BIN15,DEBIN2 . P B LSWR59 . v P*NORMAL SPLIT . PLSWR57 . P MOVE BIN15,BIN4 . P B LSWR59 . ( P* NO OF CHARS, FIT IN AVAILABLE ROOM . PLSWR58
0x1bb8d4…1bba68 Dummy {f00=0x00ab, f01=0x0190, f02=» 6 P* MOVE BLANKS INTO REMAINING PART OF OUTPUT BUFFER / * P* BIN4 = NO OF CHARS IN OUTPUT BUFFER / > P MOVE BIN4,BIN15 / l P ADD BIN4,DEBIN3 ADD HEADER / P* / P MOVE DEBIN1,RECLGD / " P SUB DEBIN1,BIN4 NO OF BLANKS / B P XCOPY BPOOL(BIN10),
0x1bba68…1bbbfc Dummy {f00=0x00ab, f01=0x0190, f02=»70 SKIP IF LENGTH ZERO / z . P MOVE STRG10A,BCDI21(W5) CONVERT RECORD NO 0 " P MOVE DEBIN1,W10 LENGTH FIELD 0 P * P SUB DEBIN1,WORK(W17) FIND START OF NO 0 v : P XCOPY BPOOL(BIN10),WORK(W16),WORK(W17),STRG10A,DEBIN1 0 P* 0 PLSWR70 0 ( P* INSERT SEQU
0x1bbbfc…1bbd90 Dummy {f00=0x00ab, f01=0x018e, f02=»OVE DEBIN1,W10 LENGTH FIELD 0 , P SUB DEBIN1,WORK(W19) FIELD START OF NO 1 $ : P XCOPY BPOOL(BIN10),WORK(W18),WORK(W19),STRG10A,DEBIN1 1 T P* 1 PLSWR80 1 P* HANDLE END OF RECORD 1 * P CBG BIN16,BIN15,LSWR100 NO ROOM, CONT 1 P* INSERT EOR 1
0x1bbd90…1bbf24 Dummy {f00=0x00ab, f01=0x0190, f02=» 1 & P WRITE DEDSPRT,BPOOL(BIN10),DEBIN1 2 P DLETE BPOOL(BIN10),W0,W2 2 2 P MOVE CWFD,W0 2 T 6 P DELETE BPOOL(BIN9),CWFD,BIN15 DELETE WHAT IS SEND 2 j P SUB BIN16,BIN15 2 P MOVE BIN13,BIN16 2 P CMP VSEIND,W1 2 $ P BE LSWR00 WRITE RESET OF BU
0x1bbf24…1bc0b8 Dummy {f00=0x00ab, f01=0x0190, f02=»W2 2 & P WRITE DEDSPRT,BPOOL(BIN10),DEBIN1 3 P DLETE BPOOL(BIN10),W0,W2 3 4 PLSWRRET 3 V P RET 3 f P PEND 3 r P EJECT 3 P* 3 P* FDWRIT WRITE BLOCKS 3 P* 3 P 3 P 3 PFDWRIT PROC 3 PFDWR00 3 P WAIT DSFD 3 P XST
0x1bc0b8…1bc24c Dummy {f00=0x00ab, f01=0x0190, f02=» P CALL MASK,BIN4,BIN7 4 P BERR FDWR20 4 4 P IB BTYPE,FDWROP,FDWRHD,FDWRDATA,FDWRBAL,FDWRCL 4 4 PFDWROP 4 l PFDWRCL 4 z P B FDWR20 4 PFDWRHD BATCH HEADER 4 4 P MOVE BPOOL(BIN10),=X'00' INITIATE OUTPUT BUFFER 4 P MOVE BIN4,RECLGD 4 .
0x1bc24c…1bc3e0 Dummy {f00=0x00ab, f01=0x0190, f02=»* BIN4 AVAILABLE SPACE IN OUTPUT BUFFER 4 P* DEBIN3 LENGTH OF HEADER 5 2 . P* BIN15 ACTUAL LENGTH OF INPUT DATA USED 5 T P CMP BIN16,W0 5 " P BE FDWRRET NO DATA= NO WRITE 5 ( P MOVE BIN4,RECLGD SET RECORD LENGTH 5 , P ADD BCDI21(W5),=D'1' ADD
0x1bc3e0…1bc574 (1, 327) Dummy {f00=0x00ac, f01=0x0190, f02=»NO > 1) 5 t , P* COPY HEADER PART, LENGTH IN WORK(W15) 6 , P SUB BIN4,WORK(W15) MAKE ROOM FOR HEADER 6 @ & P MOVE DEBIN3,WORK(W15) START POINT 6 p P B FDWR55 6 P* 6 PFDWR50 6 0 P* FIRST OUTPUT RECORD FOR THIS INPUT RECORD 6 P MOVE DEBIN3,W0
0x1bc574…1bc708 Dummy {f00=0x00ac, f01=0x018e, f02=»RMAL SPLIT 6 z P FIND PRECEDING & 7 , P MOVE DEBIN1,BIN4 START AT END OF RECORD 7 . " P MOVE STR2A,=C'&&' LOOK FOR & 7 ^ PFDWR56 7 P SUB DEBIN1,W1 7 P CBNG DEBIN1,W0,FDWR57 NO & 7 P MOVE DEBIN2,DEBIN1 7 , P MATCH BPOOL(BIN9),DEBIN2,W1,STR
0x1bc708…1bc89c Dummy {f00=0x00ac, f01=0x0190, f02=» 7 b PFDWR57 8 P MOVE BIN15,BIN4 8 P B FDWR59 8 . ( P* NO OF CHARS, FIT IN AVAILABLE ROOM 8 @ PFDWR58 8 l $ P MOVE BIN15,BIN16 SEND ALL CHARS 8 z P* 8 PFDWR59 8 > P XCOPY BPOOL(BIN10),DEBIN3,BIN15,BPOOL(BIN9),W0 COPY FIRST 8 6 P* MOVE BLANK
0x1bc89c…1bca30 Dummy {f00=0x00ac, f01=0x0190, f02=» HEADER 8 | P* 9 P MOVE DEBIN1,RECLGD 9 " P SUB DEBIN1,BIN4 NO OF BLANKS 9 6 B P XCOPY BPOOL(BIN10),BIN4,DEBIN1,BPOOL(BIN9),BIN16 MOVE BLANKS 9 P* 9 PFDWR60 9 $ P* INSERT RECORD NO - BCDI21(W5) 9 0 P CBE WORK(W17),W0,FDWR70 SKIP IF LENGT
0x1bca30…1bcbc4 Dummy {f00=0x00ac, f01=0x0190, f02=»F NO 9 n : P XCOPY BPOOL(BIN10),WORK(W16),WORK(W17),STRG10A,DEBIN1 : P* : J PFDWR70 : T ( P* INSERT SEQUENCE NO - BCDI21(W4) : b 0 P CBE WORK(W19),W0,FDWR80 SKIP IF LENGTH ZERO : 0 P MOVE STRG10A,BCDI21(W4) CONVERT SEQUENCE NO : " P MOVE DEBIN1,W10 L
0x1bcbc4…1bcd58 Dummy {f00=0x00ac, f01=0x0190, f02=» PFDWR80 ; P* HANDLE END OF RECORD ; 2 P CBG BIN16,BIN15,FDWR100 NO ROOM, CONTINUATION ; 2 P* INSERT EOR ; h P MOVE STR2A,=X'7F' EOR CHAR ; ~ 4 P XCOPY BPOOL(BIN10),BIN4,W1,STR2A,W1 INSERT EOR ; P B FDWRSEND ; P* ; PFDWR100 ; ( P
0x1bcd58…1bceec Dummy {f00=0x00ac, f01=0x0190, f02=»IN1,FDWR140 ; P SUB BIN4,W1 < P SUB BIN15,W1 < ( PFDWR140 < > ( P MOVE STR2A,=X'21' CONTINUATION MARK < N ( P XCOPY BPOOL(BIN10),BIN4,W1,STR2A,W1 < z PFDWR150 < P MOVE REQFD,=W'128' < P MOVE CWFD,W0 < 2 P CALL FDIO,DSFD,X'06',BPOOL(BIN1
0x1bceec…1bd080 Dummy {f00=0x00ac, f01=0x0190, f02=»3,BIN16 < P CMP VSEIND,W1 = $ P BE FDWR00 WRITE REST OF BUFFER = & P RET 6 = N P* = PFDWRBAL = f 4 P MOVE BPOOL(BIN10),=X'00' INITIATE OUTPUT BUFFER = v P EDIT BPOOL(BIN9),FFD999 = P MOVE BIN4,RECLGD = . P XCOPY BPOOL(BIN10),W0,BIN4,BPOO
0x1bd080…1bd214 (1, 328) Dummy {f00=0x00ac, f01=0x0190, f02=»SFD,X'06',BPOOL(BIN10),REQFD,CWFD WRITE BLOCKS = PFDWRRET > 6 P RET > F PFDWR20 > R P RET 2 > ` P PEND > n P EJECT > | P* > P* FDLOAD LOAD FD PROCEDURE > P* > P > P > PFDLOAD PROC > P MOVE CWFD,W7 HDR RECORD > P M
0x1bd214…1bd3a8 Dummy {f00=0x00ac, f01=0x0190, f02=» P BZ FDLOA2 ? P MOVE BIN7,=X'000F' ? P CALL MASK,BIN4,BIN7 ? 2 P BNOK FDLOA2 ? N P RET ? b PFDLOA2 ? n P MOVE CWFD,W7 HDR RECORD ? | P MOVE REQFD,=W'128' ? 8 P CALL FDIO,DSFD,X'B8',BPOOL(BIN10),REQFD,CWFD UNLOAD ? P RET 2 ? P PEND
0x1bd3a8…1bd53c Dummy {f00=0x00ac, f01=0x0190, f02=»TRANSMIT ? & P* RET 4 =CUMPULSORY FIELD EMPTHY @ P* RET 6 =BCD-FIELD OVERFLOW @ : " P* RET 8 =EDIT BUFFER OVERFLOW @ ^ P* @ $ P* APPL = FIELD INTO BUFFER @ 4 P* APPL = 1 FIELD INTO BUFFER, TRANSMIT BLOCK @ $ P* APPL = 2 NO TRANSMIT
0x1bd53c…1bd6d0 Dummy {f00=0x00ac, f01=0x0190, f02=»ENERAL) @ " P* LISTE: ALWAYS SET A . P* FOLLOWING APPL ONLY USED IN BATCHHEADER A 6 0 P* APPL = 13 EOR-CHAR AS END OF EACH RECORD A h $ P* LISTE: ALWAYS CLEAR A J P* APPL = 14 CONT-CHAR IN END OF EACH DATA RECORD WHICH IS CONTINUE
0x1bd6d0…1bd864 Dummy {f00=0x00ac, f01=0x018e, f02=»ITH &) ARE NOT SPLIT A p & P* LSTE: ALWAYS CLEAR B P* B F 0 P* APPL = 1XXX XXX=LENGTH OF RECORD HEADER B P : P* APPL = 2XXX THIS FIELD IS THE RECORD NUMBER FIELD B J P* APPL = 3XXX THIS FIELD IS THE CONTINUATION SEQUENCE NUMBER FIELD
0x1bd864…1bd9f8 Dummy {f00=0x00ac, f01=0x0190, f02=» B p " P* BIN13= DELETE START POINTER C P* BIN16= EDIT POINTER C . P* C L 4 P* BIN15 = NO OF CHAR INSERTED IN OUTPUT RECORD C V 8 P* STRG10A = WORK STRING FOR DATE/TIME/CONVERTED BCD C $ P* WORK(W15) = LENGTH OF HEADER C * P* WORK(W16) = RECORD
0x1bd9f8…1bdb8c Dummy {f00=0x00ac, f01=0x0190, f02=» CONTINUATION SEQUENCE LENGTH C 0 P* BCDI21(W4) = CONTINUATION SEQUENCE NUMBER D & " P* BCDI21(W5) = RECORD NUMBER D Z P* D PCONV PROC CONT,FC D P CBG CONT,W0,CON100 D PCON090 D P MOVE BPOOL(BIN9),=X'20' D , P MOVE BCDI21(W4),=D'0' RES
0x1bdb8c…1bdd20 Dummy {f00=0x00ac, f01=0x0190, f02=» D P TBF BSUPR,CON105 E P SET FSUPR E " PCON105 E 4 $ P ADD BIN8,W1 UPDATE FIELD NUMBER E B " P CALL GETFWD,BIN7,2,BIN8,BIN4 E j P CALL ADJUST,BIN7 E P BOK CON130 E P BN CONRET ALL FIELD DONE E & P B CONER1 COMPULSORY FIELD EMPTHY E
0x1bdd20…1bdeb4 (1, 329) Dummy {f00=0x00ad, f01=0x018e, f02=»PL1000 HANDLE RECORD HEADER E z 2 P CBL VSEIND,=W'3000',APL2000 HANDLE RECORD NO F $ 4 P CBL VSEIND,=W'4000',APL3000 HANDLE SEQUENCE NO F Z $ P MOVE VSEIND,W2 CLEAR ERROR APPL F P B CON131 F P* F P* HANDLE RECORD HEADER: F 4 P* APPL=1000, WHER
0x1bdeb4…1be048 Dummy {f00=0x00ad, f01=0x0190, f02=» F Z P SET FIRSTFL FIRST TIME G P B CON100 G ( P* G : . P* HANDLE POSITION AND LENGTH OF RECORD NO G D PAPL2000 G v 4 P MOVE WORK(W16),BIN16 SET START POS OF RECORD NO G $ P GETCTL 1,BIN7 GET MAXL OF FIELD G 0 P MOVE WORK(W17),BIN7 SET LENGTH OF
0x1be048…1be1dc Dummy {f00=0x00ad, f01=0x0190, f02=»H OF SEQUENCE NO G t PAPL3000 H < P MOVE WORK(W18),BIN16 SET START POSITION OF SEQUENCE NO H ( $ P GETCTL 1,BIN7 GET MAXL OF FIELD H h 2 P MOVE WORK(W19),BIN7 SET LENGTH OF SEQUENCE NO H * P SUB VSEIND,=W'3000' ADJUST APPL VALUE H P B CON131 FURTHER HA
0x1be1dc…1be370 Dummy {f00=0x00ad, f01=0x0190, f02=»00,CON135,CON140 H z PCON132 I P B CON190 I & P* I 8 PCON135 I B P* SUPPRESS LEADING ZEROES I P P SET FSUPR I r P B CON190 I P* I PCON140 I P* NO SUPPRESSION I P CLEAR FSUPR I P B CON190 I P* I P* I PCON150
0x1be370…1be504 Dummy {f00=0x00ad, f01=0x0190, f02=»152,CON152, C I v 0 P CON152,CON152,CON165,CON170,CON175,CON180 J PCON152 J J P B CON190 J X P* J j PCON155 J t ( P* GENERAL SUPPRESS LEADING ZEROES J P SET BSUPR J P B CON100 J P* J PCON160 J P* GENERAL NO SUPPRESSION J
0x1be504…1be698 Dummy {f00=0x00ad, f01=0x0190, f02=» CON100 J P* K PCON170 K P* CONTINUATION CHARACTER K ( * P CBE W9,FC,CON100 LISTE: ALWAYS CLEAR K H * P SET BCONT INDICATE CONT. CHAR NEEDED K v P B CON100 K P* K PCON175 K P* INSERT BATCH NAME K P MOVE BIN7,W6 K P MOVE BI
0x1be698…1be82c Dummy {f00=0x00ad, f01=0x0190, f02=» CON260 K P* L PCON180 L , P* FIELDS (STARTING WITH &) ARE NOT SPLIT L ( $ P CLEAR SPLITFL NOT NORMAL SPLIT L X P B CON100 L P* L P* L P L PCON190 L 0 P CBE W9,FC,CON195 LISTE: ALL FIELDS INCLUDED L P TBF FSUPR,CON195 L (
0x1be82c…1be9c0 Dummy {f00=0x00ad, f01=0x0190, f02=»CTL 0 TEST - ALPHA L P BZ CON200 BCD M P M 0 P* ALPHA M 8 P M H * P MOVE BIN4,W188 GET EDIT BUFFER LENGTH M P * P SUB BIN4,BIN7 ADJUST WITH MAX LENGTH M ~ , P SUB BIN4,BIN16 ADJUST WITH EDIT POINTER M P BN CONER3 M $ P EDSUB BPOOL(BIN9),BIN16,F
0x1be9c0…1beb54 (1, 330) Dummy {f00=0x00ad, f01=0x0190, f02=»E BIN4,W188 GET EDIT BUFFER LENGTH M * P SUB BIN4,BIN7 ADJUST WITH MAX LENGTH N * , P SUB BIN4,BIN16 ADJUST WITH EDIT POINTER N X P BN CONER3 N P GETCTL 3,BIN4 GET SCHK N P CALL TESTB,BIN4,W15 SIGN N P BZ CON220 NO N P TBF FSUPR,CON210 N
0x1beb54…1bece8 Dummy {f00=0x00ad, f01=0x0190, f02=» 2 P EDSUB BPOOL(BIN9),BIN16,FRMZCS EDIT 21 DIGITS O P B CON215 O : PCON210 O L 2 P EDSUB BPOOL(BIN9),BIN16,FRMBCS EDIT 21 DIGITS O Z PCON215 O & P MOVE BIN4,W22 SET PICTURE LENGTH O ( P ADD BIN7,W1 ADJUST POINTER FOR SIGN O P B CON250 O PCO
0x1bece8…1bee7c Dummy {f00=0x00ad, f01=0x0190, f02=»280 O PCON225 IF LISTE P $ P EDSUB BPOOL(BIN9),BIN16,FRMZCD P & P B CON235 P N PCON230 P ` $ P EDSUB BPOOL(BIN9),BIN16,FRMBCD P n PCON235 P $ P MOVE BIN4,W21 SET PICUTR LENGTH P PCON250 P $ P SUB BIN4,BIN7 SET DELETE LENGTH P 6 P DELET
0x1bee7c…1bf010 Dummy {f00=0x00ad, f01=0x018e, f02=»AD EDIT POINTER P | PCON280 Q P CBNE W9,FC,CON290 Q & : P EDSUB BPOOL(BIN9),BIN16,FRMFILL LISTE: INSERT FILLER Q @ ( P TBF FIRSTFL,CON285 NOT FIRST HEADER Q ~ * P CBNE BTYPE,W3,CON285 NOT NORMAL TRANS Q P CBL BIN16,WORK(W15),CON283 Q & P CLEAR FIRST
0x1bf010…1bf1a4 Dummy {f00=0x00ad, f01=0x0190, f02=» Q ( P CBE VSEIND,W1,CONTRM APPL =1 TRANSM R P MOVE BIN4,RECLGD R 4 P CBG BIN16,BIN4,CONTRM R N P B CON100 R l P EJECT R ~ P R PCONRET RET ALL DONE R & PCONTRM RET 2 WRITE/TRANSMIT BLOCK R ( PCONER1 RET 4 CUMPULSORY FIELD EMPTHY R $ PCO
0x1bf1a4…1bf338 Dummy {f00=0x00ad, f01=0x0190, f02=»* R PFRMFILL FRMT S P FILLR ' ',1 S P FMEND S 2 P S @ PFCOUNT FRMT S H P FTEXT ' 1' S P FEOR NEW PAGE S p P FILLR ' ',2 S P FILLR '*',10 S P FTEXT 'NUMBER: ' S P FMEL '9999',NUMBER S P FEOR S P FILLR ' ',2 S
0x1bf338…1bf4cc Dummy {f00=0x00ad, f01=0x0190, f02=»ATE S P FMEND T P T PFRMVOL3 FRMT T " P FMEL '99',FDCNT T 6 P FMEND T N P T PFBATC3 FRMT T d P FLINK FBATCH T x P FTEXT 'EJ GODKENDT' T P FEOR T P FMEND T P T PFBATCH FRMT T P FNL T P FEOR T P FNL T P
0x1bf4cc…1bf660 Dummy {f00=0x00ad, f01=0x018e, f02=» FMEND T P U PFMTBATCH FRMT U P FCOPY BATCH U , P FMEND U @ P U N PFFDHDR FRMT U V P FNL U j P FEOR U v P FNL U $ P FCOPY ='FLOPPY DISC SKRIVNING' U P FLINK HDR U P FMEND U P U PFFDEND FRMT U P FNL U P FEOR U
0x1bf660…1bf7f4 (1, 331) Dummy {f00=0x00ae, f01=0x0190, f02=» P V PFFDERR FRMT V P FNL V P FEOR V , P FNL V : $ P FCOPY ='FLOPPY DISC SKRIVNING' V F P FTEXT ' AFBRYDES' V n P FLINK HDR V P FEOR V P FNL V P FMEND V P V PFLSHDR FRMT V P FNL V P FEOR V P FNL V P FCO
0x1bf7f4…1bf988 Dummy {f00=0x00ae, f01=0x0190, f02=»G' V P FCOPY =' KLAR' W P FLINK HDR W " P FEOR W 4 P FNL W B P FMEND W N P W PFLSERR FRMT W d P FNL W x P FEOR W P FNL W P FCOPY ='LISTNING' W P FCOPY =' AFBRYDES' W P FLINK HDR W P FEOR W P FNL W P FMEND W
0x1bf988…1bfb1c Dummy {f00=0x00ae, f01=0x0190, f02=» ' W P FMEL '99-99-99',TIME X P FEOR X ( P FNL X 6 P FTEXT 'IND: ' X B P FMEL '99999',NUMBER X X P FTEXT ' UD: ' X t P FMEL '99999',BCDI21(W5) X P FEOR X P FNL X P FMEND X P X PFCAS02 FRMT X P FSL X P FCOPY =C'DE
0x1bfb1c…1bfcb0 Dummy {f00=0x00ae, f01=0x018e, f02=» FCOPY =C'NAME' X P FILLR ':',1 Y P FINP 32 Y , P FCOPY STR8B Y < P FNL Y P P FCOPY =C'EXPIRATION DATE:' Y P FINP 32 Y P FCOPY STR6A Y P FNL Y ( P FCOPY =C'OLD DATA SET IDENTIFIER:' Y P FINP 32 Y P FCOPY STR8A Y P FNL Y
0x1bfcb0…1bfe44 Dummy {f00=0x00ae, f01=0x018e, f02=» Y P Z PFFD999 FRMT Z P FTEXT =C'SLUTD' Z $ P FMEL '99999',BCDI21(W5) Z < P FILLR ' ',60 Z P FILLR ' ',62 Z r P FMEND Z P Z PFRMALP FRMT Z P FCOPY :FMTITEM Z P FMEND Z P Z PFRMTCD FRMT Z * P FMEL 'TTTTTTTTTTTTT
0x1bfe44…1bffd8 Dummy {f00=0x00ae, f01=0x4178, f02=» PFRMZCD FRMT [ * P FMEL 'ZZZZZZZZZZZZZZZZZZZZ9',:FMTITEM [ P FMEND [ F P [ T PFRMZCS FRMT [ , P FMEL 'ZZZZZZZZZZZZZZZZZZZZ9-',:FMTITEM [ p P FMEND [ P [ PFRMBCD FRMT [ * P FMEL '999999999999999999999',:FMTITEM [ P FMEND [ P [
0x1bffd8…1c016c Dummy {f00=0x00ae, f01=0x2008, f02=» 0 & " ADD DEBIN2,W1 UPDATE FIELD NUMBER GETFLD 2,DEBIN2,DEBIN3 < BOK DEC130 BN DEC900 ALL FIELD DONE p & ! B DEC920 COMPULSORY FIELD EMPTHY DEC130 GETCTL 0,DEBIN5 GET APPL @ MOVE DEBINW1,DEBIN4 LOA
0x1c016c…1c0300 Dummy {f00=0x00ae, f01=0x0190, f02=»' CONSTANT PW13 BIN W'13' CONSTANT PW14 BIN W'14' CONSTANT 0 PW15 BIN W'15' CONSTANT N P EJECT l P* z P* COMMON-BLOCK:3 P* P* USAGE: CONSTANTS P* PCB3 BLK PW16 BIN W'16' CONSTANT P
0x1c0300…1c0494 (1, 332) Opaque[0x194]
0x1c0494…1c0628 # DirEnt {nam=»DEDISC«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x1128, f03=0x0000}
0x1c0494…1c0628 IdxSect {
0x1c0494…1c0628 f00 = 0x0089 // 0x1c0494 @0x0
0x1c0494…1c0628 f01 = 0x0004 // 0x1c0496 @0x2
0x1c0494…1c0628 gno = [ // 0x1c0498 @0x4
0x1c0494…1c0628 [0x00]: C0x0089.0x1.0
0x1c0494…1c0628 [0x01]: C0x0089.0x2.0
0x1c0494…1c0628 ]
0x1c0494…1c0628 }
0x1c0628…1c07bc Dummy {f00=0x0089, f01=0x0190, f02=» $ P IDENT DEDISC REL 10.0 80-04-11 P 80-02-11/CHST , P* D P* N L P************************************************************************ X P* P* : P* ALL COMMENTS TO DEDISC ARE FOUND IN MODULE P* , P*
0x1c07bc…1c0950 Dummy {f00=0x0089, f01=0x0190, f02=» H P* P* P DDUM DEDDIV P PDIV 0 P ENTRY DEDISC > P ENTRY COND T P ENTRY RELEAS h P ENTRY SCHPOO ~ P ENTRY RETURN P ENTRY WAIT P ENTRY STRT01 P* P EXT DEPOOL P EXT WRFSP P EXT
0x1c0950…1c0ae4 Dummy {f00=0x0089, f01=0x0190, f02=» EXT DLCURR P EXT WRIACC P EXT WRTCO ( P EXT GETTBL : P EXT DELBTC N P EXT RECURR b P EXT ENTJOB v P EXT GETJOB P EXT SCHJOB P EXT DELJOB P EXT ENTFMT P EXT DELFMT P EXT GETSYS P EXT E
0x1c0ae4…1c0c78 Dummy {f00=0x0089, f01=0x0190, f02=»XT OPNEBC P EXT OPNNBC P EXT NXJOB & P EXT NXBTH 8 P* J P* T PATTACH EQU X'0E' ^ PDETACH EQU X'0F' v P EJECT PDEDISC PROC FC P* * P* BRANCH TO PROGRAM INDICATED BY FC P* P PBIN FC P CLE
0x1c0c78…1c0e0c Dummy {f00=0x0089, f01=0x0190, f02=»W95PR P MOVE DEBINW4,W0 PSTRT01 & P IB FC C0000000000000 4 P ENTJOB ENTER JOBDEF C R P GETJOB GET JOBDEF C r P DUMMY C P SCHJOB SEARCH JOBDEF C P DELJOB DELETE JOBDEF C P OPNNBC OPEN NEW BATCH C " P OP
0x1c0e0c…1c0fa0 Dummy {f00=0x0089, f01=0x0190, f02=» P SCHFMT SEARCH FORMAT C P DELFMT DELETE FORMAT C ( ( P WRICUR WRITE CURRENT DATA-SECTOR C H $ P GTNEXT GET NEXT DATA-SECTOR C t ( P GTPREV GET PREVIOUS DATA-SECTOR C ( P DLCURR DELETE CURRENT DATARECORD C ( P WRIACC WRITE ACCUM
0x1c0fa0…1c1134 (1, 333) Dummy {f00=0x0089, f01=0x0190, f02=» " P DUMMY GET PREVIOUS JOBNAME C " P WRTCO WRITE SECTOR (CORR) C * P GETTBL GET TABLE C P P DELTBL DELETE TABLE C l P ENTTBL ENTER TABLE C P DELBTC DELETE BATCH C " P DUMMY GET NO OF FREESPACES C & P NEXJOB GET NEXT JOBDEF
0x1c1134…1c12c8 Dummy {f00=0x0089, f01=0x0190, f02=» READ CURRENT SCTR C P NXBTH GET NEXT BATCHNAME C P DUMMY GET PREV BATCHNAME @ P EJECT b P* p PDUMMY z PRETURN P TBF SWITFS,RETUNF P PERF WRFSP,W1 PRETUNF P PERF RELEAS P CBNE DEBINW4,W0,RETUN9 P
0x1c12c8…1c145c Dummy {f00=0x0089, f01=0x0190, f02=» P* P* SET CONDITION-REGISTER P* 0 PCOND PROC : P CBL DEBINW4,W0,CON1 L P CBE DEBINW4,W0,CON0 h P CMP W1,W2 P RET PCON1 P CMP W2,W1 P RET PCON0 P CMP W1,W1 P RET P PEND P*
0x1c145c…1c15f0 Dummy {f00=0x0089, f01=0x0190, f02=»51' P CALL CHANFC,DISK,DKBIN1 P DSC1 DISK,ATTACH,W128 , P BNERR WARE2 J P MOVE DEBINW4,W3 ^ PWARE v P PERF COND P RET PWARE2 P SET SWITWT P SWITCH P B WARE P* P* P PEND $ PRELE
0x1c15f0…1c1784 Dummy {f00=0x0089, f01=0x417a, f02=» DSC1 DISK,DETACH,W0 PRELRET P RET * P PEND 6 P* D P* N ( P* SUBROUTINE SCHPOO, SEARCH POOL X P* PSCHPOO PROC IND,STRG,WX P PLIT IND P PSTRG STRG P PBIN WX P MOVE STRG10A,IND P COPY STRG
0x1c1784…1c1918 Dummy {f00=0x0089, f01=0x2008, f02=» ETUN9 P TBF SW95PR,RETUN9 P MOVE DEBINW4,=W'-1' 0 PRETUN9 L P PERF COND Z P RET l P PEND x P END @ MOVE PINDTB,DEBIN3 B RETURN LCK MOVE DEBINW4,W3 B RETURN * *
0x1c1918…1c1aac Dummy {f00=0x0089, f01=0x0190, f02=» R F J N11 P # W !02 p! u ! " !! w jw!! {1j !! {2 w d ";@h u" ! Kh !@k ~00"oT 2j~ # # - b o -( q0" TF b , ! , " , # 7 h ) b#T" # # ( 0 , b _1Ii !"d &%( _ #$d &% W 11 4
0x1c1aac…1c1c40 Dummy {f00=0x0089, f01=0x0190, f02=»Ak4 + 11 P W !; 11 P # W ! 4 | NO#L:PAGEFIELDLINE LENGTH#V:#G:#A:GENERATION VALIDATION ACCUMULATION Z9XXXZZ9XE+XXZZVZZ9ZZVZZZ 1 k " ( % & ) 0 ~ k: " $ % & ' ! " # $
0x1c1c40…1c1dd4 (1, 334) Opaque[0x194]
0x1c1dd4…1c1f68 # DirEnt {nam=»DKRUT1«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x1138, f03=0x0000}
0x1c1dd4…1c1f68 IdxSect {
0x1c1dd4…1c1f68 f00 = 0x0089 // 0x1c1dd4 @0x0
0x1c1dd4…1c1f68 f01 = 0x000a // 0x1c1dd6 @0x2
0x1c1dd4…1c1f68 gno = [ // 0x1c1dd8 @0x4
0x1c1dd4…1c1f68 [0x00]: C0x0089.0x3.0
0x1c1dd4…1c1f68 [0x01]: C0x008a.0x0.0
0x1c1dd4…1c1f68 [0x02]: C0x008a.0x1.0
0x1c1dd4…1c1f68 [0x03]: C0x008a.0x2.0
0x1c1dd4…1c1f68 [0x04]: C0x008a.0x3.0
0x1c1dd4…1c1f68 ]
0x1c1dd4…1c1f68 }
0x1c1f68…1c20fc Dummy {f00=0x0089, f01=0x0190, f02=» " P IDENT DKRUT1 REL10.0 80-04-11 P 80-01-18/CHST * * B > :********************************************************** L * 6 2* THIS MODULE HANDLES ALL DISC IN- AND OUTPUT. * @ P* AFTER EXECUTION, THE DATA-ITEM DEBINW4
0x1c20fc…1c2290 Dummy {f00=0x0089, f01=0x0190, f02=» 21 = NO DISC IN SPECIFIED UNIT & P* 22 = DISC I/0-ERROR 4 * P* 23 = DISC NOT OPERABLE ^ * @ ;*********************************************************** P DDUM DEDDIV P PDIV P EXT WAIT
0x1c2290…1c2424 Dummy {f00=0x0089, f01=0x0190, f02=» P EXT RETURN P EXT ATTWB P EXT RESTOR . P EXT COND B P EXT READDK T P EXT WRITDK h P ENTRY RDDS | P ENTRY WRDS P ENTRY DISU P ENTRY WRFSP P ENTRY REFSP P ENTRY WRIACC P ENTRY WRICUR
0x1c2424…1c25b8 Dummy {f00=0x0089, f01=0x0190, f02=»SP P ENTRY RDACC P ENTRY OFRSP P ENTRY GTNEXT 2 P ENTRY GTPREV H P ENTRY DLCURR ^ P ENTRY DLRCCH t EJECT PDISU PROC FUZ,RECNO,BUF P PBIN FUZ P PBIN RECNO P PSTRG BUF P IB FUZ C P READ
0x1c25b8…1c274c Dummy {f00=0x0089, f01=0x0190, f02=» P BOK READSY01 PERF DKER P TBT NEWVOL,READSY , PREADSY01 F P PERF COND V RET h PWRITSY t 4 P CALL WRITDK,DISK,FILECODE(W1),BUF,SECLEN,RECNO P BOK WRITSY01 PERF DKER P TBT NEWVOL,WRITSY PWRITSY01
0x1c274c…1c28e0 Dummy {f00=0x0089, f01=0x0190, f02=»F DKER P TBT NEWVOL,READUS PREADUS01 ( P PERF COND 8 RET J PWRITUS V : P CALL WRITDK,DISK,FILECODE(FILINDUS),BUF,SECLEN,RECNO d P BOK WRITUS01 PERF DKER P TBT NEWVOL,WRITUS PWRITUS01 P PERF COND R
0x1c28e0…1c2a74 (1, 335) Dummy {f00=0x008a, f01=0x0190, f02=» DATASECTORS ON DISC. THE LENGTH OF THE D/E-RECORD IS GIVEN BY ' L P* 'USELEN' IS SET AFTER FILE-ASSIGNMENT FOR RESP. TASK DEPENDING ON A H & P* FIRST RECORD OF THE USERFILE. P* PRDDS PROC RNR P PBIN RNR 8 P CALL READDK,DISK,FI
0x1c2a74…1c2c08 Dummy {f00=0x008a, f01=0x0190, f02=»ALL WRITDK,DISK,FILECODE(FILINDUS),RBUF,USELEN,RNR P PERF COND : P RET L P PEND X EJECT f @ <************************************************************ t * * SUBROUTINE DKER * * %* PURPOSE: SPECIFIES DIS
0x1c2c08…1c2d9c Dummy {f00=0x008a, f01=0x018e, f02=»************ ` * DKER PROC P CLEAR NEWVOL 0 P XSTAT DISK,DKBIN1 F P MOVE BCD13A,DKBIN1 ` P MOVE DKBIN2,=X'8022' | P CALL MASK,DKBIN1,DKBIN2 P BZ DKER10 P MOVE DEBINW4,W22 I/O-ERROR P RET PDKER10
0x1c2d9c…1c2f30 Dummy {f00=0x008a, f01=0x018e, f02=» P MOVE DKBIN2,W128 P CALL MASK,DKBIN1,DKBIN2 " P BZ DKER30 B " P SET NEWVOL NEW VOLUME LOADED T P RET z PDKER30 P MOVE DKBIN2,W1 P CALL MASK,DKBIN1,DKBIN2 P BZ DKER40 * P MOVE DEBINW4,=W'23' DISC NOT OPERABLE
0x1c2f30…1c30c4 Dummy {f00=0x008a, f01=0x0190, f02=» P MOVE DKBIN1,FINDEXPO(MAX) ( P COPY SYSBUF,W0,W10,RPOOL(DKBIN1),W9 & * P COPY SYSBUF,W10,W188,BPOOL(DKBIN1),W0 R P MOVE DKBIN1,FFSNR(MAX) 8 P CALL WRITDK,DISK,FILECODE(MAX),SYSBUF,SECLEN,DKBIN1 P BNERR WRFRET P PERF DKER PWRFR
0x1c30c4…1c3258 Dummy {f00=0x008a, f01=0x0190, f02=»01 8 P CALL READDK,DISK,FILECODE(FIND),SYSBUF,SECLEN,FSRNR P BNERR REFCOP F P PERF DKER P TBT NEWVOL,REFS01 n PREFCOP P MOVE DKBIN1,FINDEXPO(FIND) P MOVE FFSNR(FIND),FSRNR ( P COPY RPOOL(DKBIN1),W9,W10,SYSBUF,W0 * P C
0x1c3258…1c33ec Dummy {f00=0x008a, f01=0x0190, f02=»N,BUF P TBT SWIT04,US01 P PERF DISU,W1,BIN,BUF & P B DRET D PUS01 T P PERF DISU,W3,BIN,BUF ` PDRET ~ P RET P PEND PWR PROC BIN,BUF P TBT SWIT04,US02 P PERF DISU,W2,BIN,BUF P B DRET PUS02
0x1c33ec…1c3580 Dummy {f00=0x008a, f01=0x0190, f02=»TORS l P* PRDACC PROC P PERF WAIT ( P PERF DISU,W3,DEBIN1,SYSBUF : P BERR RDARET ^ * P COPY BPOOL(PINACC),W0,W188,SYSBUF,W10 r ( P XCOPY RPOOL(PINACC),W9,W2,DEBIN1,W0 PRDARET P PERF COND P RET P PEND P*
0x1c3580…1c3714 (1, 336) Dummy {f00=0x008a, f01=0x0190, f02=» COPY SYSBUF,W10,W188,BPOOL(PINACC),W0 ( P XCOPY DEBIN1,W0,W2,RPOOL(PINACC),W9 . P PERF DISU,W4,DEBIN1,SYSBUF Z P PERF COND ~ P RET P PEND P* P EJECT P* P* PDUMPROC PROC FC PWRICUR P PERF FREESP
0x1c3714…1c38a8 Dummy {f00=0x008a, f01=0x0190, f02=»OPY RBUF,W0,W2,STR2A,W0 P PTR NEXT SCTR TO CURR REC P XCOPY RBUF,W4,W2,DEBIN1,W0 D PWRIT05 h & P PERF WRDS,CURSEC WRITE RECORDAREA v P BNERR WRIT02 P* P* WRITING - ERROR P* 0 P PERF FREESP,DEBIN2,FILINDUS GET N
0x1c38a8…1c3a3c Dummy {f00=0x008a, f01=0x0190, f02=» ( P CBE DEBIN3,W0,ENDERR FIRST RECORD? * P PERF RDDS,DEBIN3 READ PREV RECORD(S) 0 P BERR ENDERR ^ $ P SET CONTINUATION IN PREV SCTR r P XCOPY RBUF,W4,W2,CURSEC,W0 * P PERF WRDS,DEBIN3 WRITE PREV RECORD(S) P BNERR WRIT05 P GET
0x1c3a3c…1c3bd0 Dummy {f00=0x008a, f01=0x0190, f02=»OF PREV t P BERR ENDERR " P PREV OF PREV = END OF CHAIN $ P XCOPY RBUF,W4,W2,W0,W0 J ( P PERF WRDS,DEBIN3 WRITE PREV OF PREV j PENDERR * P MOVE DEBINW4,W21 INDICATE DISC-ERROR P B WRIT07 P* P* OKAY P*
0x1c3bd0…1c3d64 Dummy {f00=0x008a, f01=0x0190, f02=» NO OF OCC BYTES P XCOPY RBUF,W6,W2,W10,W0 * P MOVE CURSEC,DEBIN1 SET CURRENT SCTRNO 8 P TBF SWIT01,WRIT07 f . P MOVE DEBINW4,W10 'NO MORE SPACE ON DISC' PWRIT07 P B RETURN P* P* P* P* PWRIACC P
0x1c3d64…1c3ef8 Dummy {f00=0x008a, f01=0x018e, f02=»CTOR(S) v P B RETURN P* " P* , P* 6 PCLSBTH CLOSE BATCH @ P MOVE DEBIN1,W0 P B WRIT01 t P* P* P* PRECURR " P PERF RDDS,CURSEC READ SCTR(S) P CBNE DEBINW4,=W'30',BRETTA P MOVE DEBINW
0x1c3ef8…1c408c Dummy {f00=0x008a, f01=0x0190, f02=» $ P PERF RDDS,DEBIN1 READ SECTOR(S) P BERR RETURN , & P CBE FC,W16,GT003 JUMP IF GETPREV @ P GET LINK PREV FOR CONTROL j P XCOPY DEBIN2,W0,W2,RBUF,W2 P CBE DEBIN2,W0,GT002 P CBE CURSEC,DEBIN2,GT003 " P IF NOT OK, ZEROISE LINK
0x1c408c…1c4220 Dummy {f00=0x008a, f01=0x0190, f02=»4,W9 P B RETURN PGT003 , P MOVE CURSEC,DEBIN1 CURRENT SECTORNUMBER , P B RETURN P* n P* x P* PGTPREV P XCOPY DEBIN1,W0,W2,RBUF,W2 P B GT001 P* P* P* PDLCURR P SET SWIT04
0x1c4220…1c43b4 (1, 337) Dummy {f00=0x008a, f01=0x0190, f02=»* P* B P* SUBR FREESP, GET RECORDNUMBER OF NEXT FREE RECORD IN FILE P* Z P* d PFREESP PROC RECN,INDEX n P MOVE DEBINW4,W0 P CLEAR SWIT06 P CLEAR SWIT07 PFREE01 P MOVE DKBIN1,FINDEXPO(INDEX) 2 P CALL
0x1c43b4…1c4548 Dummy {f00=0x008a, f01=0x0190, f02=»NDEX),FND r P SET SW95PR P B FND & PNOFN 4 * P XCOPY DKBIN3,W0,W2,RPOOL(DKBIN1),W13 @ P CBE DKBIN3,W0,EOFCHN n PFSP02 P PERF SAVESB P PERF WRFSP,INDEX P BERR RESSY P PERF REFSP,DKBIN3,INDEX P BERR RESSY
0x1c4548…1c46dc Dummy {f00=0x008a, f01=0x0190, f02=»ET SWIT06 P MOVE DKBIN3,W2 P B FSP02 * PNOFSP : P MOVE DEBINW4,W10 H PFND b P CBG INDEX,W1,NEFE n P SET SWITFS PNEFE P PERF COND P RET P PEND P* P* 4 P* SUBROUTINE RFRSP, FREE RECOR
0x1c46dc…1c4870 Dummy {f00=0x008a, f01=0x0190, f02=»,INDEX GET FSP-REC WITH RECNO IN IT ~ 2 P CALL SETFRE,BPOOL(DEBIN4),RPOOL(DEBIN4),RECNO , P ADD FNOOFREC(INDEX),W1 b & P CBNE INDEX,W1,RFRSP1 JUMP IF NOT P SET SWITFS SYSTEMFILE PRFRSP1 P PERF COND P RET P PEND P*
0x1c4870…1c4a04 Dummy {f00=0x008a, f01=0x0190, f02=»SYNTAX: PERF GFRSPR,RECNO,INDEX 2 P* INDEX = INDEX TO CURRENT FILE , P* b PGFRSPR PROC RECNO,INDEX l PANFANG P MOVE DKBIN1,W1 P CBE INDEX,W1,SYSFLE P MOVE DKBIN1,USELEN * P DIV DKBIN1,SECLEN GET NO OF S
0x1c4a04…1c4b98 Dummy {f00=0x008a, f01=0x0190, f02=»ACE d P SUB DKBIN2,W12 P MUL DKBIN2,W8 $ P DIV DKBIN2,DKBIN1 : . P MUL DKBIN2,DKBIN1 GET RID OF UNUSED BITS T < P XCOPY DKBIN1,W0,W2,RPOOL(DEBIN4),W17 1ST INDICATED RNR . P MOVE DKBIN3,DKBIN1 SAVE 1ST INDICATED RNR . P ADD DKBIN1,DKBI
0x1c4b98…1c4d2c Dummy {f00=0x008a, f01=0x0190, f02=»DEBIN4,FINDEXPO(INDEX) P RET " PNEXT GET NEXT FREESP-RECORD * P MOVE DKBIN1,W13 P PREAD h 6 P XCOPY DEBIN4,W0,W2,RPOOL(DEBIN4),DKBIN1 GET LINK t P CBE DEBIN4,W0,GFRET P PERF SAVESB P PERF WRFSP,INDEX P BERR GFREST
0x1c4d2c…1c4ec0 Dummy {f00=0x008a, f01=0x0190, f02=» PPREV P MOVE DKBIN1,W11 P B READ , P PEND < P* J P* T P* SUBROUTINE OFRSP ^ 0 P* SET RECORD ACCORDING TO RECNO OCCUPIED | P* POFRSP PROC RECNO,INDEX P PERF GFRSPR,RECNO,INDEX 2 P CALL SETOCC,BPO
0x1c4ec0…1c5054 (1, 338) Dummy {f00=0x008a, f01=0x0190, f02=»1),DEBINW4 PSAVPOO P MOVE DKBIN1,W1 P MOVE DKBIN2,W1 8 * P PERF DEPOOL,W2,DKBIN1,DKBIN2,STRG10A P P BNERR SAVOK ~ P SWITCH P B SAVPOO PSAVOK P MOVE WORK(W2),DKBIN1 ( P COPY RPOOL(DKBIN1),W9,W10,SYSBUF,W0
0x1c5054…1c51e8 Dummy {f00=0x008a, f01=0x018e, f02=»C RESTORE SYSBUF FROM POOL P MOVE DKBIN1,WORK(W2) $ ( P COPY SYSBUF,W0,W10,RPOOL(DKBIN1),W9 B * P COPY SYSBUF,W10,W188,BPOOL(DKBIN1),W0 n * P PERF DEPOOL,W6,DKBIN1,DKBIN1,STRG10A P RET P PEND P EJECT P* H P* SUBROUTI
0x1c51e8…1c537c Dummy {f00=0x008a, f01=0x0190, f02=» P XCOPY DEBIN2,W0,W2,BUF,W2 P XCOPY DEBIN1,W0,W2,BUF,W4 & P CBNE DEBIN1,W0,DL001 H P SET BOOL9 f P B RREPRE x PDL001 P PERF RD,DEBIN1,BUF P BERR DLRET P XCOPY DEBIN5,W0,W2,BUF,W2 P XCOPY BUF,W2,W2,DEBIN2,W0
0x1c537c…1c5510 Dummy {f00=0x008a, f01=0x0190, f02=»F NO MORE IN CHAIN z ( P PERF RD,DEBIN2,BUF READ NEXT RECORD ! P BERR DLRET ! F 0 P XCOPY BUF,W2,W2,DEBIN5,W0 SET LINK BACKWARD ! Z 0 P PERF WR,DEBIN2,BUF WRITE WITH UPDATED LINK ! PDL003 ! P MOVE DEBIN5,DEBIN1 ! P B DL006 ! PDL004 !
0x1c5510…1c56a4 Dummy {f00=0x008a, f01=0x018e, f02=»2 ! PDL008 " P PERF RD,DEBIN2,BUF " P BERR DLRET " 4 P XCOPY DEBIN5,W0,W2,BUF,W4 " H P XCOPY BUF,W4,W2,DEBIN1,W0 " j P PERF WR,DEBIN2,BUF " P BERR DLRET " PDLR2 " P MOVE DEBIN1,FILINDUS " P TBT SWIT04,DLR1 " P MOVE DEBI
0x1c56a4…1c5838 Dummy {f00=0x008a, f01=0x401e, f02=» P* # END # @ # RD,DEBIN2,BUF " P BERR DLRET " 4 P XCOPY DEBIN5,W0,W2,BUF,W4 " H P XCOPY BUF,W4,W2,DEBIN1,W0 " j P PERF WR,DEBIN2,BUF " P BERR DLRET " PDLR2 " P MOVE DEBIN1,FILINDUS " P TBT SWIT04,DLR1 " P MOVE DEBI
0x1c5838…1c59cc Dummy {f00=0x008a, f01=0x2008, f02=» $ NEWVOL,REFS01 PREFCOP P MOVE DKBIN1,FINDEXPO(FIND) , P MOVE FFSNR(FIND),FSRNR P ( P COPY RPOOL(DKBIN1),W9,W10,SYSBUF,W0 p * P COPY BPOOL(DKBIN1),W0,W188,SYSBUF,W10 PREFEND P PERF COND P RET P PEND END
0x1c59cc…1c5b60 Dummy {f00=0x008a, f01=0x0190, f02=» ] $ ?FMDA 1 0 0 0 z h s s !T}6 )) !@|Tkj !! ! j !! 10 _H !j !! $ !A !@( "90! !T2@e@i@k !" ? 'hZ 2 !TS &6 " _ Ai_8Ae_<" y 4WsAkW !j !! ( ~
0x1c5b60…1c5cf4 (1, 339) Opaque[0x194]
0x1c5cf4…1c5e88 # DirEnt {nam=»DKRUT2«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x1160, f03=0x0000}
0x1c5cf4…1c5e88 IdxSect {
0x1c5cf4…1c5e88 f00 = 0x008b // 0x1c5cf4 @0x0
0x1c5cf4…1c5e88 f01 = 0x000a // 0x1c5cf6 @0x2
0x1c5cf4…1c5e88 gno = [ // 0x1c5cf8 @0x4
0x1c5cf4…1c5e88 [0x00]: C0x008b.0x0.0
0x1c5cf4…1c5e88 [0x01]: C0x008b.0x1.0
0x1c5cf4…1c5e88 [0x02]: C0x008b.0x2.0
0x1c5cf4…1c5e88 [0x03]: C0x008b.0x3.0
0x1c5cf4…1c5e88 [0x04]: C0x008c.0x0.0
0x1c5cf4…1c5e88 ]
0x1c5cf4…1c5e88 }
0x1c5e88…1c601c Dummy {f00=0x008b, f01=0x0190, f02=» $ P IDENT DKRUT2 REL 10.0 80-04-11 P 80-01-21/CHST , > :********************************************************** D * * @ P* AFTER EXECUTION, THE DATA-ITEM DEBINW4 WILL BE SET AS * FOLLOWS: * 0 =
0x1c601c…1c61b0 Dummy {f00=0x008b, f01=0x0190, f02=» 22 = DISC I/0-ERROR * P* 23 = DISC NOT OPERABLE * J @ ;*********************************************************** T P DDUM DEDDIV P PDIV P EXT WAIT ENTRY ENTFMT ENTRY DELFMT ENTRY PREFMT
0x1c61b0…1c6344 Dummy {f00=0x008b, f01=0x0190, f02=»H P EXT RFRSP P EXT RD P EXT REFSP , P EXT EMPTYT > P EXT WRFSP R P EXT NOFFRE d P EXT COND x P EXT ALGO P EXT RETURN P EXT EMPTYT P EXT DEPOOL P EXT GETIND P EXT DEDISC P EXT CMP
0x1c6344…1c64d8 Dummy {f00=0x008b, f01=0x0190, f02=» P MOVE DEBINW4,W0 P IB FUCO C P OPENSY C 4 P CLOSSY C H P OPENUS C P CLOSUS p POPENSY P TBF BOOLA1,GOON P SWITCH P B OPENSY PGOON P SET SWITSY P BNZ OPENSY04 P SET BOOLA
0x1c64d8…1c666c Dummy {f00=0x008b, f01=0x018e, f02=»),W1,OPENSY04 P MOVE STRG10A,=C'SYSFIL ' P MOVE JOBNAME,FVOLNAME(W1) 8 8 P CALL OPENF,DISK,FILECODE(W1),SYSBUF,STRG10A,JOBNAME Z P BOK OPENSY02 POPENSY06 , P CALL CLOSEF,DISK,FILECODE(W1),SYSBUF,W0 P CLEAR SWITSY P MOVE
0x1c666c…1c6800 Dummy {f00=0x008b, f01=0x018e, f02=» ~ PDES1 " P CALL CMPIND,DKBIN1,BPOOL(W1) P BNOK DES2 OUT OF RANGE : P MOVE RPOOL(DKBIN1),=X'5800' Z P ADD DKBIN1,W1 ~ P B DES1 PDES2 P PERF NOFFRE,DEBIN1,W1 P MOVE FNOOFREC(W1),DEBIN1 P PERF DISU,W1,W1,SYSBUF
0x1c6800…1c6994 (1, 340) Dummy {f00=0x008b, f01=0x0190, f02=» * P PERF DEPOOL,W2,DKBIN1,DKBIN2,STRG10A P BNOK OPENSY06 2 P MOVE FINDEXPO(W1),DKBIN1 H P PERF REFSP,W2,W1 j P BNOK OPENSY06 POPENSY07 P READ SYSTEM VARIABLES P PERF DEDISC,W19 POPENSY04 P CLEAR BOOLA1 P
0x1c6994…1c6b28 Dummy {f00=0x008b, f01=0x018e, f02=» " P CBG FCOUNTER(W1),W0,CLOSSY02 P PERF WRFSP,W1 * P BNOK CLOSSY01 @ P PERF DISU,W1,W1,SYSBUF V P BNOK CLOSSY01 v P PERF DISU,W2,W1,SYSBUF PCLOSSY01 , P CALL CLOSEF,DISK,FILECODE(W1),SYSBUF,W0 PCLOSSY02 P PERF COND
0x1c6b28…1c6cbc Dummy {f00=0x008b, f01=0x0190, f02=» P BERR OPENUS03 P PERF SETUSE P BERR OPENUS03 . P B OPENUS01 D PGOONN X P SET SWITUS f P BNZ OPENUS0C z P SET BOOLA2 P CLEAR SWIT01 P ADD FCOUNTER(FILINDUS),W1 ( P CBG FCOUNTER(FILINDUS),W1,OPENUS0E P
0x1c6cbc…1c6e50 Dummy {f00=0x008b, f01=0x0190, f02=»NOK OPENUS02 P PERF NOFFRE,DEBIN1,FILINDUS P BOK OPENUS0D 8 P SET SWIT01 N POPENUS0D b $ P MOVE FNOOFREC(FILINDUS),DEBIN1 r P PERF DISU,W3,W1,RBUF P BERR OPENUS02 POPENUS0A * P XCOPY F95PROC(FILINDUS),W0,W2,RBUF,W5
0x1c6e50…1c6fe4 Dummy {f00=0x008b, f01=0x018e, f02=» FILE CLOSED? P CBE DKBIN1,W0,USCLS P SET SWIT01 2 PUSCLS F P XCOPY RBUF,W0,W1,W7,W1 T P PERF DISU,W4,W1,RBUF t P BOK OPENUS0B P SET SWIT01 POPENUS0B P PERF SETUSE P BERR OPENUS02 P MOVE DKBIN3,W1
0x1c6fe4…1c7178 Dummy {f00=0x008b, f01=0x0190, f02=» P PERF REFSP,W2,FILINDUS P PERF RELEAS $ P BOK OPENUS01 8 $ P MOVE DKBIN1,FINDEXPO(FILINDUS) N * P PERF DEPOOL,W6,DKBIN1,DKBIN2,STRG10A v OPENUS02 2 P CALL CLOSEF,DISK,FILECODE(FILINDUS),SYSBUF,W0 P MOVE DEBINW4,W21 POPEN
0x1c7178…1c730c Dummy {f00=0x008b, f01=0x0190, f02=»E DEBINW4,=W'-2' POPENUS0C P CLEAR BOOLA2 ( P PERF COND > RET P PCLOSUS P TBF SWITUS,CLOSUS01 j P CLEAR SWITUS P SUB FCOUNTER(FILINDUS),W1 P BP CLOSUS01 P PERF WRFSP,FILINDUS P PERF RELEAS P BNOK
0x1c730c…1c74a0 Dummy {f00=0x008b, f01=0x0190, f02=»K CLOSUS02 P XCOPY RBUF,W0,W1,W0,W1 P PERF DISU,W4,W1,RBUF 2 P BNOK CLOSUS02 P PCLOSUS02 f 2 P CALL CLOSEF,DISK,FILECODE(FILINDUS),SYSBUF,W0 v CLOSUS01 P PERF COND RET PEND PSETUSE PROC P XCOPY SECLE
0x1c74a0…1c7634 (1, 341) Dummy {f00=0x008b, f01=0x0190, f02=»E DKBIN1,W0,SETNOZ P MOVE DKBIN1,W1 PSETNOZ 2 P MUL DKBIN1,SECLEN @ $ P CALL GETIND,RBUF,DKBIN2,DKBIN3 Z P CBNG DKBIN1,DKBIN2,SETOKA P MOVE DEBINW4,W22 P MOVE BCD13A,=D'0' P B SETRET PSETOKA MOVE USELEN,DKBIN1
0x1c7634…1c77c8 Dummy {f00=0x008b, f01=0x0190, f02=»PROC FC P* PENTFMT ENTER FORMAT P PERF WAIT 8 P BERR RETURN J P MOVE STR6A,FORMAT ^ P PERF FREESP,DEBIN1,W1 x P BERR RETURN P MOVE WORK(W9),DEBIN1 P B WRTFMT PFMTCHAIN P MOVE DEBIN5,W4 PRDCHAI
0x1c77c8…1c795c Dummy {f00=0x008b, f01=0x018e, f02=» v P B RETURN PFST3 : P XCOPY DEBIN4,W0,W2,SYSBUF,W6 OCCUPIED SPACE TO DEBIN4 & : P CBG DEBIN4,=W'180',RENEXT NO SPACE FOR MORE ENTRIES? d PADDENTRY , P XCOPY STRG10A,W0,W2,W0,W0 STATUS = '00' & P COPY STRG10A,W2,W6,FORMAT,W0 NAME
0x1c795c…1c7af0 Dummy {f00=0x008b, f01=0x018e, f02=» P ADD DEBIN4,W10 4 P XCOPY SYSBUF,W6,W2,DEBIN4,W0 SET OCCUPIED SPACE P PERF DISU,W2,DEBIN5,SYSBUF T P B RETURN x PFFIRST P MOVE DEBIN3,W0 P MOVE DEBINW4,W0 P B FFST01 PRENEXT 2 P XCOPY DEBIN5,W0,W2,SYSBUF,W4 GE
0x1c7af0…1c7c84 Dummy {f00=0x008b, f01=0x0190, f02=» p P PERF DISU,W2,DEBIN3,SYSBUF PFFST01 , P MOVE DEBIN4,W10 : 4 P MOVE SYSBUF,=X'464300' SET SCTR-IDENTIFICATION R 2 P XCOPY SYSBUF,W2,W2,DEBIN3,W0 SET LINK TO PREV . P XCOPY SYSBUF,W4,W2,W0,W0 LINK TO NEXT = 0 P B ADDENTRY PWR
0x1c7c84…1c7e18 Dummy {f00=0x008b, f01=0x0190, f02=»IN2,W1,W1,RPOOL(DEBIN3),W8 GET LINK NEXT BUF * P XCOPY SYSBUF,W8,W2,RPOOL(DEBIN3),W17 4 ( P CBE DEBIN2,W0,NOMOREC LAST RECORD? b P PERF FREESP,DEBIN4,W1 P BNERR COP < P MOVE DEBIN2,WORK(W9) SAVE POINTER TO 1:ST FORMAT RECORD * P MOVE WORK
0x1c7e18…1c7fac Dummy {f00=0x008b, f01=0x018e, f02=» 4 P XCOPY SYSBUF,W4,W2,DEBIN4,W0 SET LINK NEXT REC * P COPY SYSBUF,W10,W188,BPOOL(DEBIN3),W0 @ P PERF DISU,W2,DEBIN1,SYSBUF n P BERR RETURN P TBF SWIT01,CO10 P B FMTCHAIN PCO10 P MOVE DEBIN3,DEBIN2 P MOVE DEBIN1,=
0x1c7fac…1c8140 Dummy {f00=0x008b, f01=0x0190, f02=» P SET SWIT01 P B COP P* & P* 0 P* : P* D P* N PNEXFMT GET NEXT FORMAT X P SET SWIT03 x P* P* PPREFMT P MOVE FRMTPNTR,W0 P CALL EMPTYT,FORMAT P BZ RRECNX P MOVE RNRFMCH,W4
0x1c8140…1c82d4 (1, 342) Dummy {f00=0x008b, f01=0x0190, f02=»A,FORMAT P PERF SFMTCH,W4,SYSBUF,W10 P BERR RETURN 2 P MOVE RNRFMCH,DEBIN1 F P MOVE PTRFMCH,DEBIN2 b P SUB PTRFMCH,W8 ~ PRRECNZ P PERF WAIT P BERR RETURN PRRECNY P PERF DISU,W1,RNRFMCH,SYSBUF P BNERR RREC0
0x1c82d4…1c8468 Dummy {f00=0x008b, f01=0x0190, f02=»N PRREC01 0 P XCOPY DEBIN1,W0,W2,SYSBUF,W6 GET USED SPACE P TBF SWIT03,RREC02 L P ADD PTRFMCH,W10 f P CBE PTRFMCH,DEBIN1,RREC03 ~ PRREC07 P MOVE DEBIN1,PTRFMCH P B RREC04 PRREC03 P MOVE DEBIN1,W4 PRREC05
0x1c8468…1c85fc Dummy {f00=0x008b, f01=0x018e, f02=» MOVE PTRFMCH,W0 P B RRECNY PRREC02 * P CBL PTRFMCH,W20,RREC06 8 6 P CBNL DEBIN1,PTRFMCH,RREC02A IF WITHIN USED SPACE X . P MOVE PTRFMCH,DEBIN1 UPDATE WITH MAX LIMIT PRREC02A P SUB PTRFMCH,W10 P B RREC07 PRREC06
0x1c85fc…1c8790 Dummy {f00=0x008b, f01=0x0190, f02=» x & P COPY STRG10A,W1,W6,SYSBUF,DEBIN1 $ P COPY FORMAT,W0,W6,SYSBUF,DEBIN1 2 P MOVE STR6A,FORMAT Z P B NXPRFM t P* P* P* PDELFMT DELETE FORMAT P PERF WAIT P BNOK RETURN P MOVE STR6A,FORMAT P CLEAR
0x1c8790…1c8924 Dummy {f00=0x008b, f01=0x018e, f02=»C h 4 P XCOPY DEBIN1,W0,W2,SYSBUF,W6 DEBIN1=OCC. SPACE P DLETE SYSBUF,DEBIN2,W10 B P SUB DEBIN1,W10 b 0 P XCOPY SYSBUF,W6,W2,DEBIN1,W0 SET OCC SPACE z P CBG DEBIN1,W10,DELF1 P CLEAR SWIT04 P PERF DLRCCH,SYSBUF P BERR RETU
0x1c8924…1c8ab8 Dummy {f00=0x008b, f01=0x0190, f02=» r P BERR RETURN P PERF ALGO,W2 P BNERR DELF2 2 PDELF3 F P MOVE DEBINW4,W9 T PDELF31 l * P CBNE FC,W9,DELF32 JUMP IF NOT ENTFMT z 6 P MOVE DEBINW4,WORK(W9) RESTORE ORIGINAL ERROR CODE PDELF32 P B RETURN PDELF2
0x1c8ab8…1c8c4c Dummy {f00=0x008b, f01=0x4160, f02=»RD j P BERR RETURN P PERF RFRSP,DEBIN2,W1 PDELF < P CBE DEBIN1,W0,DELF31 H P PERF DISU,W1,DEBIN1,SYSBUF f P BERR RETURN P COPY STR2A,W0,W2,SYSBUF,W0 P CBNE STR2A,=X'4600',DELF3 P PERF RFRSP,DEBIN1,W1 " P XCOPY
0x1c8c4c…1c8de0 Dummy {f00=0x008b, f01=0x2008, f02=» NEWVOL,REFS01 PREFCOP P MOVE DKBIN1,FINDEXPO(FIND) , P MOVE FFSNR(FIND),FSRNR P ( P COPY RPOOL(DKBIN1),W9,W10,SYSBUF,W0 p * P COPY BPOOL(DKBIN1),W0,W188,SYSBUF,W10 PREFEND P PERF COND P RET P PEND END
0x1c8de0…1c8f74 (1, 343) Dummy {f00=0x008c, f01=0x0190, f02=» Wp Wj Wb Sf !WAH{ W<0A " m W W 0! !T3m W 0! !T&m W 0h U ! V !!4 !"4 80 11 / 6 ''' ' y ''' "W% ," "0 We0F W "_ '_ !0F ! 2 W 0 0 (P" &W:6 33 33 333 36
0x1c8f74…1c9108 Dummy {f00=0x008c, f01=0x0190, f02=»#4 @ 0C P j !!!WP U00 P m ( &W 0) = b !Z/h U ! !Q !4 !03@ T 0% j %! !01 ! 0F ( ! 6 cv6 C & 4 W 1W 200 P " "Jh !U !TA00 T h ! !T006 _ A 00 T f !0% 0301 _ 0 0 (P h ! !P 11 _ 11 !00 X 0
0x1c9108…1c929c Dummy {f00=0x008c, f01=0x0190, f02=»HNUMBERRECORDCONFIRM VALUESETSYMBOLIC: XTTTT9 < . . 9 DELETED INSERTED + ON UNIT:U i + WITHIN JOB: k RECOVERY RUNNING. RECORD CORRECTION : FREEZING OF BATCH l CONFIRM RECORD INSERT CONFIRM RECORD DELETE:
0x1c929c…1c9430 Dummy {f00=0x008c, f01=0x0190, f02=»8 : AUTOMATIC SKIP/DUP *O N* FF* RECOVERY OF : k 7 : l RUNNING. ( ',!.%)$&"#-* # +0 4 ! + 6 B R d x / & N ) t@
0x1c9430…1c95c4 Dummy {f00=0x008c, f01=0x0190, f02=» T H L P 6@d@g0+ 03W0 Ad0. 0/ R Ag0D ! P "Hd 0. 0/ 4 ! ! @ 4h $ !6 ++ W) "@|Tyj !! ! j !! 00 _IT[ !j !! 6 nnWO@e !6 ! 3h ! !P !@i ! 9 5h * !TY2 W "_ !
0x1c95c4…1c9758 Dummy {f00=0x008c, f01=0x0190, f02=»! 6 & ) 0! ! W30! !P(_ 0! ! $W ( 0A # W a " Hi b " !P 6 ! "W ! "W ! "W ! "S ? #? He U m " 0! !< ? ( 0. 0/ 0* 00 TJ U m ! P Q 0* , ~1d ! ~ W f ! ! 0 06 0( ?
0x1c9758…1c98ec Dummy {f00=0x008c, f01=0x0190, f02=»TTTTTTTTT9 ! 0 0 0 @ 0 4 4h $ !6 ++ W) "@|Tyj !! ! j !! 00 _IT[ !j !! 6 nnWO@e !6 ! 3h ! !P !@i ! 9 5h * !TY2 W "_ !
0x1c98ec…1c9a80 Dummy {f00=0x008c, f01=0x4156, f02=» a& a&4 < o = * & ; m n = 0 DEPOOL = ^ * & 9 . a = p * & W R J BC JC JD = * & u =
0x1c9a80…1c9c14 (1, 344) Opaque[0x194]
0x1c9c14…1c9da8 # DirEnt {nam=»DKRUT3«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x1188, f03=0x0000}
0x1c9c14…1c9da8 IdxSect {
0x1c9c14…1c9da8 f00 = 0x008c // 0x1c9c14 @0x0
0x1c9c14…1c9da8 f01 = 0x0008 // 0x1c9c16 @0x2
0x1c9c14…1c9da8 gno = [ // 0x1c9c18 @0x4
0x1c9c14…1c9da8 [0x00]: C0x008c.0x1.0
0x1c9c14…1c9da8 [0x01]: C0x008c.0x2.0
0x1c9c14…1c9da8 [0x02]: C0x008c.0x3.0
0x1c9c14…1c9da8 [0x03]: C0x008d.0x0.0
0x1c9c14…1c9da8 ]
0x1c9c14…1c9da8 }
0x1c9da8…1c9f3c Dummy {f00=0x008c, f01=0x0190, f02=» $ P IDENT DKRUT3 REL 10.0 80-04-11 P 80-01-21/CHST , P* D P* N L P************************************************************************ X P* P* : P* ALL COMMENTS TO DKRUT3 ARE FOUND IN MODULE P* , P*
0x1c9f3c…1ca0d0 Dummy {f00=0x008c, f01=0x0190, f02=» H P* P* P DDUM DEDDIV P PDIV 0 P ENTRY NXPRFM > P EXT COND T P EXT DISU f P EXT DEPOOL x P EXT WRFSP P EXT WAIT P EXT RELEAS P EXT FREESP P EXT SCHPOO P ENTRY GETSYS P ENTRY
0x1ca0d0…1ca264 Dummy {f00=0x008c, f01=0x0190, f02=» P EXT RFRSP P EXT RD P ENTRY ALGO * P ENTRY GETTBL > P ENTRY DELTBL T P ENTRY ENTTBL j P EXT RDDS P EJECT PDUMPROC PROC FC PGETFMT GET FORMAT P MOVE RNRFMCH,W0 P MOVE STR6A,DEINPUT P
0x1ca264…1ca3f8 Dummy {f00=0x008c, f01=0x0190, f02=»C PRDDK P MOVE DEBINW4,W0 P CBNE FRMTPNTR,W0,MAXI . P CLEAR SWIT04 L P PERF SFMTCH,W4,SYSBUF,W10 b P BERR RETURN PRDDK98 P TEST SWIT02 P BNZ RETURN P READ 1ST REC OF FMT P MOVE SYSBUF,HEX00 P P
0x1ca3f8…1ca58c Dummy {f00=0x008c, f01=0x0190, f02=»00 IF GETNEXT | & P CBE FC,=W'32',RDDK100 IF GETPREV P SET SWIT07 @ P BNZ SETER T PRDDK100 f P PERF RELEAS v P B STRT01 PSETER P MOVE DEBINW4,W9 P B RETURN PCHOK & P MOVE FRMTPNTR,DEBIN3 SET FRMTPNTR
0x1ca58c…1ca720 Dummy {f00=0x008c, f01=0x0190, f02=»UF,W8 x P MOVE DEBIN1,DEBIN3 P MOVE DEBIN4,W0 * P GET NO OF CONSEC B " P XCOPY DEBIN4,W1,W1,SYSBUF,W9 ^ * P PERF DEPOOL,W1,DEBIN3,DEBIN4,STRG10A P BNERR GET21 ( P MOVE DEBINW4,W13 'NO BUFFERS FREE' P P B RETURN
0x1ca720…1ca8b4 (1, 345) Dummy {f00=0x008c, f01=0x0190, f02=»IN3),W0,W188,SYSBUF,W10 * P XCOPY RPOOL(DEBIN3),W9,W10,SYSBUF,W0 P SUB DEBIN1,W1 N P CBE DEBIN1,W0,TBFAL d P PERF DISU,W1,DEBIN5,SYSBUF P BNERR GET25 * P PERF DEPOOL,W6,DEBIN4,DEBIN3,STRG10A P B RDDK99 PGET25 P
0x1ca8b4…1caa48 Dummy {f00=0x008c, f01=0x0190, f02=»OVE DEBIN4,DEBIN3 PTBFAL * P PERF DEPOOL,W4,DEBIN4,DEBIN1,STRG10A ( * P PERF DEPOOL,W6,PINDFR,DEBIN1,STRG10A V PSETPFR P MOVE PINDFR,DEBIN4 P B RETURN PFLOCKE P MOVE DEBINW4,W24 'LOCKED' P B RETURN PGOTFFR
0x1caa48…1cabdc Dummy {f00=0x008c, f01=0x0190, f02=»OT USED | PINDUSE P B FLOCKE PFUT 0 P B RETURN < PFGETUN N $ P PERF SCHPOO,=C'F ',STR6A,W5 SET P B TBFALL PSCHFMT SEARCH FORMAT P SET SWIT02 P B GETFMT P* P* PENTSYS P PERF WAIT
0x1cabdc…1cad70 Dummy {f00=0x008c, f01=0x0190, f02=»1,W17,SYSV(DEBIN2),W0 ~ P ADD DEBIN1,W17 P ADD DEBIN2,W1 6 P CBL DEBIN2,W11,CENT L P PERF DISU,W2,W5,SYSBUF h P B RETURN P* P* PGETSYS P PERF WAIT P BERR RETURN P PERF DISU,W1,W5,SYSBUF P BOK N
0x1cad70…1caf04 Dummy {f00=0x008c, f01=0x0190, f02=» COPY SYSV(DEBIN2),W0,W17,SYSBUF,DEBIN1 P ADD DEBIN1,W17 0 P ADD DEBIN2,W1 H P CBL DEBIN2,W11,CGET ^ P B RETURN z P* P* P EJECT P* P* ENTTBL SET SWIT01 B GETT01 ENTT01 P MOV
0x1caf04…1cb098 Dummy {f00=0x008c, f01=0x0190, f02=»DISU,W2,DEBIN4,SYSBUF B RETURN ENTT03 0 PERF FREESP,DEBIN2,W1 > P BERR RETURN " P XCOPY SYSBUF,W4,W2,DEBIN2,W0 p P PERF DISU,W2,DEBIN4,SYSBUF P BERR RETURN P MOVE DEBIN4,DEBIN2 B ENTT01 * *
0x1cb098…1cb22c Dummy {f00=0x008c, f01=0x0190, f02=»W7,SYSBUF BNOK RETURN DELT02 & PERF DISU,W1,DEBIN1,SYSBUF 4 BNOK RETURN X " XCOPY DEBIN2,W0,W2,SYSBUF,W4 l PERF RFRSP,DEBIN1,W1 BNOK RETURN P CBE DEBIN2,W0,RETUR MOVE DEBIN1,DEBIN2 B DELT02
0x1cb22c…1cb3c0 Dummy {f00=0x008c, f01=0x0190, f02=»OT IN POOL, READ GETT01 PERF WAIT ( P BERR RETURN : , ' COPY STR2A,W0,W2,TABLE,W1 GET TABLE-NO N P MOVE BCD13A,STR2A ~ * P MOVE DEBIN5,BCD13A CONVERT TO BINARY CBL DEBIN5,=W'95',DKTBL $ MOVE DEBINW4,W1 INDICATE ERROR
0x1cb3c0…1cb554 (1, 346) Dummy {f00=0x008c, f01=0x0190, f02=»' ~ P BNE RETURN P MOVE DEBINW4,W0 P TBF SWIT01,NOINSY 6 P MOVE SYSBUF,=X'544300' P P PERF DISU,W2,W7,SYSBUF p P BERR RETURN PMUL MUL DEBIN5,W2 ADD DEBIN5,W10 & ! XCOPY DEBIN1,W0,W2,SYSBUF,DEBIN5 P
0x1cb554…1cb6e8 Dummy {f00=0x008c, f01=0x0190, f02=»,W0 r P PERF DISU,W2,W7,SYSBUF P BERR RETURN , P MOVE DEBIN4,DEBIN1 @ P B ENTT01 PDT002 n P TEST SWIT02 | P BNZ DELT01 RDN PERF DISU,W1,DEBIN1,SYSBUF P BNOK RETURN P MOVE DEBIN4,DEBIN1 MOV
0x1cb6e8…1cb87c Dummy {f00=0x008c, f01=0x0190, f02=»4 GET LINK NEXT t ( # CBG DEBIN1,W0,RDN READ NEXT RECORD ( P TBF SWIT01,NOINSY JUMP IF NOT ENTER D P MOVE DEBIN2,W17 p 0 P MATCH RPOOL(PINDTB),DEBIN2,W1,SYSBUF,W8,W1 ( P BOK ENTT01 INSERT IN CURRENT SECTOR P B ENTT03 INSERT NEW SECTOR
0x1cb87c…1cba10 Dummy {f00=0x008c, f01=0x018e, f02=»DEBIN3,W1 MOVE DEBIN2,W1 * % PERF DEPOOL,W1,DEBIN3,DEBIN2,STRG10A * BNOK RETURN X ( $ COPY RPOOL(DEBIN3),W9,W10,SYSBUF,W0 l * P COPY BPOOL(DEBIN3),W0,W188,SYSBUF,W10 GTF * % PERF DEPOOL,W4,DEBIN3,DEBIN2,STRG10A 8 P PERF DE
0x1cba10…1cbba4 Dummy {f00=0x008c, f01=0x0190, f02=» B RETURN * P PEND P* . < P* SUBROUTINR SFMTCH, SEARCH CHAIN. SWIT04 ON: USERFILE 8 P* x PSFMTCH PROC WX,BUF,STEG P MOVE DEBIN1,WX PRID0 P MOVE DEBIN2,W10 P TBF SWIT04,RID3 P PERF RDDS,DEBIN1
0x1cbba4…1cbd38 Dummy {f00=0x008c, f01=0x0190, f02=»R PRID1 P ADD DEBIN2,W2 P XCOPY DKBIN1,W0,W2,BUF,W6 , PMTCH N $ P MATCH BUF,DEBIN2,W6,STR6A,W0,W6 Z P BNERR FOND P ADD DEBIN2,STEG P SUB DEBIN2,W1 P CBNG DEBIN2,DKBIN1,MTCH P MOVE DEBINW4,W0 P XCOPY DKBIN
0x1cbd38…1cbecc Dummy {f00=0x008c, f01=0x0190, f02=» IN CHAIN' r P B RETR PFOND " P ADD DEBIN2,W6 . " P XCOPY DEBIN3,W0,W2,BUF,DEBIN2 D PRETR j P PERF COND v P RET P PEND P* 2 PNOFFRE PROC CNTR,INDFIL GET NO OF FREE RECORDS P MOVE CNTR,W0 P MOVE DEBIN5,W2
0x1cbecc…1cc060 Dummy {f00=0x008c, f01=0x0190, f02=»ERR NOFRET P XCOPY DEBIN5,W0,W2,RBUF,W4 P XCOPY DEBIN4,W0,W2,RBUF,W10 6 P ADD CNTR,DEBIN4 Z P CBNE DEBIN5,W0,US002 r P MOVE FNOOFREC(INDFIL),CNTR PNOFRET P PERF COND P RET P PEND P* P* P EJECT
0x1cc060…1cc1f4 (1, 347) Dummy {f00=0x008d, f01=0x0190, f02=» FORMAT' h $ P* FC = 1 FOR SET (ENTER FORMAT) J P* FC = 2 FOR GET (GET FORMAT) IN THIS CASE, THE CONDITIONREGISTER IS 8 . P* SET TO 0 IF IDENTIFICATION OKAY 2 P* SET TO 2 IF IDENTIFICATION NOT OKAY P* PALGO PROC FC
0x1cc1f4…1cc388 Dummy {f00=0x008d, f01=0x415e, f02=» DKBIN1,W2 P CBNE DKBIN1,W6,XCALGO P IB FC C 0 P ALTO C B P ALFRO T PALTO d " P XCOPY SYSBUF,W0,W2,DKBIN3,W0 p P RET PALFRO " P XCOPY DKBIN2,W0,W2,SYSBUF,W0 P CBE DKBIN2,DKBIN3,NOERR P CMP W1,W2 P
0x1cc388…1cc51c Dummy {f00=0x008d, f01=0x2008, f02=» ETUN9 P TBF SW95PR,RETUN9 P MOVE DEBINW4,=W'-1' 0 PRETUN9 L P PERF COND Z P RET l P PEND x P END @ MOVE PINDTB,DEBIN3 B RETURN LCK MOVE DEBINW4,W3 B RETURN * *
0x1cc51c…1cc6b0 Dummy {f00=0x008d, f01=0x0190, f02=» F Q 0 [0 0 ^ e f h n t ~ 2 . AX Z 8 0 5
0x1cc6b0…1cc844 Dummy {f00=0x008d, f01=0x0190, f02=» !! _ jX 3 0 0}@d "P l_p 4 # 6 P 7MW (j "M ( 0 P 0 * 1W 'W 1 1 1 1 v v" Av v"j !!Ov v" Cv 0 "" VvW 0 0 )W`0 "" Vv 0 !!W6 'WH ! W+ " W% h * h `
0x1cc844…1cc9d8 Dummy {f00=0x008d, f01=0x0190, f02=» j !!L 0 /P /0 f 4 0 f 4 4 0 0 0 $0 T 0 0 W 0 W 0 4P +W 4 0 4 @p@q@r@t@v@ @x 2 # !"#$% H ! ( Hx 4 $ !"4 "!4 !!4 I @w 0 0 V # 4 A 0 _ @ P 0 0 4 b
0x1cc9d8…1ccb6c Dummy {f00=0x008d, f01=0x0190, f02=» W !4 F B T L0 X % 0 % r2 2 1 3F361 2 1 * V 2B z n (1 1 ,'*%^$~$ n % 4&% 0d2n # %R%V$ d H L P2j % a D o e ) 1 @
0x1ccb6c…1ccd00 Dummy {f00=0x008d, f01=0x0190, f02=» 0 Q d F J S:T JOBPTS GETDATAMODE NO.:ENTRYTYPE:FORMATSEARCHVERIFY CREATEELEMENTNAME: TPROGRAM:REL 10.0SIZE OF DEFINITION VALUE-SETS70 CONVERSION10 SUPERVISORY FUNCTIONS99XXXXXXXXXXXXXXXXXXXXXXX-
0x1ccd00…1cce94 (1, 348) Opaque[0x194]
0x1cce94…1cd028 # DirEnt {nam=»DE20FS«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x11a8, f03=0x0000}
0x1cce94…1cd028 IdxSect {
0x1cce94…1cd028 f00 = 0x008d // 0x1cce94 @0x0
0x1cce94…1cd028 f01 = 0x000e // 0x1cce96 @0x2
0x1cce94…1cd028 gno = [ // 0x1cce98 @0x4
0x1cce94…1cd028 [0x00]: C0x008d.0x1.0
0x1cce94…1cd028 [0x01]: C0x008d.0x2.0
0x1cce94…1cd028 [0x02]: C0x008d.0x3.0
0x1cce94…1cd028 [0x03]: C0x008e.0x0.0
0x1cce94…1cd028 [0x04]: C0x008e.0x1.0
0x1cce94…1cd028 [0x05]: C0x008e.0x2.0
0x1cce94…1cd028 [0x06]: C0x008e.0x3.0
0x1cce94…1cd028 ]
0x1cce94…1cd028 }
0x1cd028…1cd1bc Dummy {f00=0x008d, f01=0x0190, f02=» $ P IDENT DE20FS REL 10.0 80-04-11 P 80-03-20/JAER , P* D * P* FORMAT DEFINITION SUBROUTINES N * P* -2-BYTE ADRESSING COMPATIBLE | P* DDUM DEDDIV PDIV P ENTRY FCOPY FORMAT COPYING P ENTRY FMELI F
0x1cd1bc…1cd350 Dummy {f00=0x008d, f01=0x0190, f02=»SL FORMAT START LINE P ENTRY FNL FORMAT NEW LINE " P ENTRY FKI FORMAT KEYED INPUT > " P ENTRY FVAL FORMAT VALIDATION d * P ENTRY FGEN FORMAT GENERATION (FIELD) $ P ENTRY FACC FORMAT ACCUMULATION . P ENTRY FDUPL FORMAT DUPLICATION REFERENC
0x1cd350…1cd4e4 Dummy {f00=0x008d, f01=0x0190, f02=» P EXT DERROR ERROR-MESSAGES & P EXT DEPOOL BUFFERRESERVATIN-MODUL & . P EXT EMPTYT ASSEMBLY SUBROUTINE EMPTYT - P * P EXT WCNTRL FORMAT FIELD CONTROL WORDS P EXT FMOVE FORMAT MOVE " P EXT CONNUM CONVERT STRG=>BIN " P EXT LINIT LINE INIT
0x1cd4e4…1cd678 Dummy {f00=0x008d, f01=0x018e, f02=»EAR CAN EQU X'91' CANCEL PRET EQU X'92' RETURN ( PNOK EQU X'FF' NO KEY D PTOT EQU X'93' TOTAL ` P* | $ PDEKTAB6 KTAB CLR,CAN,RET,NOK,TOT P* PDEKTAB7 KTAB CLR,CAN,RET P* EJECT * * FORMA
0x1cd678…1cd80c Dummy {f00=0x008d, f01=0x0190, f02=» PERF FFIELD RET PEND $ EJECT 2 * @ * FORMAT EDITING J * j H D* FMELI = C2 <NUMB PIC.CHARS> <CH> <CH> ....<CH> 0A <FIELDNR> t * FMELI PROC $ P PERF FCODE,W2 GENERATE FMELI=C2 < 7 XCO
0x1cd80c…1cd9a0 Dummy {f00=0x008d, f01=0x018e, f02=»PIC CHARS b ADD BIN1,BIN12 NEXT POS , P TBF BOOL6,FMELI5 JUMP IF GENERAL FORMAT 2 2 P CALL FMOVE,STRG10A,FACK FETCH ACK-ITEM-ADRESS b P PERF FITEM LOAD ITEM-ADRESS , P SUB BIN1,W1 ADJUST FOR INDEX-ADR.STORE 2 P CBE BIN15,W2,FMELI3 JUMP IF
0x1cd9a0…1cdb34 (1, 349) Dummy {f00=0x008d, f01=0x0190, f02=» < P CALL FMOVE,STRG10A,FIND(BIN16) FETCH INDEX-ITEM-ADRESS P PERF FITEM LOAD ITEM-ADRESS D P B FMELIR h PFMELI5 z PERF FFIELD STORE FIELD NR PFMELIR RET PEND EJECT * * FORMAT TEXT
0x1cdb34…1cdcc8 Dummy {f00=0x008d, f01=0x0190, f02=»,W6 LOAD LIMIT FOR FLINK 4 P PERF FLINK,BIN16,BIN9 GENERATE FLINK IF NEEDED ( P CBNE DEBINW2,W0,FTEXT9 ERROR-SIGNAL X $ PERF FCODE,W3 GENERATE FTEXT=C3 2 - XCOPY BPOOL(BIN3),BIN1,W1,BIN9,W1 STORE NUMB ADD BIN1,W1 NEXT BUFFER POS : 5 X
0x1cdcc8…1cde5c Dummy {f00=0x008d, f01=0x0190, f02=» EJECT * * FORMAT TABULATION * > * FTAB = C4 <TABPOS> H * l FTAB PROC v P MOVE BIN16,W188 & P SUB BIN16,W6 LOAD LIMIT FOR FLINK 2 P PERF FLINK,BIN16,W0 GENERATE FLINK IF NEEDED ( P CBNE DE
0x1cde5c…1cdff0 Dummy {f00=0x008d, f01=0x0190, f02=» BIN1,W1 NEXT BUFFERPOS PFTAB99 RET . PEND : P EJECT H P* V P* FORMAT VALIDATION ` P* > P* FVAL = C5 <NUMB VAL.-CHARS> <CH> <CH> .......... P* PFVAL PROC P MOVE BIN16,W188 & P SUB B
0x1cdff0…1ce184 Dummy {f00=0x008d, f01=0x0190, f02=»CTEXT t 4 P PERF FLINK,BIN16,BIN15 GENERATE FLINK IF NEEDED ( P CBNE DEBINW2,W0,FVAL9 ERROR-SIGNAL F & P PERF FCODE,W5 GENERATE FVAL = C5 r 4 P PERF CONNUM,JOBSPC,FMTWK,W1 CONVERT VARSTR=>BIN @ P XCOPY BPOOL(BIN3),BIN1,W1,FMTWK(W1),W1 STORE NUMB O
0x1ce184…1ce318 Dummy {f00=0x008d, f01=0x0190, f02=»IN1,FMTWK(W1) ADJUST BUFFERPOS PFVAL9 & P RET 4 P PEND @ P EJECT N P* * P* FORMAT GENERATION (OF FIELDS) f P* @ P* FGEN = C6 <NUMB OF GEN.-CHARS> <CH> <CH> ......... P* PFGEN PROC P MOVE BIN1
0x1ce318…1ce4ac Dummy {f00=0x008d, f01=0x0190, f02=» BIN15,W3 ADJUST FOR FUNCTEXT 4 P PERF FLINK,BIN16,BIN15 GENERATE FLINK IF NEEDED & ( P CBNE DEBINW2,W0,FGEN9 ERROR-SIGNAL ^ & P PERF FCODE,W6 GENERATE FGEN = C6 4 P PERF CONNUM,JOBSPC,FMTWK,W2 CONVERT VARSTR=>BIN @ P XCOPY BPOOL(BIN3),BIN1,W1,F
0x1ce4ac…1ce640 Dummy {f00=0x008d, f01=0x0190, f02=»ARSSTRG X P ADD BIN1,FMTWK(W2) PFGEN9 , P RET : P PEND F P EJECT T P* b P* FORMAT ACCUMULATION l P* @ P* FACC = C7 <NUMB OF ACC.-CHARS> <CH> <CH> .......... P* PFACC PROC P MOVE BIN16,W1
0x1ce640…1ce7d4 (1, 350) Dummy {f00=0x008d, f01=0x0190, f02=»IN15,W3 ADJUST FOR FUNCTEXT 4 P PERF FLINK,BIN16,BIN15 GENERATE FLINK IF NEEDED $ ( P CBNE DEBINW2,W0,FACC9 ERROR-SIGNAL & P PERF FCODE,W7 GENERATE FACC = C7 4 P PERF CONNUM,JOBSPC,FMTWK,W3 CONVERT VARSTR=>BIN @ P XCOPY BPOOL(BIN3),BIN1,W1,FMT
0x1ce7d4…1ce968 Dummy {f00=0x008d, f01=0x0190, f02=»SSTRG V . P ADD BIN1,FMTWK(W3) ADJUST BUFFERPOSITION PFACC9 @ P RET N P PEND Z P EJECT h P* v * P* FORMAT DUPLICATION REFERENCES P* < P* FDUPL = CC <NUMB. OF CHARS> <CH> <CH> <CH>...... P* PFDUPL
0x1ce968…1ceafc Dummy {f00=0x008d, f01=0x0190, f02=»RATE FLINK t ( P CBNE DEBINW2,W0,FDUPL9 ERROR-SIGNAL & P PERF FCODE,W8 GENERATE FDUPL = CC > 2 P PERF CONNUM,DUPL,FMTWK,W4 CONVERT VARSTR. BIN h > P XCOPY BPOOL(BIN3),BIN1,W1,FMTWK(W4),W1 STORE NUM OF CHARS P ADD BIN1,W1 NEXT BUFFERPOS > P XCO
0x1ceafc…1cec90 Dummy {f00=0x008d, f01=0x0190, f02=»D P EJECT P* P* FORMAT LINKING " P* @ L P* FLINK = DF <BUFFERPOOLADRESS> <FORMATLINKINDEX> <CONSTANTADRESS> J P* H P* INPUT PARAMETERS : LIMIT = POSITION LIMIT IN CURRENT BUFFER D P*
0x1cec90…1cee24 Dummy {f00=0x008d, f01=0x0190, f02=» CHARS = NUMBER OF CHARACTER-POSITIONS TO H P* COUNT BEFORE COMPARISON IS MADE J P* P* P* OUTPUT PARAMETER : . P* DEBINW2 = 0 OK L P*
0x1cee24…1cefb8 Dummy {f00=0x008d, f01=0x018e, f02=»ETUR N P P* = 4 MAXIMUM BUFFERS USED;KTOT SIMULATED P* ` L P*********************************************************************** j P* PFLINK PROC LIMIT,CHARS P MOVE DEBINW2,W0 OK 2 P SUB LIMIT
0x1cefb8…1cf14c Dummy {f00=0x008d, f01=0x0190, f02=» P MOVE BIN15,W1 WORK:=1 & P MATCH STRG10A,BIN15,W9,FDIR,W0,W1 " 2 P CBE BIN15,W1,FLINKA JUMP IF 1-BYTE ADRESSING L & P SUB LIMIT,W3 ADJUST FOR 2-BYTEADR PFLINKA 4 P CBNG RNRFMCH,W29,FLINKF JUMP IF NOT LAST BUFFER * P SUB LIMIT,W3 ADJUST 3
0x1cf14c…1cf2e0 Dummy {f00=0x008d, f01=0x0190, f02=» CBNG BIN1,LIMIT,FLINK9 JUMP IF NO FLINKGEN : P CBG RNRFMCH,W29,FLINK7 NO MORE BUFFERS ALLOWED MAX 24 4 & P PERF FCODE,W9 GENRATE FLINK = DF r 6 P CALL FMOVE,STRG10A,FBPOOL FETCH BPOOL-ITEM-ADRESS P PERF FITEM LOAD ITEM-ADRESS , P SUB BIN1,W1 A
0x1cf2e0…1cf474 (1, 351) Dummy {f00=0x008e, f01=0x0190, f02=»FLINK1 6 P CALL FMOVE,STRG10A,FFLIND FETCH FLIND-ITEM-ADRESS P PERF FITEM LOAD ITEM-ADRESS H , P SUB BIN1,W1 ADJUST FOR INDEX-ADR.STORE l . P CBE BIN15,W2,FLINK3 JUMP IF 1-BYTE ADRESS , P SUB BIN1,W1 ADJUST FOR INDEX-ADR.STORE PFLINK3
0x1cf474…1cf608 Dummy {f00=0x008e, f01=0x0190, f02=»OOL2,FLINK5 6 P MOVE BIN3,FMTWK(W8) RESTORE BUFFERIND ALREADY RES P B FLINK6 N PFLINK5 ` " P MOVE BIN16,W1 WANTED BUFFERS n P MOVE STRG10A,FORMAT < P PERF DEPOOL,W3,BIN16,BIN3,STRG10A CHAIN ANOTHER BUFFER P BNOK FLINK8 JUMP IF ERR
0x1cf608…1cf79c Dummy {f00=0x008e, f01=0x0190, f02=»W2 DISPLAY DITO WHILE CHANGED ( P XCOPY STR1A,W0,W1,FDIR,W0 LOAD 'E9' & 6 P MOVE BPOOL(BIN3),STR1A FILL BUFFER WITH FEXIT E9 R PFLINK6 ( P MOVE BIN1,W0 BPOOLBUFFERPOINTER:=0 P B FLINK9 PFLINK7 P MOVE DEBINW4,W29 P PERF DE
0x1cf79c…1cf930 Dummy {f00=0x008e, f01=0x0190, f02=» PERF DERROR,DEKTAB7 $ P CBE DEBINW2,W1,FLINK5 TRY AGAIN PFLINKB D * P SUB DEBINW2,W1 ADJUST FOR CANC RETURN R PFLINK9 . P CLEAR DOOL2 F=LINE NOT DEL LAST BUFF USED P RET P PEND P EJECT P* P* FORMAT START L
0x1cf930…1cfac4 Dummy {f00=0x008e, f01=0x0190, f02=»DIR,W0 LOAD 'E9' | 6 P MOVE BPOOL(BIN3),STR1A FILL BUFFER WITH FEXIT E9 $ P PERF FCODE,W10 GENERATE FSL=E0 R 6 P MOVE FMTWK(W6),BIN1 SAVE STARTPOINTER OF LASTLINE z 6 P MOVE FMTWK(W7),BIN3 SAVE BUFFERINDEX OF LASTLINE P MOVE BIN10,W0 FIELDNR:=0
0x1cfac4…1cfc58 Dummy {f00=0x008e, f01=0x0190, f02=»ET P PEND P EJECT P* & * P* FORMAT END-OF-LINE PROCESSING 0 P* ^ 4 P* - PROCESSES FORMAT DIRECTIVE CODE : FNL h : P* AND ADJUSTS WORKITEMS FOR NEW LINE PROCESSING P* P* OUTPUT VARIABLES: 4
0x1cfc58…1cfdec Dummy {f00=0x008e, f01=0x0190, f02=» = 2 NO AVAILABLE BUFFERS;RETUR B P* = 4 MAX LIMIT EXCEEDED;KTOT F P* L P*********************************************************************** P* PFNL PROC P MOVE BI
0x1cfdec…1cff80 Dummy {f00=0x008e, f01=0x0190, f02=»RROR SIGNAL x P PERF FCODE,W11 GENERATE FNL $ P ADD FDVBCD(W2),=D'1' NEXT LINE 8 , P DISPLAY 2,W1,W1 DISPLAY LINE NR/PAGE NR ` < P CBG FDVBCD(W2),FDVBCD(W1),FNL96 JUMP IF LINEMAX REACHED & P TBT DOOL8,FNL10 JUMP IF NO ERASE P ERASE 10,W3,W
0x1cff80…1d0114 (1, 352) Dummy {f00=0x008e, f01=0x0190, f02=» d 0 P MOVE FMTWK(W7),BIN3 SAVE LASTLINE'S BUFFIND P CBE FMTWK(W5),W0,FNL90 < 6 P MOVE RECLNTH,FMTWK(W5) SAVE LAST LINES NUMB CHARS PFNL90 & P SET BOOL1 T=FIRST LINE CONFIRMED $ P PERF LINIT LINE INIT WORKITEMS P MOVE DEBINW2,W0 O
0x1d0114…1d02a8 Dummy {f00=0x008e, f01=0x0190, f02=» IF CLEAR-KEY v ( P SUB DEBINW2,W1 ADJUST FOR CANC RET PFNL99 B P RET P P PEND EJECT j * FORMAT KEYED INPUT x * 4 /* FKI = FO <TABPOS> <CTL1> <CTL2> <CTL3> < 8* = F2 <TABPOS> <APPLE1> <CTL1>
0x1d02a8…1d043c Dummy {f00=0x008e, f01=0x0190, f02=» <CTL2> <CTL3> h D P* = FA <TABPOS> <APPLE1> <DUPL> <CTL1> <CTL2> <CTL3> L P* = FB <TABPOS> <APPLE1> <APPLE2> <DUPL> <CTL1> <CTL2> <CTL3> ^ * FKI PROC P MOVE BIN16,W188 & P TBT ALPHA,FKI01 JUMP IF ALPHANUM (
0x1d043c…1d05d0 Dummy {f00=0x008e, f01=0x018e, f02=»OAD CHRS TO COUNT ( P SUB BIN16,W14 LOAD LIMIT FOR FLINK ! PFKI03 ! F 4 P PERF FLINK,BIN16,BIN15 GENERATE FLINK IF NEEDED ! T ( P CBNE DEBINW2,W0,FKI99 ERROR-SIGNAL ! $ P MOVE BIN15,W13 GENERATE FKI=F0 ! & " MOVE BIN16,SPEC LOAD APPLE BINARY !
0x1d05d0…1d0764 Dummy {f00=0x008e, f01=0x018e, f02=» PFKI10 " P CBNE FDVSTR(W1),='N',FKI20 " $ P ADD BIN15,W3 FKI=F8 OR FA OR FB " 6 PFKI20 " ^ ( P PERF FCODE,BIN15 GENERATE FKI-CODE " l P EJECT " * " ( $* TABULATION POSITION SETTING " * " 4 / XCOPY BPOOL(BIN3),BIN1,W1,BIN6,W1
0x1d0764…1d08f8 Dummy {f00=0x008e, f01=0x0190, f02=» " r * # ( # CBG BIN16,=X'FF',FKI40 APPLE > 255 # 4 0 XCOPY BPOOL(BIN3),BIN1,W1,BIN16,W1 STORE APPLE1 # > ADD BIN1,W1 NEXT POS # v P B FKI50 # FKI40 # 6 2 XCOPY BPOOL(BIN3),BIN1,W2,BIN16,W0 STORE APPLE1-2 # ADD BIN1,W2 NEXT POS #
0x1d08f8…1d0a8c Dummy {f00=0x008e, f01=0x018e, f02=»E,STRG10A,IND1 # P PERF FITEM LOAD ITEM W1 $ FKI70 $ 6 * $ D 2 -* CONTROL WORDS SETTING CTL1 CTL2 CTL3 $ N * $ 8 P MOVE BIN16,FDVBCD(W7) LOAD FDVBCD(W7)LENGTH BINARY $ > P CALL WCNTRL,BPOOL(BIN3),BIN1,DEBINW1,BIN16,BIN7 LOAD CTLS $
0x1d0a8c…1d0c20 Dummy {f00=0x008e, f01=0x0190, f02=» > :* INPUT PARAMETER : FDIND = FORMAT DIRECTIVE INDEX % * % F : 5***************************************************** % P FCODE PROC FDIND % * % XCOPY BPOOL(BIN3),BIN1,W1,FDIR,FDIND % ( $ ADD BIN1,W1 NEXT POSITION IN BUFFER % RET %
0x1d0c20…1d0db4 (1, 353) Dummy {f00=0x008e, f01=0x0190, f02=»FFIELD PROC % 6 2 XCOPY BPOOL(BIN3),BIN1,W1,W10,W1 STORE '0A'-FIELD & ADD BIN1,W1 NEXT POS & N 6 1 XCOPY BPOOL(BIN3),BIN1,W1,BIN10,W1 STORE FIELDNR & l P ADD BIN1,W1 NEXT POS & RET & PEND & P EJECT & P* & > P* THIS ROUTI
0x1d0db4…1d0f48 Dummy {f00=0x008e, f01=0x0190, f02=»DED IN 'STRG10A' & ^ D P* AND STORES IT IN ACTUAL BUFFER AND THE CORRECT POSITION. ' 6 P* IT ALSO ADJUSTES THE BUFFERPOINTER (BIN1). ' ` P* ' PFITEM PROC ' * P MOVE BIN15,W1 START ADRESS FOR MATCH ' : P MATCH STRG10A,BIN15,W9,FDIR,W0,W1 C
0x1d0f48…1d10dc Dummy {f00=0x008e, f01=0x0190, f02=» RET ' P PEND ( P EJECT ( P* ( ( P* SET NUMBER OF POOLS ( 2 P P* -LAYOUT: X+YY <X=NUMBER OF DESC-POOLS , YY=NUMBER OF FORMATPOOLS> ( V P* ( 2 P* USED VARIABLES : BIN16 = WORK ( P* ( L P* CHANGED VA
0x1d10dc…1d1270 Dummy {f00=0x008e, f01=0x0190, f02=»********* ( N PNOPOOL PROC ) * P TBF BOOL7,NOPL10 JUMP IF NEWREG-MODE ) & 2 P MOVE BIN16,WORK(W3) FETCH NUMB OF OLD DPOOLS ) T 8 P CBNG PINDND,BIN16,NOPL20 JUMP IF NEW NUMB<OLD NUMB ) PNOPL10 ) 0 P MOVE BIN16,PINDND FETCH NUMB OF DESC POOLS ) P
0x1d1270…1d1404 Dummy {f00=0x008e, f01=0x0190, f02=»NEWREG.MODE ) v . P ADD BIN16,WORK(W4) ADD NUMB OF OLD FPOOLS * PNOPL30 * F " P MOVE FDVBCD(W3),BIN16 'X+YY' * T P RET * z P PEND * P EJECT * P* * P* FORMAT LIST * P* FIX-ITEM-ADRESSES * P* * PFBPOOL FRMT * P
0x1d1404…1d1598 Dummy {f00=0x008e, f01=0x0190, f02=» FMEND * , PFIND FTABLE IND1,IND2,IND3,IND4,IND5, C + $ P IND6,IND7,IND8,IND9,IND10, C + > ( P IND11,IND12,IND13,IND14,IND15, C + f ( P IND16,IND17,IND18,IND19,IND20, C + & P IND21,IND22,IND23,IND24,IND25 C + P IND26,IND27,IND28,IND29 +
0x1d1598…1d172c Dummy {f00=0x008e, f01=0x0190, f02=»W3 + P FMEND , PIND4 FRMT , P FCTL W4 , * P FMEND , : PIND5 FRMT , H P FCTL W5 , Z P FMEND , j PIND6 FRMT , x P FCTL W6 , P FMEND , PIND7 FRMT , P FCTL W7 , P FMEND , PIND8 FRMT , P FCTL W8 , P FMEND , P
0x1d172c…1d18c0 Dummy {f00=0x008e, f01=0x0190, f02=»W11 , P FMEND - PIND12 FRMT - P FCTL W12 - , P FMEND - > PIND13 FRMT - L P FCTL W13 - ^ P FMEND - p PIND14 FRMT - ~ P FCTL W14 - P FMEND - PIND15 FRMT - P FCTL W15 - P FMEND - PIND16 FRMT - P FCTL W16 - P F
0x1d18c0…1d1a54 (1, 354) Dummy {f00=0x008e, f01=0x0190, f02=» - P FCTL W19 . P FMEND . PIND20 FRMT . ( P FCTL W20 . : P FMEND . L PIND21 FRMT . Z P FCTL W21 . l P FMEND . ~ PIND22 FRMT . P FCTL W22 . P FMEND . PIND23 FRMT . P FCTL W23 . P FMEND . PIND24 FRMT . P FCTL
0x1d1a54…1d1be8 Dummy {f00=0x008e, f01=0x40a8, f02=» . P FCTL W27 / P FMEND / PIND28 FRMT / ( P FCTL W28 / : P FMEND / L PIND29 FRMT / Z P FCTL W29 / l P FMEND / ~ P END / END / @ / . P FMEND . PIND23 FRMT . P FCTL W23 . P FMEND . PIND24 FRMT . P FCTL
0x1d1be8…1d1d7c Dummy {f00=0x008e, f01=0x2008, f02=» 0 NT DE12ST DDUM DEDDIV PDIV . ENTRY DE12ST < DE12ST R PROC ` RET n PEND z END @ KITEM PSTR6A STRG 6 WORKITEM PSTRG10A STRG 10 WORKITEM PDIV END @ ARIABL
0x1d1d7c…1d1f10 Dummy {f00=0x008e, f01=0x0190, f02=»T M -W ,E A n A r > > >M A n_ A z > ;I C X "A _@ A f A j A n A r v "R # X& T X T :EV W X T Y :DV X Qx :EVp W " P Y WD X $ QB R _ P U _ : V #
0x1d1f10…1d20a4 Dummy {f00=0x008e, f01=0x0190, f02=» A! W A! @! A.W< A I.9 Z X R C C " 6 X R C C " "R A @! A. Z X V 9 6 X V 9_d @ x t B f U P R U "J ! ! W ! Q ! B Z P C !
0x1d20a4…1d2238 Dummy {f00=0x008e, f01=0x0190, f02=»_ ^ _ ! P: B L # +P Y ( ! U _ X T _ W ! Y ! X X ! X P R ?]* U C _. _: ! ! " $ P X ( X ]T ! Y h Y _p $ X R X X ' P ! X ( _X
0x1d2238…1d23cc Dummy {f00=0x008e, f01=0x0190, f02=»W0 B W B W B @ T 8 T Y Y Y Y "R Y * ! X *_B B 1 4 X X X X ' 4 B U B $" 4 C 4 p _^ x B U P R U ! ! W ! Y Y 8 X Q^ R ! T8
0x1d23cc…1d2560 Dummy {f00=0x008e, f01=0x0190, f02=» Y > ! 9EV0 X > y ! + X ! ! T Y > 2 B H ! 9FR D B Xp # v B Z H @^ H @Y B Y ! ~ ! Y 8;eT ! 9FR* Y >WP X >Pn Y > ! 9 R ! 9 R Y Y > W, ! X ! ! T @ X X > < 4 Y H
0x1d2560…1d26f4 (1, 355) Opaque[0x194]
0x1d26f4…1d2888 # DirEnt {nam=»DEDICO«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x11e0, f03=0x0000}
0x1d26f4…1d2888 IdxSect {
0x1d26f4…1d2888 f00 = 0x008f // 0x1d26f4 @0x0
0x1d26f4…1d2888 f01 = 0x0006 // 0x1d26f6 @0x2
0x1d26f4…1d2888 gno = [ // 0x1d26f8 @0x4
0x1d26f4…1d2888 [0x00]: C0x008f.0x0.0
0x1d26f4…1d2888 [0x01]: C0x008f.0x1.0
0x1d26f4…1d2888 [0x02]: C0x008f.0x2.0
0x1d26f4…1d2888 ]
0x1d26f4…1d2888 }
0x1d2888…1d2a1c Dummy {f00=0x008f, f01=0x0190, f02=» ( P IDENT DEDICOMM REL 1.0 79-01-16/AST P* 0 B P************************************************************* : P* P* SUBROUTINE DEDISC P* , P* CALLING SEQUENCE: PERF DEDISC,FC P* P* FC ACTION
0x1d2a1c…1d2bb0 Dummy {f00=0x008f, f01=0x0190, f02=»TEN X B P* AS LAST RECORD IN JOBDEFINITION-CHAIN. NO CHECKS , P* ARE DONE ON JOBDEFINITION.G R P* @ P* 02 GET JOBDEFINITION. THE JOBDEFINITION, INDICATED B P* BY ITS NAME IN 'DEINPUT' IS GIVEN TO THE CA
0x1d2bb0…1d2d44 Dummy {f00=0x008f, f01=0x0190, f02=» DUMMY-ENTRY P* @ P* 04 SEARCH JOBDEFINITION. A SEARCH IS DONE, WHETHER > P* THE INDICATED JOBDEFINITION EXISTS IN SYSTEM. d P* D P* 05 DELETE JOBDEFINITION. THE JOBDEFINITION, INDICATED D P* BY
0x1d2d44…1d2ed8 Dummy {f00=0x008f, f01=0x0190, f02=» JOBCHAIN ON USERFILE, A NEW ENTRY IA ADDED TO ITS B P* BATCHCHAIN. ELSE, A JOBCHAIN WITH THE CURRENT JOB B F P* AND A BATCHCHAIN WITH THE CURRENT BATCH ARE CREATED. B P* THE FIRST DATARECORD AND AN ACCUMULATORRE
0x1d2ed8…1d306c Dummy {f00=0x008f, f01=0x0190, f02=»RS IN CORE AND b D P* ITS INDEX WILL BE FOUND IN 'PINACC'. THE RECORDNUM- @ P* BER OF ACCUMULATORS IS SAVED IN POS 9-10 OF ITS ^ D P* RPOOL. 'CURSEC' IS LOADED WITH RECORDNUMBER OF THE " P* FIRST DATARECORD.
0x1d306c…1d3200 Dummy {f00=0x008f, f01=0x018e, f02=»RD AND ACCUMU- ` D P* LATORS ARE READ INTO MEMORY. A CHECK IS DONE, WHE- F P* THER THE SAME BATCH IS USED BY AN OTHER TASK. OUTPUT ^ P* AS FC 06. P* < P* 08 CLOSE BATCH. THE LAST DATARECORD OF THE CUR
0x1d3200…1d3394 (1, 356) Dummy {f00=0x008f, f01=0x0190, f02=» L P* A POINTER TO THE BUFFERPOOL IN 'PINDFR' IS WRITTEN TO DISC P* T > P* 10 GET FORMAT. THE FORMAT, INDICATED BY ITS NAME ^ : P* IN 'FORMAT' IS GIVEN TO THE CALLING TASK. J P* IF DATAITEM FRMTPNTR NOT ZERO
0x1d3394…1d3528 Dummy {f00=0x008f, f01=0x0190, f02=»FORMATCHAIN. AFTER EXECUTION, FRMTPNTR IS LOA- z J P* DED WITH A POINTER TO THE FIRST RECORD OF THE FORMAT. IF 8 J P* IF NO FORMAT-ADRESS IN FILE IS KNOWN, FRMTPNTR SHOULD BE 6 P* SET TO ZERO BEFORE DEDISC IS CALLED.
0x1d3528…1d36bc Dummy {f00=0x008f, f01=0x018e, f02=»ED FORMAT EXISTS IN SYSTEM. RETURNED & P* INFORMATION AS FC 10. , P* V < P* 13 DELETE FORMAT. THE FORMAT, INDICATED BY ITS ` @ P* NAME IN 'DEINPUT' IS REMOVED FROM FORMATCHAIN. P* * P* 14 WRITE CURRENT
0x1d36bc…1d3850 Dummy {f00=0x008f, f01=0x0190, f02=» , P* 17 DELETE CURRENT DATA-SECTOR P* 4 * P* 18 WRITE ACCUMULATOR-RECORD > P* l < P* 19 GET SYSTEM-VARIABLES. SYSTEM-VARIABLES ARE v " P* READ INTO MEMORY. P* > P* 20 ENTER SYSTEM-VARIABLE
0x1d3850…1d39e4 Dummy {f00=0x008f, f01=0x0190, f02=»ITION IN CHAIN X 2 P* IS OUTPUT TO DATA-ITEM 'JOBNAME'. P* L & P* 22 GET PREVIOUS JOBNAME. V P* $ P* 23 WRITE SECTOR (CORR) P* P P* 24 GET TABLE. INPUT:TABLE-NAME IN 'TABLE',ELEMENTNUMBER IN 'ELMNO
0x1d39e4…1d3b78 Dummy {f00=0x008f, f01=0x0190, f02=»WANTED ELEMENT OF THE WANTED TABLE d H P* WILL BE PASSED TO RPOOL AND BPOOL WITH INDEX 'PINDTB'. * P* v P* N P* 25 DELEWTE TABLE. THE TABLE, INDICATED BY ITS NAME IN 'TABLE' IS " P* DELETED ON DISC. P*
0x1d3b78…1d3d0c Dummy {f00=0x008f, f01=0x0190, f02=»CONTENTS OF BPOOL(PINDTB) 8 P* AND RPOOL(PINDTB) ARE WRITTEN TO DISC. " P* ^ F P* 27 DELETE BATCH. DATA-ITEM BATCH INDICATES THE BATCH TO h D P* BE DELETED. ALL RECORDS BELONGING TO THIS BATCH ARE . P* R
0x1d3d0c…1d3ea0 Dummy {f00=0x008f, f01=0x0190, f02=»INARY DATA-ITEM DEBINW1 IS LOADED WITH NUMBER OF ~ D P* FREE RECORDS IN SYSTEM-FILE AND DEBINW2 WITH NUMBER 8 > P* OF FREE RECORDS IN USERFILE OF RUNNING TASK. P* @ P* 29 GET NEXT JOBDEFINITION. THE NEXT JOBDEFINITION
0x1d3ea0…1d4034 (1, 357) Dummy {f00=0x008f, f01=0x0190, f02=»AIN V P* IS PASSED. P* , > P* 30 GET PREVIOUS JOBDEFINITION. THE PREVIOUS JOB- 6 > P* DEFINITION IN CHAIN IS PASSED TO THE CALLING x @ P* TASK. IF 'JOBNAME' IS EMPTY, THE FIRST JOBDEFI- , P*
0x1d4034…1d41c8 Dummy {f00=0x008f, f01=0x0190, f02=»ED TO THE CALLING TASK. IF 'FORMAT' IS | < P* EMPTY, THE FIRST FORMAT IN CHAIN IS PASSED. . P* n B P* 32 GET PREVIOUS FORMAT. THE PREVIOUS FORMAT IN CHAIN x B P* IS PASSED TO CALLING TASK. IF 'FORMAT' IS EMPTY, 6 P*
0x1d41c8…1d435c Dummy {f00=0x008f, f01=0x0190, f02=»BATCHNAME. THE NAME OF NEXT BATCH ON USERFILE IS z . P* OUTPUT TO DATA-ITEM 'BATCH'. 8 P* j ( P* 35 GET PREVIOUS BATCHNAME. t P* * P* RETURNCODE IN DEBINW4: 0 = OK L P* -1 = WARNING. 95
0x1d435c…1d44f0 Dummy {f00=0x008f, f01=0x0190, f02=»ACE b , P* 11 = USED . P* 12 = LOCKED < < P* 13 = NO WORKSPACE IN CORE n P* F P* CONDITION-REGISTER IS SET TO 2 (=ERROR), IF DEBINW4 NOT ZERO L P*
0x1d44f0…1d4684 Dummy {f00=0x008f, f01=0x4178, f02=». R P* D P* USED WORKAREAS ARE DEBIN1, DEBIN2, DEBIN3, DEBIN4, DEBIN5, J P* SWIT01, SWIT02, SWIT03, STRG10A, STR6A, STR6B B P* DKBIN1, DKBIN2, DKBIN3, SYSBUF, RBUF P* P* : P****
0x1d4684…1d4818 Dummy {f00=0x008f, f01=0x2008, f02=» W'199' = P PERF WRITUS,DEBIN1,SYSBUF > P MOVE USELEN,=W'399' > 8 P PERF COND > T P RET > f P PEND > r P* > * P* SUBR POOL, GET ONE BUFFER, LOCKED > P* > PPOOL PROC > P MOVE DEBIN1,W1 > P MOVE DEBIN2,W1 > * P PER
0x1d4818…1d49ac Dummy {f00=0x008f, f01=0x40a6, f02=» > F IDENT D:DB30 TRA 3.2 79-02-20 O111 REL 1.0 79-02-09 D:DB30 F D:DB30D X f l :D @ & = & [ & y y @ &
0x1d49ac…1d4b40 Dummy {f00=0x008f, f01=0x414c, f02=» > F IDENT Z:DB30 TRA 3.2 79-02-20 O111 REL 1.0 79-02-09 Z:DB30 F Z:DB30D X * & l * & * & = & [
0x1d4b40…1d4cd4 (1, 358) Opaque[0x194]
0x1d4cd4…1d4e68 # DirEnt {nam=»DKRUT4«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x11f8, f03=0x0000}
0x1d4cd4…1d4e68 IdxSect {
0x1d4cd4…1d4e68 f00 = 0x008f // 0x1d4cd4 @0x0
0x1d4cd4…1d4e68 f01 = 0x0008 // 0x1d4cd6 @0x2
0x1d4cd4…1d4e68 gno = [ // 0x1d4cd8 @0x4
0x1d4cd4…1d4e68 [0x00]: C0x008f.0x3.0
0x1d4cd4…1d4e68 [0x01]: C0x0090.0x0.0
0x1d4cd4…1d4e68 [0x02]: C0x0090.0x1.0
0x1d4cd4…1d4e68 [0x03]: C0x0090.0x2.0
0x1d4cd4…1d4e68 ]
0x1d4cd4…1d4e68 }
0x1d4e68…1d4ffc Dummy {f00=0x008f, f01=0x0190, f02=» $ P IDENT DKRUT4 REL 10.0 80-04-11 P 80-02-25/CHST , P DDUM DEDDIV D PDIV X P ENTRY ENTJOB f P ENTRY GETJOB | P ENTRY SCHJOB P ENTRY DELJOB P ENTRY NEXJOB P ENTRY PREJOB P ENTRY OPNEBC P ENTRY O
0x1d4ffc…1d5190 Dummy {f00=0x008f, f01=0x018e, f02=» RFRSP P EXT WRFSP P EXT DEPOOL P EXT RETURN 4 P ENTRY DELBTC H P ENTRY NXJOB ^ P ENTRY NXBTH r P EXT RDACC P EXT SCHPOO P EXT RELEAS P EXT COND P EXT EMPTYT P EXT RDDS P EXT WRDS
0x1d5190…1d5324 Dummy {f00=0x008f, f01=0x0190, f02=» P BERR RETURN PWUSOK P SET SWIT04 & P MOVE STR6A,JOBNAME : , P PERF SFMTCH,W3,RBUF,W10 SEARCH JOBCHAIN V P BNERR OPNN01 FOUND P CBE DEBINW4,W9,OPNN99 P B RETURN POPNN99 * P TBF SWIT05,OPNN02 NEW ENTRY JOBCHAIN
0x1d5324…1d54b8 Dummy {f00=0x008f, f01=0x0190, f02=» OPNN03 BATCH FOUND P CBE DEBINW4,W9,OPNN88 P B RETURN : POPNN88 L , P TBF SWIT05,OPNN04 NEW ENTRY BATCHCHAIN Z P B RETURN 'NOT IN SYSTEM' POPNN03 * P TBT SWIT05,OPNN06 OPEN EXISTING BATCH & P MOVE DEBINW4,W8 ALREADY DEFINED
0x1d54b8…1d564c Dummy {f00=0x008f, f01=0x0190, f02=»OPNN08 FIRST JOBCHAIN-ENTRY 2 P XCOPY DEBIN2,W0,W2,RBUF,W6 GET OCCUPIED SPACE $ ( P CBG DEBIN2,MAXOCC,OPNN07 NEW RECORD Z POPNN09 P PERF ENTR,JOBNAME $ P XCOPY RBUF,DEBIN2,W2,DEBIN4,W0 P ADD DEBIN2,W2 P XCOPY RBUF,W6,W2,DEBIN2,W0
0x1d564c…1d57e0 Dummy {f00=0x008f, f01=0x0190, f02=» MOVE RBUF,=X'424300' P XCOPY RBUF,W2,W2,DEBIN1,W0 P XCOPY RBUF,W4,W2,W0,W0 B POPNN12 b P PERF ENTR,BATCH p P PERF FREESP,DEBIN1,FILINDUS P BERR RETURN $ P XCOPY RBUF,DEBIN2,W2,DEBIN1,W0 P ADD DEBIN2,W2 P PERF FREE
0x1d57e0…1d5974 (1, 359) Dummy {f00=0x0090, f01=0x0190, f02=» t P PERF WRDS,DEBIN4 P BERR RETURN " P MOVE RBUF,HEX00 6 P XCOPY RBUF,W6,W2,W10,W0 N P B OPNN16 n " POPNN08 FIRST SECTOR JOBCHAIN P MOVE RBUF,=X'4A4300' P MOVE DEBIN1,W3 P XCOPY RBUF,W2,W2,W0,W0 POPNN10
0x1d5974…1d5b08 Dummy {f00=0x0090, f01=0x0190, f02=»,W0 x P PERF WRDS,DEBIN1 P BERR RETURN & P MOVE RBUF,=X'4A4300' : P XCOPY RBUF,W2,W2,DEBIN1,W0 X P MOVE DEBIN1,DEBIN4 | P PERF FREESP,DEBIN4,FILINDUS P B OPNN10 " POPNN04 NEW ENTRY BATCH-CHAIN . P XCOPY DEBIN2,W0,W2,
0x1d5b08…1d5c9c Dummy {f00=0x0090, f01=0x018e, f02=»ERF FREESP,DEBIN4,FILINDUS P BERR RETURN " P XCOPY RBUF,W4,W2,DEBIN4,W0 6 P PERF WRDS,DEBIN1 Z P BERR RETURN t P MOVE DEBIN2,W10 P B OPNN13 POPNN06 OPEN EXISTING BATCH $ P XCOPY DEBIN5,W0,W2,RBUF,DEBIN2 P XCOPY DEB
0x1d5c9c…1d5e30 Dummy {f00=0x0090, f01=0x0190, f02=» z P B OPNN16 POPNNDL P SUB DEBIN2,W10 ( P SUB DEBIN4,W12 @ P XCOPY RBUF,W6,W2,DEBIN4,W0 X P DLETE RBUF,DEBIN2,W12 | P PERF WRDS,DEBIN1 P BERR DL10 P CBG DEBIN4,W10,DL01 P PERF DLRCCH,RBUF PDL01 P
0x1d5e30…1d5fc4 Dummy {f00=0x0090, f01=0x0190, f02=»RSEC,RBUF P BNERR DL03 P CBE DEBINW4,=W'30',DL04 & P B DL10 F PDL04 V P MOVE RBUF,HEX00 b P MOVE DEBINW4,W0 z PDL03 P XCOPY DEBIN5,W0,W2,RBUF,W4 P PERF RFRSP,CURSEC,FILINDUS P MOVE CURSEC,DEBIN5 P CBNE
0x1d5fc4…1d6158 Dummy {f00=0x0090, f01=0x0190, f02=»4,WORK(W9) RESTORE ERRORCODE P B RETURN $ POPNN16 6 $ P XCOPY STATSH,W0,W1,FILINDUS,W0 D " P COPY STATSH,W1,W6,JOBNAME,W0 l P COPY STATSH,W7,W6,BATCH,W0 ( P PERF DEPOOL,W9,DKBIN2,DKBIN3,STATSH & P BNERR EXIST IF IKAY, ALREADY OPEN
0x1d6158…1d62ec Dummy {f00=0x0090, f01=0x0190, f02=»KBIN1,DKBIN2,STATSH ~ P MOVE PINACC,DKBIN1 P MOVE BPOOL(DKBIN1),HEX00 8 ( P XCOPY RPOOL(PINACC),W9,W2,DEBIN1,W0 Z P TBT SWIT05,EXIBAT P B RETURN PEXIBAT P PERF RDACC P PERF RDDS,CURSEC P CBNE DEBINW4,=W'30',ZWIHO
0x1d62ec…1d6480 Dummy {f00=0x0090, f01=0x0190, f02=»* P* P* P* PENTJOB ENTER JOBDEF ( P PERF WAIT F P BERR RETURN X P PERF READJB l P BNERR FOUNDJ P CBE DEBINW4,=W'30',FIRST P CBE DEBINW4,W9,NOTIN P B RETURN PFIRST * P MOVE DEBIN1,DEBIN
0x1d6480…1d6614 (1, 360) Dummy {f00=0x0090, f01=0x0190, f02=» BERR RETURN PFST1 ( P MOVE SYSBUF,=X'4A440000000000C600' " P XCOPY SYSBUF,W2,W2,DEBIN3,W0 L , P COPY SYSBUF,W10,W188,BPOOL(PJOBCUR),W0 r P PERF DISU,W2,DEBIN1,SYSBUF P BERR RETURN ( P CBE DEBIN3,W0,ENTRET LAST IN CHAIN $ P P
0x1d6614…1d67a8 Dummy {f00=0x0090, f01=0x0190, f02=»ET P B RETURN PFOUNDJ , P COPY SYSBUF,W10,W188,BPOOL(PJOBCUR),W0 * P PERF DISU,W2,DEBIN3,SYSBUF Z P B RETURN ~ P* P* P* PGETJOB GET JOBDEF P MOVE STR6A,DEINPUT PGTJ020 * P PERF SCHPOO,=C'J ',
0x1d67a8…1d693c Dummy {f00=0x0090, f01=0x0190, f02=»,W3 PRDCHJ P PERF WAIT P BERR RETURN , PRDCNW @ P PERF DISU,W1,DEBIN1,SYSBUF N P BNERR DATA r P CBE DEBINW4,=W'30',NOTEX P B RETURN PNOTEX $ P MOVE DEBINW4,W9 'NOT EXISTENT' P B RETURN PDATA
0x1d693c…1d6ad0 Dummy {f00=0x0090, f01=0x0190, f02=»DCHJF ~ P TBF SWIT03,GTJ010 P MOVE STR6A,STR6B ( P PERF RELEAS B P B GTJ020 V PGTJ010 h " P XCOPY DEBIN1,W0,W2,SYSBUF,W4 v P CBE DEBIN1,W0,NOTEX P B RDCNW PRDCHJF P TEST SWIT02 " P BNZ RETURN RETURN, IF SEARCH
0x1d6ad0…1d6c64 Dummy {f00=0x0090, f01=0x0190, f02=»N4,W1 * P PERF DEPOOL,W1,DEBIN3,DEBIN4,STRG10A P BNERR GTJOK < & P MOVE DEBINW4,W13 'NO BUFFER FREE' P P B RETURN z PGTJOK * P COPY BPOOL(DEBIN3),W0,W188,SYSBUF,W10 ( P COPY RPOOL(DEBIN3),W9,W10,SYSBUF,W0 P MOVE DKBIN1,W4
0x1d6c64…1d6df8 Dummy {f00=0x0090, f01=0x0190, f02=»0 * P PERF DEPOOL,W6,PJOBCUR,DEBIN3,STRG10A . P PERF DEPOOL,DKBIN1,DEBIN3,DEBIN2,STRG10A 8 P MOVE PJOBCUR,DEBIN3 j P B RETURN PLOCKED P MOVE JOBNAME,STR6A P MOVE DEBINW4,=W'26' P B RETURN PGOTFRE P TEST, I
0x1d6df8…1d6f8c Dummy {f00=0x0090, f01=0x018e, f02=» SWIT02 P B GETJOB P* " P* , PDELJOB DELETE JOBDEF 6 P PERF WAIT T P PERF READJB f P BERR RETURN z P CLEAR SWIT04 P PERF DLRCCH,SYSBUF P TBF BOOL9,RETUR P TBF BOOL8,RETUR P MOVE SYSBUF,HEX00
0x1d6f8c…1d7120 Dummy {f00=0x0090, f01=0x018e, f02=» ~ P B PRE01 P* P* " PPREJOB GET PREV JOBDEF , P MOVE DEBIN2,W2 L PPRE01 d & P MOVE STR6A,JOBNAME DALI 79-04-24 r P MOVE DEBIN1,W3 P CALL EMPTYT,JOBNAME P BNZ BUFREL P PERF READJB P BERR RETURN
0x1d7120…1d72b4 (1, 361) Dummy {f00=0x0090, f01=0x0190, f02=» P B RDCHJ P* P* P* ( P* 2 P* < PNXJOB GET NEXT JOBNAME F P SET SWIT01 f PNXBTH GET NEXT BATCHNAME z P SET SWIT04 P CALL EMPTYT,JOBNAME P BNZ FIRJOB P MOVE STR6A,JOBNAME P PERF SFMTCH
0x1d72b4…1d7448 Dummy {f00=0x0090, f01=0x0190, f02=»RECORD ~ P XCOPY DKBIN3,W0,W2,RBUF,W4 P CBE DKBIN3,W0,NOT 2 P PERF RDDS,DKBIN3 L P BERR RETURN f PFIJONA z P XCOPY DEBIN1,W0,W2,RBUF,W6 P CBNG DEBIN1,W10,NOT P MOVE DEBIN2,W12 PGTNAM P TBF SWIT01,GTNAM1 $ P
0x1d7448…1d75dc Dummy {f00=0x0090, f01=0x0190, f02=» P PERF SFMTCH,DEBIN3,RBUF,W12 P BERR NOT ( P ADD DEBIN2,W6 : P CBG DEBIN2,DKBIN1,RENER P PGTNAM1 p " P COPY BATCH,W0,W6,RBUF,DEBIN2 ~ P B RETURN PFIRJOB P PERF RDDS,W3 P BOK FIJONA P CBE DEBINW4,=W'30',NOT
0x1d75dc…1d7770 Dummy {f00=0x0090, f01=0x0190, f02=»,NOT P MOVE DEBIN2,W12 P B GTNAM1 $ PNOT 6 . P MOVE DEBINW4,W9 INDICATE 'NOT IN SYSTEM' B P B RETURN t P* P* P PEND P EJECT P* P* PREADJB PROC P MOVE DEBIN4,W3 PREDJCH P MOV
0x1d7770…1d7904 Dummy {f00=0x0090, f01=0x0190, f02=» DEBIN4,W10,REDJ10 JUMP IF EMPTY 4 P MOVE DEBINW4,=W'30' IDICATE FIRST RECORD EMPTY ( P B RETRED ` PREDJ10 r P MOVE DEBIN5,=W'92' $ P COPY STR6A,W0,W6,SYSBUF,DEBIN5 P CBE STR6A,JOBNAME,RETRED PREDJ20 " P XCOPY DEBIN4,W0,W2,
0x1d7904…1d7a98 Dummy {f00=0x0090, f01=0x40d4, f02=» P P* PENTR PROC ITEM P XCOPY RBUF,DEBIN2,W2,W0,W0 , P ADD DEBIN2,W2 P P COPY RBUF,DEBIN2,W6,ITEM,W0 f P ADD DEBIN2,W6 P RET P PEND P* END @ ME,RETRED PREDJ20 " P XCOPY DEBIN4,W0,W2,
0x1d7a98…1d7c2c Dummy {f00=0x0090, f01=0x2008, f02=»
0x1d7c2c…1d7dc0 Dummy {f00=0x0090, f01=0x0190, f02=» V W< _ 2 # ;B CP V T 8W V P L , V 2P " 2 P V D ! R T V P V 1 W V P _ 8^t DA2 2 ! 9BP V T W V P D $ V 6 V % V E @ L' T 2 % 7_ 2 # PH L PB 80 2" &
0x1d7dc0…1d7f54 (1, 362) Opaque[0x194]
0x1d7f54…1d80e8 # DirEnt {nam=»DE16ST«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x1218, f03=0x0000}
0x1d7f54…1d80e8 IdxSect {
0x1d7f54…1d80e8 f00 = 0x0090 // 0x1d7f54 @0x0
0x1d7f54…1d80e8 f01 = 0x0004 // 0x1d7f56 @0x2
0x1d7f54…1d80e8 gno = [ // 0x1d7f58 @0x4
0x1d7f54…1d80e8 [0x00]: C0x0090.0x3.0
0x1d7f54…1d80e8 [0x01]: C0x0091.0x0.0
0x1d7f54…1d80e8 ]
0x1d7f54…1d80e8 }
0x1d80e8…1d827c Dummy {f00=0x0090, f01=0x0190, f02=» P IDENT DE16ST P************************* P* 16 ERROR-MESSAGES < P************************* X DDUM DEDDIV z PDIV P ENTRY DE16ST P EXT DECLRN P EXT DERR P EXT DEDISC EJECT PDE16ST PROC
0x1d827c…1d8410 Dummy {f00=0x0090, f01=0x0190, f02=»ERF DERR P B A1 PSETPR SET DEPROMPT P PERF DECLRN 8 " PA1 IB DEBINW2,CANC,RETUR,ENTER L P MOVE DEBINW4,W0 ERROR r P B CANC10 PENTER P MOVE BIN1,=W'22' P PERF DEDISC,BIN1 P BNOK CANC10 PRETUR RET
0x1d8410…1d85a4 Dummy {f00=0x0090, f01=0x0190, f02=» FNL FCOPY STR1A FCOPY =C'01' $ FKI 7,MINL=0,MAXL=20,ALPHA : P FCOPY ERR(W1) ^ P FNL t P FCOPY STR1A FCOPY =C'02' FKI 7,MINL=0,MAXL=20,ALPHA P FCOPY ERR(W2) FNL FCOPY STR1A FCO
0x1d85a4…1d8738 Dummy {f00=0x0090, f01=0x018e, f02=» FKI 7,MINL=0,MAXL=20,ALPHA P FCOPY ERR(W4) $ FNL : FCOPY STR1A F FCOPY =C'05' Z FKI 7,MINL=0,MAXL=20,ALPHA p P FCOPY ERR(W5) FNL P FCOPY STR1A FCOPY =C'06' FKI 7,MINL=0,MAXL=20,ALPHA P FCO
0x1d8738…1d88cc Dummy {f00=0x0090, f01=0x0190, f02=» FCOPY STR1A FCOPY =C'08' FKI 7,MINL=0,MAXL=20,ALPHA 2 P FCOPY ERR(W8) V FNL l FCOPY STR1A x FCOPY =C'09' & P FKI 7,MINL=0,MAXL=20,ALPHA,VERIF P FCOPY ERR(W9) FNL FCOPY STR1A FCOPY
0x1d88cc…1d8a60 Dummy {f00=0x0090, f01=0x0190, f02=»,MINL=0,MAXL=20,ALPHA P FCOPY ERR(W11) FNL 6 FCOPY STR1A B FCOPY =C'12' V FKI 7,MINL=0,MAXL=20,ALPHA l P FCOPY ERR(W12) FNL FCOPY STR1A FCOPY =C'13' FKI 7,MINL=0,MAXL=20,ALPHA P FCOPY
0x1d8a60…1d8bf4 (1, 363) Dummy {f00=0x0091, f01=0x413a, f02=» FCOPY STR1A FCOPY =C'15' FKI 7,MINL=0,MAXL=20,ALPHA 2 P FCOPY ERR(W15) V FNL n FCOPY STR1A z FCOPY =C'16' FKI 7,MINL=0,MAXL=20,ALPHA P FCOPY ERR(W16) P FNL P FKI 1,MINL=0,MAXL=0 P
0x1d8bf4…1d8d88 Dummy {f00=0x0091, f01=0x2008, f02=» END @ FCOPY =C'15' FKI 7,MINL=0,MAXL=20,ALPHA . FCOPY WTAB(15) R FNL j FCOPY STR1A v FCOPY =C'16' FKI 7,MINL=0,MAXL=20,ALPHA FCOPY WTAB(16) FMEND F131 FRMTR1A FSLPY =C'
0x1d8d88…1d8f1c Dummy {f00=0x0091, f01=0x0190, f02=»ED * ~ P* DEAP14 - NOT USED * P*********************** . PDEAP13 N P B DEAER6 PDEAP14 n P B DEAER6 | PDEAP15 P B DEAER6 PDEAER6 P MOVE DEBINW4,W6 P B DEANOK P PEND EJECT *
0x1d8f1c…1d90b0 Dummy {f00=0x0091, f01=0x0190, f02=» FCOPY =C'PROGRAM:' ( P FKI 9,MINL=2,MAXL=2,ME,NEOI,APPL=1 P FMEL 'XX',PRNUM H P FBF BOOL1,F10OUT ` P FTAB 20 z P FCOPY =C'11 DATE AND TIME' FNL P FCOPY =C'12 VALUE-SETS' P FTAB 20 " P FCOPY =C'13 SYSTEM-VARIABELS'
0x1d90b0…1d9244 Dummy {f00=0x0091, f01=0x400c, f02=» @ OGRAM:' ( P FKI 9,MINL=2,MAXL=2,ME,NEOI,APPL=1 P FMEL 'XX',PRNUM H P FBF BOOL1,F10OUT ` P FTAB 20 z P FCOPY =C'11 DATE AND TIME' FNL P FCOPY =C'12 VALUE-SETS' P FTAB 20 " P FCOPY =C'13 SYSTEM-VARIABELS'
0x1d9244…1d93d8 Dummy {f00=0x0091, f01=0x2008, f02=» FTEXT '50 SEARCH/CORRECTION' FNL . FTEXT '60 VERIFICATION' : FNL Z FTEXT '70 CONVERTION' f FNL FTEXT '80 FILE HANDLING' F00OUT FMEND END @ '10 SUPERVISORY FUNCTIONS' FNL
0x1d93d8…1d956c Dummy {f00=0x0091, f01=0x018e, f02=» P B PJOBST PUNUSED P TBT SWIT01,GETUNL $ P TBF SWIT02,GETUNL > P MOVE RPOOL(DEBIN3),HEX00 X P B SOND z P* P* PSCHJOB SEARCH JOBDEF P SET SWIT02 P B GETJOB P* P* PDELJOB DELETE JO
0x1d956c…1d9700 Dummy {f00=0x0091, f01=0x0190, f02=» P* P* PNEXJOB GET NEXT JOBDEF P MOVE DEBIN2,W13 8 P B PRE01 P P* ` P* j PPREJOB GET PREV JOBDEF t P MOVE DEBIN2,W11 PPRE01 P MOVE DEBIN1,W3 P CALL EMPTYT,JOBNAME P BNZ BUFREL . P XCOPY
0x1d9700…1d9894 (1, 364) Opaque[0x194]
0x1d9894…1d9a28 # DirEnt {nam=»DELOCK«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x1228, f03=0x0000}
0x1d9894…1d9a28 IdxSect {
0x1d9894…1d9a28 f00 = 0x0091 // 0x1d9894 @0x0
0x1d9894…1d9a28 f01 = 0x0004 // 0x1d9896 @0x2
0x1d9894…1d9a28 gno = [ // 0x1d9898 @0x4
0x1d9894…1d9a28 [0x00]: C0x0091.0x1.0
0x1d9894…1d9a28 [0x01]: C0x0091.0x2.0
0x1d9894…1d9a28 ]
0x1d9894…1d9a28 }
0x1d9a28…1d9bbc Dummy {f00=0x0091, f01=0x0190, f02=» $ P IDENT DELOCK REL 10.0 80-04-11 P 79-02-28/ANLI , * D L M************************************************************************ N * : 6* SUBMODULE TO THE DATA-ENTRY PACKAGE FOR PTS6800 * : 6* ROUTINE FOR SETTI
0x1d9bbc…1d9d50 Dummy {f00=0x0091, f01=0x0190, f02=» MASK. l * 4 0* THE MODULE IS ENTERED WITH THE STATEMENT: * P , '* * PERF DELOCK,OPTION,KEYIND * Z * * WHERE: 6 2* - KEYIND = ITEM HOLDING THE END-KEY-INDEX 8 4* - OPTION = BIN-ITEM TELLING
0x1d9d50…1d9ee4 Dummy {f00=0x0091, f01=0x018e, f02=»T ONLY | * 0 ,* IF THE AUTHORITY-TEST IS UNSUCCESSFUL . )* CONDITION IS SET TO ERROR (=2) AND L , P* ERROR-CODE (DEBINW4) IS SET TO 4. ~ * 6 P* IF THE SET-OPTION IS PERFORMED, RETURN-CODE P* IS GIVEN IN DEB
0x1d9ee4…1da078 Dummy {f00=0x0091, f01=0x018e, f02=» P* L M************************************************************************ * ^ DDUM DEDDIV h PDIV | * * ***** ENTRY ***** * ENTRY DELOCK * * ***** EXTERNALS *****
0x1da078…1da20c Dummy {f00=0x0091, f01=0x0190, f02=» L M************************************************************************ * T & "* ENTRY-POINT / PROGRAM-START ^ * L M************************************************************************ * DELOCK PROC OPTION,KEYIND
0x1da20c…1da3a0 Dummy {f00=0x0091, f01=0x0190, f02=»E DEBIN3,W1 SET RETURN-CODE $ P CBE KEYIND,W0,A000 POWER-OFF ? $ $ P MOVE DEBIN3,W0 SET RETURN-CODE L A000 t 2 - CALL UPDBIN,DEBIN1 MOVE POSITION-IND. TO BIN CBG OPTION,W1,A200 NO SET ? * P CBL KEYIND,W0,A100 KEY-LOCK TURNED ? " P
0x1da3a0…1da534 (1, 365) Dummy {f00=0x0091, f01=0x0190, f02=»00 0 + MOVE DEBIN2,KEYIND MOVE KEYIND TO WORKITEM ( # ADD DEBIN2,W16 CALCULATE BIT-INDEX > ( $ CBL DEBIN2,W12,A120 KEY TURNED ON ? j A110 0 + CALL CLEARB,DEBIN1,DEBIN2 INDICATE KEY OFF B A190 A120 $ ADD DEBIN2,W4 ADJUST
0x1da534…1da6c8 Dummy {f00=0x0091, f01=0x0190, f02=»L UPDBOL,DEBIN1 UPDATE POSITION-IND. P EJECT , * : * D ***** TEST AUTHORITY ***** N * r A200 | $ P MOVE DEBIN3,W3 SET RETURN-CODE " CBL OPTION,W1,A900 NO TEST ? * PA210 CALL MSKOUT,DEBIN1,KEYMSK
0x1da6c8…1da85c Dummy {f00=0x0091, f01=0x0190, f02=» MOVE DEBIN3,W2 SET RETURN-CODE & P MOVE DEBIN4,W4 SET ERROR-CODE = 4 ( P EJECT R * ` * j * &***** RETURN TO CALLING MODULE ***** t * A900 * P CBG OPTION,W1,A910 NO SET PERFORMED ? 0 P MOVE DEBINW3,DEBIN3 RESTORE RETUR
0x1da85c…1da9f0 Dummy {f00=0x0091, f01=0x409c, f02=» t P B A990 PA920 P CMP W0,W1 SET CONDITION = 2 $ P* H PA990 R RET ^ * j PEND t * END @ t * A900 * P CBG OPTION,W1,A910 NO SET PERFORMED ? 0 P MOVE DEBINW3,DEBIN3 RESTORE RETUR
0x1da9f0…1dab84 Dummy {f00=0x0091, f01=0x2008, f02=» CALL MSKOUT,DEBIN1,KEYMSK , ' CBE DEBIN1,KEYMSK,A900 WANTED KEY ON ? 0 * ` * j $ ***** TEST UNSUCCESSFUL ***** t * A800 ( # MOVE DEBINW4,W2 SET ERROR-CODE = 2 " CMP W0,W1 SET CONDITION = 2 *
0x1dab84…1dad18 Dummy {f00=0x0091, f01=0x0190, f02=» J F " D @ 2 RRRRRRRRRRR A ! [ ! L& !0R !T J _ R:R J F " D @I !_) _7j ! ! h 9 !X8H !( @ h 9[ !j ! ! !P R J F " D !0R ! N_m R ?R j !! '( !1j !& !j !!
0x1dad18…1daeac Dummy {f00=0x0091, f01=0x0190, f02=» & 1 J F " D j !! (I !Y A ! ! ?R ! 0R !h & !&P E l J | J F " D @ !0R !<R_ ( ) +h & '&Z h ! !R !W h ! !Z< " ! J F " D ) L U
0x1daeac…1db040 Dummy {f00=0x0091, f01=0x0190, f02=» J % F ) T * 2 XT < J F " D [WWj !! ' !QD j !! 0R (T I 1! L ) L W Lb ! W h N J F " D @ 0[ !A j ! !d ! j '! !j !! (( + b +$ y W7 j !! J F " D '( ! j
0x1db040…1db1d4 (1, 366) Opaque[0x194]
0x1db1d4…1db368 # DirEnt {nam=»DATCHK«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x1238, f03=0x0000}
0x1db1d4…1db368 IdxSect {
0x1db1d4…1db368 f00 = 0x0091 // 0x1db1d4 @0x0
0x1db1d4…1db368 f01 = 0x0004 // 0x1db1d6 @0x2
0x1db1d4…1db368 gno = [ // 0x1db1d8 @0x4
0x1db1d4…1db368 [0x00]: C0x0091.0x3.0
0x1db1d4…1db368 [0x01]: C0x0092.0x0.0
0x1db1d4…1db368 ]
0x1db1d4…1db368 }
0x1db368…1db4fc Dummy {f00=0x0091, f01=0x0190, f02=» $ P IDENT DATCHK REL 10.0 80-04-11 P 80-03-27/PEEN , P UPD 79-03-16/PEEN D * ` * j 2 -* THIS ROUTINE CHECKS THE DATE PLAUSIBILITY t 2 .* EUROPEAN (AA-MM-DD) OR AMERICAN (MM-DD-AA) P* OR GERMAN (DD-MM-AA) < 8* ST
0x1db4fc…1db690 Dummy {f00=0x0091, f01=0x0190, f02=»KIPPED p * ( P* SYNTAX: CALL MMDDCK,SKIP,BUFF * P* CALL DDMMCK,SKIP,BUFF D * r @ <* SKIP = BIN ITEM TELLING HOW MANY DIGITS COUNTED | @ ;* FROM THE RIGHT TO BE SKIPPED BEFORE THE * &*
0x1db690…1db824 Dummy {f00=0x0091, f01=0x018e, f02=»UTPUT: CR = O OK , '* CR = 1 NOT OK * N EJECT X ENTRY DATCHK f P ENTRY DDMMCK | P ENTRY MMDDCK * EXTRN I:EVA0 EXTRN I:RT1 * * CALL FORM 16=/F6A1,16
0x1db824…1db9b8 Dummy {f00=0x0091, f01=0x0190, f02=» P CALL I:EVA0 & P LDR* A10,A9 GET NO. TO BE SKIPPED $ P CALL I:EVA0 GET BUFFER ADDRESS F P LDR A11,A5 SAVE END POINTER n $ P LDR A7,A10 GET NO.TO BE SKIPPED ( P ADR A7,A6 ADJUST FOR PLACE OF 'DD' " P CALL GETTWO GET DAY IN BINARY
0x1db9b8…1dbb4c Dummy {f00=0x0091, f01=0x0190, f02=»UR A7,A6 ADJUST FOR PLACE OF 'MM' $ P LDR A5,A11 RESTORE END ADDRESS * " P CALL GETTWO GET MONTH BINARY R P LDR A7,A7 x P RF(Z) NOK IF MONTH = 0 P LDK A6,0 INDICATE OK SUK A7,13 RF(NN) NOK IF WRONG MONTH * % LC A1,TAB,A
0x1dbb4c…1dbce0 Dummy {f00=0x0091, f01=0x018e, f02=»U * LD A1,2,A13 GET STACK BASE SC A6,-2,A1 STORE CR 0 ABL I:RT1 N P* ` P* j PDDMMCK EQU * t P LDK A6,2 INDICATE DDMMCK P RB CHECK P EJECT PGETTWO EQU * CALL GETDIG SUK A7,1 $ P RB(
0x1dbce0…1dbe74 (1, 367) Dummy {f00=0x0092, f01=0x0190, f02=» ADR A7,A1 SLL A1,3 TIMES 8 ADR A7,A1 4 P RTN A14 F EJECT V GETDIG EQU * d CWR A5,A9 x " P RF(NE) GETD10 IF NOT FINISHED P ADKL A14,8 ADJUST STACK P RB NOK PGETD10 EQU * SUK A5,1 $ P L
0x1dbe74…1dc008 Dummy {f00=0x0092, f01=0x40fe, f02=» RTN A14 * * TAB EQU *+12 ( BYTE 31,29 JAN,FEB < BYTE 31,30 MAR,APR X BYTE 31,30 MAY,JUN t BYTE 31,31 JUL,AUG BYTE 30,31 SEP,OCT BYTE 30,31 NOV,DEC * END @ $ P L
0x1dc008…1dc19c Dummy {f00=0x0092, f01=0x2008, f02=»
0x1dc19c…1dc330 Dummy {f00=0x0092, f01=0x0190, f02=» & 5 & S & q 0 & @ & P & ` & p & & % & C & a & & & & &
0x1dc330…1dc4c4 Dummy {f00=0x0092, f01=0x0190, f02=» & # & A & _ 0 & } @ & P & ` & p & & & 1 & O & m & & & &
0x1dc4c4…1dc658 Dummy {f00=0x0092, f01=0x0190, f02=» & & / & M 0 & k @ & P & ` & p & & & & = & [ & y & & &
0x1dc658…1dc7ec Dummy {f00=0x0092, f01=0x0190, f02=» & & & ; 0 & Y @ & w P & ` & p & & & & + & I & g & & &
0x1dc7ec…1dc980 Dummy {f00=0x0092, f01=0x401a, f02=» u @ & & ; 0 & Y @ & w P & ` & p & & & & + & I & g & & &
0x1dc980…1dcb14 (1, 368) Opaque[0x194]
0x1dcb14…1dcca8 # DirEnt {nam=»DENT01«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0bf8, f03=0x0000}
0x1dcb14…1dcca8 IdxSect {
0x1dcb14…1dcca8 f00 = 0x005f // 0x1dcb14 @0x0
0x1dcb14…1dcca8 f01 = 0x000e // 0x1dcb16 @0x2
0x1dcb14…1dcca8 gno = [ // 0x1dcb18 @0x4
0x1dcb14…1dcca8 [0x00]: C0x005f.0x3.0
0x1dcb14…1dcca8 [0x01]: C0x0060.0x0.0
0x1dcb14…1dcca8 [0x02]: C0x0060.0x1.0
0x1dcb14…1dcca8 [0x03]: C0x0060.0x2.0
0x1dcb14…1dcca8 [0x04]: C0x0060.0x3.0
0x1dcb14…1dcca8 [0x05]: C0x0061.0x0.0
0x1dcb14…1dcca8 [0x06]: C0x0061.0x1.0
0x1dcb14…1dcca8 ]
0x1dcb14…1dcca8 }
0x1dcca8…1dce3c Dummy {f00=0x005f, f01=0x0190, f02=» , P IDENT DENT01 10.0 80-04-11,81-08-27/EV * P* FIRST STATEMENT AFTER TOTB42 IS 4 P* A UNIQUE SHB STATEMENT b P DDUM DEDDIV P PDIV P ENTRY DENT01 P EXT DERECS P EXT DEACC P EXT DECLRN P EXT DECLRD
0x1dce3c…1dcfd0 Dummy {f00=0x005f, f01=0x018e, f02=» P EXT UPDBOL P EXT DERR & P EXT TESTB TEST FOR A BIT IN A BIN . P EXT SETB SET A BIT IN A BIN X & P EXT GETDUP LOOK FOR DUPLICATION- | P STRING FOR CURRENT FIELD & P EXT DEDISC DISC HANDLING ROUTINE & P EXT DEPOOL POOL HAN
0x1dcfd0…1dd164 Dummy {f00=0x005f, f01=0x0190, f02=» PDENT01 PROC . P***************************************** P* J P* HANDLE ENTERED DATA T P* r . P***************************************** | PDATAIN & P TBT DOOL8,DAT04 JUMP IF OPEN NEW P* $ P TBF VERIFM,DAT0X VERIFY
0x1dd164…1dd2f8 Dummy {f00=0x005f, f01=0x0190, f02=»RC CLEAR VERIFY P B DAT0X P* ( P* 2 PDAT0 THOME < , PDAT01 CLEAR DECHANGE CHANGED INPUTFIELD N $ P TBT VERIFM,DAT05 VERIFY MODE ? ~ & P TBF DEPROMPT,DAT07 ENTIRE DISPLAY PDAT04 , P CLEAR BOOL3 F=NO/UNVALID IMMID.FORM CH
0x1dd2f8…1dd48c Dummy {f00=0x005f, f01=0x0190, f02=»IFM,DAT05 VERIFY MODE ? PDAT07 . P PERF DECLRS CLEAR SOME INPUTFIELDS(NCLR) . P B DAT03 ` PDAT05 p ( P TBT KEYVER,DAT06 KEY VERIFICATION ? ~ PDAT0X & P SET DENOCHAN NO CHANGES PERMITTED PDAT06 ( P PERF DECLRD DISPLAY VAR
0x1dd48c…1dd620 Dummy {f00=0x005f, f01=0x0190, f02=» P* & P* HANDLE ERROR AND/OR ILLEGAL KEYS P* 8 PDATERR MOVE DEBINW4,W0 B PDATER2 ` $ P TBF VERIFM,DATER3 VERIFY MODE ? n * P TBT KEYVER,DATER3 KEY VERIFICATION ? & P SET DENOCHAN NO CHANGES PERMITTED P* PDATER3 * P C
0x1dd620…1dd7b4 (1, 369) Dummy {f00=0x0060, f01=0x0190, f02=»EKTABN " P TBF DOOLA,DATER7 NOT BALANCE & P IB DEBINW2,TOTBAL,CANCBL,SERIOUS 4 P B DATER4 ^ PDATER7 p ( P IB DEBINW2,DATER5,DATER5 CLR,CAN C ~ ( P RETUDA,RFWDDA,DATER6,TOTDA,PROGDA PDATER5 2 P COPY DEINPUT,W0,W6,STR6A,W0 RESTOR
0x1dd7b4…1dd948 Dummy {f00=0x0060, f01=0x018e, f02=»URRENT REC.NR z . P CBG DEBINW3,BDPOIN(W2),DAT0 ENTRY NEW REC P TBT DOOL2,DAT0 INSERT H P B DAT0X f PDATER6 v ( P CBE NUMBER,=D'0',DATER8 BATCHEAD=0 P B RBWDDA PDATER8 P MOVE DEBINW4,W15 P B DATER4 P EJECT
0x1dd948…1ddadc Dummy {f00=0x0060, f01=0x0190, f02=» f * P TBF DOOL8,CANC03 OPEN NEW/BATCHHEAD? P THOME 6 P B DAT04 D P* T PCANC03 ^ ( P TBF DOOL2,CANC10 JUMP IF NOT INSERT l * P MOVE DEBINW2,W5 SIMULATE RBWD PRESSED P B RBWD10 PCANC10 , P TBT DECHANGE,CANC20 CHANGED INPUT
0x1ddadc…1ddc70 Dummy {f00=0x0060, f01=0x0190, f02=»BINW3,NUMBER " P CBG DEBINW3,BDPOIN(W2),CANC15 * P TBF DBOMVR,CANC15 RECORD TO VERIFY ? : ( P TBT DBOVER,CANC15 VERIFIED RECORD ? h P PERF DEVERS SET VERIFY MODE PCANC13 & P CLEAR DENOCHAN CHANGES PERMITTED & P ERASE 1,W1,W0 ERASE ALL
0x1ddc70…1dde04 Dummy {f00=0x0060, f01=0x018e, f02=» & P PERF DERECS,W5 GET CURRENT RECORD P BERR DATER2 . ( P CLEAR DECHANGE CHANGED INPUTFILED ? B " P CLEAR DEPROMPT ENTIRE DISPLAY n P BNZ DAT04 , P ERASE 5,W1,W0 ERASE SOME FROM 1 AND UP P B DAT06 P EJECT P*****************
0x1dde04…1ddf98 Dummy {f00=0x0060, f01=0x0190, f02=» P BNZ RETU05 $ P TBT VERIFM,RETU05 VERIFY MODE ? & P PERF DERECS,W3 ENTER LAST RECORD @ P BNERR SERIOUS j PRETU03 P PERF DERROR,DEKTAB6 PRETU05 P B SERIOUS P**************** P* ENTER PRESSED. P**************
0x1ddf98…1de12c Dummy {f00=0x0060, f01=0x0190, f02=» PERF DERECS,W2 ENTER OLD RECORD P BNOK DATER2 ( P B RFWD10 < P EJECT N PDAEN00 4 P TBF DECHANGE,DAEN10 NO ACCUMULATE WHEN NO INPUT j ( P PERF DEACC,W0 INCREASE ACCUMULATORS & PDAEN10 CLEAR DOOL2 RECORD INSERT ? P BZ DAEN50
0x1de12c…1de2c0 Dummy {f00=0x0060, f01=0x0190, f02=» P B DAEN59 PDAEN15 & P SET DENOCHAN NO CHANGES PERMITTED $ * P PERF DERECS,W12 ENTER INSERTED RECORD N P BOK DAEN30 | PDAEN20 ( P PERF DEACC,W1 DECREASE ACCUMULATORS P B DATER2 PDAEN30 P MOVE BCD13A,NUMBER PIN
0x1de2c0…1de454 (1, 370) Dummy {f00=0x0060, f01=0x0190, f02=» n P B DAT03 P EJECT P* HANDLE NORMAL INPUT & P* D PDAEN50 N * P TBF DOOL8,DAEN60 OPEN NEW/BATCHHEAD ? 2 P CALL CLEARB,BIN1,W0 CLEAR DOOL8 IN REC.STATUS PDAEN60 P TBF DECHANGE,DAEN61 P PERF DERECS,W1 ENTER NEW
0x1de454…1de5e8 Dummy {f00=0x0060, f01=0x018e, f02=»OUND r PDAEN59 . P MOVE DEBINW4,W3 FORMATNAME=IMMIDIATE (N) P B DAEN63 L PDAEN62 ^ P CLEAR BOOL3 CLEAR/SET CR l & P BOK DAEN65 NO FORMAT CHANGE FOUND 2 P MOVE DEBINW4,W4 FORMATNAME=NEXT AFTER (R)EG PDAEN63 8 P CALL EMPTYT
0x1de5e8…1de77c Dummy {f00=0x0060, f01=0x0190, f02=» f 2 P MATCH STSAVE(DEBINW4),DEBINW3,W1,STR1A,W0,W1 " P BNOK DAEN67 DATAENTER-FORMAT > ( P MOVE BIN3,DEBINW4 SAVE FORMATINDEX d & P PERF DERECS,W3 ENTER LAST RECORD P BOK DAEN66 8 P CBNE DEBINW4,W13,DAEN69 IGNORE NO WORKSPACE IN CORE
0x1de77c…1de910 Dummy {f00=0x0060, f01=0x0190, f02=»5 GET BALANCE-FORMAT PDAEN67 P MOVE DEINPUT,HEX00 * : P COPY DEINPUT,W0,W6,STSAVE(DEBINW4),W0 GET FORMATNAME F P CLEAR DOOL8 OPEN NEW BATCH " P PERF DERECS,W14 CHANGE FORMAT P BOK DAEN64 P CBNE NUMBER,=D'0',DAEN69 P SET
0x1de910…1deaa4 Dummy {f00=0x0060, f01=0x018e, f02=»LEAR DECHANGE P SET DOOL8 P PERF DERECS,W10 ( P BOK DAEN68 @ P CLEAR DOOL8 T P B DATER4 h PDAEN68 z P CLEAR DOOL8 PDAEN70 P CLEAR DECHANGE P BZ DAT0 P CLEAR SW95PR P BZ DAEN80 P MOVE DEBINW4,
0x1deaa4…1dec38 Dummy {f00=0x0060, f01=0x0190, f02=» P CBNE DEBINW4,W6,DAEN85 P TBF DBOMVR,DAEN85 $ & P PERF DERECS,W3 ENTER LAST SECTOR > P BERR DATER2 h P PERF DEVERS SET VERIFY MODE | P B RFWD02 PDAEN85 P B DAT0 P EJECT P****************** P* RECORD FORWARD
0x1dec38…1dedcc Dummy {f00=0x0060, f01=0x0190, f02=»INSERT OF RECORD ~ & P PERF DEPRUT,PRNUM,DEBINW4,DEBINW3 * P CBNE DEBINW4,W6,RFWD03 VERIFY MODE ? B ( P TBF DBOMVR,RFWD03 RECORD TO VERIFY p P PERF DEVERS SET VERIFY MODE P TBT DBOVER,RFWD10 PRFWD02 P PERF DELAST,W9,DEKTAB8 P
0x1dedcc…1def60 Dummy {f00=0x0060, f01=0x018e, f02=» P TBT DOOL8,RFWD07 ( P TBF DOOL2,RFWD05 JUMP IF NOT INSERT PRFWD06 J " P B RBWD10 GET PREVIOUS RECORD X PRFWD05 ~ P TBT DENOCHAN,RFWD10 PRFWD07 P B DATERR PRFWD10 P MOVE DEBINW3,NUMBER $ P CBNE DEBINW3,BDPOIN(W
0x1def60…1df0f4 (1, 371) Dummy {f00=0x0060, f01=0x018e, f02=» P CLEAR SOOL2 PRFWD14 $ P MOVE DEBINW4,W9 NO MORE RECORDS * P B RFWD33 R PRFWD15 d $ P TBT VERIFM,RFWD23 VERIFY MODE? r P PERF DELAST,W15,DEKTABR ( P IB DEBINW2,PROCAN,PROCAN,RETUDA C P RFWD18,RBWDDA P MOVE DEBI
0x1df0f4…1df288 Dummy {f00=0x0060, f01=0x0190, f02=» $ P MOVE BCDI21(W3),NUMBER RESTORE P MOVE DEBINW4,W6 , P B DATER2 D PRFWD17 V P MOVE DEBINW3,BCDI21(W3) d 0 P CBNG DEBINW3,BDPOIN(W2),RFWD19 WITHIN BATCH $ P MOVE BCDI21(W3),NUMBER RESTORE P B RFWD13 NOT FOUND PRFWD18
0x1df288…1df41c Dummy {f00=0x0060, f01=0x0190, f02=» PRFWD19 & P ERASE 1,W1,W0 ERASE ALL ON SCREEN PRFWD20 < $ P PERF DERECS,W4 GET NEXT RECORD J PRFWD30 r P BOK RFWD40 P BOFL RETU03 P CLEAR DOOLC & P CBNE PINDFR,W0,RFWD33 CURR FORMAT * P CBE DEBINW2,W5,RFWD31 RBWD PRESSE
0x1df41c…1df5b0 Dummy {f00=0x0060, f01=0x0190, f02=» BATCHHEAD x P SET SOOL2 P B DATER4 $ PRFWD32 6 P CLEAR SOOL2 D P B DATER4 X PRFWD33 j P TBF VERIFM,RFWD38 x P TEST BDAVER P BNZ TOTBAL P TBT KEYVER,RFWD35 P DISPLAY 30,W1,W0 P B RFWD39 PRFWD35
0x1df5b0…1df744 Dummy {f00=0x0060, f01=0x0190, f02=» 0,W1,W0 PRFWD39 P THOME P B DATER2 , PRFWD40 > P SET SOOL2 NOT BATCHHEAD L ( P CBE DEBINW2,W5,RFWD50 RBWD PRESSED l & P PERF DEPRUT,PRNUM,DEBINW4,DEBINW3 & P CBNE DEBINW4,W6,RFWD50 NOT VERIFY P TBF DBOMVR,RFWD10 P P
0x1df744…1df8d8 Dummy {f00=0x0060, f01=0x0190, f02=»AR DECHANGE PRFWD60 P CBE NUMBER,=D'0',RFWD70 " P TEST VERIFM B P BZ DAT06 V P B DAT05 h PRFWD70 x P CLEAR SOOL2 P TEST VERIFM P BZ DAT0X P B DAT05 P EJECT P***************** P* RECORD BACKWAR
0x1df8d8…1dfa6c Dummy {f00=0x0060, f01=0x0190, f02=» & P TBT DOOL2,RBWD10 INSERT OF RECORD & P CBE NUMBER,=D'0',RFWD12 BATCHHEAD . & P PERF DEVERC CLEAR IF VERIFY MODE X P BNZ RBWD10 P TBT DENOCHAN,RBWD15 & P SET DENOCHAN NO CHANGES PERMITTED & P PERF DERECS,W3 ENTER LAST SECTOR P B
0x1dfa6c…1dfc00 Dummy {f00=0x0060, f01=0x018e, f02=»BWD28 YES! PRBWD15 P PERF DELAST,W15,DEKTABR ( P IB DEBINW2,PROCAN,PROCAN,RETUDA C @ P RFWDDA,RBWD25 l P MOVE DEBINW2,W5 PRBWD20 P MOVE BCDI21(W3),DEINPUT " P CBNL BCDI21(W3),NUMBER,RFWD16 P B RBWD30 PRBWD25
0x1dfc00…1dfd94 (1, 372) Dummy {f00=0x0060, f01=0x0190, f02=» * P ERASE 1,W1,W0 ERASE ALL FROM 1 AND UP ( P PERF DERECS,W6 GET PREVIOUS RECORD 6 P B RFWD30 b P EJECT t P******************* P* RECORD CORRECTION P******************* PCORDAT P TBT VERIFM,CORD10 P TBF DENOC
0x1dfd94…1dff28 Dummy {f00=0x0060, f01=0x018e, f02=»MULATORS t P THOME & P CLEAR DENOCHAN CHANGES PERMITTED P PERF DELAST,W8,DEKTAB7 H $ P SET CORR SET CORRECTION MODE,DK h & P PERF DEVERC CLEAR IF VERIFY MODE P BZ CORD20 P PERF DECLRD P B CORD30 PCORD20 P PERF DE
0x1dff28…1e00bc Dummy {f00=0x0060, f01=0x0190, f02=» PCORD35 P MOVE DEBINW4,W0 PCORD40 * P SET CORR 8 P PERF DERR J P B CORD30 PCORCAN n ( P TBF DECHANGE,CORE15 NO CHANGES MADE | & P ERASE 1,W1,W0 ERASE ALL ON SCREEN PCORC10 P SET DOOL4 & P PERF DERECS,W5 GET CU
0x1e00bc…1e0250 Dummy {f00=0x0060, f01=0x0190, f02=»ACC,W2 INCREASE ACCUMULATORS P CLEAR DECHANGE ! $ P THOME ! < : PCORR30 IB DEBINW2,CORE10,SERIOUS,CORE20 CAN,RET,ENT C ! J & P CORENT,CORENT,CORENT NOT USED C ! P CORDEL DEL ! PCORENT ! P PERF DERECS,W2 ENTER OLD ! P BNOK CORD40 !
0x1e0250…1e03e4 Dummy {f00=0x0060, f01=0x0190, f02=»ORE45 ! PCORE20 " P GETFLD 0,W1,DEBINW1 " P CLEAR DECHANGE " 8 PCORE45 " P & P PERF DEPRUT,PRNUM,DEBINW4,DEBINW3 " ^ P CBNE DEBINW4,W6,CORE60 " PCORE50 " P TBF DBOMVR,CORE60 " P TBT DBOVER,CORE60 " P PERF DEVERS SET VEIFY MODE "
0x1e03e4…1e0578 Dummy {f00=0x0060, f01=0x0190, f02=»06 " PCORE90 # P PERF DECLRN # P B DAT03 # , PCORDEL # < P SET DENOCHAN # J P B DLTE05 # ` P EJECT # r P***************** # P* RECORD DELETE. # P***************** # PDLTEDA # P TBT VERIFM,DLTE05 # P TEST DENOCHAN #
0x1e0578…1e070c Dummy {f00=0x0060, f01=0x018e, f02=» PERF DEVERC # P SET DENOCHAN $ PDLTE10 $ * P PERF DELAST,W2,DEKTAB7 $ 8 , P IB DEBINW2,PROCAN,PROCAN,RETUDA,DLTE10 $ X & P ERASE 1,W1,W0 ERASE ALL ON SCREEN $ ( P PERF DEACC,W1 DECREASE ACCUMULATORS $ P THOME $ PDLTE30 $ P PERF DERECS,W
0x1e070c…1e08a0 Dummy {f00=0x0060, f01=0x018e, f02=» > P IB DEBINW2,DELERR,RETUDA,DELERR,RFWD10,RFWD50,DELERR, C % P DELERR,TOTDA % F PDELERR % ( P EDWRT DEDSSCRN,BELL ACOUSTIC ALARM % j P B DLTE50 % P EJECT % P******************* % P* CHANGE PROGRAM. * % P******************* %
0x1e08a0…1e0a34 (1, 373) Dummy {f00=0x0061, f01=0x0190, f02=» P GETABX BIN4 & PPROGD0 & P PERF DELAST,W1,DEKTAB7 & & , P IB DEBINW2,PROCAN,PROCAN,RETUDA,PROGD0 & F PPROENT SUB DEBINW1,W1 & v P BZ PROGD0 JUMP IF NO INPUT & 6 P COPY DEINPUT,DEBINW1,W1,HEX00,W0 DELETE ENTER-KEY & $ P PERF DERECS,W10 CHAN
0x1e0a34…1e0bc8 Dummy {f00=0x0061, f01=0x018e, f02=»EBINW2 & t P MOVE DEBINW2,W1 ' * P CBE DEBINW4,W6,CORE50 JUMP IF VERIFY ' & P PERF DECLRN ' T P B DAT03 ' h P* ' x P EJECT ' P****************** ' P* RECORD INSERT. * ' P****************** ' PINSRDA ' P TEST DOOL2 ' P BNZ DAT
0x1e0bc8…1e0d5c Dummy {f00=0x0061, f01=0x018e, f02=» P PERF DEVERS SET VERIFY MODE ( P B RFWD02 ( ( PINSR05 ( : P MOVE DEBINW3,NUMBER ( H 0 P CBNE DEBINW3,BDPOIN(W2),INSR10 LAST RECORD ( d & P CLEAR DENOCHAN CHANGES PERMITTED ( P B CANBL1 ( PINSR10 ( P PERF DELAST,W4,DEKTAB7 ( , P IB DE
0x1e0d5c…1e0ef0 Dummy {f00=0x0061, f01=0x0190, f02=» ( l P SET DOOL2 RECORD INSERT ) & P PERF DEVERC CLEAR IF VERIFY MODE ) ( P B DAEN65 ) R P EJECT ) d P******************** ) r P* TOT-KEY PRESSED. * ) P******************** ) PTOTDA ) P TEST DOOL8 ) P BNZ DATERR ) P TBF SOOL2,T
0x1e0ef0…1e1084 Dummy {f00=0x0061, f01=0x0190, f02=» VERIFM,TOTBAL ) P PERF DERECS,W3 ENTER LAST * P BNERR TOTBAL * 8 * P CBE DEBINW4,W13,TOTBAL NO WORKSPACE ? * N P B DATER2 * | P EJECT * . P***************************************** * P* * P* HANDLE BALANCE FORMAT * P* * . P******
0x1e1084…1e1218 Dummy {f00=0x0061, f01=0x018e, f02=»X00 * 4 P COPY DEINPUT,W0,W6,FORTAB(W21),W0 BALANCEFORMAT + P MOVE FRMTPNTR,SYMREC(W11) + D PTOTB05 + f P CLEAR DECHANGE + t P SET DOOLA + PTOTB10 + P PERF DEDISC,W10 GET FORMAT + P BNERR TOTB20 + * P CBNE DEBINW4,W13,TOTB12 NO WORKSP
0x1e1218…1e13ac Dummy {f00=0x0061, f01=0x0190, f02=» ( P PERF DEPOOL,W6,PINDFR,BIN14,STRG10A , P MOVE FORMAT,HEX00 , 0 P B TOTB10 , J PTOTB12 , " P CLEAR DOOLA NO BALANCE-FORMAT , j & P SET DENOCHAN NO CHANGES PERMITTED , PTOTB14 , P B DATER2 , PTOTB20 , ( P MOVE FORMAT,FORTAB(W21) BLANCE
0x1e13ac…1e1540 Dummy {f00=0x0061, f01=0x0190, f02=»SC,W1 ENTER JOB DEFINITION , PTOTB35 - " P PERF DECLRN - 0 * PTOTB40 IB DEBINW2,CANCBL,SERIOUS,ENTBL - D , P CBNE DEBINW2,W8,TOTB50 JUMP IF NOT TOT - r * P CBE BDPOIN(W5),W0,TOTB42 ALL VERIFIED - P PERF DELAST,W9,DEKTAB6 - P B TOTB35 - PTOTB42
0x1e1540…1e16d4 (1, 374) Dummy {f00=0x0061, f01=0x018e, f02=» P SET BDAFRO ENTER PRESSED . P MOVE DEBINW2,W3 . & P B ENTBL . > PTOTB44 . N P MOVE DEBINW4,W24 . P ERASE 0,DEBINW4,DEBINW4 . v P B TOTB35 . PTOTB50 . P MOVE DEBINW4,W0 . PTOTB60 PERF DERR . P B TOTB40 . PENTBL . P S
0x1e16d4…1e1868 Dummy {f00=0x0061, f01=0x0190, f02=» P RET / P* / PCANCBL / PCANBL1 / ( P CLEAR DOOLA / 6 P SET SOOL2 / J $ P PERF DERECS,W7 GET LAST RECORD / P BOK CANBL3 / P BOFL RETU03 / P CBE DEBINW4,W13,TOTB14 / P SET DOOLA / P B TOTB60 / PCANBL3 / & P PERF DEVE
0x1e1868…1e19fc Dummy {f00=0x0061, f01=0x018e, f02=»AT01 / PSERIOUS 0 P CLEAR BDABAL OUT OF BALANCE 0 P B TOTB70 0 @ P PEND 0 R P EJECT 0 ` PDEVERS PROC 0 n P CALL SETB,WORK(W11),W0 0 P CALL SETB,WORK(W12),W0 0 P SET VERIFM 0 P RET 0 P PEND 0 PDEVERC PROC 0 P CLE
0x1e19fc…1e1b90 Dummy {f00=0x0061, f01=0x411a, f02=» 0 PBELL FRMT 1 P FSL 1 P FILLR X'07',1 1 & P FMEND 1 < PFFETCH FRMT 1 J P FSL 1 ^ P FTEXT 'FETCHING FORMAT:' 1 j P FCOPY DEINPUT 1 P FTEXT ' FROM DISC.' 1 P FNL 1 P FKI 1,ALPHA 1 P FCOPY HEX00 1 P FMEND 1 P* 1
0x1e1b90…1e1d24 Dummy {f00=0x0061, f01=0x2008, f02=» 2 ,W7 GET LAST RECORD P BERR TOTB60 $ P CLEAR DOOLA 8 P SET SOOL2 L * P CBE NUMBER,=D'1',CANBL2 JUMP IF FIRST ^ P CLEAR DECHANGE P B DAT02 PCANBL2 P B DAT01 PSERIOUS P CLEAR BDABAL OUT OF BALANCE P B
0x1e1d24…1e1eb8 Dummy {f00=0x0061, f01=0x0190, f02=»D 0,DEBINW3,DEBINW2 GET THE COMPULSORY FIELD 2 PKENT15 3 4 . P MOVE DEBINW4,W5 INDICATE COMP.FIELD FOUND 3 B P MOVE DEBINW1,W0 3 t P TSTCTL 5 LOOK IF CTAB 3 P BZ ERRPRINT NO! 3 P DUPL STR2A 3 P BOK KENT20 YES! 3 P TBF ASDFLAG,ERRPRINT 3
0x1e1eb8…1e204c Dummy {f00=0x0061, f01=0x0190, f02=»KFORCE 3 P PERF DEFORC 4 P B UPDR30 4 " P* 4 4 P* VALID ITEM 4 > P* 4 R PKVALID 4 ( P MOVE DEBINW2,W3 RESTORE ITEMLENGTH 4 j P B UPDR25 4 P EJECT 4 PERRPRT 4 P CMP DEBINW2,W16 4 P BE KEDIT JUMP IF EDIT 4 , P CBE DEBINW2,W
0x1e204c…1e21e0 Dummy {f00=0x0061, f01=0x0190, f02=» 4 z P BNZ DYK050 5 P* 5 P* ERROR HANDLING 5 & P* 5 B PERRPRINT 5 L * P TBF DOOLA,ERRP10 JUMP IF NOT BALANCE 5 P PERF DERROR,DEKTAB6 5 P B ERRP20 5 PERRP10 5 P PERF DERROR,DEKTAB4 5 PERRP20 5 $ P CBE DEBINW2,W1,ERRCAN C
0x1e21e0…1e2374 (1, 375) Opaque[0x194]
0x1e2374…1e2508 # DirEnt {nam=»CONV «, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x1280, f03=0x0000}
0x1e2374…1e2508 IdxSect {
0x1e2374…1e2508 f00 = 0x0094 // 0x1e2374 @0x0
0x1e2374…1e2508 f01 = 0x0004 // 0x1e2376 @0x2
0x1e2374…1e2508 gno = [ // 0x1e2378 @0x4
0x1e2374…1e2508 [0x00]: C0x0094.0x0.0
0x1e2374…1e2508 [0x01]: C0x0094.0x1.0
0x1e2374…1e2508 ]
0x1e2374…1e2508 }
0x1e2508…1e269c Dummy {f00=0x0094, f01=0x0190, f02=» P IDENT CONV UPD 80-01-22/AST DDUM DEDDIV ( PDIV < P ENTRY DECONV J P EXT ATTDEV ATTACH DEVICE ` P EXT DETPRT DETACH DEVICE P EJECT P EJECT P* @ P* THIS MODULE TAKE CARES OF THE DIFFERENT CONVERTIONS-
0x1e269c…1e2830 Dummy {f00=0x0094, f01=0x0190, f02=»OURSELVES. l P* D P* FORMAL PARAMETERS: FC = FUNCTION-CODE (DEVICE-CLASS) @ P* = 1 DATACOMMUNICATION OUT d > P* = 2 DATACOMMUNICATION IN 8 P*
0x1e2830…1e29c4 Dummy {f00=0x0094, f01=0x0190, f02=» b : P* = 6 FLOPPYDISC FILE : P* = 7 DELETE BATCHES ON USERFILE F P* 8 P* TYPE = TYPE OF HANDLING . P* = 1 OPEN : P*
0x1e29c4…1e2b58 Dummy {f00=0x0094, f01=0x0190, f02=» = 4 BALANCE RECORD t 0 P* = 5 CLOSE P* T 4 P* RETCON = RETURN-CODE ^ , P* = 0 OK > P* /= 0 ERROR MESSAGE-NUMBER P
0x1e2b58…1e2cec Dummy {f00=0x0094, f01=0x018e, f02=»************************* Z P EJECT " PDECONV PROC FC,TYPE,RETCON 0 P* R 6 P IB FC,TRANSM,RECEIV,CASSET JUMP ON DEVICE-CLASS C " P PRINTA,DISCFL,FLOPPY,DELETE PTRANSM PRECEIV PCASSET PDISCFL PFLOPPY PERROR
0x1e2cec…1e2e80 Dummy {f00=0x0094, f01=0x0190, f02=» h P* PPRINTA : P IB TYPE,PR100,PR200,PR200 JUMP ON TYPE 0F HANDLING C P PR200,PR500 ^ P B ERROR t P* * P* OPEN DEVICE = ATTACH PRINTER P* PPR100 $ P PERF ATTDEV,BIN6 ATTACH DEVICE P BOK DECOOK
0x1e2e80…1e3014 (1, 376) Dummy {f00=0x0094, f01=0x0190, f02=» P EDWRT DEDSPRT,FCOUNT P BNOK PR298 " P MOVE DEBINW3,W1 6 P PRINT DEDSPRT,DEBINW3,W0 N P BNOK PR298 p P B DECOOK PPR298 2 P MOVE DEBINW4,=W'35' OUTPUT DEVICE NOT OP....' P B RETURN GO AND CLOSE P* * P*
0x1e3014…1e31a8 Dummy {f00=0x0094, f01=0x0190, f02=» 8 P* THIS ROUTINE DELETE BATCHES ON THE USERFILE P* @ PDELETE J P IB TYPE,DECOOK,DEL100 X P B DECOOK v PDEL100 P MOVE RETCON,=W'-5' P B RETURN P EJECT P* P* OK P* PDECOOK P M
0x1e31a8…1e333c Dummy {f00=0x0094, f01=0x40a4, f02=»,2 P FILLR '*',10 P FTEXT 'NUMBER: ' P FMEL '9999',NUMBER : P FEOR V P FILLR ' ',2 d P FEOR x P FMEND END @ W'-5' P B RETURN P EJECT P* P* OK P* PDECOOK P M
0x1e333c…1e34d0 Dummy {f00=0x0094, f01=0x2008, f02=» NT DE12ST DDUM DEDDIV PDIV . ENTRY DE12ST < DE12ST R PROC ` RET n PEND z END @ KITEM PSTR6A STRG 6 WORKITEM PSTRG10A STRG 10 WORKITEM PDIV END @ ARIABL
0x1e34d0…1e3664 Dummy {f00=0x0094, f01=0x0190, f02=»U:BTAB 800121 U:BTABB U:CB10 :C ,S:BTAB 800121 S:BTABB :B ,Z:TB10 800121 Z:TB10T + . ,D:TB10 800121 D:TB10T :T , :DB10 800121 :DB10D ,D:DB10 800121
0x1e3664…1e37f8 Dummy {f00=0x0094, f01=0x0190, f02=» :DB30D ,D:DB30 800121 D:DB30D ,U:CB10 800121 U:CB10C ,D:CB10 800121 D:CB10C 6 ,C:CB20 800121 C:CB20C $ ,D:CB20 800121 D:CB20C B ,C:CB30
0x1e37f8…1e398c Dummy {f00=0x0094, f01=0x0190, f02=» 800121 D:CB40C > ,C:CB50 800121 C:CB50C ,D:CB50 800121 D:CB50C : ,Z:TB20 800121 Z:TB20T ,D:TB20 800121 D:TB20T B ,Z:TB30 800121 Z:TB30T
0x1e398c…1e3b20 Dummy {f00=0x0094, f01=0x0190, f02=» B ,Z:TB50 # 800121 Z:TB50T ,D:TB50 $ 800121 D:TB50T F ,Z:TB60 % 800121 Z:TB60T . ,D:TB60 & 800121 D:TB60T . *DEDDIV ' 800121 $$$TRA DENTER ( 800121 $$$TR
0x1e3b20…1e3cb4 (1, 377) Opaque[0x194]
0x1e3cb4…1e3e48 # DirEnt {nam=»DENT03«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x1290, f03=0x0000}
0x1e3cb4…1e3e48 IdxSect {
0x1e3cb4…1e3e48 f00 = 0x0094 // 0x1e3cb4 @0x0
0x1e3cb4…1e3e48 f01 = 0x0004 // 0x1e3cb6 @0x2
0x1e3cb4…1e3e48 gno = [ // 0x1e3cb8 @0x4
0x1e3cb4…1e3e48 [0x00]: C0x0094.0x2.0
0x1e3cb4…1e3e48 [0x01]: C0x0094.0x3.0
0x1e3cb4…1e3e48 ]
0x1e3cb4…1e3e48 }
0x1e3e48…1e3fdc Dummy {f00=0x0094, f01=0x018e, f02=» $ P IDENT DENT03 REL 10.0 80-04-11 P 80-01-21/DALI , DDUM DEDDIV D PDIV X " ENTRY DEFORC HANDLE FORCEKEY f P ENTRY DEVERI P EXT TESTB P EXT FORCED P EXT FMOVE P EXT DESTAT P EXT DERROR P EXT M
0x1e3fdc…1e4170 Dummy {f00=0x0094, f01=0x0190, f02=» * FORCE KEY AND PUT ???? * INTO THE FORCED ITEM. $ ************************* D DEFORC PROC f * PKFORCE SET DBOFOR HANDLE FORCED FIELD z P TSTCTL 0 LOOK IF ALPHA P BZ KFOR10 JUMP IF BCD P MOVE DEINPUT,='?' P MOVE :F
0x1e4170…1e4304 Dummy {f00=0x0094, f01=0x0190, f02=»ODD NUMBER p P CHARACTERS KEYED IN P BZ KFOR20 JUMP IF EVEN 0 P MOVE DEINPUT,=X'0AAA' P P B KFOR30 n PKFOR20 MOVE DEINPUT,=X'0FAA' PKFOR30 DIV DEBINW4,W2 * P XCOPY :FMTITEM,W0,DEBINW4,DEINPUT,W0 PKFOR31 P GETABX DE
0x1e4304…1e4498 Dummy {f00=0x0094, f01=0x018e, f02=»*************** P*THIS ROUTINE HANDLE P*THE KEYVERIFICATION 4 P********************* P PDEVERI PROC n " P CLEAR DOOL1 VALID PRESSED OFF PKVER00 P MOVE BIN10,W0 P MOVE BIN9,W0 P CALL FORCED,:FMTITEM P BOK KVE
0x1e4498…1e462c Dummy {f00=0x0094, f01=0x0190, f02=» P BZ KVER02 JUMP IF BCD P MOVE BIN9,W0 " P EDSUB DEINPUT,BIN9,FORMK 8 * P CBNE BIN9,W0,KVER10 JUMP IF NOT EMPTY Z P B KTKEY2 GET NEXT FIELD PKVER02 P MOVE DEINPUT,:FMTITEM P MOVE BIN8,=W'80' =W'80' P CBNE :FMTITEM,=D'0'
0x1e462c…1e47c0 Dummy {f00=0x0094, f01=0x0190, f02=» P BP KVER05 PKTKEY2 $ P MOVE DEBINW4,W1 GET NEXT FIELD $ P RET L PKVER05 X P ADD BIN10,W1 f PKVER10 | P SETCUR P CLEAR DOOL1 VALID PRESSED ? P BNZ KVER20 YES P CALL FMOVE,STRG10A,FDOTS P ADD BIN9,W128
0x1e47c0…1e4954 (1, 378) Dummy {f00=0x0094, f01=0x0190, f02=»N9,BIN10 POS IN BUFFER 2 P KI .NE,DEDSDYKB,STR1A,DEKTABK,DEBINW1,DEBINW2 P PERF DELOCK,W1,DEBINW2 T $ P IB DEBINW3,EVERIF,KVER70,KVER75 t ( P IB DEBINW2,KVER40,KVER40,KVER50 C P KVER65,KVER35,KCOPY P SUB DEBINW2,W6 P MOVE DEBI
0x1e4954…1e4ae8 Dummy {f00=0x0094, f01=0x018e, f02=» P MOVE STR1A,=C'+' P B KVER55 " PKVER50 4 P MOVE STR1A,=C'-' B PKVER55 P TSTCTL 0 LOOK IF ALPHA j P BZ KVER60 JUMP IF BCD P CBG DEBINW2,W2,KVER75 PKVER60 & P MATCH DEINPUT,BIN9,W1,HEX00,W0,W1 P BNOK KVER
0x1e4ae8…1e4c7c Dummy {f00=0x0094, f01=0x018e, f02=» j P BNOK KVER75 PKVER63 P UPDFLD 0,DEINPUT * P B KTKEY2 D PKVER65 V P SET DOOL1 VALID PRESSED ON d P TSTCTL 0 LOOK IF ALPHA P BNZ KVER68 YES! P DLETE DEINPUT,W0,W1 PKVER68 P CALL FMOVE,STRG10A,FORMD
0x1e4c7c…1e4e10 Dummy {f00=0x0094, f01=0x0190, f02=» PKVER70 P XSTAT DEDSDYKB,DEBINW3 P CALL MASK,DEBINW3,W8 6 P BZ KVER75 T & P MATCH DEINPUT,BIN9,W1,STR1A,W0,W1 f P BOK KVER80 JUMP IF OKAY PKVER75 P EDWRT DEDSSCRN,BELL P B KVER20 PKVER80 P EDWRT DEDSSCR
0x1e4e10…1e4fa4 Dummy {f00=0x0094, f01=0x0190, f02=»10,BIN9,KVER20 MACL NO REACHED P TSTCTL 0 LOOK IF ALPHA & P BNZ KVER63 JUMP IF ALPHA F P CBE BIN10,BIN9,KVER20 h P B KVER63 FIELD COMPLETE PEVERIF P MOVE DEBINW4,W2 P RET PKCOPY P MOVE DEBINW4,W3 P RET
0x1e4fa4…1e5138 Dummy {f00=0x0094, f01=0x412e, f02=»FORMV FRMT P FSL P FCOPY STR1A P FMEND 2 PBELL FRMT @ P FSL R P FILLR X'07',1 ^ P FMEND t PFDOTS FRMT P FSL P FTEXT =X'142E' P FILLR X'2E',1 P FMEND PFORMD FRMT P FSL P FCOPY DEINPUT
0x1e5138…1e52cc Dummy {f00=0x0094, f01=0x2008, f02=» NT DENT03 PRRR 1.0 79-11-21/DALI DDUM DEDDIV 0 PDIV D " ENTRY DEFORC HANDLE FORCEKEY R INCLUDE DELITT x EJECT ************************* * THIS ROUTINE HANDLE THE * FORCE KEY AND PUT ???? * INTO
0x1e52cc…1e5460 Dummy {f00=0x0094, f01=0x0190, f02=»6 - 5 t r * & 2 : ! k 5 2 : " l u * & 4 :U i 7 : 7 u > * & ; h ! 3 : 8 9 u l * & Y 6 40 ! ) h d3 u * & w 41 8 5 42 9 5 43 8 3 - u * & 5 44 9
0x1e5460…1e55f4 (1, 379) Opaque[0x194]
0x1e55f4…1e5788 # DirEnt {nam=»DEAPPU«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x12a0, f03=0x0000}
0x1e55f4…1e5788 IdxSect {
0x1e55f4…1e5788 f00 = 0x0095 // 0x1e55f4 @0x0
0x1e55f4…1e5788 f01 = 0x0002 // 0x1e55f6 @0x2
0x1e55f4…1e5788 gno = [ // 0x1e55f8 @0x4
0x1e55f4…1e5788 [0x00]: C0x0095.0x0.0
0x1e55f4…1e5788 ]
0x1e55f4…1e5788 }
0x1e5788…1e591c Dummy {f00=0x0095, f01=0x018e, f02=» & P IDENT DEAPPU CE SYSTEM 80-10-29 DDUM DEDDIV . PDIV B ENTRY DEAPPU P P EXT EMPTYT f P EXT DEDISC z P EJECT P INCLUDE DELITT P EJECT DEAPPU PROC 2 P CBNE DEBINW3,W3,DEAPPR BGNR FIELD IF APPL =3
0x1e591c…1e5ab0 Dummy {f00=0x0095, f01=0x0190, f02=» P BE DEAP15 YES P B DEAPPR PDEMPTY , P MOVE BIN15,W1 LOAD FIELD NO : < P CALL EMPTYT,X.PSEU1,X.PSEU2,X.WB10,BIN15 FIELD 1 EMPTY ^ P BZ DEAP20 NOT EMPTY P MOVE BCD13A,SYSV(W10) P ADD BCD13A,=D'1' P CMP SYSV(W10),=C'9999
0x1e5ab0…1e5c44 Dummy {f00=0x0095, f01=0x417e, f02=»,BIN15,BCD13A n P MOVE DEINPUT,SYSV(W10) , P PERF DEDISC,W20 WRITE SYSTEM VARIABLES 6 PDEAP15 f * P MOVE DEBINW1,W6 SET REQUESTED LENGTH t P MOVE DEBINW3,W1 REWRITE P RET P PDEAP20 4 P CON X.MOVE,DEINPUT,X.PSEU1,X.PSEU2,
0x1e5c44…1e5dd8 Dummy {f00=0x0095, f01=0x2008, f02=» NT DEAPPU USERAPPL-ROUTINE DDUM DEDDIV * PDIV > ENTRY DEAPPU L DEAPPU PROC b MOVE DEBINW3,W0 v RET PEND END @
0x1e5dd8…1e5f6c Dummy {f00=0x0095, f01=0x0190, f02=» > P P h 0
0x1e5f6c…1e6100 Dummy {f00=0x0095, f01=0x0190, f02=» 8 F
0x1e6100…1e6294 (1, 380) Opaque[0x194]
0x1e6294…1e6428 # DirEnt {nam=»DEPRFG«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x12a8, f03=0x0000}
0x1e6294…1e6428 IdxSect {
0x1e6294…1e6428 f00 = 0x0095 // 0x1e6294 @0x0
0x1e6294…1e6428 f01 = 0x000a // 0x1e6296 @0x2
0x1e6294…1e6428 gno = [ // 0x1e6298 @0x4
0x1e6294…1e6428 [0x00]: C0x0095.0x1.0
0x1e6294…1e6428 [0x01]: C0x0095.0x2.0
0x1e6294…1e6428 [0x02]: C0x0095.0x3.0
0x1e6294…1e6428 [0x03]: C0x0096.0x0.0
0x1e6294…1e6428 [0x04]: C0x0096.0x1.0
0x1e6294…1e6428 ]
0x1e6294…1e6428 }
0x1e6428…1e65bc Dummy {f00=0x0095, f01=0x0190, f02=» $ P IDENT DEPRFG REL 10.0 80-04-11 P 80-03-21/JAER , * D D P* THIS ROUTINE TAKES CARE OF PRINTOUT OF THE GENERAL USER N D ?* FORMAT DEFINITION AND OF THE BALANCE FORMAT DEFINITION. * @ P* -USED VARIABLES : PI
0x1e65bc…1e6750 Dummy {f00=0x0095, f01=0x0190, f02=»BIN10 = FIELDNR r > P* BIN16 = POINTER STR64A-ITEM 8 P* DEBIN5 = LINE-COUNTER Z F P* W6 = DETAILLINE STARTLINE NUMBER 0 +* DEBINW2= 0
0x1e6750…1e68e4 Dummy {f00=0x0095, f01=0x0190, f02=» = 3 RETURN-KEY * 4 L K************************************************************************ > DDUM DEDDIV PDIV * . ) ENTRY PRFGUF PRINT USERFORMAT DEFINITION * " EXT DEUNPF UNPACK
0x1e68e4…1e6a78 Dummy {f00=0x0095, f01=0x018e, f02=»R-MESSAGES P EJECT P* P* KEYTABLE * P* B CLR EQU X'8F' CLEAR L CAN EQU X'91' CANCEL h PRET EQU X'92' RETURN P* PDEKTAB6 KTAB CLR,CAN,RET EJECT * * %* PRINT USER FORMAT DEFINITION
0x1e6a78…1e6c0c Dummy {f00=0x0095, f01=0x018e, f02=» | . P ADD DEBINW4,W3 LINE-PRINTER NOT OPERABLE ( P PERF DERROR,DEKTAB6 ERRORMESSAGE:35 : P B PR50 CLR-,CAN- OR RET-KEY f PPR03 P MOVE DEBINW3,W1 P PRINT DEDSPRT,DEBINW3,W0 P BNOK PR00 JUMP IF NOT OK , P MOVE PINDCB,FLIND(W1)
0x1e6c0c…1e6da0 Dummy {f00=0x0095, f01=0x018e, f02=» p " P MOVE FDVBCD(W1),W1 PAGENO:=0 $ P MOVE PINDND,W0 NUMB OF DESC:=0 . $ P MOVE PRECPR,W0 NUMB OF POOLS:=0 V > P XCOPY PRECPR,W1,W1,RPOOL(PINDFR),W17 FETCH NUMB OF POOLS ~ B P XCOPY PINDND,W1,W1,RPOOL(PINDFR),W18 FETCH NUMB OF DESC-POOLS 2 P S
0x1e6da0…1e6f34 (1, 381) Dummy {f00=0x0095, f01=0x0190, f02=» d PPR04 , ' ADD FDVBCD(W2),=D'1' INCREMENT 'LINNO' P CLEAR BOOL5 D PR05 X , P PERF DEUNPF,CURSEC,W2 UNPACK NEXT FIELD d , P CBE DEBINW2,W1,PR48 END-OF-FORMAT FOUND ( P TBT BOOL5,PR04 JUMP IF END OF LINE P ADD BIN10,W1 NEXT FIELD
0x1e6f34…1e70c8 Dummy {f00=0x0095, f01=0x0190, f02=» CALL EMPTYT,STATSH CHECK IF EMPTY BNOK PR10 JUMP IF EMPTY * " P MOVE STR6A,='#L:' PROMPT-TEXT J 4 P XCOPY STR64A,BIN16,W3,STR6A,W0 COPY PROMPT-TEXT p * P ADD BIN16,W3 ADJUST POINTER FOR TEXT 0 P MOVE FMTWK(W13),BIN12 LOAD NUMB OG PICCHARS (
0x1e70c8…1e725c Dummy {f00=0x0095, f01=0x0190, f02=» PR10 & P CALL EMPTYT,JOBSPC CHECK IF EMPTY P BNOK PR40 JUMP IF EMPTY : & P MOVE DEBIN3,W0 POINTER JOBSPC :=0 Z P MOVE FBIN2,W0 P MOVE FMTWK(W12),FMTWK(W1) P ADD FMTWK(W12),FMTWK(W2) P ADD FMTWK(W12),FMTWK(W3) PR20
0x1e725c…1e73f0 Dummy {f00=0x0095, f01=0x0190, f02=»PR40 NO MORE FUNCTIONS P ADD FBIN1,W3 $ P DIV FBIN1,W3 COMPUTE FUNC-INDEX 4 4 P CBE FMTWK(FBIN1),W0,PR20 JUMP IF NO GENERATION , P ADD FBIN2,FMTWK(FBIN1) SAVE STARTADRESS 0 P PERF EDLINE,JOBSPC,FMTWK,FBIN1 EDIT STR64A ( $ CBNE DEBINW2,W0
0x1e73f0…1e7584 Dummy {f00=0x0095, f01=0x0190, f02=»N v PR40 * P TBT BOOL6,PR45 JUMP IF BALANCE FORMAT * P PERF PRINT,W1,W2,DEBIN5,=W'44',W6,W5 D ( $ CBNE DEBINW2,W0,PR50 JUMP IF NOT OK r P B PR05 NEXT FIELD PPR45 * P PERF PRINT,W3,W4,DEBIN5,=W'44',W6,W5 $ P CBE DEBINW2,W0,PR05 N
0x1e7584…1e7718 Dummy {f00=0x0095, f01=0x0190, f02=» PEND EJECT * L P* THIS ROUTINE EDITS STR64A-ITEM WITH THE VALIDATION-, GENERATION & F A* AND ACCUMULATIO-STRINGS. IF THERE IS NOT ENOUGH SPACE TO v @ <* EDIT ONE OF THE ABOVE MENTIONED, IT WILL BE CUT AND ( P*
0x1e7718…1e78ac Dummy {f00=0x0095, f01=0x018e, f02=» NUMB = NUMBER OF CHARACTERS IN WSTRG L P* WIND = INDEX ITEM CONTAINING NUMB OF C F * L K* -INPUT VARIABLE : STR6A = PROMPT-TEXT TO CORRESPONDING S L P*
0x1e78ac…1e7a40 Dummy {f00=0x0095, f01=0x018e, f02=» J E* BIN15 = WORK (TO CHECK IF OVERFLOW) * R L P* -OUTPUT VARIABLES : BIN16 = POINTER OF STR64A-ITEM (ADJUST L P* BOOL8 = T JUST STR64A-PART OF LINE TO 8 3*
0x1e7a40…1e7bd4 (1, 382) Dummy {f00=0x0095, f01=0x0190, f02=» " PEDLINE PROC WSTRG,NUMB(),WIND ED05 * & " MOVE BIN15,BIN16 LOAD POINTER POS 6 , P ADD BIN15,NUMB(WIND) ADD NUMB OF CHARS ` , ( CBL BIN15,W64,ED10 JUMP IF ENOUGH SPACE , ' SUB BIN15,W64 NUMBER OF OVERFLOW CHARS 0 P SUB NUMB(WIND),BIN15 NU
0x1e7bd4…1e7d68 Dummy {f00=0x0095, f01=0x0190, f02=»T,W1,W2,DEBIN5,=W'44',W6,W5 P B ED08 $ PED07 4 * P PERF PRINT,W3,W4,DEBIN5,=W'44',W6,W5 @ PED08 n * % CBNE DEBINW2,W0,EDRET JUMP IF NOT OK z 4 P ADD DEBIN3,NUMB(WIND) LOAD NUMB OF COPIED CHARS 2 P MOVE NUMB(WIND),BIN15 NUMB OF OVERFLOW
0x1e7d68…1e7efc Dummy {f00=0x0095, f01=0x0190, f02=»5 ED10 0 P XCOPY STR64A,BIN16,NUMB(WIND),WSTRG,DEBIN3 P ADD BIN16,NUMB(WIND) J P ADD BIN16,W3 LEAVE 3 SPACES h $ P CBNG BIN16,W64,EDRET JUMP IF OK * P TBT BOOL6,ED20 JUMP IF BALANCE FORMAT * P PERF PRINT,W1,W2,DEBIN5,=W'44',W6,W5
0x1e7efc…1e8090 Dummy {f00=0x0095, f01=0x0190, f02=»OVE STR64A,=' ' 'SPACES' & ! SET BOOL8 INDICATE PARTIAL PRINT EDRET J RET X PEND d P EJECT r P* < P* THIS ROUTINE PRINT ONE LINE ON THE LINE PRINTER. 4 P* THE FORMAT OF THE LINE IS DECIDED OF THE 6 P*
0x1e8090…1e8224 Dummy {f00=0x0095, f01=0x0190, f02=»DED OF THE PARAMETER z P* 'HEADER'. P* 6 B P* INPUT PARAMETERS: HEADER = HEADER FORMAT NUMBER @ > P* LINE = LINE FORMAT NUMBER > P* LINNO = ACTUAL LINE NUMBER L
0x1e8224…1e83b8 Dummy {f00=0x0095, f01=0x0190, f02=»UE Z P* F P* HLINES = NUMBER OF LINES IN HEADER 2 P* OUTPUT VARIABLE : DEBINW2= 0 OK ^ F P* (= 1 CLEAR-KEY, TRY AGAIN) : P* = 2
0x1e83b8…1e854c Dummy {f00=0x0095, f01=0x0190, f02=»NES b P PLIT LINMAX ( P MOVE DEBINW2,W0 CLEAR ERROR-SIGNAL P EJECT L 6 P CBNG LINNO,LINMAX,P30 JUMP IF LINMAX NOT REACHED Z PP10 . P EDWRT DEDSPRT,FRMTAB(HEADER) PRINT HEADER P BOK P20 JUMP IF OK " P B P35 JUMP IF CANC OR RET
0x1e854c…1e86e0 Dummy {f00=0x0095, f01=0x018e, f02=»ADJUST FOR HEADLINES ~ PP30 2 P EDWRT DEDSPRT,FRMTAB(LINE) PRINT DETAIL-LINE ( P BOK P40 JUMP IF OK ^ PP35 z * P MOVE DEBINW4,W32 PRINTER NOT OPERABLE P ADD DEBINW4,W3 P PERF DERROR,DEKTAB6 " P B P99 JUMP IF CANC OR RET-KEY
0x1e86e0…1e8874 (1, 383) Dummy {f00=0x0096, f01=0x0190, f02=» * PFRMTAB FTABLE F21HL,F21DL,F22HL,F22DL P* 6 , P* PRINT FORMAT , FORMAT DEFINITION @ P* p PF21HL FRMT HEADER FORMAT z P FTEXT ' 1' P FCOPY ='FORMAT' P FILLR ':',1 P FCOPY FORMAT P FTAB 48 " P FTEXT
0x1e8874…1e8a08 Dummy {f00=0x0096, f01=0x018e, f02=»FDVBCD(W1) P FEOR 1ST HEADLINE P FILLR ' ',2 . P FEOR 2ND HEADLINE B P FILLR ' ',2 ^ P FCOPY ='LINE ' r P FCOPY ='FIELD' P FILLR '-',1 P FTEXT ' MAX/MIN ' & P FTEXT 'K M A V I DUPLIC. SPEC. ' P FTEXT '#L:<'
0x1e8a08…1e8b9c Dummy {f00=0x0096, f01=0x0190, f02=» x P FTEXT ' #A:' P FCOPY ='ACCUMULATION ' P FEOR 3RD HEADLINE > P FILLR ' ',2 Z P FTEXT ' NO NO/POS -' n P FCOPY ='LENGTH' & P FTEXT ' I E T E C -ITEM HANDL.' P FEOR 4TH HEADLINE P FILLR ' ',2 P FEOR 5TH
0x1e8b9c…1e8d30 Dummy {f00=0x0096, f01=0x0190, f02=»E FORMAT z P FILLR ' ',2 P FBT BOOL8,F21DA $ P FTAB 4 < " P FMEL 'Z9',FDVBCD(W2) LINE-NR L P FILLR ' ',1 r " P FMEL 'XXX',FDVBCD(W4) FIELDNR P FILLR ' ',2 $ P FMEL 'Z9',FDVBCD(W5) FIELDSTART P FILLR ' ',2 $ P FMEL 'Z9',F
0x1e8d30…1e8ec4 Dummy {f00=0x0096, f01=0x0190, f02=»T t P FILLR ' ',1 P FCOPY FDVSTR(W2) MUST ENTER P FILLR ' ',1 B P FCOPY FDVSTR(W3) AUTO.TAB V P FILLR ' ',1 x P FCOPY FDVSTR(W4) VERIFY P FILLR ' ',1 P FCOPY FDVSTR(W5) INIT CLEAR P FILLR ' ',1 P FCOPY DUPL DUPL
0x1e8ec4…1e9058 Dummy {f00=0x0096, f01=0x0190, f02=»AIL-LINE P FMEND P EJECT P* , 4 P* PRINT FORMAT , BALANCE FORMAT DEFINITION 6 P* n PF22HL FRMT HEADER FORMAT x P FTEXT ' 1' P FCOPY ='FORMAT' P FILLR ':',1 P FCOPY FORMAT P FTAB 40 " P FTEXT '
0x1e9058…1e91ec Dummy {f00=0x0096, f01=0x0190, f02=»VBCD(W1) P FEOR 1ST HEADLINE P FILLR ' ',2 , P FEOR 2ND HEADLINE @ P FILLR ' ',2 P FCOPY ='LINE ' p P FTEXT 'ACCUMULATOR ' P FTEXT 'POSITION ' P FCOPY ='LENGTH' P FTAB 40 P FTEXT 'SPECIAL ' P FTEXT
0x1e91ec…1e9380 Dummy {f00=0x0096, f01=0x018e, f02=»ION ' P FEOR 3RD HEADLINE P FILLR ' ',2 * P FCOPY =' NO' > P FTAB 11 T P FCOPY =' NO' d P FTAB 39 z P FTEXT 'HANDLING' P FEOR 4TH HEADLINE P FILLR ' ',2 P FEOR 5TH HEADLINE P FMEND P EJECT
0x1e9380…1e9514 (1, 384) Dummy {f00=0x0096, f01=0x0190, f02=» P FBT BOOL8,F22DA P FTAB 4 " P FMEL 'Z9',FDVBCD(W2) LINE NR , P FTAB 12 R ( P FMEL 'XX',FDVBCD(W8) ACCUMULATOR NO b P FTAB 23 " P FMEL 'Z9',FDVBCD(W5) POSITION P FTAB 31 P FMEL 'Z9',FDVBCD(W6) LENGHT P FTAB 41 ( P
0x1e9514…1e96a8 Dummy {f00=0x0096, f01=0x4052, f02=» EJECT PFORMF FRMT P FTEXT ' 1' P FMEND 4 END B@ N FTAB 12 R ( P FMEL 'XX',FDVBCD(W8) ACCUMULATOR NO b P FTAB 23 " P FMEL 'Z9',FDVBCD(W5) POSITION P FTAB 31 P FMEL 'Z9',FDVBCD(W6) LENGHT P FTAB 41 ( P
0x1e96a8…1e983c Dummy {f00=0x0096, f01=0x2008, f02=» END @ FTAB 12 ( P FMEL 'XX',FDVBCD(W8) ACCUMULATOR NO * P FTAB 23 V " P FMEL 'Z9',FDVBCD(W5) POSITION f P FTAB 31 P FMEL 'Z9',FDVBCD(W6) LENGHT P FTAB 41 ( P FMEL 'ZZVZZ9',SPEC SPECIAL HANDLING PF22DA
0x1e983c…1e99d0 Dummy {f00=0x0096, f01=0x2008, f02=» DE12UP LED DE1201 " !!RE 0,$$79-12-14$$80-02-05$$ ( !!IL 239 N MOVE DEINPUT,STR64A ^ !!IL 241 z MOVE STR64A,DEINPUT !!EN TRA /S,NL ASG /E0,TY10 R ASG /E0,TY10 !!EN TRA /S,NL
0x1e99d0…1e9b64 Dummy {f00=0x0096, f01=0x0190, f02=»N2,BIN1 SAVE KEYED INPUT P DIV BIN1,W8 . P XCOPY DEBINW4,W0,W2,PROGNR,BIN1 PROGRAMNR 4 P MUL BIN1,W8 f P SUB BIN2,BIN1 z . P CALL TESTB,DEBINW4,BIN2 LOOK IF EXISTING P BZ DEAPRERR JUMP IF NOT P MOVE BIN1,W0 & P CALL UPDBOL,BIN
0x1e9b64…1e9cf8 Dummy {f00=0x0096, f01=0x0190, f02=»,BCD13A P PERF DEPMSK PDEAENKEY $ P MOVE DEBINW3,W0 4 P MOVE DEBINW2,W17 L P B DEAOK0 f PDEAPRERR x P MOVE DEBINW4,W7 P B DEANOK P* P* $ P ATTFMT FORMN DUMMY INSTRUCTION P ATTFMT FORMA - " -
0x1e9cf8…1e9e8c Dummy {f00=0x0096, f01=0x018e, f02=» j & P MOVE DEBINW4,BCD2A UNIT NUMBER IS P CBG DEBINW4,W8,DEAUN2 2 P CBE DEBINW4,W0,DEAUN2 P P MOVE FILINDUS,DEBINW4 n P ADD FILINDUS,W1 P ADD DEBINW4,=X'D0' 2 P MOVE FILECODE(FILINDUS),DEBINW4 SAVE FILECODE P CBG DEBINW4,=X'D4
0x1e9e8c…1ea020 Dummy {f00=0x0096, f01=0x0190, f02=» h PDEAUN3 & P CBE FCOUNTER(FILINDUS),W0,DEAUN0 P ERASE 1,W2,W2 @ " P MOVE TABLE,FVOLNAME(FILINDUS) V P B DEAUN5 | PDEAUN0 . P CALL CHANFC,DISK,DEBINW4 CHANGE FILECODE : P CALL GETVOL,DISK,RBUF,STRG10A,DEBINW4 GET VOLUMENAME
0x1ea020…1ea1b4 (1, 385) Opaque[0x194]
0x1ea1b4…1ea348 # DirEnt {nam=»DECVRT«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x12d0, f03=0x0000}
0x1ea1b4…1ea348 IdxSect {
0x1ea1b4…1ea348 f00 = 0x0096 // 0x1ea1b4 @0x0
0x1ea1b4…1ea348 f01 = 0x000c // 0x1ea1b6 @0x2
0x1ea1b4…1ea348 gno = [ // 0x1ea1b8 @0x4
0x1ea1b4…1ea348 [0x00]: C0x0096.0x2.0
0x1ea1b4…1ea348 [0x01]: C0x0096.0x3.0
0x1ea1b4…1ea348 [0x02]: C0x0097.0x0.0
0x1ea1b4…1ea348 [0x03]: C0x0097.0x1.0
0x1ea1b4…1ea348 [0x04]: C0x0097.0x2.0
0x1ea1b4…1ea348 [0x05]: C0x0097.0x3.0
0x1ea1b4…1ea348 ]
0x1ea1b4…1ea348 }
0x1ea348…1ea4dc Dummy {f00=0x0096, f01=0x0190, f02=» $ P IDENT DECVRT REL 10.0 80-04-11 P 80-10-28/JAER , * D @ <* THIS PROGRAM-MODUL CONTAINS ENTRIES TO THE DIFFERENT N < 8* CONVERTIONS THAT OCCURS IN THE FORMAT GENERATION * DDUM DEDDIV PDIV P* $
0x1ea4dc…1ea670 Dummy {f00=0x0096, f01=0x0190, f02=»ERT VARIABLE NUMBER (INDEX) TO BINARY P* . F P* INPUT PARAMETERS (FORMAL): WSTRG = WORKSTRING VAL/GEN/ACC 8 J P* CHNUM = NUMBER OF INPUT CHARACTERS L P* WIND = INDEX TO COR
0x1ea670…1ea804 Dummy {f00=0x0096, f01=0x0190, f02=»RSTRIN N J P* DEBIN4 = POINTER INPUTBUFFER WSTRG J P* DEBIN5 = NUMB OF DELETED CHARACTERS P* H P* WORKITEMS : DEBIN2 = LENGTH OF LITERAL STRING J P*
0x1ea804…1ea998 Dummy {f00=0x0096, f01=0x0190, f02=» N J P* BIN16 = MATCHING-POINTER 'VALSTR' < P* DEINPUT = WORK BUFFER V @ P* WORK(W5) = SAVED (-POSITION @ P* WORK(W6) = SA
0x1ea998…1eab2c Dummy {f00=0x0096, f01=0x0190, f02=»M = EFFEKTIV VAL-/GEN-/ACC-LENTH n L P* WSTRG = VAL-/GEN-/ACC-STRING CONVERT . P* ~ F P* DEBIN4 = POINTER WSTRG ADJUSTED L P* FBIN2 = HIGHEST FI
0x1eab2c…1eacc0 Dummy {f00=0x0096, f01=0x0190, f02=»G,CHNUM(),WIND , P MOVE BIN15,=W'31' LOAD LENGTH OF VALSTR " P CBE WIND,W4,CN00 JUMP IF DUPL F ( P DLETE WSTRG,DEBIN4,W3 DELETE '#X:' l 0 P SUB CHNUM(WIND),W3 ADJUST FOR FUNCTION TEXT 0 P ADD DEBIN5,W3 ADD NUMB OF DLETED CHARACTERS P EJECT
0x1eacc0…1eae54 (1, 386) Dummy {f00=0x0096, f01=0x0190, f02=»1 h ( P CBE BIN16,W23,CNCL JUMP IF LITERAL P ADD DEBIN4,W1 NEXT POS 6 " P CBE BIN16,W0,CNCM JUMP IF 'M' V ( P IB BIN16,CNC0,CNC0,CNC0,CNC0, 1-4 C | & P CNC3,CNC2,CNC0,CNCA,CNC2, 5-9 C ( P CNC1,CNC3,CNC2,CNC2,CNC0, 10-14 C ( P CNC0,CNC
0x1eae54…1eafe8 Dummy {f00=0x0096, f01=0x0190, f02=» P B CNC0 * PCNCM M=MESSAGE SPLIT,R/N=CONDFRM CH , P MOVE DEBIN3,DEBIN4 LOAD ACTUAL POSITION B 0 P MATCH WSTRG,DEBIN3,W1,VALSTR,W23,W1 M'...' r P BNOK CNC2 M99 P B CNCL P EJECT P* P* CNC0 NO CONVERTION P*
0x1eafe8…1eb17c Dummy {f00=0x0096, f01=0x0190, f02=»C1 CONVERT 1 BYTE TO BINARY P* $ PCNC1 . & P MOVE DEBIN3,W5 STARTPOS WORKITEM : * P PERF CONV,WSTRG,W1 CONVERT TO BINARY d 0 P SUB CHNUM(WIND),DEBIN3 ADJUST END POSITION P B CNC0 CHECK END-OF-LINE P EJECT P* 0 P*
0x1eb17c…1eb310 Dummy {f00=0x0096, f01=0x0190, f02=»OS WORKITEM z * P PERF CONV,WSTRG,W2 CONVERT TO BINARY 0 P SUB CHNUM(WIND),DEBIN3 ADJUST END POSITION B ( P CBNE BIN16,W12,CNC0 JUMP IF NOT 'T' v < P CBE DEBIN4,CHNUM(WIND),CNOKLB JUMP IF END OF LINE FOUND ( P MOVE DEBIN3,DEBIN4 LOAD WORKPOINTER
0x1eb310…1eb4a4 Dummy {f00=0x0096, f01=0x0190, f02=»OS WORKITEM z * P PERF CONV,WSTRG,W2 CONVERT TO BINARY 0 P SUB CHNUM(WIND),DEBIN3 ADJUST END POSITION B P B CNC0 CHECK END-OF-LINE v PCNOKLB P B CNOK P EJECT P* : P* CNC3 CONVERTION OF 3 BYTES TO BINARY -D,-F,-G
0x1eb4a4…1eb638 Dummy {f00=0x0096, f01=0x0190, f02=»* 2 P* CHECK IF RELATIVE SIGN + = /FF - = /FE P* @ * P MOVE DEBIN3,W15 STARTPOS IN VALSTRING J 6 P MATCH VALSTR,DEBIN3,W2,WSTRG,DEBIN4,W1 REL SIGN ? x " P BNOK CNC3Z NO REL SIGN FOUND P SUB DEBIN3,W15 ADJUST , P MOVE STR2A,=X'FFF
0x1eb638…1eb7cc Dummy {f00=0x0096, f01=0x0190, f02=» WORKITEM x * P PERF CONV,WSTRG,W2 CONVERT TO BINARY ( P ADD DEBIN2,BIN10 GET DIRECT REF.NO @ P B CNC3X l PCNC3Z | & P MOVE DEBIN3,W3 STARTPOS WORKITEM * P PERF CONV,WSTRG,W3 CONVERT TO BINARY PCNC3X 0 P SUB CHNUM(WIND),DEBIN3
0x1eb7cc…1eb960 Dummy {f00=0x0096, f01=0x0190, f02=». NO. d PCNC3B P B CNC0 CHECK END-OF-LINE P EJECT > P* L $ P* CNCL CONVERT TO LITERAL V P* ~ PCNCL ( P MOVE DEBIN2,CHNUM(WIND) SAVE ENDPOS P ADD DEBIN4,W1 NEXT POS , P SUB DEBIN2,DEBIN4 NUMB OF CHRS TO MATCH
0x1eb960…1ebaf4 (1, 387) Dummy {f00=0x0097, f01=0x0190, f02=»MB OF LIT-CHARS z " P MOVE DEBIN2,W128 1ST BIT = 1 * P ADD DEBIN2,DEBIN3 +LENGTH OF LITERAL > 0 P SUB DEBIN4,W1 ADJUST FOR OVERWRITE POSITION l 4 P XCOPY WSTRG,DEBIN4,W1,DEBIN2,W1 'L'='80'+LENGTH & P ADD DEBIN4,DEBIN3 ADJUST NEXT POS P ADD D
0x1ebaf4…1ebc88 Dummy {f00=0x0097, f01=0x018e, f02=»IN5,W1 NUMB OF DELETED CHARCTERS P B CNC0 GO ON ( P* > 6 P* CNCA CONVERT FOR CONDITIONAL ACCUMULATION H P* PCNCA 'A'-FOUND & P MOVE DEBIN3,DEBIN4 SAVE CURR POS , P MATCH WSTRG,DEBIN3,W1,VALSTR,W29,W1 (-? ( P BNOK CNC2
0x1ebc88…1ebe1c Dummy {f00=0x0097, f01=0x0190, f02=» ^ P* PCNCG 'G'-FOUND & P CBNE WIND,W2,CNC3 JUMP IF NOT GEN * PCNCX T ( P SUB DEBIN4,W1 ADJUST FOR CONVERTION ` , P XCOPY WSTRG,DEBIN4,W1,VALSTR,W0 G/A=>M P ADD DEBIN4,W1 NEXT POS $ P MOVE WORK(W8),DEBIN4 SAVE (-POS ( P MOV
0x1ebe1c…1ebfb0 Dummy {f00=0x0097, f01=0x0190, f02=» MOVE BIN16,=W'30' . P MATCH WSTRG,DEBIN3,DEBIN2,VALSTR,BIN16,W1 $ P MOVE WORK(W9),DEBIN3 SAVE)-POS L P ADD DEBIN4,W1 NEXT POS t * P SUB DEBIN3,DEBIN4 =NUMB OF LIT CHARS , P MOVE WORK(W7),DEBIN3 SAVE (...)-LENGTH P B CNC0 GO ON P
0x1ebfb0…1ec144 Dummy {f00=0x0097, f01=0x0190, f02=»UB WORK(W9),DEBIN4 =DIFFERENCE ( P SUB WORK(W7),WORK(W9) =REAL LENGTH & " P ADD WORK(W7),W128 1ST BIT = 1 R 6 P XCOPY WSTRG,WORK(W8),W1,WORK(W7),W1 (...)-LENGTH x * P DLETE WSTRG,DEBIN4,W1 DELETE )-CHARS & P SUB CHNUM(WIND),W1 ADJUST ENDPOS ,
0x1ec144…1ec2d8 Dummy {f00=0x0097, f01=0x0190, f02=»ION j , P SUB BIN15,DEBIN1 SUBTRACT STARTPOSITION 0 P MOVE CHNUM(WIND),BIN15 GIVING NUMB OF CHARS < P RET p P PEND | P EJECT P* 8 P* CONVERTS NUMERIC STRINGCHARACTERS TO BINARY P* J P* INPUT VARIABLES : NUMB(
0x1ec2d8…1ec46c Dummy {f00=0x0097, f01=0x0190, f02=» WSTRG = ACTUAL WORKSTRING VAL/GEN OR ACC P* B H P* WORK ITEMS : DEBIN2 = CONVERTED NUMERIC VALUE BINARY L D P* BCD13A = CONVERTED NUMERIC VALUE BCD < P* STR6A = NUM
0x1ec46c…1ec600 Dummy {f00=0x0097, f01=0x0190, f02=»B OF DELETED CHARS h L P* WSTRG = WORKBUFFER WITH CONVERTED CHARACTER > P* DEBIN3 = NUMB OF DELETED CHARS j H P* DEBIN2 = CONVERTED NUMERIC VALUE BINARY P* L P******
0x1ec600…1ec794 (1, 388) Dummy {f00=0x0097, f01=0x0190, f02=»IN4 COPY STRGNUM n $ P MOVE BCD13A,STR6A LOAD STR=>BCD & P MOVE DEBIN2,BCD13A LOAD BCD=>BIN @ 6 P XCOPY WSTRG,DEBIN4,W1,DEBIN2,W1 LOAD VARNR BINARY j 4 P MOVE DEBIN3,NUMB STORE NUMB CONVRTD CHARACTERS P SUB DEBIN3,W1 P ADD DEBIN4,W1 NEXT PO
0x1ec794…1ec928 Dummy {f00=0x0097, f01=0x0190, f02=» P* 6 P* THIS ROUTINE CONVERTS BINARY NUMERICALS TO * P* ALPHANUMERIC STRING CHARACTERS L P* z D P* FORMAL PARAMETER : WSTRG = JOBSPC (VALIDATION STRING) D P* = DUPL (DUPLICATION STR
0x1ec928…1ecabc Dummy {f00=0x0097, f01=0x0190, f02=» = 3 = ACCUMULATION 8 P* = 4 = DUPLICATION 4 P* p < P* INPUT VARIABLES : BIN15 = LENGTH OF FUNC-CODE z : P* DEBIN3 = POINTER TO WSTRG H P*
0x1ecabc…1ecc50 Dummy {f00=0x0097, f01=0x0190, f02=» DEBIN1 = WORK L P* DEBIN2 = LENGTH OF MATCHSTRING (VALSTR = 31) , : P* DEBIN4 = BINARY NUMERICALS | B P* FBIN1 = CHECK END OF OF FUNC-CODE F P*
0x1ecc50…1ecde4 Dummy {f00=0x0097, f01=0x0190, f02=» BIN15 = ADJUSTED ACCORDING TO CONVERTED 2 P* CHARACTERS F J P* CURSEC= ADJUSTED WITH INPUT VALUE OF BIN15 | P* L P****************************************************
0x1ecde4…1ecf78 Dummy {f00=0x0097, f01=0x0190, f02=»ORKSTRING Z . P MOVE DEBIN2,=W'31' LOAD LENGTH OF VALSTR & P ADD CURSEC,BIN15 ADJUST FOR CHARS D " P CBE OPT,W4,BN00 JUMP IF DUPL n & P ADD BIN15,W3 ADJUST FOR FUNC.TEXT * P CLEAR BOOL4 F=NO CONDITIONAL GEN/ACC PBN00 & P MOVE BIN16,W0 M
0x1ecf78…1ed10c Dummy {f00=0x0097, f01=0x0190, f02=» CBE BIN16,W0,BNME JUMP IF MESSAGE ( P IB BIN16,BNC0,BNC0,BNC0,BNC0, 1-4 C * & P BNC3,BNC2,BNC0,BNC2,BNC2, 5-9 C V ( P BNC1,BNC3,BNC2,BNC2,BNC0, 10-14 C ( P BNC0,BNC0,BNC0,BNC0,BNC0, 15-19 C ( P BNC0,BNC0,BNC0,BNCR,BNC0, 20-24 C P BN
0x1ed10c…1ed2a0 Dummy {f00=0x0097, f01=0x0190, f02=»YTE j * P CBG DEBIN4,W128,BNCL JUMP IF LITERAL P B BNCR RETUR : P* P 6 P* CHECK MESSAGE TYPE AND CONDITIONAL GEN/ACC Z P* PBNME P IB OPT,BNMS,BNMG,BNMA PBNMS P ADD DEBIN3,W1 NEXT POS * P ADD FBIN1,W1 ADJUST
0x1ed2a0…1ed434 (1, 389) Dummy {f00=0x0097, f01=0x0190, f02=»EBIN3,W1 ADJUST FOR 2CHAR-CONVERTION * P SUB FBIN1,W1 ADJUST NUMB OF CONVERTED , P B BNC2 M99 Z P EJECT n P* | P* CONVERT 1 CHARACTER P* PBNC1 , P PERF CONBIN,WSTRG,W1 CONVERT BIN=>STRG P* P* CONVE
0x1ed434…1ed5c8 Dummy {f00=0x0097, f01=0x0190, f02=»A JUMP IF NO COND GEN/ACC 6 P CBNE WORK(W7),DEBIN3,BNCA JUMP IF ENDPOS OF COND " P MOVE DEBIN1,=W'30' 2 P INSRT WSTRG,DEBIN3,W1,VALSTR,DEBIN1 INSERT ) x P ADD DEBIN3,W1 NEXT POS , P ADD FBIN1,W1 ADJUST NUMBER OF CONVERTED P ADD BIN15
0x1ed5c8…1ed75c Dummy {f00=0x0097, f01=0x0190, f02=»GO ON P EJECT P* " P* CONVERT 2 CHARACTERS & P* L PBNC2 V , P PERF CONBIN,WSTRG,W2 CONVERT BIN=>STRG b ( P CBNE BIN16,W12,BNC0 JUMP IF NOT 'T' P ADD DEBIN3,W1 NEXT POS * P ADD FBIN1,W1 ADJUST NUMB OF CONVERTED
0x1ed75c…1ed8f0 Dummy {f00=0x0097, f01=0x0190, f02=» " P BNOK BN00 GO MATCH CHARACTER ! , P PERF CONBIN,WSTRG,W2 CONVERT BIN=>STRG ! * P B BNC0 ! Z P* ! j P* CONVERT 3 CHARACTERS ! t P* ! PBNC3 ! ( P CBNE BIN16,W5,BNC3A JUMP IF NOT (D) ! , P CBE BIN15,W1,BNC0 JUMP IF 1 CH =D=DATUM !
0x1ed8f0…1eda84 Dummy {f00=0x0097, f01=0x0190, f02=» ! l > P MATCH STR2A,DEBIN1,W2,WSTRG,DEBIN3,W1 LOOK FOR REL SIGNS " " P BNOK BNC3B NO REL SIGNS FOUND " J . P ADD DEBIN1,W15 ADJUST FOR VALSTRPOSITION " p @ P XCOPY WSTRG,DEBIN3,W1,VALSTR,DEBIN1 CONVERT TO SOURCE-SIGN " * P ADD FBIN1,W1 ADJUST NUMB OF CONVE
0x1eda84…1edc18 Dummy {f00=0x0097, f01=0x018e, f02=»BIN=>STRG " r P B BNC0 # P EJECT # " P* # 0 , P* CONVERT LITERAL (INSERT '....') # : P* # j PBNCL # t * P SUB DEBIN4,W128 GET LENGTH OF LITERAL # 2 P XCOPY WSTRG,DEBIN3,W1,VALSTR,W23 INSERT 1ST ' # 0 P ADD DEBIN3,DEBIN4 ADJUST BUFPOS WIT
0x1edc18…1eddac Dummy {f00=0x0097, f01=0x0190, f02=» # h 2 P INSRT WSTRG,DEBIN3,W1,VALSTR,W23 INSERT 2ND ' $ P ADD BIN15,W1 ADJUST LENGTH $ > , P TBF BOOL4,BNC0 GO ON IF NO COND GEN ACC $ b 4 P ADD WORK(W7),W1 ADJUST ENDPOS FOR COND GEN/ACC $ P B BNC0 $ P EJECT $ PBNMG COND GEN FOUND $ P M
0x1eddac…1edf40 Dummy {f00=0x0097, f01=0x0190, f02=»BIN1 CONVERT M=>G/A $ p P ADD DEBIN3,W1 NEXT POS % & P ADD FBIN1,W1 ADJUST NUMB OF CONV % < & P MOVE WORK(W7),W0 (...)-LENGTH:=0 % f & P XCOPY WORK(W7),W1,W1,WSTRG,DEBIN3 % 2 P SUB WORK(W7),W128 GET LENGTH 0F (...)-STRING % 4 P XCOPY WSTRG,DEBIN3,W1,V
0x1edf40…1ee0d4 (1, 390) Dummy {f00=0x0097, f01=0x0190, f02=»ONAL GEN/ACC FOUND % | P B BNC0 GO ON & PBNCR & 0 P RET & < P PEND & H P EJECT & V P* & d B P* CONVERT BINARY NUMERICALS ,FROM ACTUAL POINT IN BUFFER & n @ P* TO ALPHANUMERIC CHARACTER STRING. AND COPIES IT INTO & ( P* THE SAME
0x1ee0d4…1ee268 Dummy {f00=0x0097, f01=0x0190, f02=»**************************************************************** & PCONBIN PROC WSTRG,FIND ' H P ADD DEBIN3,W1 NEXT POS ' f 0 P XCOPY DEBIN4,W1,W1,WSTRG,DEBIN3 COPY BINNUM ' & P MOVE BCD13A,DEBIN4 LOAD BIN=>BCD ' P MOVE DEBIN1,W0 ZEROISE ' 2 P EDS
0x1ee268…1ee3fc Dummy {f00=0x0097, f01=0x0190, f02=»,W0 INSERT STRG-CHARACTERS ' p P SUB DEBIN1,W1 ADJUST ( " $ P ADD BIN15,DEBIN1 ADJUST LENGTH ( @ $ P ADD DEBIN3,DEBIN1 ADJUST BUFPOS ( h . P ADD FBIN1,DEBIN1 ADJUST NUMB OF CONVERTED ( * P ADD FBIN1,W1 ADJUST NUMB OF CONVERTED ( . P TBF BOOL4,CONRET GO ON
0x1ee3fc…1ee590 Dummy {f00=0x0097, f01=0x40de, f02=»V FTABLE CONV1,CONV2,CONV3 ( PCONV1 FRMT ) " P FMEL '9',BCD13A ) 4 P FMEND ) L PCONV2 FRMT ) Z P FMEL '99',BCD13A ) l P FMEND ) PCONV3 FRMT ) P FMEL '999',BCD13A ) P FMEND ) END ) @ ) CONVERTED ( . P TBF BOOL4,CONRET GO ON
0x1ee590…1ee724 Dummy {f00=0x0097, f01=0x2008, f02=» * % r . P TBF BOOL4,CONRET GO ON IF NO COND GEN ACC & 0 P ADD WORK(W7),DEBIN1 ADJUST ENDPOS OF (...) & B PCONRET & v P RET & P PEND & P EJECT & " PFCONV FTABLE CONV1,CONV2,CONV3 & PCONV1 FRMT & P FMEL '9',BCD13A & P FMEND &
0x1ee724…1ee8b8 Dummy {f00=0x0097, f01=0x0190, f02=» & V D ! P $ * | T:TINP + T:TKI + 0 , ( u ! P %_ : V + B , ( Y " X .9H $ P + r , ( & X ( " Q Y +Q R " P W + I:ER16 + , ( " U Y , " Q "
0x1ee8b8…1eea4c Dummy {f00=0x0097, f01=0x0190, f02=» P + t , ( I W X ! X $" P Q X (# P X , , ( i # :! R W T @ Y ( , D T:ENIN , t T:ENI , I:EXIT , , ( W Y , W Y ( , , ( : X *:h X (! # P X & V , , (
0x1eea4c…1eebe0 Dummy {f00=0x0097, f01=0x0190, f02=» , h , ( # P Y (_ P P Y - T:WRDY - 8 , ( C 8 & X 8 X $ W _ - J , ( a " P X ( T X & V H "@T - z , ( P V Y X (P - T:CLMI - , ( X (
0x1eebe0…1eed74 (1, 391) Opaque[0x194]
0x1eed74…1eef08 # DirEnt {nam=»DENVAL«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x1300, f03=0x0000}
0x1eed74…1eef08 IdxSect {
0x1eed74…1eef08 f00 = 0x0098 // 0x1eed74 @0x0
0x1eed74…1eef08 f01 = 0x000e // 0x1eed76 @0x2
0x1eed74…1eef08 gno = [ // 0x1eed78 @0x4
0x1eed74…1eef08 [0x00]: C0x0098.0x0.0
0x1eed74…1eef08 [0x01]: C0x0098.0x1.0
0x1eed74…1eef08 [0x02]: C0x0098.0x2.0
0x1eed74…1eef08 [0x03]: C0x0098.0x3.0
0x1eed74…1eef08 [0x04]: C0x0099.0x0.0
0x1eed74…1eef08 [0x05]: C0x0099.0x1.0
0x1eed74…1eef08 [0x06]: C0x0099.0x2.0
0x1eed74…1eef08 ]
0x1eed74…1eef08 }
0x1eef08…1ef09c Dummy {f00=0x0098, f01=0x0190, f02=» $ P IDENT DENVAL REL 10.0 80-04-11 P UPD-11-17/DALI , P UPD 80-10-28/DALI F P UPD 80-10-21/DALI b P UPD 80-08-22/DALI ~ P UPD 80-06-28/DALI P UPD 80-04-29/DALI P UPD 80-04-24/DALI P DDUM DEDDIV P PDIV
0x1ef09c…1ef230 Dummy {f00=0x0098, f01=0x0190, f02=»IDATION- x P STRING FOR CURRENT FIELD ( P EXT DECOMP USER OR STANDARDROUTINE 4 P TO VALIDATE CURRENT INPUT ` . P EXT EMPTYT ASSEMBLY SUBROUTINE EMPTYT - " P TEST IF DATA ITEM IS EMPTY * P EXT CLEARB CLEAR A BIT IN A BIN ITEM &
0x1ef230…1ef3c4 Dummy {f00=0x0098, f01=0x0190, f02=»DB ASSEMBLY SUBROUTINE ATTDB - P ATTACH DESCRIPTORBLOCK & * P EXT ATTWB ASSEMBLY SUBROUTINE ATTWB - H P ATTACH WORKBLOCK v & P EXT DEPOOL POOL HANDLING ROUTINE $ P EXT DEFIND FIELD INDEX ROUTINE ( P EXT DEAPPU USER-CODED APPL-HANDLING
0x1ef3c4…1ef558 Dummy {f00=0x0098, f01=0x0190, f02=» MEANING THAT EMPTY P COMPULSURY FIELDS IS P FOUND,WILL "NOT" BE < P INDICATED Z , P EXT ADJUST ASSEMBLY SUBROUTINE ADJUST - n " P ADJUST FORMATPOINTERS AFTER P EXECUTION OF GETFWD P EXT GETIND P EXT CMPIND
0x1ef558…1ef6ec Dummy {f00=0x0098, f01=0x0190, f02=» P* 4 P* DOOL1= NOT FLAG > P* DOOL2= INSERTION OF RECORD F 6 P* DOOL3= ENTRY MODE @ P* DOOL4= GETFLD TO OTHER FIELD B P*
0x1ef6ec…1ef880 Dummy {f00=0x0098, f01=0x0190, f02=» DOOL6= ABSOLUTE VALUE F P* DOOL7= NOT CURRENT ITEM IN DEINPUT 8 B P* DOOL8= BATCHHEAD FOR NEW BATCH 6 P* BIN11= POOLINDEX : P*
0x1ef880…1efa14 (1, 392) Dummy {f00=0x0098, f01=0x0190, f02=» BIN14= CONDITIONAL TAB.-FIELD ~ < P* (NEXT FIELD) 8 PDENVAL PROC FC x P MOVE BIN8,W0 " P MOVE BIN3,W0 USED AS POINTER P TO ERRORMESSAGE . P CLEAR BOOL4 F=NO RECORD CHANGE FOUN
0x1efa14…1efba8 Dummy {f00=0x0098, f01=0x0190, f02=»OVE DEBINW4,W2 & P GETABX BIN8 SAVE CURRENT FIELD.NR . P CBNE DEBINW1,W0,DENV10 KEYINPUTLENGTH = 0 @ , P PERF DEEDIT,W3 PUT FMTITEM INTO DEINPUT r P B DENV20 PDENV10 & P TBF DOOL5,DENV30 JUMP IF NOT DUPL PDENV20 & P MOVE WORK(W5)
0x1efba8…1efd3c Dummy {f00=0x0098, f01=0x018e, f02=»DEACCU C P DENV50 DEGENE , P GETCTL 0,DEBINW3 GET APPL-VALUE;DENTER ( ( P CBE DEBINW3,W0,DENV50 NO APPL-VALUE X ( P PERF DEAPPU USERCODED APPL-HANDLING $ P IB DEBINW3,DENV45 UPDFLD = 1 C P UPDR40 SET CURSOR C P DENV42 ERROR PRI
0x1efd3c…1efed0 Dummy {f00=0x0098, f01=0x0190, f02=» z P SET REWRT PDENV50 ( P MOVE BIN4,DEBINW1 SAVE INPUTLENGTH ( * P MOVE STATSH,DEINPUT SAVE KEYED INPUT T " P MOVE BIN2,BIN8 SAVE TAB.INDEX P EJECT P* P* EXECUTE VALIDATION P* PUPDV0A P ADD BIN13,BIN12
0x1efed0…1f0064 Dummy {f00=0x0098, f01=0x0190, f02=» P MOVE STR64A,='M/=><DGRN' P MOVE BIN5,W0 * 0 P MATCH STR64A,BIN5,W9,BPOOL(BIN11),BIN12,W1 @ P BOK UPDV16 t P CLEAR DOOL7 P BNZ DECOMT NOT OKEY P MOVE STR64A,='ASUFFFX' P MOVE BIN9,W0 0 P MATCH STR64A,BIN9,W7,BPOO
0x1f0064…1f01f8 Dummy {f00=0x0098, f01=0x0190, f02=»JUMP IF X | P PERF DEFIND,BIN8,BIN10 P ADD BIN12,W1 2 P CLEAR ALPHA F=ALPHATEST H P CBE BIN8,W0,UPDV04 h PUPDV05 P PERF DEEDIT,BIN9 P B UPDV06 PUPDV04 $ P MOVE BIN8,BIN2 CURRENT TABINDEX PUPDV06 0 P IB BI
0x1f01f8…1f038c Dummy {f00=0x0098, f01=0x0190, f02=»SEU1,X.PSEU2,X.WB10,BIN8 | * P CBE BIN7,W3,UPDV01 JUMP IF ALPHA STRG PUPDV09 N P SET ALPHA T=BCD-NUM P B UPDV01 x PUPDV16 2 P IB BIN5,UPDV20,UPDV30,UPDV30,UPDV30,UPDV25 C P UPDGOT,UPDFOR,UPDFON PUPDE00 HHANDLE ERRORCODE
0x1f038c…1f0520 Dummy {f00=0x0098, f01=0x018e, f02=»W0,W1,BIN11,W1 SAVE POOLINDEX P CBL DEBINW4,W128,UPDE10 & P MOVE BIN9,=X'3F' F P CALL MSKOUT,BIN9,DEBINW4 ` P ADD BIN12,BIN9 PUPDE10 P ADD BIN12,W1 P CBL BIN12,BIN13,UPDV01 & P B DECERR JUMP IF END OF VALSTRING P
0x1f0520…1f06b4 (1, 393) Dummy {f00=0x0098, f01=0x0190, f02=» P BNZ DECERR P PERF DEFIND,BIN8,BIN9 P GETFLD 0,BIN8,BIN9 : P MOVE WORK(W6),BIN11 V P MOVE WORK(W7),BIN12 r P MOVE WORK(W8),BIN13 , P CALL GETVAL,BPOOL(W1),BIN11,BIN12,BIN13 P BNOK DECERR P B UPDV0A P* $
0x1f06b4…1f0848 Dummy {f00=0x0098, f01=0x0190, f02=»'+-*:' P MOVE BCDI21(W1),=D'0' 0 P MATCH STR64A,BIN6,W4,BPOOL(BIN11),BIN12,W1 , P BOK UPDV35 ` ( P MOVE BIN6,W0 IF ARITHMETIC SIGN IS t " P B UPDV37 OMITTED + IS ASSUMED PUPDV35 " P ADD BIN12,W1 INCREASE POINTER PUPDV37 P
0x1f0848…1f09dc Dummy {f00=0x0098, f01=0x0190, f02=»N9,W10 STRING-COMPARISION P B UPDV60 " PUPDV50 4 P ADD BIN12,W1 ADJUST POINTER B P CBNL BIN9,W8,UPDV65 f PUPDV60 P PERF DEFIND,BIN8,BIN10 P ADD BIN12,W1 ADJUST POINTER PUPDV65 @ P IB BIN9,UPDABS,UPDACC,UPDSYS,UPDUSE,U
0x1f09dc…1f0b70 Dummy {f00=0x0098, f01=0x0190, f02=» PUPDABS P SET DOOL6 P B UPDE10 ( P* : PUPDACC HANDLE ACCUMULATOR D P CALL CMPIND,BIN8,ACK(W1) h P BNOK DECERR OUT OF RANGE P MOVE BCDI21(W2),ACK(BIN8) P B UPDN50 P EJECT P* " PUPDSYS HANDLE
0x1f0b70…1f0d04 Dummy {f00=0x0098, f01=0x0190, f02=» r P TSTCTL 0 LOOK IF ALPHA P BZ UPDS30 JUMP IF BCD ( P B UPDS03 F PUPDS01 X & P TBT ALPHA,UPDS30 JUMP IF BCD-NUM f PUPDS03 P IB BIN9,UPDS05 & P CALL GETIND,SYSV(W1),BIN15,BIN10 P B UPDS10 PUPDS05 6 P CALL GE
0x1f0d04…1f0e98 Dummy {f00=0x0098, f01=0x018e, f02=» P MOVE BIN10,W0 P IB BIN9,UPDS15 2 P MATCH DEINPUT,BIN10,BIN15,SYSV(BIN8),W0,BIN15 2 P B UPDS20 h PUPDS15 z 2 P MATCH DEINPUT,BIN10,BIN15,USEV(BIN8),W0,BIN15 PUPDS20 P BOK DECEGL P B DECNOT PUPDS30 P IB BIN9
0x1f0e98…1f102c Dummy {f00=0x0098, f01=0x0190, f02=» PUPDS50 P CALL CMPIND,BIN8,USEV(W1) P BNOK DECERR OUT OF RANGE 4 P MOVE BCDI21(W2),USEV(BIN8) V P B UPDN50 z P EJECT P* ( PUPDFLD HANDLE FIELD WITHIN FORMAT P* & P CBNE BIN8,W0,UPDF10 CURRENT FIELD ( P MOV
0x1f102c…1f11c0 Dummy {f00=0x0098, f01=0x0190, f02=»F NOT ALPHA t P GETCTL 1,BIN10 GET MAXL P SET DOOL4 4 P MOVE BIN7,W0 F P CON X.MATCH,X.PSEU1,X.PSEU2 P CON X.WB10,BIN8 P CON BIN7,BIN10,HEX00,W0,W1 P CMP DEBINW1,BIN7 P BNE DECNOT INVALID LENGTH P MOVE BIN10,W0
0x1f11c0…1f1354 (1, 394) Dummy {f00=0x0098, f01=0x018e, f02=»ECNOT PUPDF40 NUMERIC * P CON X.MOVE,BCDI21(W2),X.PSEU1,X.PSEU2 & P CON X.WB10,BIN8 T P B UPDN50 l P* ~ P EJECT PUPDSET HANDLE VALUESET P CMP BIN5,W0 P BNZ DECERR & P MOVE VSEIND,W0 VALUE-SET INDEX:=0 P
0x1f1354…1f14e8 Dummy {f00=0x0098, f01=0x0190, f02=» d P BOK UPDSET05 P MOVE BIN9,W0 P MOVE ELMNO,W1 4 P B UPDSET07 J PUPDSET05 ^ P ADD BIN12,W1 n ( P XCOPY BIN9,W1,W1,BPOOL(BIN11),BIN12 P ADD BIN12,W1 P MOVE ELMNO,BIN9 PUPDSET07 P MOVE TABLE,BCD3A P
0x1f14e8…1f167c Dummy {f00=0x0098, f01=0x0190, f02=» P PERF DEDISC,W24 GET VALUSET P BOK UPDSET20 ( P CBE PINDTB,W0,UPDSET18 > PUPDSET15 ^ ( P PERF DEPOOL,W6,PINDTB,BIN10,STRG10A n PUPDSET18 P CMP W0,W1 P B DECO05 PUPDSET20 P MOVE BIN15,W0 WORK:=0 $ P CALL ATTWB,
0x1f167c…1f1810 Dummy {f00=0x0098, f01=0x0190, f02=»(PINDTB),W18 STORE ENDINDEX OF POOL x P SUB ELMNO,BIN16 , P ADD ELMNO,W1 D . P TBT DOOL7,UPDSET24 JUMP IF NOT CURR FIELD Z P TSTCTL 0 LOOK IF ALPHA P BZ UPDSET30 JUMP IF BCD P B UPDSET26 PUPDSET24 ( P TBT ALPHA,UPDSET30 JUMP
0x1f1810…1f19a4 Dummy {f00=0x0098, f01=0x0190, f02=» , P MATCH DEINPUT,BIN6,BIN8,STATSH,W0,BIN8 P BOK UPDSET40 4 P CBNE BIN9,W0,UPDSET15 J P ADD ELMNO,W1 NEXT ELEMENT h . P ADD BIN16,W1 INCREMENT STARTINDEX OF POOL 2 P CMP BIN16,BIN15 JUMP ALL EL. OF POOL COMPARED P BG DECN10 JUMP IF GRA
0x1f19a4…1f1b38 Dummy {f00=0x0098, f01=0x0190, f02=»16 INDEX OF CURR BUFF ( P PERF DEPOOL,W6,PINDTB,BIN10,STRG10A P CMP W0,W0 CONDITION ZERO J P B DECO05 l P* ~ PUPDCOD P PERF DECOMP,BIN8 P B DECO05 P* PUPDEMP P CALL EMPTYT,DEINPUT P BP DECEGL P
0x1f1b38…1f1ccc Dummy {f00=0x0098, f01=0x0190, f02=» SET ELINDEX n P B UPDN50 P EJECT & P* 4 " PUPDGOT GO TO VALIDATION (G) > . P CLEAR BOOL4 F=NO RECORD CHANGE FOUND (R) d . P CLEAR BOOL8 F=NO RECORD CHANGE FOUND (N) P ADD BIN12,W1 ADJUST POINTER $ P SET BOOL6 T=COND TAB FOUND
0x1f1ccc…1f1e60 Dummy {f00=0x0098, f01=0x0190, f02=» VALIDATION (R) z P MOVE DEBINW4,W4 . P CLEAR BOOL8 F=NO RECORD CHANGE FOUND (N) 0 ( P SET BOOL4 T=COND FORM CH FOUND (R) b P B UPDFO2 P* * PUPDFON CHANGE FORMAT VALIDATION (N) P MOVE DEBINW4,W3 (N) . P CLEAR BOOL4 F=NO RE
0x1f1e60…1f1ff4 (1, 395) Dummy {f00=0x0099, f01=0x0190, f02=» BIN12,W1 ADUST BUFFER POINTER P MOVE BIN16,W0 WORK:=0 & < P XCOPY BIN16,W1,W1,BPOOL(BIN11),BIN12 LOAD NUMB OF CHARS D * P SUB BIN16,W128 ADJUST LIT.-INDICATOR ( P ADD BIN12,W1 ADJUST BUFFER POINTER P MOVE STSAVE(DEBINW4),HEX00 6 P XCOPY
0x1f1ff4…1f2188 Dummy {f00=0x0099, f01=0x018e, f02=» P* PUPDNUM P MOVE BIN9,=X'3F' P CALL MSKOUT,BIN9,BIN8 6 P MOVE STR1A,='?' T * P MOVE BIN10,BIN12 SAVE CURRENT POINTER l . P MATCH BPOOL(BIN11),BIN10,BIN9,STR1A,W0,W1 " P BNOK UPDN06 JUMP IF NO '?':S * P MOVE BIN8,W0 COUNTER
0x1f2188…1f231c Dummy {f00=0x0099, f01=0x0190, f02=» " P MOVE BIN8,W1 ADJUST FOR SIGN PUPDN01 . P ADD BIN9,BIN12 < PUPDN00 T P MOVE BIN10,BIN8 b 2 P MATCH DEINPUT,BIN10,W1,BPOOL(BIN11),BIN12,W1 z " P BNOK UPDN04 NOT OK MAYBE '?' PUPDN02 " P ADD BIN8,W1 INCREMENT COUNTER (
0x1f231c…1f24b0 Dummy {f00=0x0099, f01=0x0190, f02=» UPDN30 PUPDN03 ! P ADD BIN12,W1 ADJUST POINTER ! P B UPDN00 GO ON MATCH ! B PUPDN04 ! ` & P MOVE BIN10,BIN12 LOAD MATCH POINT ! n , P MATCH BPOOL(BIN11),BIN10,W1,STR1A,W0,W1 ! P BOK UPDN02 GO ON '?' FOUND ! P B UPDN30 ! PUPDN06 !
0x1f24b0…1f2644 Dummy {f00=0x0099, f01=0x0190, f02=»BE DEBINW1,BIN9,UPDN20 ! * P ADD BIN12,BIN9 ADJUST POINTER IN FVAL " P B DECNOT " L PUPDN10 " ^ & P TBT ALPHA,UPDN40 JUMP IF BCD-NUM " l PUPDN20 " P MOVE BIN10,W0 " P ADD BIN9,BIN12 " < P MATCH DEINPUT,BIN10,DEBINW1,BPOOL(BIN11),BIN12,DEBINW
0x1f2644…1f27d8 Dummy {f00=0x0099, f01=0x0190, f02=» COPY STR64A,W0,BIN9,BPOOL(BIN11),BIN12 " P MOVE BCDI21(W2),STR64A # 0 P ADD BIN12,BIN9 # P PUPDN50 # h P CLEAR DOOL6 # v P BZ UPDN55 # P CALL CLEARB,BCDI21(W2),W1 # P CALL SETB,BCDI21(W2),W2 # PUPDN55 # " P IB BIN6,UPDN60,UPDN70,UPDN8
0x1f27d8…1f296c Dummy {f00=0x0099, f01=0x0190, f02=»1(W1),BCDI21(W2) # P B UPDN90 $ $ PUPDN80 DIV BCDI21(W1),BCDI21(W2) $ * PUPDN90 MOVE BIN6,W0 $ R , P CBNL BIN12,BIN13,UPDN95 JUMP IF END OF $ n P VALIDATION STRING $ P MOVE STR64A,='+-*:' $ 0 P MATCH STR64A,BIN6,W4,BPOOL(BIN11),BIN12,W1 $ (
0x1f296c…1f2b00 Dummy {f00=0x0099, f01=0x0190, f02=» 6 P IB BIN5,DECO10,DECO20 JUMP ON COMPARE-SIGN-INDEX % P BZ DECEGL = % > P B DECNOT /= % R PDECO10 % f P BEOF DECEGL > % t P B DECNOT /> % PDECO20 % P BERR DECEGL < % P /< % PDECNOT CLEAR DOOL1 % P BNZ DECOOK VALID % * P CBE
0x1f2b00…1f2c94 (1, 396) Dummy {f00=0x0099, f01=0x0190, f02=» ELEMENT % ~ . P ADD BIN16,W1 INCREMENT STARTINDEX OF POOL & : P CBG BIN16,BIN15,DECN10 JUMP ALL EL. OF POOL COMPARED & B 6 P MOVE BCDI21(W1),FDVBCD(ELMNO) NEXT ELEMENT VALUE & P B UPDN95 GO ON NEXT COMPARE & PDECN10 & < P XCOPY BIN15,W0,W2,RPOOL(PIN
0x1f2c94…1f2e28 Dummy {f00=0x0099, f01=0x0190, f02=»N16 LOAD SAERCH ELEMENT NEXT SEGM. & 0 P PERF DEPOOL,W6,PINDTB,BIN10,STRG10A RELEASE ' * ( P B UPDSET10 GO ON READ NEXT SEGMENT ' ^ PDECEGL CLEAR DOOL1 ' P BZ DECOTK VALID ' P EJECT ' PDECONO ' P MOVE BIN10,W21 V OR ' , P TBT BOOL6,DECOMT JU
0x1f2e28…1f2fbc Dummy {f00=0x0099, f01=0x0190, f02=»LB ITEM NOT VALID ' P B DECOMT ( P EJECT ( , PDECOTK ( : 8 P CBE PINDTB,W0,DECOOK JUMP IF EOF VALUE-SET/NO VSET ( H * P MOVE VSEIND,BIN16 INDEX OF CURR BUFF ( PDECOOK ( P MOVE BIN10,W20 & ( P CLEAR DOOLB ITEM VALID ( PDECOMT ( P
0x1f2fbc…1f3150 Dummy {f00=0x0099, f01=0x0190, f02=»E BIN9,W0 ( P MOVE BIN16,=W'29' ) 2 P MATCH VALSTR,BIN9,BIN16,BPOOL(BIN11),BIN12,W1 ) , P BOK DECO40 ) b PDECO35 ) v ( P XCOPY BIN8,W1,W1,BPOOL(BIN11),BIN12 ) P CALL TESTB,BIN8,W8 ) P BZ DECO38 ) P MOVE BIN9,=X'3F' ) P CALL MSKOUT,BIN
0x1f3150…1f32e4 Dummy {f00=0x0099, f01=0x0190, f02=»CO37 NOT = & ) ~ * P PERF DENVCO CONDITIONAL BOOL SETTING * PDECO37 * B P ADD BIN12,W1 * P * P CBNL BIN12,BIN13,DECEND END OF STRING * f P MOVE BIN9,W0 * P MOVE STR6B,=C'DGRN' * . P MATCH STR6B,BIN9,W4,BPOOL(BIN11),BIN12,W1 * P BNOK DECERR *
0x1f32e4…1f3478 Dummy {f00=0x0099, f01=0x018e, f02=»OT C * z P DECO41 2== EQUAL C + P DECO41 3=> GREATER C + * P DECO41 4=< LESS C + J P DECO45 5=D DUPLICATE C + f P DECO42 C + P DECO41 C + P DECO42,DECO42,DECO42 C + P DECO45 11=F FIELD C + P DECO42 C + P DE
0x1f3478…1f360c Dummy {f00=0x0099, f01=0x0190, f02=» $ P DECO41,DECO41,DECO41, 22-24 C , P DECO45 25=G GOTO C , , P DECO46 26= C , H P DECO46 27= C , ^ P DECO41 , t P ADD BIN12,W1 MESSAGE , P B DECO35 , PDECO43 , P CBNE BIN9,BIN10,DECO44 , P ADD BIN12,W1 ADJUST POINTER , P B
0x1f360c…1f37a0 Dummy {f00=0x0099, f01=0x0190, f02=»12,W2 , P B DECOMT - PDECO45 - P PERF DEFIND,BIN8,BIN9 - . P B DECO42 - L P EJECT - ^ " PDECO46 CONDITIONAL FORMAT CH - l & P ADD BIN12,W1 ADUST BUFFER POINTER - P MOVE BIN16,W0 WORK:=0 - < P XCOPY BIN16,W1,W1,BPOOL(BIN11),BIN12 LOAD NUM
0x1f37a0…1f3934 (1, 397) Dummy {f00=0x0099, f01=0x018e, f02=»NUMB OF CHARS - t P B DECOMT . PDEC050 . ( * P PERF DENVCO CONDITIONAL BOOL SETTING . 6 P B DECOMT . d P EJECT . v PDECERR . P SET DOOLB . $ P MOVE DEBINW4,W2 UNDEFINED ERROR . P MOVE BIN10,W0 . PDECEND CLEAR DOOL4 . P BZ DECE10 .
0x1f3934…1f3ac8 Dummy {f00=0x0099, f01=0x0190, f02=» . z P ADD BIN12,W1 / 4 P CALL GETFWD,DKBIN1,0,BIN2,BIN9 GET INIT. FIELD / P CALL ADJUST,DKBIN1 / V PUPDRET / r PDECE10 / P TBF DOOLB,DECE20 / P CBE DEBINW4,W2,DECE30 / PDECE20 / P CBE BIN10,W20,DEC050 '&' / PDECE30 / 0 P MOV
0x1f3ac8…1f3c5c Dummy {f00=0x0099, f01=0x0190, f02=» * P CBG DEBINW3,BDPOIN(W2),UPDR10 JUMP IF 0 P ENTRY OF NEW RECORD 0 2 " P CLEAR BOOL3 CHANGE FORMAT (R) 0 P $ P TBT DOOL2,UPDR10 JUMP IF INSERT 0 v PUPDR05 0 P CLEAR BOOLS FOR FORMAT 0 & P CLEAR BOOL7 CHANGE IN CORRECTION 0 P OR IF BATCHEA
0x1f3c5c…1f3df0 Dummy {f00=0x0099, f01=0x0190, f02=»EWRT UPDFLD = 1? 0 P BNZ UPDR30 YES! 1 P MOVE DEBINW3,W0 1 0 P B UPDR40 1 H PUPDR30 1 Z P MOVE DEBINW3,W1 1 h PUPDR40 1 P RET 1 P PEND 1 PDENVCO PROC 1 P MOVE BIN10,W0 1 & P TBT BOOL6,DECOFG JUMP IF COND TAB 1 . P TBT BOOL8,D
0x1f3df0…1f3f84 Dummy {f00=0x0099, f01=0x40c8, f02=» COND TAB 1 ~ P RET 2 PDECOFN 2 ( P SET BOOL7 T=VALID RECORD CHANGE (N) 2 , P RET 2 X PDECOFR 2 d ( P SET BOOL3 T=VALID RECORD CHANGE (R) 2 r P RET 2 P PEND 2 END 2 @ 2 W0 1 & P TBT BOOL6,DECOFG JUMP IF COND TAB 1 . P TBT BOOL8,D
0x1f3f84…1f4118 Dummy {f00=0x0099, f01=0x2008, f02=» 3 B 1 ~ P RET 2 PDECOFN 2 ( P SET BOOL7 T=VALID RECORD CHANGE (N) 2 , P RET 2 X PDECOFR 2 d ( P SET BOOL3 T=VALID RECORD CHANGE (R) 2 r P RET 2 P PEND 2 END 2 @ 2 W0 1 & P TBT BOOL6,DECOFG JUMP IF COND TAB 1 . P TBT BOOL8,D
0x1f4118…1f42ac Dummy {f00=0x0099, f01=0x0190, f02=» Kq %_1Aq_ : @s RHl Hk RU "#R? a$W a" k `#0 kT : j` "Ra ` =Ar_ ApAs0 kTY k # *RnHp. a$*a j " $ Z : j` " &*`*K a,Hp bk & a? 0 lT$ l b ,R. a& a =bl & a? #X;! 5 ? b: ja " &*a* a,_' )? c# bc !bRR)jc "R&"c* 5W d7b &Rd k jc "R$ c
0x1f42ac…1f4440 Dummy {f00=0x0099, f01=0x0190, f02=» h~ !X8H !( @ h~ U !j~ ! ! !P !0" ! N_m ? j !! '( !1j !& !j !! ( * j +& 'j !! ( j ! ! ! 8 ? jy " $ j !! 1 j !! 2 j !! (I !Y A ! p ! ? ! 0 !h & !&P !0" !< _ ( ) +h & '&
0x1f4440…1f45d4 (1, 398) Opaque[0x194]
0x1f45d4…1f4768 # DirEnt {nam=»DEREC2«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x1338, f03=0x0000}
0x1f45d4…1f4768 IdxSect {
0x1f45d4…1f4768 f00 = 0x0099 // 0x1f45d4 @0x0
0x1f45d4…1f4768 f01 = 0x000a // 0x1f45d6 @0x2
0x1f45d4…1f4768 gno = [ // 0x1f45d8 @0x4
0x1f45d4…1f4768 [0x00]: C0x0099.0x3.0
0x1f45d4…1f4768 [0x01]: C0x009a.0x0.0
0x1f45d4…1f4768 [0x02]: C0x009a.0x1.0
0x1f45d4…1f4768 [0x03]: C0x009a.0x2.0
0x1f45d4…1f4768 [0x04]: C0x009a.0x3.0
0x1f45d4…1f4768 ]
0x1f45d4…1f4768 }
0x1f4768…1f48fc Dummy {f00=0x0099, f01=0x0190, f02=» $ P IDENT DEREC2 REL 10.0 80-04-11 P 80-04-14/DALI , DDUM DEDDIV D PDIV X P ENTRY DEREC2 f $ ENTRY DEOPBC OPEN BATCH-ROUTINE | * * ** EXTERNAL REFERENCES TO SCREEN * P EXT DECLRA P EXT DECLRD
0x1f48fc…1f4a90 Dummy {f00=0x0099, f01=0x0190, f02=»TOR P EXT DERECS P EXT DEREFO P EXT UPDBOL 4 P EXT UPDBIN H P EXT DEACC P EXT DELAST n EXT ATTWB EXT SAVE EXT DEPOOL P EXT OPCL P EXT OFRSP " P EXT DEPRUT GET PROGRAMNUMBER P EXT
0x1f4a90…1f4c24 Dummy {f00=0x0099, f01=0x018e, f02=» PROC FC * P************************************** P* HANDLE BATCHHEAD FORMAT > * P* THESE ROUTINES USE THE DENTER-SCREEN ` * P************************************** P IB FC,RETUBC,ERRBC . P CALL TESTB,RECFIL,FILINDUS LOOK IF RECOV
0x1f4c24…1f4db8 Dummy {f00=0x0099, f01=0x0190, f02=» . P CALL TESTB,RECFIL,FILINDUS LOOK IF RECOV. P BZ REC060 : P EJECT L P* Z & P* START RECOVERY OF THIS USERFILE d P* P SET DOOL3 & P BNZ REC060 AN OTHER TERMINAL HAS $ P ALREADY OPENED THIS USERFILE P FOR RECOV
0x1f4db8…1f4f4c Dummy {f00=0x0099, f01=0x0190, f02=»T JOBNAME x P BOK REC100 . P MOVE BCDI21(W3),W0 CLOBBERED BY RECOVERY & P MOVE JOBNAME,STSAVE(W1) X P MOVE BATCH,STSAVE(W2) x $ P CBE DEBINW4,W9,REC075 NOT FOUND P CALL CLEARB,RECFIL,FILINDUS PREC060 & P MOVE BIN3,DEBINW4 SAVE
0x1f4f4c…1f50e0 Dummy {f00=0x0099, f01=0x018e, f02=»,W6,PJOBCUR,DEBINW3,STRG10A * P PERF DEPOOL,W6,PINACC,DEBINW3,STRG10A $ * P PERF DEPOOL,W6,PINDFR,DEBINW3,STRG10A R P CALL CLEARB,RECFIL,FILINDUS P B OPBC00 PREC100 , P PERF DEPOOL,W6,PJOBCUR,DEBINW3,STRG10A PREC110 * P PERF
0x1f50e0…1f5274 (1, 399) Dummy {f00=0x009a, f01=0x0190, f02=» ( P MOVE BIN3,=W'34' GET NEXT BATCHNAME P PERF DEDISC,BIN3 0 P BNOK REC050 J P MOVE BCDI21(W3),W0 ^ P PERF DERECS,W11 z P BNOK REC110 P CLEAR DOOL1 P BZ REC110 P MOVE BIN3,W1 PREC150 P MOVE ACK(BIN3),=D'0'
0x1f5274…1f5408 Dummy {f00=0x009a, f01=0x0190, f02=» PERF DERECS,W5 GET CURRENT P BOK REC400 $ PREC230 8 P CLEAR BDAACT F P CALL UPDBIN,BDSTAT 0 P CALL RESTOR,W0,W4,PWBDB4 RESTORE RBUF WB10 x P PERF DEDISC,W18 CLOSE BATCH P B REC110 PREC400 , P CBE BIN3,W10,REC230 JUM
0x1f5408…1f559c Dummy {f00=0x009a, f01=0x0190, f02=»CREASE WANTED RECNO x P PERF DERECS,W4 GET NEXT P BNOK REC500 < P PERF DERECS,W13 P P B OPBC05 h PREC500 z & P PERF DERECS,W3 ENTER LAST SECTOR P B REC230 P EJECT P* P* OPEN ROUTINE P* POPBC09
0x1f559c…1f5730 Dummy {f00=0x009a, f01=0x0190, f02=»=W'27' $ P PERF DEDISC,BIN13 DELETE BATCH P B REBC03 6 POPBC10 H " P SET SOOL1 STATUSLINE DISPLAY V POPBC20 CLEAR DECHANGE | POPBC30 P MOVE DEBINW2,W0 P RET PRETUBC P CLEAR BDAACT P CALL UPDBIN,BDSTAT
0x1f5730…1f58c4 Dummy {f00=0x009a, f01=0x0190, f02=»ERRBC P PERF DERROR,DEKTAB6 PREBC10 * P CLEAR SOOL1 8 P CLEAR SOOL2 L P CLEAR DENOCHAN ` P SET DOOL5 x P MOVE DEBINW2,W3 PREBC20 * P PERF DEPOOL,W6,PINDFR,DEBINW3,STRG10A , P PERF DEPOOL,W6,PJOBCUR,DEBINW3,STRG10A
0x1f58c4…1f5a58 Dummy {f00=0x009a, f01=0x0190, f02=»TORE ORIGINATE ADRESSES TO r " P WORKBLOCKS AND DESCRIPTORS " P MOVE DEBINW4,BIN3 H P RET b P PEND n P EJECT | PDEREC2 PROC FC . P IB FC,DELREC,INSREC,INSREC,OPENBC,ENTINS PDELREC * P MOVE BIN12,CURSEC SAVE CURRENT SECTOR
0x1f5a58…1f5bec Dummy {f00=0x009a, f01=0x018e, f02=» . P XCOPY RBUF,W6,W2,BIN14,W0 DELETED RECLNTH . P CBE BIN14,W10,DELR20 JUMP IF EMPTY SECTOR 6 PDELR10 h P MOVE BIN14,W23 v " P B DELR40 GET PREVIOUS RECORD PDELR20 " P CBNE CURSEC,BDPOIN(W1),DELR30 $ P XCOPY BDPOIN(W1),W0,W2,RBUF,W2
0x1f5bec…1f5d80 Dummy {f00=0x009a, f01=0x0190, f02=» t 2 P SUB BDPOIN(W2),W1 DECREASE NUMBER OF RECORDS P TBF DBOFOR,DELR50 > P SUB BDPOIN(W4),W1 X PDELR50 r P MOVE BCD13A,NUMBER P TEST DBOMVR P BZ DROK00 P TEST DBOVER VERIFIED RECORD P BNZ DROK00 YES P SUB BDPOI
0x1f5d80…1f5f14 (1, 400) Dummy {f00=0x009a, f01=0x018e, f02=»ATARECORD. * " P****************************** PINSREC FC= 9 @ P XCOPY BIN14,W0,W2,RBUF,W6 V P MOVE PRECPR,PRECCUR x P ADD PRECCUR,RECLNTH , P XCOPY BIN10,W0,W2,RBUF,W4 LINK TO NEXT 2 P XCOPY RBUF,W6,W2,PRECCUR,W0 ADJUST USED
0x1f5f14…1f60a8 Dummy {f00=0x009a, f01=0x0190, f02=» * P DLETE RBUF,W10,BIN7 COPY LAST ENTERED * P MOVE BIN8,CURSEC SAVE CURRENT SECTOR 6 4 P CBL PRECCUR,BIN14,INSR10 JUMP IF MORE IN SECTOR d P MOVE BIN9,BIN8 PINSR05 2 P XCOPY RBUF,W4,W2,BIN10,W0 LINK TO NEXT SECTOR P MOVE BIN14,W23
0x1f60a8…1f623c Dummy {f00=0x009a, f01=0x0190, f02=»ECTOR t P BERR DRNO00 P MOVE BIN9,CURSEC " P DLETE RBUF,W10,RECLNTH < P SUB BIN14,PRECCUR P ADD BIN14,W10 v 2 P XCOPY RBUF,W6,W2,BIN14,W0 USED SPACE PART TWO P B INSR05 PINSR20 , P CBE BIN10,W0,INSR30 JUMP IF LAST SECT
0x1f623c…1f63d0 Dummy {f00=0x009a, f01=0x0190, f02=»NK TO PREV t P MOVE BIN14,W23 , P PERF DEDISC,BIN14 WRITE CURRENT SECTOR * P BERR DRNO00 Z P B INSR40 n PINSR30 : P XCOPY BDPOIN(W1),W0,W2,CURSEC,W0 LAST ENTERED RECORD PINSR40 P MOVE CURSEC,BIN8 P MOVE BIN13,=W'33'
0x1f63d0…1f6564 Dummy {f00=0x009a, f01=0x0190, f02=»R),W0 n P B DROK00 P EJECT * P************************************** . P* ( P* READ IN CURRENT JOBDEFINITION AND f P* OPEN WANTED BATCH. P* * P************************************** POPENBC FC=11 P MOVE DEBINW
0x1f6564…1f66f8 Dummy {f00=0x009a, f01=0x018e, f02=»OPE050 NOT EMPTY P B OPE100 POPE030 * , P CBNE BIN11,W4,OPE035 JUMP IF NOT ENTRY 8 , P CBNE BIN12,W5,OPE050 JUMP IF NOT DELETE h P B OPE040 POPE035 P CBNE BIN11,W5,OPE050 & P CBE BIN12,W3,OPE050 RECORD-LEVEL POPE040
0x1f66f8…1f688c Dummy {f00=0x009a, f01=0x0190, f02=» P A JOBDEFINITION IN POOL P MOVE DEINPUT,HEX00 & " P COPY DEINPUT,W0,W6,JOBNAME,W0 B & P PERF DEDISC,W2 GET JOB-DEFINITION h P BNERR OPE100 $ P GETFLD 0,W2,BIN3 FILED JOBNAME P B DRNO00 POPE100 , P TBT DOOL3,OPE250 JUMP I
0x1f688c…1f6a20 Dummy {f00=0x009a, f01=0x0190, f02=»E150 GETFLD 0,W3,BIN3 FIELD BATCHNAME P COPY DEINPUT,W0,W6,BATCH,W0 . POPE170 R P B OPE700 ` $ POPE200 SET DOOL3 USERFILE OPENED r 0 P CALL TESTB,RECFIL,FILINDUS LOOK IF RECOVERY P BZ OPE260 JUMP IF NOT $ P MOVE BIN3,=W'37' ERROR REC.
0x1f6a20…1f6bb4 (1, 401) Dummy {f00=0x009a, f01=0x0190, f02=» d P BNZ OPE300 JUMP IF RUNNING " POPE260 LOOK IF BATCHDATA AND , " P BATCHHEADER ARE TO BE USED R ( P CBNE BIN11,W7,OPE265 NOT CONVERSION x . P CBE PJOBCUR,W0,OPE270 OPEN USERFILE ONLY & P MOVE BIN12,W0 ADJUST RETURNPOINT P IN DE
0x1f6bb4…1f6d48 Dummy {f00=0x009a, f01=0x0190, f02=»70 & P MOVE BIN12,W1 ADJUST RETURNPOINT P IN DERECS. 4 P B DROK00 J POPE280 P MOVE STR6A,HEX00 j P CBE BATCH,STR6A,OPE270 P B OPE300 POPE290 P TBF DOOL8,OPE300 P PERF DEDISC,W6 OPEN NEW P BOK OPE38
0x1f6d48…1f6edc Dummy {f00=0x009a, f01=0x0190, f02=» f , P CBNE BIN13,W10,OPE380 NOT EMPTY BATCH! P MOVE DEBINW4,W9 NOT FOUND 8 P B OPE695 DELETE BATCH Z POPE350 x ( P CBNE DEBINW4,=W'27',OPE170 B OPE700 , P CBNE BIN11,W5,OPE170 JUMP IF NOT SEARCH & P CBE BIN12,W3,OPE170 RECORD-LEVEL
0x1f6edc…1f7070 Dummy {f00=0x009a, f01=0x0190, f02=» $ P BZ OPE400 JUMP IF NOT RECOVERY * P TBT BDAACT,OPE560 JUMP IF BATCH IS TO , P BE RECOVERED Z & P B DROK00 BATCH WILL NOT BE OPENED r " POPE400 THOS IS A NORMAL OPEN , P CBNE BIN11,W5,OPE410 JUMP IF NOT SEARCH & P CBE BIN12,W3,OPE550 R
0x1f7070…1f7204 Dummy {f00=0x009a, f01=0x0190, f02=» IF NOT ENTRY v ( P CBNE BIN12,W5,OPE415 AND NOT DELETE P MOVE BIN11,BIN12 B P B OPE270 POPE415 n & P TBF DOOL8,OPE420 JUMP IF OPEN OLD | , P TBF DOOL7,OPE540 JUMP IF NOT TESTBATCH P SET BDATES P B OPE540 POPE420 *
0x1f7204…1f7398 Dummy {f00=0x009a, f01=0x0190, f02=» v P B OPE710 POPE460 ( P TBT BDATES,OPE540 JUMP IF TESTBATCH ( P MOVE DEBINW4,=W'34' ERROR T P B OPE710 v POPE500 P TBF VERIFM,OPE540 P TBT BDAMVR,OPE540 POPE520 P MOVE DEBINW4,W8 P B OPE710 POPE540
0x1f7398…1f752c Dummy {f00=0x009a, f01=0x0190, f02=»ERYOPENED BATCH P SET DOOL1 P B OPE680 * POPE580 < . P CALL TESTB,RECFIL,FILINDUS LOOK IF RECOV. J P BNZ DROK00 | & P CBNE BIN11,W7,OPE620 JUMP IF NOT . P MOVE BIN12,W4 RETURN TO DROK00 IN DERECS P B OPE680 POPE600
0x1f752c…1f76c0 Dummy {f00=0x009a, f01=0x0190, f02=»ROZEN BATCH | POPE640 P CLEAR BDABAL " P CALL UPDBIN,BDSTAT 8 0 P CALL RESTOR,W0,W4,PWBDB4 RESTORE RBUF WB10 T $ P PERF DEDISC,W18 WITE BATCHDATA P BNOK OPE690 & P TBF DOOL8,OPE660 JUMP IF OPEN OLD & P MOVE BIN13,W23 WRITE CURR
0x1f76c0…1f7854 (1, 402) Dummy {f00=0x009a, f01=0x0190, f02=»EAD CURR.SECTOR | POPE670 P PERF DEDISC,BIN13 & P BNOK OPE690 @ POPE680 T & P CALL ATTWB,BPOOL(PJOBCUR),W0,W12 b P MOVE PINDFR,W0 . P CALL TESTB,RECFIL,FILINDUS LOOK IF RECOV. P BNZ OPE681 YES! , P CBE BIN11,W5,OPE683 SEARC
0x1f7854…1f79e8 Dummy {f00=0x009a, f01=0x018e, f02=»SC,W10 GET FORMAT P BNOK OPE690 0 P MOVE FORMAT,FORTAB(W20) SAVE BATCHHEADNAME . P B OPE684 b POPE683 t $ P MOVE FORMAT,HEX00 SEARCH STRART POPE684 $ P MOVE PRECCUR,W10 START IN RBUF . P CALL TESTB,RECFIL,FILINDUS LOOK IF RECO
0x1f79e8…1f7b7c Dummy {f00=0x009a, f01=0x0190, f02=» P BOFL OPE710 POPE685 P MOVE SYMREC(W10),FRMTPNTR * POPE688 L P SET DEPROMPT Z $ P CALL ATTWB,BPOOL(PINACC),W2,W13 p P MOVE PRECPR,PRECCUR P MOVE NUMBER,W0 P CALL UPDBIN,BIN1 P B DROK00 POPE690 & P T
0x1f7b7c…1f7d10 Dummy {f00=0x009a, f01=0x0190, f02=»T BATCH z POPE695 ! P MOVE BIN3,DEBINW4 ! P MOVE BIN13,=W'27' ! 8 $ P PERF DEDISC,BIN13 DELETE BATCH ! R P MOVE DEBINW4,BIN3 ! z POPE700 ! P MOVE BIN4,W3 ! & P MOVE BIN3,DEBINW4 SAVE ERRORCODE ! P B OPE720 ! POPE710 ! P MOVE
0x1f7d10…1f7ea4 Dummy {f00=0x009a, f01=0x0190, f02=»INW4 GET LAST FIELD ! ~ P CBE BIN11,W7,OPE760 " * P CALL TESTB,RECFIL,FILINDUS RECOVERY? " 8 P BNZ OPE760 YES! " f , P PERF DEPOOL,W6,PJOBCUR,DEBINW3,STRG10A " ~ P CLEAR DOOL3 " P BZ OPE760 " P PERF OPCL,W4 CLOSE USERFILE " POPE760 " 0 P C
0x1f7ea4…1f8038 Dummy {f00=0x009a, f01=0x40e6, f02=» ADD PRECCUR,RECLNTH # 2 P XCOPY RBUF,W6,W2,PRECCUR,W0 STORE USED SPACE # P MOVE PRECCUR,W10 # V PDROK00 # p P CMP W1,W1 # ~ P RET # PDRNO00 # P CMP W1,W0 # P RET # P PEND # END # @ # E USERFILE " POPE760 " 0 P C
0x1f8038…1f81cc Dummy {f00=0x009a, f01=0x2008, f02=» $ PENTINS FC=12 ADD PRECCUR,RECLNTH 2 P XCOPY RBUF,W6,W2,PRECCUR,W0 STORE USED SPACE < P MOVE PRECCUR,W10 r PDROK00 P CMP W1,W1 P RET PDRNO00 P CMP W1,W0 P RET P PEND END @ P MOV
0x1f81cc…1f8360 Dummy {f00=0x009a, f01=0x0190, f02=»DV DERRORA EMPTYT0 T:DISPF T:ERAS T:GETF. E DE50ST 8 800414 $$$TRA5 DE50ST DEAP5A ATTDB ATTWB DEANOK0 DEAOK0- DECLRA1 DECLRNL DECLRS0 DEDISC DENT01 DEOPBC5 DEPOOL DEPRUT DERECS DERR DERROR DESTAU EMPTYTA OPCLD RESTORD SETB-
0x1f8360…1f84f4 (1, 403) Opaque[0x194]
0x1f84f4…1f8688 # DirEnt {nam=»DENT02«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x1360, f03=0x0000}
0x1f84f4…1f8688 IdxSect {
0x1f84f4…1f8688 f00 = 0x009b // 0x1f84f4 @0x0
0x1f84f4…1f8688 f01 = 0x000a // 0x1f84f6 @0x2
0x1f84f4…1f8688 gno = [ // 0x1f84f8 @0x4
0x1f84f4…1f8688 [0x00]: C0x009b.0x0.0
0x1f84f4…1f8688 [0x01]: C0x009b.0x1.0
0x1f84f4…1f8688 [0x02]: C0x009b.0x2.0
0x1f84f4…1f8688 [0x03]: C0x009b.0x3.0
0x1f84f4…1f8688 [0x04]: C0x009c.0x0.0
0x1f84f4…1f8688 ]
0x1f84f4…1f8688 }
0x1f8688…1f881c Dummy {f00=0x009b, f01=0x0190, f02=» $ P IDENT DENT02 REL 10.0 80-12-10 P UPD 80-04-11 , P UPD 80-10-28/DALI D P UPD 80-04-23/DALI ` P UPD 80-04-08/DALI | P DDUM DEDDIV P PDIV P ENTRY DENDUP P ENTRY DEEDIT P ENTRY DELAST P EXT DERECS
0x1f881c…1f89b0 Dummy {f00=0x009b, f01=0x0190, f02=»P LOOK FOR DUPLICATION- P STRING FOR CURRENT FIELD P EXT CMPIND D & P EXT DEDISC DISC HANDLING ROUTINE X * P EXT ATTDB ASSEMBLY SUBROUTINE ATTDB - P ATTACH DESCRIPTORBLOCK * P EXT ATTWB ASSEMBLY SUBROUTINE ATTWB - P ATTAC
0x1f89b0…1f8b44 Dummy {f00=0x009b, f01=0x0190, f02=»G | & P EXT DEPOOL POOL HANDLING ROUTINE P EXT DEFIND 4 P EXT MASK H P EXT DELOCK Z P EXT DEPRUT n P INCLUDE DELITT P EJECT & P********************************** & P* THIS ROUTINE HANDLE THE KEY FOR " P* DUPLICATIO
0x1f8b44…1f8cd8 Dummy {f00=0x009b, f01=0x0190, f02=» n PDENDUP PROC P CLEAR BOOL5 , P CALL GETDUP,BPOOL(W1),BIN11,BIN12,BIN13 0 P BOK KDUP05 ` PKDUP03 t * P CBE DEBINW2,W3,KDUP02 JUMP IF AUTODUP * P CBNE DEBINW2,W11,KDUP04 JUMP IF KEEP PKDUP02 P B KDUP35 PKDUP04
0x1f8cd8…1f8e6c Dummy {f00=0x009b, f01=0x0190, f02=»,W8,BPOOL(BIN11),BIN12,W1 ~ " P LOOK IF DUPL FROM VALUESET " P BNOK KDUP40 JUMP IF NOT H $ P CBE BIN9,W5,KDUP25 JUMP IF DATE h & P SUB BIN9,W8 ADJUST FOR THE OTHER P BL KDUP40 P ADD BIN12,W1 GET ITEMNUMBER P MOVE BIN8,W0 P P
0x1f8e6c…1f9000 Dummy {f00=0x009b, f01=0x018e, f02=»,W18 LOOK IF ELEMENTNUMBER 0 P MATCH VALSTR,BIN8,W1,BPOOL(BIN11),BIN12,W1 " P BNOK KDUP10 V P ADD BIN12,W1 j * P XCOPY ELMNO,W1,W1,BPOOL(BIN11),BIN12 P B KDUP20 " PKDUP10 PERF DELAST,W5,DEKTAB7 , P IB DEBINW2,KDUP60,KDUP60,KDUP60,K
0x1f9000…1f9194 (1, 404) Dummy {f00=0x009b, f01=0x018e, f02=» z P MOVE ELMNO,BCD13A PKDUP20 " P CBNE ELMNO,W0,KDUP15 0 P CBE VSEIND,W0,KDUP13 N P MOVE ELMNO,VSEIND l P B KDUP15 PKDUP13 VALUESETINDEX =0 P MOVE DEBINW4,W9 NOT FOUND P B KDUP50 PKDUP15 P MOVE TABLE,
0x1f9194…1f9328 Dummy {f00=0x009b, f01=0x0190, f02=» P PERF DEDISC,W24 GET VALUSET P BNOK KDUP50 ( P MOVE VSEIND,ELMNO < $ P CALL ATTWB,BPOOL(PINDTB),W8,W11 V $ P CALL ATTDB,BPOOL(PINDTB),W0,W11 ~ P MOVE BIN10,W0 ( P XCOPY BIN10,W1,W1,RPOOL(PINDTB),W17 P SUB ELMNO,BIN10 P ADD ELM
0x1f9328…1f94bc Dummy {f00=0x009b, f01=0x0190, f02=»DUP30 YES P GETCTL 1,DEBINW4 GET MAXL , P SUB DEBINW4,DEBINW1 - LENGTH OF DEINPUT 4 P BNN KDUP30 MAXL NOT LESS d P MOVE STRG10A,='+- ' P MOVE DEBINW2,W0 , P MATCH STRG10A,DEBINW2,W3,DEINPUT,W0,W1 P MOVE DEBINW2,W0 P BNOK
0x1f94bc…1f9650 Dummy {f00=0x009b, f01=0x0190, f02=»LETE DEINPUT,DEBINW2,DEBINW4 P SUB DEBINW1,DEBINW4 $ PKDUP30 @ ( P CALL EMPTYT,:FMTITEM LOOK IF EMPTY N P BNZ KDUP32 YES! z P TSTCTL 0 LOOK IF ALPHA P BZ KDUP27 JUMP IF BCD P GETCTL 1,DEBINW4 GET MAXL P MOVE DEBINW3,W0 6
0x1f9650…1f97e4 Dummy {f00=0x009b, f01=0x0190, f02=» x $ P CBE BCDI21(W1),:FMTITEM,KDUP33 PKDUP28 0 P GETABX DEBINW3 > P ERASE 9,DEBINW3,DEBINW3 V PKDUP32 v 2 P UPDFLD 1,DEINPUT UPDATE FIELD WITH DISPLAYING PKDUP33 P MOVE DEBINW2,W3 P CLEAR BOOL5 P BNZ KDUP38 P
0x1f97e4…1f9978 Dummy {f00=0x009b, f01=0x0190, f02=» f PKDUP50 P MOVE DEBINW2,W0 PKDUP60 . P MOVE DEBINW1,W0 < P CMP W1,W0 T P RET f P PEND r P EJECT . P***************************************** P* . P*THIS PROCEDURE EDIT ITEMS FOR VALIDATIONS P*INTO THE IT
0x1f9978…1f9b0c Dummy {f00=0x009b, f01=0x0190, f02=»ERVARIABELS , P* = 3 FIELDS WITHIN CURRENT FORMAT P* = 4 VALUESETS D P* = 5 DATE b * P* = 6 VALUESETINDEX (ELEMENTNO) z P* . P***************************************** PDEEDIT PROC FC " P MOVE BIN10,W1
0x1f9b0c…1f9ca0 Dummy {f00=0x009b, f01=0x0190, f02=»CMPIND,BIN8,ACK(W1) P BNOK DED500 OUT OF RANGE P MOVE DEINPUT,ACK(BIN8) > P B DED390 ^ PDED100 p P CALL TESTB,BPOOL(PINDTB),W2 ~ P BNZ DED150 JUMP IF BCD & P XCOPY BIN7,W1,W1,BPOOL(PINDTB),W1 * P COPY DEINPUT,W0,BIN7,FDVBCD
0x1f9ca0…1f9e34 (1, 405) Dummy {f00=0x009b, f01=0x0190, f02=»VALUE SET INDEX (ELEMENTNO) P* $ PDED160 . $ P MOVE BCD3A,VSEIND BINCONV=>BCD < & P MOVE DEINPUT,BCD3A BCDCONV=>STRG d P B DED470 PDED170 P MOVE DEINPUT,DATE P DLETE DEINPUT,W0,W1 P B DED390 PDED200 * P TBF
0x1f9e34…1f9fc8 Dummy {f00=0x009b, f01=0x0190, f02=» TYPET p 0 P CALL TYPET,BIN7,X.PSEU1,X.PSEU2,X.WB10,BIN8 $ P CBE BIN7,W2,DED250 JUMP IF BCD B P MOVE BIN7,W0 j P EDSUB DEINPUT,BIN7,FORMF P B DED350 PDED250 4 P CON X.MOVE,DEINPUT,X.PSEU1,X.PSEU2,X.WB10,BIN8 P B DED400
0x1f9fc8…1fa15c Dummy {f00=0x009b, f01=0x0190, f02=»D330 P CALL CMPIND,BIN8,USEV(W1) P BNOK DED500 OUT OF RANGE . P EDSUB DEINPUT,BIN7,FORMU P PDED350 r P MOVE DEBINW1,BIN7 P B DED470 PDED390 P MOVE BIN10,W0 PDED400 P MOVE DEBINW1,W0 P MOVE BIN7,=W'80'
0x1fa15c…1fa2f0 Dummy {f00=0x009b, f01=0x0190, f02=»OVE DEBINW1,W0 PDED470 P CMP W1,W1 EDITING OKEY $ P RET D PDED500 P P CMP W1,W2 EDITING FAILED ^ P RET P PEND P EJECT * P************************************* * P* DISPLAY AND READ OF FUNCTION-KEYS * * P* EN
0x1fa2f0…1fa484 Dummy {f00=0x009b, f01=0x0190, f02=» P MOVE BIN15,FC PLASTD0 MOVE DEBINW4,W24 P ERASE 0,DEBINW4,DEBINW4 : P EDWRT DEDSSCRN,FLAST(FC) Z PLAST05 | P MOVE DEBINW1,W0 PLASTD1 P IB FC JUMP ON FUNCTIONKEY C P LPROG FPROG = 1 C P LDEL FDEL1 = 2 C
0x1fa484…1fa618 Dummy {f00=0x009b, f01=0x0190, f02=» LASRET3 FCORR = 8 C P LASVER FVER = 9 C P LASRET2 FREC02 =10 C : P LINS FFORCE = 11 C X P LINS FCONVNO =12 C t P LINS FCONV1 =13 C P LASRET2 FASD =14 C P LRFBWD FRFBWD =15 P B LINS PLPROG 2 P MOVE
0x1fa618…1fa7ac Dummy {f00=0x009b, f01=0x0190, f02=»EBINW4 ~ P B LASVER PLPROG2 0 P KI DEDSDYKB,DEINPUT,KEYTAB,DEBINW1,DEBINW2 . P B LAST50 b PLVAL t P MOVE DEBINW1,W2 P B LPROG2 PLRFBWD P MOVE DEBINW1,W7 P B LPROG2 PLDEL PLINS P MOVE DEBINW1,
0x1fa7ac…1fa940 Dummy {f00=0x009b, f01=0x0190, f02=»3,POWOFF,LASTER,LASTD0 P B LASTD3 P* 0 0 P* NOK. NOTICE THAT INCORRECT LENGTH IS OKEY : P* n PLASTER x P XSTAT DEDSDYKB,DEBINW3 P CALL MASK,DEBINW3,W8 P BZ LASBEL " P MOVE DEBINW2,W6 SIMULATE EOI P B PROEN2
0x1fa940…1faad4 (1, 406) Dummy {f00=0x009b, f01=0x0190, f02=»ET,DUMMY,LASRET | PLAST06 $ P IB DEBINW2,LASBEL,LASBEL,LASBEL & " P SUB DEBINW2,W3 ADJUST EOI0KEY N P B LASRET t PLASBEL ( P EDWRT DEDSSCRN,BELL ACOUSTIC ALARM P B LAST05 PLASKOP P MOVE DEBINW3,W1 P PRINT DEDSPRT,D
0x1faad4…1fac68 Dummy {f00=0x009b, f01=0x0190, f02=»* POWER OFF P* PPOWOFF P DISPLAY 0,W1,W0 , P B LASTD0 D P* V PPROEN2 ` . P IB FC,LASTUT,LASTD0,LASTD0,LASTD0,LASTUT n PLASTUT P ADD DEBINW1,W1 PLASRET P ERASE 0,DEBINW4,DEBINW4 PLASRET2 P RET
0x1fac68…1fadfc Dummy {f00=0x009b, f01=0x018e, f02=»PROG,FDEL1,FDEL2,FLIN1,FLVAL,FLINS,FRECOV C 4 P FCORR,FVER,FRECO2,FFORCE,FCONV0,FCONV1,FASD C 4 P FRFBWD l PFPROG FRMT | P FSL P FLOW P FCOPY =C'SYMBOLIC:' P FMEND PFDEL1 FRMT P FSL P FLOW $ P FTEXT 'CO
0x1fadfc…1faf90 Dummy {f00=0x009b, f01=0x018e, f02=» P FLINK FDEL3 P FTEXT 'INSERTED' P FMEND 2 PFDEL3 FRMT @ P FSL R P FLOW ^ P FCOPY =C'RECORD' l P FILLR ' ',1 P FMEL 'TTTT9',BCD13A P FILLR ' ',1 P FMEND PFLVAL FRMT P FSL P FLOW P FTE
0x1faf90…1fb124 Dummy {f00=0x009b, f01=0x0190, f02=» | P FCOPY =C'NUMBER' P FILLR ':',1 " P FMEND 6 PFLIN1 FRMT D P FSL V P FLOW b " P FTEXT 'CONFIRM RECORD INSERT' p P FMEND PFRECOV FRMT P FSL P FLOW P FTEXT 'RECOVERY OF ' P FCOPY =C'JOB' P F
0x1fb124…1fb2b8 Dummy {f00=0x009b, f01=0x0190, f02=»NING.' P FMEND PFCORR FRMT P FSL . P FLOW : P FTEXT 'RECORD CORRECTION' H P FMEND j PFVER FRMT x P FSL P FLOW $ P FTEXT 'RECORD MUST BE VERIFIED' P FMEND PFRECO2 FRMT P FSL P FTEXT 'RECOVE
0x1fb2b8…1fb44c Dummy {f00=0x009b, f01=0x0190, f02=» BATCH P FMEND PFCONVA FRMT P FCOPY =C'CONFIRM ' 0 ( P FTEXT 'CONVERSION OF ALL BATCHES ' L P FMEND x PFCONV0 FRMT P FSL P FLINK FCONVA P FTEXT 'ON UNIT:U' P FMEL 'X',USERFILE P FMEND PFONV2
0x1fb44c…1fb5e0 Dummy {f00=0x009b, f01=0x018e, f02=» P FSL " P FTEXT 'AUTOMATIC SKIP/DUP *O' P FBF ASDFLAG,FASD2 6 P FTEXT 'N*' P P FB FASDEN d PFASD2 FTEXT 'FF*' v PFASDEN FMEND PFRFBWD FRMT P FSL ( P FTEXT 'ENTER WANTED RECORDNUMBER:' P FMEND P EJECT
0x1fb5e0…1fb774 (1, 407) Dummy {f00=0x009c, f01=0x409e, f02=» PFORMU FRMT P FCOPY USEV(BIN8) P FMEND 4 PBELL FRMT B P FSL T P FILLR X'07',1 ` P FMEND v P* END @
0x1fb774…1fb908 Dummy {f00=0x009c, f01=0x2008, f02=» FORMU FRMT P FCOPY USEV(BIN8) P FMEND 4 PBELL FRMT B P FSL T P FILLR X'07',1 ` P FMEND v P* END @
0x1fb908…1fba9c Dummy {f00=0x009c, f01=0x0190, f02=»Pn P P I 0 P< 1*WZ X ! X $" P<Q X (# P2 X # :! R$W 1* 0 T$ @ Y (W Y , 1 W 1 Y ( ?D : X *:h X (! # P X & V L TbW X , X 0P@ 0 T, X *:h XF XL X (!@T @ Y ( X , Y t X 0 l 1*_r X ( P Y (_
0x1fba9c…1fbc30 Dummy {f00=0x009c, f01=0x0190, f02=»1R X (P 0 3F 8 Y 0 X 2P X 0V _z Y ( " T Y ( : 8 2 9F 8 V Y 8 : " P X & V ( P 1 : : 0 "0P $ T W %T : : Y ( X $ Y X " Y X & Y X < Y @ : Y : 3 X : X ( T X & V H " V
0x1fbc30…1fbdc4 Dummy {f00=0x009c, f01=0x0190, f02=»=H Gb 2` X *! T" X y 4 @ X (T y 6W4 X y 6W, @ X (P W" X & V D ! P @ W X 3 W Y ( : X , Y X $ Y X &T Y Y Y WD V $:H D Y D :H Y ! P V Y 9FW Y ! P 8 W V Y 2 V Y : 9F ? : 2'
0x1fbdc4…1fbf58 Dummy {f00=0x009c, f01=0x0190, f02=» Y : W 8 V ? 3 Y Y Y < V E D B X _ v : C C 7 : C 7 :( R : V E V D ' $ I W 3 P D X =' V W V Y =P 3 : ( D 7 "R V I D 7
0x1fbf58…1fc0ec Dummy {f00=0x009c, f01=0x0190, f02=»W 7* 6" 5 / 6& _ 7 8` 8 P 9F <H : 5(W 7 8 9F &P B V C / <H "!@ I : 7 8 C C W 8 C C J5~ ' W 781"&$ 39#$;< '()*+,-! 8 8d 8 9F P _D 7 B 9F 'W 7 ( Wb 9F 8
0x1fc0ec…1fc280 Dummy {f00=0x009c, f01=0x0190, f02=»% P C + B D 7z I "%@P "% P& B C C 4 "5 # B P B P B 5 P C : 7 6 >~ 6 C 6j C B B P C 7 : "!@T I V I C B : ( ' P 7z I : 7 8 % Y 8 C 9F & I
0x1fc280…1fc414 (1, 408) Opaque[0x194]
0x1fc414…1fc5a8 # DirEnt {nam=»DEPROC«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x1388, f03=0x0000}
0x1fc414…1fc5a8 IdxSect {
0x1fc414…1fc5a8 f00 = 0x009c // 0x1fc414 @0x0
0x1fc414…1fc5a8 f01 = 0x000e // 0x1fc416 @0x2
0x1fc414…1fc5a8 gno = [ // 0x1fc418 @0x4
0x1fc414…1fc5a8 [0x00]: C0x009c.0x1.0
0x1fc414…1fc5a8 [0x01]: C0x009c.0x2.0
0x1fc414…1fc5a8 [0x02]: C0x009c.0x3.0
0x1fc414…1fc5a8 [0x03]: C0x009d.0x0.0
0x1fc414…1fc5a8 [0x04]: C0x009d.0x1.0
0x1fc414…1fc5a8 [0x05]: C0x009d.0x2.0
0x1fc414…1fc5a8 [0x06]: C0x009d.0x3.0
0x1fc414…1fc5a8 ]
0x1fc414…1fc5a8 }
0x1fc5a8…1fc73c Dummy {f00=0x009c, f01=0x0190, f02=» $ P IDENT DEPROC REL 10.0 80-04-11 P 80-01-17/JAER , P* D * N @ <* THIS PROGRAM-MODUL CONTAINS ENTRIES TO THE DIFFERENT X 6 2* STEERING ROUTINES OF THE FORMAT GENERATION * DDUM DEDDIV PDIV " ENTRY
0x1fc73c…1fc8d0 Dummy {f00=0x009c, f01=0x0190, f02=»DESCRIPTOR STORING P EXT FTEXT FORMAT TEXT EXT FKI FORMAT KEYED INPUT 8 EXT FMELI FORMAT EDITING EXT FCOPY FORMAT COPYING ~ EXT FVAL FORMAT VALIDATION EXT FGEN FORMAT GENERATION " EXT FACC FORMAT ACCUMULATION
0x1fc8d0…1fca64 Dummy {f00=0x009c, f01=0x0190, f02=»NE z $ P EXT NOPOOL NUMBER OF USED POOLS P EXT DERROR ERRORMESSAGE 2 $ P EXT UPDBOL UPDATE BOOLEAN/WORD R & P EXT DEPOOL BUFFERRESERVATIN-MODUL z . P EXT EMPTYT ASSEMBLY SUBROUTINE EMPTYT - P EJECT P* P* KEYTABLE P*
0x1fca64…1fcbf8 Dummy {f00=0x009c, f01=0x0190, f02=»TAL P* $ PDEKTAB6 KTAB CLR,CAN,RET,NOK,TOT P* > PDEKTAB7 KTAB CLR,CAN,RET H P* h P EJECT r P* P* MTEXT L P* - MAKES MATCH OF 'LINE DESIGN' UNTIL EOL OR NEXT FIELD IS FOUND @ P* - EDIT TEXT PART
0x1fcbf8…1fcd8c Dummy {f00=0x009c, f01=0x0190, f02=»INFO WHEN FOUND IN 'MATCH' n . P* - SIGNALS IN 'DEBINW2' AS FOLLOWS; " P* = 0 OK T . P* = 1 NO AVAILABLE BUFFERS;CANCEL l , P* = 2 NO AVAILABLE BUFFERS;RETUR > P* = 4 NO AVAILABLE BUFFERS/MAX LIMIT EXCEEDED;KTOT
0x1fcd8c…1fcf20 Dummy {f00=0x009c, f01=0x0190, f02=»BINW2,W0 P SWITCH P PERF MROUT MATCHROUTINE " P TBF BOOL3,MT20 F= NO NO FTAB @ P* f P* FTAB-FTEXT p P* P PERF FTAB GENERATE FTAB & P CBNE DEBINW2,W0,MT99 ERROR SIGNAL PMT20 P* P* FTEXT P
0x1fcf20…1fd0b4 (1, 409) Dummy {f00=0x009c, f01=0x0190, f02=»BIN5,LDES,W0 COPY TEXT & P TBT DOOL8,MT35 JUMP IF NO DISPLAY " P DISPLAY 2,W3,W3 DISPLAY LDISP H PMT35 n * P TBT BOOL2,MT40 JUMP IF FIELD IS FOUND z $ P CBE EOLINE,W1,MT99 JUMP IF EOL P B MT10 GO ON MATCH PMT40 P ADD BIN10,W1 NE
0x1fd0b4…1fd248 Dummy {f00=0x009c, f01=0x0190, f02=»L6,MT50 JUMP IF BALANCE FORMAT . P* CHECK IF RECORD LENGTH IS EXCEEDED & & P MOVE BIN16,BIN13 LOAD LAST DISPL X * P ADD BIN16,BIN14 ADD LAST FIELD LENGTH , P MOVE BIN15,BIN7 LOAD ACTUAL FIELDLENGTH " P TBT ALPHA,MT45 JUMP IF ALPHA P A
0x1fd248…1fd3dc Dummy {f00=0x009c, f01=0x0190, f02=»IN16 STORE USED RECORDSPACE ~ PMT50 $ $ P TBT DOOL8,MT55 JUMP IF NO ERASE 0 4 P DISPLAY 2,W4,W7 DISPLAY FIELDNR,-LENGTH,-START X PMT55 * P TBT BOOL6,MT58 JUMP IF BALANCE FORMAT . P CBG BIN10,=X'FD',MT90 FIELDNR MAX REACHED 2 P CBG BIN16,F
0x1fd3dc…1fd570 Dummy {f00=0x009c, f01=0x0190, f02=» f PMT60 $ P PERF FINIT FIELD INIT WORKITEMS P B MT99 OK < PMT80 N 2 P MOVE DEBINW4,W14 'MAX RECORD LENGTH EXCEEDED' Z P B MT95 PMT90 P MOVE DEBINW4,W16 PMT95 P PERF DERROR,DEKTAB6 * P CBE DEBINW2,W1,MT95 JUMP
0x1fd570…1fd704 Dummy {f00=0x009c, f01=0x0190, f02=»ATE TOT-KEY z PMT98 . P SUB DEBINW2,W1 ADJUST FOR CAN,RET,---,TOT PMT99 R P RET ^ P PEND j EJECT x MROUT PROC : P****************************************************** * * MATCHING ROUTINE *
0x1fd704…1fd898 Dummy {f00=0x009c, f01=0x0190, f02=»N7 => 'MAXL' =FIELDLENGTH (FROM SUBROUTINE 'PICMA') | . )* MATCH = BOOL2 T= '#'-MATCHED < L P* BIN12 => FMELI <NUMB OF PICCHARS> (FROM SUBROUTINE 'PI n L P* STATSH => PICTURE STRING 'FMELI' (FROM SUBROUTINE 'PICM
0x1fd898…1fda2c Dummy {f00=0x009c, f01=0x0190, f02=»****** ` * & "* MATCH FOR ' ':S => (FTAB) * B , (* TAB = BIN8 => FTAB <TABPOS> L ( #* NUMB = BIN16 => NOT USED | . P* MATCH = BOOL3 T= ' '-MATCHED * : 6************************************
0x1fda2c…1fdbc0 Dummy {f00=0x009c, f01=0x0190, f02=»SED p F B* NUMB = BIN9 => FTEXT <NUMBER OF CHARS> <CH> <CH> ..... . ** MATCH = BOOL4 T= TEXT MATCHED V L P* BIN11 => STARTPOSITION OF 'FTEXT' IN ITEM 'LINE DESIGN : 6************************************************
0x1fdbc0…1fdd54 (1, 410) Dummy {f00=0x009c, f01=0x0190, f02=»OVE STR1A,=C'<' CHARACTER TO BE SEARCHED & " CLEAR BOOL9 F=ORIGINAL MATCH MODE 0 . P PERF LININV,STR1A,BOOL9,BIN6,BIN16,BOOL2 Z P TBT BOOL2,MR60 MATCH FOUND $ P CBNE EOLINE,W0,MR99 END-OF-LINE . * MOVE STR1A,=C' ' CHARACTER TO BE SEARCHED
0x1fdd54…1fdee8 Dummy {f00=0x009c, f01=0x018e, f02=»UND x PMR05 0 P MOVE STR2A,=C'< ' CHARACTERS TO BE SEARCHED SET BOOL9 T=INVERTED MATCH L . ) PERF LININV,STR2A,BOOL9,BIN16,BIN9,BOOL4 p P MOVE BIN8,BIN11 P ADD BIN8,W1 P SET BOOL3 $ P CBNE EOLINE,W0,MR99 END-OF-LINE
0x1fdee8…1fe07c Dummy {f00=0x009c, f01=0x0190, f02=» . P MOVE STR1A,=C'<' CHARACTER TO BE SEARCHED & " CLEAR BOOL9 F=ORIGINAL MATCH MODE : . P PERF LININV,STR1A,BOOL9,BIN6,BIN16,BOOL2 d P TBT BOOL2,MR50 MATCH FOUND $ P CBNE EOLINE,W0,MR99 END-OF-LINE P B MR05 * TEXT MATCH FO
0x1fe07c…1fe210 Dummy {f00=0x009c, f01=0x0190, f02=»JUST ONE FTEXT r P* , P MOVE DEBIN4,BIN11 SAVE ST.POS FOT TEXT PMR35 P ( P MOVE DEBIN5,BIN5 SAVE LINE POSITION ( P MOVE STR1A,=' ' ' '=MATCH-CHARCTER & P CLEAR BOOL9 F=ORIGINAL MATCH MODE P CLEAR BOOL5 0 P PERF LININV,STR1A,B
0x1fe210…1fe3a4 Dummy {f00=0x009c, f01=0x018e, f02=»IF MORE THAN 4 SPACES x & P MOVE STR2A,='< ' MATCH CHARCTERS $ P SET BOOL9 T=INVERTED MATCH MODE H P CLEAR BOOL5 p 0 P PERF LININV,STR2A,BOOL9,DEBIN1,DEBIN2,BOOL5 * P TBF BOOL5,MR40 JUMP IF NO INV.-MATCH 2 P ADD BIN9,BIN16 ADJUST NUMB CHARS+
0x1fe3a4…1fe538 Dummy {f00=0x009c, f01=0x0190, f02=» 4 P MOVE BIN5,DEBIN5 RESTORE LINPOS WHEN NO SP+TEXT PMR45 @ . P MOVE BIN11,DEBIN4 RESTORE FTEXT STARTPOS L P B MR99 ~ PMR50 ( # CLEAR BOOL3 NO SP-MATCH INDICATION NEEDED PMR60 , P MOVE DEBIN5,BIN5 SAVE STARTPOIN PIC
0x1fe538…1fe6cc Dummy {f00=0x009c, f01=0x0190, f02=»DESIGN INVESTIGATION PROCEDURE * & D ?* INPUT PARAMETERS : CHAR = CHARACTER(S) TO BE SEARCHED 0 < P* MOD = F ORIGINAL MATCHING x < 7* = T INVERTED MATCHING * < 7*
0x1fe6cc…1fe860 Dummy {f00=0x009c, f01=0x0190, f02=» MATCH = F NO MATCH FOUND 6 P* = T MATCH FOUND , * f D ?*************************************************************** p ( PLININV PROC CHAR,MOD,TAB,NUMB,MATCH 6 P CBE BIN5,FMTWK(W5),LIN098 JUMP IF E
0x1fe860…1fe9f4 (1, 411) Dummy {f00=0x009d, f01=0x0190, f02=»00 ( P TBT MOD,LIN010 JUMP IF INVERTED MOD " MATCH LDES,BIN5,W1,CHAR,W0,W1 6 P BNOK LIN040 NO MATCH P B LIN020 NEXT MATCH z PLIN010 & P MOVE BIN15,W0 MATCHINGPOINTER:=0 & P MATCH CHAR,BIN15,W2,LDES,BIN5,W1 P BOK LIN050 MATC
0x1fe9f4…1feb88 Dummy {f00=0x009d, f01=0x0190, f02=» INVERTED MATCH FOUNF PLIN025 ADD BIN5,W1 NEXT POSITION , ADD TAB,W1 NEXT TABPOS N $ P ADD NUMB,W1 NUMBER OF MATCHES n 6 P CBE BIN5,FMTWK(W5),LIN098 JUMP IF ENDPOS REACHED P B LIN000 NEXT MATCH INV PLIN040 * & MOVE BIN5
0x1feb88…1fed1c Dummy {f00=0x009d, f01=0x018e, f02=» LIN098 P MOVE EOLINE,W1 END-OF-LINE ADD TAB,W1 NEXT TABPOS 6 PLIN099 V RET d PEND p P EJECT ~ P* , P* LINE INITIALIZATION OF WORKITEMS P* PLINIT PROC " P MOVE BIN5,W0 LINEPOSITION:=0 P
0x1fed1c…1feeb0 Dummy {f00=0x009d, f01=0x0190, f02=» , P CLEAR DOOL1 F=NO FIELD CONFIRM CURRLINE $ P PERF FINIT FIELD INIT WORKITEMS 4 P RET P PEND h P EJECT v P* . P* FIELD INITIALIZATION OF WORKITEMS P* PFINIT PROC . P MOVE FMTWK(W1),W0 NUMB OF VALID. CHARS:=0
0x1feeb0…1ff044 Dummy {f00=0x009d, f01=0x0190, f02=»OF DUPL. CHARS:=0 x . P MOVE FMTWK(W10),W0 NUMB OF CHARS STRG1:=0 . P MOVE FMTWK(W11),W0 NUMB OF CHARS STRG2:=0 L 0 P MOVE FMTWK(W12),W0 NUMB OF CHARS STRG1+2:=0 ~ P RET P PEND P EJECT P* 0 P* PICTURE STRING MATCH AND CON
0x1ff044…1ff1d8 Dummy {f00=0x009d, f01=0x0190, f02=»STPOS LDES Z $ P* 1 R FLENGTH PLENGTH F P* 2 A FLENGTH PLENGTH WORK : BIN16= MATCHININDEX : D P* 3 P FLENGTH PLENGTH BIN15= SAVED DITO $ P* 4 T FLENGTH PLENGTH $ P* 5 X FLE
0x1ff1d8…1ff36c Dummy {f00=0x009d, f01=0x0190, f02=» BIN7 = FIELDLENGTH=MAXL l L P* 8 + PLENGTH BIN12= LENGTH OF PIC.-STR * H P* 9 S - PLENGTH STATSH=PICTURE-STRING z $ P* 10 , PLENGTH $ P* 11 . V P
0x1ff36c…1ff500 Dummy {f00=0x009d, f01=0x0190, f02=» MATCH E PLENGTH+1 P* $ L P************************************************************************ . PPICMA PROC ~ , P MOVE STATSH,=' ' SPACES PICTURE-STRING * P MOVE BIN12,W0 NUMB OF LAYOUT CHARS:=0 " P MOVE DEBINW1,W0 SET NCLR-
0x1ff500…1ff694 (1, 412) Dummy {f00=0x009d, f01=0x0190, f02=»,DEBINW1 INITIATE FIELDCONTROLBITS DEF P MOVE BIN7,W0 FIELDLENGTH:=0 . P MOVE BIN16,W0 R ( P MATCH PICSTR,BIN16,W15,LDES,BIN5,W1 h P BNOK PICNE INSERT $ P CBE BIN16,W0,PICA0 JUMP IF = 0 , P IB BIN16,PICA1,PICN2,PICN3,PICN3, 1-4 C * P
0x1ff694…1ff828 Dummy {f00=0x009d, f01=0x0190, f02=»PICA1 ALPHANUMERIC RIGHT P SET REWRT INDICATE REWRITE " $ P SET SCHK2 RIGHT ADJUST ALPHANUM F PPICA0 ALPHANUMERIC LEFT n ( P SET ALPHA INICATE ALPANUMERIC FIELD PPICA $ P XCOPY STATSH,BIN12,W1,LDES,BIN5 P ADD BIN12,W1 NEXT PICCH
0x1ff828…1ff9bc Dummy {f00=0x009d, f01=0x0190, f02=»CH PICSTR,BIN16,W15,LDES,BIN5,W1 ( P CBE BIN16,W12,PIC99 '>' FOUND READY ( P B PICA T P* NUMERIC FIELDS d PPICN3 P SET REWRT PPICN2 $ P XCOPY STATSH,BIN12,W1,LDES,BIN5 & P ADD BIN7,W1 ADD 1 TO FIELD LENGTH P B PIC
0x1ff9bc…1ffb50 Dummy {f00=0x009d, f01=0x0190, f02=» P SET SCHK1 INDICATE SIGN ! P SET REWRT INDICATE REWRITE ! $ P B PICNM NEXT MATCH ! H PPICN11 ! d P SET REWRT ! r $ P XCOPY STATSH,BIN12,W1,PICCON,W1 ! P B PICNM NEXT MATCH ! PPICN14 ! $ P XCOPY STATSH,BIN12,W1,PICCON,W3 ! & P SET SCHK2
0x1ffb50…1ffce4 Dummy {f00=0x009d, f01=0x0190, f02=»PICNE ! $ P XCOPY STATSH,BIN12,W1,PICCON,W2 " P ADD BIN12,W1 NEXT CHARACTER " 6 PPICN10 " Z P SET REWRT INDICATE REWRITE " h $ P XCOPY STATSH,BIN12,W1,LDES,BIN5 " PPICNM " P ADD BIN12,W1 NEXT PICCHARS " $ P ADD BIN5,W1 NEXT LDES POSITION "
0x1ffce4…1ffe78 Dummy {f00=0x009d, f01=0x0190, f02=»CNE 0=L =>EL " , P IB BIN16,PICNE,PICN2,PICN3,PICN3, 1-4 C # * P PICN3,PICN3,PICN3,PICN8,PICN9, 5-9 C # D , P PICN10,PICN11,PIC99,PICNE,PICN14 10-14 # r PPIC99 # P ADD BIN5,W1 # P RET # P PEND # P EJECT # P* # . P* FORMAT FIE
0x1ffe78…20000c Dummy {f00=0x009d, f01=0x0190, f02=»* INPUT VARIABLES: DEBIN5 = SAVED RESTARTPOINT OF PICTURESTRING # P* $ N P* $ X P* OUTPUT VARIABLES: $ b 4 P* DEBINW2 = 0 OK GO ON $ F P* = 1 NO AVAILABLE BUFFERS;CANCEL $ F P*
0x20000c…2001a0 Dummy {f00=0x009d, f01=0x0190, f02=» $ P P* % L P*********************************************************************** % P* % b PFDIR PROC % l P* % ~ ( P* FORMAT DIREKTIV GENERATION % P* % * P MOVE DEBINW2,W0 ZEROISE OUTPUT PARAM % $ P TBF BOOL2,FDIR99 NO FIELD F
0x2001a0…200334 (1, 413) Dummy {f00=0x009d, f01=0x0190, f02=»ERROR SIGNALS % x , P TBT BOOL6,FDIR10 JUMP IF BALANCE FORMAT & " P PERF DESC GENERATE DESCRIPTOR & F * P CBNE DEBINW2,W0,FDIR99 ERROR SIGNALS & l $ P TBT ALPHA,FDIR34 JUMP IF ALPHA & PFDIR10 & , P MOVE BIN5,DEBIN5 RESTORE PIC.STARTPOINT & P PERF PI
0x200334…2004c8 Dummy {f00=0x009d, f01=0x0190, f02=»SP,W0,BIN5,LDES,W0 COPY TEXT & ( P TBT DOOL8,FDIR73 JUMP IF NO DISPLAY ' $ " P DISPLAY 2,W3,W3 DISPLAY LDISP ' P P EJECT ' v P* ' " P* FVAL (+) FGEN (+) FACC ' P* ' PFDIR73 ' & P SET BOOL1 T=FIRTS FIELD CONFIRMED ' ( P SET DOOL1 T=FIELD
0x2004c8…20065c Dummy {f00=0x009d, f01=0x0190, f02=» & P MOVE DEBIN4,W0 STARTPOS IN JOBSPC ( , P MOVE DEBIN5,W0 NUMB OF DELETED CHARS:=0 ( . PFDIR75 ( ^ P MOVE STRG10A,='#V:#G:#A:' ( l ( P MOVE FBIN1,W0 FUNCINDEX POINTER:=0 ( , P MATCH STRG10A,FBIN1,W9,JOBSPC,DEBIN4,W3 ( " P BNOK FDIR85 NO MORE FUNCTIONS
0x20065c…2007f0 Dummy {f00=0x009d, f01=0x0190, f02=»H ( . P PERFI FBIN1,FVAL,FGEN,FACC FVAL,FGEN,FACC ) * P CBNE DEBINW2,W0,FDIR99 ERROR SIGNALS ) < 2 P MOVE DEBIN1,DEBIN4 STARTPOS'JOBSPC' NEXT FUNC ) j " P B FDIR75 GO ON NEXT FUNCTION ) PFDIR85 ) ( P CALL EMPTYT,DUPL LOOK IF DUPL EMPTY ) P BNOK FD
0x2007f0…200984 Dummy {f00=0x009d, f01=0x0190, f02=»D CHARS:=0 ) r P PERF FDUPL * PFDIR90 * & P TBF DOOL8,FDIR99 * 4 " P ERASE 11,W4,W0 CLEAR IN CORE * N PFDIR99 * t P RET * P PEND * P EJECT * P* * $ P* DESCRIPTOR-TABLE STORING * P* * & P* EACH FIELD TAKES TW0 WORDS
0x200984…200b18 Dummy {f00=0x009d, f01=0x0190, f02=»LE * f P* -LENGTH BITS 4-15 + P* (BYTE 1) + . D P* BITS 0-15= - NUMBER OF MATCHED #:S WHEN STRG + R J P* (BYTE 2) - (NUMBER OF MATCHED #:S + 1)/2 WHEN BCD + P* + P* WORD2 + B P
0x200b18…200cac Dummy {f00=0x009d, f01=0x0190, f02=»******************************************************************** + PDESC PROC , L P MOVE BIN16,W0 WORKITEM:=0 , ^ , P MOVE BIN15,BIN7 LOAD NUMBER OF '#'-POS , $ P TBT ALPHA,DESC10 JUMP IF ALPHA , P* , P* NUMERIC FIELD , P* , &
0x200cac…200e40 Dummy {f00=0x009d, f01=0x0190, f02=»OAD TYPE AND LENGTH , ~ : P XCOPY BPOOL(BIN4),BIN2,W2,BIN16,W0 STORE TYPE/LENGTH - P ADD BIN2,W2 NEXT POS - Z ( P MOVE BIN16,BIN13 RESTORE LAST DISPL - x ( P ADD BIN16,BIN14 ADJUST DISPLACEMENT - < P XCOPY BPOOL(BIN4),BIN2,W2,BIN16,W0 STORE DISPLACEMENTS
0x200e40…200fd4 (1, 414) Dummy {f00=0x009d, f01=0x0190, f02=»,DESC99 JUMP IF NOT END OF BUFFER - PDESC20 . * , P MOVE BIN16,W1 NUMBER OF WANTED BUFFERS . 8 < P PERF DEPOOL,W3,BIN16,BIN4,STRG10A CHAIN ANOTHER BUFFER . h P BNOK DESC30 . P MOVE DEBINW2,W0 . , P MOVE BIN4,BIN16 LOAD NEW BUFFERPOINTER . , P ADD
0x200fd4…201168 Dummy {f00=0x009d, f01=0x4100, f02=»E BPOOL(BIN4),HEX00 . " P MOVE BIN2,W0 BUFFER PONTER:=0 / P B DESC99 / B PDESC30 / T P PERF DERROR,DEKTAB7 / b P CBE DEBINW2,W1,DESC20 / ~ ( P SUB DEBINW2,W1 ADJUST FOR CANC RET / PDESC99 / P RET / P PEND / END / @ / , P ADD
0x201168…2012fc Dummy {f00=0x009d, f01=0x2008, f02=» 0 END , @ , NOK DESC30 + , P MOVE BIN4,BIN16 LOAD NEW BUFFERPOINTER + * P MOVE DEBINW2,W0 + Z , P ADD PINACC,W1 NUMBER OF DESC-BUFFERS+1 + r P MOVE BPOOL(BIN4),HEX00 + " P MOVE BIN2,W0 BUFFER PONTER:=0 + P B DESC99 + PDESC30 + P
0x2012fc…201490 Dummy {f00=0x009d, f01=0x0190, f02=» @ H IDENT PTSDE TRA 5.0 80-10-28 F1 O1111 REL 10.0 80-04-11 ) > : ATTDEV ATTPRT DEANOK DEAOK0 DEAOK1 DEAOK2 DEAOK4 ) H < 8 DEAPPLS DEFINDA DEPMSK0 DEPRUTF DETCHK DETPRT. PTSDE ) $$$TRA ) B > ATTDEVS ATTPRTD DEANOKP DEAOK0H h D
0x201490…201624 Dummy {f00=0x009d, f01=0x0190, f02=»HANFCP CONDD DE10ST+ DE20STK DE30STU DE40STT DE50ST ) > : DE60STS DE70STE DEAP1AA DEAP2AD DEAP3Ah DEAP5A. DEAP7AK * < @ < DECLRA DERRF GETINDD GETVOL+ MSKOUTK OPCLS POOLA RESTOR5 * ~ D @ SAVES T:ABORS T:ATTF1 T:DELA2 T:DISP3 T:DSC05 T:DSC17 T:ERAS * ,
0x201624…2017b8 Dummy {f00=0x009d, f01=0x0190, f02=» * + + * + H + + t + + + +
0x2017b8…20194c Dummy {f00=0x009d, f01=0x018e, f02=» + , 0 , ( , 8 , H $ , X , , h 4 , x , " , - " , 5 4 , 6 ' , : , J F " D 0R 0}0R o0R oA T 0R K 0RAd
0x20194c…201ae0 Dummy {f00=0x009d, f01=0x018e, f02=» , i - j - k - ( l - 8 m - H n - X o - h q . - x | * - J F " D @) R!P V R_, R6 !! _ jX 3 RRRRRRRRRR0R 0}@d R"P - " - d -
0x201ae0…201c74 (1, 415) Opaque[0x194]
0x201c74…201e08 # DirEnt {nam=»DATUM «, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x13c0, f03=0x0000}
0x201c74…201e08 IdxSect {
0x201c74…201e08 f00 = 0x009e // 0x201c74 @0x0
0x201c74…201e08 f01 = 0x0004 // 0x201c76 @0x2
0x201c74…201e08 gno = [ // 0x201c78 @0x4
0x201c74…201e08 [0x00]: C0x009e.0x0.0
0x201c74…201e08 [0x01]: C0x009e.0x1.0
0x201c74…201e08 ]
0x201c74…201e08 }
0x201e08…201f9c Dummy {f00=0x009e, f01=0x0190, f02=» " IDENT DATCHK 79-03-16/PEEN * * * 4 2 -* THIS ROUTINE CHECKS THE DATE PLAUSIBILITY > 2 .* EUROPEAN (AA-MM-DD) OR AMERICAN (MM-DD-AA) t < 8* STANDARD. 'DD' IS CHECKED ACCORDING TO CORRESPONDING * MONTH. FEBRUARI NOT > 29
0x201f9c…202130 Dummy {f00=0x009e, f01=0x0190, f02=» SKIP = BIN ITEM TELLING HOW MANY DIGITS COUNTED @ ;* FROM THE RIGHT TO BE SKIPPED BEFORE THE : * &* CHECK IS PERFORMED ~ B >* BUFF = STRING ITEM HOLDING THE DATA TO BE CHECKED * ( #*
0x202130…2022c4 Dummy {f00=0x009e, f01=0x0190, f02=» EXTRN I:EVA0 EXTRN I:RT1 * * * 4 CALL FORM 16=/F6A1,16 > BYTE FORM 8,8 * r * | DATCHK EQU * LDK A6,2 SET SWITCH " CALL I:EVA0 NO. TO BE SKIPPED LDR* A7,A9 CALL I:EVA0 BUFFER ADDR
0x2022c4…202458 Dummy {f00=0x009e, f01=0x0190, f02=» CALL GETDIG " * MULTIPLY DIGIT BY 10 AND ADD ADR A7,A1 > ADR A7,A1 P SLL A1,3 TIMES 8 b ADR A7,A1 | RF(Z) NOK SUK A6,1 0 + RF(Z) DAT200 JUMP IF DD AND MM ARE FETCHED LDR A8,A7 SAVE DAY LDK A
0x202458…2025ec Dummy {f00=0x009e, f01=0x0190, f02=»AB,A7 GET BYTE FOR COMPARISON SUR A1,A8 & RF(NL) OUT IF OK 8 NOK EQU * R LDK A6,1 INDICATE CR = 1 d OUT EQU * LD A1,2,A13 GET STACK BASE SC A6,-2,A1 STORE CR ABL I:RT1 EJECT GETDIG EQU *
0x2025ec…202780 Dummy {f00=0x009e, f01=0x414a, f02=»B(L) GETDIG CCK A1,'99' RB(G) GETDIG ( ANK A1,/F > RTN A14 P * ` * j TAB EQU *+12 t BYTE 31,29 JAN,FEB BYTE 31,30 MAR,APR BYTE 31,30 MAY,JUN BYTE 31,31 JUL,AUG BYTE 30,31 SEP,
0x202780…202914 (1, 416) Dummy {f00=0x009e, f01=0x2008, f02=»
0x202914…202aa8 Dummy {f00=0x009e, f01=0x002a, f02=» H P p x ( h 8 p x @ H X
0x202aa8…202c3c Dummy {f00=0x009e, f01=0x0190, f02=»I0 } CRs . D V f D Y D J D _ D b & D g D l D p D t D w D | f D D D D h D R D D 4 D D 8 D F : 6 P
0x202c3c…202dd0 Dummy {f00=0x009e, f01=0x0190, f02=»T1 * * .
0x202dd0…202f64 Dummy {f00=0x009e, f01=0x0190, f02=» . P P ` 0 P @ @ N f .
0x202f64…2030f8 Dummy {f00=0x009e, f01=0x0190, f02=»
[…0x2…]
0x203420…2035b4 (1, 417) Opaque[0x194]
0x2035b4…203748 # DirEnt {nam=»DE1201«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x13d0, f03=0x0000}
0x2035b4…203748 IdxSect {
0x2035b4…203748 f00 = 0x009e // 0x2035b4 @0x0
0x2035b4…203748 f01 = 0x0008 // 0x2035b6 @0x2
0x2035b4…203748 gno = [ // 0x2035b8 @0x4
0x2035b4…203748 [0x00]: C0x009e.0x2.0
0x2035b4…203748 [0x01]: C0x009e.0x3.0
0x2035b4…203748 [0x02]: C0x009f.0x0.0
0x2035b4…203748 [0x03]: C0x009f.0x1.0
0x2035b4…203748 ]
0x2035b4…203748 }
0x203748…2038dc Dummy {f00=0x009e, f01=0x0190, f02=» $ P IDENT DE1201 REL 10.0 80-04-11 P 80-02-13/DALI , 2 P********************************************* D 2 P* BOOL1 : T=GET V-S F=CREATE V-S * z 2 P* BOOL2 : T=LINE 1-2 F=LINE 1-3 * 2 P* BOOL3 : T=LINE 1-5 F=LINE
0x2038dc…203a70 Dummy {f00=0x009e, f01=0x0190, f02=»ELEM.IN THIS RECORD * * P* BIN3 SIZE OF ELEMENT * * P* BIN4 FIRST EL.NO. IN RECORD * L * P* BIN5 LAST - " - * z * P* BIN6 ELMNO - BIN4 + W1 * * P* BIN7 = 0 * * P* B
0x203a70…203c04 Dummy {f00=0x009e, f01=0x0190, f02=»DUM DEDDIV P PDIV P ENTRY ENT12 P* 4 P EXT FMOVE > P EXT DERR P P EXT CANC11 b P EXT CANC12 v P EXT ATTWB P EXT ATTDB P EXT DECLRN P EXT DEPOOL P EXT DERROR P EXT DEDISC P EXT TESTB
0x203c04…203d98 Dummy {f00=0x009e, f01=0x0190, f02=»LR,CAN,RET P* PDEKTAB9 KTAB CLR,CAN,RET,ENT P* @ P EJECT J PENT12 X P TBF BOOL1,E1 IF CREATE f P B GET PE1 P MOVE ELMNO,W1 & P********************************* & P* MODUL 12 - CREATE VALUE-SET * & P
0x203d98…203f2c Dummy {f00=0x009e, f01=0x0190, f02=»LEASE BUFFER j & P MOVE DEBINW4,W8 'ALREADY DEFINED' PE2 > P MOVE DEBINW1,W0 H P PERF DERROR,DEKTAB6 ` P SUB DEBINW2,W1 | < P CALL RESTOR,W3,W4,PWBDB4 RESTORE ORIG. DESCR.-POINTERS P B A20 PE8 " P CBE DEBINW4,W9,E10 NOT FOUN
0x203f2c…2040c0 Dummy {f00=0x009e, f01=0x0190, f02=»A,=X'545400' T(ABLE) 2 P COPY STRG10A,W2,W2,DEINPUT,W0 VALUE-SET-NAME < P PERF DEPOOL,W2,PINDTB,BIN7,STRG10A GET BUFFER WITH LOCK R P BNOK ERR99 2 P PERF DEPOOL,W4,PINDTB,BIN7,STRG10A SET BUFFER P MOVE BPOOL(PINDTB),HEX00 P CLEAR BOO
0x2040c0…204254 (1, 418) Dummy {f00=0x009e, f01=0x0190, f02=»NW2,CANC12,CANC12,E20 P MOVE DEBINW4,W0 'BELL' P PERF DERR > P B E16 P PE20 ^ & P MOVE BIN4,W1 1:ST EL.NO. IN REC. j P MOVE BIN2,=W'180' P MOVE STR1A,STR2A P CBE STR1A,=C'N',E24 & P DIV BIN2,BIN3 NO.OF ELEM. IN REC.
0x204254…2043e8 Dummy {f00=0x009e, f01=0x0190, f02=»OVE BIN10,=X'B000' IF BCD ='1011' " P MOVE BIN1,BIN3 NUMERIC INPUT , P DIV BIN1,W2 R P ADD BIN1,W1 BYTES f P ADD BIN10,BIN1 ( P DIV BIN2,BIN1 NO. OF ELEM. IN REC. PE30 ( P MOVE BIN5,BIN2 LAST EL.NO. IN REC. 6 P XCOPY BPOOL
0x2043e8…20457c Dummy {f00=0x009e, f01=0x0190, f02=»ODIFY FORMAT P CALL FMOVE,STR64A,FORMA P CALL TESTB,BIN10,W2 4 P BZ E32 P P CALL FMOVE,STR64A,FORMN ` PE32 $ P XCOPY STR64A,W3,W1,BIN3,W1 SIZE P MOVE ELMNO,W1 P MOVE BIN6,W1 INDEX P B E36 P* ENTER ELEMENT
0x20457c…204710 Dummy {f00=0x009e, f01=0x0190, f02=»IT12 RECORD FILLED P BNOK ERR99 PE37 . $ P CALL ATTWB,BPOOL(PINDTB),W8,W11 : $ P CALL ATTDB,BPOOL(PINDTB),W0,W11 b P MOVE ACK(W1),ELMNO P MOVE BIN6,ELMNO INDEX P SUB BIN6,BIN4 P ADD BIN6,W1 P DISPLAY 3,W4,W4 FIELD 4
0x204710…2048a4 Dummy {f00=0x009e, f01=0x0190, f02=» PERF DECLRN PE45 6 P IB DEBINW2,CANC12,CANC12,E35,E56,E56,E56,E56,E60 PE56 Z P MOVE DEBINW4,W0 'BELL' f P PERF DERR P IB DEBINW2,E42,CANC12 P B E45 PE60 , P CBE ELMNO,BIN4,E70 =1:ST EL.NO. IN REC. " P PERF WR
0x2048a4…204a38 Dummy {f00=0x009e, f01=0x018e, f02=»********************* $ P* MODUL 13 - GET VALUE-SETS * $ P******************************* F PGET n P SET BOOL2 z P MOVE ELMNO,W1 $ P PERF READ12,W24 GET VALUE-SETS P BERR ERR99 P SET DEPROMPT P B B40 PFORW
0x204a38…204bcc Dummy {f00=0x009e, f01=0x0190, f02=» P SUB ELMNO,W1 P CBL ELMNO,W1,B10 . P CBL ELMNO,BIN4,B20 < 1:ST EL.NO. IN REC. 8 P B B50 j PB10 x $ P MOVE ELMNO,W1 BACKW NOT LESS 1 P B B50 PB20 " P PERF READ12,W24 GET VALUE-SET P BOK B40 $ P CBE DEBINW4
0x204bcc…204d60 Dummy {f00=0x009e, f01=0x0190, f02=»0 P CLEAR BOOL2 LINE 1-3 P SET BOOL3 LINE 1-5 ( P MOVE BIN6,ELMNO INDEX D P SUB BIN6,BIN4 b P ADD BIN6,W1 x P MOVE ACK(W1),ELMNO P ERASE 0,W5,W5 LINE 5 P TBT DEPROMPT,B55 P DISPLAY 3,W4,W5 PB55 P SET
0x204d60…204ef4 (1, 419) Dummy {f00=0x009f, f01=0x0190, f02=» P MOVE DEBINW4,W0 'BELL' P B B84 $ PB80 2 P MOVE DEBINW4,W9 'NOT FOUND' > P SUB ELMNO,W1 b P SET DENOCHAN x PB84 P PERF DERR P B B60 P* P* INSERT NEW ELEMENT PINS P AFTER LAST ELEMEN
0x204ef4…205088 Dummy {f00=0x009f, f01=0x0190, f02=» l P ADD ELMNO,W1 P B I10 PI20 , P SUB ELMNO,W1 8 " P PERF READ12,W24 GET VALUE-SET N P MOVE BIN1,BIN4 t P ADD BIN1,BIN2 P SUB BIN1,W1 P CBE ELMNO,BIN1,I30 P MOVE BIN5,BIN1 4 P PERF DEPOOL,W8,PINDTB,BIN7,ST
0x205088…20521c Dummy {f00=0x009f, f01=0x0190, f02=» BIN4,W1 P ADD BIN5,BIN2 P MOVE BIN1,PINDTB & 6 P PERF DEPOOL,W6,PINDTB,BIN7,STRG10A RELEASE BUFFER @ P MOVE PINDTB,W1 1 BUFFER z ( P MOVE BIN7,W0 NO CONSECUTIVE BUFFERS " P MOVE STRG10A,=X'5400' T(ABLE) P COPY STRG10A,W1,W3,TABLE,W0
0x20521c…2053b0 Dummy {f00=0x009f, f01=0x0190, f02=»R99 2 P PERF DEPOOL,W4,PINDTB,BIN7,STRG10A SET BUFFER $ P MOVE BPOOL(PINDTB),BPOOL(BIN1) B $ P CALL ATTWB,BPOOL(PINDTB),W8,W11 j P B E35 PERR13 $ P MOVE DEBINW4,W13 'NO WORKSPACE' PERR99 P MOVE DEBINW1,W0 P PERF DERROR
0x2053b0…205544 Dummy {f00=0x009f, f01=0x018e, f02=»ORRECTION x P* P* DELETION P* 0 2 P PERF DEPOOL,W4,PINDTB,BIN7,STRG10A SET BUFFER : PC40 p . P MOVE DEBINW4,W17 'PRESS ENT FOR DELETION' | P PERF DERROR,DEKTAB9 P SUB DEBINW2,W1 ADJUST * P IB DEBINW2,B50,ERA20,C50 CAN,RE
0x205544…2056d8 Dummy {f00=0x009f, f01=0x018e, f02=» P BNOK C75 6 P PERF DEPOOL,W6,PINDTB,BIN7,STRG10A RELEASE BUFFER 6 P PERF DEPOOL,W5,PINDTB,BIN7,STRG10A SEARCH BUFFER P P BOK C55 P MOVE BIN8,=W'25' & P PERF DEDISC,BIN8 DELETE VALUE0SET P BOK CANC12 CANC-KEY PC75 & P S
0x2056d8…20586c Dummy {f00=0x009f, f01=0x0190, f02=» P* CORR. VALUE-SET * P********************* " 4 P PERF DEPOOL,W8,PINDTB,BIN7,STRG10A LOCK BUFFER @ P BNOK C75 x P PERF DECLRN PC711 " P IB DEBINW2,CANC12,CANC12,C72 P MOVE DEBINW4,W0 P PERF DERR P B C711
0x20586c…205a00 Dummy {f00=0x009f, f01=0x0190, f02=»RB,RPOOL(PINDTB),W0 UNLOCK BUFFER P B B50 * P EJECT 8 PREAD12 PROC FC F P MOVE DEINPUT,STR64A P PERF DEDISC,FC x P MOVE STR64A,DEINPUT P BERR R10 P MOVE BIN3,W0 @ P XCOPY BIN3,W1,W1,BPOOL(PINDTB),W1 SIZE OF ELEMENT I
0x205a00…205b94 (1, 420) Dummy {f00=0x009f, f01=0x018e, f02=» | P CALL TESTB,BIN10,W2 P BZ R05 $ P MOVE STR2A,=X'4E00' C'N' 4 P CALL FMOVE,STR64A,FORMN V P MUL BIN3,W2 v P SUB BIN3,W1 PR05 $ P XCOPY STR64A,W3,W1,BIN3,W1 SIZE P MOVE TIME,BIN3 > P XCOPY BIN2,W0,W2,BPOOL(PINDTB
0x205b94…205d28 Dummy {f00=0x009f, f01=0x0190, f02=» X : P XCOPY BIN5,W1,W1,RPOOL(PINDTB),W18 LAST ELEM. IN REC. P CMP W1,W1 SET S=0 F PR10 ` P RET l P PEND x P EJECT P* PFORMN FRMT * P FKI 1,NUM,MINL=1,MAXL=1,REWRT,SCHK=1 0 P FMEL 'XXXXXXXXXXXXXXXXXXXXX-',FDVBCD(BIN6
0x205d28…205ebc Dummy {f00=0x009f, f01=0x40c4, f02=»L=1,NEOI,ME x P* FCOPY FDVBCD(BIN6) 6 P FCTL X'F0',1,X'C1',X'01',X'00',X'C0',FDVBCD(BIN6) 0 P FNL j P FKI 1,MINL=0,MAXL=0 v P FCOPY HEX00 P FMEND END @ XL=1,REWRT,SCHK=1 0 P FMEL 'XXXXXXXXXXXXXXXXXXXXX-',FDVBCD(BIN6
0x205ebc…206050 Dummy {f00=0x009f, f01=0x2008, f02=» NT DE12ST DDUM DEDDIV PDIV . ENTRY DE12ST < DE12ST R PROC ` RET n PEND z END @ KITEM PSTR6A STRG 6 WORKITEM PSTRG10A STRG 10 WORKITEM PDIV END @ ARIABL
0x206050…2061e4 Dummy {f00=0x009f, f01=0x0190, f02=»99999999999999999999 ~ * & 99999999999999999+ 1 * & ) 73 @ U 72 > 5 ? J * & G 71 > 6 = l 1 x * & e # ! 8 : !A k * & : 8 : "A l # ! * &
0x2061e4…206378 Dummy {f00=0x009f, f01=0x4174, f02=» FETCHING FORMAT: FROM DI * & SC. @ UF * * & 7 X * & U $ + 4 > I0 V0 W * & s * & ( 7 F U e
0x206378…20650c Dummy {f00=0x009f, f01=0x4014, f02=» HNOD @ | 0@ B
0x20650c…2066a0 Dummy {f00=0x009f, f01=0x0190, f02=» IDENT P:S016 F : > B " * & !11 P Q 0U80 88 R*j @ * & - !! oU 20 !jo! 3j n * & K o " 11 W % 1 "11 H 03W 11 * & i !04 ! 6 W"0 0 * & $(
0x2066a0…206834 (1, 421) Opaque[0x194]
0x206834…2069c8 # DirEnt {nam=»DEATTF«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x13f0, f03=0x0000}
0x206834…2069c8 IdxSect {
0x206834…2069c8 f00 = 0x009f // 0x206834 @0x0
0x206834…2069c8 f01 = 0x0006 // 0x206836 @0x2
0x206834…2069c8 gno = [ // 0x206838 @0x4
0x206834…2069c8 [0x00]: C0x009f.0x2.0
0x206834…2069c8 [0x01]: C0x009f.0x3.0
0x206834…2069c8 [0x02]: C0x00a0.0x0.0
0x206834…2069c8 ]
0x206834…2069c8 }
0x2069c8…206b5c Dummy {f00=0x009f, f01=0x0190, f02=» $ P IDENT DEATTF REL 10.0 80-04-11 P 80-04-14/JAER , P* D B P* THIS ROUTINE ATTACHES ACTUAL FORMAT DEFINITION FORMAT N P* P DDUM DEDDIV P PDIV P ENTRY DEATTF P EJECT PDEATTF PROC , P TBT BOOL6,ATT10
0x206b5c…206cf0 Dummy {f00=0x009f, f01=0x0190, f02=»ORMAT DEF r PATT99 P RET P PEND , EJECT : F21FD FRMT H FSL Z FTEXT '21 USER ' f FCOPY ='FORMAT' FILLR ' ',1 FCOPY ='DEFINITION' $ P FBF BOOL7,F21A JUMP IF NEW-REG. P FTAB 35 P FHIGH
0x206cf0…206e84 Dummy {f00=0x009f, f01=0x0190, f02=» ='FIELD' FTEXT =': F' FINP 9 ( P FMEL 'XXX',FDVBCD(W4) 8 P FTAB 15 V P FCOPY ='START:' f P FINP 22 ~ P FMEL 'ZZ',FDVBCD(W5) P FTAB 30 FCOPY ='LENGTH' P FILLR ':',1 P FINP 38 P FMEL 'ZZ',FDVBC
0x206e84…207018 Dummy {f00=0x009f, f01=0x0190, f02=» P FMEL 'TTTT',FDVBCD(W8) FNL $ P FNL 0 P FTAB 10 < P FTEXT 'KEYED INPUT ' L P FILLR '(',1 j P FUL ~ P FILLR 'Y',1 P FNUL P FTEXT '/N/C):' , P FKI 32,APPL=108,ALPHA,MAXL=1,NEOI,CTAB P FCOPY FDVSTR(W1)
0x207018…2071ac Dummy {f00=0x009f, f01=0x0190, f02=»T,NEOI,CTAB t P FMEL 'XX',FDVBCD(W7) P FNL 2 P FTAB 10 > P FTEXT 'MUST ENTER ' N P FTEXT '(Y/' l P FUL P FILLR 'N',1 P FNUL P FTEXT '/C):' , P FKI 32,APPL=114,MAXL=1,ALPHA,NEOI,CTAB P FCOPY FDVSTR(W2)
0x2071ac…207340 Dummy {f00=0x009f, f01=0x0190, f02=» '):' , P FKI 64,APPL=115,MAXL=1,ALPHA,NEOI,CTAB P FCOPY FDVSTR(W3) > FNL X P FTAB 10 d P FTEXT 'DUPLICATE ' t P FTAB 29 P FILLR ':',1 2 P FKI 32,APPL=106,ALPHA,MAXL=6,MINL=1,NEOI,CTAB FCOPY DUPL P FTAB 46
0x207340…2074d4 (1, 422) Dummy {f00=0x009f, f01=0x0190, f02=»LR ':',1 , P FKI 64,APPL=116,MAXL=1,ALPHA,NEOI,CTAB P FCOPY FDVSTR(W4) @ FNL Z P FTAB 10 f P FTEXT 'INITIAL CLEAR ' v P FILLR '(',1 P FUL P FILLR 'Y',1 P FNUL P FTEXT '/N):' , P FKI 32,APPL=117,MAXL=1,AL
0x2074d4…207668 Dummy {f00=0x009f, f01=0x0190, f02=»B j P FMEL 'ZZVZZZ',SPEC FNL & P FNL 2 P FCOPY ='VALIDATION ' > P FCOPY ='(#V:...)' P FTAB 25 v P FCOPY ='GENERATION ' P FCOPY ='(#G:...)' P FTAB 50 P FCOPY ='ACCUMULATION ' P FCOPY ='(#A:...)' P
0x207668…2077fc Dummy {f00=0x009f, f01=0x0190, f02=»XL=80,ALPHA,NEOI,CTAB ~ * P FCOPY FORTAB(W2) VAL-GEN-ACC-STRING2 FNL L P FKI 1,CTAB X P FCOPY HEX00 l FMEND P EJECT PF22FD FRMT P FSL P FTEXT '22 BALANCE ' FCOPY ='FORMAT' FILLR ' ',1 FCOPY
0x2077fc…207990 Dummy {f00=0x009f, f01=0x018e, f02=» P FNL FNL P FLINK F20COM FNL 6 P FNL B P FTAB 10 N P FCOPY ='START' ^ P FTAB 27 v P FILLR ':',1 P FINP 30 P FMEL 'ZZ',FDVBCD(W5) P FTAB 46 FCOPY ='LENGTH' P FTAB 62 P FILLR '
0x207990…207b24 Dummy {f00=0x009f, f01=0x0190, f02=» v , P FKI 30,APPL=109,MAXL=2,REWRT,NEOI,CTAB P FMEL 'XX',FDVBCD(W8) 8 P FTAB 46 V FTEXT 'SPECIAL HANDLING:' f , P FKI 64,APPL=107,MAXL=5,REWRT,NEOI,CTAB P FMEL 'ZZVZZZ',SPEC FNL P FNL P FCOPY ='VALIDATION '
0x207b24…207cb8 Dummy {f00=0x009f, f01=0x0190, f02=»ALPHA,NEOI,CTAB x * P FCOPY FORTAB(W1) VAL-GEN-ACC-STRING1 P FNL F , P FKI 1,APPL=112,MAXL=80,ALPHA,NEOI,CTAB R * P FCOPY FORTAB(W2) VAL-GEN-ACC-STRING2 FNL P FKI 1,CTAB P FCOPY HEX00 FMEND P EJECT PF20COM F
0x207cb8…207e4c Dummy {f00=0x009f, f01=0x018e, f02=» FTAB 16 FCOPY ='PAGE' FTEXT ' SIZE:' * 4 P FKI 27,APPL=102,NEOI,MINL=1,MAXL=2,ME,NCLR,CTAB B P FMEL 'AA',FDVBCD(W1) z FTAB 30 P FCOPY ='LINE ' FCOPY ='NUMBER' FILLR ':',1 FINP 43 P FMEL 'Z9',F
0x207e4c…207fe0 Dummy {f00=0x009f, f01=0x018e, f02=» FNL FTAB 10 FILLR '1',1 FTAB 20 4 FILLR '2',1 D FTAB 30 X FILLR '3',1 h FTAB 40 | FILLR '4',1 FTAB 50 FILLR '5',1 FTAB 60 FILLR '6',1 FTAB 70 FILLR '7',1
0x207fe0…208174 (1, 423) Dummy {f00=0x00a0, f01=0x4152, f02=» z FCOPY ='1234567890' FCOPY ='1234567890' $ FCOPY ='1234567890' @ FCOPY ='1234567890' P FCOPY ='123456789 ' x P FILLR X'80',1 FNL P FINP 1 FCOPY LDISP FNL 6 P FKI 1,APPL=110,ALPHA,MAXL=80,DUPL
0x208174…208308 Dummy {f00=0x00a0, f01=0x2008, f02=» NT DE12ST DDUM DEDDIV PDIV . ENTRY DE12ST < DE12ST R PROC ` RET n PEND z END @ KITEM PSTR6A STRG 6 WORKITEM PSTRG10A STRG 10 WORKITEM PDIV END @ ARIABL
0x208308…20849c Dummy {f00=0x00a0, f01=0x004c, f02=» HTRA DEATTF HKPF /O HXRF DEATTF $ HSKF 2 6 HEND D 4 1234567890 P $ 4# j 5 123456789 z $ 5# & & & & & & n @ &
0x20849c…208630 Dummy {f00=0x00a0, f01=0x2008, f02=» DEATTF HKPF /O HXRF DEATTF $ HSKF 2 6 HEND D 4 1234567890 P $ 4# j 5 123456789 z $ 5# & & & & & & n @ &
0x208630…2087c4 Dummy {f00=0x00a0, f01=0x0190, f02=» A 7 #0 T 7 #0 T V A F< W 4R 3V 2B/ 3Z _ 4 5| 5( P 7 <H : 2jW 4 5( 7 / <H "!@ F : 4 58 C C W 5D C C J2 ' W 781"&$ 39#$;< '()*+,-! 5D 5| 5( 7 P _D 4 B 7
0x2087c4…208958 Dummy {f00=0x00a0, f01=0x0190, f02=» ' P" 3 P B % P C + 6" A 4 I "%@P "% P& B C C 4 "5 # B P B P B 5 P C : 4 4 = 3 C 3 C B B P C 46 : "!@T F< V I C B : ( ' P 4 I : 4 5( % Y 7V C
0x208958…208aec Dummy {f00=0x00a0, f01=0x0190, f02=»T # ' ?D 9 W.' #? 9 V H F0 ;D:B " : _, 7 C : : 4 58 7< P C W $0 P E C 5 : "!@P ") # B C B % C C : 7<#0 T & C C : 5 C C : & T ;d# P V
0x208aec…208c80 Dummy {f00=0x00a0, f01=0x0190, f02=» P7 7 PR L6 R R _ R _ # Q R V > _V X^ ' h P P & 1_ P 1_ , @ - R T U :J a B@ ' d w5 1 7 : B > F :l:d:h 7 W W P W 6 2#
0x208c80…208e14 (1, 424) Opaque[0x194]
0x208e14…208fa8 # DirEnt {nam=»DESTAT«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x1408, f03=0x0000}
0x208e14…208fa8 IdxSect {
0x208e14…208fa8 f00 = 0x00a0 // 0x208e14 @0x0
0x208e14…208fa8 f01 = 0x0002 // 0x208e16 @0x2
0x208e14…208fa8 gno = [ // 0x208e18 @0x4
0x208e14…208fa8 [0x00]: C0x00a0.0x1.0
0x208e14…208fa8 ]
0x208e14…208fa8 }
0x208fa8…20913c Dummy {f00=0x00a0, f01=0x0190, f02=» $ P IDENT DESTAT REL 10.0 80-04-11 P 79-05-28/DALI , DDUM DEDDIV D PDIV X P ENTRY DESTAT f ENTRY DESTAU | EXT TESTB P EXT UPDBIN INCLUDE DELITT P EJECT P*********************** P* P
0x20913c…2092d0 Dummy {f00=0x00a0, f01=0x0190, f02=» P* FIX BATCHSTATUS P CALL UPDBIN,BDSTAT P PERF DESTAU,BDSTAT,STR15A : P MOVE BCD13A,BDPOIN(W2) P TBF SOOL2,DESTUT | P* P* FIX RECORDSTATUS P* P CALL UPDBIN,BIN1 P PERF DESTAU,BIN1,STRG10A PDESTUT
0x2092d0…209464 Dummy {f00=0x00a0, f01=0x4162, f02=»DEBINW2,W0 MOVE DEBINW3,W0 MOVE DEBINW4,W0 * " XCOPY DEBINW3,W0,W1,STBIN,W1 B DES100 h CALL TESTB,DEBINW3,DEBINW4 v BZ DES200 * & COPY STSTRG,DEBINW2,W1,STATIU,DEBINW4 ADD DEBINW2,W1 DES200 ADD DEB
0x209464…2095f8 Dummy {f00=0x00a0, f01=0x2008, f02=» NW3,W0 MOVE DEBINW4,W0 " XCOPY DEBINW3,W0,W1,STBIN,W1 . DES100 T CALL TESTB,DEBINW3,DEBINW4 b BZ DES200 * & COPY STSTRG,DEBINW2,W1,STATIU,DEBINW4 ADD DEBINW2,W1 DES200 ADD DEBINW4,W1 CBN
0x2095f8…20978c Dummy {f00=0x00a0, f01=0x0190, f02=»b * !)b 5 R G 6 N 6 R 6 0 V 6 @ Z 6 P ^ 6 ` b 6 p l 6 v 6 } 6 J F " D @ *< ! R$" R 0R Q0X 0R R0X 0R P0R A4 # R _# 1_ R# CZ R$ 6 6
0x20978c…209920 Dummy {f00=0x00a0, f01=0x0190, f02=» 6 COPY JOB: 7 $ 7 $ & 7 4 & 7 B $ 7 P ( 7 ` 7 l & 7 | COPY BATCH: 7 $ 7 & 7 & @ 7 $ 7 ( 7 7 & 7
0x209920…209ab4 (1, 425) Opaque[0x194]
0x209ab4…209c48 # DirEnt {nam=»DE90ST«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x1410, f03=0x0000}
0x209ab4…209c48 IdxSect {
0x209ab4…209c48 f00 = 0x00a0 // 0x209ab4 @0x0
0x209ab4…209c48 f01 = 0x0002 // 0x209ab6 @0x2
0x209ab4…209c48 gno = [ // 0x209ab8 @0x4
0x209ab4…209c48 [0x00]: C0x00a0.0x2.0
0x209ab4…209c48 ]
0x209ab4…209c48 }
0x209c48…209ddc Dummy {f00=0x00a0, f01=0x40bc, f02=» P IDENT DE90ST DDUM DEDDIV PDIV . P ENTRY DE90ST < PDE90ST PROC R P MOVE BIN1,W0 f P MOVE BIN2,W1 | RET PEND END @ NS ARE VALID: " HMES 1 A,A+AU,A+AOUT,A+AU+AOUT " HMES 2 C,C+CU,C+C
0x209ddc…209f70 Dummy {f00=0x00a0, f01=0x2008, f02=» NT DE12ST DDUM DEDDIV PDIV . ENTRY DE12ST < DE12ST R PROC ` RET n PEND z END @ KITEM PSTR6A STRG 6 WORKITEM PSTRG10A STRG 10 WORKITEM PDIV END @ ARIABL
0x209f70…20a104 Dummy {f00=0x00a0, f01=0x2008, f02=» AND AT LEAST ONE OF THEM MUST BE CHOOSEN 0 HMES ALTERNATIVE 4 MAY BE INCLUDED IF NEEDED 8 HEND l HMES ILLEGAL PARAMETER COMBINATION !!! v * HMES FOLLOWING COMBINATIONS ARE VALID: " HMES 1 A,A+AU,A+AOUT,A+AU+AOUT " HMES 2 C,C+CU,C+C
0x20a104…20a298 Dummy {f00=0x00a0, f01=0x0190, f02=» > ( !Ad1 EAn@m 6 3 W)@n_ ( #/( _! @d0 0} # * h h _: _9 ! 4 1 DAd!hT @d z An@mAe 6 ? " &z 2 4 ?W @Jd P Ao W 0( z ,AnAo@e 2 _C _% (z T &PR 1 7 00_ # %XdAo _8 z! X#b !& "z < $z
0x20a298…20a42c Dummy {f00=0x00a0, f01=0x0190, f02=» W !" (60 X !" )&0 * * A A_=0 !P #_R * , !" 3 h &T !T , , _ ,& !8 W 1? W %W ( ? i d t ^ P 1:2:3:4:5:6:7:8:9:GET G
0x20a42c…20a5c0 Dummy {f00=0x00a0, f01=0x0190, f02=» ( - 8 5 3 h d 31 M ( - 8 32 K ( - 8 R 4 O & 5 0 B A ! Q &A + 0 C A " Q &A , 0 D A # Q &A - 0 E A $ Q &A . 0 F A % Q &A / 0 G A & Q &A 0 0 H A ' Q &A
0x20a5c0…20a754 (1, 426) Opaque[0x194]
0x20a754…20a8e8 # DirEnt {nam=»TRALL «, typ=»UF«, f00=0x0000, f01=0x0000, f02=0x1418, f03=0x0000}
0x20a754…20a8e8 IdxSect {
0x20a754…20a8e8 f00 = 0x00a0 // 0x20a754 @0x0
0x20a754…20a8e8 f01 = 0x0002 // 0x20a756 @0x2
0x20a754…20a8e8 gno = [ // 0x20a758 @0x4
0x20a754…20a8e8 [0x00]: C0x00a0.0x3.0
0x20a754…20a8e8 ]
0x20a754…20a8e8 }
0x20a8e8…20aa7c Dummy {f00=0x00a0, f01=0x018e, f02=» $TRALL END PSCR /O PDEL /OB , PTRA DEDDIV < PTRA DEDISC N PTRA DKRUT1 ` PTRA DKRUT2 r PTRA DKRUT3 PTRA DKRUT4 PTRA PTSDE PTRA DENTER PTRA DENT01 PTRA DENT02 PTRA DENT03 PTRA DE
0x20aa7c…20ac10 Dummy {f00=0x00a0, f01=0x0190, f02=» PTRA DE20ST PTRA DE21ST PTRA DEATTF ( PTRA DE23ST : PTRA DE24ST L PTRA DE30ST ^ PTRA DE31ST p PTRA DE40ST PTRA DE20FS PTRA DEUNPF PTRA DEPRFG PTRA DEPROC PTRA DECVRT PTRA DEVGAC PTRA DE50
0x20ac10…20ada4 Dummy {f00=0x00a0, f01=0x00f0, f02=»TRA DEFDSC PTRA DEACCU PTRA DEGENE $ PTRA STROUT 6 PTRA DEAPPU H PTRA DECOMP Z PTRA DELOCK l PTRA DESTAT ~ PASM ASSRUT PASM CDVRUT PASM DATCHK PKPF /O PSCR /O PASG 2,LP0F A DEVGAC PTRA DE50
0x20ada4…20af38 Dummy {f00=0x00a0, f01=0x2008, f02=» SC PTRA DEACCU PTRA DEGENE $ PTRA STROUT 6 PTRA DEAPPU H PTRA DECOMP Z PTRA DELOCK l PTRA DESTAT ~ PASM ASSRUT PASM CDVRUT PASM DATCHK PKPF /O PSCR /O PASG 2,LP0F A DEVGAC PTRA DE50
0x20af38…20b0cc Dummy {f00=0x00a0, f01=0x0190, f02=» j & P MOVE DEBINW4,BCD2A UNIT NUMBER IS P MOVE FILINDUS,DEBINW4 2 P ADD FILINDUS,W2 P P ADD DEBINW4,=X'D0' h 2 P MOVE FILECODE(FILINDUS),DEBINW4 SAVE FILECODE P SUB FILINDUS,W1 P XCOPY W1,W1,DUNIT,FININDUS P ADD FILINDUS,W1
0x20b0cc…20b260 Dummy {f00=0x00a0, f01=0x0190, f02=» . P CALL CHANFC,DISK,DEBINW4 CHANGE FILECODE : P CALL GETVOL,DISK,RBUF,STRG10A,DEBINW4 GET VOLUMENAME 6 ( P CBE DEBINW4,W0,DEAUN4 JUMP IF OKEY t P MOVE DEBINW4,W9 NOT FOUND P B DEANOK PDEAUN4 P ERASE 1,W2,W2 P MOVE TABLE,STRG
0x20b260…20b3f4 (1, 427) Opaque[0x194]
0x20b3f4…20b588 # DirEnt {nam=»DEATNY«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x1420, f03=0x0000}
0x20b3f4…20b588 IdxSect {
0x20b3f4…20b588 f00 = 0x00a1 // 0x20b3f4 @0x0
0x20b3f4…20b588 f01 = 0x0006 // 0x20b3f6 @0x2
0x20b3f4…20b588 gno = [ // 0x20b3f8 @0x4
0x20b3f4…20b588 [0x00]: C0x00a1.0x0.0
0x20b3f4…20b588 [0x01]: C0x00a1.0x1.0
0x20b3f4…20b588 [0x02]: C0x00a1.0x2.0
0x20b3f4…20b588 ]
0x20b3f4…20b588 }
0x20b588…20b71c Dummy {f00=0x00a1, f01=0x0190, f02=» ( P IDENT DEATTF REL 1.0 80-04-09/JAER P* 0 B P* THIS ROUTINE ATTACHES ACTUAL FORMAT DEFINITION FORMAT : P* P DDUM DEDDIV P PDIV P ENTRY DEATTF P EJECT PDEATTF PROC , P TBT BOOL6,ATT10 JUMP IF BALANCE FOR
0x20b71c…20b8b0 Dummy {f00=0x00a1, f01=0x0190, f02=»T99 P RET P PEND EJECT & F21FD FRMT 4 FSL F FTEXT '21 USER ' R FCOPY ='FORMAT' l FILLR ' ',1 FCOPY ='DEFINITION' $ P FBF BOOL7,F21A JUMP IF NEW-REG. P FTAB 35 P FHIGH P FCOPY ='CORRE
0x20b8b0…20ba44 Dummy {f00=0x00a1, f01=0x0190, f02=» FINP 9 P FMEL 'XXX',FDVBCD(W4) P FNL 6 P FTAB 5 B FCOPY ='FIELD' R FTEXT 'START:' j P FINP 20 P FMEL 'ZZ',FDVBCD(W5) P FTAB 25 FCOPY ='FIELD' FCOPY ='LENGTH' P FILLR ':',1 P FIN
0x20ba44…20bbd8 Dummy {f00=0x00a1, f01=0x0190, f02=»LR ':',1 P FINP 69 P FMEL 'TTTT',FDVBCD(W8) FNL @ P FNL L P FTAB 10 X P FTEXT 'KEYED INPUT ' h P FCOPY ='(Y/N/C):' , P FKI 32,APPL=108,ALPHA,MAXL=1,NEOI,CTAB P FCOPY FDVSTR(W1) P FTAB 46 P FTEXT 'MINIMU
0x20bbd8…20bd6c Dummy {f00=0x00a1, f01=0x0190, f02=»NL P FTAB 10 P FTEXT 'MUST ENTER ' P FCOPY ='(Y/N/C):' 8 , P FKI 32,APPL=114,MAXL=1,ALPHA,NEOI,CTAB R P FCOPY FDVSTR(W2) P FTAB 46 P FTEXT 'AUTO TAB (Y/N):' , P FKI 64,APPL=115,MAXL=1,ALPHA,NEOI,CTAB P FCOPY FDVST
0x20bd6c…20bf00 Dummy {f00=0x00a1, f01=0x0190, f02=»MINL=1,NEOI,CTAB r FCOPY DUPL P FTAB 46 , P FTEXT 'VERIFY' < P FTAB 55 T P FTEXT '(Y/N):' d , P FKI 64,APPL=116,MAXL=1,ALPHA,NEOI,CTAB | P FCOPY FDVSTR(W4) FNL P FTAB 10 " P FTEXT 'INITIAL CLEAR (Y/N):' , P
0x20bf00…20c094 (1, 428) Dummy {f00=0x00a1, f01=0x0190, f02=» 19,APPL=107,MAXL=5,REWRT,NEOI,CTAB P FMEL 'ZZVZZZ',SPEC , FNL H P FCOPY ='VALIDATION ' T P FCOPY ='(#V:...)' r P FTAB 25 P FCOPY ='GENERATION ' P FCOPY ='(#G:...)' P FTAB 50 P FCOPY ='ACCUMULATION ' P FCO
0x20c094…20c228 Dummy {f00=0x00a1, f01=0x018e, f02=» , P FKI 1,APPL=112,MAXL=80,ALPHA,NEOI,CTAB * P FCOPY FORTAB(W2) VAL-GEN-ACC-STRING2 4 FNL b P FKI 1,CTAB n P FCOPY HEX00 FMEND P EJECT PF22FD FRMT P FSL P FTEXT '22 BALANCE ' FCOPY ='FORMAT' FIL
0x20c228…20c3bc Dummy {f00=0x00a1, f01=0x0190, f02=» z PFLOW PF22A FNL P FLINK F20COM , FNL B P FNL N P FTAB 5 Z P FTEXT 'STARTPOSITION:' j P FINP 20 P FMEL 'ZZ',FDVBCD(W5) FTAB 30 FCOPY ='LENGTH' P FILLR ':',1 P FINP 40 P FME
0x20c3bc…20c550 Dummy {f00=0x00a1, f01=0x0190, f02=»09,MAXL=2,REWRT,NEOI,CTAB P FMEL 'XX',FDVBCD(W8) " FNL @ P FNL L FTEXT 'SPECIAL HANDLING:' X , P FKI 19,APPL=107,MAXL=5,REWRT,NEOI,CTAB z P FMEL 'ZZVZZZ',SPEC FNL P FCOPY ='VALIDATION ' P FCOPY ='(#V:...)'
0x20c550…20c6e4 Dummy {f00=0x00a1, f01=0x0190, f02=»COPY FORTAB(W1) VAL-GEN-ACC-STRING1 P FNL , , P FKI 1,APPL=112,MAXL=80,ALPHA,NEOI,CTAB 8 * P FCOPY FORTAB(W2) VAL-GEN-ACC-STRING2 h FNL P FKI 1,CTAB P FCOPY HEX00 FMEND P EJECT PF20COM FRMT FCOPY ='FORMA
0x20c6e4…20c878 Dummy {f00=0x00a1, f01=0x0190, f02=» ='PAGE' FTEXT ' SIZE:' 4 P FKI 27,APPL=102,NEOI,MINL=1,MAXL=2,ME,NCLR,CTAB ( P FMEL 'AA',FDVBCD(W1) ` FTAB 30 ~ P FCOPY ='LINE ' FCOPY ='NUMBER' FILLR ':',1 FINP 43 P FMEL 'Z9',FDVBCD(W2) FTAB 46
0x20c878…20ca0c Dummy {f00=0x00a1, f01=0x018e, f02=» FILLR '1',1 FTAB 20 FILLR '2',1 ( FTAB 30 < FILLR '3',1 L FTAB 40 ` FILLR '4',1 p FTAB 50 FILLR '5',1 FTAB 60 FILLR '6',1 FTAB 70 FILLR '7',1 P FILLR ' ',1 P FIL
0x20ca0c…20cba0 Dummy {f00=0x00a1, f01=0x4136, f02=» z FCOPY ='1234567890' FCOPY ='1234567890' $ FCOPY ='1234567890' @ P FCOPY ='123456789 ' P FILLR X'80',1 x FNL P FINP 1 FCOPY LDISP FNL 6 P FKI 1,APPL=110,ALPHA,MAXL=80,DUPL=LDISP,NEOI,CTAB FCO
0x20cba0…20cd34 (1, 429) Dummy {f00=0x00a1, f01=0x2008, f02=» NT DE12ST DDUM DEDDIV PDIV . ENTRY DE12ST < DE12ST R PROC ` RET n PEND z END @ KITEM PSTR6A STRG 6 WORKITEM PSTRG10A STRG 10 WORKITEM PDIV END @ ARIABL
0x20cd34…20cec8 Dummy {f00=0x00a1, f01=0x0190, f02=» P* P B DED350 PDED330 P CALL CMPIND,BIN8,USEV(W1) . P BNOK DED500 OUT OF RANGE P P EDSUB DEINPUT,BIN7,FORMU r PDED350 P MOVE DEBINW1,BIN7 P B DED470 PDED390 P MOVE BIN10,W0 PDED400 P MOVE DE
0x20cec8…20d05c Dummy {f00=0x00a1, f01=0x0190, f02=»ED470 JUMP IF NOT MINUS P MOVE DEBINW1,W0 PDED470 8 P CMP W1,W1 EDITING OKEY F P RET f PDED500 r P CMP W1,W2 EDITING FAILED P RET P PEND P EJECT * P************************************* * P* DISPLAY AND RE
0x20d05c…20d1f0 Dummy {f00=0x00a1, f01=0x0190, f02=»,KEYTAB P PKTAB KEYTAB P MOVE BIN15,FC & PLASTD0 MOVE DEBINW4,W24 < P ERASE 0,DEBINW4,DEBINW4 P EDWRT DEDSSCRN,FLAST(FC) | PLAST05 P MOVE DEBINW1,W0 PLASTD1 P IB FC JUMP ON FUNCTIONKEY C P LPROG FPROG = 1
0x20d1f0…20d384 Dummy {f00=0x00a1, f01=0x0190, f02=» P LASRET2 FRECOV = 7 C P LASRET3 FCORR = 8 C " P LASVER FVER = 9 C @ P LASRET2 FREC02 =10 C P LINS FFORCE = 11 C z P LINS FCONVNO =12 C P LINS FCONV1 =13 C P LASRET2 FASD =14 C P LRFBWD FRFBWD =15 P B
0x20d384…20d518 Dummy {f00=0x00a1, f01=0x0190, f02=»E CANCEL x P ERASE 0,DEBINW4,DEBINW4 P B LASVER 0 PLPROG2 B 0 P KI DEDSDYKB,DEINPUT,KEYTAB,DEBINW1,DEBINW2 P P B LAST50 PLVAL P MOVE DEBINW1,W2 P B LPROG2 PLRFBWD P MOVE DEBINW1,W7 P B LPROG2 PLDEL
0x20d518…20d6ac Dummy {f00=0x00a1, f01=0x0190, f02=»LOCK,W1,DEBINW2 $ P IB DEBINW3,POWOFF,LASTER,LASTD0 P B LASTD3 @ P* R 0 P* NOK. NOTICE THAT INCORRECT LENGTH IS OKEY P* PLASTER P XSTAT DEDSDYKB,DEBINW3 P CALL MASK,DEBINW3,W8 P BZ LASBEL " P MOVE DEBINW2,W6
0x20d6ac…20d840 Dummy {f00=0x00a1, f01=0x018e, f02=»MY C r ( P LASRET,LASRET,LASRET,DUMMY,LASRET PLAST06 : $ P IB DEBINW2,LASBEL,LASBEL,LASBEL H " P SUB DEBINW2,W3 ADJUST EOI0KEY p P B LASRET PLASBEL ( P EDWRT DEDSSCRN,BELL ACOUSTIC ALARM P B LAST05 PLASKOP P MOVE
0x20d840…20d9d4 (1, 430) Opaque[0x194]
0x20d9d4…20db68 # DirEnt {nam=»DCTASK«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x1438, f03=0x0000}
0x20d9d4…20db68 IdxSect {
0x20d9d4…20db68 f00 = 0x00a1 // 0x20d9d4 @0x0
0x20d9d4…20db68 f01 = 0x0002 // 0x20d9d6 @0x2
0x20d9d4…20db68 gno = [ // 0x20d9d8 @0x4
0x20d9d4…20db68 [0x00]: C0x00a1.0x3.0
0x20d9d4…20db68 ]
0x20d9d4…20db68 }
0x20db68…20dcfc Dummy {f00=0x00a1, f01=0x0190, f02=» , P IDENT DCTASK REL=1.0 VER=1 801027-SHB P DDUM DEDDIV 4 P PDIV H ENTRY DCTASK V P EXT TESTB l PTRPARA EQU X'00' ~ PSKIP EQU X'02' PSTIMO EQU X'0B' P P EJECT PDCTASK P MOVE DCWRK,TCUADR P DSC1
0x20dcfc…20de90 Dummy {f00=0x00a1, f01=0x4122, f02=»QLEN,W2 STATUS CHANGE P BZ DCTSKR NO & P CALL TESTB,REQLEN,W10 CARRIER OFF 4 P BZ DCTSK5 ^ PDCTSK4 p P SET DCSTAT ~ P B DCTSKR PDCTSK5 P CLEAR DCSTAT " P CALL TESTB,REQLEN,W9 TIME OUT P BZ DCTSKR P B DCTSK
0x20de90…20e024 Dummy {f00=0x00a1, f01=0x2008, f02=» NT DCTASK REL=1.0 VER=1 790817-SHB DDUM DEDDIV 4 ENTRY DCTASK H PDIV ^ DCTASK l EXIT z PEND END @ a @ a & ` @ ` = ~ ^ F ^ @ ^
0x20e024…20e1b8 Dummy {f00=0x00a1, f01=0x0190, f02=» = 3 CASETTE OUTPUT 8 P* = 4 PRINTOUT LP/GP 6 2 P* = 5 DISCFILE r : P* = 6 FLOPPYDISC FILE D P*
0x20e1b8…20e34c Dummy {f00=0x00a1, f01=0x0190, f02=» TYPE = TYPE OF HANDLING . P* = 1 OPEN . : P* = 2 BATCHHEAD-RECORD ` 6 P* = 3 DATA RECORD 8 P* = 4 BALANCE RE
0x20e34c…20e4e0 Dummy {f00=0x00a1, f01=0x018e, f02=» = 0 OK > P* /= 0 ERROR MESSAGE-NUMBER * F P* =-1 SKIP CURR BATCH, GO TO NEXT l : P* =-2 SKIP TO BALANCE H P*
0x20e4e0…20e674 (1, 431) Opaque[0x194]
0x20e674…20e808 # DirEnt {nam=»FDIO «, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x1440, f03=0x0000}
0x20e674…20e808 IdxSect {
0x20e674…20e808 f00 = 0x00a2 // 0x20e674 @0x0
0x20e674…20e808 f01 = 0x0004 // 0x20e676 @0x2
0x20e674…20e808 gno = [ // 0x20e678 @0x4
0x20e674…20e808 [0x00]: C0x00a2.0x0.0
0x20e674…20e808 [0x01]: C0x00a2.0x1.0
0x20e674…20e808 ]
0x20e674…20e808 }
0x20e808…20e99c Dummy {f00=0x00a2, f01=0x0190, f02=» P IDENT FDIO 801022REL10 P $ & P ENTRY FDIO PERFORM TOSS FUNCTION , P V * P EXTRN T:FDSP FETCH DATASET PARAMETERS ^ $ P EXTRN T:IO3 PERFORM I/O REQUEST " P EXTRN I:EVA0 EVALUATE ADDRESS P EXTRN I:ERR2 ILLEGAL TYPE $ P EXTRN I:ERR
0x20e99c…20eb30 Dummy {f00=0x00a2, f01=0x0190, f02=»QU 0 PNOTEST EQU 1 PPARM EQU NOTEST P* 8 P*TEMPORARY REGISTERS B P* ^ PWK1 EQU A1 WORK REGISTER h POP1E EQU A6 OPERAND1 END POP2A EQU A9 OPERAND2 ADDRESS POP2E EQU A5 OPERAND 2 LENGTH POP2T EQU A3 OPERAND 2 TY
0x20eb30…20ecc4 Dummy {f00=0x00a2, f01=0x018e, f02=»*DATA SET DISPLACEMENTS P* PECBBA EQU 2 BUFFER ADDRESS * PECBRL EQU 4 REQUESTED LENGTH L ( PDSCBRL EQU 14 REQUESTED LENGTH ADDR p " PDSCB1X EQU 16 CW-ITEM ADDRESS P EJECT P* P* PERFORM TOSS FUNCTION P* 4 P* C
0x20ecc4…20ee58 Dummy {f00=0x00a2, f01=0x018e, f02=» P CF A14,T:FDSP GET<DSET> P ( P* 0 P* HANDLE PARAMETER <ORDER> : P* ^ P h P LCR A7,A12 p P ADKL A12,1 P ANK A7,/FF P* P* HANDLE PARAMETER <ITEM> P* P CF A14,I:EVA0 GET <ITEM> , P ST
0x20ee58…20efec Dummy {f00=0x00a2, f01=0x0190, f02=» P* HANDLE PARAMETER <LENGTH> P* , P CF A14,I:EVA0 GET <LENGTH> 6 P IFT PARM=TEST Z P ANK OP2T,ARITHB+NUMBIT p P SUK OP2T,NUMBIT BINARY ? $ P ABL(NZ) I:ERR2 NO! ILLEGAL TYPE , P CWR* OP1E,OP2A ILLEGAL REQUESTED LENGTH
0x20efec…20f180 Dummy {f00=0x00a2, f01=0x0190, f02=»T WK1,ECBRL,A8 STORE REQ.LENGTH IN ECB $ P ST OP2A,DSCBRL,A8 STORE IN DSET . P V P* ^ P* HANDLE PARAMETER <CW> h P* P CF A14,T:SCW2 P* 6 P* SET/RESET FILECONTROL-MODE IF OPEN/CLOSE P* P CWK A7,/A1 OPEN
0x20f180…20f314 (1, 432) Dummy {f00=0x00a2, f01=0x4126, f02=»CLOSE P RF(NE) FD50 NO ( P LDKL A1,/FDFF RESET FILE-CTRL-MODE & P ANRS A1,A8 R PFD40 EQU * f P CM DSCBRL,A8 x P CM DSCB1X,A8 PFD50 EQU * P P* P*ECB PREPARED P* P " P ABL T:IO3 PERFORM I/O R
0x20f314…20f4a8 Dummy {f00=0x00a2, f01=0x2008, f02=» x P XIF P P LDR* WK1,OP2A $ . P ST WK1,ECBCW,A8 STORE CONTROL WORD IN ECB : $ P ST OP2A,DSCBCW,A8 STORE IN DSET l P P* P*ECB PREPARED P* P " P ABL T:IO3 PERFORM I/O REQUEST P END @
0x20f4a8…20f63c Dummy {f00=0x00a2, f01=0x4096, f02=» @ H IDENT D:DU10 TRA 10.0 80-11-19 F1 O1111 REL 10.0 80-04-11 D:DU10 H D:DU10D Z n :D @ @ & ( * , , ( Q . 0 2 4 6 8 : < a >
0x20f63c…20f7d0 Dummy {f00=0x00a2, f01=0x40ac, f02=» @ H IDENT Z:DU20 TRA 10.0 80-11-19 F1 O1111 REL 10.0 80-04-11 Z:DU20 H Z:DU20D Z n @ & ( * , , ( Q . 0 2 4 6 8 : < a >
0x20f7d0…20f964 Dummy {f00=0x00a2, f01=0x4096, f02=» @ H IDENT D:DU20 TRA 10.0 80-11-19 F1 O1111 REL 10.0 80-04-11 D:DU20 H D:DU20D Z n :D @ @ & ( * , , ( Q . 0 2 4 6 8 : < a >
0x20f964…20faf8 Dummy {f00=0x00a2, f01=0x40ac, f02=» @ H IDENT Z:DU30 TRA 10.0 80-11-19 F1 O1111 REL 10.0 80-04-11 Z:DU30 H Z:DU30D Z n @ & ( * , , ( Q . 0 2 4 6 8 : < a >
0x20faf8…20fc8c Dummy {f00=0x00a2, f01=0x4096, f02=» @ H IDENT D:DU30 TRA 10.0 80-11-19 F1 O1111 REL 10.0 80-04-11 D:DU30 H D:DU30D Z n :D @ @ & ( * , , ( Q . 0 2 4 6 8 : < a >
0x20fc8c…20fe20 Dummy {f00=0x00a2, f01=0x40ac, f02=» @ H IDENT Z:DU40 TRA 10.0 80-11-19 F1 O1111 REL 10.0 80-04-11 Z:DU40 H Z:DU40D Z n @ & ( * , , ( Q . 0 2 4 6 8 : < a >
0x20fe20…20ffb4 (1, 433) Opaque[0x194]
0x20ffb4…210148 # DirEnt {nam=»LIST «, typ=»UF«, f00=0x0000, f01=0x0000, f02=0x2038, f03=0x0000}
0x20ffb4…210148 IdxSect {
0x20ffb4…210148 f00 = 0x0101 // 0x20ffb4 @0x0
0x20ffb4…210148 f01 = 0x0002 // 0x20ffb6 @0x2
0x20ffb4…210148 gno = [ // 0x20ffb8 @0x4
0x20ffb4…210148 [0x00]: C0x0101.0x3.0
0x20ffb4…210148 ]
0x20ffb4…210148 }
0x210148…2102dc Dummy {f00=0x0101, f01=0x018e, f02=» PSCR PSKF PTRA DEDDIV PTRA DEDISC . PTRA DKRUT1 @ PTRA DKRUT2 R PTRA DKRUT3 d PTRA DKRUT4 v PTRA PTSDE PTRA DENTER PTRA DENT01 PTRA DENT02 PTRA DENT03 PTRA DENVAL PTRA DEPOOL PTR
0x2102dc…210470 Dummy {f00=0x0101, f01=0x0190, f02=» PTRA DEATTF PTRA DE23ST PTRA DE24ST , PTRA DE30ST > PTRA DE31ST P PTRA DE40ST b PTRA DE20FS t PTRA DEUNPF PTRA DEPRFG PTRA DEPROC PTRA DECVRT PTRA DEVGAC PTRA DE50ST PTRA DE60ST PTRA
0x210470…210604 Dummy {f00=0x0101, f01=0x018a, f02=» PTRA DEGENE PTRA STROUT PTRA DEAPPU ( PTRA DECOMP : PTRA DELOCK L PTRA DESTAT ^ PASM ASSRUT p PASM CDVRUT PASM DATCHK PTRA DE16ST PTRA DE90ST PTRA DEDICO PTRA DEATNY PTRA DCTASK PTRA CONV
0x210604…210798 Dummy {f00=0x0101, f01=0x2008, f02=» DEGENE PTRA STROUT PTRA DEAPPU ( PTRA DECOMP : PTRA DELOCK L PTRA DESTAT ^ PASM ASSRUT p PASM CDVRUT PASM DATCHK PTRA DE16ST PTRA DE90ST PTRA DEDICO PTRA DEATNY PTRA DCTASK PTRA CONV
0x210798…21092c Dummy {f00=0x0101, f01=0x0000, f02=»
[…0x1…]
0x210ac0…210c54 (1, 434) Opaque[0x194]
0x210c54…210de8 # DirEnt {nam=»DEDSHB«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x2990, f03=0x0000}
0x210c54…210de8 IdxSect {
0x210c54…210de8 f00 = 0x014c // 0x210c54 @0x0
0x210c54…210de8 f01 = 0x000e // 0x210c56 @0x2
0x210c54…210de8 gno = [ // 0x210c58 @0x4
0x210c54…210de8 [0x00]: C0x014c.0x2.0
0x210c54…210de8 [0x01]: C0x014c.0x3.0
0x210c54…210de8 [0x02]: C0x0150.0x3.0
0x210c54…210de8 [0x03]: C0x0151.0x0.0
0x210c54…210de8 [0x04]: C0x0151.0x3.0
0x210c54…210de8 [0x05]: C0x0152.0x0.0
0x210c54…210de8 [0x06]: C0x0152.0x1.0
0x210c54…210de8 ]
0x210c54…210de8 }
0x210de8…210f7c Dummy {f00=0x014c, f01=0x0190, f02=» $ P IDENT DEDDIV REL 10.0 80-04-11 P 80-03-24 , L M************************************************************************ @ * * L L* ********************************************************* 4 0* * ITE
0x210f7c…211110 Dummy {f00=0x014c, f01=0x0190, f02=»NUMBER z * * $ * * BOOL >0 - & $ * * BIN >0 - N 4 0* * BCD >0 A,B,C,............ v 4 0* * STR >0 A,B,C,............ * * L L*
0x211110…2112a4 Dummy {f00=0x014c, f01=0x0190, f02=»**************** X P EJECT DDIV & TERM T1 4 P UWB CB1 D CWB CB2 T P CWB CB3 d CWB CB4 t CWB CB5 TWB TB2 TWB TB3 TWB TB4 TWB TB5 P TWB TB1 P DWB DB1(TB1) P DWB DB2(TB1)
0x2112a4…211438 Dummy {f00=0x014c, f01=0x018e, f02=»* * DISK DSET FC=D0,DEV=DU PDEDSDYKB DSET FC=20 2 PDEDSSCRN DSET FC=50 N PDEDSPRT DSET FC=36 j PDSDCFD DSET FC=61,DEV=DC SHB PDSFD DSET FC=F8,DEV=FD SHB ( P FMTCTL INDS=DEDSDYKB,OUTDS=DEDSSCRN P EJECT P*
0x211438…2115cc Dummy {f00=0x014c, f01=0x0190, f02=» P TERM D2 P UWB CB1 CWB CB2 $ CWB CB3 4 CWB CB4 D CWB CB5 T P TWB DU1 d P TWB DU2 t P TWB DU3 P TWB DU4 P TWB DU5 P TWB DU6 P TWB DU7 P TWB DU8 P TWB DU9 P CWB CB6 EJE
0x2115cc…211760 Dummy {f00=0x014c, f01=0x0190, f02=»K EJECT * P* TERMINAL-BLOCK: 1 " * D ( #* USAGE: DATA RECORD STORING N * z PTB1 BLK PRBUF STRG 1024 RECORD AREA * POVERFLOW STRG 10 OVERFLOWAREA FOR RBUF EJECT * * TER
0x211760…2118f4 (1, 435) Dummy {f00=0x014c, f01=0x018e, f02=»1 DBLK " PFDVBCD BCDI (8),5 1=PAGE SIZE P 2=LINE NUMBER 4 P 3=PAGE NUMBER L P 4=FIELDNR d P 5=FIELDSTART x P 6=FIELDLENGTH P 7=MINIMUMLENGTH P 8=USED RECORD SPACE LDES STRG 80 LINE DESIGN PLDISP ST
0x2118f4…211a88 Dummy {f00=0x014c, f01=0x0190, f02=» P 3=AUTO TABULATION FIELD P 4=VERIFICATION FIELD & P 5=INITIAL CLEAR F P VALUE = Y(ES) OR N(O) ` PSPEC BCD 6 SPECIAL HANDLING 0 PFMTWK BINI (24) WORKITEMS FORMAT GENERATION ( PPINDCB BIN POINTERINDEX CURR BUFFER , PPIND
0x211a88…211c1c Dummy {f00=0x014c, f01=0x0190, f02=»BIN WORKITEM FORMAT GENERATION P EJECT ( P* 6 B P* THIS DATA-BLOCK MUST NOT EXCCED 188 BYTES = POOL-SIZE @ P* PDB2 DBLK PSTATUS BIN STATUS " PSIZSYM BIN SIZE OF SYMBOLICS PSYMREC BINI (12) RECORDNR & PFORTAB
0x211c1c…211db0 Dummy {f00=0x014c, f01=0x0190, f02=»-BLOCK MUST NOT EXCCED 188-BYTES = POOL-SIZE ~ P* USAGE: BATCHDATA 4 P* V PDB3 DBLK ` PBDABAL BOOL BALANCED BATCH p PBDAFRO BOOL FROSEN BATCH " PBDATRA BOOL TRANSFERRED BATCH PBDAFOR BOOL FORCED BATCH PBDATES BOO
0x211db0…211f44 Dummy {f00=0x014c, f01=0x0190, f02=»H j & PBDSTAT STRG 2 STATUS OF BATCHDATA ( PBDPOIN BINI (6) 1 = LAST ENTERED REC 4 P 2 = NUMBER OF REC ` P 3 = NUMBER OF TRANSMITTED | P 4 = NUMBER OF FORCED P 5 = NUMBERS TO VERIFY P 6 = LAST ENTERED SUBTOTAL $ PACK
0x211f44…2120d8 Dummy {f00=0x014c, f01=0x0190, f02=» 6 2* USAGE: BUFFERPOOL-HANDLING + OTHER TABLES * B CB1 BLK L PPOOL1 BOOL CONSEC. REQ. PBOOLA1 BOOL USED IN OPENSY | PBOOLA2 BOOL USED IN OPENUS PUORG BOOL F PW32 BIN W'32' CONSTANT PW64 BIN W'64' CONS
0x2120d8…21226c Dummy {f00=0x014c, f01=0x0190, f02=»ESPACE t & PSYSV STRGI (10),17 SYSTEMVARIABLES ( PRPOOL STRGI (1),2 BUFFER-REFERENCES 8 1-1 USAGE-TYPE STRG d 2-7 NAME 8-8 NUMBER OF USERS P 9-9 LINK TO NEXT BUFFER PBPOOL STRGI (1),2 BUFFERPOOL EJECT
0x21226c…212400 Dummy {f00=0x014c, f01=0x018e, f02=» W1 BIN W'1' CONSTANT W2 BIN W'2' CONSTANT PW3 BIN W'3' CONSTANT < PW4 BIN W'4' CONSTANT X PW5 BIN W'5' CONSTANT t PW6 BIN W'6' CONSTANT PW7 BIN W'7' CONSTANT PW8 BIN W'8' CONSTANT PW9 BIN W'9' CONSTANT W10 BIN
0x212400…212594 (1, 436) Dummy {f00=0x0150, f01=0x0190, f02=» x PW15 BIN W'15' CONSTANT P EJECT & P* 4 P* COMMON-BLOCK:3 > P* ^ P* USAGE: CONSTANTS h P* PCB3 BLK W16 BIN W'16' CONSTANT PW17 BIN W'17' CONSTANT PW18 BIN W'18' CONSTANT PW19 BIN W'
0x212594…212728 Dummy {f00=0x0150, f01=0x0190, f02=» PW24 BIN W'24' CONSTANT PW25 BIN W'25' CONSTANT " PW26 BIN W'26' CONSTANT @ PW27 BIN W'27' CONSTANT ^ PW28 BIN W'28' CONSTANT | PW29 BIN W'29' CONSTANT " PSYSLEN BIN W'198' RECLEN SYST 0 PFNOOFREC BINI (11) NO OF FREE RECORD IN FI
0x212728…2128bc Dummy {f00=0x0150, f01=0x0190, f02=»BOOL RECOVERY RUNNUNG & PAUTENT BOOL T AUTOMATIC ENTER WHEN P WHEN LAST FIELD REACHED H PRECFIL BIN FILE IN RECOVERY j & PFILECODE BINI (11),X'D0' FILECODE * PFCOUNTER BINI (11) COUNTER (USER/FILE) , PFINDEXPO BINI (11) POOLIND TO FREE
0x2128bc…212a50 Dummy {f00=0x0150, f01=0x0190, f02=»YS STRG X' KEYMASKS C , P 0422200000 THE ITEM CONTAIN 5 BYTES C $ P 0222200000 (OR 10 HALFBYTES) C N * P 0220000000 FOR EACH MODE STARTING C v * P 0888880000 WITH SUPERVISORY MODE. C , P 0888000000 (PROGRAMNUMBERS 10 - 19). C . P 0000
0x212a50…212be4 Dummy {f00=0x0150, f01=0x0190, f02=» $ P 0000000000 PROGRAMNUMBER 19. C P ' THE NEXT 5 BYTES IS FOR , P FORMAT DEFINITION MODE. P P (PROGRAMNUMBERS 20 - 29). r P EACH HALBYTE REPRESENTS & P A KEYMASK AND CONSISTS OF FOUR P BITS CORRESPONDING TO THE P
0x212be4…212d78 Dummy {f00=0x0150, f01=0x0190, f02=» z P BITS 0110 MEANS THAT THE " P THE KEYS 2 AND 3 HAVE TO BE , P SWITCHED ON WHEN WORKING R " P WITH THE SPECIFIED PROGRAM. v , PPROGNR STRG X' EXISTING PROGRAMNUMBERS C P 803F 00 - 15 C P 0F83 16 - 31 C P 80FC 32 -
0x212d78…212f0c Dummy {f00=0x0150, f01=0x0190, f02=»* DEVTYP POS 1- " P POS 3 = DEVICE UNIT NUMBER P P POS 4 = FILE-CODE v P POS 5 = DEVICE-CLASS " P CLASS = 1 DATA-COMM. OUT P = 2 DATA-COMM.IN P
0x212f0c…2130a0 Dummy {f00=0x0150, f01=0x0190, f02=» = 7 DELETE USERFILE PDEVTYP STRG X' C & $ P 4443006101 DC[]<FC=61><CL=1> C @ $ P 0000000002 DC[]<FC=00><CL=2> C h $ P 0000001203 TK[]<FC=12><CL=3> C $ P 0000000004 LP[]<FC=00><CL=4> C $ P 4750003604 GP[]<FC=36><CL=4> C $ P
0x2130a0…213234 (1, 437) Dummy {f00=0x0151, f01=0x0190, f02=» <FC=00><CL=8> C P ' P* DISC UNIT NUMBERS $ PDUNIT STRG X' C @ P F4 C X P F0 FIX DISC1 6875/6876 C h P F1 CARTRIDGE 1 6875/6876 C P F2 FIXDISC 2 6875/6876 C P F3 CARTRIDGE 2 6875/6876 C P F8 FLEX 1 6879 C
0x213234…2133c8 Dummy {f00=0x0151, f01=0x0190, f02=»* P* COMMON-BLOCK: 5 * * * USAGE: STATUS LINE/ 4 * X PCB5 BLK b PD1 BCD 2D'1' CONSTANT r " PFDIR STRG X' FORMAT DIRECTIV C P E9 0 = DUMMY C P C0 1 = FCOPY C P C2 2 = FMELI C P C3 3 = F
0x2133c8…21355c Dummy {f00=0x0151, f01=0x0190, f02=»DE 9 = FLINK C P E0 10= FSL C P E1 11= FNL C , P E9 12= FEXIT C B P F0 13= FKI C Z P F2 14= FKI APPLE<255 C p P F3 15= FKI APPLE>255 C P F8 16= FKI DUPL C " P FA 17= FKI APPLE<255 DUPL C " P FB 18= FKI APPLE>255
0x21355c…2136f0 Dummy {f00=0x0151, f01=0x0190, f02=» PHEX00 STRG 1X'00' PAUSE ITEM . PFVOLNAME STRGI (8),6C'SYSVOL' VOLUMENAMES ( $ PMODTAB STRGI (8),1 MODE TABLE C Z C'P',C'F',C'J',C'E' C P C'S',C'V',C'C',C'H' P EJECT & PVALSTR STRG X' VALIDATION STRING C P 4D 0. M=MESSA
0x2136f0…213884 Dummy {f00=0x0151, f01=0x0190, f02=» STRING C | P* P 4C 6. L=LENGTH C P 21 7. !=ABSOLUTE VALUE C 8 P 41 8. A=ACCUMULATOR C P 53 9. S=SYSTEM VARIABLE C | P 55 10. U=USER VARIABLE C P 46 11. F=FORMAT FIELD C P 54 12. T=VALUE SET C * P 43 1
0x213884…213a18 Dummy {f00=0x0151, f01=0x0190, f02=» 2A 17. *=MULTIPLY C P 3A 18. :=DIVIDE C P* : $ P 3B 19. ;=EXPRESION SEPARATOR C D P 26 20. &=LOGICAL AND C l P 56 21. V=LOGICAL OR C P* P 3F 22. ?=INSIGNIFICANCE C " P 27 23. '=LITERAL SEPARATOR C $ P 5A 24.
0x213a18…213bac Dummy {f00=0x0151, f01=0x0190, f02=»ANGE C r $ P 58 28. X=INDEX OF VALUE-SET C " P 28 29. (=LINK PARENTHESIS C 6 " P 29 30. )=RIGHT PARENTHESIS C P ' P EJECT PSTATIU STRG X' STATIU C P 4D 0. M=MUST VERIFY C P 45 1. E=ENTERING C P 56 2. V=VERIFI
0x213bac…213d40 Dummy {f00=0x0151, f01=0x0190, f02=» 42 7. B=BALANCED C P 2F 8. /=NOT STATUS C P 2C 9. ,=SEPARATOR C : P ' X & PPICSTR STRG X' PICTURECHARCTERS C d & P 4C 0. L=LEFTADJUSTED ALPHANUM C ( P 52 1. R=RIGHTADJUSTED ALPHANUM C * P 41 2. A=LEFTADJUST TO LEAD. DIG.
0x213d40…213ed4 (1, 438) Dummy {f00=0x0151, f01=0x0190, f02=» 5A 6. Z=LEAD. ZEROES REPL. SPACE C , P 59 7. Y=ALPHANUM/=EMPTY ELSE SPACE C . " P 2B 8. +=PRINT + OR - SIGN C ^ ( P 53 9. S=SIGN, -SIGN IF NEGATIV C P 2C 10. ,=INSERT COMMA C P 2E 11. .=ROOMLESS POINT C & P 3E 12. >=END OF
0x213ed4…214068 Dummy {f00=0x0151, f01=0x0190, f02=» STRG X' PICTURECONVERTION C ( P 2D 0. -=S(SIGN -SIGN IF NEGATIV C $ " P 56 1. V=.(ROOMLESS POINT C P & P 45 2. E=INSERT NEXT CHARCTER C v " P 58 3. X=0 LEFT ZERO FILL C P ' * PLRUQUE STRG 48 LEAST RECENT USED QUEUE EJECT
0x214068…2141fc Dummy {f00=0x0151, f01=0x0190, f02=» " PKEY4 BOOL POSITION INDICATORS $ PKEY3 BOOL ...FOR KEY-LOCKS 1-4. * PKEY2 BOOL ...F=OFF, R PKEY1 BOOL ...T=ON. n BOOL1 BOOL WORKITEM BOOL2 BOOL WORKITEM BOOL3 BOOL WORKITEM BOOL4 BOOL WORKITEM BOOL5 BOOL WO
0x2141fc…214390 Dummy {f00=0x0151, f01=0x0190, f02=»OOL VARIABLES CHANGED " PDEPROMPT BOOL DISPLAY PROMTS ! ( PDENOCHAN BOOL NO CHANGES PERMITTED ! D P EJECT ! p PDEBIN1 BIN WORKITEM ! ~ PDEBIN2 BIN WORKITEM ! PDEBIN3 BIN WORKITEM ! PDEBIN4 BIN WORKITEM ! PDEBIN5 BIN WORKITEM ! (
0x214390…214524 Dummy {f00=0x0151, f01=0x0190, f02=»RRENT PROGRAMNUMBER ! $ USERFILE BCD 2 CURRENT USER-FILE " MODE STRG 1 CURRENT MODE " D " JOBNAME STRG 6 CURRENT JOBNAME " d " BATCH STRG 6 CURRENT BATCHNAME " & !FORMAT STRG 6 CURRENT FORMAT-NAME " " PSYMBOL STRG 6 CURRENT SYMBOLIC " " PSTATSH S
0x214524…2146b8 Dummy {f00=0x0151, f01=0x0190, f02=»* " PTB3 BLK # PSWIT01 BOOL USED IN DEDISC # PSWIT02 BOOL -"- # > PSWIT03 BOOL -"- # Z PSWIT04 BOOL -"- # v PSWIT05 BOOL -"- # PSWIT06 BOOL -"- # PSWIT07 BOOL # PSWIT08 BOOL USED IN DEDISC # $ PSW95PR
0x2146b8…21484c Dummy {f00=0x0151, f01=0x0190, f02=» PDOOLC BOOL $ PVERIFM BOOL VERIFM MODE $ " PKEYVER BOOL KEY-VERIFICATION $ 6 P EJECT $ $ PFLIND BINI (32) FORMATLINKINDEX $ j * PRNRFMCH BIN CURRENT RECNO FMT-CHAIN $ * PMAXOCC BIN RESERVED FOR DISCHANDLING $ $ PPTRFMCH BIN POINTER IN R
0x21484c…2149e0 Dummy {f00=0x0151, f01=0x0190, f02=»RBUF $ l & !PRECCUR BIN CURRENT - " - % & !RECLNTH BIN CURRENT RECORDLENGTH % 6 ( #PJOBCUR BIN LINK TO JOB-DEFINITION % ` & PPINDFR BIN POOLINDEX TO CURR FMT % * PPINACC BIN POOLINDEX TO ACCUMULATORS % * PPWBDB4 STRG 16 SAVEAREA FOR WORKBLOC
0x2149e0…214b74 (1, 439) Dummy {f00=0x0152, f01=0x0190, f02=»X'000000000000',X'000000000000' % P 1 = JOBNAME & ( P 2 = BATCH & @ & P 3 = CONDITIONAL FORMAT CHANGE & V $ P 4 = COND. FORMAT CHANGE (R) & P 5 = FILE NAME SHB FD & EJECT & * & * TERMINAL-BLOCK: 4 & * &
0x214b74…214d08 Dummy {f00=0x0152, f01=0x018e, f02=»N RECORD & ~ $ PDBOTRA BOOL TRANSFERRED RECORD ' PDBOFOR BOOL FORCED RECORD ' 8 $ PDBOTES BOOL TESTENTERED RECORD ' Z PDBOVER BOOL VERIFIED RECORD ' $ PDBOACC BOOL MUST BE ACCUMULATED ' " PDBOMVR BOOL MUST BE VERIFIED ' " PDOOL1 BOOL USED IN
0x214d08…214e9c Dummy {f00=0x0152, f01=0x0190, f02=» PDOOL6 BOOL -"- ( PDOOL7 BOOL T=TEST MODE ( " & PDOOL8 BOOL IF SET OPEN NEW BATCH ( B P IF NOT OPEN OLD BATCH ( l P EJECT ( BIN1 BIN WORKITEM ( BIN2 BIN WORKITEM ( BIN3 BIN WORKITEM ( BIN4 BIN WORKITEM ( BIN5 B
0x214e9c…215030 Dummy {f00=0x0152, f01=0x0190, f02=»ORKITEM ( BIN11 BIN WORKITEM ) BIN12 BIN WORKITEM ) , BIN13 BIN WORKITEM ) H BIN14 BIN WORKITEM ) d BIN15 BIN WORKITEM ) BIN16 BIN WORKITEM ) EJECT ) * ) * TERMINAL-BLOCK: 5 ) * ) D P* USA
0x215030…2151c4 Dummy {f00=0x0152, f01=0x0190, f02=»SCHK1 BOOL SPECIAL CHECK 1 MINUS ) PSCHK2 BOOL SPECIAL CHECK 2 * * PSCHK4 BOOL SPECIAL CHECK 4 * N PACKUM BOOL ACCUMULATOR BIT * r PVERIFY BOOL VERIFY-BIT * PCTAB BOOL COND.-TAB.-BIT * PNCLR BOOL T NO CLEAR-BIT * PREWRT BOOL REWR
0x2151c4…215358 Dummy {f00=0x0152, f01=0x018e, f02=»DEBINW1 BIN DENTERVARIABLE * PDEBINW2 BIN DENTERVARIABLE + $ PDEBINW3 BIN DENTERVARIABLE + H PDEBINW4 BIN DENTERVARIABLE + l ( PFRMTPNTR BIN POINTER TO FMT ON DISC + " PDEINPUT STRG 81 DENTERVARIABLE + BCD2A BCD 2 WORKITEM + PBCD3A BCD
0x215358…2154ec Dummy {f00=0x0152, f01=0x0190, f02=» PSTR6B STRG 6 , PSTRG10A STRG 10 WORKITEM , PSTR15A STRG 15 WORKITEM , 8 . PBCDI21 BCDI (5),21 WORKITEM(4-5)SHB FREEZE , X P EJECT , P* , P* , P* TERMINAL-BLOCK: 6 , P* , PTB6 BLK , & PNEWVOL BOOL F 'NEW VOLUME LOADED
0x2154ec…215680 Dummy {f00=0x0152, f01=0x0190, f02=»SWITUS BOOL F USERFILE ASSIGNED Y/N , & PASDFLAG BOOL T AUTOMATIC SKIP/DUP - , PSEARCH BOOL SEARCH MODE - V * PCHKACC1 BOOL F CHECK ACCUMULATION SHB - v * PCHKACC2 BOOL F CHECK ACCUMULATION SHB - $ PCHKBAL BOOL F CHECK BALANCE SHB - P EJECT - & P
0x215680…215814 (1, 440) Dummy {f00=0x0152, f01=0x0190, f02=» BIN WORKITEM, DISC-ROUTINES - $ PDKBIN3 BIN WORKITEM, DISC-ROUT . & PSECLEN BIN W'256' . N P SECTORLENTH USERFILE . h ( PTABLE STRG 6 TABLE-NAME (VALUE-SETS) . PEOLINE BIN END-OF-LINE . ( PVSEIND BIN VALUE-SET ELEMENT INDEX . " PWORK BIN
0x215814…2159a8 Dummy {f00=0x0152, f01=0x018e, f02=»14 USED BY DECONV . P EJECT / P* / ( P* COMMON WORKITEM FOR SHB / 2 P* / T P / ^ PCB6 BLK / f ( PDCSTAT BOOL F CARRIER OFF, TIME OUT / v & PDCBAB BOOL F T=ABORT DC CONVERSION / & PFDBAB BOOL F T=ABORT FD CONVERSION / $ PFDEOF BOOL F T=END
0x2159a8…215b3c Dummy {f00=0x0152, f01=0x0190, f02=» $ PTSKADR BIN X'0040' TASK ADDRESS 0 ( PREQDC BIN REQUESTED LENGTH DCWRITE 0 , , PREQFD BIN REQUESTED LENGTH FDWRITE/READ 0 X PCWFD BIN CONTROL WORD FD 0 PFDCNT BCD 4 FD NUMBER 0 PDCBUF STRG 20 DC BUFFER 0 P EJECT 0 P* DUMMY WORK BLOCK
0x215b3c…215cd0 Dummy {f00=0x0152, f01=0x40da, f02=»DUM4 BOOL 0 PDU5 BLK 1 PDUM5 BOOL 1 " PDU6 BLK 1 4 PDUM6 BOOL 1 D PDU7 BLK 1 V PDUM7 BOOL 1 f PDU8 BLK 1 x PDUM8 BOOL 1 PDU9 BLK 1 PDUM9 BOOL 1 PDIV 1 END 1 @ 1 UFFER 0 P EJECT 0 P* DUMMY WORK BLOCK
0x215cd0…215e64 Dummy {f00=0x0152, f01=0x2008, f02=» 2 EOLINE BIN END-OF-LINE + ( PVSEIND BIN VALUE-SET ELEMENT INDEX + ( " PWORK BINI (12) FREE WORK ITEMS + T P WORKITEM 11,12 USED BYE + z P SEARCH MODE + PDIV + END + @ + SC-ROUTINES * ( PDKBIN2 BIN WORKITEM, DISC-ROUTINES
0x215e64…215ff8 Dummy {f00=0x0152, f01=0x0190, f02=»0=A PUPDV07 0 P CALL TYPET,BIN7,X.PSEU1,X.PSEU2,X.WB10,BIN8 * P CBE BIN7,W3,UPDV01 JUMP IF ALPHA STRG N PUPDV09 | P SET ALPHA T=BCD-NUM P B UPDV01 PUPDV16 2 P IB BIN5,UPDV20,UPDV30,UPDV30,UPDV30,UPDV25 C P UPDGOT,UPD
0x215ff8…21618c Dummy {f00=0x0152, f01=0x0190, f02=»12 SAVE INDEX TO ERR.MESS . P XCOPY BIN3,W0,W1,BIN11,W1 SAVE POOLINDEX " P CBL DEBINW4,W128,UPDE10 T P MOVE BIN9,=X'3F' t P CALL MSKOUT,BIN9,DEBINW4 P ADD BIN12,BIN9 PUPDE10 P ADD BIN12,W1 P CBL BIN12,BIN13,UPDV01
0x21618c…216320 Dummy {f00=0x0152, f01=0x0190, f02=»CATE P ADD BIN12,W1 P SET DOOL4 " P BNZ DECERR 4 P PERF DEFIND,BIN8,BIN9 H P GETFLD 0,BIN8,BIN9 f P MOVE WORK(W6),BIN11 P MOVE WORK(W7),BIN12 P MOVE WORK(W8),BIN13 , P CALL GETVAL,BPOOL(W1),BIN11,BIN12,BIN13 P B
0x216320…2164b4 (1, 441) Opaque[0x194]
0x2164b4…216648 # DirEnt {nam=»DELINK«, typ=»UF«, f00=0x0000, f01=0x0000, f02=0x0f00, f03=0x0000}
0x2164b4…216648 IdxSect {
0x2164b4…216648 f00 = 0x0078 // 0x2164b4 @0x0
0x2164b4…216648 f01 = 0x0002 // 0x2164b6 @0x2
0x2164b4…216648 gno = [ // 0x2164b8 @0x4
0x2164b4…216648 [0x00]: C0x0078.0x0.0
0x2164b4…216648 ]
0x2164b4…216648 }
0x216648…2167dc Dummy {f00=0x0078, f01=0x0190, f02=» PSCR PPRT DELINK PMOV CNFT,/A,CON10 " PPRT /A < PTRA DEDDIV,NL J PKPF /O ` PNOD C n PINC PTSDE | PINC DEDISC PINC DELOCK PINC DEAPPU PNOD R PINC DKRUT1 PINC DKRUT2 PINC DKRUT3 P
0x2167dc…216970 Dummy {f00=0x0078, f01=0x0190, f02=»NOD R PINC DENVAL PINC DEGENE PINC DECOMP 2 PINC DESTAT D PINC DENT02 V PNOD R h PINC DE10ST v PINC DE11ST PINC DE12ST PINC DE1201 PINC DE14ST PINC DE15ST PINC DE30ST PINC DE31ST PNO
0x216970…216b04 Dummy {f00=0x0078, f01=0x0190, f02=»C DEPRFG PINC DEUNPF PNOD R " PINC DEVGAC 0 PINC DEATTF B PINC DEFDSC T PNOD R f PINC DE40ST t PINC DE50ST PINC DE60ST PINC DE70ST PNOD R PINC DECONV PNOD R PINC DEPROC PINC DCTASK
0x216b04…216c98 Dummy {f00=0x0078, f01=0x0044, f02=» M=M:DENJ,MU=M:DENJ,A=DELINK,C=CNFT,CU=CON10 PASG /E0,TY10 4C DEATTF B PINC DEFDSC T PNOD R f PINC DE40ST t PINC DE50ST PINC DE60ST PINC DE70ST PNOD R PINC DECONV PNOD R PINC DEPROC PINC DCTASK
0x216c98…216e2c Dummy {f00=0x0078, f01=0x2008, f02=» J,MU=M:DENJ,A=DELINK,C=CNFT,CU=CON10 PASG /E0,TY10 4C DEATTF B PINC DEFDSC T PNOD R f PINC DE40ST t PINC DE50ST PINC DE60ST PINC DE70ST PNOD R PINC DECONV PNOD R PINC DEPROC PINC DCTASK
0x216e2c…216fc0 Dummy {f00=0x0078, f01=0x0190, f02=»P8 <<HT _ R <A_ <A <a ^ <h = F F ) 1l ' =" z 1l & X X X* T Z0 I R < _ <h =_H ^L _ _R 1l & G _d 1l F '_p R : <<H P < : 1l 1l & R P _v _| V V Q WR
0x216fc0…217154 (1, 442) Opaque[0x194]
0x217154…2172e8 # DirEnt {nam=»DKCONV«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x07e8, f03=0x0000}
0x217154…2172e8 IdxSect {
0x217154…2172e8 f00 = 0x003f // 0x217154 @0x0
0x217154…2172e8 f01 = 0x0014 // 0x217156 @0x2
0x217154…2172e8 gno = [ // 0x217158 @0x4
0x217154…2172e8 [0x00]: C0x003f.0x1.0
0x217154…2172e8 [0x01]: C0x0086.0x2.0
0x217154…2172e8 [0x02]: C0x0086.0x3.0
0x217154…2172e8 [0x03]: C0x0087.0x0.0
0x217154…2172e8 [0x04]: C0x0087.0x1.0
0x217154…2172e8 [0x05]: C0x0087.0x2.0
0x217154…2172e8 [0x06]: C0x0087.0x3.0
0x217154…2172e8 [0x07]: C0x0088.0x0.0
0x217154…2172e8 [0x08]: C0x0088.0x1.0
0x217154…2172e8 [0x09]: C0x0088.0x2.0
0x217154…2172e8 ]
0x217154…2172e8 }
0x2172e8…21747c Dummy {f00=0x003f, f01=0x018e, f02=» . P IDENT DECONV REL=1.0 VER=1 80-12-12/SHB P UPD 80-07-14/JAER 6 P DDUM DEDDIV R P PDIV f P ENTRY DECONV t P P P EXT DEPOOL P EXT TESTB P EXT EMPTYT P EXT DERROR P EXT ATTDEV ATTACH DEVICE
0x21747c…217610 Dummy {f00=0x003f, f01=0x0190, f02=» P* KEYTABLE P* PCLR EQU X'8F' CLEAR * PCAN EQU X'91' CANCEL F PRET EQU X'98' RETURN b PENT EQU X'8C' ENTER ~ P* PKEYTAB KTAB CLR,CAN,RET,ENT P P P P* P* P PSTIMO EQU X'
0x217610…2177a4 Dummy {f00=0x003f, f01=0x0190, f02=»DIFFERENT CONVERTIONS- j P* -METHODS @ P* ONE OF THEM IS ALREADY PREPAIRED FOR YOUR PRINTOUT). 8 2 P* THE OTHER YOU HAVE TO CODE YOURSELVES. | P* D P* FORMAL PARAMETERS: FC = FUNCTION-CODE (DEVICE-CLASS) @ P*
0x2177a4…217938 Dummy {f00=0x003f, f01=0x0190, f02=» = 3 CASETTE OUTPUT 8 P* = 4 PRINTOUT LP/GP 6 2 P* = 5 DISCFILE r : P* = 6 FLOPPYDISC FILE D P*
0x217938…217acc Dummy {f00=0x003f, f01=0x0190, f02=» TYPE = TYPE OF HANDLING . P* = 1 OPEN . : P* = 2 BATCHHEAD-RECORD ` 6 P* = 3 DATA RECORD 8 P* = 4 BALANCE RE
0x217acc…217c60 Dummy {f00=0x003f, f01=0x0190, f02=» = 0 OK > P* /= 0 ERROR MESSAGE-NUMBER * F P* =-1 SKIP CURR BATCH, GO TO NEXT l : P* =-2 SKIP TO BALANCE H P*
0x217c60…217df4 (1, 443) Dummy {f00=0x0086, f01=0x0190, f02=» =-5 DELETE THIS BATCH > P* =-6 GET CURRENT RECORD 8 P* z : P* INPUT VARIABLE: BIN4 = FC-CODE FOR DEVICE P* T P************************************************************
0x217df4…217f88 Dummy {f00=0x0086, f01=0x0190, f02=»PRINTA,DISCFD,FLOPPY,DELETE,FREEZE PRECEIV * PDISCFD 8 PCASSET F PERROR T * P MOVE RETCON,W4 'FUNCTION NOT ALLOWED? b P B RETURN P EJECT P* * P* THIS IS THE PRINTOUT FUNCTION P* PPRINTA : P IB TYPE
0x217f88…21811c Dummy {f00=0x0086, f01=0x0190, f02=»TER n P* PPR100 $ P PERF ATTDEV,BIN6 ATTACH DEVICE $ P BOK DECOOK L P B RETURN ` P EJECT r P* P* 4 P* PRINTOUT OF THE DIFFERENT RECORD TYPES P* PPR200 P EDWRT DEDSPRT,FCOUNT P BNOK
0x21811c…2182b0 Dummy {f00=0x0086, f01=0x018e, f02=»,=W'35' OUTPUT DEVICE NOT OP....' P B RETURN GO AND CLOSE * P* H * P* CLOSE DEVICE = DETACH PRINTER R P* PPR500 P PERF DETPRT DETACH DEVICE P B RETURN P EJECT P* 8 P* THIS ROUTINE DELETE BATCHES
0x2182b0…218444 Dummy {f00=0x0086, f01=0x0190, f02=» 0 P CBNE WORK(W8),W0,DEL110 NOT THE WHOLE FILE P MOVE DATE,HEX00 RESET DATE 8 PDEL110 P B RETURN j P EJECT | P* . P* THIS ROUTINE FREEZE BATCHES ON USER FILE P* P PFREEZE 8 P IB TYPE,FRE100,FRE200,FRE300 OPEN
0x218444…2185d8 Dummy {f00=0x0086, f01=0x0190, f02=»LE CODE PRINTER z $ P PERF ATTDEV,BIN6 ATTACH DEVICE P BOK FRE110 @ 0 P MOVE RETCON,=W'35' OUTPUT DEV NOT OPERABLE T P B RETURN PFRE110 P MOVE STRG10A,HEX00 P GETTIME STRG10A P MOVE TIME,STRG10A P EDWRT DEDSPRT,FFR
0x2185d8…21876c Dummy {f00=0x0086, f01=0x0190, f02=»XT BATCH v P B RETURN PFRE210 " & P TBT BDABAL,FRE230 BATCH BALANCED 0 P* BATCH NOT BALANCED Z PFRE220 v , P EDWRT DEDSPRT,FBATC1 PRINT ERROR REPORT P B FRE205 D P* CHECK IF NO RECORDS HAS BEEN INSERTED IN CONTINUETION FORMATS
0x21876c…218900 Dummy {f00=0x0086, f01=0x0190, f02=» GET APPL P CMP VSEIND,=W'7999' P BG FRE240 NO CHECK . P CMP VSEIND,=W'7000' J P BL FRE235 NO CHECK f PFRE232 P SET CHKBAL IND BALANCE P B DECOOK PFRE235 P CMP VSEIND,=W'2999' P BG FRE240 NO CHECK P
0x218900…218a94 (1, 444) Dummy {f00=0x0086, f01=0x018e, f02=» P* CHECK BALANCE PFRE300 P MOVE BIN8,W0 LOAD FIELD NO * PFRE310 N P ADD BIN8,W1 UPDATE FIELD NO " P CALL GETFWD,BIN7,2,BIN8,BIN4 P CALL ADJUST,BIN7 P BN DECOOK ALL FIELD DONE P GETCTL 0,VSEIND GET APPL P CMP
0x218a94…218c28 Dummy {f00=0x0086, f01=0x0190, f02=» P CMP VSEIND,=W'2000' P BL FRE310 NO CHECK $ . P CMP VSEIND,=W'2999' START OF ACCUMULATION @ P BG FRE330 NO r P EJECT P* ACC 1 HANDLING P* LOAD ACC 1 P* SPEC HANDLING =2XXX PFRE325 P SET CHKACC1 IND ACC. CHEC
0x218c28…218dbc Dummy {f00=0x0086, f01=0x0190, f02=»ANDLING =3XXX PFRE330 P CMP VSEIND,=W'3999' $ P BG FRE350 ACC 2 HANDLING @ P SUB BCDI21(W4),:FMTITEM b P B FRE310 P EJECT P* ACC 2 HANDLING P* LOAD ACC 2 P* SPEC HANDLING =4XXX PFRE350 P CMP VSEIND,=W
0x218dbc…218f50 Dummy {f00=0x0086, f01=0x018e, f02=»SAVE SUM v P B FRE310 P* ACCUMULATION OF ACC 2 " P* SPEC HANDLING =5XXX B PFRE360 ` P CMP VSEIND,=W'5999' n P BG FRE370 ACC 1 / ACC 2 P SUB BCDI21(W5),:FMTITEM P B FRE310 P EJECT . P* ACCUMULATION OF ACC 1 OR ACC
0x218f50…2190e4 Dummy {f00=0x0086, f01=0x0190, f02=» v P B FRE310 PFRE375 P SUB BCDI21(W5),:FMTITEM ( P B FRE310 H P EJECT Z P* CHECK BALANCE OF ACC 1 h PFRE380 P CLEAR CHKACC1 P CMP BCDI21(W4),=D'0' P BE FRE325 BALANCE $ P CLEAR CHKBAL IND NOT IN BALANCE
0x2190e4…219278 Dummy {f00=0x0086, f01=0x018e, f02=»* CHECK BALANCE OF ACC 2 PFRE390 P CLEAR CHKACC2 . P CMP BCDI21(W5),=D'0' D P BE FRE355 BALANCE b $ P CLEAR CHKBAL IND NOT IN BALANCE | " P MOVE BCD13A,NUMBER GET REC NO P SUB BCD13A,=D'1' , P EDWRT DEDSPRT,FBATC2 PRINT ERROR RE
0x219278…21940c Dummy {f00=0x0086, f01=0x0190, f02=» ~ P CMP BCDI21(W4),=D'0' P BE FRE420 BALANCE & P* NOT IN BALANCE @ P X PFRE410 ` $ P CLEAR CHKBAL IND NOT IN BALANCE n " P MOVE BCD13A,NUMBER GET REC NO P SUB BCD13A,=D'1' , P EDWRT DEDSPRT,FBATC2 PRINT ERROR REPORT P B
0x21940c…2195a0 Dummy {f00=0x0086, f01=0x0190, f02=»0 NOT IN BALANCE PFRE430 , P TBF CHKBAL,DECOOK BATCH NOT IN BALANCE & P SET BDAFRO FREEZE BATCH V P B DECOOK v P EJECT P* CLOSE PFRE500 P MOVE STRG10A,HEX00 P GETTIME STRG10A P MOVE TIME,STRG10A P EDWRT
0x2195a0…219734 (1, 445) Dummy {f00=0x0087, f01=0x0190, f02=»TCON,W0 PRETURN P RET P EJECT * P 8 PTRANSM @ 4 P IB TYPE,DC100,DC200,DC300 OPEN,BATCHHEAD,DATA C N P DC300,DC500 BALANCE, CLOSE P P P* P* SEND SOF P* SEND '001'+DATE P* P PDC100
0x219734…2198c8 Dummy {f00=0x0087, f01=0x0190, f02=» P* SEND '999' P* SEND EOF P* . P 8 PDC500 @ P B DECOOK N P EJECT ` P* n P* x P* FLOPPY DUMPING P* P PFLOPPY P MOVE BTYPE,TYPE 4 P IB TYPE,FD100,FD200,FD300 OPEN,BATCHHEAD,DATA C
0x2198c8…219a5c Dummy {f00=0x0087, f01=0x0190, f02=» P TBT FDBAB,FD170 * P PERF GETBUF GET 3 CONSECUTIVE BUFFERS P B FD110 OK J P B FDERR ERROR ^ PFD110 t P MOVE CWFD,W7 HDR RECORD P MOVE REQFD,=W'128' 6 P CALL FDIO,DSFD,X'A1',BPOOL(BIN10),REQFD,CWFD OPEN P MOVE BIN4,W20
0x219a5c…219bf0 Dummy {f00=0x0087, f01=0x0190, f02=» P PFD140 * P MOVE BIN6,=X'0036' FILE CODE PRINTER $ P PERF ATTDEV,BIN6 ATTACH DEVICE L P BNOK FDERR t P MOVE STRG10A,HEX00 P GETTIME STRG10A P MOVE TIME,STRG10A P EDWRT DEDSPRT,FFDHDR " P PERF FDRVOL READ VO
0x219bf0…219d84 Dummy {f00=0x0087, f01=0x018e, f02=» PFD160 $ P MOVE STR8A,STR8B SAVE FILE NAME $ P MOVE FDCNT,W1 RESET FD COUNTER > $ P PERF FDWVOL WRITE VOLUME LABEL f P B FD165 OK P B FDERR ERROR P PFD165 $ P MOVE BCDI21(W5),W0 RECORD COUNT P CLEAR BSUPR
0x219d84…219f18 Dummy {f00=0x0087, f01=0x018e, f02=» 0 P MOVE RETCON,=W'35' OUTP. DEV. NOT OPERABLE PFDERRT < P SET FDBAB J P B RETURN P n PFD180 v P MOVE CWFD,W7 P MOVE REQFD,=W'128' > P CALL FDIO,DSFD,X'B8',BPOOL(BIN10),REQFD,CWFD *UNLOAD HDR1 " P MOVE RETCON,=W'
0x219f18…21a0ac Dummy {f00=0x0087, f01=0x0190, f02=» ( P TBF BDAFOR,FD300 ANY FORCED FIELDS? , P EDWRT DEDSPRT,FBATC3 PRINT ERROR REPORT 0 P SET FDBAB ` & P MOVE RETCON,=W'-1' GET NEXT BATCH r P B RETURN P EJECT PFD300 P TBT FDBAB,FD170 P TBT FDEOF,FDEOF10 P CBE TYPE,W4
0x21a0ac…21a240 Dummy {f00=0x0087, f01=0x0190, f02=»ORD n P MOVE DEBINW3,W1 P PRINT DEDSPRT,DEBINW3,W0 $ P BNOK FDERR F PFD308 Z * P MOVE BIN10,WORK(W13) GET BUFFER INDEX h $ P MOVE BIN9,BIN10 GET BPOOL INDEX P ADD BIN9,W1 $ P MOVE BIN8,W0 RESET FIELD NUMBER PFD310 P
0x21a240…21a3d4 (1, 446) Dummy {f00=0x0087, f01=0x0190, f02=»EMPTHY | P B FD320 BCD FIELD OVERFLOW " P B FD320 EDIT BUFFER OVERFLOW 2 PFD315 X P MOVE RETCON,W5 f P B FDERRT ~ P PFD320 " P MOVE RETCON,=W'54' EDIT ERROR P B FDERRT P EJECT P* P* WRITE BLOCKS
0x21a3d4…21a568 Dummy {f00=0x0087, f01=0x0190, f02=»NTINUE IN SAME BUFFER P B FD311 P EJECT . PFD350 < P PERF FDLOAD J P B FD370 OK ^ P B FD360 ERROR r PFD360 P MOVE REQFD,=W'128' P MOVE CWFD,W7 8 P CALL FDIO,DSFD,X'B8',BPOOL(BIN10),REQFD,CWFD UNLOAD PFD36
0x21a568…21a6fc Dummy {f00=0x0087, f01=0x0190, f02=» FD350 ENT PFD370 " P PERF FDRVOL READ VOLUME LABEL P B FD375 OK F P B FD360 ERROR Z PFD375 p . P IB DEBINW2,FD380,FD360,FD170 CLR,CAN,RET ~ P* ENT P PFD380 $ P PERF FDWVOL WRITE VOLUME LABEL P B FD382 OK
0x21a6fc…21a890 Dummy {f00=0x0087, f01=0x0190, f02=»URN P ! PFDEOF05 ! P SET FDEOF INDICATE EOF ! $ & P MOVE WORK(W14),BIN8 SAVE FIELD NO ! D P B FD360 ! n P ! ~ PFDEOF10 ! P CLEAR FDEOF ! * P MOVE BIN10,WORK(W13) GET BUFFER INDEX ! $ P MOVE BIN9,BIN10 GET BPOOL INDEX ! P ADD BIN
0x21a890…21aa24 Dummy {f00=0x0087, f01=0x0190, f02=»0),REQFD,CWFD WRITE BLOCKS ! p P B FD340 " " P EJECT " 2 PFD400 " @ P* BALANCE FORMAT " N P B FD300 " l P EJECT " | PFD500 " * P MOVE BIN10,WORK(W13) GET BUFFER INDEX " P TBT FDBAB,FD560 ABORT " $ P MOVE BIN9,BIN10 GET BPOOL INDEX "
0x21aa24…21abb8 Dummy {f00=0x0087, f01=0x0190, f02=» " P B FD510 EOE # PFD510 # P MOVE REQFD,=W'128' # * P MOVE CWFD,W7 # F 8 P CALL FDIO,DSFD,X'B8',BPOOL(BIN10),REQFD,CWFD UNLOAD # PFD515 # * P MOVE DEBINW4,=W'55' CHANGE FLOPPYDISK # P PERF DERROR,KEYTAB # . P IB DEBINW2,FD520,FD510,
0x21abb8…21ad4c Dummy {f00=0x0087, f01=0x0190, f02=»LUME LABEL # | P B FD530 OK $ P B FD510 ERROR $ & PFD530 $ < . P IB DEBINW2,FD535,FD510,FD170 CLR,CAN,RET $ J P* ENT $ | PFD535 $ $ P PERF FDWVOL WRITE VOLUME LABEL $ P B FD540 OK $ P B FD510 ERROR $ PFD540 $ P MOVE REQFD,=W'1
0x21ad4c…21aee0 Dummy {f00=0x0087, f01=0x0190, f02=»DSFD $ P CLEAR FDBAB % P MOVE CWFD,W7 HDR SECTOR % P MOVE REQFD,=W'128' % @ 8 P CALL FDIO,DSFD,X'B8',BPOOL(BIN10),REQFD,CWFD UNLOAD % P CLEAR FDEOF RESET EOF % P MOVE CWFD,W7 % P MOVE REQFD,=W'128' % 8 P CALL FDIO,DSFD,X'A2',BPOOL(BIN1
0x21aee0…21b074 (1, 447) Dummy {f00=0x0087, f01=0x0190, f02=»,W6,BIN10,BIN4,STRG10A % P B DECOOK & PFD560 & 0 P MOVE STRG10A,HEX00 & > P GETTIME STRG10A & Z P MOVE TIME,STRG10A & r P EDWRT DEDSPRT,FFDERR & P B FD550 & P & PFD570 & P MOVE STRG10A,HEX00 & P GETTIME STRG10A & P MOV
0x21b074…21b208 Dummy {f00=0x0087, f01=0x0190, f02=»UFFERS & r P* ' P* BUFFER INDEX IN WORK(W13) ' P* ' < P ' F PGETBUF PROC ' N * P MOVE BIN10,W3 TOTAL NUMBER OF BUFFERS ' b , P MOVE BIN4,W3 NO. OF COSECUTIVE BUFFERS ' @ P PERF DEPOOL,W2,BIN10,BIN4,STRG10A GET 3 COSECUTIVE BUFFERS ' $ P BNO
0x21b208…21b39c Dummy {f00=0x0087, f01=0x0190, f02=»DD BIN9,W1 INDEX EDIT BUFFER ' 4 P MOVE BPOOL(BIN10),=X'00' RESET TRANSMIT BUFFER ( $ P RET ( PGETBU2 ( h P RET 2 ( v P PEND ( P EJECT ( P* ( , P* FDRVOL READ VOLUME LABEL AND DISPLAY ( P* ( P ( P ( PFDRVOL PROC ( P
0x21b39c…21b530 Dummy {f00=0x0087, f01=0x0190, f02=» CALL FDIO,DSFD,X'91',BPOOL(BIN13),REQFD,CWFD READ (HDR1) ( P XSTAT DSFD,BIN4 ) B P MOVE BIN7,=X'086F' ) Z P CALL MASK,BIN4,BIN7 ) v P BNOK FDRV02 ) P MOVE BIN7,=W'66' ) 8 P XCOPY STR6A,W0,W6,BPOOL(BIN13),BIN7 EXPIRATION DATE ) 4 P XCOPY STR8A
0x21b530…21b6c4 Dummy {f00=0x0087, f01=0x0190, f02=»CLGD,STR6B ) P MOVE BIN7,=W'45' * 6 P XCOPY STR2A,W0,W2,BPOOL(BIN13),BIN7 GET FD NUMBER * , P ATTFMT FCAS02 * f P SET DEPROMPT * | P DISPLAY 0,W1,W0 * P THOME * & P MOVE DEBINW3,W1 REQUESTED LENGTH * 2 P NKI .NE,DEDSDYKB,STR1A,KEYTAB,DEBINW3
0x21b6c4…21b858 Dummy {f00=0x0087, f01=0x0190, f02=» P + P + PFDWVOL PROC + P MOVE BIN7,=W'66' + ( & P MOVE BIN13,BIN10 GET BUFFER INDEX + B ( P ADD BIN13,W2 ADJUST FOR READ BUFFER + l * P EDSUB BPOOL(BIN13),BIN7,FRMVOL2 DATE + P MOVE BIN7,W5 + 0 P EDSUB BPOOL(BIN13),BIN7,FRMVOL1 VOLUME NAME
0x21b858…21b9ec Dummy {f00=0x0087, f01=0x0190, f02=»FD,W7 + > P CALL FDIO,DSFD,X'95',BPOOL(BIN13),REQFD,CWFD WRITE (HDR1) , P XSTAT DSFD,BIN4 , P P MOVE BIN7,=X'024F' , h P CALL MASK,BIN4,BIN7 , P , P BNOK FDWVO2 , & P ADD FDCNT,=D'1' UPDATE FD NUMBER , P MOVE CWFD,=W'26' HDR RECORD , (
0x21b9ec…21bb80 Dummy {f00=0x0087, f01=0x0190, f02=» 2 , P PEND - P EJECT - P* - & P* FDWRIT WRITE BLOCKS - 0 P* - N P - X P - ` PFDWRIT PROC - h PFDWR00 - | P WAIT DSFD - P XSTAT DSFD,BIN4 - P CALL TESTB,BIN4,W2 EOE - P BZ FDWR10 - P RET 4 END OF EXTENT - PFDWR10
0x21bb80…21bd14 (1, 448) Dummy {f00=0x0087, f01=0x018e, f02=» PFDWROP . PFDWRCL . P B FDWR20 . PFDWRHD BATCH HEADER . 2 4 P MOVE BPOOL(BIN10),=X'00' INITIATE OUTPUT BUFFER . P P MOVE BIN4,RECLGD . . P XCOPY BPOOL(BIN10),W0,BIN4,BPOOL(BIN9),W0 . P B FDWRSEND . P* . PFDWRDATA . * P CBE B
0x21bd14…21bea8 Dummy {f00=0x0087, f01=0x0190, f02=» . ` P MOVE BIN4,RECLGD / ( P SUB BIN4,W5 SUBTRACT ROOM FOR RECNO / " . P XCOPY BPOOL(BIN10),W5,BIN4,BPOOL(BIN9),W0 / N ( P SUB BIN4,W1 MAKE ROOM FOR EOR CHAR / 4 P CBG BIN16,BIN4,FDWR100 TOO MANY CHAR IN INP.BUF / P MOVE STR2A,=X'7F' / & P ADD BIN16
0x21bea8…21c03c Dummy {f00=0x0087, f01=0x0190, f02=»OVE BIN4,RECLGD / ( P SUB BIN4,W1 LAST POSITION IN BUFFER 0 ( P MOVE STR2A,=X'21' CONTINUATION MARK 0 D ( P XCOPY BPOOL(BIN10),BIN4,W1,STR2A,W1 0 p P MOVE REQFD,=W'128' 0 P MOVE CWFD,W0 0 2 P CALL FDIO,DSFD,X'06',BPOOL(BIN10),REQFD,CWFD 0 P SUB
0x21c03c…21c1d0 Dummy {f00=0x0087, f01=0x0190, f02=»6 0 . P CBE VSEIND,W1,FDWR00 WRITE REST OF BUFFER 1 P RET 6 1 < P* 1 J PFDWRBAL 1 T 4 P MOVE BPOOL(BIN10),=X'00' INITIATE OUTPUT BUFFER 1 d P EDIT BPOOL(BIN9),FFD999 1 P MOVE BIN4,RECLGD 1 . P XCOPY BPOOL(BIN10),W0,BIN4,BPOOL(BIN9),W0 1 P
0x21c1d0…21c364 Dummy {f00=0x0087, f01=0x0190, f02=»N10),REQFD,CWFD WRITE BLOCKS 1 r PFDWRRET 2 $ P RET 2 4 PFDWR20 2 @ P RET 2 2 N P PEND 2 P EJECT 2 j P* 2 x P* FDLOAD LOAD FD PROCEDURE 2 P* 2 P 2 P 2 PFDLOAD PROC 2 P MOVE CWFD,W7 HDR RECORD 2 P MOVE REQFD,=W'128'
0x21c364…21c4f8 Dummy {f00=0x0087, f01=0x0190, f02=» P MOVE BIN7,=X'000F' 3 P CALL MASK,BIN4,BIN7 3 P BNOK FDLOA2 3 < P RET 3 P PFDLOA2 3 P MOVE CWFD,W7 HDR RECORD 3 j P MOVE REQFD,=W'128' 3 8 P CALL FDIO,DSFD,X'B8',BPOOL(BIN10),REQFD,CWFD UNLOAD 3 P RET 2 3 P PEND 3 P EJECT 3
0x21c4f8…21c68c Dummy {f00=0x0087, f01=0x0190, f02=» RET 4 =CUMPULSORY FIELD EMPTHY 3 P* RET 6 =BCD-FIELD OVERFLOW 4 ( " P* RET 8 =EDIT BUFFER OVERFLOW 4 L P* 4 r $ P* APPL = FIELD INTO BUFFER 4 | 4 P* APPL = 1 FIELD INTO BUFFER, TRANSMIT BLOCK 4 $ P* APPL = 2 NO TRANSMIT FIELD 4 B P* A
0x21c68c…21c820 Dummy {f00=0x0087, f01=0x018e, f02=» FOLLOWING APPL ONLY USED IN BATCHHEADER 4 0 P* APPL = 13 EOR-CHAR AS END OF EACH RECORD 5 0 J P* APPL = 14 CONT-CHAR IN END OF EACH DATA RECORD WHICH IS CONTINUED 5 d 0 P* APPL = 15 INSERT BACHNAME IN THIS FIELD 5 P* 5 P* BIN4 = WORK ITEM 5
0x21c820…21c9b4 (1, 449) Dummy {f00=0x0088, f01=0x0190, f02=» P* BIN16= EDIT POINTER 6 P* 6 " PCONV PROC CONT 6 , P CBG CONT,W0,CON100 6 B PCON090 6 ^ P MOVE BPOOL(BIN9),=X'20' 6 l ( P MOVE BIN13,W0 RESET DELETE POINTER 6 ( P MOVE BIN16,BIN13 LOAD EDIT POINTER 6 PCON100 6 P CLEAR FSUPR 6 P T
0x21c9b4…21cb48 Dummy {f00=0x0088, f01=0x018e, f02=»ALL ADJUST,BIN7 6 P BOK CON130 7 P BN CONRET ALL FIELD DONE 7 , & P B CONER1 COMPULSORY FIELD EMPTHY 7 N PCON130 7 x P GETCTL 0,VSEIND GET APPL 7 P* 7 P CBNE BTYPE,W3,CON150 7 P* DATA RECORD 7 * P IB VSEIND,CON132,CON100,CON13
0x21cb48…21ccdc Dummy {f00=0x0088, f01=0x0190, f02=» 7 P* 8 PCON140 8 P* NO SUPPRESSION 8 P CLEAR FSUPR 8 : P B CON190 8 N P* 8 ` P* 8 j PCON150 8 t ( P* IN HEADER, SET GENERAL CONDITIONS 8 6 P IB VSEIND,CON152,CON100,CON155,CON160,CON152, C 8 , P CON152,CON152,CON152,CON152,CO
0x21ccdc…21ce70 Dummy {f00=0x0088, f01=0x0190, f02=» LEADING ZEROES 8 | P SET BSUPR 9 P B CON100 9 * P* 9 < PCON160 9 F P* GENERAL NO SUPPRESSION 9 T P CLEAR BSUPR 9 v P B CON100 9 P* 9 PCON165 9 P* EOR CHARACTER 9 P B CON100 9 P* 9 PCON170 9 P* CONTINUATION CHA
0x21ce70…21d004 Dummy {f00=0x0088, f01=0x0190, f02=»IN4,BIN7 LENGTH FIELD 9 P SUB BIN4,BIN16 : 6 P EDSUB BPOOL(BIN9),BIN16,FMTBATCH INSERT BATCHNAME : 6 P B CON260 : p P* : P* : P : PCON190 : P TBF FSUPR,CON195 : ( P CALL EMPTYT,:FMTITEM TEST IF EMPTY : $ P BNZ CON280 EMPTY, IGN
0x21d004…21d198 Dummy {f00=0x0088, f01=0x0190, f02=» P ; * P MOVE BIN4,W188 GET EDIT BUFFER LENGTH ; * P SUB BIN4,BIN7 ADJUST WITH MAX LENGTH ; : , P SUB BIN4,BIN16 ADJUST WITH EDIT POINTER ; h P BN CONER3 ; $ P EDSUB BPOOL(BIN9),BIN16,FRMALP ; P B CON260 ; P ; P EJECT ; P* BCD ; P
0x21d198…21d32c Dummy {f00=0x0088, f01=0x0190, f02=» MAX LENGTH ; v , P SUB BIN4,BIN16 ADJUST WITH EDIT POINTER < P BN CONER3 < D P GETCTL 3,BIN4 GET SCHK < V P CALL TESTB,BIN4,W15 SIGN < v P BZ CON220 NO < P TBF FSUPR,CON210 < $ P EDSUB BPOOL(BIN9),BIN16,FRMTCS < P MOVE BIN13,BIN16 <
0x21d32c…21d4c0 Dummy {f00=0x0088, f01=0x0190, f02=»IN7,W1 ADJUST POINTER FOR SIGN < P B CON250 = & P = 8 PCON220 = @ P TBF FSUPR,CON230 = N $ P EDSUB BPOOL(BIN9),BIN16,FRMTCD = h P MOVE BIN13,BIN16 = P B CON280 = PCON230 = $ P EDSUB BPOOL(BIN9),BIN16,FRMBCD = & P MOVE BIN4,W21 SET PIC
0x21d4c0…21d654 (1, 450) Dummy {f00=0x0088, f01=0x0190, f02=»60 = . P ADD BIN13,BIN7 ADJUST DELETE/EDIT POINTER > ( P MOVE BIN16,BIN13 LOAD EDIT POINTER > < PCON280 > h ( P CBE VSEIND,W1,CONTRM APPL =1 TRANSM > v P MOVE BIN4,RECLGD > P CBG BIN16,BIN4,CONTRM > P B CON100 > P EJECT > P > PCONRET
0x21d654…21d7e8 Dummy {f00=0x0088, f01=0x0190, f02=»LOW > t & PCONER3 RET 8 EDIT BUFFER OVERFLOW ? P PEND ? 6 P EJECT ? D P* ? R P* FORMATS ? P* ? n P ? x P ? PFCOUNT FRMT ? P FTEXT ' 1' ? P FEOR NEW PAGE ? P FILLR ' ',2 ? P FILLR '*',10 ? P FTEXT 'NUMBER: ' ?
0x21d7e8…21d97c Dummy {f00=0x0088, f01=0x0190, f02=»BCDI21(W5) ? P FILLR X'00',60 @ P FILLR X'00',60 @ * P FILLR X'00',60 @ B P FMEND @ Z P EJECT @ h PFRMSOF FRMT @ v P FSL @ P FCOPY =X'1D' @ P FILLR ' ',62 @ P FILLR ' ',62 @ P FMEND @ P @ PFRMEOF FRMT @ P FSL @
0x21d97c…21db10 Dummy {f00=0x0088, f01=0x0190, f02=»001 @ P FMEND A P A PFRMVOL1 FRMT A " P FCOPY STR8A A 6 P FMEND A J PFRMVOL2 FRMT A X P FMEL '999999',DATE A l P FMEND A PFRMVOL3 FRMT A P FMEL '99',FDCNT A P FMEND A P EJECT A PFBATC1 FRMT A P FLINK FBATCH A P
0x21db10…21dca4 Dummy {f00=0x0088, f01=0x0190, f02=» A ~ P FMEL '9999',BCD13A B P FILLR ' ',4 B $ P FTEXT 'MISST[MMER' B 8 P FEOR B T P FNL B b P FMEND B n P B | PFBATC3 FRMT B P FLINK FBATCH B P FTEXT 'EJ GODKENDT' B P FEOR B P FMEND B P B PFBATCH FRMT B P FNL B
0x21dca4…21de38 Dummy {f00=0x0088, f01=0x018e, f02=»ATCH B P FILLR ' ',4 C P FMEND C P C . PFMTBATCH FRMT C 6 P FCOPY BATCH C L P FMEND C ` P C n PFDCHDR FRMT C v P FNL C P FEOR C P FNL C P FTEXT 'S[NDNING' C P FLINK HDR C P FMEND C PFDCEND FRMT C P FNL C
0x21de38…21dfcc Dummy {f00=0x0088, f01=0x0190, f02=» C PFDCERR FRMT D P FNL D P FEOR D ( P FNL D 6 P FTEXT 'S[NDNING' D B P FTEXT ' AVBRYTS' D P FLINK HDR D v P FEOR D P FNL D P FMEND D P D PFFRHDR FRMT D P FNL D P FEOR D P FNL D P FTEXT 'FRYSNING ' D
0x21dfcc…21e160 Dummy {f00=0x0088, f01=0x018e, f02=»NK HDR D P FEOR E P FNL E P FMEND E ( P E 6 PFFDHDR FRMT E > P FNL E R P FEOR E ^ P FNL E l " P FTEXT 'FLOPPY DISC SKRIVNING' E x P FLINK HDR E P FMEND E P E PFFDEND FRMT E P FNL E P FEOR E P FNL E " P FTEXT '
0x21e160…21e2f4 (1, 451) Dummy {f00=0x0088, f01=0x0190, f02=» P FNL F P FEOR F P FNL F " P FTEXT 'FLOPPY DISC SKRIVNING' F * P FTEXT ' AFBRYDES' F P P FLINK HDR F j P FEOR F | P FNL F P FMEND F P F PHDR FRMT F P FILLR ' ',4 F P FTEXT 'DATO: ' F P FMEL '99-99-99',DATE F P F
0x21e2f4…21e488 Dummy {f00=0x0088, f01=0x0190, f02=» F P FSL G P FCOPY =C'DEVICE' G P FILLR ':',1 G . P FINP 9 G B P FCOPY STSAVE(W3) G R P FTAB 20 G l P FCOPY =C'FILE' G | P FILLR '-',1 G P FCOPY =C'NAME' G P FILLR ':',1 G P FINP 32 G P FCOPY STR8B G P FNL G P FCO
0x21e488…21e61c Dummy {f00=0x0088, f01=0x0190, f02=» P FCOPY STR8A H P FNL H & P FCOPY =C'OLD VOLUME SEQUENCE NO:' H $ P FINP 32 H N P FCOPY STR2A H ^ P FNL H r P FKI 1 H ~ P FCOPY HEX00 H P FMEND H P EJECT H PFRMC99 FRMT H P FSL H P FLINK FFD999 H P FMEND H P H P
0x21e61c…21e7b0 Dummy {f00=0x0088, f01=0x0190, f02=»FFD999 FRMT H P FTEXT =C'SLUTD' I P FMEL '99999',BCDI21(W5) I , P FILLR ' ',60 I L P FILLR ' ',62 I b P FMEND I x P EJECT I PFRMALP FRMT I P FCOPY :FMTITEM I P FMEND I P I P I PFRMBCD FRMT I * P FMEL '999999999999999
0x21e7b0…21e944 Dummy {f00=0x0088, f01=0x411c, f02=»MTCS FRMT I , P FMEL 'TTTTTTTTTTTTTTTTTTTT9-',:FMTITEM J P FMEND J B P EJECT J P PFRMBCS FRMT J ^ , P FMEL '999999999999999999999-',:FMTITEM J r P FMEND J P J P J PFRMTID FRMT J P FMEL '999',BCD13A J P FMEND J P J P J
0x21e944…21ead8 Dummy {f00=0x0088, f01=0x2008, f02=» K 0 & " ADD DEBIN2,W1 UPDATE FIELD NUMBER GETFLD 2,DEBIN2,DEBIN3 < BOK DEC130 BN DEC900 ALL FIELD DONE p & ! B DEC920 COMPULSORY FIELD EMPTHY DEC130 GETCTL 0,DEBIN5 GET APPL @ MOVE DEBINW1,DEBIN4 LOA
0x21ead8…21ec6c Dummy {f00=0x0088, f01=0x0190, f02=»:DU50- D:DU60A Z:DU60A D:DU700 Z:DU70F D:DU80 Z:DU80. D:DU90- Z:DU90 D:CB60 C:CB60 Q b ,Z:DU10 810722 Z:DU10D ,D:DU10 810722 D:DU10D :D ,Z:DU20 810722 Z:DU20D ,D:DU20 810722
0x21ec6c…21ee00 Dummy {f00=0x0088, f01=0x0190, f02=» Z:DU40D ,D:DU40 810722 D:DU40D :D ,Z:DU50 810722 Z:DU50D ,D:DU50 810722 D:DU50D :D ,Z:DU60 810722 Z:DU60D ,D:DU60 810722 D:DU60D :D ,Z:DU70
0x21ee00…21ef94 (1, 452) Opaque[0x194]
0x21ef94…21f128 # DirEnt {nam=»DELBUG«, typ=»UF«, f00=0x0000, f01=0x0000, f02=0x15c8, f03=0x0000}
0x21ef94…21f128 IdxSect {
0x21ef94…21f128 f00 = 0x00ae // 0x21ef94 @0x0
0x21ef94…21f128 f01 = 0x0002 // 0x21ef96 @0x2
0x21ef94…21f128 gno = [ // 0x21ef98 @0x4
0x21ef94…21f128 [0x00]: C0x00ae.0x1.0
0x21ef94…21f128 ]
0x21ef94…21f128 }
0x21f128…21f2bc Dummy {f00=0x00ae, f01=0x0190, f02=» PSCR PPRT DELBUG PMOV CNJP,/A,CON10 " PPRT /A < PSCR J PTRA DEDDIV,NL V PKPF /O l PNOD C z PINC PTSDE PINC DEDISC PINC DELOCK PINC DEAPPU PNOD R PINC DKRUT1 PINC DKRUT2 PINC DK
0x21f2bc…21f450 Dummy {f00=0x00ae, f01=0x0190, f02=»RROR PNOD R PINC DENVAL PINC DEGENE , PINC DECOMP > PINC DESTAT P PINC DENT02 b PNOD R t PINC DE10ST PINC DE11ST PINC DE12ST PINC DE1201 PINC DE14ST PINC DE15ST PINC DE30ST PINC DE31
0x21f450…21f5e4 Dummy {f00=0x00ae, f01=0x0190, f02=»RT PINC DEPRFG PINC DEUNPF PNOD R . PINC DEPROC < PINC DEVGAC N PINC DEATTF ` PNOD R r PINC DE40ST PINC DE50ST PINC DE60ST PINC DE70ST PNOD R PINC DECONV PINC DCTASK PINC DEFDSC
0x21f5e4…21f778 Dummy {f00=0x00ae, f01=0x006a, f02=»,DELBUG : PMES $PDISC M=M:DEDB,MU=M:DENJ,A=DELBUG,C=CNJP,CU=CON10 PSCR N PASG /E0,TY10 Z ` PNOD R r PINC DE40ST PINC DE50ST PINC DE60ST PINC DE70ST PNOD R PINC DECONV PINC DCTASK PINC DEFDSC
0x21f778…21f90c Dummy {f00=0x00ae, f01=0x2008, f02=» : PMES $PDISC M=M:DEDB,MU=M:DENJ,A=DELBUG,C=CNJP,CU=CON10 PSCR N PASG /E0,TY10 Z ` PNOD R r PINC DE40ST PINC DE50ST PINC DE60ST PINC DE70ST PNOD R PINC DECONV PINC DCTASK PINC DEFDSC
0x21f90c…21faa0 Dummy {f00=0x00ae, f01=0x0190, f02=»P8 <<HT _ R <A_ <A <a ^ <h = F F ) 1l ' =" z 1l & X X X* T Z0 I R < _ <h =_H ^L _ _R 1l & G _d 1l F '_p R : <<H P < : 1l 1l & R P _v _| V V Q WR
0x21faa0…21fc34 (1, 453) Opaque[0x194]
0x21fc34…21fdc8 # DirEnt {nam=»DELBUG«, typ=»LM«, f00=0x0000, f01=0x0000, f02=0x2d58, f03=0x0000}
0x21fc34…21fdc8 IdxSect {
0x21fc34…21fdc8 f00 = 0x016a // 0x21fc34 @0x0
0x21fc34…21fdc8 f01 = 0x002e // 0x21fc36 @0x2
0x21fc34…21fdc8 gno = [ // 0x21fc38 @0x4
0x21fc34…21fdc8 [0x00]: C0x016a.0x3.0
0x21fc34…21fdc8 [0x01]: C0x016b.0x0.0
0x21fc34…21fdc8 [0x02]: C0x016b.0x1.0
0x21fc34…21fdc8 [0x03]: C0x016b.0x2.0
0x21fc34…21fdc8 [0x04]: C0x016b.0x3.0
0x21fc34…21fdc8 [0x05]: C0x016c.0x0.0
0x21fc34…21fdc8 [0x06]: C0x016e.0x3.0
0x21fc34…21fdc8 [0x07]: C0x016f.0x0.0
0x21fc34…21fdc8 [0x08]: C0x0174.0x0.0
0x21fc34…21fdc8 [0x09]: C0x0174.0x1.0
0x21fc34…21fdc8 [0x0a]: C0x0174.0x2.0
0x21fc34…21fdc8 [0x0b]: C0x0174.0x3.0
0x21fc34…21fdc8 [0x0c]: C0x0175.0x0.0
0x21fc34…21fdc8 [0x0d]: C0x0175.0x1.0
0x21fc34…21fdc8 [0x0e]: C0x0175.0x2.0
0x21fc34…21fdc8 [0x0f]: C0x0175.0x3.0
0x21fc34…21fdc8 [0x10]: C0x0176.0x0.0
0x21fc34…21fdc8 [0x11]: C0x0176.0x1.0
0x21fc34…21fdc8 [0x12]: C0x0176.0x2.0
0x21fc34…21fdc8 [0x13]: C0x0176.0x3.0
0x21fc34…21fdc8 [0x14]: C0x0177.0x0.0
0x21fc34…21fdc8 [0x15]: C0x0177.0x1.0
0x21fc34…21fdc8 [0x16]: C0x0177.0x2.0
0x21fc34…21fdc8 ]
0x21fc34…21fdc8 }
0x21fdc8…21ff5c Dummy {f00=0x016a, f01=0x0190, f02=»B< ^* CR R A |R J ~R U R ` R k LR u R R R R D 6R nCB1 @
0x21ff5c…2200f0 Dummy {f00=0x016a, f01=0x0190, f02=» a 6 P F T1 n b @ $ X T p t t t t 8T1 x *
0x2200f0…220284 Dummy {f00=0x016a, f01=0x0190, f02=» > P P h 0
0x220284…220418 Dummy {f00=0x016a, f01=0x0190, f02=» 8 F
0x220418…2205ac Dummy {f00=0x016a, f01=0x0190, f02=»LP 0 GP 6 FD DLU FRO GPL6 LPL0 B . D Z p - r 7
0x2205ac…220740 Dummy {f00=0x016a, f01=0x0190, f02=» SYSVOLSYSVOLSYSVOLSYSVOLSYSVOLSYSVOLSYSVOLSYSVOLPFJESVCHM/=><DL!ASUFTCE+-*:;&V?'ZGRNX()MEVTFCAB/,LRAPTXZY+S,.><0-VEX * >0 0 0 M U t ~ 0
0x220740…2208d4 (1, 454) Dummy {f00=0x016b, f01=0x0190, f02=» * B 0 0 0 " ( . F @ B D F H J L N P R T V @ f $ B
0x2208d4…220a68 Dummy {f00=0x016b, f01=0x0190, f02=» T > < >
0x220a68…220bfc Dummy {f00=0x016b, f01=0x0190, f02=» F Q 0 [0 0 ^ e f h n t ~ ^ bB< F 3
0x220bfc…220d90 Dummy {f00=0x016b, f01=0x0190, f02=» 6 ## _ jX 3 0 0}@d "P n_r 4 # 6 P 7MW (j "M ( 0 P 0 * 1W 'W 1 1 1 1 v j !!Ov v" Cv 0 "" VvW 0 0 )W`0 "" Vv 0 !!W6 'WH ! W+ " W% h * h `h h
0x220d90…220f24 Dummy {f00=0x016b, f01=0x0190, f02=»!!L 0 /P /0 f 4 0 f 4 4 0 0 0 $0 T 0 0 W 0 W 0 4P +W 4 0 4 j !! % !j !! 0 ) 4 4 @p@q@r@t@v@ @x 2 # !"#$% H ! ( Hx 4 $ !"4 "!4 !!4 I @w 0 0
0x220f24…2210b8 Dummy {f00=0x016b, f01=0x0190, f02=»a0 ` b#$ ! 0 `f `f b" c$" ! b c b" W !4 ( #M0 T ! ! P.W< !0 P) * 2 *#U 1 * * 4 & !4 _ 4 JX0Zp[B :*zXFY Y <X Y 8Z`1,,N, 1 1 ,$1> L+ Y Y|YD N[x[r,fXhX Y [ [ [ !n2 n*$0 Z Z `[: x > 0 W X ]N]
0x2210b8…22124c Dummy {f00=0x016b, f01=0x0190, f02=» @ | H B " Y # , 6 Q d F J S:T JOBPTS GETDATAMODE NO.:ENTRYTYPE:999999FORMATSEARCHVERIFY CREATEELEMENTNAME: TPROGRAM:REL 10.0SIZE OF DEFINI
0x22124c…2213e0 Dummy {f00=0x016b, f01=0x0190, f02=»
0x2213e0…221574 (1, 455) Dummy {f00=0x016b, f01=0x0190, f02=» U U RETURN FROM DATA-ENTRY U h d ' . ) e e @ " f d f @ , ( f d T g T ( f ! ~ ! + * h dG 0 20 $ - - 30 - - 40 ! 50 % 60
0x221574…221708 Dummy {f00=0x016b, f01=0x0190, f02=» V ] d l t | 0 0 ! ' . 5 < D L T ] f p { ( < S k ! & A C g g & 4 @ E D| & + P _
0x221708…22189c Dummy {f00=0x016b, f01=0x0190, f02=» C B X x & Y " X R W * P _ Y $ +$ E +0 *J X " X $ @ ! P W2 X $ X " R W V R W V % _ " D $ D I * X $ X y & * X x & Y " +$ E +0 !0P< <!
0x22189c…221a30 Dummy {f00=0x016b, f01=0x0190, f02=» X X * x ( y $ * * * E Y Y E & E ( : > " Y ( x P Y * x y Wv X " X X . 8 * X 0P X T 5 ! Y * y X V& X ( ! x C ( Y * X Y , ! X X C &
0x221a30…221bc4 Dummy {f00=0x016b, f01=0x0190, f02=»Y X " T Y _ _ B U C Q C D & P X X * $" ~_> @ Y X * _R X !@XX y X # x V y X X * ! P P 1 _ 1 X * X X * $" X D % " X # X * ! y _< X # X * y ! X 1 1 X !@
0x221bc4…221d58 Dummy {f00=0x016b, f01=0x0190, f02=» x C y X C C X ( x Tf B J9 R 9 X ! T _ y C Q " T " ! X ! 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 Q(
0x221d58…221eec Dummy {f00=0x016b, f01=0x0190, f02=» x XD @ Y c C y XR X x ! j x X X # ! _ B C ! : + " X ! ! ( +$ E ( +0 *J : B C _J + . * X 9 V ! P @ Y E Y Y . : D E E " E $ : * 2!
0x221eec…222080 Dummy {f00=0x016b, f01=0x0190, f02=»+$ ' E ! Y 0T V +0 I : * 2' E R P P X ' ' B X _ X ' _ X '?_ * E X ' * X ! * * * X " 9b! X :c 2" H * @ W W W W W W W * Y ( Y 09H Y * Y 4 Y
0x222080…222214 (1, 456) Dummy {f00=0x016b, f01=0x0190, f02=» X +" X *9h P2 R Y >_ P P Y +W^ !R Y + !D " WL T !D ! W> Q W Y + U Q P W W Y ( " C * X *! P V L ! * B X 0 Y 8 !4 P * Y 0 X 0 X 2] X 8 Y 0 !4 : X 0 :H* * : X 2T Y 2 :
0x222214…2223a8 Dummy {f00=0x016b, f01=0x0190, f02=» 2 : C ( C : C B _( _ X ! " P ! B _N ( +$ X D D : K + Q 2 P. P8 Dr Q ( +0 B X # V : E QT_0 G _>T T E T T T S S S Q P Q P $"%|%|T $ T Qj W W X 0Q
0x2223a8…22253c Dummy {f00=0x016b, f01=0x0190, f02=» +0WT " P Y 0] Y (_t " X _. 2 X *# P B 1 2 W " P X X$ C : X *! P 2 *> C W @ X (T W X y 6 Y ( : X (;n * T QTQ QTQ<$ S S S Q P Q P $"$ $ Q $ T Qj * Y . Y ,W * Y . X ( X ." PV X 0RzT$ Y *P
0x22253c…2226d0 Dummy {f00=0x016b, f01=0x0190, f02=» : Y . ( Y ( P * Y *T " T ! 1 W ! ) Q| : * Q< S P & Y *T % : X > T X & V D ! T W Q| ) * X >P( R Q" X & V D ! P $ ! P %_ Q| : * V Y " X .9H $ S P & X ( " Qv Y +Q R " P
0x2226d0…222864 Dummy {f00=0x016b, f01=0x0190, f02=» $" P<Q X (# P2 X # :! R$W (. ' T$ @ Y (W Y , ( W ( Y ( P : X *:h X (! # 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
0x222864…2229f8 Dummy {f00=0x016b, f01=0x0190, f02=»P X 0V _z Y ( " T Y ( : 8 ) E 8 V Y 8 : " P X & V ( P ( : : ' "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
0x2229f8…222b8c Dummy {f00=0x016b, f01=0x0190, f02=» 6W4 X y 6W, @ X (P W" X & V D ! P @ W X * W Y ( : X , Y X $ Y X &T Y Y Y WD V $:H D Y D :H Y ! P V Y E W Y ! P DnW V Y ) V Y : E QT : 2' " P T G W Dr Q : ) : *
0x222b8c…222d20 Dummy {f00=0x016b, f01=0x0190, f02=» < V E B B X _ v : C C 2 : C 2 :( R : V E V D ' $ T ( W * P B X =' V W V Y =P * : 3Z +| 3Z + 3Z + + , ,$ W W ,N . 3d/ + W 3d/ + 2 1
0x222d20…222eb4 (1, 457) Dummy {f00=0x016b, f01=0x0190, f02=» "R V I B 3d ( T _& @WnX, @Wp _6 E ( B E E V B 2 ;B P0 J T , ( B@ W4 F_. , ( W E & F : ( B 2 & >A >A 2 $ E &
0x222eb4…223048 Dummy {f00=0x016b, f01=0x0190, f02=» @ 9 X ( 9 8 ? X Q , V ( - 4T V 5 ( W, V P& W$ U V X 9T I Y B 2 ' >A >A 2 $ V L ;a ; R@ @ 8 ? X Q* ( V )<B
0x223048…2231dc Dummy {f00=0x016b, f01=0x0190, f02=» 9 2! P T 0 / 1 3d #/ C _ ( E ' B 3d W C 1 1 W 1 1 / 1 _ Df &:K : 0 / 1 0 / W 1 0 / _ _. 0 / 1 0 C ( B B @ C (
0x2231dc…223370 Dummy {f00=0x016b, f01=0x0190, f02=»( C _> 3d W C 3 <H / 1 0 3 / C _" W 2 1 0 / 1 _ 3d 4 3 P E <H : 1 W 3d 3 E &P B V C / <H : 3d 3 C C W 3 C C J1T ' W 781"&$ 39#$;< '()*+,-! 3 4 3 E
0x223370…223504 Dummy {f00=0x016b, f01=0x0190, f02=» C C C ( ' P. 2> P$ "! P WrW B % P C + Vv B 32 I "%@P "% P& B C C 4 "5 # B P B P B 5 P C : 3d 2 P 2 C 2: C B B P C 2 : V I C B : ( ' P 32 I : 3d 3
0x223504…223698 Dummy {f00=0x016b, f01=0x0190, f02=» 2 @ " T # ' ?D F W"' #? F ;D:B " : _ E C : : 3d 3 "! P W : Df P C W $0 P C U : C "!@P ") # B C B % C : W 5 6 V :a 5 4 2 ' ( 4 ( J V
0x223698…22382c Dummy {f00=0x016b, f01=0x0190, f02=» J :A V 6V $ - _ * + : 5 D T> E D :A D ;A 9A Q 5 U _ 5 4 AWn 5| AWp 5 *! P * P _ W *) + 5 : 5 $: R P $ : D V D V ( 4 C C _, M : ( ' P I :
0x22382c…2239c0 Dummy {f00=0x016b, f01=0x0190, f02=» 2 @ " T # ' ?D W"' #? ;D:B " : _ C : : 3d 3 "! P : P C W $0 P C : C "!@P ") # B C B % C : W 6 V :a 2 ' ( ( J V
0x2239c0…223b54 (1, 458) Dummy {f00=0x016c, f01=0x0190, f02=» J :A V 6V $ - _ * + : D T> E D :A D ;A 9A Q 5 U _ 5 4 A 5| A *! P * P _ W *) + : $: R P $ : D V D V ( 4 C C _, M : ( ' P I :
0x223b54…223ce8 Dummy {f00=0x016c, f01=0x0190, f02=» 2 @ " T # ' ?D W"' #? ;D:B " : _ C : : 3d 3 "! P : P C W $0 P C : C "!@P ") # B C B % C : W 6 V :a 2 ' ( ( J V
0x223ce8…223e7c Dummy {f00=0x016c, f01=0x0190, f02=» J :A V 6V $ - _ * + : D T> E D :A D ;A 9A Q 5 U _ 5 4 A 5| A *! P * P _ W *) + : $: R P $ : D V D V ( 4 C C _, M : ( ' P I :
0x223e7c…224010 Dummy {f00=0x016c, f01=0x0190, f02=» 2 @ " T # ' ?D W"' #? ;D:B " : _ C : : 3d 3 "! P : P C W $0 P C : C "!@P ") # B C B % C : W 6 V :a 2 ' ( ( J V
0x224010…2241a4 Dummy {f00=0x016c, f01=0x0190, f02=» J :A V 6V $ - _ * + : D T> E D :A D ;A 9A Q 5 U _ 5 4 A 5| A *! P * P _ W *) + : $: R P $ : D V D V ( 4 C C _, M : ( ' P I :
0x2241a4…224338 Dummy {f00=0x016c, f01=0x0190, f02=» 2 @ " T # ' ?D W"' #? ;D:B " : _ C : : 3d 3 "! P : P C W $0 P C : C "!@P ") # B C B % C : W 6 V :a 2 ' ( ( J V
0x224338…2244cc Dummy {f00=0x016c, f01=0x0190, f02=» J :A V 6V $ - _ * + : D T> E D :A D ;A 9A Q 5 U _ 5 4 A 5| A *! P * P _ W *) + : $: R P $ : D V D V ( 4 C C _, M : ( ' P I :
0x2244cc…224660 Dummy {f00=0x016c, f01=0x0190, f02=»C C B C C O T T T@T^T T DDD@DJDL * W V 7 @ ! P * P W Bj CD 9c DA E Df Q B W H :aW _B( 2 P V W8 _ 2 # ;B V T FW V P L , V 2P " 2 P V D ! R T V
0x224660…2247f4 (1, 459) Dummy {f00=0x016e, f01=0x0190, f02=» % 7_ 2 # L E 2" &] Y $! 6P Q $ T 9B B _ _ 6 @ " T 7 $ V P * W _ A B G V & B HB@ 'W 'W '_6 :l:d:h E W W P W 6 2# F W4 @ ED^"
0x2247f4…224988 Dummy {f00=0x016e, f01=0x0190, f02=» , W 6 2 F W$ " P& Pd" # F ;b Wv " ;d# _ [ v [ +$ E +0 Z Z : R ; E 6 : F _v :B , (Vr ; H [ [ [ E z ;AV$ Z H # F ; E :
0x224988…224b1c Dummy {f00=0x016e, f01=0x0190, f02=» 7 D| Z 7 : ( :A ( @ " P ! P [ :;H 2 EH E ;h F : ; V Y : 2! : 6 2 F W& " # F ;b ; : ;f" #?_" W " T & T + : * & !@P `1` P I Q
0x224b1c…224cb0 Dummy {f00=0x016e, f01=0x0190, f02=»P TF R R ` ; <( Q P # W " <! =# T6W = Z P _ V ^< `_@ R Q <# =_ P :" P * U P 1`! T "# 9e! # K : P8" T * & : * & !`P :J +_ +Q I _0 , T T XD W
0x224cb0…224e44 Dummy {f00=0x016e, f01=0x0190, f02=» P T V W Z :$0#0;b J P P PF P 0 - P0 _ 4 V W Q P ) P 9_ &" ! 9 : & P Q J0 ,^ , < J8 # ; [ _n' d V W V 4! P < X 4 9d $ & !
0x224e44…224fd8 Dummy {f00=0x016e, f01=0x0190, f02=» + P( & T 9d! T 7 V Y " WJ Q V V 7 Y P._& & Q 9d! )0 + P 7 Y Z $ _ : V ) " TV *V &V : V S W P 9 S W _ V P W T V E + : & [ [
0x224fd8…22516c Dummy {f00=0x016e, f01=0x0190, f02=» Z w [ P O GL V H )_ O L _X z R z ! P 1` { V (9h T W z 9e! I Z ! : 4 P 9 59D_ " P P [ ! :d" 5 : " Tz *V &V PP= ;@ R P W ;a=a P " R & R V
0x22516c…225300 Dummy {f00=0x016e, f01=0x0190, f02=»I O I O GR z " ! ! R 2` { z " P ! R 2` { 1 ! { [ Z O I Q O L P _ T { [ O N [ Q@ [ O GR { R [ _ O GL O L Z ! Z $ Z %_N [ Q* O GL O I R [ Z { O GL z 9e! W Z
0x225300…225494 (1, 460) Dummy {f00=0x016f, f01=0x0190, f02=» gg++ L 33 T DfD|G T G DrE T QTQ QTQ<T S S S Q P Q P Q S S Q Q T Qj O 6 P K K K K V K : E O O O Dv V Q P Q& V Z P 2 " T W "@T '?W
0x225494…225628 Dummy {f00=0x016f, f01=0x0190, f02=» @ ! P * Z 7 Z Z P * : V R (Q V : : O J P v I < : J Qx : Pn 4 ! Th_ PX 4 WT K Q WJ Q W +_ Q Q K W. _& X 2 W X & 2 J K : V :
0x225628…2257bc Dummy {f00=0x016f, f01=0x0190, f02=» ; *Xt 8 ! DSp 0P Wn 0W8 Wf :T& *W, FP . :T Z ! XBW *X& FW@ :P # U 1 RF !00T ; Q _ 9P F " X6# ; W )0_: J R( Z R 4! P ;)0 9U ? Z ] 49d_. _BU ; :X _ _ z 9d! ) ^ _ ,_ 8 _ : W 8W
0x2257bc…225950 Dummy {f00=0x016f, f01=0x0190, f02=»E ! P DnW : ! )P9H # T &W &" :I : T : P & _ &X _ : : : : U` O : { : U UX PX 9 _ U [ U Z : R" P $ 1T Y W 5 _$ : U
0x225950…225ae4 Dummy {f00=0x016f, f01=0x0190, f02=»! :DW ! 9 R R _. : I : E E jP kT T : & 9! " : $ : U` Df $ : 3d U E &P C U / 1 3d U U / 1 E C : Df#0 T & C C : V C C : & T ;d# P V
0x225ae4…225c78 Dummy {f00=0x016f, f01=0x0190, f02=» PWX WnPR LWD R R _ R _ # Q R V > _V X^ ' h P P & 1_ P 1_ , @ - R T U :J a B@ ' d w5 1 Wn Df #0 T B ' : B B V : Df P C #0
0x225c78…225e0c Dummy {f00=0x016f, f01=0x0190, f02=»3d E F C W XR ( = Wn XR _ E & E & E ( : Y P< P8 <<HT _ R <A_ <A <a ^ <h = F F ) E ' B Y E & X X Y$ X* T Z0 I R < _ <h =_H ^L _ _R E & G _d E F '_p R
0x225e0c…225fa0 Dummy {f00=0x016f, f01=0x0190, f02=» C E ( B T B $ ' Y E ' B _ E E : E E E E E P < C 9h9G & C 9b! 8 #_h B " ' ""? 99g! ":e" B =_ _f E E & 9_ 3d @ # E C _ E #0P T # P W &
0x225fa0…226134 (1, 461) Dummy {f00=0x0174, f01=0x0190, f02=» 8# ' Y = # Yr _ _ _ _ _ E E ' E _ E & E ]8 Z YB_J W 3d E & C E E & C E & C C ( B X _ W & Y < * C _& 3d E E P ) E B & 9
0x226134…2262c8 Dummy {f00=0x0174, f01=0x0190, f02=» E X P &V Y , X Y / X Y !n E * & Y _P W W _ E PB T !00R4 !99Q.$ Y T P U U T W _F T P Y P E V E B E E ] P ] P V ] V V E
0x2262c8…22645c Dummy {f00=0x0174, f01=0x0190, f02=» W T #W T # C C 1 _ _ E E ' E _ E & E ]8 Z YB_J W 3d E & C E E & C E & C C ( B X _ W & Y < * C _& 3d E E P ) E B & 9
0x22645c…2265f0 Dummy {f00=0x0174, f01=0x0190, f02=» | 7 F l p t x6 &90 A! P K 4 0 A! P K 4 0 Av P K 4 0 Av P K 4 0 Av e 4 0 Av e 4 @ 0 >0 P 64 <0 P 54 0 P A 4 !0 P 34 E bR * )bR* I 0 A R V 4 0 A R V K E I b )*R b R*
0x2265f0…226784 Dummy {f00=0x0174, f01=0x0190, f02=»$"` uV> av uajb " " b ( bR#j $"u b^&jb "R" b bR j $" b 5W j ""u j $" j &"* u`Hp *? v? u? ` _ u) 5 ? j` " $ `: 0 ja " " a ua j $" ` )? u`? j` " "_2As ua? @u@v E 0 ? !"? 1AxW-j " - R R _9 W I
0x226784…226918 Dummy {f00=0x0174, f01=0x0190, f02=» -jc " c c R c R _a _) +_% 0 c c 4 ! ! ! " V 0 _ " b )*R b R* !4 "bR * )bR* & 4 @k@lja " "j` " $(` AlW= ` Rgjd " "j ""a (a # d ja " $ a a RCj ""d a d`W ` (a AkIl'W a R jd " $j $"` a R `vIs `! d` 4
0x226918…226aac Dummy {f00=0x0174, f01=0x0190, f02=»! "R! ! ! " Q E! "! [ 3@ 4 H #@ C!!"C! !T !!RT "!R0" A!R 4 H 0 _ #! R R W A T A @p Cv! Cv! H Vv0! Av Tg `vP Ap ?v` #! RTj v " % j !! jGv " ! Apj !'! $! P Ap R$ ! ! " T Ev "v P Ev & 0" AvR 5@ Cv!W Hp ?@
0x226aac…226c40 Dummy {f00=0x0174, f01=0x0190, f02=» / s 4 : m `!: )`W} d$ bd !bRV ! 55? jc "R&#c91j " b "&m j (" ) bRc* c*jR&"c "dR? b W jd "R$ d U d!: jR$"d "bR c* REjR""b jR$" _` b{ ! a ja!! b(jR(" b1 a A c!V a ) ) !aR: ? jR$"c bR* b "`R: Hp _ ba `=jR "` `c_V c Ap_1Ar 0 mP r
0x226c40…226dd4 (1, 462) Dummy {f00=0x0174, f01=0x0190, f02=»t` t*_- t: `"_- `" Ab !&R`bm &R` m? < m@s $R*: ` a&j` "R&fRa* `*jR&"` "`* @s R: " R: ab !aR: "V )( ) )? j` "R$jR " "aR: a! ` % !`R: b "R A9 `!j` "R$_! r : '6c ( ]@s $R*: Cq< RU !bR "V ! 6 ! 7 AvT ? )? bjd
0x226dd4…226f68 Dummy {f00=0x0174, f01=0x0190, f02=»{c? 8? Hq ` j`!! b'$`! _ ? %_5Aq_ : RF `* a!bR`1 a `1 a! a+ "%R? : !%RP RU `* a!b a 1R` `1 a! a+ ? ApWg RBbR(" 1bR* "cR? a!: jR$"a "cR: ca_0AqW3jRd" "'R< !`R< ja "R$ `!< a & `a_ %6c : b " ! d %d8 !? !'RP 5<
0x226f68…2270fc Dummy {f00=0x0174, f01=0x0190, f02=»_ )? Cp< b! a! !ba < b b)*R b b R* $ba & a b? 4? ` a*Hs `W ` V ! 50W< a"j " &h a& &V! a a! a j " $ ` _E )W a&jb " a 4 d"@s$ " As d R jd " $jc " * c d ? 4 j " " & 6 jR " 4 j "R !"4 !!4
0x2270fc…227290 Dummy {f00=0x0174, f01=0x0190, f02=» _ F " DSF T X AC FC SV TC PTS-DE SYSFIL " % ( + . 50 < p p !`R< ja "R$ `!< a & `a_ %6c : b " ! d %d8 !? !'RP 5<
0x227290…227424 Dummy {f00=0x0174, f01=0x0190, f02=» ~ W f T r v zApAt : As k # *V ) ? Ht ? l b ,V ) ? Ht ? It (? cv: a*mja " &"asz kj a"c a"j &"a `: ` a* ?j ""` j $" l `v: j a"` a" uv: j a"u a"j &"a c: Uj &"* W @ `#j "" j $" a*_zj $"c `: @j ""` `c cv_(ja " &"as c`_z cv
0x227424…2275b8 Dummy {f00=0x0174, f01=0x0190, f02=» uv ud d , ) v )? jo !v bo!&k bo'&l ) oV5 ! ! " : * o | Uj |)"` It ? u) 5 ? 4? : VJ! 5 ) ? `b b W `!: RBjR""b bR* z "`R: b !bR: jR$"` "bR? bR* z "bR? '6c @rT `# : !`RV ! 5 ? )? a7b &Ra0
0x2275b8…22774c Dummy {f00=0x0174, f01=0x0190, f02=» Kq %_1Aq_ : @s RHl Hk RU "#R? a$W a" k `#0 kT : j` "Ra ` >Ar_ ApAs0 kTY k # *RnHp. a$*a j " $ Z : j` " &*`*K a,Hp bk & a? 0 lT$ l b ,R. a& a =bl & a? #X;! 5 ? b: ja " &*a* a,_' )? c# bc !bRR)jc "R&"c* 5W d7b &Rd k jc "R$ c
0x22774c…2278e0 Dummy {f00=0x0174, f01=0x0190, f02=» h~ !X8H !( @ h~ U !j~ ! ! !P !0# ! N_m ? j !! '( !1j !& !j !! ( * j +& 'j !! ( j ! ! ! 9 ? jy " $ j !! 1 j !! 2 j !! (I !Y A ! p ! ? ! 0 !h & !&P !0# !< _ ( ) +h & '&
0x2278e0…227a74 (1, 463) Dummy {f00=0x0174, f01=0x0190, f02=» h^ !T f^ ! !j^ !U !j '! !j !! ( _N ! ( + ~UWhj !! ' !QU I N! 9 ! : ;b ! W:0 ^ h^ U !P :! ;j !!^ b ! f^ ! !A j ! !d^ ! j '! !j !! (( + b +$~ WR j !! '( ! j !! 0 (j ! !W0 )W# + Aj !
0x227a74…227c08 Dummy {f00=0x0174, f01=0x0190, f02=» 6 <W U j !!~ W j !! (W Uj ! j '!!! !j !!~ j (!~ _+( # j (! !j !!~ 4 I H~*H $H !@~ W 0$@mI~ Hn @f $U W I~ W I Ao 2 H~ I Ao { _ H{ 2 _ 2 b & . #K~M g "pK s_W!gC ? /_>Iz H 0
0x227c08…227d9c Dummy {f00=0x0174, f01=0x0190, f02=»Hm @ P&@jP A W3Ao ,P !_ g  L@mAo? H 0 Hm ! &@h@jP #W @fPO $0 TF 8 h ! !T #P ( -& Ub & ? Ub & @ .P )gC Ao? AzAzT @mA *P @ ? @ @m8 @xP 2 !! h ( & H #: W ? Im1I~ I & h ( & H I ) ?"I ) ?#I H
0x227d9c…227f30 Dummy {f00=0x0174, f01=0x0190, f02=»({ % H~ - !gC Az? @z? H~ C < I 0 ! W 0 ! W /8 0 ! 0$? Az % h ( & J K @o?(@m!gC C~8)?(@zC~8*?(?$Km Jz I gC T Io Ao #: _3Ao@ T / 2 %% + % # #g W ! #g #20 ! &_ I~ Jo K _@ @ !0$@o ( A P W @ 6 / A _ Hm 0 ! A %
0x227f30…2280c4 Dummy {f00=0x0174, f01=0x0190, f02=»%% 10 ! !0$ (V ? ##2 2 2 322 1& _ Co<$Cm<$Cz8$0 ! 2 %% 4 !X b !U *8 0% ? h ! & ? C <$ h ( & H I ?0 g( " @oW $ 2 %% 5 ): @oA ?6C <$Hz @ T Cm<$Io I~ #V - ? @o@z Ub & 5 +@mA{ *V#( - 1 0 ! 0$ { &{ mU_"@{Ao?
0x2280c4…228258 Dummy {f00=0x0174, f01=0x0190, f02=»% !g2 @m?:?;@ _/0 + 0 , A~4 @~P + , 4 _ ; $ - ; Y i . & E 3 N + n | i Q m
0x228258…2283ec Dummy {f00=0x0174, f01=0x0190, f02=» " ! I Y R *FTX J BC JC FTJBJD FETCHING FORMAT: FROM DISC. @ UF 0 % * & j j Ub & 5 +@mA{ *V#( - 1 0 ! 0$ { &{ mU_"@{Ao?
0x2283ec…228580 Dummy {f00=0x0174, f01=0x0190, f02=» !4 "4 #4 $4 4 @} 8 In06 W 0 ! WP0 ! WII~ 0 ! W?H 0 ! W50 !! W.@n6 0 ! W 0 ! I~ 0 ! W H 0 ! W 0 ! (0 : H~ ? 0% P : _ 0' P C{P A )? H ? 0(HoO !H~ 0) $ W 0) # ! 2 W 0 0 /1& _5K~|0 ! _
0x228580…228714 (1, 464) Dummy {f00=0x0174, f01=0x0190, f02=»( 2" + " ( " # I ? & 0, P ? 0 Pm0* 0 -8 Wa0* 6 > W<( , ! :d # !_'0* P 0' P o8W o;d o "_HI 0* 2 W @ @ @ @ @h@j #U 0- ! Td$ + " , 0( %@|PI0' T /hZ " !T f ! j !! H{ ? 0' P 0. P H !?
0x228714…2288a8 Dummy {f00=0x0174, f01=0x0190, f02=»88" .4 #H 0Hj 0 #T @m?#@hP !PP01 02 V 0 !_ $ + ?$I 03WL0' P 0 9%0 !01 02 T10' T2WO0 ! 04W #I{ H~ I K 0% 0(? A 0$P#:&;%Io 0. P H 2 ' ' ' ? JA J K{ 0* ?( !01 02 8 _^J #H 0' P 0. P T 2 ' 0' T 2 )
0x2288a8…228a3c Dummy {f00=0x0174, f01=0x0190, f02=» /P 06 & ?.06 " ?.0(_.0 0 H ,W H +0* 0' P 0 Q ,8/?0A 0 !01 02 P : SqW 0' X70. P J ? EK{H ,LH 0' P 0. P T +_bH KAk0* 1& ? Am #4 0% S 0' P 0 Q I ) *&KA)? 0% % 0' P-0. P H % !W/ ?1 #? 08 $+ %'0
0x228a3c…228bd0 Dummy {f00=0x0174, f01=0x0190, f02=»W > "j 0 0 #4 @ 0, P j !!!WP U0' P m ( &W 6) D b !Z/h U ! !Q !4 !0(@ T 07 j %! !0& ! 08 % ! 6 cv6 C & 4 W 9W :0' P " "Jh !U !TA0' T h ! !T00/ _ A 0' T f !07 0(0& _ 0 0 (P h !
0x228bd0…228d64 Dummy {f00=0x0174, f01=0x0190, f02=» 7jo " 1& W % 4 "1& M 0(W 1& !0) ! 6 W"0 0 $( # _.0 ! _y $5 !( * @ . !4 80 4 o? o0 0 6 4 Am4 0 0 4 6 v k | _ O x T u T
0x228d64…228ef8 Dummy {f00=0x0174, f01=0x0190, f02=» * ! & 3 8 ? P + +-0? 1 BATCH IN USESYMBOLICVALUE-SET XXXXTTT9TTTT9XXXXX- o A . 1 . . : k A C : A $ : A NOT . TIME-OUT CDV-ERROR NOT FOUND I/O-ERROR DATE ERR
0x228ef8…22908c Dummy {f00=0x0174, f01=0x0190, f02=»ERED BATCH RECOVERY RUNNING. DISC NOT OPERABLE @ : l IN : k A CHANGE FLOPPY DISC DISC I/O-ERROR : ILLEGAL FORMAT NAME PRESS ENT TO CONFIRM NO WORKSPACE IN CORE FUNCTION NOT ALLOWED USERFILE ASSIGN-ERROR 95 % OF FILESPACE USED PRESS EN
0x22908c…229220 Dummy {f00=0x0174, f01=0x0190, f02=»EXECUTED TOO FEW INPUT CHARACTERS OUTPUT DEVICE NOT OPERABLE COMPULSORY FIELD NOT FILLED DEFINED LINE MAXIMUM EXCEEDED MAXIMUM RECORD-LENGTH EXCEEDED !MAXIMUM FORMAT-CODE SIZE EXCEEDED !MAXIMUM NUMBER OF FIELDS EXCEEDED (USERFILE NOT CLOSED IN PREVIOU
0x229220…2293b4 (1, 465) Dummy {f00=0x0175, f01=0x0190, f02=» : h y : k : l : : z : n : : g : ASD 5 PAGE : WARNING:REFERENCE TO FIELD (F ) OUTSIDE FORMAT DEFINITION ,OCCUPIED RECORDLENGTH CHANGED WITHIN FORMAT: m . SIZE ON DISC: . B $ : ! DOES NOT EXIST IN JOB-DEFINITION OR ON SYSTEM-D
0x2293b4…229548 Dummy {f00=0x0175, f01=0x0190, f02=» ! )0 2 ' 0 9 B M Y e q ~ 3 H ] s 6 Q l ! $ $ ' + K / v 4 ? ? F W J @7 z
0x229548…2296dc Dummy {f00=0x0175, f01=0x0190, f02=» @g@i@k@ "0 ( #W H % W % 6 0* 2 W ? A o W o ~H h~ ) !PL@ < ~E h~ ' !< A ! & !@ W 2 W 09 #XA _ 2 !j !! j ! !$ 60 ! ? A _ !A <
0x2296dc…229870 Dummy {f00=0x0175, f01=0x0190, f02=» ? A _ 0# !< " ? #@ T 0' P9W I 46 0 ! W 0 ! : 6 h W h 8 ? 6 0# !< " ? 0# !< " ? ( 09 ( #)0* A h U ! < h 8 ? " ? < 9h ! !P !W !j !! ! =f "d "!U d !
0x229870…229a04 Dummy {f00=0x0175, f01=0x0190, f02=» ? & ? ? 0 9 ? " W @g@k !Ai !? $@kAgW #@gAk@i ! j !! ! Uj ? 60 < h !TL j !! ! 4 ) 5 ! h ! !T ! R h !U !P7 !_& h ! !X&W#@ T 0' P! W I h P Wk ~Ub~ "~
0x229a04…229b98 Dummy {f00=0x0175, f01=0x0190, f02=» ! _6j " - 8 & ?!@ P 5Ii Ik Ig A|W 4@|@ & , 3hZ !PDj !! 0 (P 60 !_<( 4 !, @h $ !ThI|m2 ? 2 """"#$"$$$#$$"""""%&&"""#''" !_h( !? 4( !_ "_ _ ! j !! ! _ _ A| "
0x229b98…229d2c Dummy {f00=0x0175, f01=0x0190, f02=» Af4 L@d@g0 @ W< %Ad01 02 R Ag00 ! T 01 02 @dW Hd 01 02 @ 4 ! ! L Ah $ !6 00 W. "0 @| uA j !! ! j !! 60 _N ! 6 iiWJ@e !L ! ;h ! !P !@i ! 9( Jh * !TX6 rr rrW !
0x229d2c…229ec0 Dummy {f00=0x0175, f01=0x0190, f02=»! 6 & ) 0# !<) W30# !P(?)0# !<) $W ( 09 # W a / " Hi b " !P 6 ! "?* ! "?* ! "?* ! "He U m " 0# !<) ?+( 01 02 0* 0' TJ U m ! P Q 0* , ~8d ! ~ W f ! ! 0 0/ 0% ?+ h X
0x229ec0…22a054 (1, 466) Dummy {f00=0x0175, f01=0x0190, f02=» U j ! !0 P b ![ ! ! ( 4 @h0B ! P # ( + ?,0. <-AhW %hZ ( !<- % (:- ! ! ( $ 2hZ ! !T !j !! W % 2 .../ !X b !U ( W )W =f "d "!U d ! 8T 0: (+0; + j !! 1 ! & 0' T/0* V
0x22a054…22a1e8 Dummy {f00=0x0175, f01=0x0190, f02=»! 4 ! U 6 _l; 2*0# !T Wo0 "T j !! !b WX WU Wb Sf !WAH{ W<09 " m W W 0# !T3m W 0# !T&m W 7h U ! V !!4 !"4 80 1& 0 6 ''' ' y ''' "W% ," "0 We08 W "_ '_ !08
0x22a1e8…22a37c Dummy {f00=0x0175, f01=0x0190, f02=» T O j & % . i } 8 [ D S q d E = G B 0 M 8 7 > D Z ^ L q - Y c + ? P0:;=
0x22a37c…22a510 Dummy {f00=0x0175, f01=0x0190, f02=»TTTTTTTTTTT9 ! I D DELETED INSERTED + ON UNIT:U i + WITHIN JOB: k RECOVERY RUNNING. RECORD CORRECTION F FREEZING OF BATCH l CONFIRM RECORD INSERT CONFIRM RECORD DELETE: RECORD MUST BE VERIFIED ENTER
0x22a510…22a6a4 Dummy {f00=0x0175, f01=0x0190, f02=» FF* RECOVERY OF : k B : l RUNNING. ( ',!.%)$&"#-* $ * 0 7 ? G P Y c0 m * 5 A Q c w
0x22a6a4…22a838 Dummy {f00=0x0175, f01=0x0190, f02=» L @ D H( &Ad1 An@m 6 0 _ @n_ ( !'( _&3 @d0 0} h* h _? ! 4 6 99 W 2 !8 "8 #8 W j " # L j " "# P|j " $# Pr? ! !6 +; ^# 8Zb !" Xj !# 'bc (c" 3? 1? ? @ W' ## 7 ! ? " 5 " " ! T T
0x22a838…22a9cc Dummy {f00=0x0175, f01=0x0190, f02=»2 _ !0 #$} & 2 _,4 j 1! ! !j 2! ! 4 R ! 4 Hd ? ! 8T & ( !0 #$}? ) _ ! Zb "" " < $ U@f@e0 " An 2 _ ! : ! @ ; W < " ! j " j $" Af07~ 0 "P 07~ j~#!
0x22a9cc…22ab60 Dummy {f00=0x0175, f01=0x0190, f02=»e ! 8R AnW* ! " _W) !$ ! $ W !W 8P )B? 0: (+0; +@eAf ! ! 0 %%In 0 $%Ao 2 W ) !Ao _ ! 8T !_ ! 8 ! ( TJ? ! & ! Xb !# ~ " ~ T $ 0: (+? - !?
0x22ab60…22acf4 (1, 467) Dummy {f00=0x0175, f01=0x0190, f02=»~ ~ RR j !! !07~ j " V0 "P W07~ " !j~#! ! T j " $ j !! 1j !! 2 !!4 1 W 3P W An 2 _ 4 4 ! ! ! P 2 _ 0: +1 0 ! !G! "?! !r ! " ! ! # !An@m 6 p _ 0 ! _7Hm_ #P Q 2 ! " _ 0$ 6 A _ $Gv ?
0x22acf4…22ae88 Dummy {f00=0x0175, f01=0x0190, f02=»0} # * h h _? ! 4 1 Ad!hq @dAn@mAe 6 ?$ " &z 2 %&%4 5W 6Jd P AoHe @o W 0: z ,AnAo@e 2 ''()*++ _( (z T &PU 1 2 ,,-./. # %XjAo _9 z! X#b !& "z <0 $z zU0: z ,@e0 " *k0 " _ He% k0 k<1Id $P )SW "T k
0x22ae88…22b01c Dummy {f00=0x0175, f01=0x0190, f02=» = =_=0 !P #_R * , !" 3 h &U !T , , _ ,& !8'W:6 1? >h ! !P 0 /8 W 0 /< ? W %W ( ?2 2 j k | d t 1 2 s 3 R
0x22b01c…22b1b0 Dummy {f00=0x0175, f01=0x0190, f02=» c ! Y f P ] c *AN010203040506070809101:232:3:4:595:6:7:8:9:A N T GETTT FILESIZEDATE:TIME:CREATEBALANCE:JOBNAME:USERFILEFREE %SYMBOLIC:BATCHHEAD:SYSTEMFILEVOLUME-NAME:15 FILE SPACE15 FILE-SPACEUSERFILE UNITNAME CONTENT
0x22b1b0…22b344 Dummy {f00=0x0175, f01=0x0190, f02=»XE-XXXXE.XXE.XX T 0 * h d m p n o i m ] f ! ^ g T U h d ' l a e k e k 30 - - * 3 h d 31 _ - - 32 Y - - h j :U i g [ c f ! " # # b $ % # & U
0x22b344…22b4d8 Dummy {f00=0x0175, f01=0x0190, f02=»@ ( X% I @ ) X% J @ * U e f 4 ` &g 5 $ K fA ! d &A + $ M fA " d &A , $ N fA # d &A - $ O fA $ d &A . $ Q fA % d &A / $ R fA & d &A 0 $ S fA ' d &A 1
0x22b4d8…22b66c Dummy {f00=0x0175, f01=0x0190, f02=» " $ & ( * , . 0 2 4 6 8 : < > @ B D F H K N R V [ ` f n v ~ (0 <0 > ! # # & F < l Q
0x22b66c…22b800 Dummy {f00=0x0175, f01=0x0190, f02=» T ( !Ad1 9An@m 6 6 W,@n_ ( "2( _!@j3 @ @d0 0} 4 h _= _< ! 4 6 Sfl{ W j ! Ii ! 9 W ) 9 m ,P ) ? ;j !& 'bc c b W 0* ! 6 $ r"? 7" v$ !r? 8 Tj *P ? 1? " Q$ FWK $ $< ?
0x22b800…22b994 (1, 468) Dummy {f00=0x0175, f01=0x0190, f02=»/ !T; 6 MMMMMM~~MM~~MW|Iiy ! %n h / !T ,JWX ! %P h / ! 6 3 W1Ak_+ !" %% h / !T , W Hk ! c % c c _ & !? 0 %% 8? !6 (DTdt_ * ? + ? ,< j ! ! 9 @iW Ai? P ! : ? A W @ ! < A ? @ ?
0x22b994…22bb28 Dummy {f00=0x0175, f01=0x0190, f02=»% A0; ,0: , $ ? "r= ( 2 07 6 'h #Q !j , w j 1!w!Ii j 2! ! !j "" j $" mHj -P !2 _ &{ { )P !Ix 6 * ? &{ { *P !2 _ ({ P !2 _ -P !2 _ { + Ii 0; {$* p!0
0x22bb28…22bcbc Dummy {f00=0x0175, f01=0x0190, f02=» !* & & & ! 5 0 "}H{ Ij 4 !6 H" W 0; {$*0 P _4 0 "}_? 1 !6 TT _P - PJ !6 ??_&Aj p! u # $ j $!! {1j #!! {2 $ #? &{ @jP { &{ W &{ @jP H{ m *" ! I{ ? % & 4 0 6 55 555555555W 'I ( W Ij I
0x22bcbc…22be50 Dummy {f00=0x0175, f01=0x0190, f02=»Hi! ' 0 (T W $0% "W 0% 4 @g0 0} { 1 7An@ An2 _ 0 0}@n_ 6 5 ? Ag@ij !m ) 9 AiW 0; {$* p!0 AnP 0 ! 0% 4 2 _Q 4W XT 8 2 Jgwjm & {!_: 2 _ ({ P _ &! 1 2 -P 7 nn &{
0x22be50…22bfe4 Dummy {f00=0x0175, f01=0x0190, f02=» "|Bn { |? 3? @n ! " P W0 % A0; ,0: , T W % & 0 ($}2 ? &{ 0 0}4 0 0} { 1 8An 6 _ @n_ 2 Wm * ;j !& 0; {$* p!0 0 ! 0% 3 6 ++3 ({ T j !&m j {!& ! )P R W 2 W &{ _
0x22bfe4…22c178 Dummy {f00=0x0175, f01=0x0190, f02=» 4 & ( $j ! ! !4 & ! c # ( % !j ! !! !j ! ` !4 & " c # ( & "j ! "! !j " ` "4 & # c # ( ' #j ! #! !j # ` #4 & $ ( ( $j ! $! !j $ $4 0
0x22c178…22c30c Dummy {f00=0x0175, f01=0x0190, f02=» w! 0 ""j !Q W = ! +W !@ !@ 4 j !Q * & ' @d@ 4 % ( H + "20 !!" " !)I 0 # W 0 # & ' % y %Ad W < ! !4 I /W . ( a - !+ 7 !) !< # j ! ! ! # 7 j ! !
0x22c30c…22c4a0 Dummy {f00=0x0175, f01=0x0190, f02=» wHj $ # 4 j y C o 7 7 $ l 0 C v h o 9 - X ! Y y 7 N & " ' v
0x22c4a0…22c634 (1, 469) Dummy {f00=0x0176, f01=0x0190, f02=» h @ m 24 COPY $ $ TO BE COPIED: q @ NEW $ NAME: v @ m U 20 $ - - * h d7 21 ? - $ - 22 @ - $ - 23 > $ 24 COPY $10/.-,+*)('&%$#"! 2 0 ;
0x22c634…22c7c8 Dummy {f00=0x0176, f01=0x0190, f02=» ! # * M C Q @ : : 7 7 $ l 0 C v h o 9 - X ! Y y 7 N & " ' v
0x22c7c8…22c95c Dummy {f00=0x0176, f01=0x0190, f02=» e t 4 $ f c# # d# 7hZ c! 7 c! #2 W bch b!Z7!T W c N? b% ! b_ b$ " b ,# c bch b!Z2! } c! b$ " b_DW ( % $N b/hZb" c!T b/ >j c! b c! b$ " a W b# # b*a & &a_ a c! ac bch baZ7!
0x22c95c…22caf0 Dummy {f00=0x0176, f01=0x0190, f02=»)c ' ) ' j (! '!f c! ! d!? ` 4 j b c a j c!a! b b! c!f cb db4 j b u a4 u $ #@g c hZ a b! +2 jc!! b"c W 6 b! !jc!! b"c b! !W, ! b! !Hg ( 'b `3d b!Z` b! ! !@g _ " ,0 b! ! `bh `!Z2
0x22caf0…22cc84 Dummy {f00=0x0176, f01=0x0190, f02=»b! ! ' j '!! b ' j b!Z= 'b '!Ag_ 4 b!jc!! b c ` m ` f b!d b` `! ` b` ` !Hg '`4 1& P # W !05 p! u ! " !! w jw!! {1j !! {2 w d "2@h u" ! Kh !@k ~60 oT @j~ # # - b o -( q0 TF b , ! , " , # E h )
0x22cc84…22ce18 Dummy {f00=0x0176, f01=0x0190, f02=» &%W #$d &%( A b ~6Ak_Dj~ b #* Ii !"d &%W #$d &% ~6Ak4 + 1& P W !2 1& P # W ! 4 @l #hQ 0 !0 6 F MMMMMM? !j !! !_9 "_> Hj j !! {(j { ! % { $! 0 ""Il _h !Ah? Al - ! j !!
0x22ce18…22cfac Dummy {f00=0x0176, f01=0x0190, f02=» !: ":H "< #:H #< $:H $< %<H %:H "8 # oU U b ! " # $ + ~E U # hQ 0 !T 2 W W #_) !j !! !( "Q Ii "_H ! `! a! !07 h )Q ! ! # `" a j a` j a` ! ( !_ $ 6 1j b#~ W j b#~#W j
0x22cfac…22d140 Dummy {f00=0x0176, f01=0x0190, f02=» ! " `" a j a` j a` ! p 4 !jo ! - h] $ !T 6 #+jo ! ! !" %_*jo ! )_ jo ! +_ ! !_+J .jo ! ._/jo ! , !4 6 b @h@k hQ 2 !0 2 ? !j b! - b! !j !! H ;W 9j ba baj b! , ! b!__ j b o "
0x22d140…22d2d4 (1, 470) Dummy {f00=0x0176, f01=0x0190, f02=» _ %b!b5 j b!U b!_ HkJ cWE , a ! b jb!! b!+ b"$ $ # !07 h )Q ! 0F a #? !4 = 0 !01 02 T$0* 0' P 0* ( " ;_* 9_/ _44 0 i } - p ; [ s = e 9 ; 6 ` e 0
0x22d2d4…22d468 Dummy {f00=0x0176, f01=0x0190, f02=»GTH#V:#G:#A:GENERATION VALIDATION ACCUMULATION 9Z9999XXXZZ9XE+XXZZVZZ9ZZVZZZ! 1 k " ( % & ) 0 ~ k: " $ % & ' ! " # $ % ) 0 ~ 1 $ : m ( NUMBER OF POOL-UNITS: # d A : ! C ACCUMULATOR POSI
0x22d468…22d5fc Dummy {f00=0x0176, f01=0x0190, f02=»# d A : ! C B - MAX/MIN K M A V I DUPLIC. SPEC. #L:< B LAYOUT> #V: G #G: F #A: H NO NO/POS - D I E T E C -ITEM HANDL. % + 4 ? J
0x22d5fc…22d790 Dummy {f00=0x0176, f01=0x0190, f02=» d 0 Hf ( Hg ( j I 0 ##Ie !l_0 ! $ % & Ii I " " ( I 0 $'Ii # 8 " . I 0 $ W .W 0 ! ( % ( % !4 @e@f@g =@l l eIe ( ;@l l f( If >Al l g !Af( hIg !W` =@l l eIeJ(
0x22d790…22d924 Dummy {f00=0x0176, f01=0x0190, f02=» " !P I A ! ! ! % _2 ! W ! !4 % @e@f@g@ 4 ! " # $ * + , 4 o; Hi 0 h / !Tr 6 )'''''48fD]]NW[A A A jo ! ! ! ! h / ! ,p_ A jo ! !W:A W.jo !] A A W*A jo !]!W jo !]#A A !W jo !]" !A jo !
0x22d924…22dab8 Dummy {f00=0x0176, f01=0x0190, f02=» L h ) c#T # # d0 3 ( `c_*0 T ` c d H 0 $ 4 I : " " j " " j " " $ . ! # T ! 0 "" U W !+ !4 0 !P * 0 "P + , * , +! *4: + 5 4 *f * 7 j % , + , +4 *4W * ,
0x22dab8…22dc4c Dummy {f00=0x0176, f01=0x0190, f02=»T ( # A c ,T c!_hHi 0 -.0 &' &W 0 120 ,- , ! 4 c !%c ! !0% & j ! W * + !!4 3@k@g hZ c!T 6 %Ls 2 Wf b2 W? ;2 W Ik Ak 2
0x22dc4c…22dde0 Dummy {f00=0x0176, f01=0x0190, f02=» "T ( ) , $a #a6 W60#a !T W-0#a !T W$$a! #a5 bc b" b `h b!Z2!T c" &_T c!_vIi c! b/hZb" c!T $o b/i_u c! #T $a X#a9T % W , a WH c"_ c!,c ; a ac bch baZ7!T( bc*b !,b : ; W "b& cb_ c!,c _C( $ c ! & ! W Kg !!4 c! bc b "b U
0x22dde0…22df74 (1, 471) Dummy {f00=0x0176, f01=0x0190, f02=» ! X 4 t m , e P ^ c 0 #<< PAGEBATCHFIELDLINE STARTLENGTHNUMBERRECORDSTART:V:G:A:(#A:...)(#G:...)(#V:...)#V:#G:#A:123456789 1234567890CORRECTIONGENERATION VALIDATION ACCUMULATI
0x22df74…22e108 Dummy {f00=0x0176, f01=0x0190, f02=» 2 3 ( 4 2 5 < 6 F 7 N N N N N N N M n @ 22 BALANCE $ - j # O C : % . D > : @ & @ -ACCUMULATOR:A m ( . SPECIAL HANDLING: @k Q K P J o@ ! p@ " U 21 USER $ - j # O A : F
0x22e108…22e29c Dummy {f00=0x0176, f01=0x0190, f02=»' MUST ENTER (Y/ N /C): r@ " . AUTO TAB 9 (Y/ N ): @s@ # DUPLICATE : jA . VERIFY 9 (Y/ N ) : @t@ $ INITIAL CLEAR ( Y /N): u@ % . SPECIAL HANDLING: @k Q K P J 2 R I o@ ! p@ " U
0x22e29c…22e430 Dummy {f00=0x0176, f01=0x0190, f02=» , F c 2 BALANCE $ - j # O C : % . D > : @ & @ -ACCUMULATOR:A m ( . SPECIAL HANDLING: @k Q K P J o@ ! p@ " U 21 USER $ - j # O A : F
0x22e430…22e5c4 Dummy {f00=0x0176, f01=0x0190, f02=» R ` @e kU lU( .AdIe 1 0W 1 ,An@mIe W 6 . _ @n_ Ief( $A6 _<A W A W A A Ae@d_D@ $V 1 ,An@m _L@ T Ie ! 4 @e@dKeN@ @ @ $ * h h _ + , 2 _ 0 1 ,0% _ @e kU lU( ,AdIe'1 *An@m 6 $ @ P $ _
0x22e5c4…22e758 Dummy {f00=0x0176, f01=0x0190, f02=»(+0; +( > " 1 W 1 "An@m h 2 _ _ 0: (+0; +0% _ "l lU h " 1 W 1 " l "2 ! 4W 5 T ! +T | j " &| W E !" ! 0 %, ! b &l b &!Z2b '( "lW b &k !k # 0 # 8~@ P $0 #$@m0
0x22e758…22e8ec Dummy {f00=0x0176, f01=0x0190, f02=»2 _ _ 0 ~P + , @z6 Az _ @ @z $XP@ ~U 0 , P& b~ ![) !0 + T b~ ![( !b~ ![ ! ! (41 .0 %%0 &&0% $ _ 6 ? ? + , 6 h[ * !T06 $ $$ 0 , T 0 , @ T 0 + !_6A X @ T ? &? @e( +AdIe 1 /W 1 +An@m 6 -
0x22e8ec…22ea80 Dummy {f00=0x0176, f01=0x0190, f02=» 2 _ 0 1 +0% _ kU lU( xAdIe 1 (W 6 1 #W 1 An@mIe W 6 K @ T $ _ @n_)@ $V 6 Ie ! 4 @e@d ' * h h _sIe ' @f6 _ AfAe@d_ 2 ( 0 kT (!0 lT (! %0% " _ ("6 ( , W - ! 2 AzT ! '
0x22ea80…22ec14 (1, 472) Dummy {f00=0x0176, f01=0x0190, f02=»6 ( _W %T ( * 2 ( )gK " '"( g " #2 $T # '#( _ Ub & 5 + *P ( - { &{ 1 -0 ! 0$ mU_" m 50; {&* p!0 $ '$( D0 $} | @ 0 2TX 6 ( W? 0 $} 3 T l $_ & A %T @ _ @ W'" 2 !W 2 " 2 ' #$%&@z 7
0x22ec14…22eda8 Dummy {f00=0x0176, f01=0x0190, f02=»b? )? ( h < Q j p % t " d w ( h X " ! Y "TOKEYVIAFILENAMETESTUNIT
0x22eda8…22ef3c Dummy {f00=0x0176, f01=0x0190, f02=»X U & U 45 ? - < & ' 1 71 I 5 J 71 I 7 F ' ! 9 : ! k < 9 : " l 9 : !A k < 9 : "A l % ' ! 1 ' ! ) 53 % A = 52 % < = 51 % = ; :U
0x22ef3c…22f0d0 Dummy {f00=0x0176, f01=0x0190, f02=»> 6 / : ' h ! : ' FETCHING FORMAT: FROM DISC. @ U $ ' A - @ : # A - B : -e@ ~ 60 * h d0 61 6 62 > 63 6 / : 64 > / : 40 ! * h d3 41 G <
0x22f0d0…22f264 Dummy {f00=0x0176, f01=0x0190, f02=» ) / 0 1 ) 2 3 4 ) 5 6 7 ) 8 ! & + 1 7 = C I P W ` i r |0 " 0 ? N ] m } + # I $ l & * 2 F
0x22f264…22f3f8 Dummy {f00=0x0176, f01=0x0190, f02=» i x 2 $WU6 _ PCWD1& *T !05 T W/ W- W)6 ! W @( ( SUW 6 W W W W W 4 6 _ 6 D I 5 W W4 %Q / 1 3 @ @ @ @ T U0C T 1& " R_R AW A _[K H 1& 'A _lK !05 % - ! _ _ W'W
0x22f3f8…22f58c Dummy {f00=0x0176, f01=0x0190, f02=»& %_- 2 I i W Wh ' 80G 40 TP W WJ %Q / 1 3 @ @ A T, U0C T 1& # W W 6 ! W W ? AW A ? ' 80G 6? K "H 1& 'A ? K 3I $ " W !05 E - ! ? W W W W %_e _j _ W WA !_% W W 8 '0
0x22f58c…22f720 Dummy {f00=0x0176, f01=0x0190, f02=» 8 '0G 6 2 W _ W _&2 W _2 8 0G _H0 @ ' 80G @ ' 80G 0 & ? U0C T 1& )_D U0C T 1& (_S # # " T - ! B4 4 8 " '0G 0 <0 T@ 7j & j ( % 6j !% 5j " 1 -An0 !
0x22f720…22f8b4 (1, 473) Dummy {f00=0x0177, f01=0x0190, f02=»$2 / b /W b $ 'I ` F `!*` a`h a! ! aW W j b b ` ` j ` 1 % `* ` 1j 0 1 ` 3 $ `* ` 3j 2 3 `" W-d " ` `"0H `f " f !X 4 d " ` `"0H `f "4 0 0 0 "P 4 90 : 6 ? B j
0x22f8b4…22fa48 Dummy {f00=0x0177, f01=0x0190, f02=» 1 % `* ` 1j 0 1 ` 3 $ `* ` 3j 2 3 `" Ej ! !WRH ` ( ` ! ! Dj ! ! 8 0G f !8 4 Ba & j W 8 0G 4 4 ' 80G 0 0 %P 30 T 4 ' 80G 4 " C $Q @ H A !01 02 P : ? 0*
0x22fa48…22fbdc Dummy {f00=0x0177, f01=0x0190, f02=» ) @ _ _ ) A _ & m W @ _ ) H 0 T 0* 0' P R m Wf" 5 R 0* 0 /P%H ) m WBm W m 6 !W H ) m W m W m 5 f () m H ( # $ / @ /! ! " ? 4 4 4 4 4 0 *0I 0 0
0x22fbdc…22fd70 Dummy {f00=0x0177, f01=0x0190, f02=» t A ? C 5 7 ; R T X ` b j } & V A ! - 7 B O o ! &&FILENAME KLARDEVICELISTNING AFBRYDESEXPIRATION DATE:FLOPPY DISC SKRIVNINGOLD VOLUME SEQUENCE NO:OLD DATA SET IDENTIFIER:
0x22fd70…22ff04 Dummy {f00=0x0177, f01=0x0190, f02=»TTTTTTTTTTTTTTTTTTT9-ZZZZZZZZZZZZZZZZZZZZ9- S l K , N , K L , K I , SLUTD % + EJ GODKENDT N KLAR , N AFBRYDES , 1 * NUMBER: g JOBNAME: k BATCHNAME: l DATO: S TID: T IND: g
0x22ff04…230098 Dummy {f00=0x0177, f01=0x0190, f02=» ! " $ ( , 1 7 ? H X m 0 0 , A V l & 1 < J Z j ~ # 0 5 < : sQUENCE NO:OLD DATA SET IDENTIFIER:
0x230098…23022c Dummy {f00=0x0177, f01=0x0190, f02=» 6 6 D * . 2Ii " !W ! 0 " P !, ! ? Ij { j 1! !j 2! !Hj 4j !&m $ r"Ii' U ! ( j !! ( ) x. .K .*W x( Hj mIn 0 ! W 0 ! Hj m !7 w! y "! !U 'U U & Ii ( In 0 ! W 0 ! @n ! Ij 0 :
0x23022c…2303c0 Dummy {f00=0x0177, f01=0x0190, f02=»,, W ! $ 0) / T W 0) - T ! 2 W "? I I I I IjO2 !0* / 2 W$0/ Am6 ! bC I .4 ? "(0/ _*Am #03W 04W 0$W X Z [ +( H I C_ 1& _ T 1& !05 ? 2 ? W #0. T %y0 %%_
0x2303c0…230554 (1, 474) Dummy {f00=0x0177, f01=0x0190, f02=» % 0 0 < 2 ? 2 #? 0 0 ? $ 2 2 0 %% ( @h u!He8Kh 0 % $? 0 %%A ( @h u!He Kh ( ! u!0 #'@ @ @ ( ? @ ( !"_cA $? 0 && u! !eJh ? 0 &&A % Ad@ @ #? A @ u!
0x230554…2306e8 Dummy {f00=0x0177, f01=0x0190, f02=» j ! H ? f G Y z ! L & $F 1 " " T 1& !05 ? 2 ? W #0. T %y0 %%_
0x2306e8…23087c Dummy {f00=0x0177, f01=0x0190, f02=» d 0 $}j *!! x0 @l 2 ? j x! ! wx xyj &"x !g:e x y" e @ TW( ' )g: @l? j xy wj x! { W< .V xwj &"w W j ! " "Hn ' wxjx " & wx wxf xwj x! { wxj !! x( % j " &W ( ' j ! " " { 0; {$* p!0 0: x*6 VVVVOVOVV V "!H '0 **P I %!@ A W
0x23087c…230a10 Dummy {f00=0x0177, f01=0x0190, f02=» x* !u uv_ 0 j x! ! 7 ZH_ j " "jx " &"x* ( 3 Zf_q 1Zm u ? !u (R j "" j &"x u !? ! _ j " & wx x 'jy " xy x u$x Aj " $( xw u 4 /_ /Z j " &( * 1Z)_5 x* wx x 'jy " g2 #gYuP W j ! x0 , + & # ( #2_
0x230a10…230ba4 Dummy {f00=0x0177, f01=0x0190, f02=» : ? ,wx W x* WY uj " "( ? j " &( * % 1W 0 : j " & *1 1 W u ! u ! u ! 4 : jx " & 1 w*j " w wx wx j &"w xw? w w !( % _ ' xw g2 # ( ( #g? g "b & AlW '2 : 1 _ : ? $ )g: ' 4WAH !W9AlHl
0x230ba4…230d38 Dummy {f00=0x0177, f01=0x0190, f02=» *PE - { ) ? 1 0 ! 0$({ ' x( ' ' wj " jy " ? &{ mU_ m $ ' ( @lW !g: ( nmW *W * n An xIl j ! { W . ( ' !g: j x) w < ? < ? !j &m &j "y ( + ? A ? < 0 @vP C 8 ? ' ( % 2 ! C 8 0 @v< "!_y # "= g "
0x230d38…230ecc Dummy {f00=0x0177, f01=0x0190, f02=» ) 0 @v $W &z &| &{ 0 @v_U &z &| &{ 0 $} 5 ^ # + "@ X& ! : !0# !X 0 " %P @ 0 0 $} 2_R * ' #2 $T -_ #_-@ P 0 $}A 3 W Ay@m 4 @ 0 0 $} 2V @y@z@oA # &{ &z &| h Ae0 0} 4 2 $%%&' uf
0x230ecc…231060 Dummy {f00=0x0177, f01=0x0190, f02=»* u$x j $" 7 :(W .:( uf *y x *j &" _* u 4 :(j "" 7 :(W j ! "u u 4 :( w* x*j x! { ?) h ( ' 0 kP W1( $ ( % W ( % # 0 @vP (z Ub &k "V 0% " ?(I + #P R 0 @v0% # b &l ?*A 0 @vP 6 &z ?+0 @vT/( ' z W ( % 6 !
0x231060…2311f4 (1, 475) Dummy {f00=0x0177, f01=0x0190, f02=» I H 4W I 5W H~ I (W ' A P A WB0 @vT ( ' $W3 $W I K @ 0 0 $} 2TmH 7 Uj &"* W 4 TT0: z , { 0 @vT % 4 * *T4 m 4W mU x*0 @vT % I S2 * An0: |"- wx g 0 WYH ( 3 # W &| 0% ' 0 @vT &z @ P $0 $
0x2311f4…231388 Dummy {f00=0x0177, f01=0x0190, f02=»_B 4 ! ! + 9h # !T}6 ,, !0 @|Thj !! ! j !! 80 _K ! $ !A !@( "90# !T2@e@i@k !" ? 'hZ 2 !TP &6 " _ Ai_8Ae_<" v :WpAkW ! ( ~ !~W)j !! C 80 U !b ! !
0x231388…23151c Dummy {f00=0x0177, f01=0x0190, f02=» = N D ^ P R 1 y s n G a 3 4 X Y ! - ! " % & ?MDA FETCHING FORMAT:
0x23151c…2316b0 Dummy {f00=0x0177, f01=0x018e, f02=»& XX " h " & d3 2 & d B & 41 P OPEN NEW ` $ 1 x BATCH $ 1 & & 42 OPEN OLD $ 2 BATCH
0x2316b0…231844 Dummy {f00=0x0177, f01=0x018e, f02=» BATCH $ 3 & * & 44 8 OPEN OLD H $ 4 ` TEST p $ & - ! BATCH $ !4 & $ '4 ( " & &
0x231844…2319d8 Dummy {f00=0x0177, f01=0x018e, f02=» & % MODE $ %4 & & 4 6 & F & TEST T $ &4 h & x $ *4 & $ .4 & $ 14 & $ 44 ( '
0x2319d8…231b6c Dummy {f00=0x0177, f01=0x0190, f02=» + UNIT $ +5 & :U ( & 8 , X J " ,i & l - VOLUME z $ - & : & & ( . / JOB $ /
0x231b6c…231d00 Dummy {f00=0x0177, f01=0x410e, f02=» $ 2 3 NAME $ 3 $ & : 4 & " B & l V ( d 4 p & & U ( 5 & U & ( X _ @
0x231d00…231e94 (1, 476) Opaque[0x194]
0x231e94…232028 # DirEnt {nam=»TEST «, typ=»UF«, f00=0x0000, f01=0x0000, f02=0x07a8, f03=0x0000}
0x231e94…232028 IdxSect {
0x231e94…232028 f00 = 0x003d // 0x231e94 @0x0
0x231e94…232028 f01 = 0x0004 // 0x231e96 @0x2
0x231e94…232028 gno = [ // 0x231e98 @0x4
0x231e94…232028 [0x00]: C0x003d.0x1.0
0x231e94…232028 [0x01]: C0x003d.0x2.0
0x231e94…232028 ]
0x231e94…232028 }
0x232028…2321bc Dummy {f00=0x003d, f01=0x0190, f02=» PSCR PSKF PPRT DELBUG PTRA DEDDIV,NL . PKPF /O D PNOD C R PINC PTSDE ` PINC DEDISC r PINC DELOCK PINC DEAPPU PNOD R PINC DKRUT1 PINC DKRUT2 PINC DKRUT3 PNOD R PINC DKRUT4
0x2321bc…232350 Dummy {f00=0x003d, f01=0x018e, f02=» PINC DEGENE PINC DECOMP PINC DESTAT ( PINC DENT02 : PNOD R L PINC DE10ST Z PINC DE11ST l PINC DE12ST ~ PINC DE1201 PINC DE14ST PINC DE15ST PINC DE30ST PINC DE31ST PNOD R PINC DE20ST
0x232350…2324e4 Dummy {f00=0x003d, f01=0x0190, f02=» PNOD R PINC DEPROC PINC DEVGAC ( PINC DEATTF : PNOD R L PINC DE40ST Z PINC DE50ST l PINC DE60ST ~ PINC DE70ST PNOD R PINC DECONV PINC DCTASK PINC DEFDSC PNOD R PINC DERECS PIN
0x2324e4…232678 Dummy {f00=0x003d, f01=0x018e, f02=»=M:DENJ,A=DELBUG,C=CNJP,CU=CON10 z PSCR ( P$PDISC A=DELBUG,AOUT=DEPROD 4 PSCR X PSKF d PPRT DELINK p PTRA DEDDIV,NL PKPF /O PNOD C PINC PTSDE PINC DEDISC PINC DELOCK PINC DEAPPU PNOD R
0x232678…23280c Dummy {f00=0x003d, f01=0x018e, f02=» PINC DENTER PINC DENT03 PINC DERROR ( PNOD R : PINC DENVAL H PINC DEGENE Z PINC DECOMP l PINC DESTAT ~ PINC DENT02 PNOD R PINC DE10ST PINC DE11ST PINC DE12ST PINC DE1201 PINC DE14ST
0x23280c…2329a0 Dummy {f00=0x003d, f01=0x0190, f02=» PINC DE20FS PNOD R PINC DECVRT ( PINC DEPRFG : PINC DEUNPF L PNOD R ^ PINC DEPROC l PINC DEVGAC ~ PINC DEATTF PNOD R PINC DE40ST PINC DE50ST PINC DE60ST PINC DE70ST PNOD R PIN
0x2329a0…232b34 (1, 477) Dummy {f00=0x003d, f01=0x00a8, f02=»LKE M PKPF /L,DELINK : PMES $PDISC M=M:DENJ,MU=M:DENJ,A=DELINK,C=CNFT,CU=CON10 $ PSCR b PSKF n PTRA DKCONV z PSCR PASG /E0,TY10
0x232b34…232cc8 Dummy {f00=0x003d, f01=0x2008, f02=» PKPF /L,DELINK : PMES $PDISC M=M:DENJ,MU=M:DENJ,A=DELINK,C=CNFT,CU=CON10 $ PSCR b PSKF n PTRA DKCONV z PSCR PASG /E0,TY10
0x232cc8…232e5c Dummy {f00=0x003d, f01=0x0190, f02=»ANDLING =3XXX PFRE330 P CMP VSEIND,=W'3999' $ P BG FRE350 ACC 2 HANDLING @ P SUB BCDI21(W4),:FMTITEM b P B FRE310 P EJECT P* ACC 2 HANDLING P* LOAD ACC 2 P* SPEC HANDLING =4XXX PFRE350 P CMP VSEIND,=W
0x232e5c…232ff0 Dummy {f00=0x003d, f01=0x018e, f02=»SAVE SUM v P B FRE310 P* ACCUMULATION OF ACC 2 " P* SPEC HANDLING =5XXX B PFRE360 ` P CMP VSEIND,=W'5999' n P BG FRE370 ACC 1 / ACC 2 P SUB BCDI21(W5),:FMTITEM P B FRE310 P EJECT . P* ACCUMULATION OF ACC 1 OR ACC
0x232ff0…233184 Dummy {f00=0x003d, f01=0x0190, f02=» v P B FRE310 PFRE375 P SUB BCDI21(W5),:FMTITEM ( P B FRE310 H P EJECT Z P* CHECK BALANCE OF ACC 1 h PFRE380 P CLEAR CHKACC1 P CMP BCDI21(W4),=D'0' P BE FRE325 BALANCE $ P CLEAR CHKBAL IND NOT IN BALANCE
0x233184…233318 Dummy {f00=0x003d, f01=0x018e, f02=»* CHECK BALANCE OF ACC 2 PFRE390 P CLEAR CHKACC2 . P CMP BCDI21(W5),=D'0' D P BE FRE355 BALANCE b $ P CLEAR CHKBAL IND NOT IN BALANCE | " P MOVE BCD13A,NUMBER GET REC NO P SUB BCD13A,=D'1' , P EDWRT DEDSPRT,FBATC2 PRINT ERROR RE
0x233318…2334ac Dummy {f00=0x003d, f01=0x0190, f02=» ~ P CMP BCDI21(W4),=D'0' P BE FRE420 BALANCE & P* NOT IN BALANCE @ P X PFRE410 ` $ P CLEAR CHKBAL IND NOT IN BALANCE n " P MOVE BCD13A,NUMBER GET REC NO P SUB BCD13A,=D'1' , P EDWRT DEDSPRT,FBATC2 PRINT ERROR REPORT P B
0x2334ac…233640 Dummy {f00=0x003d, f01=0x0190, f02=»0 NOT IN BALANCE PFRE430 , P TBF CHKBAL,DECOOK BATCH NOT IN BALANCE & P SET BDAFRO FREEZE BATCH V P B DECOOK v P EJECT P* CLOSE PFRE500 P MOVE STRG10A,HEX00 P GETTIME STRG10A P MOVE TIME,STRG10A P EDWRT
0x233640…2337d4 (1, 478) Opaque[0x194]
0x2337d4…233968 # DirEnt {nam=»DEPROD«, typ=»LM«, f00=0x0000, f01=0x0000, f02=0x2f38, f03=0x0000}
0x2337d4…233968 IdxSect {
0x2337d4…233968 f00 = 0x0179 // 0x2337d4 @0x0
0x2337d4…233968 f01 = 0x002e // 0x2337d6 @0x2
0x2337d4…233968 gno = [ // 0x2337d8 @0x4
0x2337d4…233968 [0x00]: C0x0179.0x3.0
0x2337d4…233968 [0x01]: C0x017a.0x0.0
0x2337d4…233968 [0x02]: C0x017a.0x1.0
0x2337d4…233968 [0x03]: C0x017a.0x2.0
0x2337d4…233968 [0x04]: C0x017c.0x1.0
0x2337d4…233968 [0x05]: C0x017c.0x2.0
0x2337d4…233968 [0x06]: C0x017c.0x3.0
0x2337d4…233968 [0x07]: C0x017d.0x0.0
0x2337d4…233968 [0x08]: C0x017d.0x1.0
0x2337d4…233968 [0x09]: C0x017d.0x2.0
0x2337d4…233968 [0x0a]: C0x017d.0x3.0
0x2337d4…233968 [0x0b]: C0x017e.0x0.0
0x2337d4…233968 [0x0c]: C0x017e.0x1.0
0x2337d4…233968 [0x0d]: C0x017e.0x2.0
0x2337d4…233968 [0x0e]: C0x017e.0x3.0
0x2337d4…233968 [0x0f]: C0x017f.0x0.0
0x2337d4…233968 [0x10]: C0x017f.0x1.0
0x2337d4…233968 [0x11]: C0x017f.0x2.0
0x2337d4…233968 [0x12]: C0x017f.0x3.0
0x2337d4…233968 [0x13]: C0x0180.0x0.0
0x2337d4…233968 [0x14]: C0x0180.0x1.0
0x2337d4…233968 [0x15]: C0x0180.0x2.0
0x2337d4…233968 [0x16]: C0x0180.0x3.0
0x2337d4…233968 ]
0x2337d4…233968 }
0x233968…233afc Dummy {f00=0x0179, f01=0x0190, f02=»; V CR t D < fD G D P @D Z D d ,D o bD x :D D D D D D a 6 P
0x233afc…233c90 Dummy {f00=0x0179, f01=0x0190, f02=» * * 8CB1
0x233c90…233e24 Dummy {f00=0x0179, f01=0x0190, f02=» J @
0x233e24…233fb8 Dummy {f00=0x0179, f01=0x0190, f02=» 8 F
0x233fb8…23414c Dummy {f00=0x0179, f01=0x0190, f02=»LP 0 GP 6 FD DLU FRO B . D Z p - r -
0x23414c…2342e0 Dummy {f00=0x0179, f01=0x0190, f02=» SYSVOLSYSVOLSYSVOLSYSVOLSYSVOLSYSVOLSYSVOLSYSVOLPFJESVCHM/=><DL!ASUFTCE+-*:;&V?'ZGRNX()MEVTFCAB/,LRAPTXZY+S,.><0-VEX * >0 0 0 M U t ~ 0
0x2342e0…234474 (1, 479) Dummy {f00=0x017a, f01=0x0190, f02=» * B 0 0 0 " ( .
0x234474…234608 Dummy {f00=0x017a, f01=0x0190, f02=» V @ f $ B @
0x234608…23479c Dummy {f00=0x017a, f01=0x0190, f02=» ~ J > 2 4 <0 D ( `@ @ & 0 ; f f 1
0x23479c…234930 Dummy {f00=0x017a, f01=0x0190, f02=»T Q S $ R R S V T V VXU U U U T<T6Q,Q|Q T T ,F J T
0x234930…234ac4 Dummy {f00=0x017a, f01=0x0190, f02=» ! ' . 5 < D L T ] f p { ( < S k f n n =
0x234ac4…234c58 Dummy {f00=0x017a, f01=0x0190, f02=» ! T P & ! X T C ;n X x & Y " X R W #r P _ Y $ # = # # X " X $ ! P W2 X $ X " R W V R W V % _ " D $ D BR #v X $ X y & #^ X x & Y "
0x234c58…234dec Dummy {f00=0x017a, f01=0x0190, f02=» R W V, y & Y $ 8 " X X #v x ( y $ #^ #r #v = Y Y = & = ( : Y ( x P Y * f x y Wv X " V X X . 8 #v X 0P X T 5 ! Y * f y X V& X ( x C ( Y * X
0x234dec…234f80 Dummy {f00=0x017a, f01=0x0190, f02=» x X *YrP y X " x Y X " T Y _ l_ B U C Q C D t v X X * $" ~_> @ Y X * _R X !@XX y X # x V y X X * P P 1 _ 1 f X * X X * $" X D % " X # X * y _< X # X * y
0x234f80…235114 (1, 480) Dummy {f00=0x017a, f01=0x0190, f02=» ' Y =D y x C y X C C X ( x Tf B 9 R 9 X ! T l_ y C Q " T X ! X X ! x Y~ Y _ X "@P B R y C B P 9 V l_F9 VV X ! T X !@X y C _d y C
0x235114…2352a8 Dummy {f00=0x017a, f01=0x0190, f02=» C _. B ]d P C Q8X8_H x XD @ Y c C y XR X x . x X X # _ B C : + X ( # = ( # # : B C _J + . #v X 9 V ! P @ Y = Y Y . : =D =
0x2352a8…23543c Dummy {f00=0x017a, f01=0x0190, f02=» #r #^ # ' = ! Y 0T V # BR : #v 2' = R P P X ' ' ;n X _ X ' _ X '?_ #v = X ' #r X ! #^ #` #v X " 9b! X :c 2" H ^ #p@ W W W W W W W
0x23543c…2355d0 Dummy {f00=0x017a, f01=0x0190, f02=» fW W V +~ X 0 X +" X *9h P2 R Y >_ P P Y +W^ Y + WL T W> Q W Y + U Q P W W Y ( C #v X *! P V L ! #r ;n X 0 Y 8 P # Y 0 X 0 X 2] X 8 Y 0 : X 0 :H
0x2355d0…235764 Dummy {f00=0x017a, f01=0x0190, f02=» + = 4 0 =* 6 2 : C ( C : C B _( _ X P B _N ( # X D D : K + Q 2 P. P8 =6 J ( # B X # V : = J _0 ? _>L L = L L L L L L J~I~J~ID
0x235764…2358f8 Dummy {f00=0x017a, f01=0x0190, f02=» 0P: Vp_` " P4 T !b # WT " P Y 0] Y (_t " X _. +f X *# P B 1 +fW " P X X$ C : X *! P +~ # C W @ X (T W X y 6 Y ( : X (;n #`L J J J J L L L JjI~JtID J L J. #v Y . Y ,W #v Y . X
0x2358f8…235a8c Dummy {f00=0x017a, f01=0x0190, f02=» *# P P T " T : Y . !b Y ( I~ #v Y *T " T ! 1 W ! ) J@ : #v J LV P & Y *T : X > T X & V D ! T W J@ " #v X >P( R Q" X & V D ! P $ ! P %_ J@ : #v V Y " X .9H $ LV P
0x235a8c…235c20 Dummy {f00=0x017a, f01=0x0190, f02=» P P< WZ X ! X $" P<Q X (# P2 X # :! R$W T$ @ Y (W Y , !bW ! Y ( I~ : X *:h X (! # 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|
0x235c20…235db4 (1, 481) Dummy {f00=0x017a, f01=0x0190, f02=» (P # 8 Y 0 X 2P X 0V _z Y ( " T Y ( : 8 " = 8 V Y 8 : " P X & V ( P : : "0P $ T W %T : : Y ( X $ Y X " Y X & Y X < Y @ : Y : #v X : X ( T X & V H " V Y : X $ #~
0x235db4…235f48 Dummy {f00=0x017a, f01=0x0190, f02=»! T" X y 4 @ X (T y 6W4 X y 6W, @ X (P W" X & V D ! P @ W X #~W Y ( : X , Y X $ Y X &T Y Y Y WD V $:H D Y D :H Y ! P V Y = W Y ! P =2W V Y " V Y : = J : 2' " P T
0x235f48…2360dc Dummy {f00=0x017a, f01=0x0190, f02=»=: V I #v Y Y Y < V E ;n B X _ v : C C + : C + :( R : V E V D ' $ T ( W # P ;n X =' V W V Y =P # : , $@ , $N , $f $ $ $ P P % ' ,(/ $
0x2360dc…236270 Dummy {f00=0x017a, f01=0x0190, f02=» C : ( ;n ,( "R V I ;n ,( ( T _& @P2X, @P4 _6 = ( ;n = = V ;n 2 ;B P0 J T % ( ; W4 f_. % ( W = & F : ( ;n 2 &
0x236270…236404 Dummy {f00=0x017a, f01=0x0190, f02=» ?H 8R0;AV ( _ X @ 9 X ( 9 8 ? X Q , V ( - 4T V 5 ( W, V P& W$ U V X 9T I Y ;n 2 ' >A >A 2 $ V L ;a ; R@ @ 8 ?
0x236404…236598 Dummy {f00=0x017a, f01=0x0190, f02=»= V G 9h ' ;n ,( # 9 2! P T ) / * ,( #/ C _ ( = ' ;n ,( P^ C * ) P^ * ) (D * _ =* &:K : ) / * ) / P^ * ) / _ _. ) / * ) C ( B B
0x236598…23672c Dummy {f00=0x017a, f01=0x0190, f02=» ,( C _ ) ( C _> ,( P^ C , <H / * ) , (D C _" W + * ) / * _ ,( , ,p P = <H : ) W ,( ,p = &P B V C / <H : ,( , C C W , C C J* ' W 781"&$ 39#$;<
0x23672c…2368c0 Dummy {f00=0x017a, f01=0x0190, f02=» 1W C C C ( ' P. + P$ "! P P6W B % P C + O: ;n + I "%@P "% P& B C C 4 "5 # B P B P B 5 P C : ,( +~ H +h C * C B B P C + : V I C B : (
0x2368c0…236a54 (1, 482) Dummy {f00=0x017c, f01=0x0190, f02=» T V : 2 ' W 2 6 2 @ " T # ' ?D ?zW"' #? ?d ;D:B " : _ = C : : ,( , "! P P^ : =* P C W $0 P C N : C "!@P ") # B C B % C : W - 6 V :a . -L + ' (
0x236a54…236be8 Dummy {f00=0x017c, f01=0x0190, f02=» : J 7 J V W J :A V 6V $ - _ * + : . D T> E D :A D ;A 9A Q 5 U _ 5 - AP2 .@ AP4 . *! P * P _ W *) + . : . $: R P $ : D V D V ( - C C _, M : (
0x236be8…236d7c Dummy {f00=0x017c, f01=0x0190, f02=» T V : 2 ' W 2 6 2 @ " T # ' ?D W"' #? ;D:B " : _ C : : ,( , "! P : P C W $0 P C : C "!@P ") # B C B % C : W 6 V :a + ' (
0x236d7c…236f10 Dummy {f00=0x017c, f01=0x0190, f02=» : J 7 J V W J :A V 6V $ - _ * + : D T> E D :A D ;A 9A Q 5 U _ 5 - A .@ A *! P * P _ W *) + : $: R P $ : D V D V ( - C C _, M : (
0x236f10…2370a4 Dummy {f00=0x017c, f01=0x0190, f02=» T V : 2 ' W 2 6 2 @ " T # ' ?D W"' #? ;D:B " : _ C : : ,( , "! P : P C W $0 P C : C "!@P ") # B C B % C : W 6 V :a + ' (
0x2370a4…237238 Dummy {f00=0x017c, f01=0x0190, f02=» : J 7 J V W J :A V 6V $ - _ * + : D T> E D :A D ;A 9A Q 5 U _ 5 - A .@ A *! P * P _ W *) + : $: R P $ : D V D V ( - C C _, M : (
0x237238…2373cc Dummy {f00=0x017c, f01=0x0190, f02=» T V : 2 ' W 2 6 2 @ " T # ' ?D W"' #? ;D:B " : _ C : : ,( , "! P : P C W $0 P C : C "!@P ") # B C B % C : W 6 V :a + ' (
0x2373cc…237560 Dummy {f00=0x017c, f01=0x0190, f02=» : J 7 J V W J :A V 6V $ - _ * + : D T> E D :A D ;A 9A Q 5 U _ 5 - A .@ A *! P * P _ W *) + : $: R P $ : D V D V ( - C C _, M : (
0x237560…2376f4 (1, 483) Dummy {f00=0x017c, f01=0x0190, f02=» T V : 2 ' W 2 6 2 @ " T # ' ?D W"' #? ;D:B " : _ C : : ,( , "! P : P C W $0 P C : C "!@P ") # B C B % C : W 6 V :a + ' (
0x2376f4…237888 Dummy {f00=0x017c, f01=0x0190, f02=» : J 7 J V W J :A V 6V $ - _ * + : D T> E D :A D ;A 9A Q 5 U _ 5 - A .@ A *! P * P _ W *) + : $: R P $ : D V D V ( - C C _, M : (
0x237888…237a1c Dummy {f00=0x017c, f01=0x0190, f02=»; < ;t< BR@ @ AhD:E E <d<d<r<r< ;n<r<rH M MtM M"M L = = = = # W V 7 @ ! P # P W ;. < 9c D: = =* Q : W Ah :aW _B( 2 P V W8 _ 2 # ;B V T fW V P L , V 2P "
0x237a1c…237bb0 Dummy {f00=0x017c, f01=0x0190, f02=» % V E @ ' T 2 % 7_ 2 # L = 2" &] Y $! 6P Q $ T 9B ; _ _ 6 @ " T 7 $ V P # W _ : ;n ? V & ; H; 'W 'W '_6 :l:d:h = W W P
0x237bb0…237d44 Dummy {f00=0x017c, f01=0x0190, f02=» V $ W D V L= , W 6 2 ?zW$ " P& Pd" # ?d ;b Wv " ;d# _ [ v [ # = # Z Z : R ; = 6 : F _v :B , (Vr ; H [ [ [ = z ;AV$ Z
0x237d44…237ed8 Dummy {f00=0x017c, f01=0x0190, f02=» @ ! P [ 6 [ Z 7 =@ Z 7 : ( :A ( @ " P ! P [ :;H 2 > >L;h ?n : ; V Y : 2! : 6 2 ?zW& " # ?d;b ; : ;f" #?_" W " T & T + :
0x237ed8…23806c Dummy {f00=0x017c, f01=0x0190, f02=»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 * & : * & !`P :J +_ +Q
0x23806c…238200 Dummy {f00=0x017c, f01=0x0190, f02=» , V W Q P W $ W V P T V W Z :$0#0;b C P P PF P 0 - P0 _ 4 V W Q P ) P 9_ &" ! 9 : & P Q B ,^ , < B # ; [ _n' d V W V 4! P
0x238200…238394 (1, 484) Dummy {f00=0x017c, f01=0x0190, f02=»V W YL T 9 : &9d! + P( & T 9d! T 7 V Y " WJ Q V V 7 Y P._& & Q 9d! )0 + P 7 Y Z $ _ : V ) " TV *V &V : V S W P 9 S W _ V P W T V E
0x238394…238528 Dummy {f00=0x017c, f01=0x0190, f02=»9a Z $" T 9d! P6 P( [ Z w [ P G @ V H )_ G E _X z R z ! P 1` { V (9h T W z 9e! I Z ! : 4 P 9 59D_ " P P [ ! :d" 5 : " Tz *V &V PP= ;@ R P W ;a=a
0x238528…2386bc Dummy {f00=0x017c, f01=0x0190, f02=» &! P G G BR G BR G @ z " ! ! R 2` { z " P ! R 2` { 1 ! { [ Z G A Q G E P _ T { [ G G [ Q@ [ G @ { R [ _ G @ G E Z ! Z $ Z %_N [ Q* G @ G A R [ Z
0x2386bc…238850 Dummy {f00=0x017c, f01=0x0190, f02=» D % [ ( !! gg++ L 33 L =*=@? L ? =6= L J J J J L L L L JjI~JtIDJTLLLLJ JJL J. H 6 IL K K K K V K : = Hb HR H =: V I IL I V Z P 2 " T
0x238850…2389e4 Dummy {f00=0x017c, f01=0x0190, f02=» 7_ Z I @ ! P # Z 7 Z Z P # : V R (Q V : : Hb J P v I < : J Qx : Pn 4 ! Th_ PX 4 WT K J WJ JPW +_ Jj Jf K W. _& X +fW X
0x2389e4…238b78 Dummy {f00=0x017c, f01=0x0190, f02=»W ILD 6 * B Z 9 ! ; *Xt 8 ! DL4 0P Wn 0W8 Wf :T& *W, FP . :T Z ! XBW *X& FW@ :P # U 1 K !00T ; J _ 9P F " X6# ; W )0_: J R( Z R 4! P ;)0 9U ? Z ] 49d_. _BU ; :X _ _ z 9d! )
0x238b78…238d0c Dummy {f00=0x017c, f01=0x0190, f02=» ! P ! P ! P = ! P =2W : ! )P9H # T &W &" :I : L : P & _ &X _ : : : : N$ H : { : N N PX 9 _ N [ N Z : R" P $ 1T Y W 5
0x238d0c…238ea0 Dummy {f00=0x017c, f01=0x0190, f02=» !0P0 R* 4 R :d" 8 R ! :DW ! 9 R R _. : Bp : = = jP kT T : & 9! " : $ : N$ =* $ : ,( N = &P C N / * ,( N N / * = C : =*#0 T & C C : N C C :
0x238ea0…239034 (1, 485) Dummy {f00=0x017d, f01=0x0190, f02=»" OX : PP P2PR LP R R _ R _ # Q R V > _V X^ ' h P P & 1_ P 1_ , @ - R T U :J a B@ ' d w5 1 P2 =* #0 T B ' : B B
0x239034…2391c8 Dummy {f00=0x017d, f01=0x0190, f02=» = & = &9B %W _ ,( = F C W Q ( = Wn Q _ = & = & = ( : R P< P8 <<HT _ R <A_ <A <a ^ <h = F F ) = ' ;n R = & X X Q X* T Z0 I R < _ <h =_H ^L _ _R
0x2391c8…23935c Dummy {f00=0x017d, f01=0x0190, f02=» _< _B ,( = C = ( B T B $ ' Y = ' ;n _ = = : = = = = = P < C 9h9G & C 9b! 8 #_h B " ' ""? 99g! ":e" B =_ _f = = & 9_ ,( @ # =
0x23935c…2394f0 Dummy {f00=0x017d, f01=0x0190, f02=»= = = = P 8# ' Y = # R6 _ _ _ _ _ = = ' = _ = & = ]8 Z YB_J W ,( = & C = = & C = & C C ( B X _ W & Y < * C _& ,( = = P )
0x2394f0…239684 Dummy {f00=0x017d, f01=0x0190, f02=» E . ;n = #v X ' = X P &V Y , X Y / X Y 2 = #v & Y _P W W _ = PB T !00R4 !99Q.$ Y T P U U T W _F T P Y P = V E ;n = = V P V
0x239684…239818 Dummy {f00=0x017d, f01=0x0190, f02=»' = = & C P^ T #W T # C C * _ _ = = ' = _ = & = ]8 Z YB_J W ,( = & C = = & C = & C C ( B X _ W & Y < * C _& ,( = = P )
0x239818…2399ac Dummy {f00=0x017d, f01=0x0190, f02=» f H V X Z ^ b0 0}0 o0 oA T 0 K 0 Ad1 An@m 6 _ @n_ 1 An _% ) !P V _, 6 ## _ jX 3 0 0}@d "P n_r 4 # 6 P 7MW (j "M ( 0 P 0 * 1W 'W 1 1 1 1 v j !!O
0x2399ac…239b40 Dummy {f00=0x017d, f01=0x0190, f02=» 4 !4 "4 $4 & #4 H "4 4 * 4 | z { !V f 4 * " j !!L 0 /P /0 f 4 0 f 4 4 0 0 0 $0 T 0 0 W 0 W 0 4P +W 4 0 4 j !! % !j !! 0 ) 4 4 !4 "4 #4 $4
0x239b40…239cd4 (1, 486) Dummy {f00=0x017d, f01=0x0190, f02=»(0 : H~ ? 0 P : _ 0 P C{P A )? H ? 0 HoO !H~ 0 $ W 0 # ! 2 W 0 0 /1 _5K~|0 ! _D2 #I @o4 H~ 2 4 0 0 /P 0 0' W 0 0( ! 2 W "? 0 0 _ @ 2 W #( 2" + " ( " # I ? & 0 P ? 0
0x239cd4…239e68 Dummy {f00=0x017d, f01=0x0190, f02=»@ @ @ @ @h@j #U 0 ! Td$ + " , 0 %@|PI0 T /hZ " !T f ! j !! H{ ? 0 P 0! P H !? ? 0" W 2 ! 0" 0 P I 0! P AmH 0# ! T 0 P I 0! P Am 2 !"#""!$ %&##""""' 88( .4 #H 0Hj 0 #T @m?)@hP !PP0$ 0%
0x239e68…239ffc Dummy {f00=0x017d, f01=0x0190, f02=» H 2 ""-""-$-&? JA J K{ 0 ?. !0$ 0% 8 _^J # T 2 -" 0 T 2 /00? 2 0000! 81J ?1 ?2 < 1 !0) ? H{ A W B . #_ 0 P 0! P H %@m?3 - !0 ( 1 ? 0 0 /P 0* & ?40* " ?40 _.0 0 H { ,W H s +0 0 P 0 Q
0x239ffc…23a190 Dummy {f00=0x017d, f01=0x0190, f02=» Q I ) *&KA)? 0 % 0 P-0! P H % !W/ ?7 #? 08 $+ %'0 0 < H{ W ! 2 00089:$ " @ 0 P I 0! P 2 ; #I @o4 2 <_ (?$A 0 P W 0 "0 /P "W # "j 0 0 #4 @ 0 P j !!!WP U0 P m ( &W ) B
0x23a190…23a324 Dummy {f00=0x017d, f01=0x0190, f02=» " "Jh !U !TA0 T h ! !T00" _ A 0 T f !0+ 0 0 _ 0 0 (P h ! !P 1 _ 1 !0 X 0 0 O _U "4 #4 $4 ( &Ad1 An@m 6 0 _ @n_ ( !'( _&3 !@d0 0} h* "h _? ! 4 6 99 W 2 =>? #!8= #"8= ##8=W j " # $ j " "# %|j
0x23a324…23a4b8 Dummy {f00=0x017d, f01=0x0190, f02=» T _< &?@ @ X H # K R $ # D B G , f B p @ d x x
0x23a4b8…23a64c Dummy {f00=0x017d, f01=0x0190, f02=» 4 S # 6 P ] d +-0?AN 2359S:T JOBPTS GETDATAMODE NO.:ENTRYTYPE:FORMATSEARCHVERIFY CREATEELEMENTNAME: TPROGRAM:REL 10.0SIZE OF DEFINITION VALUE-SETS15 FILE-SPACE70 CONVERSION11 DATE AND TIME13 GET VALUE-SETS14 SYSTEM-VAR
0x23a64c…23a7e0 Dummy {f00=0x017d, f01=0x0190, f02=» U U A 6 h d = @ > ? ; RETURN FROM DATA-ENTRY U h d 3 * : 5 e e @ / f d f @ 8 4 & f d T g T 4 - f ! ~ ) + . 7 6 h dG A 20 0 - 9 30 ( - 9 40 . ,
0x23a7e0…23a974 (1, 487) Dummy {f00=0x017d, f01=0x0190, f02=» ! $ ' + / 3 8 = B H N T [ b i q y 0 & ! 6 ! W & x C g ^ & VALUE-SETS15 FILE-SPACE70 CONVERSION11 DATE AND TIME13 GET VALUE-SETS14 SYSTEM-VAR
0x23a974…23ab08 Dummy {f00=0x017d, f01=0x0190, f02=» U d 1 An0- T !S 6 ," $ ! _ @n0- T !S0 ! _*a 0. S !4 .1 Ad # @d An@mAe@f 2 _ !0 #$} & 2 _,4 j 1! ! !j 2! ! R ! 4 Hd ? ! 8T & ( !0 #$}? ) _ ! 0b "" "
0x23ab08…23ac9c Dummy {f00=0x017d, f01=0x0190, f02=» j~#! ! ! !W !# Q* < 0/ (+00 + ! !0 $$ %0 0 %%0 %% 2 2 _ < #? Ae ! 8R AnW* ! " _W) !$ ! $ W !W 8P )B? 0/ (+00 +@eAf ! ! 0 %%In 0 $%Ao 2 W ) !Ao _ ! 8T !_
0x23ac9c…23ae30 Dummy {f00=0x017d, f01=0x0190, f02=»!? &A $ 1 !2 _ ( T & % X 8 Ao _ ( 2 _ (0 % 01 ? ~ ~ RR j !! !0+~ j " +0 "P ,0+~ " !j~#! ! T j " $ j !! 1j !! 2 !!4 1 W 3P W An 2 _ 4 4 ! ! ! P 2
0x23ae30…23afc4 Dummy {f00=0x017d, f01=0x0190, f02=»Gv ?v !K "?v ! " ! $ & ! % 0 & $Xm 2 _ & $4 ( !Ad1 An@m 6 6 W,@n_ ( "2( _!@j3 @ @d0 0} 4 h _= _< ! 4 6 Sfl{ W j ! Ii ! W ) m ,P ) ? j !& 'bc c b W 0 ! $ r"?! 7" v$ !r?
0x23afc4…23b158 Dummy {f00=0x017d, f01=0x0190, f02=» &? (? ? % c @kh c -!T ! % h / !T; 6 MMMMMM~~MM~~MW|Iiy ! %n h / !T ,JWX ! %P h / ! 6 3 W1Ak_+ !" %% h / !T , W Hk ! c % c c _ & !?" 0 %% ?! !6 (DTdt_ * ?! + ?!
0x23b158…23b2ec Dummy {f00=0x017d, f01=0x0190, f02=» !W 4 $ a q . / p 0 O ' B x q g { c U N d c v *CFNY01020304050607080910
0x23b2ec…23b480 Dummy {f00=0x017d, f01=0x0190, f02=» %DEFINITIONSYSTEMFILE VALUE-SETSVOLUME-NAME:15 FILE SPACEUSERFILE UNITNAME CONTENTS11 DATE AND TIME14 SYSTEM-VARIABLES 'gX99XXZZ9ZZZZ9999999XXE-XXE-XXXXE.XXE.XXXXXXXXXXXXXXXXXXXXXXX- T U U I 6 f ! 7 g T U h d
0x23b480…23b614 (1, 488) Dummy {f00=0x017d, f01=0x0190, f02=» i E 2 3 A C ! " # # @ $ % # & U 20 9 - B > h d7 21 4 - 9 B 22 ; - 9 B 23 / 9 24 COPY 9 J H X% ! @ ! X% " @ " X% # @ # X% $ @ $ X% % @ % X% & @ & X% ' @ ' X% ( @
0x23b614…23b7a8 Dummy {f00=0x017d, f01=0x0190, f02=» " $ & ( * , . 0 3 6 : > B F K P U Z ` g n u | 0 0 ' # " & E C k Q Q P x 8 P 7 g T U h d
0x23b7a8…23b93c Dummy {f00=0x017d, f01=0x0190, f02=» @ n 4 8 <AnIj @{ " @iW Ai ! " P 7 ? % ;00 ,0/ , $ ? "r= ( 2 0+ 'h #Q !j , w j 1!w!Ii j 2! ! !j "" j $" mHj -P !2 _ &{ { )P !Ix 6 * ? &{ { *P !2 _ ({
0x23b93c…23bad0 Dummy {f00=0x017d, f01=0x0190, f02=» ! !jm & {!0 "} )P !Ix 6 *#W 00 {$* 0 Ii !* & & & ! 0 "}H{ Ij !6 H" W 00 {$*0 P _4 0 "}_? 1 !6 TT _P - PJ !6 ??_&Aj p! u # $ j $!! {1j #!! {2 $ #? &{ @jP { &{ W &{ @jP H{ m *
0x23bad0…23bc64 Dummy {f00=0x017d, f01=0x0190, f02=» WHHdR #W;IeJ_J # & '<W- A ( %Ie,I ) xW Hi! ' 0 (T W $0 "W 0 4 @g0 0} { 1 An@ An2 _ 0 0}@n_ 6 5 ? Ag@ij !m ) AiW 00 {$* p!0 AnP 0 ! 0 2 _Q W XT 8 2 Jgwjm & {!_
0x23bc64…23bdf8 Dummy {f00=0x017d, f01=0x0190, f02=»$ #j !! {(j ' { j {'" j { ! % { ! # _)j { ' @j@{ "|Bn { |? 3? @n ! " P W0 % ;00 ,0/ , T W % & 0 ($}2 ? &{ 0 0}4 0 0} { 1 An 6 _ @n_ 2 Wm * j !& 00 {$* p!0 0 ! 0
0x23bdf8…23bf8c Dummy {f00=0x017d, f01=0x0190, f02=» @d0 0} # * h h _? ! 4 1 Ad!h< @dAn@mAe 6 ? " &z 2 4 W Jd P AoHe @o W 0/ z ,AnAo@e 2 !"## _( (z T &PU 1 2 $$%&'& # %XjAo _9 z! X#b !& "z <( $z zU0/ z ,@e0 " *k0 " _ He% k0 k<)Id $P )SW
0x23bf8c…23c120 Dummy {f00=0x017d, f01=0x0190, f02=» * _=0 !P #_R * , !" 3 h &U !T , , _ ,& !8 W:6 1?* h ! !P 0 /8*W 0 /<* ?+ W %W ( ?,@e kU lU( .AdIe 1 W 1 An@mIe W 6 . _ @n_ Ief( $A6 _<A W A W A A Ae@d_D@ $V 1 An@m _L@ T
0x23c120…23c2b4 (1, 489) Dummy {f00=0x017e, f01=0x0190, f02=» M y - < v / # d 1 6 i T v x D r 4 g { q l L ' *F1
0x23c2b4…23c448 Dummy {f00=0x017e, f01=0x0190, f02=» NEW OPEN OLD SYMBOLIC:BATCHHEAD:DEFINITION JOB-DEFINITION P 2X99XX @ U U 45 . - + % ( : ! k + ( : " l * :U i 0 : 23 GET / / : h @ m h d 1 & : 3 e k e k h , ' )
0x23c448…23c5dc Dummy {f00=0x017e, f01=0x0190, f02=» NEW / NAME: v @ m U 40 , ' 4 h d3 41 5 + 42 6 + 43 5 ) - + 44 6 ) - + 8 f 4 2 &g 5 / fA ! 7 &A + / fA " 7 &A , / fA # 7 &A - / fA $ 7 &A . / fA
0x23c5dc…23c770 Dummy {f00=0x017e, f01=0x0190, f02=» ) 7 &A 3 U# # ' + / 3 7 < A G M S Y ` h p x 0 ) 9 Q & j & < M M ? P
0x23c770…23c904 Dummy {f00=0x017e, f01=0x0190, f02=» ! 4 "j ! ! !j o Hi 0+ / ! " ! (0+ 6 W 4 & ( #j ! ! !j 4 & ( $j ! ! !4 & ! c # ( % !j ! !! !j ! ` !4 & " c # ( & "j ! "! !j " ` "4
0x23c904…23ca98 Dummy {f00=0x017e, f01=0x0190, f02=»0+ + !h )Q ! ! #*r= #( ! "* }"r=` )0+ . ! " !0+ - ! " !0+ 6r r!H (W% ! m # T+ w! 0 ""j !Q W = ! +W !@ !@ 4 j !Q * & ' @d@ 4 % ( H + ")0 !!" " !)I 0 # W 0 # & ' %
0x23ca98…23cc2c Dummy {f00=0x017e, f01=0x0190, f02=» !W j " ") ! 0+ + '04 #4 j !Q !4 j !*! !j ! ! !4 !h )Q !j 4 Hj #* wHj $ # 4 @l #hQ 0 !056 F MMMMMM? !j !! !_9 "_> Hj j !! {(j { ! % { $! 0 ""Il _h !Ah? Al - ! j !!
0x23cc2c…23cdc0 Dummy {f00=0x017e, f01=0x0190, f02=»" H " # H # $ H $ % H % H " # oU U b ! " # $ + ~% U # hQ 0 !T 2 W W #_) !j !! !( "Q Ii "_H ! `! a! !0+ +h )Q ! ! # `" a j a` j a` ! ( !_ $ 6 1j b#~ W j b#~#W j b#~&
0x23cdc0…23cf54 (1, 490) Dummy {f00=0x017e, f01=0x0190, f02=»" `" a j a` j a` ! p 4 !jo ! - h] $ !T 6 #+jo ! ! !" %_*jo ! )_ jo ! +_ ! !_+J .jo ! ._/jo ! , !4 b @h@k hQ 2 !052 ? !j b! - b! !j !! H W j ba baj b! , ! b!__ j b o " b Jiq
0x23cf54…23d0e8 Dummy {f00=0x017e, f01=0x0190, f02=» %b!b j b!U b!_ HkJ cWE , a ! b jb!! b!+ b"$ $ # !0+ +h )Q ! 06 a #? !4 05 !0$ 0% T$0 0 P 0 ( " _* _/ _44 1 0P # W !0) p! u ! " !! w jw!! {1j !! {2 w d ")@h u" ! Kh !@k ~ 0 oT
0x23d0e8…23d27c Dummy {f00=0x017e, f01=0x0190, f02=»&%( _ #$d &% W 1 0 4 $ 9 j~ bIi !"d &%W #$d &%( A b ~ Ak_Dj~ b #* Ii !"d &%W #$d &% ~ Ak4 + 1 5 P W !) 1 5 P # W ! 4 3 L . X s
0x23d27c…23d410 Dummy {f00=0x017e, f01=0x0190, f02=»:#G:#A:GENERATION VALIDATION ACCUMULATION XXZ9XXXZZ9XE+XXZZVZZ9ZZVZZZ<;:9876543210/.-,+*)('&%$#"!=p! ! ! 1 k " ( % & ) 0 ~ k: " $ % & ' ! " # $ % ) 0 ~ 1 # : m ( NUMBER OF POOL-UNITS: # d : !
0x23d410…23d5a4 Dummy {f00=0x017e, f01=0x0190, f02=»UMBER OF POOL-UNITS: # d : ! " ! - MAX/MIN K M A V I DUPLIC. SPEC. #L:< ! LAYOUT> #V: ' #G: & #A: ( NO NO/POS - $ I E T E C -ITEM HANDL. 4231+*)('&%$#"! ,1
0x23d5a4…23d738 Dummy {f00=0x017e, f01=0x0190, f02=» ! # " ' D I #@ @ s " ( % & ) 0 ~ k: " $ % & ' ! " # $ % ) 0 ~ 1 # : m ( NUMBER OF POOL-UNITS: # d : !
0x23d738…23d8cc Dummy {f00=0x017e, f01=0x0190, f02=» , | 4 $ ( 05 Hf ( Hg ( j I 0 ##Ie !l_0 ! $ % & Ii I " " ( I 0 $'Ii # " . I 0 $ W .W 0 ! ( % ( % !4 @e@f@g @l l eIe ( @l l f( If Al l g !Af( hIg !W` @l l eIeJ(
0x23d8cc…23da60 Dummy {f00=0x017e, f01=0x0190, f02=» " !P I A ! ! ! % _2 ! W ! !4 % @e@f@g@ 4 ! " # $ * + , 4 o Hi 0 h / !Tr 6 )'''''48fD]]NW[A A A jo ! ! ! ! h / ! ,p_ A jo ! !W:A W.jo !] A A W*A jo !]!W jo !]#A A !W jo !]" !A jo !
0x23da60…23dbf4 (1, 491) Dummy {f00=0x017e, f01=0x0190, f02=» / h ) c#T # # d053 ( `c_*0 T ` c d H 0 $ 4 I " " j " " j " " $ . ! # T ! 0 "" U W !+ !4 $ f c# # d# hZ c! 7 c! #2 W bch b!Z7!T W
0x23dbf4…23dd88 Dummy {f00=0x017e, f01=0x0190, f02=» a W b# # b*a & &a_ a c! ac bch baZ7! bc a ab c!j c!a! cb c!f c! ! d!_ bch b!Z=! W " c!j c!Z c! (c a ac bc h baZ ! )b c! bc 'b? c! )c ' ) ' j (! '!f c! ! d!? ` 4 j b c a j c!a! b b! c!f cb db4 j b u a u $ #@g
0x23dd88…23df1c Dummy {f00=0x017e, f01=0x0190, f02=»!Z` b! ! !@g _ " ,0 b! ! `bh `!Z2! "_L( % !T b! ` h `" b!T `/j b!Z` !_L b! #_} c j b!Z7 bc b! c !d b!Z7 !Jg '!_ `9W `(j b!Z` b! ! ' j '!! b ' j b!Z= 'b '!Ag_ 4 b!jc!! b c ` m `% f b!d b` `! ` b` ` !Hg '`4 @e kU lU(
0x23df1c…23e0b0 Dummy {f00=0x017e, f01=0x0190, f02=» ! U Uj ! !j !!/!j %!8!0/ (+00 +( > " 1 W 1 An@m h 2 _ _ 0/ (+00 +0 _ "l lU h " 1 W 1 l "2 ! W 5 T ! +T | j " &| W - !" ! 0 %, ! b &l b &!Z2b '( "lW b &k !k
0x23e0b0…23e244 Dummy {f00=0x017e, f01=0x0190, f02=»! lU?!0 0} & Ae?#1 " An@m + , 2 $ % _ _ 0 ~P + , @z6 Az _ @ @z $XP@ ~U 0 , P& b~ ![) !0 + T b~ ![( !b~ ![ ! ! (41 "0 %%0 &&0 $ _ 6 ?&?& + , 6 h[ * !T06 $ $$ 0 , T 07 , @ T 07 + !_6A X @
0x23e244…23e3d8 Dummy {f00=0x017e, f01=0x0190, f02=»_O@ T Ie ! 4 @e@d@~KeO@ @ @ _ A~ 2 (()* _ 0 1 !0 _ * n : 8 E I w U _ > ' E Z ! x y . } w P C
0x23e3d8…23e56c Dummy {f00=0x017e, f01=0x0190, f02=» JOBKEYMODENAMETESTUNITBATCHLEVELSIGHTNUMBERRECORDSEARCHSTATUSVERIFYVOLUMEIN USE PROGRAM:#V:#G:#A:9X99XX999XXXX U + U $ $ ! : " l ! : ! k ! : !A k $ ! : "A l $ 53 ) ( % 52 )
0x23e56c…23e700 Dummy {f00=0x017e, f01=0x0190, f02=»" ( - ' : # ( - * : -e@ ~ 60 . h d0 61 62 & 63 / " 64 & / " ! " ) # $ % ) & ' ( ) ) * + ) , - . ) / 0 1 ) 2 3 4 ) 5 6 7 ) 8
0x23e700…23e894 (1, 492) Dummy {f00=0x017e, f01=0x0190, f02=» + ; K [ k } # $ 2 F G @ @ $ 1 U + U $ $ ! : " l ! : ! k ! : !A k $ ! : "A l $ 53 ) ( % 52 )
0x23e894…23ea28 Dummy {f00=0x017e, f01=0x0190, f02=» b $ V Z ^ kU lU( xAdIe 1 6W 6 1 )W 1 !An@mIe W 6 K @ T $ _ @n_)@ $V 6 Ie ! 4 @e@d ' * h h _sIe ' @f6 _ AfAe@d_ 2 ( 0 kT (!0 lT (! %0 " _ ("6 ( , W - ! 2 AzT ! '! ? 6 (
0x23ea28…23ebbc Dummy {f00=0x017e, f01=0x0190, f02=»T ( * 2 ( )g- " '"( g " #. $T # '#( _ Ub & 5 + *P ( - { &{ 1 E0 ! 0( mU_" m 500 {&* p!0 $ '$( D0 $} | @ 03 2TX 6 ( W? 0 $} T l $_ & A %T @ _ @ W'" 2 W 2 2 ' @z 7 s &{ &
0x23ebbc…23ed50 Dummy {f00=0x017e, f01=0x0190, f02=»1 P Q U80 88 R*j !! oU 0 !jo! jo " 1 W % "1 M 0 W 1 !0 ! 6 W"0 0 $( # _.0 ! _y $5 !( * @ . !4 80 4 o o0 0 6 4 Am4 0 0 4 Z E H w o
0x23ed50…23eee4 Dummy {f00=0x017e, f01=0x0190, f02=» + 1 TOJOBVIAFILENAMEUNITBATCHFORMATVOLUME IN USEDEVICE PROGRAM:SYMBOLICDATA COMMVALUE-SETCONVERSIONOTHER MEDIA XXXXXXTTT9TTTT9XXXXX- o % * U : k % * : % # : % NOT * TIME-OUT CDV-ERROR NOT FOUND I/O-ERROR DATE ERROR 71 +
0x23eee4…23f078 Dummy {f00=0x017e, f01=0x0190, f02=» INVALID NUMBER NO RECORD FOUND UNDEFINED ERROR 4 " # ? TEST ENTERED BATCH RECOVERY RUNNING. DISC NOT OPERABLE " : l IN : k % CHANGE FLOPPY DISC DISC I/O-ERROR : ILLEGAL FORMAT NAME PRESS ENT TO CONFIRM NO WORKSPACE IN CORE F
0x23f078…23f20c Dummy {f00=0x017e, f01=0x0190, f02=» USED PRESS ENT FOR DELETION THIS IS A DUMMY MESSAGE SYSTEMFILE ASSIGN-ERROR EDIT ERROR IN CONVERSION ALREADY DEFINED/EXECUTED TOO FEW INPUT CHARACTERS OUTPUT DEVICE NOT OPERABLE & : e # - : @ COMPULSORY FIELD NOT FILLED DEFINED L
0x23f20c…23f3a0 Dummy {f00=0x017e, f01=0x0190, f02=»ELDS EXCEEDED FETCHING FORMAT: FROM DISC. @ U (USERFILE NOT CLOSED IN PREVIOUS SESSION. ,END OF FORMAT FOUND PRESS RINS FOR NEW LINES # : m : )CONFIRM WANTED FUNCTION (CORR,RDEL,PRINT) j : h y : k : l : : z : n : : g : ASD 5 PAGE : W
0x23f3a0…23f534 (1, 493) Dummy {f00=0x017f, f01=0x0190, f02=»SIZE ON DISC: . ( # : ! DOES NOT EXIST IN JOB-DEFINITION OR ON SYSTEM-DISC=( 3@%&< $ 2B'D8LI:5/, -AC1H0 >G+KJ999999999F7 ;. $ ) / 5 < C K S e o0 z0 {
0x23f534…23f6c8 Dummy {f00=0x017f, f01=0x0190, f02=» $ 6 J ^ r $ < U n ) G e ! $ $ * + / C 4 r ? ? F $ J j@7 ^ F ^ M WANTED FUNCTION (CORR,RDEL,PRINT) j : h y : k : l : : z : n : : g : ASD 5 PAGE : W
0x23f6c8…23f85c Dummy {f00=0x017f, f01=0x0190, f02=» : . 2 60 $}j *!! x03 @l 2 ? j x! ! wx xyj &"x !g e x y" e @ TW( ' )g @l? j xy wj x! { W< .V xwj &"w W j ! " "Hn ' wxjx " & wx wxf xwj x! { wxj !! x( % j " &W ( ' j ! " " { 00 {$* p!0 0/ x*6 VVVVOVOVV V "!H '0 **P I %!@ A W
0x23f85c…23f9f0 Dummy {f00=0x017f, f01=0x0190, f02=» x* !u uv_ 03 j x! ! 7 ZH_ j " "jx " &"x* ( Zf_q 1Zm u ? !u (R j "" j &"x u !? ! _ j " & wx x 'jy " xy x u$x Aj " $( xw u /_ /Z j " &( * 1Z)_5 x* wx x 'jy " g #gYuP W j ! x0 , + & # ( # _
0x23f9f0…23fb84 Dummy {f00=0x017f, f01=0x0190, f02=» : ? ,wx W x* WY uj " "( ? j " &( * % 1W 0 : j " & *1 1 W u ! u ! u ! : jx " & 1 w*j " w wx wx j &"w xw? w w !( % _ ' xw g # ( ( #g? g "b & AlW '2 : 1 _ : ? $ )g ' 4WAH !W9AlHl
0x23fb84…23fd18 Dummy {f00=0x017f, f01=0x0190, f02=» *PE - { ) ? 1 0 ! 0(({ ' x( ' ' wj " jy " ? &{ mU_ m $ ' ( @lW !g ( nmW *W * n An xIl j ! { W . ( ' !g j x) w < ? < ? !j &m &j "y ( + ? A ? < 0 @vP C 8 ? ' ( % 2 ! C 8 0 @v< "!_y # "= g "
0x23fd18…23feac Dummy {f00=0x017f, f01=0x0190, f02=» ) 01@v $W &z &| &{ 01@v_U &z &| &{ 0 $} ^ # + "@ X& ! !02 !X 0 " %P @ 03 0 $} 2_R * ' # $T -_ #_-@ P 0 $}A W Ay@m 4 @ 03 0 $} 2V @y@z@oA # &{ &z &| h Ae0 0} 4 2 $%%&' uf
0x23feac…240040 Dummy {f00=0x017f, f01=0x0190, f02=»* u$x j $" 7 :(W .:( uf *y x *j &" _* u :(j "" 7 :(W j ! "u u :( w* x*j x! { ?) h ( ' 0 kP W1( $ ( % W ( % # 0 @vP (z Ub &k "V 0 " ?(I + #P R 07@v0 # b &l ?*A 0 @vP &z ?+0 @vT/( ' z W ( % 6 !
0x240040…2401d4 (1, 494) Dummy {f00=0x017f, f01=0x0190, f02=» I H W I W H~ I (W ' A P A WB0 @vT ( ' $W3 $W I K @ 03 0 $} 2TmH 7 Uj &"* W TT0/ z , { 0 @vT % 4 * *T4 m 4W mU x*0 @vT % I S2 * An0/ |"- wx g 03 WYH ( # W &| 0 ' 0 @vT &z @ P $0 $
0x2401d4…240368 Dummy {f00=0x017f, f01=0x0190, f02=» R 1 y s n G a 3 D ! " % & FETCHING FORMAT: FROM DISC. @ U 0 0 * * * z W ( % 6 !
0x240368…2404fc Dummy {f00=0x017f, f01=0x0190, f02=» X Ii " !W ! 0 " P !, ! ? Ij { j 1! !j 2! !Hj !j !&m $ r"Ii' U ! ( j !! ( ) x. .K .*W x( Hj mIn 0 ! W 0 ! Hj m !7 w! y "! !U 'U U & Ii ( In 0 ! W 0 ! @n ! Ij 0 :
0x2404fc…240690 Dummy {f00=0x017f, f01=0x0190, f02=»,, W ! $ 0 / T W 0 - T ! 2 W "? I I I I IjO2 !0 / 2 W$0" Am6 ! bC I .4 ? "(0" _*Am #0&W 0'W 0(W X Z [ +( H I C_ 1 _ T 1 !0) ? 2 ? W #0! T %y0 %%_
0x240690…240824 Dummy {f00=0x017f, f01=0x0190, f02=» % 0 0 < 2 ? 2 #? 0 0 ? $ 2 2 0 %% ( @h u!He8Kh 0 % $? 0 %%A ( @h u!He Kh ( ! u!0 #'@ @ @ ( ? @ ( !"_cA $? 0 && u! !eJh ? 0 &&A % Ad@ @ #? A @ u!
0x240824…2409b8 Dummy {f00=0x017f, f01=0x0190, f02=» ! T&Hl 0$ 0% @l0 T W 0Al0$ 0% X/ "_B 4 ! ! + "h # !T}6 ,, !0 @|Thj !! ! j !! 0 _K ! $ !A !@( "902 !T2@e@i@k !" ? 'hZ 2 !TP &6 " _ Ai_8Ae_<" v &WpAkW ! ( ~
0x2409b8…240b4c Dummy {f00=0x017f, f01=0x0190, f02=»6 PW (W '4 &@d@g0 @ W< %Ad0$ 0% R Ag0# ! T 0$ 0% @dW Hd 0$ 0% @ 4 ! ! L #h $ !6 00 W. "0 @| uA j !! ! j !! 0 _N ! 6 iiWJ@e !& ! h ! !P !@i ! 9# %h * !TX6 rr
0x240b4c…240ce0 Dummy {f00=0x017f, f01=0x0190, f02=» ! WV U ! 6 & ) 02 !<$ W302 !P(?$02 !<$ $W ( 09 # W a " Hi b " !P 6 ! "?% ! "?% ! "?% ! "He U m " 02 !<$ ?&( 0$ 0% 0 0 TJ U m ! P Q 0 , ~ d ! ~ W f ! ! 0 0" 0
0x240ce0…240e74 (1, 495) Dummy {f00=0x017f, f01=0x0190, f02=» c b" W !4 !Hy 03 "Hz 03 34 U j ! !0 P b ![ ! ! ( 4 0 !P * 0 "P + , * , +! * : + 5 *f * j % , + , + * W * , + c $ bch b! !Tk c! h & c"T " "Hi #L c" bc a , ach ba "T cb c!
0x240e74…241008 Dummy {f00=0x017f, f01=0x0190, f02=» j ! W * + !!4 @k@g hZ c!T 6 %Ls 2 ''''()'))*())'''''''''+,(--'Wf b2 ''''()'))*())'''''''''.,/,,',0W? ;2 ''''()'/)*())'''''''''.',,,,,0W Ik Ak 2 1111'11))*()?1W c c! bch b!Z7!P c!WF c! c % a=hZa! c!P "5 c!W)Ag >W @gT _F
0x241008…24119c Dummy {f00=0x017f, f01=0x0190, f02=» c!_vIi c! b/hZb" c!T $o b/i_u c! #T $a X#a T % W , a WH c"_ c!,c ; a ac bch baZ7!T( bc*b !,b : ; W "b& cb_ c!,c _C( $ c ! & ! W Kg !!4 c! bc b "b Uj c b m b b a 4 2 % j
0x24119c…241330 Dummy {f00=0x017f, f01=0x0190, f02=» > & I H ] R j s 4 + C s ; d e $ ? P Q ^ c #0;=FMDADUFMV:G:A:!UF+-*:;AS AAAAAA+TTTTTTTTTTTTTTTTTTTT9 ! 1
0x241330…2414c4 Dummy {f00=0x017f, f01=0x0190, f02=» @g@i@k@ "0 ( #W H % W % 6 0 2 W ? A o W o ~ h~ ) !PL@ < ~ h~ ' !< A ! & !@ W 2 W 09 #XA _ 2 !j !! j ! !$ 0 ! ? A _ !A <
0x2414c4…241658 Dummy {f00=0x017f, f01=0x0190, f02=» ? A _ 02 !< " ? #@ T 0 P9W I 46 0 ! W 0 ! : 6 h W h 8 ? 6 02 !< " ? 02 !< " ? ( 09 ( #)0 A h U ! < h 8 ? " ? < h ! !P !W !j !! ! f "d "!U d !
0x241658…2417ec Dummy {f00=0x017f, f01=0x0190, f02=» ? & ? ? 0 9 ? " W @g@k !Ai !? $@kAgW #@gAk@i ! j !! ! Uj ? 0 h !TL j !! ! ) ! h ! !T ! R h !U !P7 !_& h ! !X&W#@ T 0 P! W I h P Wk ~Ub~ "~
0x2417ec…241980 Dummy {f00=0x017f, f01=0x0190, f02=» ! _6j " - 8 & ?!@ P 5Ii Ik Ig A|W 4@|@ & , hZ !PDj !! 0 (P 0 !_<( 4 !, h $ !ThI|m2 ? 2 """"#$"$$$#$$"""""%&&"""#''" !_h( !? 4( !_ "_ _ ! j !! ! _ _ A| "
0x241980…241b14 (1, 496) Dummy {f00=0x017f, f01=0x0190, f02=» Af4 ' T O j & % . i } 8 [ D S q d E = G B 0 M a ; + ?:?T+-*:DGRNASUFFFXM/=><DGRNL!ASUFTCXE
0x241b14…241ca8 Dummy {f00=0x017f, f01=0x0190, f02=» Q ` 2 $? 6 _ 8 ? 1 T !0) T ? ? ? 2 ? )( ( SU? 2 P ? U0- T 1 ? H +? I 1 _ !0$ 0% 0 &Q %R A W Q Y A _: !0$ 0% R 0 'Y %R # Z$ Q A T< $ _3 !Q $ _> "Q A T
0x241ca8…241e3c Dummy {f00=0x017f, f01=0x0190, f02=»6 H A W U0- T 1 W 4 6 _ 2 I Y W WX ' 0: 40 T@ W W: T2 U0- T 1 ! W W 6 ! W W % @ _v *W A _ ' 0: _ K "H 1 A +_ K 3I $ " W !0) E - ! _ W W W W %_d _i _ W
0x241e3c…241fd0 Dummy {f00=0x017f, f01=0x0190, f02=»-I !a W _ W '0: 2 W _ W _&2 W _2 0: _H0 @ ' 0: @ ' 0: 0 & ? U0- T 1 %_D U0- T 1 $_S # # " T - ! ,4 4 " '0: 0 0 T@ j & j ( % 6j !%
0x241fd0…242164 Dummy {f00=0x017f, f01=0x0190, f02=»4 0 0 0 "P 4 0 R 6 x W , j Wz %7a %j % !" / %j ! !WJ ! .j ! ! 0: % f ! 4 ,a j W 0: 4 4 ' 0: 0 0 %P 0 T 4 ' 0: 4 " - @ H A
0x242164…2422f8 Dummy {f00=0x017f, f01=0x0190, f02=» Rrm WP" 5e R 0 0 /P H m W0m 6 !W H m W m 5 f ! " _ 4 4 4 4 4 # J ^ Q f W ( 9 0 j
0x2422f8…24248c Dummy {f00=0x017f, f01=0x0190, f02=»CEEXPIRATION DATE:OLD VOLUME SEQUENCE NO:OLD DATA SET IDENTIFIER: 9999999999999999999-99-99999999999999999999999TTTTTTTTTTTTTTTTTTTT9999999999999999999999-TTTTTTTTTTTTTTTTTTTT9- S l % SLUTD % # EJ GODKENDT # EJ AVST[MD FRYSNING
0x24248c…242620 Dummy {f00=0x017f, f01=0x0190, f02=»ER: MISST[MMER JOBNAME: k BATCHNAME: l FLOPPY DISC SKRIVNING KLAR FLOPPY DISC SKRIVNING AFBRYDES 2 : # 0 - 1 : 3 5 4 U " $
0x242620…2427b4 (1, 497) Dummy {f00=0x0180, f01=0x0190, f02=» ) 9 I Y o # % ) $ 5 M @ 99999999999999999TTTTTTTTTTTTTTTTTTTT9999999999999999999999-TTTTTTTTTTTTTTTTTTTT9- S l % SLUTD % # EJ GODKENDT # EJ AVST[MD FRYSNING
0x2427b4…242948 Dummy {f00=0x0180, f01=0x0190, f02=» ~ @h0; ! P # ( + ? 0! < AhW %hZ ( !< % (: ! ! ( $ 2hZ ! !T !j !! W % 2 !X b !U ( W )W f "d "!U d ! 8T 0/ (+00 + j !! 1 ! & 0 T/0 V& $ h # ! T !
0x242948…242adc Dummy {f00=0x0180, f01=0x0190, f02=»T Wo0 "T j !! !b WX WU Wb Sf !WAH{ W<09 " m W W 02 !T3m W 02 !T&m W h U ! V !!4 !"4 80 1 % 6 ''' ' y ''' "W% ," "0 We0, W "_ '_ !0, ! 2 W 0 0 (P" &
0x242adc…242c70 Dummy {f00=0x0180, f01=0x0190, f02=»0=" 4 4 4 4 4 4 4 0> 4 0? 4 0@ 4 0A 4 4 4 @p@q@r@t@v@ @x 2 # ! "#$%&' H ! ( Hx 4 $ !"4 "!4 !!4 I @w 0 0 V # 4 A 05_ @ P 0 0 4 b !& bc 4 6 &90B A! P K 4 0C A! P K 4 0B
0x242c70…242e04 Dummy {f00=0x0180, f01=0x0190, f02=»0 P 4 E bR * )bR* I 0C A R V 4 0B A R V K E I b )*R b R* 4 Is ! W # 4 Is " _ $ _ #`RR b | R*j |)"` 4 R%bR* | j` " |) $`R 4 `vV Ap !b " j $"` uV> av uajb " " b ( bR#j $"u b^&jb "R" b bR j $"
0x242e04…242f98 Dummy {f00=0x0180, f01=0x0190, f02=»`? j` " "_2As ua? @u@v E 0D ? !"? 1AxW-j " - R R _9 W Iu Au "_ *" ! A 4 0E c c ? !( ! A 4 ! ! e cE j " c/ , ( j " c1 !" $ ) cE 4 -jc " c c R c R _a _) +_% 0F c c 4 ! !
0x242f98…24312c Dummy {f00=0x0180, f01=0x0190, f02=»d ja " $ a a RCj ""d a d`W ` (a AkIl'W a R jd " $j $"` a R `vIs `! d` 4 2 ()*+H 05_ A T|A @s C!!"C!!o - kV!0G A!R kP 0H A!R @ 4 C!!WL ^U !02 !T # !_ `! ?!` !!Rj ! "R%jG! "R! ! ! " Q E! "! [ 3@ 4 H #@ C!!"C! !T !!R
0x24312c…2432c0 Dummy {f00=0x0180, f01=0x0190, f02=» ! Apj !'! $! P Ap R$ ! ! " T Ev "v P Ev & 0H AvR 5@ Cv!W Hp @ 4 H 4@ Cv!Q, v T Ev & #! T j ! ! $! T 0H AvR 4 j " )( j " '( ! 0 * 6 1W e / s 4 : m `!: )`W} d$ bd !bRV ! 5? jc "R&#c 1j "
0x2432c0…243454 (1, 498) Dummy {f00=0x0180, f01=0x0190, f02=»b1 a A c!V a ) ) !aR: ?,jR$"c bR* b "`R: Hp _ ba ` jR "` `c_V c Ap_1Ar 0 mP r$ t Ir t4(r m $R*: r` ta t( : !rRV ! ? ) r ? j` "R&Hr$ t* t` `tW0 `$jd "R` d * rdJr= t _B$t4 ,`t t` t*_- t `"_- `" "b !&R`bm &R` m?- < m@s $R*: ` a&j`
0x243454…2435e8 Dummy {f00=0x0180, f01=0x0190, f02=»` "R$_!% - L S Y o s | U 1 5 J H 8 x } I F P U z H r - ; a s s k 3 ' (
0x2435e8…24377c Dummy {f00=0x0180, f01=0x0190, f02=»E SYSFIL CONFIRM VALUESETSYMBOLIC: XXXTTTT9 0 * DELETED INSERTED ! ON UNIT:U i ! WITHIN JOB: k RECOVERY RUNNING. RECORD CORRECTION . FREEZING OF BATCH l CONFIRM RECORD INSERT CONFIRM RECORD DELETE: RECORD MUST BE
0x24377c…243910 Dummy {f00=0x0180, f01=0x0190, f02=»KIP/DUP *O N* FF* RECOVERY OF ' : k ( : l RUNNING. " $ # " % ( + 0 6 < C J Q Y a0 j ' 3 C U i ~
0x243910…243aa4 Dummy {f00=0x0180, f01=0x0190, f02=» r : '6c ( ]@s $R*: Cq< RU !bR "V ! ! AvT ? )? bjd "R$ b jb!!R( `b c jc!!R) !bc V -? b _Y cbj b R*j b)*R `! ` ! !dRV &cb _ojd "R$jb!! b(_3 cb $c` &{` {c? 8? Hq ` j`!! b'$`! _ ? %_5Aq_ : R# `* a!b
0x243aa4…243c38 Dummy {f00=0x0180, f01=0x0190, f02=» ca_0AqW3jRd" "'R< !`R< ja "R$ `!< a & `a_ %6c : b " ! d %d !? !'RP < Hpl R$ "'R: d" d*j` "Rd(` HpO `!: jRd"` "'R: c`_ Cq !`R< c` ` j`!!R)* `!j` "R$ ` !Hp a1h a!R(!X _ )? Cp< b! a! !ba < b b)*R b b R* $ba & a b?
0x243c38…243dcc Dummy {f00=0x0180, f01=0x0190, f02=»d R jd " $jc " * c d ? 4 j " " & 6 jR " 4 j "R !"4 !!4 ApAt : As k # *V ) ? Ht ? l b ,V ) ? Ht ? It (? cv: a*mja " &"asz kj a"c a"j &"a `: ` a* !j ""` j $" l `v: j a"` a" uv: j a"u a"j &"a c: Uj &"* W
0x243dcc…243f60 Dummy {f00=0x0180, f01=0x0190, f02=»p `dWY a* c,j &"c f a, `R7"c* dv 05 Z #u V ! W U jd " $ uv ud d , ) v )? jo !v bo!&k bo'&l ) oV5 ! ! " : * o | Uj |)"` It ? u) ? ? : VJ! ) ? `b b W `!: R%jR""b bR* z "`R: b !bR: jR$"` "bR? bR
0x243f60…2440f4 (1, 499) Dummy {f00=0x0180, f01=0x0190, f02=»c! !bc V -? b b R*b b)*R $ c b !& bcbk & ! &zb ba zb? k ? Kq %_1Aq_ : @s RHl Hk RU "#R? a$W a" k `#0 kT : j` "Ra ` Ar_ ApAs0 kTY k # *RnHp. a$*a j " $ Z : j` " &*`*K a,Hp bk & a? 0 lT$ l b ,R. a& a =bl & a? #X;! ? b
0x2440f4…244288 Dummy {f00=0x0180, f01=0x0190, f02=»@~ W 0(@mI~ Hn @f $U W I~ W I Ao 2 H~ I Ao { _ H{ 2 _ 2 b & . #K~M g "pK s_W!g& ? /_>Iz H 0(_ H %? Im)I~ h ( & g" " H I @o0 ! _ _ 0 ! %Z @m@n 0 ! _ Io @ T I~ #> ? H~ A < " ? Hm @ P&@
0x244288…24441c Dummy {f00=0x0180, f01=0x0190, f02=» ? Ub & @ .P )g& Ao? AzAzT @mA *P @ ? @ @m8 @xP 2 h ( & H #: W ? Im1I~ I & h ( & H I ) ? I ) ? I H W Io ? g( " C~< )g& @z )WkI~5 / 2 $ # " #g #g &? #* " #g_> ! & #g #'_ 0 ! $PE; @}({ % H~
0x24441c…2445b0 Dummy {f00=0x0180, f01=0x0190, f02=» g& T Io Ao #: _3Ao@ T / 2 $ % # #g W ! #g #'0 ! &_ I~ Jo K _@ @ !0(@o ( P W 6 - _ Hm 0 ! A %V @ _ @ "@m0(2 % &'''( " / 80 !"W 0 ! @m h ( & H I ?)Ao( ! ?" ? AoW I~ Co8 C < Cz8 Ao " 2 *0 ! !0
0x2445b0…244744 Dummy {f00=0x0180, f01=0x0190, f02=» I ?) g( " @oW $ 2 . ): @oA ?/C < Hz @ T Cm< Io I~ #V - ? @o@z Ub & 5 +@mA{ *V#( - 1 0 ! 0( { &{ mU_"@{Ao? m 5 + p!0 An ! 6 Ba4( () % ) _ W + 2 0012A #W 80 _5 _:A @{0 $} !4 @{Az 'P ; -pA{_% !g' @m?3?4
0x244744…2448d8 Dummy {f00=0x0180, f01=0x0190, f02=» f ^ B y ~ | | % J < j ) v r ` P k 8 ' ( s g l v { q D
0x2448d8…244a6c Dummy {f00=0x0180, f01=0x0190, f02=» " %0 .0 / * 8 h h? @o@z Ub & 5 +@mA{ *V#( - 1 0 ! 0( { &{ mU_"@{Ao? m 5 + p!0 An ! 6 Ba4( () % ) _ W + 2 0012A #W 80 _5 _:A @{0 $} !4 @{Az 'P ; -pA{_% !g' @m?3?4
0x244a6c…244c00 Dummy {f00=0x0180, f01=0x0190, f02=» $ J @ 2 A ! ~U ! & !02 !T J _ : I !_) _7j ! ! h~ !X8H !( @ h~ U !j~ ! ! !P !02 ! N_m ? j !! '( !1j !& !j !! ( * j +& 'j !! ( j ! ! ! ? jy " $ j !! 1 j !!
0x244c00…244d94 (1, 500) Dummy {f00=0x0180, f01=0x0190, f02=» !W h ! !Z< ") j !! 1j !! 2$ * _b " % ? j !! 'I *A ( $j ! !0 ^ h^ !T f^ ! !j^ !U !j '! !j !! ( _N ! ( + ~UWhj !! ' !QU I N! ! b ! W:0 ^ h^ U !P ! j !!^ b ! f^ ! !A j !
0x244d94…244f28 Dummy {f00=0x0180, f01=0x0190, f02=» W - !"4 !!4 j !!^ ( !"4 j ! j !! ( j (! ! _ f^ !0 ^ !j^ !U !!4 6 W U j !!~ W j !! (W Uj ! j '!!! !j !!~ j (!~ _+( # j (! !j !!~ 4 Ii 1 W 1 4 ( #M0 T ! ! P.W< !0 P) * 0 *
0x244f28…2450bc Dummy {f00=0x0180, f01=0x0190, f02=»CHFIELDLINE START999999FORMATLENGTHNUMBERRECORDSTART:(#A:...)(#G:...)(#V:...)123456789 1234567890CORRECTIONDEFINITIONGENERATION VALIDATION ACCUMULATION 1 AAXXZ9ZZXXXTTTTXE+XXZZVZZZ : e ` m SIZE: f ` ! " : + " . " OF POOL-UNITS: D # 1 2
0x2450bc…245250 Dummy {f00=0x0180, f01=0x0190, f02=» & -ACCUMULATOR:A m ( . SPECIAL HANDLING: @k - ' , & o@ ! p@ " U 21 USER + j # * : F $ $ % ! : & & . OCCUPIED # ! : E ( KEYED INPUT ( Y /N/C): l@ ! . MINIMUM ! > : @i ' M
0x245250…2453e4 Dummy {f00=0x0180, f01=0x0190, f02=»(Y/ N ) : @t@ $ INITIAL CLEAR ( Y /N): u@ % . SPECIAL HANDLING: @k - ' , & 2 . % o@ ! p@ " U ! ' - 3 9 ? E M U ] g q { 0 0
0x2453e4…245578 Dummy {f00=0x0180, f01=0x018e, f02=» IDENT P:S012 * & r : '6c ( ]@s " * & - $R*: Cq< RU !bR "V ! P * & K ! AvT ? )? bjd "R$ b j ~ * & i b!!R( `b c jc!!R) !bc V -? * & b _Y cbj b R*j b)*R `! ` ! * &
0x245578…24570c Dummy {f00=0x0180, f01=0x0190, f02=» * & R# `* a!bR`1 a `1 a! a+ "% * & R? : !%RP RU `* a!b a 2 * & ; 1R` `1 a! a+ ? ApWg R bR(" 1b ` * & Y R* "cR? a!: jR$"a "cR * & w : ca_0AqW3jRd" "'R< !`R< * & ja "R$ `!< a & `a_
0x24570c…2458a0 Dummy {f00=0x0180, f01=0x0190, f02=»jRd"` "' t * & R: c`_ Cq !`R< c` ` j`!!R * & + )* `!j` "R$ ` !Hp a1h a!R(!X @ * & I _ )? Cp< b! a! !ba < b b) n * & g *R b b R* $ba & a b? * & ? ` a*Hs `W ` V ! 0W< a * & "j " &h
0x2458a0…245a34 (1, 501) Opaque[0x194]
0x245a34…245bc8 # DirEnt {nam=»NJLINK«, typ=»UF«, f00=0x0000, f01=0x0000, f02=0x07c0, f03=0x0000}
0x245a34…245bc8 IdxSect {
0x245a34…245bc8 f00 = 0x003e // 0x245a34 @0x0
0x245a34…245bc8 f01 = 0x0002 // 0x245a36 @0x2
0x245a34…245bc8 gno = [ // 0x245a38 @0x4
0x245a34…245bc8 [0x00]: C0x003e.0x0.0
0x245a34…245bc8 ]
0x245a34…245bc8 }
0x245bc8…245d5c Dummy {f00=0x003e, f01=0x0190, f02=» PSCR PPRT NJLINK PMOV CNFP,/A,CON10 " PPRT /A < PSCR J PTRA DEDDIV,NL V PKPF /O l PNOD C z PINC PTSDE PINC DEDISC PINC DELOCK PINC DEAPPU PNOD R PINC DKRUT1 PINC DKRUT2 PINC DK
0x245d5c…245ef0 Dummy {f00=0x003e, f01=0x0190, f02=»RROR PNOD R PINC DENVAL PINC DEGENE , PINC DECOMP > PINC DESTAT P PINC DENT02 b PNOD R t PINC DE10ST PINC DE11ST PINC DE12ST PINC DE1201 PINC DE14ST PINC DE15ST PINC DE30ST PINC DE31
0x245ef0…246084 Dummy {f00=0x003e, f01=0x0190, f02=»RT PINC DEPRFG PINC DEUNPF PNOD R . PINC DEPROC < PINC DEVGAC N PINC DEATTF ` PNOD R r PINC DE40ST PINC DE50ST PINC DE60ST PINC DE70ST PNOD R PINC DECONV PINC DCTASK PINC DEFDSC
0x246084…246218 Dummy {f00=0x003e, f01=0x0042, f02=»=M:DENJ,MU=M:DENJ,A=DELINK,C=CNFP,CU=CON10 PASG /E0,TY10 2PROC < PINC DEVGAC N PINC DEATTF ` PNOD R r PINC DE40ST PINC DE50ST PINC DE60ST PINC DE70ST PNOD R PINC DECONV PINC DCTASK PINC DEFDSC
0x246218…2463ac Dummy {f00=0x003e, f01=0x2008, f02=» MU=M:DENJ,A=DELINK,C=CNFP,CU=CON10 PASG /E0,TY10 2PROC < PINC DEVGAC N PINC DEATTF ` PNOD R r PINC DE40ST PINC DE50ST PINC DE60ST PINC DE70ST PNOD R PINC DECONV PINC DCTASK PINC DEFDSC
0x2463ac…246540 Dummy {f00=0x003e, f01=0x0190, f02=» SYSVOLSYSVOLSYSVOLSYSVOLSYSVOLSYSVOLSYSVOLSYSVOLPFJESVCHM/=><DL!ASUFTCE+-*:;&V?'ZGRNX()MEVTFCAB/,LRAPTXZY+S,.><0-VEX * >0 0 0 M U t ~ 0
0x246540…2466d4 (1, 502) Opaque[0x194]
0x2466d4…246868 # DirEnt {nam=»NYCONV«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0770, f03=0x0000}
0x2466d4…246868 IdxSect {
0x2466d4…246868 f00 = 0x003b // 0x2466d4 @0x0
0x2466d4…246868 f01 = 0x001a // 0x2466d6 @0x2
0x2466d4…246868 gno = [ // 0x2466d8 @0x4
0x2466d4…246868 [0x00]: C0x003b.0x2.0
0x2466d4…246868 [0x01]: C0x003c.0x1.0
0x2466d4…246868 [0x02]: C0x003c.0x2.0
0x2466d4…246868 [0x03]: C0x003c.0x3.0
0x2466d4…246868 [0x04]: C0x0076.0x3.0
0x2466d4…246868 [0x05]: C0x0077.0x0.0
0x2466d4…246868 [0x06]: C0x0077.0x1.0
0x2466d4…246868 [0x07]: C0x0093.0x0.0
0x2466d4…246868 [0x08]: C0x0093.0x1.0
0x2466d4…246868 [0x09]: C0x0093.0x2.0
0x2466d4…246868 [0x0a]: C0x0093.0x3.0
0x2466d4…246868 [0x0b]: C0x00a8.0x0.0
0x2466d4…246868 [0x0c]: C0x00a8.0x1.0
0x2466d4…246868 ]
0x2466d4…246868 }
0x246868…2469fc Dummy {f00=0x003b, f01=0x0190, f02=» * P IDENT NYCONV REL=1.0,VER=1 820420/NJ P UPD 82-02-22/EV 2 P UPD 81-08-27/EV L P UPD 80-12-12/SHB f P UPD 80-07-14/JAER P DDUM DEDDIV P PDIV P ENTRY DECONV P P P EXT DEPOOL P EXT TESTB
0x2469fc…246b90 Dummy {f00=0x003b, f01=0x0190, f02=» EXT GETFWD P EXT ADJUST P EXT FDIO ( P EJECT : P* H P* KEYTABLE R P* j PCLR EQU X'8F' CLEAR t PCAN EQU X'91' CANCEL PRET EQU X'98' RETURN PENT EQU X'8C' ENTER P* PKEYTAB KTAB CLR,CAN,RET,EN
0x246b90…246d24 Dummy {f00=0x003b, f01=0x0190, f02=»PAR EQU X'00' P EJECT @ P* THIS MODULE TAKE CARES OF THE DIFFERENT CONVERTIONS- $ P* -METHODS h @ P* ONE OF THEM IS ALREADY PREPAIRED FOR YOUR PRINTOUT). 2 P* THE OTHER YOU HAVE TO CODE YOURSELVES. D P* FORM
0x246d24…246eb8 Dummy {f00=0x003b, f01=0x0190, f02=» = 2 DATACOMMUNICATION IN 8 P* = 3 CASETTE OUTPUT : 8 P* = 4 PRINTOUT LP/GP v 2 P* = 5 DISCFILE : P*
0x246eb8…24704c Dummy {f00=0x003b, f01=0x0190, f02=»= 8 FREEZE BATCHES ON USER FILE n 8 P* = 9 LISTING LP/GP ( 8 P* TYPE = TYPE OF HANDLING d . P* = 1 OPEN : P* = 2 BATCHHEAD-RECORD
0x24704c…2471e0 Dummy {f00=0x003b, f01=0x0190, f02=» = 5 CLOSE 4 P* RETCON = RETURN-CODE * , P* = 0 OK b > P* /= 0 ERROR MESSAGE-NUMBER F P* =-1 SKIP CURR BATC
0x2471e0…247374 (1, 503) Dummy {f00=0x003c, f01=0x0190, f02=»T BATCH (CANCEL) D P* =-4 ABORT CONVERSION (RETURN) < P* =-5 DELETE THIS BATCH ` > P* =-6 GET CURRENT RECORD : P* INPUT VARIABLE: BIN4 = FC
0x247374…247508 Dummy {f00=0x003c, f01=0x0190, f02=»TA,DISCFD,FLOPPY,DELETE,FREEZE,LISTE PRECEIV , PDISCFD : PCASSET H PERROR V * P MOVE RETCON,W4 'FUNCTION NOT ALLOWED? d P B RETURN P* * P* THIS IS THE PRINTOUT FUNCTION P* PPRINTA : P IB TYPE,PR100,PR200
0x247508…24769c Dummy {f00=0x003c, f01=0x0190, f02=»* PPR100 $ P PERF ATTDEV,BIN6 ATTACH DEVICE P BOK DECOOK @ P B RETURN T P EJECT f P* t P* ~ 4 P* PRINTOUT OF THE DIFFERENT RECORD TYPES P* PPR200 P EDWRT DEDSPRT,FCOUNT P BNOK PR298
0x24769c…247830 Dummy {f00=0x003c, f01=0x0190, f02=»UT DEVICE NOT OP....' x P B RETURN GO AND CLOSE P* < * P* CLOSE DEVICE = DETACH PRINTER F P* t PPR500 ~ P PERF DETPRT DETACH DEVICE P B RETURN P EJECT P* 8 P* THIS ROUTINE DELETE BATCHES ON THE USERF
0x247830…2479c4 Dummy {f00=0x003c, f01=0x0190, f02=»(W8),W0,DEL110 NOT THE WHOLE FILE P MOVE DATE,HEX00 RESET DATE * PDEL110 N P B RETURN P EJECT n P* | . P* THIS ROUTINE FREEZE BATCHES ON USER FILE P* P PFREEZE 8 P IB TYPE,FRE100,FRE200,FRE300 OPEN BATCHHEAD DAT
0x2479c4…247b58 Dummy {f00=0x003c, f01=0x0190, f02=» PFRE300 P B DECOOK P* BALANCE RECORD ( PFRE400 @ P B DECOOK N P* CLOSE ` PFRE500 p P B DECOOK ~ P EJECT P* P* OK P* PDECOOK P MOVE RETCON,W0 PRETURN P RET P EJE
0x247b58…247cec Dummy {f00=0x003c, f01=0x0190, f02=» P* P* SEND SOF P* SEND '001'+DATE P* : P D PDC100 L P* Z P* BATCHHEAD RECORD d P* ~ PDC200 PDC300 P* P* TRANSM BLOCKS P* P P* P* SEND '999' P* SEND EOF P
0x247cec…247e80 Dummy {f00=0x003c, f01=0x0190, f02=» 6 P IB TYPE,LS100,LS200,LS300, OPEN,BATCHHEAD,DATA, C P LS400,LS500 BALANCE,CLOSE > P b PLS100 j P TBT LSBAB,LS170 x * P PERF GETBUF GET 3 CONSECUTIVE BUFFERS P B LS110 OK P B LSERR ERROR PLS110 ( P MOVE BCDI21(W5),=
0x247e80…248014 (1, 504) Dummy {f00=0x003c, f01=0x0190, f02=»SEQUENCE NO v " P CLEAR BCONT CONTINUATION MARK P CLEAR BSUPR : P CLEAR SPLITFL NNO SPLIT N * P MOVE BIN6,=X'0036' FILE CODE PRINTER n $ P PERF ATTDEV,BIN6 ATTACH DEVICE P BNOK LSERR P MOVE STRG10A,HEX00 P GETTIME STRG10A
0x248014…2481a8 Dummy {f00=0x003c, f01=0x0190, f02=» ( P MOVE RETCON,=W'-4' ABORT CONVERSION P B LSERRT 4 PLSERR F 0 P MOVE RETCON,=W'35' OUTPUT DEV NOT OPERABLE T PLSERRT P SET LSBAB P B RETURN P* P* BATCHEAD RECORD P* PLS200 P TBT LSBAB,LS170
0x2481a8…24833c Dummy {f00=0x003c, f01=0x0190, f02=»R INDEX p $ P MOVE BIN9,BIN10 GET BPOOL INDEX P ADD BIN9,W1 8 P MOVE BIN8,W0 RESET FIELD NO L P MOVE BIN4,W0 p PLS210 P PERF CONV,BIN4,FC P B DECOOK ALL DONE P B LS210 NOT ALL DONE P B LS315 COMP FIELD EMPTY P
0x24833c…2484d0 Dummy {f00=0x003c, f01=0x0190, f02=» & P MOVE RETCON,=W'-1' GET NEXT BATCH P B RETURN . PLS250 BATCHHEAD OR BALANCE @ P TBT LSBAB,LS170 d P MOVE DEBINW3,W1 | P PRINT DEDSPRT,DEBINW3,W0 P BNOK LSERR P B DECOOK P P PLS300 P TBT FDBAB,LS1
0x2484d0…248664 Dummy {f00=0x003c, f01=0x018e, f02=»FIELD NUMBER | PLS310 P MOVE BIN4,W0 " PLS311 8 P PERF CONV,BIN4,FC F P B DECOOK ALL DONE ` P B LS340 WRITE BLOCKS z P B LS315 CUMP FIELD EMPTY P B LS320 BCD FIELD OVERFLOW " P B LS320 EDIT BUFFER OVERFLOW PLS31
0x248664…2487f8 Dummy {f00=0x003c, f01=0x0190, f02=» P PLS340 P PERF LSWRIT P B LS310 OK 2 P B LS310 DUMMY F P B LS310 DUMMY * P MOVE BIN4,W1 CONTINUE IN SAME BUFFER r P B LS311 P P PLS400 P* BALANCE FORMAT P B LS250 P PLS500
0x2487f8…24898c Dummy {f00=0x003c, f01=0x0190, f02=»BIN4,W0 P PERF DETPRT P* RELEAS BUFFERS $ & P PERF DEPOOL,W6,BIN10,BIN4,STRG10A < P B DECOOK f PLS560 x P MOVE STRG10A,HEX00 P GETTIME STRG10A P MOVE TIME,STRG10A P EDWRT DEDSPRT,FLSERR P B LS550 PLS570
0x24898c…248b20 Dummy {f00=0x003c, f01=0x018e, f02=»CT P* P* FLOPPY DUMPING P* , P 6 PFLOPPY > P MOVE BTYPE,TYPE L 4 P IB TYPE,FD100,FD200,FD300 OPEN,BATCHHEAD,DATA C d P FD400,FD500 BALANCE,CLOSE P P P* P* SEND SOF P* SEND '001'+DATE P*
0x248b20…248cb4 (1, 505) Dummy {f00=0x003c, f01=0x018e, f02=» PFD110 P MOVE CWFD,W7 HDR RECORD P MOVE REQFD,=W'128' 6 6 P CALL FDIO,DSFD,X'A1',BPOOL(BIN10),REQFD,CWFD OPEN R P MOVE BIN4,W20 , P DSC1 DSFD,ATTACH,BIN4 ATTACH DEVICE FD P BNOK FDERR P PERF FDLOAD P B FD140 OK
0x248cb4…248e48 Dummy {f00=0x003c, f01=0x0190, f02=» n ( P MOVE WORK(W17),W0 LENGTH RECORD NO * P MOVE WORK(W19),W0 LENGTH SEQUENCE NO 4 " P CLEAR BCONT CONTINUATION MARK b P CLEAR BSUPR P SET SPLITFL NORMAL SPLIT * P MOVE BIN6,=X'0036' FILE CODE PRINTER $ P PERF ATTDEV,BIN6 ATTACH DEV
0x248e48…248fdc Dummy {f00=0x003c, f01=0x0190, f02=» " P PERF FDRVOL READ VOLUME LABEL P B FD150 OK * P B FDERR ERR > PFD150 R . P IB DEBINW2,FD160,FD180,FD170 CLR,CAN,RET ` P* ENT P PFD160 $ P MOVE STR8A,STR8B SAVE FILE NAME $ P MOVE FDCNT,W1 RESET FD COUNTER $ P P
0x248fdc…249170 Dummy {f00=0x003c, f01=0x018e, f02=» ( P MOVE RETCON,=W'-4' ABORT CONVERSION P B FDERRT 4 P F PFDERR N 0 P MOVE RETCON,=W'35' OUTP. DEV. NOT OPERABLE PFDERRT P SET FDBAB P B RETURN P PFD180 P MOVE CWFD,W7 P MOVE REQFD,=W'128' >
0x249170…249304 Dummy {f00=0x003c, f01=0x0190, f02=» P* P* BATCHEAD RECORD P* ( PFD200 2 P TBT FDBAB,FD170 @ ( P TBF BDAFOR,FD300 ANY FORCED FIELDS? X , P EDWRT DEDSPRT,FBATC3 PRINT ERROR REPORT P SET FDBAB & P MOVE RETCON,=W'-1' GET NEXT BATCH P B RETURN PFD300
0x249304…249498 Dummy {f00=0x003c, f01=0x0190, f02=»08 NO PRINTING PFD305 * P* PRINT BATCH HEAD AND BALANCE RECORD $ P MOVE DEBINW3,W1 R P PRINT DEDSPRT,DEBINW3,W0 j P BNOK FDERR PFD308 * P MOVE BIN10,WORK(W13) GET BUFFER INDEX $ P MOVE BIN9,BIN10 GET BPOOL INDEX P ADD
0x249498…24962c Dummy {f00=0x003c, f01=0x0190, f02=»ECOOK ALL DONE P B FD340 WRITE BLOCKS P B FD315 CUMP FIELD EMPTHY 4 P B FD320 BCD FIELD OVERFLOW V " P B FD320 EDIT BUFFER OVERFLOW z PFD315 P MOVE RETCON,W5 P B FDERRT P PFD320 " P MOVE RETCON,=W'54' EDIT E
0x24962c…2497c0 Dummy {f00=0x003c, f01=0x0190, f02=» FD360 ERROR P B FDEOF05 EOE * P MOVE BIN4,W1 CONTINUE IN SAME BUFFER * P B FD311 X PFD350 h P PERF FDLOAD v P B FD370 OK P B FD360 ERROR PFD360 P MOVE REQFD,=W'128' P MOVE CWFD,W7 8 P CALL FDIO,DSFD,X'B8
0x2497c0…249954 (1, 506) Dummy {f00=0x0076, f01=0x0190, f02=»NW2,FD350,FD360,FD170 CLR,CAN,RET P B FD350 ENT * PFD370 > " P PERF FDRVOL READ VOLUME LABEL L P B FD375 OK r P B FD360 ERROR PFD375 . P IB DEBINW2,FD380,FD360,FD170 CLR,CAN,RET P* ENT P PFD380 $ P PERF FD
0x249954…249ae8 Dummy {f00=0x0076, f01=0x0190, f02=»TCON,=W'-6' GET CURRENT RECORD P B RETURN & P 8 PFDEOF05 @ P SET FDEOF INDICATE EOF P & P MOVE WORK(W14),BIN8 SAVE FIELD NO p P B FD360 P PFDEOF10 P CLEAR FDEOF * P MOVE BIN10,WORK(W13) GET BUFFER INDEX $ P MOV
0x249ae8…249c7c Dummy {f00=0x0076, f01=0x0190, f02=»,W0 > P CALL FDIO,DSFD,X'06',BPOOL(BIN10),REQFD,CWFD WRITE BLOCKS P B FD340 N P EJECT ^ PFD400 l P* BALANCE FORMAT z P B FD300 PFD500 * P MOVE BIN10,WORK(W13) GET BUFFER INDEX P TBT FDBAB,FD560 ABORT $ P MOVE
0x249c7c…249e10 Dummy {f00=0x0076, f01=0x0190, f02=» FD570 OK P B FDERR ERR ! P B FD510 EOE ! & PFD510 ! : P MOVE REQFD,=W'128' ! H P MOVE CWFD,W7 ! d 8 P CALL FDIO,DSFD,X'B8',BPOOL(BIN10),REQFD,CWFD UNLOAD ! z PFD515 ! * P MOVE DEBINW4,=W'55' CHANGE FLOPPYDISK ! P PERF DERROR,KEYTAB !
0x249e10…249fa4 Dummy {f00=0x0076, f01=0x0190, f02=»5 ! " P PERF FDRVOL READ VOLUME LABEL " P B FD530 OK " 0 P B FD510 ERROR " D PFD530 " Z . P IB DEBINW2,FD535,FD510,FD170 CLR,CAN,RET " h P* ENT " PFD535 " $ P PERF FDWVOL WRITE VOLUME LABEL " P B FD540 OK " P B FD510 ERROR " P
0x249fa4…24a138 Dummy {f00=0x0076, f01=0x0190, f02=»05 " PFD550 # P WAIT DSFD # P CLEAR FDBAB # * P MOVE CWFD,W7 HDR SECTOR # > P MOVE REQFD,=W'128' # ^ 8 P CALL FDIO,DSFD,X'B8',BPOOL(BIN10),REQFD,CWFD UNLOAD # z P CLEAR FDEOF RESET EOF # P MOVE CWFD,W7 # P MOVE REQFD,=W'128' # 8 P C
0x24a138…24a2cc Dummy {f00=0x0076, f01=0x0190, f02=»AS BUFFERS # & P PERF DEPOOL,W6,BIN10,BIN4,STRG10A $ P B DECOOK $ < PFD560 $ N P MOVE STRG10A,HEX00 $ P GETTIME STRG10A $ x P MOVE TIME,STRG10A $ P EDWRT DEDSPRT,FFDERR $ P B FD550 $ P $ PFD570 $ P MOVE STRG10A,HEX00 $
0x24a2cc…24a460 Dummy {f00=0x0076, f01=0x0190, f02=»* GETBUF GET TWO CONSECUTIVE BUFFERS $ P* % , P* BUFFER INDEX IN WORK(W13) % 6 P* % Z P % d PGETBUF PROC % l * P MOVE BIN10,W3 TOTAL NUMBER OF BUFFERS % , P MOVE BIN4,W3 NO. OF COSECUTIVE BUFFERS % @ P PERF DEPOOL,W2,BIN10,BIN4,STRG10A GET 3 C
0x24a460…24a5f4 (1, 507) Dummy {f00=0x0077, f01=0x0190, f02=»WORKING BUFFER INDEX % z " P ADD BIN9,W1 INDEX EDIT BUFFER & 4 P MOVE BPOOL(BIN10),=X'00' RESET TRANSMIT BUFFER & B P RET & z PGETBU2 & P RET 2 & P PEND & P EJECT & P* & , P* FDRVOL READ VOLUME LABEL AND DISPLAY & P* & PFDRVOL
0x24a5f4…24a788 Dummy {f00=0x0077, f01=0x018e, f02=»FD,W7 & > P CALL FDIO,DSFD,X'91',BPOOL(BIN13),REQFD,CWFD READ (HDR1) ' P XSTAT DSFD,BIN4 ' P P MOVE BIN7,=X'086F' ' h P CALL MASK,BIN4,BIN7 ' P BNOK FDRV02 ' P MOVE BIN7,=W'66' ' 8 P XCOPY STR6A,W0,W6,BPOOL(BIN13),BIN7 EXPIRATION DATE ' 4
0x24a788…24a91c Dummy {f00=0x0077, f01=0x0190, f02=» ' j P MOVE RECLGD,STR6B ( P MOVE BIN7,=W'45' ( " 6 P XCOPY STR2A,W0,W2,BPOOL(BIN13),BIN7 GET FD NUMBER ( < P ATTFMT FCAS02 ( v P SET DEPROMPT ( P DISPLAY 0,W1,W0 ( P THOME ( & P MOVE DEBINW3,W1 REQUESTED LENGTH ( 2 P NKI .NE,DEDSDYKB,STR1
0x24a91c…24aab0 Dummy {f00=0x0077, f01=0x0190, f02=»EL ( v P* ) P ) P ) PFDWVOL PROC ) $ P MOVE BIN7,=W'66' ) 8 & P MOVE BIN13,BIN10 GET BUFFER INDEX ) R ( P ADD BIN13,W2 ADJUST FOR READ BUFFER ) | * P EDSUB BPOOL(BIN13),BIN7,FRMVOL2 DATE ) P MOVE BIN7,W5 ) 0 P EDSUB BPOOL(BIN13),BIN7,FRM
0x24aab0…24ac44 Dummy {f00=0x0077, f01=0x0190, f02=» ) l P MOVE CWFD,W7 * > P CALL FDIO,DSFD,X'95',BPOOL(BIN13),REQFD,CWFD WRITE (HDR1) * P XSTAT DSFD,BIN4 * ` P MOVE BIN7,=X'024F' * x P CALL MASK,BIN4,BIN7 * P * P BNOK FDWVO2 * & P ADD FDCNT,=D'1' UPDATE FD NUMBER * P MOVE CWFD,=W'26'
0x24ac44…24add8 Dummy {f00=0x0077, f01=0x0190, f02=»WVO2 * P RET 2 + P PEND + P EJECT + ( P* + 6 P* LSWRIT WRITE BLOCKS + @ P* + ^ P + h PLSWRIT PROC + p PLSWR00 + " P* BIN16 NO OF CHARS TO SEND + . P* BIN4 AVAILABLE SPACE IN OUTPUT BUFFER + P* DEBIN3 LENGTH OF HEADER +
0x24add8…24af6c Dummy {f00=0x0077, f01=0x0190, f02=»RD LENGTH + v , P ADD BCDI21(W5),=D'1' ADD 1 TO RECORD NO , . P ADD BCDI21(W4),=D'1' ADD 1 TO SEQUENCE NO , B P CBE BCDI21(W4),=D'1',LSWR50 , t ( P* NOT FIRST TIME (SEQUENCE NO > 1) , , P* COPY HEADER PART, LENGTH IN WORK(W15) , , P SUB BIN4,WORK(W15)
0x24af6c…24b100 Dummy {f00=0x0077, f01=0x0190, f02=»PUT RECORD , n P MOVE DEBIN3,W0 START POINT - P* - 6 PLSWR55 - @ . P CBL BIN16,BIN4,LSWR58 ROOM FOR EVERYTING? - N P NO ROOM - $ P TBT SPLITFL,LSWR57 NORMAL SPLIT - P FIND PRECEDING & - , P MOVE DEBIN1,BIN4 START AT END OF RECORD - " P M
0x24b100…24b294 (1, 508) Dummy {f00=0x0077, f01=0x0190, f02=» MATCH BPOOL(BIN9),DEBIN2,W1,STR2A,W0,W1 - P BNOK LSWR56 NOT FOUND . 0 P MOVE BIN15,DEBIN2 . N P B LSWR59 . h P*NORMAL SPLIT . z PLSWR57 . P MOVE BIN15,BIN4 . P B LSWR59 . ( P* NO OF CHARS, FIT IN AVAILABLE ROOM . PLSWR58 . $ P MOVE
0x24b294…24b428 Dummy {f00=0x0077, f01=0x0190, f02=»S INTO REMAINING PART OF OUTPUT BUFFER . * P* BIN4 = NO OF CHARS IN OUTPUT BUFFER / . P MOVE BIN4,BIN15 / P ADD BIN4,DEBIN3 ADD HEADER / t P* / P MOVE DEBIN1,RECLGD / " P SUB DEBIN1,BIN4 NO OF BLANKS / B P XCOPY BPOOL(BIN10),BIN4,DEBIN1,BPOO
0x24b428…24b5bc Dummy {f00=0x0077, f01=0x0190, f02=»H ZERO / j . P MOVE STRG10A,BCDI21(W5) CONVERT RECORD NO 0 " P MOVE DEBIN1,W10 LENGTH FIELD 0 @ * P SUB DEBIN1,WORK(W17) FIND START OF NO 0 f : P XCOPY BPOOL(BIN10),WORK(W16),WORK(W17),STRG10A,DEBIN1 0 P* 0 PLSWR70 0 ( P* INSERT SEQUENCE NO - BCDI
0x24b5bc…24b750 Dummy {f00=0x0077, f01=0x0190, f02=»ENGTH FIELD 0 ~ , P SUB DEBIN1,WORK(W19) FIELD START OF NO 1 : P XCOPY BPOOL(BIN10),WORK(W18),WORK(W19),STRG10A,DEBIN1 1 D P* 1 PLSWR80 1 P* HANDLE END OF RECORD 1 * P CBG BIN16,BIN15,LSWR100 NO ROOM, CONT 1 P* INSERT EOR 1 P B LSWRSEND 1
0x24b750…24b8e4 Dummy {f00=0x0077, f01=0x0190, f02=»SEND 1 b P SUB BIN16,BIN15 2 P MOVE BIN13,BIN16 2 $ P CMP VSEIND,W1 2 > $ P BE LSWR00 WRITE RESET OF BUFFER 2 T P RET 6 2 | P* 2 PLSWRSEND 2 P WRITE DEDSPRT,BPOOL(BIN10) 2 PLSWRRET 2 P RET 2 P PEND 2 P EJECT 2 P* 2
0x24b8e4…24ba78 Dummy {f00=0x0077, f01=0x0190, f02=»ALL TESTB,BIN4,W2 EOE 2 P BZ FDWR10 3 P RET 4 END OF EXTENT 3 0 PFDWR10 3 L P MOVE BIN7,=X'024F' 3 Z P CALL MASK,BIN4,BIN7 3 v P BERR FDWR20 3 4 P IB BTYPE,FDWROP,FDWRHD,FDWRDATA,FDWRBAL,FDWRCL 3 PFDWROP 3 PFDWRCL 3 P B FDWR20 3
0x24ba78…24bc0c Dummy {f00=0x0077, f01=0x0190, f02=»W0,BIN4,BPOOL(BIN9),W0 3 | P B FDWRSEND 4 P* 4 2 PFDWRDATA 4 < " P* BIN16 NO OF CHARS TO SEND 4 L . P* BIN4 AVAILABLE SPACE IN OUTPUT BUFFER 4 r P* DEBIN3 LENGTH OF HEADER 4 . P* BIN15 ACTUAL LENGTH OF INPUT DATA USED 4 P CMP BIN16,W0 4
0x24bc0c…24bda0 Dummy {f00=0x0077, f01=0x0190, f02=» ADD BCDI21(W4),=D'1' ADD 1 TO SEQUENCE NO 4 P CBE BCDI21(W4),=D'1',FDWR50 5 2 ( P* NOT FIRST TIME (SEQUENCE NO > 1) 5 V , P* COPY HEADER PART, LENGTH IN WORK(W15) 5 , P SUB BIN4,WORK(W15) MAKE ROOM FOR HEADER 5 & P MOVE DEBIN3,WORK(W15) START POINT 5
0x24bda0…24bf34 (1, 509) Dummy {f00=0x0093, f01=0x0190, f02=» 5 PFDWR55 6 0 P CBL BIN16,BIN4,FDWR58 ROOM FOR EVERYTHING? 6 P NO ROOM 6 J $ P TBT SPLITFL,FDWR57 NORMAL SPLIT 6 P FIND PRECEDING & 6 , P MOVE DEBIN1,BIN4 START AT END OF RECORD 6 " P MOVE STR2A,=C'&&' LOOK FOR & 6 PFDWR56 6 P SUB
0x24bf34…24c0c8 Dummy {f00=0x0093, f01=0x0190, f02=»FDWR56 NOT FOUND 6 P MOVE BIN15,DEBIN2 7 P B FDWR59 7 2 0 P* NORMAL SPLIT, USE COMPLETE AVAILABLE ROOM 7 D PFDWR57 7 x P MOVE BIN15,BIN4 7 P B FDWR59 7 ( P* NO OF CHARS, FIT IN AVAILABLE ROOM 7 PFDWR58 7 $ P MOVE BIN15,BIN16 SEND ALL CHA
0x24c0c8…24c25c Dummy {f00=0x0093, f01=0x0190, f02=» OUTPUT BUFFER 7 l * P* BIN4 = NO OF CHARS IN OUTPUT BUFFER 8 P MOVE BIN4,BIN15 8 D P ADD BIN4,DEBIN3 ADD HEADER 8 P* 8 P MOVE DEBIN1,RECLGD 8 " P SUB DEBIN1,BIN4 NO OF BLANKS 8 B P XCOPY BPOOL(BIN10),BIN4,DEBIN1,BPOOL(BIN9),BIN16 MOVE BLANK
0x24c25c…24c3f0 Dummy {f00=0x0093, f01=0x0190, f02=»10A,BCDI21(W5) CONVERT RECORD NO 8 " P MOVE DEBIN1,W10 LENGTH FIELD 9 ( * P SUB DEBIN1,WORK(W17) FIND START OF NO 9 N : P XCOPY BPOOL(BIN10),WORK(W16),WORK(W17),STRG10A,DEBIN1 9 | P* 9 PFDWR70 9 ( P* INSERT SEQUENCE NO - BCDI21(W4) 9 0 P CBE WORK(
0x24c3f0…24c584 Dummy {f00=0x0093, f01=0x0190, f02=» DEBIN1,WORK(W19) FIELD START OF NO 9 : P XCOPY BPOOL(BIN10),WORK(W18),WORK(W19),STRG10A,DEBIN1 : , P* : j PFDWR80 : t P* HANDLE END OF RECORD : 2 P CBG BIN16,BIN15,FDWR100 NO ROOM, CONTINUATION : P* INSERT EOR : P MOVE STR2A,=X'7F' EOR CHA
0x24c584…24c718 Dummy {f00=0x0093, f01=0x0190, f02=» CHAR NEEDED : x P TBF BCONT,FDWR150 ; P* CONTINUATION ; . P MOVE DEBIN1,RECLGD ; F P CBNE BIN4,DEBIN1,FDWR140 ; b P SUB BIN4,W1 ; P SUB BIN15,W1 ; PFDWR140 ; ( P MOVE STR2A,=X'21' CONTINUATION MARK ; ( P XCOPY BPOOL(BIN10),BIN4,W1,ST
0x24c718…24c8ac Dummy {f00=0x0093, f01=0x0190, f02=»OVE CWFD,W0 ; 6 P DELETE BPOOL(BIN9),CWFD,BIN15 DELETE WHAT IS SEND < P SUB BIN16,BIN15 < N P MOVE BIN13,BIN16 < f P CMP VSEIND,W1 < $ P BE FDWR00 WRITE REST OF BUFFER < P RET 6 < P* < PFDWRBAL < 4 P MOVE BPOOL(BIN10),=X'00' INITIATE
0x24c8ac…24ca40 Dummy {f00=0x0093, f01=0x018e, f02=»RSEND < P* = P* = PFDWRSEND = " P MOVE REQFD,=W'128' = 2 P MOVE CWFD,W0 = N > P CALL FDIO,DSFD,X'06',BPOOL(BIN10),REQFD,CWFD WRITE BLOCKS = d PFDWRRET = P RET = PFDWR20 = P RET 2 = P PEND = P EJECT = P* = P* F
0x24ca40…24cbd4 (1, 510) Dummy {f00=0x0093, f01=0x0190, f02=» 6 P CALL FDIO,DSFD,X'B7',BPOOL(BIN10),REQFD,CWFD LOAD > P XSTAT DSFD,BIN4 > > P CALL TESTB,BIN4,W5 IBM > V P BZ FDLOA2 > v P MOVE BIN7,=X'000F' > P CALL MASK,BIN4,BIN7 > P BNOK FDLOA2 > P RET > PFDLOA2 > P MOVE CWFD,W7 HDR RECORD >
0x24cbd4…24cd68 Dummy {f00=0x0093, f01=0x0190, f02=»* > 8 P* CONVERSI0N OF DATA ENTRY RECORDS TO BPOOL BUFFER ? P* RET =RECORD CONVERTED ? F P* RET 2 =TRANSMIT ? h & P* RET 4 =CUMPULSORY FIELD EMPTHY ? P* RET 6 =BCD-FIELD OVERFLOW ? " P* RET 8 =EDIT BUFFER OVERFLOW ? P* ? $ P* APPL
0x24cd68…24cefc Dummy {f00=0x0093, f01=0x0190, f02=»= 3 SUPPRESS LEADING ZEROES (IF HEADER:SETR GENEREL) ? @ P* APPL = 4 LENGTH OF FIELD=MAXL (IF HEADER: SET GENERAL) @ > " P* LISTE: ALWAYS SET @ . P* FOLLOWING APPL ONLY USED IN BATCHHEADER @ 0 P* APPL = 13 EOR-CHAR AS END OF EACH RECORD @
0x24cefc…24d090 Dummy {f00=0x0093, f01=0x0190, f02=» LISTE: ALWAYS CLEAR @ 0 P* APPL = 15 INSERT BACHNAME IN THIS FIELD A 8 P* APPL = 16 FIELDS (STARTING WITH &) ARE NOT SPLIT A R & P* LSTE: ALWAYS CLEAR A P* A 0 P* APPL = 1XXX XXX=LENGTH OF RECORD HEADER A : P* APPL = 2XXX T
0x24d090…24d224 Dummy {f00=0x0093, f01=0x0190, f02=»IN4 = WORK ITEM A P* BIN7 = MAX LENGTH B P* BIN8 = FIELD NUMBER B 4 " P* BIN9 = INDEX TO EDIT BUFFER B R " P* BIN13= DELETE START POINTER B x P* BIN16= EDIT POINTER B P* B 4 P* BIN15 = NO OF CHAR INSERTED IN OUTPUT RECORD B 8 P* STRG10A
0x24d224…24d3b8 Dummy {f00=0x0093, f01=0x0190, f02=»* WORK(W17) = RECORD NUMBER LENGTH B 2 P* WORK(W18) = CONTINUATION SEQUENCE POSITION C , 0 P* WORD(W19) = CONTINUATION SEQUENCE LENGTH C b 0 P* BCDI21(W4) = CONTINUATION SEQUENCE NUMBER C " P* BCDI21(W5) = RECORD NUMBER C P* C PCONV PROC CONT
0x24d3b8…24d54c Dummy {f00=0x0093, f01=0x0190, f02=»BIN13,W0 RESET DELETE POINTER C ( P MOVE BIN16,BIN13 LOAD EDIT POINTER D & PCON100 D R P CLEAR FSUPR D ` P TBF BSUPR,CON105 D t P SET FSUPR D PCON105 D $ P ADD BIN8,W1 UPDATE FIELD NUMBER D " P CALL GETFWD,BIN7,2,BIN8,BIN4 D P CALL ADJUST
0x24d54c…24d6e0 Dummy {f00=0x0093, f01=0x0190, f02=»EIND GET APPL D P* E 2 P CBL VSEIND,=W'1000',CON131 NORMAL APPL VALUE E 6 P CBL VSEIND,=W'2000',APL1000 HANDLE RECORD HEADER E V 2 P CBL VSEIND,=W'3000',APL2000 HANDLE RECORD NO E 4 P CBL VSEIND,=W'4000',APL3000 HANDLE SEQUENCE NO E $ P MOVE VSEI
0x24d6e0…24d874 (1, 511) Dummy {f00=0x0093, f01=0x018e, f02=»R E b PAPL1000 F P SUB VSEIND,=W'1000' F 8 P MOVE WORK(W15),VSEIND WORK(W15) = LENGTH OF HEADER F 6 P B CON100 F r P* F . P* HANDLE POSITION AND LENGTH OF RECORD NO F PAPL2000 F 4 P MOVE WORK(W16),BIN16 SET START POS OF RECORD NO F $ P
0x24d874…24da08 Dummy {f00=0x0093, f01=0x0190, f02=» P B CON131 FURTHER HANDLING G P* G & 0 P* HANDLE POSITION AND LENGTH OF SEQUENCE NO G 0 PAPL3000 G d < P MOVE WORK(W18),BIN16 SET START POSITION OF SEQUENCE NO G t $ P GETCTL 1,BIN7 GET MAXL OF FIELD G 2 P MOVE WORK(W19),BIN7 SET LENGTH OF SEQUENCE
0x24da08…24db9c Dummy {f00=0x0093, f01=0x0190, f02=»BNE BTYPE,W3,CON150 G P* DATA RECORD H * P IB VSEIND,CON132,CON100,CON135,CON140 H 6 PCON132 H d P B CON190 H r P* H PCON135 H P* SUPPRESS LEADING ZEROES H P SET FSUPR H P B CON190 H P* H PCON140 H P* NO SUPPRESS
0x24db9c…24dd30 Dummy {f00=0x0093, f01=0x0190, f02=»ND,CON152,CON100,CON155,CON160,CON152, C H , P CON152,CON152,CON152,CON152,CON152, C I 2 0 P CON152,CON152,CON165,CON170,CON175,CON180 I b PCON152 I P B CON190 I P* I PCON155 I ( P* GENERAL SUPPRESS LEADING ZEROES I P SET BSUPR I
0x24dd30…24dec4 Dummy {f00=0x0093, f01=0x0190, f02=» I P B CON100 J P* J PCON165 J $ P* EOR CHARACTER J 2 P B CON100 J J P* J PCON170 J f P* CONTINUATION CHARACTER J t * P CBE FC,W9,CON100 LISTE: ALWAYS CLEAR J * P SET BCONT INDICATE CONT. CHAR NEEDED J P B CON100 J P* J
0x24dec4…24e058 Dummy {f00=0x0093, f01=0x0190, f02=»4,BIN16 J 6 P EDSUB BPOOL(BIN9),BIN16,FMTBATCH INSERT BATCHNAME K P B CON260 K J P* K PCON180 K f , P* FIELDS (STARTING WITH &) ARE NOT SPLIT K t $ P CLEAR SPLITFL NOT NORMAL SPLIT K P B CON100 K P* K P* K P K PCON190 K 0 P
0x24e058…24e1ec Dummy {f00=0x0093, f01=0x0190, f02=»PTY, IGNORE FIELD K PCON195 L P GETCTL 1,BIN7 GET MAXL L ( P TSTCTL 0 TEST - ALPHA L H P BZ CON200 BCD L f P L | P* ALPHA L P L * P MOVE BIN4,W188 GET EDIT BUFFER LENGTH L * P SUB BIN4,BIN7 ADJUST WITH MAX LENGTH L , P SUB BIN4,BIN16
0x24e1ec…24e380 Dummy {f00=0x0093, f01=0x0190, f02=» L P M PCON200 M & P CBG BIN7,W21,CONER2 BCD-OVERFLOW M * P MOVE BIN4,W188 GET EDIT BUFFER LENGTH M H * P SUB BIN4,BIN7 ADJUST WITH MAX LENGTH M v , P SUB BIN4,BIN16 ADJUST WITH EDIT POINTER M P BN CONER3 M P GETCTL 3,BIN4 GET SCHK M P C
0x24e380…24e514 (1, 512) Dummy {f00=0x0093, f01=0x0190, f02=»S M r P MOVE BIN13,BIN16 N P B CON280 N $ PCON205 IF LISTE N 6 2 P EDSUB BPOOL(BIN9),BIN16,FRMZCD EDIT 21 DIGITS N P P B CON215 N PCON210 N 2 P EDSUB BPOOL(BIN9),BIN16,FRMBCS EDIT 21 DIGITS N PCON215 N & P MOVE BIN4,W22 SET PICTURE LEN
0x24e514…24e6a8 Dummy {f00=0x0093, f01=0x018e, f02=» $ P EDSUB BPOOL(BIN9),BIN16,FRMTCD O P MOVE BIN13,BIN16 O , P B CON280 O F PCON225 IF LISTE O X $ P EDSUB BPOOL(BIN9),BIN16,FRMZCD O r P B CON235 O PCON230 O $ P EDSUB BPOOL(BIN9),BIN16,FRMBCS O PCON235 O $ P MOVE BIN4,W21 SET PICUT
0x24e6a8…24e83c Dummy {f00=0x0093, f01=0x0190, f02=» O . P ADD BIN13,BIN7 ADJUST DELETE/EDIT POINTER P ( P MOVE BIN16,BIN13 LOAD EDIT POINTER P : PCON280 P f P CBNE FC,W9,CON290 P t : P EDSUB BPOOL(BIN9),BIN16,FRMFILL LISTE: INSERT FILLER P P MOVE BIN13,BIN16 P PCON290 P ( P CBE VSEIND,W1,CONTR
0x24e83c…24e9d0 Dummy {f00=0x0093, f01=0x0190, f02=»DONE P & PCONTRM RET 2 WRITE/TRANSMIT BLOCK Q ( PCONER1 RET 4 CUMPULSORY FIELD EMPTHY Q 6 $ PCONER2 RET 6 BCD FIELD OVERFLOW Q b & PCONER3 RET 8 EDIT BUFFER OVERFLOW Q P PEND Q P EJECT Q P* Q P* FORMATS Q P* Q PFRMFILL FRMT Q
0x24e9d0…24eb64 Dummy {f00=0x0093, f01=0x0190, f02=» Q P FILLR '*',10 R P FTEXT 'NUMBER: ' R P FMEL '9999',NUMBER R 8 P FEOR R T P FILLR ' ',2 R b P FEOR R v P FMEND R P R PFRMSOF FRMT R P FSL R P FCOPY =X'1D' R P FILLR ' ',62 R P FILLR ' ',62 R P FMEND R
0x24eb64…24ecf8 Dummy {f00=0x0093, f01=0x0190, f02=» FRMT R P FSL S P FLINK FFD001 S P FMEND S 0 P S > PFRMVOL1 FRMT S F P FCOPY STR8A S Z P FMEND S n PFRMVOL2 FRMT S | P FMEL '999999',DATE S P FMEND S PFRMVOL3 FRMT S P FMEL '99',FDCNT S P FMEND S P S PFBATC1 FRMT
0x24ecf8…24ee8c Dummy {f00=0x0093, f01=0x0190, f02=»TCH S P FTEXT 'NUMBER: ' T P FMEL '9999',BCD13A T & P FILLR ' ',4 T B P FTEXT 'MISST[MMER' T V P FEOR T r P FNL T P FMEND T P T PFBATC3 FRMT T P FLINK FBATCH T P FTEXT 'EJ GODKENDT' T P FEOR T P FMEND T P T
0x24ee8c…24f020 Dummy {f00=0x0093, f01=0x018e, f02=» 'BATCHNAME: ' T P FCOPY BATCH U P FILLR ' ',4 U * P FMEND U > P U L PFMTBATCH FRMT U T P FCOPY BATCH U j P FMEND U ~ P U PFDCHDR FRMT U P FNL U P FEOR U P FNL U P FTEXT 'S[NDNING' U P FLINK HDR U P FMEND U P
0x24f020…24f1b4 (1, 513) Dummy {f00=0x00a8, f01=0x0190, f02=» P FNL V P FMEND V P V PFDCERR FRMT V & P FNL V : P FEOR V F P FNL V T P FTEXT 'S[NDNING' V ` P FTEXT ' AVBRYTS' V z P FLINK HDR V P FEOR V P FNL V P FMEND V P V PFFDHDR FRMT V P FNL V P FEOR V P FNL
0x24f1b4…24f348 Dummy {f00=0x00a8, f01=0x018e, f02=» V " P FTEXT 'FLOPPY DISC SKRIVNING' W P FTEXT ' KLAR' W . P FLINK HDR W D P FEOR W V P FNL W d P FMEND W p P W ~ PFFDERR FRMT W P FNL W P FEOR W P FNL W " P FTEXT 'FLOPPY DISC SKRIVNING' W P FTEXT ' AFBRYDES' W P FLINK H
0x24f348…24f4dc Dummy {f00=0x00a8, f01=0x0190, f02=» W | P FLINK HDR X P FMEND X P X ( PFLSEND FRMT X 0 P FNL X D P FEOR X P P FNL X ^ P FTEXT 'LISTNING KLAR' X j P FLINK HDR X P FEOR X P FNL X P FMEND X P X PFLSERR FRMT X P FNL X P FEOR X P FNL X P FTE
0x24f4dc…24f670 Dummy {f00=0x00a8, f01=0x018e, f02=»XT 'DATO: ' X P FMEL '99-99-99',DATE Y P FILLR ' ',4 Y 2 P FTEXT 'TID: ' Y F P FMEL '99-99-99',TIME Y P FEOR Y z P FNL Y P FTEXT 'IND: ' Y P FMEL '99999',NUMBER Y P FTEXT ' UD: ' Y P FMEL '99999',BCDI21(W5) Y P FEOR Y
0x24f670…24f804 Dummy {f00=0x00a8, f01=0x0190, f02=» P FCOPY STSAVE(W3) Z P FTAB 20 Z P FCOPY =C'FILE' Z . P FILLR '-',1 Z F P FCOPY =C'NAME' Z Z P FILLR ':',1 Z r P FINP 32 Z P FCOPY STR8B Z P FNL Z P FCOPY =C'EXPIRATION DATE:' Z P FINP 32 Z P FCOPY STR6A Z P FNL Z (
0x24f804…24f998 Dummy {f00=0x00a8, f01=0x0190, f02=» FINP 32 Z P FCOPY STR2A [ P FNL [ $ P FKI 1 [ 0 P FCOPY HEX00 [ > P FMEND [ R P EJECT [ ` PFRMC99 FRMT [ n P FSL [ P FLINK FFD999 [ P FMEND [ P [ PFFD001 FRMT [ P FCOPY =C'001' [ P FMEL '999999',DATE [ P FILLR '
0x24f998…24fb2c Dummy {f00=0x00a8, f01=0x018e, f02=»ILLR ' ',60 [ P FILLR ' ',62 P FMEND * P EJECT 8 PFRMALP FRMT F P FCOPY :FMTITEM Z P FMEND r P P PFRMBCD FRMT * P FMEL '999999999999999999999',:FMTITEM P FMEND P PFRMTCD FRMT * P FMEL 'TTTTT
0x24fb2c…24fcc0 Dummy {f00=0x00a8, f01=0x410e, f02=» P ] PFRMZCD FRMT ] , P FMEL 'BBBBBBBBBBBBBBBBBBBB9-',:FMTITEM ] PFRMBCS FRMT ] P , P FMEL '999999999999999999999-',:FMTITEM ] d P FMEND ] P ] P ] PFRMTID FRMT ] P FMEL '999',BCD13A ] P FMEND ] P ] P ] P END ] @
0x24fcc0…24fe54 (1, 514) Dummy {f00=0x00a8, f01=0x2008, f02=» ^ 0 & " ADD DEBIN2,W1 UPDATE FIELD NUMBER GETFLD 2,DEBIN2,DEBIN3 < BOK DEC130 BN DEC900 ALL FIELD DONE p & ! B DEC920 COMPULSORY FIELD EMPTHY DEC130 GETCTL 0,DEBIN5 GET APPL @ MOVE DEBINW1,DEBIN4 LOA
0x24fe54…24ffe8 Dummy {f00=0x00a8, f01=0x0190, f02=» & > P CALL FDIO,DSFD,X'91',BPOOL(BIN13),REQFD,CWFD READ (HDR1) ' P XSTAT DSFD,BIN4 ' J P MOVE BIN7,=X'086F' ' b P CALL MASK,BIN4,BIN7 ' ~ P BNOK FDRV02 ' P MOVE BIN7,=W'66' ' 8 P XCOPY STR6A,W0,W6,BPOOL(BIN13),BIN7 EXPIRATION DATE ' 4 P XCO
0x24ffe8…25017c Dummy {f00=0x00a8, f01=0x018e, f02=» MOVE RECLGD,STR6B ' P MOVE BIN7,=W'45' ( 6 P XCOPY STR2A,W0,W2,BPOOL(BIN13),BIN7 GET FD NUMBER ( 4 P ATTFMT FCAS02 ( n P SET DEPROMPT ( P DISPLAY 0,W1,W0 ( P THOME ( & P MOVE DEBINW3,W1 REQUESTED LENGTH ( 2 P NKI .NE,DEDSDYKB,STR1A,KEYTAB
0x25017c…250310 Dummy {f00=0x00a8, f01=0x018e, f02=» P* ) P ) P ) PFDWVOL PROC ) P MOVE BIN7,=W'66' ) 2 & P MOVE BIN13,BIN10 GET BUFFER INDEX ) L ( P ADD BIN13,W2 ADJUST FOR READ BUFFER ) v * P EDSUB BPOOL(BIN13),BIN7,FRMVOL2 DATE ) P MOVE BIN7,W5 ) 0 P EDSUB BPOOL(BIN13),BIN7,FRMVOL1 V
0x250310…2504a4 Dummy {f00=0x00a8, f01=0x0190, f02=» P MOVE CWFD,W7 * > P CALL FDIO,DSFD,X'95',BPOOL(BIN13),REQFD,CWFD WRITE (HDR1) * P XSTAT DSFD,BIN4 * P MOVE BIN7,=X'024F' * t P CALL MASK,BIN4,BIN7 * P * P BNOK FDWVO2 * & P ADD FDCNT,=D'1' UPDATE FD NUMBER * P MOVE CWFD,=W'26' HDR
0x2504a4…250638 Dummy {f00=0x00a8, f01=0x0190, f02=» * P RET 2 + P PEND + P EJECT + $ P* + 2 P* LSWRIT WRITE BLOCKS + < P* + Z P + d PLSWRIT PROC + l PLSWR00 + " P* BIN16 NO OF CHARS TO SEND + . P* BIN4 AVAILABLE SPACE IN OUTPUT BUFFER + P* DEBIN3 LENGTH OF HEADER + . P
0x250638…2507cc Dummy {f00=0x00a8, f01=0x0190, f02=»ENGTH + r , P ADD BCDI21(W5),=D'1' ADD 1 TO RECORD NO , . P ADD BCDI21(W4),=D'1' ADD 1 TO SEQUENCE NO , > P CBE BCDI21(W4),=D'1',LSWR50 , p ( P* NOT FIRST TIME (SEQUENCE NO > 1) , , P* COPY HEADER PART, LENGTH IN WORK(W15) , , P SUB BIN4,WORK(W15) MAKE
0x2507cc…250960 Dummy {f00=0x00a8, f01=0x0190, f02=»RECORD , j P MOVE DEBIN3,W0 START POINT - P* - 2 PLSWR55 - < . P CBL BIN16,BIN4,LSWR58 ROOM FOR EVERYTING? - J P NO ROOM - | $ P TBT SPLITFL,LSWR57 NORMAL SPLIT - P FIND PRECEDING & - , P MOVE DEBIN1,BIN4 START AT END OF RECORD - " P MOVE
0x250960…250af4 (1, 515) Opaque[0x194]
0x250af4…250c88 # DirEnt {nam=»NJ «, typ=»UF«, f00=0x0000, f01=0x0000, f02=0x0ef0, f03=0x0000}
0x250af4…250c88 IdxSect {
0x250af4…250c88 f00 = 0x0077 // 0x250af4 @0x0
0x250af4…250c88 f01 = 0x0002 // 0x250af6 @0x2
0x250af4…250c88 gno = [ // 0x250af8 @0x4
0x250af4…250c88 [0x00]: C0x0077.0x2.0
0x250af4…250c88 ]
0x250af4…250c88 }
0x250c88…250e1c Dummy {f00=0x0077, f01=0x0084, f02=» ASG 2,LP0F PTRA DEDDIV PSCR ( PTRA DECONV 4 KPF /O F SCR T ASG /E0,DK,DELINK ` $ASG2 z ( PTCUADR BIN X'6040' TCU LINE ADDRESS 0 $ PREQLEN BIN REQUESTED LENGTH DC 0 PDCWRK BIN DC TASK WORK 0 $ PTSKADR BIN X
0x250e1c…250fb0 Dummy {f00=0x0077, f01=0x2008, f02=» 2,LP0F PTRA DEDDIV PSCR ( PTRA DECONV 4 KPF /O F SCR T ASG /E0,DK,DELINK ` $ASG2 z ( PTCUADR BIN X'6040' TCU LINE ADDRESS 0 $ PREQLEN BIN REQUESTED LENGTH DC 0 PDCWRK BIN DC TASK WORK 0 $ PTSKADR BIN X
0x250fb0…251144 Dummy {f00=0x0077, f01=0x018e, f02=»********************************************************** P EJECT B P DDIV P P TERM T1 ^ P UWB CB1 n P CWB CB2 ~ P CWB CB3 P CWB CB4 P CWB CB5 P TWB TB2 P TWB TB3 P TWB TB4 P TWB TB5 P TWB TB1
0x251144…2512d8 Dummy {f00=0x0077, f01=0x0190, f02=» P* DATA-SETS P* " P* , P* 6 PDISK DSET FC=D0,DEV=DU @ PDEDSDYKB DSET FC=20 ^ PDEDSSCRN DSET FC=50 z PDEDSPRT DSET FC=36 PDSDCFD DSET FC=61,DEV=DC SHB PDSFD DSET FC=F8,DEV=FD SHB ( P FMTCTL INDS=DEDSD
0x2512d8…25146c Dummy {f00=0x0077, f01=0x0190, f02=»00 P EJECT P* P* TERMINAL-BLOCK: 1 " P* D ( P* USAGE: DATA RECORD STORING N P* z PTB1 BLK PRBUF STRG 256 RECORD AREA * POVERFLOW STRG 10 OVERFLOWAREA FOR RBUF P EJECT P* P* TER
0x25146c…251600 Dummy {f00=0x0077, f01=0x018e, f02=»1 DBLK " PFDVBCD BCDI (8),5 1=PAGE SIZE P 2=LINE NUMBER 4 P 3=PAGE NUMBER L P 4=FIELDNR d P 5=FIELDSTART x P 6=FIELDLENGTH P 7=MINIMUMLENGTH P 8=USED RECORD SPACE PLDES STRG 80 LINE DESIGN PLDISP ST
0x251600…251794 (1, 516) Opaque[0x194]
0x251794…251928 # DirEnt {nam=»EVCONV«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x07a0, f03=0x0000}
0x251794…251928 IdxSect {
0x251794…251928 f00 = 0x003d // 0x251794 @0x0
0x251794…251928 f01 = 0x001a // 0x251796 @0x2
0x251794…251928 gno = [ // 0x251798 @0x4
0x251794…251928 [0x00]: C0x003d.0x0.0
0x251794…251928 [0x01]: C0x003e.0x1.0
0x251794…251928 [0x02]: C0x003e.0x2.0
0x251794…251928 [0x03]: C0x003e.0x3.0
0x251794…251928 [0x04]: C0x00a5.0x0.0
0x251794…251928 [0x05]: C0x00a5.0x1.0
0x251794…251928 [0x06]: C0x00a5.0x2.0
0x251794…251928 [0x07]: C0x00a5.0x3.0
0x251794…251928 [0x08]: C0x00a6.0x0.0
0x251794…251928 [0x09]: C0x00ac.0x2.0
0x251794…251928 [0x0a]: C0x00ac.0x3.0
0x251794…251928 [0x0b]: C0x00ad.0x0.0
0x251794…251928 [0x0c]: C0x00ad.0x1.0
0x251794…251928 ]
0x251794…251928 }
0x251928…251abc Dummy {f00=0x003d, f01=0x0190, f02=» . P IDENT DECONV REL=1.0 VER=1 82-03-27/EV P UPD 82-02-22/EV 6 P UPD 81-08-27/EV P P UPD 80-12-12/SHB j P UPD 80-07-14/JAER P DDUM DEDDIV P PDIV P ENTRY DECONV P P P EXT DEPOOL P EXT TESTB
0x251abc…251c50 Dummy {f00=0x003d, f01=0x018e, f02=» P EXT GETFWD P EXT ADJUST P EXT FDIO , P EJECT > P* L P* KEYTABLE V P* n PCLR EQU X'8F' CLEAR x PCAN EQU X'91' CANCEL PRET EQU X'98' RETURN PENT EQU X'8C' ENTER P* PKEYTAB KTAB CLR,CAN,RE
0x251c50…251de4 Dummy {f00=0x003d, f01=0x0190, f02=» PTRPAR EQU X'00' P EJECT @ P* THIS MODULE TAKE CARES OF THE DIFFERENT CONVERTIONS- * P* -METHODS n @ P* ONE OF THEM IS ALREADY PREPAIRED FOR YOUR PRINTOUT). 2 P* THE OTHER YOU HAVE TO CODE YOURSELVES. P*
0x251de4…251f78 Dummy {f00=0x003d, f01=0x0190, f02=» T > P* = 2 DATACOMMUNICATION IN 8 P* = 3 CASETTE OUTPUT J 8 P* = 4 PRINTOUT LP/GP 2 P* = 5 DISCFILE : P*
0x251f78…25210c Dummy {f00=0x003d, f01=0x0190, f02=» = 8 FREEZE BATCHES ON USER FILE ~ 8 P* = 9 LISTING LP/GP 8 P* t 8 P* TYPE = TYPE OF HANDLING ~ . P* = 1 OPEN : P*
0x25210c…2522a0 Dummy {f00=0x003d, f01=0x0190, f02=»E RECORD d 0 P* = 5 CLOSE P* D 4 P* RETCON = RETURN-CODE N , P* = 0 OK > P* /= 0 ERROR MESSAGE-NUMBER F P*
0x2522a0…252434 (1, 517) Dummy {f00=0x003e, f01=0x0190, f02=» =-3 RESTART CURRENT BATCH (CANCEL) D P* =-4 ABORT CONVERSION (RETURN) < < P* =-5 DELETE THIS BATCH > P* =-6 GET CURRENT RECORD P*
0x252434…2525c8 Dummy {f00=0x003e, f01=0x018e, f02=»*********************** X P EJECT PDECONV PROC FC,TYPE,RETCON . 6 P IB FC,TRANSM,RECEIV,CASSET JUMP ON DEVICE-CLASS C P . P PRINTA,DISCFD,FLOPPY,DELETE,FREEZE,LISTE PRECEIV PDISCFD PCASSET PERROR * P MOVE RETCON,W4 'FUN
0x2525c8…25275c Dummy {f00=0x003e, f01=0x018e, f02=» : P IB TYPE,PR100,PR200,PR200 JUMP ON TYPE 0F HANDLING C P PR200,PR500 B P B ERROR X P* h * P* OPEN DEVICE = ATTACH PRINTER r P* PPR100 $ P PERF ATTDEV,BIN6 ATTACH DEVICE P BOK DECOOK P B RETURN P E
0x25275c…2528f0 Dummy {f00=0x003e, f01=0x0190, f02=» x P BNOK PR298 P MOVE DEBINW3,W1 P PRINT DEDSPRT,DEBINW3,W0 4 P BNOK PR298 V P B DECOOK j PPR298 | 2 P MOVE RETCON,=W'35' OUTPUT DEVICE NOT OP....' P B RETURN GO AND CLOSE P* * P* CLOSE DEVICE = DETACH PR
0x2528f0…252a84 Dummy {f00=0x003e, f01=0x0190, f02=»ELETE BATCHES ON THE USERFILE z P* & PDELETE 0 P IB TYPE,DECOOK,DEL100 > P B DECOOK PDEL100 n P MOVE RETCON,=W'-5' | 0 P CBNE WORK(W8),W0,DEL110 NOT THE WHOLE FILE P MOVE DATE,HEX00 RESET DATE PDEL110 P B RETURN
0x252a84…252c18 Dummy {f00=0x003e, f01=0x0190, f02=»,FRE300 OPEN BATCHHEAD DATA C z " P FRE400,FRE500 BALANCE CLOSE & P L P* OPEN T P b PFRE100 j P B DECOOK x PFRE200 P B DECOOK PFRE300 P B DECOOK P* BALANCE RECORD PFRE400 P B DECOOK P* CLOS
0x252c18…252dac Dummy {f00=0x003e, f01=0x0190, f02=»RN P RET P EJECT P $ PTRANSM , 4 P IB TYPE,DC100,DC200,DC300 OPEN,BATCHHEAD,DATA C : P DC300,DC500 BALANCE, CLOSE r P P P* P* SEND SOF P* SEND '001'+DATE P* P PDC100 P* P*
0x252dac…252f40 Dummy {f00=0x003e, f01=0x0190, f02=» P* SEND EOF P* P $ PDC500 , P B DECOOK : P EJECT L P* Z P* d P* LISTING n P* PLISTE P MOVE BTYPE,TYPE 6 P IB TYPE,LS100,LS200,LS300 OPEN,BATCHHEAD,DATA C P LS400,LS500 BALANCE,CLOSE
0x252f40…2530d4 (1, 518) Dummy {f00=0x003e, f01=0x0190, f02=» PLS110 ( P MOVE BCDI21(W5),=D'0' RECORD COUNT $ P MOVE WORK(W15),W0 LENGTH HEADER > ( P MOVE WORK(W17),W0 LENGTH RECORD NO f * P MOVE WORK(W19),W0 LENGTH SEQUENCE NO " P CLEAR BCONT CONTINUATION MARK P CLEAR BSUPR P CLEAR SPLITFL
0x2530d4…253268 Dummy {f00=0x003e, f01=0x0190, f02=»A,HEX00 P GETTIME STRG10A P MOVE TIME,STRG10A ( P EDWRT DEDSPRT,FLSHDR B P MOVE RECLGD,=W'112' ` P* ENT | P B DECOOK OK P PLS170 ( P MOVE RETCON,=W'-4' ABORT CONVERSION P B FDERRT PLSERR 0 P MOVE RE
0x253268…2533fc Dummy {f00=0x003e, f01=0x018e, f02=» PLS200 P TBT LSBAB,LS170 ( P TBF BDAFOR,LS250 ANY FORCED FIELDS? * , P EDWRT DEDSPRT,FBATC3 PRINT ERROR REPORT V P SET LSBAB P M!!JN DECONV,288,289 & P MOVE RETCON,=W'-1' GET NEXT BATCH P B RETURN PLS250 BATCHHEAD OR B
0x2533fc…253590 Dummy {f00=0x003e, f01=0x0190, f02=» 2 P* CONVERT HEADER TO SET CONVERSION INDICATIONS , P MOVE BIN10,WORK(W13) GET BUFFER INDEX > $ P MOVE BIN9,BIN10 GET BPOOL INDEX n P ADD BIN9,W1 P MOVE BIN8,W0 RESET FIELD NO P MOVE BIN4,W0 PLS210 P PERF CONV,BIN4
0x253590…253724 Dummy {f00=0x003e, f01=0x0190, f02=» EDIT BUFFER OVERFLOW P PLS300 & P TBT LSBAB,LS170 4 * P MOVE BIN10,WORK(W13) GET BUFFER INDEX L $ P MOVE BIN9,BIN10 GET BPOOL INDEX z P ADD BIN9,W1 $ P MOVE BIN8,W0 RESET FIELD NUMBER PLS310 P MOVE BIN4,W0 PLS311
0x253724…2538b8 Dummy {f00=0x003e, f01=0x0190, f02=»IELD OVERFLOW " P B LS320 EDIT BUFFER OVERFLOW PLS315 < P MOVE RETCON,W5 J P B LSERRT b PLS320 t P MOVE RETCON,=W'54' P B LSERRT P P* WRITE BLOCKS P PLS340 P PERF LSWRIT P B LS310 OK
0x2538b8…253a4c Dummy {f00=0x003e, f01=0x0190, f02=» P* BALANCE FORMAT P B LS250 P , PLS500 4 * P MOVE BIN10,WORK(W13) GET BUFFER INDEX B P TBT LSBAB,LS560 ABORT p P B LS570 PLS550 P CLEAR LSBAB P PERF DETPRT P* RELEAS BUFFERS & P PERF DEPOOL,W6,BIN10,BIN4,S
0x253a4c…253be0 Dummy {f00=0x003e, f01=0x0190, f02=»RT,FLSERR P B LS550 PLS570 " P MOVE STRG10A,HEX00 0 P GETTIME STRG10A L P MOVE TIME,STRG10A d P EDWRT DEDSPRT,FLSEND ~ P B LS550 P PEND P P* P* LSWRIT WRITE BLOCKS P PLSWRIT PROC PLS
0x253be0…253d74 (1, 519) Dummy {f00=0x003e, f01=0x0190, f02=»BIN15 ACTUAL LENGTH OF INPUT DATA USED P CMP BIN16,W0 0 P BE LSWRRET NODATA=NOWRITE F ( P MOVE BIN4,RECLGD SET RECORD LENGTH h , P ADD BCDI21(W5),=D'1' ADD 1 TO RECORD NO . P ADD BCDI21(W4),=D'1' ADD 1 TO SEQUENCE NO P CBE BCDI21(W4),=D
0x253d74…253f08 Dummy {f00=0x003e, f01=0x0190, f02=»OOM FOR HEADER v & P MOVE DEBIN3,WORK(W15) START POINT P B LSWR55 @ PLSWR50 R 0 P* FIRST OUTPUT RECORD FOR THIS INPUT RECORD ` P MOVE DEBIN3,W0 START POINT P* PLSWR55 . P CBL BIN16,BIN4,LSWR58 ROOM FOR EVERYTING? P NO
0x253f08…25409c Dummy {f00=0x003e, f01=0x0190, f02=»R2A,=C'&&' LOOK FOR & PLSWR56 P SUB DEBIN1,W1 , P CBNG DEBIN1,W0,LSWR57 NO & B P MOVE DEBIN2,DEBIN1 f , P MATCH BPOOL(BIN9),DEBIN2,W1,STR2A,W0,W1 P BNOK LSWR56 NOT FOUND P MOVE BIN15,DEBIN2 P B LSWR59 P*NORMAL SPLI
0x25409c…254230 Dummy {f00=0x003e, f01=0x0190, f02=»BIN16 SEND ALL CHARS P* PLSWR59 & > P XCOPY BPOOL(BIN10),DEBIN3,BIN15,BPOOL(BIN9),W0 COPY FIRST 4 6 P* MOVE BLANKS INTO REMAINING PART OF OUTPUT BUFFER v * P* BIN4 = NO OF CHARS IN OUTPUT BUFFER P MOVE BIN4,BIN15 P ADD BIN4,DEBIN3 A
0x254230…2543c4 Dummy {f00=0x003e, f01=0x0190, f02=»),BIN16 MOVE BLANKS f P* PLSWR60 & $ P* INSERT RECORD NO - BCDI21(W5) 4 0 P CBE WORK(W17),W0,LSWR70 SKIP IF LENGTH ZERO . P MOVE STRG10A,BCDI21(W5) CONVERT RECORD NO " P MOVE DEBIN1,W10 LENGTH FIELD * P SUB DEBIN1,WORK(W17) FIND START
0x2543c4…254558 Dummy {f00=0x003e, f01=0x0190, f02=» l 0 P CBE WORK(W19),W0,LSWR80 SKIPIF LENGTH ZERO 0 P MOVE STRG10A,BCDI21(W4) CONVERT SEQUENCE NO < " P MOVE DEBIN1,W10 LENGTH FIELD p , P SUB DEBIN1,WORK(W19) FIELD START OF NO : P XCOPY BPOOL(BIN10),WORK(W18),WORK(W19),STRG10A,DEBIN1 P*
0x254558…2546ec Dummy {f00=0x003e, f01=0x018e, f02=»* PLSWR100 P WRITE DEDSPRT,BPOOL(BIN10) P MOVE CWFD,W0 > 6 P DELETE BPOOL(BIN9),CWFD,BIN15 DELETE WHAT IS SEND T P SUB BIN16,BIN15 P MOVE BIN13,BIN16 P CMP VSEIND,W1 $ P BE LSWR00 WRITE RESET OF BUFFER P RET 6
0x2546ec…254880 Dummy {f00=0x003e, f01=0x0190, f02=» P* FLOPPY DUMPING P* P * PFLOPPY 2 P MOVE BTYPE,TYPE @ 4 P IB TYPE,FD100,FD200,FD300 OPEN,BATCHHEAD,DATA C X P FD400,FD500 BALANCE,CLOSE P P P* P* SEND SOF P* SEND '001'+DATE P* P
0x254880…254a14 (1, 520) Dummy {f00=0x00a5, f01=0x0190, f02=» P MOVE CWFD,W7 HDR RECORD P MOVE REQFD,=W'128' ( 6 P CALL FDIO,DSFD,X'A1',BPOOL(BIN10),REQFD,CWFD OPEN D P MOVE BIN4,W20 ~ , P DSC1 DSFD,ATTACH,BIN4 ATTACH DEVICE FD P BNOK FDERR P PERF FDLOAD P B FD140 OK P B FDERR
0x254a14…254ba8 Dummy {f00=0x00a5, f01=0x0190, f02=»RK(W17),W0 LENGTH RECORD NO * P MOVE WORK(W19),W0 LENGTH SEQUENCE NO $ " P CLEAR BCONT CONTINUATION MARK R P CLEAR BSUPR x P SET SPLITFL NORMAL SPLIT * P MOVE BIN6,=X'0036' FILE CODE PRINTER $ P PERF ATTDEV,BIN6 ATTACH DEVICE P BNO
0x254ba8…254d3c Dummy {f00=0x00a5, f01=0x018e, f02=» READ VOLUME LABEL P B FD150 OK P B FDERR ERR . PFD150 B . P IB DEBINW2,FD160,FD180,FD170 CLR,CAN,RET P P* ENT P PFD160 $ P MOVE STR8A,STR8B SAVE FILE NAME $ P MOVE FDCNT,W1 RESET FD COUNTER $ P PERF FDWVOL WRITE
0x254d3c…254ed0 Dummy {f00=0x00a5, f01=0x018e, f02=» ( P MOVE RETCON,=W'-4' ABORT CONVERSION ! P B FDERRT ! 4 P ! F PFDERR ! N 0 P MOVE RETCON,=W'35' OUTP. DEV. NOT OPERABLE ! PFDERRT ! P SET FDBAB ! P B RETURN ! P ! PFD180 ! P MOVE CWFD,W7 ! P MOVE REQFD,=W'128' ! >
0x254ed0…255064 Dummy {f00=0x00a5, f01=0x0190, f02=» P* " P* BATCHEAD RECORD " P* " ( PFD200 " 2 P TBT FDBAB,FD170 " @ ( P TBF BDAFOR,FD300 ANY FORCED FIELDS? " X , P EDWRT DEDSPRT,FBATC3 PRINT ERROR REPORT " P SET FDBAB " & P MOVE RETCON,=W'-1' GET NEXT BATCH " P B RETURN " P EJECT
0x255064…2551f8 Dummy {f00=0x00a5, f01=0x0190, f02=» " t P B FD308 NO PRINTING # PFD305 # $ * P* PRINT BATCH HEAD AND BALANCE RECORD # 2 P MOVE DEBINW3,W1 # ` P PRINT DEDSPRT,DEBINW3,W0 # x P BNOK FDERR # PFD308 # * P MOVE BIN10,WORK(W13) GET BUFFER INDEX # $ P MOVE BIN9,BIN10 GET BPOOL IND
0x2551f8…25538c Dummy {f00=0x00a5, f01=0x0190, f02=» # P B DECOOK ALL DONE $ P B FD340 WRITE BLOCKS $ " P B FD315 CUMP FIELD EMPTHY $ @ P B FD320 BCD FIELD OVERFLOW $ b " P B FD320 EDIT BUFFER OVERFLOW $ PFD315 $ P MOVE RETCON,W5 $ P B FDERRT $ P $ PFD320 $ " P MOVE RETCON,=
0x25538c…255520 Dummy {f00=0x00a5, f01=0x0190, f02=» P B FD310 OK % P B FD360 ERROR % P B FDEOF05 EOE % . * P MOVE BIN4,W1 CONTINUE IN SAME BUFFER % D P B FD311 % r P EJECT % PFD350 % P PERF FDLOAD % P B FD370 OK % P B FD360 ERROR % PFD360 % P MOVE REQFD,=W'128' % P M
0x255520…2556b4 (1, 521) Dummy {f00=0x00a5, f01=0x0190, f02=» P PERF DERROR,KEYTAB & . P IB DEBINW2,FD350,FD360,FD170 CLR,CAN,RET & P B FD350 ENT & R PFD370 & f " P PERF FDRVOL READ VOLUME LABEL & t P B FD375 OK & P B FD360 ERROR & PFD375 & . P IB DEBINW2,FD380,FD360,FD170 CLR,CAN,RET & P* EN
0x2556b4…255848 Dummy {f00=0x00a5, f01=0x018e, f02=» TBF FDEOF,FD340 NOT EOF & * P MOVE RETCON,=W'-6' GET CURRENT RECORD ' P B RETURN ' N P ' ` PFDEOF05 ' h P SET FDEOF INDICATE EOF ' x & P MOVE WORK(W14),BIN8 SAVE FIELD NO ' P B FD360 ' P ' PFDEOF10 ' P CLEAR FDEOF ' * P MOVE BIN1
0x255848…2559dc Dummy {f00=0x00a5, f01=0x0190, f02=» P MOVE REQFD,=W'128' ( P MOVE CWFD,W0 ( > P CALL FDIO,DSFD,X'06',BPOOL(BIN10),REQFD,CWFD WRITE BLOCKS ( 6 P B FD340 ( x P EJECT ( PFD400 ( P* BALANCE FORMAT ( P B FD300 ( P EJECT ( PFD500 ( * P MOVE BIN10,WORK(W13) GET
0x2559dc…255b70 Dummy {f00=0x00a5, f01=0x0190, f02=»ND OF FILE ( v PFD505 ) P***PERF FDWRIT ) P B FD570 OK ) 6 P B FDERR ERR ) J P B FD510 EOE ) ^ PFD510 ) r P MOVE REQFD,=W'128' ) P MOVE CWFD,W7 ) 8 P CALL FDIO,DSFD,X'B8',BPOOL(BIN10),REQFD,CWFD UNLOAD ) PFD515 ) * P MOVE DEBINW
0x255b70…255d04 Dummy {f00=0x00a5, f01=0x0190, f02=»AD ) P B FD525 OK * P B FD510 ERROR * PFD525 * 4 " P PERF FDRVOL READ VOLUME LABEL * B P B FD530 OK * h P B FD510 ERROR * | PFD530 * . P IB DEBINW2,FD535,FD510,FD170 CLR,CAN,RET * P* ENT * PFD535 * $ P PERF FDWVOL WRITE VOLUME
0x255d04…255e98 Dummy {f00=0x00a5, f01=0x0190, f02=»X'06',BPOOL(BIN10),REQFD,CWFD WRITE BLOCKS * P B FD505 + 2 PFD550 + B P WAIT DSFD + P P CLEAR FDBAB + b P MOVE CWFD,W7 HDR SECTOR + v P MOVE REQFD,=W'128' + 8 P CALL FDIO,DSFD,X'B8',BPOOL(BIN10),REQFD,CWFD UNLOAD + P CLEAR FDEOF RESET EOF +
0x255e98…25602c Dummy {f00=0x00a5, f01=0x018e, f02=» DSC1 DSFD,DETACH,BIN4 + P PERF DETPRT , P* RELEAS BUFFERS , 2 & P PERF DEPOOL,W6,BIN10,BIN4,STRG10A , J P B DECOOK , t PFD560 , P MOVE STRG10A,HEX00 , P GETTIME STRG10A , P MOVE TIME,STRG10A , P EDWRT DEDSPRT,FFDERR , P B FD550
0x25602c…2561c0 Dummy {f00=0x00a5, f01=0x0190, f02=» P B FD550 - P PEND - P EJECT - " P* - 0 ( P* GETBUF GET TWO CONSECUTIVE BUFFERS - : P* - f P* BUFFER INDEX IN WORK(W13) - p P* - P - PGETBUF PROC - * P MOVE BIN10,W3 TOTAL NUMBER OF BUFFERS - , P MOVE BIN4,W3 NO. OF COSECUTIVE
0x2561c0…256354 (1, 522) Dummy {f00=0x00a5, f01=0x0190, f02=»13),BIN10 SAVE BUFFER INDEX - . P MOVE BIN9,BIN10 LOAD WORKING BUFFER INDEX . $ " P ADD BIN9,W1 INDEX EDIT BUFFER . V 4 P MOVE BPOOL(BIN10),=X'00' RESET TRANSMIT BUFFER . | P RET . PGETBU2 . P RET 2 . P PEND . P EJECT . P* . , P* FDR
0x256354…2564e8 Dummy {f00=0x00a5, f01=0x0190, f02=»T BUFFER INDEX . | ( P ADD BIN13,W2 ADJUST FOR READ BUFFER / P MOVE CWFD,W7 / B > P CALL FDIO,DSFD,X'91',BPOOL(BIN13),REQFD,CWFD READ (HDR1) / X P XSTAT DSFD,BIN4 / P MOVE BIN7,=X'086F' / P CALL MASK,BIN4,BIN7 / P BNOK FDRV02 / P MOVE BIN7
0x2564e8…25667c Dummy {f00=0x00a5, f01=0x0190, f02=»E BIN7,W22 GET RECORD LENGTH / ( P XCOPY STR6B,W1,W5,BPOOL(BIN13),BIN7 0 $ P MOVE RECLGD,STR6B 0 P P MOVE BIN7,=W'45' 0 j 6 P XCOPY STR2A,W0,W2,BPOOL(BIN13),BIN7 GET FD NUMBER 0 P ATTFMT FCAS02 0 P SET DEPROMPT 0 P DISPLAY 0,W1,W0 0 P THOME
0x25667c…256810 Dummy {f00=0x00a5, f01=0x0190, f02=» 0 P PEND 1 P EJECT 1 P* 1 $ P* FDWVOL WRITE VOLUME LABEL 1 . P* 1 R P 1 P 1 d PFDWVOL PROC 1 l P MOVE BIN7,=W'66' 1 & P MOVE BIN13,BIN10 GET BUFFER INDEX 1 ( P ADD BIN13,W2 ADJUST FOR READ BUFFER 1 * P EDSUB BPOOL(BIN13),BIN7
0x256810…2569a4 Dummy {f00=0x00a5, f01=0x0190, f02=»IN13),BIN7,FRMVOL3 FD NUMBER 1 ( P MOVE REQFD,=W'128' REQUESTED LENGTH 2 $ P MOVE CWFD,W7 2 P > P CALL FDIO,DSFD,X'95',BPOOL(BIN13),REQFD,CWFD WRITE (HDR1) 2 f P XSTAT DSFD,BIN4 2 P MOVE BIN7,=X'024F' 2 P CALL MASK,BIN4,BIN7 2 P 2 P BNOK FD
0x2569a4…256b38 Dummy {f00=0x00a5, f01=0x0190, f02=»ALL FDIO,DSFD,X'B1',BPOOL(BIN13),REQFD,CWFD REWIND 2 P RET 3 : PFDWVO2 3 F P RET 2 3 T P PEND 3 b P EJECT 3 p P* 3 ~ P* FDWRIT WRITE BLOCKS 3 P* 3 P 3 P 3 PFDWRIT PROC 3 PFDWR00 3 P WAIT DSFD 3 P XSTAT DSFD,BIN4 3
0x256b38…256ccc Dummy {f00=0x00a5, f01=0x0190, f02=»IN4,BIN7 3 P BERR FDWR20 4 4 P IB BTYPE,FDWROP,FDWRHD,FDWRDATA,FDWRBAL,FDWRCL 4 $ PFDWROP 4 PFDWRCL 4 j P B FDWR20 4 x PFDWRHD BATCH HEADER 4 4 P MOVE BPOOL(BIN10),=X'00' INITIATE OUTPUT BUFFER 4 P MOVE BIN4,RECLGD 4 . P XCOPY BPOOL(B
0x256ccc…256e60 Dummy {f00=0x00a5, f01=0x0190, f02=»BLE SPACE IN OUTPUT BUFFER 4 P* DEBIN3 LENGTH OF HEADER 5 " . P* BIN15 ACTUAL LENGTH OF INPUT DATA USED 5 D P CMP BIN16,W0 5 v " P BE FDWRRET NO DATA= NO WRITE 5 ( P MOVE BIN4,RECLGD SET RECORD LENGTH 5 , P ADD BCDI21(W5),=D'1' ADD 1 TO RECORD NO 5
0x256e60…256ff4 (1, 523) Dummy {f00=0x00a5, f01=0x018e, f02=»* COPY HEADER PART, LENGTH IN WORK(W15) 5 , P SUB BIN4,WORK(W15) MAKE ROOM FOR HEADER 6 0 & P MOVE DEBIN3,WORK(W15) START POINT 6 ` P B FDWR55 6 P* 6 PFDWR50 6 0 P* FIRST OUTPUT RECORD FOR THIS INPUT RECORD 6 P MOVE DEBIN3,W0 START POINT 6
0x256ff4…257188 Dummy {f00=0x00a5, f01=0x018e, f02=» P FIND PRECEDING & 7 , P MOVE DEBIN1,BIN4 START AT END OF RECORD 7 " P MOVE STR2A,=C'&&' LOOK FOR & 7 P PFDWR56 7 v P SUB DEBIN1,W1 7 P CBNG DEBIN1,W0,FDWR57 NO & 7 P MOVE DEBIN2,DEBIN1 7 , P MATCH BPOOL(BIN9),DEBIN2,W1,STR2A,W0,W1 7
0x257188…25731c Dummy {f00=0x00a5, f01=0x018e, f02=» 7 P MOVE BIN15,BIN4 8 P B FDWR59 8 ( P* NO OF CHARS, FIT IN AVAILABLE ROOM 8 2 PFDWR58 8 ^ $ P MOVE BIN15,BIN16 SEND ALL CHARS 8 l P* 8 PFDWR59 8 > P XCOPY BPOOL(BIN10),DEBIN3,BIN15,BPOOL(BIN9),W0 COPY FIRST 8 6 P* MOVE BLANKS INTO REMAINI
0x25731c…2574b0 Dummy {f00=0x00a5, f01=0x0190, f02=» P* 9 P MOVE DEBIN1,RECLGD 9 " P SUB DEBIN1,BIN4 NO OF BLANKS 9 * B P XCOPY BPOOL(BIN10),BIN4,DEBIN1,BPOOL(BIN9),BIN16 MOVE BLANKS 9 P P* 9 PFDWR60 9 $ P* INSERT RECORD NO - BCDI21(W5) 9 0 P CBE WORK(W17),W0,FDWR70 SKIP IF LENGTH ZERO 9 .
0x2574b0…257644 Dummy {f00=0x00a5, f01=0x018e, f02=» XCOPY BPOOL(BIN10),WORK(W16),WORK(W17),STRG10A,DEBIN1 9 P* : > PFDWR70 : H ( P* INSERT SEQUENCE NO - BCDI21(W4) : V 0 P CBE WORK(W19),W0,FDWR80 SKIP IF LENGTH ZERO : 0 P MOVE STRG10A,BCDI21(W4) CONVERT SEQUENCE NO : " P MOVE DEBIN1,W10 LENGTH FIELD
0x257644…2577d8 Dummy {f00=0x00a5, f01=0x0190, f02=» : P* HANDLE END OF RECORD ; 2 P CBG BIN16,BIN15,FDWR100 NO ROOM, CONTINUATION ; ( P* INSERT EOR ; ^ P MOVE STR2A,=X'7F' EOR CHAR ; t 4 P XCOPY BPOOL(BIN10),BIN4,W1,STR2A,W1 INSERT EOR ; P B FDWRSEND ; P* ; PFDWR100 ; ( P* CHECK I
0x2577d8…25796c Dummy {f00=0x00a5, f01=0x018e, f02=»0 ; x P SUB BIN4,W1 < P SUB BIN15,W1 < PFDWR140 < 4 ( P MOVE STR2A,=X'21' CONTINUATION MARK < D ( P XCOPY BPOOL(BIN10),BIN4,W1,STR2A,W1 < p PFDWR150 < P MOVE REQFD,=W'128' < P MOVE CWFD,W0 < 2 P CALL FDIO,DSFD,X'06',BPOOL(BIN10),REQFD,C
0x25796c…257b00 Dummy {f00=0x00a5, f01=0x0190, f02=» < | P CMP VSEIND,W1 = $ P BE FDWR00 WRITE REST OF BUFFER = P RET 6 = F P* = T PFDWRBAL = ^ 4 P MOVE BPOOL(BIN10),=X'00' INITIATE OUTPUT BUFFER = n P EDIT BPOOL(BIN9),FFD999 = P MOVE BIN4,RECLGD = . P XCOPY BPOOL(BIN10),W0,BIN4,BPOOL(BIN9),
0x257b00…257c94 (1, 524) Dummy {f00=0x00a6, f01=0x0190, f02=»',BPOOL(BIN10),REQFD,CWFD WRITE BLOCKS = | PFDWRRET > . P RET > > PFDWR20 > J P RET 2 > X P PEND > f P EJECT > t P* > P* FDLOAD LOAD FD PROCEDURE > P* > P > P > PFDLOAD PROC > P MOVE CWFD,W7 HDR RECORD > P MOVE REQF
0x257c94…257e28 Dummy {f00=0x00a6, f01=0x0190, f02=»FDLOA2 > P MOVE BIN7,=X'000F' ? P CALL MASK,BIN4,BIN7 ? * P BNOK FDLOA2 ? F P RET ? Z PFDLOA2 ? f P MOVE CWFD,W7 HDR RECORD ? t P MOVE REQFD,=W'128' ? 8 P CALL FDIO,DSFD,X'B8',BPOOL(BIN10),REQFD,CWFD UNLOAD ? P RET 2 ? P PEND ? P
0x257e28…257fbc Dummy {f00=0x00a6, f01=0x0190, f02=» ? ~ & P* RET 4 =CUMPULSORY FIELD EMPTHY @ P* RET 6 =BCD-FIELD OVERFLOW @ 2 " P* RET 8 =EDIT BUFFER OVERFLOW @ V P* @ | $ P* APPL = FIELD INTO BUFFER @ 4 P* APPL = 1 FIELD INTO BUFFER, TRANSMIT BLOCK @ $ P* APPL = 2 NO TRANSMIT FIELD @
0x257fbc…258150 Dummy {f00=0x00a6, f01=0x0190, f02=» @ T " P* LISTE: ALWAYS SET A . P* FOLLOWING APPL ONLY USED IN BATCHHEADER A . 0 P* APPL = 13 EOR-CHAR AS END OF EACH RECORD A ` " P* LISTE: ALWAYS SET A J P* APPL = 14 CONT-CHAR IN END OF EACH DATA RECORD WHICH IS CONTINUED A " P
0x258150…2582e4 Dummy {f00=0x00a6, f01=0x0190, f02=» SPLIT A b $ P LISTE: ALWAYS CLEAR B P* B 6 0 P* APPL = 1XXX XXX=LENGTH OF RECORD HEADER B @ : P* APPL = 2XXX THIS FIELD IS THE RECORD NUMBER FIELD B t J P* APPL = 3XXX THIS FIELD IS THE CONTINUATION SEQUENCE NUMBER FIELD B P* B
0x2582e4…258478 Dummy {f00=0x00a6, f01=0x0190, f02=»DELETE START POINTER B P* BIN16= EDIT POINTER C P* C : 4 P* BIN15 = NO OF CHAR INSERTED IN OUTPUT RECORD C D 8 P* STRG10A = WORK STRING FOR DATE/TIME/CONVERTED BCD C | $ P* WORK(W15) = LENGTH OF HEADER C * P* WORK(W16) = RECORD NUMBER POSITION C
0x258478…25860c Dummy {f00=0x00a6, f01=0x0190, f02=»ENCE LENGTH C p 0 P* BCDI21(W4) = CONTINUATION SEQUENCE NUMBER D " P* BCDI21(W5) = RECORD NUMBER D H P* D n PCONV PROC CONT D x P CBG CONT,W0,CON100 D PCON090 D P MOVE BPOOL(BIN9),=X'20' D , P MOVE BCDI21(W4),=D'0' RESET SEQUENCE NO D ( P
0x25860c…2587a0 Dummy {f00=0x00a6, f01=0x0190, f02=»105 D P SET FSUPR E PCON105 E $ P ADD BIN8,W1 UPDATE FIELD NUMBER E , " P CALL GETFWD,BIN7,2,BIN8,BIN4 E T P CALL ADJUST,BIN7 E z P BOK CON130 E P BN CONRET ALL FIELD DONE E & P B CONER1 COMPULSORY FIELD EMPTHY E PCON130 E P GETCT
0x2587a0…258934 (1, 525) Dummy {f00=0x00ac, f01=0x018e, f02=»EADER E d 2 P CBL VSEIND,=W'3000',APL2000 HANDLE RECORD NO F 4 P CBL VSEIND,=W'4000',APL3000 HANDLE SEQUENCE NO F D $ P MOVE VSEIND,W2 CLEAR ERROR APPL F | P B CON131 F P* F P* HANDLE RECORD HEADER: F 4 P* APPL=1000, WHERE XXX=LENGTH OF RECORD
0x258934…258ac8 Dummy {f00=0x00ac, f01=0x0190, f02=» P* G . P* HANDLE POSITION AND LENGTH OF RECORD NO G PAPL2000 G @ 4 P MOVE WORK(W16),BIN16 SET START POS OF RECORD NO G P $ P GETCTL 1,BIN7 GET MAXL OF FIELD G 0 P MOVE WORK(W17),BIN7 SET LENGTH OF RECORD NO G * P SUB VSEIND,=W'2000' ADJUST APPL VAL
0x258ac8…258c5c Dummy {f00=0x00ac, f01=0x018e, f02=»),BIN16 SET START POSITION OF SEQUENCE NO G $ P GETCTL 1,BIN7 GET MAXL OF FIELD H 2 2 P MOVE WORK(W19),BIN7 SET LENGTH OF SEQUENCE NO H Z * P SUB VSEIND,=W'3000' ADJUST APPL VALUE H P B CON131 FURTHER HANDLING H P* H P* H PCON131 H P* H
0x258c5c…258df0 Dummy {f00=0x00ac, f01=0x0190, f02=» P* I PCON135 I P* SUPPRESS LEADING ZEROES I P SET FSUPR I > P B CON190 I P P* I b PCON140 I l P* NO SUPPRESSION I z P CLEAR FSUPR I P B CON190 I P* I P* I PCON150 I ( P* IN HEADER, SET GENERAL CONDITIONS I 6 P
0x258df0…258f84 Dummy {f00=0x00ac, f01=0x0190, f02=»CON175,CON180 I r PCON152 J P B CON190 J $ P* J 6 PCON155 J @ ( P* GENERAL SUPPRESS LEADING ZEROES J N P SET BSUPR J z P B CON100 J P* J PCON160 J P* GENERAL NO SUPPRESSION J ( P CBE FC,W9,CON100 LISTE: ALWAYS SET J P CLE
0x258f84…259118 Dummy {f00=0x00ac, f01=0x0190, f02=»ON CHARACTER J * P CBE FC,W9,CON100 LISTE: ALWAYS CLEAR K * P SET BCONT INDICATE CONT. CHAR NEEDED K B P B CON100 K p P* K PCON175 K P* INSERT BATCH NAME K P MOVE BIN7,W6 K P MOVE BIN4,W188 K P SUB BIN4,BIN7 LENGTH FIELD K P
0x259118…2592ac Dummy {f00=0x00ac, f01=0x0190, f02=»ARTING WITH &) ARE NOT SPLIT K $ P CLEAR SPLITFL NOT NORMAL SPLIT L $ P B CON100 L L P* L ^ P* L h P L r PCON190 L z 0 P CBE FC,W9,CON195 LISTE: ALL FIELDS INCLUDED L P TBF FSUPR,CON195 L ( P CALL EMPTYT,:FMTITEM TEST IF EMPTY L $ P BNZ C
0x2592ac…259440 Dummy {f00=0x00ac, f01=0x0190, f02=» P* ALPHA M P M * P MOVE BIN4,W188 GET EDIT BUFFER LENGTH M * P SUB BIN4,BIN7 ADJUST WITH MAX LENGTH M J , P SUB BIN4,BIN16 ADJUST WITH EDIT POINTER M x P BN CONER3 M $ P EDSUB BPOOL(BIN9),BIN16,FRMALP M P B CON260 M P M P EJECT M
0x259440…2595d4 (1, 526) Dummy {f00=0x00ac, f01=0x018e, f02=»BIN7 ADJUST WITH MAX LENGTH M , P SUB BIN4,BIN16 ADJUST WITH EDIT POINTER N $ P BN CONER3 N T P GETCTL 3,BIN4 GET SCHK N f P CALL TESTB,BIN4,W15 SIGN N P BZ CON220 NO N P TBF FSUPR,CON210 N P CBE FC,W9,CON205 N $ P EDSUB BPOOL(BIN9),BIN
0x2595d4…259768 Dummy {f00=0x00ac, f01=0x0190, f02=» N ` P B CON215 O PCON210 O 2 P EDSUB BPOOL(BIN9),BIN16,FRMBCS EDIT 21 DIGITS O ( PCON215 O ^ & P MOVE BIN4,W22 SET PICTURE LENGTH O l ( P ADD BIN7,W1 ADJUST POINTER FOR SIGN O P B CON250 O PCON220 O P TBF FSUPR,CON230 O P CBE FC,W9,C
0x259768…2598fc Dummy {f00=0x00ac, f01=0x0190, f02=»(BIN9),BIN16,FRMZCD O P B CON235 P PCON230 P . $ P EDSUB BPOOL(BIN9),CBIN16,FRMBC P < PCON235 P d $ P MOVE BIN4,W21 SET PICUTR LENGTH P r PCON250 P $ P SUB BIN4,BIN7 SET DELETE LENGTH P 6 P DELETE BPOOL(BIN9),BIN13,BIN4 DELETE ADDED ZEROES P
0x2598fc…259a90 Dummy {f00=0x00ac, f01=0x0190, f02=»CON290 P : P EDSUB BPOOL(BIN9),BIN16,FRMFILL LISTE: INSERT FILLER Q P MOVE BIN13,BIN16 Q L PCON230 Q f ( P CBE VSEIND,W1,CONTRM APPL =1 TRANSM Q t P MOVE BIN4,RECLGD Q P CBG BIN16,BIN4,CONTRM Q P B CON100 Q P Q P Q PFRMFILL FRMT F
0x259a90…259c24 Dummy {f00=0x00ac, f01=0x0190, f02=»K Q p ( PCONER1 RET 4 CUMPULSORY FIELD EMPTHY R $ PCONER2 RET 6 BCD FIELD OVERFLOW R 6 & PCONER3 RET 8 EDIT BUFFER OVERFLOW R ^ P PEND R P EJECT R P* R P* FORMATS R P* R P R P R PFCOUNT FRMT R P FTEXT ' 1' R P FEOR
0x259c24…259db8 Dummy {f00=0x00ac, f01=0x0190, f02=» ',2 R P FEOR S P FMEND S P S ( PFRMSOF FRMT S 0 P FSL S D P FCOPY =X'1D' S P P FILLR ' ',62 S f P FILLR ' ',62 S | P FMEND S P S PFRMEOF FRMT S P FSL S P FCOPY =X'19' S P FILLR ' ',62 S P FILLR ' ',62 S
0x259db8…259f4c Dummy {f00=0x00ac, f01=0x0190, f02=» P FMEND T PFRMVOL2 FRMT T P FMEL '999999',DATE T & P FMEND T B PFRMVOL3 FRMT T P P FMEL '99',FDCNT T d P FMEND T | P T PFBATC1 FRMT T P FLINK FBATCH T P FTEXT 'EJ AVST[MD' T P FEOR T P FNL T P FMEND T P T P
0x259f4c…25a0e0 Dummy {f00=0x00ac, f01=0x0190, f02=» T | P FEOR U P FNL U P FMEND U " P U 0 PFBATC3 FRMT U 8 P FLINK FBATCH U L P FTEXT 'EJ GODKENDT' U b P FEOR U ~ P FMEND U P U PFBATCH FRMT U P FNL U P FEOR U P FNL U P FTEXT 'JOBNAME: ' U P FCOPY JOBNAME U
0x25a0e0…25a274 (1, 527) Dummy {f00=0x00ad, f01=0x0190, f02=» FCOPY BATCH U P FMEND V P V " PFDCHDR FRMT V * P FNL V > P FEOR V J P FNL V X P FTEXT 'S[NDNING' V d P FLINK HDR V ~ P FMEND V PFDCEND FRMT V P FNL V P FEOR V P FNL V P FTEXT 'S[NDNING' V P FTEXT ' KLAR' V P
0x25a274…25a408 Dummy {f00=0x00ad, f01=0x0190, f02=»NING' V P FTEXT ' AVBRYTS' W P FLINK HDR W ( P FEOR W : P FNL W H P FMEND W T P W b PFFDHDR FRMT W j P FNL W ~ P FEOR W P FNL W " P FTEXT 'FLOPPY DISC SKRIVNING' W P FLINK HDR W P FMEND W P W PFFDEND FRMT W P F
0x25a408…25a59c Dummy {f00=0x00ad, f01=0x0190, f02=» P FMEND X P X PFFDERR FRMT X P FNL X . P FEOR X : P FNL X H " P FTEXT 'FLOPPY DISC SKRIVNING' X T P FTEXT ' AFBRYDES' X z P FLINK HDR X P FEOR X P FNL X P FMEND X P X PFLSHDR FRMT X P FNL X P FEOR X P FNL
0x25a59c…25a730 Dummy {f00=0x00ad, f01=0x0190, f02=»XT 'LISTNING KLAR' X P FLINK HDR Y P FEOR Y , P FNL Y : P FMEND Y F P Y T PFLSERR FRMT Y P FNL Y p P FEOR Y | P FNL Y P FTEXT 'LISTNING AFBRYDES' Y P FLINK HDR Y P FEOR Y P FNL Y P FMEND Y P Y PHDR FRMT Y
0x25a730…25a8c4 Dummy {f00=0x00ad, f01=0x018e, f02=»IME Y ~ P FEOR Z P FNL Z P FTEXT 'IND: ' Z & P FMEL '99999',NUMBER Z < P FTEXT ' UD: ' Z X P FMEL '99999',BCDI21(W5) Z p P FEOR Z P FNL Z P FMEND Z P EJECT Z PFCAS02 FRMT Z P FSL Z P FCOPY =C'DEVICE' Z P FILLR '
0x25a8c4…25aa58 Dummy {f00=0x00ad, f01=0x0190, f02=» P FILLR ':',1 [ P FINP 32 [ P FCOPY STR8B [ ( P FNL [ < P FCOPY =C'EXPIRATION DATE:' [ H P FINP 32 [ l P FCOPY STR6A [ | P FNL [ ( P FCOPY =C'OLD DATA SET IDENTIFIER:' [ P FINP 32 [ P FCOPY STR8A [ P FNL [ & P FCOPY =C'OLD VO
0x25aa58…25abec Dummy {f00=0x00ad, f01=0x0190, f02=»FRMC99 FRMT [ P FSL P FLINK FFD999 P FMEND 6 P D PFFD001 FRMT L P FCOPY =C'001' ` P FMEL '999999',DATE v P FILLR ' ',60 P FILLR ' ',56 P FMEND P PFFD999 FRMT P FTEXT =C'SLUTD' P FMEL '9
0x25abec…25ad80 Dummy {f00=0x00ad, f01=0x0190, f02=» P FMEND ] P ] P ] PFRMBCD FRMT ] " * P FMEL '999999999999999999999',:FMTITEM ] 6 P FMEND ] d P ] r PFRMTCD FRMT ] z * P FMEL 'TTTTTTTTTTTTTTTTTTTT9',:FMTITEM ] P FMEND ] P ] PFRMTCS FRMT ] , P FMEL 'TTTTTTTTTTTTTTTTTTTT9-',:FM
0x25ad80…25af14 (1, 528) Dummy {f00=0x00ad, f01=0x4060, f02=» PFRMTID FRMT ^ P FMEL '999',BCD13A ^ P FMEND ^ 2 P ^ @ P ^ H P END ^ P@ ^
0x25af14…25b0a8 Dummy {f00=0x00ad, f01=0x2008, f02=» _ 0 & " ADD DEBIN2,W1 UPDATE FIELD NUMBER GETFLD 2,DEBIN2,DEBIN3 < BOK DEC130 BN DEC900 ALL FIELD DONE p & ! B DEC920 COMPULSORY FIELD EMPTHY DEC130 GETCTL 0,DEBIN5 GET APPL @ MOVE DEBINW1,DEBIN4 LOA
0x25b0a8…25b23c Dummy {f00=0x00ad, f01=0x0190, f02=» ? & ? ? 0 9 ? " W @g@k !Ai !? $@kAgW #@gAk@i ! j !! ! Uj ? 60 < h !TL j !! ! 4 ) 5 ! h ! !T ! R h !U !P7 !_& h ! !X&W#@ T 0' P! W I h P Wk ~Ub~ "~
0x25b23c…25b3d0 Dummy {f00=0x00ad, f01=0x0190, f02=» ! _6j " - 8 & ?!@ P 5Ii Ik Ig A|W 4@|@ & , 3hZ !PDj !! 0 (P 60 !_<( 4 !, @h $ !ThI|m2 ? 2 """"#$"$$$#$$"""""%&&"""#''" !_h( !? 4( !_ "_ _ ! j !! ! _ _ A| "
0x25b3d0…25b564 Dummy {f00=0x00ad, f01=0x0190, f02=» Af4 L@d@g0 @ W< %Ad01 02 R Ag00 ! T 01 02 @dW Hd 01 02 @ 4 ! ! L Ah $ !6 00 W. "0 @| uA j !! ! j !! 60 _N ! 6 iiWJ@e !L ! ;h ! !P !@i ! 9( Jh * !TX6 rr rrW !
0x25b564…25b6f8 Dummy {f00=0x00ad, f01=0x0190, f02=»! 6 & ) 0# !<) W30# !P(?)0# !<) $W ( 09 # W a / " Hi b " !P 6 ! "?* ! "?* ! "?* ! "He U m " 0# !<) ?+( 01 02 0* 0' TJ U m ! P Q 0* , ~8d ! ~ W f ! ! 0 0/ 0% ?+ h X
0x25b6f8…25b88c Dummy {f00=0x00ad, f01=0x0190, f02=» U j ! !0 P b ![ ! ! ( 4 @h0B ! P # ( + ?,0. <-AhW %hZ ( !<- % (:- ! ! ( $ 2hZ ! !T !j !! W % 2 .../ !X b !U ( W )W =f "d "!U d ! 8T 0: (+0; + j !! 1 ! & 0' T/0* V
0x25b88c…25ba20 Dummy {f00=0x00ad, f01=0x0190, f02=»! 4 ! U 6 _l; 2*0# !T Wo0 "T j !! !b WX WU Wb Sf !WAH{ W<09 " m W W 0# !T3m W 0# !T&m W 7h U ! V !!4 !"4 80 1& 0 6 ''' ' y ''' "W% ," "0 We08 W "_ '_ !08
0x25ba20…25c6c0 (2, 0) DirGranule ((2, 0)) {
0x25ba20…25c6c0 DirEnt {nam=»MON10 «, typ=» «, f00=0x0000, f01=0x0000, f02=0x1450, f03=0x0000}
0x25ba20…25c6c0 DirEnt {nam=»M:DECE«, typ=»UF«, f00=0x019a, f01=0x0198, f02=0x1458, f03=0x0008}
0x25ba20…25c6c0 DirEnt {nam=»TCLASS«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x1498, f03=0x0000}
0x25ba20…25c6c0 DirEnt {nam=»SCLASS«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x16a0, f03=0x0000}
0x25ba20…25c6c0 DirEnt {nam=»MONTAB«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x16a8, f03=0x0000}
0x25ba20…25c6c0 DirEnt {nam=»SYSTAB«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x16b0, f03=0x0000}
0x25ba20…25c6c0 DirEnt {nam=»TDISP «, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x16c8, f03=0x0000}
0x25ba20…25c6c0 DirEnt {nam=»LRPINT«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x16e8, f03=0x0000}
0x25ba20…25c6c0 DirEnt {nam=»TPROC «, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x1710, f03=0x0000}
0x25ba20…25c6c0 DirEnt {nam=»MSUBS «, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x1728, f03=0x0000}
0x25ba20…25c6c0 DirEnt {nam=»TTMJOB«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x1760, f03=0x0000}
0x25ba20…25c6c0 DirEnt {nam=»TOSSIO«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x1770, f03=0x0000}
0x25ba20…25c6c0 DirEnt {nam=»SYSLDM«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x17f8, f03=0x0000}
0x25ba20…25c6c0 DirEnt {nam=»SYSLDA«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x18f0, f03=0x0000}
0x25ba20…25c6c0 DirEnt {nam=»LDTASK«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x1a48, f03=0x0000}
0x25ba20…25c6c0 DirEnt {nam=»DRSW01«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x1a78, f03=0x0000}
0x25ba20…25c6c0 DirEnt {nam=»ST8000«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x1a98, f03=0x0000}
0x25ba20…25c6c0 DirEnt {nam=»PFTAB «, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x1aa8, f03=0x0000}
0x25ba20…25c6c0 DirEnt {nam=»LKMAL «, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x1ab0, f03=0x0000}
0x25ba20…25c6c0 DirEnt {nam=»CTABX «, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x1ac0, f03=0x0000}
0x25ba20…25c6c0 DirEnt {nam=»TIODMX«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x1ac8, f03=0x0000}
0x25ba20…25c6c0 DirEnt {nam=»DSKSUB«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x1ad0, f03=0x0000}
0x25ba20…25c6c0 DirEnt {nam=»DVTKB «, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x1af8, f03=0x0000}
0x25ba20…25c6c0 DirEnt {nam=»DVTGP «, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x1b00, f03=0x0000}
0x25ba20…25c6c0 DirEnt {nam=»DVTDI «, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x1b08, f03=0x0000}
0x25ba20…25c6c0 DirEnt {nam=»DVTDY «, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x1b10, f03=0x0000}
0x25ba20…25c6c0 DirEnt {nam=»DW1501«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x1b18, f03=0x0000}
0x25ba20…25c6c0 DirEnt {nam=»DRKB03«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x1b20, f03=0x0000}
0x25ba20…25c6c0 DirEnt {nam=»DRGP01«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x1b60, f03=0x0000}
0x25ba20…25c6c0 DirEnt {nam=»DRDI01«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x1b98, f03=0x0000}
0x25ba20…25c6c0 DirEnt {nam=»DRDY01«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x1bb8, f03=0x0000}
0x25ba20…25c6c0 DirEnt {nam=»DRLT01«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x1c18, f03=0x0000}
0x25ba20…25c6c0 DirEnt {nam=»DRDU01«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x1c68, f03=0x0000}
0x25ba20…25c6c0 DirEnt {nam=»DRFD01«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x1d00, f03=0x0000}
0x25ba20…25c6c0 DirEnt {nam=»DRDC15«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x1d88, f03=0x0000}
0x25ba20…25c6c0 DirEnt {nam=»EBCDIC«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x1e40, f03=0x0000}
0x25ba20…25c6c0 DirEnt {nam=»TIMER «, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x1e50, f03=0x0000}
0x25ba20…25c6c0 DirEnt {nam=»TMMLKM«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x1e68, f03=0x0000}
0x25ba20…25c6c0 DirEnt {nam=»TLDSEG«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x1e80, f03=0x0000}
0x25ba20…25c6c0 DirEnt {nam=»TABORT«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x1e98, f03=0x0000}
0x25ba20…25c6c0 DirEnt {nam=»MONTIM«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x1ea8, f03=0x0000}
0x25ba20…25c6c0 DirEnt {nam=»TOSSFM«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x1ec0, f03=0x0000}
0x25ba20…25c6c0 DirEnt {nam=»FMTASK«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x1ee8, f03=0x0000}
0x25ba20…25c6c0 DirEnt {nam=»DFTAB «, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x1f60, f03=0x0000}
0x25ba20…25c6c0 DirEnt {nam=»DVKB00«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x1f68, f03=0x0000}
0x25ba20…25c6c0 DirEnt {nam=»DVDI00«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x1f70, f03=0x0000}
0x25ba20…25c6c0 DirEnt {nam=»DVDY00«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x1f78, f03=0x0000}
0x25ba20…25c6c0 DirEnt {nam=»DVDI01«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x1f80, f03=0x0000}
0x25ba20…25c6c0 DirEnt {nam=»DVGP02«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x1f88, f03=0x0000}
0x25ba20…25c6c0 DirEnt {nam=»DVKB03«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x1f90, f03=0x0000}
0x25ba20…25c6c0 DirEnt {nam=»DVDY03«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x1f98, f03=0x0000}
0x25ba20…25c6c0 DirEnt {nam=»DVDY04«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x1fa0, f03=0x0000}
0x25ba20…25c6c0 DirEnt {nam=»M:DECE«, typ=»LM«, f00=0x0000, f01=0x0000, f02=0x1fa8, f03=0x0000}
0x25ba20…25c6c0 DirEnt {nam=»DRFDDE«, typ=»UF«, f00=0x0000, f01=0x0000, f02=0x2888, f03=0x0000}
0x25ba20…25c6c0 DirEnt {nam=»DRFDDE«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x2a88, f03=0x0000}
0x25ba20…25c6c0 }
0x25c6c0…25c854 (2, 1) Opaque[0x194]
0x25c854…25c9e8 # DirEnt {nam=»M:DECE«, typ=»UF«, f00=0x019a, f01=0x0198, f02=0x1458, f03=0x0008}
0x25c854…25c9e8 IdxSect {
0x25c854…25c9e8 f00 = 0x00a2 // 0x25c854 @0x0
0x25c854…25c9e8 f01 = 0x0010 // 0x25c856 @0x2
0x25c854…25c9e8 gno = [ // 0x25c858 @0x4
0x25c854…25c9e8 [0x00]: C0x00a2.0x3.0
0x25c854…25c9e8 [0x01]: C0x00a3.0x0.0
0x25c854…25c9e8 [0x02]: C0x00a3.0x1.0
0x25c854…25c9e8 [0x03]: C0x00a3.0x2.0
0x25c854…25c9e8 [0x04]: C0x00a3.0x3.0
0x25c854…25c9e8 [0x05]: C0x00a4.0x0.0
0x25c854…25c9e8 [0x06]: C0x00a4.0x1.0
0x25c854…25c9e8 [0x07]: C0x00a4.0x2.0
0x25c854…25c9e8 ]
0x25c854…25c9e8 }
0x25c9e8…25cb7c Dummy {f00=0x00a2, 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
0x25cb7c…25cd10 Dummy {f00=0x00a2, 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
0x25cd10…25cea4 Dummy {f00=0x00a2, f01=0x0190, f02=»WORK ~ KPF /S,SYSLDM SCR " MOV SYSLDA,/S,TOSSWORK . KPF /S,SYSLDA L SCR b MOV LDTASK,/S,TOSSWORK n KPF /S,LDTASK SCR MOV DRSW01,/S,TOSSWORK KPF /S,DRSW01 SCR MOV ST8000,/S,TOSSWORK
0x25cea4…25d038 Dummy {f00=0x00a2, f01=0x0190, f02=»,LKMAL SCR MOV CTABX,/S,TOSSWORK KPF /S,CTABX 8 SCR L MOV TIODMX,/S,TOSSWORK X KPF /S,TIODMX v SCR INC TIODMX,TOSSWORK KPF /O MOV DSKSUB,/S,TOSSWORK KPF /S,DSKSUB SCR LED DS
0x25d038…25d1cc Dummy {f00=0x00a2, f01=0x0190, f02=»852 EQU 1$$CPU852 EQU 0$$ ( #!!CH $$DSKPAG EQU 0$$DSKPAG EQU 1$$ " !!EN N ASM /S Z KPF /O h KPF /S v SCR LED SYSTAB ( #!!CH $$CREDIT EQU 0$$CREDIT EQU 1$$ ( #!!CH $$MMUPAG EQU 0$$MMUPAG EQU 1$$ ( #!!CH $$CPU852
0x25d1cc…25d360 Dummy {f00=0x00a2, f01=0x0190, f02=» LED TDISP ( #!!CH $$CREDIT EQU 0$$CREDIT EQU 1$$ ( #!!CH $$MMUPAG EQU 0$$MMUPAG EQU 1$$ B ( #!!CH $$CPU852 EQU 1$$CPU852 EQU 0$$ n ( #!!CH $$DSKPAG EQU 0$$DSKPAG EQU 1$$ !!EN ASM /S KPF /O KPF /S SCR
0x25d360…25d4f4 (2, 2) Dummy {f00=0x00a3, f01=0x018e, f02=»U 0$$ r ( #!!CH $$DSKPAG EQU 0$$DSKPAG EQU 1$$ !!EN : ASM /S F KPF /O T KPF /S b SCR p LED TPROC | ( #!!CH $$CREDIT EQU 0$$CREDIT EQU 1$$ ( #!!CH $$MMUPAG EQU 0$$MMUPAG EQU 1$$ ( #!!CH $$CPU852 EQU 1$$CPU852 EQU 0$
0x25d4f4…25d688 Dummy {f00=0x00a3, 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$$ ( #!!CH $$DSKPAG EQU 0$$DSKPAG EQU 1$$ !!EN ASM /S KPF /O KPF /S SCR LED TTMJOB ( #
0x25d688…25d81c Dummy {f00=0x00a3, f01=0x0190, f02=» $$DSKPAG EQU 0$$DSKPAG EQU 1$$ !!EN ( ASM /S 4 KPF /O B KPF /S P SCR ^ LED TOSSIO j ( #!!CH $$CREDIT EQU 0$$CREDIT EQU 1$$ | ( #!!CH $$MMUPAG EQU 0$$MMUPAG EQU 1$$ ( #!!CH $$CPU852 EQU 1$$CPU852 EQU 0$$ ( #!!CH $$D
0x25d81c…25d9b0 Dummy {f00=0x00a3, f01=0x0190, f02=»U 0$$CREDIT EQU 1$$ ( #!!CH $$MMUPAG EQU 0$$MMUPAG EQU 1$$ ( #!!CH $$CPU852 EQU 1$$CPU852 EQU 0$$ H ( #!!CH $$DSKPAG EQU 0$$DSKPAG EQU 1$$ t !!EN ASM /S KPF /O KPF /S SCR LED SYSLDA ( #!!CH $$CREDIT EQU 0$
0x25d9b0…25db44 Dummy {f00=0x00a3, f01=0x0190, f02=»PAG EQU 1$$ x !!EN ASM /S KPF /O . KPF /S < SCR J LED LDTASK V ( #!!CH $$CREDIT EQU 0$$CREDIT EQU 1$$ h ( #!!CH $$MMUPAG EQU 0$$MMUPAG EQU 1$$ ( #!!CH $$CPU852 EQU 1$$CPU852 EQU 0$$ ( #!!CH $$DSKPAG EQU 0$$DSKPAG
0x25db44…25dcd8 Dummy {f00=0x00a3, f01=0x0190, f02=» l ( #!!CH $$MMUPAG EQU 0$$MMUPAG EQU 1$$ ( #!!CH $$CPU852 EQU 1$$CPU852 EQU 0$$ 4 ( #!!CH $$DSKPAG EQU 0$$DSKPAG EQU 1$$ ` !!EN ASM /S KPF /O KPF /S SCR LED ST8000 ( #!!CH $$CREDIT EQU 0$$CREDIT EQU 1$$
0x25dcd8…25de6c Dummy {f00=0x00a3, f01=0x018e, f02=»!!EN ASM /S KPF /O KPF /S ( SCR 6 MOV DVTKB,/S,TOSSWORK B KPF /S,DVTKB ` SCR t MOV DVTGP,/S,TOSSWORK KPF /S,DVTGP SCR MOV DVTDI,/S,TOSSWORK KPF /S,DVTDI SCR MOV DVTDY,/
0x25de6c…25e000 Dummy {f00=0x00a3, f01=0x0190, f02=» z KPF /O LED DW1501 ( #!!CH $$CREDIT EQU 0$$CREDIT EQU 1$$ ( ( #!!CH $$MMUPAG EQU 0$$MMUPAG EQU 1$$ T ( #!!CH $$CPU852 EQU 1$$CPU852 EQU 0$$ ( #!!CH $$DSKPAG EQU 0$$DSKPAG EQU 1$$ !!EN ASM /S KPF /O KPF /S
0x25e000…25e194 (2, 3) Dummy {f00=0x00a3, f01=0x0190, f02=»R MOV DRDI01,/S,TOSSWORK KPF /S,DRDI01 ( SCR > MOV DRDY01,/S,TOSSWORK J KPF /S,DRDY01 h SCR ~ MOV DRLT01,/S,TOSSWORK KPF /S,DRLT01 SCR MOV DRDU01,/S,TOSSWORK KPF /S,DRDU01 SCR
0x25e194…25e328 Dummy {f00=0x00a3, f01=0x0190, f02=»KB03 !!CH $$ X:A$$ 0$$ !!CH $$ X:B$$ 1$$ & !!CH $$ X:C$$ 1$$ @ !!CH $$ X:D$$ 2$$ Z !!CH $$ X:E$$ 1$$ t !!CH $$ X:F$$ 30$$ !!CH $$ X:G$$ 1$$ !!CH $$ X:H$$ 0$$ !!CH $$ X:I$$ 1$$ !!CH $$ X:J$$ 100$
0x25e328…25e4bc Dummy {f00=0x00a3, f01=0x0190, f02=»2 EQU 1$$CPU852 EQU 0$$ ( #!!CH $$DSKPAG EQU 0$$DSKPAG EQU 1$$ !!EN L ASM /S X KPF /O f KPF /S t SCR LED DRGP01 !!CH $$ X:A$$ 0$$ !!CH $$ X:B$$ 0$$ !!CH $$ X:C$$ 0$$ !!CH $$ X:D$$ 0$$
0x25e4bc…25e650 Dummy {f00=0x00a3, f01=0x0190, f02=»U 1$$ r ( #!!CH $$MMUPAG EQU 0$$MMUPAG EQU 1$$ ( #!!CH $$CPU852 EQU 1$$CPU852 EQU 0$$ : ( #!!CH $$DSKPAG EQU 0$$DSKPAG EQU 1$$ f !!EN ASM /S KPF /O KPF /S SCR LED DRDI01 !!CH $$ X:A$$ 0$$ !!CH $$
0x25e650…25e7e4 Dummy {f00=0x00a3, f01=0x0190, f02=»U 0$$ r ( #!!CH $$DSKPAG EQU 0$$DSKPAG EQU 1$$ !!EN : ASM /S F KPF /O T KPF /S b SCR p LED DRDY01 | !!CH $$ X:A$$ 0$$ !!CH $$ X:B$$ 1$$ !!CH $$ X:C$$ 1$$ !!CH $$ X:D$$ 0$$ !!CH $$ X:E$$ 1$$
0x25e7e4…25e978 Dummy {f00=0x00a3, f01=0x0190, f02=» $$MMUPAG EQU 0$$MMUPAG EQU 1$$ ( #!!CH $$CPU852 EQU 1$$CPU852 EQU 0$$ ( ( #!!CH $$DSKPAG EQU 0$$DSKPAG EQU 1$$ T !!EN ASM /S KPF /O KPF /S SCR LED DRLT01 ( #!!CH $$CREDIT EQU 0$$CREDIT EQU 1$$ ( #!!CH $$M
0x25e978…25eb0c Dummy {f00=0x00a3, f01=0x0190, f02=»ASM /S,NL KPF /O KPF /S SCR . LED DRDU01 : !!CH $$ X:A$$ 0$$ L !!CH $$ X:B$$ 1$$ f !!CH $$ X:C$$ 1$$ !!CH $$ X:D$$ 0$$ !!CH $$ X:E$$ 01$$ ( #!!CH $$CREDIT EQU 0$$CREDIT EQU 1$$ ( #!!CH $$MMUPAG
0x25eb0c…25eca0 Dummy {f00=0x00a3, f01=0x0190, f02=» KPF /O KPF /S SCR $ LED DRFD01 0 !!CH $$ X:A$$ 1$$ B !!CH $$ X:B$$ 1$$ !!CH $$ X:C$$ 1$$ v !!CH $$ X:D$$ 1$$ !!CH $$ X:E$$ 130$$ ( #!!CH $$CREDIT EQU 0$$CREDIT EQU 1$$ ( #!!CH $$MMUPAG EQU 0$$M
0x25eca0…25ee34 (2, 4) Dummy {f00=0x00a3, f01=0x0190, f02=»KPF /O KPF /S SCR LED DRDC15 ( !!CH $$ X:A$$ 010$$ : !!CH $$ X:B$$ /60$$ V !!CH $$ X:C$$ 0$$ r !!CH $$ X:D$$ 060$$ !!CH $$ X:E$$ 1$$ !!CH $$ X:F$$ 1$$ !!CH $$ X:G$$ 125$$ !!CH $$ X:H$$ 1$
0x25ee34…25efc8 Dummy {f00=0x00a3, f01=0x0190, f02=» !!CH $$ X:N$$ 02$$ !!CH $$ X:O$$ 1$$ !!CH $$ X:P$$ 0$$ 8 !!CH $$ X:Q$$ 0$$ R !!CH $$ X:R$$ 070$$ l ( #!!CH $$CREDIT EQU 0$$CREDIT EQU 1$$ ( #!!CH $$MMUPAG EQU 0$$MMUPAG EQU 1$$ ( #!!CH $$CPU852 EQU 1$$CPU852 EQU 0$$
0x25efc8…25f15c Dummy {f00=0x00a3, f01=0x0190, f02=» z KPF /S,EBCDIC SCR LED EBCDIC * ( #!!CH $$CREDIT EQU 0$$CREDIT EQU 1$$ < ( #!!CH $$MMUPAG EQU 0$$MMUPAG EQU 1$$ h ( #!!CH $$CPU852 EQU 1$$CPU852 EQU 0$$ ( #!!CH $$DSKPAG EQU 0$$DSKPAG EQU 1$$ !!EN ASM /S KP
0x25f15c…25f2f0 Dummy {f00=0x00a3, f01=0x0190, f02=»CH $$ X:D$$ 2$$ !!CH $$ X:E$$ 1$$ !!CH $$ X:F$$ 30$$ 2 !!CH $$ X:G$$ 1$$ L !!CH $$ X:H$$ 0$$ f !!CH $$ X:I$$ 1$$ !!CH $$ X:J$$ 100$$ !!CH $$ X:K$$ 50$$ ( #!!CH $$CREDIT EQU 0$$CREDIT EQU 1$$ ( #!!CH $$MMUPA
0x25f2f0…25f484 Dummy {f00=0x00a3, f01=0x0190, f02=»/S KPF /O KPF /S SCR & LED DVTKB 2 !!DL 35 D DATA 0,0,0,0,0,0,0,0 T DATA 0,0,0,0,0,0,0, r !!IL 38 DATA 0,0,0,0,0,0,0,0 DATA 0,0,0,0,0,0,0,0 DATA 0,0,0,0,0,0,0,0 DATA 0,
0x25f484…25f618 Dummy {f00=0x00a3, f01=0x0190, f02=»!!CH $$ X:D$$ 00$$ !!CH $$ X:E$$ 01$$ !!EN 4 ASM /S @ KPF /O N KPF /S SCR j LED TOSSIO v !!CH $$ X:A$$ 1$$ !!CH $$ X:B$$ 1$$ !!EN ASM /S KPF /O KPF /S SCR MOV TIMER
0x25f618…25f7ac Dummy {f00=0x00a3, f01=0x0190, f02=» z KPF /S,TMMLKM SCR MOV TLDSEG,/S,TOSSWORK * KPF /S,TLDSEG H SCR ^ MOV TABORT,/S,TOSSWORK j KPF /S,TABORT SCR MOV MONTIM,/S,TOSSWORK KPF /S,MONTIM SCR MOV TOSSFM,/S,TOSSWORK
0x25f7ac…25f940 Dummy {f00=0x00a3, f01=0x018e, f02=» ( #!!CH $$CPU852 EQU 1$$CPU852 EQU 0$$ ( #!!CH $$DSKPAG EQU 0$$DSKPAG EQU 1$$ 0 !!EN ASM /S h KPF /O v KPF /S SCR LED TPROC ( #!!CH $$CREDIT EQU 0$$CREDIT EQU 1$$ ( #!!CH $$MMUPAG EQU 0$$MMUPAG EQU 1$$ ( #
0x25f940…25fad4 (2, 5) Dummy {f00=0x00a3, f01=0x0190, f02=» SCR LED TMMLKM ( #!!CH $$CREDIT EQU 0$$CREDIT EQU 1$$ & ( #!!CH $$MMUPAG EQU 0$$MMUPAG EQU 1$$ R ( #!!CH $$CPU852 EQU 1$$CPU852 EQU 0$$ ~ ( #!!CH $$DSKPAG EQU 0$$DSKPAG EQU 1$$ !!EN ASM /S KPF /O KPF /S
0x25fad4…25fc68 Dummy {f00=0x00a3, f01=0x0190, f02=»EQU 1$$CPU852 EQU 0$$ ( #!!CH $$DSKPAG EQU 0$$DSKPAG EQU 1$$ !!EN J ASM /S V KPF /O d KPF /S r SCR LED TABORT ( #!!CH $$CREDIT EQU 0$$CREDIT EQU 1$$ ( #!!CH $$MMUPAG EQU 0$$MMUPAG EQU 1$$ ( #!!CH $$CPU852 EQU
0x25fc68…25fdfc Dummy {f00=0x00a3, f01=0x0190, f02=»LED MONTIM ( #!!CH $$CREDIT EQU 0$$CREDIT EQU 1$$ ( #!!CH $$MMUPAG EQU 0$$MMUPAG EQU 1$$ > ( #!!CH $$CPU852 EQU 1$$CPU852 EQU 0$$ j ( #!!CH $$DSKPAG EQU 0$$DSKPAG EQU 1$$ !!EN ASM /S KPF /O KPF /S SCR LED
0x25fdfc…25ff90 Dummy {f00=0x00a3, f01=0x0190, f02=»$ n ( #!!CH $$DSKPAG EQU 0$$DSKPAG EQU 1$$ ! !!EN ! 6 ASM /S ! B KPF /O ! P KPF /S ! ^ SCR ! l LED LKMAL ! x !!DL 019 ! !!DL 022 ! !!DL 024 ! !!DL 027 ! !!DL 028 ! !!DL 042 ! DATA 00 ! !!
0x25ff90…260124 Dummy {f00=0x00a3, f01=0x0190, f02=» ! KPF /O " KPF /S " SCR " $ LED LRPINT " 0 !!CH $$ X:A$$ 1$$ " B !!EN " ASM /S " h KPF /O " v KPF /S " SCR " MOV FMTASK,/S,TOSSWORK " KPF /S,FMTASK " SCR " MOV DFTAB,/S,TOSSWORK " KPF /S,DFTAB
0x260124…2602b8 Dummy {f00=0x00a3, f01=0x018e, f02=»852 EQU 1$$CPU852 EQU 0$$ " ( #!!CH $$DSKPAG EQU 0$$DSKPAG EQU 1$$ # " !!EN # N ASM /S # Z KPF /O # h KPF /S # v SCR # LED DFTAB # !!DL 023 # !!DL 024 # !!DL 026 # !!DL 027 # !!IL 29 # DATA /0000,/0101,/010
0x2602b8…26044c Dummy {f00=0x00a3, f01=0x0190, f02=» # !!CH $$IHINPT$$TRAP$$ $ !!CH $$ X:A$$ 00007$$ $ & !!CH $$ EXTRN BUG$$*$$ $ D !!CH $$ BUG$$ 0$$ $ b !!CH $$ X:C$$ 00000$$ $ | !!CH $$ X:E$$ 00002$$ $ !!CH $$ X:D$$ 00005$$ $ !!CH $$ X:F$$ 00094$$ $ !!CH $$ X:G$$ 00001$
0x26044c…2605e0 Dummy {f00=0x00a3, f01=0x018e, f02=» IH1501 $ EXTRN IH1502 % !!DL 85 % 2 !!DL 122 % B DATA ILLINT % R !!DL 123 % r DATA ILLINT % !!DL 124 % DATA ILLINT % !!DL 131 % DATA ILLINT % !!DL 1
0x2605e0…260774 (2, 6) Dummy {f00=0x00a4, f01=0x0190, f02=» !!DL 135 & DATA ILLINT & !!DL 136 & 4 DATA ILLINT & D !!DL 138 & d DATA ILLINT & t !!DL 140 & DATA ILLINT & !!DL 141 & DATA ILLINT & !!DL 142 &
0x260774…260908 Dummy {f00=0x00a4, f01=0x0190, f02=» DATA ILLINT ' !!DL 159 ' $ DATA ILLINT ' 4 !!DL 163 ' T DATA ILLINT ' d !!EN ' ASM /S ' KPF /O ' KPF /S ' SCR ' LED PFTAB ' !!IL 12 ' EXTRN DC15ON '
0x260908…260a9c Dummy {f00=0x00a4, f01=0x0190, f02=» ' !!DL 050 ( !!DL 051 ( !!DL 053 ( ( !!DL 054 ( 8 !!DL 056 ( H !!DL 057 ( X !!DL 058 ( h !!DL 059 ( x !!EN ( ASM /S ( KPF /O ( KPF /S ( SCR ( MOV CTAB01,/S,LEIF ( ASM /S ( KPF /O ( KPF /S (
0x260a9c…260c30 Dummy {f00=0x00a4, f01=0x0190, f02=»$CREDIT EQU 1$$ ( | ( #!!CH $$MMUPAG EQU 0$$MMUPAG EQU 1$$ ) ( #!!CH $$CPU852 EQU 1$$CPU852 EQU 0$$ ) D ( #!!CH $$DSKPAG EQU 0$$DSKPAG EQU 1$$ ) p !!CH $$DVTKB$$DVKB00$$ ) !!CH $$KBAD$$KBAD3$$ ) !!CH $$/1111$$/1100$$ ) !!CH $$BCA$$FFFF$$ )
0x260c30…260dc4 Dummy {f00=0x00a4, f01=0x0190, f02=»EN ) ASM /S * KPF /O * KPF /S * & SCR * 4 LED DVTDI * @ ( #!!CH $$CREDIT EQU 0$$CREDIT EQU 1$$ * R ( #!!CH $$MMUPAG EQU 0$$MMUPAG EQU 1$$ * ~ ( #!!CH $$CPU852 EQU 1$$CPU852 EQU 0$$ * ( #!!CH $$DSKPAG EQU 0$$DSKPAG EQU 1$$ * !!CH $
0x260dc4…260f58 Dummy {f00=0x00a4, f01=0x0190, f02=»SCR * LED DVTDY + ( #!!CH $$CREDIT EQU 0$$CREDIT EQU 1$$ + ( #!!CH $$MMUPAG EQU 0$$MMUPAG EQU 1$$ + J ( #!!CH $$CPU852 EQU 1$$CPU852 EQU 0$$ + v ( #!!CH $$DSKPAG EQU 0$$DSKPAG EQU 1$$ + !!CH $$DVTDY$$DVDY00$$ + !!CH $$/ABC$$/1850$$ +
0x260f58…2610ec Dummy {f00=0x00a4, f01=0x0190, f02=»REDIT EQU 1$$ + z ( #!!CH $$MMUPAG EQU 0$$MMUPAG EQU 1$$ , ( #!!CH $$CPU852 EQU 1$$CPU852 EQU 0$$ , B ( #!!CH $$DSKPAG EQU 0$$DSKPAG EQU 1$$ , n !!CH $$DVTDI$$DVDI01$$ , !!CH $$2010$$0000$$ , !!CH $$/1111$$/9010$$ , !!EN , ASM /S ,
0x2610ec…261280 Dummy {f00=0x00a4, f01=0x0190, f02=»U 1$$ , r ( #!!CH $$CPU852 EQU 1$$CPU852 EQU 0$$ - ( #!!CH $$DSKPAG EQU 0$$DSKPAG EQU 1$$ - : !!CH $$DVTGP$$DVGP02$$ - f !!CH $$/1111$$/2000$$ - !!EN - ASM /S - KPF /O - KPF /S - SCR - LED DVTKB - ( #!!CH $$CREDIT EQU
0x261280…261414 (2, 7) Dummy {f00=0x00a4, f01=0x0190, f02=»SKPAG EQU 1$$ - z !!CH $$DVTKB$$DVKB03$$ . !!CH $$KBAD$$KBAD3$$ . 4 !!CH $$/1111$$/1100$$ . P !!CH $$BCA$$FFFF$$ . n !!CH $$ED0$$FFFF$$ . " !!CH $$0 CODE $$CTAB04 CODE $$ . !!CH $$ECH$$DVDY03$$ . !!DL 5 . EXTRN CTAB04 .
0x261414…2615a8 Dummy {f00=0x00a4, f01=0x0190, f02=»MUPAG EQU 0$$MMUPAG EQU 1$$ . ( #!!CH $$CPU852 EQU 1$$CPU852 EQU 0$$ / $ ( #!!CH $$DSKPAG EQU 0$$DSKPAG EQU 1$$ / P !!CH $$DVTDY$$DVDY03$$ / | !!CH $$/ABC$$/1850$$ / !!CH $$/1111$$/C000$$ / !!EN / ASM /S / KPF /O / KPF /S /
0x2615a8…26173c Dummy {f00=0x00a4, f01=0x0190, f02=»U 1$$CPU852 EQU 0$$ / ( #!!CH $$DSKPAG EQU 0$$DSKPAG EQU 1$$ 0 !!CH $$DVTDY$$DVDY04$$ 0 H !!CH $$/ABC$$/1850$$ 0 f !!CH $$/1111$$/C000$$ 0 !!EN 0 ASM /S 0 KPF /O 0 KPF /S 0 SCR 0 LED TCLASS 0 !!IL 6 0
0x26173c…2618d0 Dummy {f00=0x00a4, f01=0x0190, f02=» DVGP02 0 EXTRN DVKB03 1 EXTRN DVDY03 1 2 EXTRN DVDY04 1 R !!IL 11 1 r DATA TC00 1 DATA TC01 1 DATA TC02 1 DATA TC03 1 DATA
0x2618d0…261a64 Dummy {f00=0x00a4, f01=0x018e, f02=» DATA /00400 1 DATA DVDI00 2 DATA /00500 2 : DATA DVDY00 2 Z TC00E EQU * 2 z TC01 DATA TC01E-* 2 DATA /00A00 2 DATA DVDI01 2 TC01E EQU
0x261a64…261bf8 Dummy {f00=0x00a4, f01=0x0190, f02=» TC03 DATA TC03E-* 3 DATA /00212 3 & DATA DVKB03 3 F DATA /00313 3 f DATA DVDY03 3 TC03E EQU * 3 TC04 DATA TC04E-* 3 DATA /00513 3
0x261bf8…261d8c Dummy {f00=0x00a4, f01=0x0190, f02=» !!IL 6 4 EXTRN DW1501 4 EXTRN DW1500 4 2 EXTRN DWDU01 4 R EXTRN DWFD01 4 r !!IL 11 4 DATA TC00 4 DATA TC01 4 !!IL 12 4 TC00 DATA TC00E-*
0x261d8c…261f20 Dummy {f00=0x00a4, f01=0x0190, f02=» DATA /00601 4 DATA DW1500 5 DATA /00F00 5 > DATA DWDU01 5 ^ DATA /01F10 5 t DATA DWDU01 5 DATA /00F80 5 DATA DWFD01 5 DATA /01F90 5 DATA D
0x261f20…2620b4 (2, 8) Dummy {f00=0x00a4, f01=0x0190, f02=» * 5 !!EN 6 ASM /S 6 KPF /O 6 ( KPF /S 6 6 SCR 6 D LED MONTAB 6 P !!IL 19 6 b **** 6 r EXTRN CTAB01 6 ~ EXTRN CTAB04 6 !!DL 021 6 !!DL 022 6 !!DL 024 6 !!DL 028 6 !!DL 029 6 !!DL 030 6
0x2620b4…262248 Dummy {f00=0x00a4, f01=0x018a, f02=»B01 6 DATA CTAB04 7 !!DL 052 7 " !!DL 053 7 2 !!DL 055 7 B !!DL 059 7 R !!DL 060 7 b !!DL 061 7 r !!DL 062 7 !!DL 063 7 !!DL 064 7 !!DL 065 7 !!DL 066 7 !!DL 067 7 !!EN 7 ASM /S 7 KPF /O 7
0x262248…2623dc Dummy {f00=0x00a4, f01=0x2008, f02=» 8 DATA CTAB04 7 !!DL 052 7 " !!DL 053 7 2 !!DL 055 7 B !!DL 059 7 R !!DL 060 7 b !!DL 061 7 r !!DL 062 7 !!DL 063 7 !!DL 064 7 !!DL 065 7 !!DL 066 7 !!DL 067 7 !!EN 7 ASM /S 7 KPF /O 7
0x2623dc…262570 Dummy {f00=0x00a4, f01=0x0000, f02=»
[…0x4…]
0x262bc0…262d54 (2, 9) Opaque[0x194]
0x262d54…262ee8 # DirEnt {nam=»TCLASS«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x1498, f03=0x0000}
0x262d54…262ee8 IdxSect {
0x262d54…262ee8 f00 = 0x00a4 // 0x262d54 @0x0
0x262d54…262ee8 f01 = 0x0002 // 0x262d56 @0x2
0x262d54…262ee8 gno = [ // 0x262d58 @0x4
0x262d54…262ee8 [0x00]: C0x00a4.0x3.0
0x262d54…262ee8 ]
0x262d54…262ee8 }
0x262ee8…26307c Dummy {f00=0x00a4, f01=0x0190, f02=» 2 P IDENT TCLASS REL 10.0 80-03-14 870105041000 P : P* B P* L P ENTRY TCLASS V P* l P* v P EXTRN DVKB00 P EXTRN DVDI00 P EXTRN DVDY00 P EXTRN DVDI01 P
0x26307c…263210 Dummy {f00=0x00a4, f01=0x0190, f02=» P* P* PTCLASS DATA TCLASE-* P DATA TC00 4 P DATA TC01 R P DATA TC02 p P DATA TC03 P DATA TC04 PTCLASE EQU * PTC00 DATA TC00E-* P
0x263210…2633a4 Dummy {f00=0x00a4, f01=0x0190, f02=» /0050 P DATA DVDY00 PTC00E EQU * 0 PTC01 DATA TC01E-* L P DATA /00A0 n P DATA DVDI01 PTC01E EQU * PTC02 DATA TC02E-* P DATA /0036
0x2633a4…263538 Dummy {f00=0x00a4, f01=0x4104, f02=» DATA DVKB03 P DATA /0031 P DATA DVDY03 : PTC03E EQU * Z PTC04 DATA TC04E-* v P DATA /0051 P DATA DVDY04 PTC04E EQU * P END @
0x263538…2636cc Dummy {f00=0x00a4, f01=0x2008, f02=» NT TCLASS * * $ * . ENTRY TCLASS 8 * N * X * b * l * v * * TCLASS DATALTCLASE-* TCLASE EQU * END @ 1 INTLT2 INTRT1
0x2636cc…263860 Dummy {f00=0x00a4, f01=0x0000, f02=»
0x263860…2639f4 (2, 10) Opaque[0x194]
0x2639f4…263b88 # DirEnt {nam=»SCLASS«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x16a0, f03=0x0000}
0x2639f4…263b88 IdxSect {
0x2639f4…263b88 f00 = 0x00b5 // 0x2639f4 @0x0
0x2639f4…263b88 f01 = 0x0002 // 0x2639f6 @0x2
0x2639f4…263b88 gno = [ // 0x2639f8 @0x4
0x2639f4…263b88 [0x00]: C0x00b5.0x0.0
0x2639f4…263b88 ]
0x2639f4…263b88 }
0x263b88…263d1c Dummy {f00=0x00b5, f01=0x0190, f02=» 2 P IDENT SCLASS REL 10.0 80-03-14 870105041000 P : P* B P* L P ENTRY SCLASS V P* l P* v P EXTRN DW1501 P EXTRN DW1500 P EXTRN DWDU01 P EXTRN DWFD01 P*
0x263d1c…263eb0 Dummy {f00=0x00b5, f01=0x0190, f02=» PTC00 DATA TC00E-* P DATA /0061 & P DATA DW1501 F PTC00E EQU * f PTC01 DATA TC01E-* P DATA /0060 P DATA DW1500 P DATA /00F0 P DAT
0x263eb0…264044 Dummy {f00=0x00b5, f01=0x40c4, f02=»ATA /01F9 P DATA DWFD01 P DATA /02FA , P DATA DWFD01 L P DATA /03FB b P DATA DWFD01 PTC01E EQU * P END @ DATA DW1500 P DATA /00F0 P DAT
0x264044…2641d8 Dummy {f00=0x00b5, f01=0x2008, f02=» NT TCLASS * * $ * . ENTRY TCLASS 8 * N * X * b * l * v * * TCLASS DATALTCLASE-* TCLASE EQU * END @ 1 INTLT2 INTRT1
0x2641d8…26436c Dummy {f00=0x00b5, f01=0x0190, f02=» LDK A1,0 MMU ENTRY POINTER PAP:010 EQU * $ " P LD A2,TABBE GET PAGE ADDRESS 8 2 P SUKL A2,/400 DECREMENT PHYSICAL PAGE ADDRESS ^ P ST A2,TABBE STORE IT BACK P TL TABBE LOAD MMU REGISTERS * P ES A5,PAGSIZ-2,A1 STORE TEST PATTERN * P
0x26436c…264500 Dummy {f00=0x00b5, f01=0x0190, f02=»ER OF PAGES x P RB AP:010 P* & D P* END OF EXECUTION PATH FOR SYSTEMS WITH MMU OPTION EXCLUSIVELY 0 P* x P EJECT PAP:100 EQU * P* @ P* EXECUTION PATH FOR SYSTEMS WITHOUT MMU OPTION EXCLUSIVELY P* & P LDKL A1,PAG
0x264500…264694 (2, 11) Opaque[0x194]
0x264694…264828 # DirEnt {nam=»MONTAB«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x16a8, f03=0x0000}
0x264694…264828 IdxSect {
0x264694…264828 f00 = 0x00b5 // 0x264694 @0x0
0x264694…264828 f01 = 0x0002 // 0x264696 @0x2
0x264694…264828 gno = [ // 0x264698 @0x4
0x264694…264828 [0x00]: C0x00b5.0x1.0
0x264694…264828 ]
0x264694…264828 }
0x264828…2649bc Dummy {f00=0x00b5, f01=0x0190, f02=» 2 P IDENT MONTAB REL 10.0 80-03-14 870105041000 P : P* B 6 P* THIS TABLE CONTAINS ADDRESSES TO CONFIGURATION L P* DEPENDENT MONITOR TABLES P* P* P ENTRY MONTAB,SPDLCI P ENTRY FREQUE P ENTRY PAGQUE P E
0x2649bc…264b50 Dummy {f00=0x00b5, f01=0x0190, f02=» INTRT3 P ENTRY INTRT4,INTAS,INTSL P* 2 P EXTRN SYSLOD < P**** R P EXTRN CTAB01 ^ P EXTRN CTAB04 t P EXTRN KBAD3 P EXTRN GPAD P EXTRN DIAD P EXTRN DYAD P* P P PMONTAB EQU * P
0x264b50…264ce4 Dummy {f00=0x00b5, f01=0x4164, f02=»TRT1 DATA 0 PINTRT2 DATA 0 PINTRT3 DATA 0 * PINTRT4 DATA 0 @ P DATA SYSLOD V P**** j P DATA CTAB01 v P DATA CTAB04 P DATA KBAD3 P DATA GPAD P DATA DIAD P DATA DYAD P* PINTAS DATA 0
0x264ce4…264e78 Dummy {f00=0x00b5, 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
0x264e78…26500c Dummy {f00=0x00b5, f01=0x0190, f02=»T A4,ECBEL,A8 SET EFFECTIVE LENGTH P* * P IFT MMUPAG=0 4 ( P LD A2,ECBBA,A8 USER BUFFER ADDRESS J P* v P EJECT DSKSUB P* P* PVNAM10 EQU * P LDR* A3,A1 MOVE ONE WORD P STR A3,A2 ( P ADK A1,2 INCREMENT
0x26500c…2651a0 Dummy {f00=0x00b5, f01=0x0190, f02=» P IFT MMUPAG=1 2 P LD A2,DWTTAB,A6 TTAB ADDRESS OF CALLING TASK P TS -30,A15 SAVE RUNNING MMU T P TL TTB:MT,A2 LOAD USER MMU x & P LD A2,DWTUEC,A6 USER ECB ADDRESS ( P EL A2,ECBBA,A2 USER BUFFER ADDRESS P MVSU A4 MOVE VOLUME N
0x2651a0…265334 (2, 12) Opaque[0x194]
0x265334…2654c8 # DirEnt {nam=»SYSTAB«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x16b0, f03=0x0000}
0x265334…2654c8 IdxSect {
0x265334…2654c8 f00 = 0x00b5 // 0x265334 @0x0
0x265334…2654c8 f01 = 0x0006 // 0x265336 @0x2
0x265334…2654c8 gno = [ // 0x265338 @0x4
0x265334…2654c8 [0x00]: C0x00b5.0x2.0
0x265334…2654c8 [0x01]: C0x00b5.0x3.0
0x265334…2654c8 [0x02]: C0x00b6.0x0.0
0x265334…2654c8 ]
0x265334…2654c8 }
0x2654c8…26565c Dummy {f00=0x00b5, f01=0x0190, f02=» 2 P IDENT SYSTAB REL 10.0 80-03-14 870105041000 P : P* B P* L 8 P*************************************************** V P* $ P* PHILIPS TERMINAL SYSTEM PTS P* 2 P* SYSTAB = INTERRUPT VECTORS, SYSTEM CONTROL 2 P*
0x26565c…2657f0 Dummy {f00=0x00b5, f01=0x018e, f02=»*************** l P* P* " P EJECT SYSTAB , P* D P* N P*********** X P* ENTRIES * l P*********** P* P* 4 P ENTRY SCTMSZ,SCTSFA,SCTEFA SYSTEM CONTROL TABLE P ENTRY SCTIPL P ENTRY SCTANO,SCTA
0x2657f0…265984 Dummy {f00=0x00b5, f01=0x0190, f02=» P ENTRY SCTSTB P ENTRY SCTOPT P ENTRY SCTTCT,SCTCDT 0 P ENTRY SCTBUG L & P ENTRY SCTDMT,SCTDMI,SCTFWT,SCTNOF b & P ENTRY SCTNFT,SCTFWL,SCTBLK,SCTDCT P ENTRY SEG:FC,SEG:NS & P ENTRY SEG:ST,SEG:DS,SEG:EL,SEG:PB & P ENTRY PAG:Q
0x265984…265b18 Dummy {f00=0x00b5, f01=0x0190, f02=»* P* EXTERNALS * P************* P* 6 P* @ P EXTRN TDISP J , P EXTRN IHPFAR POWER FAIL / AUTO RESTART ^ P EXTRN IHLKM LKM INTERRUPT P EXTRN IHRTC REAL TIME CLOCK P EXTRN IH1501 P EXTRN IH
0x265b18…265cac Dummy {f00=0x00b5, f01=0x0190, f02=» P P P * P EXTRN CHRT1 REMOTE CHANNEL UNIT NO. 1 * P EXTRN CHRT2 REMOTE CHANNEL UNIT NO. 2 N P EXTRN CHRT3 | P EXTRN CHRT4 ( P EXTRN IHCC1 CASSETTE CHANGER NO. 1 ( P EXTRN IHCC2 2 ( P EXTRN IHCC3
0x265cac…265e40 Dummy {f00=0x00b5, f01=0x0190, f02=» P EXTRN CHLT4 0 P EXTRN IHFD,IHCD FLOPPY DISC,CDC (80 M) DISC P EXTRN IHLP LINE PRINTER P P EXTRN IHCR CARD-READER p ( P EXTRN IHDU1,IHDU2 DISC UNIT NO. 1/2 0 P EXTRN IHMD,IASCUZ,ISLCI,ISLCO MINI FIX DISC P EXTRN IHMT MAG. TAPE
0x265e40…265fd4 (2, 13) Dummy {f00=0x00b5, f01=0x0190, f02=» 0 P* DISPLACEMENTS IN SEGTAB, PAGTAB AND SWBTAB P* 8 PSEG:FC EQU -4 FILE CODE B $ PSEG:NS EQU -2 NUMBER OF SEGMENTS b PSEG:ST EQU 0 STATUS $ PSEG:DS EQU 2 DISC SECTOR ADDRESS " PSEG:EL EQU 4 EFFECTIVE LENGTH $ PSEG:PB EQU 6 PAGE BL
0x265fd4…266168 Dummy {f00=0x00b5, f01=0x0190, f02=»DRESS | & PPAG:SB EQU 6 SEGMENT BLOCK ADDRESS P* 8 2 PSWB:NC EQU 0 NUMBER OF COPIES WITHIN SWB TYPE B 2 PSWB:DS EQU 2 DISC SECTOR ADDRESS OF FIRST COPY x $ PSWB:EL EQU 4 SWB LENGTH (BYTES) & PSWB:NS EQU 6 SWB LENGTH (SECTORS) P*
0x266168…2662fc Dummy {f00=0x00b5, f01=0x018e, f02=»ATA IHLKM 1 P DATA IHRTC 2 P DATA ILLINT 3 6 P DATA ILLINT 4 R P DATA ILLINT 5 n P DATA ILLINT 6 P DATA ILLINT P DATA ILLINT P DATA ILLINT P D
0x2662fc…266490 Dummy {f00=0x00b5, f01=0x018e, f02=» P DATA IHFD 15 P DATA ILLINT P DATA ILLINT > P DATA ILLINT ^ P DATA ILLINT ~ P DATA ILLINT P DATA ILLINT P DATA ILLINT 22 P DATA
0x266490…266624 Dummy {f00=0x00b5, f01=0x0190, f02=» v P DATA ILLINT 28 P DATA ILLINT 29 $ P DATA IHFD 30 @ P DATA ILLINT 31 Z P DATA ILLINT 32 v P DATA ILLINT 33 P DATA ILLINT P DATA ILLINT P DATA ILLINT 36
0x266624…2667b8 Dummy {f00=0x00b5, f01=0x0190, f02=»NT z P DATA ILLINT 42 P DATA ILLINT 43 & P DATA ILLINT B P DATA ILLINT 45 b P DATA ILLINT 46 ~ P DATA ILLINT 47 P DATA ILLINT P DATA ILLINT 49 P DATA ILLINT 50
0x2667b8…26694c Dummy {f00=0x00b5, f01=0x0190, f02=»55 ~ P DATA ILLINT 56 P DATA ILLINT 57 & P DATA ILLINT 58 B P DATA ILLINT 59 ^ P DATA ILLINT 60 z P DATA ILLINT 61 P DATA ILLINT 62 P DATA TRAP TRAP ROUTINE P EJECT SYSTAB P
0x26694c…266ae0 Dummy {f00=0x00b5, f01=0x0190, f02=» PTRAP LDK A1,/D P CF A15,HALT P RES 4 . P HLT < P H P* P P* DEBUG RESTART ENTRY Z P* x P XRR A13,A13 P XRR A14,A14 P LD A1,SCTBUG P ABR(NZ) A1 P HLT P* P EJECT SYSTAB P*
0x266ae0…266c74 (2, 14) Dummy {f00=0x00b6, f01=0x0190, f02=»X:D EQU 0 DM/FM NUMBER OF FILES ( PX:E EQU 0 DM/FM NUMBER OF FILES/TASK ( $ PX:F EQU 0 FILE WORK TABLE LENGTH T PX:G EQU 0 DC TASK IN SYSTEM | P* P EJECT SYSTAB P* P* SYSTEM CONTROL TABLE P* PSCT EQU * P
0x266c74…266e08 Dummy {f00=0x00b6, f01=0x0190, f02=»TIPL DATA 0 IPL DEVICE FILE CODE: * P TC:C0,C1 DK:F0,F1 MD:F4,F5 FD:F8,F9 * $ PSCTANO DATA 0 APPLICATION NUMBER X 4 PSCTADA DATA 0,0 APPLICATION DISC SECTOR ADDRESS . PSCTIOE DATA 0 APPLICATION RESTART ADDRESS PSCTTCT DATA 0 TCTAB ADDRESS
0x266e08…266f9c Dummy {f00=0x00b6, f01=0x0190, f02=»F PAGES z PSCTPSZ DATA 0 PAGE SIZE . PSCTMMC DATA 0 MMU TABLE COMMON PART ENTRY 0 P INDEX REL TTAB b 0 PSCTLAC DATA 0 LOGICAL ADDRESS OF COMMON PART | & PSCTMMP DATA 0 MMU TABLE PAGE ENTRY P INDEX REL TTAB * PSCTLAP DATA 0 LOGICA
0x266f9c…267130 Dummy {f00=0x00b6, f01=0x0190, f02=»R OPTION: x " P BIT 10:MPO,11:EMM,12:SWPBLK $ P BIT 13:FM,14:DSKPAG,15:MMUPAG 8 PSCTBUG DATA 0 DEBUGGER ` & PSCTDMT DATA X:B DMTASKS IN SYSTEM ~ & P BIT 12:#G, 13:#F, 14:#E, 15:#D 2 PSCTDMI DATA 00000 DM INDEX RECORD BUFFER SIZE P
0x267130…2672c4 Dummy {f00=0x00b6, f01=0x0190, f02=»FT DATA 00002 NUMBER OF FILES/TASK , PSCTFWL DATA 00094 FILE WORK TABLE LENGTH * ( PSCTBLK DATA 6 NUMBER OF BLOCKS/TASK Z . PSCTDCT DATA 00001 DC-TASK IN SYSTEM/REMOTE P EJECT SYSTAB P P* P* SYSTEM STACK P* P RES 1
0x2672c4…267458 Dummy {f00=0x00b6, f01=0x4042, f02=» PLOOP RB * P P " P * P END 2@ >ORK TABLE LENGTH * ( PSCTBLK DATA 6 NUMBER OF BLOCKS/TASK Z . PSCTDCT DATA 00001 DC-TASK IN SYSTEM/REMOTE P EJECT SYSTAB P P* P* SYSTEM STACK P* P RES 1
0x267458…2675ec Dummy {f00=0x00b6, 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
0x2675ec…267780 Dummy {f00=0x00b6, f01=0x0190, f02=» E :N _H ^ 9C : T _4 4 !00Z !99Y ! : 6 2 ' < < #0 Q &V Qx & C 92 T #W T # C C 5 < #0 Q <P & + P _ Qd :N < #03 Q < ;d # + :N <
0x267780…267914 (2, 15) Opaque[0x194]
0x267914…267aa8 # DirEnt {nam=»TDISP «, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x16c8, f03=0x0000}
0x267914…267aa8 IdxSect {
0x267914…267aa8 f00 = 0x00b6 // 0x267914 @0x0
0x267914…267aa8 f01 = 0x0008 // 0x267916 @0x2
0x267914…267aa8 gno = [ // 0x267918 @0x4
0x267914…267aa8 [0x00]: C0x00b6.0x1.0
0x267914…267aa8 [0x01]: C0x00b6.0x2.0
0x267914…267aa8 [0x02]: C0x00b6.0x3.0
0x267914…267aa8 [0x03]: C0x00b7.0x0.0
0x267914…267aa8 ]
0x267914…267aa8 }
0x267aa8…267c3c Dummy {f00=0x00b6, f01=0x0190, f02=» 0 P IDENT TDISP REL 10.0 80-03-14 870105041000 P 8 P* @ P* J 6 P************************************************** T P* $ P* PHILIPS TERMINAL SYSTEM PTS P* P* TDISP = TOSS DISPATCHER P* 6 P****************
0x267c3c…267dd0 Dummy {f00=0x00b6, f01=0x0190, f02=» WITH 8 REGISTERS ON A15 STACK. v > P* THE DISPATCHER CHECKS IF THERE IS A TASK IN DISPATCHER ( < P* QUEUE WITH HIGHER PRIORITY THAN INTERRUPTED PROGRAM. j : P* - IF SO, THE RUNNING TASK IS QUEUED AND THE HIGHER $ P* PRIORITY TASK IS STARTED.
0x267dd0…267f64 Dummy {f00=0x00b6, f01=0x0190, f02=» 6 P* ENTRY 'DISIOE' SETS BIT 0 IN A1 BEFORE DISEND. P* B 8 P* ENTRY 'MEXIT' EXITS A MONITOR TASK BEFORE TDISP. L P* H P* ENTRY 'QMEXIT' CALLS QTJOB BEFORE EXIT IS MADE ON MONITOR TASK. P* 0 P* ENTRY 'TEXIT' EXITS A TASK B
0x267f64…2680f8 Dummy {f00=0x00b6, f01=0x0190, f02=» A TASK BEFORE TDISP. t P* D P* ENTRY 'RETUR8' LOADS 8 REGISTERS FROM A15 STACK AND RETURNS. ( P* p P EJECT TDISP z P* P* P*********** P* ENTRIES * P*********** P* P* " P ENTRY TDISP DISPATC
0x2680f8…26828c Dummy {f00=0x00b6, f01=0x018e, f02=»E TASK AND EXIT MONITOR TASK ~ , P ENTRY ACTDIS ACTIVATE TASK AND DISPATCH $ " P ENTRY DISIOE I/O ERROR ENTRY T & P ENTRY DISEND END I/O AND DISPATCH z 6 P ENTRY DISQUE POINTER TO FIRST TASK IN DISP. QUEUE , P ENTRY PRUN TTAB ADDRESS OF RUNNING TASK
0x26828c…268420 Dummy {f00=0x00b6, f01=0x0190, f02=» P************* P* P* ( P EXTRN ACTOT ACTIVATE TASK 2 P EXTRN TTB:SA SAVE AREA T P EXTRN TTB:ST STATUS t & P EXTRN TTB:PW PROGRAM STATUS WORD P EXTRN TTB:MT MMUTAB & P EXTRN TTB:CB CURRENT SEGMENT BASE ( P EXTRN T
0x268420…2685b4 (2, 16) Dummy {f00=0x00b6, f01=0x0190, f02=» QUEUE BACKWARD POINTER ~ P EXTRN TENDIO END I/O P EXTRN EXIT PROGRAM EXIT > 2 P EXTRN QLTDSK ACTIVATE LDTASK AT ENTRY LT:DSK ^ , P EXTRN QTJOB QUEUE TASK FOR DISPATCHING . P EXTRN SCTLAP LOGICAL ADDRESS OF CODE PAGE & P EXTRN SCTMMP MMU
0x2685b4…268748 Dummy {f00=0x00b6, f01=0x0190, f02=»*************** v P* P* CONDITIONAL ASSEMBLY " P* @ . P***************************************** J P* | . P* A PROGRAM VERSION USING TOSS MMU PAGING * P* IS OBTAINED BY SETTING MMUPAG EQU 1. P* PMMUPAG EQU 1 P*
0x268748…2688dc Dummy {f00=0x00b6, f01=0x0190, f02=»U852 EQU 0 P* * . ** A PROGRAM VERSION USING TOSS DISC PAGING & * &* IS OBTAINED BY SETTING DSKPAG EQU 1. X * PDSKPAG EQU 1 * P* @ P* A PROGRAM VERSION PREVENTING SEGMENTS TO MOVE WHEN HAVING > P* APPLICATIO
0x2688dc…268a70 Dummy {f00=0x00b6, f01=0x0190, f02=» P* P EJECT TDISP P* ( P* D I S Q U E 2 P* J 2 P* POINTER TO FIRST TASK IN DISPATCHER QUEUE T P* PDISQUE DATA 0 P* P* P R U N P* $ P* TTAB ADDRESS OF RUNNING TASK P* PPRUN
0x268a70…268c04 Dummy {f00=0x00b6, f01=0x018e, f02=» P* PRETUR8 EQU * P " P IFT CPU852=0 * P MLR 8,A15 @ P XIF R P ^ P IFT CPU852=1 f P LDR* A8,A15 | P LDR* A7,A15 P LDR* A6,A15 P LDR* A5,A15 P LDR* A4,A15 P LDR* A3,A15 P LDR* A2,A15 P
0x268c04…268d98 Dummy {f00=0x00b6, f01=0x0190, f02=» h P* 2 P* DO EXIT ON (MONITOR) TASK AND GO TO TDISP P* H 2 PQMEXIT CF A15,QTJOB QUEUE TASK FOR DISPATCHING R P* PMEXIT INH P LD A5,PRUN P CM PRUN P* PTEXIT EQU * P CF A15,EXIT P RF TDISP
0x268d98…268f2c Dummy {f00=0x00b6, f01=0x0190, f02=» RF TDISP P EJECT TDISP P ( P* 0 P* D I S I O E : P* R 6 P* SET BIT 0 IN ECB RETURN CODE AND GO TO DISEND P* PDISIOE LDKL A1,/8000 P P* P* D I S E N D P* $ P* CALL TENDIO AND GO T
0x268f2c…2690c0 Dummy {f00=0x00b6, f01=0x0190, f02=»ISP) r P* PTPAUSE EQU * P EJECT TDISP * P* @ P* T D I S P J P* ` $ P* THIS IS THE DISPATCHER ENTRY j P* PTDISP INH & P LC A1,18,A15 LOAD PSW FROM STACK P ANK A1,/FC P SUK A1,/C4 . P RB(L) R
0x2690c0…269254 (2, 17) Dummy {f00=0x00b6, f01=0x0190, f02=» P RB(Z) RETUR8 QUEUE EMPTY P * P LD A5,PRUN 2 $ P RF(Z) TDCQ10 IDLE LOOP RUNNING F & P LD A4,TTB:ST+1,A5 COMPARE RUNNING n 4 P CC A4,TTB:ST+1,A3 AND QUEUED TASK'S PRIORITIES * P RB(NG) RETUR8 RUNNING HIGHER OR SAME $ PTDCQ10 LDR
0x269254…2693e8 Dummy {f00=0x00b6, f01=0x0190, f02=»DDR l P RF(Z) TDISSW NONE P LDR* A7,A1 & P RF(N) TDISSW SEGMENT LOADED : 2 P CF A15,QLTDSK SEGM NOT LOADED QUEUE LOAD TASK ^ & P RB TDISCQ TAKE NEXT TASK INSTEAD P XIF P EJECT TDISP P* P* SWITCH TASKS P* *
0x2693e8…26957c Dummy {f00=0x00b6, f01=0x018e, f02=»0 QUEUE OLD TASK FIRST ON PRIORITY P RF(Z) TDSW20 EMPTY QUEUE * 0 PTDSW10 CC A4,TTB:ST+1,A6 COMPARE PRIORITIES L 0 P RF(NG) TDSW20 SAME OR LOWER PRIORITY FOUND P LDR A2,A6 P LDR* A6,A2 , P RB(NZ) TDSW10 STILL SOMETHING IN QUEUE
0x26957c…269710 Dummy {f00=0x00b6, f01=0x0190, f02=» P IFT CPU852=0 P MLR 8,A15 P MS 13,TTB:SA+2,A14 , P MLR 2,A15 H P Z P XIF b P IFT CPU852=1 n P LDR* A8,A15 P LDR* A7,A15 P LDR* A6,A15 P LDR* A5,A15 P LDR* A4,A15 P LDR* A3,A15 P LDR* A2,A15
0x269710…2698a4 Dummy {f00=0x00b6, f01=0x0190, f02=»A14 ~ P ST A9,TTB:SA+18,A14 P ST A8,TTB:SA+16,A14 ( P ST A7,TTB:SA+14,A14 D P ST A6,TTB:SA+12,A14 ` P ST A5,TTB:SA+10,A14 | P ST A4,TTB:SA+8,A14 P ST A3,TTB:SA+6,A14 P ST A2,TTB:SA+4,A14 P ST A1,TTB:SA+2,A14 P
0x2698a4…269a38 Dummy {f00=0x00b6, f01=0x0190, f02=»FT DSKPAG+DIFPRI=2 P * P LD A1,TTB:SB,A14 GET SEGM BLOCK ADDR " P RF(Z) TDISST NONE P P LDR* A2,A1 GET SEGM STATUS j P LDKL A3,/1000 , P TM A2,A3 CHECK IF SEGM USED BY INT TASK P RF(NZ) TDISST YES * P ORRS A3,A1 SET SEGM USED
0x269a38…269bcc Dummy {f00=0x00b6, f01=0x0190, f02=» P* START NEW TASK P* PTDISST LD A14,PRUN & P IFT DSKPAG=1 @ P V * P LD A1,TTB:SB,A14 GET SEGM BLOCK ADDR ^ P RF(Z) TDST30 NONE ( P LD A4,SEG:PB,A1 GET PAGE BLOCK ADDR P IFT DIFPRI=0 P ( P LDR* A2,A4 CHECK IF PAG
0x269bcc…269d60 Dummy {f00=0x00b6, f01=0x0190, f02=»IN PAGQUE v P RF(NZ) TDST10 YES " P LDR* A3,A1 NO GET SEGM STATUS , 2 P ANKL A3,/1000 CHECK IF SEGM USED BY INT TASK R P RF(Z) TDST20 NO 4 P CW A14,PAG:QB,A4 YES CHECK IF IT WAS THIS TASK P RF(NE) TDST20 NO * P XRRS A3,A1 YES RESET
0x269d60…269ef4 (2, 18) Dummy {f00=0x00b7, f01=0x0190, f02=»E d P STR A2,A3 P ST A3,PAG:QB,A2 P CMR A4 4 P D , PTDST20 LD A1,PAG:PA,A4 GET PAGE ADDRESS L P | P IFT MMUPAG=1 P " P ECR A2,A1 CALC PHYS PAGE ADDR P ANK A2,/FC * P LDR A3,A14 AND MMU PAGE ENTRY IN TTAB
0x269ef4…26a088 Dummy {f00=0x00b7, f01=0x0190, f02=»UK A4,1 P RF(Z) TDST25 P ADK A2,4 & P ADK A3,2 8 P RB TDST22 J P PTDST25 EQU * d " P TL TTB:MT,A14 LOAD MMU TABLE x 2 P SLL A1,2 UPDATE BASE IN T:A ALSO JUST IN CASE P ANKL A1,/FFE P OR A1,SCTLAP 2 P ES* A1,
0x26a088…26a21c Dummy {f00=0x00b7, f01=0x0190, f02=»E CURRENT SEGMENT BASE x P XIF P * PTDST30 EQU * 2 P IFT MMUPAG=1 F " P TL TTB:MT,A14 LOAD MMU TABLE P XIF P & PTDST35 LD A1,TTB:SA,A14 GET NEW PC P LD A2,TTB:PW,A14 AND PSW P IFT CPU852=0 P & P MSR 2,A
0x26a21c…26a3b0 Dummy {f00=0x00b7, f01=0x0190, f02=»5 PUT PC P STR A2,A15 AND PSW ON STACK & P LD A1,TTB:SA+2,A14 LOAD REGISTERS 4 P LD A2,TTB:SA+4,A14 ^ P LD A3,TTB:SA+6,A14 z P LD A4,TTB:SA+8,A14 P LD A5,TTB:SA+10,A14 P LD A6,TTB:SA+12,A14 P LD A7,TTB:SA+14,A14 P L
0x26a3b0…26a544 Dummy {f00=0x00b7, f01=0x4098, f02=» z P LD A13,TTB:SA+26,A14 P LD A14,TTB:SA+28,A14 & P D P XIF L P X P RTN A15 START THE TASK ` P P END @ D A4,TTB:SA+8,A14 P LD A5,TTB:SA+10,A14 P LD A6,TTB:SA+12,A14 P LD A7,TTB:SA+14,A14 P L
0x26a544…26a6d8 Dummy {f00=0x00b7, 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
0x26a6d8…26a86c Dummy {f00=0x00b7, f01=0x0190, f02=»CTMSZK SCTSFA SCTEFA $ SCTIPL 8 SCTANO L SCTADA ` , ( @ t SCTIOEL SCTTCT SCTCDTV SCTPAG SCTSWB
0x26a86c…26aa00 Dummy {f00=0x00b7, f01=0x418a, f02=» SCTSTB SCTOPT bBUG , SCTBUG : , ( 6 N SCTDMT~ ~ SCTDMI SCTFWT SCTNOF SCTNFT SCTFWL SCTBLK
0x26aa00…26ab94 (2, 19) Opaque[0x194]
0x26ab94…26ad28 # DirEnt {nam=»LRPINT«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x16e8, f03=0x0000}
0x26ab94…26ad28 IdxSect {
0x26ab94…26ad28 f00 = 0x00b7 // 0x26ab94 @0x0
0x26ab94…26ad28 f01 = 0x000a // 0x26ab96 @0x2
0x26ab94…26ad28 gno = [ // 0x26ab98 @0x4
0x26ab94…26ad28 [0x00]: C0x00b7.0x1.0
0x26ab94…26ad28 [0x01]: C0x00b7.0x2.0
0x26ab94…26ad28 [0x02]: C0x00b7.0x3.0
0x26ab94…26ad28 [0x03]: C0x00b8.0x0.0
0x26ab94…26ad28 [0x04]: C0x00b8.0x1.0
0x26ab94…26ad28 ]
0x26ab94…26ad28 }
0x26ad28…26aebc Dummy {f00=0x00b7, f01=0x018e, f02=» 2 P IDENT LRPINT REL 10.0 80-03-14 870105041000 P : P* B P* L 6 P************************************************** V P* $ P* PHILIPS TERMINAL SYSTEM PTS P* 0 P* LRPINT = INTERRUPT HANDLERS FOR LKM, RTC " P*
0x26aebc…26b050 Dummy {f00=0x00b7, f01=0x0190, f02=» P* P* : P* THIS MODULE CONTAINS MANDATORY INTERRUPT HANDLERS P* FOR TOSS. THESE ARE: V P* v P* -IHLKM: LKM INTERRUPT P* P* -IHRTC: RTC INTERRUPT P* ( P* -IHPFAR: POWER FAILURE INTERRUPT P*
0x26b050…26b1e4 Dummy {f00=0x00b7, f01=0x0190, f02=»QUEUE JOB AND DISPATCH v P* ( P* -LKMQDI: QUEUE JOB AND DISPATCH ( P* T P EJECT LRPINT ^ P* v P* P*********** P* ENTRIES * P*********** P* P* & P ENTRY IHLKM LKM INTERRUPT HANDLER 4 P ENT
0x26b1e4…26b378 Dummy {f00=0x00b7, f01=0x018e, f02=»RROR d ( P ENTRY LKMQDI QUEUE JOB AND DISPATCH & P ENTRY IHRTC RTC INTERRUPT HANDLER 8 8 P ENTRY TIMQUE POINTER TO FIRST BLOCK IN TIMER QUEUE b P ENTRY MONCLO MONITOR CLOCK 2 P ENTRY IHPFAR POWER FAILURE INTERRUPT HANDLER & P ENTRY INIFLG IN
0x26b378…26b50c Dummy {f00=0x00b7, f01=0x0190, f02=» P* EXTERNALS * P************* P* 0 P* : P EXTRN TDISP DISPATCHER D " P EXTRN DISQUE DISPATCHER QUEUE d ( P EXTRN PRUN TTAB OF RUNNING PROGRAM " P EXTRN MEXIT MONITOR TASK EXIT , P EXTRN MONMMU MONITOR (SYSTEM) MMU TABLE
0x26b50c…26b6a0 Dummy {f00=0x00b7, f01=0x0190, f02=» LEVEL XY z P EXTRN FREBLK SET BLOCK FREE " P EXTRN SAVE8 SAVE 8 REGISTERS 6 $ P EXTRN PFINIT RESTART OF DEVICES P EXTRN HALT HALT MODULE ( P EXTRN INTSAV INTERRUPT SAVE MODULE P EXTRN RELPAG RELEASE PAGE , P EXTRN TLDSEG LOAD SEG
0x26b6a0…26b834 (2, 20) Dummy {f00=0x00b7, f01=0x0190, f02=» OF SAVE AREA IN TTAB x " P EXTRN LKMAL LKM REQUEST TABLE P EJECT LRPINT D P* P* f . P***************************************** p P* P* CONDITIONAL ASSEMBLY P* . P***************************************** P*
0x26b834…26b9c8 Dummy {f00=0x00b7, f01=0x0190, f02=» P* 6 P* A PROGRAM VERSION USING THE EXTENDED INSTRUCTION . P* SET IS OBTAINED BY SETTING CPU852 EQU 0. L P* ~ PCPU852 EQU 0 P* * . ** A PROGRAM VERSION USING TOSS DISC PAGING * &* IS OBTAINED BY SETTING DSKPAG EQU 1.
0x26b9c8…26bb5c Dummy {f00=0x00b7, f01=0x0190, f02=»ETTING MONCLK EQU 0. ~ P* PX:A EQU 1 & PMONCLK EQU 1 8 P* L P EJECT LRPINT V P* n P* x P* I H L K M P* P* 8 P* THIS IS THE LKM INTERRUPT HANDLER. THE FOLLOWING P* STEPS ARE CARRIED OUT:
0x26bb5c…26bcf0 Dummy {f00=0x00b7, f01=0x0190, f02=»* PROGRAM. P* : P* - EXIT CONDITIONS ARE SET AND A BRANCH IS MADE TO $ P* APPROPRIATE LKM PROCESSOR. ^ P* P* EXIT CONDITIONS ARE: P* * P* A4 = LABEL ADDRESS OF LKM REQUEST 8 P* (A4 = 0 INDICATES NO LA
0x26bcf0…26be84 Dummy {f00=0x00b7, f01=0x0190, f02=» P* : P* ALL OTHER REGISTERS REMAIN UNCHANGED FROM CALLING P* PROGRAM. L P* ` P* j P* t PIHLKM EQU * ~ $ P ST P,INTSAV SAVE LAST INTERRUPT * P RIT /1D RESET INTERNAL INTERRUPT FLAG P* P EJECT LRPINT
0x26be84…26c018 Dummy {f00=0x00b7, f01=0x0190, f02=»B:SA+28 SET A15 TO LAST IN SAVE AREA * P STR A14,A15 SAVE USER REGISTERS, -A14 , P STR A13,A15 -A13 Z P STR A12,A15 -A12 t P STR A11,A15 -A11 P STR A10,A15 -A10 P STR A9,A15 -A9 P STR A8,A15 -A8 P STR A7,A15 -A7
0x26c018…26c1ac Dummy {f00=0x00b7, f01=0x0190, f02=»1 P XIF P* P IFT CPU852=0 6 P MS 14,TTB:SA+2,A15 SAVE A1-A14 IN TTAB SAVE AREA 6 P XIF p P* | 0 P LD A5,PRUN GET TTAB ADDRESS OF CALLING TASK * P LDKL A15,0 RESTORE A15 STACK POINTER PLKM010 EQU *-2 P* P
0x26c1ac…26c340 Dummy {f00=0x00b7, f01=0x0190, f02=»STACK POINTER n & P ST A3,TTB:PW,A5 STORE PSW IN TTAB P* @ P IFT MMUPAG=0 J & P LD A3,-2,A2 GET INSTRUCTION CODE ` " P LDR* A6,A2 GET DATA DIRECTIVE P XIF P* P IFT MMUPAG=1 P ANK A3,1 P RF(NZ) LKM015 USER MODE
0x26c340…26c4d4 (2, 21) Dummy {f00=0x00b7, f01=0x0190, f02=»ET DATA DIRECTIVE P XIF P* & P CWK A3,/2804 0 P RF(E) LKM025 LKM F P CWK A3,/6300 ` P RF(E) LKM025 TRAP v P* $ P* STACK OVERFLOW: HALT SYSTEM P* P LDK A1,7 HALT PARAMETER 0 P RF LKM070 HALT SYSTEM DUE T
0x26c4d4…26c668 Dummy {f00=0x00b7, f01=0x018e, f02=» GET SEGMENT BLOCK ADDRESS P RF(Z) LKM027 NO SEGMENT " " P LCR A4,A3 GET SEGMENT STATUS B , P ANK A4,/1E CHECK IF CORE RESIDENT OR... h 2 P RF(NZ) LKM027 ...USED BY AN INTERRUPTED TASK P* ( P* INSERT PAGE BLOCK IN PAGE QUEUE P*
0x26c668…26c7fc Dummy {f00=0x00b7, f01=0x018e, f02=» PLKM027 EQU * P IFF MMUPAG+DSKPAG=0 " P CWK A6,9 CHECK DATA DIRECTIVE 4 ( P ABL(E) TLDSEG LOAD SEGMENT REQUEST Z P XIF P* P EJECT LRPINT P* P* PLKM030 EQU * ( P CM PRUN INDICATE IDLE LOOP RUNNING $ P
0x26c7fc…26c990 Dummy {f00=0x00b7, f01=0x0190, f02=» P* LKM REQUEST WITH LABEL P* & P ADK A2,2 0 , P NGR A3,A3 MAKE DATA DIRECTIVE POSITIVE B P* r P IFT MMUPAG=0 | P LDR* A4,A2 GET LABEL P XIF P* P IFT MMUPAG=1 P ELR A4,A2 GET LABEL P XIF P*
0x26c990…26cb24 Dummy {f00=0x00b7, f01=0x0190, f02=»EXT ADDRESS TO $ P ST A2,TTB:SA,A5 EXECUTE IN TTAB " P ADR A3,A3 GET INDEX IN LKMAL > ( P RF(Z) LKMQDI PROGRAM SWITCH REQUEST d P CW A3,LKMAL * P RF(NL) LKMRQE INVALID DATA DIRECTIVE P INH P LD A3,LKMAL,A3 ( P ABR(NZ) A3 BRANCH
0x26cb24…26ccb8 Dummy {f00=0x00b7, f01=0x0190, f02=»1,15 INDICATE REQUESTED LKM PROC. NOT PRESENT P* 6 PLKM070 EQU * @ P CF A15,HALT HALT SYSTEM T P* t P* ~ P* L K M R Q E P* 6 P* SET A7 = -1, QUEUE TERMINAL JOB AND DISPATCH. P* P* A5 = TTAB ADDRESS
0x26ccb8…26ce4c Dummy {f00=0x00b7, f01=0x0190, f02=» L K M Q D I P* ( P* QUEUE TERMINAL JOB AND DISPATCH. P* L P* A5 = TTAB ADDRESS V P* t P* ~ PLKMQDI EQU * P CF A15,QTJOB P* * PT:DISP EQU * COMMON EXIT TO DISPATCHER P ABL TDISP GO TO DISPATCHER
0x26ce4c…26cfe0 Dummy {f00=0x00b7, f01=0x0190, f02=»LER. Z P* P P P & P DATA 0 . & PTTABPF DATA 0 TTAB FOR POWER FAIL > P DATA '#P' h P DATA 0 z PA15SAV DATA 0 P DATA /00C0 P DATA PFTASK P P P P P & PPFX DATA 1 POWER ON/OFF
0x26cfe0…26d174 (2, 22) Dummy {f00=0x00b8, f01=0x018e, f02=» * PPFPOST DATA 0 PWF POST PROCESSING FLAG P NZ=PWF POST PROCESSING 6 P EJECT LRPINT X P p P* x * P* POWER FAIL/AUTO RESTART INTERRUPT P* P PIHPFAR EQU * $ P ST P,INTSAV SAVE LAST INTERRUPT & P RIT /17
0x26d174…26d308 Dummy {f00=0x00b8, f01=0x018e, f02=» P* P IFT CPU852=1 & P CF A15,SAVE8 SAVE A1-A14 ON STACK $ P STR A9,A15 N P STR A10,A15 b P STR A11,A15 v P STR A12,A15 P STR A13,A15 P STR A14,A15 P XIF P P IFT CPU852=0 $ P MSR 14,A15 SAVE A1-A14
0x26d308…26d49c Dummy {f00=0x00b8, f01=0x0190, f02=» P* POWER ON P* P " " PPOWON LD A15,A15SAV RELOAD A15 * P P P IFT CPU852=1 X P LDR* A14,A15 RESTORE A9-A14 n P LDR* A13,A15 P LDR* A12,A15 P LDR* A11,A15 P LDR* A10,A15 P LDR* A9,A15 P XIF
0x26d49c…26d630 Dummy {f00=0x00b8, f01=0x0190, f02=» FOR DISPATCHING p P LDKL A2,TTABPF P CWR A1,A2 0 4 P RB(E) T:DISP ALREADY QUEUED, PWF DURING PFPOST B P STR A1,A2 z P ST A2,DISQUE , P IM PFPOST INDICATE PWF POST PROCESSING P RB T:DISP P EJECT LRPINT P P*
0x26d630…26d7c4 Dummy {f00=0x00b8, f01=0x0190, f02=»OC FLAG n P CM INIFLG AND INIT FLAG & P CF A15,PFINIT RESTART I/O DEVICES 0 P CM PRUN EXIT PFTASK Z P RB T:DISP v P EJECT LRPINT P* P* I H R T C P* 6 P* THIS IS THE REAL TIME CLOCK INTERRUPT HANDLER. 6 P*
0x26d7c4…26d958 Dummy {f00=0x00b8, f01=0x0190, f02=»LAG v P IM COUNT $ P RF(P) RTC010 CHECK TIMER QUEUE P RTN A15 F P* V PRTC010 EQU * ` P IFT CPU852=1 t & P CF A15,SAVE8 SAVE A1-A8 ON STACK P XIF P* P IFT CPU852=0 " P MSR 8,A15 SAVE A1-A8 ON STACK P X
0x26d958…26daec Dummy {f00=0x00b8, f01=0x0190, f02=»QMJOB P* P IFT MONCLK=1 P IM SECOND . & P RF(P) RTC025 UPDATE MONITOR CLOCK @ P XIF j P* v PRTC020 EQU * $ P CF A15,SWLXY SWITCH TO LEVEL XY P RB T:DISP P* P EJECT LRPINT P* P* P IFT
0x26daec…26dc80 Dummy {f00=0x00b8, f01=0x0190, f02=»T SECOND SWITCH P ST A4,SECOND P LDK A4,4 . P* @ 2 PMCLO10 LDK A3,60 NUMBER OF MINUTES AND SECONDS J ( PMCLO20 IM MONCLO+2,A4 INCREMENT TIME . P XR A3,MONCLO+2,A4 CHANGE MINUTES OR HOURS $ P RB(NE) RTC020 GO TO DISPATCHER ( P C
0x26dc80…26de14 (2, 23) Dummy {f00=0x00b8, f01=0x0190, f02=» LDK A3,24 UPDATE HOURS P RB MCLO20 P XIF 2 P* > P* H P* M O N C L O R P* j P* t PMONCLO EQU * ~ P IFT MONCLK=1 & P DATA 0 ACCUMULATED 24 HOUR CARRY P DATA 0 HOUR P DATA 0 MINUTE P DATA 0 SECO
0x26de14…26dfa8 Dummy {f00=0x00b8, f01=0x0190, f02=»S. l P* PCLOCK INH , P LDKL A4,TIMQUE LOAD FIRST TIMER ADDRESS & P* V PCLK10 LDR A6,A4 ` $ PCLK20 LDR* A4,A6 GET TIMER BLOCK x P ABL(Z) MEXIT END OF QUEUE P IM 4,A4 INCREMENT TIMER P RB(N) CLK10 NOT TIME OUT P RF(
0x26dfa8…26e13c Dummy {f00=0x00b8, f01=0x0190, f02=» P RB CLK20 P* P EJECT LRPINT P* 8 P* B , PCLK30 CF A15,CLK40 CALL TIME OUT ROUTINE L $ P CF A15,SWL48 SWITCH TO LEVEL 48 | P INH P RB CLK10 P* PCLK40 EQU * P IFT CPU852=1 & P CF A15,SAVE8 SAVE
0x26e13c…26e2d0 Dummy {f00=0x00b8, f01=0x0190, f02=»,/C4C0 LEVEL 49 AND ENABLE & P ST A1,18,A15 SET NEW PSW ON STACK ! " P LD A2,2,A4 LOAD DISP BLOCK ! L P LD A1,4,A2 GET PARAMETER ! p $ P ABI 2,A2 GO TO TIME OUT ROUTINE ! P* ! P* ! PCOUNT DATA 0 100 MS SWITCH ! P* ! P* ! P*
0x26e2d0…26e464 Dummy {f00=0x00b8, f01=0x4022, f02=»* ! P " P END " @ " ST A1,18,A15 SET NEW PSW ON STACK ! " P LD A2,2,A4 LOAD DISP BLOCK ! L P LD A1,4,A2 GET PARAMETER ! p $ P ABI 2,A2 GO TO TIME OUT ROUTINE ! P* ! P* ! PCOUNT DATA 0 100 MS SWITCH ! P* ! P* ! P*
0x26e464…26e5f8 Dummy {f00=0x00b8, 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
0x26e5f8…26e78c Dummy {f00=0x00b8, f01=0x0000, f02=»
[…0x1…]
0x26e920…26eab4 (2, 24) Opaque[0x194]
0x26eab4…26ec48 # DirEnt {nam=»TPROC «, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x1710, f03=0x0000}
0x26eab4…26ec48 IdxSect {
0x26eab4…26ec48 f00 = 0x00b8 // 0x26eab4 @0x0
0x26eab4…26ec48 f01 = 0x0006 // 0x26eab6 @0x2
0x26eab4…26ec48 gno = [ // 0x26eab8 @0x4
0x26eab4…26ec48 [0x00]: C0x00b8.0x2.0
0x26eab4…26ec48 [0x01]: C0x00b8.0x3.0
0x26eab4…26ec48 [0x02]: C0x00b9.0x0.0
0x26eab4…26ec48 ]
0x26eab4…26ec48 }
0x26ec48…26eddc Dummy {f00=0x00b8, f01=0x0190, f02=» 0 P IDENT TPROC REL 10.0 80-03-14 870105041000 P 8 P* @ P* J 6 P************************************************** T P* $ P* PHILIPS TERMINAL SYSTEM PTS P* $ P* TPROC = TOSS LKM PROCESSORS P* P* P*
0x26eddc…26ef70 Dummy {f00=0x00b8, f01=0x0190, f02=»AINS THE FOLLOWING | P* TOSS LKM PROCESSORS: P* : P* - TWAIT = WAIT D P* ` P* - TMWAIT = MULTIPLE WAIT j P* ( P* - TACTOT = ACTIVATE/RESTART TASK P* P EJECT TPROC P* P* P***********
0x26ef70…26f104 Dummy {f00=0x00b8, f01=0x0190, f02=»R l , P ENTRY TACTOT ACTIVATE/RESTART PROCESSOR P EJECT TPROC : P* P P* Z P************* d P* EXTERNALS * z P************* P* P* P EXTRN TDISP DISPATCHER , P EXTRN QTJOB QUEUE TASK FOR DISPATCHING *
0x26f104…26f298 Dummy {f00=0x00b8, f01=0x0190, f02=» EXTRN FNDDWT FIND DWT ADDRESS FROM FILE CODE 0 P EXTRN FNDTID FIND TTAB ADDRESS FROM TASK ID 6 P EXTRN TTB:SA TTAB SAVE AREA j P EXTRN DWTST DWT STATUS P EXTRN DWTTAB TTAB ADDRESS * P EXTRN DWTWAT WAIT/ACTIVATE INDICATOR P EJECT T
0x26f298…26f42c Dummy {f00=0x00b8, 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* P EJECT TPROC P* P* P******** P* WAIT *
0x26f42c…26f5c0 Dummy {f00=0x00b8, f01=0x0190, f02=» 6 P* WANTS TO SYNCHRONIZE WITH A PARTICULAR EVENT. P* > * P* IT IS ENTERED FROM THE LKM HANDLER H & P* WITH THE FOLLOWING PARAMETERS: v P* P* A5 = TTAB ADDRESS P* A8 = ECB ADDRESS P* P* * PTWAIT CF A15,FND
0x26f5c0…26f754 (2, 25) Dummy {f00=0x00b8, f01=0x018e, f02=»,A8 RETURN IF EVENT COMPLETED P XIF & P* 2 P IFT MMUPAG=1 < ( P ELR A1,A8 RETURN IF EVENT COMPLETED R P XIF ~ P* ( P RF(N) TP:QDI I/O ALREADY COMPLETED 0 P IM DWTWAT,A6 NO, SET WAIT INDICATOR IN DWT P* & PT:DISP ABL
0x26f754…26f8e8 Dummy {f00=0x00b8, f01=0x0190, f02=» P* P* 8 P* THIS IS THE ACTIVATE/RESTART TASK LKM PROCESSOR. P* T 4 P* THIS MODULE IS ENTERED FROM THE LKM HANDLER ^ ( P* WHEN A TASK HAS TO BE ACTIVATED. P* 0 P* THE FOLLOWING PARAMETERS ARE SUPPLIED:- P* (
0x26f8e8…26fa7c Dummy {f00=0x00b8, f01=0x0190, f02=»NTIFICATION FOR TASK TO BE ACTIVATED P* , P* 6 PTACTOT EQU * @ $ P CF A15,FNDTID FIND TTAB ADDRESS T P ADK A2,0 SET CR | $ P RF(Z) TP:RQE TASK NOT IN SYSTEM 4 P CF A15,QTJOB QUEUE CALLING TASK FOR DISPATCHING * P LD A3,TTB:SA+6,A5 G
0x26fa7c…26fc10 Dummy {f00=0x00b8, f01=0x0190, f02=»ASK AND DISPATCH z P* P EJECT TPROC " P* 8 P* B P********** L P* TMWAIT * ^ P********** p P* P* 0 P* THIS IS THE MULTIPLE WAIT LKM PROCESSOR. P* * P* IT IS ENTERED FROM THE LKM HANDLER & P* WI
0x26fc10…26fda4 Dummy {f00=0x00b8, f01=0x0190, f02=»E SPECIFIED EVENTS IS COMPLETED, ~ 6 P* RETURN IS MADE TO THE CALLING TASK VIA TENDIO ( & P* WITH THE FOLLOWING PARAMETERS: b P* , P* A8 = ECB ADDRESS OF COMPLETED EVENT P* > P* IF REQUEST ERROR, A7 := -1 (AND NO RETURN VIA TENDIO
0x26fda4…26ff38 Dummy {f00=0x00b8, f01=0x0190, f02=» TPROC P* P* $ PTMWAIT EQU * MULTIPLE WAIT ENTRY " P LDK A3,0 J P* P IFT MMUPAG=0 f * P LDR* A1,A7 GET NO OF ECB:S IN ECBBLK | P XIF P* P IFT MMUPAG=1 ( P ELR A1,A7 GET NO OF ECB:S IN ECBBLK P XIF
0x26ff38…2700cc Dummy {f00=0x00b8, f01=0x0190, f02=» b P* P IFT MMUPAG=0 P LDR* A8,A7 GET ECB ADDRESS ( & P LDR* A2,A8 GET FIRST WORD OF ECB L P XIF v P* P IFT MMUPAG=1 P ELR A8,A7 GET ECB ADDRESS $ P ELR A2,A8 GET FIRST WORD OF ECB P XIF P* ( P RF(N)
0x2700cc…270260 Dummy {f00=0x00b8, f01=0x0190, f02=»NOT FOUND P* P EJECT TPROC P* 2 P* < " P LD A2,DWTST,A6 GET DWT STATUS F P RF(N) TP:RQE NOT BUSY l P CW A5,DWTTAB,A6 2 P RF(NE) TP:RQE REQUEST NOT ISSUED BY THIS TASK 0 P LD A2,DWTWAT,A6 GET WAIT/ACTIVATE INDICATOR
0x270260…2703f4 (2, 26) Dummy {f00=0x00b9, f01=0x018e, f02=»F(NZ) TMW:20 NOT THE FIRST ECB IN ECBBLK & P LDR A9,A6 SAVE FIRST DWT ADDRESS 0 P LDR A3,A6 Z P* l PTMW:20 EQU * v 8 P ST A6,DWTWAT,A9 CHAIN THIS DWT WITH THE ONE BEFORE $ P LDR A9,A6 SAVE THIS DWT ADDRESS P SUK A1,1 & P RB(P) T
0x2703f4…270588 Dummy {f00=0x00b9, f01=0x0190, f02=» PTMW:30 EQU * 4 P ST A8,TTB:SA+16,A5 UPDATE A8 IN TTAB SAVE AREA 2 P ADK A3,0 CHECK FLAG IF FIRST ECB TO WAIT FOR T & P RF(Z) TP:QDI FIRST ECB IN ECBBLK P* : PTMW:40 ADKL A3,DWTWAT POINT TO WAIT/ACTIVATE INDICATOR $ P LDR* A2,A3
0x270588…27071c Dummy {f00=0x00b9, f01=0x40e6, f02=»* P EJECT TPROC P* P* * PTP:RQE EQU * 4 " P ABL LKMRQE LKM REQUEST ERROR H P* n PTP:QDI EQU * x ( P ABL LKMQDI QUEUE TASK AND DISPATCH P* P* P* P END @ VATE INDICATOR $ P LDR* A2,A3
0x27071c…2708b0 Dummy {f00=0x00b9, 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
0x2708b0…270a44 Dummy {f00=0x00b9, f01=0x0190, f02=»TOTYPE NAME 8 PUPNUMB EQU 7 SAVE AREA NUMBER OF COPIES (SHADOW-TBL) P* P . PUR:REC EQU 6 RECORD LENGTH IN REAL U:BTAB Z * PURADDR EQU 2 ADDRESS TO FIRST REAL UWB PURNUMB EQU 4 NUMBER OF UWB'S PURLENG EQU 6 LENGTH OF UWB P EJECT
0x270a44…270bd8 Dummy {f00=0x00b9, f01=0x0190, f02=»***************** P P* TASK DEFINITION BLOCK: & PTDBBT EQU 0 1A BLOCK TYPE F ( PTDBNT EQU TDBBT+1 2N NUMBER OF TASKS h , PTDBID EQU TDBNT+2 6A TASK ID START VALUE , PTDBMC EQU TDBID+6 6A MATCHING TASK CLASS $ PTDBTL EQU TDBMC+6 6A
0x270bd8…270d6c Dummy {f00=0x00b9, f01=0x0190, f02=»C EQU 7 TERMINAL DEVICE CLASS PTLC EQU 6 LINE CONNECTION & ( PTDBREC EQU TDC+TLC TDB-RECORD LENGTH H P* t * PSDC EQU 7 SPECIAL DEVICE CLASS-RECORD ~ P* P* COMMON DEVICE DEF. BLOCK: PCDBBT EQU 0 1A BLOCK TYPE 6 PCDBNC EQU CD
0x270d6c…270f00 Dummy {f00=0x00b9, f01=0x0190, f02=». BLOCK v PUDBBT EQU 0 1A BLOCK TYPE , PUDBNU EQU UDBBT+1 3A NUMBER OF UWB TYPES 2 P* b ( PUDBFST EQU UDBNU+3 FIRST UDB-RECORD l PNAMUWB EQU 3 NAME OF UWB " PNUMUBL EQU 3 NUMBER OF BLOCKS . PUDBREC EQU NAMUWB+NUMUBL UDB RECORD-LENGTH
0x270f00…271094 (2, 27) Opaque[0x194]
0x271094…271228 # DirEnt {nam=»MSUBS «, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x1728, f03=0x0000}
0x271094…271228 IdxSect {
0x271094…271228 f00 = 0x00b9 // 0x271094 @0x0
0x271094…271228 f01 = 0x000e // 0x271096 @0x2
0x271094…271228 gno = [ // 0x271098 @0x4
0x271094…271228 [0x00]: C0x00b9.0x1.0
0x271094…271228 [0x01]: C0x00b9.0x2.0
0x271094…271228 [0x02]: C0x00b9.0x3.0
0x271094…271228 [0x03]: C0x00ba.0x0.0
0x271094…271228 [0x04]: C0x00ba.0x1.0
0x271094…271228 [0x05]: C0x00ba.0x2.0
0x271094…271228 [0x06]: C0x00ba.0x3.0
0x271094…271228 ]
0x271094…271228 }
0x271228…2713bc Dummy {f00=0x00b9, f01=0x0190, f02=» 0 P IDENT MSUBS REL 10.0 80-03-14 870105041000 P 8 P* @ P* J 6 P************************************************** T P* $ P* PHILIPS TERMINAL SYSTEM PTS P* $ P* MSUBS = MONITOR SUBROUTINES P* P* P*
0x2713bc…271550 Dummy {f00=0x00b9, 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*
0x271550…2716e4 Dummy {f00=0x00b9, f01=0x0190, f02=»K SET A MONITOR BLOCK FREE " P* -FNDDWT FIND DWT ADDRESS $ * P* -FNDTID FIND TASK IDENTIFICATION J P* -PFINIT RESTART DEVICE x $ P* -SWL48 SWITCH TO LEVEL 48 $ P* -SWLXY SWITCH TO LEVEL XY P* -HALT HALT MODULE
0x2716e4…271878 Dummy {f00=0x00b9, f01=0x0190, f02=»******* P* P* " P ENTRY SAVE8 SAVE 8 REGISTERS $ P ENTRY QTJOB QUEUE TASK J " P ENTRY QMJOB QUEUE MONITOR JOB j & P ENTRY ACTOT ACTIVATE TASK (FIFO) & P ENTRY ACTOTP ACTIVATE TASK (LIFO) P ENTRY EXIT PROGRAM EXIT P ENT
0x271878…271a0c Dummy {f00=0x00b9, f01=0x0190, f02=»D FIND TASK INDENTIFICATION P ENTRY PFINIT RESTART DEVICE $ $ P ENTRY SWL48 SWITCH TO LEVEL 48 H $ P ENTRY SWLXY SWITCH TO LEVEL XY p , P ENTRY ILLINT ILLEGAL INTERRUPT ROUTINE * P ENTRY INTSAV SAVE AREA LAST INTERRUPT P ENTRY HALT HALT M
0x271a0c…271ba0 Dummy {f00=0x00b9, f01=0x0190, f02=»RY IHRET2 A2 " P ENTRY IHRET1 A1 2 P ENTRY IHRTN RETURN WITHOUT ENABLE INTERRUPTS : P EJECT MSUBS p P* P* P************* P* EXTERNALS * P************* P* P* : P EXTRN DISQUE POINTER TO
0x271ba0…271d34 (2, 28) Dummy {f00=0x00b9, f01=0x0190, f02=»RN PQEMTY PAGE QUEUE EMPTY FLAG " P EXTRN PAGQUE FREE PAGE QUEUE ( $ P EXTRN SEG:PB PAGE BLOCK ADDRESS N & P EXTRN PAG:QB QUEUE LINK BACKWARD v 4 P EXTRN LKMERR HALT SYSTEM DUE TO FATAL LKM ERROR & P EXTRN TTMJOB TTAB ADDRESS OF MJOB ( P EXTRN
0x271d34…271ec8 Dummy {f00=0x00b9, f01=0x0190, f02=»RN TTB:SA SAVE AREA * P EXTRN TTB:PP POINTER TO PENDING QUEUE ( P EXTRN TTB:TD TERMINAL DEVICE TABLE J $ P EXTRN SCTTCT TASK CONTROL TABLE v & P EXTRN SCTCDT COMMON DEVICE TABLE 2 P EXTRN PFTAB TABLE OF DEVICES TO BE RESTARTED P EJECT M
0x271ec8…27205c Dummy {f00=0x00b9, 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* P* 6 P* A PROGRAM VERSION USING THE EXTENDED INSTRUCTION . P* SE
0x27205c…2721f0 Dummy {f00=0x00b9, f01=0x0190, f02=»NG h * &* IS OBTAINED BY SETTING DSKPAG EQU 1. * 8 PDSKPAG EQU 1 B * V P* ` " PSOP EQU /2E SOP DEVICE ADDRESS j P* P EJECT MSUBS P* P* P* S A V E 8 P* 0 P* SUBROUTINE TO SAVE 8 REGISTERS O
0x2721f0…272384 Dummy {f00=0x00b9, f01=0x0190, f02=»A15 P STR A4,A15 P STR A5,A15 P STR A6,A15 4 P STR A7,A15 H P STR A8,A15 , P LD A3,16,A15 LOAD P.C. (RETURN ADDRESS) p , P ST A3,SAVE81 AND MODIFY BRANCH ADDRESS P ST A2,14,A15 P ST A1,16,A15 P LD A3,12,A1
0x272384…272518 Dummy {f00=0x00b9, f01=0x0190, f02=»* Q T J O B P* 2 P* SUBROUTINE TO QUEUE TASK FOR DISPATCHING. P* V P* ENTRY PARAMETER: ` P* | 2 P* A5 = TTAB ADDRESS OF PROGRAM TO BE QUEUED. P* 8 P* THE REQUESTED JOB IS PUT IN DISPATCHER QUEUE ON 8 P* PR
0x272518…2726ac Dummy {f00=0x00b9, f01=0x0190, f02=»* P IFT CPU852=1 $ P STR A1,A15 SAVE A1-A3 ON STACK P STR A2,A15 H P STR A3,A15 P XIF p P* | P IFT CPU852=0 " P MSR 3,A15 SAVE A1-A3 ON STACK P XIF P* . P LDKL A1,DISQUE LOAD QUEUE ANCHOR ADDRESS 2
0x2726ac…272840 Dummy {f00=0x00b9, f01=0x018e, f02=»* P EJECT MSUBS P* P* * 6 PQTJ010 CC A3,TTB:ST+1,A2 COMPARE WITH QUEUED LEVEL 4 P RF(L) QTJ020 INSERT n P LDR A1,A2 SAVE ADDRESS . P LDR* A2,A1 GET NEXT TTAB ADDRESS IN QUEUE $ P RB(NZ) QTJ010 NOT END OF QUEUE P*
0x272840…2729d4 (2, 29) Dummy {f00=0x00b9, f01=0x0190, f02=» P IFT CPU852=0 * P MLR 3,A15 RESTORE A1-A3 FROM STACK... P RTN A15 ...AND RETURN L P XIF j P* v P EJECT MSUBS P* P* P* Q M J O B P* 6 P* SUBROUTINE TO QUEUE MONITOR JOBS ON LEVEL 49. P*
0x2729d4…272b68 Dummy {f00=0x00b9, f01=0x0190, f02=»B ADDRESS OF MONITOR JOBS AND THE | < P* SUBROUTINE 'ACTOT' IS USED TO ACTIVATE AND QUEUE THE * P* JOB. j P* z P* PQMJOB EQU * P IFT CPU852=1 & P CF A15,SAVE8 SAVE A1-A8 ON STACK P XIF P* P IFT CPU852=0
0x272b68…272cfc Dummy {f00=0x00b9, f01=0x0190, f02=»* P EJECT MSUBS P* P* * P* A C T O T , A C T O T P 4 P* X & P* SUBROUTINE TO ACTIVATE A TASK. b P* P* ENTRY PARAMETERS: P* P* A1 = PARAMETER 1 P* A2 = DISPATCH ADDRESS P* A3 = SEG
0x272cfc…272e90 Dummy {f00=0x00b9, f01=0x0190, f02=»GRAM IS ` : P* PUT IN DISPATCHER QUEUE VIA SUBROUTINE 'QTJOB'. @ P* - IF PROGRAM IS ACTIVE, THE REQUEST IS PUT IN A PENDING N P* QUEUE. @ P* - ACTOT WILL PUT REQUEST IN PENDING QUEUE ON FIFO BASIS. B P* - ACTOTP WILL PUT REQUEST
0x272e90…273024 Dummy {f00=0x00b9, f01=0x0190, f02=» n P XIF P* P IFT CPU852=0 P INH 4 " P MSR 8,A15 SAVE A1-A8 ON STACK @ P XIF f P* r P LDK A6,1 INDICATE LIFO | P RF ACT03 P* P EJECT MSUBS P* P* PACTOT EQU * P IFT CPU852=1
0x273024…2731b8 Dummy {f00=0x00b9, f01=0x0190, f02=» P XIF P* PACT01 LDK A6,0 INDICATE FIFO P* > PACT03 EQU * H 0 P LD A7,TTB:SA,A5 GET (OLD) DISPATCH ADDRESS $ P RF(NZ) ACT020 IS PROGRAM ACTIVE " P ST A1,TTB:SA+2,A5 PARAMETER 1 0 P ST A2,TTB:SA,A5 SAVE (NEW) DISPATCH ADDRE
0x2731b8…27334c Dummy {f00=0x00b9, f01=0x0190, f02=»,TTB:SA+4,A5 TO A2 IN SAVE AREA P* ( P IFF MMUPAG+DSKPAG=0 2 6 P CM TTB:SB,A5 INDICATE NOT RUNNING IN ANY SEGMENT N P XIF P* P CF A15,QTJOB QUEUE THE JOB P* P EJECT MSUBS P* P* PACT010 EQU *
0x27334c…2734e0 Dummy {f00=0x00b9, f01=0x0190, f02=» FROM STACK... x P RTN A15 ...AND RETURN P XIF 4 P* @ $ P* PUT REQUEST IN PENDING QUEUE J P* r & PACT020 LDR A7,A4 SAVE PARAMETER 2 | $ P CF A15,GETBLK GET A FREE BLOCK P LDR A1,A7 PARAMETER 2 P LDR A2,A4 P CF A15,GE
0x2734e0…273674 (2, 30) Dummy {f00=0x00ba, f01=0x018e, f02=»0 SET CR & P RF(NZ) ACT040 QUEUE ON LIFO BASIS P ADK A5,0 SET CR : $ P RB(NZ) ACT030 NOT END OF QUEUE R P* z PACT040 EQU * " P STR A4,A3 SET BLOCK IN QUEUE P STR A5,A4 P RB ACT010 P* P EJECT MSUBS P*
0x273674…273808 Dummy {f00=0x00ba, f01=0x0190, f02=» P* ENTRY PARAMETER: P* $ P* A5 = TTAB ADDRESS . P* L P* A3-A4, A7 ARE DESTROYED V P* z P* PEXIT EQU * ( P CM TTB:SA,A5 RESET PROGRAM COUNTER 0 P LD A4,TTB:PP,A5 GET PENDING PROGRAM POINTER $ P RF(Z) I
0x273808…27399c Dummy {f00=0x00ba, f01=0x0190, f02=»ELEASE BLOCK AND GET PARAMETERS P LDR A7,A1 SAVE PARAMETER 2 ( P LDR A4,A2 L P CF A15,FREBLK ^ P LDR A4,A7 PARAMETER 2 t P RB ACTOT ACTIVATE TASK P* P EJECT MSUBS P* P* P* G E T B L K P* 4 P
0x27399c…273b30 Dummy {f00=0x00ba, f01=0x0190, f02=» P* P* EXIT PARAMETER: P* * ( P* A4 = ADDRESS TO FOUND FREE BLOCK 4 P* ` P* j PGETBLK EQU * t P INH P STR A5,A15 SAVE A5 0 P LD A4,FREQUE GET FIRST BLOCK IN FREE QUEUE P RF(NZ) GBL010 P LDK A1,/B HAL
0x273b30…273cc4 Dummy {f00=0x00ba, f01=0x0190, f02=»FREE QUEUE p $ P STR A3,A4 STORE A3-A1 IN BLOCK P ST A2,2,A4 : P ST A1,4,A4 N P LDR* A5,A15 RESTORE A5 b P* P IFT CPU852=1 P RF IHRTN P XIF P* P IFT CPU852=0 P RTN A15 P XIF P* P E
0x273cc4…273e58 Dummy {f00=0x00ba, f01=0x018e, f02=»* AND SET THIS BLOCK FREE. P* $ P* ENTRY PARAMETER: . P* J P* A4 = BLOCK ADDRESS T P* r P* EXIT PARAMETERS: | P* & P* A3 = FIRST PARAMETER IN BLOCK $ P* A2 = SECOND " " $ P* A1 = THIRD "
0x273e58…273fec Dummy {f00=0x00ba, f01=0x0190, f02=» P ST A4,FREQUE SET BLOCK FREE P LD A2,2,A4 , P LD A1,4,A4 @ P* T P IFT CPU852=1 ^ P RF IHRTN t P XIF P* P IFT CPU852=0 P RTN A15 P XIF P* P EJECT MSUBS P* P* P* F
0x273fec…274180 Dummy {f00=0x00ba, f01=0x0190, f02=»S | 8 P* A7 = ORDER CODE WHEN CALLED FROM DATA MANAGEMENT P* A8 = ECB ADDRESS F P* b P* EXIT PARAMETERS: l P* P* A2 = DWT INDEX * P* A6 = DWT ADDRESS IF FOUND, ELSE 0 P* P* P* F N D D W D P*
0x274180…274314 (2, 31) Dummy {f00=0x00ba, f01=0x0190, f02=»JECT MSUBS P* P* PFNDDWT EQU * ( P IFT MMUPAG=1 < & P ELR A2,A8 LOAD FILE CODE FROM ECB R P XIF | P* P IFT MMUPAG=0 ( P LDR* A2,A8 LOAD FILE CODE FROM ECB P XIF P* P STR A1,A15 SAVE A1 P L
0x274314…2744a8 Dummy {f00=0x00ba, f01=0x0190, f02=»UK A1,4 ( P RF(N) FND110 FILE CODE NOT IN TTAB & P CC A2,1,A6 SEARCH IN DEVICE TABLE < " P RF(E) FND200 FILE CODE FOUND f ( P ADK A6,4 ADDRESS TO NEXT FILE CODE P RB FND100 TRY NEXT P* P EJECT MSUBS P* $ P* SEARCH I
0x2744a8…27463c Dummy {f00=0x00ba, f01=0x0190, f02=» P LDR* A1,A6 CDTAB LENGTH $ P ADK A6,2 POINTER TO FIRST ENTRY $ P* L PFND120 SUK A1,4 V & P RF(N) FND130 FILE CODE NOT FOUND n P CC A2,1,A6 " P RF(E) FND200 FILE CODE FOUND ( P ADK A6,4 ADDRESS TO NEXT FILE CODE & P RB FND120
0x27463c…2747d0 Dummy {f00=0x00ba, f01=0x0190, f02=»DEX z P LD A6,2,A6 LOAD DWT ADDRESS ! P RF IHRET1 ! 0 P* ! B P EJECT MSUBS ! L P* ! b P* ! l P* F N D T I D ! v P* ! B P* SUBROUTINE TO FIND TTAB ADDRESS FROM TASK IDENTIFICATION. ! P* ! P* ENTRY PARAMETER: ! P* !
0x2747d0…274964 Dummy {f00=0x00ba, f01=0x0190, f02=»ATES ILLEGAL IDENTIFICATION ! P* " $ P* " . PFNDTID STR A1,A15 SAVE A1 " 8 P LD* A1,SCTTCT TCTAB LENGTH " Z P AD A1,SCTTCT " ~ P* " PFTI010 SUK A1,2 " P CW A1,SCTTCT " $ P RF(E) FTI030 ALL TTABS EXAMINED " P LDR* A2,A1 TTAB ADD
0x274964…274af8 Dummy {f00=0x00ba, f01=0x0190, f02=»0 ILLEGAL IDENTIFICATION " P RF IHRET1 # P* # 2 P EJECT MSUBS # < P* # R P* # , P* RESTORE REGISTERS AND RETURN WITHOUT # f P* ENABLE INTERRUPTS. # P* # P* # P IFT CPU852=1 # PIHRET8 LDR* A8,A15 # P LDR* A7,A15 #
0x274af8…274c8c Dummy {f00=0x00ba, f01=0x0190, f02=»* # PIHRET1 LDR* A1,A15 $ P* $ $ PIHRTN INH $ . $ P ADKL A15,4 ADJUST STACK POINTER $ @ P ABR* A15 AND RETURN $ h P XIF $ P* $ P IFT CPU852=0 $ 0 PIHRET8 MLR 8,A15 RESTORE A1-A8 FROM STACK... $ P RTN A15 ...AND RETURN $ P* $
0x274c8c…274e20 Dummy {f00=0x00ba, f01=0x0190, f02=»... $ h P* % PIHRTN RTN A15 ...AND RETURN % P XIF % : P* % F P EJECT MSUBS % P P* % f P* % p P* P F I N I T % z P* % & P* SUBROUTINE TO RESTART DEVICES. % P* % @ P* ALL RESTART ROUTINES GIVEN IN TABLE 'PFTAB' ARE CALL
0x274e20…274fb4 (2, 32) Dummy {f00=0x00ba, f01=0x0190, f02=»DEX TO FIRST ROUTINE % P* & $ PPFI100 CW A1,PFTAB CHECK IF LAST & & P RF(NL) PFI110 ALL RESTARTED & N P STR A1,A15 SAVE A1 & r P INH & * P CFI A15,PFTAB,A1 CALL RESTART MODULE & P LDR* A1,A15 RESTORE A1 & P ADK A1,2 NEXT DEVICE & P R
0x274fb4…275148 Dummy {f00=0x00ba, f01=0x0190, f02=»8 & P* ' & P* SWITCH TO LEVEL 48 AND ENABLE. ' P* ' > P* ' H PSWL48 EQU * ' R P STR A1,A15 SAVE A1 ' f P* ' PSWL481 EQU * ' $ P LDKL A1,/C0C0 PSW FOR LEVEL 48 ' P* ' PSWL482 EQU * ' & P ST A1,4,A15 SAVE IT ON A15 STACK
0x275148…2752dc Dummy {f00=0x00ba, f01=0x018e, f02=» & P* SWITCH TO LEVEL XY AND ENABLE. ( P* ( . . P* LEVEL := 48 IF LEVEL ON STACK IS >= 48 ( 8 0 P* LEVEL := XY " " " " " XY < 48 ( j P* ( > P* THIS MODULE IS TO BE CALLED WITH 8 REGISTERS ON STACK. ( P* ( P* ( PSWLXY EQU
0x2752dc…275470 Dummy {f00=0x00ba, f01=0x0190, f02=» ( P LD A1,24,A15 ) " P ANKL A1,/FFFE SYSTEM MODE BIT ) P RB SWL482 ) D P* ) V P EJECT MSUBS ) ` P* ) v P* ) & P* INTERRUPT SAVE AND HALT MODULE ) P* ) P* ) PINTSAV DATA 0 ) PSAVA15 DATA 0 ) P* ) " PILLINT LDK
0x275470…275604 Dummy {f00=0x00ba, f01=0x0190, f02=» $ P STR A9,A15 SAVE A9-A14 ON STACK * P STR A10,A15 * , P STR A11,A15 * @ P STR A12,A15 * T P STR A13,A15 * h P STR A14,A15 * | P XIF * P* * P IFT CPU852=0 * $ P MSR 14,A15 SAVE A1-A14 ON STACK * P XIF * P* * P ST A15,SAVA15
0x275604…275798 Dummy {f00=0x00ba, f01=0x0190, f02=» P* + < P* RELEASE PAGE AND RESTART LDTASK IF PAGQUE WAS EMPTY + P* + N P* ENTRY PARAMETERS: + X P* + v 6 P* A3 = SEGBLK ADDRESS (PAGBLK ADDRESS IF RELPA2) + " P* A5 = TTAB ADDRESS (RELPA2) + P* + P* EXIT PARAMETER: + P*
0x275798…27592c Dummy {f00=0x00ba, f01=0x0190, f02=»ANY SEGMENT + j P RF REL:10 , P* , & ( PRELPAG EQU * RELEASE PAGE MAIN ENTRY , 0 , P LD A3,SEG:PB,A3 GET PAGE BLOCK ADDRESS , P* , PREL:10 EQU * , & P LDKL A4,PAGQUE GET PAGQUE ADDRESS , P ST A4,PAG:QB,A3 , 4 P LDR* A4,A4 GET ADDRESS OF F
0x27592c…275ac0 Dummy {f00=0x00ba, f01=0x0190, f02=»DTASK IS IN PAUSE STATE , x P RF(Z) REL:20 - P* - 6 P EJECT MSUBS - @ P* - V P* RESTART LOAD TASK - ` P* - ~ , P CM PQEMTY INDICATE PAGE QUEUE NOT EMPTY - P LDR A4,A5 SAVE A5 - , P LDKL A5,TTABLD GET LDTASK TTAB ADDRESS - $ P CF A1
0x275ac0…275c54 (2, 33) Dummy {f00=0x00ba, f01=0x412a, f02=»IF - P* . P IFT DSKPAG=1 . P IFT CPU852=0 . * P RTN A15 . @ P XIF . P P* . P IFT DSKPAG=0 . f 2 PRELPAG EQU * DUMMY ENTRIES TO AVOID ASS. ERR. . | PRELPA2 EQU * . & P ABL LKMERR INDICATE SYSGEN ERROR . P XIF . P* . P*
0x275c54…275de8 Dummy {f00=0x00ba, 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. "
0x275de8…275f7c Dummy {f00=0x00ba, f01=0x0000, f02=»
[…0x5…]
0x276760…2768f4 (2, 34) Opaque[0x194]
0x2768f4…276a88 # DirEnt {nam=»TTMJOB«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x1760, f03=0x0000}
0x2768f4…276a88 IdxSect {
0x2768f4…276a88 f00 = 0x00bb // 0x2768f4 @0x0
0x2768f4…276a88 f01 = 0x0004 // 0x2768f6 @0x2
0x2768f4…276a88 gno = [ // 0x2768f8 @0x4
0x2768f4…276a88 [0x00]: C0x00bb.0x0.0
0x2768f4…276a88 [0x01]: C0x00bb.0x1.0
0x2768f4…276a88 ]
0x2768f4…276a88 }
0x276a88…276c1c Dummy {f00=0x00bb, f01=0x0190, f02=» 2 P IDENT TTMJOB REL 10.0 80-03-14 870105041000 P : P* B P* L P* MONITOR JOB TASK TABLE V P* v P* P********* P*ENTRIES* P********* P* P* P ENTRY TTB:AM ALLOCATION MAP P ENTRY TTB:MT MM
0x276c1c…276db0 Dummy {f00=0x00bb, f01=0x0190, f02=»S n P ENTRY TTMJOB TABLE ENTRY ( P ENTRY TTB:QL DISPATCHER QUEUE LINK , & P ENTRY TTB:ID TASK IDENTIFICATION X P ENTRY TTB:ST TASK STATUS " P ENTRY TTB:PP PENDING POINTER & P ENTRY TTB:PW PROGRAM STATUS WORD $ P ENTRY TTB:SA TERMIN
0x276db0…276f44 Dummy {f00=0x00bb, f01=0x0190, f02=»***************** x P* P* CONDITIONAL ASSEMBLY $ P* B . P***************************************** L P* ~ . P* A PROGRAM VERSION USING TOSS MMU PAGING * P* IS OBTAINED BY SETTING MMUPAG EQU 1. P* PMMUPAG EQU 1 P*
0x276f44…2770d8 Dummy {f00=0x00bb, f01=0x0190, f02=» TABLE DISPLACEMENT ~ P IFT MMUPAG=1 " P DATA /0000,/0400,/0800,/0C00 2 " P DATA /1000,/1400,/1800,/1C00 X " P DATA /2000,/2400,/2800,/2C00 ~ " P DATA /3000,/3400,/3800,/3C00 P XIF P* & PTTB:CB EQU -6 CURRENT SEGMENT BASE
0x2770d8…27726c Dummy {f00=0x00bb, f01=0x0190, f02=»K ADDRESS DISPLACEMENT v P DATA 0 P* . P EJECT TTMJOB 8 P* P P* Z PTTMJOB EQU * TTMJOB ENTRY d . PTTB:QL EQU *-TTMJOB DISPATCHER QUEUE LINK P DATA 0 P* , PTTB:ID EQU *-TTMJOB TASK IDENTIFICATION P DATA
0x27726c…277400 Dummy {f00=0x00bb, f01=0x0190, f02=»A 0 P* PTTB:PW EQU *-TTMJOB 4 P DATA /C4C0 PROGRAM STATUS WORD FOR MONITOR JOB 2 P* j P EJECT TTMJOB t P* P* * PTTB:SA EQU *-TTMJOB TERMINAL SAVE AREA P DATA 0 DISPATCH ADDRESS 2 P DATA 0,0,0,0,0,0,0 SAVE A
0x277400…277594 (2, 35) Dummy {f00=0x00bb, f01=0x4014, f02=» P END @
0x277594…277728 Dummy {f00=0x00bb, 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,
0x277728…2778bc Dummy {f00=0x00bb, f01=0x0190, f02=»************************************* P* . . P* A PROGRAM VERSION USING TOSS MMU PAGING 8 * P* IS OBTAINED BY SETTING MMUPAG EQU 1. j P* PMMUPAG EQU 0 P* P* 6 P* A PROGRAM VERSION USING THE EXTENDED INSTRUCTION . P* SE
0x2778bc…277a50 Dummy {f00=0x00bb, f01=0x0190, f02=»NG h * &* IS OBTAINED BY SETTING DSKPAG EQU 1. * 8 PDSKPAG EQU 0 B * V P* ` " PSOP EQU /2E SOP DEVICE ADDRESS j P* P EJECT MSUBS P* P* P* S A V E 8 P* 0 P* SUBROUTINE TO SAVE 8 REGISTERS O
0x277a50…277be4 Dummy {f00=0x00bb, f01=0x0190, f02=»A15 P STR A4,A15 P STR A5,A15 P STR A6,A15 4 P STR A7,A15 H P STR A8,A15 , P LD A3,16,A15 LOAD P.C. (RETURN ADDRESS) p , P ST A3,SAVE81 AND MODIFY BRANCH ADDRESS P ST A2,14,A15 P ST A1,16,A15 P LD A3,12,A1
0x277be4…277d78 Dummy {f00=0x00bb, f01=0x0190, f02=»* Q T J O B P* 2 P* SUBROUTINE TO QUEUE TASK FOR DISPATCHING. P* V P* ENTRY PARAMETER: ` P* | 2 P* A5 = TTAB ADDRESS OF PROGRAM TO BE QUEUED. P* 8 P* THE REQUESTED JOB IS PUT IN DISPATCHER QUEUE ON 8 P* PR
0x277d78…277f0c Dummy {f00=0x00bb, f01=0x0190, f02=»* P IFT CPU852=1 $ P STR A1,A15 SAVE A1-A3 ON STACK P STR A2,A15 H P STR A3,A15 P XIF p P* | P IFT CPU852=0 " P MSR 3,A15 SAVE A1-A3 ON STACK P XIF P* . P LDKL A1,DISQUE LOAD QUEUE ANCHOR ADDRESS 2
0x277f0c…2780a0 Dummy {f00=0x00bb, f01=0x018e, f02=»* P EJECT MSUBS P* P* * 6 PQTJ010 CC A3,TTB:ST+1,A2 COMPARE WITH QUEUED LEVEL 4 P RF(L) QTJ020 INSERT n P LDR A1,A2 SAVE ADDRESS . P LDR* A2,A1 GET NEXT TTAB ADDRESS IN QUEUE $ P RB(NZ) QTJ010 NOT END OF QUEUE P*
0x2780a0…278234 (2, 36) Opaque[0x194]
0x278234…2783c8 # DirEnt {nam=»TOSSIO«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x1770, f03=0x0000}
0x278234…2783c8 IdxSect {
0x278234…2783c8 f00 = 0x00bb // 0x278234 @0x0
0x278234…2783c8 f01 = 0x0022 // 0x278236 @0x2
0x278234…2783c8 gno = [ // 0x278238 @0x4
0x278234…2783c8 [0x00]: C0x00bb.0x2.0
0x278234…2783c8 [0x01]: C0x00bb.0x3.0
0x278234…2783c8 [0x02]: C0x00bc.0x0.0
0x278234…2783c8 [0x03]: C0x00bc.0x1.0
0x278234…2783c8 [0x04]: C0x00bc.0x2.0
0x278234…2783c8 [0x05]: C0x00bc.0x3.0
0x278234…2783c8 [0x06]: C0x00bd.0x0.0
0x278234…2783c8 [0x07]: C0x00bd.0x1.0
0x278234…2783c8 [0x08]: C0x00bd.0x2.0
0x278234…2783c8 [0x09]: C0x00bd.0x3.0
0x278234…2783c8 [0x0a]: C0x00be.0x0.0
0x278234…2783c8 [0x0b]: C0x00be.0x1.0
0x278234…2783c8 [0x0c]: C0x00be.0x2.0
0x278234…2783c8 [0x0d]: C0x00be.0x3.0
0x278234…2783c8 [0x0e]: C0x00bf.0x0.0
0x278234…2783c8 [0x0f]: C0x00bf.0x1.0
0x278234…2783c8 [0x10]: C0x00bf.0x2.0
0x278234…2783c8 ]
0x278234…2783c8 }
0x2783c8…27855c Dummy {f00=0x00bb, f01=0x0190, f02=» 2 P IDENT TOSSIO REL 10.0 80-04-30 870105041000 P : P REL 10.0 80-03-15 POHO B $ P =1,RELEASE DC-BUFFER UPDATED d P* P* 6 P************************************************** P* $ P* PHILIPS TERMINAL SYSTEM PTS
0x27855c…2786f0 Dummy {f00=0x00bb, f01=0x0190, f02=»** ` P* P* , P* THIS IS THE TOSS I/O LKM PROCESSOR. 6 P* IT CONTAINS THE FOLLOWING MONITOR SUBROUTINES: N P* P* -TIO INITIALIZE I/O P* P* -TENDIO END I/O P* P* -ATTACH ATTACH DEVICE P
0x2786f0…278884 Dummy {f00=0x00bb, f01=0x0190, f02=» DATA COMMUNICATION MOVE ROUTINE (WRITE) P* 0 4 P* SPECIAL ROUTINES ARE CARRIED OUT IN SYSTEMS : * P* WITH MEMORY MANAGEMENT UNIT (MMU). r P* 8 P* THIS MODULE ALSO CONTAINS STANDARD DISPLACEMENT * P* VALUES FOR ECB, DWT AND DAB AR
0x278884…278a18 Dummy {f00=0x00bb, f01=0x0190, f02=»* P ENTRY TIO I/O PROCESSOR 0 P ENTRY TIO:FM ENTRY USED BY FILE MANAGEMENT * 0 P ENTRY TIOERR ERROR: QUEUE TASK AND DISPATCH ^ P ENTRY TENDIO END I/O 0 P ENTRY QUEDEV QUEUE REQUEST IN DEVICE QUEUE 4 P ENTRY QUEFIL QUEUE FILE REQUEST IN
0x278a18…278bac Dummy {f00=0x00bb, f01=0x0190, f02=»ONMMU MONITOR (SYSTEM) MMU TABLE P* ( P ENTRY ECBFC FILE CODE 2 P ENTRY ECBBA BUFFER ADDRESS P " P ENTRY ECBRL REQUESTED LENGTH t " P ENTRY ECBEL EFFECTIVE LENGTH P ENTRY ECBRC RETURN CODE P ENTRY ECBCW CONTROL WORD P ENTRY
0x278bac…278d40 Dummy {f00=0x00bb, f01=0x0190, f02=» DM:DIX DEVICE INDEX DATA MANAGEMENT 2 P ENTRY PC:DIX DEVICE INDEX PROGRAMMED CHANNEL , 0 P ENTRY MX:DIX DEVICE INDEX MULTIPLEX CHANNEL b , P ENTRY KB:DIX DEVICE INDEX KEYBOARD/CTW 6 P ENTRY IT:DIX DEVICE INDEX INTERTASK COMMUNICATION $ P ENTRY D
0x278d40…278ed4 (2, 37) Dummy {f00=0x00bb, f01=0x0190, f02=» ENTRY ACTADR ACTIVATION ADDRESS P ENTRY ABTADR ABORT ADDRESS ( $ P ENTRY INTADR INTERRUPT ADDRESS L 2 P ENTRY POLADR BUFFER POOL ADDRESS (DC DRIVERS) t 4 P ENTRY HDRLEN BUFFER HEADER LENGTH (DC DRIVERS) " P ENTRY RECADR RECOVERY ADDRESS P
0x278ed4…279068 Dummy {f00=0x00bb, f01=0x0190, f02=» ENTRY DWTECB ECB ADDRESS P ENTRY DWTOPT ORDER OPTION " P ENTRY DWTOR INDEX AND ORDER D ( P ENTRY DWTOCH LAST OUTPUT CHARACTER h & P ENTRY DWTADR DRIVER ADDRESS BLOCK P ENTRY DWTTAB TTAB ADDRESS * P ENTRY DWTWAT WAIT/ACTIVATE INDICATOR
0x279068…2791fc Dummy {f00=0x00bb, f01=0x0190, f02=»U ECB ADDRESS P ENTRY DWTA2 SAVE AREA A2 P ENTRY DWTA3 SAVE AREA A3 8 P ENTRY DWTA4 SAVE AREA A4 Z P ENTRY DWTA5 SAVE AREA A5 | & P ENTRY DWTSB1 STACK BASE 1 IN DWT & P ENTRY DWTSB2 STACK BASE 2 IN DWT P ENTRY DWTTP TIMER POI
0x2791fc…279390 Dummy {f00=0x00bb, f01=0x0190, f02=»NTRY DWTNVL NEW VOLUME LOADED FLAGS " P ENTRY DWTVOL DISC VOLUME NAME , P* R P EJECT TOSSIO P* t P* ~ P************* P* EXTERNALS * P************* P* P* " P EXTRN SAVE8 SAVE 8 REGISTERS 0 P EXT
0x279390…279524 Dummy {f00=0x00bb, f01=0x018e, f02=»(LIFO) p P EXTRN FNDDWT SEARCH DWT , P EXTRN QTJOB QUEUE TASK FOR DISPATCHING . P EXTRN TDISP DISPATCHER ^ 2 P EXTRN DISEND BRANCH TO DISPATCHER VIA TENDIO ~ * P EXTRN LKMQDI QUEUE TASK AND DISPATCH , P EXTRN GETBLK PUT BLOCK IN PENDING QUE
0x279524…2796b8 Dummy {f00=0x00bb, f01=0x0190, f02=» ( P EXTRN TTB:ST TASK STATUS AND LEVEL & P EXTRN TTB:PW PROGRAM STATUS WORD 0 P EXTRN TTB:SA SAVE AREA Z P EXTRN TTB:MT MMUTAB z P* P EJECT TOSSIO P* P* . P***************************************** P* P
0x2796b8…27984c Dummy {f00=0x00bb, f01=0x0190, f02=»AGING l * P* IS OBTAINED BY SETTING MMUPAG EQU 1. P* < PMMUPAG EQU 1 F P* Z P* d 6 P* A PROGRAM VERSION USING THE EXTENDED INSTRUCTION n . P* SET IS OBTAINED BY SETTING CPU852 EQU 0. P* PCPU852 EQU 0 P* P*
0x27984c…2799e0 Dummy {f00=0x00bb, f01=0x0190, f02=» EQU 1 P* P* 4 P* A PROGRAM VERSION SPECIALIZED FOR THE 857 CPU " * P* IS OBTAINED BY SETTING CPU857 EQU 1. Z P* PX:B EQU 0 PCPU857 EQU 1 P* P EJECT TOSSIO P* P* P*******************
0x2799e0…279b74 (2, 38) Dummy {f00=0x00bc, f01=0x0190, f02=» P* P********************* P* DWT DISPLACEMENTS * 0 P********************* N P* l 2 P* DEVICE WORK TABLE DISPLACEMENTS: FIXED PART v P* & PDWTCHP EQU /00 CHANNEL PARAMETERS PDWTST EQU /02 STATUS PDWTBC EQU /0
0x279b74…279d08 Dummy {f00=0x00bc, f01=0x0190, f02=» EQU /06 LAST OUTPUT CHARACTER ( PDWTADR EQU /08 DRIVER ADDRESS BLOCK & PDWTTAB EQU /0A TTAB ADDRESS R * PDWTWAT EQU /0C WAIT/ACTIVATE INDICATOR v PDWTTQ EQU /0E TERMINAL QUEUE $ PDWTUEC EQU /10 USER ECB ADDRESS " PDWTMEC EQU /12 MMU ECB A
0x279d08…279e9c Dummy {f00=0x00bc, f01=0x0190, f02=»1 4 PDWTDRD EQU DWTMEC+2 START OF DRIVER DEFINED PART P XIF B P* N P EJECT TOSSIO X P* p , P* DWT DISPLACEMENTS: DRIVER DEFINED PART z P* , PDWTOTQ EQU DWTDRD+/00 OUTPUT QUEUE LINK & PDWTA2 EQU DWTDRD+/02 SAVE AREA A2
0x279e9c…27a030 Dummy {f00=0x00bc, f01=0x0190, f02=»B1 EQU DWTDRD+/0A STACK BASE 1 IN DWT . PDWTSB2 EQU DWTDRD+/0E STACK BASE 2 IN DWT . & PDWTTP EQU DWTDRD+/10 TIMER POINTER ` 4 PDWTORD EQU DWTDRD+/10 SAVE AREA INDEX AND ORDER 2 PDWTNVL EQU DWTDRD+/12 NEW VOLUME LOADED FLAGS * PDWTECH EQU DWTDR
0x27a030…27a1c4 Dummy {f00=0x00bc, f01=0x0190, f02=» TOSSIO P* P* P********************* & P* DAB DISPLACEMENTS * D P********************* b P* ( P* DRIVER ADDRESS BLOCK DISPLACEMENTS P* & PKEYLEN EQU -6 DWT KEYTABLE LENGTH $ PBUFLEN EQU -4 DWT BUFFER LENGT
0x27a1c4…27a358 Dummy {f00=0x00bc, f01=0x0190, f02=»RUPT ADDRESS ~ 2 PPOLADR EQU 4 BUFFER POOL ADDRESS (DC DRIVERS) 2 PHDRLEN EQU 6 BUFFER HEADER LENGTH (DC DRIVERS) J " PRECADR EQU 6 RECOVERY ADDRESS PECHADR EQU 8 ECHO ADDRESS P* P* P*********************** P* DEVICE IND
0x27a358…27a4ec Dummy {f00=0x00bc, f01=0x0190, f02=»OUTINE P F P* FROM ADDRESS TABLES TIOTAB AND TENTAB AT READ/WRITE REQUESTS. P* X $ PDC:DIX EQU -2 DATA COMMUNICATION b PDM:DIX EQU 0 DATA MANAGEMENT $ PPC:DIX EQU 2 PROGRAMMED CHANNEL " PMX:DIX EQU 4 MULTIPLEX CHANNEL PKB:DIX EQU 6
0x27a4ec…27a680 Dummy {f00=0x00bc, f01=0x0190, f02=»* P********************* P* ECB DISPLACEMENTS * ( P********************* F P* d ( P* EVENT CONTROL BLOCK DISPLACEMENTS n P* PECBFC EQU /01 FILE CODE PECBBA EQU /02 BUFFER ADDRESS " PECBRL EQU /04 REQUESTED LENGTH
0x27a680…27a814 (2, 39) Dummy {f00=0x00bc, f01=0x0190, f02=»ORD 1 x " PECBCW2 EQU /0C CONTROL WORD 2 P* 4 P EJECT TOSSIO > P* V P* ` P IFT MMUPAG=1 j P* P* P********** P* TIOTAB * P********** P* < P* TIOTAB CONTAINS ADDRESSES TO ROUTINES ENTERED FROM
0x27a814…27a9a8 Dummy {f00=0x00bc, f01=0x0190, f02=»CI PROGRAMMED CHANNEL, INPUT P DATA TIOMXI MUX, INPUT $ $ P DATA TIOKBI KEYBOARD/CTW, INPUT D 0 P DATA TIOITI INTERTASK COMMUNICATION, INPUT l P* PTINDEX EQU *-TIOTAB P DATA TIODKI DISC, INPUT , P DATA TIOPCO PROGRAMMED CHANNEL, O
0x27a9a8…27ab3c Dummy {f00=0x00bc, f01=0x0190, f02=» P DATA TIODKO DISC, OUTPUT P* & P EJECT TOSSIO 0 P* H P* R P********** P* TENTAB * n P********** P* @ P* TENTAB CONTAINS ADDRESSES TO ROUTINES ENTERED FROM TENDIO P* 2 PTENTAB EQU * DEVICE TYPE/ROUTI
0x27ab3c…27acd0 Dummy {f00=0x00bc, f01=0x0190, f02=», INPUT $ P DATA TENKBI KEYBOARD/CTW, INPUT 0 P DATA TENITI INTERTASK COMMUNICATION, INPUT 8 P DATA TENDKI DISC, INPUT l , P DATA TENPCO PROGRAMMED CHANNEL, OUTPUT P DATA TENMXO MUX, OUTPUT & P DATA TENKBO KEYBOARD/CTW, OUTPUT 0 P D
0x27acd0…27ae64 Dummy {f00=0x00bc, f01=0x018e, f02=» P* P********** P* MONMMU * P********** 2 P* D P* MONITOR (SYSTEM) MMU TABLE N P* r PMONMMU EQU * | P IFT MMUPAG=1 " P DATA /0000,/0400,/0800,/0C00 " P DATA /1000,/1400,/1800,/1C00 " P DATA /2000,/2400,/280
0x27ae64…27aff8 Dummy {f00=0x00bc, f01=0x0190, f02=» P* 2 P* SUBROUTINES BELOW ARE USED BY ATTACH/DETACH P* H P* T I M O U T R P* h P* INPUT: A1 = DWT ADDRESS r . P* A2 = ADDRESS TO 2ND TIMER BLOCK P* P* OUTPUT: A4 = BLOCK ADDRESS P* A5 = TTAB
0x27aff8…27b18c Dummy {f00=0x00bc, f01=0x0190, f02=»MER POINTER ADDRESS P LD A5,2,A2 TTAB ADDRESS P CF A15,FNDBLK < P LDR* A1,A4 R " P STR A1,A2 REMOVE FROM ATT:CH f P CF A15,FREBLK P* P EJECT TOSSIO P* & P* REMOVE TTAB FROM DEVICE QUEUE P* P LDR A
0x27b18c…27b320 Dummy {f00=0x00bc, f01=0x0190, f02=»IM:20 END OF QUEUE P CWR A1,A5 P RB(NE) TIM:10 NOT FOUND . P* N P EJECT TOSSIO X P* p & P* TTAB FOUND - REMOVE FROM QUEUE z P* P LDR* A1,A1 P STR A1,A2 P* PTIM:20 EQU * P LDK A3,4 . P ADS
0x27b320…27b4b4 (2, 40) Dummy {f00=0x00bc, f01=0x0190, f02=» P* P IFT MMUPAG=0 * P ST A3,ECBRC,A8 INDICATE ERROR IN ECB $ P XIF R P* ^ P IFT ATTDET=1 h P IFT MMUPAG=1 ~ . P TL TTB:MT,A5 LOAD MMU REGISTERS FROM TTAB * P ES A3,ECBRC,A8 INDICATE ERROR IN ECB . P TL MONMMU LOAD MONI
0x27b4b4…27b648 Dummy {f00=0x00bc, f01=0x0190, f02=»OSSIO P* P* F N D B L K P* . ( P* SUBROUTINE TO FIND BLOCK IN ATT:CH 8 P* d P* INPUT: A5 = TTAB ADDRESS n P* 6 P* OUTPUT: A2 = ADDRESS TO PRECEDING BLOCK IN CHAIN 2 P* A4 = BLOCK ADDRESS IF FOUND, ELSE 0
0x27b648…27b7dc Dummy {f00=0x00bc, f01=0x0190, f02=»D OF ATT:CH P CW A5,4,A4 P RB(NE) FND:10 NOT FOUND ( P* H PFND:20 EQU * R P IFT CPU852=1 f P ABL IHRTN RETURN | P XIF P* P IFT ATTDET=1 P IFT CPU852=0 P RTN A15 RETURN P XIF P* P I
0x27b7dc…27b970 Dummy {f00=0x00bc, f01=0x0190, f02=»ATTACH * P********** ! P* ! " P* ! , * P* THIS MODULE IS CALLED FROM TIO WITH ! 6 P* THE FOLLOWING PARAMETERS: ! d P* ! & P* A3 /8000 (REQUEST ERROR BIT) ! & P* A4 I/O AND ACTIVATE INDICATOR ! P* A5 TTAB ADDRESS ! P* A6
0x27b970…27bb04 Dummy {f00=0x00bc, f01=0x0190, f02=»ADDRESS BLOCK ! v P* A13 DWT STATUS " P* " 0 PATTACH EQU * ENTRY " : P ADK A4,0 SET CR " T * P RF(NZ) TIOERR I/O AND ACTIVATE ERROR " l P* " P IFT MMUPAG=0 " " P CM ECBRC,A8 RESET RETURN CODE " P XIF " P* " P IFT ATTDET=1 "
0x27bb04…27bc98 Dummy {f00=0x00bc, f01=0x0190, f02=»FT ATTDET=1 " P TM A10,A13 # * P RF(NZ) ATT:40 DEVICE ALREADY ATTACHED # ( P LDR A13,A13 # V P RF(NN) ATT:50 DEVICE BUSY # j P* # P* ATTACH REQUESTING TASK # P* # P ORS A10,DWTST,A6 ATTACH # , P ST A5,DWTTAB,A6 PUT TTAB ADDRESS IN
0x27bc98…27be2c Dummy {f00=0x00bc, f01=0x0190, f02=»* # & P* FREE BLOCK AND TIMER IN ATT:CH $ P* $ 4 P CM* 2,A4 FREE TIMER $ > " P LDR* A3,A4 REMOVE FROM ATT:CH $ Z P STR A3,A2 $ P CF A15,FREBLK RELEASE BLOCK $ P RF ATTRTN END REQUEST $ P* $ PATT:40 CW A5,DWTTAB,A6 $ . P RF(E) TIOER
0x27be2c…27bfc0 Dummy {f00=0x00bc, f01=0x0190, f02=» P* % P* SET TIMER % P* % & P IFT MMUPAG=0 % 0 P LD A1,ECBCW,A8 TIME % F P XIF % b P* % n P EJECT TOSSIO % x P* % P* % P IFT ATTDET=1 % P IFT MMUPAG=1 % P EL A1,ECBCW,A8 TIME % P XIF % P* % P IFT A
0x27bfc0…27c154 (2, 41) Dummy {f00=0x00bc, f01=0x0190, f02=»B ADDRESS % P LD A3,ATT:CH ANCHOR & P CF A15,GETBLK BLOCK & . P ST A4,ATT:CH UPDATE ANCHOR & J $ P ADK A4,2 TIMER POINTER ADDRESS & n P LDR A1,A6 DWT ADDRESS & P CF A15,SETIMP SET TIMER & P DATA TIMOUT & P* & PATTIM DATA 0 & P*
0x27c154…27c2e8 Dummy {f00=0x00bc, f01=0x0190, f02=» RETURN & P* ' P EJECT TOSSIO ' P* ' 2 P* ' < P********** ' F P* DETACH * ' X P********** ' j P* ' | * P* THIS MODULE IS CALLED FROM TIO WITH ' $ P* THE SAME PARAMETERS AS ATTACH. ' P* ' PDETACH EQU * ' P ADK A4,0 SET
0x27c2e8…27c47c Dummy {f00=0x00bc, f01=0x0190, f02=»F(NE) TIOERR ATTACHED TO OTHER TASK ' P XRS A10,DWTST,A6 DETACH ( , P LDR A3,A5 SAVE TTAB ADDRESS ( L P LD A5,DWTTQ,A6 QUEUE ANCHOR ( p P RF(Z) DET:10 QUEUE EMPTY ( $ P LDR* A2,A5 UPDATE QUEUE ANCHOR ( P ST A2,DWTTQ,A6 ( P CF A15,QTJOB QUEU
0x27c47c…27c610 Dummy {f00=0x00bc, f01=0x0190, f02=»XIT ( f PDETRTN LDK A3,0 RETURN CODE ) P XIF ) 0 P* ) < P EJECT TOSSIO ) F P* ) ^ P* ) h P********** ) r P* TIOERR * ) P********** ) P* ) P* ERROR: FILE CODE UNKNOWN ) ( P* TIOERR IS ALSO USED AS COMMON EXIT ) ( P* FOR MO
0x27c610…27c7a4 Dummy {f00=0x00bc, f01=0x0190, f02=»M ECBEL,A8 RESET EFFECTIVE LENGTH ) P XIF * * P* * 6 P IFT MMUPAG=1 * @ * P ES A3,ECBRC,A8 SET RETURN CODE IN ECB * V P LDK A3,0 * * P ES A3,ECBEL,A8 RESET EFFECTIVE LENGTH * P XIF * P* * PTIORTN EQU * * ( P ABL LKMQDI QUEUE TASK AND
0x27c7a4…27c938 Dummy {f00=0x00bc, f01=0x018e, f02=» * P* + P* + 8 P* THIS IS THE ROUTINE FOR QUEUEING DEVICE REQUESTS. + > P* THE ROUTINE IS ENTERED AT DIFFERENT LABELS DEPENDING ON + X @ P* WHETHER THE DEVICE IS AN ECHO DEVICE OR NOT, AND DEPENDING + 8 P* ON WHETHER THE DEVICE IS ATTACHED OR NOT
0x27c938…27cacc Dummy {f00=0x00bc, f01=0x0190, f02=» + PTIOQ00 LDR A6,A2 , P* , P* QUEUE DEVICE FIRST , * P* , F $ PTIOQ05 ADK A6,DWTTQ QUEUE ANCHOR , P P LDR A2,A6 , x P LDR* A6,A6 , $ P RF TIOQ40 INSERT FIRST IN QUEUE , P* , & PTIOQ10 LDR A6,A2 QUEUE ECHO DEVICE , P* , . PQUED
0x27cacc…27cc60 Dummy {f00=0x00bc, f01=0x0190, f02=»NT , h P LD A1,TTB:ST+1,A5 LEVEL - P* - * P EJECT TOSSIO - 4 P* - L * P* SEARCH QUEUE FOR PLACE OF INSERTION - V P* - PTIOQ30 LDR A2,A6 - $ P LDR* A6,A6 FOLLOW QUEUE TO END - P RF(Z) TIOQ40 END FOUND - & P CC A1,TTB:ST+1,A6 COMPARE
0x27cc60…27cdf4 (2, 42) Dummy {f00=0x00bd, f01=0x0190, f02=»4 - P STR A6,A5 INSERT IN QUEUE . P STR A5,A2 . , P ADK A4,0 SET CR . > P RF(Z) TIOQ50 NO ACTIVATION . V P SUK A3,2 ACTIVATION . z P* . 4 PTIOQ50 ADS A3,TTB:SA,A5 UPDATE PC TO REPEAT LKM . P* . PTIOQ60 EQU * . P ABL TDISP GO TO D
0x27cdf4…27cf88 Dummy {f00=0x00bd, f01=0x0190, f02=» . P* THIS MODULE IS ENTERED WHEN TERMINAL I/O / 2 P* IS REQUIRED. IF A REQUEST CANNOT BE SERVICED / 6 4 P* DUE TO E.G. BUSY DEVICE, THE REQUEST IS QUEUED / l 2 P* AND THE TERMINAL PROGRAM SET IN WAIT STATE. / P* / 2 P* WHEN RUNNING WITH MMU OPTION SPECI
0x27cf88…27d11c Dummy {f00=0x00bd, f01=0x0190, f02=»TH THE FOLLOWING PARAMETERS:- / P* 0 & . P* A1 = PARAMETER WHEN I/O AND ACTIVATION 0 0 P* 0 b $ P* A4 = ZERO, NORMAL I/O REQUEST 0 l ( P* NOT ZERO, I/O AND ACTIVATION 0 P* 0 P* A5 = TTAB ADDRESS 0 P* 0 P* A7 = ORDER CODE 0
0x27d11c…27d2b0 Dummy {f00=0x00bd, f01=0x018e, f02=»IVATION DRIVER 0 f * P* WITH THE FOLLOWING REGISTER VAULES:- 1 P* 1 D P* A5 = STACK BASE 2 IN DWT 1 N P* 1 r P* A6 = DWT ADDRESS 1 | P* 1 P* A7 = ORDER CODE 1 P* 1 P* A8 = ECB ADDRESS 1 P* 1 , P* A12 = ADDRESS TO DRIVER AD
0x27d2b0…27d444 Dummy {f00=0x00bd, f01=0x0190, f02=» 1 P* 2 , P* THE FOLLOWING DWT FIELDS ARE UPDATED:- 2 P* 2 B " P* -DWTOR DWT INDEX AND ORDER 2 L P* -DWTECB ECB ADDRESS 2 r $ P* -DWTST READY AND ECHO FIELDS 2 P* -DWTTAB TTAB ADDRESS 2 & P* -DWTWAT WAIT/ACTIVATE INDICATOR 2 . P* -DW
0x27d444…27d5d8 Dummy {f00=0x00bd, f01=0x0190, f02=» FIRST WORD 2 P* -ECBEL EFFECTIVE LENGTH 3 P* -ECBRC RETURN CODE 3 8 P* 3 V P EJECT TOSSIO 3 ` P* 3 x . P* DWT ADDRESS AND CHECK IF REQUEST IS BUSY 3 P* 3 ( PTIO CF A15,FNDDWT SEARCH DWT ADDRESS 3 P* 3 . PTIO:FM EQU * ENTRY U
0x27d5d8…27d76c Dummy {f00=0x00bd, f01=0x0190, f02=»R FILE CODE UNKNOWN 3 6 P LD A12,DWTADR,A6 ADDRESS TO DRIVER ADDRESS BLOCK 4 P LD A13,DWTST,A6 DWT STATUS 4 V P* 4 z P EJECT TOSSIO 4 P* 4 @ P* CHECK IF ATTACH/DETACH ORDER OR IF DEVICE IS BUSY/ATTACHED 4 P* 4 P IFT ATTDET=1 4
0x27d76c…27d900 Dummy {f00=0x00bd, f01=0x0190, f02=»RDER 4 z P TM A10,A13 5 P RF(Z) TIO020 NOT ATTACHED 5 P CW A5,DWTTAB,A6 5 B * P RB(NE) TIOQ20 ATTACHED TO OTHER TASK 5 Z P TM A3,A13 5 " P RF(NZ) TIO030 DEVICE NOT BUSY 5 " P RB TIOQ05 BUSY, QUEUE DEVICE 5 P XIF 5 P* 5 PTIO020 EQU *
0x27d900…27da94 (2, 43) Dummy {f00=0x00bd, f01=0x0190, f02=»HECK IF ECHO DEVICE IS BUSY/ATTACHED 5 p P* 6 , * PTIO030 SC A2,DWTOR,A6 STORE DWT INDEX 6 6 P LDK A2,/40 CHECK IF ECHO 6 d P ANR A2,A7 6 P RF(Z) TIO070 NOT ECHO 6 P* 6 " P LD A2,DEVIND,A12 DEVICE INDEX 6 $ P SUK A2,KB:DIX CHECK IF KEYBOARD 6
0x27da94…27dc28 Dummy {f00=0x00bd, f01=0x0190, f02=»CE 6 v $ P LD A14,DWTST,A2 ECHO DWT STATUS 7 P* 7 2 P IFT ATTDET=1 7 < P TM A10,A14 7 R * P RF(Z) TIO050 ECHO DEVICE NOT ATTACHED 7 f P CW A5,DWTTAB,A2 7 6 P RB(NE) TIOQ10 ECHO DEVICE ATTACHED TO OTHER TASK 7 P TM A3,A14 7 ( P RF(NZ) TIO060 E
0x27dc28…27ddbc Dummy {f00=0x00bd, f01=0x0190, f02=»TIO050 TM A3,A14 7 " P RB(Z) TIOQ10 ECHO DEVICE BUSY 8 P* 8 > PTIO060 LDKL A3,/A000 8 H : P XRS A3,DWTST,A2 UPDATE BUSY & ECHO BITS IN DWT STATUS 8 d P* 8 P* UPDATE ECB AND DWT FIELDS 8 P* 8 @ PTIO070 XRS A3,DWTST,A6 UPDATE BUSY & ECHO BITS
0x27ddbc…27df50 Dummy {f00=0x00bd, f01=0x0190, f02=»00 JUMP IF USER MODE 8 P LDKL A2,/7FFF 9 , P ANRS A2,A8 RESET BIT 0 IN ECB FILE CODE 9 2 , P ST A8,DWTECB,A6 SET ACTUAL ECB ADDRESS 9 b ( P CM ECBEL,A8 RESET EFFECTIVE LENGTH 9 $ P CM ECBRC,A8 RESET RETURN CODE 9 P RF TIO110 9 P* 9 P EJECT
0x27df50…27e0e4 Dummy {f00=0x00bd, f01=0x0190, f02=»WORD OF USER ECB 9 z 0 P ANR A3,A2 RESET BITS 0,2,3 IN ECB FILE CODE : P ESR A3,A8 : L ( P LD A2,DWTMEC,A6 DWT MMU ECB ADDRESS : ^ , P ST A2,DWTECB,A6 SET ACTUAL ECB ADDRESS : P STR A3,A2 : * P ST A8,DWTUEC,A6 SAVE USER ECB ADDRESS : P LDR A9,A8 :
0x27e0e4…27e278 Dummy {f00=0x00bd, f01=0x0190, f02=» PARAMETER : P LDR A1,A8 ; P ADK A1,ECBRL ; $ ( P LDR A8,A2 SET A8 TO DWT ECB ADDRESS ; : P ADK A2,ECBRL ; f P LDK A3,8 ; | . P MVUS A3 MOVE PART OF USER ECB TO DWT ECB ; " P LDR A1,A10 RESTORE PARAMETER ; P XIF ; P* ; P IFT MMUPAG=
0x27e278…27e40c Dummy {f00=0x00bd, f01=0x0190, f02=» RESET RETURN CODE ; P XIF < P* < ( P EJECT TOSSIO < 2 P* < J P* < T PTIO110 EQU * < ^ P ECR A3,A7 < r P ANK A3,/FF ORDER OPTION < , P RF(Z) TIO120 NO SPECIAL OPTION IF ZERO < ( P SC A3,DWTOPT,A6 STORE OPTION IN DWT < P* <
0x27e40c…27e5a0 Dummy {f00=0x00bd, f01=0x0190, f02=»SS IN DWTTAB < p P* = PTIO130 EQU * = P IFT MMUPAG=0 = 2 & P ST A8,DWTECB,A6 SET ECB ADDRESS = H P XIF = r P* = ~ P EJECT TOSSIO = P* = . P* UPDATE DWTWAT (WAIT/ACTIVATE INDICATOR) = P* = P LDR A2,A4 CHECK PARAMETER = & P
0x27e5a0…27e734 (2, 44) Dummy {f00=0x00bd, f01=0x0190, f02=»1 INDICATE WAIT = P RF TIO230 > P* > * < PTIO210 CF A15,GETBLK SAVE PARAMETER AND DISPATCH ADDRESS > 4 P* > t 2 PTIO220 CF A15,QTJOB QUEUE TASK FOR DISPATCHING > ~ P* > 8 PTIO230 ST A4,DWTWAT,A6 STORE WAIT/ACTIVATE INDICATOR > P* > P EJE
0x27e734…27e8c8 Dummy {f00=0x00bd, f01=0x0190, f02=» MODE > t " P LD A3,DEVIND,A12 DEVICE INDEX ? , P RF(N) TIO250 NO SPECIAL ACTION REQUIRED ? 4 " P RF(Z) TIO240 DATA MANAGEMENT ? d P CWK A3,DK:DIX CHECK IF DISC ? P RF(NE) TIO235 NOT DISC ? ( P CF A15,TIOCW2 MOVE 2ND CONTROL WORD ? P* ? " P* PE
0x27e8c8…27ea5c Dummy {f00=0x00bd, f01=0x018e, f02=»TE ? f . P RF(Z) TIO250 JUMP IF NO READ/WRITE ORDER @ P* @ < PTIO240 EQU * @ F P ENB @ Z < P CFI A15,TIOTAB,A3 BRANCH TO RELEVANT READ/WRITE ROUTINE @ f P XIF @ P* @ * PTIO250 ENB GIVE OTHER TASKS A CHANCE @ P* @ * PTIO260 LDK A5,DWTSB2
0x27ea5c…27ebf0 Dummy {f00=0x00bd, f01=0x0190, f02=» @ P* A P********** A P* SWITCH * A $ P********** A 6 P* A H P* SWITCH PRIORITY LEVEL: A R P* A r ( P* IF CPU851, THEN SWITCH TO LEVEL 12 A | ( P* IF CPU852, " " " " 16 A ( P* IF CPU857, " " " " 16 A P* A $
0x27ebf0…27ed84 Dummy {f00=0x00bd, f01=0x0190, f02=»U851: LEVEL 12 A P XIF B P* B " P IFF CPU852+CPU857=0 B , ( P LDK A3,/40 CPU852/CPU857: LEVEL 16 B H P XIF B t P* B ( P SC A3,2,A15 SET NEW LEVEL ON STACK B " P RTN A15 RETURN WITH NEW LEVEL B P* B P EJECT TOSSIO B P* B P
0x27ed84…27ef18 Dummy {f00=0x00bd, f01=0x018e, f02=» @ P* THE APPROPRIATE ROUTINE AT READ/WRITE REQUESTS, DEPENDING C > P* ON THE DEVICE CONNECTION (PROGRAMMED CHANNEL, MUX ETX). C H > P* IF NO READ/WRITE REQUEST, CONDITION REGISTER ON STACK IS C * P* SET TO ZERO, ELSE NOT EQUAL TO ZERO. C P* C P* IN
0x27ef18…27f0ac Dummy {f00=0x00bd, f01=0x0190, f02=» . P* CR = 0 IF NO READ/WRITE REQUEST D , P* CR <> 0 IF READ/WRITE REQUEST D 6 P* A4 IS DESTROYED D f P* D , PRD:WR LD A4,DWTOR,A6 ORDER CODE FROM DWT D P ANK A4,/3F D P* D * PRD:WR2 ADKL A15,4 ADJUST STACKPOINTER D P L
0x27f0ac…27f240 Dummy {f00=0x00bd, f01=0x0190, f02=» READ/WRITE INDEX D ( P ABR* A15 RETURN WITHOUT CHANGING CR E P* E F P EJECT TOSSIO E P P* E h P* E r P********** E | P* ORDTAB * E P********** E P* E 2 P* ORDTAB CONTAINS ORDER CONSTANTS AS FOLLOWS: E P* E P* =0: NO RE
0x27f240…27f3d4 (2, 45) Dummy {f00=0x00bd, f01=0x0190, f02=»,1 /00, /01 E P BYTES 1,1 /02, /03 F P BYTES 0,TINDEX+1 /04, /05 F 0 & P BYTES TINDEX+1,TINDEX+1 /06, /07 F R P BYTES TINDEX+1,0 /08, /09 F | P BYTES 1,TINDEX+1 /0A, /0B F P BYTES 0,0 /0C, /0D F P BYTES 0,0 /0E, /0F F P BYTES 0,1 /10,
0x27f3d4…27f568 Dummy {f00=0x00bd, f01=0x0190, f02=» 0,0 /1A, /1B F P BYTES 0,0 /1C, /1D G P BYTES 0,0 /1E, /1F G 2 P BYTES 0,TINDEX+1 /20, /21 G N P BYTES TINDEX+1,0 /22, /23 G p P BYTES TINDEX+1,0 /24, /25 G P BYTES 0,TINDEX+1 /26, /27 G P BYTES 0,0 /28, /29 G P BYTES 0,0 /2A, /2B G
0x27f568…27f6fc Dummy {f00=0x00bd, f01=0x0190, f02=»34, /35 G P BYTES 0,0 /36, /37 H P BYTES 0,0 /38, /39 H , P BYTES 0,0 /3A, /3B H H P BYTES 0,0 /3C, /3D H d P BYTES 0,0 /3E, /3F H P* H P EJECT TOSSIO H P* H P* T I O : D M H P* H 4 P* THIS MODULE IS CALLED BY 'TIO'
0x27f6fc…27f890 Dummy {f00=0x00bd, f01=0x018e, f02=»ON OF THE REQUEST IS 'TEN:DM'. H P* I & " P* INPUT: A8 = DWT ECB ADDRESS I 0 $ P* A9 = USER ECB ADDRESS I V P* I ~ P* OUTPUT: A2 IS DESTROYED I P* I . PTIO:DM EQU * DATA MANAGEMENT, INPUT/OUTPUT I ( P EL A2,ECBBA,A9 USER BUFFER ADDRES
0x27f890…27fa24 Dummy {f00=0x00bd, f01=0x0190, f02=» I PA15RTN EQU * J P RTN A15 J P* J , P EJECT TOSSIO J 6 P* J N P* T I O P C I J X P* J n B P* THIS MODULE IS CALLED BY 'TIO' WHEN A READ REQUEST HAS BEEN J x > P* ISSUED AND THE DEVICE IS RUNNING ON PROGRAMMED CHANNEL. J B P* TIOPCI
0x27fa24…27fbb8 Dummy {f00=0x00bd, f01=0x0190, f02=»ESPONDING MODULE CALLED BY 'TENDIO' AT J , P* COMPLETION OF THE REQUEST IS 'TENPCI'. K . 4 P* NOTICE THAT ENTRY TIPI05 IS USED BY 'TIOKBI'. K ^ P* K " P* INPUT: A8 = DWT ECB ADDRESS K $ P* A9 = USER ECB ADDRESS K , P* A12 = ADDRESS TO DRIVER
0x27fbb8…27fd4c Dummy {f00=0x00bd, f01=0x0190, f02=»8 REQUESTED LENGTH K 2 P CW A1,BUFLEN,A12 COMPARE WITH DWT BUFFER SIZE L 6 P RF(G) IO:ERR REQ. LENGTH EXCEEDS DWT BUFFER SIZE L P P* L . PTIPI05 EQU * ENTRY POINT USED BY 'TIOKBI' L ( P EL A1,ECBBA,A9 USER BUFFER ADDRESS L P ANK A1,1 L * P RF(
0x27fd4c…27fee0 Dummy {f00=0x00bd, f01=0x0190, f02=» L d P ANS A1,ECBBA,A8 M P RTN A15 M P* M 0 P EJECT TOSSIO M : P* M R P* T I O M X I M P* M r B P* THIS MODULE IS CALLED BY 'TIO' WHEN A READ REQUEST HAS BEEN M | > P* ISSUED AND THE DEVICE IS RUNNING ON MULTIPLEXOR CHANNEL. M > P* TI
0x27fee0…280074 (2, 46) Dummy {f00=0x00be, f01=0x0190, f02=» CALLED BY 'TENDIO' AT M v , P* COMPLETION OF THE REQUEST IS 'TENMXI'. N N P* NOTICE THAT MODULES 'TIOMXO', 'TIODKI' AND 'TIODKO' ARE EQUAL TO TIOMXI. N N P* N P* INPUT: A5 = TTAB ADDRESS N " P* A8 = DWT ECB ADDRESS N P* A9 = USER ECB ADD
0x280074…280208 Dummy {f00=0x00be, f01=0x0190, f02=» PTIOMXI EQU * MUX, INPUT O ( P EL A1,ECBBA,A9 USER BUFFER ADDRESS O $ P ECR A2,A1 O P & P ANKL A1,/FFF SKIP 4 LEFTMOST BITS O b P SRL A2,3 O & P ANK A2,/1E MMUTAB INDEX (5 BITS) O P ADR A2,A5 ADD TTAB ADDRESS O * P LC A2,TTB:MT,A2 PHYSICAL PA
0x280208…28039c Dummy {f00=0x00be, f01=0x0190, f02=» A2,4 O P ORR A1,A2 P 2 P ST A1,ECBBA,A8 STORE MODIFIED BUFFER ADDRESS P P RTN A15 P V P* P f P EJECT TOSSIO P p P* P P* T I O K B I P P* P B P* THIS MODULE IS CALLED BY 'TIO' WHEN A READ REQUEST HAS BEEN P N P* ISSUED AND THE
0x28039c…280530 Dummy {f00=0x00be, f01=0x0190, f02=»' AND ENTRY TIPO05 IN 'TIOPCO'. P 4 P* THE CORRESPONDING MODULE CALLED BY 'TENDIO' AT Q ( , P* COMPLETION OF THE REQUEST IS 'TENKBI'. Q ` P* Q P* INPUT: A6 = DWT ADDRESS Q P* A7 = ORDER CODE Q " P* A8 = DWT ECB ADDRESS Q P* A9 = USER
0x280530…2806c4 Dummy {f00=0x00be, f01=0x018e, f02=» * KEYBOARD/CTW Q $ P LD A1,ECBRL,A8 REQUESTED LENGTH R 2 P CW A1,BUFLEN,A12 COMPARE WITH DWT BUFFER SIZE R @ 6 P RF(G) IO:ERR REQ. LENGTH EXCEEDS DWT BUFFER SIZE R v 6 P CF A15,TIPI05 CHECK AND CORRECT BUFFER ADDRESSES R P CWK A7,1 CHECK ORDER CODE R
0x2806c4…280858 Dummy {f00=0x00be, f01=0x0190, f02=» R P EJECT TOSSIO S P* S P* S * P LDR A1,A9 S 4 P ADK A1,8 S F P ADKL A8,12 S X * P ST A8,-2,A8 SET DWT KEYTABLE ADDRESS S l P SUKL A8,4 S * P ELR A3,A4 FIRST WORD OF USER KEYTABLE S P ANK A4,1 S * P RF(NZ) TIKB10 KEYTABLE ADDR
0x280858…2809ec Dummy {f00=0x00be, f01=0x0190, f02=» 0 P CW A3,KEYLEN,A12 CHECK KEYTABLE BUFFER SIZE T P RF(G) IO:ERR TOO SMALL T 8 P CF A15,TIPO05 T X & P SUKL A8,8 ADJUST DWT ECB ADDRESS T n P* T PTIKB20 EQU * T P RTN A15 T P* T P EJECT TOSSIO T P* T P* T I O I T I T P
0x2809ec…280b80 Dummy {f00=0x00be, f01=0x0190, f02=»T T t P* U P EJECT TOSSIO U P* U , P* T I O P C O U 6 P* U L B P* THIS MODULE IS CALLED BY 'TIO' WHEN A WRITE REQUEST HAS BEEN U V > P* ISSUED AND THE DEVICE IS RUNNING ON PROGRAMMED CHANNEL. U B P* TIOPCO CHECKS THAT REQUESTED LENGTH DOES
0x280b80…280d14 (2, 47) Dummy {f00=0x00be, f01=0x0190, f02=»* THE CORRESPONDING MODULE CALLED BY 'TENDIO' AT U , P* COMPLETION OF THE REQUEST IS 'TENPCO'. V 8 6 P* NOTICE THAT MODULE 'TIOKBO' IS EQUAL TO TIOPCO. V h F P* NOTICE ALSO THAT ENTRY TIPO05 IS USED BY 'TIOKBI' AND 'TENITO'. V & P* TIOPCO IS ALSO USED BY 'DC
0x280d14…280ea8 Dummy {f00=0x00be, f01=0x0190, f02=» V r P* W , PTIOPCO EQU * PROGRAMMED CHANNEL, OUTPUT W 4 P LD A2,DWTADR,A6 ADDRESS TO DRIVER ADDRESS BLOCK W B $ P LD A3,ECBRL,A8 REQUESTED LENGTH W z ( P RF(NP) TIPO20 REQUESTED LENGTH <= 0 W 2 P CW A3,BUFLEN,A2 COMPARE WITH DWT BUFFER SIZE W 6 P RF(
0x280ea8…28103c Dummy {f00=0x00be, f01=0x018e, f02=» P* X : PTIPO05 EQU * ENTRY POINT USED BY 'TIOKBI' AND 'TENITO' X P ADK A3,1 X L . P ANKL A3,/FFFE MAKE REQUESTED LENGTH EVEN X ^ ( P EL A1,ECBBA,A1 USER BUFFER ADDRESS X & P LD A2,ECBBA,A8 DWT BUFFER ADDRESS X 0 P ANKL A2,/FFFE MAKE DWT BUFFER ADD
0x28103c…2811d0 Dummy {f00=0x00be, f01=0x018e, f02=» 6 PTIPO10 MVUS A3 MOVE (USER BUFFER) TO SYSTEM BUFFER Y P* Y > PTIPO20 RTN A15 Y H P* Y ^ 0 PTIPO30 EQU * USER BUFFER ADDRESS WAS UNEVEN Y h 4 P ORS A4,ECBBA,A8 MAKE DWT BUFFER ADDRESS UNEVEN Y 0 P ELR A4,A1 FIRST CHARACTER FROM USER BUFFER Y 2 P
0x2811d0…281364 Dummy {f00=0x00be, f01=0x018e, f02=» Y j ( P RB TIPO10 MOVE REMAINING CHARACTERS Z P* Z 4 P EJECT TOSSIO Z > P* Z V P* I O : E R R Z ` P* Z v , P* DRIVER (DWT) MMU BUFFER IS TOO SMALL. Z B P* SET RETURN CODE /8008 (REQUEST ERROR AND INCORRECT LENGTH). Z & P* BRANCH TO DISPAT
0x281364…2814f8 Dummy {f00=0x00be, f01=0x0190, f02=» Z n P LD A1,DWTST,A6 DWT STATUS [ P SLL A1,2 CHECK ECHO BIT [ * P RF(NN) IO:E10 NOT ECHO [ J P LDR A1,A6 SAVE DWT ADDRESS [ j & P LD A6,DWTECH,A6 ECHO DWT ADDRESS [ P CF A15,TENDIO [ " P LDR A6,A1 RESTORE DWT ADDRESS [ P* [ PIO:E10 EQU
0x2814f8…28168c Dummy {f00=0x00be, f01=0x0190, f02=» [ P* T I O M X O P* " PTIOMXO EQU TIOMXI MUX, OUTPUT ( P* N P* T I O K B O X P* n * PTIOKBO EQU TIOPCO KEYBOARD/CTW, OUTPUT x P* P* T I O I T O P* 6 PTIOITO EQU A15RTN INTERTASK COMMUNICATION, OUTPUT
0x28168c…281820 Dummy {f00=0x00be, f01=0x0190, f02=»D M P* ] 6 P* THIS MODULE IS CALLED BY 'TENDIO' WHEN A REQUEST ] . P* FOR DATA MANAGEMENT HAS BEEN COMPLETED. ] P D P* NOTICE THAT MODULES 'TENDKI' AND 'TENDKO' ARE EQUAL TO TEN:DM. ] P* ] P* INPUT: A6 = DWT ADDRESS ] $ P* A8 = USE
0x281820…2819b4 (2, 48) Dummy {f00=0x00be, f01=0x0190, f02=»MEC,A6 MMU ECB ADDRESS ] ( P LD A1,ECBCW2,A1 SECOND CONTROL WORD ^ P ES A1,ECBCW2,A8 ^ J P RTN A15 ^ b P* ^ r P EJECT TOSSIO ^ | P* ^ P* T E N P C I ^ P* ^ D P* THIS MODULE IS CALLED BY 'TENDIO' WHEN A READ REQUEST HAS BEEN ^ @ P*
0x2819b4…281b48 Dummy {f00=0x00be, f01=0x0190, f02=» THE USER BUFFER. ^ D P* NOTICE THAT MODULES 'TENKBI' AND 'TENITI' ARE EQUAL TO TENPCI. _ 8 P* NOTICE ALSO THAT ENTRY TEN:DC IS USED BY 'DC:MIN'. _ b P* _ P* INPUT: A6 = DWT ADDRESS _ $ P* A8 = USER ECB ADDRESS _ P* _ & P* OUTPUT: A1
0x281b48…281cdc Dummy {f00=0x00be, f01=0x0190, f02=»EL,A2 EFFECTIVE LENGTH _ " P RF(NP) TEPI30 NO MOVE IF ZERO ` & P LD A1,ECBBA,A2 DWT BUFFER ADDRESS ` D P* ` n . PTEN:DC EQU * ENTRY POINT USED BY 'DC:MIN' ` x ( P EL A2,ECBBA,A8 USER BUFFER ADDRESS ` $ P LDK A3,1 CHECK BUFFER ADDRESSES ` P TM A3,A1
0x281cdc…281e70 Dummy {f00=0x00be, f01=0x0190, f02=»EVEN ` n P* a P EJECT TOSSIO a P* a . P* a 8 2 PTEPI10 EQU * BOTH BUFFER ADDRESSES WERE UNEVEN a B 0 P LDR* A3,A1 FIRST CHARACTER FROM DWT BUFFER a x P ELR A8,A2 a P* a * PTEPI15 ANK A3,/FF SKIP LEFT CHARACTER a ( P ANKL A8,/FF00 SKI
0x281e70…282004 Dummy {f00=0x00be, f01=0x0190, f02=»DK A2,1 a P SUK A4,1 b * P RF(P) TEPI25 MORE CHARACTERS TO MOVE b " P RTN A15 NO, RETURN b P P* b l PTEPI20 TM A3,A2 b v * P RF(Z) TEPI25 USER BUFFER ADDRESS EVEN b " P LDR A3,A1 DWT BUFFER ADDRESS b $ P ADR A3,A4 ADD EFFECTIVE LENGTH b
0x282004…282198 Dummy {f00=0x00be, f01=0x0190, f02=»ACTER b t 4 P CWR A3,A1 COMPARE WITH START ADDRESS OF BUFFER c * P RB(NE) TEPI23 MORE CHARACTERS TO MOVE c F 0 P ADK A1,1 NO, MAKE DWT BUFFER ADDRESS UNEVEN c t P RB TEPI10 c P* c P EJECT TOSSIO c P* c P* c , PTEPI25 LDR A3,A4 CHECK R
0x282198…28232c Dummy {f00=0x00be, f01=0x0190, f02=» P* d PTEPI30 RTN A15 d P* d $ , PTEPI40 EQU * EFFECTIVE LENGTH WAS UNEVEN d . ( P SUK A4,1 MAKE EFFECTIVE LENGTH EVEN d ^ , P RF(Z) TEPI50 ONLY ONE CHARACTER TO MOVE d P LDR A8,A4 NO, SAVE A4 d 0 P MVSU A4 MOVE (SYSTEM BUFFER) TO USER BUFFER d
0x28232c…2824c0 Dummy {f00=0x00be, f01=0x0190, f02=» d f P ELR A3,A2 e P RB TEPI15 e P* e , . PTEPI60 EQU * DWT BUFFER ADDRESS WAS UNEVEN e 6 " P LDR A3,A1 DWT BUFFER ADDRESS e h $ P ADR A1,A4 ADD EFFECTIVE LENGTH e P* e " PTEPI70 LCR A8,A3 ONE CHARACTER e 6 P SC A8,-1,A3 MOVE THIS CHAR. ONE B
0x2824c0…282654 (2, 49) Dummy {f00=0x00be, f01=0x0190, f02=»ACTERS TO MOVE e x . P SUR A1,A4 NO, RESTORE DWT BUFFER ADDRESS f * P SUK A1,1 MAKE DWT BUFFER ADDRESS EVEN f H P RB TEPI25 f v P* f P EJECT TOSSIO f P* f P* T E N M X I f P* f PTENMXI EQU A15RTN MUX, INPUT f P* f P* T E
0x282654…2827e8 Dummy {f00=0x00be, f01=0x018e, f02=»K COMMUNICATION, INPUT f v P* g P* T E N D K I g ( P* g > " PTENDKI EQU TEN:DM DISC, INPUT g H P* g n P EJECT TOSSIO g x P* g P* T E N P C O g P* g 0 PTENPCO EQU A15RTN PROGRAMMED CHANNEL, OUTPUT g P* g P* T E N M X O g
0x2827e8…28297c Dummy {f00=0x00be, f01=0x0190, f02=» g h P* h P* T E N D K O h P* h ( " PTENDKO EQU TEN:DM DISC, OUTPUT h 2 P* h X P EJECT TOSSIO h b P* h z P* T E N I T O h P* h F P* THIS MODULE IS CALLED BY 'TENDIO' WHEN A WRITE REQUEST HAS BEEN h L P* COMPLETED FOR INTERTASK
0x28297c…282b10 Dummy {f00=0x00be, f01=0x0190, f02=»IOPCO' IS USED FOR MOVING THE DATA. h P* i , P* INPUT: A6 = DWT ADDRESS i 6 P* i X & P* OUTPUT: A1-A4, A8 ARE DESTROYED i b P* i 0 PTENITO EQU * INTERTASK COMMUNICATION, OUTPUT i $ P LD A8,DWTECB,A6 DWT ECB ADDRESS i $ P LD A3,ECBEL,A8 EFFECT
0x282b10…282ca4 Dummy {f00=0x00be, f01=0x0190, f02=» i PTEIO10 RTN A15 j P* j P EJECT TOSSIO j ( P* j @ P* D C : M O T j J P* j ` < P* THIS MODULE IS CALLED BY THE DATA COMMUNICATION DRIVER j j < P* IN PURPOSE TO MOVE THE CONTENTS OF THE USER BUFFER TO j < P* THE DRIVER BUFFER. THE MOVE
0x282ca4…282e38 Dummy {f00=0x00be, f01=0x0190, f02=»NO REGISTERS ARE DESTROYED j P* k " , PDC:MOT EQU * DATA COMMUNICATION, OUTPUT k , " P MSR 8,A15 SAVE A1-A8 ON STACK k $ P SUKL A15,32 ADJUST STACKPOINTER k * P TS 2,A15 SAVE MMU REGISTERS ON STACK k " P LD A5,DWTTAB,A6 TTAB ADDRESS k $ P TL TTB:MT
0x282e38…282fcc Dummy {f00=0x00be, f01=0x0190, f02=»DC:RTN EQU * RETURN TO DC DRIVER k . P TL 2,A15 RESTORE MMU REGISTERS FROM STACK l ( $ P ADKL A15,32 ADJUST STACKPOINTER l Z * P MLR 8,A15 RESTORE A1-A8 FROM STACK... l P RTN A15 ...AND RETURN l P XIF l P* l P EJECT TOSSIO l P* l P*
0x282fcc…283160 Dummy {f00=0x00be, f01=0x0190, f02=»RIVER BUFFER TO THE USER BUFFER. l f P* m ( P* INPUT: A1 = RETURN CODE m 2 ( P* A4 = DRIVER BUFFER ADDRESS m T P* A6 = DWT ADDRESS m P* m ( P* OUTPUT: NO REGISTERS ARE DESTROYED m P* m PDC:MIN EQU * m P IFT MMUPAG=0 m
0x283160…2832f4 (2, 50) Dummy {f00=0x00bf, f01=0x0190, f02=» STACK m x P* n P IFT MMUPAG=1 n $ P SUKL A15,32 ADJUST STACKPOINTER n . * P TS 2,A15 SAVE MMU REGISTERS ON STACK n V " P LD A5,DWTTAB,A6 TTAB ADDRESS n $ P TL TTB:MT,A5 LOAD MMU REGISTERS n P XIF n P* n P EJECT TOSSIO n P* n
0x2832f4…283488 Dummy {f00=0x00bf, f01=0x018e, f02=»SS n x P* o " PMINMOV EQU * DC:MIN MOVE ENTRY o P ENB o : P LD A3,DWTECB,A6 ECB ADDRESS o F * P LDR A7,A4 SAVE DRIVER BUFFER ADDRESS o j $ P LD A2,ECBEL,A3 EFFECTIVE LENGTH o " P RF(NP) MIN:40 NOTHING TO MOVE o 8 P CW A2,ECBRL,A3 CHECK IF USER BUFF
0x283488…28361c Dummy {f00=0x00bf, f01=0x0190, f02=» o j P LDR A3,A5 p ( P ANK A3,1 CHECK USER BUFFER ADDRESS p . P RF(NZ) MIN:30 USER BUFFER ADDRESS UNEVEN p F P SUK A2,2 p x , P RF(N) MIN:30 ONLY ONE CHARACTER TO MOVE p P* p P EJECT TOSSIO p P* p P* WORD MOVE p P* p PMIN:
0x28361c…2837b0 Dummy {f00=0x00bf, f01=0x0190, f02=»2,2 DECREMENT LOOP COUNTER p 2 P RB(NN) MIN:10 AT LEAST ONE MORE WORD TO MOVE q " P* q X PMIN:20 EQU * q b P ADK A2,1 q v P RF(N) MIN:40 MOVE FINISHED q P* q P* CHARACTER MOVE q P* q PMIN:30 EQU * q " P LCR A3,A7 MOVE ONE CHARACTE
0x2837b0…283944 Dummy {f00=0x00bf, f01=0x0190, f02=» MIN:30 AT LEAST ONE MORE CHARACTER TO MOVE q P XIF r 4 P* r @ P IFT MMUPAG=1 r J * P ST A1,ECBRC,A3 SET RETURN CODE IN ECB r ` $ P LDR A1,A4 DRIVER BUFFER ADDRESS r P LDR A4,A2 EFFECTIVE LENGTH r & P LD A8,DWTUEC,A6 USER ECB ADDRESS r ( P CF
0x283944…283ad8 Dummy {f00=0x00bf, f01=0x0190, f02=»O r P* s P* s PMIN:40 EQU * s P INH s 2 " P CF A15,TENDIO PERFORM TENDIO s > P* s d P* RELEASE BUFFER s n P* s * P LD A1,DWTADR,A6 DRIVER ADDRESS BLOCK s , P SU A4,HDRLEN,A1 REAL BUFFER ADDRESS =1 s ( P LD A1,POLADR,A1 BUFFER PO
0x283ad8…283c6c Dummy {f00=0x00bf, f01=0x0190, f02=»,A2 NEXT BUFFER ADDRESS s , P RB(NZ) MIN:50 NOT LAST BUFFER IN CHAIN t P* t P $ P* INSERT BUFFER AT END OF CHAIN t Z P* t " P STR A4,A2 UPDATE QUEUE LINKS t P CMR A4 t P* t PMIN:60 EQU * t P IFT CPU852=1 t ( P ABL IHRET8 RESTOR
0x283c6c…283e00 Dummy {f00=0x00bf, f01=0x018e, f02=» MLR 8,A15 RESTORE A1-A8 FROM STACK... t P* u . PDC:MOT RTN A15 ...AND RETURN u 8 P XIF u P* u h P IFT MMUPAG=1 u r " P RB DC:RTN RETURN TO DC DRIVER u P XIF u P* u P* ERROR EXIT u P* u " PMIN:70 EQU * DC:MIN ERROR EXIT u 2 P
0x283e00…283f94 (2, 51) Dummy {f00=0x00bf, f01=0x0190, f02=» P* v P IFT MMUPAG=0 v P IFT CPU852=1 v $ PDC:MOT EQU * v : 2 P ABL IHRTN RETURN WITHOUT ENABLING INTERRUPTS v N P XIF v P* v P EJECT TOSSIO v P* v P* v P********** v P* TENDIO * v P********** v P* v P*
0x283f94…284128 Dummy {f00=0x00bf, f01=0x0190, f02=» v * P* ACTOTP IS CALLED TO START THE TASK w P* w 6 P* -IF NORMAL I/O WITH WAIT:- w @ P* w d * P* QTJOB IS CALLED TO QUEUE THE TASK w n 8 P* FOR DISPATCHING WITH THE FOLLOWING PARAMETERS:- w P* w P* A5 = TTAB ADDRESS w P* w $
0x284128…2842bc Dummy {f00=0x00bf, f01=0x0190, f02=»TTQ NOT ZERO) w d J P* THAT TASK IS PUT IN DISPATCHER QUEUE TO REPEAT THE LKM INSTRUCTION. x P* x d P EJECT TOSSIO x n P* x P* x 0 P* ENTRY PARAMETERS TO THIS SUBROUTINE ARE:- x P* x P* A1 = RETURN CODE x P* x P* A6 = D
0x2842bc…284450 Dummy {f00=0x00bf, f01=0x0190, f02=»ENT SUBROUTINES ARE PERFORMED. x P* y & P EJECT TOSSIO y 0 P* y H P* END I/O ENTRY y R P* y j PTENDIO EQU * y t P IFT CPU852=1 y & P CF A15,SAVE8 SAVE A1-A8 ON STACK y P XIF y P* y P IFT CPU852=0 y P INH y " P MSR 8,A
0x284450…2845e4 Dummy {f00=0x00bf, f01=0x0190, f02=» DWT STATUS y z P INH z ( P LD A5,DWTTQ,A6 TERMINAL QUEUE LINK z P RF(Z) TEN110 NO TASK QUEUED z L P LDKL A2,/800 ATTACH BIT z p P ANR* A2,A4 z & P RF(Z) TEN100 DEVICE NOT ATTACHED z , P CW A5,DWTTAB,A6 ATTACHED TO OTHER TASK z ( P RF(NE) TE
0x2845e4…284778 Dummy {f00=0x00bf, f01=0x0190, f02=»HOR ADDRESS z t P ST A3,DWTTQ,A6 { . P CF A15,QTJOB QUEUE TASK TO REPEAT REQUEST { , P* { ^ P* UPDATE ECB AND DWT { h P* { 0 PTEN110 LD A5,DWTTAB,A6 TTAB ADDRESS FROM DWT { P* { PTEN120 LDKL A2,/8000 { , P ORRS A2,A4 INDICATE DEVICE READ
0x284778…28490c Dummy {f00=0x00bf, f01=0x0190, f02=»CH IF ENTERED FROM ECHO OR RECOVERY { ~ P* | , P EJECT TOSSIO | 6 P* | N P* | X * P ORRS A2,A3 SET EVENT COMPLETED IN ECB | b , P ORS A1,ECBRC,A3 SET RETURN CODE IN ECB | P* | P IFT MMUPAG=1 | P LD A4,TTB:PW,A5 PSW | " P ANK A4,1 SY
0x28490c…284aa0 Dummy {f00=0x00bf, f01=0x0190, f02=»5,32 ADJUST STACKPOINTER | * P TS 2,A15 SAVE MMU REGISTERS ON STACK } . P TL TTB:MT,A5 LOAD MMU REGISTERS FROM TTAB } N P* } P EJECT TOSSIO } P* } P* MOVE DWT ECB TO USER ECB } P* } & P LD A8,DWTUEC,A6 USER ECB ADDRESS } P ELR A
0x284aa0…284c34 (2, 52) Dummy {f00=0x00bf, f01=0x0190, f02=»DK A2,ECBEL } P LDK A4,6 ~ 4 P MVSU A4 MOVE EFF. LENGTH, RTN CODE & CNTRL WORD ~ & P* ~ ^ 4 P LD A3,DWTADR,A6 ADDRESS TO DRIVER ADDRESS BLOCK ~ h " P LD A3,DEVIND,A3 DEVICE INDEX ~ , P RF(N) TEN160 NO SPECIAL ACTION REQUIRED ~ " P RF(Z) TEN140 DATA
0x284c34…284dc8 Dummy {f00=0x00bf, f01=0x018e, f02=» , P CF A15,RD:WR CHECK IF IT WAS READ/WRITE . P RF(Z) TEN160 JUMP IF NO READ/WRITE ORDER 4 P* f PTEN140 EQU * p P ENB < P CFI A15,TENTAB,A3 BRANCH TO RELEVANT READ/WRITE ROUTINE P* P EJECT TOSSIO P* P* RESTORE MM
0x284dc8…284f5c Dummy {f00=0x00bf, f01=0x0190, f02=» d $ P ADKL A15,32 ADJUST STACKPOINTER P XIF 0 P* < P EJECT TOSSIO F P* ^ : P* CHECK IF NO WAIT, WAIT, MULTIPLE WAIT OR ACTIVATION h P* PTEN200 EQU * , P LD A4,DWTWAT,A6 WAIT/ACTIVATE INDICATOR ( P RF(Z) TEN250 NOT WA
0x284f5c…2850f0 Dummy {f00=0x00bf, f01=0x0190, f02=»ACTIVATION P LD A8,DWTECB,A6 ECB ADDRESS P* 6 P IFT MMUPAG=1 @ * P AN A3,TTB:PW,A5 SYSTEM/USER MODE BIT V P RF(Z) TEN210 SYSTEM MODE . P LD A8,DWTUEC,A6 NO, GET USER ECB ADDRESS P XIF P* PTEN210 EQU * 4 P ST A8
0x2850f0…285284 Dummy {f00=0x00bf, f01=0x0190, f02=»XT DWT ADDRESS P RF(Z) TEN240 NO MORE DWT:S P CMR A4 SET TO NO WAIT AGAIN : P LDR A4,A3 ^ P RB TEN220 p P* P EJECT TOSSIO P* P* PTEN230 EQU * 8 P CF A15,FREBLK ACTIVATE: GET PARAMETER AND DISP ADDR . P
0x285284…285418 Dummy {f00=0x00bf, f01=0x4150, f02=»PATCHING j P* PTEN250 EQU * $ P CM DWTECB,A6 RESET ECB ADDRESS . P* V PTEN260 EQU * ` P IFT CPU852=1 t P ABL IHRET8 P XIF P* P IFT CPU852=0 * P MLR 8,A15 RESTORE A1-A8 FROM STACK... P RTN A15 ...AND
0x285418…2855ac Dummy {f00=0x00bf, f01=0x2008, f02=» NT TOSSIO END @ &
0x2855ac…285740 Dummy {f00=0x00bf, f01=0x0190, f02=»NQUEUE POINTER , r PIHKB30 SCR A2,A3 - PEXIT ABL TDISP - . P* - D P EJECT - N P* - P* - f P* - p P* AKBTUT - z P* - & P* THIS IS THE TIME-OUT ROUTINE - P* - P* - P* - P IFT CTIMUT=1 - PAKBTUT EQU * - "
0x285740…2858d4 (2, 53) Opaque[0x194]
0x2858d4…285a68 # DirEnt {nam=»SYSLDM«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x17f8, f03=0x0000}
0x2858d4…285a68 IdxSect {
0x2858d4…285a68 f00 = 0x00bf // 0x2858d4 @0x0
0x2858d4…285a68 f01 = 0x003e // 0x2858d6 @0x2
0x2858d4…285a68 gno = [ // 0x2858d8 @0x4
0x2858d4…285a68 [0x00]: C0x00bf.0x3.0
0x2858d4…285a68 [0x01]: C0x00c0.0x0.0
0x2858d4…285a68 [0x02]: C0x00c0.0x1.0
0x2858d4…285a68 [0x03]: C0x00c0.0x2.0
0x2858d4…285a68 [0x04]: C0x00c0.0x3.0
0x2858d4…285a68 [0x05]: C0x00c1.0x0.0
0x2858d4…285a68 [0x06]: C0x00c1.0x1.0
0x2858d4…285a68 [0x07]: C0x00c1.0x2.0
0x2858d4…285a68 [0x08]: C0x00c1.0x3.0
0x2858d4…285a68 [0x09]: C0x00c2.0x0.0
0x2858d4…285a68 [0x0a]: C0x00c2.0x1.0
0x2858d4…285a68 [0x0b]: C0x00c2.0x2.0
0x2858d4…285a68 [0x0c]: C0x00c2.0x3.0
0x2858d4…285a68 [0x0d]: C0x00c3.0x0.0
0x2858d4…285a68 [0x0e]: C0x00c3.0x1.0
0x2858d4…285a68 [0x0f]: C0x00c3.0x2.0
0x2858d4…285a68 [0x10]: C0x00c3.0x3.0
0x2858d4…285a68 [0x11]: C0x00c4.0x0.0
0x2858d4…285a68 [0x12]: C0x00c4.0x1.0
0x2858d4…285a68 [0x13]: C0x00c4.0x2.0
0x2858d4…285a68 [0x14]: C0x00c4.0x3.0
0x2858d4…285a68 [0x15]: C0x00c5.0x0.0
0x2858d4…285a68 [0x16]: C0x00c5.0x1.0
0x2858d4…285a68 [0x17]: C0x00c5.0x2.0
0x2858d4…285a68 [0x18]: C0x00c5.0x3.0
0x2858d4…285a68 [0x19]: C0x00c6.0x0.0
0x2858d4…285a68 [0x1a]: C0x00c6.0x1.0
0x2858d4…285a68 [0x1b]: C0x00c6.0x2.0
0x2858d4…285a68 [0x1c]: C0x00c6.0x3.0
0x2858d4…285a68 [0x1d]: C0x00c7.0x0.0
0x2858d4…285a68 [0x1e]: C0x00c7.0x1.0
0x2858d4…285a68 ]
0x2858d4…285a68 }
0x285a68…285bfc Dummy {f00=0x00bf, f01=0x0190, f02=» 2 P IDENT SYSLDM REL 10.0 80-03-31 870105041000 P : P REL 10.0 80-03-17 ST B & P =5,FAULTY DISPL. TO MMU BIT MAP b P REL 10.0 80-03-14 ST 0 P =4,MEM. OVERFL. NOT DET. WHEN GEN. TTAB:S P PRR 10.0 80-01-18 , P =3,SEGTAB
0x285bfc…285d90 Dummy {f00=0x00bf, f01=0x0190, f02=»2-07 0 P =1,UNEVEN LENGTH POSS. OF INTERNAL BUFFER P ENTRY SYSLDM @ P*************************** V P* * z P* ENTRIES AND EXTERNALS * P* * P***************************
0x285d90…285f24 Dummy {f00=0x00bf, f01=0x0190, f02=»ADA P EXTRN SCTANO P EXTRN SCTBLK " P EXTRN SCTBUG 8 P EXTRN SCTCDT N P EXTRN SCTDCT d P EXTRN SCTDMI z P EXTRN SCTDMT P EXTRN SCTEFA P EXTRN SCTFWL P EXTRN SCTFWT P EXTRN SCTIOE P EXTRN SCT
0x285f24…2860b8 Dummy {f00=0x00bf, f01=0x0190, f02=» P EXTRN SCTIPL P EXTRN STTPSZ P EXTRN SCTPSZ 4 P EXTRN SCTSFA J P EXTRN SCTSTL ` P EXTRN SCTSWB v P EXTRN SCTTCT P EXTRN SYSBAS P EXTRN SYSLOD P EXTRN TCLASS P EXTRN TTMJOB P EXTRN DWTECH
0x2860b8…28624c Dummy {f00=0x00bf, f01=0x0190, f02=» P EXTRN CONVRT P EXTRN NXTBLK P EXTRN SYSLDX 4 P EXTRN SAVE01 J P EXTRN SAVE02 ` P EXTRN SAVE03 v P EXTRN SAVE04 P EXTRN SAVE05 P EXTRN SAVE06 P EXTRN SAVE07 P EXTRN SAVE08 P EXTRN SAVE09
0x28624c…2863e0 Dummy {f00=0x00bf, f01=0x018e, f02=» P EXTRN SAVE16 P EXTRN SAVE17 P EXTRN SAVE18 0 P EXTRN SAVE19 F P EXTRN SAVE20 P EXTRN SAVE21 r P EXTRN NUMSEG P EXTRN SAVE23 P EXTRN SAVE24 P EXTRN SAVE25 P EXTRN SAVE26 P EXTRN SAVE27
0x2863e0…286574 (2, 54) Dummy {f00=0x00c0, f01=0x0190, f02=» & P EXTRN I:RSTE DISPL. IN P:MTAB TO P INTERPRETER RESTART ENTRY 2 P* V P* TTAB DISPLACEMENTS ` P* ~ . P EXTRN TTB:CB CURRENT SEGMENT BASE POINTER P EJECT P* P* EXTERNAL SUBROUTINES P* P EXTRN NXTCO
0x286574…286708 Dummy {f00=0x00c0, f01=0x0190, f02=» * v , P*************************************** P F ( PMMUPAG EQU 1 MEMORY MANAGEMENT UNIT N & PSWPBLK EQU 0 SWAPPABLE WORK BLOCKS z $ PDSKPAG EQU 1 DSKPAG APPLICATION P EJECT P P* P* CONSTANTS P*
0x286708…28689c Dummy {f00=0x00c0, f01=0x018e, f02=» $ PWBLEN EQU -4 LENGTH OF WORKBLOCK P , P 8 $ P******************************* D $ P* SAVE01URATION FILE (SAVE01) * l $ P******************************* P P* TASK DEFINITION BLOCK: PTDBBT EQU 0 1A BLOCK TYPE (
0x28689c…286a30 Dummy {f00=0x00c0, f01=0x0190, f02=» f $ PTDBTL EQU TDBMC+6 6A TASK LEVEL : PTDBNC EQU TDBTL+6 2N NUMBER OF TERMINAL DEVICE CLASSES 0 P* n & PTDBFST EQU TDBNC+2 FIRST TERM DEF x $ PTDC EQU 7 TERMINAL DEVICE CLASS PTLC EQU 6 LINE CONNECTION ( PTDBREC EQU TDC+TLC TDB-RECOR
0x286a30…286bc4 Dummy {f00=0x00c0, f01=0x0190, f02=»CK TYPE ~ 6 PCDBNC EQU CDBBT+1 2N NUMBER OF SPEC. DEV. CLASSES ( PSDCFST EQU CDBNC+2 FIRST SDC-RECORD J P* v P* & P* USER WORK BLOCK TYPE DEF. BLOCK PUDBBT EQU 0 1A BLOCK TYPE , PUDBNU EQU UDBBT+1 3A NUMBER OF UWB TYPES P*
0x286bc4…286d58 Dummy {f00=0x00c0, f01=0x0190, f02=»UWB+NUMUBL UDB RECORD-LENGTH P EJECT $ P**************** 2 P* SOP-HANDLING * J P**************** b PSOP EQU /2E DEVICE ADDRESS z P PLMP1 EQU /400 LAMP 1 CODE PLMP2 EQU /200 PLMP3 EQU /100 PLMP4 EQU /80 PLM
0x286d58…286eec Dummy {f00=0x00c0, f01=0x0190, f02=» F P***************************************************************** F P* CALL-FORMAT, PERFORMS: CFR A14,A13 * T F P* DATA [REL-ADDRESS] * F P*
0x286eec…287080 Dummy {f00=0x00c0, f01=0x0190, f02=» P PCALL FORM 16=/F697,16 P EJECT . F P***************************************************************** < F P* CONSTANTS USED IN SYSLOD PART M * F P********************************************************
0x287080…287214 (2, 55) Dummy {f00=0x00c0, f01=0x0190, f02=»* 2 PTTB:AT EQU -46 DISPLACEMENT TO MMU BIT MAP =5 PTTB:MT EQU -38 @ PTTB:SP EQU -4 V PTTB:SB EQU -2 l PTTB:ID EQU 2 PTTB:ST EQU 4 PTTB:PP EQU 6 PTTB:PW EQU 8 PTTB:SA EQU 10 PTTB:TD EQU 40 P EJECT
0x287214…2873a8 Dummy {f00=0x00c0, f01=0x0190, f02=» 0 CHANNEL PARAMETER PDWTST EQU 2 STATUS PDWTECB EQU 4 ECB ADDRESS 6 PDWTOR EQU 6 ORDER V PDWTADR EQU 8 ADDRESS BLOCK p PDWTTAB EQU 10 TTAB ADDRESS * PDWTWAT EQU 12 WAIT/ACTIVATE INDICATOR PDWTTQ EQU 14 TERMINAL QUEUE " PDW
0x2873a8…28753c Dummy {f00=0x00c0, f01=0x018e, f02=» " P* * PAGTAB * " P* *********** * P* P PPAGQF EQU 0 Z PPAGQB EQU 2 n PPAGPA EQU 4 PPAGSB EQU 6 P EJECT P* & P* ************* & P* * SEGT
0x28753c…2876d0 Dummy {f00=0x00c0, f01=0x0190, f02=» * P* ******************* * P* * MISCELLANOUES * 2 * P* ******************* ` P* PBUFLEN EQU -4 PDEVIND EQU -2 PDWTLEN EQU 6 PTDCDD1 EQU 5 PTDCDD2 EQU 6 PLCND1 EQ
0x2876d0…287864 Dummy {f00=0x00c0, f01=0x0190, f02=»2 LENGTH OF ASCU4Z INTERRUPT TABLE 2 PSCZLEN EQU 16 LENGTH OF SALCUZ INTERRUPT TABLE * 2 PASZBUF EQU 96 LENGTH OF TEMP TABLE FOR ASCU4Z ` 2 PSCZBUF EQU 48 LENGTH OF TEMP TABLE FOR SALCUZ 4 PMINBUF EQU 1984 LENGTH OF TEMP. INT. TABLE AREA P EJE
0x287864…2879f8 Dummy {f00=0x00c0, f01=0x0190, f02=» * : P* THIS IS THE MONITOR CONFIGURATION PROGRAM ENTRY * < : P* * z : P* IT IS ENTERED FROM SYSLOD WITH THE FOLLOWING * : P* PARAMETERS:
0x2879f8…287b8c Dummy {f00=0x00c0, f01=0x0190, f02=»CATION OF SYSLDX * r : P* A2 - POINTER TO PREVIOUS LOCATION OF SYSLDX * : P* * ^ : P* * : P**********************************************
0x287b8c…287d20 Dummy {f00=0x00c0, f01=0x0190, f02=»1,SCTSFA UPDATE START OF FREE AREA P LDR A8,P INIT STACK POINTER * & P ADK A1,2 RELOCATION ROUTINE ENTRY N P CFR A8,A1 x * P ST A13,SCTEFA UPDATE END OF FREE AREA * P LDKL A2,TCLASS GET ADDRESS TO TCLASS . P CWK A2,SCLASS SAME AS ADDRESS TO
0x287d20…287eb4 (2, 56) Dummy {f00=0x00c0, f01=0x0190, f02=» POINTER TO TCLASS p 0 PNO:TCL LDKL A2,SCLASS GET ADDRESS TO SCLASS , P CALL CHPTRS RELOCATE POINTERS IN SCLASS N 6 P ST A2,SAVE11,A13 SAVE RELOCATED POINTER TO SCLASS ~ P* & P* CLEAR ALL WORDS IN SYSTEM AREA P* P LD A1,SCTEFA
0x287eb4…288048 Dummy {f00=0x00c0, f01=0x0190, f02=» P AD A1,M:REL,A13 P ABR A1 P EJECT 0 4 /*********************************************** > 4 /* CHPTRS - CHANGE POINTERS IN TCLASS/SCLASS * v 4 /*********************************************** * , (* ENTRY: A2 - POINTER
0x288048…2881dc Dummy {f00=0x00c0, f01=0x018e, f02=»- POINTER TO MOVED TCLASS/SCLASS * ( * WORK REGISTER:A1-A7 2 * P * SUBROUTINES: Z * r PCHPTRS EQU * | P ADR A2,A12 RELOCATE POINTER 2 . LDR A3,A2 GET POINTER TO ORIGIN TCLASS/SCLASS , ' LDR* A4,A3 GET LENGTH OF TCLA
0x2881dc…288370 Dummy {f00=0x00c0, f01=0x018e, f02=» z $ ! LDR* A5,A3 GET POINTER TO CLASS ADR A5,A12 RELOCATE 0 STR A5,A3 STORE L $ LDR* A6,A5 GET LENGTH OF CLASS d CHPT20 EQU * * & SUK A6,4 MOORE DEVICES IN THIS CLASS? P RB(NP) CHPT10 NO! ADK A5,4 NEXT DEVICE L
0x288370…288504 Dummy {f00=0x00c0, f01=0x0190, f02=» r ADR A7,A12 RELOCATE * % STR A7,A5 STORE RELOCATED DW-ADDRESS $ " P LD A8,SCTOPT GET OPTION WORD R P ANKL A8,1 MMU IN SYSTEM? x P RB(Z) CHPT20 NO! , P LD A8,DWTMEC,A7 GET MONITOR ECB ADDRESS & P LDR A9,A8 GET MONITOR ECB ADDRESS
0x288504…288698 Dummy {f00=0x00c0, f01=0x0190, f02=»ESS RELOCATED t , P ST A8,DWTMEC,A7 STORE RELOCATED ADDRESS RB CHPT20 F CHPT30 EQU * X P RTN A14 l P EJECT | 6 2************************************************** 6 2* B:TCT - BUILD TASK CONTROL TABLE * 6 2**********
0x288698…28882c Dummy {f00=0x00c0, f01=0x0190, f02=»ATION DATA l * " * EXIT: A6 - START OF TC:TAB $ * A7 - LENGTH OF TC:TAB B * j * WORK REGISTERS: A2,A3 t * * SUBROUTINES: * . )* TASK CONTROL TABLE LAYOUT . )* ____
0x28882c…2889c0 Dummy {f00=0x00c0, f01=0x0190, f02=» I TTMJOB I . )* _________________________ , . ** I MONITOR TASKS I ^ . )* _________________________ . ** I USER TASKS I . )* _____
0x2889c0…288b54 (2, 57) Dummy {f00=0x00c0, f01=0x0190, f02=»A11,SAVE01,A13 GET START OF SAVE01URATION DATA ( $ LD A7,SCTSFA GET START OF FREE AREA 6 LDR A6,A7 SAVE b & " LDKL A2,TTMJOB GET TTMJOB ADDRESS z ST A2,2,A7 STORE IN TC:TAB * % ADK A7,4 CONTINUE WITH MONITOR TASKS ( P LD A2,SCTOPT ANY
0x288b54…288ce8 Dummy {f00=0x00c0, f01=0x0190, f02=»S IN TC:TAB IF CERTAIN OPTIONS AVALIABLE * @ P* - TO BE PROVIDED * 4 @ P*********************************************************** x P EJECT PBTCT15 EQU * " P LD A2,SCTDMT DATA MANAGEMENT? $ PBTCT
0x288ce8…288e7c Dummy {f00=0x00c0, f01=0x018e, f02=»RESERV ENTRY FOR DM-TASK D0 PBTCT25 RB BTCT20 $ PBTCT30 EQU * < * P : 5* COMPUTE NUMBER OF TASKS AND RESERV SPACE IN TC:TAB Z * . )* A11 - POINTER TO TASK DEFINITION BLOCK * 2 P ST A7,SAVE13,A13 SAVE CURRENT USER TASK E
0x288e7c…289010 Dummy {f00=0x00c0, f01=0x0190, f02=» RF(E) BTCT35 YES ! P LDKL A1,LMP4 FORMAT ERROR ! CALL ERROR HALT ! @ PBTCT35 EQU * ! X * ! l 0 ,* COMPUTE NUMBER OF TASK IN EACH TASK CLASS ! v * ! PBTCT40 EQU * ! $ CALL GETTSK GET NUMBER OF TASKS ! PBTCT50 EQU * ! , P ADK
0x289010…2891a4 Dummy {f00=0x00c0, f01=0x018e, f02=» CALL ERROR INDICATE MEMORY OVERFLOW ! PBTCT55 EQU * " , ( $ SUK A1,1 MOORE TASKS IN THIS CLASS? " @ RB(P) BTCT50 YES " l $ CALL NXTBLK SKIP TO NEXT BLOCK " ( # CCK A2,'TT' TASK DEFINITION BLOCK? " RB(E) BTCT40 YES " * " 4 0* ENTRIES
0x2891a4…289338 Dummy {f00=0x00c0, f01=0x0190, f02=» & ! STR A7,A6 STORE LENGTH IN TC:TAB # * P ST A6,SCTTCT STORE POINTER TO TC:TAB # . RTN A14 # P EJECT # l 8 P*************************************************** # z 8 P* * # 8 P* B:FWT - BUI
0x289338…2894cc Dummy {f00=0x00c0, f01=0x0190, f02=» * # j 8 P*************************************************** $ 8 P* * $ R 8 P* REFERENCED IN: CONMON * $ 8 P* * $ 8 P*
0x2894cc…289660 Dummy {f00=0x00c0, f01=0x018e, f02=»- FILE WORK TABLE LENGTH IN * $ ~ 8 P* BYTES * % * 8 P* * % f 8 P* EXIT: SCTFWT - ADDRESS TO FIRST FWT * % 8 P* SCTNOF - TOTAL NUMBER OF FM-FIL
0x289660…2897f4 (2, 58) Dummy {f00=0x00c1, f01=0x0190, f02=» 8 P* * & 8 P* SUBROUTINES: ERROR,MULT * & @ 8 P* * & | 8 P* FUNCTIONAL DESCRIPTION: * & 8 P* THIS SUBROUTINE R
0x2897f4…289988 Dummy {f00=0x00c1, f01=0x0190, f02=»N BY THE * & l 8 P* FORMULA: A=L*(G+N*T) * ' 8 P* WHERE A=AREA SIZE IN BYTES * ' T 8 P* L= FWT LENGTH IN BYTES * ' 8 P* G=NUMBER OF GENERAL FM-FILES * ' 8 P
0x289988…289b1c Dummy {f00=0x00c1, f01=0x0190, f02=» * ' 8 P*************************************************** ( , P EJECT ( h PB:FWT EQU * ( v & P LD* A2,SCTTCT GET LENGTH OF TCTAB ( & P AD A2,SCTTCT COMPUTE END OF TCTAB ( * P SU A2,SAVE02,A13 LENGTH OF USER PART (
0x289b1c…289cb0 Dummy {f00=0x00c1, f01=0x0190, f02=»F ADD NUMBER OF GENERAL FM-FILES ( 0 P ST A3,SCTNOF STORE TOTAL NUMBER OF FM-FILES ) ( , P LD A2,SCTFWL GET FILE WORK TABLE LENGTH ) P CALL MULT MULTIPLY ) , P SRL A3,1 NUMBER OF WORDS TO BE RESERVED ) P ADK A3,0 ANY FWT:S AT ALL? ) P RF(Z) FWT70
0x289cb0…289e44 Dummy {f00=0x00c1, f01=0x0190, f02=»S TO FIRST FWT ) v ( PFWT50 CW A2,SCTEFA MEMORY OVERFLOW? * P RF(NE) FWT60 NOT YET! * B * P LDKL A1,LMP3 INDICATE MEMORY OVERFLOW * ` P CALL ERROR * ( PFWT60 ADK A2,2 RESERVE ANOTHER WORD * $ P SUK A3,1 DECREMENT WORD COUNTER * * P RB(NZ) FWT50 CHEC
0x289e44…289fd8 Dummy {f00=0x00c1, f01=0x0190, f02=»************** * x * &* MONBLK - GENERATE MONITOR BLOCKS * + * &************************************** + D * + r ( $* NUMBER OF BLOCKS TO BE GENERATED: + | ( P* 20+N*(NUMBER OF TASKS IN SYSTEM) + $ P* WHERE N IS A SYSTEM CONSTANT + $ P* DEFINED A
0x289fd8…28a16c Dummy {f00=0x00c1, f01=0x0190, f02=»* SCTEFA - END OF FREE AREA + * , , . ** EXIT: BLOCKS - POINTER TO FIRST BLOCK , 6 * , h $ * WORK REGISTERS: A1,A2,A7,A12 , r * , * SUBROUTINES: BLKGEN , * , EJECT , PMONBLK EQU * , LDK A1,0 , & ! LD A1
0x28a16c…28a300 Dummy {f00=0x00c1, f01=0x0190, f02=»* , ( P LD* A7,SCTTCT GET LENGTH OF TC:TAB - P* - 6 0 P* GET NUMBER OF BLOCKS PER TASK TO GENERATE - @ P* - t P LD A2,SCTBLK - ~ PMON:10 EQU * - SUK A7,2 MOORE TASKS? - RF(Z) MON:20 NO - P CALL BLKGEN - RB MON:10 - PMO
0x28a300…28a494 (2, 59) Dummy {f00=0x00c1, f01=0x0190, f02=»D BLOCK - * . STR A1,A12 . ST A1,2,A12 . . ST A1,4,A12 . B P* . V F P* CHECK IF BUFFER GREATER THAN 3 WORDS RESERVED FOR SYSLOD PART A . ` 0 P* IF NOT - USE LAST MONITOR BLOCK AS BUFFER . P* . & P LD A1,BUFSIZ,A13 GET BUFFER SIZ
0x28a494…28a628 Dummy {f00=0x00c1, f01=0x0190, f02=»T A12,SYSBUF,A13 START OF BUFFER . PMON:30 EQU * / ( ADKL A12,6 / < P LD A2,SCTSFA / P P SUK A2,2 / f PMON:40 ADK A2,2 / x P CW A2,SCTEFA / P RF(NE) MON:50 / P LDKL A1,LMP3 / P CALL ERROR / PMON:50 CWR A2,A12 / P RB(NE)
0x28a628…28a7bc Dummy {f00=0x00c1, f01=0x0190, f02=»* BLKGEN - GENERATE MONITOR BLOCK * / * %************************************* 0 . * 0 * REFERENCED IN: MONBLK 0 f * 0 * ENTRY: A1=0 0 4 0* A2 - NUMBER OF BLOCKS TO BE GENERATED 0 $ * A12 - NEXT FREE ENTRY 0
0x28a7bc…28a950 Dummy {f00=0x00c1, f01=0x0190, f02=» 0 * 1 0 ,* MONITOR BLOCK LAYOUT 1 0 ,* -------------------- 1 F 0 ,* I DATA *+6 I 1 z 0 ,* -------------------- 1 0 ,* I DATA 0
0x28a950…28aae4 Dummy {f00=0x00c1, f01=0x0190, f02=» -------------------- 1 ~ * 2 " EJECT 2 , PBLKGEN EQU * 2 : LDR A3,A2 2 N PBLK:10 EQU * 2 b RF(Z) BLKEX 2 v ADKL A12,6 2 ST A12,-6,A12 2 P ST A1,-4,A12 2 ST A1,-2,A12 2 SUK A3,1 2 RB BLK:10 2 PBLKE
0x28aae4…28ac78 Dummy {f00=0x00c1, f01=0x0190, f02=»UILD SEGMENT TABLE * 2 ( $************************************ 3 * 3 J * &* ENTRY: SCTSFA - START OF FREE AREA 3 T ( $* SCTEFA - END OF FREE AREA 3 , (* SCTLAC - START OF APPLICATION 3 * 3 , (* EXIT: SCTPAG - ADDRESS TO PA
0x28ac78…28ae0c Dummy {f00=0x00c1, f01=0x0190, f02=» * 3 P* 4 P* CHECK APPLICATION TYPE 4 P* 4 6 ( P LD A1,APPTYP,A13 GET LANGUAGE TYPE 4 @ P CWK A1,'CR' 4 l $ P RF(E) SEG:05 CREDIT APPLICATION 4 P CWK A1,'CO' 4 $ P RF(E) SEG:05 COBOL APPLICATION 4 P RF SEGEX 4 * 4 * BUILD
0x28ae0c…28afa0 Dummy {f00=0x00c1, f01=0x0190, f02=»2 STORE IN SEGTAB 4 ( P ADKL A12,2 START OF SEGMENT BLOCKS 5 , P LD A1,SAVE29,A13 GET NUMBER OF SEGMENTS 5 F P STR A1,A12 SAVE 5 v P ADKL A12,2 5 . P ST A12,SAVE30,A13 START OF SEGMENT TABLE 5 * P LDKL A1,/8400 STATUS FOR FIRST BLOCK 5 $ P STR A
0x28afa0…28b134 (2, 60) Dummy {f00=0x00c1, f01=0x0190, f02=» A2,A1 SAVE POINTER 5 P ADKL A2,6 ADDRESS TO P:BAS 6 P CALL GETCON GET P:BAS 6 @ & P ST A1,2,A12 STORE IN FIRST BLOCK 6 ^ " P ADKL A12,8 BYPASS FIRST BLOCK 6 4 P LD A2,SCTLAC GET LOGICAL ADDRESS TO COMMON PART 6 * P ADKL A2,NUMSEG GET NUMBER OF SEGM
0x28b134…28b2c8 Dummy {f00=0x00c1, f01=0x018e, f02=»10 EQU * 6 P LDK A7,0 STATUS 7 CALL GETCON 7 * * P* LDR A3,A1 SAVE DISC ADDRESS =REL 11 7 > ( P* ANK A3,/FF CLEAR LEFT BYTE =REL 11 7 l , P SRL A1,8 PROGRAM TYPE TO RIGHT BYTE =2 7 ( # CCK A1,'RR' CORE RESIDENT SEGMENT? 7 P RF(E) SEG:30 YES! 7
0x28b2c8…28b45c Dummy {f00=0x00c1, f01=0x0190, f02=» 7 P ADK A2,2 8 P RF SEG:40 8 PSEG:30 EQU * 8 , * P LDKL A7,/8800 INDICATE LOADED IN CORE 8 @ PSEG:35 EQU * 8 n ADK A2,2 SEGMENT ADDRESS 8 CALL GETCON 8 P* 8 P AD A1,SCTADA+2 8 P RF(O) SEG:36 8 P RF SEG:38 8 PSEG:36
0x28b45c…28b5f0 Dummy {f00=0x00c1, f01=0x0190, f02=»L ERROR 8 PSEG:40 EQU * 9 P* ORR A7,A3 =REL 11 9 $ P STR A7,A12 9 @ P ST A1,2,A12 9 T P ADK A2,2 EFFECTIVE LENGTH 9 h CALL GETCON 9 & P ST A1,4,A12 SAVE EFFECTIVE LENGTH 9 " P ADKL A12,8 NEXT SEGMENT BLOCK 9 " ADK A2,2 NEXT BLOCK IN S:
0x28b5f0…28b784 Dummy {f00=0x00c1, f01=0x0190, f02=» A2,2 9 P CW A2,SCTEFA : P RF(NE) SEG:70 : $ P LDKL A1,LMP3 : : ( P CALL ERROR INDICATE MEMORY OVERFLOW : P PSEG:70 CWR A2,A12 : | P RB(NE) SEG:60 : P ST A12,SCTSFA : PSEGEX EQU * : RTN A14 RETURN : P XIF : P IFT SWPBLK=1
0x28b784…28b918 Dummy {f00=0x00c1, f01=0x0190, f02=» * : f D P* * ; D P* * ; f D P* B:SWBT - BUILD SWAPPABLE WORK BLOCK TABLE * ; D P* =======
0x28b918…28baac Dummy {f00=0x00c1, f01=0x0190, f02=» REFERENCED IN: SYSLDM * ; D P* * < > D P* ENTRY: * < D P*
0x28baac…28bc40 Dummy {f00=0x00c1, f01=0x0190, f02=» * < ^ D P* WORK REGISTERS: A1-A12 * = D P* * = ^ D P* REGISTER USAGE: A8 - DISC ADDRESS TO FIRST COPY * = D P*
0x28bc40…28bdd4 (2, 61) Dummy {f00=0x00c1, f01=0x0190, f02=» A11 - POINTER IN CONF. FILE * = ~ D P* A12 - ADDRESS TABLE POINTER * > 6 D P* * > ~ D P* SUBROUTINES: ERROR,GETNUM,GETCON * >
0x28bdd4…28bf68 Dummy {f00=0x00c1, f01=0x0190, f02=» * > V D P*************************************************************** ? P EJECT ? V PB:SWBT EQU * ? d & P LD A12,SCTSFA START OF FREE AREA ? x 2 P LD A11,SAVE01,A13 START OF CONFIGURATION FILE ? P* ? : P* SEARCH FOR SWB TYPE DEFINITION BLOC
0x28bf68…28c0fc Dummy {f00=0x00c1, f01=0x0190, f02=»S! ? 0 P CCK A2,'CC' COMMON DEVICE DEFINITION BLOCK? @ P RF(NE) BSWT20 NO! @ > P ADKL A11,1 @ X " P CALL NXTCOM SKIP COMMON BLOCK @ l 2 PBSWT20 CCK A2,'UU' UWB TYPE DEFINITION BLOCK? @ P RF(NE) BSWT40 NO! @ P ADKL A11,1 NUMBER OF TYPES @ P L
0x28c0fc…28c290 Dummy {f00=0x00c1, f01=0x0190, f02=»BFST-1 FIRST UWB RECORD @ ( PBSWT30 ADKL A11,6 BYPASS UWB RECORD A $ P SUK A1,1 DECR. NUMBER OF TYPES A L P RB(P) BSWT30 MOORE LEFT A t , P LCR A2,A11 GET NEXT CHAR. IN CONF.FILE A 0 PBSWT40 CCK A2,'SS' SWB TYPE DEFINITION BLOCK A P RF(E) BSWT44 YE
0x28c290…28c424 Dummy {f00=0x00c1, f01=0x0190, f02=»F TYPES A v * P ST A11,SAVE23,A13 START OF CONF. DATA B P LDR A6,A11 B > P CALL GETNUM GET 3 DIGITS B R P LDR A5,A5 ZERO? B t $ P RF(Z) SWBERR ILLEGAL NUMBER!!! B , P ST A5,SAVE24,A13 SAVE NUMBER OF RECORDS B ( P LD A8,SCTSWB GET ADDRESS TO $SWAPP
0x28c424…28c5b8 Dummy {f00=0x00c1, f01=0x0190, f02=»TO ADDRESS TABLE B n * P CM SAVE14,A13 RESET SWP-BLOCK COUNTER C P ADKL A12,2 FIRST POINTER C F P LDR A10,A12 SAVE C h $ PBSWT50 ADKL A10,2 BYPASS POINTER C ( P SUK A5,1 DECREMENT NUMBER OF TYPES C P RB(P) BSWT50 C P* C & P* GET ADDRESS TO
0x28c5b8…28c74c Dummy {f00=0x00c1, f01=0x0190, f02=»DKL A2,S:BTAB DISPL. TO S:BTAB ADDRESS C $ P CALL GETCON GET S:BTAB ADDRESS D . * P LDR A2,A1 GET ADDRESS TO PROT. S:BTAB D V * P RB(Z) SWBERR NO SWB:S IN APPLICATION! D P ADK A1,2 ADDRESS TO NAME D P ST A1,SAVE21,A13 SAVE D 0 P SUK A2,2 ADDRESS TO L
0x28c74c…28c8e0 Dummy {f00=0x00c1, f01=0x0190, f02=» LDKL A9,0 RESET BLOCK COUNTER D , PBSWT60 STR A10,A12 SAVE POINTER TO BLOCK E & P ST A4,SAVE19,A13 SAVE E V * P LD A11,SAVE23,A13 START OF CONF. DATA E t , P LD A7,SAVE24,A13 NUMBER OF SWB RECORDS E 0 PBSWT65 LD A2,SAVE21,A13 NAME RECORD IN PROT. E $ P C
0x28c8e0…28ca74 (2, 62) Dummy {f00=0x00c2, f01=0x0190, f02=»LEFT BYTE E ~ " P LC A3,1,A11 GET SECOND CHAR. F & P CWR A1,A3 TWO FIRST CHAR. EQUAL? F 8 P RF(NE) BSWT70 NO! F b " P ADK A2,2 NEXT CHAR. IN PROT. F | P CALL GETCON GET THIRD CHAR. F P SRL A1,8 ISOLATE CHAR. F 0 P LC A3,2,A11 GET THIRD CHAR. FROM
0x28ca74…28cc08 Dummy {f00=0x00c2, f01=0x018e, f02=»WB SKIP NAME F | ( P SUK A7,1 DECREMENT NUMBER OF TYPES G P RB(P) BSWT65 NEXT TYPE G @ P* G ` N P* NO MATCHING NAME IN CONFIGURATION FILE - RESET ALL WORDS IN THIS BLOCK G j P* G P STR A7,A10 1:ST WORD G P ST A7,2,A10 2:ND WORD G P ST A7
0x28cc08…28cd9c Dummy {f00=0x00c2, f01=0x0190, f02=» G & P ADKL A11,NAMUWB NUMBER OF COPIES H P LDR A6,A11 H 2 P LDR A3,A2 SAVE POINTER H F & P CALL GETNUM GET NUMBER OF COPIES H f , P SLL A5,8 NUMBER OF COPIES IN LEFT BYTE H : P OR A5,SAVE26,A13 DISC ADDRESS BITS 0-7 IN RIGHT BYTE H " P STR A5,A1
0x28cd9c…28cf30 Dummy {f00=0x00c2, f01=0x0190, f02=»,A10 SAVE H P LDR A2,A3 RESTORE POINTER I $ P SUK A2,UPNAME PROTOTYPE ADDRESS I 4 & P CALL GETCON GET PROTOTYPE ADDRESS I P LDR A2,A1 SAVE I & P SUK A2,UPNAME LENGTH OF WORKBLOCK I P CALL GETCON I * P ST A1,SWBLEN,A10 STORE LENGTH OF SWB I 0
0x28cf30…28d0c4 Dummy {f00=0x00c2, f01=0x0190, f02=»S I d P RF(O) BSWT88 J P RF BSWT90 J PBSWT88 IM SAVE26,A13 J 2 P CM SAVE25,A13 J N PBSWT90 EQU * J d & P ADK A1,1 INCREMENT SECTOR COUNTER J x " P SUKL A3,256 DECREMENT LENGTH J P RB(P) BSWT86 MOORE SECTORS? J P SUK A5,1 MOORE COPIES? J
0x28d0c4…28d258 Dummy {f00=0x00c2, f01=0x0190, f02=»E26,A13 J P CW A8,SAVE28,A13 K ( P RB(G) SWBERR $SWAP-FILE TOO SMALL! K * P RF(L) BSWT95 K V P LD A8,SAVE25,A13 K l P CW A8,SAVE27,A13 K ( P RF(G) BSWT98 SWAPP-FILE TOO SMALL! K * PBSWT95 ADKL A10,8 START OF NEXT BLOCK K P ADKL A12,2 NE
0x28d258…28d3ec Dummy {f00=0x00c2, f01=0x0190, f02=»RECORD IN PROT. S:BTAB K | P ST A2,SAVE21,A13 SAVE L 0 P LD A4,SAVE19,A13 GET LENGTH OF PROT. S:BTAB L < P SUK A4,UP:REC DECREMENT L p P RB(P) BSWT60 MOORE TYPES L , P LD A8,SAVE14,A13 ANY BLOCKS GENERATED? L P RF(NE) BSWT99 YES L PBSWT98 LDKL
0x28d3ec…28d580 Dummy {f00=0x00c2, f01=0x0190, f02=»AREA L l P RTN A14 M P XIF M EJECT M ( 6 1************************************************* M 6 6 1* B:DMTT - BUILD DATA MANAGEMENT TASK TABLES * M p 6 1************************************************* M * M * &* ENTRY: SCTSFA - START
0x28d580…28d714 (2, 63) Dummy {f00=0x00c2, f01=0x0190, f02=»T: M * N ( P* WORK REGISTERS: A1,A3,A5,A7,A12 N * N @ * SUBROUTINES: DMTGEN N J * N h PB:DMTT EQU * N r * % LD A12,SCTSFA GET START OF FREE AREA N ( P LD A7,SCTTCT GET POINTER TO TC:TAB N " ADK A7,4 FIRST DM-TASK ENTRY N $ P L
0x28d714…28d8a8 Dummy {f00=0x00c2, f01=0x0190, f02=» P ANK A3,/F MOORE DM-TASKS? O P RF(Z) DMTTEX NO! O & P SRC A3,1 O @ P RF(NN) DMTT30 O R CALL DMTGEN O h DMTT30 EQU * O | P ADK A5,1 O P RB DMTT20 O DMTTEX EQU * O RTN A14 O EJECT O 6 2**********************************
0x28d8a8…28da3c Dummy {f00=0x00c2, f01=0x0190, f02=» * P * ENTRY: A1 - TASK ID P , (* A6 - INDEX RECORD BUFFER SIZE P . 0 ,* A7 - TCTAB ENTRY FOR CURRENT TASK P ^ & "* A12 - START OF FREE AREA P * P * EXIT: P * P P* WORK REGISTERS: A2,A4 P * P
0x28da3c…28dbd0 Dummy {f00=0x00c2, f01=0x0190, f02=»0 NO! P P LDK A4,0 RESET PAGE POINTER Q PDMTG10 EQU * Q 2 P CWK A4,/4000 LAST PAGE? Q F P RF(E) DMTG30 YES! Q f " P STR A4,A12 STORE PAGE POINTER Q ( P ADKL A4,/400 INCREMENT PAGE POINTER Q , P ADKL A12,2 INCREMENT MMU ENTRY POINTER Q P RB DM
0x28dbd0…28dd64 Dummy {f00=0x00c2, f01=0x0190, f02=» * Q . P LD A1,SAVE30,A13 GET ADDRESS TO SEG.TABLE R P STR A1,A12 STORE TTB:SP R < P ADKL A12,6 R PDMTG40 EQU * R p 2 . STR A12,A7 STORE TTAB ENTRY POINTER IN TC:TAB R " ADK A7,2 NEXT ENTRY IN TC:TAB R * P ST A5,TTB:ID,A12 TASK IDENTIFICATION R
0x28dd64…28def8 Dummy {f00=0x00c2, f01=0x0190, f02=» STATUS R z $ P ST A1,TTB:PW,A12 STORE IN TTAB S " P ADKL A12,40 TERMINAL DEVICES S 8 LDK A1,6 LENGTH S ^ STR A1,A12 STORE S v ADKL A12,40 TASK STACK+2 S , ' LDR A1,A6 GET INDEX RECORD BUFFER SIZE S SLL A1,2 MULTIPLY BY 4 S ( P ADR A
0x28def8…28e08c Dummy {f00=0x00c2, f01=0x0190, f02=»FLOW S n P RF(NE) DMTG60 NO! T P LDKL A1,LMP3 T & ( P CALL ERROR INDICATE MEMORY OVERFLOW T < PDMTG60 CWR A2,A12 T h P RB(NE) DMTG50 T , ( ST A12,SCTSFA UPDATE START OF FREE AREA T P RTN A14 T EJECT T " ****************************** T
0x28e08c…28e220 Dummy {f00=0x00c2, f01=0x0190, f02=»NTRY: SAVE01 - START OF SAVE01URATION DATA T * U 4 8 4* EXIT: TC:TAB CONTAIN POINTERS TO ALL TASK TABLES U > * U z * WORK REGISERS: A1-A12 U * U 8 3* SUBROUTINES: CONVRT,GETTSK,TETTDC,GETCLN,GETSDC U * U ( #*
0x28e220…28e3b4 (2, 64) Dummy {f00=0x00c2, f01=0x0190, f02=» TABLE I U ~ * &* I 16 I V * &* I WORDS I V J * &* I______________________I V x * &* TTB:SB I SEGMENT POINTER I V * &* ------------------------ V * &* TAS
0x28e3b4…28e548 Dummy {f00=0x00c2, f01=0x0190, f02=» ------------------------ V * &* TTB:ST I STATUS/LEVEL I W * * &* ------------------------ W X * &* TTB:PP I PENDING QUEUE I W * &* ------------------------ W * &* TTB:PW I PROGRAM STATUS WORD I
0x28e548…28e6dc Dummy {f00=0x00c2, f01=0x0190, f02=»-- W l * &* I REGISTER I X * &* I SAVE I X 8 * &* I AREA I X f * &* I 14 I X * &* I WORDS I X * &* ----------
0x28e6dc…28e870 Dummy {f00=0x00c2, f01=0x0190, f02=» TABLE I X z * &* : : Y * &* : : Y F * &* I______________________I Y t P EJECT Y 2 P* TASK SAVE01URATION TABLE LAYOUT Y 0 ,* ____________________
0x28e870…28ea04 Dummy {f00=0x00c2, f01=0x018e, f02=»I INDEX/FILCODE I Y 0 ,* ------------------------------ Z & 0 ,* I DWT-ADDRESS I Z Z 0 ,* ------------------------------ Z 0 ,* : : Z 0 ,* :
0x28ea04…28eb98 Dummy {f00=0x00c2, f01=0x0190, f02=» 0 ,* ------------------------------ [ 0 ,* I DWT-ADDRESS I [ 8 0 ,* ------------------------------ [ l EJECT [ PB:TT EQU * [ * P ST P,SAVE04,A13 SAVE LOCATION COUNTER [ * % LD A12,SCTSFA GET START O
0x28eb98…28ed2c Dummy {f00=0x00c2, f01=0x018e, f02=»U * [ $ LCR A2,A11 GET FIRST BLOCK TYPE ( # CCK A2,'TT' TASK DEFINITION BLOCK? 4 RF(E) BTT20 YES ` P LDKL A1,LMP4 FORMAT ERROR x CALL ERROR PBTT20 EQU * * ( $* GET NUMBER OF TASKS IN THIS CLASS * CALL
0x28ed2c…28eec0 Dummy {f00=0x00c2, f01=0x0190, f02=» j SLL A5,8 MOVE TO LEFT BYTE ] * P LC A5,TDBID+5,A11 GET SECOND ID DIGIT ] , . P ST A5,SAVE16,A13 SAVE TASK ID START VALUE ] Z P* ] " P* CHECK IF CREDIT APPLICATION ] P* ] P LD A5,APPTYP,A13 CREDIT? ] P CWK A5,'CR' ] P RF(NE) BTT2
0x28eec0…28f054 (2, 65) Dummy {f00=0x00c2, f01=0x0190, f02=» A5,8 MOVE TO LEFT BYTE ] . P LC A5,TDBMC+5,A11 GET SECOND CHAR IN TCL ^ $ P CALL GETTCL GET TCL START VALUE ^ R P ST A5,SAVE17,A13 SAVE ^ z PBTT21 EQU * ^ P EJECT ^ * ^ * GET TASK LEVEL ^ * ^ 0 P LC A5,TDBTL+4,A11 GET FIRST DIG
0x28f054…28f1e8 Dummy {f00=0x00c2, f01=0x0190, f02=»RY ^ t P ST A1,SAVE24,A13 SAVE _ P EJECT _ ( * _ 6 B P* COMPUTE SIZE OF SAVE01URATION DEPENDENT PART OF TASK TABLE _ @ * _ $ LDKL A10,TTB:TD STANDARD LENGTH _ " P LD A5,SCTOPT GET OPTION WORD _ 4 P ANK A5,/11 CHECK IF EMM AND MMU PAGING IN
0x28f1e8…28f37c Dummy {f00=0x00c2, f01=0x0190, f02=»B:AT RESERV SPACE FOR BIT MAP _ P RF BTT30 ` & PBTT22 LD A5,SCTOPT ` 8 P SRC A5,1 MMU PAGING? ` R P RF(NN) BTT25 NO ` p , P SUKL A10,TTB:MT 16+2 WORD EXTRA IF MMU ` 2 - SUKL A12,TTB:MT RESERV SPACE FOR EXTRA WORDS ` RF BTT30 ` PBTT25 EQ
0x28f37c…28f510 Dummy {f00=0x00c2, f01=0x0190, f02=»CB RESERV SPACE FOR EXTRA WORD ` PBTT30 EQU * a & * a : : P* ADD ONE WORD FOR LENGTH OF TASK SAVE01URATION TABLE a D * a ADKL A10,2 a P EJECT a * a < 7* COMPUTE SIZE OF TERMINAL DEVICE CLASS DEPENDENT PART a " P* OF TASK SAVE0
0x28f510…28f6a4 Dummy {f00=0x00c2, f01=0x0190, f02=»FST TERMINAL DEVICE CLASS DEFINITION a $ CALL GETTDC GET NUMBER OF TDC:S b , LDR A7,A1 SAVE b T PBTT35 EQU * b l RF(Z) BTT40 b ( $ CALL GETCLN GET CLASS NUMBER (1-99) b & " ADR A1,A1 2*(BINARY CLASS NUMBER) b , P LD A8,SAVE18,A13 GET POINTER
0x28f6a4…28f838 Dummy {f00=0x00c2, f01=0x018e, f02=»TE FORMAT ERROR b ~ PBTT37 EQU * c " P ADR A8,A1 GET ENTRY IN TCLASS c , $ P LDR* A8,A8 GET POINTER TO CLASS c R $ P LDR* A8,A8 GET LENGTH OF CLASS c z " SUKL A8,2 EXCLUDE LENGTH WORD c ( $ ADR A10,A8 ADD TO TOTAL TTAB LENGTH c . ) ADR A6,A8 ADD TO TA
0x28f838…28f9cc Dummy {f00=0x00c2, f01=0x0190, f02=» c PBTT40 EQU * d * d > :* COMPUTE SIZE OF SPECIAL DEVICE CLASS DEPENDENT PART OF d & P* TASK SAVE01URATION TABLE d h * d 6 1 CALL GETSDC GET NUMBER OF SPECIAL DEVICE CLASSES d P ADKL A9,2 FIRST SDC RECORD d LDR A7,A1 SAVE d
0x28f9cc…28fb60 Dummy {f00=0x00c2, f01=0x0190, f02=»R) d p , P LD A8,SAVE11,A13 GET POINTER TO SCLASS e P LDR* A2,A8 e : P SUK A2,2 e N P CWR A1,A2 e ` P RF(NG) BTT52 e r P LDKL A1,LMP4 e & P CALL ERROR INDICATE FORMAT ERROR e PBTT52 EQU * e " P ADR A8,A1 GET ENTRY IN SCLASS e $ P LDR*
0x28fb60…28fcf4 (2, 66) Dummy {f00=0x00c3, f01=0x018e, f02=» TTAB LENGTH e x . ) ADR A6,A8 ADD TO TASK CONF. TABLE LENGTH f ADKL A9,SDC NEXT CLASS f F ( # SUK A7,1 DECREMENT NUMBER OF SDC:S f f RB BTT50 f PBTT55 EQU * f " P ADK A6,2 INCLUDE LENGTH WORD f 2 P LD A7,SAVE13,A13 GET CURRENT ENTRY IN TC:
0x28fcf4…28fe88 Dummy {f00=0x00c3, f01=0x0190, f02=» f P* =4 g " P* MEMORY OVERFLOW CHECK =4 g P* =4 g < $ P LDR A1,A11 SAVE REGISTER A11 =4 g J " P LDR A5,A9 SAVE REGISTER A9 =4 g r $ P LDR A11,A12 GET TTAB ADDRESS =4 g ( P ADR A11,A10 COMPUTE END OF TTAB =4 g * P LD A9,SCTEFA GET END OF FRE
0x28fe88…29001c Dummy {f00=0x00c3, f01=0x0190, f02=»R INDICATE MEMORY OVERFLOW =4 g $ PBTT62 LDR A11,A1 RESTORE A11 =4 h & P LDR A9,A5 RESTORE A9 =4 h N P EJECT =4 h n 8 P* STORE LENGTH OF TASK SAVE01URATION TABLE IN TTAB h * h ST A6,TTB:TD,A12 h * h : 6* STORE TASK LEVEL IN RIGHT
0x29001c…2901b0 Dummy {f00=0x00c3, f01=0x0190, f02=» STORE TASK LEVEL IN LEFT BYTE OF PROGRAM STATUS WORD h * i > & P SLL A5,10 MOVE LEVEL TO LEFT BYTE i H P ORKL A5,/00C0 i r " P LD A2,SCTOPT GET OPTION WORD i P ANK A2,1 MMU OPTION? i P ORR A5,A2 SET BIT 15 IF MMU i $ ST A5,TTB:PW,A12 STORE
0x2901b0…290344 Dummy {f00=0x00c3, f01=0x0190, f02=»A12 STORE IN TTAB i ADK A5,1 INCREMENT TASK ID j 6 P ST A5,SAVE16,A13 SAVE TO NEXT TASK IN SAME CLASS j > P IFF MMUPAG+DSKPAG=0 =3 j x P* j * P* STORE SEGMENT TABLE ADDRESS IN TTAB j P* j 0 P LD A5,SAVE30,A13 GET SEGMENT TABLE ADDRESS j
0x290344…2904d8 Dummy {f00=0x00c3, f01=0x0190, f02=»NE) BTT65 NO j P* k ( P* STORE TASK CLASS TO MATCH IN TTAB k P* k J * P LD A5,SAVE17,A13 GET TCL START VALUE k T " P ST A5,TTB:PP,A12 SAVE IN TTAB k P ADK A5,1 INCREMENT TCL k P ST A5,SAVE17,A13 SAVE k PBTT65 EQU * k , ' STR A12,A7 SA
0x2904d8…29066c Dummy {f00=0x00c3, f01=0x0190, f02=»0 GET TTAB LENGTH k 0 P ADS A5,SAVE10,A13 UPDATE START OF FREE AREA l 4 / ADR A12,A10 NEXT TTAB ENTRY IN THIS TASK CLASS l N 6 2 SUKL A8,1 DECREMENT NUMBER OF TASKS IN THIS CLASS l RB BTT60 l P EJECT l PBTT70 EQU * l * l * &* RESET P
0x29066c…290800 Dummy {f00=0x00c3, f01=0x0190, f02=»'TT' TASK DEFINITION BLOCK? l P RF(NE) BTT95 m $ P LDKL A2,BTT20 m : P SUKL A2,REL m P P ADR A2,A13 m d P ABR A2 m x PBTT95 EQU * m P =4 m P =4 m P =4 m P =4 m P =4 m P =4 m P =4 m P =4 m
0x290800…290994 (2, 67) Dummy {f00=0x00c3, f01=0x018e, f02=»************************************** m n J J* B:DWTS - BUILD DWT:S FOR SPECIAL DEVICES AND CONNECT TO TASK TABLES n . L J************************************************************************ n | * n * REFERENCED IN: MONCON n * n , (* ENTRY
0x290994…290b28 Dummy {f00=0x00c3, f01=0x0190, f02=» * o * EXIT: o * o * WORK REGISTERS: A1-A12 o ( * o J < 8* SUBROUTINES: GETTSK,GETTDC,GETSDC,GETCLN,NXTBLK,ERROR o T * o EJECT o PB:DWTS EQU * o * o & P* GET START OF SAVE01URATION FILE o * o 2 P LD A11,SA
0x290b28…290cbc Dummy {f00=0x00c3, f01=0x0190, f02=»TION BLOCK o h * p $ LCR A2,A11 GET FIRST CHARACTER p ( # CCK A2,'TT' TASK DEFINITION BLOCK? p D RF(E) DWTS YES p p P LDKL A1,LMP4 FORMAT ERROR p CALL ERROR p PDWTS EQU * p * p * GET ADDRESS TO TC:TAB p * p , P LD
0x290cbc…290e50 Dummy {f00=0x00c3, f01=0x0190, f02=» TASK CLASS p r * q CALL GETTSK q PDWTS20 EQU * q 2 P ST A1,SAVE19,A13 SAVE q F * q d * &* GET CORRESPONDING TASK TABLE (TTAB) q n * q PDWTS25 EQU * q " ADK A7,2 NEXT ENTRY IN TC:TAB q " LDR* A10,A7 GET TTAB ADDRESS q 6 P A
0x290e50…290fe4 Dummy {f00=0x00c3, f01=0x0190, f02=»A11 START OF TASK DEFINITION BLOCK q , ' ADKL A9,TDBFST START OF TDC DEFINITION r * P EJECT r Z * r h 4 /* GET NUMBER OF TERMINAL DEVICES IN THIS CLASS r r * r CALL GETTDC r P LDR A6,A1 r PDWTS30 EQU * r P RF(Z) DWTS40 r P CAL
0x290fe4…291178 Dummy {f00=0x00c3, f01=0x0190, f02=»,A8 GET POINTER TO CLASS r $ P LDR* A8,A8 GET LENGTH OF CLASS s " P SUKL A8,2 EXCLUDE LENGTH WORD s H * P ADR A10,A8 INCREMENT POINTER IN TTAB s n 0 + ADKL A9,TDBREC BYPASS NEXT TDC DEF. RECORD s ( P SUK A6,1 DECREMENT NUMBER OF TDC:S s P RB DWTS30 s
0x291178…29130c Dummy {f00=0x00c3, f01=0x0190, f02=» s z LDR A1,A1 t PDWTS50 EQU * t P RF(Z) DWTS90 t . P ST A1,SAVE17,A13 SAVE t D * t b * &* GET SPECIAL DEVICE CLASS NUMBER OM t l * t CALL GETCLN t * t 8 3* GET CORRESPONDING SPECIAL DEVICE CLASS IN SCLASS t * t
0x29130c…2914a0 Dummy {f00=0x00c3, f01=0x0190, f02=»DR A5,A6 SAVE t P LDR* A6,A6 GET LENGTH u " P SUK A6,2 EXCLUDE LENGTH WORD u 4 PDWTS60 EQU * u Z ADK A5,4 GET DEVICE u n ( # LDR* A1,A5 GET ADDRESS TO TYPE DWT u ( # LD A3,DWTLEN,A1 GENERATION OF DWT? u P RF(Z) DWTS70 NO u * u * C
0x2914a0…291634 (2, 68) Dummy {f00=0x00c3, f01=0x0190, f02=»CT u P* v 4 P* RELOCATE MONITOR ECB ADDRESS IF MMU IN SYSTEM v P* v L " P LD A3,SCTOPT GET OPTION WORD v V P ANK A3,1 MMU IN SYSTEM? v | P RF(Z) DWTS65 NO! v ( P LDR A3,A1 GET PROTOTYPE DWT-ADDRESS v * P SUR A3,A2 COMPUTE RELOCATION CONSTANT
0x291634…2917c8 Dummy {f00=0x00c3, f01=0x018e, f02=»C,A2 STORE IT BACK v PDWTS65 EQU * w $ LDR A1,A2 DT-ADDRESS TO BE USED w . PDWTS70 EQU * w V * w j . ** STORE FILE-CODE AND DWT-ADDRESS IN TTAB w t * w " ST A1,2,A10 STORE DWT-ADDRESS w $ LD A1,-2,A5 GET INDEX/FILECODE w STR A1,A1
0x2917c8…29195c Dummy {f00=0x00c3, f01=0x0190, f02=» w h RB(P) DWTS60 NEXT DEVICE x P EJECT x * * x 8 4 /* CHECK IF MOORE SPECIAL DEVICES IN THIS CLASS x B * x z ADKL A9,SDC x P LD A1,SAVE17,A13 x SUK A1,1 x RB DWTS50 x PDWTS90 EQU * x * x 8 P* CHECK IF MOORE
0x29195c…291af0 Dummy {f00=0x00c3, f01=0x0190, f02=» IF MOORE TASK DEFINITION BLOCKS x * y ( CALL NXTBLK y 2 ( # CCK A2,'TT' TASK DEFINITION BLOCK? y F RB(E) DWTS10 YES y r P LD A2,SCTSFA y P SUK A2,2 y PDWTS95 ADK A2,2 y P CW A2,SCTEFA y P RF(NE) DWTS99 y P LDKL A1,LMP3 y
0x291af0…291c84 Dummy {f00=0x00c3, f01=0x0190, f02=» y EJECT z 4 0************************************************ z 4 0* B:DWTT - BUILD TERMINAL DEVICE WORK TABLES * z N 4 0************************************************ z 4 0************************************************ z * z * REFER
0x291c84…291e18 Dummy {f00=0x00c3, f01=0x0190, f02=»UBROUTINES: ERROR,GETTSK,GETTDC,GETCLN,GETLCN,DWTGEN,NXTBLK z * { D EJECT { N PB:DWTT EQU * { P* { p 2 P* CLEAR WORK AREA TO BE USED FOR ECHO DEVICE { z & P* AND TEMPORARY INTERRUPT TABLES { P* { " P LDR A1,P GET LOCATION COUNTER { *
0x291e18…291fac Dummy {f00=0x00c3, f01=0x0190, f02=» BDWT05 YES! { P SUK A1,2 DECREMENT POINTER | P RB BDWT00 | 8 PBDWT05 EQU * | J 2 P LD A11,SAVE05,A13 GET FWT AREA SIZE IN WORDS | ^ 6 P CWK A11,896 LARGE ENOUGTH FOR TEMP. INT. TABLES? | P RF(L) BDWT08 NO! | ( P LD A1,SCTEFA SAVE END OF FREE A
0x291fac…292140 Dummy {f00=0x00c3, f01=0x0190, f02=»BDWT25 | PBDWT08 EQU * } P* } " F P* ALLOCATE TEMPORARY WORK AREA IN USED PART OF SYSLDM IF POSSIBLE } , P* } v 2 P LD A11,SAVE10,A13 GET END OF TEMP. INT. TABLE } 4 P SU A11,SCTSFA+2 COMPUTE SIZE OF AVALIABLE AREA } & P CWK A11,MINBUF IS IT BIG
0x292140…2922d4 (2, 69) Dummy {f00=0x00c3, f01=0x0190, f02=» AREA } h P ST A11,SCTEFA SAVE ~ . P SUKL A11,896+896 START OF TEMP. WORK AREA ~ * P LDR A7,A11 SAVE ~ 2 P SUK A7,SCZBUF START OF TEMP BUFFER FOR SALCUZ ~ t P ST A7,SAVE04,A13 SAVE ~ 2 P SUK A7,ASZBUF START OF TEMP BUFFER FOR ASCU4Z ~ P ST A7,SAV
0x2922d4…292468 Dummy {f00=0x00c3, f01=0x0190, f02=» ~ L * ( # LD A11,SCTEFA GET END OF FREE AREA ( $ LD A9,SCTSFA GET START OF FREE AREA > LDK A7,0 RESET WORD COUNTER j PBDWT10 EQU * CWR A11,A9 MEMORY OVERFLOW? RF(NE) BDWT15 NO * P LDKL A1,LMP3 INDICATE MEMORY OVERFLOW
0x292468…2925fc Dummy {f00=0x00c3, f01=0x0190, f02=»ER WORD x $ ADK A7,1 INCREMENT WORD COUNTER RB BDWT10 8 PBDWT20 EQU * J * ^ 6 2* INIT POINTERS TO THE TEMPORARY INTERRUPT TABLES h * P LDR A1,A11 PBDWT25 LD A7,SAVE10,A13 PBDWT30 EQU * , ( STR A11,A7 SAVE INT
0x2925fc…292790 Dummy {f00=0x00c3, f01=0x0190, f02=»LL POINTERS INTIATED? RB(NE) BDWT30 NO * P ST A1,SCTEFA UPDATE END OF FREE AREA 8 P EJECT f * t * INIT DWT POINTER ~ * P LD A11,SAVE01,A13 * % LD A12,SCTSFA GET START OF FREE AREA * B >* INIT TC:TAB ENT
0x292790…292924 Dummy {f00=0x00c3, f01=0x0190, f02=»E IN CURRENT USER TASK ENTRY z PBDWT40 EQU * $ * 8 . )* GET NUMBER OF TASKS IN THIS TASK CLASS B * t $ CALL GETTSK GET NUMBER OF TASKS ~ PBDWT50 EQU * ( P ST A1,SAVE19,A13 SAVE BINARY VALUE * @ ;* GET NUMBER OF TERMINA
0x292924…292ab8 Dummy {f00=0x00c3, f01=0x0190, f02=»DR A1,A1 ANY TERMINAL DEVICES? RF(Z) BDW100 NO & 6 P ST A1,SAVE15,A13 SAVE NUMBER OF TERMINAL DEVICESS > ( P LD* A10,SAVE13,A13 GET TTAB ADDRESS x 6 1 ADKL A10,TTB:TD DISPLACEMENT TO TASK CONF. TABLE * ( #* GET TERMINAL DEVICE CLASS NUM
0x292ab8…292c4c Dummy {f00=0x00c3, f01=0x0190, f02=»QU * " CALL GETCLN GET CLASS NUMBER ( P ST A1,SAVE14,A13 SAVE BINARY VALUE 2 * ^ @ <* GET LINE CONNECTION NUMBER FOR THIS TERMINAL DEVICE CLASS h * IN THIS TASK * , ' CALL GETLCN GET LINE CONNECTION NUMBER LDR A6,A1
0x292c4c…292de0 Dummy {f00=0x00c3, f01=0x0190, f02=»A5,TDC+4,A9 STORE RIGHT ASCII DIGIT 2 - SRL A5,8 MOVE LEFT ASCII DIGIT TI RIGHT BYTE , * & SC A5,TDC+3,A9 STORE LEFT ASCII DIGIT b * : 5* FIND CORRESPONDING TERMINAL DEVICE CLASS IN TCLASS * 2 P LD A2,SAVE14,A13 GET BINARY VALUE OF
0x292de0…292f74 (2, 70) Dummy {f00=0x00c4, f01=0x0190, f02=»IS IS AN ENTRY IN TCLASS -TO BE SUPPLIED P* 0 $ P LDR* A7,A7 GET POINTER TO CLASS : P EJECT b * p $ * GENERATE DWT:S FOR THIS CLASS z 2 -* A6 - LINE CONNECTION NUMBER (BINARY VALUE) , (* A7 - POINTER TO TERMINAL DEVICE CLASS
0x292f74…293108 Dummy {f00=0x00c4, f01=0x0190, f02=» OF DEVICE (INPUT OR OUTPUT) v * $ CALL DWTGEN . PBDWT90 EQU * B < P LD A1,SAVE15,A13 GET NUMBER OF TERMINAL DEVICE CLASSES V , ' SUK A1,1 ANY MOORE IN THIS TASK CLASS? RF(Z) BDW100 NO , P ST A1,SAVE15,A13 SAVE REMAINING NUMBER
0x293108…29329c Dummy {f00=0x00c4, f01=0x0190, f02=»Y IN TC:TAB n & ! ADK A1,2 INCREMENT ENTRY POINTER P ST A1,SAVE13,A13 SAVE > 8 P LD A1,SAVE19,A13 GET NUMBER OF TASKS IN THIS CLASS " SUK A1,1 ANY MOORE TASKS LEFT P RB(P) BDWT50 , (* CHECK IF MOORE TASK DEFINITION BLOCKS *
0x29329c…293430 Dummy {f00=0x00c4, f01=0x0190, f02=»MINAL DEVICE WORK TABLES GENERATED * * P LD A2,SCTSFA 4 P SUK A2,2 J PBDW105 ADK A2,2 P CW A2,SCTEFA t P RF(NE) BDW110 P LDKL A1,LMP3 P CALL ERROR PBDW110 CWR A2,A12 P RB(NE) BDW105 , P ST A12,SCTSFA
0x293430…2935c4 Dummy {f00=0x00c4, f01=0x018e, f02=»LD COMMON DEVICE TABLE * , (**************************************** " * R * REFERENCED IN: MONCON * ~ * &* ENTRY: SCTSFA - START OF FREE AREA 4 P* SAVE01 - START OF SAVE01URATION DATA ( $* SCTEFA - END OF
0x2935c4…293758 Dummy {f00=0x00c4, f01=0x0190, f02=» < P* SUBROUTINES: NXTBLK,GETCTC,GETLCN,GETSDC,GETCLN,MOVE * D EJECT N PB:CDT EQU * 2 P LD A11,SAVE01,A13 START OF SAVE01URATION DATA p & ! LD A12,SCTSFA START OF FREE AREA P LDK A7,0 RESET LENGTH * * %* GET COMMON DE
0x293758…2938ec Dummy {f00=0x00c4, f01=0x0190, f02=»0 YES ( $ CCK A2,'CC' COMMON DEV. DEF. BLOCK? P RF(NE) BCDTEX NO : P EJECT T P* b : P* RESERVE AREA IN COMMON DEVICE TABLE FOR FILE-CODES l 8 P* AND DWT-ADDRESSES USED BY COMMON TERMINAL DEVICES P* 0 P LDR A9,A11 START OF COM
0x2938ec…293a80 Dummy {f00=0x00c4, f01=0x0190, f02=»A1 SAVE " PB:CT10 RF(Z) B:CT30 NO MOORE! . P CALL GETCLN GET CLASS IDENT NUMBER (1-99) 6 , P ADR A1,A1 DISPLACEMENT TO CLASS POINTER h , P LD A5,SAVE18,A13 GET POINTER TO TCLASS $ P LDR* A2,A5 GET LENGTH OF TCLASS P SUK A2,2 EXCLUDE LENGTH
0x293a80…293c14 (2, 71) Dummy {f00=0x00c4, f01=0x0190, f02=»20 ADR A1,A5 SELECT ENTRY IN TCLASS $ P LDR* A1,A1 GET POINTER TO CLASS , $ P LDR* A1,A1 GET LENGTH OF CLASS T " P SUK A1,2 EXCLUDE LENGTH WORD | & P ADR A7,A1 INCREMENT CDTAB LENGTH . P ADKL A9,TDC+TLC NEXT RECORD IN CONF. FILE " P SUK A6,1
0x293c14…293da8 Dummy {f00=0x00c4, f01=0x018e, f02=»E-CODES b 8 P* AND DWT-ADDRESSES USED BY COMMON SPECIAL DEVICES P* L CALL GETSDC V ADKL A9,SDCFST-CDBNC j LDR A6,A1 PBCDT10 EQU * RF(Z) BCDTEX CALL GETCLN ADR A1,A1 , P LD A5,SAVE11,A13 GET POINTER
0x293da8…293f3c Dummy {f00=0x00c4, f01=0x0190, f02=» PBCDT15 EQU * P ADR A1,A5 SELECT ENTRY $ P LDR* A1,A1 GET POINTER TO CLASS 8 P LDR* A1,A1 GET LENGTH ` SUK A1,2 ~ ADKL A9,SDC ADR A7,A1 SUK A6,1 RB BCDT10 PBCDTEX EQU * P EJECT P* < P*
0x293f3c…2940d0 Dummy {f00=0x00c4, f01=0x0190, f02=»O RESERVE ENTRIES IN COMMON DEVICE TABLE FOR @ P* FILE-CODES AND DWT-ADDRESSES USED FOR DATA COMMUNICATION 4 P* x J P* FILE-CODES AND DWT-ADDRESSES ARE STORED IN THE LAST CLASS IN SCLASS P* & P LD A1,SCTDCT DATA COMMUNICATION? " P LD
0x2940d0…294264 Dummy {f00=0x00c4, f01=0x0190, f02=» , P ORR A6,A1 COPY LAST SCLASS IF NOT ZERO P RF(Z) CDG:15 NO! 4 , P LD A6,SAVE11,A13 GET POINTER TO SCLASS N $ P LDR* A1,A6 GET LENGTH OF SCLASS ~ " P SUK A1,2 EXCLUDE LENGTH WORD $ P ADR A6,A1 LAST ENTRY IN SCLASS * P LDR* A6,A6 GET POIN
0x294264…2943f8 Dummy {f00=0x00c4, f01=0x0190, f02=»CD:TAB t PCDG:15 EQU * ADK A7,2 " STR A7,A12 4 P ST A12,SCTCDT H ADR A12,A7 ^ EJECT r * 6 1* INIT POINTER TO START OF FREE AREA AND TO CDTAB * ( P LD A10,SCTCDT FIRST ENTRY IN SCTCDT $ P LCR A2,A11 CO
0x2943f8…29458c Dummy {f00=0x00c4, f01=0x0190, f02=»CDGEX PCDG:18 EQU * P* " > P* GENERATE DEVICE WORK TABLES FOR COMMON TERMINAL DEVICES , P* n * P LDR A9,A11 START OF COMMON DEF. BLOCK x 6 P ADKL A9,SDCFST NUMBER OF COMMON TERMINAL CLASSES & P CALL GETCTC GET NUMBER OF C.T.C. ,
0x29458c…294720 Dummy {f00=0x00c4, f01=0x0190, f02=»DENT NUMBER x P ST A1,SAVE14,A13 SAVE , P CALL GETLCN GET LINE CONNECTION NUMBER 2 P LDR A6,A1 SAVE b , P LD A2,SAVE14,A13 GET CLASS IDENT NUMBER z & P ADR A2,A2 CONVERT TO DISPLACEMENT , P LD A7,SAVE18,A13 GET POINTER TO TCLASS & P ADR
0x294720…2948b4 (2, 72) Dummy {f00=0x00c4, f01=0x018e, f02=»,TDC+TLC NEXT RECORD IN CONF. FILE * P LD A1,SAVE15,A13 GET NUMBER OF C.T.C. * P SUK A1,1 DECREMENT COUNTER X P RB B:CT40 | PB:CT50 CALL ECHO ( P ADKL A10,2 NEXT FREE ENTRY IN CDTAB P EJECT * , '* GET NUMBER OF SPECIAL DEVIC
0x2948b4…294a48 Dummy {f00=0x00c4, f01=0x0190, f02=» * & #* GET SPECIAL DEVICE CLASS NUMBER * 8 CALL GETCLN B * V 0 +* GET CORRESPONDING DEVICE CLASS IN SCLASS ` * ADR A1,A1 T , P LD A6,SAVE11,A13 GET POINTER TO SCLASS P ADR A6,A1 SELECT CLASS & P LDR
0x294a48…294bdc Dummy {f00=0x00c4, f01=0x0190, f02=»LENGTH WORD ~ PCDG:30 EQU * ADK A5,4 NEXT DEVICE ( LDR* A1,A5 GET DWT-ADDRESS F ( # LD A3,DWTLEN,A1 GENERATION OF DWT? j RF(Z) CDG:40 NO * * COPY DWT * LDR A2,A12 TO-ADDRESS , ' ADR A12,A3 UPDATE P
0x294bdc…294d70 Dummy {f00=0x00c4, f01=0x0190, f02=»A3,SCTOPT GET OPTION WORD P ANK A3,1 MMU IN SYSTEM? " P RF(Z) CDG:35 NO! B ( P LDR A3,A1 GET PROTOTYPE DWT-ADDRESS * P SUR A3,A2 COMPUTE RELOCATION CONSTANT , P LD A4,DWTMEC,A2 GET MONITOR ECB-ADDRESS P ANKL A4,/FFFE MAKE IT EVEN!
0x294d70…294f04 Dummy {f00=0x00c4, f01=0x0190, f02=» * * . ** STORE FILE-CODE AND DWT-ADDRESS IN TTAB * F " ST A1,2,A10 STORE DWT-ADDRESS P LD A1,-2,A5 GET FILE CODE v STR A1,A10 STORE IN TTAB $ ADKL A10,4 NEXT ENTRY IN CD:TAB & " SUK A6,4 DECREMENT DEVICE COUNTER
0x294f04…295098 Dummy {f00=0x00c4, f01=0x0190, f02=» P SUKL A8,1 RB CDG:20 PCDGEX EQU * ( " P RF(N) CDG:EX CD:TAB COMPLETE! < " P LD A1,SCTDMT DATA MANAGEMENT b $ P LD A5,SCTDCT DATA COMMUNICATION P ORR A1,A5 DM OR DC? " P LD A5,SCTOPT GET OPTION WORD $ P ANK A5,/E DISC PAGING
0x295098…29522c Dummy {f00=0x00c4, f01=0x0190, f02=» $ P LDR* A1,A5 GET LENGTH OF SCLASS " P SUK A1,2 EXCLUDE LENGTH WORD , P ADR A5,A1 GET LAST ENTRY R * P LDR* A5,A5 GET POINTER TO LAST CLASS t ( P LDR* A6,A5 GET LENGTH OF LAST CLASS " P SUK A6,2 EXCLUDE LENGTH WORD P RB CDG:30 PCD
0x29522c…2953c0 Dummy {f00=0x00c4, f01=0x0190, f02=»MP3 ( P CALL ERROR INDICATE MEMORY OVERFLOW PCDG:60 CWR A2,A12 8 P RB(NE) CDG:50 R , ( ST A12,SCTSFA UPDATE START OF FREE AREA h RTN A14 RETURN EJECT J F**********************************************************************
0x2953c0…295554 (2, 73) Dummy {f00=0x00c4, f01=0x0190, f02=»************** X * 4 /* ENTRY: A1 - LINE CONNECTION NUMBER (BINARY) > :* A7 - POINTER TO TERMINAL DEVICE CLASS IN TCLASS X * &* A6 - LINE CONNECTION NUMBER * * EXIT: * * WORK REGISTERS: A1-A8
0x295554…2956e8 Dummy {f00=0x00c4, f01=0x0190, f02=»R d ( $ LDR* A8,A7 GET LENGTH OF THIS CLASS $ SUKL A8,2 EXCLUSIVE LENGTH WORD 6 ADK A7,2 FIRST FILECODE ^ PDWT05 EQU * ~ . ) LD A1,2,A7 GET ADDRESS OF PROTOTYPE DWT 0 P LD A6,SAVE08,A13 GET LINE CONNECTION NUMBER P* P* CHE
0x2956e8…29587c Dummy {f00=0x00c4, f01=0x0190, f02=»0 NO! 2 P CALL B:ITSZ BUILD INTERRUPT TABLE FOR SALCUZ P RF DWT31 D ( PDWT10 CCK A4,'AA' ASCU4Z CONNECTION? V P RF(NE) DWT11 NO! 2 P CALL B:ITAZ BUILD INTERRUPT TABLE FOR AUSCU4Z P RF DWT31 PDWT11 EQU * * 4 /* DER
0x29587c…295a10 Dummy {f00=0x00c4, f01=0x0190, f02=»MBER AND PROTOTYPE DWT v * CALL I:CHP ( * < @ P* GET CORRECT INTERRUPT TABLE USING SAVE05 (SELECTS TABLE) F " P* AND SAVE06 (SELECTS ENTRY) * 0 P* SAVE05 HOLDS 2*(NUMBER STORED IN BIS 4-6) 4 P* SAVE06 HOLDS THE NUMBER
0x295a10…295ba4 Dummy {f00=0x00c4, f01=0x0190, f02=»,SAVE10,A13 SELECT INTERRUPT TABLE , P LDR* A4,A4 GET INTERRUPT TABLE ADDRESS * $ P LD A3,SAVE06,A13 LINE PARAMETER Z PDWT15 EQU * " RF(Z) DWT17 LINE ENTRY FOUND ADK A4,28 NEXT LINE & " SUK A3,1 DECREMENT LINE PARAMETER
0x295ba4…295d38 Dummy {f00=0x00c4, f01=0x0190, f02=»ADDRESS: 0 P* USE DEVICE ADDRESSES 1-7 FOR INPUT DEVICE & P* OR DEVICE WITHOUT DATA REQUEST D 4 /* USE DEVICE ADDRESSES 8-14 FOR OUTPUT DEVICES n * 0 + LDR* A6,A1 GET FIRST WORD OF PROTOTYPE DWT P LDR A2,A6 SAVE : 5 ANKL A6,/71
0x295d38…295ecc Dummy {f00=0x00c4, f01=0x0190, f02=»UT DEVICE - CHECK IF DEVICE WITH DATA REQUEST P* 6 ( P ANKL A2,/8000 DATA REQUEST BIT SET? @ P RF(Z) DWT20 NO! l P SRL A6,2 P ADK A6,12 RF DWT30 PDWT20 EQU * P SRL A6,2 P SUK A6,2 PDWT30 EQU * A
0x295ecc…296060 Dummy {f00=0x00c4, f01=0x0190, f02=»A6 DWT ALREADY GENERATED? P RF(Z) DWT32 NO! " P CALL DWT50 : P LDKL A1,DWT70 N P AD A1,M:REL,A13 d P ABR A1 | P* P* CHECK IF DWT IN DRIVER P* PDWT32 LDKL A2,SYSLOD P TNM A1,A2 P RF(NN) DWT34 P C
0x296060…2961f4 (2, 74) Dummy {f00=0x00c5, f01=0x0190, f02=»F DWT70 PDWT38 EQU * STR A12,A6 SAVE DWT-ADDRESS $ * H * COPY DEVICE TYPE DWT R * r LDR A2,A12 TO-ADDRESS | P LD A3,DWTOR,A1 LENGTH ADR A12,A3 NEXT FREE ENTRY CALL MOVE P EJECT * $ *
0x2961f4…296388 Dummy {f00=0x00c5, f01=0x0190, f02=»* CHECK IF INPUT DEVICE * * & LDR* A3,A1 GET FIRST WORD OF TYPE DWT * ANKL A3,/0100 INPUT DEVICE? X P RF(Z) DWT45 NO | * * INPUT DEVICE: * CHECK IF KEYBOARD * LD A3,DWTADR,A1 LD A3,DEVIND,A3
0x296388…29651c Dummy {f00=0x00c5, f01=0x0190, f02=»TORE ADDRESS OF KEYBOARD RUNTIME-DWT : P* AND ECHO DEVICE PROTOTYPE-DWT IN ECHO DEVICE TABLE , P* j * t P LD A5,DWTECH,A1 ECHO? ~ RF(Z) DWT40 NO P AD A5,M:REL,A13 4 P LD* A3,SCTSFA+2 GET LENGTH OF ECHO DEVICE TABLE ( P RF(
0x29651c…2966b0 Dummy {f00=0x00c5, f01=0x0190, f02=»,SCTSFA+2 NEXT FREE ENTRY 8 P STR A2,A4 SAVE RUNTIME DWT-ADDRESS FOR INPUT DEVICE " < P ST A5,2,A4 SAVE PROTOTYPE DWT ADDRESS FOR OUTPUT DEVICE ^ P ADK A3,4 UPDATE LENGTH $ P ST* A3,SCTSFA+2 SAVE NEW LENGTH P EJECT PDWT40 EQU *
0x2966b0…296844 Dummy {f00=0x00c5, f01=0x0190, f02=»TO START OF BUFFER t $ ST A5,DWTSQ-4,A2 STORE POINTER $ ST A5,DWTSQ-2,A2 STORE POINTER B * j * IF DOUBLE KEYBOARD: t D @* ADD 1 TO DWT-ADDRESS AND SAVE IT IN TEMPORARY INTERRUPT TABLE 6 2* IN ENTRY CORRESPONDING TO SECOND DEVICE ADD
0x296844…2969d8 Dummy {f00=0x00c5, f01=0x0190, f02=»YBOARD v $ LDR A5,A2 GET REAL DWT-ADDRESS ADK A5,1 ADD ONE 6 0 , SUK A3,1 DISPLACEMENT=0 IF DEVICE ADDRESS=1 P ADR A3,A3 BYTE DISPLACEMENT . P AD A3,SAVE07,A13 ENTRY IN INTERRUPT TABLE $ STR A5,A3 STORE DEVICE-ADDRESS RF DW
0x2969d8…296b6c Dummy {f00=0x00c5, f01=0x0190, f02=»S OF PROTOTYPE DWT IS ODD, 0 P* THE DEVICE IS TO BE USED FOR ECHOING ON. " 6 P* THE ADDRESSES OF THE PROTOTYPE- AND RUNTIME-DWT V 0 P* IS THEN STORED IN THE ECHO DEVICE TABLE. P* 0 P LD A5,DWTTAB,A1 GET DEVICE TYPE CHARACTERS , P RF(NN
0x296b6c…296d00 Dummy {f00=0x00c5, f01=0x0190, f02=» P ADK A3,2 INCLUDE LENGTH PDWT55 LDR A4,A3 SAVE LENGTH $ $ P AD A4,SCTSFA+2 NEXT FREE ENTRY H . P STR A1,A4 STORE ADDRESS OF PROTOTYPE DWT p , P ST A2,2,A4 STORE ADDRESS OF RUNTIME DWT P ADK A3,4 UPDATE LENGTH & P ST* A3,SCTSFA+2 STORE
0x296d00…296e94 (2, 75) Dummy {f00=0x00c5, f01=0x0190, f02=»D t P ANK A5,1 MMU PAGING? RF(Z) DWT70 ( P EJECT < , P LD A5,DWTMEC,A2 GET MONITOR ECB ADDRESS J ( P LDR A4,A1 GET PROTOTYPE DWT-ADDRESS z * P SUR A4,A2 COMPUTE RELOCATION CONSTANT , P SUR A5,A4 RELOCATE MONITOR ECB ADDRESS $ P ANK
0x296e94…297028 Dummy {f00=0x00c5, f01=0x0190, f02=»TED P* & P LD A5,DWTADR,A2 GET ADDRESS BLOCK 2 P LD A4,BUFLEN,A5 GET LENGTH OF INTERNAL BUFFER @ $ P RF(Z) DWT70 ALLOCATE NO BUFFER! v * L P* ALLOCATE INTERNAL BUFFER AND STORE ADDRESS IN SECOND WORD OF INTERNAL * , P LD A5
0x297028…2971bc Dummy {f00=0x00c5, f01=0x0190, f02=»EN ADDRESS r P ST A3,2,A5 SAVE P LDR A3,A4 GET LENGTH , ( P ADK A3,3 ADD BO FERMS CONSTANT+1 =1 J . P ANKL A3,/FFFE MAKE SURE OF EVEN LENGTH =1 v P EJECT * 4 0* CHECK IF INTERNAL BUFFER SIZE IS GREATER THAN 6 1* THE SIZE OF B
0x2971bc…297350 Dummy {f00=0x00c5, f01=0x0190, f02=»Z. j * CW A3,BUFSIZ,A13 RF(NG) DWT65 0 ST A3,BUFSIZ,A13 F P ST A12,SYSBUF,A13 ` PDWT65 EQU * z ADR A12,A3 NEXT FREE ENTRY P =1 P =1 P EJECT PDWT70 EQU * P* . P* STORE FILE-
0x297350…2974e4 Dummy {f00=0x00c5, f01=0x0190, f02=»ORE IN TASK CONF. TABLE " P ADKL A10,2 NEXT ENTRY IN TTAB " P STR A2,A10 STORE DWT-ADDRESS F P* l , '* CHECK IF MOORE DEVICES IN THIS CLASS v * SUKL A8,4 RF(Z) DWTEX ADK A7,4 NEXT DEVICE P LDKL A1,DWT05
0x2974e4…297678 Dummy {f00=0x00c5, f01=0x0190, f02=»ERY COINCIDENCE n 4 P* BETWEEN THE FIRST POINTER IN ONE POINTER-SET 4 P* AND SECOND POINTER IN THE OTHER POINTER-SET: P 0 P* STORE SECOND POINTER OF FIRST POINTER-SET 2 P* IN RUNTIME-DWT POINTED AT BY FIRST POINTER 2 P* OF SECOND POINTER-S
0x297678…29780c Dummy {f00=0x00c5, f01=0x0190, f02=»ICE TABLE IS CLEARED. P* 8 PECHO LD* A3,SCTSFA+2 GET LENGTH OF ECHO DEVICE TABLE ( " P RF(Z) DWT160 NO ECHO DEVICES! d 4 P AD A3,SCTSFA+2 COMPUTE END OF ECHO DEVICE TABLE 2 P LD A1,SCTSFA+2 GET START OF ECHO DEVICE TABLE P ADK A1,2 BYPASS
0x29780c…2979a0 Dummy {f00=0x00c5, f01=0x0190, f02=» POINTER IN FIRST SET t > PDWT110 CWR* A4,A2 COMPARE WITH FIRST POINTER IN SECOND SET P RF(E) DWT130 COINCIDENCE! ` P ADK A2,4 NEXT POINTER-SET ( P CWR A2,A3 END OF ECHO DEVICE TABLE $ P RB(NE) DWT110 NO:CHECK NEXT SET P RF DWT140 :
0x2979a0…297b34 (2, 76) Dummy {f00=0x00c5, f01=0x0190, f02=» STORE DEVICE-ADDRESS TO ECHO-DEVICE P CMR A1 CLEAR FIRST POINTER , " P CM 2,A1 CLEAR SECOND POINTER P $ PDWT140 ADK A1,4 NEXT POINTER-SET v ( P CWR A1,A3 END OF ECHO DEVICE TABLE P RB(NE) DWT90 NO! $ PDWT150 CM* SCTSFA+2 CLEAR LENGTH
0x297b34…297cc8 Dummy {f00=0x00c5, f01=0x018e, f02=» * %************************************* * 2 * REFERENCED IN: DWTGEN < * , (* ENTRY: A1 - POINTER TO PROTOTYPE DWT f ( #* A2 - POINTER TO REAL DWT * &* A6 - LINE CONNECTION NUMBER * P* A9 - POINTER
0x297cc8…297e5c Dummy {f00=0x00c5, f01=0x0190, f02=» R 0 P* SAVE06 - SELECTS LINE ENTRY (1-8) * < * WORK REGISTERS: A3,A4,A5 F * j * SUBROUTINES: t * EJECT PI:CHP EQU * 0 P LD A6,SAVE08,A13 GET LINE CONNECTION NUMBER * P CWK A6,0032 CONNECTION NUMB
0x297e5c…297ff0 Dummy {f00=0x00c5, f01=0x0190, f02=»CONNECTION NUMBER z 0 + LDR* A5,A1 GET FIRST WOED OF PROTOTYPE DWT ( # ANKL A5,/F1F0 CLEAR BITS TO MODIFY N 2 . LDR A3,A6 GET MODIFIED LINE CONNECTION NUMBER z & " LC A4,TDC+5,A9 CHECK TYPE OF LINE CCK A4,'LL' LOCAL LINE? RF(NE) I:CHPR
0x297ff0…298184 Dummy {f00=0x00c5, f01=0x0190, f02=» ORR A5,A3 MERGE WITH OLD CONTENTS * % LDR A3,A6 GET LINE CONNECTION NUMBER * ANK A3,/18 GET BITS 11-12 X SRL A3,2 MOVE TO BITS 13-14 z P ST A3,SAVE05,A13 SAVE SRL A3,1 MOVE TO BITS 14-15 & " ORR A5,A3 MERGE WITH OLD CONTENTS
0x298184…298318 Dummy {f00=0x00c5, f01=0x0190, f02=»I:CH10 0 , ANKL A5,/F1FF CLEAR BITS 4-6 (= STORE ZERO) * P ST A3,SAVE06,A13 SAVE ENTRY SELECTOR B RF I:CH50 p PI:CH10 EQU * ANK A3,2 GET BIT 14 RF(NZ) I:CH20 & " ORKL A5,/0800 STORE 4 IN BITS 4-6 LDK A3,4 ENTRY SELECT
0x298318…2984ac Dummy {f00=0x00c5, f01=0x0190, f02=» | RF(NZ) I:CH30 & " ORKL A5,/0200 STORE 1 IN BITS 4-6 LDK A3,1 ENTRY SELECTOR H P ST A3,SAVE06,A13 SAVE h RF I:CH50 PI:CH30 EQU * & " ORKL A5,/0A00 STORE 5 IN BITS 4-6 LDK A3,5 ENTRY SELECTOR P ST A3,SAVE06,A13
0x2984ac…298640 Dummy {f00=0x00c5, f01=0x018e, f02=»UK A3,2 DECREMENT LINE CONNECTION NUMBER RF(N) I:CH70 0 & " ADK A4,1 INCREMENT TABLE SELECTOR F RB I:CH60 p PI:CH70 EQU * ( $ ORR A5,A4 STORE COMPUTED BITS 12-15 SUK A4,4 ANK A4,6 ADK A4,8 P ST A4,SAVE05,A1
0x298640…2987d4 (2, 77) Dummy {f00=0x00c5, f01=0x0190, f02=» P EJECT : P****************************************************** : P* * T : P* B:ITAS - BUILD INTERRUPT TABLES FO ASCU4Z/SALCUZ * : P* ================================================ *
0x2987d4…298968 Dummy {f00=0x00c5, f01=0x0190, f02=» * : P* REFERENCED IN: DWTGEN * 8 : P* * v : P* ENTRY: A1 - POINTER TO PROTOTYPE-DWT * : P* A6 - LINE C
0x298968…298afc Dummy {f00=0x00c5, f01=0x0190, f02=» * n : P* EXIT: A5 - CHANNEL PARAMETER * : P* A6 - LINE ENTRY * Z : P* * : P* WORK REGISTERS: A2,A3,A4,A5,A6
0x298afc…298c90 Dummy {f00=0x00c5, f01=0x0190, f02=»* * : P****************************************************** > P EJECT | PB:ITAZ EQU * * P CWK A6,0016 CONNECTION NUMBER <= 16? P RB(G) NUMERR NO! * P CWK A6,0001 CONNECTION NUMBER >=
0x298c90…298e24 Dummy {f00=0x00c5, f01=0x0190, f02=»BITZ10 YES * P ADK A2,ASZLEN FIXED NUMBER OF ENTRIES P ST A2,INTAS SAVE @ , PBITZ10 LD A5,SAVE03,A13 FIRST LINE ENTRY Z P RF BITZ30 PB:ITSZ EQU * ( P CWK A6,0004 CONNECTION NUMBER <= 4? P RB(G) NUMERR NO! * P CWK A6,0001 CONNE
0x298e24…298fb8 Dummy {f00=0x00c5, f01=0x0190, f02=» h P RF(NZ) BITZ20 YES! * P ADK A2,SCZLEN FIXED NUMBER OF ENTRIES $ P ST A2,INTSL SAVE R . PBITZ20 LD A5,SAVE04,A13 FIRST LINE ENTRY? l " PBITZ30 ADR A2,A5 END OF TABLE P SUK A6,1 & P SLL A6,1 CONVERT TO DISPLACEMENT P ADR A6,
0x298fb8…29914c Dummy {f00=0x00c5, f01=0x0190, f02=»UR A3,A6 COMPUTE RELATIVE DISPLACEMENT " P STR A3,A6 STORE IN LINE ENTRY . P LDK A3,6 TABLE INCREMENT T P ADR* A3,A4 UPDATE LENGTH v P STR A3,A4 STORE NEW LENGTH P LDR* A3,A6 GET DISPLACEMENT 2 PBITZ40 ADR A6,A3 GET START OF LINE CONF.
0x29914c…2992e0 Dummy {f00=0x00c5, f01=0x0190, f02=»OR 3 ALLOWED n P SUK A3,2 MAKE DISPLACEMENT 0 P ADR A6,A3 SELECT ENTRY IN LINE CONF. TABLE 8 0 P LD A4,SAVE08,A13 GET LINE CONNECTION NUMBER l P SUK A4,1 LINE NUMBER 0-15 P LDR A3,A4 SAVE LINE NUMBER P SRL A3,3 SELECT ASCU4Z CARD (
0x2992e0…299474 (2, 78) Dummy {f00=0x00c6, f01=0x0190, f02=»ION x " PBITZ50 ADK A3,/C CHANNEL INDEX $ P ANK A3,/F ISOLATE CHANNEL INDEX 2 " P ANK A4,7 ISOLATE LINE NUMBER Z P SRC A4,7 MOVE TO BITS 4-6 , P ORR A4,A3 MERGE LINE NO AND CH. PARAM. 0 P LDR* A5,A1 GET PROTOTYPE CHANNEL PARAMETER > P A
0x299474…299608 Dummy {f00=0x00c6, f01=0x0190, f02=» 2 .********************************************** 2 .* B:ITAB - BUILD REAL-TIME INTERRUPT TABLE * : 2 .********************************************** p * * REFERENCED IN: DWTGEN * * &* ENTRY: SCTSFA - START OF FREE AREA
0x299608…29979c Dummy {f00=0x00c6, f01=0x0190, f02=» A2 - " " * A3 - " > P* A4 - LENGTH OF LINE SAVE01URATION TABLE B * %* A5 - DEVICE COUNTER ( #* A6 - LINE COUNTER 2 P* A7 - DISPLACEMENT IN SAV
0x29979c…299930 Dummy {f00=0x00c6, f01=0x0190, f02=»L INT. TABLE X > 9* A12- LINE ENTRY IN REAL INTERRUPT TABLE * V * SUBROUTINES ` * v P EJECT PB:ITAB EQU * 2 - LD A12,SCTSFA INIT POINTER TO FIRST R. I. T. P LDR A11,A12 $ LDK A7,0 RESET POINTER IN I
0x299930…299ac4 Dummy {f00=0x00c6, f01=0x0190, f02=» LINE CONF. TABLE t * 0 +* GET ADDRESS TO TEMPORARY INTERRUPT TABLE $ * X P LD A10,SAVE10,A13 b ADR A10,A7 | LDR* A10,A10 & P LDK A6,0 RESET LINE ENTRY POINTER PBIT20 EQU * * 8 P* SAVE POINTER TO START O
0x299ac4…299c58 Dummy {f00=0x00c6, f01=0x0190, f02=» SAVE START OF LINE SAVE01URATION TABLE ~ . ) LDK A4,0 RESET LENGTH OF LINE CONF.TABLE 0 * b 0 -* INIT POINTER IN TEMPORARY INTERRUPT TABLE l * &* TO POINT AT LAST INPUT DEVICE ENTRY * ADKL A10,12 LDK A5,7 ADKL A11,
0x299c58…299dec Dummy {f00=0x00c6, f01=0x0190, f02=»* PBIT30 EQU * LDR* A1,A10 OCCUPIED ENTRY? RF(NZ) BIT40 YES B PBIT35 EQU * , ( SUK A5,1 NO; CHECK IF LAST DEVICE ENTRY p RF(Z) BIT50 YES * < 7* NO ENTRIES IN THE INPUT DEVICE PART OF THE TEMPORARY 0 +* INT
0x299dec…299f80 Dummy {f00=0x00c6, f01=0x0190, f02=» INT. TABLE r RB BIT30 * & F B* AN OCCUPIED ENTRY IN THE TEMPORARY INTERRUPT TABLE HAS OCURRED. 0 D @* COPY THE CONTENTS OF THE INPUT DEVICE PART (INCLUDING ZEROES) z H C* OF THE TEMPORARY INTERRUPT TABLE UP TO AND INCLUDING THIS ENTRY.
0x299f80…29a114 (2, 79) Dummy {f00=0x00c6, f01=0x0190, f02=» ENTRY? | RF(Z) BIT50 YES $ SUKL A10,2 NEXT ENTRY IN T.I.T. ( $ SUKL A11,2 NEXT ENTRY IN R.I.T. P * & LDR* A1,A10 GET CONTENT OF NEXT ENTRY x RB BIT40 EJECT PBIT50 EQU * * B >* ALL ENTRIES OF THE INPUT DEVICE P
0x29a114…29a2a8 Dummy {f00=0x00c6, f01=0x0190, f02=» THE TEMPORARY INTERRUPT TABLE. * -INIT DEVICE COUNTER. ( * H ADKL A10,14 R LDK A5,7 f * x L G* SCAN ENTRIES IN OUTPUT DEVICE PART OF THE TEMPORARY INTERRUPT TABLE. $ * -IF AN OCCUPIED ENTRY OCCUR: L P* FIND FIRST
0x29a2a8…29a43c Dummy {f00=0x00c6, f01=0x0190, f02=» J 6 P* -IF THIS EXTENDS THE LINE SAVE01URATION TABLE: * INCREMENT LENGTH B * ^ PBIT70 EQU * h LDR* A1,A10 OCCUPIED ENTRY? | RF(NZ) BIT90 YES SUK A5,1 LAST ENTRY RF(Z) BIT120 YES PBIT80 EQU * ADK
0x29a43c…29a5d0 Dummy {f00=0x00c6, f01=0x0190, f02=»ERRUPT TAB R L P* HAS OCURRED. FIND FIRST UNOCCUPIED ENTRY IN LINE SAVE01URATION TABLE * OF REAL INTERRUPT TABLE. b * P LDR* A2,A11 RF(Z) BIT100 P ADKL A11,2 RB BIT90 EJECT PBIT100 EQU * *
0x29a5d0…29a764 Dummy {f00=0x00c6, f01=0x0190, f02=»GTH IF TABLE WAS EXTENDED. * " STR A1,A11 STORE CONTENT , * P LD A1,SAVE23,A13 GET START OF L.C.T. N " LDR A3,A11 GET CURRENT ENTRY | P SUR A3,A1 COMPUTE LENGTH CWR A3,A4 L.C.T. EXTENDED? RF(NG) BIT110 LDR A4,A3
0x29a764…29a8f8 Dummy {f00=0x00c6, f01=0x0190, f02=»NTRIES OF THIS LINE IN TEMPORARY INTERRUPT TABLE HAS BEEN SCANNE D ?* -IF ANY ENTRY WAS OCCUPIED (LENGTH>0): STORE POINTER TO LINE H L P* SAVE01URATION TABLE IN THIS LINE ENTRY AND STORE LENGTH IN FIRST WOR * " LDR A4,A4 ANY ENTRY OCCUPIED?
0x29a8f8…29aa8c Dummy {f00=0x00c6, f01=0x0190, f02=»A12 STORE IN LINE ENTRY 4 / STR A4,A1 STORE LENGTH IN FIRST WORD OF L.C.T. LDR A11,A1 START OF L.C.T. X . ) ADR A11,A4 LAST OCCUPIED ENTRY IN L.C.T. | ADKL A11,2 NEXT FREE ENTRY RF BIT140 EJECT PBIT130 EQU * *
0x29aa8c…29ac20 Dummy {f00=0x00c6, f01=0x0190, f02=» CONTAIN ZERO * SUKL A11,2 SKIP LENGTH WORD PBIT140 EQU * D $ ADKL A10,2 NEXT ENTRY IN T.I.T. X $ ADK A6,1 INCREMENT LINE COUNTER CWK A6,8 ALL LINES SCANNED? RF(E) BIT150 YES ADKL A12,2 NEXT LINE ENTRY
0x29ac20…29adb4 (2, 80) Dummy {f00=0x00c6, f01=0x0190, f02=»ANY LINE t P* * P LD A1,SAVE24,A13 ANY DEVICE PRESENT? P RF(Z) BIT155 NO! H 2 P LD A1,SAVE21,A13 GET INTERRUPT TABLE ADDRESS b P ST A1,INTLT1,A7 SAVE P RF BIT158 PBIT155 EQU * . P LD A11,SAVE21,A13 GET START OF FREE AREA
0x29adb4…29af48 Dummy {f00=0x00c6, f01=0x0190, f02=»LT1-INTRT4) HAS BEEN GENERATED j * & ADK A7,2 NEXT ENTRY IN ITAB 0 CWK A7,16 LAST ENTRY? T RF(E) BIT160 YES r $ LDR A12,A11 GET NEXT FREE ENTRY RB BIT10 PBIT160 EQU * * D @* ALL ENTRIES IN THE TEMPORARY INTE
0x29af48…29b0dc Dummy {f00=0x00c6, f01=0x0190, f02=»BLES HAS BEEN INSERTED IN MOXTAB. l * * P* 4 2 P* MOVE INTERRUPT TABLE FOR SALCUZ AND ASCU4Z > < P* TO CONCATENATE INTERRUPT TABLES FOR CHLT/CHRT DEVICES t P* ( P LD A3,INTAS ANY ASCU4Z CONNECTION? P RF(Z) BIT180 NO! P LDR
0x29b0dc…29b270 Dummy {f00=0x00c6, f01=0x0190, f02=» STORE ADDRESS TO INTERRUPT TABLE $ P ADK A2,ASZLEN LAST LINE ENTRY+2 * , PBIT170 SUK A2,2 DECREMENT ENTRY POINTER R , P LDR* A1,A2 ANY CONNECTION ON THIS LINE? P RF(Z) BIT175 NO! P ADRS A2,A2 RELOCATE POINTER . PBIT175 CW A2,INTAS ALL P
0x29b270…29b404 Dummy {f00=0x00c6, f01=0x018e, f02=»A11 GET TO-ADDRESS & P ADR A11,A3 END OF INTERRUPT TABLE & P LD A1,SAVE04,A13 GET FROM-ADDRESS D $ P CALL MOVE MOVE INTERRUPT TABLE n 2 P ST A2,INTSL STORE ADDRESS TO INTERRUPT TABLE $ P ADK A2,SCZLEN LAST LINE ENTRY+2 , PBIT190 SUK A2,2 DECR
0x29b404…29b598 Dummy {f00=0x00c6, f01=0x0190, f02=» . PBIT195 CW A2,INTSL ALL POINTERS RELOCATED? P RB(NE) BIT190 NO! 6 PBIT200 EQU * P P LD A2,SCTSFA d P SUK A2,2 z PBIT210 ADK A2,2 * P CW A2,SCTEFA CHECK IF MEMORY OVERFLOW P RF(NE) BIT220 P LDKL A1,LMP3 ( P CALL ERRO
0x29b598…29b72c Dummy {f00=0x00c6, f01=0x0190, f02=»A11,SCTSFA UPDATE START OF FREE AREA RTN A14 RETURN , EJECT D T P*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*= R 6 1* GENERAL SUBROUTINES * T P*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=
0x29b72c…29b8c0 Dummy {f00=0x00c6, f01=0x018e, f02=»* GETTSK - GET NUMBER OF TASKS IN A TASK-CLASS * P* < 6 P* GETCTC - GET NUMBER OF COMMON TERMINAL CLASSES F P* 8 4**************************************************** * " P* REFERENCED IN: B:TCT,B:CDT * > :* ENTRY
0x29b8c0…29ba54 (2, 81) Dummy {f00=0x00c6, f01=0x0190, f02=» L * * WORK REGISTERS: A5 * 0 * SUBROUTINES: CONVRT : * Z PGETTSK EQU * d PGETCTC EQU * x P LC A5,TDBNT,A11 SLL A5,8 P LC A5,TDBNT+1,A11 CALL CONVRT RTN A14 EJECT 8 4******
0x29ba54…29bbe8 Dummy {f00=0x00c6, f01=0x0190, f02=»****************************** z * & * REFERENCED IN: B:TT 0 * P > :* ENTRY: A11 - POINTER TO START OF TASK DEFINITION BLOCK Z * D @* EXIT: A1 - NUMBER OF TERMINAL DEVICE CLASSES (BINRY VALUE) * * WORK REGISTER
0x29bbe8…29bd7c Dummy {f00=0x00c6, f01=0x0190, f02=»NC+1,A11 CALL CONVRT RTN A14 $ EJECT 4 8 3*************************************************** B 8 3* GETSDC - GET NUMBER OF SPECIAL DEVICE CLASSES * ~ 8 3*************************************************** * * REFER
0x29bd7c…29bf10 Dummy {f00=0x00c6, f01=0x0190, f02=»VICE CLASSES (BINARY VALUE) l * $ * WORK REGISTERS: A5 . * L * SUBROUTINES: CONVRT V * v PGETSDC EQU * LCR A5,A9 P SLL A5,8 LC A5,1,A9 CALL CONVRT RTN A14 EJECT 2 .**********
0x29bf10…29c0a4 Dummy {f00=0x00c6, f01=0x0190, f02=»******** j * * REFERENCED IN: B:TT * : 6 2* ENTRY: A9 - POINTER TO CLASS DEFINITION RECORD D * ~ > :* EXIT: A1 - CLASS IDENTIFICATION NUMBER (BINARY VALUE) * * WORK REGISTERS: A5 * * SUBROUTIN
0x29c0a4…29c238 Dummy {f00=0x00c6, f01=0x0190, f02=» RTN A14 RETURN P EJECT . )***************************************** & . )* GETLCN - GET LINE CONNECTION NUMBER * X . )***************************************** * * REFERENCED IN: B:DWTT * 8 3* ENTRY: A9 - POINTE
0x29c238…29c3cc Dummy {f00=0x00c6, f01=0x0190, f02=»S: A5 * * SUBROUTINES: CONVRT * 8 PGETLCN EQU * B P LC A5,LCND1,A9 V P SLL A5,8 n P LC A5,LCND2,A9 P CALL CONVRT RTN A14 P EJECT : P***************************************************** : P
0x29c3cc…29c560 Dummy {f00=0x00c6, f01=0x0190, f02=»======================= * : P* * 2 : P* REFERENCED IN: B:TT * p : P* * : P* ENTRY: A5 - TCL IN CURRE
0x29c560…29c6f4 (2, 82) Dummy {f00=0x00c7, f01=0x018e, f02=»TASK CLASS * h : P* * : P* WORK REGISTERS: A1-A7,A10 * T : P* * : P* SUBROUTINES: GETTSK,NXTBLK *
0x29c6f4…29c888 Dummy {f00=0x00c7, f01=0x0190, f02=» PGETTCL EQU * P LDR A6,A5 SAVE TCL P LDR A7,A6 TCL START VALUE 4 8 P LDR A10,A11 SAVE POINTER TO CURRENT TASK DEF. BLOCK V 2 P LD A11,SAVE01,A13 START OF CONFIGURATION DATA 4 PTCL:10 CWR A11,A10 ALL PREVIOUS BLOCKS SCANNED? P RF(E) T
0x29c888…29ca1c Dummy {f00=0x00c7, f01=0x0190, f02=»AR IN TCL p P CWR A5,A6 SAME TCL? P RF(NE) TCL:50 NO! . & P CALL GETTSK GET NUMBER OF COPIES H P ADR A7,A1 INCREMENT TCL r 0 PTCL:50 CALL NXTBLK GET NEXT TASK DEF. BLOCK P RB TCL:10 , PTCL:60 LDR A5,A7 SAVE START VALUE OF TCL P
0x29ca1c…29cbb0 Dummy {f00=0x00c7, f01=0x0190, f02=»*********************************** * , * REFERENCED IN: SEGGEN 6 * X " * ENTRY: A2 - MEMORY ADDRESS b . )* MMUOPT - MMU OPTION SWITCH (X) * , (* EXIT: A1 - CONTENT OF MEMORY ADDRESS * * WORK RE
0x29cbb0…29cd44 Dummy {f00=0x00c7, f01=0x0190, f02=»ON ~ P RF(Z) GCON10 NO MMU ELR A1,A2 & P RF GCON20 8 PGCON10 EQU * J LDR* A1,A2 ^ PGCON20 EQU * r RTN A14 RETURN EJECT B >************************************************************** B >* BINASC - CONVERT A
0x29cd44…29ced8 Dummy {f00=0x00c7, f01=0x0190, f02=» B >************************************************************** * J * REFERENCED IN: B:DWTT T * v , (* ENTRY: A1 - BINARY NUMBER TO CONVERT * 0 ,* EXIT: A5 - TWO-DIGIT ASCII-CODED NUMBER * * WORK REGISTER
0x29ced8…29d06c Dummy {f00=0x00c7, f01=0x018e, f02=» LDK A2,0 LDR A1,A1 PBIN:20 EQU * $ RF(Z) BINEX 8 ADK A2,1 L CWK A2,10 ^ RF(E) BIN:30 p SUK A1,1 RB BIN:20 PBIN:30 EQU * ADKL A5,/0100 LDK A2,0 SUK A1,1 RB BIN:20
0x29d06c…29d200 Dummy {f00=0x00c7, f01=0x0190, f02=» N D P* START MONITOR SAVE01URATION * D P**************************************************************** P PCONMON EQU * ( P CALL B:TCT BUILD TASK CONTROL TABLE & P CALL B:FWT BUILD FILE WORK TABLES ( P CALL
0x29d200…29d394 (2, 83) Dummy {f00=0x00c7, f01=0x0190, f02=» 2 P CALL B:SWBT BUILD SWAPPABLE WORK BLOCK TABLE P XIF > 2 P CALL B:DMTT BUILD DATA MANAGEMENT TASK TABLES J & P CALL B:TT BUILD USER TASK TABLES 2 P CALL B:DWTS BUILD SPECIAL DEVICE WORK TABLES 2 P CALL B:DWTT BUILD TERMINAL DEVICE WORK
0x29d394…29d528 Dummy {f00=0x00c7, f01=0x0190, f02=»F ASSEMBLER APPLICATION P* " P LD A4,SCTOPT GET OPTION WORD * ( P RF(N) SLDM80 ASSEMBLER APPLICATION P ( P LD A1,SCTLAC GET ADDRESS TO S:GTAB | P IFF MMUPAG=1 & P LDR* A3,A1 GET ADDRESS TO P:MTAB $ P LD A1,2,A1 GET APPLICATON TYPE
0x29d528…29d6bc Dummy {f00=0x00c7, f01=0x0190, f02=»E r 2 P EL A2,I:RSTE,A3 GET INTERPRETER RESTART ENTRY P XIF @ PSLDM70 EQU * L P ST A2,SCTIOE SAVE IN SYSTAB ` P* " P* CHECK IF CREDIT APPLICATION P* P CWK A1,'CR' CREDIT? P RF(NE) SLDM80 NO P IFF MMUPAG=1 "
0x29d6bc…29d850 Dummy {f00=0x00c7, f01=0x0190, f02=» P EJECT F P***************************************************************** F P* END OF MONITOR SAVE01URATION PART * ` F P* -CONTINUE WITH APPLICATION SAVE01URATION PART * F P********************
0x29d850…29d9e4 Dummy {f00=0x00c7, f01=0x4060, f02=»T BASE-ADDRESS & P ADKL A8,SYSLDX APPL. CONF. ENTRY P ABR A8 @ P END P@ * END OF MONITOR SAVE01URATION PART * ` F P* -CONTINUE WITH APPLICATION SAVE01URATION PART * F P********************
0x29d9e4…29db78 Dummy {f00=0x00c7, f01=0x403c, f02=» 0 P******************************************** @ 8 P ABR A8 @ P END P@ * END OF MONITOR SAVE01URATION PART * ` F P* -CONTINUE WITH APPLICATION SAVE01URATION PART * F P********************
0x29db78…29dd0c Dummy {f00=0x00c7, f01=0x2008, f02=» P X ` h p
0x29dd0c…29dea0 Dummy {f00=0x00c7, f01=0x0000, f02=»
0x29dea0…29e034 (2, 84) Opaque[0x194]
0x29e034…29e1c8 # DirEnt {nam=»SYSLDA«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x18f0, f03=0x0000}
0x29e034…29e1c8 IdxSect {
0x29e034…29e1c8 f00 = 0x00c7 // 0x29e034 @0x0
0x29e034…29e1c8 f01 = 0x0056 // 0x29e036 @0x2
0x29e034…29e1c8 gno = [ // 0x29e038 @0x4
0x29e034…29e1c8 [0x00]: C0x00c7.0x2.0
0x29e034…29e1c8 [0x01]: C0x00c7.0x3.0
0x29e034…29e1c8 [0x02]: C0x00c8.0x0.0
0x29e034…29e1c8 [0x03]: C0x00c8.0x1.0
0x29e034…29e1c8 [0x04]: C0x00c8.0x2.0
0x29e034…29e1c8 [0x05]: C0x00c8.0x3.0
0x29e034…29e1c8 [0x06]: C0x00c9.0x0.0
0x29e034…29e1c8 [0x07]: C0x00c9.0x1.0
0x29e034…29e1c8 [0x08]: C0x00c9.0x2.0
0x29e034…29e1c8 [0x09]: C0x00c9.0x3.0
0x29e034…29e1c8 [0x0a]: C0x00ca.0x0.0
0x29e034…29e1c8 [0x0b]: C0x00ca.0x1.0
0x29e034…29e1c8 [0x0c]: C0x00ca.0x2.0
0x29e034…29e1c8 [0x0d]: C0x00ca.0x3.0
0x29e034…29e1c8 [0x0e]: C0x00cb.0x0.0
0x29e034…29e1c8 [0x0f]: C0x00cb.0x1.0
0x29e034…29e1c8 [0x10]: C0x00cb.0x2.0
0x29e034…29e1c8 [0x11]: C0x00cb.0x3.0
0x29e034…29e1c8 [0x12]: C0x00cc.0x0.0
0x29e034…29e1c8 [0x13]: C0x00cc.0x1.0
0x29e034…29e1c8 [0x14]: C0x00cc.0x2.0
0x29e034…29e1c8 [0x15]: C0x00cc.0x3.0
0x29e034…29e1c8 [0x16]: C0x00cd.0x0.0
0x29e034…29e1c8 [0x17]: C0x00cd.0x1.0
0x29e034…29e1c8 [0x18]: C0x00cd.0x2.0
0x29e034…29e1c8 [0x19]: C0x00cd.0x3.0
0x29e034…29e1c8 [0x1a]: C0x00ce.0x0.0
0x29e034…29e1c8 [0x1b]: C0x00ce.0x1.0
0x29e034…29e1c8 [0x1c]: C0x00ce.0x2.0
0x29e034…29e1c8 [0x1d]: C0x00ce.0x3.0
0x29e034…29e1c8 [0x1e]: C0x00cf.0x0.0
0x29e034…29e1c8 [0x1f]: C0x00cf.0x1.0
0x29e034…29e1c8 [0x20]: C0x00cf.0x2.0
0x29e034…29e1c8 [0x21]: C0x00cf.0x3.0
0x29e034…29e1c8 [0x22]: C0x00d0.0x0.0
0x29e034…29e1c8 [0x23]: C0x00d0.0x1.0
0x29e034…29e1c8 [0x24]: C0x00d0.0x2.0
0x29e034…29e1c8 [0x25]: C0x00d0.0x3.0
0x29e034…29e1c8 [0x26]: C0x00d1.0x0.0
0x29e034…29e1c8 [0x27]: C0x00d1.0x1.0
0x29e034…29e1c8 [0x28]: C0x00d1.0x2.0
0x29e034…29e1c8 [0x29]: C0x00d1.0x3.0
0x29e034…29e1c8 [0x2a]: C0x00d2.0x0.0
0x29e034…29e1c8 ]
0x29e034…29e1c8 }
0x29e1c8…29e35c Dummy {f00=0x00c7, f01=0x0190, f02=» 2 P IDENT SYSLDA REL 10.0 80-07-15 870105041000 P : ( P =3,IMPOSSIBLE TO MOVE AREAS>32KB B P REL 10.0 80-07-08 n $ P =2,SOP DISABLED AFTER PFINIT P REL 10.0 80-05-29 * P =1,FAULTY STACK BASE WHEN USING MMU P REL 10.0
0x29e35c…29e4f0 Dummy {f00=0x00c7, f01=0x0190, f02=» SYSTEM PTS | P* > P* SYSLDA = SYSTEM LOAD - APPLICATION CONFIGURATION PART P* ` P* j P* t P* ~ P* P* > P********************************************************** P* P* F P* THIS PART OF THE S
0x29e4f0…29e684 Dummy {f00=0x00c7, f01=0x0190, f02=»TER MONITOR CONFIGURATION (PERFORMED BY SYSLDM), AND H P* IS AT THAT TIME LOCATED AT HIGHEST FREE ADDRESS OF SYSTEM AREA. < P* P* ASSEMBLER APPLICATION: J P* NO CONFIGURATION WILL TAKE PLACE. FIRST USER TASK IS ACTIVATED F P*
0x29e684…29e818 Dummy {f00=0x00c7, f01=0x0190, f02=»TION: ~ F P* SYSLDA READS CONFIGURATION FILE (ALREADY IN CORE) AND BUILD B P* SHADOW-TABLES (TABLES CONTAINING NUMBER OF REAL TASKS & X . P* NUMBER OF USER WORK-BLOCK COPIES). H P* SYSLDA THEN MOVES ITSELF TO FOLLOW MONITOR AND WI
0x29e818…29e9ac Dummy {f00=0x00c7, f01=0x0190, f02=»ES ARE NOW V 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 ^ H P* MEMORY; ELSE, IF NO MMU, BUFFERS ARE ALLOCATED AFTER MONITOR P* 'OVER' SYSL
0x29e9ac…29eb40 Dummy {f00=0x00c7, f01=0x0190, f02=» A BRANCH IS FINALLY MADE TO j . P* P F I N I T TO START APPLICATION. $ P EJECT V P d P*************************** p P* * P* ENTRIES AND EXTERNALS * P* * P********
0x29eb40…29ecd4 (2, 85) Dummy {f00=0x00c7, f01=0x0190, f02=»NTRY REL START OF CODE ( P ENTRY LDALEN PROGRAM LENGTH =00003 P J P* SUBROUTINE ENTRIES R P ENTRY MOVE n P ENTRY ERROR $ P ENTRY CMPADR COMPARE ADDRESSES 2 P ENTRY NXTBLK SKIP TO NEXT CONFIGURATION BLOCK 4 P ENTRY NXTCOM SKIP C
0x29ecd4…29ee68 Dummy {f00=0x00c7, f01=0x0190, f02=» ENTRY MULT MULTIPLICATION ROUTINE P * P* SAVE AND WORK AREA ENTRIES 2 " P ENTRY MMTAB WORK-TABLE 1 (MMU V 6 P ENTRY TABBE ABSOLUTE START ADDRESS OF WORK-TAB 1 | 4 P ENTRY MMEND ABSOLUTE END ADDRESS OF WORK-TAB 1 2 P ENTRY MMDDIV WORK-TABLE 2
0x29ee68…29effc Dummy {f00=0x00c7, f01=0x0190, f02=»EL RELOCATION FOR RELOCATION WORD!!!! , P ENTRY I:RSTE INTERPRETER RESTART ENTRY . & P ENTRY SAVE01,SAVE12,SAVE03,SAVE04 ^ & P ENTRY SAVE05,SAVE06,SAVE07,SAVE08 & P ENTRY SAVE09,SAVE10,SAVE11,SAVE02 & P ENTRY SAVE13,SAVE14,SAVE15,SAVE16 & P E
0x29effc…29f190 Dummy {f00=0x00c7, f01=0x0190, f02=»9,SAVE30 " P ENTRY APPTYP APPLICATION TYPE P EJECT 6 P D $ P* SYSTEM CONTROL TABLE EXTERNALS L $ P EXTRN SCTSFA START OF FREE AREA t 2 P EXTRN SCTLAC LOGICALL ADDRESS TO COMMON PART P EXTRN SCTTCT TC:TAB ADDRESS P EXTRN SCTSTB A15
0x29f190…29f324 Dummy {f00=0x00c7, f01=0x0190, f02=»MMC =00002 P EXTRN SCTOPT SYSTEM OPTION $ P EXTRN SCTPAG PAGE TABLE ADDRESS 8 4 P EXTRN SCTSWB ADDRESS TO SWB CONTROL BLOCK TABLE ` P EXTRN SCTBUG BUGGER ADDRESS P P* EXTERNAL LABELS 6 P EXTRN SYSLDM START OF MONITOR CONFIGURATI
0x29f324…29f4b8 Dummy {f00=0x00c7, f01=0x0190, f02=»NIT P EXTRN SAVE8 SAVE 8 REGS P EXTRN RETUR8 RELOAD 8 REGS , " P EXTRN TDISP DISPATCHER ENTRY P P v P* ~ , P EXTRN TTB:SA START OF SAVE AREA IN TTAB 8 P EXTRN TTB:CB DISPL. TO CURRENT SEGMENT BASE ADDRESS P EJECT P
0x29f4b8…29f64c Dummy {f00=0x00c7, f01=0x0190, f02=»********* r P PMMUPAG EQU 1 0 = NO MMU P : & PSWPBLK EQU 0 SWAPPABLE WORK BLOCKS B P l PCREDIT EQU 1 0=ASSEMBLER t P PMMUSWB EQU MMUPAG+SWPBLK P PSWBMMU EQU SWPBLK-MMUPAG P EJECT P P PROGRAM STR
0x29f64c…29f7e0 Dummy {f00=0x00c7, f01=0x0190, f02=» !<- A13 j F P* ! A14-STACK AND SUBROUTINE-HANDLER ! * F P* !-----------------------------------------------------! t F P* ! SAVE & COMMUNICATION AREA. MMU - WORK TABLES ! F P
0x29f7e0…29f974 (2, 86) Dummy {f00=0x00c8, f01=0x0190, f02=» ! R F P* !-----------------------------------------------------! P P* ! R E A L T A ! PART 2.B V F P* ! BUILD REAL TASK-LOCAL DATA AREAS ! F P* ! -QUEUE
0x29f974…29fb08 Dummy {f00=0x00c8, f01=0x0190, f02=» ! -COPY T:A'S ACCORDING TO SHADOW-TABLE ! F P* ! -BUILD TWB'S AND RESERVE FOR SWB'S ! B F P* ! -ALLOCATE FIXED BUFFERS AND STACK ! F P* ! -UPDATE TID IN T:A AND SAVE TID IN T
0x29fb08…29fc9c Dummy {f00=0x00c8, f01=0x0190, f02=»---------------------------! j P P* ! SUBROUTINES ! PART 2.A $ F P* ! -MOVE DDIV PROTOTYPE TO FOLLOW SYSLDA ! x F P* ! !
0x29fc9c…29fe30 Dummy {f00=0x00c8, f01=0x0190, f02=»WB'S. ! V F P* ! -MOVE D.T. AND W.B., COPY UWB'S ACCORDING TO ! F P* ! SHADOW-TABLE. ! Z F P* ! ! F P* ! C L A D A T
0x29fe30…29ffc4 Dummy {f00=0x00c8, f01=0x0190, f02=»AND DWB'S. ! F P* ! -BUILD MM-TABLE ! < F P* ! -MOVE T:D ! F P* ! -MOVE D.T. & W.B., COPY UWB'S
0x29ffc4…2a0158 Dummy {f00=0x00c8, f01=0x0190, f02=»VE D.T. AND UPDATE ! d F P* ! W.B.-ADDRESS ! F P* ! ! h F P* ! P R O D A T ! F P* !
0x2a0158…2a02ec Dummy {f00=0x00c8, f01=0x0190, f02=»* ! -ALLOCATE FIXED BUFFERS AND TERMINAL STACK ! F P* ! -MOVE T:A ! J F P* ! -INCLUDE DDIV-PROTOTYPE & PART 2.A IN FREE AREA. ! F P* ! -CONTINUE IN PART 2.B
0x2a02ec…2a0480 Dummy {f00=0x00c8, f01=0x0190, f02=» ! PART 1 r F P* ENTRY ->! * SYSLDA ENTRY * ! 4 F P* ! CREDIT APPLICATION: ! ASSEMBLER APPLICATION: ! ~ F P* ! READ CUNFIGURATION FILE ! -FILL MM-TABLES IN
0x2a0480…2a0614 (2, 87) Dummy {f00=0x00c8, f01=0x0190, f02=»T USER TASK ! F P* ! T:ATAB: ! AND START APPLICATION ! F P* ! -A TABLE OF 'NUMBER OF !-------------------------! ` F P* ! REAL TASKS' IS BUILT AT ! F P* ! THE E
0x2a0614…2a07a8 Dummy {f00=0x00c8, f01=0x0190, f02=» ! -A TABLE OF 'NUMBER OF REAL UWB'S' IS BUILT IN ! F P* ! U:BTAB PROTOTYPE. ! B F P* ! ! F P* ! -RELOCATE ALL W.B.-ADDRESSES IN DDIV
0x2a07a8…2a093c Dummy {f00=0x00c8, f01=0x0190, f02=»:BTAB ! j F P* ! -MOVE SYSLDA (NOT PART 1) TO FOLLOW T:ATAB SHADOW- ! $ F P* ! TABLE ! n F P* ! -CONTINUE IN PART 2.A ! F P*
0x2a093c…2a0ad0 Dummy {f00=0x00c8, f01=0x0190, f02=»***** P ** ** P ** CONSTANTS ** * P ***************** F P ** ** b P ***************** ~ P P********** P* P:MTAB * P********** PT:ATAB EQU 0 PU:BTAB EQU 2 PP:BA
0x2a0ad0…2a0c64 Dummy {f00=0x00c8, f01=0x0190, f02=»INTERPRETER RESTART ENTRY P " P * P********** 2 P* U:BTAB * D P********** V 0 PUP:REC EQU 6 RECORD LENGTH IN INITIAL U:BTAB h " PUPADDR EQU 2 PROTOTYPE ADDRESS PUPNAME EQU 4 PROTOTYPE NAME 8 PUPNUMB EQU 7 SAVE AREA NUMBER OF C
0x2a0c64…2a0df8 Dummy {f00=0x00c8, f01=0x018e, f02=»MB EQU 4 NUMBER OF UWB'S PURLENG EQU 6 LENGTH OF UWB P EJECT B P P P P h $ P******************************* t $ P* CONFIGURATION FILE (CONFIG) * $ P******************************* P P* TASK DEFINITIO
0x2a0df8…2a0f8c Dummy {f00=0x00c8, f01=0x0190, f02=» f , PTDBMC EQU TDBID+6 6A MATCHING TASK CLASS $ PTDBTL EQU TDBMC+6 6A TASK LEVEL 8 : PTDBNC EQU TDBTL+6 2N NUMBER OF TERMINAL DEVICE CLASSES ` P* & PTDBFST EQU TDBNC+2 FIRST TERM DEF $ PTDC EQU 7 TERMINAL DEVICE CLASS PTLC EQU 6 LINE
0x2a0f8c…2a1120 Dummy {f00=0x00c8, f01=0x0190, f02=»ON DEVICE DEF. BLOCK: PCDBBT EQU 0 1A BLOCK TYPE 6 PCDBNC EQU CDBBT+1 2N NUMBER OF SPEC. DEV. CLASSES @ ( PSDCFST EQU CDBNC+2 FIRST SDC-RECORD z P* P* & P* USER WORK BLOCK TYPE DEF. BLOCK PUDBBT EQU 0 1A BLOCK TYPE , PUD
0x2a1120…2a12b4 (2, 88) Dummy {f00=0x00c8, f01=0x0190, f02=»BL EQU 3 NUMBER OF BLOCKS . PUDBREC EQU NAMUWB+NUMUBL UDB RECORD-LENGTH " P EJECT T P b P n P********* z P* T:A * P********* PT:ASTA EQU -14 T:A START 6 PCSE EQU -14 CURRENT SEGMENT END (HERE: STACKSIZE) $
0x2a12b4…2a1448 Dummy {f00=0x00c8, f01=0x0190, f02=»-RECORDS j PT:DAD EQU -8 ADDRESS TO T:D * PCIA EQU -6 CURRENT INSTUCTION ADDRESS 4 ( P (HERE: DISPLACEMENT TO T:A-START) b P PT:ATID EQU -4 TASK ID PSTKE EQU -2 STACK END PPA EQU 0 STACK POINTER PSTKB EQU 2 STACK BAS
0x2a1448…2a15dc Dummy {f00=0x00c8, f01=0x0190, f02=»S z PRL EQU 4 REQ. LENGTH PEL EQU 6 EFF. LENGTH & " PBL EQU 14 LENGTH ITEM ADDRESS B P EJECT h P v P P********* P* T:D * P********* ( PFCD EQU 0 DISPLACEMENT TO FCB IN T:A , PT:DTID EQU 2 TASK IDENTI
0x2a15dc…2a1770 Dummy {f00=0x00c8, f01=0x0190, f02=»TWB'S (ONE BIT/ENTRY) z * PSWBMSK EQU 10 MASK FOR SWB'S -"- ! * PCWBMSK EQU 12 MASK FOR CWB'S -"- ! L * PUWBMSK EQU 14 MASK FOR UWB'S -"- ! z ( PDWBFST EQU 16 FIRST WORD IN DBLK-TAB ! P ! . PSTPREC EQU 4 RECORD LENGTH OF START-POINTS !
0x2a1770…2a1904 Dummy {f00=0x00c8, f01=0x018e, f02=» LAMP CODE MEANING ! P --------- ------- " PLMP1 EQU /400 SYSLOAD RUNS " < PLMP2 EQU /200 READ ERROR " ^ " PLMP3 EQU /100 MEMORY OVERFLOW " ~ & PLMP4 EQU /80 FORMAT ERROR (CONFIG) " PLMP5 EQU /40 TID ERROR " " PLMP6 EQU /20 UWB OR SWB ERRO
0x2a1904…2a1a98 Dummy {f00=0x00c8, f01=0x0190, f02=» P********************* # P* OTHER CONSTANTS * # " P********************* # @ P # ^ & PWBLEN EQU -4 LENGTH OF WORK-BLOCK # j , PDTLEN EQU -2 LENGTH OF DESCRIPTOR-TABLE # & PSWBLEN EQU 4 DISP TO LENGTH OF SWB # P # $ PFCBDD1 EQU 8 D
0x2a1a98…2a1c2c Dummy {f00=0x00c8, f01=0x0190, f02=»EQU 2 CREDIT IDENTIFICATION # ( PSEGREC EQU 6 RECORD LENGTH IN S:GTAB $ $ 8 PNUMSEG EQU 10 DISPL. TO NUMBER OF SEGMENTS IN S:GTAB $ P P $ PTTBTID EQU 2 TID IN TTAB $ . PT:DSAV EQU 0 SAVE FOR T:D-ADDRESS IN TTAB $ * PTTB:PP EQU 6 SAVE AREA FOR TCL IN
0x2a1c2c…2a1dc0 Dummy {f00=0x00c8, f01=0x0190, f02=»SS $ r P % F P***************************************************************** % F P* CALL-FORMAT, PERFORMS: CFR A14,A13 * % ` F P* DATA [REL-ADDRESS] * % F P*
0x2a1dc0…2a1f54 (2, 89) Dummy {f00=0x00c8, f01=0x0190, f02=» P & P & PCALL FORM 16=/F697,16 & P EJECT & : P & H 6 P************************************************** & T 6 P************************************************** & 6 P** ** & 6 P** RE
0x2a1f54…2a20e8 Dummy {f00=0x00c8, f01=0x0190, f02=»************************ & v 6 P************************************************** ' P ' Z , PREL RF SUBBA JUMP TO SUBROUTINE HANDLER ' f & P LDR A13,P GET BASE ADDRESS TO A13 ' P SUKL A13,4 ' P* ADJUST FOR PSW-ROUTINE * ' P******************
0x2a20e8…2a227c Dummy {f00=0x00c8, f01=0x0190, f02=»'GETPSW'-ROUTINE ' p P* LOAD STACKBASE * ( P****************** ( 2 P ( L P LDKL A14,STACKB ( T P ADR A14,A13 RELOCATE ( l P RTN A8 ( P ( P ( P* STACK * ( P********* ( P* ( P RES 12 ( PSTACKB EQU *-REL-2 (
0x2a227c…2a2410 Dummy {f00=0x00c8, f01=0x0190, f02=» P DATA GETPSW ) P ) D P**************************************************************** ) $ D P* G E T P S W * ) l D P* LITTLE SUBROUTINE TO PUT PSW IN STACK FOR CALLING SUBROUTINE * ) D P************
0x2a2410…2a25a4 Dummy {f00=0x00c8, f01=0x0190, f02=» LD A2,2,A14 GET PSW FROM CALLING SUBROUTINE ) . P ST A2,6,A14 REPLACE PSW FROM MAIN PROGRAM * 4 P LDR* A2,A14 RESTORE A2 * f P RTN A14 * P EJECT * P * & P********************************* * & P* * * & P* SUBRO
0x2a25a4…2a2738 Dummy {f00=0x00c8, f01=0x0190, f02=» *-REL * " PSUBBA ST A10,MUL,A13 SAVE A10 + . P LD* A10,4,A14 GET SUBROUTINE REL ADDRESS + 4 $ P IM 4,A14 ADJUST RETURN ADDRESS + f P IM 4,A14 + 0 P AD A10,M:REL,A13 ADD FOR SYSLDM RELOCATION + P STR A10,A14 PUT ON STACK + P LD A10,MUL,A13 RE
0x2a2738…2a28cc Dummy {f00=0x00c8, f01=0x018e, f02=»SLDM (FROM SYSLOD) ALWAYS VIA THIS MODULE * + < P******************************************************* , 4 P , t PJUMP ABL SYSLDM , | P EJECT , P , ( P************************************ , ( P** ** , ( P**
0x2a28cc…2a2a60 Dummy {f00=0x00c8, f01=0x0190, f02=» , * PT:ATOD EQU *-REL T:ATAB 'OLD' ADDRESS - P DATA 0 - 6 * PT:ATNW EQU *-REL T:ATAB 'NEW' ADDRESS - F P DATA 0 - t ( PU:BTOD EQU *-REL U:BTAB OLD ADDRESS - P DATA 0 - ( PU:BTNW EQU *-REL U:BTAB NEW ADDRESS - P DATA 0 - ( PS:BTOD EQU *
0x2a2a60…2a2bf4 (2, 90) Dummy {f00=0x00c9, f01=0x0190, f02=»NGE AFTER MOVE - t P DATA 0 . 4 PMOVED EQU *-REL INDICATOR IF BLOCK ALREDY MOVED . & P DATA 0 . ^ * PENDADD EQU *-REL END-ADDRESS INDICATOR . n P FOR TABLE-SCANNING . P DATA 0 . : PLSTADR EQU *-REL LAST ADDRESS WHEN BUILDING DATA PART . P
0x2a2bf4…2a2d88 Dummy {f00=0x00c9, f01=0x0190, f02=»SS . l P DATA 0 / * PNEWAD2 EQU *-REL SAVE FORD.T. ADDRESS / P DATA 0 / H $ PSWITCH EQU *-REL D.T. INDICATOR / X P DATA 0 / 6 PFLAG EQU *-REL REAL TASK DATA PROCESSING INDICATOR / P DATA 0 / " PUWB EQU *-REL U.W.B. INDICATOR / P DATA 0
0x2a2d88…2a2f1c Dummy {f00=0x00c9, f01=0x0190, f02=»EL / P DATA 0 0 PSAVE03 EQU *-REL 0 P DATA 0 0 2 PSAVE04 EQU *-REL 0 B P DATA 0 0 Z PSAVE05 EQU *-REL 0 j P DATA 0 0 PSAVE06 EQU *-REL 0 P DATA 0 0 PSAVE07 EQU *-REL 0 P DATA 0 0 PSAVE08 EQU *-REL 0 P DATA 0 0
0x2a2f1c…2a30b0 Dummy {f00=0x00c9, f01=0x0190, f02=»VE12 EQU *-REL 0 P DATA 0 1 PSAVE13 EQU *-REL 1 & P DATA 0 1 > PSAVE22 EQU *-REL 1 N P DATA 0 1 f PSAVE25 EQU *-REL 1 v P DATA 0 1 PSAVE26 EQU *-REL 1 P DATA 0 1 PSAVE27 EQU *-REL 1 P DATA 0 1 PSAVE28 EQU *-REL 1 P D
0x2a30b0…2a3244 Dummy {f00=0x00c9, f01=0x0190, f02=» DATA 0 1 * PMUL EQU *-REL MULTIPLICATION REGISTER 2 P DATA 0 2 > & PBIT EQU *-REL SAVE FOR SUPER-LOOP 2 N P DATA 0 2 x 8 PTADISP EQU *-REL DISPLACEMENT IN T:A TO W.B. ADDRESS 2 P DATA 0 2 * PDATEND EQU *-REL END OF DDIV PROTOTYPE 2 P DATA
0x2a3244…2a33d8 Dummy {f00=0x00c9, f01=0x0190, f02=»UF EQU *-REL 2 * P DATA 0 TEMPORARY BUFFER START ADDRESS 3 & PBUFSIZ EQU *-REL TEMP. BUFFER SIZE 3 B P DATA 0 3 l " PMMTO EQU *-REL MMTABLE ADDRESS 3 | P DATA 0 3 * PMMFROM EQU *-REL 2:ND MMTABLE ADDRESS 3 P DATA 0 3 0 PFYSPAG EQU *-REL LAST PH
0x2a33d8…2a356c Dummy {f00=0x00c9, f01=0x0190, f02=»TAB ADDRESS 3 x P DATA 0 4 PXMSAV EQU *-REL 4 $ P DATA 0,0 4 < PLDALEN EQU *-REL 4 N $ P DATA LDAEND-REL PROGRAM LENGTH 4 f P 4 P 4 P 4 & P********************************* 4 & P* EQUATES FOR SYSLDM SAVE-WORDS * 4 & P**************
0x2a356c…2a3700 Dummy {f00=0x00c9, f01=0x018e, f02=» PSAVE18 EQU LSTADR 5 PSAVE19 EQU FSTADR 5 PSAVE20 EQU MOVED 5 8 PSAVE21 EQU NEWAD1 5 P PSAVE23 EQU SWITCH 5 j PSAVE24 EQU FLAG 5 P EJECT 5 P 5 P* MMU TABLES * 5 P 5 P 5 . PMMDDIV EQU *-REL DDIV (& SYSLDA) MM-TABLE 5
0x2a3700…2a3894 (2, 91) Dummy {f00=0x00c9, f01=0x0190, f02=» 5 P DATA 0,0,0,0,0,0,0,0 6 P DATA 0,0,0,0,0,0,0,0 6 & P XIF 6 D PMMEND EQU * 6 P ( P DATA 0 CURRENT SEGMENT BASE IN T:A 6 d 4 PTTPAG DATA 0 LAST ENTRY (FROM BOTTOM) IN MM-TAB 6 0 PLSTPAG EQU TTPAG-* DISPL. TO 'ENTRY-POINTER' 6 P DATA 0 6
0x2a3894…2a3a28 Dummy {f00=0x00c9, f01=0x0190, f02=» B R O U T I N E S *** 6 6 P*** -COMMON TO ALL PARTS IN PROGRAM *** 7 , 6 P*** *** 7 f 6 P************************************************* 7 6 P**********************************************
0x2a3a28…2a3bbc Dummy {f00=0x00c9, f01=0x0190, f02=» ** 7 , P** ERROR HANDLING ROUTINE. ** 8 , , P** ** 8 , P** INPUT :A1=SOP-MESSAGE ** 8 , P** OUTPUT:A2=RELATIVE CALLING ADDRESS** 8 , P** (REG-CONTENTS
0x2a3bbc…2a3d50 Dummy {f00=0x00c9, f01=0x0190, f02=»,4,A14 GET CALLING ABSOLUTE ADDRESS 8 P SUR A2,A13 RELATIVE DITO 9 , P OTR A1,0,SOP 9 N P HLT 9 d " P DATA /6300 (DEBUGGING PURPOS) 9 p P EJECT 9 P 9 & P** M O V E ** 9 & P** ** 9 & P**
0x2a3d50…2a3ee4 Dummy {f00=0x00c9, f01=0x0190, f02=»ADDRESS ** 9 ~ & P** A2=TO-ADDRESS ** : & P** A3=LENGTH ** : B & P** OUTPUT:A3=-1 ** : l & P** WORK-REG: A4 ** : & P********************************* : P : PMOVE EQU * : $ P
0x2a3ee4…2a4078 Dummy {f00=0x00c9, f01=0x0190, f02=»L? : | P RF(NN) MOVNN YES ; ( P CWR A4,A2 COMPARE WHEN UNEQUAL SIGN ; $ P RF MOVCK ; P , PMOVNN CWR A2,A4 COMPARE WHEN EQUAL SIGN ; b 8 PMOVCK RF(NG) MOVE10 END OF TO-AREA<=END OF FREE AREA ; * P LDKL A1,LMP3 INDICATE MEMORY OVERFLOW ; P CALL ERROR
0x2a4078…2a420c Dummy {f00=0x00c9, f01=0x0190, f02=» P SCR A4,A2 STORE CHARACTER < P RB MOVE10 < & PMOVE20 RTN A14 < 8 P IFT CREDIT-MMUPAG=1 < N P EJECT < j P < x P < 4 P** M O V I N G ** < 4 P** ** < 4 P**
0x2a420c…2a43a0 Dummy {f00=0x00c9, f01=0x0190, f02=»EMORY ** < p 4 P** LSTADR POINTS AT LAST (HIGHEST) FREE ** = 4 P** ADDRESS. LSTADR IS UPDATED AND CHECKED ** = P 4 P** ** = 4 P** INPUT:A3 & A1 AS IN 'MOVE' ** = 4 P** OUTPUT: A2=T
0x2a43a0…2a4534 (2, 92) Dummy {f00=0x00c9, f01=0x0190, f02=»******* = h P > PMOVING EQU * > & P LD A2,LSTADR,A13 GET LAST ADDRESS > 0 P SUR A2,A3 SUB LENGTH > Z $ P ANKL A2,/FFFE MAKE EVEN ADDRESS > x P ST A11,SAVE01,A13 SAVE A11 > P ST A9,SAVE12,A13 SAVE A9 > P LDR A11,A2 > * P LD A9,DATEND,
0x2a4534…2a46c8 Dummy {f00=0x00c9, f01=0x0190, f02=» CALL ERROR > 4 PMOV020 LD A9,FSTADR,A13 CHECK FIRST FREE ADDRESS ? P CALL CMPADR ? L P RB(L) MOV010 ? ` " P ST A2,LSTADR,A13 NEW ADDRESS ? v ( P LD A9,SAVE12,A13 RESTORE REGISTERS ? P LD A11,SAVE01,A13 ? P RB MOVES ? P XIF ? P IFT CRE
0x2a46c8…2a485c Dummy {f00=0x00c9, f01=0x0190, f02=» ** ? j 4 P** ** @ 4 P** MOVE BLOCK INSIDE MEMORY VIA MMU ** @ J 4 P** TWO PHASES:-MOVE TO SYSTEM AREA (BUFBEG) ** @ 4 P** -MOVE TO USER AREA ** @ 4 P** IF 'BUFSIZ' (TEMPO
0x2a485c…2a49f0 Dummy {f00=0x00c9, f01=0x0190, f02=»** @ b 4 P** INPUT :A1=FROM-ADDR(MMFROM=MM-TABLE ADDR.)** A 4 P** A2=TO-ADDRESS (MMTO=MM-TABLE ADDR.)** A B 4 P** A3=LENGTH (IN BYTES) ** A z 4 P** WORK.REGS:A4,A10 ** A 4 P******************************
0x2a49f0…2a4b84 Dummy {f00=0x00c9, f01=0x0190, f02=»A2,SAVE08,A13 A P ST A3,SAVE11,A13 B & P ST A9,XMSAV,A13 SAVE A9 TEMPORARY B 0 * P ST A11,XMSAV+2,A13 SAVE A11 TEMPORARY B Z PXMOV05 EQU * B LDR A10,A3 SAVE LENGTH B , ( LDK A4,0 RESET 'NUMBER-OF-MOVE' COUNTER B * P LDR A11,A3 GET LENGTH OF AR
0x2a4b84…2a4d18 Dummy {f00=0x00c9, f01=0x0190, f02=» SEVERAL MOVE B PXMOV10 LDR A3,A10 GET LENGTH C & P LD A1,SAVE09,A13 GET FROM ADDRESS C : 4 P LD A2,SYSBUF,A13 GET TEMP. BUFFER START-ADDRESS C d $ P TL* MMFROM,A13 LOAD FROM-TABLE C , ( MVUS A3 MOVE DATA-BLOCK TO TEMP. BUFFER C 0 P ST A1,SAVE09,A13 SA
0x2a4d18…2a4eac Dummy {f00=0x00c9, f01=0x0190, f02=» P TL* MMTO,A13 LOAD TO-TABLE D ( $ MVSU A3 MOVE DATA-BLOCK FROM BUFFER D ( " SUK A4,1 MORE PARTS TO MOVE? D T P RF(N) XMOV30 NO! D z P ADR A2,A10 D 0 P ST A2,SAVE08,A13 SAVE START OF 'TO' ADDRESS D * P LD A3,SAVE11,A13 GET REQUESTED LENGTH D $
0x2a4eac…2a5040 Dummy {f00=0x00c9, f01=0x0190, f02=»ENT BUFFER LENGTH =3 D | : P CALL CMPADR REMAINING PART <CURRENT BUFFERLENGTH? =3 E P RB(NL) XMOV10 E Z P LDR A10,A3 LAST LENGTH E p P RB XMOV10 E EJECT E PSPLIT EQU * E P LDR A1,A3 GET DIVISOR =3 E , P SRL A1,15 MOST SIGN. PART OF DIVI
0x2a5040…2a51d4 (2, 93) Dummy {f00=0x00c9, f01=0x0190, f02=»A10,BUFSIZ,A13 MOVE MAX LENGTH E P RB XMOV10 F & F 8 0 PXMOV30 LD A2,SAVE10,A13 RESTORE 'TO-ADDRESS' F @ , P LD A1,SAVE07,A13 RESTORE 'FROM-ADDRESS' F t P LD A9,XMSAV,A13 RESTORE A9 F $ P LD A11,XMSAV+2,A13 RESTORE A11 F RTN A14 F EJECT F
0x2a51d4…2a5368 Dummy {f00=0x00c9, f01=0x0190, f02=» ** F 4 P** USES SUBROUTINE 'XMOVE' TO MOVE A BLOCK ** G . 4 P** VIA TWO MM-TABLES.PHYSICALL TO-ADDRESS ** G f 4 P** IS ALWAYS ASSUMED TO BE DATA PART OF ** G 4 P** MEMORY. LSTADR & FYSPAG POINTS AT LAST ** G
0x2a5368…2a54fc Dummy {f00=0x00c9, f01=0x0190, f02=» ** G ~ 4 P** INPUT :A1 & A3 AS IN 'XMOVE' ** H & 4 P** TTAB=POINTER TO TTAB (OR LIKELY) ** H ^ 4 P** OUTPUT:A2=LOGICALL TO-ADDRESS ** H 4 P** WORK-REGS: A4,A10 ** H 4 P**
0x2a54fc…2a5690 Dummy {f00=0x00c9, f01=0x0190, f02=»SAVE A9 H ~ . ) LD A4,FYSPAG,A13 GET ACT. PHYSICALL PAGE I & P LD A10,TTAB,A13 LOAD TTAB-ADDRESS I B 2 . LD A2,LSTPAG,A10 GET LAST TABLE-ENTRY IN TTAB I l " LDR* A9,A2 GET PAGE IN TABLE I P ANKL A9,/FC00 I * % CWR A9,A4 CORRECT PAGE IN MMU-TABLE? I
0x2a5690…2a5824 Dummy {f00=0x00c9, f01=0x0190, f02=» GET LAST LOGICALL ADDRESS I x ANKL A11,/FFF J " * P LDR A9,A3 GET LENGTH OF AREA TO MOVE J 8 0 P CALL CMPADR ENOUGTH SPACE IN CURRENT PAGE? J f P RF(NL) MOV020 YES! J , P SUR A11,A3 COMPUTE DISPLACEMENT IN PAGE J PMOV015 RF(NP) MOV025 J * P CALL
0x2a5824…2a59b8 Dummy {f00=0x00c9, f01=0x0190, f02=»CEMENT IN PAGE J p PMOV025 RF(NN) MOV050 K * PMOV030 CALL SETTAB NEW PAGE IN TABLE! K 2 & ! ADKL A11,4096 NEW PAGE INCREMENT K ` ( P RB(N) MOV030 NOT ENOUGH. NEW PAGE! K P K ( P* MM-TABLE CORRECT. SAVE ADDRESSES * K P K P* A4=PHYSICALL PAGE NU
0x2a59b8…2a5b4c Dummy {f00=0x00c9, f01=0x0190, f02=» MMU-ENTRY IN TTAB K z 0 , ST A4,FYSPAG,A13 SAVE PHYSICALL PAGE NUMBER L 4 P LDKL A4,MMBEG CALCULATE TABLE ENTRY DISPLACEM. L N & " ADR A4,A10 ABSOLUTE ENTRY ADDRESS L & P ST A4,MMTO,A13 SAVE TABLE ADDRESS L SUR A2,A4 RELATIVE ADDRESS L 2 P SLL A2,11
0x2a5b4c…2a5ce0 Dummy {f00=0x00c9, f01=0x0190, f02=»ADR,A13 SAVE LOGICALL ADDRESS L P* CHECK ADDRESSES * M & P M B * P LD A9,FSTPAG,A13 GET FIRST FREE PAGE M J P ST A11,SAVE07,A13 SAVE A11 M x P LD A11,FYSPAG,A13 M P CALL CMPADR AND COMPARE M P RF(G) MOV090 OK! M P RF(L) MOV070 NOK! M &
0x2a5ce0…2a5e74 (2, 94) Dummy {f00=0x00ca, f01=0x0190, f02=» M | P CALL ERROR N PMOV090 EQU * N P CALL XMOVE MOVE N 0 P LD A9,SAVE12,A13 N H ( P LD A11,SAVE01,A13 RESTORE REGISTERS N b $ P TL* MMFROM,A13 RESTORE MM-TABLE N RTN A14 N EJECT N N 6 P** S E T T A B
0x2a5e74…2a6008 Dummy {f00=0x00ca, f01=0x0190, f02=»T NEW PAGE IN MM-TABLE & CHECK IF TABLE ** N 6 P** OVERFLOW. ** O 4 6 P** ** O n 6 P** INPUT :A2-ADDRESS TO CURRENT ENTRY ** O 6 P** A4=PHYSICALL PAGE
0x2a6008…2a619c Dummy {f00=0x00ca, f01=0x0190, f02=»************************************************* O P P : PSETTAB EQU * P B SUKL A4,/400 GET NEXT PAGE P V SUK A2,2 GET NEXT ENTRY P z P P " P* CHECK IF MM-TABLE OVERFLOW * P P P ( P LDR A9,A10 GET END-ADDRESS A10=TTAB P P ADKL A9,MMB
0x2a619c…2a6330 Dummy {f00=0x00ca, f01=0x0190, f02=» PSETT05 RF(NL) SETT10 NO Q P LDK A1,LMP7 Q $ P CALL ERROR Q 8 PSETT10 EQU * Q L STR A4,A2 STORE IN TABLE Q ` RTN A14 Q P XIF Q P IFF CREDIT=0 Q P EJECT Q P Q 4 P** G E T W B ** Q 4 P**
0x2a6330…2a64c4 Dummy {f00=0x00ca, f01=0x0190, f02=» AND DISPLACE- ** Q v 4 P** MENT IN T:A ** R 4 P** ** R V 4 P** INPUT : A8= POINTER TO T:A-ADD IN T:ATAB ** R 4 P** BIT=BIT NUMBER SAT IN MASK (0-15)** R 4 P** OUTPUT
0x2a64c4…2a6658 Dummy {f00=0x00ca, f01=0x0190, f02=» ** R n 4 P** WBADD=POINTER TO W.B.-ADD IN T:A ** S 4 P*********************************************** S N P S PGETWB EQU * S " P LD A4,BIT,A13 GET BIT NUMBER S $ P SLL A4,2 ADJUST FOR ADDRESSING S P ADK A4,WATFST+2 S
0x2a6658…2a67ec Dummy {f00=0x00ca, f01=0x0190, f02=»MENT S x P ST A11,WBADD,A13 SAVE T " P LDR* A11,A11 GET W.B.-ADDRESS T * P XIF T P P IFT CREDIT+MMUPAG=2 T 0 P LD A11,FLAG,A13 REAL TASK-DATA PROCESSING? T x P RF(Z) GETW10 NO! T P TL* MMTO,A13 LOAD TO-TABLE T & PGETW10 ELR A11,A8 GET T:A-ADDR
0x2a67ec…2a6980 Dummy {f00=0x00ca, f01=0x0190, f02=»AD FROM-TABLE T | P XIF U P IFF CREDIT=0 U " P RTN A14 U 8 P EJECT U H P U V P U b 8 P** M O V W B ** U n 8 P** ** U 8 P**
0x2a6980…2a6b14 (2, 95) Dummy {f00=0x00ca, f01=0x0190, f02=»** U ^ 8 P** INPUT: A11=W.B.-ADDRESS ** V 8 P** OUTPUT: 'WBADD'=POINTER TO MOVED W.B.ADDRESS ** V F 8 P** WORK-REGS: A1-A4 ** V 8 P**************************************************** V P V PMO
0x2a6b14…2a6ca8 Dummy {f00=0x00ca, f01=0x0190, f02=» P CALL MOVING W 6 P SUKL A2,WBLEN ADJUST TO-ADDRESS FOR DISPLACEMENT W 4 P ST* A2,WBADD,A13 UPDATE W.B.-ADDRESS AFTER MOVE W R P XIF W P IFT CREDIT+MMUPAG=2 W P ELR A3,A1 LENGTH W P CALL MOVING W 6 P SUKL A2,WBLEN ADJUST TO-ADDRESS FOR DIS
0x2a6ca8…2a6e3c Dummy {f00=0x00ca, f01=0x0190, f02=» ES* A2,WBADD,A13 UPDATE W.B.-ADDRESS AFTER MOVE W & P TL* MMFROM,A13 RELOAD FROM-TABLE X 8 P XIF X b P IFF CREDIT=0 X n P RTN A14 X P EJECT X P X P X : P** M O V D T ** X : P**
0x2a6e3c…2a6fd0 Dummy {f00=0x00ca, f01=0x0190, f02=».T.-ADDRESS IS UPDATED ** X t : P** ** Y " : P** INPUT :WBADD POINTS TO W.B.-ADDRESS IN T:A ** Y ` : P** OUTPUT: A3=POINTER TO W.B.-ADDRESS ** Y : P** WORK REGS: A1-A4
0x2a6fd0…2a7164 Dummy {f00=0x00ca, f01=0x0190, f02=»NTER TO W.B-ADDRESS IN WAT Y x & P SUK A1,2 POINTER TO D.T.-ADDRESS Z " P IFT CREDIT-MMUPAG=1 Z L P LDR* A1,A1 D.T.-ADDRESS Z h * P ADKL A1,DTLEN ADJUST FOR LENGTH WORD Z P AD A1,MOVADD,A13 RELOCATE Z P LDR* A3,A1 LENGTH Z P CALL MOVING Z P L
0x2a7164…2a72f8 Dummy {f00=0x00ca, f01=0x0190, f02=»FT CREDIT+MMUPAG=2 Z P ELR A1,A1 D.T.-ADDRESS [ * P ADKL A1,DTLEN ADJUST FOR LENGTH WORD [ : P AD A1,MOVADD,A13 RELOCATE [ h P ELR A3,A1 LENGTH [ P CALL MOVING [ P LD A3,WBADD,A13 [ P SUKL A2,DTLEN [ P SUKL A1,DTLEN [ 4 P ES A2,-2,A3
0x2a72f8…2a748c Dummy {f00=0x00ca, f01=0x0190, f02=» M O V D W B ** [ < P** ** 0 < P** ** p < P** SEARCH T:D FOR DUMMY W.B. IF ANY FOUND, MOVE D.T. ** < P** AND UPDATE ADDRESSES
0x2a748c…2a7620 Dummy {f00=0x00ca, f01=0x0190, f02=» ** p < P** A8= POINTER TO T:A-ADDRESS ** ] < P** BIT=BIT NUMBER SAT IN DWBMSK ( 0-15 ) ** ] ` < P** WORK.REGS: A1-A4 ** ] < P****************************************
0x2a7620…2a77b4 (2, 96) Dummy {f00=0x00ca, f01=0x0190, f02=» NUMBER ] t " P ADK A4,1 FIRST WAT-ELEMENT =1 ^ P IFT CREDIT-MMUPAG=1 ^ 6 P LD A2,WATLEN,A12 ^ R P XIF ^ l P IFT CREDIT+MMUPAG=2 ^ x P EL A2,WATLEN,A12 ^ P XIF ^ P IFF CREDIT=0 ^ " P SUR A2,A6 ACTUAL TABLE LENGTH ^ P ADR A6,A12 A6=TAB
0x2a77b4…2a7948 Dummy {f00=0x00ca, f01=0x018e, f02=»A4,DWBFST,A6 SHARED W.B.? ^ P XIF _ " P IFT CREDIT+MMUPAG=2 _ . * P EL A10,DWBFST,A6 CHECK IF SHARED W.B. _ J " P SRC A6,1 RIGHT OR LEFT BYTE? _ x P RF(N) MOVD30 RIGHT! _ P ANKL A10,/FF00 _ P ECR A10,A10 _ P RF MOVD40 _ PMOVD30 ANKL A10,
0x2a7948…2a7adc Dummy {f00=0x00ca, f01=0x0190, f02=» _ | P* DWB FOUND * ` , P NGR A4,A2 CALCULATE DISPLACEMENT IN T:A ` P IFT CREDIT-MMUPAG=1 ` N P AD A4,WATLEN,A12 ` j P XIF ` P IFT CREDIT+MMUPAG=2 ` P EL A10,WATLEN,A12 ` P ADR A4,A10 ` P XIF ` P IFF CREDIT=0 ` P LDR A6,A4 S
0x2a7adc…2a7c70 Dummy {f00=0x00ca, f01=0x0190, f02=»REDIT-MMUPAG=1 ` 2 P ADR* A4,A8 A4=POINTER TO W.B.-ADDRESS IN T:A a " P STR A3,A4 CHANGE W.B.-ADDRESS a L P XIF a r P IFT CREDIT+MMUPAG=2 a ~ . P LD A2,FLAG,A13 REAL DATA-PART PROCESSING? a P RF(Z) MOVD50 NO! a P TL* MMTO,A13 LOAD TO-TABLE a
0x2a7c70…2a7e04 Dummy {f00=0x00ca, f01=0x0190, f02=»MFROM,A13 RELOAD FROM-TABLE a P XIF b $ P IFF CREDIT=0 b 0 P ST A4,WBADD,A13 b F . P LD A2,SWITCH,A13 WB-ADDRESS CHANGE ONLY? b ^ P RB(NZ) MOVD10 YES! b P CALL MOVDT MOVE D.T. b P RB MOVD10 b PMOVD60 EQU * b P LD A6,SAVE05,A13 RESTOR
0x2a7e04…2a7f98 Dummy {f00=0x00ca, f01=0x0190, f02=» ** b z 4 P** COPY TWB'S AND RESERVE SPACE FOR SWB'S ** c " 4 P** ** c Z 4 P** INPUT : A8=ACTUAL T:A-ADDRESS ** c 4 P** A12=T:D-ADDRESS ** c 4 P** WO
0x2a7f98…2a812c Dummy {f00=0x00ca, f01=0x0190, f02=»T A7,SAVE04,A13 SAVE A7 c " P LD A7,TWBMSK,A12 GET TWB MASK d P IFT CREDIT+MMUPAG=2 d F " P EL A7,TWBMSK,A12 GET TWB MASK d b P XIF d P IFF CREDIT=0 d P CALL SHIFT d " PTWSW10 RF(Z) TWSW20 ALL DONE! d P CALL GETWB d P CALL MOVWB d
0x2a812c…2a82c0 Dummy {f00=0x00ca, f01=0x0190, f02=» EQU * d P IFT CREDIT+SWPBLK=2 e P EJECT e * P e 8 P e D P* RESERVE SPACE FOR SWB'S * e P P*************************** e t P XIF e P IFT CREDIT+SWBMMU=2 e P LD A7,SWBMSK,A12 e P XIF e P IFT CREDIT+MMUSWB=3 e P EL A7
0x2a82c0…2a8454 (2, 97) Dummy {f00=0x00ca, f01=0x018e, f02=» CALL MOVWB RESERVE SPACE e ( P ST A2,NEWAD2,A13 SAVE W.B.-ADDRESS f " & P CALL MOVDWB CHANGE DWB- ADDRESSES f N P CALL SKIFTA f x P RB TWSW30 f PTARZAN EQU * f P XIF f P IFT CREDIT=1 f P LD A7,SAVE04,A13 RESTORE A7 f P RTN A14 f P
0x2a8454…2a85e8 Dummy {f00=0x00ca, f01=0x0190, f02=» f ^ 4 P** ALLOCATE FIXED DATA SET BUFFERS AND ** g 4 P** TERMINAL STACK ** g @ 4 P** ** g x 4 P** INPUT : A8=ACTUAL T:A-ADDRESS IN T:ATAB ** g 4 P** A12=T:D-ADDRESS
0x2a85e8…2a877c Dummy {f00=0x00ca, f01=0x0190, f02=»** CSE (IN T:A)=STACKSIZE ** g 4 P** WORK-REGS. :A1-A4,A9,A11 ** h 8 4 P************************************************ h p P h PALLBUF EQU * h P IFT CREDIT-MMUPAG=1 h . P LD A9,FSTADR,A13 GET BUFFER START ADDRE
0x2a877c…2a8910 Dummy {f00=0x00ca, f01=0x0190, f02=»A CALC START OF DSCB RECORDS h " P LDR A10,A1 SAVE START ADDRESS i $ P XIF i J P IFT CREDIT+MMUPAG=2 i V P ELR A1,A8 GET T:A-ADDRESS i r ( P EL A3,CSN,A1 GET DSCB TOTAL LENGTH i P RF(Z) ALLB70 NO DSCB i . P ADKL A1,T:ASTA CALCULATE START OF DSCB'S
0x2a8910…2a8aa4 Dummy {f00=0x00ca, f01=0x0190, f02=»NDITION i | : P ST A3,SAVE04,A13 SAVE ADDRESS TO END OF DSCB-RECORDS j : PALLB10 SUK A1,DSCBL A1=FIRST WORD IN FIRST DSCB-RECORD j N P CW A1,SAVE04,A13 ALL? j P RF(E) ALLB70 YES! j P IFT CREDIT-MMUPAG=1 j & P LDR* A3,A1 GET FIRST WORD IN ECB j
0x2a8aa4…2a8c38 Dummy {f00=0x00ca, f01=0x0190, f02=»L,A1 j P LD A2,EL,A1 SHARED BUFFER? k P RF(Z) NOTSH NO! k 0 & P LDR A4,A1 RESTORE START OF DSCB'S k H P XIF k r P IFT CREDIT+MMUPAG=2 k ~ $ P ELR A3,A1 GET FIRST WORD IN ECB k P SLL A3,1 STATIC BUFFER? k P RB(NN) ALLB10 NO! k P EL A3,RL,A1
0x2a8c38…2a8dcc Dummy {f00=0x00ca, f01=0x0190, f02=» k n P XIF l P IFF CREDIT=0 l P ADK A4,DSCBL FIRST WORD l * PALLB20 SUK A2,1 A2=INDEX l J P RF(NN) ALLB30 l j P LDK A1,LMP4 FORMAT ERROR l P CALL ERROR l PALLB30 EQU * l P RF(Z) ALLB40 ECB FOUND l 0 P ADK A4,DSCBL A4=ADDRESS TO DS
0x2a8dcc…2a8f60 Dummy {f00=0x00ca, f01=0x0190, f02=»UPAG=1 l ( PALLB40 LD A4,BA,A4 BUFFER ALLOCATED? m P RF(NZ) ALLB50 YES! m : P LDK A1,LMP4 FORMAT ERROR m V P CALL ERROR m x PALLB50 EQU * m * P ST A4,BA,A1 AND STORE IN CURRENT ECB m P XIF m P IFT CREDIT+MMUPAG=2 m ( PALLB40 EL A4,BA,A4
0x2a8f60…2a90f4 (2, 98) Dummy {f00=0x00cb, f01=0x0190, f02=»A,A1 AND ESORE IN CURRENT ECB m P XIF n & P IFF CREDIT=0 n 2 P RB ALLB10 n H P n Z P IFT CREDIT-MMUPAG=1 n b PNOTSH LDR A9,A9 PAGING? n ~ P RF(NZ) NOTS10 NO! n , P CALL MOVING ALLOCATE BUFFER FROM BOTTOM n & P ST A2,BA,A1 STORE BUFFER ADDRES
0x2a90f4…2a9288 Dummy {f00=0x00cb, f01=0x0190, f02=»ECK ADDRESS: n P o " P LD A11,LSTADR,A13 DATA START o P CALL CMPADR o F P RF(NL) ALLB60 OK! o Z P LDKL A1,LMP3 o t P CALL ERROR o PALLB60 EQU * o . P ST A9,FSTADR,A13 SAVE BUFFER END ADDRESS o P XIF o P IFT CREDIT+MMUPAG=2 o
0x2a9288…2a941c Dummy {f00=0x00cb, f01=0x0190, f02=» RB ALLB10 o P p , P* RESERVE STACK AND SET STACKPOINTERS * p P p N PALLB70 EQU * p V P IFT CREDIT-MMUPAG=1 p j P LDR* A1,A8 GET T:A-ADDRESS p P LD A4,LSTADR,A13 p P SUK A4,2 p P LD A3,CSE,A1 GET STACK SIZE p P RF(NZ) ALLB80
0x2a941c…2a95b0 Dummy {f00=0x00cb, f01=0x0190, f02=» CALL MOVING ALLOCATE STACK p P ST A2,STKE,A1 SET STACK-END q $ P XIF q H P IFT CREDIT+MMUPAG=2 q T P ELR A1,A8 GET T:A-ADDRESS q p P EL A3,CSE,A1 GET STACK SIZE q * P RF(NZ) ALLB80 USER DEFINED STACK SIZE q $ P LDK A3,STKSZ DEFAULT STACK SIZE q
0x2a95b0…2a9744 Dummy {f00=0x00cb, f01=0x0190, f02=» GET STACK SIZE q " P ADR A2,A3 COMPUTE STACK BASE r . P SUK A2,2 ADDRESS TO LAST WORD IN STACK =1 r > $ P ES A2,STKB,A1 STORE STACK BASE r p * P ESR A2,A1 STORE CURRENT STACK POINTER r P XIF r P IFF CREDIT=0 r P RTN A14 r P EJECT r P r
0x2a9744…2a98d8 Dummy {f00=0x00cb, f01=0x0190, f02=»PDATE DATA SET ADDRESSES IN ** r ~ 4 P** FORMAT CONTROL BLOCK ** s & 4 P** ** s ^ 4 P** INPUT : A8=T:A-ADDRESS ** s 4 P** A12=T:D-ADDRESS ** s 4 P**
0x2a98d8…2a9a6c Dummy {f00=0x00cb, f01=0x0190, f02=» ** s v 4 P************************************************ t P t V PMOVT:A EQU * t ^ P IFT CREDIT-MMUPAG=1 t r P LDR* A1,A8 GET T:A-ADDRESS t ( P LD A3,WATLEN,A12 GET LENGTH OF WAT t P SLL A3,2 BYTES t , P SU A3,CIA,A1 ADD
0x2a9a6c…2a9c00 Dummy {f00=0x00cb, f01=0x0190, f02=» SU A2,CIA,A4 NEW T:A-ADDRESS t $ P SU A1,CIA,A4 'OLD' T:A-ADDRESS u & P u N 8 P* COMPUTE AND STORE ADDRESSES TO DATA-SETS IN FCB * u V P u P LD A3,FCD,A12 ANY FCD? u P RF(Z) MOVT10 NO! u P ADR A3,A2 START OF FCB u P LDR A4,A2 SAVE T:A-
0x2a9c00…2a9d94 (2, 99) Dummy {f00=0x00cb, f01=0x0190, f02=»T:A-ADDRESS) u f PMOVT05 EQU * v P ADS A4,FCBDD1,A3 v ( P ADS A4,FCBDD2,A3 v B PMOVT10 RTN A14 v P XIF v r P IFT CREDIT+MMUPAG=2 v ~ P v P ELR A1,A8 GET T:A-ADDRESS v ( P EL A3,WATLEN,A12 GET LENGTH OF WAT v P SLL A3,2 BYTES v P
0x2a9d94…2a9f28 Dummy {f00=0x00cb, f01=0x0190, f02=»NG v P ELR A4,A8 w P EL A10,CIA,A4 w P SUR A2,A10 NEW T:A-ADDRESS w 2 " P SUR A1,A10 'OLD' T:A-ADDRESS w V 8 P* COMPUTE AND STORE ADDRESSES TO DATA-SETS IN FCB * w | P w P EL A3,FCD,A12 ANY FCD? w P RF(Z) MOVT10 NO! w P LDR A4,A2 GET
0x2a9f28…2aa0bc Dummy {f00=0x00cb, f01=0x0190, f02=»OLD T:A-ADDR.) w j PMOVT05 EQU * x P ADR A3,A2 START OF FCB x * P TL* MMTO,13 LOAD TO-TABLE x J P EL A10,FCBDD1,A3 x l P ADR A10,A4 x P ES A10,FCBDD1,A3 x P EL A10,FCBDD2,A3 x P ADR A10,A4 x P ES A10,FCBDD2,A3 x & P TL* MMFROM,
0x2aa0bc…2aa250 Dummy {f00=0x00cb, f01=0x0190, f02=» ** x n 6 P** ** y 6 P** ** y R 6 P** COMPARE ADDRESSES. RESULT IN PSW ON RETURN ** y 6 P** ** y 6 P** INPU
0x2aa250…2aa3e4 Dummy {f00=0x00cb, f01=0x0190, f02=»ACK ** y t 6 P************************************************** z P z X PCMPADR EQU * z d P TNM A11,A9 z x P RF(NN) CMPA10 z P CWR A9,A11 z P RF CMPA20 z PCMPA10 CWR A11,A9 z . PCMPA20 CFI A14,PSW,A13 PUT RESULT ON S
0x2aa3e4…2aa578 Dummy {f00=0x00cb, f01=0x0190, f02=»* * z D P* ICBMVD - INDICATE CURRENT BLOCK MOVED * { H D P* ===================================== * { D P*
0x2aa578…2aa70c Dummy {f00=0x00cb, f01=0x0190, f02=» * { h D P* ENTRY: A8 - FIRST T:A POINTER * | D P* A6 - SECOND T:A POINTER * | h D P* BIT - BIT NUMBER SET IN CWB- OR UWB-MASK * | D P*
0x2aa70c…2aa8a0 Dummy {f00=0x00cb, f01=0x0190, f02=» IN T:A IS SET * | D P* * } @ D P* WORK REGISTERS: A1,A2 * } D P*
0x2aa8a0…2aaa34 (2, 100) Dummy {f00=0x00cb, f01=0x0190, f02=» * } ` D P*************************************************************** ~ P EJECT ~ ` PICBMVD EQU * ~ n P LDKL A1,/8000 SET BIT 0 ~ 6 P LD A2,BIT,A13 GET BIT NUMBER IN CWB- OR UWB-MASK ~ " PIBAM10 RF(Z) IBAM20 BIT FOUND ~ & P SRL A
0x2aaa34…2aabc8 Dummy {f00=0x00cb, f01=0x0190, f02=»A ~ p P* P XIF P IFT CREDIT-MMUPAG=1 & PIBAM20 LDR* A2,A8 GET T:A POINTER < $ P LDR* A3,A2 GET MOVED BLOCK MASK f , P ORR A3,A1 INDICATE CURRENT BLOCK MOVED * P STR A3,A2 STORE NEW MOVED BLOCK MASK P* & P* UPDATE MOVED MA
0x2aabc8…2aad5c Dummy {f00=0x00cb, f01=0x0190, f02=»T BLOCK MOVED v * P STR A3,A2 STORE NEW MOVED BLOCK MASK P XIF D P IFT CREDIT+MMUPAG=2 P $ PIBAM20 ELR A2,A8 GET T:A POINTER l $ P ELR A3,A2 GET MOVED BLOCK MASK , P ORR A3,A1 INDICATE CURRENT BLOCK MOVED * P ESR A3,A2 STORE NEW MOVED B
0x2aad5c…2aaef0 Dummy {f00=0x00cb, f01=0x0190, f02=»LOCK MASK z , P ORR A3,A1 INDICATE CURRENT BLOCK MOVED * P ESR A3,A2 STORE NEW MOVED BLOCK MASK B P XIF p P IFF CREDIT=0 | P RTN A14 P EJECT J P********************************************************************* J P*
0x2aaef0…2ab084 Dummy {f00=0x00cb, f01=0x0190, f02=»* L J P* ===================================== * J P* * X J P* REFERENCED IN: MOVCOM,MOVCLA * J P*
0x2ab084…2ab218 Dummy {f00=0x00cb, f01=0x0190, f02=»* BIT - BIT NUMBER IN CWB- OR UWB-MASK * J P* * N J P* EXIT: IF BLOCK ALREADY MOVED THEN CR=2 ELSE CR<>2 * J P*
0x2ab218…2ab3ac Dummy {f00=0x00cb, f01=0x0190, f02=» * J P* SUBROUTINES: * D J P* * J P****************************************
0x2ab3ac…2ab540 Dummy {f00=0x00cb, f01=0x0190, f02=» LDR* A1,A1 GET MOVED BLOCK MASK P XIF ( P IFT CREDIT+MMUPAG=2 4 P ELR A1,A8 GET T:A POINTER P $ P ELR A1,A1 GET MOVED BLOCK MASK r P XIF P IFF CREDIT=0 2 P LD A2,BIT,A13 GET BIT SET IN CWB- OR UWB-MASK 6 PCHKM10 RF(Z) CHKM20 BI
0x2ab540…2ab6d4 (2, 101) Dummy {f00=0x00cb, f01=0x0190, f02=» PCHKM20 ADK A1,0 SET CR * P CFI A14,PSW,A13 PUT CONDITION IN PSW " P RTN A14 P P EJECT ` P n P z : P***** S * U * P * E * R * L * O * O * P **** : P** ** : P**
0x2ab6d4…2ab868 Dummy {f00=0x00cb, f01=0x0190, f02=» NUMBER SAT IN MASK-WORD ** ~ : P** INPUT : A7=MASK WORD ** , : P** OUTPUT: BIT=BIT NUMBER ** j : P** CONDITION CODE IN PSW ON RETURN ** : P**********************************
0x2ab868…2ab9fc Dummy {f00=0x00cb, f01=0x0190, f02=»IFTA EQU * ENTRY: CONTINUE SHIFT PSHIF10 IM BIT,A13 ( P SLL A7,1 B PSHIF20 EQU * T $ P RF(Z) SHIF30 NO MOORE BITS SAT h P RB(NN) SHIF10 * PSHIF30 CFI A14,PSW,A13 PUT COND IN PSW P RTN A14 P XIF P EJECT P
0x2ab9fc…2abb90 Dummy {f00=0x00cb, f01=0x0190, f02=» ** 4 P** MULTIPLICATION (A2) X A3(), A2#0 ** . 4 P** ** f 4 P** INPUT : A3,A2 ** 4 P** OUTPUT:A3=RESULT **
0x2abb90…2abd24 Dummy {f00=0x00cb, f01=0x0190, f02=» P LDK A3,0 PADD AD A3,MUL,A13 P SUK A2,1 0 P RB(NZ) ADD B P LDR* A2,A14 V P RTN A14 j P z P IFT MMUPAG=1 P EJECT P 4 P** M M E N T ** 4 P**
0x2abd24…2abeb8 Dummy {f00=0x00cb, f01=0x0190, f02=» FROM LOW ADDRESS. NOT USED ENTRY=0. ** 4 P** ** 6 4 P** INPUT :A3=MM-TABLE ADDRESS ** n 4 P** OUTPUT:A3=ENTRY ADDRESS ** 4 P** A9=TTAB-ADDRESS
0x2abeb8…2ac04c Dummy {f00=0x00cb, f01=0x0190, f02=»************************************* P . PMMENT EQU * 6 P LDR A9,A3 GET TABLE ADDRESS J 6 P SUKL A9,MMBEG ADJUST A9 (LOOKS LIKE TTAB POINTER) n P SUK A3,2 & PMMEN10 ADK A3,2 INCREMENT ADDRESS ( P LDR* A1,A3 GET CONTENTS OF MM-TABLE
0x2ac04c…2ac1e0 Dummy {f00=0x00cb, f01=0x0190, f02=» P XIF P IFF CREDIT=0 P EJECT * P 8 2 P** G E T T A B ** @ 2 P** ** v 2 P** ** 2 P** FIND TTAB ADDRESS
0x2ac1e0…2ac374 (2, 102) Dummy {f00=0x00cc, f01=0x0190, f02=»2=TTAB-ADDRESS ** 2 P** A1=TID ** * 2 P** WORKREGS:A3,A4,A10 ** ` 2 P********************************************** P PGETTAB EQU * P XIF P IFT MMUPAG=0
0x2ac374…2ac508 Dummy {f00=0x00cc, f01=0x0190, f02=»G=1 P ELR A10,A8 T:A-ADDRESS P EL A1,T:ATID,A10 GET TID , P EL A12,T:DAD,A10 N P XIF h & PGETTTB EQU * ENTRY. INPUT: A1=TID t $ P LD A4,SCTTCT GET TC:TAB ADDRESS P LDR* A3,A4 TCTAB LENGTH PGETT10 ADK A4,2 P SUK A3,2
0x2ac508…2ac69c Dummy {f00=0x00cc, f01=0x0190, f02=»TT20 LDR* A2,A4 TTAB-ADDRESS P CW A1,TTB:PP,A2 TCL EQUAL? $ P RB(NE) GETT10 NO! H P ST A2,TTAB,A13 SAVE b P RTN A14 ~ P IFF CREDIT=0 P EJECT P P 8 P** Q U E J O B ** 8 P**
0x2ac69c…2ac830 Dummy {f00=0x00cc, f01=0x018e, f02=» AND SWITCH TO LEVEL ** v 8 P** 0, ENB. ** " 8 P** ** ^ 8 P** INPUT: A10=T:A-ADDRESS ** 8 P** A12=T:D-ADDRESS *
0x2ac830…2ac9c4 Dummy {f00=0x00cc, f01=0x0190, f02=» PQUEJOB EQU * P* QUEUE THIS TASK (THIS TID) P < 0 P LDKL A3,RETUR GET RETURN (FROM A15) ADDRESS D P ADR A3,A13 RELOCATE x P STR A3,A15 PUT ON STACK * P LDKL A3,/00C0 SET LEVEL 0 AND ENABLE P STR A3,A15 PSW P CF A15,SAVE8
0x2ac9c4…2acb58 Dummy {f00=0x00cc, f01=0x0190, f02=» IFT CREDIT-MMUPAG=1 , P LD A4,WATLEN,A12 NUMBER OF WAT-ELEMENTS P ADK A4,2 L P ANKL A4,/FFFE ^ P ADK A4,DWBFST+4 t 8 P ADR A4,A12 ADD T:A-ADDRESS => START OF START-POINTS & P LDR* A6,A4 NUMBER OF START POINTS . PGETT30 SUK A6,1 DEC. N
0x2acb58…2accec Dummy {f00=0x00cc, f01=0x0190, f02=»NTERPRETER START ADDRESS P XIF P IFT CREDIT+MMUPAG=2 , , P EL A4,WATLEN,A12 NUMBER OF WAT-ELEMENTS H P ADK A4,2 x P ANKL A4,/FFFE P ADK A4,DWBFST+4 8 P ADR A4,A12 ADD T:A-ADDRESS => START OF START-POINTS & P ELR A6,A4 NUMBER OF
0x2accec…2ace80 Dummy {f00=0x00cc, f01=0x0190, f02=»,2,A4 SEGMENT NUMBER , P EL A2,NTPA,A8 INTERPRETER START ADDRESS P XIF L P IFF CREDIT=0 X P CF A15,ACTOT n $ P ADK A4,STPREC NEXT START-POINT P RB GETT30 $ PGETT40 ABL RETUR8 RELOAD 8 REGS PRETUR EQU *-REL P RTN A14
0x2ace80…2ad014 (2, 103) Dummy {f00=0x00cc, f01=0x0190, f02=» ** ~ 4 P** ** & 4 P** MOVE MM-TABLE ** ^ 4 P** ** 4 P** INPUT :A2=TTAB-ADDRESS ** 4 P**
0x2ad014…2ad1a8 Dummy {f00=0x00cc, f01=0x0190, f02=»S ** v 4 P** WORKREGS:A1,A3 ** 4 P*********************************************** V P PMOVMMT EQU * ( P ADKL A2,MMBEG GET TO-TABLE ADDRESS " P TL MMTAB,A13 LOAD FROM-TABLE P TSR A2 MOVE
0x2ad1a8…2ad33c Dummy {f00=0x00cc, f01=0x0190, f02=»FF CREDIT=0 P EJECT @ P************************************************************ " @ P* * f @ P* CHTAID - CHANGE T:A-ID AND CLEAR TCL SAVE AREA IN TTAB * B P* SAVE REAL TID
0x2ad33c…2ad4d0 Dummy {f00=0x00cc, f01=0x0190, f02=» * x @ P* * , @ P* REFERENCED IN: SYSLDA PART 2 B. * p @ P* * @ P* ENTRY: A5 -
0x2ad4d0…2ad664 Dummy {f00=0x00cc, f01=0x0190, f02=» * @ P* EXIT: * 4 @ P* * x @ P* WORK REGISTERS: A1,A3,A6,A8 * @ P*
0x2ad664…2ad7f8 Dummy {f00=0x00cc, f01=0x018e, f02=» * @ P************************************************************ < PCHTAID EQU * 2 P LDR A8,A7 GET NEXT FREE ENTRY IN REAL T:ATAB $ P LDR* A6,A5 GET NUMBER OF COPIES " PCHT:10 RF(Z) CHT:90 NO
0x2ad7f8…2ad98c Dummy {f00=0x00cc, f01=0x018e, f02=» $ P LD A1,T:ATID,A1 GET TCL IN T:A . PCHT:20 CALL GETTTB GET CORRESPONDING TTAB , * P LD A4,TTBTID,A2 GET REAL TID IN TTAB ^ 6 P LD A3,TTB:SA+26,A2 GET CORRESPONDING T:A-ADDRESS ( P ST A4,T:ATID,A3 REPLACE TCL IN T:A & P LDR A3,A8 GET REAL T:
0x2ad98c…2adb20 Dummy {f00=0x00cc, f01=0x0190, f02=» P IFT CREDIT+MMUPAG=2 & P ELR A1,A8 GET POINTER TO REAL T:A $ P EL A1,T:ATID,A1 GET TCL IN T:A J . PCHT:20 CALL GETTTB GET CORRESPONDING TTAB r ( P LDR A3,A2 GET POINTER TO TTAB ENTRY 2 P ADKL A3,MMBEG START OF MM-TABLE FOR THIS TTAB P T
0x2adb20…2adcb4 (2, 104) Dummy {f00=0x00cc, f01=0x0190, f02=»:ATID,A3 REPLACE TCL IN T:A *79-04-11* 0 P EL* A3,T:ATNW,A13 GET LENGTH OF REAL T:ATAB . $ P NGR A3,A3 NEGATIVE DISPLACEMENT b . P ADR A3,A8 COMPUTE ENTRY IN AUX. TID TABLE 8 P ESR A4,A3 SAVE TID FOR DEBUGGER PURPOSE *79-04-11* P XIF P IFT
0x2adcb4…2ade48 Dummy {f00=0x00cc, f01=0x0190, f02=»ENT NUMBER OF COPIES P RB(P) CHT:20 NEXT COPY PCHT:90 RTN A14 < P EJECT R P ` P h 4 P************************************************ p 4 P*** *** 4 P** SYSLOAD PART 2.B
0x2ade48…2adfdc Dummy {f00=0x00cc, f01=0x0190, f02=»* BUILD REAL T:A'S. COPY T:A'S ACCORDING TO * 4 P* SHADOW TABLE * 8 4 P* * p 4 P************************************************ P PPART2B EQU *-REL P P
0x2adfdc…2ae170 Dummy {f00=0x00cc, f01=0x0190, f02=»3 REAL T:ATAB ADDRESS P ADK A7,2 P ST A8,SAVE03,A13 SAVE A8 0 & PSYA310 LD A8,SAVE03,A13 RESTORE A8 R 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 A5=SHADOW TAB POINTER
0x2ae170…2ae304 Dummy {f00=0x00cc, f01=0x018e, f02=»ADDR. IN TTAB (SAVE-A13) r " P LD A1,SCTOPT GET OPTION WORD P ANK A1,2 DISC PAGING? F P RF(Z) SYA320 NO! d P LDR A1,A10 GET T:A-ADDRESS ~ 0 P ADKL A1,CSB ADDRESS TO CURRENT SEGMENT BASE " P ST A1,TTB:CB,A2 STORE IN TTAB & PSYA320 LDR*
0x2ae304…2ae498 Dummy {f00=0x00cc, f01=0x0190, f02=» PSYA340 SUK A6,1 P RF(P) SYA345 NEXT TASK 2 P CALL CHTAID REPLACE TCL:S IN THIS TASK-CLASS @ P RB SYA310 NEXT TASK-CLASS v * PSYA345 LD A12,T:DAD,A1 GET T:D-ADDRESS P CALL MOVT:A MOVE T:A P IM T:ATID,A2 UPDATE TID $ P STR
0x2ae498…2ae62c Dummy {f00=0x00cc, f01=0x018e, f02=»EJOB QUEUE THIS TASK 2 P ST A10,TTB:SA+26,A2 SAVE T:A-ADDRESS IN TTAB " P LD A1,SCTOPT GET OPTION WORD R P ANK A1,2 DISC PAGING? x P RF(Z) SYA348 NO! P LDR A1,A10 GET T:A-ADDRESS 0 P ADKL A1,CSB ADDRESS TO CURRENT SEGMENT BASE " P
0x2ae62c…2ae7c0 Dummy {f00=0x00cc, f01=0x0190, f02=» ` " P CALL ALLBUF ALLOCATE BUFFERS P XIF . P IFT CREDIT+MMUPAG=2 : * P* GET ACTUAL MM-TABLE ADDRESS AND LOAD V P P LDR A1,A5 * P AD* A1,SCTSFA ADD SHADOW-TABLE LENGTH $ P LDR* A1,A1 GET MM-TABLE ADDRESS P TLR A1 LOAD " P
0x2ae7c0…2ae954 (2, 105) Dummy {f00=0x00cc, f01=0x0190, f02=» Z P LDR A1,A10 GET T:A-ADDRESS 0 P ADKL A1,CSB ADDRESS TO CURRENT SEGMENT BASE , " P ST A1,TTB:CB,A2 STORE IN TTAB ` 0 P LD A1,T:DSAV,A2 GET CLASS-LOCAL LAST ENTRY P CALL QUEJOB QUEUE THIS TASK * P LDKL A2,MMTAB GET WORK TABLE ADDRESS
0x2ae954…2aeae8 Dummy {f00=0x00cc, f01=0x0190, f02=» TABLE ~ P LDKL A12,/FC00 PSYA320 SUK A1,2 NEXT ENTRY & P CWR A1,A2 ALL? H P RF(E) SYA330 YES! ` P STR A12,A1 REMOVE ENTRY z P RB SYA320 PSYA330 EQU * P ELR A1,A8 GET T:A ADDRESS $ P ESR A1,A7 STORE IN REAL T:ATAB $
0x2aeae8…2aec7c Dummy {f00=0x00cc, f01=0x0190, f02=»MBER OF COPIES ~ PSYA340 SUK A6,1 P RF(P) SYA345 NEXT TASK . 2 P CALL CHTAID REPLACE TCL:S IN THIS TASK-CLASS N P RB SYA310 NEXT TASK-CLASS PSYA345 ADK A1,1 NEXT T:A ID ( P CALL GETTTB FIND CORRESPONDING TTAB P CALL QUEJOB QUEUE
0x2aec7c…2aee10 Dummy {f00=0x00cc, f01=0x0190, f02=»,TTB:SA+26,A9 PUT T:A-ADDRESS IN TTAB. A9=TTAB ADDRESS P LDR A8,A2 GET T:A-ADDRESS > 0 P ADKL A8,CSB ADDRESS TO CURRENT SEGMENT BASE ` " P ST A8,TTB:CB,A9 STORE IN TTAB " P LDR A8,A7 CHANGE T:A TO COPY , P ADK A7,2 NEXT FREE WORD IN REAL T:ATAB
0x2aee10…2aefa4 Dummy {f00=0x00cc, f01=0x0190, f02=»A13 CHANGE T:A ADDRESS-TABLE P TLR A1 $ " P CALL ALLBUF ALLOCATE BUFFERS 4 $ P LD A1,TTAB,A13 GET TTAB-ADDRESS Z * P CM LSTPAG,A1 CLEAR SAVE-AREA IN TTAB & P ELR A10,A8 GET T:A-ADDRESS (NEW) P EL A1,T:ATID,A10 GET TID P ADK A1,1 UP
0x2aefa4…2af138 Dummy {f00=0x00cc, f01=0x0190, f02=»NISH EQU *-REL P P* ADJUST START OF FREE AREA P B PSYA350 EQU * J P IFF CREDIT=0 ^ * P LD A1,LSTADR,A13 GET END OF FREE AREA t . P LD A14,SAVE13,A13 GET APPL. REL. BASE =1 P XIF P IFT CREDIT+MMUPAG=2 P ANKL A1,/FF
0x2af138…2af2cc Dummy {f00=0x00cc, f01=0x0190, f02=» P IFT MMUPAG-CREDIT=1 P ANKL A1,/03FF P SLL A1,2 6 P XIF H P ST A1,SCTEFA+2 T P IFT CREDIT=1 l P LD A1,FYSPAG,A13 P IFT MMUPAG-CREDIT=1 P LD A1,SCTLAC P XIF P IFT MMUPAG+CREDIT=0 P LDK A1,0 P
0x2af2cc…2af460 Dummy {f00=0x00cc, f01=0x0190, f02=»55 P XIF P LD A1,SCTSFA PSYA355 ST A1,SCTSFA+2 , P CM SCTSFA J P IFT CREDIT=1 P EJECT r D ?*************************************************************** D ?* *
0x2af460…2af5f4 (2, 106) Dummy {f00=0x00cd, f01=0x0190, f02=» * X D ?* * D ?* REFERENCED IN: SYSLDA * X D ?* * D ?* ENTRY: SCTSFA - START OF FRE
0x2af5f4…2af788 Dummy {f00=0x00cd, f01=0x0190, f02=»ER OF SEGMENTS * x D ?* SCTNOP - NUMBER OF PAGES * 0 D ?* SCTPSZ - PAGE SIZE * x D ?* SAVE22 - PHYSICAL ADDRESS TO FIRST PAGE (16 BITS) * D ?
0x2af788…2af91c Dummy {f00=0x00cd, f01=0x0190, f02=» P D ?* PAGQUE+2 - POINTER TO LAST FREE PAGE BLOCK+2 * D ?* * P D ?* WORK REGISTERS: A1-A12 * D ?*
0x2af91c…2afab0 Dummy {f00=0x00cd, f01=0x0190, f02=» * p D ?* * ( D ?*************************************************************** p PAGGEN EQU * P LDKL A2,PAGEX EXIT ADDRESS P ADR A2,A13 RELOCATE
0x2afab0…2afc44 Dummy {f00=0x00cd, f01=0x0190, f02=» ~ P ABR(Z) A2 NO! * L G* RESERV SPACE FOR PAGE BLOCKS CORRESPONDING TO CORE RESIDENT SEGMENTS ( * x , ' LD A11,SCTSFA+2 GET START OF FREE AREA " ST A11,SCTPAG STORE IN SYSTAB $ LDR A8,A13 GET RELOCATION BASE , P ADKL A8
0x2afc44…2afdd8 Dummy {f00=0x00cd, f01=0x0190, f02=» h RF(E) PAG:30 YES! $ LDK A1,0 RESET NUMBER OF WORDS " PAG:20 EQU * J " ADKL A11,2 INCLUDE NEXT WORD ^ 0 + RF(Z) MEMOFL MEMORY OVERFLOW (64 KB LIMIT) $ ADK A1,1 INCREMENT WORD COUNTER CWK A1,4 4 WORDS RESERVED? RF(
0x2afdd8…2aff6c Dummy {f00=0x00cd, f01=0x0190, f02=»1 INCREMENT PAGE BLOCK COUNTER RB PAG:10 & PAG:30 EQU * 8 * L 4 /* RESERV MEMORY PAGES IN UNUSED PART OF MEMORY V 6 2* AND EXTEND PAGE TABLE WITH CORRESPONDING NUMBER * OF PAGE BLOCKS. * P XIF P IFT CREDIT+MMUP
0x2aff6c…2b0100 Dummy {f00=0x00cd, f01=0x0190, f02=»A2,SCTEFA+2 GET BIT 2-18 OF 18-BITS ADDRESS & ! SRL A2,2 SKIP TWO RIGHTMOST BITS 4 , P ORR A1,A2 16 BITS PHYSICAL PAGE ADDRESS ^ P LDR A3,A1 SAVE LD A2,SCTPSZ GET PAGE SIZE & ! SRL A2,2 SKIP TWO RIGHTMOST BITS LDR A10,A2 SAVE
0x2b0100…2b0294 (2, 107) Dummy {f00=0x00cd, f01=0x018e, f02=»RR A1,A2 MODIFY PAGE ADDRESS LIMIT P XIF * P IFT CREDIT-MMUPAG=1 6 $ P LD A1,SCTEFA+2 END OF FREE AREA R P LD A10,SCTPSZ PAGE SIZE z P XIF P IFT CREDIT=1 LDR A9,A1 INIT PAGE ADDRESS LDR A6,A9 SAVE PPAG:31 EQU *
0x2b0294…2b0428 Dummy {f00=0x00cd, f01=0x0190, f02=» , P SUR A6,A10 COMPUTE ADDRESS TO NEXT PAGE LDR A1,A6 GET PAGE ADDRESS 4 P IFT CREDIT+MMUPAG=2 X * & ANKL A1,/C000 ADDRESS IN SYSTEM AREA? t RF(NZ) PAG:34 NO! . * LDR A1,A6 PHYSICAL ADDRESS IN SYSTEM AREA . ) SLL A1,2 ABSOLUTE ADDRE
0x2b0428…2b05bc Dummy {f00=0x00cd, f01=0x0190, f02=»SET WORD COUNTER ~ * %PAG:38 ADKL A11,2 RESERV ANOTHER WORD RF(Z) PAG:40 64 KB LIMIT F $ ADK A2,1 INCREMENT WORD COUNTER h CWK A2,4 BLOCK COMPLETE? RF(E) PAG:45 YES! & P LDR A1,A1 ADDRESS IN SYSTEM AREA? P RF(Z) PAG:39 NO!
0x2b05bc…2b0750 Dummy {f00=0x00cd, f01=0x0190, f02=»84 RF(NG) PAG:40 NO MOORE MEMORY AVALIABLE! PPAG:39 EQU * 4 " CWR A11,A8 PROGRAM OVERWRITE H RB(NE) PAG:38 NO! n PAG:40 EQU * 6 1 CW A7,SCTNOP ONLY PAGES FOR CORE RESIDENT PAGES? RF(G) PAG:50 NO! B P CW A7,SAVE29,A13 ONLY C
0x2b0750…2b08e4 Dummy {f00=0x00cd, f01=0x018e, f02=»OW l HLT HALT PROGRAM 0 PPAG:45 CW A7,SAVE29,A13 MOORE PAGES WANTED? $ RF(E) PAG:50 YES! X $ ADK A7,1 INCREMENT PAGE COUNTER r LDR A9,A6 SAVE PAGE ADDRESS P RB PAG:31 PAG:50 EQU * " ADKL A11,2 START OF FREE AREA
0x2b08e4…2b0a78 Dummy {f00=0x00cd, f01=0x0190, f02=» ~ P XIF P IFT CREDIT+MMUPAG=2 * P SRL A1,14 BIT 0-1 OF 18-BITS ADDRESS 0 ST A1,SCTEFA SAVE ^ . * SLL A2,2 GET BITS 2-15 OF 18-BITS ADDRESS x P XIF P IFT CREDIT=1 ST A2,SCTEFA+2 SAVE * : 5* INITIATE PAGE BLOCK
0x2b0a78…2b0c0c Dummy {f00=0x00cd, f01=0x0190, f02=»A13 PHYSICAL ADDRESS TO FIRST CORE RES. SEGM. . P LD A11,SAVE30,A13 START OF SEGMENT TABLE 6 , ( LDK A4,0 RESET RESIDENT SEGMENT COUNTER h & " LD A12,SCTPAG START OF PAGE TABLE ( P LD A6,SAVE29,A13 NUMBER OF SEGMENTS PPAG:60 EQU * " ADKL
0x2b0c0c…2b0da0 Dummy {f00=0x00cd, f01=0x0190, f02=»GE BLOCK ADDRESS z , ' STR A1,A12 RESET QUEUE POINTER FORWARD . ) ST A1,2,A12 RESET QUEUE POINTER BACKWARD H $ ST A8,4,A12 STORE PAGE ADDRESS z . ) ST A11,6,A12 STORE SEGMENT BLOCK ADDRESS 0 , ADK A4,1 INCREMENT RESIDENT SEGMENT COUNTER & !
0x2b0da0…2b0f34 (2, 108) Dummy {f00=0x00cd, f01=0x0190, f02=»B(P) PAG:60 * < 8* INITIATE PAGE BLOCK FOR FREE PAGES AND LINK TO PAGQUE * ^ CWR A4,A7 ANY FREE BLOCKS? h P RF(E) PAG:90 NO! 4 / ST A12,PAGQUE POINTER TO FIRST FREE PAGE BLOCK & " LDKL A11,PAGQUE POINTER TO PAGQUE 0 ,
0x2b0f34…2b10c8 Dummy {f00=0x00cd, f01=0x0190, f02=»RE PAGE ADDRESS $ ST A2,6,A12 INDICATE PAGE FREE * & ADK A4,1 INCREMENT PAGE BLOCK COUNTER @ CWR A4,A7 LAST PAGE BLOCK? n RF(E) PAG:80 YES! , ' LDR A11,A12 SAVE ADDRESS TO PAGE BLOCK ( $ ADK A1,8 ADDRESS TO NEXT PAGE BLOCK & !
0x2b10c8…2b125c Dummy {f00=0x00cd, f01=0x0190, f02=» * & ! LDKL A1,PAGQUE POINTER TO PAGQUE $ STR A1,A12 STORE IN LAST BLOCK 4 & " ST A12,PAGQUE+2 STORE IN PAGQUE+2 PPAG:90 EQU * PPAGEX EQU *-REL P EJECT P XIF P P P* START BUGGER (IF ANY) P P
0x2b125c…2b13f0 Dummy {f00=0x00cd, f01=0x0190, f02=»=1 P =1 P SUKL A14,8 ADJUST FOR MAP * P ADKL A13,SYA360 CONTINUATION ADDRESS : $ P LDK A1,0 INDICATE SYSLOAD ENDED h P OTR A1,0,SOP $ P LD A1,SCTBUG GET BUGGER ADDRESS P ABR(NZ) A1 P PSYA360 EQU *-REL P LDR A
0x2b13f0…2b1584 Dummy {f00=0x00cd, f01=0x0190, f02=»D A15,SCTSTB P SUKL A15,4 P ( P* START APPLICATION 0 P L . P LD A1,IHRTC GET INTERRUPT ADDRESS FOR RTC T P ST A1,SAVRTC,A13 SAVE 4 P LDKL A1,IHRTCO LOAD TEMPORARY INTERRUPT ADDRESS P ADR A1,A13 RELOCATE * P ST A1,IHRTC STO
0x2b1584…2b1718 Dummy {f00=0x00cd, f01=0x0190, f02=» REGISTERS ~ P* F P* WAIT APPROXIMATELY 0.62 SECONDS BEFORE BRANCHING TO DISPATCHER P* f P LDKL A1,/FFFF SET COUNTER p PDELAY SRC A2,31 P SUK A1,1 P RB(NZ) DELAY P INH ( P LDKL A1,0 GET RTC INTERRUPT ADDRESS
0x2b1718…2b18ac Dummy {f00=0x00cd, f01=0x0190, f02=»PATCHER x P =1 P =1 P =1 , P =1 : P* H * P* TEMPORARY INTERRUPT ROUTINE FOR RTC R P* PIHRTCO EQU *-REL P RIT RTCDA P RTN A15 P IFF CREDIT=0 P EJECT P 6 P********************
0x2b18ac…2b1a40 Dummy {f00=0x00cd, f01=0x018e, f02=» ** h 6 P** ** 6 P************************************************* L P 6 P* BUILD COMMON AND TASKCLASS DATA AREAS. * 6 P* BUILD TASKDATA PROTOTYPE AREA * 6 P*
0x2b1a40…2b1bd4 (2, 109) Dummy {f00=0x00cd, f01=0x0190, f02=» ~ P 0 P******************************************** 0 P*** *** D 0 P** S U B R O U T I N E S ** x 0 P******************************************** P P 4 P** T
0x2b1bd4…2b1d68 Dummy {f00=0x00cd, f01=0x0190, f02=» ** d 4 P** GET T:D - ADDRESS ** 4 P** ** D 4 P** INPUT : A8=POINTER TO T:A (IN T:ATAB) ** | 4 P** OUTPUT: A12=T:D ADDRESS ** 4 P****************************
0x2b1d68…2b1efc Dummy {f00=0x00cd, f01=0x0190, f02=»IF P IFT CREDIT+MMUPAG=2 P ELR A12,A8 T:A ADDRESS & P EL A12,T:DAD,A12 F P XIF ` P IFF CREDIT=0 l P AD A12,MOVADD,A13 RELOCATE P RTN A14 P EJECT P P 6 P** M O V C O M
0x2b1efc…2b2090 Dummy {f00=0x00cd, f01=0x0190, f02=»ARCH T:A'S FOR COMMON WORK BLOCKS THAT ** 6 P** ARE COMMON TO AT LEAST TWO T:A'S, AND MOVE ** 4 6 P** TO COMMON AREA ** n 6 P** ** 6 P** INPUT : A8=POINTER IN T:ATAB
0x2b2090…2b2224 Dummy {f00=0x00cd, f01=0x0190, f02=»** TADISP=W.B.-ADDR DISPLACEM. IN T:A ** 6 P** WORK.REGS: A1-A6,A9,A11,A12 ** : 6 P************************************************* t P PMOVCOM EQU * & P CALL CHKMVD BLOCK ALREADY MOVED? P RF(N) MOVC20 YE
0x2b2224…2b23b8 Dummy {f00=0x00cd, f01=0x0190, f02=»MOVED INDICATOR | P LDR A6,A8 PMOVC10 ADK A6,2 NEXT T:A * P CW A6,ENDADD,A13 ALL DONE? J P RF(NE) MOVC30 NO n PMOVC20 RTN A14 YES! P IFT CREDIT-MMUPAG=1 PMOVC30 LDR* A11,A6 P LD A2,T:DAD,A11 T:D-ADDRESS P AD A2,MOV
0x2b23b8…2b254c Dummy {f00=0x00cd, f01=0x0190, f02=»B(NG) MOVC10 TO FEW WAT ELEMENTS. TAKE NEXT T:A . P AD A11,TADISP,A13 W.B.-ADDRESS TO EXAMINE 8 P LDR* A11,A11 j . P CW A11,SAVE06,A13 COMPARE W.B.-ADDRESSES P XIF P IFT CREDIT+MMUPAG=2 PMOVC30 ELR A11,A6 P EL A2,T:DAD,A11 T:D
0x2b254c…2b26e0 Dummy {f00=0x00cd, f01=0x0190, f02=»MENTS n P CW A2,BIT,A13 ENOUGHT? 6 P RB(NG) MOVC10 TO FEW WAT ELEMENTS. TAKE NEXT T:A . . P AD A11,TADISP,A13 W.B.-ADDRESS TO EXAMINE h P ELR A11,A11 . P CW A11,SAVE06,A13 COMPARE W.B.-ADDRESSES P XIF P IFF CREDIT=0 P RB(NE
0x2b26e0…2b2874 (2, 110) Dummy {f00=0x00ce, f01=0x0190, f02=»CRIPTOR-TABLE | & P ST A2,NEWAD1,A13 SAVE D.T.-ADRESS P CALL MOVWB MOV WORK BLOCK @ P IM MOVED,A13 INDICATE MOVED b P LD A4,UWB,A13 UWB-BLOCKS? P RF(Z) MOVC40 NO! " P CALL GETPRO CREATE REAL UWB'S 4 PMOVC40 ST A2,NEWAD2,A13 SAVE NEW
0x2b2874…2b2a08 Dummy {f00=0x00ce, f01=0x0190, f02=» LDR A11,A8 SAVE T:A-POINTER ( P ST A12,SAVE25,A13 SAVE T:A-ADDRESS $ & P LDR A8,A6 REPLACE POINTER TO T:A P * P LD A12,SAVE03,A13 REPLACE T:D-ADDRESS z P CALL MOVDWB P LDR A8,A11 * P LD A12,SAVE25,A13 RELOAD T:D-ADDRESS P RB MOVC10
0x2b2a08…2b2b9c Dummy {f00=0x00ce, f01=0x0190, f02=» ** n 4 P** ** 4 P** SEARCH U:BTAB PROTOTYPE AND GET NUMBER OF ** N 4 P** COPIES. FILL REAL U:BTAB ** 4 P** ** 4 P** INPUT : A11=PR
0x2b2b9c…2b2d30 Dummy {f00=0x00ce, f01=0x0190, f02=» ** f 4 P** WORK-REGS: A1-A5,A9 ** 4 P************************************************ F P ~ PGETPRO EQU * ( P LD A3,U:BTOD,A13 GET U:BTAB ADDRESS P IFT CREDIT-MMUPAG=1 P LDR* A4,A3 LENGTH PGETP10 E
0x2b2d30…2b2ec4 Dummy {f00=0x00ce, f01=0x0190, f02=»ROR PGETP20 EQU * P CW A11,UPADDR,A3 SAME W.B.? , P RF(E) GETP30 YES! GET NUMBER OF COPIES D P ADK A3,UP:REC NEXT t P RB GETP10 P 0 P* GET NUMBER OF COPIES * 0 P* A3 POINTS AT PROTOTYPE ADDRESS IN U:
0x2b2ec4…2b3058 Dummy {f00=0x00ce, f01=0x0190, f02=» , P SU A3,U:BTOD,A13 GET TABLE DISPLACEMENT . P AD A3,U:BTNW,A13 ADD TO NEW TABLE ADDRESS 8 P LDR A9,A3 j " P ST A4,URLENG,A9 STORE LENGTH | * P ST A5,URNUMB,A9 STORE IN REAL U:BTAB 0 P* COPY NUMBER OF WORKBLOCKS TO COMMON AREA * 0 P****
0x2b3058…2b31ec Dummy {f00=0x00ce, f01=0x0190, f02=»B P SUK A5,1 P RB(NZ) GETP40 P 2 & P* UPDATE POINTER IN REAL U:BTAB * > & P********************************* h PGETP50 EQU * 6 P ST A2,URADDR,A9 STORE ADDRESS TO FIRST IN U:BTAB P XIF P IFT CREDIT+MMUPAG=2 P
0x2b31ec…2b3380 Dummy {f00=0x00ce, f01=0x0190, f02=»P6 W.B. NOT FOUND! P CALL ERROR PGETP20 EQU * . ( P EL A10,UPADDR,A3 CHECK IF SAME W.B. B P CWR A11,A10 n , P RF(E) GETP30 YES! GET NUMBER OF COPIES P ADK A3,UP:REC NEXT P RB GETP10 P 0 P* GET NUMBER OF COPIES
0x2b3380…2b3514 (2, 111) Dummy {f00=0x00ce, f01=0x018e, f02=»GETP30 EQU * P EL A4,WBLEN,A11 W.B.-LENGTH , P EL A5,UPNUMB-1,A3 GET NUMBER OF COPIES 8 P ANK A5,/FF h , P SU A3,U:BTOD,A13 GET TABLE DISPLACEMENT | . P AD A3,U:BTNW,A13 ADD TO NEW TABLE ADDRESS P LDR A9,A3 P TL* MMTO,A13 LOAD TO-TA
0x2b3514…2b36a8 Dummy {f00=0x00ce, f01=0x0190, f02=» 0 P* COPY NUMBER OF WORKBLOCKS TO COMMON AREA * 0 P******************************************** 8 . P SUK A5,1 ONE ALREADY MOVED (IN 'MOVCOM') l P RF(NP) GETP50 PGETP40 CALL MOVWB P SUK A5,1 P RB(NZ) GETP40 P & P* UPDA
0x2b36a8…2b383c Dummy {f00=0x00ce, f01=0x0190, f02=» ESORE ADDRESS TO FIRES IN U:BTAB P TL* MMFROM,A13 * P XIF B P IFF CREDIT=0 N P RTN A14 d P EJECT t P 2 P** M O V C L A ** 2 P** ** 2 P**
0x2b383c…2b39d0 Dummy {f00=0x00ce, f01=0x0190, f02=» ** f 2 P** CHECK IF ANY DWB'S ** 2 P** ** B 2 P** A LOT OF WORKREGS. ** x 2 P********************************************* P PMOVCLA EQU * P CALL SH
0x2b39d0…2b3b64 Dummy {f00=0x00ce, f01=0x0190, f02=» NO! , PMVCL20 CALL SKIFTA GET NEXT BIT IN MASK P RB(NZ) MVCL10 < PMVCL30 RTN A14 R PMVCL40 CALL MOVDT h P CALL MOVWB P LD A4,UWB,A13 UWB-SCANNING P RF(Z) MVCL50 NO! P CALL GETPRO DUPLICATE WB'S . PMVCL50 ST A2,NEW
0x2b3b64…2b3cf8 Dummy {f00=0x00ce, f01=0x0190, f02=» C H A D R ** 6 P** ** . 6 P** ** h 6 P** CHANGE ADDRESS TO W.B. & D.T. IN T:A, ** 6 P** BLOCKS ALREDY MOVED
0x2b3cf8…2b3e8c Dummy {f00=0x00ce, f01=0x0190, f02=» NEWADR1=NEW D.T.-ADDRESS ** 6 P** NEWAD2= NEW W.B.-ADDRESS ** 4 6 P** TADISP=DISPLACEMENT TO WB-ADDR ** n 6 P** WORK.REGS: A1,A2 ** 6 P**************************************
0x2b3e8c…2b4020 Dummy {f00=0x00ce, f01=0x018e, f02=»S TO W.B.-ADDRESS x P LD A2,NEWAD2,A13 P STR A2,A1 4 & P SUK A1,2 ADDRESS TO D.T.-ADDRESS F P LD A2,NEWAD1,A13 p P STR A2,A1 P XIF P IFT CREDIT+MMUPAG=2 P ELR A1,A6 T:A-ADDRESS . P AD A1,TADISP,A13 ADDRESS TO W.B.-ADD
0x2b4020…2b41b4 (2, 112) Dummy {f00=0x00ce, f01=0x0190, f02=» P XIF P IFF CREDIT=0 P RTN A14 * P XIF : P IFT CREDIT+SWPBLK=2 F P EJECT b B P************************************************************** p B P* * B P*
0x2b41b4…2b4348 Dummy {f00=0x00ce, f01=0x0190, f02=»================================ * B P* * > B P* REFERENCED IN: SYSLDA * B P* *
0x2b4348…2b44dc Dummy {f00=0x00ce, f01=0x0190, f02=» * V B P* * B P* EXIT: * R B P* * B P* WORK REGISTERS: A1-A7
0x2b44dc…2b4670 Dummy {f00=0x00ce, f01=0x0190, f02=» * j B P* * B P************************************************************** f P EJECT PB:RSWT EQU * * P LDR A8,A2 SAVE POINTER TO FIRST BLOCK , P LD A1,SCTSW
0x2b4670…2b4804 Dummy {f00=0x00ce, f01=0x0190, f02=»OORE ~ P LDK A6,0 P SUK A5,2 SKIP LENGTH WORD PRSWB10 ADK A1,2 NEXT TYPE @ P LDR* A4,A1 POINTER TO BLOCK b P LCR A6,A4 NUMBER OF COPIES $ P LD A7,SWBLEN,A4 LENGTH IN BYTES P XIF P IFT CREDIT+MMUSWB=3 & P ES A6,2,A2 ST
0x2b4804…2b4998 Dummy {f00=0x00ce, f01=0x0190, f02=»MBER OF COPIES | , P ST A7,4,A2 STORE LENGTH OF SWB IN BYTES P XIF F P IFT CREDIT+SWPBLK=2 R & P SUK A5,6 DECREMENTS S:BTAB LENGTH n ( P ADK A2,6 INCREMENT POINTER IN BLOCK ( P SUK A3,1 DECREMENT NUMBER OF TYPES P RB(P) RSWB10 P L
0x2b4998…2b4b2c Dummy {f00=0x00ce, f01=0x0190, f02=»RSWB20 EQU * ( P LDR A6,A2 GET ADDRESS TO TID BLOCK $ P SUR A6,A8 COMPUTE DISPLACEMENT @ P IFT CREDIT+SWBMMU=2 h P LD A1,2,A8 NUMBER OF COPIES P RF(Z) RSWB50 NO COPIES! * P STR A6,A8 STORE POINTER TO TID BLOCK PRSWB30 STR A3,A2 R
0x2b4b2c…2b4cc0 Dummy {f00=0x00ce, f01=0x0190, f02=» OF COPIES z P RB(P) RSWB30 NEXT COPY P XIF 2 P IFT CREDIT+MMUSWB=3 > $ P EL A1,2,A8 GET NUMBER OF COPIES Z P RF(Z) RSWB50 NO COPIES! * P ESR A6,A8 STORE POINTER TO TID BLOCK PRSWB40 ESR A3,A2 RESET TID , P ADK A2,2 INCREMENT PO
0x2b4cc0…2b4e54 (2, 113) Dummy {f00=0x00ce, f01=0x0190, f02=»XT COPY P XIF P IFT CREDIT+SWPBLK=2 PRSWB50 ADKL A8,6 8 P CWR A8,A4 P P RB(NE) RSWB20 b " P LDR A5,A5 S:BTAB CONSISTENT? x P RF(Z) RSWBEX YES P LDKL A1,LMP6 SWB ERROR! P CALL ERROR PRSWBEX RTN A14 P XIF
0x2b4e54…2b4fe8 Dummy {f00=0x00ce, f01=0x0190, f02=»***************** P P* LOAD BASE ADDRESS * " P********************* @ P* A5=START-ADDRESS ^ P* A9=P:MTAB ADDRESS x P* SAVE03=DDIV TO-ADDRESS P* SAVE04=DDIV FROM ADDRESS " P* SAVE05=LENGTH OF REAL T:ATAB " P* SAVE06=LEN
0x2b4fe8…2b517c Dummy {f00=0x00ce, f01=0x0190, f02=» l P CFR A8,A5 P* MOVE DDIV * P 0 & P LD A1,SAVE04,A13 GET FROM-ADDRESS 8 $ P LD A2,SAVE03,A13 GET TO ADDRESS b . P LDR A3,A9 GET P:MTAB START (=END OF DDIV P SUR A3,A1 => LENGTH P XIF P IFT CREDIT-MMUPAG=1 2 P LD A8,S
0x2b517c…2b5310 Dummy {f00=0x00ce, f01=0x0190, f02=»SGMT LD A8,SCTSFA ALLOCATE BUFFERS FROM TOP " PSEGMTS ST A8,FSTADR,A13 STORE 4 PMOVNXT LDR* A4,A1 GET WORD Z P STR A4,A2 STORE | P ADK A1,2 P ADK A2,2 P SUK A3,2 DEC LENGTH P RB(NN) MOVNXT P XIF P IFT CREDIT+MMUPAG
0x2b5310…2b54a4 Dummy {f00=0x00ce, f01=0x0190, f02=»FOR ADDRESSING ~ P ANK A1,/1E & P LDK A2,MMTAB-2 GET TABLE ADDRESS * P ADR A2,A13 RELOCATE T " P ADR A1,A2 P:MTAB START ENTRY p P LDKL A4,/FC00 PSYA205 CWR A1,A2 ALL? P RF(E) SYA207 YES! , P STR A4,A1 REPLACE ENTRY WITH PAGE E
0x2b54a4…2b5638 Dummy {f00=0x00ce, f01=0x0190, f02=»O,A13 P ST A4,MMTO,A13 P ST A5,MMFROM,A13 & P XIF @ P IFF CREDIT=0 L P ANKL A9,/FFFE EVEN ADDRESS b , P ST A9,LSTADR,A13 SAVE END OF FREE AREA P P P . P* RESERVE SPACE FOR REAL T:A- AND U:BTAB * P
0x2b5638…2b57cc Dummy {f00=0x00ce, f01=0x0190, f02=» h P P CALL MMENT P ST A9,TTAB,A13 $ * P ST A1,FYSPAG,A13 SAVE PHYSICALL PAGE < * P LD A3,SAVE05,A13 GET LENGTH OF T:ATAB j P LDR A5,A3 SAVE * P CALL MOVING RESERVE SPACE FOR T:ATAB $ P TL* MMTO,A13 SET CORRECT TABLE " P E
0x2b57cc…2b5960 Dummy {f00=0x00ce, f01=0x0190, f02=»T P:MTAB ADDRESS $ P ES A2,T:ATAB,A9 STORE IN P:MTAB $ P* RESERVE PLACE FOR T:AID TABLE @ P h P LDR A3,A5 GET LENGTH p P CALL MOVING P TL* MMTO,A13 P LDR A3,A9 GET P:MTAB & P ADK A3,T:AID ADD TO ADDRESS WORD 0 P ESR A5,
0x2b5960…2b5af4 (2, 114) Dummy {f00=0x00cf, f01=0x0190, f02=»DIT=0 ( P LD A3,SAVE06,A13 GET U:BTAB LENGTH P LDR A5,A3 SAVE : P CALL MOVING RESERVE SPACE R 4 P ST A2,U:BTNW,A13 SAVE NEW (REAL) U:BTAB ADDRESS t P IFT CREDIT-MMUPAG=1 P STR A5,A2 STORE LENGTH P ADK A2,2 : P ST A2,U:BTAB,
0x2b5af4…2b5c88 Dummy {f00=0x00cf, f01=0x0190, f02=»VE SPACE FOR T:ATAB ~ " P STR A5,A2 STORE T:ATAB LENGTH . P ST A2,T:ATNW,A13 SAVE NEW T:ATAB ADDRESS B P ADK A2,2 t & P ST A2,T:ATAB,A9 SAVE REAL ADDRESS P* RESERVE FOR T:AID TABLE P P LDR A3,A5 LENGTH P CALL MOVING P
0x2b5c88…2b5e1c Dummy {f00=0x00cf, f01=0x018e, f02=» CREDIT+MMUPAG=2 $ P TL* MMTO,A13 SET CORRECT TABLE P ESR A5,A2 STORE LENGTH @ P ADK A2,2 SKIP LENGTH WORD ` $ P ES A2,U:BTAB,A9 STORE IN P:MTAB P XIF P IFT SWPBLK+CREDIT=2 P* * P* RESERV SPACE FOR REAL S:BTAB TABLE
0x2b5e1c…2b5fb0 Dummy {f00=0x00cf, f01=0x0190, f02=» P IFT CREDIT+MMUSWB=3 P TL* MMTO,A13 $ P ESR A5,A2 : P ADK A2,2 L P ES A2,S:BTAB,A9 ^ P CALL B:RSWT v P XIF P IFT CREDIT+SWBMMU=2 P STR A5,A2 P ADK A2,2 P ST A2,S:BTAB,A9 P CALL B:RSWT P XIF
0x2b5fb0…2b6144 Dummy {f00=0x00cf, f01=0x0190, f02=»ILD COMMON DATA AREA * P************************** P* SEARCH CWB'S: @ P X ( P LD A8,T:ATOD,A13 GET T:ATAB ADDRESS d P IFT CREDIT-MMUPAG=1 P LDR* A3,A8 GET LENGTH P XIF P IFT CREDIT+MMUPAG=2 P ELR A3,A8 GET LENGTH
0x2b6144…2b62d8 Dummy {f00=0x00cf, f01=0x0190, f02=»UWB,A13 INDICATE CWB-SCANNING P ADKL A8,2 & P CW A8,ENDADD,A13 ALL DONE? 8 P RF(E) CLADAT YES! $ P CALL T:DADD T:D-ADDRESS TO A12 v P IFT CREDIT-MMUPAG=1 " P LD A7,CWBMSK,A12 GET CWB-MASK P XIF P IFT CREDIT+MMUPAG=2 P
0x2b62d8…2b646c Dummy {f00=0x00cf, f01=0x0190, f02=» P CALL SKIFTA P RB SYA220 P EJECT . P < P H PUWBCOM EQU * T P* SEARCH UWB'S: h P* & P IM UWB,A13 INDICATE UWB-SCANNING P IFT CREDIT-MMUPAG=1 P LD A7,UWBMSK,A12 P XIF P IFT CREDIT+MMUPAG
0x2b646c…2b6600 Dummy {f00=0x00cf, f01=0x0190, f02=»ALL MOVCOM PSYA240 CALL SKIFTA P RB SYA230 , P EJECT > P L * P* TASK CLASS DATA CONFIGURATION PART * X * P************************************** P PCLADAT EQU * 4 P LD A8,T:ATOD,A13 SET POINTER TO LENGTH INT:ATAB P
0x2b6600…2b6794 (2, 115) Dummy {f00=0x00cf, f01=0x0190, f02=» RF(E) SYA270 ALL T:A'S DONE ( P CALL T:DADD GET T:D ADDRESS TO A12 $ P P P* CALCULATE LENGTH OF T:D X P z 2 P LD A1,WATLEN,A12 NUMBER OF BYTES-1 IN DBLKTAB P ADK A1,2 P ANKL A1,/FFFE EVEN ADDRESS ( P ADK A1,DWBFST+4 ADD DISPL
0x2b6794…2b6928 Dummy {f00=0x00cf, f01=0x0190, f02=» GET STARTPOINTS RECORD LENGTH P CALL MULT AND MULTIPLY & P ADK A3,2 'NUMBER-WORD' F P ADR A3,A1 =>LENGTH f P LDR A1,A12 FROM-ADDRESS P CALL MOVING MOVE T:D P LDR* A1,A8 GET T:A ADDRESS * P ST A2,T:DAD,A1 STORE NEW T:D ADDRES
0x2b6928…2b6abc Dummy {f00=0x00cf, f01=0x018e, f02=» $ P LD A1,SCTSFA SHADOW TABLE START & P AD* A1,SCTSFA ADDRESS TABLE START , P ST A1,SAVE06,A13 SAVE V " PSYA250 CM UWB,A13 INDICATE CWB t ( P ADKL A8,2 STEP TO NEXT T:A ADDRESS P CW A8,ENDADD,A13 " P RF(E) SYA270 ALL T:A'S DONE! " P C
0x2b6abc…2b6c50 Dummy {f00=0x00cf, f01=0x0190, f02=» | & P ADK A1,2 INCREMENT TABLE POINTER P ST A1,SAVE06,A13 RESTORE 2 P STR A2,A1 FILL TABLE T ( P CALL T:DADD GET T:D ADDRESS TO A12 r 4 P ST A12,T:DSAV,A9 SAVE 'OLD' T:D-ADDRESS IN TTAB P P* CALCULATE LENGTH OF T:D P 2 P
0x2b6c50…2b6de4 Dummy {f00=0x00cf, f01=0x0190, f02=»TO FIRST t , P LDR A3,A1 GET NUMB. OF START-POINTS... P ADR A3,A12 . @ P ELR A3,A3 . V 0 P LDK A2,STPREC GET STARTPOINTS RECORD LENGTH j P CALL MULT AND MULTIPLY P ADK A3,2 'NUMBER-WORD' P ADR A3,A1 =>LENGTH P LDR A1,A12 FR
0x2b6de4…2b6f78 Dummy {f00=0x00cf, f01=0x0190, f02=»WBMSK,A12 GET CWBMASK P XIF P IFF CREDIT=0 * P CALL MOVCLA @ P EJECT T P b P n P* TASK CLASS DATA UWB'S * z P************************* & P IM UWB,A13 INDICATE UWB SCANNING P IFT CREDIT-MMUPAG=1 " P LD
0x2b6f78…2b710c Dummy {f00=0x00cf, f01=0x0190, f02=»ALL MOVCLA P EJECT P P , " P* MOVE DT:S OF SWB'S & TWB'S * 8 " P****************************** ^ P PSYA260 EQU * P IFT CREDIT-MMUPAG=1 P LD A7,SWBMSK,A12 P RF(Z) SYA265 NONE P CALL SKRITT PSYA2
0x2b710c…2b72a0 Dummy {f00=0x00cf, f01=0x0190, f02=» PSYA265 EL A7,TWBMSK,A12 P XIF $ P IFF CREDIT=0 0 P RB(Z) SYA250 F P CALL SKRITT P RB SYA250 p P PSYA270 RF PRODAT P EJECT P P 4 P** S K R I T T ** 4 P**
0x2b72a0…2b7434 (2, 116) Dummy {f00=0x00cf, f01=0x0190, f02=» ** t 4 P*********************************************** PSKRITT EQU * T P CALL SHIFT h PNO RF(NZ) NES | P RTN A14 PNES CALL GETWB P CALL MOVDT . P CM NEWAD2,A13 NO NEW W.B.-ADDRESS (YET!) P CALL MOVD
0x2b7434…2b75c8 Dummy {f00=0x00cf, f01=0x0190, f02=»********* x PPRODAT EQU * P =00001 & , P LD A1,SAVE02,A13 BUGGER TASK INCLUDED? 8 P RF(Z) SYA275 NO! h 2 P CALL GETTTB GET TTAB ADDRESS. TID 'TB' IN A1 & P CM TTB:PP,A2 CLEAR TCL SAVE AREA P LDR A8,A2 SAVE TTAB-ADDRESS P X
0x2b75c8…2b775c Dummy {f00=0x00cf, f01=0x0190, f02=»R TRABUG-T:A t P CALL MOVING GET P:BAS P IFT CREDIT-MMUPAG=1 2 & P LD A1,SCTLAC GET START OF P:MTAB N P LD A1,P:BAS,A1 GET P:BAS x $ P STR A1,A2 SAVE IN TRABUG'S T:A " P LD A1,SCTOPT GET OPTION WORD P ANK A1,2 DISC PAGING? P R
0x2b775c…2b78f0 Dummy {f00=0x00cf, f01=0x0190, f02=»,CSB ADD DISPL. TO CURRENT SEGMENT BAE P ST A2,TTB:SA+26,A8 SAVE A13 . P IFT CREDIT+MMUPAG=2 R & P LD A1,SCTLAC GET START OF P:MTAB n $ P TL* MMTO,A13 LOAD CORRECT TABLE P EL A1,P:BAS,A1 GET P:BAS ( P TL MMBEG,A8 LOAD TRABUG'S MMU-TABLE
0x2b78f0…2b7a84 Dummy {f00=0x00cf, f01=0x0190, f02=»001 ~ PSYA275 EQU * P =00001 P =00001 2 0 P IM SWITCH,A13 INDICATE: -NO MORE D.T. MOVE! D $ P LD A8,T:ATOD,A13 T:ATAB ADDRESS x PSYA280 ADKL A8,2 P CW A8,ENDADD,A13 P RF(E) SYA290 ALL DONE P IFT CREDIT-MMUPAG=1
0x2b7a84…2b7c18 Dummy {f00=0x00cf, f01=0x0190, f02=»CALCULATE LENGTH OF DSCB'S * " P*** *** $ P J P LDR* A1,A8 GET T:A-ADDRESS V & P LD A3,DATLEN,A12 A12=T:D-ADDRESS z P LDK A2,DSCBL DSCB-LENGTH ( P CALL MULT A3() X (A2) RESULT IN A3 & P ST A3,CSN,A1 SAVE LEN
0x2b7c18…2b7dac Dummy {f00=0x00cf, f01=0x0190, f02=» , P ADKL A2,T:ASTA INCREMENT TO FIRST WORD 6 PSYA285 ST A2,CIA,A1 SAVE DISPLACEMENT TO T:A-START 4 " P LD A2,STKB,A1 GET STACK SIZE n $ P ST A2,CSE,A1 AND SAVE TEMPORARY * P LD A2,SCTLAC GET START OF COMMON PART P LD A2,P:BAS,A2 GET P:BAS
0x2b7dac…2b7f40 Dummy {f00=0x00cf, f01=0x018e, f02=»ATAB n P XIF P IFT CREDIT+MMUPAG=2 * P CALL GETTAB SET CORRECT TTAB-ADDRESS 4 , P LD A12,T:DSAV,A2 GET 'OLD' T:D-ADDRESS b P 2 P* GET LAST USED ENTRY IN CLASS-LOCAL MM-TABLE P ( P TL MMBEG,A2 LOAD CLASS LOCAL TABLE * P LDK
0x2b7f40…2b80d4 (2, 117) Dummy {f00=0x00cf, f01=0x0190, f02=» n P CALL MMENT GET ENTRY " P ST A3,T:DSAV,A2 SAVE IN TTAB & 0 P CALL TWBSWB MOVE TWB'S & RESERVE FOR SWB'S L " P* CALCULATE LENGTH OF DSCB'S * " P*** *** P P ELR A1,A8 GET T:A-ADDRESS & P EL A3,DATLEN,
0x2b80d4…2b8268 Dummy {f00=0x00cf, f01=0x0190, f02=»B'S r ( P EL A2,FCD,A12 GET FCB-DISPLACEMENT P RF(NZ) SYA285 FCB PRESENT 8 & P SUR A2,A3 MOVD30E A3(DSCB-LENGTH) Z , P ADKL A2,T:ASTA INCREMENT TO FIRST WORD 6 PSYA285 ES A2,CIA,A1 SAVE DISPLACEMENT TO T:A-ESART " P EL A2,STKB,A1 GET STACK S
0x2b8268…2b83fc Dummy {f00=0x00cf, f01=0x0190, f02=» EL A2,P:BAS,A2 GET P:BAS & P TL* MMFROM,A13 RELOAD DDIV TABLE " P ES A2,CSB,A1 AND SAVE L " P CALL ALLBUF ALLOCATE BUFFERS j P CALL MOVT:A MOVE T:A * P ESR A2,A8 STORE NEW ADDRESS IN T:ATAB P XIF P IFF CREDIT=0 P RB SYA280
0x2b83fc…2b8590 Dummy {f00=0x00cf, f01=0x018e, f02=»REE AREA p P . P LDKL A2,PART2A NEW (RELATIVE) END ADDRESS P ADR A2,A13 ABSOLUT DITO J P IFT CREDIT+MMUPAG=2 j P LDR A3,A2 P ANKL A3,/F000 $ P SRL A3,2 GET NEW PHYSICALL PAGE P ST A3,FSTPAG,A13 SAVE ( P ANKL A2,/FFF GET NE
0x2b8590…2b8724 Dummy {f00=0x00cf, f01=0x0190, f02=» P IFT CREDIT-MMUPAG=1 * P ST A2,DATEND,A13 SAVE NEW END ADDRESS $ P* MOVE T:ATAB R P h . P LD A2,T:ATNW,A13 GET REAL T:A-TAB ADDRESS p P LDR* A1,A2 REAL LENGTH $ P ADR A2,A1 END OF TABLE ADDRESS P ST A2,ENDADD,A13 SAVE & P
0x2b8724…2b88b8 Dummy {f00=0x00cf, f01=0x0190, f02=»ALL MOVE P XIF P IFT CREDIT+MMUPAG=2 $ P TL* MMTO,A13 LOAD CORRECT TABLE 8 & P ELR A1,A2 GET REAL T:ATAB LENGTH ` P TL* MMFROM,A13 RELOAD TABLE P ADR A2,A1 END ADDRESS 4 P ST A2,ENDADD,A13 SAVE 'END-OF-T:ATAB-CONDITION' * P LD
0x2b88b8…2b8a4c Dummy {f00=0x00cf, f01=0x0190, f02=»L XMOVE P XIF P IFF CREDIT=0 P 2 P* CONTINUE IN PART 2.B * : P Z * P LDKL A5,PART2B RELATIVE START ADDRESS b P ADR A5,A13 ADD BASE ADDRESS P ABR A5 & PLENGT2 EQU *-REL LENGTH OF PART 2 P EJECT P P
0x2b8a4c…2b8be0 Dummy {f00=0x00cf, f01=0x0190, f02=» ** 2 P* SYSLOAD PART 1 * & 2 P** ** 2 P***** ***** 2 P********************************************* P 2
0x2b8be0…2b8d74 (2, 118) Dummy {f00=0x00d0, f01=0x0190, f02=» * v 2 P********************************************* P R P XIF ^ P j P v * P************************************* * P*** *** * P** S U B R O U T I N E S **
0x2b8d74…2b8f08 Dummy {f00=0x00d0, f01=0x018e, f02=» C O N V R T ** 6 P** ** 6 6 P** ** p 6 P** CONVERSION OF TWO ASCII-DIGITS TO BINARY ** 6 P**
0x2b8f08…2b909c Dummy {f00=0x00d0, f01=0x0190, f02=» 6 P** WORK.REGS: A3,A2 ** 6 P************************************************** > P x PCONVRT EQU * P LDK A1,0 CLEAR RESULT REG P LDR A3,A5 P SRL A3,8 GET TEN'S P SUK A3,/30 P ADR A1,A3
0x2b909c…2b9230 Dummy {f00=0x00d0, f01=0x0190, f02=»'S ~ P ADR A1,A3 P RTN A14 P EJECT , P : 6 P** N X T B L K ** B 6 P** ** | 6 P** ** 6 P** SKIP TO NEXT BLOCK I
0x2b9230…2b93c4 Dummy {f00=0x00d0, f01=0x018e, f02=»T ** d 6 P** OUTPUT:A11=ADDRESS TO NEXT BLOCK ** 6 P** A2=BLOCK TYPE (T,C,U) IN RIGTH BYTE ** H 6 P** WORKREGS: A1,A3-A5 ** 6 P************************************************** P PNXTBLK EQU
0x2b93c4…2b9558 Dummy {f00=0x00d0, f01=0x0190, f02=» P SLL A5,8 P LC A5,1,A11 P CALL CONVRT . P LDK A2,TDBREC B P LDR A3,A1 X P CALL MULT j P ADR A11,A3 | P ADKL A11,2 0 P LCR A5,A11 GET NUMBER OF SPEC, DEV. CLASSES P SLL A5,8 P LC A5,1,A11 P CALL CONV
0x2b9558…2b96ec Dummy {f00=0x00d0, f01=0x0190, f02=»1,2 $ P LC A2,TDBBT,A11 GET BLOCK TYPE P RTN A14 4 P D P P 8 P** G E T N U M ** 8 P** ** 8 P** **
0x2b96ec…2b9880 Dummy {f00=0x00d0, f01=0x0190, f02=»T : A6=ADDRESS TO FIRST ASCII-CHARACTER ** 8 P** OUTPUT: A5=BINARY VALUE ** 4 8 P** WORK.REGS: A2,A4 ** p 8 P**************************************************** P PGETNUM EQU * P
0x2b9880…2b9a14 (2, 119) Dummy {f00=0x00d0, f01=0x0190, f02=»CR A2,A6 GET CHAR P ANK A2,/F PGET050 SUK A2,1 , " P RF(N) GET100 THIS DIGIT READY D P ADR A5,A4 ACCUMULATE j P RB GET050 , PGET100 SUK A4,90 NEXT INCREMENT (TEN'S) P RB(P) GET030 & P ADK A4,81 NEXT INCREMENT (ONE'S)
0x2b9a14…2b9ba8 Dummy {f00=0x00d0, f01=0x0190, f02=»O 1:ST USER TASK TTAB-ADDRESS ~ $ P* SAVE09=EXECUTION START ADDRESS & P N " PSYSLDX EQU *-REL PROGRAM START Z P* P* INIT A15 STACK P* P LD A15,SCTSTB P SUKL A15,4 P & P LD A2,SCTLAC GET S:GTAB (IF ANY)
0x2b9ba8…2b9d3c Dummy {f00=0x00d0, f01=0x018e, f02=»L A2,CREID,A2 P XIF 2 P CM SWITCH,A13 RESET SAVE-AREAS USED IN SYSLDM " P CM FLAG,A13 X $ P CWK A2,'CR' CREDIT APPLICATION? l ( P RF(E) SYA100 YES! START CONFIGURATE P IFF CREDIT=1 P P* ASSEMBLER APPLICATION P P*
0x2b9d3c…2b9ed0 Dummy {f00=0x00d0, f01=0x0190, f02=» v P LDKL A4,/00C0 P STR A4,A15 PUT PSW ON STACK P RTN A15 B PSYA103 EQU *-REL R P XIF j P IFT MMUPAG-CREDIT=1 v ( P LDKL A4,MMTAB GET MM-TABLE ADDRESS P ADR A4,A13 RELOCATE P ST A4,MMFROM,A13 SAVE ( P* FILL MM-TABLES
0x2b9ed0…2ba064 Dummy {f00=0x00d0, f01=0x0190, f02=» 0 P SU A3,SCTTCT GET DISPLACEMENT TO 1:ST USER * P SUR A5,A3 => LENGTH OF TC:TAB TO SCAN < P* j P* INIT UNUSED MMU ENTRIES t P* P LDKL A1,/FC00 P LDKL A2,MMTAB P ADR A2,A13 P LDR A4,A2 =00002 P SUKL A4,MMBEG
0x2ba064…2ba1f8 Dummy {f00=0x00d0, f01=0x0190, f02=» SUK A5,2 ALL? P RF(N) SYA107 YES! P LDR* A2,A6 TTAB-ADDRESS 0 P CALL MOVMMT MOVE MM-TABLE P P ADK A6,2 NEXT TTAB r P RB SYA105 PSYA107 EQU * P XIF P IFF CREDIT=1 2 P LD* A5,SAVE02,A13 1:ST USER TASK TTAB ADDRESS
0x2ba1f8…2ba38c Dummy {f00=0x00d0, f01=0x018e, f02=»5,ACTOT QUEUE TASK " P LDKL A1,FINISH END OF SYSLDA P ADR A1,A13 @ P ABR A1 T P XIF d PSYA100 EQU * p P IFF CREDIT=0 P EJECT P , P* READ CONFIG FILE AND BUILD SHADOWTABLE P 0 P CM SAVE02,A13 CLEAR 'BU
0x2ba38c…2ba520 Dummy {f00=0x00d0, f01=0x0190, f02=» & P SUKL A12,2 ADJUST FOR LENGTH-WORD P ST A12,T:ATOD,A13 SAVE . , P LD A4,U:BTAB,A2 GET U:BTAB FROM P:MTAB N " P SUK A4,2 INCLUDE LENGTH-WORD ~ $ P ST A4,U:BTOD,A13 SAVE IN SYSLDA P XIF P IFT CREDIT+SWBMMU=2 ( P LD A4,S:BTAB,A2 GET
0x2ba520…2ba6b4 (2, 120) Dummy {f00=0x00d0, f01=0x0190, f02=»T:ATAB PROCESSING: P P LDR* A4,A12 T:ATAB-LENGTH & P LDR A3,A4 SAVE H * P AD A3,SCTSFA ADD MONITOR END ADDRESS ` P* CHECK ADDRESSES P " P LDR A11,A3 END OF SHADOW-TAB P LDR A9,A13 START OF SYSLDA P CALL CMPADR
0x2ba6b4…2ba848 Dummy {f00=0x00d0, f01=0x0190, f02=»DK A2,0 P* CLEAR T:ATAB SHADOW-TABLE: P 4 PZERO SUK A3,2 NEXT @ P STR A2,A3 CLEAR Z P CW A3,SCTSFA ALL? r P RB(NE) ZERO NO! " P STR A4,A3 STORE TABLE LENGTH ( P LD A11,SAVE01,A13 GET CONFIG START " P LC A2,TDBBT,A11 G
0x2ba848…2ba9dc Dummy {f00=0x00d0, f01=0x018e, f02=»20 LC A2,TDBMC+4,A11 GET TASK ID P SLL A2,8 . ( P LC A2,TDBMC+5,A11 ... < P CWK A2,'TB' BUGGER TASK? Z P RF(NE) SYA125 NO! | : P ST A2,SAVE02,A13 INDICATE BUGGER TASK PRESENT =00001 " P RF SYA136 SKIP TO NEXT BLOCK PSYA125 LDR A8,
0x2ba9dc…2bab70 Dummy {f00=0x00d0, f01=0x0190, f02=» P RF(NZ) SYA135 ! 0 P LDK A1,LMP5 NO PROTOTYPE FOUND (TID ERROR) ! P CALL ERROR ! N PSYA135 EQU * ! b P CW A2,T:ATID,A6 TID EQUAL? ! v P RB(NE) SYA130 NO! ! P SUR* A4,A12 T:ATAB LENGTH ! P XIF ! P IFT CREDIT+MMUPAG=2 ! & P EL* A2,SC
0x2bab70…2bad04 Dummy {f00=0x00d0, f01=0x018e, f02=»IN SYSLDA ! x $ P EL A4,U:BTAB,A2 U:BTAB ADDRESS " $ P SUK A4,2 ADJUST FOR LENGTH WORD " : $ P ST A4,U:BTOD,A13 SAVE IN SYSLDA " b P XIF " P IFT CREDIT+MMUSWB=3 " ( P EL A4,S:BTAB,A2 GET S:BTAB ADDRESS " $ P SUK A4,2 ADJUST FOR LENGTH WORD " P S
0x2bad04…2bae98 Dummy {f00=0x00d0, f01=0x0190, f02=» " t P LDR A3,A4 SAVE # 0 P SLL A3,1 RESERVE FOR MM-TABLE ADDRESS TABLE # * P AD A3,SCTSFA ADD MONITOR END ADDRESS # T P* CHECK ADDRESSES # P # $ P LDR A11,A3 END OF SHADOW-TABLE # P LDR A9,A13 START OF SYSLDA # P CALL CMPADR # P RF(
0x2bae98…2bb02c Dummy {f00=0x00d0, f01=0x0190, f02=»AB SHADOW-TABLE: # P $ PSYA115 SUK A3,2 NEXT $ $ P CMR A3 CLEAR $ @ P CW A3,SCTSFA ALL? $ V P RB(NE) SYA115 NO! $ p " P STR A4,A3 STORE TABLE LENGTH $ ( P LD A11,SAVE01,A13 GET CONFIG START $ " P LC A2,TDBBT,A11 GET BLOCKTYPE $ P CCK A
0x2bb02c…2bb1c0 Dummy {f00=0x00d0, f01=0x0190, f02=»ASK ID $ r P SLL A2,8 . % P LC A2,TDBMC+5,A11 ... % " P CWK A2,'TB' BUGGER TASK? % @ P RF(NE) SYA125 NO! % b 4 P ST A2,SAVE02,A13 INDICATE 'BUGGER TASK PRESENT' % | P RF SYA136 SKIP THIS BLOCK % PSYA125 LDR A8,A12 SAVE % P ELR A4,A12 T:ATAB L
0x2bb1c0…2bb354 (2, 121) Dummy {f00=0x00d0, f01=0x0190, f02=»O PROT. FOUND (TID ERROR) % P CALL ERROR & " PSYA135 EQU * & 6 P EL A10,T:ATID,A6 GET TID & J P CWR A2,A10 TID EQUAL? & l P RB(NE) SYA130 NO! & P ELR A10,A12 & P SUR A4,A10 T:ATAB LENGTH & P XIF & P IFF CREDIT=0 & . P NGR A4,A4 =
0x2bb354…2bb4e8 Dummy {f00=0x00d0, f01=0x0190, f02=»RT & ( P LD A2,SCTSFA START OF SHADOW TABLE ' P ADR A2,A4 ' 6 6 P ADRS A1,A2 STORE NUMBER OF TASKS IN SHADOW TABLE ' H P ' P* SKIP TO NEXT BLOCK ' P ' PSYA136 CALL NXTBLK ' PSYA137 EQU * ' P CCK A2,'TT' ' & P RB(E) SYA120 NE
0x2bb4e8…2bb67c Dummy {f00=0x00d0, f01=0x0190, f02=»ON DEF ' z PSYA140 CCK A2,'UU' ( P RF(NE) SYA141 NO UWB'S ( ( 2 P LD A8,U:BTOD,A13 GET MODIFIED U:BTAB ADDRESS ( H 6 P CALL USWBTP INSERT NUMBER OF COPIES IN PROTOTYPE ( ~ PSYA141 EQU * ( P XIF ( P IFT CREDIT+SWPBLK=2 ( P LCR A2,A11 ( P
0x2bb67c…2bb810 Dummy {f00=0x00d0, f01=0x0190, f02=» P EJECT ) L P*********************************************************************** ) L P* * ) b L P* USWBTP - INSERT NUMBER OF COPIES IN U:BTAB/S:BTAB PROTOTYPE TABLE * ) L P* ===
0x2bb810…2bb9a4 Dummy {f00=0x00d0, f01=0x0190, f02=» * ) R L P* REFERENCED IN: SYSLDA * * L P* * * b L P* ENTRY: A8 - MODIFIED ADDRESS TO U:BTAB/S:BTAB PROTOTYPE TABLE * * L P*
0x2bb9a4…2bbb38 Dummy {f00=0x00d0, f01=0x0190, f02=» * * R L P* EXIT: * + L P* * + b L P* WORK REGISTERS: * + L P*
0x2bbb38…2bbccc Dummy {f00=0x00d0, f01=0x0190, f02=» * + R L P* * , L P*********************************************************************** , b P , PUSWBTP EQU * , P , P XIF , P IFT CREDIT-MMUPAG=1 , P ADKL A11,
0x2bbccc…2bbe60 Dummy {f00=0x00d0, f01=0x0190, f02=» LDR A12,A8 , " P LDR* A3,A12 LENGTH OF U:BTAB - ( P ADKL A11,UDBFST-1 FIRST UDB RECORD - : PSYA145 EQU * - f 0 P LCR A2,A11 GET FIRST CHARACTER FROM CONFIG - z P SLL A2,8 - P LC A2,1,A11 GET 2:ND CHAR - 6 P CW A2,UPNAME,A12 COMPARE W. 1:ST WORD
0x2bbe60…2bbff4 (2, 122) Dummy {f00=0x00d1, f01=0x0190, f02=» P LDK A1,LMP6 UWB NOT FOUND . P CALL ERROR . & PSYA150 EQU * . : ( P ADKL A12,UP:REC ADD TO NEXT RECORD . N P RB SYA145 . z $ PFRSTOK LC A2,2,A11 GET 3:RD CHAR . P CC A2,UPNAME+2,A12 . P RB(NE) SYA147 .NEQ. . P EJECT . P . P*
0x2bbff4…2bc188 Dummy {f00=0x00d1, f01=0x0190, f02=»RT . ~ 2 P SC A5,UPNUMB,A12 SAVE IN U:BTAB (SHADOWTABLE) / . P SUK A1,1 DEC. NO OF TYPES IN CONFIG FILE / @ P RB(P) SYA142 / r P ADKL A11,UDBFST-1 / P RTN A14 / P XIF / P IFT CREDIT+MMUPAG=2 / P ADKL A11,1 / P LDR A6,A11 / * P CALL
0x2bc188…2bc31c Dummy {f00=0x00d1, f01=0x0190, f02=»LR A3,A12 LENGTH OF U:BTAB / ( P ADKL A11,UDBFST-1 FIRST UDB RECORD 0 " PSYA145 EQU * 0 N 0 P LCR A2,A11 GET FIRST CHARACTER FROM CONFIG 0 b P SLL A2,8 0 P LC A2,1,A11 GET 2:ND CHAR 0 2 P EL A10,UPNAME,A12 GET FIRST WORD IN PROTOTYPE 0 P CWR A2,
0x2bc31c…2bc4b0 Dummy {f00=0x00d1, f01=0x0190, f02=»WB NOT FOUND 0 P CALL ERROR 1 PSYA150 EQU * 1 ( ( P ADKL A12,UP:REC ADD TO NEXT RECORD 1 < P RB SYA145 1 h 2 PFRSTOK LC A10,2,A11 GET 3:RD CHAR FROM CONFIG 1 z 0 P EL A2,UPNAME+2,A12 GET 3:RD CHAR FROM PROY 1 P SRL A2,8 1 P ANKL A10,/FF 1
0x2bc4b0…2bc644 Dummy {f00=0x00d1, f01=0x0190, f02=» 1 8 P ADKL A11,NAMUWB SKIP TO 'NUMBER OF BOCKS' IN CONFIG 2 P LDR A6,A11 2 F P CALL GETNUM CONVERT 2 Z 4 P EL A10,UPNUMB-1,A12 SAVE IN U:BTAB SHADOW-TABLE 2 v P ANKL A10,/FF00 2 P ORR A10,A5 2 P ES A10,UPNUMB-1,A12 2 . P SUK A1,1 DEC. NO
0x2bc644…2bc7d8 Dummy {f00=0x00d1, f01=0x0190, f02=» 2 PSYA152 EQU * 3 P 3 & P* GET START OF SYSLOAD AFTER MOVE 3 $ P 3 N P XIF 3 Z P IFT CREDIT-MMUPAG=1 3 f , P LD* A7,T:ATOD,A13 GET LENGTH OF T:ATAB 3 P XIF 3 P IFT CREDIT+MMUPAG=2 3 ( P EL* A7,T:ATOD,A13 GET T:ATAB LENGTH 3 * P S
0x2bc7d8…2bc96c Dummy {f00=0x00d1, f01=0x0190, f02=»7,1 3 P ANKL A7,/FFFE EVEN ADDRESS 4 P 4 0 P* CALCULATE RELOCATION 4 8 P 4 V P LDR A2,A13 4 ^ $ P SUR A2,A7 MOVE-LENGTH (SYSLDA) 4 r P NGR A2,A2 4 4 P ST A2,SAVE04,A13 SAVE NEW RELOCATION TEMPORARY 4 P IFT CREDIT+MMUPAG=2 4 & P* CREATE
0x2bc96c…2bcb00 Dummy {f00=0x00d1, f01=0x0190, f02=» PHYSICAL PAGE 4 z " P SRL A2,2 SHIFT FOR MM-PAGING 5 P LDKL A11,MMDDIV 5 < . P ADR A11,A13 GET MM-TABLE START ADDRESSS= 5 T P LDK A3,16 SET COUNTER 5 ( PSYA157 STR A2,A11 STORE PAGE-POINTER 5 P ADKL A11,2 NEXT ENTRY 5 P ADKL A2,/400 PAGE INCREME
0x2bcb00…2bcc94 (2, 123) Dummy {f00=0x00d1, f01=0x0190, f02=» ST A7,SAVE12,A13 SAVE (LOGICAL) TO-ADDRESS 5 . P ADKL A7,LENGT2 ADD LEN. OF SYSLDA TO MOVE 6 4 , P ST A7,SAVE03,A13 SAVE NEW DDIV ADDRESS 6 f P LDR A6,A7 6 $ P* CALCULATE DDIV FROM-ADDRESS * 6 P 6 P LD A1,SCTLAC GET S:GTAB 6 * P ST A1,SAVE13,
0x2bcc94…2bce28 Dummy {f00=0x00d1, f01=0x0190, f02=»S 6 n P XIF 7 P IFT CREDIT+MMUPAG=2 7 ( P EL A3,NUMSEG,A1 NUMBER OF SEGMENTS 7 2 P XIF 7 ^ P IFF CREDIT=0 7 j . P LDK A2,SEGREC SEGMENT BLOCK RECORD LENGTH 7 P CALL MULT 7 P ADR A1,A3 7 & P ADK A1,NUMSEG+2 => START OF DDIV 7 2 P LD A2,S
0x2bce28…2bcfbc Dummy {f00=0x00d1, f01=0x018e, f02=»T A1,SAVE04,A13 SAVE DDIV 'FROM'-ADDRESS 7 P XIF 8 0 P IFT CREDIT-MMUPAG=1 8 < , P ST A1,SAVE04,A13 SAVE DDIV FROM-ADDRESS 8 X P XIF 8 P IFF CREDIT=0 8 " P SUR A6,A1 RELOCATION FOR DDIV 8 P EJECT 8 P 8 P 8 P 8 0 P* RELOCATE
0x2bcfbc…2bd150 Dummy {f00=0x00d1, f01=0x0190, f02=» 8 d . P* A9=P:MTAB A6=MOVE-RELOC * 9 . P***************************************** 9 : P IFT CREDIT-MMUPAG=1 9 l P 9 P* INITIATE POINTERS 9 P 9 ( P LD A8,T:ATOD,A13 GET T:ATAB ADDRESS 9 P LDR* A3,A8 GET LENGTH 9 P ADR A3,A8
0x2bd150…2bd2e4 Dummy {f00=0x00d1, f01=0x0190, f02=» LDR A2,A8 2:ND POINTER IN T:ATAB 9 & P LDK A3,2 SET 'NEW' T:ATAB COUNTER : * . P SUR A11,A11 CLEAR REAL LENGTH ACCUMULATOR : T P : P* SCAN T:ATAB: : P : " PSYA160 ADKL A8,2 TAKE NEXT T:A : $ P ADK A5,2 NEXT T:A IN SHADOW-TAB : P CW A8,ENDADD,
0x2bd2e4…2bd478 Dummy {f00=0x00d1, f01=0x0190, f02=»:A IS NOT USED!!!!! : | " P ADR A11,A7 ACCUMULATE LENGTH ; , P ADK A3,2 INCREMENT 'NEW' T:ATAB LENGTH ; B , P ADK A4,2 UPDATE 2:ND SHADOW-TAB ADDRESS ; r ( P ADK A2,2 UPDATE 2:ND T:ATAB ADDRESS ; 8 P STR A7,A4 STORE NUMBER OF T:A'S (EV. ON NEW PLACE) ;
0x2bd478…2bd60c Dummy {f00=0x00d1, f01=0x0190, f02=»ESSES ; | P < $ P LD A12,T:DAD,A1 GET T:D-ADDRESS < $ P LD A7,WATLEN,A12 LENGTH OF WAT < > . P ADK A1,WATFST+2 ADD TO FIRST W.B.-ADDRESS < f PSYA165 SUK A7,1 DEC. COUNTER < P RB(N) SYA160 TAKE NEXT T:A < P ADRS A6,A1 RELOCATE < P XIF < P
0x2bd60c…2bd7a0 Dummy {f00=0x00d1, f01=0x0190, f02=»DR A3,A8 END OF T:ATAB < P ST A3,ENDADD,A13 SAVE = 0 P LD A5,SCTSFA GET START OF T:ATAB SHADOW-TAB = < P LDR A4,A5 2:ND POINTER = p & P LDR A2,A8 2:ND POINTER IN T:ATAB = & P LDK A3,2 SET 'NEW' T:ATAB COUNTER = . P SUR A11,A11 CLEAR REAL LENGTH ACCUM
0x2bd7a0…2bd934 (2, 124) Dummy {f00=0x00d1, f01=0x0190, f02=»,ENDADD,A13 = P RF(E) SYA170 ALL DONE > P ELR A1,A8 GET T:A > 2 * P LDR* A7,A5 GET CONTENTS OF SHADOW-TAB > L , P RB(Z) SYA160 THIS T:A IS NOT USED!!!!! > z " P ADR A11,A7 ACCUMULATE LENGTH > , P ADK A3,2 INCREMENT 'NEW' T:ATAB LENGTH > , P ADK A4,
0x2bd934…2bdac8 Dummy {f00=0x00d1, f01=0x0190, f02=» > P ELR A10,A8 GET T:A-ADDRESS ? P ADR A10,A6 RELOCATE ? , . P ESR A10,A2 STORE ADDR. (EV. ON NEW PLACE) ? H P* RELOCATE W.B.-ADDRESSES ? z P ? $ P EL A12,T:DAD,A1 GET T:D-ADDRESS ? $ P EL A7,WATLEN,A12 LENGTH OF WAT ? . P ADK A1,WATFST+2 ADD
0x2bdac8…2bdc5c Dummy {f00=0x00d1, f01=0x0190, f02=»DR A10,A6 RELOCATE ? P ESR A10,A1 @ P XIF @ . P IFF CREDIT=0 @ : P ADK A1,4 NEXT W.B. @ P P RB SYA165 @ l P @ ~ PSYA170 EQU * @ P ST A6,MOVADD,A13 SAVE @ 8 P ST* A3,SCTSFA STORE NEW TABLE LENGTH IN SHADOW-TAB @ P IFT CREDIT+MMUPAG=2
0x2bdc5c…2bddf0 Dummy {f00=0x00d1, f01=0x0190, f02=» P IFF CREDIT=0 A 0 P LDR A2,A11 GET NUMBER OF T:A'S ACCUMULATOR A ( P SLL A2,1 CALC. REAL LENGTH (BYTES) A N P ADK A2,2 A z 0 P ST A2,SAVE05,A13 SAVE TOT. NUMBER OF T:A'S A P A P EJECT A " P****************************** A $ P* RELOCA
0x2bddf0…2bdf84 Dummy {f00=0x00d1, f01=0x018e, f02=»AG=1 A $ P LD A5,U:BTOD,A13 U:BTAB ADDRESS B P LDR* A3,A5 LENGTH B 4 P ST A3,SAVE06,A13 B N P ADK A5,2 SKIP LENGTH WORD B h P SUK A3,2 -"- B " PSYA180 RF(Z) SYA185 ALL DONE! B P ADRS A6,A5 RELOCATE B P XIF B P IFT CREDIT+MMUPAG=2 B
0x2bdf84…2be118 Dummy {f00=0x00d1, f01=0x018e, f02=» B P SUK A3,2 SUB LENGTH-WORD C PSYA180 RF(Z) SYA185 C * P ELR A10,A5 GET ADDRESS C F P ADR A10,A6 RELOCATE C f P ESR A10,A5 C P XIF C P IFF CREDIT=0 C 8 P ADK A5,UP:REC ADD TO NEXT RECORD IN U:BTAB PROTOTYP C P SUK A3,UP:REC C
0x2be118…2be2ac Dummy {f00=0x00d1, f01=0x0190, f02=» C $ P LD A5,S:BTOD,A13 S:BTAB ADDRESS D " P ELR A3,A5 LENGTH OF PROTOTYPE D 0 P LDR A2,A3 SAVE D V " P SUK A3,2 EXCLUDE LENGTH WORD D n , PSYA190 RF(Z) SYA199 ALL RECORDS SCANNED! D $ P EL A4,2,A5 GET PROT. W.B.-ADDR. D P ADR A4,A6 RELOCATE D P
0x2be2ac…2be440 Dummy {f00=0x00d1, f01=0x0190, f02=»NO MOORE OF THIS TYPE! D | P ADK A2,2 INCREMENT LENGTH E ( P SUK A4,1 DECREMENT NUMBER OF COPIES E @ P RB SYA192 E l 8 PSYA194 ADK A5,UP:REC NEXT RECORD IN S:BTAB PROTOTYPE E ~ $ P SUK A3,UP:REC DECREMENT LENGTH E P RB SYA190 E P XIF E P IFT CRE
0x2be440…2be5d4 (2, 125) Dummy {f00=0x00d1, f01=0x0190, f02=»3,2 EXCLUDE LENGTH WORD E , PSYA195 RF(Z) SYA199 ALL RECORDS SCANNED! F $ P LD A4,2,A5 GET PROT. W.B.-ADDR. F P P ADR A4,A6 RELOCATE F x P ST A4,2,A5 STORE IT BACK F , P LD A4,UPNUMB-1,A5 GET NUMBER OF COPIES F P ANK A4,/FF F . PSYA196 RF(Z) S
0x2be5d4…2be768 Dummy {f00=0x00d1, f01=0x0190, f02=»98 ADK A5,UP:REC NEXT RECORD IN S:BTAB PROTOTYPE F $ P SUK A3,UP:REC DECREMENT LENGTH G 8 P RB SYA195 G ` P XIF G r P IFT CREDIT+SWPBLK=2 G ~ 0 PSYA199 ST A2,SAVE25,A13 SAVE COMPUTED LENGTH G P XIF G P IFT CREDIT=1 G P EJECT G P G 6 P*
0x2be768…2be8fc Dummy {f00=0x00d1, f01=0x0190, f02=»LK=2 G P ADS A6,S:BTOD,A13 H P XIF H & P IFT CREDIT-MMUPAG=1 H 2 P* CALCULATE NEW DDIV END H N P H n P LDR A5,A9 H v P SU A5,SAVE04,A13 END-START H $ P AD A5,SAVE12,A13 ADD NEW START H P ST A5,DATEND,A13 SAVE H P XIF H P IFT CREDI
0x2be8fc…2bea90 Dummy {f00=0x00d1, f01=0x0190, f02=» LDR A5,A13 CALC. REAL RELOCATION H P SU A5,SAVE12,A13 I * P SU A5,MMREL1,A13 I D P SUR A4,A5 RELOCATE I ^ P ST A4,MMTO,A13 AND SAVE I z P LDK A4,MMTAB I $ P ADR A4,A13 'WORK-TABLE' ADDRESS I P SUR A4,A5 RELOCATE I P ST A4,MMFROM,A13 I
0x2bea90…2bec24 Dummy {f00=0x00d1, f01=0x018e, f02=»T I r P LDR A6,A5 J 0 P ANKL A6,/F000 GET LOGICALL PAGE (MM-ENTRY) J $ P SRL A6,11 ADJUST FOR ADDRESSING J P . P ADK A6,MMDDIV ADD RELATIVE START ADDRESS J x P ADR A6,A13 RELOCATE J & P LDR* A6,A6 GET MM-TABLE CONTENTS J P ST A6,FSTPAG,A13 SAVE J
0x2bec24…2bedb8 Dummy {f00=0x00d1, f01=0x0190, f02=» J x P K . P LD A2,SAVE12,A13 GET TO-ADDRESS (SYSLDA) K ( P OR A2,MMREL1,A13 PHYSICALL ADDRESS K F P LDR A5,A2 SAVE K r 0 P LDKL A7,START2 GET EXECUTION START ADDRESS K P ADR A7,A2 K " P LDKL A3,LENGT2 SYSLDA LENGTH K P LDR A1,A13 FROM-A
0x2bedb8…2bef4c Dummy {f00=0x00d1, f01=0x4182, f02=»D K | P ADK A1,2 L P ADK A2,2 L P SUK A3,2 DEC. LENGTH L . P RB(NN) NXTMOV L L P XIF L b P IFT CREDIT+MMUPAG=2 L n P MVB A3 L P XIF L P IFF CREDIT=0 L P L * P ABR A7 HEJ SVEJS! VI SES I PART 2... L P XIF L P IFT CREDI
0x2bef4c…2bf0e0 Dummy {f00=0x00d1, f01=0x2008, f02=» M -ADDRESS w v PHINKAS SUK A1,1 DEC. COUNTER x P RB(N) HINKA TAKE NEXT T:A x < P ADRS A6,A2 RELOCATE x ^ P ADK A2,4 NEXT W.B. x z P RB HINKAS x P x PSTICK EQU * x P* CONTINUE IN PART 2 * x P x P LDKL A1,START2 x " P A
0x2bf0e0…2bf274 (2, 126) Dummy {f00=0x00d2, f01=0x0000, f02=»
[…0x7…]
0x2bfd80…2bff14 (2, 127) Opaque[0x194]
0x2bff14…2c00a8 # DirEnt {nam=»LDTASK«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x1a48, f03=0x0000}
0x2bff14…2c00a8 IdxSect {
0x2bff14…2c00a8 f00 = 0x00d2 // 0x2bff14 @0x0
0x2bff14…2c00a8 f01 = 0x000c // 0x2bff16 @0x2
0x2bff14…2c00a8 gno = [ // 0x2bff18 @0x4
0x2bff14…2c00a8 [0x00]: C0x00d2.0x1.0
0x2bff14…2c00a8 [0x01]: C0x00d2.0x2.0
0x2bff14…2c00a8 [0x02]: C0x00d2.0x3.0
0x2bff14…2c00a8 [0x03]: C0x00d3.0x0.0
0x2bff14…2c00a8 [0x04]: C0x00d3.0x1.0
0x2bff14…2c00a8 [0x05]: C0x00d3.0x2.0
0x2bff14…2c00a8 ]
0x2bff14…2c00a8 }
0x2c00a8…2c023c Dummy {f00=0x00d2, f01=0x0190, f02=» 2 P IDENT LDTASK REL 10.0 80-03-14 870105041000 P : P* B 6 P************************************************** L P* $ P* PHILIPS TERMINAL SYSTEM PTS P* P* LDTASK = LOAD TASK P* P* P* P* 6 P
0x2c023c…2c03d0 Dummy {f00=0x00d2, f01=0x0190, f02=» MEMORY MANAGEMENT SYSTEMS. P* $ & P* IT CONTAINS TWO ENTRY POINTS: . P* X . P* - LT:DSK USED IN DISC PAGING SYSTEMS b 8 P* - LT:SWB USED IN SWAPPABLE WORK BLOCK SYSTEMS P* P* P EJECT LDTASK P* P*
0x2c03d0…2c0564 Dummy {f00=0x00d2, f01=0x0190, f02=»T:SWB SWAPPABLE WORK BLOCK ENTRY P ENTRY TTABLD LOAD TASK TTAB ( 2 P ENTRY QLTDSK ACTIVATE LDTASK AT ENTRY LT:DSK L 2 P ENTRY QLTSWB ACTIVATE LDTASK AT ENTRY LT:SWB " P ENTRY QLTASK ACTIVATE LDTASK " P ENTRY LD:ECB LDTASK ECB AREA P ENT
0x2c0564…2c06f8 Dummy {f00=0x00d2, f01=0x0190, f02=»CK BASE x P EJECT LDTASK P* ( P* 2 P************* < P* EXTERNALS * R P************* h P* ~ P* " P EXTRN TLDS15 ENTRY IN TLDSEG " P EXTRN TLDS20 ENTRY IN TLDSEG 2 P EXTRN QMEXIT QUEUE TASK AND EXIT MONITOR
0x2c06f8…2c088c Dummy {f00=0x00d2, f01=0x0190, f02=» EXTRN PAGQUE FREE PAGE QUEUE & P EXTRN PAG:QB QUEUE LINK BACKWARDS & P EXTRN PAG:PA PAGE ADDRESS P ( P EXTRN PAG:SB SEGMENT BLOCK ADDRESS r P EXTRN SEG:FC FILE CODE & P EXTRN SEG:DS DISC SECTOR ADDRESS P EXTRN SEG:EL SEGMENT LENGTH
0x2c088c…2c0a20 Dummy {f00=0x00d2, f01=0x0190, f02=» & P EXTRN SWB:NS SWB LENGTH (SECTORS) $ P EXTRN ECBBA ECB BUFFER ADDRESS . & P EXTRN ECBRL ECB REQUESTED LENGTH V & P EXTRN ECBEL ECB EFFECTIVE LENGTH P EXTRN ECBRC ECB RETURN CODE $ P EXTRN ECBCW1 ECB CONTROL WORD 1 $ P EXTRN ECBCW2 ECB
0x2c0a20…2c0bb4 (2, 128) Dummy {f00=0x00d2, f01=0x018e, f02=»RN TTB:SP SEGTAB ADDRESS P* P EJECT LDTASK * P* B P* L ( P EXTRN SCTIPL PROGRAM LOADING DEVICE V . P EXTRN SCTIOE APPLICATION RESTART ADDRESS P EXTRN SCTPSZ PAGE SIZE * P EXTRN SCTLAP LOGICAL ADDRESS OF PAGES P EJECT
0x2c0bb4…2c0d48 Dummy {f00=0x00d2, 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
0x2c0d48…2c0edc Dummy {f00=0x00d2, f01=0x018e, f02=»SS SWAPPABLE WORK p 2 P* BLOCKS IS OBTAINED BY SETTING SWPBLK EQU 1. P* P PSWPBLK EQU 0 Z P* n P EJECT LDTASK x P* " P* LDTASK ECB AND BUFFER AREAS P* . PLD:ECB DATA 0,0,0,0,0,0,0 LDTASK ECB AREA P* 4 PLD
0x2c0edc…2c1070 Dummy {f00=0x00d2, f01=0x0190, f02=» ( PLD:STB EQU *-2 LOAD TASK STACK BASE P* 0 P EJECT LDTASK : P* R P* TTABLD (LOAD TASK TTAB) P* ~ P IFT MMUPAG=1 P RES 16 LDTASK MMU TABLE P XIF P* P DATA 0 CURRENT SEGMENT BASE ( PPQEMTY DATA 0 PA
0x2c1070…2c1204 Dummy {f00=0x00d2, f01=0x0190, f02=»INK v " P DATA '#L' TASK IDENTIFICATION P DATA 49 PRIORITY LEVEL 2 P DATA 0 PENDING POINTER R * P DATA /C4C0 PSW (PROGRAM STATUS WORD) r P DATA 0 DISPATCH ADDRESS 2 P DATA 0,0,0,0,0,0,0 REGISTER SAVE AREA, A1-A14 P DATA 0,0,0,0,0,0,
0x2c1204…2c1398 Dummy {f00=0x00d2, f01=0x0190, f02=»********** P* P* D P* LT:DSK PERFORMS LOADING OF DISC RESIDENT SEGMENTS INTO CORE. & P* n * P* INPUT: A1 = SEGMENT BLOCK ADDRESS x 2 P* A3 = TTAB ADDRESS OF CALLING TASK P* P* * PLT:DSK EQU * LDTASK DISC
0x2c1398…2c152c Dummy {f00=0x00d2, f01=0x0190, f02=»OR CALLING TASK (IF MMU) AND | P* REMOVE PAGE FROM PAGQUE $ P* F P LDR A7,A3 SAVE A3 P P LDR A5,A3 j P INH | P CF A15,TLDS15 , P LDR A5,A7 TTAB ADDRESS OF CALLING TASK * P ABL QMEXIT QUEUE TASK AND EXIT LDTASK P* P E
0x2c152c…2c16c0 Dummy {f00=0x00d2, f01=0x0190, f02=»* PLTD:00 EQU * ( P IM PQEMTY INDICATE PAGE QUEUE EMPTY P LKM J P DATA 5 PAUSE LDTASK V P* r " P* TAKE FIRST PAGE FROM PAGQUE | P* PLTD:05 EQU * P LD A2,PAGQUE+2 P CWK A2,PAGQUE $ P RB(E) LTD:00 NO PAGE AVAI
0x2c16c0…2c1854 (2, 129) Dummy {f00=0x00d2, f01=0x0190, f02=» ADDRESS TO NEXT PAGE BLOCK ( P ST A4,PAGQUE+2 UPDATE QUEUE ANCHOR $ P LDR* A5,A2 PAGQUE ADDRESS P 4 P STR A5,A4 UPDATE QUEUE LINK FORWARD NEXT BLOCK r 0 P CMR A2 RESET QUEUE LINK FORWARD THIS BLOCK , P LDKL A6,/4000 SEGMENT UNDER LOADING BIT
0x2c1854…2c19e8 Dummy {f00=0x00d2, f01=0x0190, f02=» . P ORRS A6,A1 INDICATE SEGMENT UNDER LOADING 0 P ST A2,SEG:PB,A1 SET NEW PAGE BLOCK ADDRESS 6 2 P ST A1,PAG:SB,A2 SET NEW SEGMENT BLOCK ADDRESS j P* P IFT MMUPAG=1 P* 2 P* UPDATE MMU TABLE FOR CALLING TASK AND LDTASK P* (
0x2c19e8…2c1b7c Dummy {f00=0x00d2, f01=0x018e, f02=»TASK l , P TS TTB:MT,A5 STORE IN LDTASK MMU TABLE 2 P LD A1,TTB:CB,A3 CURRENT SEGMENT BASE ADDRESS < P ST A1,TTB:CB,A5 r P LDR A1,A2 & P LDR A3,A5 TTAB ADDRESS OF LDTASK . P CF A15,TLDS20 UPDATE MMU TABLE FOR LDTASK 6 P TS TTB:MT,A3 ST
0x2c1b7c…2c1d10 Dummy {f00=0x00d2, f01=0x0190, f02=» P* P ENB P LD A4,SCTPSZ PAGE SIZE & P SRL A4,1 CONVERT LENGTH TO WORDS : $ P LD A6,SEG:EL,A1 SEGMENT LENGTH d & P SRL A6,1 CONVERT LENGTH TO WORDS , P LDR A5,A3 TTAB ADDRESS OF CALLING TASK * P LDR A9,A1 SAVE SEGMENT BLOCK ADDR
0x2c1d10…2c1ea4 Dummy {f00=0x00d2, f01=0x0190, f02=»SEGTAB ADDRESS ~ . P LD A12,SEG:FC,A12 SEGMENT DISC FILE CODE , P LD A3,PAG:PA,A2 PAGE ADDRESS (PHYSICAL) H * P LD A2,SEG:DS,A1 SEGMENT DISC ADDRESS x P LDR* A1,A1 P ANK A1,/FF P* P IFT MMUPAG=0 2 P ST* A3,TTB:CB,A5 UPDATE C
0x2c1ea4…2c2038 Dummy {f00=0x00d2, f01=0x0190, f02=» EJECT LDTASK P* P* SET ECB PARAMETERS " P* > & PLTD:20 EQU * ENTRY USED BY LT:SWB H " P LDKL A8,LD:ECB LD:ECB ADDRESS r . P ST A1,ECBCW1,A8 SET SECTOR NUMBER IN ECB P ST A2,ECBCW2,A8 * P STR A12,A8 SET DISC FILE CODE IN ECB
0x2c2038…2c21cc Dummy {f00=0x00d2, f01=0x0190, f02=» LDR A10,A6 . P ADKL A10,127 NEXT HIGHER MULTIPLE OF 128 P ANKL A10,/7F80 F . P SUR A4,A10 CHECK IF PAGE IS LARGE ENOUGH ^ * P RF(NN) LTD:25 OK, JUST ONE LKM NEEDED P LDR A10,A6 . P ANKL A10,/7F80 NEXT LOWER MULTIPLE OF 128 P*
0x2c21cc…2c2360 Dummy {f00=0x00d2, f01=0x018e, f02=»:50 INTERMEDIATE BUFFER NEEDED 0 P ST A10,ECBRL,A8 SET REQUESTED LENGTH IN ECB & P* Z P IFT MMUPAG=0 d & P ST A3,ECBBA,A8 SET BUFFER ADDRESS z P XIF P* P EJECT LDTASK P* P* P IFT MMUPAG=1 P ECR A1,A3
0x2c2360…2c24f4 (2, 130) Dummy {f00=0x00d3, f01=0x0190, f02=» P EJECT LDTASK P* . P* SWB: CONVERT LOGICAL ADDRESS TO PHYSICAL & P* X P SRL A1,3 b & P ANK A1,/1E MMUTAB INDEX (5 BITS) t P ADR A1,A5 ADD TTAB ADDRESS * P LC A1,TTB:MT,A1 PHYSICAL PAGE ADDRESS P LDR A2,A1 P ANK A
0x2c24f4…2c2688 Dummy {f00=0x00d3, f01=0x018e, f02=» MMUPAG=1 P* 2 P* SEGMENT: CONVERT PHYSICAL ADDRESS TO LOGICAL P* R P SLL A3,2 P LDR A12,A3 n 6 P ANKL A12,/FFF CONVERT PHYSICAL ADDRESS TO LOGICAL P OR A12,SCTLAP P* PLTD:40 EQU * & P ST A3,ECBBA,A8 SET BUFF
0x2c2688…2c281c Dummy {f00=0x00d3, f01=0x0190, f02=» h 2 P ADK A6,0 CHECK IF ANYTHING LEFT TO READ/WRITE 0 P RF(NP) LTD:70 SEGMENT/SWB HANDLING FINISHED > P* r P EJECT LDTASK | P* . P* NOT ROOM ENOUGH IN PAGE FOR LAST SECTOR: 0 P* READ IT TO MEMORY VIA INTERMEDIATE BUFFER P*
0x2c281c…2c29b0 Dummy {f00=0x00d3, f01=0x0190, f02=»LDTASK BUFFER ADDRESS P ST A1,ECBBA,A8 P LDK A2,/80 6 2 P SCR A2,A8 INDICATE BUFFER NOW IN SYSTEM AREA J P ADK A2,/80 A2 := 256 6 P ST A2,ECBRL,A8 SET REQUESTED LENGTH TO ONE SECTOR P ECR A2,A10 * P ADS A2,ECBCW2,A8 UPDATE SEC
0x2c29b0…2c2b44 Dummy {f00=0x00d3, f01=0x0190, f02=»2 PAGE POINTER & P ADR A6,A6 CONVERT LENGTH TO BYTES P* @ P IFT MMUPAG=1 J 2 P MVSU A6 MOVE LAST PART OF SEGMENT/SWB TO PAGE ` P XIF P* P IFT MMUPAG=0 PLTD:65 EQU * P LDR* A10,A1 MOVE ONE WORD P STR A10,A2
0x2c2b44…2c2cd8 Dummy {f00=0x00d3, f01=0x018e, f02=»* P EJECT LDTASK P* " P* , PLTD:70 EQU * 6 P IFT SWPBLK=1 J , P LDR A11,A11 CHECK DISC PAGING/SWB FLAG ` P RF(Z) LTD:80 SWB HANDLING P XIF P* 8 P LDKL A4,/C000 INDICATE SEGMENT SUCCESSFULLY LOADED P XRR
0x2c2cd8…2c2e6c Dummy {f00=0x00d3, f01=0x0190, f02=» n P IM ECBCW1,A8 P LDKL A2,/7FFF P ANS A2,ECBCW2,A8 4 P RB LTD:60 N P* ` P EJECT LDTASK j P* P* READ ONE SECTOR FROM DISC P* PLTD:90 EQU * P LKM P DATA 1 P LD A2,ECBRC,A8 RETURN CODE
0x2c2e6c…2c3000 Dummy {f00=0x00d3, f01=0x0190, f02=» IN PAGQUE AGAIN | P* PLTD:95 ANK A2,1 " P NGR A2,A2 : . P SUK A2,2 ERROR, SET RETURN CODE -2 OR -3 L . P ST A2,TTB:SA+14,A5 SET RETURN CODE IN A7 ~ P* P IFT SWPBLK=1 , P LDR A11,A11 CHECK DISC PAGING/SWB FLAG P RB(Z) L
0x2c3000…2c3194 (2, 131) Dummy {f00=0x00d3, f01=0x0190, f02=» $ P LDK A4,1 INDICATE SEGMENT ERROR P SCR A4,A9 , . P LD A4,SCTIOE APPLICATION RESTART ADDRESS > . P ST A4,TTB:SA,A5 SET NEW DISPATCH ADDRESS p P RB LTD:80 P* P EJECT LDTASK P* P* P********** P* LT:SWB *
0x2c3194…2c3328 Dummy {f00=0x00d3, f01=0x0190, f02=» A1 = SWAPPABLE WORK BLOCK ADDRESS 2 P* A3 = TTAB ADDRESS OF CALLING TASK , P* A4 = LKM DATA DIRECTIVE b P* P* * PLT:SWB EQU * LDTASK SWB HANDLING ENTRY P IFT SWPBLK=1 P IFT MMUPAG=1 P INH ( P LDKL A5
0x2c3328…2c34bc Dummy {f00=0x00d3, f01=0x0190, f02=» P XIF P* P IFT SWPBLK=1 , P LDR A5,A3 TTAB ADDRESS OF CALLING TASK 4 " P LDR A7,A4 LKM DATA DIRECTIVE d 0 P SUR A11,A11 INDICATE SWB HANDLING (A11 = 0) * P LDR* A3,A1 DISC ADDRESS OF FIRST COPY P ANK A3,/FF P LD A4,S
0x2c34bc…2c3650 Dummy {f00=0x00d3, f01=0x0190, f02=»ASK P* ! P* ! P LD A1,TTB:SA+14,A5 ! P ANK A1,/FF SWB COPY INDEX ! < P* ! ^ PLTS:10 EQU * ! h P SUK A1,1 ! | P* ! P IFT CPU852=1 ! P RF(NP) LTS:20 ! 4 P ADR A4,A2 COMPUTE DISC ADDRESS OF REQUESTED SWB ! P RF(O) LTS:1
0x2c3650…2c37e4 Dummy {f00=0x00d3, f01=0x0190, f02=» ! P* " PLTS:20 EQU * " , P LDR A1,A3 DISC ADDRESS OF REQUESTED SWB " & P LDR A2,A4 " V P XIF " h P* " t P IFT SWPBLK=1 " ~ P IFT CPU852=0 " 2 P MUR A1 COMPUTE DISC ADDRESS OF REQUESTED SWB " P DAR A3 " P XIF " P* " P E
0x2c37e4…2c3978 Dummy {f00=0x00d3, f01=0x0190, f02=»RL A6,1 CONVERT SWB LENGTH TO WORDS " P LDR A4,A6 # , & P LD A12,SCTIPL SWB DISC FILE CODE # > ( P SUK A7,19 CHECK LKM DATA DIRECTIVE # h $ P ABL(Z) LTD:15 LOAD SWB REQUEST # : P LDKL A4,/7FFF PARAMETER TO AVOID INTERMEDIATE BUFFER # 2 P LDK A7,/95 PH
0x2c3978…2c3b0c Dummy {f00=0x00d3, f01=0x0190, f02=» # P* QLTDSK * $ P* QLTSWB * $ P********** $ , P* $ > P* $ H : P* THIS ROUTINE PERFORMS ACTIVATION OF THE LOAD TASK. $ R P* $ : P* ACTIVATION IS AT LT:DSK WHEN DISC PAGING REQUEST. $ B P* ACTIVATION IS AT LT:SWB WHEN SWAPPABLE WORK
0x2c3b0c…2c3ca0 Dummy {f00=0x00d3, f01=0x0190, f02=») $ ` 2 P* A3 = TTAB ADDRESS OF CALLING TASK % * P* A4 = LKM DATA DIRECTIVE (LT:SWB) % @ P* % n $ P* OUTPUT: A2, A5 ARE DESTROYED % x P* % P* % 0 PQLTSWB EQU * ACTIVATE LDTASK AT ENTRY LT:SWB % P IFT SWPBLK=1 % $ P LDKL A2,L
0x2c3ca0…2c3e34 (2, 132) Dummy {f00=0x00d3, f01=0x4146, f02=»YSTEM % d P XIF & P* & 0 PQLTDSK EQU * ACTIVATE LDTASK AT ENTRY LT:DSK & $ $ P LDKL A2,LT:DSK DISPATCH ADDRESS & X P* & P EJECT LDTASK & P* & P* & PQLTASK EQU * & ( P LDKL A5,TTABLD LDTASK TTAB ADDRESS & P ABL ACTOT ACTIVAT
0x2c3e34…2c3fc8 Dummy {f00=0x00d3, 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*
0x2c3fc8…2c415c Dummy {f00=0x00d3, f01=0x0190, f02=»'GETPSW'-ROUTINE ' p P* LOAD STACKBASE * ( P****************** ( 2 P ( L P LDKL A14,STACKB ( T P ADR A14,A13 RELOCATE ( l P RTN A8 ( P ( P ( P* STACK * ( P********* ( P* ( P RES 12 ( PSTACKB EQU *-REL-2 (
0x2c415c…2c42f0 Dummy {f00=0x00d3, f01=0x0190, f02=» P DATA GETPSW ) P ) D P**************************************************************** ) $ D P* G E T P S W * ) l D P* LITTLE SUBROUTINE TO PUT PSW IN STACK FOR CALLING SUBROUTINE * ) D P************
0x2c42f0…2c4484 Dummy {f00=0x00d3, f01=0x0190, f02=» LD A2,2,A14 GET PSW FROM CALLING SUBROUTINE ) . P ST A2,6,A14 REPLACE PSW FROM MAIN PROGRAM * 4 P LDR* A2,A14 RESTORE A2 * f P RTN A14 * P EJECT * P * & P********************************* * & P* * * & P* SUBRO
0x2c4484…2c4618 Dummy {f00=0x00d3, f01=0x0190, f02=» *-REL * " PSUBBA ST A10,MUL,A13 SAVE A10 + . P LD* A10,4,A14 GET SUBROUTINE REL ADDRESS + 4 $ P IM 4,A14 ADJUST RETURN ADDRESS + f P IM 4,A14 + 0 P AD A10,M:REL,A13 ADD FOR SYSLDM RELOCATION + P STR A10,A14 PUT ON STACK + P LD A10,MUL,A13 RE
0x2c4618…2c47ac Dummy {f00=0x00d3, f01=0x018e, f02=»SLDM (FROM SYSLOD) ALWAYS VIA THIS MODULE * + < P******************************************************* , 4 P , t PJUMP ABL SYSLDM , | P EJECT , P , ( P************************************ , ( P** ** , ( P**
0x2c47ac…2c4940 Dummy {f00=0x00d3, f01=0x0190, f02=» , * PT:ATOD EQU *-REL T:ATAB 'OLD' ADDRESS - P DATA 0 - 6 * PT:ATNW EQU *-REL T:ATAB 'NEW' ADDRESS - F P DATA 0 - t ( PU:BTOD EQU *-REL U:BTAB OLD ADDRESS - P DATA 0 - ( PU:BTNW EQU *-REL U:BTAB NEW ADDRESS - P DATA 0 - ( PS:BTOD EQU *
0x2c4940…2c4ad4 (2, 133) Opaque[0x194]
0x2c4ad4…2c4c68 # DirEnt {nam=»DRSW01«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x1a78, f03=0x0000}
0x2c4ad4…2c4c68 IdxSect {
0x2c4ad4…2c4c68 f00 = 0x00d3 // 0x2c4ad4 @0x0
0x2c4ad4…2c4c68 f01 = 0x0008 // 0x2c4ad6 @0x2
0x2c4ad4…2c4c68 gno = [ // 0x2c4ad8 @0x4
0x2c4ad4…2c4c68 [0x00]: C0x00d3.0x3.0
0x2c4ad4…2c4c68 [0x01]: C0x00d4.0x0.0
0x2c4ad4…2c4c68 [0x02]: C0x00d4.0x1.0
0x2c4ad4…2c4c68 [0x03]: C0x00d4.0x2.0
0x2c4ad4…2c4c68 ]
0x2c4ad4…2c4c68 }
0x2c4c68…2c4dfc Dummy {f00=0x00d3, f01=0x0190, f02=» 2 P IDENT DRSW01 REL 10.0 80-03-14 870105041000 P : B J * R * H C******************************************************************* f * $ * PHILIPS TERMINAL SYSTEM PTS * P* DRSW01 = DRIVER SWITCH
0x2c4dfc…2c4f90 Dummy {f00=0x00d3, f01=0x0190, f02=» L * * 4 0* THIS MODULE CONTAINS THE FOLLOWING FUNCTIONS 8 P* WHICH ARE COMMON PARTS FOR CHANNEL UNIT DRIVERS. T P* P* H D* -OUTPUT SEND ONE CHARACTER,SAVE A3-A5 AND RETURN TO DISPATCHER * 8 4* -OUTLIN
0x2c4f90…2c5124 Dummy {f00=0x00d3, f01=0x0190, f02=» IF INTERRUPT IS ALLOWED, RESTORE A3-A5 AND RETURN * TO USER VIA A5 < * ` : 5* -LDREGE RESTORE A3-A5 AND RETURN TO USER VIA A5 j * 4 /* -GETCHR GET ONE CHARACTER FROM ECB-BUFFER * * -ECHO ECHO C
0x2c5124…2c52b8 Dummy {f00=0x00d3, f01=0x0190, f02=» *********** * * & P ENTRY OUTLIN SEND CHARACTER 0 : P ENTRY OUTPUT SAVE REGISTERS, SEND CHAR. AND DISPATCH T ( P ENTRY LDREG RESTORE A3-A5 ANDRETURN . P ENTRY LDREGE WAY BACK FROM ECHO HANDLING P ENTRY LDREGF RETURN
0x2c52b8…2c544c Dummy {f00=0x00d3, f01=0x018e, f02=»HO t P ENTRY ECHO ECHO ROUTINE P ENTRY ECHEND END OF ECHO * EJECT L * Z * d $ ******************************** n $ * EXTERNAL TOSS MODULE ENTRIES * $ ******************************** * & P EXTRN SAVE8 SAVE REGIST
0x2c544c…2c55e0 Dummy {f00=0x00d3, f01=0x0190, f02=» P EXTRN OUTSAL SALCUZ DRIVER P EXTRN OUTASC ASCU4Z DRIVER ( EJECT L * Z ****************** d * DWT PARAMETERS * ~ ****************** * * EXTRN DWTST STATUS EXTRN DWTOR ORDER EXTRN DWTEC
0x2c55e0…2c5774 (2, 134) Dummy {f00=0x00d4, f01=0x0190, f02=» A3 z P EXTRN DWTA4 SAVE AREA A4 P EXTRN DWTA5 SAVE AREA A5 . P EXTRN DWTSB2 STACK BASE 2 P " P EXTRN DWTECH ECHO DEVICE DWT r P* , P EXTRN ECHADR ECHO ADDRESS DISPLACEMENT * P EJECT P* P********************
0x2c5774…2c5908 Dummy {f00=0x00d4, f01=0x018e, f02=»ETTING X:A=0 P* PX:A EQU 1 PCECHO EQU X:A 0 P* F , P* BY SETTING X:B=1 DRIVER FOR LOCAL OR P $ P* REMOTE TERMINALS CAN BE USED P* PX:B EQU 1 PLRT EQU 01 P* 2 P* BY SETTING X:C=1 SALCUZ DRIVER CAN B
0x2c5908…2c5a9c Dummy {f00=0x00d4, f01=0x0190, f02=» P* PX:D EQU 1 PASCU4Z EQU 00 P* 6 < P* A PROGRAM VERSION USING THE EXTENDED INSTRUCTION SET @ , P* IS OBTAINED BY SETTING CPU852 EQU 0 P* PCPU852 EQU 0 P* P EJECT P* P* O U T L I N P
0x2c5a9c…2c5c30 Dummy {f00=0x00d4, f01=0x0190, f02=»PU852=1 & P CF A15,SAVE8 SAVE A1-A8 ON STACK P XIF : P* F P IFT CPU852=0 P " P MSR 8,A15 SAVE A1-A8 ON STACK f P XIF P* " P LDR* A1,A6 CHANNEL PARAMETER P ANK A1,/F CHANNEL INDEX P* P IFT LRT=1 P SUK
0x2c5c30…2c5dc4 Dummy {f00=0x00d4, f01=0x018e, f02=»7,/C P RF(N) OUTL10 P SUK A7,/3 " P ABL(N) OUTASC ASCU4Z 4 P XIF R P* ^ POUTL10 EQU * h P IFT SALCUZ=1 | P SUK A1,/F P ABL(E) OUTSAL SALCUZ P XIF P RF EXIT P EJECT P* P* O U T P U T
0x2c5dc4…2c5f58 Dummy {f00=0x00d4, f01=0x0190, f02=» POUTPUT EQU * P ANK A2,/FF P LDR A1,A2 0 P SUK A1,/82 STX ? B P RF(E) OUTP05 YES P SUK A1,/15 ETB ? v P RF(NE) OUTP10 NO POUTP05 EQU * " P LDR* A1,A6 CHANNEL PARAMETER P ANK A1,/C LT? P RF(E) LDRE10
0x2c5f58…2c60ec Dummy {f00=0x00d4, f01=0x0190, f02=» EJECT P* P* P* S T R E G " P* 8 : P* INDICATE INTERRUPTS ALLOWED AND SAVE A3-A5 IN DWT B P* P* PSTREG EQU * P INH P LDKL A1,/100 0 P ORS A1,DWTST,A6 INDICATE INTERRUPTS ALLOWED $ P ST A3,DWT
0x2c60ec…2c6280 Dummy {f00=0x00d4, f01=0x0190, f02=»CT P* P* L D R E G P* * > P* IF INTERRUPT ALLOWED RESTORE A3-A5 FROM DWT AND RETURN 4 & P* VIA A5. ELSE GO TO DISPATCHER. v P* P* PLDREG EQU * P LD A3,DWTST,A6 P ANKL A3,/100 P RB(Z) EXIT
0x2c6280…2c6414 (2, 135) Dummy {f00=0x00d4, f01=0x0190, f02=» P* P* PLDREGF EQU * & P LD A5,DWTA5,A6 A5 , PLDREGE EQU * V & P LD A3,DWTA3,A6 RELOAD REGISTER A3 j & P LD A4,DWTA4,A6 A4 $ PLDRE10 LD A7,DWTOR,A6 GET ORDER P ANK A7,/FF P LD A8,DWTECB,
0x2c6414…2c65a8 Dummy {f00=0x00d4, f01=0x0190, f02=» ONE CHARACTER FROM ECB-BUFFER z P* & P* ON ENTRY: 0 P* F P* A3 = BUFFER INDEX P P* A8 = ECB-ADDRESS n P* P* ON EXIT: P* P* A2 = CHARACTER * P* A1 = 0 IF LAST CHARACTER ELSE # 0 P* J
0x2c65a8…2c673c Dummy {f00=0x00d4, f01=0x018e, f02=»ESTED LENGTH P SUR A1,A3 * P RF(NP) GCH010 LAST CHARACTER REACHED & " P LD A2,2,A8 GET BUFFER ADDRESS T P ADR A2,A3 z P LCR A2,A2 CHAR. TO A2 P ANK A2,/FF $ P ADK A3,1 INCREMENT BUFFER INDEX P RF GCH020 , PGCH010 ST A3,6,A
0x2c673c…2c68d0 Dummy {f00=0x00d4, f01=0x0190, f02=» P* P* P* E C H O , E C H E N D P* > < P* SUBROUTINE TO ECHO CHARACTER CONTAINING TWO PARTS, H . P* ONE GENERAL AND ONE DEVICE-DEPENDENT P* 4 P* PART ONE: FIND DWT-ADDRESS OF ECHO-DEVICE, 2 P*
0x2c68d0…2c6a64 Dummy {f00=0x00d4, f01=0x018e, f02=»ORE CHARACTERS t 2 P* CORRESPONDING TO ONE CHARACTER 4 P* TO BE STORED IN INPUT ECB-BUFFER L P* P* 4 P* PART ONE FOLLOWS AND PART TWO CAN BE FOUND 4 P* IN THE DRIVER MODULE CORRESPONDING TO ECHO P
0x2c6a64…2c6bf8 Dummy {f00=0x00d4, f01=0x0190, f02=» p 6 P* THE ECHO-ROUTINE SHOULD BE TERMINATED WITH A P* JUMP TO 'ECHRTN'. B P* ` PECHEND EQU * j P* ~ P IFT CECHO=1 P* $ P LDKL A7,/8000 INDICATE END I/O P XIF PECHO EQU * P IFT CECHO=1 & P ST A3,D
0x2c6bf8…2c6d8c Dummy {f00=0x00d4, f01=0x0190, f02=») RETUR NO ECHO REQUESTED 0 P LDR A4,A6 SAVE DWT-ADDRESS OF INPUT DEVICE " 2 P LD A6,DWTECH,A6 DWT-ADDRESS OF OUTPUT DEVICE V 6 P ST A4,DWTWAT,A6 SAVE DWT-ADDRESS OF INPUT DEVICE P LDKL A5,DWTSB2 & P ADR A5,A6 STACKBASE-ADDRESS IN A5 . P
0x2c6d8c…2c6f20 Dummy {f00=0x00d4, f01=0x410a, f02=» P IFT CECHO=1 P LDR A7,A7 END? P RF(NN) ERETUR NO 0 ( P CF A15,TENDIO END I/O OUTPUT DEVICE J > PERETUR LD A6,DWTWAT,A6 RELOAD DWT-ADDRESS OF INPUT DEVICE v 4 PRETUR ABL LDREGF RELOAD A3-A5 AND RETURN VIA A5 P* END @
0x2c6f20…2c70b4 (2, 136) Dummy {f00=0x00d4, f01=0x2008, f02=» RE A3-A5 AND RETURN l * TO USER VIA A5 $ * H : 5* -LDREGE RESTORE A3-A5 AND RETURN TO USER VIA A5 R * 4 /* -GETCHR GET ONE CHARACTER FROM ECB-BUFFER * 6 1* -LOGG LOGG OF INPUT AND OUTPUT CHARA
0x2c70b4…2c7248 Dummy {f00=0x00d4, f01=0x0190, f02=»START OF BLOCK v z ( P ADK A4,2 SKIP FIRST WORD OF BUFFER w & P LDK A3,0 RESET CHARACTER COUNTER w B P LD A1,FBAX GET BUFFER INDEX w l " P RF(NZ) TRT100 NOT FIRST BLOCK w P LC A2,DW1500+1 GET TCA w P CF A5,WRITEP SEND TCA w P LDR* A2,A6 GET STA
0x2c7248…2c73dc Dummy {f00=0x00d4, f01=0x0190, f02=» " P LDK A2,/20 AND CURSOR ADDRESS x P CF A5,WRITEP x * P LDK A2,/20 x @ P CF A5,WRITEP x T P XIF x j P IFT RCOM=1 x v P x & P LD A1,XRB READ BUFFER COMMAND ??? x P RF(Z) TRT070 NO!! x P x P ******************** x " P LDK A2,X'
0x2c73dc…2c7570 Dummy {f00=0x00d4, f01=0x0190, f02=»AND COLUMN NUMBER x x P LDK A3,5 SET BLOCK COUNT y P RF TRT100 y < PTRT070 EQU * y N P XIF y b P y n P LDK A3,2 y v PTRT100 EQU * y P IFT TPMODE=1 y P IM TPM TRANSPARENT TEXT y PTRT105 EQU * y P XIF y P LCR A2,A4 GET ONE CHA
0x2c7570…2c7704 Dummy {f00=0x00d4, f01=0x018e, f02=»Z) TRT105 NO!! y P z @ P************************************************************ z P* z b , P* CHECK IF ATTRIBUTE CHARACTER OR NULL z l P* z 4 P*********************************************** z P z & P CWK A2,X'20' ATTRIBUTE CHARACTER
0x2c7704…2c7898 Dummy {f00=0x00d4, f01=0x0190, f02=» P LDK A2,/0A { PTRT102 EQU * { P CWK A2,/7D END OF MESSAGE ? { , " P RF(NE) TRT103 NO,GO TO TRT103 { P P LDK A2,/19 { v PTRT103 EQU * { P CWK A2,X'7F' NULL ?? { P RF(NE) TRT105 { P SUK A2,1 { P XIF { P IFT RCOM=1 { P RF
0x2c7898…2c7a2c Dummy {f00=0x00d4, f01=0x0190, f02=»BUTE CHARACTER { z P ANK A2,X'7F' | ( P LDR A1,A2 CONVERT TO IBM ATTRIBUTE | , P ANK A1,1 | X P ANK A2,/1E MASK | j P SLL A2,1 | & P ORR A2,A1 IBM ATTRIBUTE COMPOSED | " P ORK A2,/40 BIT ALWAYS SET ONE | P LC A2,TASCII,A2 | & P CWK A2,/18
0x2c7a2c…2c7bc0 Dummy {f00=0x00d4, f01=0x0190, f02=»1 | P RF TRT110 } PTRT105 EQU * } P XIF } 0 P EJECT } < P IFF TPMODE=1 } J P CWK A2,/07 } ` ( P RF(L) TRT110 ILLEGAL CODE : SKIP IT } t P XIF } P CF A5,WRITEP SEND CHARACTER } PTRT110 EQU * } $ P IM FBAX INCREMENT BUFFER INDEX }
0x2c7bc0…2c7d54 (2, 137) Opaque[0x194]
0x2c7d54…2c7ee8 # DirEnt {nam=»ST8000«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x1a98, f03=0x0000}
0x2c7d54…2c7ee8 IdxSect {
0x2c7d54…2c7ee8 f00 = 0x00d4 // 0x2c7d54 @0x0
0x2c7d54…2c7ee8 f01 = 0x0004 // 0x2c7d56 @0x2
0x2c7d54…2c7ee8 gno = [ // 0x2c7d58 @0x4
0x2c7d54…2c7ee8 [0x00]: C0x00d4.0x3.0
0x2c7d54…2c7ee8 [0x01]: C0x00d5.0x0.0
0x2c7d54…2c7ee8 ]
0x2c7d54…2c7ee8 }
0x2c7ee8…2c807c Dummy {f00=0x00d4, f01=0x018e, f02=» 2 P IDENT ST8000 REL 10.0 80-06-09 870105041000 P : P ENTRY ST8000 B P* X * P EXTRN IHPFAR,IHLKM,IHRTC,ILLINT,IHTW b P EXTRN IHTC,IHSOP,CHLT1,IHFD ( P EXTRN IASCUZ,ISLCI,ISLCO,CHRT1,IHMD P* ST8000 EQU * P* P
0x2c807c…2c8210 Dummy {f00=0x00d4, f01=0x0190, f02=» P DATA ILLINT 13 P DATA ILLINT 6 P DATA IHTW 7 < P DATA IASCUZ 8 V P DATA IHSOP 9 r P DATA ISLCI P DATA ISLCO P DATA CHRT1 12 P DATA IHMD 13 P DAT
0x2c8210…2c83a4 Dummy {f00=0x00d4, f01=0x0190, f02=»ATA ILLINT 19 P DATA ILLINT 20 P DATA ILLINT 21 6 P DATA ILLINT 22 R P DATA ILLINT 23 n P DATA ILLINT 24 P DATA ILLINT 25 P DATA ILLINT 26 P DATA ILLINT 27 P DATA ILLINT
0x2c83a4…2c8538 Dummy {f00=0x00d4, f01=0x0190, f02=»NT 123 P DATA ILLINT 124 P DATA ILLINT 125 . P DATA ILLINT 126 J P DATA ILLINT 127 f P DATA ILLINT 128 P DATA ILLINT 129 P DATA ILLINT 130 P DATA ILLINT 131 P DATA ILLINT 132
0x2c8538…2c86cc Dummy {f00=0x00d4, f01=0x018e, f02=»37 ~ P DATA ILLINT 138 P DATA ILLINT 139 & P DATA ILLINT 50 B P DATA ILLINT 51 ^ P DATA ILLINT 52 z P DATA ILLINT 53 P DATA ILLINT 54 P DATA ILLINT 55 P DATA ILLINT 56 P D
0x2c86cc…2c8860 Dummy {f00=0x00d4, f01=0x4030, f02=» P DATA ILLINT 62 END @ ,NT 139 & P DATA ILLINT 50 B P DATA ILLINT 51 ^ P DATA ILLINT 52 z P DATA ILLINT 53 P DATA ILLINT 54 P DATA ILLINT 55 P DATA ILLINT 56 P D
0x2c8860…2c89f4 (2, 138) Dummy {f00=0x00d5, f01=0x2008, f02=» NT ST8000 79-09-10 JOS * ( * 2 * < * F * P * Z ENTRY ST8000 d ST8000 EQU * z END @
0x2c89f4…2c8b88 Dummy {f00=0x00d5, f01=0x0190, f02=» f ^ 4 P** ALLOCATE FIXED DATA SET BUFFERS AND ** g 4 P** TERMINAL STACK ** g @ 4 P** ** g x 4 P** INPUT : A8=ACTUAL T:A-ADDRESS IN T:ATAB ** g 4 P** A12=T:D-ADDRESS
0x2c8b88…2c8d1c Dummy {f00=0x00d5, f01=0x0190, f02=»** CSE (IN T:A)=STACKSIZE ** g 4 P** WORK-REGS. :A1-A4,A9,A11 ** h 8 4 P************************************************ h p P h PALLBUF EQU * h P IFT CREDIT-MMUPAG=1 h . P LD A9,FSTADR,A13 GET BUFFER START ADDRE
0x2c8d1c…2c8eb0 Dummy {f00=0x00d5, f01=0x0190, f02=»A CALC START OF DSCB RECORDS h " P LDR A10,A1 SAVE START ADDRESS i $ P XIF i J P IFT CREDIT+MMUPAG=2 i V P ELR A1,A8 GET T:A-ADDRESS i r ( P EL A3,CSN,A1 GET DSCB TOTAL LENGTH i P RF(Z) ALLB70 NO DSCB i . P ADKL A1,T:ASTA CALCULATE START OF DSCB'S
0x2c8eb0…2c9044 Dummy {f00=0x00d5, f01=0x0190, f02=»NDITION i | : P ST A3,SAVE04,A13 SAVE ADDRESS TO END OF DSCB-RECORDS j : PALLB10 SUK A1,DSCBL A1=FIRST WORD IN FIRST DSCB-RECORD j N P CW A1,SAVE04,A13 ALL? j P RF(E) ALLB70 YES! j P IFT CREDIT-MMUPAG=1 j & P LDR* A3,A1 GET FIRST WORD IN ECB j
0x2c9044…2c91d8 Dummy {f00=0x00d5, f01=0x0190, f02=»L,A1 j P LD A2,EL,A1 SHARED BUFFER? k P RF(Z) NOTSH NO! k 0 & P LDR A4,A1 RESTORE START OF DSCB'S k H P XIF k r P IFT CREDIT+MMUPAG=2 k ~ $ P ELR A3,A1 GET FIRST WORD IN ECB k P SLL A3,1 STATIC BUFFER? k P RB(NN) ALLB10 NO! k P EL A3,RL,A1
0x2c91d8…2c936c Dummy {f00=0x00d5, f01=0x0190, f02=» k n P XIF l P IFF CREDIT=0 l P ADK A4,DSCBL FIRST WORD l * PALLB20 SUK A2,1 A2=INDEX l J P RF(NN) ALLB30 l j P LDK A1,LMP4 FORMAT ERROR l P CALL ERROR l PALLB30 EQU * l P RF(Z) ALLB40 ECB FOUND l 0 P ADK A4,DSCBL A4=ADDRESS TO DS
0x2c936c…2c9500 Dummy {f00=0x00d5, f01=0x0190, f02=»UPAG=1 l ( PALLB40 LD A4,BA,A4 BUFFER ALLOCATED? m P RF(NZ) ALLB50 YES! m : P LDK A1,LMP4 FORMAT ERROR m V P CALL ERROR m x PALLB50 EQU * m * P ST A4,BA,A1 AND STORE IN CURRENT ECB m P XIF m P IFT CREDIT+MMUPAG=2 m ( PALLB40 EL A4,BA,A4
0x2c9500…2c9694 (2, 139) Opaque[0x194]
0x2c9694…2c9828 # DirEnt {nam=»PFTAB «, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x1aa8, f03=0x0000}
0x2c9694…2c9828 IdxSect {
0x2c9694…2c9828 f00 = 0x00d5 // 0x2c9694 @0x0
0x2c9694…2c9828 f01 = 0x0002 // 0x2c9696 @0x2
0x2c9694…2c9828 gno = [ // 0x2c9698 @0x4
0x2c9694…2c9828 [0x00]: C0x00d5.0x1.0
0x2c9694…2c9828 ]
0x2c9694…2c9828 }
0x2c9828…2c99bc Dummy {f00=0x00d5, f01=0x0190, f02=» 0 P IDENT PFTAB REL 10.0 80-03-14 870105041000 P 8 P* @ P* J P* POWER FAIL TABLE T P* n D P* THIS TABLE HOLDS ADDRESSES TO MODULES THAT SHOULD BE EXECUTED x P* AFTER MASTER CLEAR P* P* P ENTRY PFTAB TABLE ENTRY
0x2c99bc…2c9b50 Dummy {f00=0x00d5, f01=0x018e, f02=»XTRN TCDRON TAPE CASSETTE P EXTRN SOPR SOP. PANEL " ( P EXTRN CHLTON LOCAL/REMOTE TERMINALS @ ( P EXTRN C1DRON CASSETTE CHANGER NO. 1 l ( P EXTRN C2DRON 2 ( P EXTRN C3DRON 3 P EXTRN FDON LINE PRINTER
0x2c9b50…2c9ce4 Dummy {f00=0x00d5, f01=0x0190, f02=» $ P EXTRN MTDRON MAGNETIC TAPE UNIT 0 P EXTRN FMINIT FILE MANAGEMENT INITIALIZATION , 0 P EXTRN DMINIT DATA MANAGEMENT INITIALIZATION ` P EXTRN SLCUON SALCUZ P EXTRN ASCUON ASCU4Z P EXTRN CDON CDC DISC P P P P $ P
0x2c9ce4…2c9e78 Dummy {f00=0x00d5, f01=0x4062, f02=»INIT FILE MANAGEMENT PPFTABE EQU * END OF TABLE P* > P* H P END R@ ^XTRN DMINIT DATA MANAGEMENT INITIALIZATION ` P EXTRN SLCUON SALCUZ P EXTRN ASCUON ASCU4Z P EXTRN CDON CDC DISC P P P P $ P
0x2c9e78…2ca00c Dummy {f00=0x00d5, 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
0x2ca00c…2ca1a0 Dummy {f00=0x00d5, f01=0x018e, f02=» M) DISC l P EXTRN IHLP LINE PRINTER P EXTRN IHCR CARD-READER 0 ( P EXTRN IHDU1,IHDU2 DISC UNIT NO. 1/2 P 0 P EXTRN IHMD,IASCUZ,ISLCI,ISLCO MINI FIX DISC | P EXTRN IHMT MAG. TAPE $ P EXTRN ILLINT ILLEGAL INTERRUPT P EXTRN HALT HALT R
0x2ca1a0…2ca334 (2, 140) Opaque[0x194]
0x2ca334…2ca4c8 # DirEnt {nam=»LKMAL «, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x1ab0, f03=0x0000}
0x2ca334…2ca4c8 IdxSect {
0x2ca334…2ca4c8 f00 = 0x00d5 // 0x2ca334 @0x0
0x2ca334…2ca4c8 f01 = 0x0004 // 0x2ca336 @0x2
0x2ca334…2ca4c8 gno = [ // 0x2ca338 @0x4
0x2ca334…2ca4c8 [0x00]: C0x00d5.0x2.0
0x2ca334…2ca4c8 [0x01]: C0x00d5.0x3.0
0x2ca334…2ca4c8 ]
0x2ca334…2ca4c8 }
0x2ca4c8…2ca65c Dummy {f00=0x00d5, f01=0x0190, f02=» 0 P IDENT LKMAL REL 10.0 80-03-14 870105041000 P 8 P* @ $ P* LINK TO MONITOR REQUEST TABLE J @ P* THIS TABLE HOLDS INFORMATION ABOUT MODULES THAT HANDLE THE r ( P* DIFFERENT LINK TO MONITOR REQUESTS P* 2 P ENTRY LKMAL TABLE ENTRY CON
0x2ca65c…2ca7f0 Dummy {f00=0x00d5, f01=0x0190, f02=» EXTRN TACTOT ACTIVATE OTHER TERMINAL P EXTRN TPAUSE PAUSE TERMINAL . P EXTRN TIMER TIMER R P EXTRN TMWAIT MULTIPLE WAIT l & P EXTRN TLUSEG LOCK/UNLOCK SEGMENT P EXTRN TLDSEG SEGMENT TLDSEG P EXTRN TABORT ABORT FUNCTION $ P EXTRN
0x2ca7f0…2ca984 Dummy {f00=0x00d5, f01=0x0190, f02=»CHPAG CHANGE MMU PAGE " P EXTRN TCHMMU CHANGE MMU TABLE P EJECT D P* R $ PLKMAL DATA LKMALE-* TABLE LENGTH P DATA TIO TERMINAL I/O P DATA TWAIT TERMINAL WAIT P DATA TEXIT TERMINAL EXIT ( P DATA TACTOT ACTIVATE OTHER TERMIN
0x2ca984…2cab18 Dummy {f00=0x00d5, f01=0x0190, f02=»NT r P DATA TLDSEG SEGMENT TLDSEG P DATA TABORT ABORT FUNCTION . P DATA 0 R 4 P DATA GETTIM GET CURRENT VALUE OF MONITOR CLOCK n " P DATA SETTIM SET MONITOR CLOCK P DATA 0 P DATA TOSSFM FILE MANAGEMENT
0x2cab18…2cacac Dummy {f00=0x00d5, f01=0x4010, f02=» END @ TLDSEG SEGMENT TLDSEG P DATA TABORT ABORT FUNCTION . P DATA 0 R 4 P DATA GETTIM GET CURRENT VALUE OF MONITOR CLOCK n " P DATA SETTIM SET MONITOR CLOCK P DATA 0 P DATA TOSSFM FILE MANAGEMENT
0x2cacac…2cae40 Dummy {f00=0x00d5, 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
0x2cae40…2cafd4 (2, 141) Dummy {f00=0x00d5, f01=0x0190, f02=»M VERSION SUPPORTING SPLIT EXTENT I/O * P* IS OBTAINED BY SETTING XTSPLI EQU 1. . P* PXTSPLI EQU 0 f P* z P EJECT TOSSFM P* P* P********** P* TOSSFM * P********** P* P* 8 P* THIS IS TH
0x2cafd4…2cb168 Dummy {f00=0x00d5, f01=0x0190, f02=» n P* P* A5 = TTAB ADDRESS P* A7 = ORDER CODE 0 P* A8 = ECB ADDRESS L P* h . P* WHEN FILE ADMINISTRATION IS REQUESTED, r ( P* TOSSFM WILL ACTIVATE THE FMTASK. P* . P* WHEN I/O FUNCTION IS REQUESTED, TOSSFM
0x2cb168…2cb2fc Dummy {f00=0x00d5, f01=0x0190, f02=»JECT TOSSFM P* P* 4 PTOSSFM EQU * FILE MANAGEMENT LKM PROCESSOR ENTRY * P* b P* CHECK ORDER CODE l P* LDR A2,A7 ORDER CODE P ANK A2,/FF SKIP OPTION P XRK A2,/80 WAIT BIT SUK A2,/01 P RF(Z) FM:
0x2cb2fc…2cb490 Dummy {f00=0x00d5, f01=0x0190, f02=»E x SUK A2,/11-/05 P RF(Z) FM:030 PHYSICAL READ " SUK A2,/15-/11 F P RF(Z) FM:030 PHYSICAL WRITE ^ SUK A2,/21-/15 $ P RF(Z) FM:010 OPEN/CREATE/EXTEND SUK A2,/22-/21 4 P RF(NZ) FM:RQE REQUEST ERROR IF NOT CLOSE/DELE
0x2cb490…2cb624 Dummy {f00=0x00d5, f01=0x0190, f02=»ARAMETERS: h * " P* A1 = ORDER CODE AND OPTION * A2 = DISPATCH ADDRESS B * %* A3 = TTAB ADDRESS OF CALLING TASK d P* A4 = ECB ADDRESS * A5 = FMTASK TTAB ADDRESS * PFM:010 EQU * $ P LDR A1,A7 ORDER CODE AN
0x2cb624…2cb7b8 Dummy {f00=0x00d5, f01=0x0190, f02=»DR A4,A8 ECB ADDRESS ( # LDKL A5,TTABFM FMTASK TTAB ADDRESS , P ABL ACTDIS ACTIVATE FMTASK AND DISPATCH H * x EJECT TOSSFM * * ********** * FM I/O * ********** * $ * FILE MANAGEMENT I/O FUNC
0x2cb7b8…2cb94c Dummy {f00=0x00d5, f01=0x0190, f02=»DK A1,0 CHECK RETURN CODE P RF(Z) FM:050 OK " * : PFM:040 EQU * D P LDR A3,A1 RETURN CODE X . P ABL TIOERR ERROR: QUEUE TASK AND DISPATCH v * EJECT TOSSFM * " P* CHECK RELATIVE SECTOR NUMBER * PFM:0
0x2cb94c…2cbae0 Dummy {f00=0x00d5, f01=0x0190, f02=» MMUPAG=1 , ' EL A1,ECBCW1,A8 RELATIVE SECTOR NUMBER EL A2,ECBCW2,A8 B XIF Z * f P RF(NZ) FM:060 p ADK A1,0 , P RF(Z) FM:RQE RELATIVE SECTOR NUMBER = 0 * PFM:060 EQU * P ECR A6,A1 P ANK A6,/FF
0x2cbae0…2cbc74 (2, 142) Opaque[0x194]
0x2cbc74…2cbe08 # DirEnt {nam=»CTABX «, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x1ac0, f03=0x0000}
0x2cbc74…2cbe08 IdxSect {
0x2cbc74…2cbe08 f00 = 0x00d6 // 0x2cbc74 @0x0
0x2cbc74…2cbe08 f01 = 0x0002 // 0x2cbc76 @0x2
0x2cbc74…2cbe08 gno = [ // 0x2cbc78 @0x4
0x2cbc74…2cbe08 [0x00]: C0x00d6.0x0.0
0x2cbc74…2cbe08 ]
0x2cbc74…2cbe08 }
0x2cbe08…2cbf9c Dummy {f00=0x00d6, f01=0x0190, f02=» 0 P IDENT CTABX REL 10.0 80-03-14 870105041000 P 8 P* @ P* CODE CONVERSION TABLE J P* l P* v P ENTRY CTABX P* P* * PC0 EQU 0 CODE CONVERSION COLUMN NO. 0 ( PC1 EQU 0 1 ( PC2 EQU
0x2cbf9c…2cc130 Dummy {f00=0x00d6, 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
0x2cc130…2cc2c4 Dummy {f00=0x00d6, 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 @
0x2cc2c4…2cc458 Dummy {f00=0x00d6, f01=0x0190, f02=» & PDYERR ABL DISIOE I/O REQUEST ERROR P EJECT 2 : P* ACTIONS SPECIFIED BY USER IN RIGHT BYTE IN BUFFER @ P* ARE CARRIED OUT. ~ 0 P* /2B NO MOVING OF PRINT HEAD " P* /30 CR, LF, LF B P* /31
0x2cc458…2cc5ec Dummy {f00=0x00d6, f01=0x0190, f02=»ESTED LENGTH | P RF(E) ACDY25 P LDK A3,2 START BUFFER INDEX * " P LD A2,2,A8 GET BUFFER ADDRESS N & P LC A2,1,A2 GET CONTROL CHARACTER t P ANK A2,/FF PACDY25 EQU * * P SUK A2,/2B POSITIONING BEFORE WRITE ? P RF(E) ACDY90
0x2cc5ec…2cc780 Dummy {f00=0x00d6, f01=0x0190, f02=» ( P ADK A4,1 INDICATE DOUBLE LINE FEED P 4 P < $ PACDY30 LDK A2,CR CARRIAGE RETURN D PACDY35 LDK A1,1 l 2 P SC A1,DWTAP+1,A6 RESET HEAD POSITION COUNTER 8 P* SEND CARRIAGE RETURN AND ONE OR TWO LINE FEEDS P* PACDY50 E
0x2cc780…2cc914 (2, 143) Opaque[0x194]
0x2cc914…2ccaa8 # DirEnt {nam=»TIODMX«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x1ac8, f03=0x0000}
0x2cc914…2ccaa8 IdxSect {
0x2cc914…2ccaa8 f00 = 0x00d6 // 0x2cc914 @0x0
0x2cc914…2ccaa8 f01 = 0x0002 // 0x2cc916 @0x2
0x2cc914…2ccaa8 gno = [ // 0x2cc918 @0x4
0x2cc914…2ccaa8 [0x00]: C0x00d6.0x1.0
0x2cc914…2ccaa8 ]
0x2cc914…2ccaa8 }
0x2ccaa8…2ccc3c Dummy {f00=0x00d6, f01=0x018e, f02=» 2 P IDENT TIODMX REL 10.0 80-03-14 870105041000 P : P* B 8 P**************************************************** L P* $ P* PHILIPS TERMINAL SYSTEM PTS P* 8 P**************************************************** P* (
0x2ccc3c…2ccdd0 Dummy {f00=0x00d6, f01=0x403c, f02=» $ P DATA /6300 SOMETHING BAD, TRAP P END ,@ 8 : P* B 8 P**************************************************** L P* $ P* PHILIPS TERMINAL SYSTEM PTS P* 8 P**************************************************** P* (
0x2ccdd0…2ccf64 Dummy {f00=0x00d6, f01=0x2008, f02=» ES | PTTABE EQU * P* & P END 0@ <LER TERMINAL , P* T P* ^ P ENTRY TTABX TABLE ENTRY h P* P* P* P* P* PTTABX DATA 0 P DATA 60 TERMINAL STATUS & P DATA /EE TERMINAL IDENTIF
0x2ccf64…2cd0f8 Dummy {f00=0x00d6, f01=0x0190, f02=»ADF@ N FDBAI1 P FDBDBR: X " FDBDMIL Y 6 FDBMRO Z J FDBBLZ ^ FDBMEC ^ r FDBKEY ^ CRNTID CRNSTA CRNCDF TIODM ECBCW * & 6
0x2cd0f8…2cd28c Dummy {f00=0x00d6, f01=0x0190, f02=» _ Y A X T X % T U , ( $P ^ =A Y 6T * CRNGETG Z , ( P H I T l , ( I $ C C T , ( / X?j ?j W _l X X , ( O # Xt
0x2cd28c…2cd420 Dummy {f00=0x00d6, f01=0x0190, f02=»PB:FR ECBRL , ( 6P I , ( @ B Y < H H C N FNDFDB ~ , ( C _ X "" * & 6 Q X C X DT T W Y , ( H H S W
0x2cd420…2cd5b4 (2, 144) Opaque[0x194]
0x2cd5b4…2cd748 # DirEnt {nam=»DSKSUB«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x1ad0, f03=0x0000}
0x2cd5b4…2cd748 IdxSect {
0x2cd5b4…2cd748 f00 = 0x00d6 // 0x2cd5b4 @0x0
0x2cd5b4…2cd748 f01 = 0x000a // 0x2cd5b6 @0x2
0x2cd5b4…2cd748 gno = [ // 0x2cd5b8 @0x4
0x2cd5b4…2cd748 [0x00]: C0x00d6.0x2.0
0x2cd5b4…2cd748 [0x01]: C0x00d6.0x3.0
0x2cd5b4…2cd748 [0x02]: C0x00d7.0x0.0
0x2cd5b4…2cd748 [0x03]: C0x00d7.0x1.0
0x2cd5b4…2cd748 [0x04]: C0x00d7.0x2.0
0x2cd5b4…2cd748 ]
0x2cd5b4…2cd748 }
0x2cd748…2cd8dc Dummy {f00=0x00d6, f01=0x0190, f02=» 2 P IDENT DSKSUB REL 10.0 80-03-14 870105041000 P : P* B , P**************************************** L P* | , P* PHILIPS TERMINAL SYSTEM PTS * P* , P* DSKSUB = DISC SUBROUTINES * P* P* P*
0x2cd8dc…2cda70 Dummy {f00=0x00d6, f01=0x0190, f02=»FILE MANAGEMENT SUBROUTINES: P* $ 4 P* - VOLCLR = CLEAR VOLUME NAME(S) IN DISC DWT . < P* - VOLNAM = MOVE VOLUME NAME FROM DWT TO USER BUFFER f 6 P* - VOLADR = COMPUTE VOLUME NAME ADDRESS IN DWT > P* - NVLCHK = CHECK IF NEW VOLUME LOADE
0x2cda70…2cdc04 Dummy {f00=0x00d6, f01=0x0190, f02=» 6 P* - INXDWT = COMPUTE DWT ADDRESS + DOUBLE INDEX 8 P* - NVLTAB = TTAB ADDRESSES FOR TASKS TO HAVE NVL > P* z P* P EJECT DSKSUB P* P* P*********** P* ENTRIES * P*********** P* P* , P
0x2cdc04…2cdd98 Dummy {f00=0x00d6, f01=0x0190, f02=»ME NAME ADDRESS IN DWT v . P ENTRY NVLCHK CHECK FOR NEW VOLUME LOADED : P ENTRY VOLGET MOVE VOLUME NAME FROM DISC BUFFER TO DWT P , P ENTRY NEWVOL SET NEW VOLUME LOADED BITS 4 P ENTRY INXDWT COMPUTE DWT ADDRESS + DOUBLE INDEX 6 P ENTRY NVLTAB TTAB
0x2cdd98…2cdf2c Dummy {f00=0x00d6, f01=0x0190, f02=»T MASK | P EJECT DSKSUB P* $ P* . P************* 8 P* EXTERNALS * N P************* d P* z P* 4 P EXTRN IHRTN RETURN WITHOUT ENABLING INTERRUPTS P EXTRN TTABLD LDTASK TTAB P EXTRN TTABFM FMTASK TTAB *
0x2cdf2c…2ce0c0 Dummy {f00=0x00d6, f01=0x0190, f02=»RN DWTTAB TTAB ADDRESS " P EXTRN DWTUEC USER ECB ADDRESS P EXTRN DWTVOL VOLUME NAME D ( P EXTRN DWTNVL NEW VOLUME LOADED FLAG f " P EXTRN EWTVOL VOLUME FILE CODE 2 P EXTRN FWTEW1 POINTER TO 2ND EWT BLOCK IN FWT $ P EXTRN FWTPAR ACCESS PARAM
0x2ce0c0…2ce254 (2, 145) Dummy {f00=0x00d6, f01=0x0190, f02=»CBEL ECB EFFECTIVE LENGTH P EJECT DSKSUB " P* 8 P* B , P*************************************** L P* | P* CONDITIONAL ASSEMBLY P* , P*************************************** P* P* . P* A PROGRAM VERSION US
0x2ce254…2ce3e8 Dummy {f00=0x00d6, f01=0x0190, f02=»VERSION USING THE EXTENDED INSTRUCTION . P* SET IS OBTAINED BY SETTING CPU852 EQU 0. . P* ` PCPU852 EQU 0 j P* ~ * . ** A PROGRAM VERSION USING TOSS DISC PAGING * &* IS OBTAINED BY SETTING DSKPAG EQU 1. * PDSKPAG EQU 1
0x2ce3e8…2ce57c Dummy {f00=0x00d6, f01=0x018e, f02=» P* PSWPBLK EQU 0 P* " P EJECT DSKSUB , P* D P* N 2 P* A PROGRAM VERSION SUPPORTING FILE MANAGEMENT X * P* IS OBTAINED BY SETTING FILMAN EQU 1. P* PX:A EQU 0 PFILMAN EQU 1 P* P* 2 P* A PROG
0x2ce57c…2ce710 Dummy {f00=0x00d6, f01=0x0190, f02=» P* P EJECT DSKSUB P* * P* 4 P********** > P* VOLCLR * P P********** b P* t P* ~ 6 P* VOLCLR WILL CLEAR THE REQUESTED VOLUME NAME(S) " P* IN THE REQUESTED DISC DWT. P* . P* INPUT: A1 = NUMBE
0x2ce710…2ce8a4 Dummy {f00=0x00d6, f01=0x0190, f02=» P LDR A2,A1 & P CF A15,VOLADR VOLUME NAME ADDRESS P* D PVCLR10 EQU * N P CMR A1 CLEAR ONE WORD b P ADK A1,2 INCREMENT POINTER $ P SUK A2,2 DECREMENT LOOP COUNTER P RB(P) VCLR10 P RF RETURN P* P EJECT DS
0x2ce8a4…2cea38 Dummy {f00=0x00d6, f01=0x0190, f02=»E NAME OF SELECTED DISC r 4 P* TO THE USER BUFFER IF REQUESTED LENGTH = 6. P* X P* INPUT: A6 = DWT ADDRESS b P* A8 = ECB ADDRESS P* $ P* OUTPUT: A1-A4 ARE DESTROYED P* PVOLNAM EQU * $ P LD A1,ECBRL,A
0x2cea38…2cebcc Dummy {f00=0x00d6, f01=0x0190, f02=»T A4,ECBEL,A8 SET EFFECTIVE LENGTH P* * P IFT MMUPAG=0 4 ( P LD A2,ECBBA,A8 USER BUFFER ADDRESS J P* v P EJECT DSKSUB P* P* PVNAM10 EQU * P LDR* A3,A1 MOVE ONE WORD P STR A3,A2 ( P ADK A1,2 INCREMENT
0x2cebcc…2ced60 Dummy {f00=0x00d6, f01=0x0190, f02=» P IFT MMUPAG=1 2 P LD A2,DWTTAB,A6 TTAB ADDRESS OF CALLING TASK P TS -30,A15 SAVE RUNNING MMU T P TL TTB:MT,A2 LOAD USER MMU x & P LD A2,DWTUEC,A6 USER ECB ADDRESS ( P EL A2,ECBBA,A2 USER BUFFER ADDRESS P MVSU A4 MOVE VOLUME N
0x2ced60…2ceef4 (2, 146) Dummy {f00=0x00d7, f01=0x0190, f02=»****** P* VOLADR * P********** P* 2 P* < P* INPUT: A6 = DWT ADDRESS F P* j ( P* OUTPUT: A1 = VOLUME NAME ADDRESS t P* A4 = 6 P* PVOLADR EQU * P LC A4,DWTOR,A6 INDEX P* PVOLA05 EQU *
0x2ceef4…2cf088 Dummy {f00=0x00d7, f01=0x0190, f02=»4,1 P RB(NN) VOLA10 P LDK A4,6 " P RF RETURN 4 P* F P EJECT DSKSUB P P* h P* r P********** | P* NVLCHK * P********** P* P* 8 P* NVLCHK IS CALLED AT ACTIVATION FROM DISC DRIVER 8 P* TO
0x2cf088…2cf21c Dummy {f00=0x00d7, f01=0x0190, f02=»A6 = DWT ADDRESS P* 6 P* OUTPUT: A1 = RETURN CODE (/20 IF NVL, ELSE 0) " 0 P* A2 = DWT ADDRESS + DOUBLE INDEX $ P* A3, A4 ARE DESTROYED P* PNVLCHK EQU * $ P LD A2,DWTOR,A6 INDEX AND ORDER 0 P ST A2,DWT
0x2cf21c…2cf3b0 Dummy {f00=0x00d7, f01=0x0190, f02=»FF RESET BIT 0 (FIRST REQUEST BIT) P ST A1,DWTNVL,A2 * P ANK A1,/FF CHECK IF NVL B " P RF(Z) RETURN RETURN IF NO NVL b " P LD A4,DWTTAB,A6 TTAB ADDRESS P LDK A1,1 " P LDKL A3,NVLTAB NVLTAB ADDRESS P* P EJECT DSKSUB P
0x2cf3b0…2cf544 Dummy {f00=0x00d7, f01=0x0190, f02=»,A3 CHECK TTAB ADDRESS $ P RF(E) NVL:20 NVL FOR THIS TASK P SLL A1,1 SHIFT NVL BIT MASK F * P ADK A3,2 POINT TO NEXT TTAB IN NVLTAB j P RB NVL:10 P* PNVL:20 EQU * 0 P AN A1,DWTNVL,A2 CHECK IF NVL FOR THIS TASK & P RF(Z) RETUR
0x2cf544…2cf6d8 Dummy {f00=0x00d7, f01=0x0190, f02=»* P* $ PRETURN EQU * COMMON RETURN LABEL P IFT CPU852=1 < 2 P ABL IHRTN RETURN WITHOUT ENABLING INTERRUPTS R P XIF P* P IFT CPU852=0 P RTN A15 P XIF P* P EJECT DSKSUB P* P* P**
0x2cf6d8…2cf86c Dummy {f00=0x00d7, f01=0x018e, f02=» DISC DWT AND CHECK IF THERE IS A NEW VOLUME MOUNTED. P* > ( P* INPUT: A2 = DISC BUFFER ADDRESS H 2 P* A3 = FILE CODE (FOR DRIVE WITH INDEX = 0) t 0 P* BIT 0 SET MEANS TEST STATUS ORDER P* A6 = DWT ADDRESS P*
0x2cf86c…2cfa00 Dummy {f00=0x00d7, f01=0x0190, f02=» * P CF A15,VOLADR DWT VOLUME NAME ADDRESS P LDK A7,0 RESET NVL FLAG 6 P* V PVGET10 EQU * ` , P LDR* A8,A2 ONE WORD OF NEW VOLUME NAME t , P CWR* A8,A1 COMPARE WITH OLD VOLUME NAME P RF(E) VGET20 P LDK A7,1 SET NVL FLAG $ P
0x2cfa00…2cfb94 (2, 147) Dummy {f00=0x00d7, f01=0x0190, f02=»FFER POINTERS z P ADK A2,2 $ P SUK A4,2 DECREMENT LOOP COUNTER ( P RB(P) VGET10 P P CF A15,INXDWT f P ADK A7,0 CHECK NVL FLAG | " P RB(Z) RETURN RETURN IF NO NVL . P SLA A3,1 CHECK IF TEST STATUS OR RECOVERY & P RB(O) RETURN TEST S
0x2cfb94…2cfd28 Dummy {f00=0x00d7, f01=0x0190, f02=»THIS DISC l P SLL A7,1 $ P RB(N) RETURN FIXED DISC, NO NVL $ P* L P EJECT DSKSUB V P* n P* x P********** P* NEWVOL * P********** P* P* > P* NEWVOL IS ENTERED FROM THE ROUTINE VOLGET WHEN IT HAS
0x2cfd28…2cfebc Dummy {f00=0x00d7, f01=0x0190, f02=»THE CONCERNED FILE CODE AND FILES 8 P* OPENED ON THAT VOLUME. TASKS REPRESENTED IN THE * 4 P* TABLE NVLTAB WILL GET RETURN CODE /20 AT THE f ( P* NEXT REQUEST ON THAT FILE CODE. P* 4 P* INPUT: A3 = FILE CODE (DISC ONE FOR DRIVER)
0x2cfebc…2d0050 Dummy {f00=0x00d7, f01=0x0190, f02=»* A1-A2 ARE DESTROYED P* PNEWVOL EQU * * P LD A2,NVLBIT NVL BIT MASK > 0 P ST A2,DWTNVL,A4 INDICATE NEW VOLUME LOADED ` P LC A2,DWTOR,A6 INDEX P ANK A2,/3 P ADR A3,A2 ACTUAL FILE CODE P* P EJECT DSKSUB
0x2d0050…2d01e4 Dummy {f00=0x00d7, f01=0x0190, f02=» POINTER r P* > P* SET NEW VOLUME LOADED FOR ALL FILES ON CONCERNED VOLUME P* PNEW:10 EQU * f P LDR* A2,A1 NEXT FWT ADDRESS z P RB(Z) RETURN NO MORE FWT:S P LDR A1,A2 SAVE FWT ADDRESS 2 P ADKL A2,FWTEW1 ADDRESS TO FIRST E
0x2d01e4…2d0378 Dummy {f00=0x00d7, f01=0x0190, f02=»F(NE) NEW:30 P LDKL A2,/8000 NVL BIT 0 P ORS A2,FWTPAR,A1 INDICATE NEW VOLUME LOADED 2 P RB NEW:10 f P* x PNEW:30 EQU * . P LDR* A2,A2 ADDRESS TO NEXT EWT STRUCTURE , P RB(Z) NEW:10 END OF THIS EWT STRUCTURE ( P RB NEW:20 CONTI
0x2d0378…2d050c Dummy {f00=0x00d7, f01=0x0190, f02=»**** P* P* H P* INXDWT WILL COMPUTE THE DWT ADDRESS ADDED TO THE DOUBLED INDEX. P* l P* INPUT: A6 = DWT ADDRESS v P* 0 P* OUTPUT: A4 = DWT ADDRESS + DOUBLE INDEX * P* NO REGISTERS ARE DESTROYED P*
0x2d050c…2d06a0 Dummy {f00=0x00d7, f01=0x0190, f02=» P* P EJECT DSKSUB P* * P* 4 P********** > P* NVLTAB * P P********** b P* t P* ~ 4 P* NVLTAB HOLDS THE TTAB ADDRESSES OF THE TASKS 6 P* THAT WILL RECEIVE NEW VOLUME LOADED WHEN A NEW P* VOLUME HAS
0x2d06a0…2d0834 (2, 148) Dummy {f00=0x00d7, f01=0x0190, f02=» | P DATA TTABLD LDTASK TTAB P XIF ( P* 4 PNVLDMT EQU * > P IFT FILMAN=1 R P IFT DATMAN=1 h P DATA 0 TTAB #D ~ P DATA 0 TTAB #E P DATA 0 TTAB #F P DATA 0 TTAB #G P XIF P* P IFT FILMAN=1
0x2d0834…2d09c8 Dummy {f00=0x00d7, f01=0x4164, f02=» FILMAN=0 P IFF DSKPAG+SWPBLK=0 P DATA TTABLD LDTASK TTAB . P* N PNVLEND EQU * X P* l PNVLBIT DATA 3 NVL BIT MASK v P XIF P* P IFT FILMAN=0 P IFT DSKPAG+SWPBLK=0 P* PNVLEND EQU * P* P
0x2d09c8…2d0b5c Dummy {f00=0x00d7, f01=0x2008, f02=» NT DSKSUB PRR 10.1 79-08-09 CHLO END 2@ >
0x2d0b5c…2d0cf0 Dummy {f00=0x00d7, f01=0x0000, f02=»
[…0x4…]
0x2d1340…2d14d4 (2, 149) Opaque[0x194]
0x2d14d4…2d1668 # DirEnt {nam=»DVTKB «, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x1af8, f03=0x0000}
0x2d14d4…2d1668 IdxSect {
0x2d14d4…2d1668 f00 = 0x00d7 // 0x2d14d4 @0x0
0x2d14d4…2d1668 f01 = 0x0002 // 0x2d14d6 @0x2
0x2d14d4…2d1668 gno = [ // 0x2d14d8 @0x4
0x2d14d4…2d1668 [0x00]: C0x00d7.0x3.0
0x2d14d4…2d1668 ]
0x2d14d4…2d1668 }
0x2d1668…2d17fc Dummy {f00=0x00d7, f01=0x0190, f02=» 0 P IDENT DVTKB REL 10.0 80-03-14 870105041000 P 8 " P* KEYBOARD DEVICE WORK TABLE @ P* f P ENTRY DVTKB TABLE ENTRY p P*** ( P EXTRN KBAD POINTER TO ADDRESSBLOCK P EXTRN ECH PMMUPAG EQU 0 P* PDVTKB EQU * TABL
0x2d17fc…2d1990 Dummy {f00=0x00d7, 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
0x2d1990…2d1b24 Dummy {f00=0x00d7, 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
0x2d1b24…2d1cb8 Dummy {f00=0x00d7, f01=0x40de, f02=»G=1 PDEVECB EQU * P DATA 0,0,0,0,0,0 P DATA 0,0,0,0,0,0,0,0 : P DATA 0,0,0,0,0,0,0,0 X P DATA 0,0,0,0,0,0,0,0 v P DATA 0 P XIF PDWTEND EQU * P* P END @ IRST PLACE IN QUEUE 4 P DATA DWTSQ+DV
0x2d1cb8…2d1e4c Dummy {f00=0x00d7, 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
0x2d1e4c…2d1fe0 Dummy {f00=0x00d7, f01=0x4060, f02=»P Vd R R6 V W2 RB f $ P R P W. P )P KT " R J@ _P iP oWT wPP R Q 6 H D !&J W T 2 Pb P T T T W B V 2 P H D ! /P$ ;R K 2 SW [PH aP> gP mP q 2 wR {Q P R
0x2d1fe0…2d2174 (2, 150) Opaque[0x194]
0x2d2174…2d2308 # DirEnt {nam=»DVTGP «, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x1b00, f03=0x0000}
0x2d2174…2d2308 IdxSect {
0x2d2174…2d2308 f00 = 0x00d8 // 0x2d2174 @0x0
0x2d2174…2d2308 f01 = 0x0002 // 0x2d2176 @0x2
0x2d2174…2d2308 gno = [ // 0x2d2178 @0x4
0x2d2174…2d2308 [0x00]: C0x00d8.0x0.0
0x2d2174…2d2308 ]
0x2d2174…2d2308 }
0x2d2308…2d249c Dummy {f00=0x00d8, f01=0x0190, f02=» 0 P IDENT DVTGP REL 10.0 80-03-14 870105041000 P 8 , P* DEVICE WORK TABLE FOR GENERAL PRINTER @ P* p P ENTRY DVTGP TABLE ENTRY z P* P* ( P EXTRN GPAD POINTER TO ADDRESS BLOCK PMMUPAG EQU 0 P* PDVTGP EQU * TABL
0x2d249c…2d2630 Dummy {f00=0x00d8, f01=0x0190, f02=»ATA DWTEND-DVTGP ORDER ( P DATA GPAD POINTER TO ADDRESS-BLOCK P DATA /C750 TTAB-ADDRESS J $ P DATA 0 WAIT/ACTIVATE INDICATOR j P DATA 0 TERMINAL QUEUE IFT MMUPAG=1 & " DATA 0 SAVE AREA USER ECB ADDRESS DATA DEVECB MMU ECB ADD
0x2d2630…2d27c4 Dummy {f00=0x00d8, 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
0x2d27c4…2d2958 Dummy {f00=0x00d8, 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
0x2d2958…2d2aec Dummy {f00=0x00d8, f01=0x0190, f02=»******** P* 6 P* THE STANDARD NATIONAL CHARACTER SET IS CHOOSEN > P* BY SETTING X:A TO 0-11 ACCORDING TO THE LIST BELOW =4 T P* P* NCV=0 GREAT BRITAIN P* 1 GERMANY P* 2 FRANCE P* 3 SPAIN
0x2d2aec…2d2c80 Dummy {f00=0x00d8, f01=0x0190, f02=»GOSLAVIA/FRANCE 2 (DEPEND. ON CHAR GEN) =7 P* 9 USA 6 " P* 10 DENMARK, NORWAY 2 L P U =7(=4) r P* PX:A EQU 0 PSTDNCV EQU X:A P* 6 P* THE LOWER CASE SET CAN BE INCLUDED AS STANDARD P* BY SETTI
0x2d2c80…2d2e14 (2, 151) Opaque[0x194]
0x2d2e14…2d2fa8 # DirEnt {nam=»DVTDI «, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x1b08, f03=0x0000}
0x2d2e14…2d2fa8 IdxSect {
0x2d2e14…2d2fa8 f00 = 0x00d8 // 0x2d2e14 @0x0
0x2d2e14…2d2fa8 f01 = 0x0002 // 0x2d2e16 @0x2
0x2d2e14…2d2fa8 gno = [ // 0x2d2e18 @0x4
0x2d2e14…2d2fa8 [0x00]: C0x00d8.0x1.0
0x2d2e14…2d2fa8 ]
0x2d2e14…2d2fa8 }
0x2d2fa8…2d313c Dummy {f00=0x00d8, f01=0x0190, f02=» 0 P IDENT DVTDI REL 10.0 80-03-14 870105041000 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*
0x2d313c…2d32d0 Dummy {f00=0x00d8, 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
0x2d32d0…2d3464 Dummy {f00=0x00d8, 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,
0x2d3464…2d35f8 Dummy {f00=0x00d8, 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
0x2d35f8…2d378c Dummy {f00=0x00d8, f01=0x0190, f02=»A2 # P CM MTTIM INDICATE NO TIMER $ P RB ENDIO8 $ . P EJECT DRMT01 $ @ P $ X P* $ ` * P* SBOW SEARCH BOT AND WAIT FOR REWIND $ j P* $ P* ENTRY: $ P* $ P* A6: DWT ADDRESS $ P* $ P* EXIT: $ P* $ P* A1: STATUS
0x2d378c…2d3920 Dummy {f00=0x00d8, f01=0x0190, f02=» * PSBOW LDKL A1,-MTRTOT-1 SET UP TIME OUT % P ST A1,MTCTR % 2 P % F PSBOW10 CF A5,SBOT SEARCH BOT % N P SLC A1,2 CHECK IF READY % r " P RF(N) SBOW30 STILL REWINDING % P % PSBOW20 SRC A1,2 % P RTN A5 RETURN % P % & PSBOW30 IM MTCTR CH
0x2d3920…2d3ab4 (2, 152) Opaque[0x194]
0x2d3ab4…2d3c48 # DirEnt {nam=»DVTDY «, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x1b10, f03=0x0000}
0x2d3ab4…2d3c48 IdxSect {
0x2d3ab4…2d3c48 f00 = 0x00d8 // 0x2d3ab4 @0x0
0x2d3ab4…2d3c48 f01 = 0x0002 // 0x2d3ab6 @0x2
0x2d3ab4…2d3c48 gno = [ // 0x2d3ab8 @0x4
0x2d3ab4…2d3c48 [0x00]: C0x00d8.0x2.0
0x2d3ab4…2d3c48 ]
0x2d3ab4…2d3c48 }
0x2d3c48…2d3ddc Dummy {f00=0x00d8, f01=0x0190, f02=» 0 P IDENT DVTDY REL 10.0 80-03-14 870105041000 P 8 * P* DEVICE WORK TABLE FOR VIDEO DISPLAY @ P* n P ENTRY DVTDY TABLE ENTRY x P* P* ( P EXTRN DYAD POINTER TO ADDRESS BLOCK PMMUPAG EQU 0 P* PDVTDY EQU * TABLE
0x2d3ddc…2d3f70 Dummy {f00=0x00d8, f01=0x0190, f02=»A DWTEND-DVTDY ORDER ( P DATA DYAD POINTER TO ADDRESS-BLOCK P DATA /C459 TTAB-ADDRESS H $ P DATA 0 WAIT/ACTIVATE INDICATOR h P DATA 0 TERMINAL QUEUE IFT MMUPAG=1 & " DATA 0 SAVE AREA USER ECB ADDRESS DATA DEVECB MMU ECB ADDRE
0x2d3f70…2d4104 Dummy {f00=0x00d8, 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
0x2d4104…2d4298 Dummy {f00=0x00d8, f01=0x2008, f02=» S-BLOCK | P DATA 0 TTAB-ADDRESS $ P DATA 0 WAIT/ACTIVATE INDICATOR 4 P DATA 0 TERMINAL QUEUE P DATA 0 OUTPUT QUEUE LINK z P DATA 0 SAVE AREA FOR A3 P DATA 0 SAVE AREA FOR A4 P DATA 0 SAVE AREA FOR A5 P RES 4 DWT-S
0x2d4298…2d442c Dummy {f00=0x00d8, f01=0x0190, f02=»DDRESS TO CHANNEL STATUS 3 P* A6: DWT ADDRESS 4 P* 4 : P* EXIT: 4 D P* 4 T P* A1: STATUS AFTER RECOVERY 4 ^ $ P* A2: ADDRESS TO CHANNEL STATUS 4 P* A6: DWT ADDRESS 4 P* 4 P 4 P 4 & PMTRC LDR A7,A2 CALC CHANNEL NUMBER 4 P
0x2d442c…2d45c0 Dummy {f00=0x00d8, f01=0x0190, f02=» 4 t P CF A5,ONLI 5 P LDR* A3,A2 GET SEQ COUNTER 5 & P ABL(Z) SBOW TAPE SHOULD BE AT BOT 5 @ 8 P LDK A7,MTRBLK REVERSE TAPE TO AVOID ANY OLD BLOCKS 5 j PMTRC05 CF A5,SKPR 5 P SUK A7,1 5 P RB(NZ) MTRC05 5 P 5 * PMTRC10 CF A5,RSQN READ S
0x2d45c0…2d4754 (2, 153) Opaque[0x194]
0x2d4754…2d48e8 # DirEnt {nam=»DW1501«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x1b18, f03=0x0000}
0x2d4754…2d48e8 IdxSect {
0x2d4754…2d48e8 f00 = 0x00d8 // 0x2d4754 @0x0
0x2d4754…2d48e8 f01 = 0x0002 // 0x2d4756 @0x2
0x2d4754…2d48e8 gno = [ // 0x2d4758 @0x4
0x2d4754…2d48e8 [0x00]: C0x00d8.0x3.0
0x2d4754…2d48e8 ]
0x2d4754…2d48e8 }
0x2d48e8…2d4a7c Dummy {f00=0x00d8, f01=0x0190, f02=» 2 P IDENT DW1501 REL 10.0 80-03-14 870105041000 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*
0x2d4a7c…2d4c10 Dummy {f00=0x00d8, 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
0x2d4c10…2d4da4 Dummy {f00=0x00d8, f01=0x4124, 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 t P* P IFT MMUPAG=1 PDC:ECB EQU * MMU ECB P DATA 0,0,0,0,0,0 P XIF P* PDWTEND E
0x2d4da4…2d4f38 Dummy {f00=0x00d8, f01=0x2008, f02=» R ( P DATA DCAD POINTER TO ADDRESS-BLOCK P DATA 0 TTAB-ADDRESS > $ P DATA 0 WAIT/ACTIVATE INDICATOR Z P DATA 0 TERMINAL QUEUE P DATA 0 TIMER POINTER P DATA 0 WRITE QUEUE P DATA 0 STATUS QUEUE P DATA 0,0 SAVE ARE
0x2d4f38…2d50cc Dummy {f00=0x00d8, f01=0x0190, f02=»1 INCREMENT PAGE BLOCK COUNTER RB PAG:10 & PAG:30 EQU * 8 * L 4 /* RESERV MEMORY PAGES IN UNUSED PART OF MEMORY V 6 2* AND EXTEND PAGE TABLE WITH CORRESPONDING NUMBER * OF PAGE BLOCKS. * P XIF P IFT CREDIT+MMUP
0x2d50cc…2d5260 Dummy {f00=0x00d8, f01=0x0190, f02=»A2,SCTEFA+2 GET BIT 2-18 OF 18-BITS ADDRESS & ! SRL A2,2 SKIP TWO RIGHTMOST BITS 4 , P ORR A1,A2 16 BITS PHYSICAL PAGE ADDRESS ^ P LDR A3,A1 SAVE LD A2,SCTPSZ GET PAGE SIZE & ! SRL A2,2 SKIP TWO RIGHTMOST BITS LDR A10,A2 SAVE
0x2d5260…2d53f4 (2, 154) Opaque[0x194]
0x2d53f4…2d5588 # DirEnt {nam=»DRKB03«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x1b20, f03=0x0000}
0x2d53f4…2d5588 IdxSect {
0x2d53f4…2d5588 f00 = 0x00d9 // 0x2d53f4 @0x0
0x2d53f4…2d5588 f01 = 0x0010 // 0x2d53f6 @0x2
0x2d53f4…2d5588 gno = [ // 0x2d53f8 @0x4
0x2d53f4…2d5588 [0x00]: C0x00d9.0x0.0
0x2d53f4…2d5588 [0x01]: C0x00d9.0x1.0
0x2d53f4…2d5588 [0x02]: C0x00d9.0x2.0
0x2d53f4…2d5588 [0x03]: C0x00d9.0x3.0
0x2d53f4…2d5588 [0x04]: C0x00da.0x0.0
0x2d53f4…2d5588 [0x05]: C0x00da.0x1.0
0x2d53f4…2d5588 [0x06]: C0x00da.0x2.0
0x2d53f4…2d5588 [0x07]: C0x00da.0x3.0
0x2d53f4…2d5588 ]
0x2d53f4…2d5588 }
0x2d5588…2d571c Dummy {f00=0x00d9, f01=0x018e, f02=» 2 P IDENT DRKB03 REL 10.0 80-03-14 870105041000 P : & P =1,CIRCULAR BUFFER SIZE CHANGED B P REL 9.1 79-05-23 l P* 0 P******************************************* P* $ P* PHILIPS TERMINAL SYSTEM PTS P* P* DR
0x2d571c…2d58b0 Dummy {f00=0x00d9, f01=0x0190, f02=» b P* P* 0 P* THIS DRIVER HANDLES INPUT FROM NUMERIC . P* AND ALPHANUMERIC KEYBOARDS PTS 6236, P , P* CONNECTED TO CPU VIA CHLT OR CHRT. P* : P* ONLY INPUT DATA FROM DEPRESSED KEYS AND KEY-LOCKS $ P* ARE HANDL
0x2d58b0…2d5a44 Dummy {f00=0x00d9, f01=0x0190, f02=» P* ECHOED. P* 0 P* THE DRIVER CONSISTS OF FOLLOWING PARTS: " P* V " P* A C K B : ACTIVATION PART ` P* $ P* I H K B : INTERRUPT HANDLER P* P* E C H O : ECHO HANDLER P* $ P* R C K B : RECOVERY
0x2d5a44…2d5bd8 Dummy {f00=0x00d9, f01=0x0190, f02=»IC READ ~ P* ORDER 02: STANDARD READ P* ORDER 03: NUMERIC READ 4 & P* ORDER 31: RESET INPUT BUFFER X P* P* P* NORMAL REGISTER USAGE : P* " P* REGISTER A1 : RETURN CODE & P* A2 : INPUT CHARA
0x2d5bd8…2d5d6c Dummy {f00=0x00d9, f01=0x0190, f02=» A6 : DWT-ADDRESS P* A7 : ORDER " P* A8 : ECB-ADDRESS @ P* f P* p P* z P* SYSTEM ADAPTATION P* 8 P* CODES FOR SPECIAL CHARACTERS CLEAR, BACKSPACE, 8 P* MULTIPLE ZERO AND STANDARD
0x2d5d6c…2d5f00 Dummy {f00=0x00d9, f01=0x0190, f02=» P* , P* IF TIMING IS WANTED, TIMER POINTER , P* IN DWT MUST BE SET UNEQUAL TO ZERO. > 2 P* STANDARD VALUE FOR TIME-OUT IS 30 SECONDS n 4 P* SINCE LAST DEPRESSED KEY. IF ANOTHER VALUE * P* IS WANTED FOR A SYSTEM, INDICATOR $
0x2d5f00…2d6094 (2, 155) Dummy {f00=0x00d9, f01=0x0190, f02=»D VALUE IS 7 CHARACTERS t 8 P* NOTE !!! THAT LENGTH MUST BE THE SAME FOR ALL P* DWT:S IN SYSTEM P EJECT x P* 8 P* BY MEANS OF CONDITIONAL ASSEMBLY IT IS POSSIBLE 8 P* TO EXCLUDE FROM THE DRIVER FOLLOWING FUNCTIONS: P
0x2d6094…2d6228 Dummy {f00=0x00d9, f01=0x0190, f02=»IFT-FUNCTION | , P* -----KEYBOARD LOCK IF NO KEYLOCK ON P* D P* ENTRIES N P* b P* l P ENTRY KBAD3 ADDRESS-BLOCK v P* P* P* & P* EXTERNAL TOSS MODULE ENTRIES P* P* P* $ P EXTRN DIS
0x2d6228…2d63bc Dummy {f00=0x00d9, f01=0x018e, f02=»TRY v 0 P EXTRN LDREG LOAD REGISTERS A2-A8 AND RETURN 4 P EXTRN STREG STORE REGISTERS AND GO TO DISPATCER @ , P EXTRN LDREGE RETURN FROM ECHOE HANDLING x P EXTRN LDREGF PANIK EXTERN P EXTRN SETIME SET TIME P EXTRN SETIMP SET TIME " P E
0x2d63bc…2d6550 Dummy {f00=0x00d9, f01=0x0190, f02=» r P* P* P* P* DWT PARAMETERS & P* B P* L P* V " P EXTRN DWTCHP CHANEL PARAMETER ` P EXTRN DWTST STATUS EXTRN DWTBC BYTE COUNTER & " EXTRN DWTADR DRIVER ADDRESS BLOCK P EXTRN DWTA3 SAVE AREA A3
0x2d6550…2d66e4 Dummy {f00=0x00d9, f01=0x018e, f02=» DEVICE DWT ~ P EXTRN DWTTP TIMER POINTER P EXTRN DWTWAT SAVE INPUT DWT 6 P EJECT Z P* h P* r P* | P* CONSTANTS P* P* P* * POVMASK EQU /2 OVERFLOW IN INPUT BUFFER P* . PX:F EQU 8 LENGTH OF
0x2d66e4…2d6878 Dummy {f00=0x00d9, f01=0x0190, f02=» P* " PTIME EQU 300 TIME OUT CONSTANT P* 4 P EJECT > P* L P* V , P**************************************** ` , P* CONDITIONAL ASSEMBLY * , P**************************************** P* . P* TIME OUT
0x2d6878…2d6a0c Dummy {f00=0x00d9, f01=0x0190, f02=»NCTION MAY BE EXCLUDED BY P* SETTING X:B = 0. " P* @ PX:B EQU 1 J PCECHO EQU 1 P* p > P* BY SETTING X:E = 1 THE FOLOWING POWER OFF FUNCTION z & P* IS INCLUDED IN THE DRIVER. < P* IF THERE IS A READ REQUEST
0x2d6a0c…2d6ba0 Dummy {f00=0x00d9, f01=0x0190, f02=»T V @ P* AFTER POWER ON IS COMPLETED WITH ZERO IN CONTROL WORD P* OF ECB N P* d P* n PX:E EQU 0 x PPOWOFF EQU 1 P* P* P* N P* BY SETTING X:H = 1 THE KEY A15IS USED AS A NUMERIC SHIFT ON KB 71/72
0x2d6ba0…2d6d34 (2, 156) Dummy {f00=0x00d9, f01=0x0190, f02=»I EQU 0 PKBLOCK EQU 1 P* $ P* . . P* A PROGRAM VERSION USING TOSS MMU PAGING 8 * P* IS OBTAINED BY SETTING MMUPAG EQU 1. j P* PMMUPAG EQU 1 P* P* 6 P* A PROGRAM VERSION USING THE EXTENDED INSTRUCTION . P* SE
0x2d6d34…2d6ec8 Dummy {f00=0x00d9, f01=0x0190, f02=» PX:J EQU 10 PDVBLEN EQU 100 P* 0 P* : P* MMU KEY TABLE SIZE D P* b P* l PX:K EQU 10 v PDVBKTB EQU 50 P* P EJECT P* P* P* DWT-DISPLACEMENT P* P* 0 PDWTDRD EQU /
0x2d6ec8…2d705c Dummy {f00=0x00d9, f01=0x0190, f02=» PSTART EQU DWTDRD+4 P XIF P* * * PDWTCON EQU START+/00 CONVERSION TABLE 4 8 PDWTINQ EQU START+/18 POINTER TO FIRST PLACE IN QUEUE b 8 PDWTUTQ EQU START+/1A POINTER TO LAST PLACE IN QUEUE & PDWTSQ EQU START+/1C START OF QUEUE ( PDWTE
0x2d705c…2d71f0 Dummy {f00=0x00d9, f01=0x0190, f02=»ART+/14 BACK-SPACE CHARACTER ( PKBCLR EQU START+/15 CLEAR CHARACTER $ . PKBMZ2 EQU START+/17 DOUBLE ZERO CHARACTER P PKBMZ3 EQU START+/16 P* P EJECT P* TABLES P* P* $ P DATA DVBKTB MMU KEY TABLE SIZE P
0x2d71f0…2d7384 Dummy {f00=0x00d9, f01=0x0190, f02=»A 0 ABORT ROUTINE ADDRESS P DATA IHKB INTERRUPT HANDLER " P IFT POWOFF=1 F P DATA RCKB RECOVERY ROUTINE P XIF P IFT POWOFF=0 P DATA 0 NO RECOVERY P XIF P* P IFT POWOFF=1 P EJECT P* RCKB
0x2d7384…2d7518 Dummy {f00=0x00d9, f01=0x0190, f02=» P XIF P* P IFT POWOFF=1 P IFT CPU852=0 0 " P MSR 8,A15 SAVE A1-A8 ON STACK F P XIF l P* x P IFT POWOFF=1 P LD A3,DWTST,A6 BUSY? P RF(NN) RCKB10 P LDKL A1,/200 ( P ORS A1,DWTST,A6 INDICATE POWER OFF
0x2d7518…2d76ac Dummy {f00=0x00d9, f01=0x0190, f02=» ACKB P* : P* ACTIVATION PART: CHECS VALIDITY OF ORDERS AND P* V @ P* EXAMINES INPUT BUFFER TO SEE IF SOME QUEUED CHARACTER ` P* P* TO THREAT P* P* P* P* PACKB EQU * P LDKL A1
0x2d76ac…2d7840 Dummy {f00=0x00d9, f01=0x0190, f02=» P RF(NG) AKB100 ILLEGAL ORDER P SUK A4,4 ( P RF(N) AKB200 ORDER 1,2 OR 3 : P SUK A4,/2D ^ P RF(Z) AKB110 ORDER 31 r * PAKB100 ORKL A1,/8000 I/0 REQUEST ERROR P ABL ENDI10 P EJECT P* P* P* & P* ORD
0x2d7840…2d79d4 (2, 157) Dummy {f00=0x00d9, f01=0x0190, f02=»Q,A6 RESET OUTPUT QUEUE P ABL ENDIO P* 2 P EJECT < P* J P* T P* ORDER 1,2,3 ^ P* x P* P* PAKB200 EQU * P IFT POWOFF=1 P LD A2,DWTST,A6 P ANKL A2,/200 POWER OFF? P RF(E) AKB205 NO
0x2d79d4…2d7b68 Dummy {f00=0x00d9, f01=0x0190, f02=»F(E) AKB205 P CM 10,A8 INDICATE POWER OFF P RF AKB218 8 P XIF J PAKB205 EQU * V P IFT CTIMUT=1 j P LDR* A1,A6 P ANK A1,/40 TIMING? , P RF(E) AKB210 NO TIMING FOR THIS DEVICE! , P LD A4,DWTTP,A6 CHECK IF ALREADY TIMING
0x2d7b68…2d7cfc Dummy {f00=0x00d9, f01=0x0190, f02=»OINTER z P ADR A4,A6 ADD DWT-ADDRESS P LDR A1,A6 0 P CF A15,SETIMP SET TIME B 0 P DATA AKBTUT,TIME TIME OUT ROUTINE AND TIME b . P ST A4,DWTTP,A6 STORE TIMER ADDRESS IN DWT P XIF P* P EJECT P* IF ANY KEY-LOCK:
0x2d7cfc…2d7e90 Dummy {f00=0x00d9, f01=0x0190, f02=» IN CASE OF STANDARD OR NUMERIC READ MAKE ECB-CODE & P* AND END I/O. ELSE CONTINUE. > P* h P* r PAKB210 EQU * | " P LD A2,DWTST,A6 ANY KEY-LOCK? P ANK A2,/F P RF(Z) AKB219 P SLL A2,1 P SRN A2,A4 P LDR A
0x2d7e90…2d8024 Dummy {f00=0x00d9, f01=0x0190, f02=»B212 XRS A4,DWTST,A6 RESET OLD KEY-FLAG P LDR A2,A4 0 P SLL A4,4 B P AN A4,DWTST,A6 T P STR A4,A15 SAVE A4 l P STR A3,A15 P SRN A2,A3 ORDER 1 " P ADR A3,A3 MAKE CHARACTER FLAG P LDR A4,A4 P RF(NE) AKB213 P A
0x2d8024…2d81b8 Dummy {f00=0x00d9, f01=0x0190, f02=»15 RESTORE A4 P CWK A7,1 $ P RF(E) AKB307 JUMP IF BASIC READ ( " PAKB214 NGR A2,A1 MAKE ECB CODE P P LDR A4,A4 KEY FLAG v P RF(E) AKB215 P SUK A2,4 , PAKB215 ST A2,10,A8 KEY-LOCK CODE IN ECB PAKB218 ABL AKB380 ( PAKB2
0x2d81b8…2d834c Dummy {f00=0x00d9, f01=0x0190, f02=»A1,2,A8 BUFFER ADDRESS P SUK A1,1 P ADR A1,A2 0 & PAKB230 SCR A3,A1 CLEAR ECB BUFFER B P SUK A1,1 l P SUK A2,1 ~ P RB(NE) AKB230 PAKB240 EQU * P LD A1,DWTUTQ,A6 P LCR A2,A1 PAKB245 LDR A4,A2 P XRK A4,/FF
0x2d834c…2d84e0 Dummy {f00=0x00d9, f01=0x018e, f02=»AKB250 CW A1,DWTINQ,A6 SOMETHING IN QUEUE? P RF(NE) AKB255 2 " P CF A5,STREG NOTHING IN QUEUE J P IFT CTIMUT=1 p * P LDR A1,A1 CHECK TIME OUT RETURN CODE P RF(Z) AKB257 NO TIME OUT $ P ABL ENDI05 END I/O AT TIME OUT P XIF
0x2d84e0…2d8674 (2, 158) Dummy {f00=0x00da, f01=0x0190, f02=» l PAKB257 EQU * P LDR A4,A7 P SUK A4,2 . P RF(NN) AKB310 ORDER 2 OR 3 @ P EJECT d P* r P* | P* ORDER 1 BASIC READ P* P* P* 6 PAKB305 CF A15,STORE STORE CHARACTER IN ECB-BUFFER P IFT CECHO
0x2d8674…2d8808 Dummy {f00=0x00da, f01=0x0190, f02=» KEYS? | P ANK A2,/F P RB(NZ) AKB210 P RB AKB225 6 P EJECT H P* V P* ` P* j 4 P* ORDER 2 OR 3 STANDARD AND NUMERIC READ t P* B P* CHECK IF READ CHARACTER IS FOUND IN KEY-TABLE (IF ANY) P* P*
0x2d8808…2d899c Dummy {f00=0x00da, f01=0x0190, f02=»ABLE LENGTH IN A4 P ANK A4,/FF & P ADR A1,A4 LAST PLACE IN KEY-TABLE . P ADK A1,1 X PAKB355 SUK A4,1 j , P RF(N) AKB360 KEY NOT FOUND IN KEY-TABLE P SUK A1,1 NEXT KEY P CCR A2,A1 EOR? P RB(NE) AKB355 NO! P ADK A4,1
0x2d899c…2d8b30 Dummy {f00=0x00da, f01=0x0190, f02=»OR-CHARACTER z " P CF A5,ECHO ECHO EOR-CHARACTER ! P XIF ! : P RF AKB380 ! F PAKB360 EQU * ! X P LDR A4,A2 ! l P CC A4,KBMZ2,A6 ! ~ P RF(E) KBMZ20 ! P CC A4,KBMZ3,A6 ! P RF(E) KBMZ30 ! P CC A4,KBBSP,A6 ! P RF(E) KBSP10 ! P
0x2d8b30…2d8cc4 Dummy {f00=0x00da, f01=0x018e, f02=»ED CHARACTER ! x P RF(N) AKB364 LESS THAN /20 " P SUK A4,/5F CHARACTER > /7F " 8 P RF(P) AKB364 YES " P CWK A7,2 " v $ P RF(E) AKB366 STANDARD READ OK " P ADK A4,/4F " P RF(N) AKB364 " P SUK A4,/A " " P RF(N) AKB366 NUMERIC READ
0x2d8cc4…2d8e58 Dummy {f00=0x00da, f01=0x018e, f02=» " P XIF # P CW A3,4,A8 LENGTH OVERFLOW? # " PAKB367 ABL(L) AKB210 NO RETURN # 8 & PAKB368 LDK A1,8 YES SET ERROR CODE # ^ P RF ENDIO END I/O # P EJECT # PKBMZ30 EQU * TRIPPLE ZERO # P LDK A4,3 # P RF KBMZ25 # PKBMZ20 LDK A4,2 DO
0x2d8e58…2d8fec Dummy {f00=0x00da, f01=0x018e, f02=» # P IFT CECHO=1 $ P CF A5,ECHO $ P XIF $ 0 P CW A3,4,A8 $ < P RB(L) KBMZ25 $ P PKBMZ27 EQU * $ f P SUK A4,1 ANY MORE ZEROES $ z $ P RB(L) AKB368 NO,SET RETURN CODE $ P INH $ * P LD A1,DWTUTQ,A6 GET OUTQUEUE POINTER $ P SUR A1,A6
0x2d8fec…2d9180 Dummy {f00=0x00da, f01=0x0190, f02=» P SUK A1,1 % P RF KBMZ40 % 2 PKBMZ29 ADR A1,A6 GET PREIOUS POINTER POSITION % ( P SUK A1,1 % ^ , PKBMZ40 CW A1,DWTINQ,A6 ANY SPACE LEFT ? % p P RF(E) KBMZ90 NO NOT REALY. % 0 P ST A1,DWTUTQ,A6 STORE NEW OUTQUEUE POINTER % & P LDK A2,/30 STOR
0x2d9180…2d9314 (2, 159) Dummy {f00=0x00da, f01=0x0190, f02=» P SCR A4,A1 & $ P ST A1,DWTUTQ,A6 UPPDATE POINTER & ( P LDK A1,/A SET RETURN CODE FOR BOTH & > . PENDIX RF ENDIO LENGTH AND THRUGHPUT ERRORS & j P* & P* & P* & PKBCL10 EQU * CLEAR & P LDK A3,0 & P LDK A2,/18 & P RB AKB366 &
0x2d9314…2d94a8 Dummy {f00=0x00da, f01=0x0190, f02=»AR IN ECB-BUFFER & x P CF A15,STORE ' P SUK A3,1 ' . PKBSP15 LDK A2,/8 ' @ P RB AKB366 ' X P* ' j P* ' t PAKB380 LDK A1,0 RETURN CODE ' ~ P EJECT ' P* ' P* ' , P* THIS IS A COMMON END OF THE DRIVER ' P* ' 2 P* SET E
0x2d94a8…2d963c Dummy {f00=0x00da, f01=0x0190, f02=»NH ' P IFT CTIMUT=1 ( P LD A4,DWTTP,A6 ( * P RF(E) ENDI05 NO TIMING ON THIS DEVICE ( 8 P CM* DWTTP,A6 RESET TIMER ( f P CM DWTTP,A6 ( P XIF ( P* ( , PENDI05 ST A3,6,A8 STORE EFFECTIVE LENGTH ( PENDI10 EQU * ( P* ( P IFT CEC
0x2d963c…2d97d0 Dummy {f00=0x00da, f01=0x0190, f02=» ( P* ) P EJECT ) P* ) P* ) * P* ) 4 P* IHKB ) > P* ) P P* ) Z F P* THIS IS THE INTERRUPT HANDLER ENTERED FROM CHLT/CHRT DRIVER ) d P* ) P* ) P* ) PIHKB EQU * ) P ANK A2,/FF ) * P CF A15,KONVER CONVERT
0x2d97d0…2d9964 Dummy {f00=0x00da, f01=0x0190, f02=»D A3,DWTST,A6 NORMAL CHAR ) P IFT KBLOCK=1 * " P ANK A3,/FF * 8 P RF(Z) EXIT * L P LD A3,DWTST,A6 I/O REQUEST? * ` P XIF * * P RF(N) IHKB15 NO READ REQUEST PENDING * " P SLL A3,7 INTERRUPT ALLOWED ? * 4 P RF(NN) IHKB15 NO, STORE CHARACTER I
0x2d9964…2d9af8 Dummy {f00=0x00da, f01=0x0190, f02=»IME * x P ST* A3,DWTTP,A6 + P XIF + $ , PIHKB07 ABL LDREG RETURN TO READ ROUTINE + 0 , PIHKB12 CF A15,KEYSET SET KEY CODE IN DWT + ` P LDR A3,A3 + P RF(Z) EXIT NO KEY CHANGE + P LD A3,DWTST,A6 + ( P RF(N) EXIT NO READ REQUEST PENDING + P
0x2d9af8…2d9c8c Dummy {f00=0x00da, f01=0x0190, f02=»A6 + P ABL AKB210 , P , PIHKB15 LD A1,DWTINQ,A6 , & P LCR A4,A1 , D " P XRK A4,/FF ALREADY OVERFLOW? , V P RF(E) EXIT YES , | P LDR A3,A1 , 4 P CF A15,EOQUEU GET NEXT OUTQUEUE POINTER ADDRESS , P CW A1,DWTUTQ,A6 OVERFLOW? , ( P RF(NZ)
0x2d9c8c…2d9e20 Dummy {f00=0x00da, f01=0x0190, f02=»NQUEUE POINTER , r PIHKB30 SCR A2,A3 - PEXIT ABL TDISP - . P* - D P EJECT - N P* - P* - f P* - p P* AKBTUT - z P* - & P* THIS IS THE TIME-OUT ROUTINE - P* - P* - P* - P IFT CTIMUT=1 - PAKBTUT EQU * - "
0x2d9e20…2d9fb4 (2, 160) Dummy {f00=0x00da, f01=0x0190, f02=»ATCH IF NO REQUEST ON - , P RB IHKB07 RESTORE REGISTER AND END I/O . P XIF . N P EJECT . Z P* . h P* . r P* . | P* . P* KEYSET . P* . P* . P* . , P* ON ENTRY: A4= NEG KEY-LOCK VALUE . P* . @ P* ON EXI
0x2d9fb4…2da148 Dummy {f00=0x00da, f01=0x0190, f02=» P LDKL A2,/100 / PSET100 SRL A2,1 / P ADK A4,2 IN A4: 1=OFF 0=ON / 2 P RB(N) SET100 / V $ P ANR A3,A2 CHEC OLD KEY POSITION / l " P RF(NZ) SET300 JUMP IF KEY ON / P LDR A4,A4 / P RF(NZ) SET500 / P RF SET400 / PSET300 LDR A4,A4 /
0x2da148…2da2dc Dummy {f00=0x00da, f01=0x0190, f02=»DK A3,1 A3=1 IF KEY LOCK HAS CHANGED / PSET500 LDR* A4,A15 0 , P RTN A15 0 F P EJECT 0 V P* 0 d P* 0 n P* 0 x P* KONVER 0 P* 0 * P* KONVER CONVERTS INPUT CHARACTER 0 P* 0 P* 0 ( P* ON ENTRY: A2= INPUT CHARACTER 0
0x2da2dc…2da470 Dummy {f00=0x00da, f01=0x0190, f02=»RL,SHIFT 0 P $ P* A5 IS DESTROYED! 1 P* 1 8 P* 1 B PKONVER EQU * 1 L P LDR A4,A2 1 ` P IFT NSHIFT=0 1 r P SUK A4,/7C CODE > /7B 1 P RF(NN) KON500 YES 1 P LDR A4,A2 RESTORE CHARACTER 1 P XIF 1 8 P STR A2,A15 STORE CHARAC
0x2da470…2da604 Dummy {f00=0x00da, f01=0x0190, f02=»N) KON180 ALFANUMERIC 1 P SUK A4,/10 FUNCTION 2 P RF(NN) KON110 NO 2 : P SUK A2,/40 YES 2 T PKON105 EQU * 2 l P ANK A5,/10 2 P SRL A5,3 2 P RF KON200 2 * PKON110 SUK A4,8 (UN)CTRL OR (UN)SHIFT 2 P RF(N) KON400 KEY-LOCK 2 P RF(
0x2da604…2da798 Dummy {f00=0x00da, f01=0x0190, f02=»4,2 2 P RF(N) KON125 CONTROL OFF 3 $ P RF(E) KON140 NUMERICAL SHIFT ON 3 . " P RF KON160 NUMERICAL SHIFT OFF 3 V P XIF 3 | PKON125 EQU * 3 P LDKL A2,/FFDF UNCTRL 3 PKON120 ANR A5,A2 3 PKON130 STR A5,A6 DWTCHP 3 P LDK A4,/10 3 P R
0x2da798…2da92c Dummy {f00=0x00da, f01=0x0190, f02=» P LDK A2,/90 4 P RF KON150 4 P XIF 4 * PKON145 EQU * 4 6 P LDK A2,/10 SHIFT 4 J PKON150 ORR A5,A2 4 d P RB KON130 4 | PKON160 EQU * 4 P IFT NSHIFT=1 4 P LDR A4,A5 4 P ANK A4,/80 4 P RF(Z) KON165 4 P LDKL A2,/FF7F 4
0x2da92c…2daac0 Dummy {f00=0x00da, f01=0x0190, f02=» P RB KON150 5 PKON180 SUK A2,/20 FIND INDEX 5 P ANK A5,/30 5 : P SRL A5,3 5 N P ADK A5,4 5 ` 8 PKON200 LD A4,DWTCON,A6 GET CONVERSION TABLE ADDRESS 5 r P ADR A4,A5 5 P LDR* A4,A4 5 P RF(Z) KON400 5 P ADR A4,A2 5 * P LDR* A2,A15
0x2daac0…2dac54 (2, 161) Dummy {f00=0x00da, f01=0x018e, f02=»15 5 4 PKON400 LDR* A2,A15 NO CONVERSION, KEEP CHARACTER 6 P RB KON300 6 B P IFT NSHIFT=0 6 T PKON500 EQU * 6 j P LDR A4,A4 KEY CODE /7C 6 ~ P RF(Z) KON600 YES 6 & P LDK A4,1 INDICATE SKIP CHARACTER 6 P RTN A15 6 PKON600 EQU * 6 P S
0x2dac54…2dade8 Dummy {f00=0x00da, f01=0x0190, f02=» 6 ^ 6 P* ECB-BUFFER AND INCREMENT BUFFER INDEX 7 P* 7 B P* ON ENTRY: 7 L P* 7 b P* A2 = CHARACTER TO STORE 7 l P* A3 = BUFFER INDEX 7 P* 7 P* 7 PSTORE EQU * 7 P LD A4,2,A8 BUFFER ADDRESS 7 P ADR A4,A3 ADD B
0x2dade8…2daf7c Dummy {f00=0x00da, f01=0x018e, f02=»P,A15 7 P EJECT 8 P* 8 P* 8 & 6 P* EOQUEU = SUBROUTINE TO GET NEXT QUEUE POINTER 8 0 P* 8 j P* ON ENTRY: 8 t P* 8 P* A1 = QUEUE POINTER 8 P* A6 = DWT-ADDRESS 8 P* 8 P* ON EXIT: 8 P* 8 P* A1 = NE
0x2daf7c…2db110 Dummy {f00=0x00da, f01=0x406c, f02=» * P LDK A1,DWTSQ SET QUEUE START ADDRESS 9 PEOQU10 ADR A1,A6 9 2 P RB STORTN 9 J P END 9 @ 9 h 8 j P* ON ENTRY: 8 t P* 8 P* A1 = QUEUE POINTER 8 P* A6 = DWT-ADDRESS 8 P* 8 P* ON EXIT: 8 P* 8 P* A1 = NE
0x2db110…2db2a4 Dummy {f00=0x00da, 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
0x2db2a4…2db438 Dummy {f00=0x00da, f01=0x0190, f02=»BRM620 R P* S P* ACK , 0 RECEIVED S P* S 2 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
0x2db438…2db5cc Dummy {f00=0x00da, f01=0x0190, f02=»K,1 NOT EXPECTED S PBRM630 EQU * T P LD A1,XETX T , P RF(Z) BRM640 ETX NOT SENT T @ P EJECT T b P* T p , P* ACK HAS BEEN RECEIVED TO AN ETX BLOCK T z P* T P LDK A1,0 SET RC=0 T PBRM635 EQU * T P IFF STAT=0 T P LD A2,XSTA T .
0x2db5cc…2db760 Dummy {f00=0x00da, f01=0x0190, f02=»REOT SEND EOT T P IFT RCOM=1 U P U * P CM XRB RESET READ BUFFER U 2 P XIF U T P RB BRM410 U ` PBRM640 EQU * U r 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 A
0x2db760…2db8f4 (2, 162) Opaque[0x194]
0x2db8f4…2dba88 # DirEnt {nam=»DRGP01«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x1b60, f03=0x0000}
0x2db8f4…2dba88 IdxSect {
0x2db8f4…2dba88 f00 = 0x00db // 0x2db8f4 @0x0
0x2db8f4…2dba88 f01 = 0x000e // 0x2db8f6 @0x2
0x2db8f4…2dba88 gno = [ // 0x2db8f8 @0x4
0x2db8f4…2dba88 [0x00]: C0x00db.0x0.0
0x2db8f4…2dba88 [0x01]: C0x00db.0x1.0
0x2db8f4…2dba88 [0x02]: C0x00db.0x2.0
0x2db8f4…2dba88 [0x03]: C0x00db.0x3.0
0x2db8f4…2dba88 [0x04]: C0x00dc.0x0.0
0x2db8f4…2dba88 [0x05]: C0x00dc.0x1.0
0x2db8f4…2dba88 [0x06]: C0x00dc.0x2.0
0x2db8f4…2dba88 ]
0x2db8f4…2dba88 }
0x2dba88…2dbc1c Dummy {f00=0x00db, f01=0x0190, f02=» 2 P IDENT DRGP01 REL 10.0 80-03-14 870105041000 P : P PRR 10.0 79-12-07 B * P =3,CORRECTION OF MMU BUFFER EQUATE ^ P REL 9.1 79-04-06 & P =1-2,GEN UPDATE TO 8.2+ STATUS P REL 8.2 79-03-16 P =2,IMPROV. OF TEST ORDE
0x2dbc1c…2dbdb0 Dummy {f00=0x00db, f01=0x0190, f02=»************************************** P* . $ P* PHILIPS TERMINAL SYSTEM PTS 8 P* ` ( P* DRGP01 = DRIVER GENERAL PRINTER j P* P* P* P* P* P* 6 P*************************************************
0x2dbdb0…2dbf44 Dummy {f00=0x00db, f01=0x0190, f02=». Z P* 8 P* THE DRIVER ALSO INCLUDES DEVICE DEPENDENT ECHO 6 P* FUNCTIONS, WHICH MAKES IT POSSIBLE TO USE THE P 6 P* GENERAL PRINTER AS AN ECHO DEVICE TO ANY KEY- 4 P* BOARD, THAT RUNS UNDER THE GENERAL KEYBOARD P* DRIVER
0x2dbf44…2dc0d8 Dummy {f00=0x00db, f01=0x0190, f02=» P* ( P* I H G P INTERRUPT HANDLER P* : ( P* R C G P RECOVERY ROUTINE D P* p & P* E C H O G P ECHO FUNCTIONS z P* P EJECT P* * P* THE FOLLOWING ORDERS ARE TREATED: P* P* ORDER
0x2dc0d8…2dc26c Dummy {f00=0x00db, f01=0x0190, f02=» P* " P* REGISTER A1 = RETURN CODE ( P* A2 = OUTPUT CHARACTER 4 $ P* A3 = BUFFER INDEX ` $ P* A4 = WORK REGISTER " P* A5 = STACK BASE " P* A6 = DWT-ADDRESS P*
0x2dc26c…2dc400 Dummy {f00=0x00db, f01=0x0190, f02=» ECHO OF BACKSPACE (GPBSP) AND CLEAR ~ ( P* (GPCLR) KEYS SHOULD BE DEFINED. , P* X 8 P* BY MEANS OF CONDITIONAL ASSEMBLY THE DRIVER IS b 0 P* ADAPTED TO HANDLE FOLLOWING FUNCTIONS. P* --ROOMLESS POINT : P* --ACCEPTANCE OF SPE
0x2dc400…2dc594 (2, 163) Dummy {f00=0x00db, f01=0x0190, f02=»ECHOING OF END OF RECORD CHARACTER * P** --SUPPRESION OF TRAILING BLANKS * @ P* --END OF REQUEST WHEN PRINTER HARDWARE BECOMES INACTIVE X P* 6 P* THE CHARACTER CODES FOR ROOMLESS POINT DIGITS F P* IS DEFINED IN A SPECIAL TABLE. STAN
0x2dc594…2dc728 Dummy {f00=0x00db, f01=0x0190, f02=»*** P* P* P* ( P ENTRY GPAD ADDRESS TO ADDRESSBLOCK * 0 P ENTRY ECHOGP DEVICE-DEPENDENT ECHO-ROUTINE V P* P* P* P* . P***************************************** . P* EXTERNAL TOSS MODULE ENTRIES
0x2dc728…2dc8bc Dummy {f00=0x00db, f01=0x0190, f02=»T SUBROUTINE TO SEND CHARACTER P EXTRN TDISP DISPATCHER & > P EXTRN LDREG LOAD REGISTERS A4, A3, A5, A7, A8 AND RETURN F P EXTRN TENDIO END I/O . P EXTRN SAVE8 SAVE 8 REGISTERS ON A15 STACK 0 P EXTRN ECHRTN RETURN TO KEYBOARD AFTER ECHO
0x2dc8bc…2dca50 Dummy {f00=0x00db, f01=0x0190, f02=»ETERS * P************************ P* 2 P* < P EXTRN DWTST STATUS F EXTRN DWTBC BYTE COUNTER b P EXTRN DWTOR ORDER P EXTRN DWTA3 SAVE AREA A3 P* P EJECT P* P* P************* P* CONS
0x2dca50…2dcbe4 Dummy {f00=0x00db, f01=0x0190, f02=»T OF MESSAGE PETB EQU /97 END OF MESSAGE PETX EQU /03 LAST DUMMY 6 PCR EQU /0D CARRIAGE RETURN T PLF EQU /0A LINE FEED v PFFED EQU /0C FORM FEED PSPACE EQU /20 SPACE 0 PPROUT EQU /04 PAPER OUT OR READY SWITCH OFF P*
0x2dcbe4…2dcd78 Dummy {f00=0x00db, f01=0x0190, f02=»****************************** P* & 2 P* IT IS POSSIBLE TO EXCLUDE ROOMLESS POINT 0 $ P* FUNCTION BY SETTING X:A = 0 f P* PX:A EQU 1 PCROOM EQU 0 P* 4 P* ACCEPTANCE OF SPECIAL CHARACTER /13 CAN BE 0 P* INC
0x2dcd78…2dcf0c Dummy {f00=0x00db, f01=0x0190, f02=»ER /14 CAN BE n 0 P* INCLUDED IN THE DRIVER BY SETTING X:C=1 P* J PX:C EQU 0 T PFJOTON EQU 0 f P* z . P* IT IS POSSIBLE TO EXCLUDE ECHOING OF , P* AN EXTRA SPACE AFTER EACH CHARACTER P* BY SETTING X:D=0 P*
0x2dcf0c…2dd0a0 Dummy {f00=0x00db, f01=0x0190, f02=»LE ^ 8 P* TO SUPPRESS ECHOING OF END OF RECORD CHARACTER. 8 P* THIS IS ATTAINED BY SETTING THE CONSTANT X:E=0. F P* PX:E EQU 0 PEORECH EQU 0 P* 4 P* SUPPRESSING OF SPACES IN RIGHT HAND OF LINE P* BY SETTING X:F=
0x2dd0a0…2dd234 (2, 164) Dummy {f00=0x00db, f01=0x018e, f02=»RINTER HARDWARE x * P* IS INACTIVE CAN BE CHOSEN BY SETTING P* THE CONSTANT RECEND = 1 F PX:G EQU 0 h PRECEND EQU 1 z P* . P* A PROGRAM VERSION USING TOSS MMU PAGING * P* IS OBTAINED BY SETTING MMUPAG EQU 1. P* PMMUPAG
0x2dd234…2dd3c8 Dummy {f00=0x00db, f01=0x0190, f02=» d P* PCPU852 EQU 0 P* & P* MMU BUFFER SIZE 0 P* L PX:H EQU 120 V PDVBLEN EQU 130 j P* =1 , P* SPECIAL CONDITION FOR ABIS PRINTER =1 PABIS EQU 0 =1 P EJECT P* P* $ P****************
0x2dd3c8…2dd55c Dummy {f00=0x00db, f01=0x0190, f02=»10 START OF DRIVER DEFINED PART P* ( P IFT MMUPAG=0 2 PSTART EQU DWTDRD H P XIF ` P* l P IFT MMUPAG=1 v PSTART EQU DWTDRD+4 P XIF P* . PDWTAP EQU START+/12 HEAD POSITION POINTER P* * P****************
0x2dd55c…2dd6f0 Dummy {f00=0x00db, f01=0x0190, f02=»BSP EQU /2D BACK SPACE PGPCLR EQU /3F CLEAR P* : P******************** D P* RETURN CODES * ` P******************** | P* 0 PPAROUT EQU /20 PAPER OUT OR READY SWITCH OFF " PCCERR EQU /4 CODE CHECK ERROR " PTPERR EQU /2
0x2dd6f0…2dd884 Dummy {f00=0x00db, f01=0x0190, f02=»BLES * P********** P* P* * P IFT CROOM=1 4 P* H PROMTAB EQU * R * P TABLE FOR ROOMLESS POINT CHARACTERS f ( P DATA /2122,/2426,/3B3C,/3E40,/5E5F P* P XIF P* P* P* " P DATA DVBLEN MMU BUF
0x2dd884…2dda18 Dummy {f00=0x00db, f01=0x0190, f02=»ADDRESS z P DATA IHGP INTERRUPT HANDLER P DATA RCGP RECOVERY ROUTINE 4 . P DATA ECHOGP DEVICE-DEPENDENT ECHO-ROUTINE X P EJECT P* P* A C G P P* 2 P* ACGP = ACTIVATION DRIVER GENERAL PRINTER P* H P* ORD
0x2dda18…2ddbac Dummy {f00=0x00db, f01=0x0190, f02=» RETURN CODE IS ALSO SET IF TIME-OUT IS SIGNALLED FROM P* CHANNEL UNIT. H P* l > P* ORDER 05: BASIC WRITE. CHARACTER ARE SENT TO PRINTER v " P* FROM ECB-BUFFER P* F P* ORDER 06: STANDARD WRITE. C
0x2ddbac…2ddd40 Dummy {f00=0x00db, f01=0x0190, f02=»DK A2,STX START OF MESSAGE P LDR A3,A7 =1 " P RF(Z) ACGP10 ORDER 0 =2 8 P SUK A3,5 =1 X P RF(E) ACGP09 ORDER 5 =1 n P SUK A3,1 =1 ( P ABL(NE) DISIOE I/O REQUEST ERROR =1 * P LD A3,4,A8 ORDER 6 GET REQ LENGTH =1 P RF(Z) ACG
0x2ddd40…2dded4 (2, 165) Dummy {f00=0x00db, f01=0x0190, f02=» A3,/2B =1 $ P RF(E) ACGP06 CONTROL CHAR 2B =1 P CF A5,OUTPUT SEND STX =1 < P LDK A2,CR =1 ^ P CF A5,OUTPUT =1 t P IFT ABIS=1 =1 P LDK A2,FFED =1 P CWK A3,/31-/2B =1 $ P RF(E) ACGP03 CONTROL CHAR 31 =1 P XIF
0x2dded4…2de068 Dummy {f00=0x00db, f01=0x0190, f02=»DK A2,LF =1 , PACGP03 LDK A1,1 RESET HEAD POS COUNTR =1 P ST A1,DWTAP,A6 =1 D * PACGP06 LDK A3,2 START BUFFER INDEX =1 ` PACGP09 CF A5,OUTPUT =1 P RF ACGP19 =1 P EJECT =2 P* =2 P* ORDER 00: TEST =2 N P*
0x2de068…2de1fc Dummy {f00=0x00db, f01=0x0190, f02=» CF A5,OUTPUT =2 * P LDK A2,0 SEND CHAR /00=END OF TEST =2 P CF A5,OUTPUT =2 H P RF AGP410 =2 b P EJECT x P* & P* GET, CHECK AND SEND CHARACTER P* (IF ORDER 5 NO CHECK) P* PACGP17 CF A5,OUTPUT 0 PACGP18
0x2de1fc…2de390 Dummy {f00=0x00db, f01=0x0190, f02=» IFT SUPSPA=1 4 P CF A15,SKIPSP SKIP SPACES IN END OF ECB-BUFFER P XIF N P LDK A4,0 Z 6 PACGP20 CF A15,GETCHR GET CHARACTER FROM ECB-BUFFER l P LDR A1,A1 LAST CHARACTER? P RF(NP) AGP400 YES P LDR A1,A2 P SUK A7,5 ORDER 5?
0x2de390…2de524 Dummy {f00=0x00db, f01=0x0190, f02=»N POINTER n P RB ACGP17 * PACGP22 SUK A1,8 TABULATION CHARACTER ? $ P RF(E) ACGP40 R P IFT ABIS=1 =1 h P CWK A2,/07 BELL ? =1 P RB(E) ACGP09 =1 P XIF =1 P* P IFT TRETON=0 P IFT FJOTON=0 P*
0x2de524…2de6b8 Dummy {f00=0x00db, f01=0x0190, f02=» P RB(E) ACGP17 P SUK A1,/C LESS THAN /20 ? P* @ P XIF J P* V P* ` P IFT TRETON=1 j P IFT FJOTON=0 P* P SUK A1,2 /13 ? P RB(E) ACGP17 P SUK A1,/D LESS THAN /20 ? P XIF P* P*
0x2de6b8…2de84c Dummy {f00=0x00db, f01=0x0190, f02=»CGP17 P SUK A1,/C LESS THAN /20 ? P* 0 P XIF : P* F & P RF(N) ACGP30 YES,CODE CHECK ERROR P & P SUK A1,/8E ROOMLESS POINT? (AE) z P RF(E) AGP100 P ADK A1,/4F GREATER THAN /5F P RB(NP) ACGP17 NO P SUK A1,/20
0x2de84c…2de9e0 Dummy {f00=0x00db, f01=0x018e, f02=» PACGP24 EQU * P SUK A1,/D P RF(NZ) ACGP26 NOT CR . " P CM DWTST,A6 SET POS LTR.TO 0 L ( P CM DWTAP,A6 RESET HEAD POS.POIINTER r PACGP26 ADK A1,3 P RB(NZ) ACGP17 NOT LINE FEED P SUK A1,1 * P ADS A1,DWTST,A6 DECREMENT P
0x2de9e0…2deb74 (2, 166) Dummy {f00=0x00dc, f01=0x018e, f02=» P ORS A1,8,A8 RETURN CODE P RB ACGP20 ( P EJECT : P* H P* TABULATION R P* j PACGP40 EQU * t , P CF A15,GETCHR GET FIRST ASCII CHARACTER P LDR A4,A2 . P CF A15,GETCHR GET SECOND ASCII CHARACTER P ANK A2,/F
0x2deb74…2ded08 Dummy {f00=0x00dc, f01=0x0190, f02=» 8 PACGP44 SU A2,DWTAP,A6 SUBTRACT HEAD POSITION POINTER P LC A4,DWTBC,A6 @ , P SUR A2,A4 AND REQUESTS POSITION COUNTER X & P TO GET NUMBER OF SPACES TO SEND P RB(NP) ACGP20 P LDR A4,A2 : PACGP45 LDK A2,SPACE LOOP ALSO USED BY RECOVERY
0x2ded08…2dee9c Dummy {f00=0x00dc, f01=0x018e, f02=»A3 RECOVERY? P RB(NE) ACGP20 * P SC A4,DWTBC,A6 RESET POSITION POINTER * P LDK A3,2 START BUFFER INDEX X P RB ACGP19 | P EJECT P* P* ROOMLESS POINT P* PAGP100 EQU * P* P IFT CROOM=1 P* ( P
0x2dee9c…2df030 Dummy {f00=0x00dc, f01=0x0190, f02=» P IFF CROOM=1 ! P* ! P ANK A2,/7F ! " P* ! 6 P XIF ! @ P* ! L P RB ACGP17 ! V P EJECT ! h P* ! v P* ! ( P* SEND LAST DUMMY , LOAD A1 WITH ! P* RETURN CODE AND END I/O ! P* ! PAGP400 EQU * ! P LDK A2,ETB END
0x2df030…2df1c4 Dummy {f00=0x00dc, f01=0x018e, f02=»BIS=1 =1 ! P ANK A2,/4 PAPER IN ? =1 " P RF(NZ) AGP420 YES =1 " 2 " P LDK A1,/20 SET RETURN CODE =1 " P P XIF =1 " v PAGP420 EQU * " 0 P CF A15,UPDAPP UPDATE HEAD POSITION COUNTER " PENDIO CF A15,TENDIO END I/O " $ PEXIT ABL TDISP GO TO
0x2df1c4…2df358 Dummy {f00=0x00dc, f01=0x0190, f02=» " P* # , P* UPDAPP = SUBROUTINE TO UPDATE HEAD # , P* POSITION POINTER WHEN END # B ( P* OF REQUEST IS REACHED # r PUPDAPP EQU * # ( P LC A3,DWTBC,A6 GET POSITION COUNTER # 2 P ADS A3,DWTAP,A6 UPDATE HEAD POSITION POIN
0x2df358…2df4ec Dummy {f00=0x00dc, f01=0x0190, f02=» P* $ * P* SKIPSP = SUBROTINE TO SKIP SPACES $ ( P* IN END OF ECB-BUFFER. $ < 6 P* REQUESTED LENGTH IN ECB IS UPDATED. $ h & P* A1,A2,A4 - WORK REG $ P* $ PSKIPSP EQU * $ ( P LD A1,2,A8 GET BUFFER ADDRESS
0x2df4ec…2df680 Dummy {f00=0x00dc, f01=0x0190, f02=» RL < 3 $ P SUK A1,1 DECR. BA % P LCR A4,A1 GET CHAR % * P CCK A4,/2020 SPACE ? % F P RF(NE) SKIP20 NO % d PSKIP07 SUK A2,1 DECR RL % ~ P RB SKIP05 GET NEXT % PSKIP20 CWK A2,4 % P RF(NG) SKIP30 RL < 5 % P LC A4,-2,A1 GET CHAR %
0x2df680…2df814 (2, 167) Dummy {f00=0x00dc, f01=0x0190, f02=»ET NEXT % P* & " PSKIP30 ST A2,4,A8 STORE NEW RL & P RTN A15 & @ P XIF & P P EJECT & P* & j P* I H G P & t P* & P* INTERRUPT & P* & PIHGP EQU * & P LD A4,DWTST,A6 BUSY? & P RB(N) EXIT NO & P SLL A4,2 ECHO M
0x2df814…2df9a8 Dummy {f00=0x00dc, f01=0x0190, f02=» P IFT RECEND=0 ' P RB(NZ) EXIT ' P XIF ' . P IFT RECEND=1 ' : P RB(NZ) AGP430 ' P P XIF ' f P ' r 4 PIHGP10 ABL LDREG RELOAD A3-A5 AND RETURN VIA A5 ' z PIHGP20 LDR A1,A1 =2 ' , P RB(Z) IHGP10 TEST ORDER AND TIME OUT =2 ' P RB ENDIO
0x2df9a8…2dfb3c Dummy {f00=0x00dc, f01=0x0190, f02=»GP EQU * ' P LDK A4,COSPAC ( P LDR A7,A7 EOR? ( & P RF(N) ECGP17 YES ( > P* ( X P IFT EORECH=0 ( b P* ( x P SUK A2,/80 EOR-CHARACTER ( P RF(NN) ECGP20 YES ( P ADK A2,/80 ( P* ( P XIF ( P* ( P LDR A1,A2 ( P ANK
0x2dfb3c…2dfcd0 Dummy {f00=0x00dc, f01=0x0190, f02=» CR =1 ( P RF(E) ECGP10 YES =1 ) P SUK A1,/B =1 ) * P RF(E) ECGP50 CLEAR ) @ 8 P SUK A1,/20-/8-/10 CHECK THAT CHAR IS WITHIN /20-/5F ) P RF(N) ECGP20 ) P SUK A1,/5F-/20 ) P RF(P) ECGP20 ) & PECGP10 CF A5,OUTPUT SEND CHARACTER ) ( P I
0x2dfcd0…2dfe64 Dummy {f00=0x00dc, f01=0x0190, f02=» P* * P IFT COSPAC=1 * P* * $ P LDK A2,SPACE NO SEND SPACE * . P RB ECGP10 * R P* * d P XIF * n P* * z 6 PECGP17 CF A15,UPDAPP UPDATE HEAD POSITION POINTER * ( PECGP20 ABL ECHRTN RETURN TO KEYBOARD * P EJECT * P* * P* B
0x2dfe64…2dfff8 Dummy {f00=0x00dc, f01=0x0190, f02=»* * PECGP50 EQU * + " P LDK A2,GPCLR CLEAR CHARACTER + P LDK A4,3 + D P RB ECGP10 + V PECGP60 LDK A2,LF LINE FEED + h P LC A3,DWTBC,A6 + P ANK A3,/FF + " PECGP70 CF A5,OUTPUT SEND CHAR. + P LDK A2,/08 BACKSPACE + P SUK A3,1 +
0x2dfff8…2e018c Dummy {f00=0x00dc, f01=0x0190, f02=» R C G P + P* , 0 P* RCGP = RECOVERY ROUTINE GENERAL PRINTER , P* , N P* , X ( P* RECOVERY IS CARRIED OUT ONLY IF , b P* ORDER 6 IS RUNNING , P* , P* ON ENTRY: , P* , P* A6 = DWT-ADDRESS , P* A7 = ORDER ,
0x2e018c…2e0320 Dummy {f00=0x00dc, f01=0x0190, f02=» P IFT CPU852=0 - " P MSR 8,A15 SAVE A1-A8 ON STACK - P XIF - @ P* - L P LD A2,DWTST,A6 BUSY ? - V P RB(N) EXIT NO - t ( P LDK A2,SOH RESET PRINT BUFFER CODE - P CF A5,OUTPUT SEND IT - P CWK A7,5 - P RF(E) RCGP10 - P CWK A7,6 OR
0x2e0320…2e04b4 (2, 168) Dummy {f00=0x00dc, f01=0x018e, f02=»6 GET LEFT BYTE OF STATUS WORD - P ANK A2,/4 LINE FEED DONE ? . & P ABL(E) ACGP NO . J P LDK A2,SPACE . b P CF A5,OUTPUT SEND SPACE . x P LDK A2,STX . P CF A5,OUTPUT SEND STX . P LDK A2,CR CARRIAGE RETURN . P LDK A3,0 . 0 P LD A4,DWT
0x2e04b4…2e0648 Dummy {f00=0x00dc, f01=0x4008, f02=»@ / FT BYTE OF STATUS WORD - P ANK A2,/4 LINE FEED DONE ? . & P ABL(E) ACGP NO . J P LDK A2,SPACE . b P CF A5,OUTPUT SEND SPACE . x P LDK A2,STX . P CF A5,OUTPUT SEND STX . P LDK A2,CR CARRIAGE RETURN . P LDK A3,0 . 0 P LD A4,DWT
0x2e0648…2e07dc Dummy {f00=0x00dc, 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 & (
0x2e07dc…2e0970 Dummy {f00=0x00dc, f01=0x0190, f02=»RACTER,POS IF CTRL,SHIFT 0 ` $ P* A5 IS DESTROYED! 1 P* 1 H P* 1 R PKONVER EQU * 1 P LDR A4,A2 1 p P IFT NSHIFT=0 1 P SUK A4,/7C CODE > /7B 1 P RF(NN) KON500 YES 1 P LDR A4,A2 RESTORE CHARACTER 1 P XIF 1 8 P STR A2,
0x2e0970…2e0b04 Dummy {f00=0x00dc, f01=0x0190, f02=»/40 1 P RF(N) KON180 ALFANUMERIC 2 P SUK A4,/10 FUNCTION 2 . P RF(NN) KON110 NO 2 J P SUK A2,/40 YES 2 d PKON105 EQU * 2 | P ANK A5,/10 2 P SRL A5,3 2 P RF KON200 2 * PKON110 SUK A4,8 (UN)CTRL OR (UN)SHIFT 2 P RF(N) KON400 KEY-
0x2e0b04…2e0c98 Dummy {f00=0x00dc, f01=0x0190, f02=»1 2 P SUK A4,2 3 P RF(N) KON125 CONTROL OFF 3 $ P RF(E) KON140 NUMERICAL SHIFT ON 3 > " P RF KON160 NUMERICAL SHIFT OFF 3 f P XIF 3 PKON125 EQU * 3 P LDKL A2,/FFDF UNCTRL 3 PKON120 ANR A5,A2 3 PKON130 STR A5,A6 DWTCHP 3 P LDK A
0x2e0c98…2e0e2c Dummy {f00=0x00dc, f01=0x0190, f02=»SHIFT NOT ON 3 P LDK A2,/90 4 P RF KON150 4 ( P XIF 4 : PKON145 EQU * 4 F P LDK A2,/10 SHIFT 4 Z PKON150 ORR A5,A2 4 t P RB KON130 4 PKON160 EQU * 4 P IFT NSHIFT=1 4 P LDR A4,A5 4 P ANK A4,/80 4 P RF(Z) KON165 4 P LDK
0x2e0e2c…2e0fc0 Dummy {f00=0x00dc, f01=0x0190, f02=» A2,/20 CTRL 4 P RB KON150 5 PKON180 SUK A2,/20 FIND INDEX 5 & P ANK A5,/30 5 J P SRL A5,3 5 ^ P ADK A5,4 5 p 8 PKON200 LD A4,DWTCON,A6 GET CONVERSION TABLE ADDRESS 5 P ADR A4,A5 5 P LDR* A4,A4 5 P RF(Z) KON400 5 P ADR A4,A2 5
0x2e0fc0…2e1154 (2, 169) Opaque[0x194]
0x2e1154…2e12e8 # DirEnt {nam=»DRDI01«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x1b98, f03=0x0000}
0x2e1154…2e12e8 IdxSect {
0x2e1154…2e12e8 f00 = 0x00dc // 0x2e1154 @0x0
0x2e1154…2e12e8 f01 = 0x0008 // 0x2e1156 @0x2
0x2e1154…2e12e8 gno = [ // 0x2e1158 @0x4
0x2e1154…2e12e8 [0x00]: C0x00dc.0x3.0
0x2e1154…2e12e8 [0x01]: C0x00dd.0x0.0
0x2e1154…2e12e8 [0x02]: C0x00dd.0x1.0
0x2e1154…2e12e8 [0x03]: C0x00dd.0x2.0
0x2e1154…2e12e8 ]
0x2e1154…2e12e8 }
0x2e12e8…2e147c Dummy {f00=0x00dc, f01=0x0190, f02=» 2 P IDENT DRDI01 REL 10.0 80-03-14 870105041000 P : P* B P* L < P******************************************************* V P* $ P* PHILIPS TERMINAL SYSTEM PTS P* * P* DRDI01 = DRIVER INDICATOR DISPLAY P*
0x2e147c…2e1610 Dummy {f00=0x00dc, 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
0x2e1610…2e17a4 Dummy {f00=0x00dc, 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:
0x2e17a4…2e1938 Dummy {f00=0x00dc, 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*
0x2e1938…2e1acc Dummy {f00=0x00dc, 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
0x2e1acc…2e1c60 Dummy {f00=0x00dc, 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
0x2e1c60…2e1df4 (2, 170) Dummy {f00=0x00dd, 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*
0x2e1df4…2e1f88 Dummy {f00=0x00dd, 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
0x2e1f88…2e211c Dummy {f00=0x00dd, 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
0x2e211c…2e22b0 Dummy {f00=0x00dd, 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
0x2e22b0…2e2444 Dummy {f00=0x00dd, 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
0x2e2444…2e25d8 Dummy {f00=0x00dd, 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
0x2e25d8…2e276c Dummy {f00=0x00dd, 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
0x2e276c…2e2900 Dummy {f00=0x00dd, 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(
0x2e2900…2e2a94 (2, 171) Dummy {f00=0x00dd, 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
0x2e2a94…2e2c28 Dummy {f00=0x00dd, 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
0x2e2c28…2e2dbc Dummy {f00=0x00dd, 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
0x2e2dbc…2e2f50 Dummy {f00=0x00dd, 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*
0x2e2f50…2e30e4 Dummy {f00=0x00dd, 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*
0x2e30e4…2e3278 Dummy {f00=0x00dd, 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
0x2e3278…2e340c Dummy {f00=0x00dd, 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
0x2e340c…2e35a0 Dummy {f00=0x00dd, 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
0x2e35a0…2e3734 (2, 172) Dummy {f00=0x00dd, 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
0x2e3734…2e38c8 Dummy {f00=0x00dd, 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
0x2e38c8…2e3a5c Dummy {f00=0x00dd, 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*
0x2e3a5c…2e3bf0 Dummy {f00=0x00dd, 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*
0x2e3bf0…2e3d84 Dummy {f00=0x00dd, 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
0x2e3d84…2e3f18 Dummy {f00=0x00dd, f01=0x0190, f02=»ORT ROUTINE ADDRESS P DATA IHGP INTERRUPT HANDLER P DATA RCGP RECOVERY ROUTINE @ . P DATA ECHOGP DEVICE-DEPENDENT ECHO-ROUTINE d P EJECT P* P* A C G P P* 2 P* ACGP = ACTIVATION DRIVER GENERAL PRINTER P*
0x2e3f18…2e40ac Dummy {f00=0x00dd, f01=0x0190, f02=» X H P* RETURN CODE IS ALSO SET IF TIME-OUT IS SIGNALLED FROM P* CHANNEL UNIT. T P* x > P* ORDER 05: BASIC WRITE. CHARACTER ARE SENT TO PRINTER " P* FROM ECB-BUFFER P* F P* ORDER 06: STAND
0x2e40ac…2e4240 Dummy {f00=0x00dd, f01=0x018e, f02=» * P LDK A2,STX START OF MESSAGE P LDR A3,A7 =1 . P RF(Z) ACGP10 ORDER 0 =2 D P SUK A3,5 =1 d P RF(E) ACGP09 ORDER 5 =1 z P SUK A3,1 =1 ( P ABL(NE) DISIOE I/O REQUEST ERROR =1 * P LD A3,4,A8 ORDER 6 GET REQ LENGTH =1
0x2e4240…2e43d4 (2, 173) Opaque[0x194]
0x2e43d4…2e4568 # DirEnt {nam=»DRDY01«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x1bb8, f03=0x0000}
0x2e43d4…2e4568 IdxSect {
0x2e43d4…2e4568 f00 = 0x00dd // 0x2e43d4 @0x0
0x2e43d4…2e4568 f01 = 0x0018 // 0x2e43d6 @0x2
0x2e43d4…2e4568 gno = [ // 0x2e43d8 @0x4
0x2e43d4…2e4568 [0x00]: C0x00dd.0x3.0
0x2e43d4…2e4568 [0x01]: C0x00de.0x0.0
0x2e43d4…2e4568 [0x02]: C0x00de.0x1.0
0x2e43d4…2e4568 [0x03]: C0x00de.0x2.0
0x2e43d4…2e4568 [0x04]: C0x00de.0x3.0
0x2e43d4…2e4568 [0x05]: C0x00df.0x0.0
0x2e43d4…2e4568 [0x06]: C0x00df.0x1.0
0x2e43d4…2e4568 [0x07]: C0x00df.0x2.0
0x2e43d4…2e4568 [0x08]: C0x00df.0x3.0
0x2e43d4…2e4568 [0x09]: C0x00e0.0x0.0
0x2e43d4…2e4568 [0x0a]: C0x00e0.0x1.0
0x2e43d4…2e4568 [0x0b]: C0x00e0.0x2.0
0x2e43d4…2e4568 ]
0x2e43d4…2e4568 }
0x2e4568…2e46fc Dummy {f00=0x00dd, f01=0x0190, f02=» 2 P IDENT DRDY01 REL 10.0 80-06-09 870105041000 P : ( P =9,BYTE COUNTER RESET IN RECOVERY B P REL 10.0 80-05-19 n " P =8,MMU BUFFER SIZE CHANGED P REL 10.0 80-03-14 . P =7,CUR.POS FOR ALL ORDERS EXCEPT ERASE P PRR 10.
0x2e46fc…2e4890 Dummy {f00=0x00dd, f01=0x0190, f02=» 10.1 79-10-15 P =4,CORRECTION OF ERASE P REL 9.1 79-05-23 8 * P =3,STEADY CURSOR PROBLEM CORRECTED T P PRR 9.1 79-04-06 , P =2,ERASE ONLY TO LAST POS. OF SCREEN P PRR 9.1 79-01-31 . P =1 DRIVER ADAPTAD TO HAND
0x2e4890…2e4a24 Dummy {f00=0x00dd, f01=0x0190, f02=» PHILIPS TERMINAL SYSTEM PTS P* & 2 P* DRDY01 = DRIVER VIDEO AND GRAPHIC DISPLAY 0 P* f P* p P* z P* P* P* 6 P************************************************** P* P* : P* THIS DRIVER HANDLES
0x2e4a24…2e4bb8 Dummy {f00=0x00dd, f01=0x0190, f02=» THE DISPLAYS MUST BE CONNECTED TO THE SYSTEM P* VIA CHLT OR CHRT. 6 P* T < P* THE DRIVER INCLUDES DEVICE DEPENDENT ECHO-FUNCTIONS ^ : P* WHICH MAKES IT POSSIBLE TO USE THE DISPLAY AS AN : P* ECHO-DEVICE TO ANY KEYBOARD, THAT RUNS
0x2e4bb8…2e4d4c Dummy {f00=0x00dd, f01=0x0190, f02=» & P* A C D Y ACTIVATION PART P* 2 ( P* I H D Y INTERRUPT HANDLER < P* h ( P* R C D Y RECOVERY ROUTINE r P* & P* E C H O D Y ECHO FUNCTIONS P* P P P P* * P* THE F
0x2e4d4c…2e4ee0 Dummy {f00=0x00dd, f01=0x0190, f02=»D WRITE z ( P* 07: WRITE GRAPHIC DISPLAY & P* 0B: CURSOR POSITIONING < P* 31: ERASE f P* P* NORMAL REGISTER USAGE P* " P* REGISTER A1 = RETURN CODE ( P* A2 = OUTPUT CHARACTER $
0x2e4ee0…2e5074 (2, 174) Dummy {f00=0x00de, f01=0x0190, f02=» = DWT-ADDRESS P* A7 = ORDER " P* A8 = ECB-ADDRESS 6 P* P EJECT f P* t P* ~ P* SYSTEM ADAPTATION P* < P* DISPLAY TYPE MUST BE DEFINED IN FIRST WORD IN DWT. P* * P* ----------
0x2e5074…2e5208 Dummy {f00=0x00de, f01=0x0190, f02=» 1 PTS 6351 & 6342 * P* 1 0 PTS 6386 & 6385 * P* --------------------------------- N P* | 6 P* BY MEANS OF CONDITIONAL ASSEMBLY THE DRIVER: 4 P* -CAN HANDLE GRAFIC MODE FOR PTS 6351 OR NOT , P* -IS ADAPTED
0x2e5208…2e539c Dummy {f00=0x00de, f01=0x0190, f02=» CHARACTER f & P* -CAN SUPPRESS TRAILING BLANKS F P* AND ALSO UNDERLINE START (/12), LOW INT (/1E), HIGH INT (/1F) < P EJECT P* P* P* P* P*********** P* ENTRIES * P*********** P* P*
0x2e539c…2e5530 Dummy {f00=0x00de, f01=0x018e, f02=» P* . P***************************************** . P* EXTERNAL TOSS MODULE ENTRIES * @ . P***************************************** r P* P* $ P EXTRN DISIOE I/O REQUEST ERROR . P EXTRN OUTPUT SUBROUTINE TO SEND CHARACT
0x2e5530…2e56c4 Dummy {f00=0x00de, f01=0x0190, f02=» . P EXTRN SAVE8 SAVE 8 REGISTERS ON A15 STACK 0 P EXTRN ECHRTN RETURN TO KEYBOARD AFTER ECHO 6 0 P EXTRN GETCHR GET CHARACTER FROM ECB-BUFFER j P EJECT P* P************************ P* DWT PARAMETERS * P******************
0x2e56c4…2e5858 Dummy {f00=0x00de, f01=0x018e, f02=»************* P* CONSTANTS * P************* , P* B PFASTO EQU /14 FAST OUTPUT L $ PSCADD EQU /11 SET CURSOR ADDRESS n " PULSTAR EQU /12 UNDERLINE START " PULSTOP EQU /13 UNDERLINE STOP & PLISTAR EQU /1E LOW INTENSITY START
0x2e5858…2e59ec Dummy {f00=0x00de, f01=0x0190, f02=» ( PCLEHOM EQU /0C CLEAR AND CURSOR HOME PCR EQU /0D CARRIAGE RETURN 0 PCURRIG EQU /10 CURSOR RIGHT R PSPACE EQU /20 SPACE v PSTX EQU /82 START OF MESSAGE PETB EQU /97 END OF MESSAGE PETX EQU /03 LAST DUMMY . PRETURN EQU /12 RET
0x2e59ec…2e5b80 Dummy {f00=0x00de, f01=0x0190, f02=»FOR AUTOMATIC FAST OUTPUT | PSTILL EQU /18 CURSOR STEADY " $ PCTYCOD EQU /1B SET COUNTRY CODE F P* n P******************** x P* RETURN CODES * P******************** P* " PCCERR EQU /4 CODE CHECK ERROR ( POPERR EQU /1
0x2e5b80…2e5d14 (2, 175) Dummy {f00=0x00de, f01=0x0190, f02=»TIONAL ASSEMBLY * . P***************************************** ( P* Z P* d H P* BY SETTING X:A TO 1 DRIVER CAN HANDLE GRAFIC MODE FOR PTS 6351 n P* PX:A EQU 0 PGRAFIC EQU 0 P* < P* BY SETTING X:B
0x2e5d14…2e5ea8 Dummy {f00=0x00de, f01=0x0190, f02=» LOWER CASE CHAR. GENERATOR x & P* (COLUMNS 6 AND 7) CAN BE USED $ PX:C EQU 0 N PLOWCHA EQU 1 ` P* t P* ~ 8 P* BY MEANS OF CONDITIONAL ASSEMBLY IT IS POSSIBLE 8 P* TO SUPPRESS ECHOING OF END OF RECORD CHARACTER. 8 P* THI
0x2e5ea8…2e603c Dummy {f00=0x00de, f01=0x0190, f02=»T TRASPA = 1 IT IS v @ P* POSSIBLE TO SUPPRESS TRAILING BLANKS, /12, /1E AND /1F. P* ^ PX:E EQU 0 h PTRASPA EQU 1 z P EJECT P* 2 P* BY SETTING X:F = 1, CURSOR WILL BE STEADY P* INSTEAD OF BLINKING PX:F EQU 0
0x2e603c…2e61d0 Dummy {f00=0x00de, f01=0x018e, f02=» PMMUPAG EQU 1 P* P* & 6 P* A PROGRAM VERSION USING THE EXTENDED INSTRUCTION 0 . P* SET IS OBTAINED BY SETTING CPU852 EQU 0. j P* PCPU852 EQU 0 P* 8 P* BY MEANS OF CONDITIONAL ASSEMBLY IT IS POSSIBLE < P* TO C
0x2e61d0…2e6364 Dummy {f00=0x00de, f01=0x0190, f02=» P* 2 F/CH/B/L P* 3 E P* 4 I/CH * P* 5 S/SF : P* 6 DK/N J P* 7 P Z P* 8 YU h P* 9 US v PX:G EQU 0 PCOUNTRY EQU 0 P* & P* MEMORY MANAGEMENT BUFFER SIZE P* P* PX:H EQU 80 =8
0x2e6364…2e64f8 Dummy {f00=0x00de, f01=0x0190, f02=» * t $ P******************************** P* 4 P* > 0 PDWTDRD EQU /10 START OF DRIVER DEFINED PART H P* | P IFT MMUPAG=0 PSTART EQU DWTDRD P XIF P* P IFT MMUPAG=1 PSTART EQU DWTDRD+4 P XIF P*
0x2e64f8…2e668c Dummy {f00=0x00de, f01=0x0190, f02=» EQU START+/16 BUFFER INDEX P* $ P EJECT . P* < P* F P********** P P* TABLES * b P********** t P* P* P DATA DVBLEN BUFFER LENGTH P DATA 2 DEVICE INDEX PDYAD EQU * ADDRESS BLOCK P DATA ACDY ACTIV
0x2e668c…2e6820 Dummy {f00=0x00de, f01=0x018e, f02=»A ECHODY DEVICE-DEPENDENT ECHO-ROUTINE P* . P* 8 , PTABSPE EQU * TABLE OF SPECIAL CHARACTERS B P DATA /0712,/131E,/1F14 r P EJECT P* P* A C D Y P* * P* ACDY = ACTIVATION DRIVER DISPLAY P* H P* ORD
0x2e6820…2e69b4 (2, 176) Dummy {f00=0x00de, f01=0x0190, f02=» > P* ORDER 05: BASIC WRITE. CHARACTER ARE SENT TO DISPLAY 6 P* FROM ECB-BUFFER WITHOUT ANY CHECK. J P* F P* ORDER 06: STANDARD WRITE. CHARACTERS ARE SENT TO DISPLAY FROM < P* ECB-BUFFER AFTER INDIVIDUAL CODE
0x2e69b4…2e6b48 Dummy {f00=0x00de, f01=0x0190, f02=», FAST OUTPUT IS EXECUTED FOR THE NUMBER r F P* OF CHARACTERS FOUND EQUAL (> 'EQU') ON 6344 & 6386> 0 P* z P IFT GRAFIC=1 B P* ORDER 07: WRITE GRAPHIC DISPLAY. THE DISPLAY IS SWITCHED @ P* TO GRAPHIC MODE AND INFOR
0x2e6b48…2e6cdc Dummy {f00=0x00de, f01=0x0190, f02=»ANDARD WRITE. h < P* THE CURSOR IS SENT TO THE POSITION GIVEN > P* IN CONTROL WORD. NO INFORMATION ON DISPLAY V @ P* IS ERASED. THEN STANDARD WRITE (SEE ORDER 6) P* IS EXECUTED. P* <
0x2e6cdc…2e6e70 Dummy {f00=0x00de, f01=0x0190, f02=» OF CHARACTERS THAT ARE DEFINED IN THE CONTROL @ P* WORD OF ECB. 0-80 CHARACTERS. ERASING STARTS > : P* IN THE CURSOR POSITION. THE CURSOR RE- * P* MAINS IN THAT POSITION. PACDY EQU * P LDK A3,
0x2e6e70…2e7004 Dummy {f00=0x00de, f01=0x0190, f02=» t P CF A5,OUTPUT SEND P IFT WHATDY=0 " " P LDR* A1,A6 CHANNEL PARAMETER 8 P ANK A1,/10 GRAPHIC DISPLAY ^ P RF(E) ACDY02 NO P IFT GRAFIC=1 P CWK A7,7 ORDER ' ? P ABL(E) ADY500 P XIF P IFT WHATDY=0 . P LDK
0x2e7004…2e7198 Dummy {f00=0x00de, f01=0x0190, f02=»5 P RF(E) ACDY90 YES P SUK A7,6 ORDER 6 ? $ P RF(E) ACDY20 YES @ P SUK A7,5 ORDER /B ? Z P ABL(E) ADY200 YES v P SUK A7,/26 ORDER ERASE ? P ABL(E) ADY160 YES P* & PDYERR ABL DISIOE I/O REQUEST ERROR P EJECT
0x2e7198…2e732c Dummy {f00=0x00de, f01=0x0190, f02=» HEAD j " P* /30 CR, LF, LF B P* /31 ERASE DISPLAY AND WRITE FROM HOME POSITION 4 P* OTHER VALUE CR, LF z P* PACDY20 EQU * $ P LD A2,4,A8 GET REQUESTED LENGTH P RF(E) ACDY25 P LDK A3,2 START
0x2e732c…2e74c0 Dummy {f00=0x00de, f01=0x0190, f02=» * P SUK A2,/2B POSITIONING BEFORE WRITE ? P RF(E) ACDY90 2 P SUK A2,6 /31 ? H P RF(E) ACDY65 ` P LDK A4,1 INDICATE LINE FEED v " P ADK A2,1 DOUBLE LINE FEEED ? P RF(NE) ACDY30 ( P ADK A4,1 INDICATE DOUBLE LINE FEED P
0x2e74c0…2e7654 (2, 177) Dummy {f00=0x00de, f01=0x0190, f02=»D CARRIAGE RETURN AND ONE OR TWO LINE FEEDS P* 4 PACDY50 EQU * > P CF A5,OUTPUT SEND CHARACTER R PACDY52 SUK A4,1 v & P RF(N) ACDY90 START SECTION ENDED? P LC A1,DWTLIN,A6 LINES P CC A1,DWTAP,A6 LAST LINE ? P RF(L) ACDY55
0x2e7654…2e77e8 Dummy {f00=0x00de, f01=0x0190, f02=»ACDY65 LDK A2,CLEHOM CLEAR AND HOME P LDK A1,1 , & P SC A1,DWTAP,A6 RESET LINE COUNTER > P RB ACDY35 h P EJECT z P* & P* GET, CHECK AND SEND CHARACTER P* (IF ORDER 5 NO CHECK) P* PACDY70 EQU * P IFT WHATDY=
0x2e77e8…2e797c Dummy {f00=0x00de, f01=0x0190, f02=» 2 P ADR A4,A3 GET ADDRESS TO NEXT CHAR IN BUFFER $ P CCR A2,A4 CHAR EQU TO CURRENT? > P ABL(E) CHECK YES! f PACDY75 EQU * P CF A5,OUTPUT 2 PACDY80 CF A15,POSUPD POSITION COUNTER UPDATING P IFT TRASPA=1 ( P LD A1,2,A8 GET BU
0x2e797c…2e7b10 Dummy {f00=0x00de, f01=0x0190, f02=»F(NG) SKIP30 RL < 3 P SUK A1,1 DECR. BA ! P LCR A4,A1 GET CHAR ! 6 P CCK A4,/2020 SPACE ? ! R P RF(NE) SKIP20 NO ! p PSKIP07 SUK A2,1 DECR RL ! P RB SKIP05 GET NEXT ! PSKIP20 CWK A2,4 ! P RF(NG) SKIP30 RL < 5 ! P LC A4,-2,A1
0x2e7b10…2e7ca4 Dummy {f00=0x00de, f01=0x0190, f02=» RB SKIP07 GET NEXT ! ( PSKIP25 LCR A4,A1 GET CHARACTER AGAIN " P ANK A4,/FF " H " P SUK A4,/12 UNDER LINE START? " P RB(Z) SKIP07 YES! SKIP IT! " P SUK A4,/C LOW INT. START? " P RB(Z) SKIP07 YES! " P SUK A4,1 LOW INT. STOP? " P RB(Z)
0x2e7ca4…2e7e38 Dummy {f00=0x00de, f01=0x018e, f02=»ER FROM ECB-BUFFER " p P LDR A1,A1 LAST CHARACTER? # P ABL(NP) ADY405 # < P SUK A7,5 ORDER 5? # T P RB(E) ACDY75 # n P ANK A2,/7F # P LDK A1,5 SET TABLE POINTER # " P CC A2,TABSPE,A1 FAST OUTPUT? # P RF(E) ADY125 # P SUK A1,1 NO! #
0x2e7e38…2e7fcc Dummy {f00=0x00de, f01=0x0190, f02=» * PADY110 CC A2,TABSPE,A1 CHARACTER FOUND $ P RF(NE) ADY128 $ 2 " P CCK A2,/1E1E LOW INTENSITY ? $ H P RF(NE) ADY122 NO $ n P LDK A4,/80 $ , PADY120 ORRS A4,A6 SET LOW INTENSITY MODE $ P LDK A4,0 $ P RB ACDY50 $ $ PADY122 CCK A2,/1212 UNDE
0x2e7fcc…2e8160 Dummy {f00=0x00de, f01=0x0190, f02=» LDK A4,0 $ P RB(NE) ACDY50 NO % P LDR A4,A2 % , ( P CF A15,GETCHR GET OUTPUT CHARACTER % > P LDR A1,A2 % j P LDR A2,A4 % | P LD A4,4,A8 REQ LENGTH % P SUR A4,A3 NUMBER OF CHARS % P RF(Z) ADY127 NONE % P* % P IFT WHATDY=0 % & P
0x2e8160…2e82f4 (2, 178) Dummy {f00=0x00df, f01=0x0190, f02=»A1 NO! % P CF A5,FASTER & PADY127 EQU * & $ P LD A3,4,A8 REQ LENGTH & 8 P ST A3,6,A8 EFF LENGTH & V P ABL ADY405 & t PADY128 EQU * & P SUK A1,1 GET NEXT & P RB(NN) ADY110 NOT AT END & P LDR A1,A2 MOVE CHARACTER & P SUK A1,/11 TA
0x2e82f4…2e8488 Dummy {f00=0x00df, f01=0x018e, f02=»THAN /5F & | P RB(NP) ACDY70 ' P IFT LOWCHA=0 ' & 6 P SUK A2,/20 TRANSFORM CHARACTER BETWEEN /60 TO /7F ' < & P TO CHARACTER BETWEEN /40 TO /5F ' v P XIF ' P RB ACDY70 ' P* ' P* ' P IFT WHATDY=0 ' POTHER EQU * ' P************
0x2e8488…2e861c Dummy {f00=0x00df, f01=0x0190, f02=» ' ~ P AD A2,DWTAP,A6 GET POSITION ( P ANK A2,/FF ( , $ P ADR A2,A4 ADD LENGTH OF REQUEST ( @ $ P LD A3,DWTPOS,A6 GET MAX-POS AND ( h P ANK A3,/FF ( P ST A4,10,A8 SAVE LENGTH ( P SUR A3,A2 COMPARE ( P RF(NN) OT030 LENGTH OK ( P ADR A4,A3
0x2e861c…2e87b0 Dummy {f00=0x00df, f01=0x018e, f02=»R TO SEND ( x POT010 LDR A2,A3 ) $ P CF A5,OUTPUT SENT CHAR (IN A2) ) * P SUK A4,1 DECREMENT COUNTER ) R P RB(P) OT010 ) v P LD A4,10,A8 GET ACT. LENGTH ) POT040 LDK A2,BACKSP ) P CF A5,OUTPUT SENDBACKSPACE ) P SUK A4,1 DECREMENT LENGTH
0x2e87b0…2e8944 Dummy {f00=0x00df, f01=0x018e, f02=» ) P LDK A1,CCERR * P ORS A1,8,A8 RETURN CODE * P RB ADY100 * > P EJECT * P P* * ^ P* TABULATION * h P* * PADY140 EQU * * , P CF A15,GETCHR GET FIRST ASCII CHARACTER * P LDR A4,A2 * . P CF A15,GETCHR GET SECOND ASCII CHARACTE
0x2e8944…2e8ad8 Dummy {f00=0x00df, f01=0x018e, f02=» P RB(NE) ADY143 + PADY144 LC A4,DWTAP+1,A6 + . P SUR A2,A4 SUBTRACT HEAD POSITION POINTER + : P LC A4,DWTBC,A6 + l , P SUR A2,A4 AND REQUESTS POSITION COUNTER + & P TO GET NUMBER OF SPACES TO SEND + P RB(NP) ADY100 + P LDR A4,A2 + & PAD
0x2e8ad8…2e8c6c Dummy {f00=0x00df, f01=0x018e, f02=» + | P RB(NE) ADY145 NO , P ABL ADY100 , " P EJECT , 6 P* , D P* ERASE ORDER /31 , N P* , l 2 PADY160 LD A4,10,A8 GET NUMBER OF CHAR TO ERASE , v P IFT WHATDY=0 , " P LDR* A1,A6 CHANNEL PARAMETER , P ANK A1,/10 GRAFIC DISPLAY? ,
0x2e8c6c…2e8e00 Dummy {f00=0x00df, f01=0x0190, f02=» , t PADY165 LDK A2,ETB - P CF A5,OUTPUT - " P ABL ADY410 END OF REQUEST - 8 P IFT WHATDY=0 - Z PADY166 EQU * YES =2 - p & P CF A5,ERA GET LENGTH TO ERASE =2 - P* - $ PADY170 SUK A4,1 DECR NO OF CHAR - P RF(N) ADY180 ERASE READY -
0x2e8e00…2e8f94 (2, 179) Dummy {f00=0x00df, f01=0x0190, f02=» - n P LDR A3,A3 OVER EDGE =4 . P RF(NN) ADY186 NO =4 . ( P SUK A4,1 ADJUST LENGTH =4 . D PADY186 EQU * . f P SUK A4,1 DECREMENT =2 . z , P RB(N) ADY165 CURSOR IN ORIGIN POSITION . P LDK A2,BACKSP CURSOR LEFT . P CF A5,OUTPUT SEND IT . P
0x2e8f94…2e9128 Dummy {f00=0x00df, f01=0x0190, f02=»* . P IFT WHATDY=0 / " P LDR* A1,A6 CHANNEL PARAMETER / P ANK A1,/10 GRAFIC DISPLAY? / F P RF(NE) ADY205 YES / j 2 P* IF VIDEO (6344) SET CURSOR ADDRESS DIRECT / P XIF / * P LD A4,10,A8 GET REQUESTED CURSOR POS / . P ST A4,DWTAP,A6 UPDA
0x2e9128…2e92bc Dummy {f00=0x00df, f01=0x0190, f02=»,10,A8 GET REQUESTED LINE / $ P CC A4,DWTLIN,A6 OUTSIDE SCREEN? 0 " P RF(NG) ADY207 NO! 0 J 4 P LC A4,DWTLIN,A6 YES! SET CURSOR AT END OF LINE 0 d PADY207 EQU * 0 $ P LC A3,DWTAP,A6 GET ACTUAL LINE 0 PADY210 CWR A4,A3 0 . P RF(N) ADY250 REQUESTED
0x2e92bc…2e9450 Dummy {f00=0x00df, f01=0x0190, f02=»30 CF A5,OUTPUT SEND 0 P LDR A4,A4 REQUESTED LINE 1 " P RB(NZ) ADY210 NOT EQUAL ZERO 1 > P LDK A4,1 1 d P RF ADY300 1 v PADY250 LDK A2,HOME HOME 1 & P LDK A3,1 RESET ACTUAL LINE NUMBER 1 " P ST A3,DWTAP,A6 RESET POSITION 1 P RB ADY230 1
0x2e9450…2e95e4 Dummy {f00=0x00df, f01=0x0190, f02=»N 1 n $ P CC A4,DWTPOS,A6 OUTSIDE SCREEN? 2 P RF(NG) ADY303 NO! 2 2 " P LC A4,DWTPOS,A6 SET LAST LINE 2 L PADY303 EQU * 2 r P CWK A4,1 FIRST POSITION ? 2 P RF(NE) ADY305 NO 2 P CWR A4,A3 FIRST LINE ? 2 P RF(NE) ADY305 NO 2 P LDK A2,HOME
0x2e95e4…2e9778 Dummy {f00=0x00df, f01=0x0190, f02=»TUAL POSITION 2 r P CC A3,DWTPOS,A6 MAX-POS? 3 P RF(NG) ADY310 NO! 3 8 P SUK A3,1 3 R * PADY310 CWR A4,A3 FORWARDS OR BACKWARDS 3 d P RF(E) ADY370 POSITION FOUND 3 P RF(N) ADY340 BACK 3 P LDK A2,CURRIG CURSOR RIGHT 3 & P ADK A3,1 UPDATE POS
0x2e9778…2e990c Dummy {f00=0x00df, f01=0x0190, f02=»PARE BACKSTEPS WITH CR-WAY 3 P RF(L) ADY345 BACKSPACE WAY 4 " P LDK A2,CR CARRIAGE RETURN 4 F & P LDK A3,1 INDICATE FIRST POSITION 4 h P RB ADY330 4 " PADY345 LDK A2,BACKSP BACKSPACE 4 P CF A5,OUTPUT SEND 4 P SUK A3,1 LAST BACKSPACE ? 4 P R
0x2e990c…2e9aa0 Dummy {f00=0x00df, f01=0x0190, f02=»BL ACDY90 4 P IFT WHATDY=0 5 P* 5 ( & PADY400 LDK A2,/22 START CHARACTER 5 2 P CF A5,OUTPUT 5 P* 5 r P XIF 5 | P* 5 P EJECT 5 P* 5 P* 5 8 P* SEND LAST DUMMY, SET CURSOR POSITION IN CONTROL 5 4 P* WORD, LOAD A1 WITH
0x2e9aa0…2e9c34 (2, 180) Dummy {f00=0x00df, f01=0x018e, f02=») ADY407 NO 5 P LDR* A1,A6 6 P LDR A4,A1 6 ( P ANK A1,/40 UNDERLINE MODE ? 6 : P RF(E) ADY406 NO 6 ^ " P LDK A2,ULSTOP UNDERLINE STOP 6 v P CF A5,OUTPUT 6 * PADY406 ANK A4,/80 LOW INTENSITY MODE ? 6 P RF(E) ADY407 6 & P LDK A2,LISTOP LOW
0x2e9c34…2e9dc8 Dummy {f00=0x00df, f01=0x0190, f02=» 6 r 0 P CF A15,UPDAPP UPDATE HEAD POSITION COUNTER 7 PADY410 LDK A2,ETX LAST DUMMY 7 < P CF A5,OUTPUT SEND DUMMY 7 ` P SUK A7,/31 =7 7 P RF(Z) ADY415 ORDER ERASE =7 7 * P LD A4,DWTAP,A6 GET CURSOR POSITION =4 7 , P ST A4,10,A8 SAVE CURSOR POS.
0x2e9dc8…2e9f5c Dummy {f00=0x00df, f01=0x0190, f02=» 7 t P ST A4,DWTAP,A6 8 PADY420 EQU * 8 PENDIO CF A15,TENDIO END I/O 8 4 $ PEXIT ABL TDISP GO TO DISPATCHER 8 X P* 8 P IFT GRAFIC=1 8 P* 8 P EJECT 8 P* 8 P* GRAPHIC PART 8 P* 8 PADY500 EQU * 8 P LDK A2,/11 8
0x2e9f5c…2ea0f0 Dummy {f00=0x00df, f01=0x0190, f02=»0 8 P LDR A4,A2 9 & P CF A15,GETCHR GET NEXT CHARACTER 9 P LDR A1,A4 9 F P ANK A4,/80 ADDRESS OR DATA 9 X P RF(E) ADY530 DATA MESSAGE 9 | P* 9 P* ADDRESS MESSAGE 9 P* 9 P* SET FIRST OUT PUT IN A2 9 P* AND SECOND IN A4
0x2ea0f0…2ea284 Dummy {f00=0x00df, f01=0x0190, f02=»/20 9 , PADY515 CF A5,OUTPUT SEND FIRST CHARACTER : $ P LDR A2,A4 GET SECOND CHARACTER : < ( P CF A5,OUTPUT SEND SECOND CHARACTER : d P RB ADY510 : P EJECT : P* : P* DATA MESSAGE : P* : " P* FIRST OUTPUT IS SET IN A2 : P*
0x2ea284…2ea418 Dummy {f00=0x00df, f01=0x0190, f02=» A2,0 : PADY540 SLL A1,1 ; P RF(NN) ADY550 ; & P ORKL A2,/200 ; < PADY550 SUK A7,1 ; R P RF(E) ADY560 ; j P SRL A2,1 ; P RB ADY540 ; PADY560 LDR A4,A2 ; P SRL A4,4 ; P ANK A4,/3F ; P ANK A2,/F ; P ORK A2,/60 ; P
0x2ea418…2ea5ac Dummy {f00=0x00df, f01=0x0190, f02=»POSITION POINTER WHEN END ; ( P* OF REQUEST IS REACHED < " PUPDAPP EQU * < N ( P LC A3,DWTBC,A6 GET POSITION COUNTER < b 2 P ADS A3,DWTAP,A6 UPDATE HEAD POSITION POINTER < P LDK A3,0 < , P SC A3,DWTBC,A6 RESET POSITION COUNTER < P R
0x2ea5ac…2ea740 Dummy {f00=0x00df, f01=0x018e, f02=» A CHECK THAT POINTER NOT EXCEEDS 80 IS DONE < P* = @ PPOSUPD EQU * = J ( P LC A2,DWTBC,A6 GET POSITION POINTER = ^ P ANK A2,/FF = 2 P AD A2,DWTAP,A6 INCLUDE HEAD POSITION POINTER = P ANK A2,/FF = " P CC A2,DWTPOS,A6 END OF ROW ? =
0x2ea740…2ea8d4 (2, 181) Dummy {f00=0x00df, f01=0x018e, f02=» = P* > P* INTERRUPT > P* > ( PIHDY EQU * > 2 P LD A4,DWTST,A6 BUSY? > D P RB(N) EXIT NO > b P SLL A4,2 ECHO MODE ? > x P RF(N) IHDY10 > . P LDR A1,A1 RETURN CODE FROM CHANNEL UNIT ? > P RB(NE) ADY420 YES > 4 PIHDY10 ABL LDREG
0x2ea8d4…2eaa68 Dummy {f00=0x00df, f01=0x018e, f02=» P* ? P* ? ( P* RECOVERY IS CARRIED OUT ONLY IF ? P* ORDER 6 IS RUNNING ? D P* ? d P* AT ENTRY: ? n P* ? P* A6 = DWT-ADDRESS ? P* A7 = ORDER ? P* A8 = ECB-ADDRESS ? PRCDY EQU * ? P IFT CPU852=1 ? &
0x2eaa68…2eabfc Dummy {f00=0x00df, f01=0x0190, f02=» P* @ P =3 @ P LDKL A2,/7FFF @ P ANS A2,DWTST,A6 SET BUSY @ 2 P =1 @ T P =1 @ b P =1 @ p P =1 @ ~ P =1 @ P =1 @ P =1 @ P =1 @ P* @ P IFT WHATDY=0 @ P* @ " P LDR* A2,A6 CHANNEL PARAME
0x2eabfc…2ead90 Dummy {f00=0x00df, f01=0x0190, f02=»T @ P* A P XIF A P* A P EJECT A * PRCDY10 EQU * A 8 P LDK A2,/00 DUMMY TO SEND A L P CF A5,OUTPUT A n $ P LDR A4,A4 LRC-ERROR IN BLOCK ? A P RF(NE) RCDY20 A P IFT WHATDY=0 =1 A P IFF STEADY+COUNTRY=0 =1 A * P LDR* A2,A
0x2ead90…2eaf24 Dummy {f00=0x00df, f01=0x0190, f02=»R =3 A n 4 PRCDY12 LDK A2,STILL-1 SET UP CURSOR BLINKING =3 B , P ADK A2,STEADY ADJUST TO STEADY IF SO =3 B D $ P CF A5,OUTPUT SEND CURSOR INF =3 B t & P SUK A3,1 DEC TRANSFER COUNTER =3 B , P RB(P) RCDY12 NOT ENOUGH OF TRANSFERS =3 B . P LDK A2,CTYCOD SEN
0x2eaf24…2eb0b8 Dummy {f00=0x00df, f01=0x0190, f02=»UTPUT =1 B P =3 C P =3 C PRCDY14 EQU * =3 C . P XIF =1 C F ( P LD A3,DWTST,A6 SAVE STATUS WORD =3 C X " P LDK A2,CLEHOM CLEAR AND HOME C P CF A5,OUTPUT SEND C P LDKL A2,/101 C 6 P ST A2,DWTAP,A6 SET HEAD LINE-AND-POSITION COU
0x2eb0b8…2eb24c Dummy {f00=0x00df, f01=0x018e, f02=» C z " P LDK A1,OPERR SET RETURN CODE D PRCDY15 ABL ADY420 D . P EJECT D H P* D V ( P* LRC-ERROR IN BLOCK SENT REMOTE D ` P* D PRCDY20 EQU * D P SUK A7,5 ORDER 5 ? D P RF(NE) RCDY25 NO D ( P LDK A1,2 INDICATE THROUGHPUT ERROR D
0x2eb24c…2eb3e0 Dummy {f00=0x00df, f01=0x0190, f02=» D ^ P ANK A4,/FF E P RF(E) RCDY30 E . P CF A5,BACCAN SEND BACKSPACES AND RUB OUT E 2 P LDK A3,2 START BUFFER INDEX E d PRCDY30 ABL ACDY90 E P EJECT E P* E P* E C H O D Y E P* E 0 P* ECHODY = DEVICE-DEPENDENT ECHO-ROUTINE
0x2eb3e0…2eb574 (2, 182) Dummy {f00=0x00e0, f01=0x018e, f02=» EORECH=0 E P* F P SUK A2,/80 F $ P RF(NN) ECDY20 NOT TO BE ECHOED F 0 P ADK A2,/80 F X P* F l P XIF F v P* F P SUK A3,/8 F P RF(E) ECDY40 BACKSPACE F P SUK A3,/10 F P RF(E) ECDY50 CLEAR F & PECDY10 CF A5,OUTPUT SEND C
0x2eb574…2eb708 Dummy {f00=0x00e0, f01=0x0190, f02=» ( PECDY20 ABL ECHRTN RETURN TO KEYBOARD G P* G 0 P* BACKSPACE G : P* G P PECDY40 EQU * G Z ( P LC A4,DWTBC,A6 GET POSITION COUNTER G n P ANK A4,/FF G P RB(E) ECDY20 FIRST POSITION G $ P LDK A4,1 INDICATE ONE BACKSTEP G P CF A5,BACCAN
0x2eb708…2eb89c Dummy {f00=0x00e0, f01=0x0190, f02=»ER G n P ANK A4,/FF H P RB(E) ECDY20 FIRST POSITION H P IFT WHATDY=0 H B & P LDR* A1,A6 GET CHANNEL PARAMETER H X P ANK A1,/10 GRAFIC DISPLAY H P RF(E) ECDY60 N H P CF A5,BACCAN BACK H P RB ECDY20 H P XIF H * PECDY60 LDR A3,A4 SAV
0x2eb89c…2eba30 Dummy {f00=0x00e0, f01=0x0190, f02=»OUNTER H | P ADK A4,1 UPDATE POS COUNTER I P LDK A3,/20 I 2 P CF A5,FASTER FAST OUTPUT I F P LDK A2,0 I h * P SC A2,DWTBC,A6 RESET POSITION COUNTER I z P RB ECDY20 I P EJECT I P* I P* I 0 P* BACCAN = SUBROUTINE TO POSITION CURSOR
0x2eba30…2ebbc4 Dummy {f00=0x00e0, f01=0x0190, f02=» I x P* J PBACCAN EQU * J P LDR A3,A4 J & ( P LC A2,DWTBC,A6 GET POSITION COUNTER J 8 P ANK A2,/FF J d . P AD A2,DWTAP,A6 ADD HEAD POSITION COUNTER J x P ANK A2,/FF J " P CC A2,DWTPOS,A6 LAST POSITION J P RF(NP) BACA10 NO J $ P LDK A2,SP
0x2ebbc4…2ebd58 Dummy {f00=0x00e0, f01=0x0190, f02=»E SPACE J x P CF A5,OUTPUT SEND K P LDK A2,BACKSP BACKSPACE K * PBACA20 CF A5,OUTPUT SEND K J P SUK A4,1 K j P RB(NE) BACA10 K | P NGR A3,A3 NEGATE REGISTER K , P ADS A3,DWTST,A6 UPDATE POSITION COUNTER K P RTN A5 K P EJECT K 4 P******
0x2ebd58…2ebeec Dummy {f00=0x00e0, f01=0x0190, f02=»SON FOR USING * K r 4 P* 'FAST OUTPUT FACILITY' ON 6344 * L 4 P* AND 6386 * L R 4 P*********************************************** L PCHECK EQU * L P* L P* L P LD A1,4,A8 L P SUR A1,A3
0x2ebeec…2ec080 Dummy {f00=0x00e0, f01=0x0190, f02=» L l P LDK A4,1 RESET COUNTER M $ PNEXT ADK A4,1 INCREMENT COUNTER M ( P SUK A1,1 END OF BUFFER? M P P RF(NP) OUT YES! M p P ADK A2,1 INCREMENT POINTER M $ P CCR A7,A2 CHAR EQU TO PREVIUS? M P RB(E) NEXT YES! M POUT EQU * M 6 P CWK A4,EQ
0x2ec080…2ec214 (2, 183) Dummy {f00=0x00e0, f01=0x0190, f02=»TION POINTER * M | , PFASTOK LC A2,DWTBC,A6 GET HEAD POSITION N P AD A2,DWTAP,A6 N F P ANK A2,/FF N ^ " P ADR A3,A4 UPDATE BUFFER-INDEX N r P ST A3,DWTBIN,A6 SAVE INDEX N 0 P LC A3,DWTPOS,A6 GET MAXNUMBER OF CHAR/LINE N P SUR A3,A2 AND COMPARE N
0x2ec214…2ec3a8 Dummy {f00=0x00e0, f01=0x0190, f02=»*********** N P* EXECUTE FAST OUTPUT * O P LDR A3,A7 GET CHAR TO SEND O 4 P CF A5,FASTER O X P************** O n P* SET CURSOR * O " P LD A4,DWTST,A6 GET ACTUAL POS O P ANK A4,/FF O ( P AD A4,DWTAP,A6 INC HEAD POS POINTER O P CF A5,C
0x2ec3a8…2ec53c Dummy {f00=0x00e0, f01=0x018e, f02=» SUK A3,1 O P ABL ACDY90 READ NEXT CHAR P P* P 4 . PNOFAST LDR A2,A7 RESTORE OUTPUT CHARACTER P > P ABL ACDY75 P p P EJECT P P* P P* P < P* FASTER = SUBROUTINE TO OUTPUT SPACE AT FAST OUTPUT P 4 P* AT ENTRY A4 = NUMBER
0x2ec53c…2ec6d0 Dummy {f00=0x00e0, f01=0x0190, f02=» P PFAS010 EQU * Q P ADK A4,/20 ADD CONSTANT Q P LDK A2,FASTO FAST OUTPUT Q < P CF A5,OUTPUT SEND Q ^ P LDR A2,A4 NO OF CHAR Q x P CF A5,OUTPUT SEND Q P LDR A2,A3 Q P CF A5,OUTPUT SEND Q P RTN A5 Q P EJECT Q P* Q P* Q
0x2ec6d0…2ec864 Dummy {f00=0x00e0, f01=0x0190, f02=»QU * Q P ADKL A4,/1F1F CONVERT R P LDK A2,SCADD SET CURSOR R * P CF A5,OUTPUT SEND R J P ECR A2,A4 POS. X < /80? R d P LDR A2,A2 R P RF(NN) CURR05 YES! R P LCK A4,/7F00 R PCURR05 EQU * R P LDR A2,A4 R & P CF A5,OUTPUT OUTPUT POSIT
0x2ec864…2ec9f8 Dummy {f00=0x00e0, f01=0x0190, f02=»IFT RIGHT R PCURR15 EQU * S P CF A5,OUTPUT OUTPUT LINE(Y) S & P RTN A5 S J P EJECT S Z P* =2 S h P* =2 S v P* =2 S 8 P* ERA - SUBROUTINE TO AVOID UNNECESSARY OUTPUT =2 S P* =2 S P* =2 S 0 P* AT ENTRY A4 = CHAR TO ERASE
0x2ec9f8…2ecb8c Dummy {f00=0x00e0, f01=0x0190, f02=»2 S t P ANK A2,/FF GET MAX CHAR. =2 T 0 P LC A3,DWTAP+1,A6 CURRENT POS. ON SCREEN =2 T . P ANK A3,/FF =2 T b 2 P SUR A2,A3 NUMBER OF CHAR. TO END OF SCREEN =2 T z P ADK A2,1 ADJUST LENGTH =2 T P CWR A4,A2 OUTSIDE SCREEN =2 T P RF(L) ERAEND NO
0x2ecb8c…2ecd20 Dummy {f00=0x00e0, f01=0x4096, f02=»TN A5 RETURN =2 T PABDY EQU * U , P CF A15,UPDAPP UPDATE CURSOR POSITION =5 U * ( P RTN A15 RETURN TO ABORT ROUTINE =5 U Z P END U @ U O END OF SCREEN =2 T z P ADK A2,1 ADJUST LENGTH =2 T P CWR A4,A2 OUTSIDE SCREEN =2 T P RF(L) ERAEND NO
0x2ecd20…2eceb4 (2, 184) Dummy {f00=0x00e0, f01=0x2008, f02=» V NE) BACA10 7 P NGR A3,A3 NEGATE REGISTER 7 , P ADS A3,DWTST,A6 UPDATE POSITION COUNTER 7 < P RTN A5 7 l P END 7 |@ 7 6 t P* 6 PBACCAN EQU * 6 P LDR A3,A4 6 " PBACA10 LDK A2,BACKSP BACKSPACE 6 P CF A5,OUTPUT SEND 6 $ P LDK
0x2eceb4…2ed048 Dummy {f00=0x00e0, f01=0x0000, f02=»
[…0x6…]
0x2ed9c0…2edb54 (2, 185) Opaque[0x194]
0x2edb54…2edce8 # DirEnt {nam=»DRLT01«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x1c18, f03=0x0000}
0x2edb54…2edce8 IdxSect {
0x2edb54…2edce8 f00 = 0x00e0 // 0x2edb54 @0x0
0x2edb54…2edce8 f01 = 0x0014 // 0x2edb56 @0x2
0x2edb54…2edce8 gno = [ // 0x2edb58 @0x4
0x2edb54…2edce8 [0x00]: C0x00e0.0x3.0
0x2edb54…2edce8 [0x01]: C0x00e1.0x0.0
0x2edb54…2edce8 [0x02]: C0x00e1.0x1.0
0x2edb54…2edce8 [0x03]: C0x00e1.0x2.0
0x2edb54…2edce8 [0x04]: C0x00e1.0x3.0
0x2edb54…2edce8 [0x05]: C0x00e2.0x0.0
0x2edb54…2edce8 [0x06]: C0x00e2.0x1.0
0x2edb54…2edce8 [0x07]: C0x00e2.0x2.0
0x2edb54…2edce8 [0x08]: C0x00e2.0x3.0
0x2edb54…2edce8 [0x09]: C0x00e3.0x0.0
0x2edb54…2edce8 ]
0x2edb54…2edce8 }
0x2edce8…2ede7c Dummy {f00=0x00e0, f01=0x0190, f02=» 2 P IDENT DRLT01 REL 10.0 80-03-14 870105041000 P : & P =9,RTN FROM OUTLRT IN INH MODE B P PRR 10.1 79-09-03 l P =8,UPDATE TO 10.1 STATUS P REL 9.1 79-05-23 * P =7,CLT010 DUBLE DEF LABEL, RB - ABL P PRR 9.1 79-05-1
0x2ede7c…2ee010 Dummy {f00=0x00e0, f01=0x0190, f02=» =1-4, GEN UPDATE TO 8.2+ STATUS P REL 8.2 79-04-02 ( P =4,TIMER RESET CORRECTED D P REL 8.2 79-03-22 h P =3,NAK HANDLING CORRECTED P REL 8.2 79-03-16 P =2,IMPROV. OF TEST ORDER P REL 8.2 79-01-11 , P =
0x2ee010…2ee1a4 Dummy {f00=0x00e0, f01=0x0190, f02=»****************************** | P* & $ P* PHILIPS TERMINAL SYSTEM PTS 0 P* X $ P* DRLT01 = DRIVER CHANNEL UNIT b $ P* FOR LOCAL TERMINALS P* P* P* P* P* 2 P************************************
0x2ee1a4…2ee338 Dummy {f00=0x00e0, f01=0x0190, f02=»GISTER A2. IF DATA d D P* INPUT OR DATA REQUEST A BRANCH IS MADE TO INTERRUPT HANDLER P* FOR ACTUAL DEVICE. b D P* IF CONTROL CHARACTER, THIS IS EXAMINED AND NECESSARY ACTIONS P* ARE CARRIED OUT. P* < P* THE DRIVER ALSO INCLUD
0x2ee338…2ee4cc Dummy {f00=0x00e0, f01=0x0190, f02=»TART ON EVERY CHLT IN SYSTEM t P* $ 2 P* CONTROL WORK TABLES FOR THE CHANNELS ARE . P* INCLUDED IN THE DRIVER. d P EJECT P* P* P* . P* NORMAL REGISTER USAGE IN THE DRIVER:- P* P* A1 = RETURN CODE
0x2ee4cc…2ee660 Dummy {f00=0x00e0, f01=0x0190, f02=»WT-ADDRESS P* A7 = ORDER P* A8 = ECB-ADDRESS ( P* D P* N P* X P EJECT b P* p P*********** z P* ENTRIES * P*********** P* P* & P ENTRY CHLT1 INTERRUPT FROM CHLT01 & P ENTRY CHLT2 INTERRU
0x2ee660…2ee7f4 (2, 186) Dummy {f00=0x00e1, f01=0x0190, f02=» p P ENTRY CHLTON START OF CHLT 0 P ENTRY LOCHAN NUMBER OF LOCAL CHANNEL UNITS , 0 P ENTRY RECHAN NUMBER OF REMOTE CHANNEL UNITS ` P ENTRY REMFC DUMMY ENTRY P ENTRY DWREMU DUMMY ENTRY P* P EJECT P* . P****************
0x2ee7f4…2ee988 Dummy {f00=0x00e1, f01=0x018e, f02=» P* & P EXTRN SAVE8 SAVE REGISTERS A1-A8 P EXTRN TDISP DISPATCHER < P EXTRN IHRET8 RESTORE A1-A8 " P EXTRN INTLT1 INTERRUPT TABLE " P EXTRN INTLT2 INTERRUPT TABLE " P EXTRN INTLT3 INTERRUPT TABLE " P EXTRN INTLT4 INTERRUP
0x2ee988…2eeb1c Dummy {f00=0x00e1, f01=0x0190, f02=» . P EXTRN OUTLIN SEND CHAR. VIA SWITCH MODULE P* 6 P* @ ( P*********************************** J ( P* DWT PARAMETERS * v ( P*********************************** P EXTRN DWTST STATUS P EXTRN DWTOR ORDER ( P EXT
0x2eeb1c…2eecb0 Dummy {f00=0x00e1, f01=0x0190, f02=»TPUT QUEUE & P EXTRN DWTSB2 STACK BASE 2 IN DWT P EXTRN DWTTP TIMER POINTER < 0 P EXTRN INTADR INTERRUPT ADDRESS DISPLACEMENT ^ 0 P EXTRN RECADR RECOVERY ADDRESS DISPLACEMENT P* P EJECT P P* P************* P*
0x2eecb0…2eee44 Dummy {f00=0x00e1, f01=0x0190, f02=» t PDRQTIM EQU 30 P* P EJECT ( P* 6 P************************ @ P* CONDITIONAL ASSEMBLY * ` P************************ P* < P* A LOGG FUNCTION OF EVERY INPUT AND OUTPUT CHARACTER 8 P* MAY BE INCLUDED TO THE DRI
0x2eee44…2eefd8 Dummy {f00=0x00e1, f01=0x0190, f02=»AL b . P* CHANNELS BY SETTING X:B TO 1,2,3 OR 4 P* < PX:B EQU 1 F PLOCHAN EQU X:B X P* n 8 P* ACKUMULATORS FOR NAK, RETRANSMISSION FAULT AND x 4 P* UNDEFINED CONTROL CHARACTERS ARE UPDATED IN 8 P* THE DRIVER. THIS FUNCTI
0x2eefd8…2ef16c Dummy {f00=0x00e1, f01=0x018e, f02=» BY SETTING X:D = 1 A SOFTWARE TIME OUT HANDLING < P* MISSING DATA REQUESTS FROM PRINTERS CAN BE INCLUDED 8 P* IN THE DRIVER. x < P* AN ACKUMULATOR TO BE UPDATED EVERY TIME A SOFTWARE * P* TIME OUT OCCURS IS ALSO INCLUDED. P*
0x2ef16c…2ef300 Dummy {f00=0x00e1, f01=0x0190, f02=» . P* SET IS OBTAINED BY SETTING CPU852 EQU 0. P* : PCPU852 EQU 0 D P* X P EJECT b P p P x PRECHAN EQU 0 PREMFC EQU 0 PCWTRT1 EQU * PCWTRT2 EQU * PCWTRT3 EQU * PCWTRT4 EQU * PCWTRT5 EQU *
0x2ef300…2ef494 (2, 187) Dummy {f00=0x00e1, f01=0x0190, f02=»*********************************** ~ : P* C W T L T 1 * , : P***************************************************** j P* 4 P* CONTROL WORK TABLE FOR LOCAL TERMINAL NO. 1 P* P* PDWA1 EQU /
0x2ef494…2ef628 Dummy {f00=0x00e1, f01=0x0190, f02=»TLOW EQU *-CWTLT1 P DATA 0 LAST OUTPUT WORD * PCWTITA EQU *-CWTLT1 ADDRESS TO INTLT1 : P DATA INTLT1 h PCWTINR EQU *-CWTLT1 INR | P INR A2,0,DWA1 PCWTOTR EQU *-CWTLT1 OTR P OTR A2,0,DWA1 " PCWTCIS EQU *-CWTLT1 CIO-START
0x2ef628…2ef7bc Dummy {f00=0x00e1, f01=0x0190, f02=»ATA 0 PCWTADD EQU *-CWTLT1 P* * P IFT ACKMUL=1 4 P* J P DATA 0 NAK-ACKUMULATOR T $ P DATA 0 RETR. FAULT-ACKUMULATOR t , P DATA 0 UNDEFINED-INTERRUPT-ACKUMULATOR PACKTIM EQU *-CWTLT1 ( P DATA 0 PRINTER TIMEOUT ACKUMULA
0x2ef7bc…2ef950 Dummy {f00=0x00e1, f01=0x0190, f02=» W T L T 2 * : P***************************************************** 8 P* v 4 P* CONTROL WORK TABLE FOR LOCAL TERMINAL NO. 2 P* PCWTLT2 EQU * P* P IFT LOCHAN=2 PDWA2 EQU /13 DEVIC
0x2ef950…2efae4 Dummy {f00=0x00e1, f01=0x0190, f02=» INR A2,0,DWA2 INR P OTR A2,0,DWA2 OTR P CIO A2,1,DWA2 CIO-START 4 " P DATA 0 RETRANSMISSION COUNTER T P DATA 0 END OF QUEUE z P* P IFT ACKMUL=1 P* P DATA 0 NAK-ACKUMULATOR $ P DATA 0 RETR. FAULT-ACKUMULATOR , P
0x2efae4…2efc78 Dummy {f00=0x00e1, f01=0x0190, f02=»2 P* P EJECT P XIF " P IFT LOCHAN=3 . PDWA2 EQU /13 DEVICE ADDRESS D P* h $ P DATA 0 LAST OUTPUT DWT-ADDRESS r P DATA 0 LAST OUTPUT WORD P DATA INTLT2 INTERRUPT TABLE P INR A2,0,DWA2 INR P OTR A2,0,DWA2 O
0x2efc78…2efe0c Dummy {f00=0x00e1, f01=0x0190, f02=» P* P DATA 0 NAK-ACKUMULATOR $ P DATA 0 RETR. FAULT-ACKUMULATOR . , P DATA 0 UNDEFINED- INTERRUPT-ACKUMULATOR V ( P DATA 0 PRINTER TIMEOUT ACKUMULATOR P* P XIF P* P* P XIF P IFT LOCHAN=4 P* P
0x2efe0c…2effa0 Dummy {f00=0x00e1, f01=0x0190, f02=» OUTPUT DWT-ADDRESS P DATA 0 LAST OUTPUT WORD P DATA INTLT2 INTERRUPT TABLE < P INR A2,0,DWA2 INR ` P OTR A2,0,DWA2 OTR z P CIO A2,1,DWA2 CIO-START " P DATA 0 RETRANSMISSION COUNTER P DATA 0 END OF QUEUE P* P IFT ACK
0x2effa0…2f0134 (2, 188) Dummy {f00=0x00e1, f01=0x0190, f02=» h ( P DATA 0 PRINTER TIMEOUT ACKUMULATOR P* 4 P XIF > P EJECT J P* X P* b 6 P* CHANNEL UNIT WORK TABLE FOR LOCAL TERMINAL NO.3 l P* PCWTLT3 EQU * P IFT LOCHAN=3 PDWA3 EQU /23 DEVICE ADDRESS P* $ P
0x2f0134…2f02c8 Dummy {f00=0x00e1, f01=0x0190, f02=»TR A2,0,DWA3 OTR P CIO A2,1,DWA3 CIO-START " P DATA 0 RETRANSMISSION COUNTER 8 P DATA 0 END OF QUEUE ^ P* z P IFT ACKMUL=1 P* P DATA 0 NAK-ACKUMULATOR $ P DATA 0 RETR. FAULT-ACKUMULATOR , P DATA 0 UNDEFINED- INTERRUPT
0x2f02c8…2f045c Dummy {f00=0x00e1, f01=0x0190, f02=» /23 DEVICE ADDRESS P* $ P DATA 0 LAST OUTPUT DWT-ADDRESS & P DATA 0 LAST OUTPUT WORD N P DATA INTLT3 INTERRUPT TABLE n P INR A2,0,DWA3 INR P OTR A2,0,DWA3 OTR P CIO A2,1,DWA3 CIO-START " P DATA 0 RETRANSMISSION COUNTER
0x2f045c…2f05f0 Dummy {f00=0x00e1, f01=0x0190, f02=»R r , P DATA 0 UNDEFINED- INTERRUPT-ACKUMULATOR ( P DATA 0 PRINTER TIMEOUT ACKUMULATOR : P* f P XIF p P EJECT | P* 4 P* CONTROL WORK TABLE FOR LOCAL TERMINAL NO. 4 P* PCWTLT4 EQU * P* P* P IFT LOCHA
0x2f05f0…2f0784 Dummy {f00=0x00e1, f01=0x0190, f02=»INTLT4 INTERRUPT TABLE P INR A2,0,DWA4 INR P OTR A2,0,DWA4 OTR 8 P CIO A2,1,DWA4 CIO-START R " P DATA 0 RETRANSMISSION COUNTER r P DATA 0 END OF QUEUE P* P IFT ACKMUL=1 P* P DATA 0 NAK-ACKUMULATOR $ P DATA 0 RE
0x2f0784…2f0918 Dummy {f00=0x00e1, f01=0x0190, f02=» P* P EJECT P* 2 P********************************************** * 2 P* C H T A B * ` 2 P********************************************** P* 6 P* THIS TABLE HOLDS ADDRESSES OF CONTROLLER WORK
0x2f0918…2f0aac Dummy {f00=0x00e1, f01=0x0190, f02=»CHTABE-* TABLE LENGTH P DATA CWTLT1 P DATA CWTLT2 4 P IFT LOCHAN=3 H P DATA CWTLT3 ^ P XIF r P IFT LOCHAN=4 ~ P DATA CWTLT3 P DATA CWTLT4 P XIF PCHTABE EQU * END OF TABLE P* P* P* P
0x2f0aac…2f0c40 Dummy {f00=0x00e1, f01=0x0190, f02=»HANDLER FOR CHLT v P* P* C H L T 1 " P* INTERRUPT FROM CHLT1 8 P* X P XIF b P IFT LOCHAN=2 n PCHLT3 EQU * PCHLT4 EQU * P XIF P IFF LOCHAN=1 PCHLT1 EQU * $ P ST P,INTSAV SAVE LAST INTERRUPT
0x2f0c40…2f0dd4 (2, 189) Dummy {f00=0x00e1, f01=0x0190, f02=» 8,A15 SAVE A1-A8 ON STACK P XIF " P* . P IFF LOCHAN=1 8 . P LDKL A5,CWTLT1 SET CWT-ADDRESS FOR CHLT1 N P RF CLT010 P* P* C H L T 2 P* INTERRUPT FROM CHLT2 P* PCHLT2 EQU * $ P ST P,INTSAV SAVE LAST I
0x2f0dd4…2f0f68 Dummy {f00=0x00e1, f01=0x0190, f02=»0 " P MSR 8,A15 SAVE A1-A8 ON STACK P XIF 0 P* < P IFF LOCHAN=1 F . P LDKL A5,CWTLT2 SET CWT-ADDRESS FOR CHLT2 P XIF P IFT LOCHAN=2 0 PCLT010 EX CWTINR,A5 EXECUTE INR-INSTRUCTION P* P XIF P* P IFT
0x2f0f68…2f10fc Dummy {f00=0x00e1, f01=0x0190, f02=»EQU * $ P ST P,INTSAV SAVE LAST INTERRUPT P IFT CPU852=1 6 & P CF A15,SAVE8 SAVE A1-A8 ON STACK L P XIF v P* P IFT LOCHAN=3 P IFT CPU852=0 " P MSR 8,A15 SAVE A1-A8 ON STACK P XIF P* P IFT LOCHAN=3 .
0x2f10fc…2f1290 Dummy {f00=0x00e1, f01=0x0190, f02=» RF CLT010 P* ! P* ! P* C H L T 2 ! & P* INTERRUPT FROM CHLT3 ! < P* ! PCHLT3 EQU * ! f $ P ST P,INTSAV SAVE LAST INTERRUPT ! z P IFT CPU852=1 ! & P CF A15,SAVE8 SAVE A1-A8 ON STACK ! P XIF ! P* ! P IFT LOCHAN=4 !
0x2f1290…2f1424 Dummy {f00=0x00e1, f01=0x0190, f02=»DRESS FOR CHLT3 ! v P RF CLT010 " P* C H L T 4 " * P* INTERRUPT FROM CHLT4 " @ P* " ` PCHLT4 EQU * " j $ P ST P,INTSAV SAVE LAST INTERRUPT " ~ P IFT CPU852=1 " & P CF A15,SAVE8 SAVE A1-A8 ON STACK " P XIF " P* " P IFT LOCHAN=
0x2f1424…2f15b8 Dummy {f00=0x00e1, f01=0x0190, f02=»T-ADDRESS FOR CHLT4 " z $ PCLT010 EX CWTINR,A5 EXECUTE INR # P XIF # D P* # P P IFT LOCHAN=1 # Z P* # p P* # z P* C H L T 1 # P* # P* INTERRUPT FROM CHLT1 # P* # PCHLT1 EQU * # PCHLT2 EQU * # PCHLT3 EQU * #
0x2f15b8…2f174c Dummy {f00=0x00e1, f01=0x0190, f02=» CPU852=0 # " P MSR 8,A15 SAVE A1-A8 ON STACK $ P XIF $ 8 P* $ D P IFT LOCHAN=1 $ N $ P LDKL A5,CWTLT1 GET CWT-ADDRESS $ d $ P ST P,INTSAV SAVE LAST INTERRUPT $ P INR A2,0,DWA1 $ P* $ P XIF $ P* $ P IFT LOGING=1 $ . P CF A15,
0x2f174c…2f18e0 Dummy {f00=0x00e1, f01=0x0190, f02=» $ P LDK A1,0 RESET RETURN CODE % P LDR A3,A2 INPUT WORD IN A3 % , P SRL A3,8 % P P LDR A4,A3 % b $ P ANK A3,/E 2 * LINE NUMBER IN A3 % t P SRL A4,3 % & P ANK A4,/E 2 * DEVICE NUMBER IN A4 % . P ABL(NE) CLT100 INPUT IS A DATA CHARACTER %
0x2f18e0…2f1a74 (2, 190) Dummy {f00=0x00e2, f01=0x0190, f02=» =7(=3) % P* & P* & 0 P* CHECK QUEUE AND SEND IF SOMETHING THERE & $ P* & X & P LDR* A7,A5 LAST OUTPUT DWT IN A7 & b P CMR A5 RESET LAST OUTPUT & P LD A6,CWTEQ,A5 OUTPUT QUEUE & P RF(E) CLT020 & P STR A2,A15 SAVE A2 & $ P LD
0x2f1a74…2f1c08 Dummy {f00=0x00e2, f01=0x0190, f02=»ARACTER & z P LDR* A2,A15 RELOAD A2 ' P EJECT ' . P* ' < P* ' F 2 P* CHECK CONTROL CHARACTER AND UPDATE ERROR- ' P 2 P* ACKUMULATORS IF NAK, RETRANSMISSION FAULT ' ( P* OR UNDEFINED CONTROL CHARACTER ' P* ' PCLT020 EQU * ' P L
0x2f1c08…2f1d9c Dummy {f00=0x00e2, f01=0x0190, f02=» CLT028 ' P SUK A2,5 7 NAK ? =3 ( P RF(Z) CLT032 =3 ( , P* ( F P IFT ACKMUL=1 ( P P* ( f P =1 ( p P =1 ( ~ P LDK A7,2 ( $ P SUK A2,/16 RETRANSMISSION FAULT ( P RF(E) CLT025 ( " P ADK A7,2 UNDEFINED INTERRUPT ( PCLT025
0x2f1d9c…2f1f30 Dummy {f00=0x00e2, f01=0x0190, f02=» ( P* ) P* ) 0 P* NAK, TIME-OUT, RETRANSMISSION FAULT OR ) $ P* UNDEFINED CONTROL CHARACTER ) P P* ) x : P* CHECK LAST OUTPUT AND TRY RECOVERY OF THAT DEVICE ) 4 P* ONE TIME. IF NOT SUCCESS GO TO DRIVER WITH ) P* MESSAGE NOT
0x2f1f30…2f20c4 Dummy {f00=0x00e2, f01=0x0190, f02=»TS SET ? ) j P RF(NE) CLT032 * 0 P LDKL A2,/1000 INDICATE RECOVERY TRIAL DONE * & , P XRS A2,DWTST,A6 SET BIT IN STATUS WORD * Z 0 PCLT030 LDK A3,2 INDICATE RECOVERY OF DEVICE * P LDK A4,1 =1 * P LDK A4,0 * P RF CPO025 * . PCLT032 LDK A1,NO
0x2f20c4…2f2258 Dummy {f00=0x00e2, f01=0x0190, f02=» N A K * P* + B P* ERROR ACKUMULATOR AND RETRANSMISSION COUNTER IS UPDATED. + B P* LAST OUTPUT CHARACTER IS RETRANSMITTED BY CHANNEL DRIVER + ^ @ P* UP TO SIX TIMES AND IF STILL NO SUCCESS RETURN CODE NOT + , P* OPERABLE IS SENT TO DEVICE
0x2f2258…2f23ec Dummy {f00=0x00e2, f01=0x018e, f02=»* + 2 P IM CWTRTC,A5 INCREMENT RETRANSMISSION COUNTER , P LD A4,CWTRTC,A5 GET COUNTER , @ P SUK A4,7 SEVEN TIMES ? , d P RB(E) CLT015 =7(=3) , * P LD A2,CWTLOW,A5 GET LAST OUTPUT WORD , P LDR A1,A5 , * P EX CWTOTR,A1 EXECUTE OTR-INSTRUCTION
0x2f23ec…2f2580 Dummy {f00=0x00e2, f01=0x018e, f02=» P EJECT - P* - P* - P* ACK DATA = 07 - & P* - F 2 P* SIMULATE DATA REQUEST IF RETURN CODE FROM - P . P* CHLT OR DEVICE WITHOUT DATA REQUEST, - P* ELSE GO TO DISPATCHER - P* - PCLT040 EQU * - P LDKL A7,/EFFF -
0x2f2580…2f2714 (2, 191) Dummy {f00=0x00e2, f01=0x0190, f02=» , P LDR* A7,A6 DEVICE WITHOUT DATA REQUEST? . , P RF(N) CLT110 YES. SIMULATE DATA REQUEST . 4 P* . d P IFF SOFTIM=1 . n P* . PCLT062 EQU * . P RF EXIT . P* . P XIF . P* . P* . P IFT SOFTIM=1 . P* . P EJECT .
0x2f2714…2f28a8 Dummy {f00=0x00e2, f01=0x0190, f02=»S TO TIMER BLOCK . z P RF(E) CLT060 / P* / . P* RESTART TIMER / 8 P* / R " P LDKL A3,-DRQTIM RESTART TIMER / P ST* A3,DWTTP,A6 / P RF EXIT / P* / P* START TIMER / P* / PCLT060 LDR A1,A6 PARAMETER / P LDKL A4,DWTTP T
0x2f28a8…2f2a3c Dummy {f00=0x00e2, f01=0x0190, f02=»T ROUTINE AND DELAY / j PCLT062 EQU * 0 P RF EXIT 0 0 P 0 @ P EJECT 0 H P* 0 V P* 0 ` P* RESET TIMER IF STARTED 0 j P* 0 P =4 0 P =4 0 P =4 0 P =4 0 P =4 0 P EJECT 0 P* 0 6 P* TIME-OUT ROUT
0x2f2a3c…2f2bd0 Dummy {f00=0x00e2, f01=0x0190, f02=»TTP,A6 RESET POINTER TO TIMER BLOCK 0 P LD A3,DWTST,A6 1 , P SLL A3,2 ECHO MODE ? 1 D P RF(N) CLT110 YES 1 b P* 1 | P IFT ACKMUL=1 1 P IFF LOCHAN=1 1 P* 1 " P LDR* A5,A6 CHANNEL PARAMETER 1 P ANK A5,/F 1 P SLL A5,1 2 * INDEX
0x2f2bd0…2f2d64 Dummy {f00=0x00e2, f01=0x0190, f02=»* 1 P XIF 2 P IFT SOFTIM=1 2 P IFT ACKMUL=1 2 , P IFT LOCHAN=1 2 B P* 2 X $ P LDKL A5,CWTLT1 GET CWT-ADDRESS 2 b ( P IM ACKTIM,A5 INCREMENT ACKUMULATOR 2 P* 2 P XIF 2 P IFT SOFTIM=1 2 P* 2 $ P LD A7,DWTOR,A6 TEST ORDER ?
0x2f2d64…2f2ef8 Dummy {f00=0x00e2, f01=0x0190, f02=»RY =2 2 n P* 3 P XIF 3 P* 3 $ P EJECT 3 . P* 3 < P* POWER ON DATA = 03 3 F P* 3 h 6 P* RECOVERY ROUTINES ARE STARTED FOR EVERY DEVICE 3 r 6 P* ON ACTUAL LINE EXCEPT THOSE OCCUPYING CHANNEL 3 $ P* UNIT OR THOSE IN ECHO MODE. 3
0x2f2ef8…2f308c Dummy {f00=0x00e2, f01=0x0190, f02=»SS 3 | P* A7 = ORDER 4 P* 4 " PCHPOWO EQU * 4 , P CF A15,GETLIN 4 @ $ P LDR* A2,A5 GET LAST OUTPUT DWT 4 V . P CM CWTRTC,A5 RESET RETRANSMISSION COUNTER 4 ~ P LDK A4,0 4 P LDR A3,A6 DEVICE COUNTER 4 P LDR A1,A8 ADDRESS POINTER 4 $ P R
0x2f308c…2f3220 Dummy {f00=0x00e2, f01=0x0190, f02=» 4 P RF(N) CPO030 5 P SLC A6,1 5 " P LCR A7,A6 LEFT BYTE OF DWTCHP 5 0 P ANK A7,1 INPUT DEVICE ? 5 V P RF(NE) CPO025 YES 5 v P LDKL A7,/EFFF 5 ( P ANS A7,DWTST,A6 RESET RECOVERY BIT 5 P LC A7,DWTST,A6 5 P ANK A7,/20 ECHO MODE ? 5
0x2f3220…2f33b4 (2, 192) Dummy {f00=0x00e2, f01=0x018e, f02=»SS TO ADDRESSBLOCK IN A7 5 t . P LD A7,RECADR,A7 ADDRESS TO RECOVERY IN A7 6 P RF(E) CPO030 NO RECOVERY 6 R P LDKL A5,DWTSB2 STACKBASE 6 t P ADR A5,A6 6 P INH 6 & P CFR A15,A7 GO TO RECOVERY ROUTINE 6 ( PCPO030 SUK A3,2 ALL DEVICES THREATED 6
0x2f33b4…2f3548 Dummy {f00=0x00e2, f01=0x0190, f02=» ( PCLT100 CF A15,GETLIN GET DWT-ADDRESS 7 P SUR A6,A4 VALID INTERRUPT ? 7 0 P RB(N) EXIT 7 T P LDR A8,A8 7 h P RB(Z) EXIT EXIT NOT DEFINED 7 z P LDR* A6,A8 GET DWT 7 P RB(E) EXIT 7 P ANKL A6,/FFFE 7 . P LCR A7,A6 LEFT BYTE IN CHANNEL PARA
0x2f3548…2f36dc Dummy {f00=0x00e2, f01=0x0190, f02=»10 LD A7,DWTOR,A6 SET ORDER IN A7 7 P ANK A7,/FF 8 * * P LD A8,DWTECB,A6 AND ECB-ADDRESS IN A8 8 > P IFT SOFTIM=1 8 l * P LC A3,DWTOCH,A6 GET LAST CHARACTER =4 8 P ANK A3,/7F =4 8 * P SUK A3,DUMMSP SPECIAL DUMMY=ETX ? =4 8 P RF(NE) CLT120 NO
0x2f36dc…2f3870 Dummy {f00=0x00e2, f01=0x0190, f02=» 8 n P RF(E) CLT120 NO =4 9 P INH =4 9 $ P CM* DWTTP,A6 RESET TIMER =4 9 6 2 P CM DWTTP,A6 RESET ADDRESS POINTER TO TIMER =4 9 Z PCLT120 EQU * =4 9 P XIF 9 4 P LD A3,DWTADR,A6 ADDRESS TO ADDRESS-BLOCK IN A3 9 P ENB 9 * P ABI INTADR,A3 G
0x2f3870…2f3a04 Dummy {f00=0x00e2, f01=0x0190, f02=»RUPT HANDLER:- 9 r P* : ( P* A1 = ERROR CODE (A1=0 NOERROR) : B P* (A1=1 NOT OPERABLE , HARDWARE TIME-OUT) : L P* A6 = DWT-ADDRESS : P* : P* A7 = ORDER : P* : P* A8 = ECB-ADDRESS : P EJECT : P* :
0x2f3a04…2f3b98 Dummy {f00=0x00e2, f01=0x018e, f02=» NUMBER : p P* ; P* ON ENTRY:- ; P* ; 0 P* A3 = LINE NUMBER * 2 ; : P* A4 = DEVICE NUMBER * 2 ; Z P* ; | P* ON EXIT:- ; P* ; 6 P* A6 = TOTAL NUMBER OF DEVICES*2 ON ACTUAL LINE ; < P* A8 = ADDRESS IN 'INTLTX' WHERE DWT-A
0x2f3b98…2f3d2c Dummy {f00=0x00e2, f01=0x0190, f02=» ; | P ADR A8,A3 POSITION IN TABLE < , P LDR* A8,A8 ADDRESS TO TERMINAL SECTION < , ( P RF(Z) GTL010 RETURN IF NOT DEFINED < P LDR* A6,A8 GET ID-WORD < , P ANK A6,/FF TWO TIMES NUMBER OF DEVICES < 4 P ADR A8,A4 ADDRESS TO DEVICE WORK TABLE POSITION
0x2f3d2c…2f3ec0 Dummy {f00=0x00e2, f01=0x0190, f02=»T L R T < P* = : P* SUBROUTINE TO SEND ONE CHARACTER VIA CHANNEL UNIT. = P* = X < P* CHARACTER GIVEN IN A2 IS SENT VIA CHLT IF CONTROL = b 8 P* UNIT IS FREE. IN OTHER CASE DWT IS QUEUED ON A = P* OUTPUT QUEUE THREAD. = P* =
0x2f3ec0…2f4054 (2, 193) Dummy {f00=0x00e2, f01=0x0190, f02=» * = P* > P IFF LOCHAN=1 > P* > * " P LDR* A1,A6 CHANNEL PARAMETER > 4 P ANK A1,/F CHANNEL INDEX > Z P SLL A1,1 > z P ADK A1,2 > * P LD A1,CHTAB,A1 GET CWT-ADDRESS IN A1 > P* > P XIF > P* > P* > P IFT LOCHAN=1 >
0x2f4054…2f41e8 Dummy {f00=0x00e2, f01=0x018e, f02=» RF(E) OUL050 YES > P EJECT ? P* ? ( P* QUEUE OUTPUT ? 2 P* ? L & POUL005 LD A4,CWTEQ,A1 OUTPUT QUEUE ? V P RF(E) OUL020 ? POUL010 CWR A6,A4 ? . P RF(E) OUL060 THIS DWT IS ALREADY IN QUEUE ? P LD A3,DWTOTQ,A4 ? & P RF(E) OUL030 EN
0x2f41e8…2f437c Dummy {f00=0x00e2, f01=0x018e, f02=» $ POUL030 ST A6,DWTOTQ,A4 QUEUE DWT @ * POUL040 CM DWTOTQ,A6 SET END OF THREAD @ , P RF OUL060 @ Z P EJECT @ l P* @ z P* SEND CHARACTER @ P* @ , POUL050 LDR* A3,A6 GET CHANNEL PARAMETERS @ P ANKL A3,/7F00 @ P ANK A2,/FF @ P ORR
0x2f437c…2f4510 Dummy {f00=0x00e2, f01=0x0190, f02=» @ n P IFT LOGING=1 A 0 P CF A15,LOGG ** LOGG OF OUTPUT CHARACTER ** A P XIF A R 4 P ST A2,CWTLOW,A1 STORE LAST OUTPUT IN CWT =6(=3) A ^ 8 POUL060 SC A2,DWTOCH,A6 STORE OUTPUT CHARACTER IN DWT A POUL070 EQU * A P IFT CPU852=1 A ( P ABL IHRET8
0x2f4510…2f46a4 Dummy {f00=0x00e2, f01=0x0190, f02=» . P ADKL A15,2 ...ADJUST STACK POINTER... =9 B P LDR* P,A15 ...AND RETURN =9 B 6 P XIF B Z P* B f P EJECT B p P* B ~ P* C H L T O N B P* B > P* SUBROUTINE TO RESET CWT AND PERFORM CIO-START OF EVERY B @ P* CHLT IN SYSTEM. THE SUBR
0x2f46a4…2f4838 Dummy {f00=0x00e2, f01=0x018e, f02=»10 SUK A1,2 ALL TREATED ? B P RF(NZ) CON020 NO TAKE NEXT C " P ABL RTNA15 RETURN AND ENB C F * PCON020 LD A5,CHTAB,A1 LOAD CWT-ADDRESS C h P RB(Z) CON010 C $ P EX CWTCIS,A5 EXECUTE CIO-START C P LDR* A6,A5 GET LAST DWT C P RB(Z) CON010 C
0x2f4838…2f49cc Dummy {f00=0x00e2, f01=0x0190, f02=» C P* D P* D P IFT LOCHAN=1 D P* D 2 P CIO A2,1,DWA1 CIO-START D < P LD A6,CWTLT1 GET LAST DWT D P RF(Z) CON010 D ~ P CM CWTLT1 RESET LAST OUTPUT D P LDK A2,0 D " P CF A15,OUTLIN SEND CHARACTER D $ PCON010 ABL RTNA15 RETURN
0x2f49cc…2f4b60 Dummy {f00=0x00e2, f01=0x0190, f02=»MBLY IS SET EVERY INPUT AND D x $ P* OUTPUT CHARACTER ARE LOGGED E $ P* E L P* E V P* E ` P IFT LOGING=1 E j P* E PLOGG STR A1,A15 E P LD A1,POINT E P ADK A1,2 E & P CWK A1,BUFE BUFE IS MAX LOGG AREA E P RF(NE) L1 E ( P LDK
0x2f4b60…2f4cf4 (2, 194) Dummy {f00=0x00e3, f01=0x40ca, f02=»L A15,2 E P LDR* P,A15 RETURN F P* F * P* F 4 PPOINT DATA BUF LOGG POINTER F > P* F b PBUF RES 63 LOGG AREA F l PBUFE EQU * F P* F P XIF F P* F P END F @ F
0x2f4cf4…2f4e88 Dummy {f00=0x00e3, f01=0x2008, f02=» G PPOINT DATA BUF LOGG POINTER 9 P* 9 2 PBUF RES 63 LOGG AREA 9 < PBUFE EQU * 9 X P* 9 j P XIF 9 t P* 9 P END 9 @ 9 A1,BUFE BUFE IS MAX LOGG AREA 8 P RF(NE) L1 8 ( P LDKL A1,BUF SET FIRST LOGG ADDRESS 8 PL1 ST A1,P
0x2f4e88…2f501c Dummy {f00=0x00e3, f01=0x0190, f02=»ER G n P ANK A4,/FF H P RB(E) ECDY20 FIRST POSITION H P IFT WHATDY=0 H B & P LDR* A1,A6 GET CHANNEL PARAMETER H X P ANK A1,/10 GRAFIC DISPLAY H P RF(E) ECDY60 N H P CF A5,BACCAN BACK H P RB ECDY20 H P XIF H * PECDY60 LDR A3,A4 SAV
0x2f501c…2f51b0 Dummy {f00=0x00e3, f01=0x0190, f02=»OUNTER H | P ADK A4,1 UPDATE POS COUNTER I P LDK A3,/20 I 2 P CF A5,FASTER FAST OUTPUT I F P LDK A2,0 I h * P SC A2,DWTBC,A6 RESET POSITION COUNTER I z P RB ECDY20 I P EJECT I P* I P* I 0 P* BACCAN = SUBROUTINE TO POSITION CURSOR
0x2f51b0…2f5344 Dummy {f00=0x00e3, f01=0x0190, f02=» I x P* J PBACCAN EQU * J P LDR A3,A4 J & ( P LC A2,DWTBC,A6 GET POSITION COUNTER J 8 P ANK A2,/FF J d . P AD A2,DWTAP,A6 ADD HEAD POSITION COUNTER J x P ANK A2,/FF J " P CC A2,DWTPOS,A6 LAST POSITION J P RF(NP) BACA10 NO J $ P LDK A2,SP
0x2f5344…2f54d8 Dummy {f00=0x00e3, f01=0x0190, f02=»E SPACE J x P CF A5,OUTPUT SEND K P LDK A2,BACKSP BACKSPACE K * PBACA20 CF A5,OUTPUT SEND K J P SUK A4,1 K j P RB(NE) BACA10 K | P NGR A3,A3 NEGATE REGISTER K , P ADS A3,DWTST,A6 UPDATE POSITION COUNTER K P RTN A5 K P EJECT K 4 P******
0x2f54d8…2f566c Dummy {f00=0x00e3, f01=0x0190, f02=»SON FOR USING * K r 4 P* 'FAST OUTPUT FACILITY' ON 6344 * L 4 P* AND 6386 * L R 4 P*********************************************** L PCHECK EQU * L P* L P* L P LD A1,4,A8 L P SUR A1,A3
0x2f566c…2f5800 Dummy {f00=0x00e3, f01=0x0190, f02=» L l P LDK A4,1 RESET COUNTER M $ PNEXT ADK A4,1 INCREMENT COUNTER M ( P SUK A1,1 END OF BUFFER? M P P RF(NP) OUT YES! M p P ADK A2,1 INCREMENT POINTER M $ P CCR A7,A2 CHAR EQU TO PREVIUS? M P RB(E) NEXT YES! M POUT EQU * M 6 P CWK A4,EQ
0x2f5800…2f5994 (2, 195) Opaque[0x194]
0x2f5994…2f5b28 # DirEnt {nam=»DRDU01«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x1c68, f03=0x0000}
0x2f5994…2f5b28 IdxSect {
0x2f5994…2f5b28 f00 = 0x00e3 // 0x2f5994 @0x0
0x2f5994…2f5b28 f01 = 0x0026 // 0x2f5996 @0x2
0x2f5994…2f5b28 gno = [ // 0x2f5998 @0x4
0x2f5994…2f5b28 [0x00]: C0x00e3.0x1.0
0x2f5994…2f5b28 [0x01]: C0x00e3.0x2.0
0x2f5994…2f5b28 [0x02]: C0x00e3.0x3.0
0x2f5994…2f5b28 [0x03]: C0x00e4.0x0.0
0x2f5994…2f5b28 [0x04]: C0x00e4.0x1.0
0x2f5994…2f5b28 [0x05]: C0x00e4.0x2.0
0x2f5994…2f5b28 [0x06]: C0x00e4.0x3.0
0x2f5994…2f5b28 [0x07]: C0x00e5.0x0.0
0x2f5994…2f5b28 [0x08]: C0x00e5.0x1.0
0x2f5994…2f5b28 [0x09]: C0x00e5.0x2.0
0x2f5994…2f5b28 [0x0a]: C0x00e5.0x3.0
0x2f5994…2f5b28 [0x0b]: C0x00e6.0x0.0
0x2f5994…2f5b28 [0x0c]: C0x00e6.0x1.0
0x2f5994…2f5b28 [0x0d]: C0x00e6.0x2.0
0x2f5994…2f5b28 [0x0e]: C0x00e6.0x3.0
0x2f5994…2f5b28 [0x0f]: C0x00e7.0x0.0
0x2f5994…2f5b28 [0x10]: C0x00e7.0x1.0
0x2f5994…2f5b28 [0x11]: C0x00e7.0x2.0
0x2f5994…2f5b28 [0x12]: C0x00e7.0x3.0
0x2f5994…2f5b28 ]
0x2f5994…2f5b28 }
0x2f5b28…2f5cbc Dummy {f00=0x00e3, f01=0x0190, f02=» 2 P IDENT DRDU01 REL 10.0 80-03-14 870105041000 P : P* B P* L 6 P************************************************** V P* $ P* PHILIPS TERMINAL SYSTEM PTS P* . P* DRDU01 = DRIVER FOR ONE/TWO DISC UNITS P* 0 P
0x2f5cbc…2f5e50 Dummy {f00=0x00e3, f01=0x0190, f02=»**************** n P* P* " 0 P* THIS DISC DRIVER HANDLES UP TO TWO DISC , 4 P* DRIVES X1215,X1216 CONNECTED TO CPU VIA IOP ` P* ON MULTIPLEX CHANNEL P* P* * P* THE FOLLOWING ORDERS ARE TREATED : P* P*
0x2f5e50…2f5fe4 Dummy {f00=0x00e3, f01=0x0190, f02=»L WRITE ~ P* /1F FORMAT VOLUME P* 0 P EJECT DRDU01 DRDU01 : P* Z P* d P*********** n P* ENTRIES * P*********** P* P* $ P ENTRY DUADR ACTIVATION ADDRESS P ENTRY DUON RECOVERY ROUTINE 2
0x2f5fe4…2f6178 Dummy {f00=0x00e3, f01=0x0190, f02=»DLER DISC UNIT NO. 2 v . P ENTRY DWDU01 DWT ADDRESS DISC UNIT NO. 1 P EJECT DRDU01 N P* f P* p P************* z P* EXTERNALS * P************* P* P* P EXTRN TDISP DISPATCHER P EXTRN TENDIO END I/O
0x2f6178…2f630c Dummy {f00=0x00e3, f01=0x0190, f02=» DWT SET NVL p 6 P EXTRN VOLNAM VOLUME NAME FROM DWT TO USER BUFFER , P EXTRN VOLCLR CLEAR VOLUME NAMES IN DWT N . P EXTRN INXDWT DOUBLED INDEX + DWT ADDRESS ~ P EXTRN DISIOE REQUEST ERROR & P EXTRN INIFLG INITIALIZATION FLAG * P EXTRN PFP
0x2f630c…2f64a0 Dummy {f00=0x00e3, f01=0x0190, f02=»RN DWTST STATUS EXTRN DWTECB ECB ADDRESS $ EXTRN DWTOR DWT INDEX AND ORDER : EXTRN DWTA2 SAVE AREA A2 b EXTRN DWTA4 SAVE AREA A4 EXTRN DWTA5 SAVE AREA A5 & ! EXTRN DWTSB1 STACK BASE 1 IN DWT & ! EXTRN DWTSB2 STACK BA
0x2f64a0…2f6634 (2, 196) Dummy {f00=0x00e3, f01=0x0190, f02=»CATORS l P EXTRN DWTVOL VOLUME NAMES P EXTRN DWTTAB TTAB ADDRESS 0 $ P EXTRN ECBBA ECB BUFFER ADDRESS R & P EXTRN ECBRL ECB REQUESTED LENGTH z & P EXTRN ECBEL ECB EFFECTIVE LENGTH P EXTRN ECBRC ECB RETURN CODE ( P EXTRN ECBCW1 ECB 1:ST
0x2f6634…2f67c8 Dummy {f00=0x00e3, f01=0x018e, f02=» v P* * P* CONDITIONAL ASSEMBLY * * P* * L P************************** n P* P* 6 P* READ AFTER WRITE MAY BE EXCLUDED FOR ORDER /15 P* BY SETTING X:A = 0 P* PX:
0x2f67c8…2f695c Dummy {f00=0x00e3, f01=0x0190, f02=» PX:B EQU 1 PNUNITS EQU 1 P* * P* 4 . P* A PROGRAM VERSION USING TOSS MMU PAGING > * P* IS OBTAINED BY SETTING MMUPAG EQU 1. p P* PMMUPAG EQU 1 P* P* 6 P* A PROGRAM VERSION USING THE EXTENDED INSTRUCTION .
0x2f695c…2f6af0 Dummy {f00=0x00e3, f01=0x018e, f02=»A PROGRAM VERSION USING THE INSTRUCTION SET OF 2 P* CPU 857 IS OBTAINED BY SETTING CPU857 EQU 1 6 P* l PX:E EQU 0 v PCPU857 EQU 01 P* P* P* PROGRAM VERSION FOR FORMAT , P* A2 IS OBTAINED BY SETTING VERSA2 EQU 1 , P*
0x2f6af0…2f6c84 Dummy {f00=0x00e3, f01=0x0190, f02=» P* P EJECT DRDU01 DRDU01 P* 2 P* < P************* F P* CONSTANTS * P************* r P* P* 0 PDAF1 EQU /28 DEVICE ADDRESS FIXED DISC NO. 1 4 PDAC1 EQU /08 DEVICE ADDRESS CARTRIDGE DISC NO. 1 0 P
0x2f6c84…2f6e18 Dummy {f00=0x00e3, f01=0x0190, f02=»RESS t & PCUADR EQU /08 CONTROL UNIT ADDRESS P* 6 : PMAXSEC EQU 6528 MAX NO OF SECTORS ON UNPACKED PTS 6875 @ , PSECLEN EQU 256 SECTOR LENGTH, CHARACTERS ~ * PPHSECL EQU 384 PHYSICAL SECTOR LENGTH PQRETRY EQU 4 NO OF RETRIES PTIME EQU 1
0x2f6e18…2f6fac Dummy {f00=0x00e3, f01=0x0190, f02=»NO MMU BUFFER ~ " P DATA DEVIND DISC DEVICE INDEX & PDUADR DATA DUAD ACTIVATION ADDRESS < " P DATA 0 ABORT ROUTINE ADDRESS f P* P IFT VERSA3=1 PBUFFER RES 193 P XIF P* P IFT VERSA3=0 PBUFFER RES 25 P*
0x2f6fac…2f7140 Dummy {f00=0x00e3, f01=0x0190, f02=» P* * P* ACTIVATION * P* * 8 P***************** R P* l P* v PDUAD EQU * " P CM DWTRTY,A6 RETRY INDICATOR 0 P CM DWTFBU,A6 RESET DRIVER BUFFER INDICATOR P LDK A1,0 P LC A1,DWT
0x2f7140…2f72d4 (2, 197) Dummy {f00=0x00e3, f01=0x0190, f02=»UERR FAULT IN INDEX P* PDUA:00 EQU * & P* : P LDK A5,DWTSB3 D P ADR A5,A6 LOAD STACK BASE Z P IFT MMUPAG=1 | ( P MLR 2,A8 GET 18 BIT BUFFER ADDRESS P SLC A1,4 MOST SIGN. BITS P ANK A1,3 P SRL A2,1 WORD ADDDRES
0x2f72d4…2f7468 Dummy {f00=0x00e3, f01=0x0190, f02=»EX AND ORDER P ADK A7,0 SET CR ( P RF(NZ) DUA:05 NOT TEST STATUS ORDER , P* X P EJECT DRDU01 b P* x P* P********************* P* * P* TEST STATUS * P* * P****
0x2f7468…2f75fc Dummy {f00=0x00e3, f01=0x0190, f02=»SECOND UNIT l P LDK A2,1 * P ST A2,DWTSAV,A6 INDICATE TEST STATUS & " P CF A5,VO:NAM READ VOLUME NAME T P ADK A1,0 z P RF(NZ) TESEND NOT OPERABLE , P LD A2,DWTORD,A6 RESTORE INDEX AND ORDER P ST A2,DWTOR,A6 P LD A8,DWTECB,A6
0x2f75fc…2f7790 Dummy {f00=0x00e3, f01=0x0190, f02=»DKL A2,-1 . P ST A2,DWTSAV,A6 INDICATE TEST STATUS DONE P ABL END:IO PERFORM ENDIO D P* f P EJECT DRDU01 p P* , P*************************************** , P* * , P* NEW VOLUME LOADED
0x2f7790…2f7924 Dummy {f00=0x00e3, f01=0x018e, f02=»************************* P* " . P* INPUT: A1=NVL RETURN CODE FROM NVLCHK , P* A7=ORDER CODE ^ P* ~ P* PDUA:05 EQU * ( P ADK A1,0 CHECK IF NEW VOLUME LOADED " P ABL(NZ) END:IO PERFORM TENDIO P SUK A7,1
0x2f7924…2f7ab8 Dummy {f00=0x00e3, f01=0x018e, f02=» r P SUK A7,4 P RF(Z) DUA:10 PHYSICAL WRITE P SUK A7,10 > P RF(Z) FORMAT FORMAT VOLUME P P* t " PDUERR ABL DISIOE REQUEST ERROR ~ P* ( PINCLEN EQU * REQUESTED LENGTH ERROR P LDKL A1,/8008 P ABL END:20 P EJE
0x2f7ab8…2f7c4c Dummy {f00=0x00e3, f01=0x0190, f02=» r P* * P************************** * P* L P* V PFORMAT EQU * ` 0 P LDK A7,204 NUMBER OF CYLINDERS ON PTS 6875 t " P LD A1,ECBCW1,A8 GET DISC TYPE P IFT VERSA2+VERSA3=2 P ECR A2,A1 P XIF P
0x2f7c4c…2f7de0 Dummy {f00=0x00e3, f01=0x018e, f02=» LDKL A3,BUFFER " P LDKL A1,/C001 WRITE ONE WORD P ANK A2,3 > P SUK A2,3 P P RF(NZ) FORM05 A1 OR A2 b " P LDKL A1,/C0C1 WRITE 386 BYTES P ADKL A3,PHSECL PFORM05 EQU * " P ST A1,DWTFBU,A6 SAVE 1ST WER P XIF P*
0x2f7de0…2f7f74 (2, 198) Dummy {f00=0x00e4, f01=0x0190, f02=» . P LDKL A3,BUFFER+PHSECL POSITION FOR CYL ID P XIF : P* F $ P STR A3,A6 DRIVER BUFFER POINTER P P IFT NUNITS=2 x P CF A5,INXUNI P CM DWTCYL,A2 CYLINDER ZERO P XIF P IFT NUNITS=1 P CM DWTCYL,A6 CYLINDER ZERO
0x2f7f74…2f8108 Dummy {f00=0x00e4, f01=0x0190, f02=» NUNITS=2 P CF A5,INXUNI GET UNIT INDEX P XIF 6 P CF A5,SEEK SEEK CYLINDER B P SLL A1,5 STATUS d P RF(NN) FORM40 SEEK ERROR | P IFT NUNITS=2 P CF A5,INXUNI P LD A1,DWTCYL,A2 P XIF P IFT NUNITS=1 P LD
0x2f8108…2f829c Dummy {f00=0x00e4, f01=0x0190, f02=»EVEN CYLINDERS r ( P* WRITE SECTOR 8 ON ODD CYLINDERS P ORK A3,1 ORDER CODE: WRITE B P* f P IFT VERSA2+VERSA3=2 p P LD A1,DWTFBU,A6 GET 1ST WER P XIF P* P IFT VERSA2=1 P IFT VERSA3=0 P LDKL A1,/C002 P
0x2f829c…2f8430 Dummy {f00=0x00e4, f01=0x0190, f02=»DKL A2,BUFFER P CF A5,CIO:50 CIO:50 SECTOR P ANK A1,/1F : P RF(NZ) FORM40 WRITE ERROR N P IFT NUNITS=2 p P CF A5,INXUNI P IM DWTCYL,A2 P XIF P IFT NUNITS=1 P IM DWTCYL,A6 P XIF ( P SUK A7,1 DECREMEN
0x2f8430…2f85c4 Dummy {f00=0x00e4, f01=0x0190, f02=»WT l PFORM40 EQU * P CF A5,SEEKZ SEEK CYLINDER 0 P SLL A1,6 B P RF(N) FORM50 SEEK ERROR T P SUK A4,1 RETRY COUNTER t P RB(NZ) FORM30 RETRY PFORM50 EQU * $ P LDK A1,2 SEEK ERROR RETURN CODE P ABL END:IO PERFORM END IO
0x2f85c4…2f8758 Dummy {f00=0x00e4, f01=0x0190, f02=» * | 6 P* CHECK IF ALLOWED SECTOR LENGTH, BUFFER SIZE * & 6 P* AND SECTOR NUMBER * ` 6 P* SAVE BUFFER ADDRESS AND SET SECTOR COUNTER * 6 P* *
0x2f8758…2f88ec Dummy {f00=0x00e4, f01=0x0190, f02=» DWTUBU=USER BUFFER POINTER P* , P* 6 PDUA:10 EQU * @ $ P LD A3,ECBRL,A8 REQUESTED LENGTH T P RB(Z) INCLEN | 6 P ECR A7,A3 DIVIDE BY 256 TO GET NUMBER OF SECTORS & P ANK A3,/FF SET CONDITION REGISTER 4 P RB(NZ) INCLEN NOT
0x2f88ec…2f8a80 Dummy {f00=0x00e4, f01=0x0190, f02=» l P CW A3,DWTSMX,A2 * P RB(NL) DUERR INCORRECT SECTOR NUMBER P ADR A3,A7 N P CW A3,DWTSMX,A2 ` ( P RB(G) INCLEN SECTOR NUMBER OVERFLOW x P* P IFT MMUPAG=0 P LD A1,ECBBA,A8 ( P ST A1,DWTUBU,A6 USER BUFFER POINTER P
0x2f8a80…2f8c14 (2, 199) Dummy {f00=0x00e4, f01=0x0190, f02=» " P* * " P* DISC VERSION SEPARATION * * " P* * P " P***************************** v P* P* P LD A2,DWTFOR,A2 P SUK A2,2 P RF(Z) RW:800 VERSION A2 P XIF P*
0x2f8c14…2f8da8 Dummy {f00=0x00e4, f01=0x0190, f02=» * ~ * P* * * P* GET PHYSICAL SECTOR NUMBER BY * J * P* DIVIDE BY 3 * x * P* * * P************************************* P*
0x2f8da8…2f8f3c Dummy {f00=0x00e4, f01=0x0190, f02=»EMAINER=LOGICAL SECTOR POSITION 2 P* A2=QUOTIENT=PHYSICAL SECTOR NUMBER ON DISC ( P XIF ^ P* j P IFT VERSA3=1 t P IFT CPU852=1 P LD A1,ECBCW2,A8 P LDR A3,A1 SECTOR NUMBER P LDK A2,0 PDVK:00 EQU * P ADR A2,A3
0x2f8f3c…2f90d0 Dummy {f00=0x00e4, f01=0x0190, f02=»A2 REST AFTER LOOP P SUK A2,1 ! PDVK:10 EQU * ! , P ADK A2,1 ! @ P SUK A1,3 DIVIDE BY 3 ! R P RB(NN) DVK:10 ! p P ADK A1,3 REST ! , P* A1=REMAINER=LOGICAL SECTOR POSITION ! 2 P* A2=QUOTIENT=PHYSICAL SECTOR NUMBER ON DISC ! P* !
0x2f90d0…2f9264 Dummy {f00=0x00e4, f01=0x0190, f02=» * ! * P* SAVE PHYSICAL SECTOR NUMBER * " $ * P* AND SECTOR POSITION * " R * P* BRANCH ACCORDING TO SECTOR * " * P* POSITION * " * P* * " *
0x2f9264…2f93f8 Dummy {f00=0x00e4, f01=0x0190, f02=»UMBER / 3 " r P* # P* # P ADR A2,A2 # & * P STR A2,A6 SAVE PHYSICAL SECTOR NUMBER # 8 P SUK A1,1 # f P IFT RAW=1 # x * P ST A1,DWTSEP,A6 SAVE SECTOR POSITION # 2 P ST A2,DWTSEI,A6 SAVE 1ST PHYS. SECTOR NUMBER # P XIF # P* # P IFT
0x2f93f8…2f958c Dummy {f00=0x00e4, f01=0x0190, f02=» , XXXX, # * $ EJECT DRDU01 $ * $ 6 * P************************************* $ @ * P* * $ n * P* READ/WRITE FROM SECTOR IN * $ * P* POSITION , , xxxx, * $ * P*
0x2f958c…2f9720 Dummy {f00=0x00e4, f01=0x0190, f02=»AW=1 $ , P IM DWTSEI,A6 SAVE FOR READ AFTER WRITE % P XIF % < P* % H P IFT VERSA3=1 % R P CF A5,IOROUT % h P DATA /0084 % ~ P SUK A7,1 % P RF RW:300 % P* % P EJECT DRDU01 % P* % * P************************************* %
0x2f9720…2f98b4 (2, 200) Dummy {f00=0x00e4, f01=0x0190, f02=» % j * P* * & * P************************************* & 6 P* & d P* & n PRW:200 EQU * & x P CF A5,IOROUT & P DATA /0048 & P SUK A7,2 NUMBER OF SECTORS & P RF(N) RW:230 1 SECTOR IN IO & $ P RF(NZ) RW
0x2f98b4…2f9a48 Dummy {f00=0x00e4, f01=0x0190, f02=»XX,XX , & ~ P CF A5,IOROUT ' P DATA /0040 ' ( P RF RW:600 ' < PRW:260 EQU * , XX,XXXXXX, ' N P CF A5,IOROUT ' r P DATA /80C0 ' P* ' P EJECT DRDU01 ' P* ' ( P************************************ ' ( P*
0x2f9a48…2f9bdc Dummy {f00=0x00e4, f01=0x0190, f02=» * ' v ( P************************************ ( P* ( > P* ( H PRW:300 EQU * ( R P SUK A7,3 SECTOR COUNTER ( f 0 P RF(NG) RW:500 LESS THAN FOUR SECTORS IN IO ( P CF A5,IOROUT ( P DATA /80C0 ( P CF A5,IOROUT ( P DATA /80C0 (
0x2f9bdc…2f9d70 Dummy {f00=0x00e4, f01=0x018e, f02=» * ( v ( P* READ/WRITE ON THE LAST SECTORS * ) ( P* IN IO * ) > ( P* * ) j ( P************************************ ) P* ) P* ) PRW:500 EQU * ) P RF(Z) RW:580 3 SECTORS )
0x2f9d70…2f9f04 Dummy {f00=0x00e4, f01=0x0190, f02=» ) P DATA /0080 * P RF RW:600 * PRW:560 EQU * ,XXXXXX,XX , * . P CF A5,IOROUT * R P DATA /80C0 * h P CF A5,IOROUT * | P DATA /0040 * P RF RW:600 * PRW:580 EQU * ,XXXXXX,XXXXXX, * P CF A5,IOROUT * P DATA /80C0 * P C
0x2f9f04…2fa098 Dummy {f00=0x00e4, f01=0x0190, f02=» P************************ + P* * + $ P* READ AFTER WRITE * + D P* * + d P************************ + P* + 0 P* DWTSEI=1:ST PHYSICAL SECTOR NUMBER IN IO + 8 P* 1ST POS IN DWT=LAST PHYSICAL SECTO
0x2fa098…2fa22c Dummy {f00=0x00e4, f01=0x0190, f02=» RF(NZ) RW:700 NOT PHYSICAL WRITE + P LDKL A2,-/100 , * , P LD A1,DWTSEP,A6 GET 1ST SECTOR POSITION , @ P RF(Z) RW:645 , XX, , p P RF(P) RW:640 , XXXX, , P ADK A2,/80 , PRW:640 EQU * , P ADK A2,/80 , PRW:645 EQU * , , P ST A2,ECBEL
0x2fa22c…2fa3c0 Dummy {f00=0x00e4, f01=0x0190, f02=»UMBER OF PHYSICAL SECTORS , P STR A1,A6 - " P* - 4 P EJECT DRDU01 - > P* - T P* - ^ PRW:650 EQU * - h P CF A5,IOROUT - | P DATA /40C0 - P IMR A6 NEXT PHYSICAL SECTOR - P LDKL A1,PHSECL - " P ADS A1,ECBEL,A8 UPDATE ECBEL - P
0x2fa3c0…2fa554 (2, 201) Dummy {f00=0x00e4, f01=0x0190, f02=»FT VERSA3=1 - PRW:700 EQU * . P LDK A1,0 RETURN CODE . ( P ABL END:20 ENDIO . F P* . ` P XIF . j P* . v P EJECT DRDU01 . P* . P IFT VERSA2=1 . P* . P* . & P********************************* . & P*
0x2fa554…2fa6e8 Dummy {f00=0x00e4, f01=0x0190, f02=»*** . r P* / P* / PRW:800 EQU * / P CF A5,DIV31 / 4 P IFT RAW=1 / H @ P ST A7,DWTSEI,A6 SAVE NUMBER OF SECTORS FOR READ AFTER WRITE / Z P XIF / P* / P IFT VERSA2=1 / PRW:850 EQU * / P CF A5,IOROUT / " P DATA /A080 INDICATE
0x2fa6e8…2fa87c Dummy {f00=0x00e4, f01=0x018e, f02=»S IN IO / v P* 0 P EJECT DRDU01 0 P* 0 0 P* 0 : P IFT RAW=1 0 D P LD A7,DWTOR,A6 GET ORDER 0 V P ANK A7,/FF 0 x P SUK A7,/15 0 P* 0 P IFT VERSA3=1 0 & P RB(NZ) RW:700 NOT PHYSICAL WRITE 0 P XIF 0 P* 0 P IFT VER
0x2fa87c…2faa10 Dummy {f00=0x00e4, f01=0x018e, f02=» . P CM ECBEL,A8 PREPARE FOR READ AFTER WRITE 1 P LD A7,DWTSEI,A6 1 6 P CF A5,DIV31 1 N P* 1 b P EJECT DRDU01 1 l P* 1 P* 1 PRW:900 EQU * 1 P CF A5,IOROUT 1 P DATA /E080 READ AFTER WRITE 1 P SUK A7,1 1 P RB(NZ) RW:900 1
0x2faa10…2faba4 Dummy {f00=0x00e4, f01=0x0190, f02=» PRW:905 EQU * 2 P LDK A1,0 RESET RETURN CODE 2 P ABL END:20 2 < P XIF 2 P P* 2 P EJECT DRDU01 2 f P* 2 | 4 P*********************************************** 2 4 P* * 2 4 P* IOROUT PERFORM
0x2faba4…2fad38 Dummy {f00=0x00e4, f01=0x0190, f02=» * 2 f 4 P*********************************************** 3 P* 3 F & P* INPUT : ONE DATA WORD AFTER CF 3 P * P* BIT 0 :INDICATES DIRECT IO 3 z 0 P* BIT 1 :INDICATES READ AFTER WRITE 3 * P* BIT 2 :INDICATES FORMAT A2 3 *
0x2fad38…2faecc Dummy {f00=0x00e4, f01=0x018e, f02=»L BE CHECKED BY A READ 3 n @ P* DWTBSE CONTAINS THE PRESENT SECTOR IN THE DRIVER BUFFER 4 & P* DWTRTY INDICATES RETRIES DONE 4 b H P* DWTSWD SAVED WORD FROM USER BUFFER WHEN IO NOT VIA DRIVER BUFFER 4 P* 4 PIOROUT EQU * 4 * P LDR* A3,A6 GET PH
0x2faecc…2fb060 Dummy {f00=0x00e4, f01=0x0190, f02=» P SLL A4,2 5 P RF(NN) SEE:05 FORMAT A3 5 P ADK A3,0 5 6 P XIF 5 H P* 5 T P EJECT DRDU01 5 ^ P* 5 t P* 5 ~ P IFT VERSA2=1 5 " P RF(NZ) SEE:05 NOT CYLINDER 0 5 P CF A5,SEEKZ 5 P SLL A1,6 5 P RF(N) SEE:20 ERROR 5 P I
0x2fb060…2fb1f4 (2, 202) Dummy {f00=0x00e5, f01=0x0190, f02=»UNITS=1 5 P CM DWTCYL,A6 6 P RF VA2BR 6 & P XIF 6 8 P* 6 D P EJECT DRDU01 6 N P* 6 d P* 6 n PSEE:05 EQU * 6 x P IFT NUNITS=2 6 P CF A5,INXUNI 6 * P CW A3,DWTCYL,A2 COMPARE WITH PRESENT 6 P XIF 6 P IFT NUNITS=1 6 P
0x2fb1f4…2fb388 Dummy {f00=0x00e5, f01=0x0190, f02=»FT VERSA2=0 6 P IFT VERSA3=1 7 " P RF(E) SEE:90 HEAD IN POSITION 7 * P XIF 7 P P* 7 P IFT VERSA2+VERSA3=2 7 f $ P RF(NE) SEE:07 NOT SAME CYLINDER 7 P ADK A4,0 7 P RF(N) VA2BR FORMAT A2 7 P RF SEE:90 7 P* 7 P EJECT DRDU01 7
0x2fb388…2fb51c Dummy {f00=0x00e5, f01=0x0190, f02=» 7 P* 8 P IFT NUNITS=2 8 " P ST A3,DWTCYL,A2 NEW CYLINDER 8 ( P XIF 8 N $ P LDK A4,QRETRY NUMBER OF RETRIES 8 Z PSEE:10 EQU * 8 P IFT NUNITS=2 8 $ P CF A5,INXUNI DOUBLED UNIT INDEX 8 P XIF 8 P CF A5,SEEK 8 P SLC A1,5 RETURN COD
0x2fb51c…2fb6b0 Dummy {f00=0x00e5, f01=0x0190, f02=» P SLC A1,6 RETURN CODE 9 P RF(N) SEE:20 ERROR 9 " P IM DWTRTY,A6 INDICATE RETRY 9 > P SUK A4,1 RETRY COUNTER 9 b P RB(NZ) SEE:10 TRY AGAIN 9 PSEE:20 EQU * 9 P LDKL A3,/FFFF 9 P IFT NUNITS=2 9 P CF A5,INXUNI 9 * P ST A3,DWTCYL,A2
0x2fb6b0…2fb844 Dummy {f00=0x00e5, f01=0x018e, f02=»TURN CODE 9 P RF SEE:35 END IO : P* : , P EJECT DRDU01 : 6 P* : L P* : V PSEE:30 EQU * : ` P IFT NUNITS=2 : t P CF A5,INXUNI : P XIF : P IFT VERSA2+VERSA3=2 : P LD* A1,4,A5 GET DATA WORD : P SLL A1,2 : P RF(NN) SEE:
0x2fb844…2fb9d8 Dummy {f00=0x00e5, f01=0x0190, f02=» P LDK A3,0 ; P CF A5,SKEW ; P LDKL A1,/8002 READ 2 WORDS ; * * P LDKL A2,BUFFER READ TO DRIVER BUFFER ; N P CF A5,CIO:50 ; | P ANK A1,/1F ERROR CHECK ; P RF(NZ) SEE:32 ; P LD A3,BUFFER GET CYL ID ; P IFT NUNITS=2 ; P CF A5,INX
0x2fb9d8…2fbb6c Dummy {f00=0x00e5, f01=0x0190, f02=»CK IF SAME CYLINDER ; | P XIF < P IFT VERSA2=1 < ( " P RB(NE) SEE:15 NOT SAME CYL ID < > PVA2BR EQU * < d P ABL VA2:00 < x P XIF < P* < P IFT VERSA3=1 < P EJECT DRDU01 < P* < P* < P* FORMAT A3 < P* < PSEE:31
0x2fbb6c…2fbd00 Dummy {f00=0x00e5, f01=0x0190, f02=» P XIF = P* = P IFT VERSA3=1 = P SLL A3,5 GET SECTOR NUMBER = 0 $ P ST A3,DWTBSE,A6 SAVE FOR BSELOD = T P LDK A3,0 = | . P CF A5,SKEW TO READ SECTOR 0 OR 8 ON DISC = 0 P IM DWTFBU,A6 INDICATE READ TO DRIVER BUFFER = P CF A5,READ = 2 P
0x2fbd00…2fbe94 (2, 203) Dummy {f00=0x00e5, f01=0x0190, f02=» XIF = P* > PSEE:32 EQU * > P IM DWTRTY,A6 INDICATE RETRY > * P SUK A4,1 RETRY COUNTER > N P RB(NZ) SEE:15 RETRY > n PSEE:35 EQU * > P ABL END:10 > P* > P IFT VERSA3=1 > P* > P EJECT DRDU01 > P* > P* > PSE
0x2fbe94…2fc028 Dummy {f00=0x00e5, f01=0x0190, f02=» P IFT NUNITS=1 ? ( P LD A3,DWTCYL,A6 GET CYLINDER NUMBER ? P XIF ? F P IFT VERSA3=1 ? R , P CW A3,BUFFER+PHSECL COMPARE WITH CYL ID ? h P RB(NE) SEE:15 RETRY ? P* ? P EJECT DRDU01 ? P* ? P************************* ? P*
0x2fc028…2fc1bc Dummy {f00=0x00e5, f01=0x0190, f02=»***************** ? P* @ PSEE:90 EQU * @ $ P LD A4,DWTOR,A6 GET ORDER @ 8 P ANK A4,4 @ Z P RF(Z) READ00 READ ORDER @ l P LD* A2,4,A5 @ 0 P RF(N) WRIT20 WRITE DIRECT FROM USER BUFFER @ P SLL A2,1 @ P IFT RAW=1 @ " P RF(N) READWR RE
0x2fc1bc…2fc350 Dummy {f00=0x00e5, f01=0x0190, f02=» IM DWTFBU,A6 INDICATE READ TO DRIVER BUFFER @ $ P CF A5,REA:00 READ BEFORE WRITE A 4 P* A P EJECT DRDU01 A f P* A | P* A PWRIT10 EQU * A P LD* A2,4,A5 GET DATA WORD A P LDR A4,A2 A , P ANK A4,/C0 GET NUMBER OF WORDS TO MOVE A P
0x2fc350…2fc4e4 Dummy {f00=0x00e5, f01=0x0190, f02=» NUNITS=2 A P CF A5,INXUNI B ( P LD A2,DWTCYL,A2 GET CYLINDER NUMBER B ( P XIF B T P IFT VERSA3=1 B ` P IFT NUNITS=1 B v ( P LD A2,DWTCYL,A6 GET CYLINDER NUMBER B P XIF B P IFT VERSA3=1 B . P ST A2,BUFFER+PHSECL PUT IN DRIVER BUFFER B
0x2fc4e4…2fc678 Dummy {f00=0x00e5, f01=0x0190, f02=»JECT DRDU01 B P* C P* C PWRIT20 EQU * C ( P IFT MMUPAG=0 C < * P LDKL A2,PHSECL PHYSICAL SECTOR LENGTH C R 0 P ADS A2,DWTUBU,A6 UPDATE USER BUFFER POINTER C . P LD* A4,DWTUBU,A6 GET WORD IN USER BUFFER C P ST A4,DWTSWD,A6 SAVE WORD C & P
0x2fc678…2fc80c Dummy {f00=0x00e5, f01=0x0190, f02=»2,DWTUBU,A6 PUT IN USER BUFFER C P XIF D & P IFT VERSA3=1 D 2 P IFT MMUPAG=0 D H P IFT NUNITS=1 D ^ P LD A2,DWTCYL,A6 D t ( P ST* A2,DWTUBU,A6 PUT IN USER BUFFER D P XIF D P* D P IFT VERSA3=1 D P IFT MMUPAG=1 D P IFT NUNITS=2
0x2fc80c…2fc9a0 Dummy {f00=0x00e5, f01=0x0190, f02=»UNITS=1 D ( P LD A4,DWTCYL,A6 GET CYLINDER NUMBER E P XIF E < P IFT VERSA3=1 E H P IFT MMUPAG=1 E ^ 0 P ML 2,DWTBA1,A6 GET PHYSICAL BUFFER ADDRESS E t P RF(Z) WRIT30 SYSTEM AREA E ( P TS -30,A15 SAVE REGISTERS ON STACK E ( P TL DWTPAG,A6 LOAD
0x2fc9a0…2fcb34 (2, 204) Dummy {f00=0x00e5, f01=0x0190, f02=» PUT CYL ID IN POSITION E P TL -30,A15 GET REGISTERS F P RF WRIT40 F B PWRIT30 EQU * F T P SLL A2,1 BYTE ADDRESS F h * P LD A3,PHSECL,A2 GET WORD TO BE SAVED F ( P ST A4,PHSECL,A2 CYL ID IN POSITION F PWRIT40 EQU * F P ST A3,DWTSWD,A6 SAV
0x2fcb34…2fccc8 Dummy {f00=0x00e5, f01=0x0190, f02=»ER BUFFER F l 0 P CF A5,WRI:00 WRITE SECTOR FROM USER BUFFER G . P CF A5,REWORD RESTORE WORD TO USER BUFFER G F P RF SEE:95 G x P* G P EJECT DRDU01 G P* G P* G P IFT RAW=1 G PREADWR EQU * G " P CF A5,REA:10 READ AFTER WRITE G
0x2fccc8…2fce5c Dummy {f00=0x00e5, f01=0x0190, f02=»CT READ G ~ 0 P IM DWTFBU,A6 INDICATE READ TO DRIVER BUFFER H ( P CF A5,REA:00 READ TO DRIVER BUFFER H D P LD* A1,4,A5 GET DATA WORD H p P SLL A1,1 H P LDR A4,A1 H 2 P ANKL A4,/180 GET NUMBER OF BYTES TO BE MOVED H P ANK A1,/18 GET POSITION H
0x2fce5c…2fcff0 Dummy {f00=0x00e5, f01=0x0190, f02=»DWTUBU,A6 UPDATE USER BUFFER POINTER H P XIF I , P* I 8 P IFT VERSA3=1 I B . P CM DWTFBU,A6 INDICATE READ TO USER BUFFER I X & P CF A5,REA:00 READ TO USER BUFFER I PSEE:95 EQU * I * P IMR A6 UPDATE PHYSICAL SECTOR POINTER I P XIF I P* I
0x2fcff0…2fd184 Dummy {f00=0x00e5, f01=0x018e, f02=» I " P ADS A2,ECBEL,A8 UPDATE ECBEL J P* J . P IFT MMUPAG=1 J 8 P LDK A1,0 J N P SRL A2,1 WORD MODE J ` 0 P DA DWTBA1,A6 UPDATE PHYSICAL BUFFER ADDRESS J | & P CF A5,MMULOG GET LOGICAL ADDRESS J P XIF J P* J PSEE:97 EQU * J P LDK
0x2fd184…2fd318 Dummy {f00=0x00e5, f01=0x0190, f02=» P* K $ P******************************** K $ P* * K 6 $ P* DISC FORMAT A2 * K ^ $ P* * K $ P******************************** K P* K P* K PVA2:00 EQU * K P LDK A4,QR
0x2fd318…2fd4ac Dummy {f00=0x00e5, f01=0x0190, f02=»RLACE AND SKEW K ~ P* L P IFT MMUPAG=0 L P LDKL A1,/8080 1ST WER L 6 P IFT RAW=1 L T P LD* A2,4,A5 L f P SLL A2,1 L z ( P RF(NN) VA2:20 NOT READ AFTER WRITE L P LDKL A2,BUFFER L P RF VA2:35 L PVA2:20 EQU * L P XIF L P* L
0x2fd4ac…2fd640 Dummy {f00=0x00e5, f01=0x0190, f02=»AW=1 L P IFT MMUPAG=1 M P LD* A2,4,A5 M " P SLL A2,1 M 6 ( P RF(NN) VA2:20 NOT READ AFTER WRITE M H P LDKL A1,/8080 M t P LDKL A2,BUFFER M P RF VA2:35 M PVA2:20 EQU * M P XIF M P* M P IFT VERSA2=1 M P LD A2,DWTOR,A6 GET
0x2fd640…2fd7d4 (2, 205) Dummy {f00=0x00e5, f01=0x0190, f02=»FT VERSA2=1 M P IFT MMUPAG=1 N " P LDKL A1,/080C 1ST WER SHIFTED N * P XIF N P P* N P IFT VERSA2=1 N f " P ADK A3,1 ORDER CODE FOR WRITE N | P* N P EJECT DRDU01 N P* N P* N PVA2:30 EQU * N P* N P IFT MMUPAG=0 N
0x2fd7d4…2fd968 Dummy {f00=0x00e5, f01=0x0190, f02=» " P SRC A1,4 1ST WER IN POSITION O " P SLL A2,1 2ND WER IN POSITION O * P XIF O P P* O P IFT VERSA2=1 O f PVA2:35 EQU * O | P CF A5,CIO:50 O P ANK A1,/1F O P RF(Z) VA2:40 IO ERROR O P IM DWTRTY,A6 O P SUK A4,1 O P RB(NZ)
0x2fd968…2fdafc Dummy {f00=0x00e5, f01=0x018e, f02=»ICAL SECTOR NUMBER O | P ADK A3,1 NEXT SECTOR P P LDR A2,A3 P 8 P CWK A2,31 P J " P RF(NE) VA2:50 NOT CYLINDER 0 P & P ADK A3,2 CYLINDER 0 TO CYLINDER 1 P PVA2:50 EQU * P P ANK A2,/1F P P RF(NZ) VA2:60 SAME CYLINDER P P ADK A3,1 NEW CY
0x2fdafc…2fdc90 Dummy {f00=0x00e5, f01=0x0190, f02=» EJECT DRDU01 Q * Q P**************************** Q $ P* * Q H P* SUBROUTINES FOR WRITE * Q l P* FROM USER BUFFER: * Q P* FROM DRIVER : * Q P* * Q P************
0x2fdc90…2fde24 Dummy {f00=0x00e5, f01=0x0190, f02=»UNI Q P XIF R P IFT VERSA3=1 R * P CF A5,INLACE INTERLACE SECTOR NUMBER R . CF A5,WRITE CIO R ANK A1,/1F RETURN CODE ? R t P CF A5,BSELOD R P RF(Z) WRI:80 NO RETURN CODE R P IM DWTRTY,A6 INDICATE RETRY R & ! SUK A4,1 DECREMENT
0x2fde24…2fdfb8 Dummy {f00=0x00e5, f01=0x018e, f02=»BL END:10 ERROR END IO R P* S P IFT VERSA3=1 S ( P* S > PWRI:80 EQU * S H P RTN A5 S * S l P EJECT DRDU01 S v P* S & P********************************* S & P* * S & P* SUBROUTINES FOR READ TO
0x2fdfb8…2fe14c Dummy {f00=0x00e5, f01=0x018e, f02=» & P********************************* T P* T . PREA:00 EQU * T 8 P LD A3,DWTOR,A6 GET INDEX T L P ANKL A3,/300 T n P SLL A3,6 IN POSITION T " P ORR* A3,A6 ADD SECTOR NUMBER T $ P CW A3,DWTBSE,A6 ALLREADY READ ? T P RF(E) REA:85 T PRE
0x2fe14c…2fe2e0 Dummy {f00=0x00e5, f01=0x018e, f02=» * P CF A5,INLACE INTERLACE SECTOR NUMBER U P CF A5,READ READ SECTOR U 2 P ANK A1,/F U R 0 P CF A5,BSELOD UPDATE DRIVER BUFFER INDICATOR U d P RF(Z) REA:30 NO RETURN CODE U PREA:25 EQU * U P IM DWTRTY,A6 INDICATE RETRY U & P SUK A4,1 DECREMENT
0x2fe2e0…2fe474 (2, 206) Dummy {f00=0x00e6, f01=0x0190, f02=» U P LD A2,DWTFBU,A6 V ( P RF(NZ) REA:40 READ TO DRIVER BUFFER V P IFT MMUPAG=0 V L 6 P LD* A3,DWTUBU,A6 GET CYLINDER ID FROM USER BUFFER V b P RF REA:50 V P XIF V P* V P IFT VERSA3=1 V P IFT MMUPAG=1 V ( P ML 2,DWTBA1,A6 GET PHYS
0x2fe474…2fe608 Dummy {f00=0x00e6, f01=0x0190, f02=»A6 GET LOGICAL BUFFER POINTER V P EL A3,PHSECL,A3 GET CYL ID W & P TL -30,A15 RESET REGISTERS W J P RF REA:50 W n PREA:35 EQU * W " P SLL A2,1 ADDRESS TO BYTE MODE W P LD A3,PHSECL,A2 GET CYL ID W P RF REA:50 W P XIF W P* W P I
0x2fe608…2fe79c Dummy {f00=0x00e6, f01=0x0190, f02=» W P CW A3,DWTCYL,A2 X P XIF X P IFT VERSA3=1 X , P IFT NUNITS=1 X B P CW A3,DWTCYL,A6 X X P XIF X p P IFT VERSA3=1 X | $ P RF(E) REA:90 RIGHT CYLINDER ID X P LDK A1,2 SEEK ERROR X P* X P EJECT DRDU01 X P* X P* X
0x2fe79c…2fe930 Dummy {f00=0x00e6, f01=0x0190, f02=»VED X t P IFT MMUPAG=0 Y P NGR A2,A4 Y " @ P ADS A2,DWTUBU,A6 RESET USER BUFFER POINTER FOR DIRECT MOVE Y 4 P XIF Y x P IFT VERSA3=1 Y & P CF A5,MOVRED MOVE TO USER BUFFER Y PREA:90 EQU * Y P RTN A5 Y P* Y EJECT DRDU01 Y
0x2fe930…2feac4 Dummy {f00=0x00e6, f01=0x0190, f02=»NG WORDS * Y x & P* USER BUFFER TO DRIVER BUFFER: Z * P* MOVWRI * Z @ * P* DRIVER BUFFER TO USER BUFFER * Z n * P* MOVRED * Z * P* * Z * P****************
0x2feac4…2fec58 Dummy {f00=0x00e6, f01=0x0190, f02=» * A3 USED [ P* [ PMOVRED EQU * [ $ P ADKL A1,BUFFER [ 8 P IFT MMUPAG+CPU857=0 [ P 2 P LD A2,DWTUBU,A6 PRESENT POINT IN USER BUFFER [ l P XIF [ P* [ P IFT VERSA3=1 [ P IFT CPU852+MMUPAG=0 [ P IFT CPU857=1 [ , P LD A2,D
0x2fec58…2fedec Dummy {f00=0x00e6, f01=0x0190, f02=»ERSA3=1 [ P IFT CPU852=0 P IFT MMUPAG=1 & 0 P LD A2,DWTBA2,A6 GET PHYSICAL BUFFER ADDRESS < P SLL A2,1 BYTE MODE p P TS -30,A15 SAVE REGISTERS P TL DWTPAG,A6 ( P LD A2,DWTUBU,A6 GET LOGICAL ADDRESS P MVSU A4 P XIF
0x2fedec…2fef80 Dummy {f00=0x00e6, f01=0x0190, f02=»UFFER DRIVER BUFFER POINTER P IFT MMUPAG+CPU857=0 ] $ 2 P LD A1,DWTUBU,A6 PRESENT POINT IN USER BUFFER ] @ P XIF ] v P* ] P IFT VERSA3=1 ] P IFT CPU852+MMUPAG=0 ] P IFT CPU857=1 ] , P LD A1,DWTUBU,A6 GET USER BUFFER POINTER ] 0 P ADS
0x2fef80…2ff114 (2, 207) Dummy {f00=0x00e6, f01=0x0190, f02=»MUPAG=1 ] 0 P LD A1,DWTBA2,A6 GET PHYSICAL BUFFER ADDRESS ^ P SLL A1,1 BYTE MODE ^ D P TS -30,A15 SAVE REGISTERS ^ ` P TL DWTPAG,A6 ^ ( P LD A1,DWTUBU,A6 GET LOGICAL ADDRESS ^ P MVUS A4 ^ P XIF ^ P* ^ P IFT VERSA3=1 ^ MOV:00 E
0x2ff114…2ff2a8 Dummy {f00=0x00e6, f01=0x0190, f02=» IFT MMUPAG=1 ^ P TL -30,A15 RESET REGISTERS _ P XIF _ : P* _ F P IFT VERSA3=1 _ P P IFT MMUPAG+CPU857=0 _ f P IFT CPU852=1 _ P* _ P EJECT DRDU01 _ P* _ P* _ PMOV:10 EQU * _ LDR* A3,A1 _ STR A3,A2 _ A
0x2ff2a8…2ff43c Dummy {f00=0x00e6, f01=0x0190, f02=» P IFT MMUPAG+CPU857=0 ` ( P MSR 12,A15 SAVE REGISTERS ON STACK ` P LDR A11,A4 NUMBER OF BYTES ` L P LDR A10,A2 OUTPUT ADDRESS ` p P LDR A9,A1 INPUT ADDRESS ` $ P LDKL A12,16 BYTES IN EACH LOOP ` PMOV:15 EQU * ` P MLR 8,A9 ` P MSR 8,A
0x2ff43c…2ff5d0 Dummy {f00=0x00e6, f01=0x0190, f02=» P XIF a P* a P IFT VERSA3=1 a RTN A5 a 0 * a @ P XIF a J P* a V P IFT VERSA2=1 a ` P EJECT DRDU01 a v P* a P* a P*************************** a P* * a P* DIV31 * a
0x2ff5d0…2ff764 Dummy {f00=0x00e6, f01=0x018e, f02=» OUTPUT: 1ST DWT = PHYSICAL SECTOR NUMBER a P* b 2 PDIV31 EQU * b < P* b P P IFT CPU852=1 b Z . P LD A1,ECBCW2,A8 GET LOGICAL SECTOR NUMBER b p P LDR A3,A1 b P LDK A2,0 b PDIV:20 EQU * b P ADR A2,A3 I0:=I0+I1 b P SRL A3,5 I1:=I1/3
0x2ff764…2ff8f8 Dummy {f00=0x00e6, f01=0x0190, f02=» P ADK A3,31 c P RF(P) DIV:30 c P ADK A2,1 NEXT CYLINDER c , PDIV:30 EQU * c L P ADK A2,0 c ` P RF(Z) DIV:50 CYLINDER 0 c r P ADR A1,A2 c P ADK A1,1 c P* c P EJECT DRDU01 c P* c P* c PDIV:50 EQU * c 0 P STR A1,A6
0x2ff8f8…2ffa8c Dummy {f00=0x00e6, f01=0x0190, f02=»D A2,ECBCW2,A8 GET SECTOR NUMBER c & P STR A2,A6 PHYSICAL SECTOR NUMBER d ( P LDK A1,0 d R P DVK 31 d d P ADK A2,0 d t P RF(Z) DIV:10 CYLINDER 0 d P ADK A2,1 d PDIV:10 EQU * d & P ADRS A2,A6 PHYSICAL SECTOR NUMBER d P RTN A5 d P X
0x2ffa8c…2ffc20 Dummy {f00=0x00e6, f01=0x018e, f02=»* SUBROUTINES FOR * d & P* INTERLACING AND/OR * e * & P* SKEWING * e T & P* * e ~ & P********************************* e P* e B P* OUTPUT : A3 CONTAINING INTERLACED AND SKE
0x2ffc20…2ffdb4 (2, 208) Dummy {f00=0x00e6, f01=0x018e, f02=» $ P ADR A3,A1 INTERLACING FACTOR 3 f PSKEW EQU * f , P IFT NUNITS=2 f > ( P LD A2,DWTCYL,A2 GET CYLINDER NUMBER f T P XIF f P IFT NUNITS=1 f ( P LD A2,DWTCYL,A6 GET CYLINDER NUMBER f P XIF f P ANK A2,1 f P RF(Z) INLAC5 EVEN CYLINDER
0x2ffdb4…2fff48 Dummy {f00=0x00e6, f01=0x0190, f02=» f P IFT NUNITS=2 g P EJECT DRDU01 g P* g 4 P* g > P********** g H P* INXUNI * g Z P********** g l P* g ~ 4 P* OUTPUT A2=DOUBLED UNIT INDEX + DWT ADDRESS g P* g PINXUNI EQU * g P LC A2,DWTOR,A6 g P ANK A2,2 g P
0x2fff48…3000dc Dummy {f00=0x00e6, f01=0x0190, f02=»************************** g . P* * h " . P* MMULOG : GET LOGICAL ADDRESS AND * h T . P* PAGE * h . P* * h . P******************************
0x3000dc…300270 Dummy {f00=0x00e6, f01=0x018e, f02=» POSITION h P ST A1,DWTPAG,A6 PAGE i P ADKL A1,/400 NEXT PAGE i 0 ( P ST A1,DWTPAG+2,A6 PSEUDO MMU TABLE i P P SRL A2,3 i | $ P ST A2,DWTUBU,A6 LOGICAL ADDRESS i P RTN A5 i P* i P XIF i P* i P EJECT DRDU01 i P* i P
0x300270…300404 Dummy {f00=0x00e6, f01=0x0190, f02=» i $ P******************************* j P* j 0 * P* INPUT A1=RETURN CODE (AFTER READ) j : . P* OUTPUT DWTBSE=DRIVER BUFFER INDICATOR j h P* j PBSELOD EQU * j & P LDR* A3,A6 GET READ SECTOR NUMBER j " PBSEL00 EQU * FROM SEEK VERIFY j P
0x300404…300598 Dummy {f00=0x00e6, f01=0x0190, f02=»D ERROR j ~ P LD A2,DWTOR,A6 GET INDEX k P ANKL A2,/300 k 2 P SLL A2,6 k H P ORR A2,A3 k Z PBSEL40 EQU * k l 4 P ST A2,DWTBSE,A6 UPDATE DRIVER BUFFER INDICATOR k PBSEL50 EQU * k P RTN A5 k P* k P EJECT DRDU01 k P* k P*
0x300598…30072c Dummy {f00=0x00e6, f01=0x0190, f02=» * k p , P* IF NECESSARY * l , P* * l @ , P*************************************** l p P* l * P* INPUT: DWTFSW=SAVED WORD INDICATOR l P* DWTSWD=SAVED WORD l , P* D
0x30072c…3008c0 Dummy {f00=0x00e6, f01=0x0190, f02=»SWD,A6 l P IFT MMUPAG=1 m & P ML 2,DWTBA1,A6 GET BUFFER ADDRESS m $ P RF(Z) REWO20 SYSTEM AREA m N P TS -30,A15 SAVE REGISTERS m p $ P TL DWTPAG,A6 SET MMU REGISTERS m 0 P LD A2,DWTUBU,A6 GET LOGICAL BUFFER ADDRESS m ( P ES A3,PHSECL,A2 RESTORE S
0x3008c0…300a54 (2, 209) Dummy {f00=0x00e6, f01=0x0190, f02=» RESTORE WORD m P XIF n P* n " P IFT VERSA3=1 n , P IFT MMUPAG=0 n B ( P ST* A3,DWTUBU,A6 RESTORE SAVED WORD n X P XIF n P* n P IFT VERSA3=1 n ( P CM DWTFSW,A6 INDICATE NO SAVED WORD n PREWO50 EQU * n P RTN A5 n P* n
0x300a54…300be8 Dummy {f00=0x00e6, f01=0x018e, f02=»EEK CYLINDER * n P* * o P******************* o 4 P* o P P* o Z PSEEK EQU * o d P IFT NUNITS=2 o v $ P LD A3,DWTCYL,A2 CYLINDER NUMBER o P XIF o P IFT NUNITS=1 o P LD A3,DWTCYL,A6 o P XIF o P SLL A3,3 o
0x300be8…300d7c Dummy {f00=0x00e6, f01=0x0190, f02=» P* p P EJECT DRDU01 p P* p $ P* p . & P********************************** p 8 & P* * p b & P* CIO: READ AND WRITE * p & P* * p & P********************************** p
0x300d7c…300f10 Dummy {f00=0x00e6, f01=0x0190, f02=» LDKL A1,/80C1 1ST WER p P RF CIO:20 q PWRITE EQU * q 0 P LDKL A1,/C0C1 1ST WER q D P ADK A3,1 ORDER CODE q b PCIO:20 EQU * q ~ P LD A2,DWTFBU,A6 q , P RF(NZ) CIO:30 IO FROM/TO DRIVER BUFFER q ( P LD A2,DWTUBU,A6 USER BUFFER POINTER q P S
0x300f10…3010a4 Dummy {f00=0x00e6, f01=0x0190, f02=»SA3=1 q P IFT MMUPAG=1 r PREAD EQU * r $ " P LDKL A1,/0C18 1ST WER SHIFTED r 6 P RF CIO:20 r PWRITE EQU * r n " P LDKL A1,/0C1C 1ST WER SHIFTED r P ADK A3,1 ORDER CODE r PCIO:20 EQU * r P LD A2,DWTFBU,A6 r , P RF(NZ) CIO:30 IO FROM/T
0x3010a4…301238 Dummy {f00=0x00e6, f01=0x0190, f02=» r * P LDKL A2,BUFFER DRIVER BUFFER ADDRESS s PCIO:40 EQU * s 6 " P SRC A1,4 1ST WER IN POSITION s J P XIF s p P* s | PCIO:50 EQU * s P WER A1,WER1 s P WER A2,WER1+1 s P* s P EJECT DRDU01 DRDU01 s P* s P* s PCIO EQ
0x301238…3013cc Dummy {f00=0x00e6, f01=0x0190, f02=» DWT ADDRESS s v $ P EX DWTCIO,A4 EXECUTE CIO-START t & P ABL(3) END:30 CU ADDRESS UNKNOWN t < PCIOAB EQU * t f " P ST A5,DWTA5,A6 A5 t z ( P ST A7,DWTA2,A6 SAVE SECTOR COUNTER t P* t & PT:DISP ABL TDISP GO TO DISPATCHER t P* t
0x3013cc…301560 Dummy {f00=0x00e6, f01=0x0190, f02=» t z P* * u P********************** u & P* u D P* u N PDUON EQU * u X P* u j P IFT CPU852=1 u t & P CF A15,SAVE8 SAVE A1-A8 ON STACK u P XIF u P* u P IFT CPU852=0 u " P MSR 8,A15 SAVE A1-A8 ON STACK u P X
0x301560…3016f4 (2, 210) Dummy {f00=0x00e7, f01=0x0190, f02=»TSAV,A6 INDICATE RECOVERY u & P LD A1,INIFLG INITIALIZATION FLAG v " P RF(NZ) DUON05 NOT POWER UP v L P* v p P EJECT DRDU01 v z P* v P* v P CM DWTOR,A6 1ST UNIT v " P CF A5,SEEKZ TEST IF OPERABLE v P ANK A1,1 v P RF(NZ) DUON26
0x3016f4…301888 Dummy {f00=0x00e7, f01=0x018e, f02=»F(NZ) DUON26 NOT OPERABLE v P XIF w " P* w . P EJECT DRDU01 w 8 P* w P P* w Z PDUON05 EQU * w d P CM DWTOR,A6 w x " P CF A5,VO:NAM READ VOLUME NAME w P ANK A1,1 w P RF(Z) DUON07 NO ERROR w $ P CM DWTOR,A6 PREPARE FOR VOLCLR w
0x301888…301a1c Dummy {f00=0x00e7, f01=0x018e, f02=» w ~ P CF A5,VO:NAM x P ANK A1,1 x P RF(Z) DUON08 NO ERROR x 0 P LDK A1,2 OTHER DISC UNIT x N P SC A1,DWTOR,A6 x p P LDK A1,12 x P CF A15,VOLCLR x PDUON08 EQU * x P XIF x , P IM DWTST,A6 INDICATE VOLUME NAMES READ x P LDKL A1
0x301a1c…301bb0 Dummy {f00=0x00e7, f01=0x0190, f02=» x n P RF(Z) END:IO NO REQUEST ON? y P* y , $ PDUON10 LD A7,DWTORD,A6 GET ORDER y 6 , P ST A7,DWTOR,A6 RESTORE INDEX AND ORDER y ^ P ANK A7,/3F y P* y P IFT VERSA3=1 y , P CF A5,REWORD RESTORE WORD IF NECESSARY y P XIF y P* y ( P
0x301bb0…301d44 Dummy {f00=0x00e7, f01=0x0190, f02=»ERRUPT y P* z PDUREDY LD A1,TIMER z " P RF(Z) DUON50 NO TIMER ACTIVE z 2 P* z X P IFT NUNITS=1 z b P CM* TIMER KILL TIMER z x P RF DUON40 z P XIF z P* z P IFT NUNITS=2 z P RB T:DISP TIMER ACTIVE z P XIF z P* z
0x301d44…301ed8 Dummy {f00=0x00e7, f01=0x0190, f02=» DUON30 NO TIMER ACTIVE z P LDKL A1,-TIME { P STR A1,A3 RESTART TIMER { 6 P RB T:DISP { V P* { h P* { r $ PDUON30 CF A15,SETIMP START TIMER { | , P DATA DUON40,TIME TIME OUT ADDRESS, TIME { P RB T:DISP { P* { P* TIME OUT { P* {
0x301ed8…30206c Dummy {f00=0x00e7, f01=0x0190, f02=»ERY { t " P LDK A5,DWTSB3 GET STACK BASE | P ADR A5,A6 | 2 P RB DUON05 | D P* | V P EJECT DRDU01 DRDU01 | ` P* | P* | P*********************** | P* * | P* INTERRUPT HANDLER * | P*
0x30206c…302200 Dummy {f00=0x00e7, f01=0x0190, f02=»AVE LAST INTERRUPT | P* } P IFT CPU852=1 } $ & P CF A15,SAVE8 SAVE A1-A8 ON STACK } : P XIF } d P* } p P IFT CPU852=0 } z " P MSR 8,A15 SAVE A1-A8 ON STACK } P XIF } P* } $ P LDKL A6,DWDU01 DISC UNIT NO. 1 } P* } P EJECT D
0x302200…302394 (2, 211) Dummy {f00=0x00e7, f01=0x0190, f02=» RB(N) DUREDY READY INTERRUPT } P SRL A1,1 ~ & P LDR A2,A1 ~ 8 P ANKL A2,/200 SEEK ERROR ~ J P RF(Z) IHDU30 ~ j & P ANKL A1,/440F MOVE SEEK ERROR BIT ~ P ORK A1,/02 ~ PIHDU30 EQU * ~ P LD A8,DWTECB,A6 ECB ADDRESS ~ P LD A2,DWTSAV,A6 ~
0x302394…302528 Dummy {f00=0x00e7, f01=0x0190, f02=» RELOAD REGISTERS A5 ~ ~ ( P LD A4,DWTA4,A6 A4 & P LD A7,DWTA2,A6 GET SECTOR COUNTER H P RTN A5 r P* P EJECT DRDU01 DRDU01 P* P* P******************* P* * P* PERFORM ENDIO
0x302528…3026bc Dummy {f00=0x00e7, f01=0x0190, f02=»1 NOT OPERABLE * P ST A1,DWTST,A6 INDICATE RECOVERY DONE P RF END:IO D PEND:10 EQU * V P* j P IFT RAW=1 t . P LD* A7,DWTSB3-2,A6 GET 1ST RETURN ADDRESS P SLL A7,1 " P RF(N) END:20 READ AFTER WRITE P LD A7,DWTORD,A6 P
0x3026bc…302850 Dummy {f00=0x00e7, f01=0x018e, f02=»IF P* PEND:20 EQU * P LDKL A2,/FF00 ( P ANS A2,ECBEL,A8 > ( P LD A2,DWTRTY,A6 GET RETRY INDICATOR V " P RF(Z) END:IO NO RETRIES DONE * P ORKL A1,/100 SET BIT 7 IN RETURN CODE P EJECT DRDU01 P* P* PEND:IO E
0x302850…3029e4 Dummy {f00=0x00e7, f01=0x018e, f02=» PVO:NAM EQU * P CF A5,SEEKZ SEEK SECTOR 0 P ANK A1,1 < 6 P RF(NZ) VO:NA8 SEEK-,THROUGHPUT ERROR,NOT OPERABLE N P CMR A6 SECTOR 0 P IFT NUNITS=2 P CF A5,INXUNI P CM DWTCYL,A2 CYLINDER 0 P XIF P IFT NUNITS=1
0x3029e4…302b78 Dummy {f00=0x00e7, f01=0x0190, f02=» j P CF A5,READ P ANK A1,3 0 P CF A5,BSELOD UPDATE DRIVER BUFFER INDICATOR . P XIF b P* n P IFT VERSA3=0 x $ P LDKL A1,/8019 READ SECTOR ZERO $ P LDKL A2,BUFFER TO DRIVER BUFFER P CF A5,CIO:50 P ANK A1,3 ERROR ?
0x302b78…302d0c Dummy {f00=0x00e7, f01=0x0190, f02=»D A1,DWTSAV,A6 P RF(Z) VO:NA6 ( P LDKL A3,/80F0 INDICATE TEST STATUS , PVO:NA6 EQU * X 2 P CF A15,VOLGET VOLUMR NAME TO DWT INDICATE NVL l P EJECT DRDU01 P* P* PDUNA40 EQU * P LDK A1,1 6 P LDK A7,1 TO INDICAT
0x302d0c…302ea0 Dummy {f00=0x00e7, f01=0x018e, f02=»A2,BUFFER+40 CHECK IF RELEASE 10 OR GREATER P CWK A2,/2031 4 $ P RF(NE) DUNA70 REL LESS THAN 10 J : P LD A2,BUFFER+48 GET FORMAT AND DEVICE TYPE PARAMETER r 4 PTRANPA EQU * LABEL FOR TRANSFER PARAMETER ORDER * P CF A15,INXDWT GET INDEXED DWT A
0x302ea0…303034 (2, 212) Dummy {f00=0x00e7, f01=0x0190, f02=» ( P LDKL A1,6324 SECTORS ON VERSION A2 P SUK A3,2 FORMAT ? 0 P RF(Z) DUNA60 VERSION A2 J P RF(N) DUNA50 VERSION A1 j P ADK A1,204 VERSION A3 PDUNA50 EQU * P ADKL A1,9588-6324 PDUNA60 EQU * P SUK A2,1 P RF(Z) DUNA7
0x303034…3031c8 Dummy {f00=0x00e7, f01=0x0190, f02=» A1,0 RESET RETURN CODE FOR TRANSFER PARAM. * P ADK A7,0 CHECK IF TRANSFER PARAMETER 4 P RB(Z) END:20 b P* x P EJECT DRDU01 P* P* * P LD A4,DWTA4,A6 RESTORE RETRY COUNTER P LC A1,DWTOR,A6 P ADK A1,1 P SC
0x3031c8…30335c Dummy {f00=0x00e7, f01=0x0190, f02=» * P RTN A5 P* P* TIMER POINTER $ P* > PTIMER DATA 0 TIMER POINTER H P* j P EJECT DRDU01 DRDU01 t P* P* * P************************************* * P* * * P*
0x30335c…3034f0 Dummy {f00=0x00e7, f01=0x018e, f02=» P* PDWDU01 EQU * " P DATA 0 PHYSICAL SECTOR NUMBER & P DATA /8000 DWT STATUS L P DATA 0 ECB ADDRESS j P DATA 0 ORDER " P DATA DUADR ACTIVATION ADDRESS P DATA 0 TTAB ADDRESS $ P DATA 0 WAIT/ACTIVATE INDICATOR P D
0x3034f0…303684 Dummy {f00=0x00e7, f01=0x0190, f02=» XIF P* PDWTFSW EQU *-DWDU01 P DATA 0 6 ( P DATA 0,0,0 SAVE AREA FOR REGISTERS F PDWTBSE EQU *-DWDU01 r P DATA 0 , PDWTUBU EQU *-DWDU01 USER BUFFER POINTER P DATA 0 PDWTSWD EQU *-DWDU01 P DATA 0
0x303684…303818 Dummy {f00=0x00e7, f01=0x018e, f02=» 4 P DATA /8000 NEW VOLUME LOADED INDICATOR CARTR. 1 P DATA /C000 FIXED < 0 P DATA /8000 NEW VOLUME LOADED IND. CARTR. 2 V 2 P DATA /FFFF,/FFFF,/FFFF VOLUME NAME 1ST FIXED 6 P DATA /FFFF,/FFFF,/FFFF VOLUME NAME 1ST CARTRIDGE P* P IFT
0x303818…3039ac Dummy {f00=0x00e7, f01=0x0190, f02=» P* P EJECT DRDU01 P* ( P* 2 PDWTSAV EQU *-DWDU01 < P DATA -1 X 8 PDWTFBU EQU *-DWDU01 FLAG INDICATING IO TO DRIVER BUF h P DATA 0 " PDWTCIO EQU *-DWDU01 CIO-START P CIO A3,1,DAF1 P CIO A3,1,DAC1 P*
0x3039ac…303b40 Dummy {f00=0x00e7, f01=0x0190, f02=»CYLINDER NUMBER P* P IFT NUNITS=2 " P DATA /FFFF 2ND UNIT 8 P XIF T P* ` PDWTSMX EQU *-DWDU01 j & P DATA 1 MAX SECTORS ON FIXED DISC $ P DATA 1 MAX SECTORS ON CARTRIDGE P* P IFT NUNITS=2 P DATA 1 2ND UNIT
0x303b40…303cd4 (2, 213) Dummy {f00=0x00e7, f01=0x0190, f02=»T CARTRIDGE ~ P* P IFT NUNITS=2 P DATA 0 4 P DATA 0 D P XIF T P* ` P DATA 0,0 STACK j P DATA 0,0 STACK P DATA 0,0 PDWTSB3 EQU *-DWDU01-2 P* P IFT RAW=1 PDWTSEP EQU *-DWDU01 P DATA
0x303cd4…303e68 Dummy {f00=0x00e7, f01=0x40e0, f02=»0 ~ PDWTBA1 EQU *-DWDU01 P DATA 0 & PDWTBA2 EQU *-DWDU01 6 P DATA 0 R PDWTPAG EQU *-DWDU01 MMU PAGE b P DATA 0 P DATA 0 P XIF P* P* P* P END @ PDWTSEP EQU *-DWDU01 P DATA
0x303e68…303ffc Dummy {f00=0x00e7, f01=0x2008, f02=» -DWDU01 2:ND WER INSTRUCTION - P WER A3,WER1+1 . , PDWTNAM EQU *-DWDU01 . B PDWTVOL EQU *-DWDU01 . ^ & P DATA 0,0,0 VOLUME NAME FIXED DISC . z * P DATA 0,0,0 VOLUME NAME CARTRIDGE DISC . PDWTSAV EQU *-DWDU01 . P DATA -1 . P END . @
0x303ffc…304190 Dummy {f00=0x00e7, f01=0x0000, f02=»
[…0x4…]
0x3047e0…304974 (2, 214) Opaque[0x194]
0x304974…304b08 # DirEnt {nam=»DRFD01«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x1d00, f03=0x0000}
0x304974…304b08 IdxSect {
0x304974…304b08 f00 = 0x00e8 // 0x304974 @0x0
0x304974…304b08 f01 = 0x0022 // 0x304976 @0x2
0x304974…304b08 gno = [ // 0x304978 @0x4
0x304974…304b08 [0x00]: C0x00e8.0x0.0
0x304974…304b08 [0x01]: C0x00e8.0x1.0
0x304974…304b08 [0x02]: C0x00e8.0x2.0
0x304974…304b08 [0x03]: C0x00e8.0x3.0
0x304974…304b08 [0x04]: C0x00e9.0x0.0
0x304974…304b08 [0x05]: C0x00e9.0x1.0
0x304974…304b08 [0x06]: C0x00e9.0x2.0
0x304974…304b08 [0x07]: C0x00e9.0x3.0
0x304974…304b08 [0x08]: C0x00ea.0x0.0
0x304974…304b08 [0x09]: C0x00ea.0x1.0
0x304974…304b08 [0x0a]: C0x00ea.0x2.0
0x304974…304b08 [0x0b]: C0x00ea.0x3.0
0x304974…304b08 [0x0c]: C0x00eb.0x0.0
0x304974…304b08 [0x0d]: C0x00eb.0x1.0
0x304974…304b08 [0x0e]: C0x00eb.0x2.0
0x304974…304b08 [0x0f]: C0x00eb.0x3.0
0x304974…304b08 [0x10]: C0x00ec.0x0.0
0x304974…304b08 ]
0x304974…304b08 }
0x304b08…304c9c Dummy {f00=0x00e8, f01=0x0190, f02=» 2 P IDENT DRFD01 REL 10.0 80-04-29 870105041000 P : P* B 2 P********************************************** L P* " P* PHILIPS TERMINAL SYSTEM PTS P* ( P* DRFD01 = DRIVER FOR FLEXIBLE DISK P* P* P* P*
0x304c9c…304e30 Dummy {f00=0x00e8, f01=0x0190, f02=»FOUR DAISY n . P* CHAINED FLEXIBLE DISK DRIVES PTS 6879, 0 P* CONNECTED TO CPU VIA CHANNEL UNIT CHFD ON D & P* MULTIPLEX OR PROGRAMMED CHANNEL x P* P* P EJECT DRFD01 P* P* ORDERS: P* P* /00 TEST STATUS
0x304e30…304fc4 Dummy {f00=0x00e8, f01=0x0190, f02=»* /06 SEQUENTIAL WRITE -IBM DISC ONLY- P* /11 PHYSICAL READ H P* /15 PHYSICAL WRITE f P* /21 OPEN P* /22 CLOSE P* /24 WRITE DELETED DATA P* /26 LOCK D P* /31 REWIND
0x304fc4…305158 Dummy {f00=0x00e8, f01=0x0190, f02=» A5 STACK BASE P* A6 DWT-ADDRESS P* A7 ORDER 6 P* A8 ECB-ADDRESS L P EJECT DRFD01 h P* P*********** P* * P* ENTRIES * P* * P*********** P* $ P ENTRY FDADR AC
0x305158…3052ec Dummy {f00=0x00e8, f01=0x0190, f02=»CT DRFD01 P* P************* P* * 4 P* EXTERNALS * J P* * ` P************* v P* P EXTRN TDISP DISPATCHER P EXTRN TENDIO ENDIO P EXTRN DISIOE REQUEST ERROR * P EXTRN DISEND PERF
0x3052ec…305480 Dummy {f00=0x00e8, f01=0x018e, f02=»TO DWT AND SET NVL v . P EXTRN NVLCHK CHECK FOR NEW VOLUME LOADED EXTRN DWTST STATUS L EXTRN DWTECB ECB ADDRESS h " P EXTRN DWTUEC USER ECB ADDRESS $ EXTRN DWTOR DWT INDEX AND ORDER ( P EXTRN DWTORD ORDER/INDEX SAVE AREA P EXT
0x305480…305614 (2, 215) Dummy {f00=0x00e8, f01=0x0190, f02=» ( P EXTRN SAVE8 SAVE A1-A8 ON A15 STACK P EXTRN SETIMP TIMER 0 & P EXTRN INTSAV INTERRUPT SAVE AREA L & P EXTRN PFPOST PWF POST PROC. FLAG v & P EXTRN TASCII EBCDIC TO ASCII TAB & P EXTRN TEBCDIC ASCII TO EBCDIC TAB 0 P EXTRN SPDLCI OPEN/C
0x305614…3057a8 Dummy {f00=0x00e8, f01=0x0190, f02=»TIVE LENGTH z $ P EXTRN ECBCW1 ECB CONTROL WORD 1 $ P EXTRN ECBCW2 ECB CONTROL WORD 2 < P EJECT DRFD01 d P* | P************************ P* * P* CONDITIONAL ASSEMBLY * P* * P**
0x3057a8…30593c Dummy {f00=0x00e8, f01=0x0190, f02=»X:A EQU 1 PCHAN EQU 1 P* $ 2 P* A PROGRAM VERSION INCLUDING TOSS DISC FORMAT . ( P* IS OBTAINED BY SETTING TOSS EQU 1. d P* PX:B EQU 0 PTOSS EQU 1 P* 2 P* A PROGRAM VERSION INCLUDING IBM DISC FORMAT ( P* IS OBTAI
0x30593c…305ad0 Dummy {f00=0x00e8, f01=0x0190, f02=» * P* IS OBTAINED BY SETTING MMUPAG EQU 1. P* 2 PMMUPAG EQU 1 < 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 DRFD01
0x305ad0…305c64 Dummy {f00=0x00e8, f01=0x0190, f02=»DED BY SETTING OPCLOS =1 h P* PX:D EQU 0 * POPCLOS EQU 1 < P* P P EJECT DRFD01 Z P* r P* | P* MMU BUFFER SIZE P* P* P IFT MMUPAG=0 PDVBLEN EQU 256 P XIF P* P IFT MMUPAG=1
0x305c64…305df8 Dummy {f00=0x00e8, f01=0x0190, f02=»ND EQU 10 P* P EJECT DRFD01 P* 4 P************* > P* * T P* CONSTANTS * j P* * P************* P* & PCUADR EQU 09 CONTROL UNIT ADDRESS & PMUXADR EQU CUADR+CUADR MUX-ADDRESS (
0x305df8…305f8c Dummy {f00=0x00e8, f01=0x0190, f02=»923 MAX SECTOR NUMBER IBM DISC ( PBOE EQU 28 BEGIN OF EXTENT POSITION & & PEOE EQU 34 END OF EXTENT POSITION R $ PEOD EQU 74 END OF DATA POSITION | PTIME EQU 20 DELAY - POWER ON & POPENTI EQU 10 DELAY AT OPEN ORDERS P* $ PDIXTAB EQU *
0x305f8c…306120 Dummy {f00=0x00e8, f01=0x0190, f02=» * P* TABLES * P* * P********** 0 P* B P IFF CHAN+IBM=0 L ( P DATA DVBLEN+DVBLEN MMU BUFFER SIZE d P XIF P* P IFT CHAN=0 P IFT IBM=0 " P DATA 0 INDICATE NO MMU BUFFER P XIF P* P
0x306120…3062b4 (2, 216) Dummy {f00=0x00e8, f01=0x0190, f02=»D01 P* P*************** P* * . P* TEST STATUS * F P* * ^ P*************** v P* PTESTST EQU * P IFF IBM+TOSS=0 P CF A15,NVLCHK " P STR A1,A6 SAVE NVL INDICATOR P XIF
0x3062b4…306448 Dummy {f00=0x00e8, f01=0x0190, f02=»7FFF RESET REQUEST ERROR BIT P ANRS A2,A6 $ P* 8 P IFF TOSS+IBM=0 B " P CF A5,VO:NAM GET VOLUME NAME Z , P LD A1,DWTORD,A6 RESTORE INDEX AND ORDER P ST A1,DWTOR,A6 P CF A15,VOLNAM P ABL END:RC P XIF P* P
0x306448…3065dc Dummy {f00=0x00e8, f01=0x0190, f02=» P* ACTIVATION * P* * P************** 4 P* J PFDAD EQU * ACTIVATION ENTRY T P IFT MMUPAG=1 x P IFT CHAN=0 P CM BUFFLG,A6 P XIF P* $ P LD A2,DWTOR,A6 INDEX AND ORDER 0 P ST A2,DWTORD,A6 S
0x3065dc…306770 Dummy {f00=0x00e8, f01=0x018e, f02=» P IFT OPCLOS=1 P* & P* CHECK IF OPEN OR CLOSE ORDER $ P* N P LDR A1,A7 ORDER X P SUK A1,/21 p P RF(Z) OPEN OPEN P SUK A1,1 " P RF(NZ) FD:ORD NOT CLOSE ORDER P* P EJECT P* P********* P
0x306770…306904 Dummy {f00=0x00e8, f01=0x0190, f02=» 2 P* ZERO OF THE SOP LIGHTS EXTERNAL REGISTER P* : " P LDKL A1,/8000 MASK FOR BIT 0 D & P ORS A1,SPDLCI SET OPEN/CLOSE BIT j P RF OPEN10 P* P EJECT P* P******** P* * P* OPEN * P* * P
0x306904…306a98 Dummy {f00=0x00e8, f01=0x0190, f02=»* POPEN EQU * " P LDKL A1,/7FFF MASK FOR BIT 0 ( P ANS A1,SPDLCI CLEAR OPEN/CLOSE BIT B P* n POPEN10 EQU * x 0 P LD A1,SPDLCI SOP LIGHTS AND OPEN/CLOSE DATA " P OTR A1,0,SOPDA OPEN FD DRIVE P* * P* WAIT FOR DRIVE TO B
0x306a98…306c2c Dummy {f00=0x00e8, f01=0x0190, f02=»DWT-ADDR P CF A15,SETIMP WAIT . P DATA OPENRE,OPENTI START ADDR, WAIT TIME , P ABL TDISP EXIT ^ P* v POPENRE EQU * P LDR A6,A1 GET DWT-ADDR , P CM DWTTP2,A6 INDICATE NO TIMER RUNNING P LDK A1,0 RETURN CODE ( P RF DI
0x306c2c…306dc0 Dummy {f00=0x00e8, f01=0x018e, f02=»FD:ORD EQU * P LC A2,DIXTAB,A3 , P SC A2,DWTA3+1,A6 SAVE DRIVE INDEX MASK , P* P IFT IBM+TOSS=2 f P AN A2,DWTLAB,A6 ~ ( P SC A2,DWTFIB+1,A6 INDICATE TOSS/IBM P XIF P* P CF A5,SETCIO A3,A4 AFFECTED P* P E
0x306dc0…306f54 (2, 217) Dummy {f00=0x00e8, f01=0x0190, f02=» " P RF(N) INTEST READ/WRITE ORDER P SUK A3,18 * P ABL(NP) LOAD LOAD/UNLOAD < P XIF ^ P* j P IFT IBM=1 t P SUK A3,1 P RF(Z) INTEST BASIC READ P SUK A3,1 " P RF(Z) IBMCHK SEQUENTIAL READ P SUK A3,3 P RF(Z)
0x306f54…3070e8 Dummy {f00=0x00e8, f01=0x0190, f02=» n P SUK A3,11 P RF(Z) IBMCHK REWIND P SUK A3,7 6 P ABL(NP) LOAD LOAD/UNLOAD H P XIF j P* v PIBMCHK EQU * P IFT TOSS+IBM=2 P LD A4,DWTFIB,A6 & P ABL(NZ) IBMDSK IBM DISC HANDLING P XIF P* P IFT
0x3070e8…30727c Dummy {f00=0x00e8, f01=0x0190, f02=»REQERR ABL DISIOE REQUEST ERROR P* ( 0 PINCLEN EQU * INCORRECT REQUESTED LENGTH EXIT 2 P LDKL A1,/8008 RETURN CODE f P* PDIS:EN EQU * . P ABL DISEND PERFORM TENDIO AND GO TO TDISP P* P EJECT DRFD01 P* P* INPU
0x30727c…307410 Dummy {f00=0x00e8, f01=0x018e, f02=»1,0 $ P RB(NZ) DIS:EN NEW VOLUME LOADED P XIF 4 P* @ P LD A3,ECBRL,A8 J 2 P RB(Z) INCLEN INCORRECT INPUT PARAMETER ECBRL b ( P SRC A3,7 NUMBER OF PHYSICAL SECTORS 2 P RB(N) INCLEN INCORRECT INPUT PARAMETER ECBRL P CWK A3,/01FF
0x307410…3075a4 Dummy {f00=0x00e8, f01=0x0190, f02=» P LD A4,DWTFIB,A6 P RF(NZ) INTES5 IBM-DISC P XIF < P* H P IFT TOSS=1 R P LDR A4,A3 f 6 P SRC A4,1 CHECK IF EVEN NUMBER OF PHYSICAL SECTORS x 2 P RB(N) INCLEN INCORRECT INPUT PARAMETER ECBRL 6 P SLL A2,1 TRANSFER TOSS-SEC. NO
0x3075a4…307738 Dummy {f00=0x00e8, f01=0x018e, f02=»ECTOR NUMBER v P RB(N) REQERR REQUEST ERROR P SUKL A4,MAXSEC 8 P RB(NN) REQERR REQUEST ERROR P P ADR A4,A3 t " P RB(P) INCLEN INCORRECT LENGTH , P ST A3,DWTNOS,A6 SAVE NUMBER OF SECTORS 2 P ST A2,DWTCW2,A6 DWTCW2 CONTAINING PHYS SEC
0x307738…3078cc Dummy {f00=0x00e8, f01=0x0190, f02=» P ANK A2,/30 4 P ST A2,DWT:BF,A6 SAVE BITS 0-1 IN 18-BIT ADDRESS P XIF T P* ` P EJECT DRFD01 j P* P* MULTIPLE SECTOR IO ENTRY P* PFD:000 EQU * P IFT MMUPAG=1 P IFT CHAN=0 P LD A2,DWT:BF,A6
0x3078cc…307a60 Dummy {f00=0x00e8, f01=0x0190, f02=»05 FOUR PHYS. SEC. IO P* PFD:003 SUK A2,128 ( P SUK A4,1 B P ADK A3,1 T P RB(NZ) FD:003 f P* | PFD:005 EQU * . P ST A4,DWTSIO,A6 SECTORS IN ONE IO ON DISC ( P ST A2,DWTRL,A6 UPDATE DWTRL FOR BIO . P ST A3,DWTNOS,A6
0x307a60…307bf4 (2, 218) Dummy {f00=0x00e9, f01=0x0190, f02=»D A2,DWTBA,A6 BUFFER ADDRESS P LD A1,DWT:BF,A6 $ , P RF(NZ) FD:007 BUFFER NOT IN SYSTEM AREA < P LDR A3,A2 l P RF(NN) FD:009 ~ 6 P AD A3,DWTRL,A6 CHECK IF 64K LIMIT WILL BE PASSED P RF(N) FD:009 NO P* P EJECT DRFD01 P*
0x307bf4…307d88 Dummy {f00=0x00e9, f01=0x0190, f02=»,DWT:PA,A6 6 BIT PHYSICAL BUFFER ADDRESS ( P ADK A1,/4 CREATE ONE MORE MMU ENTRY 0 P SC A1,DWT:PA+2,A6 P ANKL A2,/FFF v P LDR A1,A2 ( P ORK A1,1 INDICATE ADDRESS NOT ZERO P* 8 PFD:009 ST A1,DWT:LA,A6 16 BIT LOGICAL BUFFER ADDRESS
0x307d88…307f1c Dummy {f00=0x00e9, f01=0x0190, f02=»Z) FD:060 BASIC READ P SUK A1,4 P RF(Z) FD:015 BASIC WRITE . P SUK A1,12 P P RF(Z) FD:060 PHYSICAL READ b P SUK A1,4 P RF(Z) FD:013 PHYSICAL WRITE * P SUK A1,15 CHECK IF WRITE DELETED DATA P* PRQ:ERR EQU * P
0x307f1c…3080b0 Dummy {f00=0x00e9, f01=0x0190, f02=» & P LDK A4,1 WRITE DELETED DATA ORDER ! & PFD:013 EQU * PHYSICAL WRITE ORDER ! . P ADK A4,4 ! X " PFD:015 EQU * BASIC WRITE ORDER ! j P ADK A4,1 ! " P CF A5,BIO PREPARATION FOR CIO ! P* ! P IFT MMUPAG=1 ! P IFT CHAN=0 ! P IFT TOSS+IB
0x3080b0…308244 Dummy {f00=0x00e9, f01=0x018e, f02=»D A1,DWT:LA,A6 GET FLAG/LOGICAL BUFFER ADDRESS ! ( P RF(Z) FD:019 BUFFER IN SYSTEM AREA " 6 P LDR A7,A3 REQUESTED LENGTH " b P LDR A8,A2 SAVE A2 " & P LDKL A4,BUF DRIVER BUFFER ADDRESS " P LDR A2,A4 " & P TS -30,A15 SAVE RUNNING TASK MMU " ( P T
0x308244…3083d8 Dummy {f00=0x00e9, f01=0x018e, f02=» P LDR A2,A8 RESTORE A2 # 0 P CM BUFFLG,A6 INDICATE BUFFER IN SYSTEM AREA # " PFD:019 EQU * # V P XIF # j P* # v P IFT TOSS+IBM=2 # P LD A1,DWTFIB,A6 # P RF(Z) FD:018 NOT IBM # P XIF # P* # P IFT IBM=1 # , P LDR A7,A3 NO OF C
0x3083d8…30856c Dummy {f00=0x00e9, f01=0x0190, f02=» " P CF A5,FD:WRITE PERFORME WRITE $ * P ANKL A3,/200 CHECK IF WRITE PROTECTED $ * P RF(Z) FD:020 $ X P LDK A3,/40 INDICATE ERROR $ n , P ORRS A3,A6 UPDATE TEMPORARY RETURN CODE $ PFD:020 EQU * $ P RF FD:100 GOTO FDMSIO $ P* $ P EJECT DRF
0x30856c…308700 Dummy {f00=0x00e9, f01=0x0190, f02=»******* $ P* % PFD:060 CF A5,BIO % P* % 2 P IFT MMUPAG=1 % < P IFT CHAN=0 % R P IFT TOSS+IBM=2 % f P LD A1,DWTFIB,A6 % ~ P RF(Z) FD:070 TOSS DISC % & P LDKL A4,BUF DRIVER BUFFER ADDRESS % 0 P CM BUFFLG,A6 INDICATE BUFFER IN SYSTEM
0x308700…308894 (2, 219) Dummy {f00=0x00e9, f01=0x0190, f02=»FFER IN SYSTEM AREA % & P LDKL A4,BUF DRIVER BUFFER ADDRESS & 0 P CM BUFFLG,A6 INDICATE BUFFER IN SYSTEM AREA & F P XIF & z P* & P IFT MMUPAG=1 & P IFT IBM=1 & P IFT TOSS+CHAN=0 & & P LDKL A4,BUF DRIVER BUFFER ADDRESS & 0 P CM BUFFLG,A6
0x308894…308a28 Dummy {f00=0x00e9, f01=0x0190, f02=»M=2 & P LD A1,DWTFIB,A6 ' P RF(Z) FD:090 NOT IBM ' $ P XIF ' B P* ' N P IFT IBM=1 ' X P IFT MMUPAG=0 ' j ( P LD A4,DWTBA,A6 ASCII OUTPUT ADDRESS ' P XIF ' P* ' P IFT IBM=1 ' P LD A7,DWTRL,A6 REQ. LEN ' P CF A5,ASCII ' P
0x308a28…308bbc Dummy {f00=0x00e9, f01=0x0190, f02=»S+IBM=2 ' P LD A1,DWTFIB,A6 ( P RF(Z) FD:100 TOSS DISC ( ( P XIF ( H P* ( T P IFT MMUPAG=1 ( ^ P IFF CHAN+IBM=0 ( t 4 P LD A2,DWT:LA,A6 GET FLAG/LOGICAL BUFFER ADDRESS ( ( P RF(Z) FD:100 BUFFER IN SYSTEM AREA ( $ P LD A7,DWTRL,A6 REQUESTE
0x308bbc…308d50 Dummy {f00=0x00e9, f01=0x0190, f02=»E ( n 2 P MVSU A7 MOVE BUFFER FROM SYSTEM TO USER AREA ) & P TL -30,A15 RESTORE MMU FROM STACK ) @ P XIF ) j PFD:100 EQU * ) v P ABL FDMSIO ) P* ) P EJECT DRFD01 ) P* ) P******** ) P* * ) P* LOAD * ) P* * )
0x308d50…308ee4 Dummy {f00=0x00e9, f01=0x0190, f02=»Z) LOAD00 LOAD ORDER ) P ADK A3,17 * $ P RB(NZ) RQ:ERR ERROR IF NOT LOCK * . P* * V PLOAD00 EQU * * ` P LDK A2,/14 LOCK * t P CF A5,FD:REA * P ANK A3,1 * & P RF(NZ) LOA:80 ENDIO NOT OPERABLE * P* * P IFT TOSS+IBM=2 * P LD A1,D
0x308ee4…309078 Dummy {f00=0x00e9, f01=0x018e, f02=» * P RF(Z) LOA:65 LOCK ORDER + P CF A5,VO:NAM + ( " P CF A5,LD:RC CHECK RETURN CODE + > P EJECT DRFD01 + d P* + | P* READ DATA SET LABEL + P* + P LD A2,ECBCW2,A8 SECTOR NO + P SUK A2,7 + P RF(N) LOA:85 REQUEST ERROR + P S
0x309078…30920c Dummy {f00=0x00e9, f01=0x0190, f02=» P CF A5,FD:REA , P SLL A1,4 CHECK NO DATA BIT , P RF(NN) LOA:60 NOT NO DATA , > 0 P ORK A3,/10 INDICATE ILLEGAL DATA SET LABEL , ` PLOA:60 EQU * , P CF A5,LD:RC , P ENB , * P LD A3,ECBCW2,A8 DATA SET LABEL SECTOR , P LDK A1,DWTDSS ,
0x30920c…3093a0 Dummy {f00=0x00e9, f01=0x0190, f02=» $ P CF A5,STDWT STORE BOE NO IN DWT - P SUK A3,1 CRN - , P LDK A1,DWTCRN - B P CF A5,STDWT - X P ADK A4,EOE-BOE EOE ADDRESS - l P CF A5,LOGSEC - P LDK A1,DWTEOE - $ P CF A5,STDWT STORE EOE NO IN DWT - P ADK A4,EOD-EOE EOD ADDRESS - P
0x3093a0…309534 (2, 220) Dummy {f00=0x00e9, f01=0x0190, f02=» EOD NO IN DWT - ~ P* . PLOA:65 EQU * . P LDKL A3,/400 . 4 , P ORRS A3,A6 UPDATE TEMPORARY RETURN CODE . J P* . z PLOA:70 EQU * . P XIF . P LD A2,DWTA3,A6 . " P ORS A2,DWTLC,A6 INDICATE LOCK . PLOA:80 EQU * . P ABL END:RC .
0x309534…3096c8 Dummy {f00=0x00e9, f01=0x0190, f02=» . P* / P EJECT DRFD01 / P* / * P* / 4 P IFF TOSS+IBM=0 / > P* / V P* ERROR , UNLOCK / ` P* / z PLOA:90 EQU * / P LDR A5,A6 / P ADKL A5,DWTSB2 STACK BASE / P LDK A2,/C UNLOCK / P CF A5,FD:REA / P RB LOA:80 /
0x3096c8…30985c Dummy {f00=0x00e9, f01=0x0190, f02=»A4,BUF DRIVER BUFFER ADDRESS / P RTN A5 0 $ P XIF 0 4 P* 0 @ P EJECT DRFD01 0 J P* 0 b P********** 0 l P* * 0 ~ P* UNLOAD * 0 P* * 0 P********** 0 P* 0 PUNLOAD EQU * 0 P IFT IBM=1 0 P* 0 P* DAT
0x30985c…3099f0 Dummy {f00=0x00e9, f01=0x018e, f02=»2,A8 STORE EOD-NO IN CONTROL WORD OF ECB 0 P* 1 0 , P* READ DATA SET LABEL TO DRIVER BUFFER 1 : P* 1 j P CF A5,DSLIO PREPARE FOR I/O 1 t & P CF A5,FD:REA READ DATA SET LABEL 1 $ P CF A5,UNL:RC RETURN CODE CHECK 1 P ENB 1 P* 1 < P* TRANS
0x3099f0…309b84 Dummy {f00=0x00e9, f01=0x0190, f02=» P* 2 P LDK A1,0 2 PUNL:10 SUK A7,26 2 P RF(N) UNL:20 2 8 P ADK A1,1 2 N P RB UNL:10 2 ` P* 2 r P EJECT DRFD01 2 | P* 2 P* 2 PUNL:20 ADK A7,27 2 P* 2 P* A1 = BINARY TRACK NO 2 * P* A7 = SECTOR NO WITHIN TRAC
0x309b84…309d18 Dummy {f00=0x00e9, f01=0x0190, f02=» A4,1 2 P SRL A3,8 LEFT BYTE 3 P SCR A3,A4 STORE IN BUFFER 3 * P LDR A7,A1 TRACK 3 L ( P CF A5,BINDEC DEC EBCDIC-CODED IN A3 3 d P SUK A4,3 3 P STR A3,A4 TRACK INTO BUF 3 F P INH INHIBIT INTERRUPTS INHIBIT 3
0x309d18…309eac Dummy {f00=0x00e9, f01=0x0190, f02=»WRITE WRITE DATA SET LEBEL 3 $ P CF A5,UNL:RC CHECK RETURN CODE 4 " P CF A5,DSOPCH 4 J P CMR A2 INDICATE NOT OPEN 4 ` P* 4 P EJECT DRFD01 4 P* 4 P* UNLOCK 4 P* 4 P XIF 4 PUNL:70 EQU * 4 P LDK A2,/C UNLOCK 4 P C
0x309eac…30a040 Dummy {f00=0x00e9, f01=0x0190, f02=»LOCK IN DWT 4 t P RB LOA:80 END:IO 5 P* 5 . P IFT IBM=1 5 8 P* 5 J P* UNLOAD RETURN CODE CHECK 5 T P* 5 x PUNL:RC EQU * 5 P ANKL A3,/207 5 P RF(Z) RTN:A5 NO RETURN CODE 5 P ANKL A3,/200 5 & P RF(Z) RTN:A5 NOT WRITE PROTECTED
0x30a040…30a1d4 (2, 221) Dummy {f00=0x00e9, f01=0x0190, f02=»EMPORARY RETURN CODE 5 | PRTN:A5 EQU * 6 P RTN A5 6 0 P* 6 @ P EJECT DRFD01 6 J P* 6 b P* 6 l ( PIBMDSK EQU * IBM DISK HANDLING ENTRY 6 v P IFT IBM=1 6 . P CF A15,NVLCHK CHECK IF NEW VOLUME LOADED 6 P ADK A1,0 6 & P ABL(NZ) END:IO
0x30a1d4…30a368 Dummy {f00=0x00e9, f01=0x0190, f02=»,DWTOR+1,A6 ORDER CODE 6 P SUK A1,49 7 P RF(Z) REWIND REWIND FILE 7 0 * P LD A3,ECBRL,A8 CHECK REQUESTED LENGTH 7 R P SUK A3,SECLEN 7 $ P ABL(NZ) INCLEN INCORRECT LENGTH 7 P ADK A1,43 7 $ P RF(Z) SQWRITE SEQUENTIAL WRITE 7 P ADK A1,4 7 0
0x30a368…30a4fc Dummy {f00=0x00e9, f01=0x0190, f02=»AL READ * 7 P******************* 8 P* 8 . . P ADK A2,DWTCRN-DWTEOD A2 = ADDRESS TO CRN 8 8 P LDR* A3,A2 CRN 8 j P ADK A3,1 CRN+1 8 ( P ST A3,ECBCW2,A8 STORE CRN+1 IN ECB 8 P CWK A3,MAXIBM 8 P RF(P) FD:DIS REQUEST ERROR 8 P CWR A3,
0x30a4fc…30a690 Dummy {f00=0x00e9, f01=0x0190, f02=» 8 b P* 9 P IFT MMUPAG=0 9 ( P LD A4,ECBBA,A8 USER BUFFER ADDRESS 9 ( P XIF 9 T P* 9 ` P IFT IBM=1 9 j P LDK A7,SECLEN 9 | $ P CF A5,ASCII TRANSFORM TO ASCII 9 P* 9 P EJECT DRFD01 9 P* 9 P* 9 P IFT MMUPAG=1 9 ( P T
0x30a690…30a824 Dummy {f00=0x00e9, f01=0x0190, f02=»BUFFER ADDRESS 9 | & P LD A2,DWTUEC,A6 USER ECB ADDRESS : ( P EL A2,ECBBA,A2 USER BUFFER ADDRESS : @ P LDK A7,SECLEN LENGTH : l ( P MVSU A7 MOVE SECTOR TO USER BUFFER : , P TL -30,A15 RESTORE MMU TABLE FROM STACK : P XIF : P* : P IFT IBM=1 :
0x30a824…30a9b8 Dummy {f00=0x00e9, f01=0x0190, f02=»,/1000 RETURN CODE : P RF END:IO ; P* ; , P EJECT DRFD01 ; 6 P* ; N P******************* ; X P* SEQUENTIAL WRITE * ; t P******************* ; P* ; PSQWRIT EQU * ; P* ; P* CHECK IF END OF EXTENT ; P* ; P LDK A1,
0x30a9b8…30ab4c Dummy {f00=0x00e9, f01=0x0190, f02=»DIS REQUEST ERROR ; P CWR* A7,A2 < P RF(G) ENDEOE END OF EXTENT < . P* < R P IFT MMUPAG=1 < ( P TS -30,A15 SAVE RUNNING TASK'S MMU < r " P LD A7,DWTTAB,A6 TTAB ADDRESS < P TL TTB:MT,A7 LOAD MMU TABLE < & P LD A1,DWTUEC,A6 USER ECB ADDRES
0x30ab4c…30ace0 Dummy {f00=0x00e9, f01=0x0190, f02=»OVE SECTOR TO DRIVER BUFFER < , P TL -30,A15 RESTORE MMU TABLE FROM STACK = $ P XIF = T P* = ` P IFT IBM=1 = j P LDK A4,5 BIO WRITE = | P CF A5,BIOSQ = P LDK A7,SECLEN = , P CF A5,EBCDIC TRANSFORM AND MOVE TO BUF = P* = P EJECT DRFD
0x30ace0…30ae74 (2, 222) Dummy {f00=0x00ea, f01=0x0190, f02=»S A1,A6 UPDATE TEMPORARY RETURN CODE = PSQW:05 EQU * > , P CF A5,DSOPCH > @ PSQW:10 EQU * > V 2 P ANKL A3,/207 WRITE PROTECTED OR NOT OPERABLE > j P RF(NZ) END:RC > * P IMR A2 EOD=EOD+1 OR CRN=CRN+1 IN DWT > P LDK A2,SECLEN > , P ST A2,ECBEL,A
0x30ae74…30b008 Dummy {f00=0x00ea, f01=0x0190, f02=»RFD01 > P* ? P********** ? P* REWIND * ? * P********** ? < P* ? N PREWIND EQU * ? X P LDR A3,A2 SAVE EOD ADDRESS ? l P LDK A1,DWTBOE ? P CF A5,DSPAD ? P LDR* A4,A2 BOE ? P STR A4,A3 EOD = BOE ? P LDK A1,DWTCRN ? P CF
0x30b008…30b19c Dummy {f00=0x00ea, f01=0x018e, f02=» ? P EJECT DRFD01 @ P* @ P***************** @ * P* * @ D P* PERFORM ORDER * @ ^ P* * @ x P***************** @ P* @ P* @ P* INPUT: A2 BIO CONTENTS @ 0 P* A3 NO OF BYTES TO BE TRA
0x30b19c…30b330 Dummy {f00=0x00ea, f01=0x0190, f02=» P XIF A P IFT CHAN=1 A " P LDK A1,0 INDICATOR WRITE MODE A $ P XIF A J P RF FD:800 A V P* A h PFD:REA EQU * A r P IFT CHAN=1 A P LDK A1,1 READ MODE A P XIF A P IFT CHAN=0 A P LDKL A1,/8000 WORDS READ A P XIF A PFD:8
0x30b330…30b4c4 Dummy {f00=0x00ea, f01=0x0190, f02=»PAG=1 A 2 P LD A7,BUFFLG,A6 CHECK WHAT BUFFER TO READ TO B ( P RF(Z) FD:810 BUFFER IN SYSTEM AREA B D 0 P LD A7,DWT:BF,A6 BITS 0-1 IN 18-BIT ADDRESS B p P ECR A7,A7 B P ORR A1,A7 B PFD:810 EQU * B P XIF B P* B P IFT CHAN=0 B P O
0x30b4c4…30b658 Dummy {f00=0x00ea, f01=0x0190, f02=»JECT DRFD01 B P* C . P* PUT BUFFER START AND END ADDRESS IN DWT C P* C R " P ST A1,DWTRW,A6 INDICATE MODE C P ST A4,DWTUB,A6 C P ADR A3,A4 C " P ST A3,DWTUBE,A6 END ADDRESS+2 C P XIF C & P ST A5,DWTA5,A6 SAVE STACK POINTER C P
0x30b658…30b7ec Dummy {f00=0x00ea, f01=0x0190, f02=»R CIO START C ( P RF(3) END:30 DEVICE ADDRESS UNKNOWN D P RF T:DISP D @ P* D R P EJECT DRFD01 D P* D t * P************************************* D ~ P* D < P* FDMSIO - UPDATE PARAMETERS FOR MULTIPLE SECTOR IO * D * P*
0x30b7ec…30b980 Dummy {f00=0x00ea, f01=0x0190, f02=»ER D p P LDR* A1,A6 RETURN CODE E & P ANK A1,/7F GET ERROR RETURN CODE E * P RF(NZ) END:RC E T 0 P LD A2,DWTSIO,A6 GET NUMBER OF SECTORS DONE E j $ P ADS A2,DWTCW2,A6 UPDATE DWTCW2 E P LD A2,DWTRL,A6 E " P ADS A2,ECBEL,A8 UPDATE ECBEL E P LD
0x30b980…30bb14 (2, 223) Dummy {f00=0x00ea, f01=0x0190, f02=»PDATE BUFFER POINTER E P ST A2,DWTBA,A6 F & P RF(N) FDMSI1 NOT PASSED 64K LIMIT F 4 P ADK A4,0 F ^ ( P RF(NN) FDMSI1 NOT PASSED 64K LIMIT F p P LDK A2,/10 F & P ADS A2,DWT:BF,A6 UPDATE BITS 0-1 F PFDMSI1 EQU * F P XIF F P* F P IFT
0x30bb14…30bca8 Dummy {f00=0x00ea, f01=0x0190, f02=» P EJECT DRFD01 G P* G P********** G & P* * G 8 P* END:IO * G J P* * G P********** G n P* G P IFT IBM=1 G $ PENDEOE EQU * END OF EXTENT EXIT G P LDKL A1,/2000 RETURN CODE G P RF END:IO G P XIF G P* G
0x30bca8…30be3c Dummy {f00=0x00ea, f01=0x0190, f02=»D:30 EQU * CU ADDRESS UNKNOWN G P LDK A1,1 NOT OPERABLE H & * P ST A1,DWTST,A6 INDICATE RECOVERY DONE H D P RB END:IO H r P EJECT DRFD01 H P* H P******************** H P* * H P* RECOVERY ROUTINE * H P*
0x30be3c…30bfd0 Dummy {f00=0x00ea, f01=0x0190, f02=»IF H P* I P IFT CPU852=0 I " P MSR 8,A15 SAVE A1-A8 ON STACK I * P XIF I P P* I P LDKL A6,DWFD01 DWT ADDRESS I f P CM DWTST,A6 I P IM DWTA2,A6 SET FDON FLAG I P* I P EJECT I P* I P* DELAY 2 SEC I P* I P LD A4
0x30bfd0…30c164 Dummy {f00=0x00ea, f01=0x018e, f02=» LDK A4,DWTTP I P ADR A4,A6 J P LDR A1,A6 SAVE A6 J ( P CF A15,SETIMP J B P DATA FDON20,TIME J X P* J r PF:DISP EQU * J | P RB T:DISP J P* J P* TIME OUT ROUTINE J P* J PFDON20 LDR A6,A1 J P CM DWTTP,A6 J P LDKL A5,D
0x30c164…30c2f8 Dummy {f00=0x00ea, f01=0x0190, f02=» P IFT CHAN=0 K $ P CM BUFFLG,A6 RESET BUFFER FLAG K P XIF K @ P* K L P IFF TOSS+IBM=0 K V 4 P IM DWTST2,A6 SET RECOVERY/READY INT. INDICATOR K n P LDK A3,3 4 VOLUMES K P* K P EJECT DRFD01 K P* K P* K P* READ VOLUME NAM
0x30c2f8…30c48c Dummy {f00=0x00ea, f01=0x0190, f02=»,A6 SAVE IT K P CF A5,SETCIO L P LDK A2,/14 L * P CF A5,FD:REA LOCK L > P ANK A3,1 L X P RF(Z) FDON19 OPERABLE L j P LDK A1,6 NOT OPERABLE L $ P CF A15,VOLCLR CLEAR VOLUME NAME L & P RF FDON21 CONTINUE WITH NEXT DISC L P* L PFDON19
0x30c48c…30c620 Dummy {f00=0x00ea, f01=0x0190, f02=» * L P LDK A2,/C M P CF A5,FD:REA UNLOCK M P LDK A3,0 M 8 , P LC A3,DWTOR,A6 GET INDEX FOR LAST VOL. M J P SUK A3,1 M z P RB(NN) FDONLD NEXT VOLUME M P CM DWTOR,A6 M ( P CM DWTST2,A6 INDICATE VOLUMES READ M , P IM DWTST,A6 INDICATE VOLU
0x30c620…30c7b4 (2, 224) Dummy {f00=0x00ea, f01=0x0190, f02=» ORDER IF RUNNING M l P* N " P LD A4,DWTTP2,A6 TIMER POINTER N $ P RF(Z) FDON09 NOT RUNNING N J P CMR A4 STOP TIMER N l $ P CM DWTTP2,A6 INDICATE NO TIMER N PFDON09 EQU * N P* N 6 P* OPEN FD TO MAKE FOLLOWING LOCK ORDER POSSIBLE N P*
0x30c7b4…30c948 Dummy {f00=0x00ea, f01=0x018e, f02=» N p P ORS A2,DWTOCF,A6 SAVE O ( P XRRS A2,A4 SET STATUS WORD TO OPEN O & P LDR* A2,A4 O R & P OTR A2,0,SOPDA SET DRIVE TO OPEN O f P* O PFDON23 EQU * O P XIF O P* O P EJECT O P* O P* LOCK DOORS O P* O P LDK A2,1 O
0x30c948…30cadc Dummy {f00=0x00ea, f01=0x0190, f02=» O z P* P P EJECT P P* P P* PUT DRIVE NO IN CIO INSTR P * P* P N P SRN A2,A3 DRIVE NO IN A3 P X * P CF A5,SETCIO PUT DRVE NO IN CIO-INSTR P z P LDK A2,/14 LOCK P P CF A5,FD:REA P P LD A2,DWTA3,A6 DRIVE IND. P P ANK A3,1 P
0x30cadc…30cc70 Dummy {f00=0x00ea, f01=0x018e, f02=»ON25 P P* Q P IFT OPCLOS=1 Q P* Q , D P* RESTORE OPEN/CLOSE STATUS TO SAME VALUE AS BEFORE POWER OFF Q 6 P* Q ~ $ P LD A2,DWTOCF,A6 OPEN/CLOSE FLAG Q " P ORS A2,SPDLCI TO STATUS WORD Q P CM DWTOCF,A6 CLEAR FLAG Q $ P LD A2,SPDLCI OPEN
0x30cc70…30ce04 Dummy {f00=0x00ea, f01=0x0190, f02=» Q P* R P CM DWTA2,A6 RESET FDON FLAG R PFDON60 EQU * R 6 P LD A8,DWTECB,A6 R J 0 P ABL(Z) END:IO NO REQUEST, RETURN VIA TENDIO R b P* R P* RETRY REQUEST R P* R P IM DWTRTY,A6 INDICATE RETRY R P LD A7,DWTORD,A6 R , P ST A7,DWT
0x30ce04…30cf98 Dummy {f00=0x00ea, f01=0x0190, f02=»* R P EJECT DRFD01 S P* S " P******************** S , P* * S H P* READY INTERRUPT * S d P* * S P******************** S P* S PFDRE EQU * S P LD A2,DWTA2,A6 S * P RB(NZ) F:DISP POWER ON ROUT
0x30cf98…30d12c Dummy {f00=0x00ea, f01=0x0190, f02=»* S P IFF TOSS+IBM=0 T P CM DWTST,A6 SET UNIT BUSY T " P RB FDONVL READ VOLUME NAMES T D P XIF T h P* T t P EJECT DRFD01 T ~ P* T P********************* T P* * T P* INTERRUPT HANDLER * T P*
0x30d12c…30d2c0 Dummy {f00=0x00ea, f01=0x0190, f02=» CF A15,SAVE8 SAVE REGISTERS ON STACK T P XIF U . P* U : P IFT CPU852=0 U D " P MSR 8,A15 SAVE A1-A8 ON STACK U Z P XIF U P* U P LDKL A6,DWFD01 DWT ADDRESS U P IFT CHAN=1 U P ENB U & P LD A1,DWTUB,A6 GET BUFFER POINTER U " P LD
0x30d2c0…30d454 (2, 225) Dummy {f00=0x00ea, f01=0x0190, f02=»RRUPT U x P LD A3,PFPOST V , P RF(NZ) IHDISP POST PROCESSING FLAG SET V $ ( P LD A3,DWTRW,A6 READ/WRITE INDICATOR V T P RF(NZ) IH050 READ V P* V P EJECT DRFD01 V P* V P* V PIH010 EQU * V $ P LDR* A3,A1 ONE WORD FROM BUFFER V
0x30d454…30d5e8 Dummy {f00=0x00ea, f01=0x018e, f02=» A2,0,CUADR CIO HALT V PIHDISP EQU * W P ABL TDISP GOTO DISPATCHER W 0 P* W R PIH050 EQU * W P INR A3,0,CUADR READ W p P RB(NA) IH005 W " P STR A3,A1 ONE WORD TO BUFFER W $ P ADK A1,2 UPDATE BUFFER POINTER W P SUK A2,2 W P RB(P)
0x30d5e8…30d77c Dummy {f00=0x00ea, f01=0x0190, f02=» P* X P EJECT DRFD01 X P* X & P* X 0 P IFT CHAN=0 X : P SST A3,CUADR STATUS X N P XIF X j P LD A8,DWTECB,A6 ECB ADDRESS X v " P LD A5,DWTA5,A6 STACK POINTER X P LDR A2,A3 STATUS X P SLL A2,1 X P RB(N) FDRE READY INTERRUPT
0x30d77c…30d910 Dummy {f00=0x00ea, f01=0x0190, f02=»LT, NOT OPERABLE X ~ P RF(Z) IH:10 RETURN CODE OK Y P ORK A3,4 Y < PIH:10 EQU * Y N P* Y b P EJECT DRFD01 Y l P* Y & P* TRANSFORM RETURN CODE, CU - ECB Y P* Y P ANKL A3,/FF37 Y P RF(Z) IH:80 Y P LDR A1,A3 Y " P ANKL A3,/
0x30d910…30daa4 Dummy {f00=0x00ea, f01=0x0190, f02=»O Y x PIH:70 EQU * Z P LDR A4,A1 Z P ANKL A4,/0400 BIT 5 Z 0 P SLC A4,7 TO BIT 14 Z L P ORR A3,A4 Z h P* Z z P IFT TOSS+IBM=0 Z P LDR A4,A1 Z P ANKL A4,/2000 BIT 2 Z P SLL A4,1 TO BIT 1 Z P ORR A3,A4 Z P XIF Z P* Z
0x30daa4…30dc38 Dummy {f00=0x00ea, f01=0x018e, f02=» Z ~ P ORR A3,A1 [ , P ORRS A3,A6 UPDATE TEMPORARY RETURN CODE [ P ANKL A3,/F7FF [ J PIH:80 EQU * [ ` P LDR A1,A3 [ t P RTN A5 [ P* [ P EJECT DRFD01 [ P* [ 0 P******************************************* [ 0 P*
0x30dc38…30ddcc Dummy {f00=0x00ea, f01=0x0190, f02=» 0 P******************************************* P* 8 P******* B P* * R P* BIO * b P* * r P******* P* P* INPUT: A8 ECB ADDRESS P* A4 ORDER P* > P* OUTPUT: A2 BITS 0-12 OF CONTRO
0x30ddcc…30df60 Dummy {f00=0x00ea, f01=0x0190, f02=»EQU * & P LD A1,DWTCW2,A6 GET SECTOR NUMBER ] ( P SLL A1,3 PUT IN RIGHT BIO POSITION ] 8 6 P LD A2,DWTSIO,A6 GET NUMBER OF SECTORS IN THIS IO ] d P SRC A2,2 ] P ORR A2,A1 COMPLETE BIO ] & P ADR A2,A4 COMPLETE BIO WITH ORDER ] " P LD A4,DWTBA,A
0x30df60…30e0f4 (2, 226) Dummy {f00=0x00eb, f01=0x0190, f02=»************* ] P* * ^ P* BIOSQ * ^ 0 P* * ^ J P***************** ^ d P* ^ ~ P* INPUT: A8 ECB ADDRESS ^ P* A4 ORDER ^ P* ^ > P* OUTPUT: A2 BITS 0-12 OF CONTROL WORD USED BY CIO S
0x30e0f4…30e288 Dummy {f00=0x00eb, f01=0x0190, f02=» IBM=1 ^ & P LD A2,ECBCW2,A8 GET SECTOR NUMBER _ ( P SLL A2,3 PUT IN RIGHT BIO POSITION _ 8 & P ADR A2,A4 COMPLETE BIO WITH ORDER _ d P* _ P IFT MMUPAG=0 _ & P LD A4,ECBBA,A8 GET BUFFER ADDRESS _ P XIF _ P* _ P IFT IBM=1 _ P IFT MMU
0x30e288…30e41c Dummy {f00=0x00eb, f01=0x0190, f02=» RTN A5 _ P XIF ` P* ` P EJECT DRFD01 ` & P* ` < P****************** ` F P* VO:NAM * ` ` P****************** ` z P* ` P* ` PVO:NAM EQU * ` P IFT TOSS+IBM=2 ` P LDK A3,36 LENGTH ` P XIF ` P* ` P IFT
0x30e41c…30e5b0 Dummy {f00=0x00eb, f01=0x0190, f02=»DKL A4,BUF READ TO BUFFER ` P CF A5,FD:REA a " P ANK A3,/17 FATAL ERROR a 8 P RF(NZ) VOL:40 a X P IFT IBM=1 a n P LD A2,BUF+32 a P CWK A2,'TO' a P RF(NE) VOL:10 IBM DISC a P LD A2,BUF+34 GET NEXT WORD a P CWK A2,'SS' a P RF(NZ
0x30e5b0…30e744 Dummy {f00=0x00eb, f01=0x0190, f02=» DRFD01 a P* b P* b P IFT TOSS=1 b & P LDKL A2,BUF b : P IFT IBM=1 b N P RF VOL:20 b ` P XIF b r P* b ~ P IFT IBM=1 b PVOL:10 EQU * b P LDK A3,10 LENGTH b P LDK A2,/30 BIO b P LDKL A4,BUF READ TO BUFFER b P CF
0x30e744…30e8d8 Dummy {f00=0x00eb, f01=0x0190, f02=»TE IBM b x P LDKL A1,/400 c , P ORRS A1,A6 UPDATE TEMPORARY RETURN CODE c $ P LDK A7,10 NO OF CHARACTERS c T 2 P CF A5,ASCII TRANSFER IBM VOLUME NAME TO ASCII c x 0 P LDKL A2,BUF+4 START ADDRESS OF VOLUME NAME c P XIF c P* c P EJECT DRFD01
0x30e8d8…30ea6c Dummy {f00=0x00eb, f01=0x0190, f02=»L:30 NOT TEST STATUS c * P ORKL A3,/8000 INDICATE NO NEW NVL SET d PVOL:30 EQU * d J . P CF A15,VOLGET VOLUME NAME TO DWT SET NVL d ^ P LD A8,DWTECB,A6 d P LDK A3,0 d PVOL:40 EQU * d P RTN A5 d P XIF d P* d P IFT IBM=1 d P E
0x30ea6c…30ec00 Dummy {f00=0x00eb, f01=0x0190, f02=»FROM EBCDIC TO d h P* ASCII CODE e . P* INPUT STRING ADDRESS IS BUF e 6 & P* INPUT: A7 NO OF CHARACTERS e h P* A4 = BUFFER ADDRESS e P* OUTPUT: A1 CHANGED e P* A4 = BUFFER ADDRESS e P* A7
0x30ec00…30ed94 (2, 227) Dummy {f00=0x00eb, f01=0x018e, f02=»FT IBM=1 e P ENB f P ADR A4,A7 f PASC:10 EQU * f . P SUK A4,1 f B P LCR A1,A4 EBCDIC CHARACTER f T P ANK A1,/FF f x ( P LC A1,TASCII,A1 TRANSFORM TO ASCII f 0 P SCR A1,A4 PUT ASCII CHAR. IN OUTPUT BUFFER f P SUK A7,1 f P RB(P) ASC
0x30ed94…30ef28 Dummy {f00=0x00eb, f01=0x0190, f02=» < P* FUNCTION: EBCDIC TRANSFORMES A STRING FROM ASCII TO g P* EBCDIC CODE g D 8 P* OUTPUT STRING IS PUT IN DRIVER BUFFER g f P* g & P* INPUT: A7 NO OF CHARACTERS g P* A4 = BUFFER ADDRESS g P* g P* OUT
0x30ef28…30f0bc Dummy {f00=0x00eb, f01=0x018e, f02=»PAG=1 g & P LDKL A4,BUF DRIVER BUFFER ADDRESS h P XIF h 8 P* h D P IFT IBM=1 h N P ADR A4,A7 h ` PEBC:10 EQU * h r P SUK A4,1 h P LCR A1,A4 GET ASCII CHAR. h P ANK A1,/FF h P LC A1,TEBCDIC,A1 h P SC A1,BUF-1,A7 h P SUK A7,
0x30f0bc…30f250 Dummy {f00=0x00eb, f01=0x0190, f02=» h P* i P EJECT DRFD01 i P* i * P********** i 4 P* LOGSEC * i F P********* i X P* i j @ P* FUNCTION: LOGSEC TRANSFORMS PHYSICAL SECTOR TO STANDARD i t , P* LOGICAL SECTOR (BINARY). i < P* FORMAT OF PHYS. SE
0x30f250…30f3e4 Dummy {f00=0x00eb, f01=0x018e, f02=»* i & P* OUTPUT: A3 BINARY SECTOR NO j . P* A4 ADDRESS TO PHYS. SEC. + 4 j 4 P* j f PLOGSEC EQU * j p P CF A5,DECBIN j P LDR A3,A1 SAVE j P ADK A4,2 j P* j P* MULTIPLY BY 26 j P* j P SLL A3,5 *32 j P
0x30f3e4…30f578 Dummy {f00=0x00eb, f01=0x0190, f02=» P ADR A3,A1 k P* k P EJECT DRFD01 k P* k 8 P* CHECK SECTOR NO k B P* k P LDR A1,A3 k f P SUK A1,25 k x P RF(NP) LOG:10 k P CWK A4,BUF+EOD+4 EOD k P RF(E) LOG:02 YES! k P SUKL A1,1898 k P RF LOG:04 k P* k "
0x30f578…30f70c Dummy {f00=0x00eb, f01=0x0190, f02=» SUK A4,4 RESET BUFFER POINTER k P RTN A5 l & P* l 6 P* FATAL ERROR l @ P* l V ( PLOG:05 ADK A5,4 ADJUST STACK POINTER l ` " PLOG:10 LDK A1,/10 RETURN CODE l , P ORRS A1,A6 UPDATE TEMPORARY RETURN CODE l P INH INHIBIT INTERRUPTS l P ABL L
0x30f70c…30f8a0 Dummy {f00=0x00eb, f01=0x0190, f02=»* FUNCTION: DECBIN TRANSFORMS TWO EBCDIC CODED DIGITS TO l D P* BINARY. RANGE OF EBCDIC CODE /F0 - /F9 IS CHECKED m B , P* INPUT: A4 ADDRESS TO FIRST DIGIT m P* OUTPUT: A1 BINARY m P* WORKING REG: A2,A7 m P* m PDECBIN
0x30f8a0…30fa34 (2, 228) Dummy {f00=0x00eb, f01=0x0190, f02=»9 m P RB(P) LOG:05 NOT DIGIT n P ADK A2,9 n * P SUK A7,1 n < P RF(Z) DEC:30 n N & P ADK A4,1 ADDRESS TO SECOND DIGIT n d PDEC:20 SUK A2,1 n P RB(N) DEC:10 NEXT DIGIT n P ADK A1,/A MULTIPLY BY 10 n P RB DEC:20 n PDEC:30 ADR A1,
0x30fa34…30fbc8 Dummy {f00=0x00eb, f01=0x0190, f02=»* n 2 P* FUNCTION: PUT DRIVE NO IN CIO INSTRUCTION o P* o @ 8 P* INPUT: A3 DRIVE NO , (BITS 0-13 MUST BE ZEROES o J P* o P* OUTPUT: A3 CHANGED o P* A4 CHANGED o P* o PSETCIO LDKL A4,/FFCF o P ANS A4,FD:CIO o P
0x30fbc8…30fd5c Dummy {f00=0x00eb, f01=0x0190, f02=»* BINDEC * o P********** p P* p $ : P* FUNCTION: BINDEC TRANSFORMS A BINARY NUMBER TO TWO p . 0 P* EBCDIC-CODED DIGITS (DECIMAL) p l P* p P* INPUT: A7 BINARY NUMBER p P* p . P* OUTPUT: A3 EBCDIC CODED DECIMAL DIGITS p
0x30fd5c…30fef0 Dummy {f00=0x00eb, f01=0x0190, f02=»N:10 p PBIN:20 ADK A7,10 q P SLL A3,8 q $ * P ORR A3,A7 DECIMAL CONVERTED NO IN A3 q 6 P ORKL A3,/F0F0 EBCDIC CODED q d P RTN A5 q P* q P EJECT DRFD01 q P********* q P* DSLIO * q P********* q P* q 4 P* FUNCTION:
0x30fef0…310084 Dummy {f00=0x00eb, f01=0x0190, f02=» 13-15 ZEROES q h P* A3 128 r ( P* A4 DRIVER BUFFER ADDRESS r 2 P* A6 DWT ADDRESS r ^ P* A1 IS CHANGED r P* r PDSLIO LDK A1,DWTDSS r P CF A5,DSPAD r P LDR* A2,A2 r P SLL A2,3 r P LDK A
0x310084…310218 Dummy {f00=0x00eb, f01=0x0190, f02=»**** r P* s 6 P* FUNCTION: GET EOD-NO AND EOD-NO ADDRESS IN DWT s P* s P P* INPUT: A6 DWT ADDRESS s Z P* s | P* OUTPUT: A2 EOD ADDRESS s , P* A7 EOD-NO (0=NOT OPEN) s P* A1 CHANGED s PDSOPCH LDK A1,DWTE
0x310218…3103ac Dummy {f00=0x00eb, f01=0x0190, f02=»DSPAD * s P********* t P* t " 2 P* FUNCTION: GET ABSOLUTE ADDRESS OF SPECIFIED t , 6 P* TYPE OF DATA FOR CORRESPONDING DRIVE t b P* t P* INPUT: A1 DWT OFFSET t P* A6 DWT ADDRESS t P* t " P* OUTPUT: A2 ADDRE
0x3103ac…310540 Dummy {f00=0x00eb, f01=0x018e, f02=» ADR A2,A6 t P ADR A2,A1 u P RTN A5 u $ P* u 4 P EJECT DRFD01 u > P* u V P********* u ` P* STDWT * u r P********* u P* u : P* FUNCTION: STORE INPUT WORD IN DWT-AREA DEPENDING OF u P* DRIVE NO u P* u ( P*
0x310540…3106d4 (2, 229) Dummy {f00=0x00eb, f01=0x018e, f02=» P* OUTPUT: A1 UNCHANGED v 0 P* A2 ADDRESS TO WORD IN DWT AREA v & P* A3 UNCHANGED v Z P* A6 UNCHANGED v | P* v PSTDWT EQU * v P CF A5,DSPAD v P STR A3,A2 v P RTN A5 v P XIF v P* v P
0x3106d4…310868 Dummy {f00=0x00eb, f01=0x0190, f02=» P XIF w P* w P IFT TOSS=1 w P IFT IBM=0 w . " P DATA 0,0,0 VOLUME NAME BUFFER w @ P IFT MMUPAG+CHAN=2 w f P RES DVBLEN-3 MMU BUFFER w P XIF w P* w P IFT TOSS+IBM=0 w P IFT MMUPAG+CHAN=2 w P RES DVBLEN MMU BUFFER w P X
0x310868…3109fc Dummy {f00=0x00eb, f01=0x018e, f02=» w z P* * x P********************* x & P* x D PDWFD01 EQU * x N ( PDWTRCW EQU *-DWFD01 TEMP RETURN CODE x b P DATA 0 x P DATA /8000 DWT STATUS x P DATA 0 ECB ADDRESS x P DATA 0 ORDER x " P DATA FDADR ACTIVATION ADD
0x3109fc…310b90 Dummy {f00=0x00eb, f01=0x0190, f02=» x & " DATA 0 SAVE AREA USER ECB ADDRESS y DATA DEVECB MMU ECB ADDRESS y 2 XIF y V P* y b PDWTA3 EQU *-DWFD01 y l P DATA 0 y P DATA 0 SAVE AREA y P DATA 0 y P DATA 0 y " P DATA 0,0,0,0 STACK (3 LEVELS) y P DATA 0 ORDER SAVE
0x310b90…310d24 Dummy {f00=0x00eb, f01=0x0190, f02=»000 NVL INDICATOR 1 y P DATA /8000 NVL INDICATOR 2 z P DATA /8000 NVL INDICATOR 3 z @ ( PDWTVO0 EQU *-DWFD01 VOLUME NAME NO 0 z d P DATA /FFFF,/FFFF,/FFFF z ( PDWTVO1 EQU *-DWFD01 VOLUME NAME NO 1 z P DATA /FFFF,/FFFF,/FFFF z ( PDWTVO2 EQU *
0x310d24…310eb8 Dummy {f00=0x00eb, f01=0x0190, f02=» ( PDWTST2 EQU *-DWFD01 SAVE STATUS WORD { P DATA 0 { 0 P XIF { @ PDWTA5 EQU *-DWFD01 { L P DATA 0 { f * PDWTRTY EQU *-DWFD01 RETRY REQUEST FLAG { v P DATA 0 { $ PDWTTP EQU *-DWFD01 TIMER POINTER { P DATA 0 { P* { P EJECT DRFD01 {
0x310eb8…31104c Dummy {f00=0x00eb, f01=0x0190, f02=»EQU *-DWFD01 DRIVE LOCK INDICATOR { P DATA 0 | * P* | : P IFT OPCLOS=1 | D . PDWTTP2 EQU *-DWFD01 TIMER POINTER FOR OPEN | Z P DATA 0 | 4 PDWTOCF EQU *-DWFD01 OPEN/CLOSE FLAG AT POWER ON | P DATA 0 | P XIF | P* | P EJECT DRFD0
0x31104c…3111e0 Dummy {f00=0x00eb, f01=0x0190, f02=»-DWFD01 BUFFER END ADDRESS+2 | P DATA 0 } $ , PDWTRW EQU *-DWFD01 READ/WRITE INDICATOR } 4 P DATA 0 } d P XIF } t P* } P IFT IBM=1 } , PDWTBOE EQU *-DWFD01 BEGINNING OF EXTENT } P DATA 0,0,0,0 } $ PDWTEOD EQU *-DWFD01 END OF DATA }
0x3111e0…311374 (2, 230) Dummy {f00=0x00ec, f01=0x0190, f02=»ATA 0,0,0,0 } . PDWTDSS EQU *-DWFD01 DATA SET LABEL SECTOR ~ P DATA 0,0,0,0 ~ F P XIF ~ P* ~ h P EJECT DRFD01 ~ r P* ~ P* ~ & PDWTBA EQU *-DWFD01 BUFFER POINTER ~ P DATA 0 ~ ( PDWTRL EQU *-DWFD01 LENGTH IN SUB IO ~ P DAT
0x311374…311508 Dummy {f00=0x00ec, f01=0x0190, f02=»DWTSIO EQU *-DWFD01 NUMBER OF SECTORS IN SUB IO ~ P DATA 0 8 P* H P IFT IBM+TOSS=2 R & PDWTFIB EQU *-DWFD01 IBM INDICATOR j P DATA 0 P XIF P* P EJECT DRFD01 P* P* P IFT MMUPAG=1 PDWT:BF EQU *
0x311508…31169c Dummy {f00=0x00ec, f01=0x4152, f02=»T:PA EQU *-DWFD01 * P DATA 0 6 BIT PHYSICAL BUFFER ADDRESS P DATA 0 SECOND MMU ENTRY H P* h PDWT:LA EQU *-DWFD01 r * P DATA 0 16 BIT LOGICAL BUFFER ADDRESS P XIF P* P IFT MMUPAG=1 PDEVECB EQU * P DATA 0,0,0,
0x31169c…311830 Dummy {f00=0x00ec, f01=0x2008, f02=» END @
0x311830…3119c4 Dummy {f00=0x00ec, f01=0x0190, f02=» P* PVO:NAM EQU * P CF A5,SEEKZ SEEK SECTOR 0 " P ANK A1,1 F 6 P RF(NZ) VO:NA8 SEEK-,THROUGHPUT ERROR,NOT OPERABLE X P CMR A6 SECTOR 0 P IFT NUNITS=2 P CF A5,INXUNI P CM DWTCYL,A2 CYLINDER 0 P XIF P IFT N
0x3119c4…311b58 Dummy {f00=0x00ec, f01=0x018e, f02=» BUFFER t P CF A5,READ P ANK A1,3 $ 0 P CF A5,BSELOD UPDATE DRIVER BUFFER INDICATOR 6 P XIF j P* v P IFT VERSA3=0 $ P LDKL A1,/8019 READ SECTOR ZERO $ P LDKL A2,BUFFER TO DRIVER BUFFER P CF A5,CIO:50 P ANK A1,3 ER
0x311b58…311cec Dummy {f00=0x00ec, f01=0x018e, f02=» x P LD A1,DWTSAV,A6 P RF(Z) VO:NA6 ( P LDKL A3,/80F0 INDICATE TEST STATUS 6 PVO:NA6 EQU * b 2 P CF A15,VOLGET VOLUMR NAME TO DWT INDICATE NVL v P EJECT DRDU01 P* P* PDUNA40 EQU * P LDK A1,1 6 P LDK A7,1
0x311cec…311e80 Dummy {f00=0x00ec, f01=0x0190, f02=» x 4 P LD A2,BUFFER+40 CHECK IF RELEASE 10 OR GREATER P CWK A2,/2031 @ $ P RF(NE) DUNA70 REL LESS THAN 10 V : P LD A2,BUFFER+48 GET FORMAT AND DEVICE TYPE PARAMETER ~ 4 PTRANPA EQU * LABEL FOR TRANSFER PARAMETER ORDER * P CF A15,INXDWT GET I
0x311e80…312014 (2, 231) Opaque[0x194]
0x312014…3121a8 # DirEnt {nam=»DRDC15«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x1d88, f03=0x0000}
0x312014…3121a8 IdxSect {
0x312014…3121a8 f00 = 0x00ec // 0x312014 @0x0
0x312014…3121a8 f01 = 0x002e // 0x312016 @0x2
0x312014…3121a8 gno = [ // 0x312018 @0x4
0x312014…3121a8 [0x00]: C0x00ec.0x1.0
0x312014…3121a8 [0x01]: C0x00ec.0x2.0
0x312014…3121a8 [0x02]: C0x00ec.0x3.0
0x312014…3121a8 [0x03]: C0x00ed.0x0.0
0x312014…3121a8 [0x04]: C0x00ed.0x1.0
0x312014…3121a8 [0x05]: C0x00ed.0x2.0
0x312014…3121a8 [0x06]: C0x00ed.0x3.0
0x312014…3121a8 [0x07]: C0x00ee.0x0.0
0x312014…3121a8 [0x08]: C0x00ee.0x1.0
0x312014…3121a8 [0x09]: C0x00ee.0x2.0
0x312014…3121a8 [0x0a]: C0x00ee.0x3.0
0x312014…3121a8 [0x0b]: C0x00ef.0x0.0
0x312014…3121a8 [0x0c]: C0x00ef.0x1.0
0x312014…3121a8 [0x0d]: C0x00ef.0x2.0
0x312014…3121a8 [0x0e]: C0x00ef.0x3.0
0x312014…3121a8 [0x0f]: C0x00f0.0x0.0
0x312014…3121a8 [0x10]: C0x00f0.0x1.0
0x312014…3121a8 [0x11]: C0x00f0.0x2.0
0x312014…3121a8 [0x12]: C0x00f0.0x3.0
0x312014…3121a8 [0x13]: C0x00f1.0x0.0
0x312014…3121a8 [0x14]: C0x00f1.0x1.0
0x312014…3121a8 [0x15]: C0x00f1.0x2.0
0x312014…3121a8 [0x16]: C0x00f1.0x3.0
0x312014…3121a8 ]
0x312014…3121a8 }
0x3121a8…31233c Dummy {f00=0x00ec, f01=0x0190, f02=» 2 P IDENT DRDC15 REL 10.0 80-06-30 870105041000 P : P TRANSP.MODE,2/4-WIRE B P REL 10.0 80-03-14 b P =11, DC:MIN HEADER LENGTH ~ P REL 10.1 80-01-25 P =10,WRONG LABEL IF SALCUZ P REL 10.1 79-12-04 & P =9, OLL
0x31233c…3124d0 Dummy {f00=0x00ec, f01=0x0190, f02=»II-MODE FOR SALCUZ P REL 9.1 79-07-19 & P =7, ACK IN CONVERSATIONAL MODE 6 P REL 9.1 79-07-19 ` * P =6, DCTASK BUFFER ADDRESS DESTROYED | P REL 9.1 79-05-23 $ P =5, INCOMPLETE POLL SEQUENCE P REL 9.1 79-05-23
0x3124d0…312664 Dummy {f00=0x00ec, f01=0x018e, f02=» HANDLING P PRR 9.1 78-11-29 P =1, MSR-INSTRUCTION . P PRR 9.1 78-11-14 L P REL 8.2 78-11-14 h P P* P* 2 P********************************************* P* $ P* PHILIPS TERMINAL SYSTEM PTS P
0x312664…3127f8 Dummy {f00=0x00ec, f01=0x0190, f02=» r P* P* P* P* & P* 0 8 P**************************************************** : P EJECT v P* P* P* ENTRY POINTS P* 2 P ENTRY DC15AD ADDRESS BLOCK TERMINAL REQUESTS " P ENTRY IH1501 INPUT INTERR
0x3127f8…31298c Dummy {f00=0x00ec, f01=0x0190, f02=»* P* EXTERNAL REFERENCES P* ( P* 2 " P EXTRN TDISP DISPATCHER ENTRY < ( P EXTRN SAVE8 SAVE A1-A8 ON A15 STACK b $ P EXTRN TENDIO COMPLETE I/O EVENT P EXTRN DISIOE REQUEST ERROR P EXTRN SETIME SET TIMER P EXTRN DWTST D
0x31298c…312b20 Dummy {f00=0x00ec, f01=0x0190, f02=»IC ASCII TO EBCDIC TABLE ( P EXTRN TASCII EBCDIC TO ASCII TABLE $ P EXTRN ECBBA ECB BUFFER ADDRESS L & P EXTRN ECBRL ECB REQUESTED LENGTH t & P EXTRN ECBEL ECB EFFECTIVE LENGTH P EXTRN ECBRC ECB RETURN CODE " P EXTRN ECBCW ECB CONTROL WOR
0x312b20…312cb4 (2, 232) Dummy {f00=0x00ec, f01=0x0190, f02=»ND DISPATCH p * P EXTRN PFPOST WAIT FOR POWER UP IF SET P EJECT B P* P P* Z P* d P* n 6 P* STANDARD INTERFACE PART FOR DATA COMMUNICATION x P* P* P* P* P* DWT CONTENTS P* J P* DWTCHP TERMI
0x312cb4…312e48 Dummy {f00=0x00ec, f01=0x0190, f02=»******* ` P* * P* PARAMETERS FOR CONDITIONAL ASSEMBLY P* H P* R & PX:A EQU 2000 RECEIVE BUFFER LENGTH PRBUFL EQU 010 PX:B EQU /60 DCTASK FILE CODE PDC15FC EQU /60 $ PX:C EQU 1 IF 1 INTERRUPT LOGGING PLOGG EQU 0
0x312e48…312fdc Dummy {f00=0x00ec, f01=0x0190, f02=»EQU 0 READ COMMAND HANDLING IF=1 PRCOM EQU 0 ( & PX:G EQU 254 TRANSMIT BLOCK LENGTH : PTBLEN EQU 130 d ( PX:H EQU 0 CODE , 0=ASCII , 1=EBCDIC z PCODE EQU 1 * PX:I EQU 1 IF 1 SPECIFIC POLL HANDLING PSPECP EQU 1 , PX:J EQU 1 IF =
0x312fdc…313170 Dummy {f00=0x00ec, f01=0x0190, f02=» j PMSV1 EQU 0 . PX:L EQU 2 NUMBER OF RECEIVE BUFFERS (2-5) PRBUFNR EQU 1 L . PX:M EQU 0 IF = 1 PTS 6805 ADAPTION SALCUZ ` PP6805 EQU 00 PX:N EQU /02 P IFT P6805=0 , PLCUIN EQU 02 DEVICE ADDRESS OF RECEIVER P XIF
0x313170…313304 Dummy {f00=0x00ec, f01=0x0190, f02=»LING l . PX:P EQU 0 IF 1 MESSAGE PASSING TO DC TASK PMESPAS EQU 0 > 4 PX:Q EQU 0 IBM-3270 EMULATION PACKAGE, IF NOT = 0 R PEM3270 EQU 0 PX:R EQU 1000 $ PTBUFL EQU 070 MMU BUFFER LENGTH * PBINTRM EQU 0 IF 1 BINARY TRANSMISSION , P
0x313304…313498 Dummy {f00=0x00ec, f01=0x0190, f02=»AME THAT h 0 P DOESN'T ACCEPT WACK RESPONSE TO A SELECT 0 P SEQUENCE, NOWACK SHOULD BE SET TO "ONE". D , P ONLY WORKING IF STAT IS SET TO "ONE". x P IFT P6805=0 SALCUZ < PLCUUT EQU LCUIN+/10 DEVICE ADDRESS OF TRANSMITTER SALCUZ P XIF
0x313498…31362c Dummy {f00=0x00ec, f01=0x0190, f02=» TRANSPARENT MODE IF = 1 P* P EJECT * P* 8 P* B . P***************************************** L P* ~ P* CONDITIONAL ASSEMBLY P* . P***************************************** P* . P* A PROGRAM VERSION USING TO
0x31362c…3137c0 Dummy {f00=0x00ec, f01=0x0190, f02=»N USING THE EXTENDED INSTRUCTION ~ . P* SET IS OBTAINED BY SETTING CPU852 EQU 0. ( P* Z PCPU852 EQU 0 d P* x 2 PDEVIND EQU -2 DEVICE INDEX DATA COMMUNICATION * PBUFLEN EQU TBUFL+TBUFL MMU BUFFER SIZE P* P EJECT P* P
0x3137c0…313954 (2, 233) Dummy {f00=0x00ec, 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+
0x313954…313ae8 Dummy {f00=0x00ec, f01=0x018e, f02=»+/0C REQUEST TIMER VALUE P* P EJECT * P* 8 P* REQUEST HANDLING B P* P* f P* p P* A7=ORDER z P* P* /02: READ P* /06: WRITE P* /37: TRANSFER PARAMETERS P* /38: SET STATUS $ P* /39: SET REQ
0x313ae8…313c7c Dummy {f00=0x00ec, f01=0x018e, f02=» l * PDCSTOL DATA 0 OLD DC EQUIPMENT STATUS PDCSTCU DATA 0 CURRENT STATUS 6 $ PDCWRQ DATA 0 WRITE REQUEST QUEUE Z , PDCTPGP DATA 0 TIMER POINTER GENERAL POLL & PDCLCI DATA 0 DC UNIT INPUT STATUS P EJECT P* P* DC TASK ADDRESS BL
0x313c7c…313e10 Dummy {f00=0x00ec, f01=0x0190, f02=» h & P DATA ABORT ABORT ROUTINE ADDRESS $ P DATA DCRBUF REC. BUFFER ANCHOR 2 P DATA 6 HEADER LENGTH =11 Z P* | P* DRIVER ADDRESS BLOCK P* P DATA BUFLEN MMU BUFFER SIZE P DATA DEVIND DEVICE INDEX ( PDC15AD DATA DCACT AC
0x313e10…313fa4 Dummy {f00=0x00ec, f01=0x018e, f02=»ENGTH =11 P* , P RES 15 SUBROUTINE STACK FOR INTERRUPTS PSTB RES 1 L " P RES 1 AND FOR TRANSFER PARAM ^ PSTB2 RES 1 P P IFT SPEED=1 PLSPEED EQU /0200 P XIF P IFT SPEED=0 PLSPEED EQU 0 P XIF
0x313fa4…314138 Dummy {f00=0x00ec, f01=0x0190, f02=» r P IFT EM3270=1 =4 P LDR A7,A7 =4 " & P RF(Z) ANYMSG ANY MESSAGE ORDER =4 8 P XIF b P SUK A7,/02 n P RF(Z) DCRD READ SPECIFIC P SUK A7,/06-/02 P RF(Z) DCWR P SUK A7,/37-/06 $ P RF(Z) DCTP TRANSFER PARAMETERS
0x314138…3142cc Dummy {f00=0x00ec, f01=0x0190, f02=»ER r P XIF P P IFT STAT=0 P SUK A7,/39-/37 2 $ P RF(Z) REQTIM SET REQUEST TIMER J P XIF r P RF DCA100 ~ P EJECT P* P* P* ACTIVATION FROM DCTASK P* P* PDCACTD EQU * $ P SUR A1,A1 PRE
0x3142cc…314460 Dummy {f00=0x00ec, f01=0x0190, f02=»/02 P RF(E) DCRDDC READ P SUK A7,/37-/02 & $ P RF(E) DCTP TRANSFER PARAMETERS > P f PDCA100 EQU * REQUEST ERROR n P ABL DISIOE INVALID ORDER P* P* P* READ FROM DCTASK P* P* P* REQUEST FROM DC-TA
0x314460…3145f4 (2, 234) Dummy {f00=0x00ed, f01=0x0190, f02=» * , P CF A15,CKMESS CHECK IF MESSAGE RECEIVED PDCRTN EQU * : P ABL TDISP GO TO DISPATCHER N P IFT EM3270=1 =4 r P EJECT . P***************************************** P* P* ANY MESSAGE ORDER P* " P**********
0x3145f4…314788 Dummy {f00=0x00ed, f01=0x0190, f02=»COMPLETE REQUEST =4 P XIF P EJECT ( P* 6 P* @ P* TRANSFER PARAMETERS J P* h P* r > P* REQUEST FROM DC-TASK: TRANSFER TERMINAL COMPUTER ADDRESS | : P* FROM TERMINALS: TRANSFER TERMINAL ADDRESSES P* P*
0x314788…31491c Dummy {f00=0x00ed, f01=0x0190, f02=» n P ANK A2,/FF P RF(Z) DCTP10 ( P LC A2,TASCII,A2 TRANSLATE TO ASCII 2 P SLL A2,8 ^ PDCTP10 EQU * p $ P LC A3,ECBCW+1,A8 GET TCP OR DV P ANK A3,/FF ( P LC A2,TASCII,A3 TRANSLATE TO ASCII P XIF ( P STR A2,A6 SAVE
0x31491c…314ab0 Dummy {f00=0x00ed, f01=0x0190, f02=»RL,A8 CURSOR ADDRESS WORD P ST A3,DWTCUR,A6 " P XIF : " P CWK A6,DW1500 DCTASK DWT ??? F 2 P RF(E) DCTP30 YES!!! SHOULD NOT BE IN DC:TAB l * P LD A1,DC:IN GET DC:TAB INPUT POINTER * P CWK A1,DC:END TABLE ALREADY FULL ???? & P ABL(E) DI
0x314ab0…314c44 Dummy {f00=0x00ed, f01=0x0190, f02=»ST TABLE POS. =3 * PDCTP22 SUK A4,2 ADDR. TO NEXT ENTRY =3 * P CW A4,DCTAB ALL ENTRIES CHECKED?? =3 F * P RF(E) DCTP25 YES.DWT NOT IN TABLE =3 t P CWR* A6,A4 IN TABLE ?? =3 P RF(E) DCTP30 YES!! =3 " P RB DCTP22 CHECK NEXT ENTRY =3 P
0x314c44…314dd8 Dummy {f00=0x00ed, f01=0x0190, f02=» * P ADS A1,DC:TAB INCREMENT DC:TAB LENGTH P IFT STAT=1 6 P LDK A1,4 DEVICE END J P ORS A1,DWTST,A6 f ( P CF A15,INSSQ INSERT IN STATUS QUEUE ~ P XIF PDCTP30 EQU * P SUR A1,A1 RETURN CODE ::= 0 PENDIO EQU * $ P CF A1
0x314dd8…314f6c Dummy {f00=0x00ed, f01=0x0190, f02=»N: P* SUCCESFUL TRANSMISSION P* TIME OUT , P* @ P* J PDCWR EQU * T P IFT MMUPAG=1 f $ P LD A1,ECBRL,A8 REQUESTED LENGTH | " P CWK A1,BUFLEN ILLEGAL LENGTH? P RF(G) IL:LEN YES!! P XIF P CF A15,TIMEWR SET TIM
0x314f6c…315100 Dummy {f00=0x00ed, f01=0x018e, f02=»TE WHEN: P* MESSAGE RECEIVED P* TIME OUT , P* @ P* J PDCRD EQU * T P LD A8,DWTECB,A6 GET ECB f . P LD A4,DWTRQ,A6 AND RECEIVE MESSAGE QUEUE " P RF(Z) DCRD10 NOTHING IN QUEUE P P P ( P LDR* A2,A4 TAKE T
0x315100…315294 (2, 235) Dummy {f00=0x00ed, f01=0x0190, f02=» P LDK A1,0 RESET RETURN CODE * P CF A15,DC:MIN MOV DATA TO USER BUFFER ( P RB DCRTN V P h $ PDCRD10 CF A15,TIMERE START TIMER p P RB DCRTN P EJECT P* P* P* SET STATUS P* P* P IFF STAT=0 P
0x315294…315428 Dummy {f00=0x00ed, f01=0x0190, f02=» P ST A1,DWTST,A6 P RB DCTP30 COMPLETE REQUEST PDCSS20 EQU * D P LD A1,DWTST,A6 X P ANK A1,9 p ( P RB(Z) DCSS10 WACK HAS NOT BEEN SENT PDCSS30 EQU * , P CF A15,INSSQ INSERT DWT IN STATUS QUEUE P LDK A1,4 SET DE
0x315428…3155bc Dummy {f00=0x00ed, f01=0x0190, f02=» EQU * " P LD A2,ECBCW,A8 TIMEOUT VALUE $ P ST A2,DWTTIM,A6 SAVE IT IN DWT 4 P RB DCTP30 TENDIO & DISPATCH P P* ( P* ILLEGAL APPLICATION BUFFER SIZE P* P 8 PIL:LEN LDKL A1,/8008 REQUEST ERROR + ILLEGAL LENGTH
0x3155bc…315750 Dummy {f00=0x00ed, f01=0x0190, f02=» P* READ TIMER=TIMERR ! P* ! $ PTIMERE EQU * ! . P LDR A1,A6 ! B . P LD A2,DWTTIM,A6 GET REQUEST TIMEOUT VALUE ! T P RF(Z) TIME10 NO TIMING ! P ST A2,TIMERR ! P CF A15,SETIME ! P DATA TOUTRE ! PTIMERR DATA 0 ! ( P ST A4,DWTTP
0x315750…3158e4 Dummy {f00=0x00ed, f01=0x0190, f02=» * ! P LDR A6,A1 FETCH DWT " P CM DWTTP,A6 " & PTOUTR1 EQU * " : " P LDK A1,/40 INDICATE TIME OUT " N $ PTOUTR2 RB ENDIO COMPLETE REQUEST " t P* " P* WRITE TIMER=TIMWR " P* " PTIMEWR LDR A1,A6 " . P LD A2,DWTTIM,A6 GET REQUEST TIMEOUT
0x3158e4…315a78 Dummy {f00=0x00ed, f01=0x0190, f02=»WTTP,A6 " P RB TIME10 # P EJECT # " P* # 0 P* TIMEOUT WRITE TIMER # : P* # X PTOUTWR EQU * # b P LDR A6,A1 FETCH DWT # v P CM DWTTP,A6 # * P CF A15,REMOVW REMOVE FROM WRITE QUEUE # P* # & P* THIS INSTRUCTION DOES NOT BELONG # P
0x315a78…315c0c Dummy {f00=0x00ed, f01=0x0190, f02=»ATE 'ACK NOT EXPECTED' # P CM FDWTUT $ P* $ 0 P* $ : P RB TOUTR1 $ D P EJECT $ V P* $ d P* $ n P* STOP REQUEST TIMING $ x P* $ & P* REMAINING TIME IS RETURNED IN A2 $ P* $ P* $ PCTIME EQU * $ & P LD A2,DWTTP,A6 GET TI
0x315c0c…315da0 Dummy {f00=0x00ed, f01=0x0190, f02=» $ x P CM DWTTP,A6 % PCTIM10 EQU * % P RF GBUF10 % 0 P EJECT % B P* % P P* GET RECEIVE BUFFER % Z P* % v $ P* CALLING SEQUENCE: CF A15,GRBUF % P* A4=0 IF NO BUFFER IS FREE % & P* ELSE A4 CONTAINS BUFFER ADDRESS % P* A2 AND A3 ARE DE
0x315da0…315f34 (2, 236) Dummy {f00=0x00ed, f01=0x0190, f02=»FER FREE % | . P LDR* A3,A4 REMOVE BUFFER FROM FREE CHAIN & P STR A3,A2 & B * PGBUF10 ADKL A15,4 ADJUST STACK POINTER & T P ABR* A15 RETURN TO CALLER & P EJECT & P* & P* & ( P* INSERT DWT IN WRITE REQUEST QUEUE & P* & P* A2,A3,A4 D
0x315f34…3160c8 Dummy {f00=0x00ed, f01=0x0190, f02=» $ P RF(Z) INSWQ3 END OF QUEUE FOUND ' P LDR A2,A3 ' , P RB INSWQ2 ' > PINSWQ3 ADR A4,A6 ' P P STR A4,A2 INSERT IN QUEUE ' h " P CMR A4 INDICATE END OF QUEUE ' P RB GBUF10 RETURN ' P* ' P* ' * P* REMOVE DWT FROM WRITE REQUEST QUEUE '
0x3160c8…31625c Dummy {f00=0x00ed, f01=0x0190, f02=» DWT-LINK TO BE REMOVED ' z PREM06 EQU * ( P ADR A4,A6 ( 4 PREM10 LDR* A3,A2 ( H & P RB(Z) GBUF10 NOT ON QUEUE: RETURN ( ` P CWR A3,A4 ( P RF(E) REM15 ( P LDR A2,A3 GET NEXT ( P RB REM10 ( PREM15 LDR* A3,A4 REMOVE ( P STR A3,A2
0x31625c…3163f0 Dummy {f00=0x00ed, f01=0x0190, f02=»A2,A3,A4 DESTROYED ( P* A6=DWT ) P* ) * ( PINSSQ LDKL A2,DCSTQ GET QUEUE ANCHOR ) 4 P LDK A4,DWTSQ ) ` P RB INSWQ2 ) v P* ) P* ) " P* REMOVE DWT FROM STATUS QUEUE ) P* ) P* A2,A3,A4 DESTROYED ) P* A6=DWT ) P* ) * PREMOVS
0x3163f0…316584 Dummy {f00=0x00ed, f01=0x0190, f02=»LOCATED RECEIVE BUFFER ) P* * P* A4=BUFFER ADDR * ( P* A2,A3 DESTROYED * @ P* * Z PQRBUF EQU * * d P IFT MESPAS=1 * x ( P LDKL A2,DW1500 QUEUE ON DC-TASK DWT * P XIF * P IFT MESPAS=0 * $ P LDR A2,A6 QUEUE ON TERMINAL DWT * P XIF
0x316584…316718 Dummy {f00=0x00ed, f01=0x0190, f02=» LDR A2,A3 * P RB QR100 + & PQR200 STR A4,A2 INSERT INTO QUEUE + $ " P CMR A4 INDICATE END OF QUEUE + N P RTN A5 + t P EJECT + P* + P* + 2 P* CHECK IF UNEXPECTED MESSAGE OR STATUS CHANGE + P* + 4 P* REGISTERS A1,A2,A3,A4,A6 AND A8
0x316718…3168ac Dummy {f00=0x00ed, f01=0x018e, f02=»UEST ? + ~ P CW A1,DWTOR,A6 , P RF(NE) CKM110 NO , & $ P LD A8,DWTECB,A6 ECB ADDR TO A8 , @ * P LD A3,DWTRQ,A6 A3=ADDR TO READ QUEUE , h " P RF(Z) CKM200 NO READ IN QUEUE , P , P , , P LDR* A2,A3 A2=ADDR TO NEXT READ BUFFER , . P ST A2,DWTRQ
0x3168ac…316a40 Dummy {f00=0x00ed, f01=0x0190, f02=» 0 P ST A4,ECBEL,A8 STORE NUMBERS OF CHARACTERS - P LD A4,-2,A3 - 8 . P ST A4,ECBCW,A8 STORE LINE DEVICE ADDRESS - L P - ~ P LDK A1,0 RESET RETURN CODE - & P LDR A4,A3 RECEIVE BUFFER ADDRESS - , P CF A15,DC:MIN MOVE DATA TO USER BUFFER - * PCKM1
0x316a40…316bd4 (2, 237) Dummy {f00=0x00ed, f01=0x0190, f02=»NOF TAKE CARE OF POLL TIME OUT - P CW A1,DCSTOL . & P ST A1,DCSTOL . < & P RB(E) CKM110 NO CHANGE OF STATUS . R * P ORKL A1,/2000 INDICATE STATUS CHANGE . | 0 P CF A15,TENDIO COMPLETE READ GENERAL REQUEST . P RB CKM110 . P EJECT . P . @ P**
0x316bd4…316d68 Dummy {f00=0x00ed, f01=0x0190, f02=» . x P / & PABORT LD A1,DWTTP,A6 TIMER POINTER / " P RF(Z) AB:10 NO TIMER RUNNING / : P CM* DWTTP,A6 KILL TIMER / ` P CM DWTTP,A6 / P / $ PAB:10 LD A1,DWTOR,A6 ORDER CODE / P SUK A1,2 / * P RF(Z) AB:RTN READ REQUEST. NO ACTION / P SUK
0x316d68…316efc Dummy {f00=0x00ed, f01=0x0190, f02=»WRITING DWT ADDRESS / P CWR A2,A6 0 P RF(NE) AB:RTN NOT THIS DWT 0 . P CM XACK RESET ACK EXPECTED 0 R P CM FDWTUT RESET WRITING DWT 0 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
0x316efc…317090 Dummy {f00=0x00ed, f01=0x0190, f02=»3-A8 0 ~ $ P* CALLING SEQUENSE: CF A15,STREG 1 P* 1 4 P* RESTORE 1 > $ P* CALLING SEQUENCE: CF A15,LDREG 1 P P* 1 x P* 1 PSTREG ST A3,LCA3 1 P ST A4,LCA4 1 P ST A5,LCA5 1 P ST A6,LCA6 1 P ST A7,LCA7 1 P ST A8,LCA8 1 P
0x317090…317224 Dummy {f00=0x00ed, f01=0x0190, f02=» PLCA5 EQU *-2 2 P LDKL A6,0 2 PLCA6 EQU *-2 2 * P LDKL A7,0 2 > PLCA7 EQU *-2 2 P P LDKL A8,0 2 d PLCA8 EQU *-2 2 v PRTNA15 EQU * 2 P ADKL A15,4 2 P ABR* A15 2 P EJECT 2 P* 2 P* 2 P* TIMER VALUES 2 P* 2 P*
0x317224…3173b8 Dummy {f00=0x00ed, f01=0x0190, f02=»HARACTER 2 v PSYN EQU /16 3 PSTX EQU /02 3 $ PETX EQU /03 3 8 PETB EQU /17 3 L PITB EQU /1F 3 ` PSOH EQU /01 3 t PENQ EQU /05 3 PDLE EQU /10 3 PEOT EQU /04 3 PNAK EQU /15 3 PESC EQU /1B 3 PSBA EQU /11 3 PGP EQU /
0x3173b8…31754c Dummy {f00=0x00ed, f01=0x018e, f02=»K1 EQU /31 3 PDC1 EQU /11 4 P IFT MSV1=0 4 & PWACK EQU /3B 4 : P XIF 4 N P IFT CODE=0 4 Z P IFT MSV1=1 4 n 0 PWACK EQU /BF =WABT - SIEMENS MSV1 PROCEDURE 4 P XIF 4 P IFT CODE=1 4 PPAR EQU /00 4 PWACK EQU /2C 4 PRVI EQU /4
0x31754c…3176e0 Dummy {f00=0x00ed, f01=0x0190, f02=» 4 P* 5 P* 5 P* PROCEDURE WORK AREAS 5 P* 5 : P* 5 D * PFDWTIN RES 1 CURRENT DWT FOR RECEPTION 5 N . PFDWTUT RES 1 CURRENT DWT FOR TRANSMISSION 5 | PXACK DATA 0 ACK EXPECTED 5 PXSEL DATA 0 SELECTED 5 PXETX DATA 0 ETX SENT 5 2 PXS
0x3176e0…317874 (2, 238) Dummy {f00=0x00ee, f01=0x0190, f02=»=SKIP SYNS, 1=DON'T SKIP 5 & PTPM DATA 0 IF =1 TRANSPARENT TEXT 6 P* 6 J PFECB RES 1 WRITING ECB 6 T ( PFECBBA RES 1 WRITING BUFFER ADDRESS 6 r & PFECBRL RES 1 WRITING BUFFER LENGTH 6 PFBAX DATA 0 BUFFER INDEX 6 0 PFBLST DATA 0 START OF LAST TRANS
0x317874…317a08 Dummy {f00=0x00ee, f01=0x0190, f02=»ENCE SAVE AREA 6 v P* 7 P* 7 $ P* 3270 SENSE/STATUS INFORMATION 7 * P* 7 R P* 7 P IFF STAT=0 7 f . PSSTAB EQU * S/S 0 : NO STATUS,DB,DE,DB+DE 7 z P* 7 P* 7 P DATA /4248 7 P DATA /4242 7 P* 7 2 PNOIR EQU /20 S/S 1 : N
0x317a08…317b9c Dummy {f00=0x00ee, f01=0x018e, f02=»NTROL UNIT FUNCTION CONTROL 7 P* 8 $ P IFT CODE=0 8 . PSYNC EQU /16 8 B P XIF 8 V P IFT CODE=1 8 b PSYNC EQU /32 8 v P XIF 8 P IFT P6805=0 8 PCBCARR EQU /100+LSPEED 8 P XIF 8 P IFT P6805=1 8 PCBSTOP EQU /00 8 P IFT CODE=
0x317b9c…317d30 Dummy {f00=0x00ee, f01=0x0190, f02=» 8 P* 9 ( P* LINE CONTROL UNIT SST STATUS BITS 9 P* 9 > PSBNOOP EQU /01 NOT OPERABLE 9 H $ PSBTHRU EQU /02 THROUGHPUT ERROR 9 l PSBCARR EQU /20 CARRIER OFF 9 P IFT P6805=0 9 & PSBERR EQU /23 SBNOOP+SBTHRU+SBCARR 9 P XIF 9 P IFT P68
0x317d30…317ec4 Dummy {f00=0x00ee, f01=0x0190, f02=»C RECEIVE MODE 9 P* : " P* ENTERED EVERY TIME A MESSAGE : & P* IS EXPECTED FROM THE MASTER SIDE : F P* : p P* : z PBRM EQU * : P LDKL A5,STB LOAD STACKBASE : P CM SYNSW CLEAR SYN-SWITCH : " P CM TPM CLEAR TRANSPARENT TEXT : , P CF A5
0x317ec4…318058 Dummy {f00=0x00ee, f01=0x0190, f02=» : t P* ; P* ; * P* CHECK IF IT IS A CONTROL CHARACTER ; P* ; J P LDR A1,A2 ; T P SUK A1,STX ; f P RF(Z) BRM300 STX RECEIVED ; z P SUK A1,EOT-STX ; P RF(Z) BRM200 EOT RECEIVED ; P SUK A1,ENQ-EOT ; P ABL(Z) BRM400 ENQ RECEIVE
0x318058…3181ec Dummy {f00=0x00ee, f01=0x0190, f02=» ; P* < P* < 2 P* CHECK IF IT IS A POLL OR A SELECT SEQUENCE < P* < R P IFT MSV1=0 < P LDR A8,A2 < p P CF A5,READP READ CHARACTER < P CWR A2,A8 < $ P RF(NE) BRM150 INVALID SEQUENCE < P XIF < P LDK A3,0 < P CC A2,DW1
0x3181ec…318380 Dummy {f00=0x00ee, f01=0x0190, f02=» < P CF A5,READP READ 1:ST STA = P RB(NZ) BRM PARITY ERROR = * P LDR A8,A2 = J P IFT MSV1=0 = P CF A5,READP READ 2:ND STA = p P CWR A2,A8 = $ P RF(NE) BRM150 INVALID SEQUENCE = P XIF = P CF A5,READP READ ENQ = P SUK A2,ENQ = $
0x318380…318514 (2, 239) Dummy {f00=0x00ee, f01=0x0190, f02=»JECT = P* > P* > 0 P* CHECK IF IT IS A SELECT OR A POLL ADDRESS > P* > T P LDK A1,1 > ^ P ST A1,CACK LOAD ACK-COUNTER > p P LDR A2,A8 > P SUK A3,2 > P RF(Z) BRM120 SELECTING > P* > P* > P* POLLING > P* > P
0x318514…3186a8 Dummy {f00=0x00ee, f01=0x018e, f02=» > v P ABL(NZ) SPOLL SPECIFIC POLL ? P RB BRM INVALID POLL ? , P* ? H P* ? R P* SELECTING ? P* ? p PBRM120 EQU * ? z & P CF A5,FINTER CHECK IF STA PRESENT ? P LDR A6,A3 LOAD DWT TO A6 ? P RF(NZ) BRM130 STA FOUND ? P IFT MSV1=1 ?
0x3186a8…31883c Dummy {f00=0x00ee, f01=0x0190, f02=» ? P ABL SELECT @ P EJECT @ P* @ * P* @ 4 P* THROUGHPUT ERROR @ > P* @ Z PBRM140 EQU * @ d ( P CM XSTA INDICATE "INVALID MESSAGE" @ x & P LDKL A5,STB LOAD STACKBASE TO A5 @ , P CF A5,CSYNCI START INPUT WITH SYNC DEF @ P* @ P
0x31883c…3189d0 Dummy {f00=0x00ee, f01=0x0190, f02=»US FROM CONTROL UNIT ? @ z P RF(NZ) BRM160 YES A P ANK A2,/7F A 8 P SUK A2,/7F A L P RB(NZ) BRM150 NO A ` PBRM160 EQU * A z P CF A5,CHALTI HALT INPUT A P RB BRM A P EJECT A P* A P* A P* EOT HAS BEEN RECEIVED A P* A
0x3189d0…318b64 Dummy {f00=0x00ee, f01=0x0190, f02=» P LD A1,XACK B & P RF(Z) BRM220 ACK IS NOT EXPECTED B " P LD A6,FDWTUT GET WRITING DWT B B P RF(Z) BRM210 NO ONE WRITING B h P LDK A1,2 SET RC=2 B ( P CF A5,CWRITE COMPLETE WRITE REQUEST B PBRM210 EQU * B " P CM XACK RESET 'ACK EXPECTED' B
0x318b64…318cf8 Dummy {f00=0x00ee, f01=0x0190, f02=» P* C P* C PBRM300 EQU * C P CF A5,HPTIM C , P IFT TPMODE=1 C @ P RB BRM150 INVALID SEQENCE C V PBRM302 EQU * C x P XIF C P LD A1,XSEL C P RF(Z) BRM315 NOT SELECTED C P LD A1,DCRBUF C ( P*********************CHAINED COMMAND
0x318cf8…318e8c Dummy {f00=0x00ee, f01=0x0190, f02=»UK A7,1 C P RF(NZ) BRM320 MESSAGE OK D PBRM310 EQU * D 2 ( P CM XSTA INDICATE 'INVALID MESSAGE' D F PBRM312 EQU * D r P CF A5,TRNAK SEND NAK D P ABL BRM D PBRM315 EQU * D P IFT RCOM=1 D P LD A1,XACK D & P RF(Z) BRM316 ACK IS NOT
0x318e8c…319020 Dummy {f00=0x00ee, f01=0x0190, f02=»O ONE WRITING. RESYNCHRONIZE D P LDR* A2,A6 GET STA E $ P XIF E @ P IFT RCOM=1 E L , P CF A5,PRREC PREPARE FOR TEXT RECEPTION E ` P LDK A1,0 SET RC=0 E ( P CF A5,CWRITE COMPLETE WRITE REQUEST E P CM CACK PRESET ACK-1 =7 E P RB BRM305 READ TH
0x319020…3191b4 (2, 240) Dummy {f00=0x00ee, f01=0x0190, f02=» P IFT P6805=1 =8 F P SUK A2,ENQ =8 F P XIF =8 F 4 ( P RB(Z) BRM312 FORWARD ABORT SEQUENCE F F P RB BRM220 F r PBRM320 EQU * F P IM XSTA INDICATE MESSAGE OK F $ P LD A4,DCRBUF GET BUFFER ADDRESS F P ADK A4,6 F P CW A4,FBLST F "
0x3191b4…319348 Dummy {f00=0x00ee, f01=0x0190, f02=»DK A4,1 F P LCR A1,A4 GET COMMAND CODE G P SUK A4,1 G 4 P SUK A1,RDBCOM G F ( P RF(Z) RDBUF READ MODIFIED RECEIVED G P SUK A1,RDMCOM-RDBCOM G & P RF(Z) RDMOD READ BUFFER RECEIVED G P XIF G PBRM325 EQU * G P SUK A7,1 G & P RF(Z)
0x319348…3194dc Dummy {f00=0x00ee, f01=0x0190, f02=»PUT DWT G | P* H " P* PREPARE FOR CHAINED COMMAND H P* H @ P IFT RCOM=1 H J P LDR* A2,A6 H ^ P LC A2,TEBCDIC,A2 H r P LD A1,DCRBUF H P RF(Z) BRM326 H P ST A2,+4,A1 H P XIF H PBRM326 EQU * H P CWK A6,DW1500 H , P RF(E)
0x3194dc…319670 Dummy {f00=0x00ee, f01=0x0190, f02=»D A2,DWTOR,A6 ORDER =4 H & P RF(Z) BRM327 ANY MESSAGE ORDER =4 I P XIF =4 I H P LDK A2,2 I Z P CW A2,DWTOR,A6 I l " P RF(NE) BRM330 NO READ REQUEST I PBRM327 EQU * I P LDK A1,0 SET RC=0 I $ P LD A8,DWTECB,A6 GET ECB ADDRESS I P LD A3,-
0x319670…319804 Dummy {f00=0x00ee, f01=0x018e, f02=»MAINING TIME I x P EJECT J P* J " P* J , 0 P* CHECK IF START PRINTER BIT SET IN CCC/WCC J 6 P* J j P* J t P IFT STAT=1 J ~ P LC A2,+2,A4 GET WCC/CCC J P ANK A2,/FF J P LC A2,TEBCDI,A2 TRANSLATE J P ANK A2,8 J P RF(Z) BRM328
0x319804…319998 Dummy {f00=0x00ee, f01=0x0190, f02=» J | P LD A2,DWTOR,A6 ORDER =4 K , P RF(NZ) BRM329 NOT ANY MESSAGE ORDER =4 K ( & P SUK A4,6 ADJUST BUFFER ADDRESS =4 K X ( P CF A5,QRBUF QUEUE MESSAGE ON DWT =4 K P RF BRM32A =4 K P XIF =4 K PBRM329 EQU * =4 K P K P LDK A1,0 RESET RETU
0x319998…319b2c Dummy {f00=0x00ee, f01=0x018e, f02=»EST K t P RF BRM345 L P EJECT L PBRM330 EQU * L , P IFT EM3270=1 =4 L @ P LD A1,DWTST,A6 STATUS =4 L Z P RF(N) BRM335 NO REQUEST =4 L | P LD A1,DWTOR,A6 ORDER =4 L , P RF(NZ) BRM335 NOT ANY MESSAGE ORDER =4 L & P CF A15,TENDIO COMPLETE
0x319b2c…319cc0 Dummy {f00=0x00ee, f01=0x0190, f02=» . P CF A15,CKMESS COMPLETE DCTASK READ IF ANY M PBRM340 EQU * M 6 P CF A5,TRACK SEND ACK 0/1 M J P ABL BRM M l PBRM345 EQU * M | P IFT STAT=1 M P LD A1,DWTST,A6 M P ANK A1,8 M $ P RB(Z) BRM340 ACK SHOULD BE SENT M P CF A5,TRWACK SEND
0x319cc0…319e54 (2, 241) Dummy {f00=0x00ee, f01=0x0190, f02=»ODIFIED OR READ BUFFER RECEIVED M P* N ( P* N 2 P IFF RCOM=0 N < $ PRDBUF EQU * READ BUFFER COMMAND N P PRDMOD EQU * N x " P CM XSEL RESET SELECT EXPECTED N 4 P LD A6,FDWTIN DWT-ADDRESS FOR ADDRESSED TERMINAL N $ P LD A4,DWTBUF,A6 BUFFER ADDRES
0x319e54…319fe8 Dummy {f00=0x00ee, f01=0x0190, f02=» N P LDK A1,1 O & P XRS A1,CACK INCREMENT ACK COUNTER O P ABL POL127 O D P XIF O X P EJECT O d P* O r P* O | P* ENQ HAS BEEN RECEIVED O P* O P* O PBRM400 EQU * O & P CF A5,HPTIM STOP PROCEDURE TIMER O P LD A1,XACK O
0x319fe8…31a17c Dummy {f00=0x00ee, f01=0x0190, f02=»ONTROL SEQUENCE O v PBRM410 EQU * P P ABL BRM P , P EJECT P < P* P J P* P T P* NAK HAS BEEN RECEIVED P ^ P* P ~ P* P PBRM500 EQU * P & P CF A5,HPTIM STOP PROCEDURE TIMER P P LD A1,XACK P P RF(NZ) BRM510 ACK EXPECTED P P
0x31a17c…31a310 Dummy {f00=0x00ee, f01=0x0190, f02=»FF STAT=0 P P LD A1,XSTA Q 0 P ABL(NZ) POL050 STATUS HAS BEEN TRANSMITTED Q & P XIF Q Z 0 P LD A1,FBLST GET START POINT FOR LAST BLOCK Q f & P SU A1,FECBBA COMPUTE BUFFER INDEX Q P ST A1,FBAX Q P ABL POL130 Q P EJECT Q P* Q P* Q
0x31a310…31a4a4 Dummy {f00=0x00ee, f01=0x0190, f02=» P RF(NZ) BRM605 R P IFT TPMODE=1 R P CF A5,READ R 0 P CWK A2,STX R D * P ABL(Z) BRM302 YES - TRANSPARENT TEXT R X P XIF R P RB BRM410 R PBRM605 EQU * R & P CF A5,READ READ SECOND CHARACTER R P IFF P6805=1 =8 R P CWK A2,ACK0+P
0x31a4a4…31a638 Dummy {f00=0x00ee, f01=0x0190, f02=»RECEIVED R P* S 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 t & P CF A5,SPTIM START PROCEDURE TIMER S P RB BRM410 S PBRM620 EQU * S P CWK A2,ACK1 S P RF(NE) BRM650 S
0x31a638…31a7cc Dummy {f00=0x00ee, f01=0x0190, f02=» * S P LD A1,XETX T P RF(Z) BRM640 ETX NOT SENT T P EJECT T @ 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 RF(NZ) BRM670 STATUS HAS BEEN T
0x31a7cc…31a960 Dummy {f00=0x00ee, f01=0x0190, f02=» T P U P CM XRB RESET READ BUFFER U P XIF U 2 P RB BRM410 U > PBRM640 EQU * U P P LDK A1,1 U d & P XRS A1,CACK INCREMENT ACK COUNTER U v P ABL POL130 U PBRM650 EQU * U P IFF P6805=1 =8 U P CWK A2,RVI+PAR U P XIF =8 U
0x31a960…31aaf4 (2, 242) Dummy {f00=0x00ef, f01=0x0190, f02=»G ACK' U x P LD A1,XETX V $ P RF(NZ) BRM660 ETX HAS BEEN SENT V " P LDK A1,2 SET RC=2 V J P RB BRM635 V d PBRM660 EQU * V v P LDK A1,0 SET RC=0 V P RB BRM635 V P IFF STAT=0 V P EJECT V P* V P* V " P* STATUS HAS BEEN TRANSMITTE
0x31aaf4…31ac88 Dummy {f00=0x00ef, f01=0x0190, f02=» CM XSTA CLEAR 'STATUS SENT' V " P CM XACK CLEAR 'ACK EXPECTED' W $ P LD A1,DWTST,A6 GET STATUS W J P ANK A1,4 W l 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 P EJECT W P* W
0x31ac88…31ae1c Dummy {f00=0x00ef, f01=0x0190, f02=»K EXPECTED =5 W x P IFF STAT=0 X P LD A1,DWTST,A6 GET STATUS X * P LDR A3,A1 X L P ANK A1,1 X ^ $ P RF(Z) SEL110 NO PENDING STATUS X p P CF A5,TRRVI SEND RVI X P XIF X P IFF STAT=1 X P RF SEL110 X P XIF X PSEL100 EQU * X P
0x31ae1c…31afb0 Dummy {f00=0x00ef, f01=0x018e, f02=»=2 X P ANK A3,8 Y " P RF(Z) SEL111 DEVICE NOT BUSY Y P CF A5,TRWACK TRANSMIT WACK Y B P ABL BRM Y f PSEL111 EQU * Y v P XIF Y P LD A1,DCRBUF Y $ P RF(NZ) SEL120 BUFFER AVAILABLE Y PSEL115 EQU * Y P IFF STAT+NOWACK=2 Y P CF A5
0x31afb0…31b144 Dummy {f00=0x00ef, f01=0x0190, f02=» Y P ST A1,FBLST Z P CF A5,TRACK SEND ACK,0 Z P RB SEL100 Z < P EJECT Z N P* Z P* Z f P* PREPARE FOR TEXT RECEPTION Z p P* Z P* Z PPRREC EQU * Z P IM XSEL SET 'SELECTED' Z P CM FBAX RESET BUFFER INDEX Z P IFT COD
0x31b144…31b2d8 Dummy {f00=0x00ef, f01=0x0190, f02=»,FDWTIN STORE INPUT DWT Z P RTN A5 [ P EJECT [ 0 P* [ > P* [ H $ P* GENERAL POLL HAS BEEN RECEIVED [ R P* [ z P* [ PGPOLL EQU * [ P LD A1,XACK =5 [ & P RF(Z) POL020 ACK NOT EXPECTED =5 [ " PPOL010 CF A5,TRENQ SEND ENQ =5 [ *
0x31b2d8…31b46c Dummy {f00=0x00ef, f01=0x018e, f02=»MER [ v P IFF STAT=0 P LD A6,DCSTQ & P RF(Z) POL110 NO STATUS TO BE SENT 6 " P SUK A6,DWTSQ GET DWT ADDRESS ` PPOL050 EQU * P CF A5,TRSTA SEND STATUS & P CF A5,SPTIM START PROCEDURE TIMER P IM XACK SET 'ACK EXPECTED' P
0x31b46c…31b600 Dummy {f00=0x00ef, f01=0x018e, f02=» " P RF(NZ) POL120 WRITE ON QUEUE ] PPOL115 EQU * ] * P CF A5,TREOT SEND EOT ] > P RB POL100 ] PPOL120 EQU * ] n " P SUK A6,DWTWQ GET DWT ADDRESS ] PPOL125 EQU * ] $ P LD A8,DWTECB,A6 GET ECB ADDRESS ] P RF(NZ) POL126 ] P CF A15,REMOVW
0x31b600…31b794 (2, 243) Dummy {f00=0x00ef, f01=0x018e, f02=» ] $ P LDKL A4,MMUBUF MMU WORK BUFFER ^ P ST A4,ECBBA,A8 ^ 0 . P CF A15,DC:MOT MOVE DATA FROM USER BUFFER ^ H P XIF ^ z & P LD A4,ECBBA,A8 GET BUFFER ADDRESS ^ P LD A3,ECBRL,A8 GET LENGTH ^ PPOL127 EQU * ^ & P ST A4,FECBBA SAVE BUFFER ADDRESS
0x31b794…31b928 Dummy {f00=0x00ef, f01=0x0190, f02=» ^ P CM XETX RESET 'ETX SENT' _ P CM XSTA _ * P CF A5,TRTEXT SEND ONE BLOCK _ : & P CF A5,SPTIM START PROCEDURE TIMER _ ^ P IM XACK SET 'ACK EXPECTED' _ P RB POL100 _ P EJECT _ P* _ P* _ & P* SPECIFIC POLL HAS BEEN RECEIVED _
0x31b928…31babc Dummy {f00=0x00ef, f01=0x0190, f02=»7,A6 SAVE A6 _ P CF A5,CPTIM CHECK POLLTIMER ` P LDR A6,A7 RESTORE A6 ` 8 P IFT STAT=1 ` V P LD A1,DWTST,A6 GET STATUS ` j P ANK A1,7 ` " P RB(NZ) POL050 PENDING STATUS ` P XIF ` P IFF STAT+SPECP=0 ` P LD A1,DWTST,A6 ` P RB(N)
0x31babc…31bc50 Dummy {f00=0x00ef, f01=0x0190, f02=»Z) POL125 EXCHANGE REQUEST ` P XIF a " P RB POL115 SEND EOT a . P EJECT a J P* a X P* a b 8 P* CHECK IF THERE IS A WRITE REQUEST TO BE COMPLETED a l P* a P* A1 CONTAINS RETURN CODE a P* a P* a PCWRITE LD A6,FDWTUT a $ P RF(
0x31bc50…31bde4 Dummy {f00=0x00ef, f01=0x0190, f02=» a P RF(Z) CWR100 WRITE REQUEST b P SUK A2,2 b , ( P RF(NZ) CWR900 NOT EXCHANGE REQUEST b > P LDR A1,A1 b j 2 P RF(NZ) CWR100 TRANSMISSION ERROR, RC NOT ZERO b | P LDK A2,2 TRANMISSION OK b ( P ST A2,DWTOR,A6 INDICATE READ ORDER b P RF CWR150
0x31bde4…31bf78 Dummy {f00=0x00ef, f01=0x0190, f02=»,A8 b $ P CF A15,TENDIO COMPLETE REQUEST c PCWR150 EQU * c 4 * P CF A15,REMOVW REMOVE FROM WRITE QUEUE c H PCWR200 EQU * c v PCWR900 EQU * c " P CM XACK RESET 'ACK EXPECTED' c P CM FDWTUT c P RTN A5 c P EJECT c P* c P* c P
0x31bf78…31c10c Dummy {f00=0x00ef, f01=0x0190, f02=»TY ERROR , BUFFER OVERFLOW c | ( P* 2 : IF CORRECT ETB BLOCK RECEIVED d " P* d N PRDMESS EQU * d X $ P LD A4,DCRBUF GET BUFFER ADDRESS d l P ADK A4,6 RESERVE HEADER d P LDK A3,0 d P LD A1,XSTA d $ P RF(NZ) RDM050 LAST INPUT WAS OK d " P LD A1
0x31c10c…31c2a0 Dummy {f00=0x00ef, f01=0x018e, f02=»ST REMEMBER START OF BLOCK d PRDM075 EQU * e " P CM XSTA e 6 P LDK A7,0 RESET LRC e F P e b P IFT IBMCHR=1 e j P IFF TPMODE=1 e P LD A1,FBAX e " P RF(NZ) RDM100 NOT FIRST BLOCK e P CF A5,READP e P RF(NZ) RDM120 PARITY ERROR e P
0x31c2a0…31c434 (2, 244) Dummy {f00=0x00ef, f01=0x018e, f02=» e PRDM100 EQU * f $ P CF A5,READP READ ONE CHARACTER f P RF(NZ) RDM120 PARITY ERROR f D PRDM110 EQU * f h P XIF f | P IFT TPMODE=1 f & P IM TPM INDICATE TRANSPARENT TEXT f PRDM100 CF A5,READ f P CWK A2,DLE CHECK IF DLE f P RF(NE
0x31c434…31c5c8 Dummy {f00=0x00ef, f01=0x0190, f02=» P CF A5,CRCCAL CALCULATE CRC g " P CWK A2,DLE CHECK IF 2:ND DLE g ( * P RF(E) RDM115 YES - STORE DLE AS DATA g N P CWK A2,ETX CHECK IF ETX g | P RF(E) RDM130 YES g P CWK A2,ETBEBC CHECK IF ETB g P RF(E) RDM160 YES g P CWK A2,ITB CHECK IF
0x31c5c8…31c75c Dummy {f00=0x00ef, f01=0x0190, f02=»D OF BLOCK g P* h PRDM105 EQU * h P CF A5,READ h 0 P CWK A2,DLE h D P RB(NE) RDM105 h X P CF A5,READ h n P CWK A2,ETX h $ P RF(E) RDM110 YES - END OF BLOCK h P CWK A2,ETBEBC h $ P RF(E) RDM110 YES - END OF BLOCK h P RB RDM105 h
0x31c75c…31c8f0 Dummy {f00=0x00ef, f01=0x0190, f02=» CF A5,CRCCAL CALCULATE CRC h P XIF i $ P IFF TPMODE=1 i 0 P CWK A2,ETX i F P RF(E) RDM130 ETX RECEIVED i Z P CWK A2,ETB i | P RF(E) RDM160 ETB RECEIVED i P CWK A2,ITB i P RF(E) RDM170 ITB RECEIVED i P CWK A2,ENQ i 2 P RF(E) RDM12
0x31c8f0…31ca84 Dummy {f00=0x00ef, f01=0x018e, f02=»INTRM=1 i P j P LDR A1,A2 j P SUK A1,DC1+3 j * P RF(P) RDM115 NOT DC1-DC3 j @ P ADK A1,3 j b P RF(N) RDM115 NOT DC1-DC3 j t P SLL A1,6 j P LDR A8,A1 j * P CF A5,READP 8-BIT CHAR GET NEXT PART j P RF(NZ) RDM120 PARITY ERROR j
0x31ca84…31cc18 Dummy {f00=0x00ef, f01=0x0190, f02=» j t P ADK A4,1 INCREMENT POINTER k $ P IM FBAX INCREMENT BUFFER INDEX k , P LD A1,FBAX k T P CWK A1,RBUFL+RBUFL k h P RB(NG) RDM100 NOT OVERFLOW k P IFT TPMODE=1 k P RF RDM135 k P XIF k P* k P* BUFFER OVERFLOW k P* k
0x31cc18…31cdac Dummy {f00=0x00ef, f01=0x018e, f02=»D RECEIVED k z P RB RDM100 l P* l $ P* ETX RECEIVED l . P* l D PRDM130 EQU * l N $ P LD A1,DCRBUF GET BUFFER ADDRESS l b P LD A2,FBAX GET BUFFER INDEX l 2 P ST A2,+2,A1 STORE EFFECTIVE LENGTH IN HEADER l P IFF CODE=1 l P CF A5,RDLRC l
0x31cdac…31cf40 Dummy {f00=0x00ef, f01=0x018e, f02=» l & P CF A5,RDCRC READ CRC AND CHECK IT m P RF(E) RDM150 CRC WAS OK m 2 P XIF m R P IFT TPMODE=1 m ^ $ PRDM135 CM TPM OUT OF TRANSP TEXT m t P XIF m PRDM140 EQU * m & P LDK A3,1 INDICATE INVALID MESSAGE m PRDM150 EQU * m $ P LDR A7,A3 SAV
0x31cf40…31d0d4 (2, 245) Dummy {f00=0x00ef, f01=0x0190, f02=» m P LDK A7,1 PARITY ERROR n PRDM155 EQU * n & P XIF n : P RTN A5 n F P* n V P* ETB RECEIVED n ` P* n v PRDM160 EQU * n P LDR A3,A3 n " P RB(NZ) RDM130 ALREADY INVALID n " P LDK A3,2 INDICATE CORRECT ETB n P RB RDM130 n P* n
0x31d0d4…31d268 Dummy {f00=0x00ef, f01=0x0190, f02=» XIF n P IFT CODE=1 o & P CF A5,RDCRC READ CRC AND CHECK IT o " P RB(NE) RDM120 CRC WAS NOT OK o J P IFT TPMODE=1 o p * PRDM175 CM TPM OUT OF TRANSPARENT TEXT o $ P CF A5,RDCRC READ AND CHECK CRC o P IM TPM o " P RB(NE) RDM105 CRC WAS NOT O
0x31d268…31d3fc Dummy {f00=0x00ef, f01=0x0190, f02=»CTER o t P CF A5,READ p P CWK A2,STX p $ P RB(NE) RDM105 ILLEGAL CHARACTER p 4 P XIF p P RB RDM100 p h P EJECT p z P* p P* TRANSMIT ACK 0 OR 1 p P* p PTRACK LDK A2,1 p P LDK A3,ACK1 PRELOAD ACK1 p & P XRS A2,CACK INCREMENT
0x31d3fc…31d590 Dummy {f00=0x00ef, f01=0x018e, f02=»WACK LDK A3,WACK LOAD WACK p P RF TRDLE q " P* q 4 P* TRANSMIT RVI q > P* q T P IFF STAT=0 q ^ PTRRVI LDK A3,RVI LOAD RVI q r P XIF q P* q P* TRANSMIT DLE q P* q PTRDLE LDK A2,DLE LOAD DLE q " P SC A2,RESEND PUT INSAVE ARE
0x31d590…31d724 Dummy {f00=0x00ef, f01=0x018e, f02=» q t P RF TREN10 r P* r P* TRANSMIT EOT r $ P* r : PTREOT LDK A3,EOT LOAD EOT r D P RF TREN10 r f P* r x P* TRANSMIT ENQ r P* r PTRENQ LDK A3,ENQ LOAD ENQ r P* r ( PTREN10 SC A3,RESEND PUT IN SAVE AREA r P LDK A2,/FF r
0x31d724…31d8b8 Dummy {f00=0x00ef, f01=0x0190, f02=» r x & P LC A2,RESEND+1 GET NEXT CHARACTER s P CF A5,WRITEP SEND IT s 2 PTRRE10 LDK A2,/FF s P P CF A5,WRIT05 SEND PAD s j P LDK A2,/FF s P CF A5,WRIT05 s P CF A5,CHALTO HALT OUTPUT s P IFF LOGG=0 s ( P CF A5,LOGSST LOG TRANSMITTER ST
0x31d8b8…31da4c Dummy {f00=0x00ef, f01=0x018e, f02=»QU * s P CF A5,TRSYNC START OUTPUT t P IFF TPMODE=1 t . P IFT TSTREQ=1 t D P* t Z P* t d P* TEST REQUEST HANDLING t n P* t P* t P LD A4,FBAX t ( P RF(NZ) TRT050 NOT START OF MESSAGE t P t 2 P LD A1,XRB READ BUFFER COMMAND
0x31da4c…31dbe0 Dummy {f00=0x00ef, f01=0x0190, f02=» t $ P RF(NZ) TRT050 NOT TEST REQUEST u P LDK A2,SOH u 0 P CF A5,WRITE SEND SOH u D P LDK A7,0 RESET BCC u b P LDK A2,'%' u ~ P CF A5,WRITE SEND % u P LDK A2,'/' u P CF A5,WRITE SEND / u P LDK A2,STX u P CF A5,WRITE SEND STX
0x31dbe0…31dd74 (2, 246) Dummy {f00=0x00f0, f01=0x0190, f02=»3 u P ST A2,FBAX v P RF TRT100 v PTRT050 EQU * v 0 P* v D P* v N P* v X P XIF v b P IFT TPMODE=1 v n P LDK A2,DLE v P CF A5,WRIDLE SEND DLE v P XIF v P LDK A2,STX v P CF A5,WRITE SEND STX v P LDK A7,0 RESET LRC
0x31dd74…31df08 Dummy {f00=0x00f0, f01=0x0190, f02=»2 SKIP FIRST WORD OF BUFFER v & P LDK A3,0 RESET CHARACTER COUNTER w $ P LD A1,FBAX GET BUFFER INDEX w N " P RF(NZ) TRT100 NOT FIRST BLOCK w r P LC A2,DW1500+1 GET TCA w P CF A5,WRITEP SEND TCA w P LDR* A2,A6 GET STA w P CF A5,WRITEP SEND STA
0x31df08…31e09c Dummy {f00=0x00f0, f01=0x0190, f02=»RESS w v P CF A5,WRITEP x P LDK A2,/20 x " P CF A5,WRITEP x 6 P XIF x L P IFT RCOM=1 x X P x l & P LD A1,XRB READ BUFFER COMMAND ??? x t P RF(Z) TRT070 NO!! x P x P ******************** x " P LDK A2,X'2D' AID FOR DISPLAY x PTR
0x31e09c…31e230 Dummy {f00=0x00f0, f01=0x0190, f02=» A3,5 SET BLOCK COUNT x P RF TRT100 y PTRT070 EQU * y 0 P XIF y D P y P P LDK A3,2 y X PTRT100 EQU * y j P IFT TPMODE=1 y ~ P IM TPM TRANSPARENT TEXT y PTRT105 EQU * y P XIF y P LCR A2,A4 GET ONE CHARACTER y P ADK A4,1 INCREM
0x31e230…31e3c4 Dummy {f00=0x00f0, f01=0x0190, f02=»************************************************************ y P* z D , P* CHECK IF ATTRIBUTE CHARACTER OR NULL z N P* z ~ 4 P*********************************************** z P z & P CWK A2,X'20' ATTRIBUTE CHARACTER z P RF(L) TRT101 YES!!! z
0x31e3c4…31e558 Dummy {f00=0x00f0, f01=0x0190, f02=»QU * z P CWK A2,/7D END OF MESSAGE ? { " P RF(NE) TRT103 NO,GO TO TRT103 { 0 P LDK A2,/19 { V PTRT103 EQU * { j P CWK A2,X'7F' NULL ?? { ~ P RF(NE) TRT105 { P SUK A2,1 { P XIF { P IFT RCOM=1 { P RF TRT105 { P { PTRT101 EQU
0x31e558…31e6ec Dummy {f00=0x00f0, f01=0x0190, f02=»7F' { ( P LDR A1,A2 CONVERT TO IBM ATTRIBUTE | P ANK A1,1 | 8 P ANK A2,/1E MASK | J P SLL A2,1 | b & P ORR A2,A1 IBM ATTRIBUTE COMPOSED | t " P ORK A2,/40 BIT ALWAYS SET ONE | P LC A2,TASCII,A2 | & P CWK A2,/18 CHECK SPECIAL ATTRIBUT | P R
0x31e6ec…31e880 Dummy {f00=0x00f0, f01=0x0190, f02=»05 EQU * | P XIF } P EJECT } P IFF TPMODE=1 } * P CWK A2,/07 } @ ( P RF(L) TRT110 ILLEGAL CODE : SKIP IT } T P XIF } P CF A5,WRITEP SEND CHARACTER } PTRT110 EQU * } $ P IM FBAX INCREMENT BUFFER INDEX } & P LD A1,FECBRL GET REQUESTED
0x31e880…31ea14 (2, 247) Dummy {f00=0x00f0, f01=0x0190, f02=» P IFT TPMODE=1 ~ P RB(L) TRT105 NOT FULL BLOCK ~ P XIF ~ > P RB(L) TRT100 NOT FULL BLOCK ~ J P IFT RCOM=1 ~ n , P LDK A1,SBA CHECK IF SBA AT END OF BLOCK ~ P CC A1,-2,A4 ~ P RF(E) TRT115 YES ~ P CC A1,-1,A4 ~ P RF(NE) TRT116 NO SE
0x31ea14…31eba8 Dummy {f00=0x00f0, f01=0x0190, f02=»MENT INDEX ~ . PTRT115 LCR A2,A4 GET SECOND BYTE AFTER SBA P CF A5,WRITEP SEND IT D P IM FBAX INCREMENT INDEX b P XIF PTRT116 EQU * P IFT TPMODE=1 P LDK A2,DLE $ P CF A5,WRIDLE SEND AN EXTRA DLE P XIF P LDK A2,
0x31eba8…31ed3c Dummy {f00=0x00f0, f01=0x0190, f02=» P LDR A2,A7 GET LRC P CF A5,WRITEP SEND LRC P XIF < P IFT CODE=1 H P LDR A8,A7 SAVE CURRENT CRC P LDR A2,A7 P ANK A2,/FF " P CF A5,WRIT05 SEND CRC BYTE 1 P ECR A2,A8 P ANK A2,/FF " P CF A5,WRIT05 SEND CRC
0x31ed3c…31eed0 Dummy {f00=0x00f0, f01=0x0190, f02=» IFT TPMODE=1 P LDK A2,DLE $ P CF A5,WRIDLE SEND AN EXTRA DLE * P XIF R P LDK A2,ETX LOAD ETX ^ P RB TRT120 SEND ETX AND LRC z P EJECT P* P* P* TRANSMIT STATUS MESSAGE P* P* P IFF STAT=0
0x31eed0…31f064 Dummy {f00=0x00f0, f01=0x018e, f02=»H P CF A5,WRITE SEND SOH P LDK A7,0 REST LRC ( P LDK A2,'%' B P CF A5,WRITEP SEND '%' V P LDK A2,'R' t P CF A5,WRITEP SEND 'R' P LDK A2,STX P CF A5,WRITE SEND STX P LC A2,DW1500+1 P CF A5,WRITEP SEND TCA
0x31f064…31f1f8 Dummy {f00=0x00f0, f01=0x0190, f02=» $ P LC A2,SSTAB,A1 GET STATUS BYTE P CF A5,WRITEP SEND S/S 0 0 P LDK A2,NOIR PRELOAD S/S 1 P P LD A1,DWTST,A6 GET STATUS r P ANK A1,5 P RF(Z) TRST10 NOT 'IR' P ANK A1,4 P RF(NZ) TRST10 NO IR IF DE P LDK A2,IR
0x31f1f8…31f38c Dummy {f00=0x00f0, f01=0x018e, f02=»* TRSYNC : TRANSMIT SYNC SEQUENCE P* * PTRSYNC EQU * 4 ( P CF A5,CHALTI HALT INPUT IF NOT DONE H , P CF A5,CSYNCO START OUTPUT WITH SYNC DEF t * P CF A5,READ WAIT FOR OUTPUT INTERRUPT P* P* P* SEND 4 SYN-CHARACTERS P*
0x31f38c…31f520 Dummy {f00=0x00f0, f01=0x0190, f02=» P RTN A5 RETURN TO CALLER P EJECT ( P* 6 P* @ 0 P* CSYNCI :SEND SYNC-PATTERN FOR INPUT DATA J P* ~ PCSYNCI EQU * P LD A2,PFPOST $ P RF(NZ) CSYN:I WAIT FOR POWER UP P CF A5,CHALTI STOP INPUT & P ST A5,DCLCI S
0x31f520…31f6b4 (2, 248) Dummy {f00=0x00f0, f01=0x018e, f02=» A2,SYNC SYNC PATTERN 2 P OTR A2,1,LCUIN SEND INPUT SYNC-PATTERN TO LC P XIF T P IFT P6805=0 ` * P LDKL A2,CBCARR+SYNC DEF SYNC-PATTERN t 2 P CIO A2,1,LCUIN SEND INPUT SYNC-PATTERN TO LC P XIF PCSYN:I EQU * P RTN A5 RETURN T
0x31f6b4…31f848 Dummy {f00=0x00f0, f01=0x0190, f02=» $ P LDK A2,CBSTOP STOP FUNCTION BIT P XIF , P CIO A2,0,LCUIN HALT INPUT 8 & P CM DCLCI CLEAR INPUT ACTIVE FLAG Z P SST A2,LCUIN READ STATUS P IFF LOGG=0 $ P CF A5,LOGSST LOGG INPUT STATUS P XIF P RTN A5 RETURN TO CALLER
0x31f848…31f9dc Dummy {f00=0x00f0, f01=0x0190, f02=» $ P RF(NZ) CSYN:O WAIT FOR POWER UP P IFT P6805=1 0 * P LDK A2,PARITY CHAR PARITY CHECK BY CU D P CIO A2,1,LCUUT CIO START r P RF(A) CSYNC1 ACCEPTED $ P SST A2,LCUUT TRY TO READ STATUS * P ABL BRM NOT ACCEPTED TIMEOUT REQUEST P
0x31f9dc…31fb70 Dummy {f00=0x00f0, f01=0x0190, f02=» A2,1,LCUUT START TRANSMITTER P XIF & PCSYN:O EQU * 2 P RTN A5 RETURN TO CALLER F P EJECT f P* t P* ~ $ P* CHALTO : HALT OUTPUT CHANNEL P* PCHALTO EQU * P IFT P6805=1 P LDK A2,CBSTOP STOP FUNCTION P X
0x31fb70…31fd04 Dummy {f00=0x00f0, f01=0x0190, f02=»ATUS | P RTN A5 RETURN TO CALLER P EJECT , P* : P* D P* RECEIVER INTERRUPT N P* l P* v PIH1501 EQU * P ST P,INTSAV P IFT CPU852=1 P CF A15,SAVE8 SAVE A1-A8 P XIF P P IFF CPU852=1 P
0x31fd04…31fe98 Dummy {f00=0x00f0, f01=0x018e, f02=»20 NOT ACCEPTED,CHECK STATUS P IFF LOGG=0 $ ( P CF A5,LOGIN LOG RECEIVED CHARACTER 8 P XIF d P C2 TPM p 8 P RF(NZ) IHLC10 DO NOT SKIP SYNC IN TRANSPARENT TEXT P C2 SYNSW 0 P RF(NZ) IHLC05 DO NOT SKIP SYNS IN BCC FRAME P CWK A
0x31fe98…32002c Dummy {f00=0x00f0, f01=0x0190, f02=» P CF A5,CRCCAL CALCULATE CRC ( P LC A2,TASCII,A2 TRANSLATE TO ASCII ( P XIF T PIHLC10 EQU * ` P LDR A1,A2 t * P ORKL A1,/FF00 SET FLAG FOR CARRIER ON & P ST A1,DCLCI SET INPUT ACTIV FLAG P CM DCSTCU CLEAR SST SAVE PIHIN10 E
0x32002c…3201c0 Dummy {f00=0x00f0, f01=0x0190, f02=» P* TRANSMITTER INTERRUPT P* * P* 4 PIH1502 EQU * > P ST P,INTSAV R P IFT CPU852=1 f 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 RESTOR
0x3201c0…320354 (2, 249) Dummy {f00=0x00f0, f01=0x0190, f02=»U STATUS : BIT 10=CARRIER OFF . P* BIT 13=PARITY ERROR (6805 ONLY) SALCUZ & , P* BIT 14=THROUGHPUT ERROR X , P* BIT 15=MODEM NOT READY P* PSST EQU * P SST A2,LCUIN GET STATUS P LDR A1,A2 P I
0x320354…3204e8 Dummy {f00=0x00f0, f01=0x0190, f02=»FT P6805=0 P LD A2,DCLCI INPUT STATUS * P RF(Z) SST125 INPUT NOT ACTIVE IGNORE 4 ( P RF(N) SST100 INPUT ACTIVE WITH DATA b * P LDKL A2,CBCARR+SYNC DEF SYNC PATTERN & P CIO A2,1,LCUIN START INPUT AGAIN $ P RF SST125 RETURN TO DISPATCHER
0x3204e8…32067c Dummy {f00=0x00f0, f01=0x018e, f02=»NO P LD A2,DCLCI INPUT STATUS 0 P RF(Z) SST125 NOT ACTIVE IGNORE CARRIER OFF , P RF SST100 ACTIVE ` PSST075 EQU * z P LDR A2,A1 $ P ANK A2,SBTHRU THROUGHPUT ERROR P ABL(NZ) BRM140 YES P* PSST100 EQU * P LDR A
0x32067c…320810 Dummy {f00=0x00f0, f01=0x0190, f02=» P DATA SST150,10 PSST125 EQU * $ P ABL TDISP RETURN TO DISPATCHER 0 P* X PSST150 EQU * b P CF A15,LDREG LOAD REGISTERS v PSST200 EQU * P LDR A2,A1 . P ANK A2,SBCARR CHECK STATUS IF CARRIER OFF P RF(Z) SST225 NO 4
0x320810…3209a4 Dummy {f00=0x00f0, f01=0x0190, f02=»RRENT STATUS p * P CF A15,CKMESS CHECK IF STATUS CHANGE PSST250 EQU * B P RTN A5 RETURN TO CALLER V P EJECT v P* P* , P* WRITE FROM OR READ ONE CHARACTER TO A2 P* P* PWRITE EQU * P IFT CODE=1 P C2
0x3209a4…320b38 Dummy {f00=0x00f0, f01=0x018e, f02=» DLE x P LDK A2,DLE P RF WRIT05 PWRIT02 EQU * 2 P ANK A2,/FF F P CWK A2,/FF Z 0 P RF(E) WRIT05 NO TRANSLATION OF TRAILING PAD n * P LC A2,TEBCDIC,A2 TRANSLATE TO EBCDIC P XIF PWRIT05 EQU * " P OTR A2,0,LCUUT SEND CHA
0x320b38…320ccc Dummy {f00=0x00f0, f01=0x0190, f02=» P IFT CODE=1 & PWRIT10 CF A5,CRCCAL CALCULATE CRC P XIF F PWRIT15 EQU * R P IFF LOGG=0 f & P CF A5,LOGOUT LOG OUTPUT CHARACTER z P XIF P* PREAD CF A15,STREG P ABL TDISP P IFT CODE=1 PWRIDLE EQU *
0x320ccc…320e60 Dummy {f00=0x00f0, f01=0x0190, f02=»WRITEP P* P* WRITE A2 WITH PARITY P* 8 P* B P IFT CODE+P6805=0 SALCUZ L PWRITEP ANK A2,/FF n P ECR A1,A2 P ORK A2,/80 PWRI100 SLL A1,1 P RB(P) WRI100 P RB(Z) WRITE WRITE P XRK A2,/80
0x320e60…320ff4 (2, 250) Dummy {f00=0x00f1, f01=0x0190, f02=»READP P* . P* READ CHARACTER TO A2 AND CHECK PARITY P* J P* T PREADP CF A5,READ ^ P IFT CODE+P6805=0 SALCUZ v P ECR A1,A2 PRE100 SLL A1,1 P RF(Z) RE110 P RB(NN) RE100 P XRK A2,/80 P RB RE100
0x320ff4…321188 Dummy {f00=0x00f1, f01=0x0190, f02=»5,4 P ANK A1,/80 P XRK A1,/80 P ABR* A5 4 P* D P* N P EJECT X P* f < P* FIND DWT CONTAINING SUBTERMINAL ADDRESS AS GIVEN IN A2 p P* $ P* CALLING SEQUENCE: CF A5,FINTER P* A2=SUBTERMINAL ADDRESS P* A4 D
0x321188…32131c Dummy {f00=0x00f1, f01=0x018e, f02=»ENTRY: FINTER - CHECK SELECT ADDRESS , P* FINTEP - CHECK SPECIFIC POLL ADDRESS , P* . PRBYTE DATA 0 IF 1 COMPARE WITH RIGTH BYTE f P* P* PFINTEP EQU * P IFT MSV1=0 PFINTER EQU * P XIF P IM RBYTE P I
0x32131c…3214b0 Dummy {f00=0x00f1, f01=0x0190, f02=» PFINT10 SUK A4,2 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 DWT ADDRESS P IFT MSV1=1 $ P AD A3,RBYTE CHOOSE ADDRESS TYPE * P CCR A2,A3 COMPARE SUBTERMINAL
0x3214b0…321644 Dummy {f00=0x00f1, f01=0x0190, f02=»ERMINAL v PFINT20 CM RBYTE P ANKL A3,/FFFE ( P RTN A5 > P EJECT N P* P* f P* POWER ON FUNCTIONS p P* P* PDC15ON EQU * P IFT CPU852=1 P CF A15,SAVE8 SAVE A1-A8 P XIF P P IFF CPU85
0x321644…3217d8 Dummy {f00=0x00f1, f01=0x0190, f02=»DCTAB GET ADDRESS TO END OF TABLE PDRDC05 SUK A1,2 * P CW A1,DCTAB B P RF(E) DRDC06 END OF TABLE V P LDR* A6,A1 GET DWT ADDRESS x 0 P ORS A5,DWTST,A6 STORE DEVICE END FOR DEVICE ( P CF A15,INSSQ INSERT IN STATUS QUEUE P RB DRDC05
0x3217d8…32196c Dummy {f00=0x00f1, f01=0x0190, f02=»MESS ( P LD A2,DCTPGP GET POLL TIMER POINTER " P RF(NZ) DRDC20 ALREADY STARTED 8 * PDRDC10 CF A15,SPOTIM START POLL TIMER ^ PDRDC20 ABL BRM P EJECT P* P* POLL TIME OUT P* ( PPTOUT LDKL A5,STB LOAD A5 STACK BASE P
0x32196c…321b00 Dummy {f00=0x00f1, f01=0x0190, f02=»TIMER v P ABL TDISP P* 4 P* RESTART POLL TIMER WHEN POLL HAS BEEN RECEIVED * P* b PCPTIM EQU * l . P LD A1,DCONOF CHECK THE ON-/OFF LINESWITCH & P ANK A1,/40 IF IT IS POLL TIME OUT P RF(Z) CPTIM1 NO . P AN A1,DCSTOL IS OLD
0x321b00…321c94 (2, 251) Dummy {f00=0x00f1, f01=0x0190, f02=»A2,-TIMPOL P ST* A2,DCTPGP RESTART TIMER * P CF A15,CKMESS CHECK IF STATUS CHANGE 6 P RTN A5 d P* t P* START POLL TIMER ~ P* $ PSPOTIM CF A15,SETIME START TIMER P DATA PTOUT,TIMPOL & P ST A4,DCTPGP STORE TIMER POINTER
0x321c94…321e28 Dummy {f00=0x00f1, f01=0x0190, f02=»1,A6 LOAD DWT AS PARAMETER P CF A15,SETIME " P DATA PRTOUT,TIMPRO 8 $ P ST A4,DCTPP SAVE TIMER POINTER T P RTN A5 | P* P* PROCEDURE TIMEOUT P* PPRTOUT CM DCTPP P LDR A6,A1 RELOAD A6 P LDKL A5,STB LOAD STACK
0x321e28…321fbc Dummy {f00=0x00f1, f01=0x0190, f02=»ENQ ~ & P CF A5,SPTIM START PROCEDURE TIMER PPRT10 ABL BRM 6 P EJECT L P* Z P* STOP PROCEDURE TIMER d P* ( PHPTIM LD A1,DCTPP GET TIMER POINTER P RF(Z) HPT10 NOT RUNNING P CM* DCTPP STOP TIMER P CM DCTPP P
0x321fbc…322150 Dummy {f00=0x00f1, f01=0x0190, f02=»* A7 = ACCUMULATED CRC P* P* ( PCRCCAL EQU * 2 P ST A1,CRCSAV F P ST A2,CRCSAV+2 P ST A3,CRCSAV+4 t P LDK A1,8 PCRC100 LDR A3,A7 P SRL A7,1 P XRR A3,A2 P SRL A2,1 P ANK A3,1 P RF(Z) CRC
0x322150…3222e4 Dummy {f00=0x00f1, f01=0x0190, f02=»SAV+4 P RTN A5 PCRCSAV RES 3 P EJECT 2 P* @ P* J ( P* READ CRC CHARACTERS AND CHECK THEM T P* CR = (E) IF CRC WAS OK P* P* $ PRDCRC LDR A6,A7 SAVE CURRENT CRC $ P IM SYNSW DO NOT SKIP SYNCS NOW P CF
0x3222e4…322478 Dummy {f00=0x00f1, f01=0x0190, f02=» LD A2,CRCSAV+2 SAVE IT P SLL A2,8 P XRR A2,A8 2 P ADK A5,4 D . P CWR A2,A6 COMPARE RECEIVED WITH COMPUTED V P ABR* A5 P XIF P IFT CODE=0 P* & P* RDLRC READ LRC CHARACTER " P* CR=0 IF LRC O
0x322478…32260c Dummy {f00=0x00f1, f01=0x0190, f02=» PLRCEND EQU * P CM SYNSW P ABR* A5 * P : P XIF B P EJECT N P* P* f " P* DEVICE WORK TABLE FOR DCTASK p P* P* PDW1500 EQU * TABLE ENTRY P DATA 0 CU LINE ADDRESS P DATA /8000 STATUS P DAT
0x32260c…3227a0 Dummy {f00=0x00f1, f01=0x0190, f02=»IVATE INDICATOR P DATA 0 TASK QUEUE P* 2 P IFT MMUPAG=1 < P DATA 0 USER ECB ADDRESS R P DATA DC:ECB MMU ECB ADDRESS r P XIF P* P DATA 0 TIMER POINTER ( P DATA 0 WRITE QUEUE OR BUFFER QUEUE . P DATA 0 STATUS QUE
0x3227a0…322934 (2, 252) Dummy {f00=0x00f1, f01=0x0190, f02=»RESS ~ " P DATA 0 REQUEST TIMEOUT VALUE P* 2 P IFT MMUPAG=1 < PDC:ECB EQU * MMU ECB R P DATA 0,0,0,0,0,0 n P XIF P* P EJECT P* P* P* DC RECEIVE BUFFER POOL P* PRLINK EQU RBUFL+RBUFL+8
0x322934…322ac8 Dummy {f00=0x00f1, f01=0x0190, f02=» RBUFNR=3 P DATA *+RLINK P RES RBUFL+3 ( P IFF RBUFNR=4 < P DATA *+RLINK R P RES RBUFL+3 h P XIF | P DATA *+RLINK P RES RBUFL+3 P DATA 0 END OF CHAIN P RES RBUFL+3 P P IFF MMUPAG=0 & PMMUBUF R
0x322ac8…322c5c Dummy {f00=0x00f1, f01=0x0190, f02=» IFF LOGG=0 PLOGSST ST A2,SAVE2 P ORKL A2,/F000 . P RF LOG10 D PLOGOUT ST A2,SAVE2 V P ORKL A2,/0F00 p P RF LOG10 PLOGIN CWK A2,/FF P RF(E) LOGE10 P ST A2,SAVE2 PLOG10 ST A3,SAVE3 P LD A3,LOGPNT
0x322c5c…322df0 Dummy {f00=0x00f1, f01=0x0190, f02=»D A2,SAVE2 P LD A3,SAVE3 PLOGE10 RTN A5 & P EJECT < P* J P* T PLOGPNT DATA LOGSTA ^ PLOGSTA EQU * x P RES 300 PLOGEND EQU *-4 PSAVE2 DATA 0 PSAVE3 DATA 0 P XIF P* P* P* P IFT
0x322df0…322f84 Dummy {f00=0x00f1, f01=0x0190, f02=» : P* CONVERT CURSOR ADDRESS TO LINE AND COLUMN NUMBER P* B > P********************************************************** L P PLINCOL EQU * " P LDR A2,A3 COPY CURSOR ADDRESS P SRL A2,6 P ANK A2,X'3F' & P LC A2,LICO:T,A2
0x322f84…323118 Dummy {f00=0x00f1, f01=0x0190, f02=»OLUMN NUMBER x $ P CF A5,WRITEP SEND COLUMN NUMBER P RTN A5 RETURN < P* R P* P* f P EJECT p P ~ P PLICO:T EQU * * P DATA /2041,/4243,/4445,/4647 /00-/07 * P DATA /4849,/5B2E,/3C28,/2B21 /08-/0F * P DATA /264
0x323118…3232ac Dummy {f00=0x00f1, f01=0x4190, f02=»95A,/7C2C,/255F,/3E3F /28-/2F ( P DATA /3031,/3233,/3435,/3637 /30-37 & ( P DATA /3839,/3A23,/4027,/3D22 /38-3F R P XIF ~ P EJECT P PDC:IN DATA DC:TAB+2 PDCTAB DATA DC:TAB " PDC:TAB DATA 2 LENGTH OF DC:TAB * P DATA 0,0,0,
0x3232ac…323440 Dummy {f00=0x00f1, f01=0x2008, f02=» H P X ` h p x
0x323440…3235d4 (2, 253) Dummy {f00=0x00f1, f01=0x0190, f02=» : < = > ? @ C F J N T d {0 * " ) 1 @ O _ o # % % H ( m 6 4 R S U S . EJ GODK[ND S[NDNING * . EJ AV
0x3235d4…323768 Dummy {f00=0x00f1, f01=0x0190, f02=» 6 6 D * . 2Ii " !W ! 0 " P !, ! ? Ij { j 1! !j 2! !Hj 4j !&m $ r"Ii' U ! ( j !! ( ) x. .K .*W x( Hj mIn 0 ! W 0 ! Hj m !7 w! y "! !U 'U U & Ii ( In 0 ! W 0 ! @n ! Ij 0# :
0x323768…3238fc Dummy {f00=0x00f1, f01=0x0190, f02=»,, W ! $ 0' / T W 0' - T ! 2 W "? I I I I IjO2 !0) / 2 W$0. Am6 ! bC I .4 ? "(0. _*Am #02W 03W 04W X Z [ +( H I C_ 1( _ T 1( !05 ? 2 ? W #0- T %y0 %%_
0x3238fc…323a90 Dummy {f00=0x00f1, f01=0x0190, f02=» % 0 0 < 2 ? 2 #? 0# 0 ? $ 2 2 0 %% ( @h u!He8Kh 0 % $? 0 %%A ( @h u!He Kh ( ! u!0 #'@ @ @ ( ? @ ( !"_cA $? 0 && u! !eJh ? 0 &&A % Ad@ @ #? A @ u!
0x323a90…323c24 Dummy {f00=0x00f1, f01=0x0190, f02=» j ! H ? f G Y z L & $F 1 " " T 1( !05 ? 2 ? W #0- T %y0 %%_
0x323c24…323db8 Dummy {f00=0x00f1, f01=0x0190, f02=» d 0 $}j *!! x0 @l 2 ? j x! ! wx xyj &"x !g:e x y" e @ TW( ' )g: @l? j xy wj x! { W< .V xwj &"w W j ! " "Hn ' wxjx " & wx wxf xwj x! { wxj !! x( % j " &W ( ' j ! " " { 0; {$* p!0 0: x*6 VVVVOVOVV V "!H '0 **P I %!@ A W
0x323db8…323f4c Dummy {f00=0x00f1, f01=0x0190, f02=» x* !u uv_ 0 j x! ! 7 ZH_ j " "jx " &"x* ( 3 Zf_q 1Zm u ? !u (R j "" j &"x u !? ! _ j " & wx x 'jy " xy x u$x Aj " $( xw u 4 /_ /Z j " &( * 1Z)_5 x* wx x 'jy " g2 #gYuP W j ! x0 , + & # ( #2_
0x323f4c…3240e0 Dummy {f00=0x00f1, f01=0x0190, f02=» : ? ,wx W x* WY uj " "( ? j " &( * % 1W 0 : j " & *1 1 W u ! u ! u ! 4 : jx " & 1 w*j " w wx wx j &"w xw? w w !( % _ ' xw g2 # ( ( #g? g "b & AlW '2 : 1 _ : ? $ )g: ' 4WAH !W9AlHl
0x3240e0…324274 (2, 254) Opaque[0x194]
0x324274…324408 # DirEnt {nam=»EBCDIC«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x1e40, f03=0x0000}
0x324274…324408 IdxSect {
0x324274…324408 f00 = 0x00f2 // 0x324274 @0x0
0x324274…324408 f01 = 0x0004 // 0x324276 @0x2
0x324274…324408 gno = [ // 0x324278 @0x4
0x324274…324408 [0x00]: C0x00f2.0x0.0
0x324274…324408 [0x01]: C0x00f2.0x1.0
0x324274…324408 ]
0x324274…324408 }
0x324408…32459c Dummy {f00=0x00f2, f01=0x0190, f02=» ( P IDENT EBCDIC REL 10.0 80-03-14 SHB P 0 P* 8 4 P************************************************ B P* z $ P* PHILIPS TERMINAL SYSTEM PTS P* $ P* EBCDIC = EBCDIC/ASCII TABLE P* P* P* P* P*
0x32459c…324730 Dummy {f00=0x00f2, f01=0x0190, f02=» P* . P* CONDITIONAL ASSEMBLY (SEE ALSO DRDC15) P* @ 2 PX:A EQU 1 CODE , 0=ASCII , 1=EBCDIC (DRDC15) J PCODE EQU X:A 4 PX:B EQU 1 READ COMMAND HANDLING IF = 1 (DRDC15) PRCOM EQU X:B P EJECT P* P* 2 P* TABL
0x324730…3248c4 Dummy {f00=0x00f2, f01=0x0190, f02=»203,/0009,/0000 00-07 P* ( P DATA /0000,/0000,/0C00,/0000 08-0F ( ( P DATA /1011,/1213,/000A,/0000 10-17 T ( P DATA /0019,/0000,/1C1D,/1E1F 18-1F ( P DATA /0000,/0000,/0000,/171B 20-27 ( P DATA /0000,/0000,/0005,/0000 28-2F ( P DAT
0x3248c4…324a58 Dummy {f00=0x00f2, f01=0x0190, f02=»849,/5B2E,/3C28,/2B21 48-4F ( P DATA /264A,/4B4C,/4D4E,/4F50 50-57 $ ( P DATA /5152,/5D24,/2A29,/3B5E 58-5F P ( P DATA /2D2F,/5354,/5556,/5758 60-67 | ( P DATA /595A,/7C2C,/255F,/3E3F 68-6F ( P DATA /1831,/3233,/3435,/3637 70-77 ( P DATA /3
0x324a58…324bec Dummy {f00=0x00f2, f01=0x0190, f02=»/6B6C,/6D6E,/6F70 90-97 ( P DATA /7172,/5D24,/2A29,/3B5E 98-9F ( P DATA /2D2F,/7374,/7576,/7778 A0-A7 L ( P DATA /797A,/7C2C,/255F,/3E3F A8-AF x ( P DATA /3031,/3233,/3435,/3637 B0-B7 ( P DATA /3839,/3A23,/4027,/3D22 B8-BF ( P DATA /2041,
0x324bec…324d80 Dummy {f00=0x00f2, f01=0x0190, f02=»4,/2A29,/3B5E D8-DF ( P DATA /2D2F,/5354,/5556,/5758 E0-E7 ( P DATA /595A,/7C2C,/255F,/3E3F E8-EF H ( P DATA /3031,/3233,/3435,/3637 F0-F7 t ( P DATA /3839,/3A23,/4027,/3DFF F8-FF P XIF P EJECT P* P* 2 P* TABLE FOR CO
0x324d80…324f14 (2, 255) Dummy {f00=0x00f2, f01=0x0190, f02=»00-07 r ( P DATA /0005,/1500,/0C00,/0000 08-0F ( P DATA /1011,/1213,/3C3D,/3226 10-17 : ( P DATA /7019,/3F27,/1C1D,/1E1F 18-1F f P* SHB ( P DATA /405A,/7F7B,/5B6C,/507D 20-27 P* ( P DATA /4D5D,/5C4E,/6B60,/4B61 28-2F ( P DATA
0x324f14…3250a8 Dummy {f00=0x00f2, f01=0x018e, f02=»9,/D1D2,/D3D4,/D5D6 48-4F ( P DATA /D7D8,/D9E2,/E3E4,/E5E6 50-57 " P* SHB N ( P DATA /E7E8,/E97B,/7C5B,/5F6D 58-5F P* ( P DATA /0081,/8283,/8485,/8687 60-67 ( P DATA /8889,/9192,/9394,/9596 68-6F ( P DATA /9798,/99A2,/A3A4,/A5A6
0x3250a8…32523c Dummy {f00=0x00f2, f01=0x4008, f02=»@ /D3D4,/D5D6 48-4F ( P DATA /D7D8,/D9E2,/E3E4,/E5E6 50-57 " P* SHB N ( P DATA /E7E8,/E97B,/7C5B,/5F6D 58-5F P* ( P DATA /0081,/8283,/8485,/8687 60-67 ( P DATA /8889,/9192,/9394,/9596 68-6F ( P DATA /9798,/99A2,/A3A4,/A5A6
0x32523c…3253d0 Dummy {f00=0x00f2, f01=0x2008, f02=» NT EBCASC TESTVERSION 1 END (@ 4
0x3253d0…325564 Dummy {f00=0x00f2, f01=0x0000, f02=»
[…0x3…]
0x325a20…325bb4 (2, 256) Opaque[0x194]
0x325bb4…325d48 # DirEnt {nam=»TIMER «, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x1e50, f03=0x0000}
0x325bb4…325d48 IdxSect {
0x325bb4…325d48 f00 = 0x00f2 // 0x325bb4 @0x0
0x325bb4…325d48 f01 = 0x0006 // 0x325bb6 @0x2
0x325bb4…325d48 gno = [ // 0x325bb8 @0x4
0x325bb4…325d48 [0x00]: C0x00f2.0x2.0
0x325bb4…325d48 [0x01]: C0x00f2.0x3.0
0x325bb4…325d48 [0x02]: C0x00f3.0x0.0
0x325bb4…325d48 ]
0x325bb4…325d48 }
0x325d48…325edc Dummy {f00=0x00f2, f01=0x0190, f02=» 0 P IDENT TIMER REL 10.0 80-03-14 870105041000 P 8 P* @ P* J 8 P*************************************************** T P* $ P* PHILIPS TERMINAL SYSTEM PTS P* P* TIMER = TIMER FUNCTIONS P* P* P*
0x325edc…326070 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
0x326070…326204 Dummy {f00=0x00f2, f01=0x0190, f02=» . P ENTRY SETIMP SETIME + STORE TIMER POINTER P EJECT TIMER 6 P* L P* V P*********** ` P* EXTRNALS * t P************ P* P* P EXTRN TDISP DISPATCHER . P EXTRN LKMQDI QUEUE TERMINAL AND DISPATCH $ P EXTRN
0x326204…326398 Dummy {f00=0x00f2, f01=0x0190, f02=»DRESS v , P EXTRN ACTDIS ACTIVATE TASK AND DISPATCH * P EXTRN SAVE8 SAVE 8 REGISTERS ON STACK > 8 P EXTRN TIMQUE POINTER TO FIRST BLOCK IN TIMER QUEUE l 0 P EXTRN IHRET8 RESTORE 8 REGISTERS FROM STACK P EJECT TIMER P* P* . P**
0x326398…32652c Dummy {f00=0x00f2, f01=0x0190, f02=»*** j P* 6 P* A PROGRAM VERSION USING THE EXTENDED INSTRUCTION . P* SET IS OBTAINED BY SETTING CPU852 EQU 0. P P* PCPU852 EQU 0 P* P EJECT TIMER P* P* P* T I M E R P* ( P* THIS IS THE TIME
0x32652c…3266c0 Dummy {f00=0x00f2, f01=0x018e, f02=»AM DELAY P* P* A4 = 0 P* A5 = TTAB ADDRESS , P* A8 = DELAY J P* ` P* j P* 2. TIMING AND ACTIVATION t P* P* A1 = PARAMETER 8 P* A4 = DISPATCH ADDRESS OF PROGRAM TO BE ACTIVATED , P* A5 = TTAB AD
0x3266c0…326854 (2, 257) Dummy {f00=0x00f2, f01=0x0190, f02=» PTIMER EQU * P ADK A4,0 SET CR ( P RF(NZ) TIM010 TIMING AND ACTIVATION 4 P* ` P EJECT TIMER j P* P* PROGRAM DELAY P* P LDR A1,A5 SET PARAMETER P ST A8,PAR1+2 SET TIME P CF A15,SETIME PPAR1 D
0x326854…3269e8 Dummy {f00=0x00f2, f01=0x0190, f02=»10 EQU * $ P CF A15,FNDTID FIND TTAB ADDRESS P ADK A2,0 SET CR 8 " P ABL(Z) LKMRQE TTAB NOT FOUND P ( P LDR A3,A2 IN BLOCK: A3=TTAB ADDRESS v , P LDR A2,A4 A2=DISPATCH ADDRESS ( P CF A15,GETBLK A1=PARAMETER . P LDR A1,A4
0x3269e8…326b7c Dummy {f00=0x00f2, f01=0x0190, f02=»QU * P ABL LKMQDI P* P EJECT TIMER * P* @ P* J P* RETURN AFTER TIME OUT T P* v P* 1.PROGRAM DELAY P* PDELAY EQU * P LDR A5,A1 SET TTAB ADDRESS * P RB QUEDIS QUEUE TASK FOR DISPATCHING
0x326b7c…326d10 Dummy {f00=0x00f2, f01=0x0190, f02=»ET IT FREE | P LDR A5,A3 SET TTAB ADDRESS * P ABL ACTDIS ACTIVATE TASK AND DISPATCH 6 P* d P EJECT TIMER n P* P* " P* S E T I M E , S E T I M P P* . P* SUBROUTINE TO SET BLOCK IN TIMER QUEUE , P* AND IF SET
0x326d10…326ea4 Dummy {f00=0x00f2, f01=0x0190, f02=»POINTER ADDRESS v , P* P1 = DISPATCH ADDRESS AFTER TIME OUT P* P2 = DELAY H P* ^ : P* P1 AND P2 ARE STORED AFTER THE SUBROUTINE REQUEST. h P* P* EXIT PARAMETER:- P* P* A4 = ADDRESS TO TIMER P* P*
0x326ea4…327038 Dummy {f00=0x00f2, f01=0x0190, f02=» XIF P* P IFT CPU852=0 P INH , " P MSR 8,A15 SAVE A1-A8 ON STACK 8 P XIF ^ P* j P EJECT TIMER t P* P* * P LDR A6,A4 SAVE TIMER POINTER ADDRESS P LDR A3,A4 . P LD A5,20,A15 LOAD FIRST PARAMETER ADDRESS
0x327038…3271cc Dummy {f00=0x00f2, f01=0x0190, f02=» PROGRAM COUNTER | $ P CF A15,GETBLK GET A FREE BLOCK P LDR A2,A4 @ P C1R A1,A8 R " P CF A15,GETBLK GET TIMER BLOCK d P LD A1,TIMQUE " P STR A1,A4 SET BLOCK IN QUEUE P ST A4,TIMQUE P ADK A4,4 0 P ST A4,10,A15 SET TIMER AD
0x3271cc…327360 Dummy {f00=0x00f2, f01=0x412e, f02=»CT TIMER P* P* PSETEND EQU * & P IFT CPU852=1 : ( P ABL IHRET8 RESTORE A1-A8 AND RETURN P P XIF | P* P IFT CPU852=0 * P MLR 8,A15 RESTORE A1-A8 FROM STACK... P RTN A15 ...AND RETURN P XIF P*
0x327360…3274f4 (2, 258) Dummy {f00=0x00f3, 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
0x3274f4…327688 Dummy {f00=0x00f3, f01=0x0000, f02=»
[…0x6…]
0x328000…328194 (2, 259) Opaque[0x194]
0x328194…328328 # DirEnt {nam=»TMMLKM«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x1e68, f03=0x0000}
0x328194…328328 IdxSect {
0x328194…328328 f00 = 0x00f3 // 0x328194 @0x0
0x328194…328328 f01 = 0x0006 // 0x328196 @0x2
0x328194…328328 gno = [ // 0x328198 @0x4
0x328194…328328 [0x00]: C0x00f3.0x1.0
0x328194…328328 [0x01]: C0x00f3.0x2.0
0x328194…328328 [0x02]: C0x00f3.0x3.0
0x328194…328328 ]
0x328194…328328 }
0x328328…3284bc Dummy {f00=0x00f3, f01=0x0190, f02=» 2 P IDENT TMMLKM REL 10.0 80-03-14 870105041000 P : P* B P* L 6 P************************************************** V P* $ P* PHILIPS TERMINAL SYSTEM PTS P* ( P* TMMLKM = TOSS MMU LKM PROCESSORS P* P*
0x3284bc…328650 Dummy {f00=0x00f3, 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**
0x328650…3287e4 Dummy {f00=0x00f3, f01=0x0190, f02=» MMU TABLE | & P ENTRY TLUSEG LOCK/UNLOCK SEGMENT P EJECT TMMLKM < P* T P* ^ P************* h P* EXTERNALS * ~ P************* P* P* 0 P EXTRN FNDTID FIND TTAB ADDRESS FROM TASK ID P EXTRN RELPAG RELEASE
0x3287e4…328978 Dummy {f00=0x00f3, f01=0x0190, f02=» IN TTAB l ( P EXTRN TTB:SP SEGMENT TABLE ADDRESS $ P EXTRN SEG:NS NUMBER OF SEGMENTS < P EJECT TMMLKM d P* | P* P********** P* TCHPAG * P********** P* P* 2 P* THIS IS THE CHANGE MMU PAGE LKM PROCESSOR.
0x328978…328b0c Dummy {f00=0x00f3, f01=0x0190, f02=» AT A TIME. ` P* * P* IT IS ENTERED FROM THE LKM HANDLER & P* WITH THE FOLLOWING PARAMETERS: L P* v P* A5 = TTAB ADDRESS ( P* A7 = PAGE TO BE CHANGED, 0 - 15 * P* A8 = NEW LOCATION OF PAGE, 0 - 63 P* < P* IT
0x328b0c…328ca0 Dummy {f00=0x00f3, f01=0x018e, f02=»(IF ANY) p 0 P ADR A7,A7 ADJUST FOR INDEXING IN MMU TABLE P ADR A7,A5 ADD TTAB ADDRESS D P LDR A2,A8 NEW PAGE LOCATION h . P ANK A2,/3F SKIP IRRELEVANT BITS (IF ANY) P SLL A2,2 < P SC A2,TTB:MT,A7 STORE NEW LOCATION OF PAGE IN MMU TABLE
0x328ca0…328e34 (2, 260) Dummy {f00=0x00f3, f01=0x0190, f02=» P* TCHMMU * P********** P* , P* 6 4 P* THIS IS THE CHANGE MMU TABLE LKM PROCESSOR. @ P* x D P* TCHMMU WILL CHANGE THE MMU TABLE CONTENTS OF REQUESTING TASK 4 P* TO THE MMU TABLE CONTENTS OF SPECIFIED TASK. P*
0x328e34…328fc8 Dummy {f00=0x00f3, f01=0x0190, f02=»A7 = TASK IDENTIFICATION OF SEARCHED TASK P* 2 ( P* IT RETURNS TO CALLING TASK WITH < P* THE FOLLOWING PARAMETER: h P* 2 P* A7 = UNCHANGED IF REQUEST SUCCESSFUL, ELSE & P* A7 = -1 IF TASK NOT IN SYSTEM P* " PTCHMMU E
0x328fc8…32915c Dummy {f00=0x00f3, f01=0x0190, f02=» TL TTB:MT,A2 LOAD SEARCHED MMU TABLE CONTENTS 4 P TS TTB:MT,A5 STORE IN MMU TABLE OF CALLING TASK 6 * P RB T:DISP QUEUE TASK FOR DISPATCHING n P* P EJECT TMMLKM P* P* P********** P* TLUSEG * P********** P
0x32915c…3292f0 Dummy {f00=0x00f3, f01=0x018e, f02=» CORE RESIDENT, ` D P* UNTIL AN UNLOCK SEGMENT REQUEST IS ISSUED FOR THAT SEGMENT. P* ` * P* IT IS ENTERED FROM THE LKM HANDLER j & P* WITH THE FOLLOWING PARAMETERS: P* P* A5 = TTAB ADDRESS P* A7 = SEGMENT NUMBER &
0x3292f0…329484 Dummy {f00=0x00f3, f01=0x0190, f02=» j " P* THE FOLLOWING PARAMETERS: P* . 2 P* A7 = UNCHANGED IF REQUEST SUCCESSFUL, ELSE 8 P* A7 = -1 IF REQUEST ERROR n P* P* P EJECT TMMLKM P* P* $ PTLUSEG EQU * LOCK/UNLOCK SEGMENT $ P LD A4,TTB:SP,
0x329484…329618 Dummy {f00=0x00f3, f01=0x0190, f02=»GMENT NUMBER TOO BIG t P RF(NG) TLUS00 OK P* 6 PTLCERR EQU * @ , P ABL LKMRQE BRANCH TO LKM REQUEST ERROR T P* PTLUS00 EQU * , P SLL A3,3 ADJUST FOR INDEXING IN SEGTAB " P ADR A3,A4 ADD SEGTAB ADDRESS " P LCR A4,A3 GET S
0x329618…3297ac Dummy {f00=0x00f3, f01=0x018e, f02=»T IT IS t " P RF(NZ) TLUS10 UNLOCK SEGMENT P* 6 P EJECT TMMLKM @ P* X P* LOCK SEGMENT b P* x 4 P ORRS A4,A3 INDICATE SEGMENT TO BE CORE RESIDENT P RB T:DISP P* P* UNLOCK SEGMENT P* PTLUS10 EQU *
0x3297ac…329940 Dummy {f00=0x00f3, f01=0x4036, f02=» P* P* P* END &@ 2* 6 P EJECT TMMLKM @ P* X P* LOCK SEGMENT b P* x 4 P ORRS A4,A3 INDICATE SEGMENT TO BE CORE RESIDENT P RB T:DISP P* P* UNLOCK SEGMENT P* PTLUS10 EQU *
0x329940…329ad4 (2, 261) Dummy {f00=0x00f3, f01=0x2008, f02=» NT TCHPAG PRR 9.1 78-10-16 870105040910 END <@ H
0x329ad4…329c68 Dummy {f00=0x00f3, f01=0x0190, f02=» PTMW:30 EQU * 4 P ST A8,TTB:SA+16,A5 UPDATE A8 IN TTAB SAVE AREA 2 P ADK A3,0 CHECK FLAG IF FIRST ECB TO WAIT FOR T & P RF(Z) TP:QDI FIRST ECB IN ECBBLK P* : PTMW:40 ADKL A3,DWTWAT POINT TO WAIT/ACTIVATE INDICATOR $ P LDR* A2,A3
0x329c68…329dfc Dummy {f00=0x00f3, f01=0x40e6, f02=»* P EJECT TPROC P* P* * PTP:RQE EQU * 4 " P ABL LKMRQE LKM REQUEST ERROR H P* n PTP:QDI EQU * x ( P ABL LKMQDI QUEUE TASK AND DISPATCH P* P* P* P END @ VATE INDICATOR $ P LDR* A2,A3
0x329dfc…329f90 Dummy {f00=0x00f3, 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
0x329f90…32a124 Dummy {f00=0x00f3, f01=0x0190, f02=»R INF =3 A x & P SUK A3,1 DEC TRANSFER COUNTER =3 B , P RB(P) RCDY12 NOT ENOUGH OF TRANSFERS =3 B : . P LDK A2,CTYCOD SEND 'SET COUNTRY CODE' =1 B j P CF A5,OUTPUT =1 B * P LDK A2,COUNTRY SEND 'COUNTRY CODE' =1 B P ORK A2,/30 =1 B P CF A5,OUTPU
0x32a124…32a2b8 Dummy {f00=0x00f3, f01=0x0190, f02=»CLEHOM CLEAR AND HOME B P CF A5,OUTPUT SEND C P LDKL A2,/101 C 8 6 P ST A2,DWTAP,A6 SET HEAD LINE-AND-POSITION COUNTER C N P LDR A3,A3 GET OLD STATUS C P RB(N) ENDIO NOT BUSY C " P LDK A1,OPERR SET RETURN CODE C PRCDY15 ABL ADY420 C P
0x32a2b8…32a44c Dummy {f00=0x00f3, f01=0x0190, f02=»DY25 NO C ( P LDK A1,2 INDICATE THROUGHPUT ERROR D P RB RCDY15 D < & PRCDY25 LDK A2,STX START OF MESSAGE D N P CF A5,OUTPUT D x 4 P LC A4,DWTBC,A6 GET NUMBER OF POSITIONS TO BACK D P ANK A4,/FF D P RF(E) RCDY30 D . P CF A5,BACCAN SEND BACKS
0x32a44c…32a5e0 Dummy {f00=0x00f3, f01=0x0190, f02=»* D 0 P* ECHODY = DEVICE-DEPENDENT ECHO-ROUTINE E P* E > PECHODY EQU * E H P LDR A7,A7 EOR? E P RF(N) ECDY17 YES E t P LDR A3,A2 SAVE CHARACTER E P* E P IFT EORECH=0 E P* E P SUK A2,/80 E $ P RF(NN) ECDY20 NOT TO BE E
0x32a5e0…32a774 (2, 262) Opaque[0x194]
0x32a774…32a908 # DirEnt {nam=»TLDSEG«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x1e80, f03=0x0000}
0x32a774…32a908 IdxSect {
0x32a774…32a908 f00 = 0x00f4 // 0x32a774 @0x0
0x32a774…32a908 f01 = 0x0006 // 0x32a776 @0x2
0x32a774…32a908 gno = [ // 0x32a778 @0x4
0x32a774…32a908 [0x00]: C0x00f4.0x0.0
0x32a774…32a908 [0x01]: C0x00f4.0x1.0
0x32a774…32a908 [0x02]: C0x00f4.0x2.0
0x32a774…32a908 ]
0x32a774…32a908 }
0x32a908…32aa9c Dummy {f00=0x00f4, f01=0x0190, f02=» 2 P IDENT TLDSEG REL 10.0 80-03-14 870105041000 P : P* B P* L 6 P************************************************** V P* $ P* PHILIPS TERMINAL SYSTEM PTS P* P* TLDSEG = LOAD SEGMENT P* P* P*
0x32aa9c…32ac30 Dummy {f00=0x00f4, 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
0x32ac30…32adc4 Dummy {f00=0x00f4, f01=0x0190, f02=»* EXTERNALS * P************* P* , P* 6 0 P EXTRN PRUN TTAB ADDRESS OF RUNNING PROGRAM @ P EXTRN TDISP DISPATCHER t $ P EXTRN LKM030 LKM REQUEST ERROR & P EXTRN PAG:QB QUEUE LINK BACKWARDS $ P EXTRN SEG:NS NUMBER OF SEGMENTS
0x32adc4…32af58 Dummy {f00=0x00f4, f01=0x0190, f02=»TTAB SAVE AREA P EXTRN TTB:MT MMU TABLE & P EXTRN TTB:CB CURRENT SEGMENT BASE 6 ( P EXTRN TTB:SP SEGMENT TABLE ADDRESS ` ( P EXTRN TTB:SB SEGMENT BLOCK ADDRESS 2 P EXTRN QLTDSK ACTIVATE LDTASK AT ENTRY LT:DSK & P EXTRN SCTMMP MMU TABLE PA
0x32af58…32b0ec Dummy {f00=0x00f4, f01=0x0190, f02=» P* . P***************************************** P* @ P* CONDITIONAL ASSEMBLY J P* h . P***************************************** r P* . P* A PROGRAM VERSION USING TOSS MMU PAGING * P* IS OBTAINED BY SETTING MMUPAG EQU 1.
0x32b0ec…32b280 Dummy {f00=0x00f4, f01=0x0190, f02=»ETTING CPU852 EQU 0. z P* PCPU852 EQU 0 & P* : * D . ** A PROGRAM VERSION USING TOSS DISC PAGING N * &* IS OBTAINED BY SETTING DSKPAG EQU 1. * PDSKPAG EQU 1 * P EJECT TLDSEG P* P* P******
0x32b280…32b414 (2, 263) Dummy {f00=0x00f4, f01=0x0190, f02=» IS ENTERED FROM THE LKM HANDLER & P* WITH THE FOLLOWING PARAMETERS: ( P* R 4 P* A2 = DISPATCH ADDRESS (NOT UPDATED BY IHLKM) P* A5 = TTAB ADDRESS P* A7 = SEGMENT NUMBER P* ( P* IT RETURNS TO CALLING TASK WITH " P
0x32b414…32b5a8 Dummy {f00=0x00f4, f01=0x0190, f02=» ERROR, ELSE z ( P* A7 = -2 IF DISC I/O ERROR, ELSE $ P* A7 = -3 IF DISC NOT OPERABLE @ P* h 2 P* WHEN REQUESTED SEGMENT IS ALREADY IN CORE: r < P* THE REQUEST WILL NOT GO THROUGH THE DISPATCHER AFTER > P* COMPLETION, THUS NO TASK SWI
0x32b5a8…32b73c Dummy {f00=0x00f4, f01=0x0190, f02=»S NOT IN CORE TLDSEG WILL t : P* ACTIVATE LDTASK WHICH WILL LOAD SEGMENT INTO CORE. " P* ` P* j P EJECT TLDSEG t P* & P* CHECK VALIDITY OF SEGMENT NUMBER P* PTLDSEG EQU * LOAD SEGMENT $ P LD A3,TTB:SP,A5 SEGTAB ADDR
0x32b73c…32b8d0 Dummy {f00=0x00f4, f01=0x0190, f02=»OO BIG f P RF(NG) TLDS00 OK P* ( $ PTLDERR LDK A6,/FF INDICATE ERROR 2 , P ABL LKM030 BRANCH TO LKM REQUEST ERROR Z P* P* GET SEGMENT BLOCK ADDRESS. P* UPDATE RETURN ADDRESS P* PTLDS00 EQU * , P SLL A1,3 ADJUST F
0x32b8d0…32ba64 Dummy {f00=0x00f4, f01=0x0190, f02=»S v P* P IFT DSKPAG=0 $ P SUKL A15,4 ADJUST STACKPOINTER * . P ST A2,4,A15 SET DISPATCH ADDRESS ON STACK R P XIF P* " P ADK A7,0 CHECK SEGMENT NUMBER P RF(NZ) TLDS05 NOT SEGMENT 0 0 P ST A7,TTB:SB,A3 RESET SEGMENT BLOCK
0x32ba64…32bbf8 Dummy {f00=0x00f4, f01=0x0190, f02=»R r . P ST A2,4,A15 SET DISPATCH ADDRESS ON STACK P XIF < P RF TLDS40 H P* Z P EJECT TLDSEG d P* | P* PTLDS05 EQU * P IFT DSKPAG=1 2 P ST A1,TTB:SB,A3 UPDATE SEGMENT BLOCK ADDRESS " P LDR* A4,A1 GET SEGMENT
0x32bbf8…32bd8c Dummy {f00=0x00f4, f01=0x0190, f02=»* 6 P CF A15,QLTDSK ACTIVATE LOAD TASK AT ENTRY LT:DSK P ABL TDISP GO TO DISPATCHER D P* h PTLDS10 EQU * r $ P SUKL A15,4 ADJUST STACKPOINTER . P ST A2,4,A15 SET DISPATCH ADDRESS ON STACK P XIF P* & PTLDS15 EQU * ENTRY
0x32bd8c…32bf20 Dummy {f00=0x00f4, f01=0x0190, f02=» l P* & P LDR* A2,A1 GET QUEUE LINK FORWARD * P RF(Z) TLDS20 PAGE BLOCK NOT IN QUEUE < , P LD A4,PAG:QB,A1 GET QUEUE LINK BACKWARD j 4 P CMR A1 RESET QUEUE LINK FORWARD OF REMOVED BLK " P STR A2,A4 UPDATE QUEUE LINKS P ST A4,PAG:QB,A2
0x32bf20…32c0b4 (2, 264) Dummy {f00=0x00f4, f01=0x0190, f02=»NTRY USED BY LDTASK & P LD A1,PAG:PA,A1 GET PAGE ADDRESS P* F P IFT MMUPAG=1 P P ECR A2,A1 f P ANK A2,/FC x P* 4 P* GET PAGE ENTRY/ENTRIES TO UPDATE IN MMU TABLE P* 0 P AD A3,SCTMMP POINT TO FIRST USED PAGE ENTRY
0x32c0b4…32c248 Dummy {f00=0x00f4, f01=0x0190, f02=»A3 UPDATE PAGE ENTRY P SUK A4,1 ( P RF(NP) TLDS30 NO MORE PAGE ENTRIES . & P ADK A3,2 POINT TO NEXT PAGE ENTRY Z " P ADK A2,4 UPDATE PAGE ADDRESS P RB TLDS25 P* P EJECT TLDSEG P* P* 4 PTLDS30 ANKL A1,/300 CO
0x32c248…32c3dc Dummy {f00=0x00f4, f01=0x018e, f02=» 2 P ES* A1,TTB:CB,A5 UPDATE CURRENT SEGMENT BASE P XIF > P* J P IFT MMUPAG=0 T PTLDS40 EQU * j 2 P ST* A1,TTB:CB,A5 UPDATE CURRENT SEGMENT BASE ~ P XIF P* P IFT CPU852=0 P LDR A6,A5 $ P ML 6,TTB:SA+2,A6 REST
0x32c3dc…32c570 Dummy {f00=0x00f4, f01=0x40f0, f02=» n P LD A2,TTB:SA+4,A5 P LD A3,TTB:SA+6,A5 " P LD A4,TTB:SA+8,A5 < P LD A6,TTB:SA+12,A5 V P LD A5,TTB:SA+10,A5 r $ P RTN A15 RETURN TO CALLING TASK P XIF P* P* P* END @ P ML 6,TTB:SA+2,A6 REST
0x32c570…32c704 Dummy {f00=0x00f4, f01=0x2008, f02=» NT TLDSEG PREREL.9.1 780907 BOFE END 6@ B
0x32c704…32c898 Dummy {f00=0x00f4, f01=0x0190, f02=»** r b 4 P************************************************ s P s B PMOVT:A EQU * s J P IFT CREDIT-MMUPAG=1 s ^ P LDR* A1,A8 GET T:A-ADDRESS s z ( P LD A3,WATLEN,A12 GET LENGTH OF WAT s P SLL A3,2 BYTES s , P SU A3,CIA,A1 ADD DISPLACEMENT TO STAR
0x32c898…32ca2c Dummy {f00=0x00f4, f01=0x0190, f02=»A-ADDRESS s | $ P SU A1,CIA,A4 'OLD' T:A-ADDRESS t P t : 8 P* COMPUTE AND STORE ADDRESSES TO DATA-SETS IN FCB * t B P t ~ P LD A3,FCD,A12 ANY FCD? t P RF(Z) MOVT10 NO! t P ADR A3,A2 START OF FCB t P LDR A4,A2 SAVE T:A-ADDRESS t 0 P LD
0x32ca2c…32cbc0 Dummy {f00=0x00f4, f01=0x0190, f02=»MOVT05 EQU * t P ADS A4,FCBDD1,A3 u P ADS A4,FCBDD2,A3 u . PMOVT10 RTN A14 u H P XIF u ^ P IFT CREDIT+MMUPAG=2 u j P u P ELR A1,A8 GET T:A-ADDRESS u ( P EL A3,WATLEN,A12 GET LENGTH OF WAT u P SLL A3,2 BYTES u P EL A10,CIA,A1 u $
0x32cbc0…32cd54 (2, 265) Opaque[0x194]
0x32cd54…32cee8 # DirEnt {nam=»TABORT«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x1e98, f03=0x0000}
0x32cd54…32cee8 IdxSect {
0x32cd54…32cee8 f00 = 0x00f4 // 0x32cd54 @0x0
0x32cd54…32cee8 f01 = 0x0004 // 0x32cd56 @0x2
0x32cd54…32cee8 gno = [ // 0x32cd58 @0x4
0x32cd54…32cee8 [0x00]: C0x00f4.0x3.0
0x32cd54…32cee8 [0x01]: C0x00f5.0x0.0
0x32cd54…32cee8 ]
0x32cd54…32cee8 }
0x32cee8…32d07c Dummy {f00=0x00f4, f01=0x0190, f02=» 2 P IDENT TABORT REL 10.0 80-03-14 870105041000 P : P* B P* L 6 P************************************************* V P* $ P* PHILIPS TERMINAL SYSTEM PTS P* " P* TABORT = ABORT I/O REQUEST P* P* P*
0x32d07c…32d210 Dummy {f00=0x00f4, f01=0x0190, f02=»AINS THE | ( P* ABORT I/O REQUEST LKM PROCESSOR. P* < P* F P EJECT TABORT P P* h P* r P*********** | P* ENTRIES * P*********** P* P* P ENTRY TABORT P EJECT TABORT P* P*
0x32d210…32d3a4 Dummy {f00=0x00f4, 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/
0x32d3a4…32d538 Dummy {f00=0x00f4, 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
0x32d538…32d6cc Dummy {f00=0x00f4, 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
0x32d6cc…32d860 Dummy {f00=0x00f4, 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
0x32d860…32d9f4 (2, 266) Dummy {f00=0x00f5, 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
0x32d9f4…32db88 Dummy {f00=0x00f5, 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
0x32db88…32dd1c Dummy {f00=0x00f5, f01=0x018e, f02=» : P CF A15,FREBLK I/O AND ACTIVATE. FREE DISPATCHER BLOCK " P CM DWTWAT,A6 INDICATE NO WAIT B P* h PTABO30 EQU * r 8 P LD A2,DWTADR,A6 GET ADDRESS TO DRIVER ADDRESS BLOCK 8 P LD A2,ABTADR,A2 GET ABORT ROUTINE ADDRESS (IF ANY) * P RF(Z) TAB
0x32dd1c…32deb0 Dummy {f00=0x00f5, f01=0x40c4, f02=» t P CF A15,TENDIO ABORT 0 P ABL LKMQDI QUEUE TASK AND GO TO DISPATCHER $ P* X 0 PTABOER ABL LKMRQE GO AND INDICATE LKM ERROR b P* P* P* P END @ D A2,ABTADR,A2 GET ABORT ROUTINE ADDRESS (IF ANY) * P RF(Z) TAB
0x32deb0…32e044 Dummy {f00=0x00f5, f01=0x2008, f02=»
0x32e044…32e1d8 Dummy {f00=0x00f5, f01=0x0190, f02=»R r . P ST A2,4,A15 SET DISPATCH ADDRESS ON STACK P XIF < P RF TLDS40 H P* Z P EJECT TLDSEG d P* | P* PTLDS05 EQU * P IFT DSKPAG=1 2 P ST A1,TTB:SB,A3 UPDATE SEGMENT BLOCK ADDRESS " P LDR* A4,A1 GET SEGMENT
0x32e1d8…32e36c Dummy {f00=0x00f5, f01=0x0190, f02=»* 6 P CF A15,QLTDSK ACTIVATE LOAD TASK AT ENTRY LT:DSK P ABL TDISP GO TO DISPATCHER D P* h PTLDS10 EQU * r $ P SUKL A15,4 ADJUST STACKPOINTER . P ST A2,4,A15 SET DISPATCH ADDRESS ON STACK P XIF P* & PTLDS15 EQU * ENTRY
0x32e36c…32e500 Dummy {f00=0x00f5, f01=0x0190, f02=» l P* & P LDR* A2,A1 GET QUEUE LINK FORWARD * P RF(Z) TLDS20 PAGE BLOCK NOT IN QUEUE < , P LD A4,PAG:QB,A1 GET QUEUE LINK BACKWARD j 4 P CMR A1 RESET QUEUE LINK FORWARD OF REMOVED BLK " P STR A2,A4 UPDATE QUEUE LINKS P ST A4,PAG:QB,A2
0x32e500…32e694 (2, 267) Opaque[0x194]
0x32e694…32e828 # DirEnt {nam=»MONTIM«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x1ea8, f03=0x0000}
0x32e694…32e828 IdxSect {
0x32e694…32e828 f00 = 0x00f5 // 0x32e694 @0x0
0x32e694…32e828 f01 = 0x0006 // 0x32e696 @0x2
0x32e694…32e828 gno = [ // 0x32e698 @0x4
0x32e694…32e828 [0x00]: C0x00f5.0x1.0
0x32e694…32e828 [0x01]: C0x00f5.0x2.0
0x32e694…32e828 [0x02]: C0x00f5.0x3.0
0x32e694…32e828 ]
0x32e694…32e828 }
0x32e828…32e9bc Dummy {f00=0x00f5, f01=0x0190, f02=» 2 P IDENT MONTIM REL 10.0 80-03-14 870105041000 P : P* B P* L < P******************************************************* V P* $ P* PHILIPS TERMINAL SYSTEM PTS P* * P* MONTIM = MONITOR CLOCK PROCESSORS P*
0x32e9bc…32eb50 Dummy {f00=0x00f5, 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
0x32eb50…32ece4 Dummy {f00=0x00f5, f01=0x0190, f02=»TOR CLOCK r P EJECT MONTIM P* * P* 4 P************* > P* EXTERNALS * T P************* j P* P* P EXTRN MONCLO MONITOR CLOCK * P EXTRN LKMQDI QUEUE TASK AND DISPATCH P EXTRN TTB:SA TTAB SAVE AREA
0x32ece4…32ee78 Dummy {f00=0x00f5, 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
0x32ee78…32f00c Dummy {f00=0x00f5, f01=0x0190, f02=»ADDRESS TO THE USER TIMER CONTROL 2 P* BLOCK IN A8. MONITOR CLOCK IS COPIED INTO * P* TIMER CONTROL BLOCK. ` P* P* PGETTIM EQU * 6 P LDKL A7,MONCLO+6 ADDRESS TO MONITOR CLOCK SECOND P LDK A3,6 COUNTER P LDR* A6,A
0x32f00c…32f1a0 Dummy {f00=0x00f5, f01=0x0190, f02=» A7,2 P LDR* A6,A7 HOURS P ENB ( P* 4 * PGETT10 CF A15,BYTASC CONVERT TO ASCII > P IFT MMUPAG=0 l * P SC A6,1,A8 STORE RIGHTHAND CHARACTER P ECR A6,A6 ( P SCR A6,A8 STORE LEFTHAND CHARACTER P XIF P* P EJE
0x32f1a0…32f334 (2, 268) Dummy {f00=0x00f5, f01=0x0190, f02=» GETT15 TCB ADDRESS EVEN P LDR A1,A6 P EL A4,1,A8 2 P ANK A4,/FF F P SLL A1,8 Z P ORR A1,A4 l P ES A1,1,A8 ~ P ELR A4,A8 P SRL A6,8 P ANKL A4,/FF00 P ORR A6,A4 P* 6 PGETT15 ESR A6,A8 SET VALUE IN TI
0x32f334…32f4c8 Dummy {f00=0x00f5, f01=0x0190, f02=»ROM STACK r P RB GETT10 P* $ P EJECT MONTIM . P* F P* P PGETT20 SUK A7,2 Z . P LDR* A6,A7 GET ACCUMULATED 24 HOUR CARRY r 2 P ST A6,TTB:SA+14,A5 STORE IN TTAB SAVE AREA A7 P CMR A7 CLEAR MIDNIGTH CARRY P* P
0x32f4c8…32f65c Dummy {f00=0x00f5, f01=0x0190, f02=»E LKM PROCESSOR. x P* 0 P* IT IS ENTERED FROM THE LKM HANDLER WITH " 0 P* ADDRESS TO THE USER TIMER CONTROL BLOCK V 0 P* IN A8. VALUE IN TIMER CONTROL BLOCK IS $ P* COPIED INTO MONITOR CLOCK. P* P* PSETTIM EQU *
0x32f65c…32f7f0 Dummy {f00=0x00f5, f01=0x0190, f02=» MMUPAG=0 & P LCR A6,A8 GET LEFTHAND CHARACTER P ECR A6,A6 < ( P LC A6,1,A8 GET RIGHTHAND CHARACTER N P XIF z P* P IFT MMUPAG=1 2 P ELR A6,A8 GET VALUE FROM TIMER CONTROL BLOCK . P LDR A4,A8 GET TIMER CONTROL BLOCK ADDRESS
0x32f7f0…32f984 Dummy {f00=0x00f5, f01=0x018e, f02=»RL A4,8 P ORR A6,A4 P* " PSETT15 EQU * , P XIF @ P* L P EJECT MONTIM V P* n P* x $ P CF A15,ASCTBY CONVERT TO BINARY P SUK A3,2 END P RF(E) SETT20 P ADKL A8,2 0 P STR A6,A15 SAVE ON STACK (HOURS
0x32f984…32fb18 Dummy {f00=0x00f5, f01=0x0190, f02=» P LDR* A6,A15 ( P STR A6,A7 MINUTES TO MONITOR CLOCK P SUK A7,2 H P LDR* A6,A15 Z & P STR A6,A7 HOURS TO MONITOR CLOCK n P SUK A7,2 P CMR A7 RESET MIDNIGTH CARRY P RB TPDIS P* P EJECT MONTIM P*
0x32fb18…32fcac Dummy {f00=0x00f5, f01=0x0190, f02=»A6. x P* P* PBYTASC EQU * P LDK A4,0 4 P* F PBYTA10 SUK A6,/A P P RF(N) BYTA20 h P ADKL A4,/100 ~ P RB BYTA10 P* PBYTA20 ADK A6,/A P ADR A6,A4 P ORKL A6,/3030 P RTN A15 P*
0x32fcac…32fe40 Dummy {f00=0x00f5, f01=0x414a, f02=» l P* RESULT IN A6. P* , P* 6 PASCTBY EQU * @ P LDR A4,A6 T P ANK A6,/F f P SRL A4,8 x P ANK A4,/F P RF(E) ASCT20 P* PASCT10 ADK A6,/A P SUK A4,1 P RB(NE) ASCT10 P* PAS
0x32fe40…32ffd4 (2, 269) Dummy {f00=0x00f5, 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
0x32ffd4…330168 Dummy {f00=0x00f5, 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
0x330168…3302fc Dummy {f00=0x00f5, f01=0x018e, f02=» : P CF A15,FREBLK I/O AND ACTIVATE. FREE DISPATCHER BLOCK " P CM DWTWAT,A6 INDICATE NO WAIT B P* h PTABO30 EQU * r 8 P LD A2,DWTADR,A6 GET ADDRESS TO DRIVER ADDRESS BLOCK 8 P LD A2,ABTADR,A2 GET ABORT ROUTINE ADDRESS (IF ANY) * P RF(Z) TAB
0x3302fc…330490 Dummy {f00=0x00f5, f01=0x40c4, f02=» t P CF A15,TENDIO ABORT 0 P ABL LKMQDI QUEUE TASK AND GO TO DISPATCHER $ P* X 0 PTABOER ABL LKMRQE GO AND INDICATE LKM ERROR b P* P* P* P END @ D A2,ABTADR,A2 GET ABORT ROUTINE ADDRESS (IF ANY) * P RF(Z) TAB
0x330490…330624 Dummy {f00=0x00f5, f01=0x2008, f02=»
0x330624…3307b8 Dummy {f00=0x00f5, f01=0x0190, f02=» v P* PSYSBAS EQU * PSAVCON DATA BUFLEN & 2 PMXBUF DATA 0 DISC/FLEXIBLE DISC BUFFER ADDRESS @ PSAVMEM DATA 0 SAVE AREA v & PCYLNBR DATA /FFFF CYLINDER NUMBER ( PSECNBR DATA 0 PHYSICAL SECTOR NUMBER " PDEVTAB DATA /1909,/1101,/082
0x3307b8…33094c Dummy {f00=0x00f5, f01=0x0190, f02=»***** T F P* CALL-FORMAT, PERFORMS: CFR A14,A13 * F P* DATA [REL-ADDRESS] * X F P* * F P****************************
0x33094c…330ae0 Dummy {f00=0x00f5, f01=0x0190, f02=»**************** P* CONDITIONAL ASSEMBLY * P************************** : 0 PCASS EQU 1 1-PROGRAM LOAD DEVICE = CASSETTE , PDISC EQU 1 1-PROGRAM LOAD DEVICE = DISC 8 PFLDISC EQU 1 1-PROGRAM LOAD DEVICE = =FLEXIBLE DISC 8 PMFDISC EQU 1
0x330ae0…330c74 (2, 270) Opaque[0x194]
0x330c74…330e08 # DirEnt {nam=»TOSSFM«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x1ec0, f03=0x0000}
0x330c74…330e08 IdxSect {
0x330c74…330e08 f00 = 0x00f6 // 0x330c74 @0x0
0x330c74…330e08 f01 = 0x000a // 0x330c76 @0x2
0x330c74…330e08 gno = [ // 0x330c78 @0x4
0x330c74…330e08 [0x00]: C0x00f6.0x0.0
0x330c74…330e08 [0x01]: C0x00f6.0x1.0
0x330c74…330e08 [0x02]: C0x00f6.0x2.0
0x330c74…330e08 [0x03]: C0x00f6.0x3.0
0x330c74…330e08 [0x04]: C0x00f7.0x0.0
0x330c74…330e08 ]
0x330c74…330e08 }
0x330e08…330f9c Dummy {f00=0x00f6, f01=0x0190, f02=» 2 P IDENT TOSSFM REL 10.0 80-03-14 870105041000 P : P* B P* L 6 P************************************************** V P* 6 P* PHILIPS TERMINAL SYSTEM PTS * P* 6 P* TOSSFM = TOSS FILE MANAGEMENT LKM PROC
0x330f9c…331130 Dummy {f00=0x00f6, f01=0x0190, f02=» TOSS FILE MANAGEMENT LKM PROCESSOR HANDLES 4 P* PREPARATIONS FOR DISC I/O, AND ACTIVATION OF 4 2 P* THE FILE MANAGEMENT TASK (FMTASK) FOR FILE l " P* ADMINISTRATION FUNCTIONS. P* P* P EJECT TOSSFM P* P* P
0x331130…3312c4 Dummy {f00=0x00f6, f01=0x018e, f02=» ENTRY FCHECK CHECK ACCESS PAR. AND RETURN FWT ADDRESS " P ENTRY FCHEC2 FCHECK 2ND ENTRY > P EJECT TOSSFM d P* | P* P************* P* EXTERNALS * P************* P* P* P EXTRN FMRDWR FM READ/WRITE .
0x3312c4…331458 Dummy {f00=0x00f6, f01=0x0190, f02=» " P EXTRN TIO:FM FM ENTRY IN TIO , P EXTRN ACTDIS ACTIVATE TASK AND DISPATCH * " P EXTRN FNDDWD FIND DWT ADDRESS Z 0 P EXTRN TIOERR ERROR: QUEUE TASK AND DISPATCH * P EXTRN SCTFWT FWT CHAIN START ADDRESS " P EXTRN SCTNOF NUMBER OF FILES ( P
0x331458…3315ec Dummy {f00=0x00f6, f01=0x0190, f02=»LOCK IN FWT n P EXTRN EWTEXL EXTENT LENGTH P EXTRN EWTEXB EXTENT BASE 8 " P EXTRN EWTVOL VOLUME FILE CODE Z & P EXTRN ECBRL ECB REQUESTED LENGTH $ P EXTRN ECBCW1 ECB CONTROL WORD 1 $ P EXTRN ECBCW2 ECB CONTROL WORD 2 P EXTRN DWTST D
0x3315ec…331780 Dummy {f00=0x00f6, f01=0x0190, f02=»L ASSEMBLY P* , P**************************************** P* L . P* A PROGRAM VERSION USING TOSS MMU PAGING V * P* IS OBTAINED BY SETTING MMUPAG EQU 1. P* PMMUPAG EQU 1 P* P* 6 P* A PROGRAM VERSION USING THE EX
0x331780…331914 (2, 271) Dummy {f00=0x00f6, f01=0x0190, f02=»M VERSION SUPPORTING SPLIT EXTENT I/O * P* IS OBTAINED BY SETTING XTSPLI EQU 1. . P* PXTSPLI EQU 0 f P* z P EJECT TOSSFM P* P* P********** P* TOSSFM * P********** P* P* 8 P* THIS IS TH
0x331914…331aa8 Dummy {f00=0x00f6, f01=0x0190, f02=» n P* P* A5 = TTAB ADDRESS P* A7 = ORDER CODE 0 P* A8 = ECB ADDRESS L P* h . P* WHEN FILE ADMINISTRATION IS REQUESTED, r ( P* TOSSFM WILL ACTIVATE THE FMTASK. P* . P* WHEN I/O FUNCTION IS REQUESTED, TOSSFM
0x331aa8…331c3c Dummy {f00=0x00f6, f01=0x0190, f02=»JECT TOSSFM P* P* 4 PTOSSFM EQU * FILE MANAGEMENT LKM PROCESSOR ENTRY * P* b P* CHECK ORDER CODE l P* LDR A2,A7 ORDER CODE P ANK A2,/FF SKIP OPTION P XRK A2,/80 WAIT BIT SUK A2,/01 P RF(Z) FM:
0x331c3c…331dd0 Dummy {f00=0x00f6, f01=0x0190, f02=»E x SUK A2,/11-/05 P RF(Z) FM:030 PHYSICAL READ " SUK A2,/15-/11 F P RF(Z) FM:030 PHYSICAL WRITE ^ SUK A2,/21-/15 $ P RF(Z) FM:010 OPEN/CREATE/EXTEND SUK A2,/22-/21 4 P RF(NZ) FM:RQE REQUEST ERROR IF NOT CLOSE/DELE
0x331dd0…331f64 Dummy {f00=0x00f6, f01=0x0190, f02=»ARAMETERS: h * " P* A1 = ORDER CODE AND OPTION * A2 = DISPATCH ADDRESS B * %* A3 = TTAB ADDRESS OF CALLING TASK d P* A4 = ECB ADDRESS * A5 = FMTASK TTAB ADDRESS * PFM:010 EQU * $ P LDR A1,A7 ORDER CODE AN
0x331f64…3320f8 Dummy {f00=0x00f6, f01=0x0190, f02=»DR A4,A8 ECB ADDRESS ( # LDKL A5,TTABFM FMTASK TTAB ADDRESS , P ABL ACTDIS ACTIVATE FMTASK AND DISPATCH H * x EJECT TOSSFM * * ********** * FM I/O * ********** * $ * FILE MANAGEMENT I/O FUNC
0x3320f8…33228c Dummy {f00=0x00f6, f01=0x0190, f02=»DK A1,0 CHECK RETURN CODE P RF(Z) FM:050 OK " * : PFM:040 EQU * D P LDR A3,A1 RETURN CODE X . P ABL TIOERR ERROR: QUEUE TASK AND DISPATCH v * EJECT TOSSFM * " P* CHECK RELATIVE SECTOR NUMBER * PFM:0
0x33228c…332420 Dummy {f00=0x00f6, f01=0x0190, f02=» MMUPAG=1 , ' EL A1,ECBCW1,A8 RELATIVE SECTOR NUMBER EL A2,ECBCW2,A8 B XIF Z * f P RF(NZ) FM:060 p ADK A1,0 , P RF(Z) FM:RQE RELATIVE SECTOR NUMBER = 0 * PFM:060 EQU * P ECR A6,A1 P ANK A6,/FF
0x332420…3325b4 (2, 272) Dummy {f00=0x00f6, f01=0x0190, f02=»RE d P LDKL A14,/7FFF P* " P EJECT TOSSFM , P* D ( P* SEARCH THE FILE EXTENT THAT HOLDS N P* THE REQUESTED SECTORS z * PFM:070 EQU * * P LC A6,EWTEXL-1,A3 FILE EXTENT LENGTH P LD A7,EWTEXL,A3 " P CWR A1,A6
0x3325b4…332748 Dummy {f00=0x00f6, f01=0x0190, f02=»ENT FOUND ~ * PFM:080 EQU * P IFT CPU852=0 0 . P DSR A6 SUBTRACT LENGTH FROM SECTOR NUMBER F P XIF x P* P IFT CPU852=1 2 P SUR A1,A6 SUBTRACT LENGTH FROM SECTOR NUMBER P SUR A2,A7 P RF(NN) FM:090 NOT UNDERFLOW
0x332748…3328dc Dummy {f00=0x00f6, f01=0x0190, f02=»DRESS TO 2ND EWT BLOCK . ) LDR* A3,A3 ADDRESS TO NEXT EWT STRUCTURE $ P RB(NZ) FM:070 CHECK NEXT EXTENT P * x 4 /FM:RQE EQU * FILE MANAGEMENT REQUEST ERROR EXIT P LDKL A1,/A000 REQUEST ERROR P RB FM:040 * EJECT TOSSF
0x3328dc…332a70 Dummy {f00=0x00f6, f01=0x0190, f02=» LC A10,EWTEXB-1,A4 FILE EXTENT BASE P LD A11,EWTEXB,A4 , * F IFT CPU852=0 P " P DAR A10 COMPUTE SECTOR NUMBER f XIF * IFT CPU852=1 & P ADR A1,A10 COMPUTE SECTOR NUMBER P ADR A2,A11 RF(O) FM:140 OVER
0x332a70…332c04 Dummy {f00=0x00f6, f01=0x018e, f02=»ON t SUK A1,1 * EJECT TOSSFM & * > * H PFM:115 EQU * R " P LDR A12,A1 SAVE SECTOR NUMBER f P LDR A13,A2 P* IFT MMUPAG=0 . P LC A3,ECBRL,A8 REQUESTED LENGTH (SECTORS) XIF *
0x332c04…332d98 Dummy {f00=0x00f6, f01=0x0190, f02=» . P ADR A2,A3 COMPUTE LAST REQUESTED SECTOR+1 RF(O) FM:150 OVERFLOW 6 * T PFM:120 EQU * ^ 0 P ADR A6,A10 COMPUTE LAST SECTOR+1 IN EXTENT r P ADR A7,A11 P RF(O) FM:160 OVERFLOW * PFM:125 EQU * P CWR A6,A1 0 P
0x332d98…332f2c Dummy {f00=0x00f6, f01=0x0190, f02=» P CWR A7,A2 4 P RB(L) FM:RQE ALL SECTORS NOT WITHIN THIS EXTENT P XIF N P* Z P IFT XTSPLI=1 d 4 P RF(L) FM:170 ALL SECTORS NOT WITHIN THIS EXTENT z P CWR A7,A2 4 P RF(L) FM:170 ALL SECTORS NOT WITHIN THIS EXTENT P XIF
0x332f2c…3330c0 Dummy {f00=0x00f6, f01=0x0190, f02=» = DISC INDEX (FROM FNDDWD) 0 P* A4 = 0 (INDICATES NOT I/O-AND-ACTIVATION) $ P* A5 = TTAB ADDRESS X * P* A6 = DISC DWT ADDRESS (FROM FNDDWD) t P* A7 = ORDER CODE P* A8 = ECB ADDRESS * PFM:130 EQU * $ P LC A2,EWTVOL,A4 FIL
0x3330c0…333254 (2, 273) Dummy {f00=0x00f6, f01=0x018e, f02=» CODE x P LD A1,DWTST,A6 DWT STATUS , P ABL(NN) QUEDEV DISC BUSY, QUEUE REQUEST 0 P* ` P IFT MMUPAG=0 j . P ST A12,ECBCW1,A8 SET SECTOR NUMBER IN ECB P ST A13,ECBCW2,A8 P XIF P* P IFT MMUPAG=1 . P ES A12,ECBCW1,A
0x333254…3333e8 Dummy {f00=0x00f6, f01=0x0190, f02=» EJECT TOSSFM * 6 2* OVERFLOW CORRECTIONS FOR DOUBLE WORD ARITHMETICS & * ` FM:140 EQU * j P IFT CPU852=1 ~ ADK A1,1 P ANR A2,A14 SKIP SIGN BIT P RB FM:110 P XIF * FM:150 EQU * ADK
0x3333e8…33357c Dummy {f00=0x00f6, f01=0x0190, f02=»BIT z P RB FM:125 * EJECT TOSSFM ( P* @ 0 P* REQUESTED SECTORS CONTINUE IN NEXT EXTENT J P* ~ PFM:170 EQU * IFT XTSPLI=1 & P LDR A1,A4 EWT ADDRESS (2ND BLOCK) $ LDKL A2,FMRDWR DISPATCH ADDRESS ****
0x33357c…333710 Dummy {f00=0x00f6, f01=0x0190, f02=»** P* FCHECK * P* FCHEC2 * P********** . P* @ P* J 6 P* FCHECK/FCHEC2 CONVERTS THE FILE NUMBER TO FWT T . P* ADDRESS AND CHECKS ACCESS PARAMETERS. P* " P* INPUT: A5 = TTAB ADDRESS P* A7 = ORDER C
0x333710…3338a4 Dummy {f00=0x00f6, f01=0x0190, f02=»* A2 IS DESTROYED P* " PFCHECK EQU * FCHECK MAIN ENTRY & P IFT MMUPAG=0 L P LDR* A2,A8 FILE NUMBER b P XIF P* P IFT MMUPAG=1 P ELR A2,A8 FILE NUMBER P XIF P* 4 PFCHEC2 EQU * FCHECK 2ND ENTRY (A2 = FI
0x3338a4…333a38 Dummy {f00=0x00f6, f01=0x0190, f02=»UMBER TOO BIG | 0 P LDKL A3,SCTFWT ADDRESS TO FWT CHAIN POINTER P* J P EJECT TOSSFM T P* l P* v $ PFC:010 EQU * COMPUTE FWT ADDRESS P LDR* A3,A3 NEXT FWT ADDRESS P SUK A2,1 P RB(P) FC:010 P* P* CHECK AC
0x333a38…333bcc Dummy {f00=0x00f6, f01=0x0190, f02=»1 CHECK IF FWT USED " P RF(Z) FC:050 FILE NOT OPENED , P LD A2,FWTTAB,A3 TTAB ADDRESS (EA TASK) B ( P RF(Z) FC:020 OPENED NON-EXCLUSIVELY r & P CWR A2,A5 EA, CHECK IF THIS TASK . P RF(NE) FC:060 EXCLUSIVE FOR ANOTHER TASK P* PFC:0
0x333bcc…333d60 Dummy {f00=0x00f6, f01=0x0190, f02=»CAL ORDERS | P ANK A7,/85 BASIC ORDER P* 2 , PFC:040 EQU * COMMON FCHECK RETURN LABEL < P RTN A15 l P* | P EJECT TOSSFM P* P* ERROR RETURNS P* $ PFC:050 EQU * REQUEST ERROR EXIT & P LDKL A1,/7FC0 RETURN
0x333d60…333ef4 (2, 274) Dummy {f00=0x00f7, f01=0x4088, f02=»OLUME LOADED EXIT ~ " P ADK A1,/20 RETURN CODE = /20 P RB FC:040 RETURN @ P* Z * d * n END x@
0x333ef4…334088 Dummy {f00=0x00f7, f01=0x2008, f02=» O t * * * & END 0@ <:127 : XIF L * X EJECT TOSSFM b * z * 8 3FM:170 EQU * MAKE ALL PARAMETERS READY FOR DISC I/O $ LC A2,EWTVOL,A3 FILE CODE DISC ( $ CF A15,FNDDW2 FIND DI
0x334088…33421c Dummy {f00=0x00f7, f01=0x0000, f02=»
[…0x5…]
0x334a00…334b94 (2, 275) Opaque[0x194]
0x334b94…334d28 # DirEnt {nam=»FMTASK«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x1ee8, f03=0x0000}
0x334b94…334d28 IdxSect {
0x334b94…334d28 f00 = 0x00f7 // 0x334b94 @0x0
0x334b94…334d28 f01 = 0x001e // 0x334b96 @0x2
0x334b94…334d28 gno = [ // 0x334b98 @0x4
0x334b94…334d28 [0x00]: C0x00f7.0x1.0
0x334b94…334d28 [0x01]: C0x00f7.0x2.0
0x334b94…334d28 [0x02]: C0x00f7.0x3.0
0x334b94…334d28 [0x03]: C0x00f8.0x0.0
0x334b94…334d28 [0x04]: C0x00f8.0x1.0
0x334b94…334d28 [0x05]: C0x00f8.0x2.0
0x334b94…334d28 [0x06]: C0x00f8.0x3.0
0x334b94…334d28 [0x07]: C0x00f9.0x0.0
0x334b94…334d28 [0x08]: C0x00f9.0x1.0
0x334b94…334d28 [0x09]: C0x00f9.0x2.0
0x334b94…334d28 [0x0a]: C0x00f9.0x3.0
0x334b94…334d28 [0x0b]: C0x00fa.0x0.0
0x334b94…334d28 [0x0c]: C0x00fa.0x1.0
0x334b94…334d28 [0x0d]: C0x00fa.0x2.0
0x334b94…334d28 [0x0e]: C0x00fa.0x3.0
0x334b94…334d28 ]
0x334b94…334d28 }
0x334d28…334ebc Dummy {f00=0x00f7, f01=0x0190, f02=» 2 P IDENT FMTASK REL 10.0 80-03-15 870105041000 P : * B * L 6 2************************************************** V * 6 2* PHILIPS TERMINAL SYSTEM PTS * * 6 2* FMTASK = TOSS FILE MANAGEMENT TASK
0x334ebc…335050 Dummy {f00=0x00f7, f01=0x0190, f02=» TOSS FILE MANAGEMENT TASK CONTAINS THE . ** FOLLOWING FILE ADMINISTRATION MODULES: 0 * b * &* - FMOPEN OPEN/CREATE/EXTEND FILE l $ * - FMCLOS CLOSE/DELETE FILE ( #* - FMRDFP READ FILE PARAMETERS * ( P* A SPECIAL EN
0x335050…3351e4 Dummy {f00=0x00f7, f01=0x0190, f02=»* - FMRDWR READ/WRITE (SPLIT EXTENT I/O) * 4 0 P* FMTASK ALSO CONTAINS THE FILE MANAGEMENT > . P* SYSTEM INITIALIZATION ROUTINE, FMINIT. r P* * EJECT FMTASK * * *********** * ENTRIES *
0x3351e4…335378 Dummy {f00=0x00f7, f01=0x0190, f02=»S h 0 P ENTRY FMINIT FILE MANAGEMENT INITIALIZATION ENTRY TTABFM FMTASK TTAB > ( P ENTRY FWTPAR FILE ACCESS PARAMETERS ` P ENTRY FWTFNR FILE NUMBER 6 P ENTRY FWTTAB TTAB FOR TASK WITH EXCLUSIVE ACCESS 2 P ENTRY FWTEW1 POINTER TO 2ND EWT
0x335378…33550c Dummy {f00=0x00f7, f01=0x0190, f02=»GTH x P ENTRY EWTEXB EXTENT BASE " P ENTRY EWTVOL VOLUME FILE CODE . P* T P EJECT FMTASK ^ P* v P* ENTRY FPB:RL RECORD LENGTH ENTRY FPB:BF BLOCK FACTOR $ ENTRY FPB:FO FILE ORGANIZATION ENTRY FPB:BO BA
0x33550c…3356a0 Dummy {f00=0x00f7, f01=0x0190, f02=» | ENTRY FPB:V2 VOLUME NAME 2 ENTRY FPB:S2 SIZE 2 , ENTRY FPB:V3 VOLUME NAME 3 H ENTRY FPB:S3 SIZE 3 l ENTRY FPB:V4 VOLUME NAME 4 ENTRY FPB:S4 SIZE 4 $ ENTRY FPB:FR FILE RECORD NUMBER " ENTRY FPB:US NUMBER OF
0x3356a0…335834 (2, 276) Dummy {f00=0x00f7, f01=0x0190, f02=»F NUMBER OF INDEX FILES ( # ENTRY FPB:KA KEY ADDRESS IN RECORD P ENTRY FPB:CD CREATION DATE L " P ENTRY FPB:RP RETENTION PERIOD p EJECT FMTASK * * ************* * EXTERNALS * ************* *
0x335834…3359c8 Dummy {f00=0x00f7, f01=0x0190, f02=»BLK GET PARAMETERS FROM MONITOR BLOCK 0 P EXTRN FNDTID FIND TTAB ADDRESS FROM TASK ID . ( P EXTRN FNDDWD FIND DISC DWT ADDRESS b : 6 EXTRN FCHECK CHECK ACCESS PAR. AND RETURN FWT ADDRESS " P EXTRN FCHEC2 FCHECK 2ND ENTRY 4 0 EXTRN LKMERR HALT SYS
0x3359c8…335b5c Dummy {f00=0x00f7, f01=0x0190, f02=»FTAB z " P EXTRN SCTNOF NUMBER OF FILES * P EXTRN SCTFWT FWT CHAIN START ADDRESS 2 ( P EXTRN SCTFWL FILE WORK TABLE LENGTH ` $ P EXTRN SCTDMT DM TASKS IN SYSTEM P EXTRN NVLTAB NVL TABLE $ P EXTRN NVLDMT DM TASK NVL TABLE P EXTRN NVLEN
0x335b5c…335cf0 Dummy {f00=0x00f7, f01=0x0190, f02=» EXTRN DWTMEC MMU ECB ADDRESS P EXTRN DWTVOL VOLUME NAME & P EXTRN DWTNVL NVL INDICATOR H 2 P EXTRN FDBMEC FDB MMU ECB DISPLACEMENT IN FWT l P* P EJECT FMTASK P* P* P EXTRN TTB:MT MMU TABLE P EXTRN TTB:SA SA
0x335cf0…335e84 Dummy {f00=0x00f7, f01=0x0190, f02=»ETURN CODE ~ P EXTRN ECBCW1 CONTROL WORD 1 P EXTRN ECBCW2 CONTROL WORD 2 6 EJECT FMTASK Z * r * | , '*************************************** * * CONDITIONAL ASSEMBLY * , '********************************
0x335e84…336018 Dummy {f00=0x00f7, f01=0x0190, f02=»AG EQU 1 * * 6 2* A PROGRAM VERSION USING THE EXTENDED INSTRUCTION $ . ** SET IS OBTAINED BY SETTING CPU852 EQU 0. ^ * PCPU852 EQU 0 * * 4 /* A PROGRAM VERSION SUPPORTING SPLIT EXTENT I/O * &* IS OBTAINED
0x336018…3361ac Dummy {f00=0x00f7, f01=0x0190, f02=» | P* VL DISPLACEMENTS * P******************** $ P* @ P* VOLUME LABEL DISPLACEMENTS J P* n PVOL:VN EQU 0 VOLUME NAME x $ PVOL:EL EQU 6 VTOC EXTENT LENGTH " PVOL:EB EQU 10 VTOC EXTENT BASE $ PVOL:RL EQU 12 VTOC RECORD LENGTH
0x3361ac…336340 Dummy {f00=0x00f7, f01=0x0190, f02=»* $ PVTOCRL EQU 42 VTOC RECORD LENGTH " PVTOCBF EQU 6 VTOC BLOCK FACTOR 2 P* X P EJECT FMTASK b P* z P* P********************** P* VTOC DISPLACEMENTS * P********************** P* , P* VOLUME TABLE OF CONT
0x336340…3364d4 (2, 277) Dummy {f00=0x00f7, f01=0x0190, f02=»NUMBER (S-FILE) v " PVTC:SN EQU 9 SOP SWITCH NUMBER $ PVTC:EN EQU 10 FILE EXTENT NUMBER > $ PVTC:EL EQU 12 FILE EXTENT LENGTH f " PVTC:EB EQU 16 FILE EXTENT BASE $ PVTC:LR EQU 20 LAST RECORD NUMBER PVTC:RL EQU 24 RECORD LENGTH PVTC:BF E
0x3364d4…336668 Dummy {f00=0x00f7, f01=0x0190, f02=» ( PVTC:IF EQU 37 NUMBER OF INDEX FILES ( PVTC:KA EQU 38 KEY ADDRESS IN RECORD 0 PVTC:ST EQU 41 STATUS BYTE P* ~ P EJECT FMTASK P* P* P********************* P* FWT DISPLACEMENTS * P*********************
0x336668…3367fc Dummy {f00=0x00f7, f01=0x0190, f02=»TBAS EQU FWTLNK+/10 P XIF P* ( P IFT MMUPAG=1 2 PFWTBAS EQU FWTLNK+/14 H P XIF f P* r < PFWTVTC EQU FWTBAS+/00 VTOC SECTOR NUMBER (FIRST EXTENT) | 0 PFWTPAR EQU FWTBAS+/02 FILE ACCESS PARAMETERS & PFWTFNR EQU FWTBAS+/03 FI
0x3367fc…336990 Dummy {f00=0x00f7, f01=0x0190, f02=»T 4 PFWTSEX EQU FWTBAS+/08 FILE SECTION/EXTENT NUMBER B PFWTEXL EQU FWTBAS+/0A EXTENT LENGTH IN SECTORS (FIRST EXTENT) B 8 PFWTEW2 EQU FWTBAS+/0C POINTER TO NEXT EWT STRUCTURE : PFWTVOL EQU FWTBAS+/0E VOLUME FILE CODE (FIRST EXTENT) 4 PFWTEXB
0x336990…336b24 Dummy {f00=0x00f7, f01=0x0190, f02=» P********************* P* EWT DISPLACEMENTS * & P********************* D P* b & P* EXTENT WORK TABLE DISPLACEMENTS l P* $ PEWTLNK EQU 0 LINK NEXT EWT BLOCK P* P* BLOCK 1 P* , PEWTSEX EQU 2 FILE SECTION/
0x336b24…336cb8 Dummy {f00=0x00f7, f01=0x0190, f02=» r PEWTEXB EQU 4 EXTENT BASE P* ( 0 PEWTLEN EQU 6 EXTENT WORK TABLE BLOCK LENGTH 2 P* f EJECT FMTASK p * * ********************* * FPB DISPLACEMENTS * ********************* * ( $* FILE P
0x336cb8…336e4c Dummy {f00=0x00f7, f01=0x018e, f02=»NIZATION z FPB:BO EQU 5 BASIC ORDERS FPB:FN EQU 8 FILE NAME 2 FPB:EL EQU 17 ENLARGE P FPB:V1 EQU 18 VOLUME NAME 1 n FPB:S1 EQU 24 SIZE 1 FPB:V2 EQU 28 VOLUME NAME 2 FPB:S2 EQU 34 SIZE 2 FPB:V3 EQU 38 VOLUME NAME
0x336e4c…336fe0 Dummy {f00=0x00f7, f01=0x0190, f02=» n " FPB:US EQU 62 NUMBER OF USERS FPB:SH EQU 64 SHAREABILITY . FPB:MN EQU 65 MONITOR NUMBER P $ FPB:SN EQU 66 SOP SWITCH NUMBER t ( #FPB:IF EQU 67 NUMBER OF INDEX FILES ( #FPB:KA EQU 68 KEY ADDRESS IN RECORD PFPB:CD EQU 70 CREATI
0x336fe0…337174 (2, 278) Dummy {f00=0x00f8, f01=0x0190, f02=»ASK * * TTABFM (FMTASK TTAB) * 4 IFT MMUPAG=1 > RES 16 FMTASK MMU TABLE T XIF t * ( P DATA 0 CURRENT SEGMENT BASE (DUMMY) 2 PVOLUME DATA 0 CURRENT VOLUME NAME DISPLACEMENT " DATA 0 SEGMENT BLOCK ADDRES
0x337174…337308 Dummy {f00=0x00f8, f01=0x0190, f02=»49 PRIORITY LEVEL DATA 0 PENDING POINTER * P DATA /C4C0 PSW (PROGRAM STATUS WORD) : DATA 0 DISPATCH ADDRESS h 2 . DATA 0,0,0,0,0,0,0 REGISTER SAVE AREA, A1-A14 $ P DATA FM:ECB A8 = FM:ECB ADDRESS P DATA 0,0,0,0,0,0 *
0x337308…33749c Dummy {f00=0x00f8, f01=0x0190, f02=»0,0 * P RES 6 FMTASK STACK $ FM:STB EQU *-2 FMTASK STACK BASE 2 * Z P IFT MMUPAG=1 d , PFM:FPB RES 40 FILE PARAMETER BLOCK AREA z P XIF P* P EJECT FMTASK P* P* P********** P* FMINIT *
0x33749c…337630 Dummy {f00=0x00f8, f01=0x0190, f02=»INIT AFTER IPL AND AT POWER ON. x > P* WHEN CALLED AT POWER ON, AN IMMEDIATE RETURN IS MADE. ( P* j < P* FMINIT WILL ZEROIZE THE FWT AREA, AND LINK THE FWT:S t < P* TOGETHER. THE POINTER FWTEW1 IS ALSO INITIALIZED, AS & P* WELL AS FWTFNR (
0x337630…3377c4 Dummy {f00=0x00f8, f01=0x0190, f02=»TASK. ^ P* PFMINIT EQU * FMINIT ENTRY * P LDKL A1,/F03E RTNA15 INSTRUCTION CODE : P ST A1,FMINIT CLOSE THE DOOR h P* P EJECT FMTASK P* P* 8 PFM:BUF EQU FMINIT+2 START OF FMTASK INTERNAL BUFFER P* P
0x3377c4…337958 Dummy {f00=0x00f8, f01=0x0190, f02=» P LDKL A6,/8000 DWT BUSY BIT $ P LDKL A7,TIODM DM ADDRESS BLOCK , P* T PFMI:30 EQU * ^ P IFT MMUPAG=1 r 4 P LDKL A8,FDBMEC FDB MMU ECB DISPLACEMENT IN FWT P ADR A8,A1 MMU ECB ADDRESS P XIF P* " P LDR A2,A1 CURRE
0x337958…337aec Dummy {f00=0x00f8, f01=0x0190, f02=» FMI:50 INITIALIZATION COMPLETED , P RF(Z) FMI:40 ONE FWT LEFT TO INITIALIZE ( 0 P STR A3,A1 LINK CURRENT FWT TO THE NEXT FWT X $ P ADK A1,2 INCREMENT FWT POINTER P* P EJECT FMTASK P* P* PFMI:40 EQU * P CMR A1
0x337aec…337c80 Dummy {f00=0x00f8, f01=0x018e, f02=»A3,SCTFWL " P ADK A3,FWTEW2 FWTEW2 ADDRESS . P ST A3,FWTEW1,A2 INITIALIZE FWTEW1 POINTER 8 , P ST A5,FWTFNR,A2 SET FILE NUMBER IN FWT j * P ST A6,DWTST,A2 INDICATE FWT NOT BUSY : P ST A7,DWTADR,A2 DM ADDRESS BLOCK (ACTIVATION ADDRESS) P*
0x337c80…337e14 (2, 279) Dummy {f00=0x00f8, f01=0x0190, f02=» P* P EJECT FMTASK P* & 4 P* FILL IN NVLTAB WITH DM TTAB ADDRESSES (IF ANY) 0 P* h PFMI:50 EQU * r $ P LD A1,SCTDMT DM TASKS IN SYSTEM ( P RF(Z) FMI:75 NO DM TASKS IN SYSTEM P LDK A3,4 LOOP COUNTER & P LDKL A4,NVLDMT
0x337e14…337fa8 Dummy {f00=0x00f8, f01=0x0190, f02=»DM TASK NOT IN SYSTEM | , P CF A15,FNDTID FIND DM TASK TTAB ADDRESS P STR A2,A4 STORE IN NVLTAB N P* p PFMI:70 EQU * z & P ADK A4,2 INCREMENT NVLTAB POINTER P ADK A7,1 NEXT DM TASK ID $ P SUK A3,1 DECREMENT LOOP COUNTER P RB(P)
0x337fa8…33813c Dummy {f00=0x00f8, f01=0x0190, f02=»LIZE BIT MASK P LDK A2,1 " P LDKL A3,NVLTAB NVLTAB ADDRESS ( P* N PFMI:80 EQU * X * P LDR* A4,A3 GET ONE ENTRY FROM NVLTAB l & P RF(Z) FMI:85 THIS ENTRY NOT USED $ P ORR A1,A2 INDICATE TTAB PRESENT P* PFMI:85 EQU *
0x33813c…3382d0 Dummy {f00=0x00f8, f01=0x0190, f02=»LTAB t P* ! PFMI:90 EQU * ! * P ORR A1,A2 ADD ONE BIT FOR USER TASKS ! * " P ST A1,NVLBIT SET NVL BIT MASK ! X P RTN A15 ! ~ P* ! P IFT MMUPAG=0 ! P RES 57 ! P XIF ! P* ! P IFT MMUPAG=1 ! P RES 52 ! P XIF ! P*
0x3382d0…338464 Dummy {f00=0x00f8, f01=0x0190, f02=»LE MANAGEMENT TASK PERFORMS ! * %* FILE ADMINISTRATION FUNCTIONS. IT " $ , '* IS ACTIVATED BY THE FILE MANAGEMENT " R & P* LKM PROCESSOR AT ENTRY FM:ADM. " . P* AFTER SOME HOUSEKEEPING THE FOLLOWING " 6 P* MODULES WILL PERFORM THE FILE ADMINIST
0x338464…3385f8 Dummy {f00=0x00f8, f01=0x0190, f02=» ( " : 0, 2) " j > :* - FMRDFP READ FILE PARAMETERS ( " : 0) # * # b ( P* A SPECIAL ENTRY IS USED FOR I/O # l . P* FUNCTIONS WHERE REQUESTED SECTORS ARE # , P* SPLIT OVER TWO OR MORE FILE EXTENTS: # P* # > :*
0x3385f8…33878c Dummy {f00=0x00f8, f01=0x018e, f02=» # P* FM:ADM * $ P********** $ P* $ , * $ 6 * ENTRY PARAMETERS: $ @ * $ ^ " P* A1 = ORDER CODE AND OPTION $ h * %* A3 = TTAB ADDRESS OF CALLING TASK $ P* A4 = USER ECB ADDRESS $ * $ 2 PFM:ADM EQU * FM ADMINISTRATION F
0x33878c…338920 Dummy {f00=0x00f8, f01=0x0190, f02=» $ r & P LDKL A14,FM:STB FMTASK STACK BASE % P* % 2 P IFT MMUPAG=0 % < P LD A10,ECBBA,A9 FPB ADDRESS % R P XIF % v P* % P IFT MMUPAG=1 % ( P LDKL A3,TTABFM FMTASK TTAB ADDRESS % P TL TTB:MT,A5 USER MMU TABLE % , P TS TTB:MT,A3 STORE IN
0x338920…338ab4 (2, 280) Dummy {f00=0x00f8, f01=0x018e, f02=»DKL A2,FM:FPB FM FPB ADDRESS % P LDR A10,A2 SAVE IT & $ P LDK A4,FPBLEN FPB LENGTH & @ $ P MVUS A4 MOVE USER FPB TO FM:FPB & b P XIF & P* & P EJECT FMTASK & P* & . P* CHECK WHAT FUNCTION THAT IS REQUESTED & 4 P* AND BRANCH TO AP
0x338ab4…338c48 Dummy {f00=0x00f8, f01=0x0190, f02=» P* ' P* A1 = ORDER OPTION ' * P* A5 = TTAB ADDRESS OF CALLING TASK ' , P* A9 = USER ECB ADDRESS ' Z P* A10 = FPB ADDRESS ' | P* ' $ P ECR A1,A7 ORDER CODE AND OPTION ' P ANK A7,/7F ORDER CODE ' P SUK A7,/03 ' ( P ABL(Z) FMRD
0x338c48…338ddc Dummy {f00=0x00f8, f01=0x0190, f02=»* ' ********** ( * FMOPEN * ( ********** ( . * ( @ P* ( J 2 P* FILE MANAGEMENT ADMINISTRATION FUNCTIONS: ( T P* OPEN/CREATE/EXTEND FILE ( P* ( P* ENTRY PARAMETERS: ( P* ( P* A1 = ORDER OPTION ( * P* A5 = T
0x338ddc…338f70 Dummy {f00=0x00f8, f01=0x0190, f02=»END FILE ( t P ANK A1,/FF ORDER OPTION ) ( P ABL(NZ) FM:RQE ILLEGAL ORDER OPTION ) 0 P* ) P EJECT FMTASK ) f P* ) ~ P* ) P******** ) P* OPEN * ) P******** ) P* ) P* ) POPEN EQU * OPEN FILE ) 0 P LDK A7,FPB:V1 1ST VOL
0x338f70…339104 Dummy {f00=0x00f8, f01=0x0190, f02=»LUME NOT FOUND ) $ P CF A14,FNDFWT FIND FWT ADDRESS * P ADK A6,0 SET CR * > ( P RF(Z) OP:030 NO FREE FWT AVAILABLE * V " P LDR* A1,A6 FIRST WORD OF FWT * & P ANK A1,1 CHECK IF ALREADY OPENED * P RF(Z) OP:060 NOT OPENED * P* * P* FILE IS AL
0x339104…339298 Dummy {f00=0x00f8, f01=0x018e, f02=»B ADDRESS FOR EA TASK * | " P RF(NZ) OP:040 FILE PROTECTED + & P LC A1,FWTPAR,A6 ACCESS PARAMETERS + D P LDR A2,A1 + n P ANK A1,/3F NUMBER OF USERS + P SUK A1,/3F + P ABL(NZ) OP:250 + P* + P EJECT FMTASK + P* + P* ERROR EXIT
0x339298…33942c Dummy {f00=0x00f8, f01=0x018e, f02=» + l P LDKL A4,/8400 RETURN CODE , P RF OP:RTN , * P* , < POP:040 EQU * FILE PROTECTED , F P LDK A4,/40 RETURN CODE , j P RF OP:RTN , P* , & POP:050 EQU * VOLUME/FILE NOT FOUND , 0 P CF A14,RELBLK RELEASE EWT STRUCTURE BLOCKS , P* ,
0x33942c…3395c0 Dummy {f00=0x00f8, f01=0x0190, f02=» P EJECT FMTASK - P* - P* FILE IS NOT OPENED BEFORE: - & 0 P* FIND ALL FILE EXTENTS, BUILD FWT AND EWT:S - J P* - ~ POP:060 EQU * - P* - $ P* MOVE FILE NAME FROM FPB TO FWT - P* - P LDR A1,A10 FPB ADDRESS - P ADK A1,FPB:FN -
0x3395c0…339754 (2, 281) Dummy {f00=0x00f8, f01=0x018e, f02=» LDR A2,A12 RESTORE FILE CODE - P RF OP:075 . & P* . 8 P* FIND ONE VOLUME . B P* . POP:070 EQU * . f 0 P ST A7,VOLUME SAVE VOLUME NAME DISPLACEMENT . z P CF A14,FNDVOL FIND VOLUME . P ADK A2,0 . " P RB(Z) OP:050 VOLUME NOT FOUND . P
0x339754…3398e8 Dummy {f00=0x00f8, f01=0x018e, f02=» . p 0 P LDR A11,A2 SAVE CURRENT VTOC SECTOR NUMBER / & P RB(Z) OP:050 NO FILE EXTENT FOUND / < P* / f POP:080 EQU * / p P LDR A1,A6 SAVE FWT ADDRESS / P LDR* A2,A8 DISC FILE CODE / P INH / . P CF A15,FNDDWD DISC DWT ADDRESS AND INDEX / P
0x3398e8…339a7c Dummy {f00=0x00f8, f01=0x018e, f02=» " P LDR A6,A1 RESTORE FWT ADDRESS 0 ( P LD A3,VTC:EN,A13 FILE EXTENT NUMBER 0 * ( P LD A2,VTC:FO,A13 FILE ORGANIZATION 0 V P ANK A2,/FF 0 P SUK A2,'L' 0 P RF(Z) OP:085 L-FILE 0 * P LD A2,VTC:FS,A13 FILE SECTION NUMBER 0 P SRC A2,2 0 2 P E
0x339a7c…339c10 Dummy {f00=0x00f8, f01=0x0190, f02=» 0 POP:085 EQU * 1 * P LC A2,VTC:EL+1,A13 FILE EXTENT LENGTH 1 P LD A1,VTC:EL+2,A13 1 J P ADK A3,0 SET CR 1 f $ P RF(Z) OP:090 FIRST FILE EXTENT 1 ~ P INH 1 P CF A15,GETBLK EWT BLOCK 1 1 P RF OP:100 1 P* 1 POP:090 EQU * 1 > P ST
0x339c10…339da4 Dummy {f00=0x00f8, f01=0x0190, f02=» POP:100 EQU * 2 P LDR* A2,A8 VOLUME FILE CODE 2 * P ECR A2,A2 FILE CODE NOW IN LEFT BYTE 2 < ( P LC A2,VTC:EB+1,A13 FILE EXTENT BASE 2 j P LD A1,VTC:EB+2,A13 2 P ADK A3,0 SET CR 2 ( P RF(NZ) OP:120 NOT FIRST FILE EXTENT 2 < P ST A2,FWTEXB-2,A6
0x339da4…339f38 Dummy {f00=0x00f8, f01=0x0190, f02=» 2 * P* FIND REMAINING EXTENTS FOR THIS FILE 3 P* 3 6 POP:110 EQU * 3 @ ( P CF A14,FVTC30 FIND NEXT VTOC ENTRY 3 T 0 P LDR A11,A2 SAVE CURRENT VTOC SECTOR NUMBER 3 6 P RF(Z) OP:160 NO MORE FILE EXTENTS ON THIS VOLUME 3 P RB OP:080 3 P* 3
0x339f38…33a0cc Dummy {f00=0x00f8, f01=0x0190, f02=»CK 1 3 v P CF A15,GETBLK EWT BLOCK 2 4 P ENB 4 . P STR A4,A3 LINK EWT2 TO EWT1 4 : P LDR A1,A6 FWT ADDRESS 4 ^ P ADK A1,FWTEW2 4 | P* 4 POP:130 EQU * 4 * P LDR* A2,A1 ADDRESS NEXT EWT STRUCTURE 4 P RF(NZ) OP:150 4 P* 4 POP:140 EQU
0x33a0cc…33a260 Dummy {f00=0x00f8, f01=0x0190, f02=»TSEX,A2 FILE SECTION AND EXTENT NUMBER 4 P CC A11,EWTSEX,A3 5 . ( P RB(G) OP:140 INSERT NEW EWT BLOCKS 5 H ( P LDR* A1,A2 ADDRESS TO 2ND EWT BLOCK 5 t P RB OP:130 5 P* 5 P EJECT FMTASK 5 P* 5 P* 5 POP:160 EQU * 5 2 P LD A7,VOLUM
0x33a260…33a3f4 (2, 282) Dummy {f00=0x00f9, f01=0x018e, f02=» LDR A1,A10 FPB ADDRESS 5 $ P ADR A1,A7 POINT TO VOLUME NAME 6 0 P LDR* A1,A1 CHECK IF MORE VOLUMES SPECIFIED 6 H " P RF(Z) OP:170 NO MORE VOLUMES 6 | , P SUKL A1,/2020 SPACES IF NO MORE VOLUMES 6 $ P RB(NZ) OP:070 FIND NEXT VOLUME 6 P* 6 POP:1
0x33a3f4…33a588 Dummy {f00=0x00f9, f01=0x0190, f02=» 6 j P* 7 6 P LD A1,FWTVTC,A6 VTOC SECTOR NUMBER, FIRST EXTENT 7 , P RB(Z) OP:050 FIRST FILE EXTENT MISSING 7 L P LDR A1,A6 FWT ADDRESS 7 | P ADK A1,FWTEW1 7 , P LDK A4,0 FILE SECTION AND EXTENT NUMBER 7 P* 7 P EJECT FMTASK 7 P* 7
0x33a588…33a71c Dummy {f00=0x00f9, f01=0x018e, f02=»P:230 END OF EWT CHAIN 7 4 P LC A13,EWTSEX,A1 FILE SECTION AND EXTENT NUMBER 8 P LDR A3,A13 8 V $ P ANK A3,/C0 FILE SECTION NUMBER 8 j P LDR A7,A4 8 $ P ANK A7,/C0 FILE SECTION NUMBER 8 , P SUR A7,A3 COMPARE FILE SECTION NUMBERS 8 , P RF(Z) OP:19
0x33a71c…33a8b0 Dummy {f00=0x00f9, f01=0x0190, f02=» 8 , P ANK A3,/3F EXTENT NUMBER SHOULD BE ZERO 9 P RF OP:200 9 8 P* 9 J POP:190 EQU * 9 T P LDR A3,A13 9 h " P ANK A3,/3F FILE EXTENT NUMBER 9 | " P ANK A4,/3F FILE EXTENT NUMBER 9 * P SUR A4,A3 COMPARE FILE EXTENT NUMBER 9 & P ADK A4,1 DIFFEREN
0x33a8b0…33aa44 Dummy {f00=0x00f9, f01=0x018e, f02=» EXTENT NUMBER 9 j P RB OP:180 : P* : ( P EJECT FMTASK : 2 P* : J P* : T POP:230 EQU * : ^ , P LC A2,FPB:SH,A10 SHAREABILITY PARAMETER : r P ANK A2,/FF : " P RF(Z) OP:240 NO EA REQUESTED : , P ST A5,FWTTAB,A6 SET TTAB ADDRESS IN FWT :
0x33aa44…33abd8 Dummy {f00=0x00f9, f01=0x0190, f02=» : EJECT FMTASK ; P* ; , P* COMMON EXIT FOR ACCEPTED OPEN REQUESTS ; * P* ; Z POP:250 EQU * ; d . P LD A1,FPB:BO,A10 BASIC ORDERS PARAMETERS ; x P ANK A1,/FF ; 2 P RF(NZ) OP:260 BASIC ORDERS WANTED, NO ACTION ; * P ANK A2,/BF PHYSICAL
0x33abd8…33ad6c Dummy {f00=0x00f9, f01=0x0190, f02=»METERS ; l P LD A4,FWTFNR,A6 FILE NUMBER < P* < 2 P IFT MMUPAG=0 < < * P SC A4,ECBFC,A9 SET FILE NUMBER IN ECB < R P XIF < P* < P IFT MMUPAG=1 < P ELR A2,A9 < P ANKL A2,/FF00 < P ANK A4,/FF FILE NUMBER < P ORR A2,A4 < & P E
0x33ad6c…33af00 Dummy {f00=0x00f9, f01=0x0190, f02=»K < P* = P* = P********** = P* CREATE * = 0 P********** = B P* = T P* = ^ PCREATE EQU * CREATE FILE = h P* TO BE IMPLEMENTED = P EJECT FMTASK = P* = P* = P********** = P* EXTEND * = P********** = P
0x33af00…33b094 (2, 283) Dummy {f00=0x00f9, f01=0x0190, f02=» = * FMCLOS * > ********** > * > , P* > 6 2 P* FILE MANAGEMENT ADMINISTRATION FUNCTIONS: > @ P* CLOSE/DELETE FILE > v P* > P* ENTRY PARAMETERS: > P* > P* A1 = ORDER OPTION > * P* A5 = TTAB ADDRESS OF CALLING TAS
0x33b094…33b228 Dummy {f00=0x00f9, f01=0x0190, f02=»R OPTION > ( P ABL(NZ) FM:RQE ILLEGAL ORDER OPTION ? P* ? < P EJECT FMTASK ? F P* ? ^ P* ? h P********* ? r P* CLOSE * ? P********* ? P* ? P* ? PCLOSE EQU * CLOSE FILE ? 2 P CF A14,RDVTOC READ VTOC RECORD (FIRST EXTENT)
0x33b228…33b3bc Dummy {f00=0x00f9, f01=0x018e, f02=»CHECK IF NVL ? ( P RF(Z) CL:010 NVL, DON'T WRITE VTOC @ P ABL FM:RTC ERROR @ @ P* @ Z PCL:005 EQU * @ d ( P LD A1,FPB:FR,A10 FILE RECORD NUMBER @ x P LD A3,FPB:FR+2,A10 @ , P ST A1,VTC:LR,A13 SET LRN IN VTOC RECORD @ P ST A3,VTC:LR+2,A13 @
0x33b3bc…33b550 Dummy {f00=0x00f9, f01=0x018e, f02=» P RF(NN) CL:007 NOT NVL A & P LDK A1,/20 SET NVL IN RETURN CODE A " P ST A1,ECBRC,A8 A L P RF CL:010 A d P* A v PCL:007 EQU * A , P CF A14,FM:PWR WRITE VTOC RECORD TO DISC A P* A P EJECT FMTASK A P* A P* A PCL:010 EQU * A
0x33b550…33b6e4 Dummy {f00=0x00f9, f01=0x0190, f02=» A r * P SUK A2,1 DECREMENT NO OF USERS BY ONE B 2 P SC A2,FPB:US,A10 RETURN REMAINING NO OF USERS B 6 4 P RF(P) CL:020 DON'T RELEASE FWT IF ANY USER LEFT B l P* B P EJECT FMTASK B P* B P* RELEASE FWT AND EWT BLOCKS B P* B P LDK A2,1
0x33b6e4…33b878 Dummy {f00=0x00f9, f01=0x0190, f02=» EQU * B . P ORR A1,A2 PUT TOGETHER ACCESS PARAMETERS C P SC A1,FWTPAR,A6 C @ P* C X PCL:030 EQU * C b P LD A4,ECBRC,A8 RETURN CODE C v P RF FMEXIT RETURN C * C & PCL:040 EQU * ENTRY USED BY FM:LKM C $ P ADKL A14,4 ADJUST STACK POINTER
0x33b878…33ba0c Dummy {f00=0x00f9, f01=0x0190, f02=» C P* D PDELETE EQU * DELETE FILE D P* TO BE IMPLEMENTED D 2 EJECT FMTASK D P * D h * D r ********** D | * FMRDFP * D ********** D * D P* D 2 P* FILE MANAGEMENT ADMINISTRATION FUNCTIONS: D P* READ FIL
0x33ba0c…33bba0 Dummy {f00=0x00f9, f01=0x0190, f02=»K D l P* A9 = USER ECB ADDRESS E P* A10 = FPB ADDRESS E , * E H & !FMRDFP EQU * READ FILE PARAMETERS E R P ANK A1,/FF ORDER OPTION E | ( P RF(NZ) FM:RQE ILLEGAL ORDER OPTION E 2 P CF A14,RDVTOC READ VTOC RECORD (FIRST EXTENT) E P ADK A1,0
0x33bba0…33bd34 (2, 284) Dummy {f00=0x00f9, f01=0x0190, f02=»2,FPBLEN FPB AREA LENGTH E P* F " PFMR:00 EQU * F , P CMR A1 F @ P ADK A1,2 F P P SUK A2,2 F b P RB(P) FMR:00 F t P* F P EJECT FMTASK F P* F P* F P LDR A1,A10 FPB ADDRESS F " P ADK A1,FPB:V2 2ND VOLUME NAME F & P L
0x33bd34…33bec8 Dummy {f00=0x00f9, f01=0x018e, f02=»NTER, INNER LOOP F ~ P* G " PFMR:04 EQU * INNER LOOP ENTRY G " * P STR A4,A1 MOVE SPACES TO VOLUME NAME G H P ADK A1,2 G v P SUK A3,1 G P RB(P) FMR:04 G * P ADK A1,FPB:V2-FPB:S1 NEXT VOLUME NAME G P SUK A2,1 G P RB(P) FMR:02 G P*
0x33bec8…33c05c Dummy {f00=0x00f9, f01=0x0190, f02=» G n P STR A1,A10 H 8 P LD A1,VTC:BF,A13 BLOCK FACTOR AND FILE ORGANIZATION H P ST A1,FPB:BF,A10 H X ( P LD A1,VTC:LR,A13 LAST RECORD NUMBER H r P ST A1,FPB:FR,A10 H $ P LD A1,VTC:LR+2,A13 LRN, PART 2 H P ST A1,FPB:FR+2,A10 H 4 P LD A1,VTC:M
0x33c05c…33c1f0 Dummy {f00=0x00f9, f01=0x0190, f02=»INDEX FILES H t P ST A1,FPB:IF,A10 I , P LD A1,VTC:KA,A13 KEY ADDRESS IN RECORD I . P ST A1,FPB:KA,A10 I ^ P LDK A2,1 I x , P LD A1,FWTTAB,A6 SHAREABILITY PARAMETER I P RF(Z) FMR:05 NO EA I 2 P SC A2,FPB:SH,A10 INDICATE OPENED EXCLUSIVELY I
0x33c1f0…33c384 Dummy {f00=0x00f9, f01=0x0190, f02=»LE I f , P SC A2,FPB:BO,A10 INDICATE BASIC ORDERS J P* J : PFMR:10 EQU * J D P SLC A1,7 J X P ANK A1,/3F NUMBER OF USERS J j P SC A1,FPB:US,A10 J P* J P EJECT FMTASK J P* J . P* MOVE CREATION DATE AND RETENTION PERIOD J P*
0x33c384…33c518 Dummy {f00=0x00f9, f01=0x0190, f02=»ACTERS TO MOVE J | 8 P CF A14,MOVE MOVE CREATION DATE AND RETENTION PERIOD K P* K R $ P* MOVE FILE NAME FROM FWT TO FPB K P* K P LDR A1,A6 FWT ADDRESS K P ADK A1,FWTNAM K . P SUK A3,FPBLEN-FPB:FN-1 POINT TO FILE NAME K & P LDK A2,8 NO OF CHAR
0x33c518…33c6ac Dummy {f00=0x00f9, f01=0x0190, f02=» K b P LDR A11,A6 L * P LDR* A12,A11 ADDRESS TO 2ND EWT BLOCK L P* L J P EJECT FMTASK L T P* L l 8 P* READ VOLUME NAME AND COMPUTE SIZE OF FILE SECTION L v P* L PFMR:20 EQU * L $ P LC A2,EWTVOL,A12 DISC FILE CODE L P LDR A13,A2 SAVE
0x33c6ac…33c840 Dummy {f00=0x00f9, f01=0x0190, f02=»A6 VOLUME NAME ADDRESS L " P CF A14,MOVE MOVE VOLUME NAME M * P LD A1,EWTEXL-2,A11 FILE EXTENT LENGTH M D P ANK A1,/FF M r P LD A2,EWTEXL,A11 M P* M P EJECT FMTASK M P* M " P* COMPUTE FILE SECTION SIZE(S) M P* M PFMR:35 EQU *
0x33c840…33c9d4 (2, 285) Dummy {f00=0x00f9, f01=0x0190, f02=» M j P ANK A6,/FF N P LD A7,EWTEXL,A11 N * P LDR* A12,A11 ADDRESS TO 2ND EWT BLOCK N 6 & P CC A13,EWTVOL,A12 CHECK FILE CODE N d , P RF(NE) FMR:50 END OF THIS FILE SECTION N P* N P IFT CPU852=0 N * P DAR A6 ACKUMULATE FILE SECTION LENGTH N
0x33c9d4…33cb68 Dummy {f00=0x00f9, f01=0x0190, f02=»OW N | P RB FMR:35 O P* O PFMR:45 EQU * O & " P ADK A1,1 OVERFLOW CORRECTION O : P ANKL A2,/7FFF O ` P XIF O v P* O P RB FMR:35 O P* O PFMR:50 EQU * O . P STR A1,A3 STORE FILE SECTION SIZE IN FPB O P ST A2,2,A3 O 0 P ADK A
0x33cb68…33ccfc Dummy {f00=0x00f9, f01=0x0190, f02=» O EJECT FMTASK P * P P* P * P********** P 4 P* FMEXIT * P F P********** P X P* P j P* P t & P* COMMON EXIT FOR FILE MANAGEMENT P ~ P* ADMINISTRATION FUNCTIONS P P* P PFMEXIT EQU * P P IFT MMUPAG=1 P P* P 8 P
0x33ccfc…33ce90 Dummy {f00=0x00f9, f01=0x0190, f02=»ADDRESS P x P* Q P LDR A1,A10 FM:FPB ADDRESS Q $ P EL A2,ECBBA,A9 USER FPB ADDRESS Q < P LDK A3,FPBLEN FPB LENGTH Q d $ P MVSU A3 MOVE FM:FPB TO USER FPB Q P XIF Q * Q P EJECT FMTASK Q P* Q P* Q P********** Q P* FM:R
0x33ce90…33d024 Dummy {f00=0x00f9, f01=0x0190, f02=»ETURN CODE Q ~ * P* A5 = TTAB ADDRESS OF CALLING TASK R P* A9 = USER ECB ADDRESS R @ P* R b * PFM:RTC EQU * GENERAL RETURN CODE EXIT R l P IFT MMUPAG=0 R * P ST A4,ECBRC,A9 SET RETURN CODE IN ECB R P XIF R P* R P IFT MMUPAG=1 R *
0x33d024…33d1b8 Dummy {f00=0x00f9, f01=0x0190, f02=» * REQUEST ERROR EXIT R P LDKL A4,/8000 RETURN CODE S P RB FM:RTC S @ * S R P EJECT FMTASK S P* S t P* S ~ P********** S P* FM:PWR * S P* FMREAD * S P********** S P* S P* S * P* INPUT: A2 = SECTOR NUMBER, PART
0x33d1b8…33d34c Dummy {f00=0x00f9, f01=0x0190, f02=»DRESS S t P* T P* OUTPUT: A4 = 0 T P* A7 IS DESTROYED T 2 P* T N & PFM:PWR EQU * PHYSICAL WRITE ENTRY T X P LDK A7,/95 PHYSICAL WRITE T P RF FM:LKM T P* T $ PFMREAD EQU * PHYSICAL READ ENTRY T P LDK A7,/91 PHYSICAL READ T
0x33d34c…33d4e0 Dummy {f00=0x00f9, f01=0x0190, f02=» IN ECB T n P LKM U P DATA 1 U P LD A4,ECBRC,A8 RETURN CODE U , " P ANKL A4,/FEFF SKIP RETRY BIT U P P RF(Z) FM:RTN RETURN IF OK U v P* U : P* ERROR: CHECK WHY AND DECIDE IF REQUEST TO BE ABORTED U P* U P LDK A7,/A2 CLOSE ORDER U 4
0x33d4e0…33d674 (2, 286) Dummy {f00=0x00fa, f01=0x0190, f02=» CW A7,TTB:SA+14,A5 CHECK IF OPEN ORDER RUNNING U $ P RB(NE) FM:RTC ABORT IF NOT OPEN V 8 & P LDK A7,/20 NEW VOLUME LOADED BIT V ` P TM A4,A7 CHECK RETURN CODE V P RB(Z) FM:RTC NOT NVL, ABORT V * P RB FMREAD NVL AT OPEN, REPEAT REQUEST V P* V
0x33d674…33d808 Dummy {f00=0x00fa, f01=0x0190, f02=»** V P* W P* W . P* RELBLK WILL RELEASE THE MONITOR BLOCKS W , P* THAT ARE USED IN THE EWT STRUCTURE. W P P* W P* INPUT: A6 = FWT ADDRESS W P* W $ P* OUTPUT: A1-A4 ARE DESTROYED W P* W . PRELBLK EQU * RELEASE EWT STRUC
0x33d808…33d99c Dummy {f00=0x00fa, f01=0x0190, f02=»L:10 EQU * W P INH X $ P CF A15,FREBLK RELEASE EWT BLOCK X P ENB X F P LDR A4,A3 EWT BLOCK ADDRESS X R P RB(NZ) REL:10 X v P* X PREL:20 EQU * X * P CM FWTVTC,A6 RESET VTOC SECTOR NUMBER X 4 P CM FWTTAB,A6 RESET TTAB ADDRESS (EA PARAMETER)
0x33d99c…33db30 Dummy {f00=0x00fa, f01=0x0190, f02=»** X P* FNDNAM * Y P********** Y P* Y . 2 P* FNDNAM WILL CONVERT THE SUPPLIED FILE CODE Y 8 0 P* TO VOLUME NAME ADDRESS IN THE DISC DWT. Y n P* Y P* INPUT: A2 = FILE CODE Y P* Y P* OUTPUT: A2 = 6 Y ( P* A6 = VOLUM
0x33db30…33dcc4 Dummy {f00=0x00fa, f01=0x0190, f02=» Y ( P CF A15,FNDDWD FIND DISC DWT ADDRESS Z P ENB Z 4 P* Z @ PFNAM05 EQU * Z J P LD A4,DWTST,A6 Z ^ P ANK A4,1 Z v 4 P RF(NZ) FNAM10 POWER ON COMPLETED FOR THIS DISC Z P LKM Z P DATA 0 SWITCH TASKS Z P RB FNAM05 CHECK DISC AGAIN Z
0x33dcc4…33de58 Dummy {f00=0x00fa, f01=0x0190, f02=» A2,6 Z P ADKL A6,DWTVOL-6 [ P RTN A14 [ ( P* [ 8 P EJECT FMTASK [ B P* [ Z P* [ d P********** [ n P* FNDVOL * [ P********** [ P* [ P* [ & P* FNDVOL SEARCHES THE REQUESTED [ $ P* VOLUME SPECIFIED IN THE FPB. [
0x33de58…33dfec Dummy {f00=0x00fa, f01=0x0190, f02=»FILE CODE IF FOUND, ELSE [ z * P* = 0 IF VOLUME NOT FOUND & P* A1, A3-A4, A12 ARE DESTROYED N P* x ( PFNDVOL EQU * FIND VOLUME (FILE CODE) 4 P LDKL A1,DFTAB-1 DISC FILE CODE TABLE ADDRESS-1 P LDR A12,A6 SAVE FWT ADDRESS
0x33dfec…33e180 Dummy {f00=0x00fa, f01=0x018e, f02=»OF DFTAB ~ P LCR A2,A1 NEXT FILE CODE ] , P CF A14,FNDNAM FIND VOLUME NAME ADDRESS ] 2 * P LDR* A3,A6 FIRST WORD OF VOLUME NAME ] b P RB(Z) FVOL10 NO VOLUME ] P* ] P EJECT FMTASK ] P* ] P* ] P LDR A3,A10 FPB ADDRESS ] , P A
0x33e180…33e314 (2, 287) Dummy {f00=0x00fa, f01=0x0190, f02=» * P RB(NE) FVOL10 VOLUME NAMES NOT EQUAL ^ P ADK A3,2 INCREMENT POINTERS ^ 2 P ADK A6,2 ^ V P SUK A2,2 ^ h P RB(P) FVOL20 ^ z P LCR A2,A1 FILE CODE ^ P* ^ PFVOL25 EQU * ^ $ P LDR A6,A12 RESTORE FWT ADDRESS ^ P RTN A14 ^ P* ^
0x33e314…33e4a8 Dummy {f00=0x00fa, f01=0x0190, f02=» ^ P********** _ P* RDVTOC * _ P********** _ , P* _ > P* _ H 0 P* RDVTOC WILL CALL FCHEC2 FOR CHECK OF THE _ R 2 P* ACCESS PARAMETERS AND READ THE VTOC RECORD _ " P* OF THE FIRST FILE EXTENT. _ P* _ " P* INPUT: A5 = TTAB ADDRES
0x33e4a8…33e63c Dummy {f00=0x00fa, f01=0x018e, f02=»N FM:BUF _ j , P* A1-A4, A7, A11 ARE DESTROYED ` P* ` @ 8 PRDVTOC EQU * CHECK ACCESS PAR. AND READ VTOC RECORD ` J P IFT MMUPAG=0 ` P LDR* A2,A9 FILE NUMBER ` P XIF ` P* ` P IFT MMUPAG=1 ` P ELR A2,A9 FILE NUMBER ` P X
0x33e63c…33e7d0 Dummy {f00=0x00fa, f01=0x0190, f02=» P RF(NZ) RDVT20 ERROR, RETURN a P* a ( P EJECT FMTASK a 2 P* a J P* a T P LDR A6,A3 FWT ADDRESS a ^ 2 P LC A2,FWTVOL,A6 DISC FILE CODE (FIRST EXTENT) a | P SC A2,ECBFC,A8 a 6 P LD A2,FWTVTC,A6 VTOC SECTOR NUMBER (FIRST EXTENT) a 8 P CF
0x33e7d0…33e964 Dummy {f00=0x00fa, f01=0x0190, f02=» RDVT20 FIRST EXTENT FOUND a 6 P CF A14,FVTC30 READ NEXT VTOC RECORD FOR THIS FILE b " 0 P RB RDVT10 CHECK IF THIS IS THE FIRST EXTENT b P* b PRDVT20 EQU * b P RTN A14 b P* b P EJECT FMTASK b P* b P* b P********** b P*
0x33e964…33eaf8 Dummy {f00=0x00fa, f01=0x0190, f02=» RETURN IS MADE WHEN ONE EXTENT b P* HAS BEEN FOUND. c ( P* c D P* INPUT: A2 = FILE CODE c N " P* A5 = TTAB ADDRESS c p P* A6 = FWT ADDRESS c & P* A9 = USER ECB ADDRESS c P* c 6 P* OUTPUT: A2 = VTOC SECTOR NUM
0x33eaf8…33ec8c Dummy {f00=0x00fa, f01=0x018e, f02=» A1, A3-A4, A7, A11-A12 ARE DESTROYED c P* d 2 PFNDVTC EQU * FIND VTOC ENTRY d < ( P SC A2,ECBFC,A8 SET FILE CODE IN ECB d ` P LDK A2,0 SECTOR NUMBER d P CF A14,FMREAD READ SECTOR 0 d * P LD A2,FM:BUF+VOL:EB VTOC EXTENT BASE d P LDR A12,A
0x33ec8c…33ee20 Dummy {f00=0x00fa, f01=0x0190, f02=» P* e P* e & PFVTC10 EQU * ENTRY USED BY RDVTOC e ( P CF A14,FMREAD READ ONE VTOC SECTOR e B $ P LDKL A13,FM:BUF FM:BUF ADDRESS e n $ P LDK A7,VTOCBF VTOC BLOCK FACTOR e P* e PFVTC20 EQU * e & P LD A4,VTC:ST,A13 VTOC STATUS BYTE e P A
0x33ee20…33efb4 (2, 288) Dummy {f00=0x00fa, f01=0x0190, f02=» NUMBER e l & P ADKL A13,VTOCRL NEXT VTOC ADDRESS f P SUK A7,1 f : , P RB(P) FVTC20 MORE VTOC:S IN THIS SECTOR f L P ADK A2,1 NEXT VTOC SECTOR f | , P CWR A2,A12 CHECK IF END OF VTOC EXTENT f ( P RB(NE) FVTC10 NOT LAST VTOC SECTOR f P LDK A2,0 RETU
0x33efb4…33f148 Dummy {f00=0x00fa, f01=0x0190, f02=» ADK A1,FWTNAM f P LDR A3,A13 VTOC ADDRESS g P LDK A4,4 LOOP COUNTER g 6 P* g T $ PFVTC60 EQU * COMPARE FILE NAMES g ^ P LDR* A11,A3 g P CWR* A11,A1 g ( P RB(NE) FVTC30 FILE NAMES NOT EQUAL g P ADK A1,2 INCREMENT POINTERS g P ADK A3,2
0x33f148…33f2dc Dummy {f00=0x00fa, f01=0x0190, f02=» P********** h P* FNDFWT * h P********** h ( P* h : P* h D 4 P* FNDFWT IS USED TO FIND OUT IF THE SPECIFIED h N 0 P* FILE IS ALREADY OPENED, AND IF SO RETURN h & P* THE FWT ADDRESS FOR THE FILE. h 6 P* IF NOT OPENED, A FREE FWT ADDRES
0x33f2dc…33f470 Dummy {f00=0x00fa, f01=0x0190, f02=»A6 = FWT ADDRESS (=0 IF NO FREE FWT AVAILABLE) h & P* A1-A4, A7, A11 ARE DESTROYED i 6 P* i ` PFNDFWT EQU * i j P LDK A3,0 i ~ * P LD A7,SCTFWT FWT CHAIN START ADDRESS i P* i PFNDF10 EQU * i P LDK A2,1 i P* i PFNDF15 EQU * i
0x33f470…33f604 Dummy {f00=0x00fa, f01=0x0190, f02=»ECK IF USED i ( P RF(NZ) FNDF20 USED, CHECK FILE NAME j 6 P ADK A3,0 CHECK IF FREE FWT ADDRESS ALREADY SAVED j @ & P RB(NZ) FNDF15 YES, DON'T SAVE IT j z ( P LDR A3,A6 NO, SAVE THIS FWT ADDRESS j P RB FNDF15 CONTINUE SEARCH j P* j P EJECT FMT
0x33f604…33f798 Dummy {f00=0x00fa, f01=0x0190, f02=» A2,FWTNAM j P LDR A4,A10 FPB ADDRESS k P ADK A4,FPB:FN k 2 P SUK A7,1 SKIP FWT USED BIT k H P* k l $ PFNDF30 EQU * COMPARE FILE NAMES k v P LDR* A11,A2 k P CWR* A11,A4 k ( P RB(NE) FNDF10 FILE NAMES NOT EQUAL k P ADK A2,2 INCREMENT PO
0x33f798…33f92c Dummy {f00=0x00fa, f01=0x0190, f02=») FNDF10 NOT THIS FILE k P RTN A14 FILE FOUND, RETURN l P* l B PFNDF40 EQU * FILE NOT FOUND l L P LDR A6,A3 FREE FWT ADDRESS l p P RTN A14 l P* l P EJECT FMTASK l P* l P* l P******** l P* MOVE * l P******** l
0x33f92c…33fac0 Dummy {f00=0x00fa, f01=0x0190, f02=» = OUTPUT BUFFER ADDRESS l P* m P* OUTPUT: A2 = 0 m * > P* A1, A3 = ADDRESSES OF LAST MOVED CHARACTERS+1 m D P* A4 IS DESTROYED m P* m PMOVE EQU * MOVE STRING m " P LCR A4,A1 MOVE ONE CHARACTER m P SCR A4,A3 m (
0x33fac0…33fc54 (2, 289) Dummy {f00=0x00fa, f01=0x0190, f02=» P* n EJECT FMTASK n * n & * n 0 ********** n : * FMRDWR * n L ********** n ^ * n p P* n z $ * FILE MANAGEMENT I/O FUNCTIONS. n * &* FMRDWR IS ENTERED WHEN THE REQUESTED n & "* SECTORS ARE SPLIT OVER MORE THAN n * ON
0x33fc54…33fde8 Dummy {f00=0x00fa, f01=0x4098, f02=»SION n l XIF o * o IFT XTSPLI=1 o " " ABL LKMERR TO BE IMPLEMENTED o 8 XIF o ^ * o j * o t * o ~ END o @ o O FUNCTIONS. n * &* FMRDWR IS ENTERED WHEN THE REQUESTED n & "* SECTORS ARE SPLIT OVER MORE THAN n * ON
0x33fde8…33ff7c Dummy {f00=0x00fa, f01=0x2008, f02=» p FMTASK ~ * * " * , END 6@ B * H ********** R * FMRDFP * d ********** v * 0 +* FILE MANAGEMENT ADMINISTRATION FUNCTIONS: * READ FILE PARAMETERS * & !FMRDFP EQU * READ FILE PAR
0x33ff7c…340110 Dummy {f00=0x00fa, f01=0x0000, f02=»
[…0x4…]
0x340760…3408f4 (2, 290) Opaque[0x194]
0x3408f4…340a88 # DirEnt {nam=»DFTAB «, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x1f60, f03=0x0000}
0x3408f4…340a88 IdxSect {
0x3408f4…340a88 f00 = 0x00fb // 0x3408f4 @0x0
0x3408f4…340a88 f01 = 0x0002 // 0x3408f6 @0x2
0x3408f4…340a88 gno = [ // 0x3408f8 @0x4
0x3408f4…340a88 [0x00]: C0x00fb.0x0.0
0x3408f4…340a88 ]
0x3408f4…340a88 }
0x340a88…340c1c Dummy {f00=0x00fb, f01=0x0190, f02=» 0 P IDENT DFTAB REL 10.0 80-03-14 870105041000 P 8 P* @ 8 P**************************************************** J P* $ P* PHILIPS TERMINAL SYSTEM PTS P* & P* DFTAB = DISC FILE CODE TABLE P* P* P* 8
0x340c1c…340db0 Dummy {f00=0x00fb, f01=0x4122, f02=»NTRY DFTABE P ENTRY DMTIDP P ENTRY DMTIDS * P* @ P* J PDFTAB EQU * T P DATA /F0F1 h P DATA /F8F9,/FAFB | PDFTABE EQU * PDMTIDP EQU * P DATA /0000,/0101,/0101 PDMTIDS EQU * P DATA /0101,/0000,/000
0x340db0…340f44 Dummy {f00=0x00fb, 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*
0x340f44…3410d8 Dummy {f00=0x00fb, f01=0x0190, f02=»S h 0 P ENTRY FMINIT FILE MANAGEMENT INITIALIZATION ENTRY TTABFM FMTASK TTAB > ( P ENTRY FWTPAR FILE ACCESS PARAMETERS ` P ENTRY FWTFNR FILE NUMBER 6 P ENTRY FWTTAB TTAB FOR TASK WITH EXCLUSIVE ACCESS 2 P ENTRY FWTEW1 POINTER TO 2ND EWT
0x3410d8…34126c Dummy {f00=0x00fb, f01=0x0190, f02=»GTH x P ENTRY EWTEXB EXTENT BASE " P ENTRY EWTVOL VOLUME FILE CODE . P* T P EJECT FMTASK ^ P* v P* ENTRY FPB:RL RECORD LENGTH ENTRY FPB:BF BLOCK FACTOR $ ENTRY FPB:FO FILE ORGANIZATION ENTRY FPB:BO BA
0x34126c…341400 Dummy {f00=0x00fb, f01=0x0190, f02=» | ENTRY FPB:V2 VOLUME NAME 2 ENTRY FPB:S2 SIZE 2 , ENTRY FPB:V3 VOLUME NAME 3 H ENTRY FPB:S3 SIZE 3 l ENTRY FPB:V4 VOLUME NAME 4 ENTRY FPB:S4 SIZE 4 $ ENTRY FPB:FR FILE RECORD NUMBER " ENTRY FPB:US NUMBER OF
0x341400…341594 (2, 291) Opaque[0x194]
0x341594…341728 # DirEnt {nam=»DVKB00«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x1f68, f03=0x0000}
0x341594…341728 IdxSect {
0x341594…341728 f00 = 0x00fb // 0x341594 @0x0
0x341594…341728 f01 = 0x0002 // 0x341596 @0x2
0x341594…341728 gno = [ // 0x341598 @0x4
0x341594…341728 [0x00]: C0x00fb.0x1.0
0x341594…341728 ]
0x341594…341728 }
0x341728…3418bc Dummy {f00=0x00fb, f01=0x0190, f02=» 2 P IDENT DVKB00 REL 10.0 80-03-14 870105041000 P : " P* KEYBOARD DEVICE WORK TABLE B P* h P ENTRY DVKB00 TABLE ENTRY r P EXTRN CTAB01 ( P EXTRN KBAD3 POINTER TO ADDRESSBLOCK P EXTRN DVDY00 PMMUPAG EQU 1 P*
0x3418bc…341a50 Dummy {f00=0x00fb, 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
0x341a50…341be4 Dummy {f00=0x00fb, f01=0x0190, f02=»VE AREA FOR A4 P DATA 0 SAVE AREA FOR A5 P RES 4 DWT-STACK 6 P DATA 0 TIMER POINTER N P DATA DVDY00 DVDY00O DEVICE l $ P DATA /FFFF BACKSPACE AND CANCEL $ P DATA /9B9A EOR AND DOUBLE ZERO 6 P DATA DWTSQ+DVKB00 POINTER TO FIRST PLAC
0x341be4…341d78 Dummy {f00=0x00fb, f01=0x4100, f02=»A 0,0,0,0,0,0,0 P IFT MMUPAG=1 PDEVECB EQU * . P DATA 0,0,0,0,0,0 B P DATA 0,0,0,0,0,0,0,0 P DATA 0,0,0,0,0,0,0,0 z P DATA 0,0,0,0,0,0,0,0 P DATA 0 P XIF PDWTEND EQU * P* P END @ RST PLAC
0x341d78…341f0c Dummy {f00=0x00fb, 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
0x341f0c…3420a0 Dummy {f00=0x00fb, f01=0x2008, f02=»
0x3420a0…342234 (2, 292) Opaque[0x194]
0x342234…3423c8 # DirEnt {nam=»DVDI00«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x1f70, f03=0x0000}
0x342234…3423c8 IdxSect {
0x342234…3423c8 f00 = 0x00fb // 0x342234 @0x0
0x342234…3423c8 f01 = 0x0002 // 0x342236 @0x2
0x342234…3423c8 gno = [ // 0x342238 @0x4
0x342234…3423c8 [0x00]: C0x00fb.0x2.0
0x342234…3423c8 ]
0x342234…3423c8 }
0x3423c8…34255c Dummy {f00=0x00fb, f01=0x0190, f02=» 2 P IDENT DVDI00 REL 10.0 80-03-14 870105041000 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 DVDI00 DISPLAY INDICATOR 03 P* P*
0x34255c…3426f0 Dummy {f00=0x00fb, f01=0x0190, f02=»RAMETER z 0 P DATA /8000 STATUS. /8000 MEANS DEVICE READY P DATA 0 ECB ADDRESS D P DATA DWTEND-DVDI00 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
0x3426f0…342884 Dummy {f00=0x00fb, 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
0x342884…342a18 Dummy {f00=0x00fb, 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
0x342a18…342bac Dummy {f00=0x00fb, f01=0x0190, f02=» 60 P DATA ILLINT 61 P DATA ILLINT 62 ( P DATA TRAP TRAP ROUTINE D P EJECT SYSTAB d P | P* " P* SYSTEM CONTROL TABLE POINTER P* P DATA SCT P P P* P* SYSTEM TRAP P*
0x342bac…342d40 Dummy {f00=0x00fb, f01=0x0190, f02=»,A13 P XRR A14,A14 P LD A1,SCTBUG P ABR(NZ) A1 6 P HLT J P* V P EJECT SYSTAB ` P* x P* PX:A EQU 0 MONITOR OPTION ( PX:B EQU 0 DATA MAN .TASKS IN SYSTEM * PX:C EQU 0 DM INDEX RECORD BUFFER SIZE $ PX:
0x342d40…342ed4 (2, 293) Opaque[0x194]
0x342ed4…343068 # DirEnt {nam=»DVDY00«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x1f78, f03=0x0000}
0x342ed4…343068 IdxSect {
0x342ed4…343068 f00 = 0x00fb // 0x342ed4 @0x0
0x342ed4…343068 f01 = 0x0002 // 0x342ed6 @0x2
0x342ed4…343068 gno = [ // 0x342ed8 @0x4
0x342ed4…343068 [0x00]: C0x00fb.0x3.0
0x342ed4…343068 ]
0x342ed4…343068 }
0x343068…3431fc Dummy {f00=0x00fb, f01=0x0190, f02=» 2 P IDENT DVDY00 REL 10.0 80-03-14 870105041000 P : * P* DEVICE WORK TABLE FOR VIDEO DISPLAY B P* p P ENTRY DVDY00 TABLE ENTRY z P* P* ( P EXTRN DYAD POINTER TO ADDRESS BLOCK PMMUPAG EQU 1 P* PDVDY00 EQU * T
0x3431fc…343390 Dummy {f00=0x00fb, f01=0x0190, f02=» DATA DWTEND-DVDY00 ORDER ( P DATA DYAD POINTER TO ADDRESS-BLOCK " P DATA /C459 TTAB-ADDRESS N $ P DATA 0 WAIT/ACTIVATE INDICATOR n P DATA 0 TERMINAL QUEUE IFT MMUPAG=1 & " DATA 0 SAVE AREA USER ECB ADDRESS DATA DEVECB MMU ECB
0x343390…343524 Dummy {f00=0x00fb, 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,
0x343524…3436b8 Dummy {f00=0x00fb, 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
0x3436b8…34384c Dummy {f00=0x00fb, f01=0x0190, f02=»CK 1 3 v P CF A15,GETBLK EWT BLOCK 2 4 P ENB 4 . P STR A4,A3 LINK EWT2 TO EWT1 4 : P LDR A1,A6 FWT ADDRESS 4 ^ P ADK A1,FWTEW2 4 | P* 4 POP:130 EQU * 4 * P LDR* A2,A1 ADDRESS NEXT EWT STRUCTURE 4 P RF(NZ) OP:150 4 P* 4 POP:140 EQU
0x34384c…3439e0 Dummy {f00=0x00fb, f01=0x0190, f02=»TSEX,A2 FILE SECTION AND EXTENT NUMBER 4 P CC A11,EWTSEX,A3 5 . ( P RB(G) OP:140 INSERT NEW EWT BLOCKS 5 H ( P LDR* A1,A2 ADDRESS TO 2ND EWT BLOCK 5 t P RB OP:130 5 P* 5 P EJECT FMTASK 5 P* 5 P* 5 POP:160 EQU * 5 2 P LD A7,VOLUM
0x3439e0…343b74 (2, 294) Opaque[0x194]
0x343b74…343d08 # DirEnt {nam=»DVDI01«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x1f80, f03=0x0000}
0x343b74…343d08 IdxSect {
0x343b74…343d08 f00 = 0x00fc // 0x343b74 @0x0
0x343b74…343d08 f01 = 0x0002 // 0x343b76 @0x2
0x343b74…343d08 gno = [ // 0x343b78 @0x4
0x343b74…343d08 [0x00]: C0x00fc.0x0.0
0x343b74…343d08 ]
0x343b74…343d08 }
0x343d08…343e9c Dummy {f00=0x00fc, f01=0x0190, f02=» 2 P IDENT DVDI01 REL 10.0 80-03-14 870105041000 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 DVDI01 DISPLAY INDICATOR 03 P* P*
0x343e9c…344030 Dummy {f00=0x00fc, f01=0x0190, f02=»RAMETER z 0 P DATA /8000 STATUS. /8000 MEANS DEVICE READY P DATA 0 ECB ADDRESS D P DATA DWTEND-DVDI01 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
0x344030…3441c4 Dummy {f00=0x00fc, 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
0x3441c4…344358 Dummy {f00=0x00fc, 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
0x344358…3444ec Dummy {f00=0x00fc, f01=0x0190, f02=» C P* D PDELETE EQU * DELETE FILE D P* TO BE IMPLEMENTED D 2 EJECT FMTASK D P * D h * D r ********** D | * FMRDFP * D ********** D * D P* D 2 P* FILE MANAGEMENT ADMINISTRATION FUNCTIONS: D P* READ FIL
0x3444ec…344680 Dummy {f00=0x00fc, f01=0x0190, f02=»K D l P* A9 = USER ECB ADDRESS E P* A10 = FPB ADDRESS E , * E H & !FMRDFP EQU * READ FILE PARAMETERS E R P ANK A1,/FF ORDER OPTION E | ( P RF(NZ) FM:RQE ILLEGAL ORDER OPTION E 2 P CF A14,RDVTOC READ VTOC RECORD (FIRST EXTENT) E P ADK A1,0
0x344680…344814 (2, 295) Opaque[0x194]
0x344814…3449a8 # DirEnt {nam=»DVGP02«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x1f88, f03=0x0000}
0x344814…3449a8 IdxSect {
0x344814…3449a8 f00 = 0x00fc // 0x344814 @0x0
0x344814…3449a8 f01 = 0x0002 // 0x344816 @0x2
0x344814…3449a8 gno = [ // 0x344818 @0x4
0x344814…3449a8 [0x00]: C0x00fc.0x1.0
0x344814…3449a8 ]
0x344814…3449a8 }
0x3449a8…344b3c Dummy {f00=0x00fc, f01=0x018e, f02=» 2 P IDENT DVGP02 REL 10.0 80-03-14 870105041000 P : , P* DEVICE WORK TABLE FOR GENERAL PRINTER B P* r P ENTRY DVGP02 TABLE ENTRY | P* P* ( P EXTRN GPAD POINTER TO ADDRESS BLOCK PMMUPAG EQU 1 P* PDVGP02 EQU *
0x344b3c…344cd0 Dummy {f00=0x00fc, f01=0x0190, f02=» P DATA DWTEND-DVGP02 ORDER ( P DATA GPAD POINTER TO ADDRESS-BLOCK & P DATA /C750 TTAB-ADDRESS R $ P DATA 0 WAIT/ACTIVATE INDICATOR r P DATA 0 TERMINAL QUEUE IFT MMUPAG=1 & " DATA 0 SAVE AREA USER ECB ADDRESS DATA DEVECB MMU
0x344cd0…344e64 Dummy {f00=0x00fc, 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
0x344e64…344ff8 Dummy {f00=0x00fc, 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
0x344ff8…34518c Dummy {f00=0x00fc, f01=0x0190, f02=»DRESS S t P* T P* OUTPUT: A4 = 0 T P* A7 IS DESTROYED T 2 P* T N & PFM:PWR EQU * PHYSICAL WRITE ENTRY T X P LDK A7,/95 PHYSICAL WRITE T P RF FM:LKM T P* T $ PFMREAD EQU * PHYSICAL READ ENTRY T P LDK A7,/91 PHYSICAL READ T
0x34518c…345320 Dummy {f00=0x00fc, f01=0x0190, f02=» IN ECB T n P LKM U P DATA 1 U P LD A4,ECBRC,A8 RETURN CODE U , " P ANKL A4,/FEFF SKIP RETRY BIT U P P RF(Z) FM:RTN RETURN IF OK U v P* U : P* ERROR: CHECK WHY AND DECIDE IF REQUEST TO BE ABORTED U P* U P LDK A7,/A2 CLOSE ORDER U 4
0x345320…3454b4 (2, 296) Opaque[0x194]
0x3454b4…345648 # DirEnt {nam=»DVKB03«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x1f90, f03=0x0000}
0x3454b4…345648 IdxSect {
0x3454b4…345648 f00 = 0x00fc // 0x3454b4 @0x0
0x3454b4…345648 f01 = 0x0002 // 0x3454b6 @0x2
0x3454b4…345648 gno = [ // 0x3454b8 @0x4
0x3454b4…345648 [0x00]: C0x00fc.0x2.0
0x3454b4…345648 ]
0x3454b4…345648 }
0x345648…3457dc Dummy {f00=0x00fc, f01=0x0190, f02=» 2 P IDENT DVKB03 REL 10.0 80-03-14 870105041000 P : " P* KEYBOARD DEVICE WORK TABLE B P* h P ENTRY DVKB03 TABLE ENTRY r P EXTRN CTAB04 ( P EXTRN KBAD3 POINTER TO ADDRESSBLOCK P EXTRN DVDY03 PMMUPAG EQU 1 P*
0x3457dc…345970 Dummy {f00=0x00fc, f01=0x0190, f02=»ADDRESS P DATA DWTEND-DVKB03 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
0x345970…345b04 Dummy {f00=0x00fc, 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 DVDY03 DVDY03O DEVICE l $ P DATA /FFFF BACKSPACE AND CANCEL $ P DATA /FFFF EOR AND DOUBLE ZERO 6 P DATA DWTSQ+DVKB03 POINTER TO FIRST PLAC
0x345b04…345c98 Dummy {f00=0x00fc, f01=0x4100, f02=»A 0,0,0,0,0,0,0 P IFT MMUPAG=1 PDEVECB EQU * . P DATA 0,0,0,0,0,0 B P DATA 0,0,0,0,0,0,0,0 P DATA 0,0,0,0,0,0,0,0 z P DATA 0,0,0,0,0,0,0,0 P DATA 0 P XIF PDWTEND EQU * P* P END @ RST PLAC
0x345c98…345e2c Dummy {f00=0x00fc, 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
0x345e2c…345fc0 Dummy {f00=0x00fc, f01=0x0190, f02=» P* e P* e & PFVTC10 EQU * ENTRY USED BY RDVTOC e ( P CF A14,FMREAD READ ONE VTOC SECTOR e B $ P LDKL A13,FM:BUF FM:BUF ADDRESS e n $ P LDK A7,VTOCBF VTOC BLOCK FACTOR e P* e PFVTC20 EQU * e & P LD A4,VTC:ST,A13 VTOC STATUS BYTE e P A
0x345fc0…346154 (2, 297) Opaque[0x194]
0x346154…3462e8 # DirEnt {nam=»DVDY03«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x1f98, f03=0x0000}
0x346154…3462e8 IdxSect {
0x346154…3462e8 f00 = 0x00fc // 0x346154 @0x0
0x346154…3462e8 f01 = 0x0002 // 0x346156 @0x2
0x346154…3462e8 gno = [ // 0x346158 @0x4
0x346154…3462e8 [0x00]: C0x00fc.0x3.0
0x346154…3462e8 ]
0x346154…3462e8 }
0x3462e8…34647c Dummy {f00=0x00fc, f01=0x0190, f02=» 2 P IDENT DVDY03 REL 10.0 80-03-14 870105041000 P : * P* DEVICE WORK TABLE FOR VIDEO DISPLAY B P* p P ENTRY DVDY03 TABLE ENTRY z P* P* ( P EXTRN DYAD POINTER TO ADDRESS BLOCK PMMUPAG EQU 1 P* PDVDY03 EQU * T
0x34647c…346610 Dummy {f00=0x00fc, f01=0x0190, f02=» DATA DWTEND-DVDY03 ORDER ( P DATA DYAD POINTER TO ADDRESS-BLOCK " P DATA /C459 TTAB-ADDRESS N $ P DATA 0 WAIT/ACTIVATE INDICATOR n P DATA 0 TERMINAL QUEUE IFT MMUPAG=1 & " DATA 0 SAVE AREA USER ECB ADDRESS DATA DEVECB MMU ECB
0x346610…3467a4 Dummy {f00=0x00fc, 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,
0x3467a4…346938 Dummy {f00=0x00fc, 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
0x346938…346acc Dummy {f00=0x00fc, f01=0x0190, f02=»P X _ @ l I :a A l ;a L # A A P A T #( W @ BP 2 #( : d M ^ R _ W D_ * $ @ @P P R " R Q 2 #( @ @ T R A @_. @ l
0x346acc…346c60 Dummy {f00=0x00fc, f01=0x0190, f02=» A ~ H A v ( $ P P >P P P W _ A n T >FV :A H @ nY H @ nZ >AV W _ _ @ n @ r >BV -W >AV -W >AV B j R LPOP 0XLS TK1 TK2 MT1 MT2 pqCSH @ j !NNP !YYP !> A n : @ j! P P !> A n
0x346c60…346df4 (2, 298) Opaque[0x194]
0x346df4…346f88 # DirEnt {nam=»DVDY04«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x1fa0, f03=0x0000}
0x346df4…346f88 IdxSect {
0x346df4…346f88 f00 = 0x00fd // 0x346df4 @0x0
0x346df4…346f88 f01 = 0x0002 // 0x346df6 @0x2
0x346df4…346f88 gno = [ // 0x346df8 @0x4
0x346df4…346f88 [0x00]: C0x00fd.0x0.0
0x346df4…346f88 ]
0x346df4…346f88 }
0x346f88…34711c Dummy {f00=0x00fd, f01=0x0190, f02=» 2 P IDENT DVDY04 REL 10.0 80-03-14 870105041000 P : * P* DEVICE WORK TABLE FOR VIDEO DISPLAY B P* p P ENTRY DVDY04 TABLE ENTRY z P* P* ( P EXTRN DYAD POINTER TO ADDRESS BLOCK PMMUPAG EQU 1 P* PDVDY04 EQU * T
0x34711c…3472b0 Dummy {f00=0x00fd, f01=0x0190, f02=» DATA DWTEND-DVDY04 ORDER ( P DATA DYAD POINTER TO ADDRESS-BLOCK " P DATA /C459 TTAB-ADDRESS N $ P DATA 0 WAIT/ACTIVATE INDICATOR n P DATA 0 TERMINAL QUEUE IFT MMUPAG=1 & " DATA 0 SAVE AREA USER ECB ADDRESS DATA DEVECB MMU ECB
0x3472b0…347444 Dummy {f00=0x00fd, 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,
0x347444…3475d8 Dummy {f00=0x00fd, 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
0x3475d8…34776c Dummy {f00=0x00fd, f01=0x0190, f02=» 9 V 1 Y , NVLEND * NVLBITS < & " = P :A A > N FM:ADM x TTB:MTO ECBBA , ( f & T M F , ( @ h Px ' !
0x34776c…347900 Dummy {f00=0x00fd, f01=0x018e, f02=» n FNDDWD , ( U W A " X* X2 " DWTNVLI P , ( u "(@ I $ V V " L b GETBLK * & P V : V V P , ( &W Y Y " V V T Y , (
0x347900…347a94 (2, 299) Opaque[0x194]
0x347a94…347c28 # DirEnt {nam=»M:DECE«, typ=»LM«, f00=0x0000, f01=0x0000, f02=0x1fa8, f03=0x0000}
0x347a94…347c28 IdxSect {
0x347a94…347c28 f00 = 0x00fd // 0x347a94 @0x0
0x347a94…347c28 f01 = 0x0016 // 0x347a96 @0x2
0x347a94…347c28 gno = [ // 0x347a98 @0x4
0x347a94…347c28 [0x00]: C0x00fd.0x1.0
0x347a94…347c28 [0x01]: C0x00fd.0x2.0
0x347a94…347c28 [0x02]: C0x00fd.0x3.0
0x347a94…347c28 [0x03]: C0x00fe.0x0.0
0x347a94…347c28 [0x04]: C0x00fe.0x1.0
0x347a94…347c28 [0x05]: C0x00fe.0x2.0
0x347a94…347c28 [0x06]: C0x00fe.0x3.0
0x347a94…347c28 [0x07]: C0x00ff.0x0.0
0x347a94…347c28 [0x08]: C0x00ff.0x1.0
0x347a94…347c28 [0x09]: C0x00ff.0x2.0
0x347a94…347c28 [0x0a]: C0x00ff.0x3.0
0x347a94…347c28 ]
0x347a94…347c28 }
0x347c28…347dbc Dummy {f00=0x00fd, f01=0x0190, f02=»G Qu d d d d d d d d d! "< h d d d d d d d d d d d d d h d d d d d d d d d d d d d d d d d d d d d d d d d d d d d d d j c @ ^ z ^ r h V H 2 Z f9 z
0x347dbc…347f50 Dummy {f00=0x00fd, f01=0x0190, f02=» 4c : @Y/ pJ @ d _ 2Z $"z y ?H T+ V y J t Dh i VR 1H W ] [ ? d % L X! "~ T &b Cn 1 d _ A ` " / _ @/ > > U # T @'T H ( ( P c P WN T P ,$ T z T _ - A/ < V (
0x347f50…3480e4 Dummy {f00=0x00fd, f01=0x0190, f02=» _L A A $ A/ _^ A ` A Q > ? A ` A ^Q J_ A ^ < Q X P X Q X Z Y _ 8 / Q Z P 0 9 _ < _, ? _ P H H ? ? ? ? ? ^ A _ _ ^ / $P T I R $ 5 % >
0x3480e4…348278 Dummy {f00=0x00fd, f01=0x0190, f02=» U _t ? @. T j 0 A. 1 Q Q > > 0 @. 1 A. P P > " ? * X R Y P _ ? @ 8 R Y P _ W0 8 X W( ? ` @ @ P $ H W W > > > > > > @.xV ? .x > _ > ? _ > > ? ^ ! Y ^ _ j ? b
0x348278…34840c Dummy {f00=0x00fd, f01=0x0190, f02=» A ` A ^Q _ A ^ < Q X P X Q X Z Y _ 8 Q Z P 0 9 _ _, ? _ P H H ? ? ? ? ? ^ A _ _ ^ $P T I R $ 5 % >
0x34840c…3485a0 Dummy {f00=0x00fd, f01=0x0190, f02=» $V . / A 0( @. . X H A. ( 1 ) @ H P 1 % E I 4 L U L U . M (@ @ <a D >a H D $! C C V P* ;B C 9b!0 # U* B C # C
0x3485a0…348734 (2, 300) Dummy {f00=0x00fd, f01=0x0190, f02=». J B B ? A `J ;h # <c$ @" P P` 4 5 T P ? X U X 1B > P P P P( P ] 0 X T Y W U ^ U U T Xp T E / Y T 8R X $P y $W $ -x Wp Y $ X ;B
0x348734…3488c8 Dummy {f00=0x00fd, f01=0x0190, f02=» X "X 8' T 8Z" X ' X # T 8R X $P y $ Y $ X (@ L P P "& (@ > $P$ D P P4 P P _ E W Q Y W 8 " E 4 % E Y > >B @ P A 1B ? @ 6 T 8 A 6 % > > 8 B C # C
0x3488c8…348a5c Dummy {f00=0x00fd, f01=0x0190, f02=» J B B ? A `J ;h Y " Y < X Qj V "9 ! :a ! ( / T8 C Y Y : ! v T X $ Y . Y : n n P~ Pz Pv Pr P / B ! T 9 Y B ! D9EV0 X B y ! + ! R! T Y B 2 B
0x348a5c…348bf0 Dummy {f00=0x00fd, f01=0x0190, f02=» D9 R ! N9 R Y " Y B W, ! ! R! T @ X B < Y " H t " :A C :a X f ! ( U 4 ! X " P X f9 :A ! R! P Y " 0W 8 T " T 9_l B 9 P 9 4 8 X B" P # ;B 4 Y f8 9 Y j Y l:c Y
0x348bf0…348d84 Dummy {f00=0x00fd, f01=0x0190, f02=». Y Y : P X $ Y '? C @ P( a W 0P -_~ -x _ A Y Y : V _v A ` ? I F 9AZP9a P D ) X :V # T( X X X 4 Y W C X "P ,N / ! N! T 9 Y B ! R! Tr X :P /D @ TOT2
0x348d84…348f18 Dummy {f00=0x00fd, f01=0x0190, f02=» C C / 9 ! ! T 9 ! 4 X $ Y . : X Y $ 9 X !P T4 A. W A. @. A. R -x / Y R WF L | Y X N Y ! J X P. P P& P R
0x348f18…3490ac Dummy {f00=0x00fd, f01=0x0190, f02=» V Y Y Y X X T V" X R # ;b9B Y Y ) Y X !? PZ P PR P ! X P _ X x ^ Y X P ! ! P @ 9W@ ! X P Y ! X P X ! X P X _ X p ^ P P !
0x3490ac…349240 Dummy {f00=0x00fd, f01=0x0190, f02=» d ! 9 X Y P : 9 " ! _ # 4 ! PR C ! p ! ! (@ ! R _ ! Z 1 ;h 1 ! Z 1 ! p* ! ! ! ) ! # X Y P_ P P ! P @ 9 4 / < ! P X 1P B D +PV T ( C Q V8 ! $ !
0x349240…3493d4 (2, 301) Dummy {f00=0x00fd, f01=0x0190, f02=» ! ! P @ 9 ! T ) C W / ! ( - t ! ) Wf W Y Z Y V Y X Y H @ TLB SLWF Y 8! T6 X Y X C X U X Y R V Y W 8 ,N / Y _ ? Y Y X LP y L_* L -x z _: Y L " Y F Y L | Y
0x3493d4…349568 Dummy {f00=0x00fd, f01=0x0190, f02=» ! X # P Y P:A , X T A. Y T @. B. Y < Y J X $ Y C '? X " Y _ A ` ? (@ X V X X K P0 @ T X ZT $C Y B / K & % Y B K X H :AZl X JP Y J ! P + 7P, $ P + < $ <C ! 9 9 4 X 9C
0x349568…3496fc Dummy {f00=0x00fd, f01=0x0190, f02=» 9 ! X FT /D 4 (@ 0! D% 1 Y W (@ 0! D& ] Y 4 ! & ;E :B 9A ! & U P jW kQ 4 9 8 0" Z Y P Z _ 4 A ;D A 4 R _ ;H 4 | ! (:C 4 d !
0x3496fc…349890 Dummy {f00=0x00fd, f01=0x0190, f02=» ! X # P Y :A , X A Y @ B. Y < Y X Y C '? X Y _ A ` ? (@ X X K P @ T X T $C Y B K & % Y B K @
0x349890…349a24 Dummy {f00=0x00fd, f01=0x0190, f02=» 9 ! X T 4 P Pv 1P P W P 5P / ( / B " P H% :H B # L% 9 $ P. @%^ % / @%` `%` @%`P 0P _ % A%^ A%b ,N_Z B Q< _n X P 0 Y P C + _ d_ B Y _N / X P A v -v ~
0x349a24…349bb8 Dummy {f00=0x00fd, f01=0x0190, f02=» T (P _ ) 1_ T (X( P _ 0 )_6 (P _ ) 1 4 $ X R2 X T* X P& , Y L C L C + > @ R @ N @ P A PX ,N_" X P y Y X P T @ T A A > A A A A A W >
0x349bb8…349d4c Dummy {f00=0x00fd, f01=0x0190, f02=»" R !" TH !" T@ !! A P " n !" _ !" T $ , A !! !" @ RT " !! _ !# @ P @ P ! A A _ !# @ P @$BXF ! L T A ! !" X _4 A @$B @ T PP A @ $ P2 X R, X T$ P C C
0x349d4c…349ee0 Dummy {f00=0x00fd, f01=0x0190, f02=» T @ P !! !#z_P /T" @ X @ P ! !! _n A @ 8 A @ T _( _, @ TBW @$BT ! _ ! T A ! _ A A H& E A A 4 @ P !! !#z !#HW @ TT !! _ T _ A $ C + B B A A A A A !!6 !#z A
0x349ee0…34a074 (2, 302) Dummy {f00=0x00fe, f01=0x0190, f02=» @ T @ A @ A A !" T2 P4 PJ PL P P. 1 A @ ]6W P _@ @$B @ E !# P !! 4 _$ !# 2_l / A T W ,W A A W W W A A !! @ !" @ !" !" !" !! 4 !! !" @ @ A @ T
0x34a074…34a208 Dummy {f00=0x00fe, f01=0x0190, f02=» 4 @ T !! A X 2B 4B A XJ 4 @ T B 4B J 4 A ` ? J T* A T A T 2P !# H% A X A R 4 !"H A ` ? _ J "#T @ XP0R 2B W&" P @ XP W " " P -v" / " P 1 P A R ( 4 A P T !" W " P H& B P W !#
0x34a208…34a39c Dummy {f00=0x00fe, f01=0x0190, f02=» #h / @ N!@P @ PP A N a V ( 4 -v#2 < A V > -v# A 4 A !! @ P !! !#z @ P a A 4 A# A# A# ?a :a# P @# @# @# 4W W A !" # !" A @# :H 4 ^ $6 $D$`T
0x34a39c…34a530 Dummy {f00=0x00fe, f01=0x0190, f02=» 4 @ T ! A X 2B 4B A XJ 4 @ T B 4B J 4 A ` ? J T A T A T 2P ! H A X A R 4 ! A ` ? _ J "#T @ XP R 2B W " P @ XP W %d%b
0x34a530…34a6c4 Dummy {f00=0x00fe, f01=0x0190, f02=»<(+!&jklmnopqr]$*);^-/stuvwxyz|,%_>?0123456789:#@'=" ABCDEFGHI[.<(+!&JKLMNOPQR]$*);^-/STUVWXYZ|,%_>?0123456789:#@'= 7- <=2&p ?' @Z {[lP}M] Nk`Ka z^L~no| {|[_m j TOSS*$*6*V*|*4*V* *V
0x34a6c4…34a858 Dummy {f00=0x00fe, f01=0x0190, f02=» C @'TW ' 0P P > T C T" V$ Y ' Pp q 0 ) Wb X P^ ' T& B RPP" A(( @' | A' -x't WF @W( T$ P X T X P 4 Y C C 8W T 8P Y ^ 5 ) P U / ) XT
0x34a858…34a9ec Dummy {f00=0x00fe, f01=0x0190, f02=» # C C W4 O " # X Y ) C C x # P Y '? Y Y T # P W | Y P R R P T *, ) P (@ '((@ " 2 @ _ > X $? P) $ > > F
0x34a9ec…34ab80 Dummy {f00=0x00fe, f01=0x0190, f02=» 0$ T # R QL * > X B U( H Q2 X D B $ T C x > C $ ) _ X 9BV X & ,N / X D C > X H UJ H B P PL $ # Q > P _0 # T p > P p (_H
0x34ab80…34ad14 (2, 303) Dummy {f00=0x00fe, f01=0x0190, f02=» Q4 M +B ,N X D D P ( ) 1_f _& ?(@ X P 0P X T 4 Y X 1 1 X P - M T $ PJ _ T " # p X L R P P ) P (@ '> ^ X P8 P0 # P T P 0P 1 _
0x34ad14…34aea8 Dummy {f00=0x00fe, f01=0x0190, f02=» _ | | @ 1 A _ P 9 > > T R L U j9C T M D _ W^ M $R M A/ / _ D $P D % 1 I D " @ @ - U _ 9B @ T u X > &( 0 / 0 / -,0 <b- < < =F = <<<P # L x?
0x34aea8…34b03c Dummy {f00=0x00fe, f01=0x0190, f02=» X Y $:g H & I &! P& X / / P ,P 9A _ H &P I & > . P Y / X"; [&;! P &Z.?AZ2 @/ Q & X " $XJ ( I T E _ (X _ X $ _t> 4 > > @/ A/ W W ,N ^ ! Z2 / (X: @/ P T M
0x34b03c…34b1d0 Dummy {f00=0x00fe, f01=0x0190, f02=» @ @ - P _ Z 9B @ { W Z Z Z ? Z > P~ "R~ Y / Pj T P` / <UR "R4 PB X R< X T6 X T0. T G Y6 G _` P ,P - _ ? 8! W0" P T 8! P< P8 1B Y Y Y Y
0x34b1d0…34b364 Dummy {f00=0x00fe, f01=0x0190, f02=» " X D V ,N X 1 2 d 26 422 ? X V Y / !1 W< Y U R -P 4& X , ) Y . 4 X P Y P C WT X " PP:A: R Q W Y <D X ? ?: T p > 5@ > Pb P C 4 B 4 T B % X . $
0x34b364…34b4f8 Dummy {f00=0x00fe, f01=0x0190, f02=»PH Y *P> Y (P Y )P 5@ R _Q P OR R W " !1 B 2~ Wr W 0 Z 5@ !1 B Z Z& X . 0T N W X ,P Y . 0 %_. % Y . W _p P 5@ _ C !1 / " 4 QXR X # PN X R(;GV$ 1 4 P8 X R2;GV. X "
0x34b4f8…34b68c Dummy {f00=0x00fe, f01=0x0190, f02=»V @% =cW2 RBP R P 9 W. _ _ _ _ %0=c X 0P > 0 > >_ P > _v B 1 > NT 0 _ 5n 6 7V6 PB P8 / B P B L # +P !1R !1R T !1R Y & !1RW !1R !1RW !1R Y Y 6 1 U P"
0x34b68c…34b820 Dummy {f00=0x00fe, f01=0x0190, f02=» Y Y _ " _ !1R !1R 6 ,N / X C _ X Y & Y > B B U$ $ ! T _ U D ! T _ C > X Z^<BR P f 1 X _x R0 V0 ! P* P P P" R ?Q !1R Y R Q 6 1 -_ ? _ X # !1R ^ Y _( ? X Z
0x34b820…34b9b4 (2, 304) Dummy {f00=0x00fe, f01=0x0190, f02=» W Y X Y 8# T W$ T( X $ P X P B V *@ Y 1B / / ? X _F 86<6:r: : :$ !1R P P 9 & 9 / B P B H " +P P. T Y ' !1R R| X ( Y &R Y & _ Y &_. B 1 ;j !1R :Z B B U4
0x34b9b4…34bb48 Dummy {f00=0x00fe, f01=0x0190, f02=» T @_ ! 1 B P !; B C 9 ^N P R ?] _ C _ 1 1 " $ P X ' X ] !1R :Z 9 B !< !; !1R :$ B Y & !; W 9 8!0T 8 !@P !1R$ P !1R !1R :J !1R 1P X & C ,T Y & ,N / X Y
0x34bb48…34bcdc Dummy {f00=0x00fe, f01=0x0190, f02=»_ !1R X $ P !;4 9 R V P P" !1R :ZW :J 1 X $ X !;4_ X $ X X & !; !; Y _8 X " X &" Y )U W !1R !1R !1R Y 4 B 8 U )X R@ X X &" Y * X ) V Y !; X $ X & !; X *
0x34bcdc…34be70 Dummy {f00=0x00fe, f01=0x0190, f02=»:J >' "?:B ] P H U _ T U P U ;C ,$ T -_> - z_H "RT PL X TF X R@? V X & X H P ,N X P Y X H P @ ,N < ? < ? <(@ = $ P B $ 9H C ">h # P >_2 < U
0x34be70…34c004 Dummy {f00=0x00fe, f01=0x0190, f02=»" 2 P* P P" P P P TX @ > / > P (Z B B T P* & T$ L L R Q U , , _D , V :a B # S0 S0 Q Z8 Z< P X (t ( _6 _6 " " P2 @ Q, , Y ," P L P
0x34c004…34c198 Dummy {f00=0x00fe, f01=0x0190, f02=» "?:B ] P H U _ T U P U ;C ,$ T -_> - z_H "RT > A? @ @ F F @ R*P % % @ I I I I _> @ P / #D9 V 1 Y / ,P :A / A/ >_2 < U
0x34c198…34c32c Dummy {f00=0x00fe, f01=0x0190, f02=» M F ?< Px ' B Bh! C A> DT P< E P& 8! P6 K @P X T X !? ? BB W W @W D C & EN W A> DT X* D X2 " (@ I ' V V " LP V : V V P |W Y Y " V V T Y " Y $
0x34c32c…34c4c0 Dummy {f00=0x00fe, f01=0x0190, f02=»T #?W #?$? A _2 J @" P Y 9 @ J ! T " Y X & $ ' C ! C D P C P* C J : J < W W P X V C W C X ! "? K >Q 9 D W Y B W _.! T D T P % Y % Y Y V + V K V K : V
0x34c4c0…34c654 (2, 305) Dummy {f00=0x00fe, f01=0x0190, f02=»EN N ! N P N & N T _ - M @ F Pp G / _ W C ( B P U B T 8 X>_. : X P (@ Y Y Y :" (@ X $ T ( _ ^ ( : E_ EfP" $ D. 8X 8 , Y $ : _ & > (@ T
0x34c654…34c7e8 Dummy {f00=0x00fe, f01=0x0190, f02=» Y : @ P0 8 T _ & & Y " 4 : : $ - Y : E~E~E E E E 0123456789 ' < +,-. 0123456789 @ABCDEFGHIJKLMNOPQRSTUVWXYZ[ ]~ * > ?;_: =!"#$%&/() @A
0x34c7e8…34c97c Dummy {f00=0x00fe, f01=0x0190, f02=»6789 < @ABCDEFGHIJKLMNOPQRSTUVWXYZ[ ]^ * ?;_: =!"#$%&/() > `abcdefghijklmnopqrstuvwxyz{|}~ c ($SWAP A A A A F @ A. TR UU @ @ ! P$>B @U< AU< @U< E D P _ $ % $P _ % A >f
0x34c97c…34cb10 Dummy {f00=0x00fe, f01=0x0190, f02=»W * A QtW :a2 * A P T & W F W @ F W CRP BAP COP A W F A @ : V, @ P Ub;b=H : JL F JLW =J : R F P W W @ $ P @ R| W W X R" W W V V 8
0x34cb10…34cca4 Dummy {f00=0x00fe, f01=0x0190, f02=» W V @ " TJ W P X Y Ub J U Y P @ P @ T W - U P _ T <B :L A W A A W U T F W
0x34cca4…34ce38 Dummy {f00=0x00fe, f01=0x0190, f02=»Ub W @U< A S @ K V W K ! P W @ V P _ @ ! P* T@9h !RRP V V K W _> Ub T@ T@ T V V PZ W @ @ ! T _ P :l 9b )
0x34ce38…34cfcc Dummy {f00=0x00fe, f01=0x0190, f02=»R W @F W N: ND M N^ M N O& N M N O& N M O O& Nd M Nd M V 00P& O6 O O& N^ M O O& NX M _0 Nd M V 00P O6 O O& N^ M _ 0 !TTX W AM !CCT CC ANH ND_ 0 !;; OF M _ S AR AS R @
0x34cfcc…34d160 Dummy {f00=0x00fe, f01=0x0190, f02=» P V PN _ P !;;T X$ W Ur nX T N: : O L@ : Ub N< : 0 !TTT 0 !;;T : W W 0 !99Q P !00R P 00W 11 AN P.=H_, !11R T$ 0 !LLP !RRP !AAP !SSP W W W 0 !;;T~ : 0 !00Rr !99U !AARf
0x34d160…34d2f4 (2, 306) Dummy {f00=0x00ff, f01=0x0190, f02=»D=TCL=LEV=TDC=T0LC=0SDC=S0A I. : O C. Oj X C.9h! O O # " O O :A K : A T.I T P 1 I P < R P A _> Ub : @ " P P G PV AP AP AP AP W P AF AQ AQ AQ0 AQ4 AT AN< AR AR :
0x34d2f4…34d488 Dummy {f00=0x00ff, f01=0x0190, f02=» : 0 R _ <d?d AF U <e @F P AF <C, D L " @F $ P " :B AF t w B J " r R,Q$ @ ( = @F Q @F "| _@ _$ : AQ AQ AQ AQ Q AT AN< AR AR : h:B* AF @F P AF B J 4R 4 :B 4
0x34d488…34d61c Dummy {f00=0x00ff, f01=0x0190, f02=» ! : 9D @ @F r s @F A I T - A _ I N T V S : Ub R R 9PJ S Y T@ $ 1T: C !CCTr : 1P P$_ P =H P ` @ T X W n : YX d C !CCTx xB. Oj <X B.9 HF Q R _
0x34d61c…34d7b0 Dummy {f00=0x00ff, f01=0x0190, f02=» W P T V T W F P P V W @ $ P p W Ur T : AS T _ 0V , - P X 9A_ : @ ! P (W ( :W> 2 W 0 . " A A A A AN< 2 ; Z [ : : [ [ : d
0x34d7b0…34d944 Dummy {f00=0x00ff, f01=0x0190, f02=» ! : 9D W Z A. c @ V W U Ub R $ )_ : W W W W W X QF V V v x W V V v p R0 W V W X ^B _F 9o V _X V V :
0x34d944…34dad8 Dummy {f00=0x00ff, f01=0x0190, f02=» X Q R t X V Ub U v : V W V Ub ) : V <B W |P v v : $ V4 V |P v w v : V $ V l $ V4 V M : W V R RR > R W >
0x34dad8…34dc6c Dummy {f00=0x00ff, f01=0x0190, f02=» W V PL $;A^ D E D P. V UbP Ub P T Ub E _J V4 E _T " D T E V4 E D E % : " R ;B V4 " R P( |P v v : V W 0 : V P 9a _ " ( ) 8 ( )
0x34dc6c…34de00 Dummy {f00=0x00ff, f01=0x0190, f02=» 0 V @ Ub 0 H W : ? ? R 0 R P P B _ / : V ) Yn v : 4P: " D Y , H H $ M v b - I Y0 : @ ` V b pP ` $ $ W Y $ I H
0x34de00…34df94 (2, 307) Dummy {f00=0x00ff, f01=0x0190, f02=» E J K _X V r V :B A V 9n A @ A A ^ V @ ! @ P P P P|_ _ @ 9N @ :b @ :b V W U6 T 9BW P P( P V W U " @ Q V P A. V
0x34df94…34e128 Dummy {f00=0x00ff, f01=0x0190, f02=» S P 3 _ . 3 . p A. @ r @ W A A $ : A / > l : Y*R W W n V pT : N V l W H V ]" . nT" WN W v W* W n V ~P ] W x Wv ^* Y
0x34e128…34e2bc Dummy {f00=0x00ff, f01=0x0190, f02=» Y*V YJ : WN W* V ~P ] W x Wv_$ 8 V V x % V v % : V V U 9k! P % _ V V W W r Yn W V V4 v ) W b G V4 v ) - V V4 W f v ) G v ` " W p W ~ pP0 ]
0x34e2bc…34e450 Dummy {f00=0x00ff, f01=0x0190, f02=» , YZ V4 " E R ] W ~ R ] R P _ R Xv _ _|W YBT : W WN W x Wv YJ_ V P8 Y I Y V4 C C $ @ v D B I v W z ` pPl Y H - V Yn I W " R YZ E R T E D E @
0x34e450…34e5e4 Dummy {f00=0x00ff, f01=0x0190, f02=» :C # : .=H N ` YZ .=H N ` YZ N : d 8" R _ ZY QY : @ V H W z W | CRP W ` ` H W d 2 ;A @ X R Ub - @ - N !TTP Ub N :H N TBT W W8 2
0x34e5e4…34e778 Dummy {f00=0x00ff, f01=0x0190, f02=» N P V Ub _ R :h " a> YV : v `?A @ W W :b / W W @ W D YZ V W W ` " W p @ pP. " 4X 1 R
0x34e778…34e90c Dummy {f00=0x00ff, f01=0x0190, f02=» >k 8 W W t V V x A F r r P dd W r r dd W @ @ % rX V , P@ , - 4 ] 4 X Y 5 X * _6 : W @ ] @ P @ " P : V _ W W .
0x34e90c…34eaa0 Dummy {f00=0x00ff, f01=0x0190, f02=» A @ T Ub A : . ` @ P e _ e 3 S S V V W @ @ T Ub : P S S _ : V CRP COP W @ 3 V 3 3 @ r r S @ V Pf r 9h !RR
0x34eaa0…34ec34 (2, 308) Dummy {f00=0x00ff, f01=0x0190, f02=» : @ @ @ #D# P ; V g _ : @ " P @ P 3 _ @ " P V 3 S 1 S 9J S ( 3 ( 9B @ @ T Ub : W . !TTP Ub q W t N =H N W l V CRT N =H N q W p N =H N
0x34ec34…34edc8 Dummy {f00=0x00ff, f01=0x0190, f02=» _2 q P0 q " U Ub _2 V tP X R Ub S ( V | S =J @ " S V l S W l V S V CRT V p S W p W W _ a !TTT g TP : . !TTP
0x34edc8…34ef5c Dummy {f00=0x00ff, f01=0x0190, f02=» 4 D P$ Ur @ # P H I K T + Y@ V p _f V t Y a !TTX @ @ T Ub : W % @ P _ R @ WT R @ 0 W ` W W& T Ub P _ V
0x34ef5c…34f0f0 Dummy {f00=0x00ff, f01=0x0190, f02=» V f P W f _B n V W V t Yv a !TTX @ @ T Ub : a !TTX !CCTr q P, q V r 4 U Ub $ $ _. q P, q V 4 U Ub $ $ _. @ @ @ ! P V 8 8 8 3
0x34f0f0…34f284 Dummy {f00=0x00ff, f01=0x0190, f02=»q V 8 8 8 4 D P$ Ur @ # P H I K T + Y@ _`R& @ @ @ % P V 4 4 4 _r @ @ T Ub : W V F !SST o WJ !AAT o W> o0 V V 0 V P _ W $ q > R P >b
0x34f284…34f418 Dummy {f00=0x00ff, f01=0x0190, f02=» 1 Q a 0 I , I . $# P8 V -W( n^W" D V ` T @ 1 Q a : @ % PD H I H T P( H U V U W < + + P m` V : ` P: @ @ @ D (P W H $ I & % E , a :
0x34f418…34f5ac Dummy {f00=0x00ff, f01=0x0190, f02=» W R _ $ W : Ub Y Z . @. T A. V W Y0 Z6 . @. T A. V >A 8T 9 0 1 8 $; # V ;c F !AAP # $ < $ : W | v z *T P _ / P
0x34f5ac…34f740 Dummy {f00=0x00ff, f01=0x0190, f02=»P V v ]. W v P _ @. P V Ur A. (P ) @. @. P V Ur A. (P ) @. @ @ T Ub : N =H N ` : N =H N ` : &=H F ` : F =H F ` : F =H F ` : P N =H N T q a _ : @
0x34f740…34f8d4 (2, 309) Dummy {f00=0x00ff, f01=0x0190, f02=» L * A CRT M " r r r r r s@ @s Ps t6 6th !t 1u( Qu` r r as `$ . jDC s4 2 KB s Er v s spsp
0x34f8d4…34fa68 Dummy {f00=0x00ff, f01=0x0190, f02=» Y t* P P 27 DI t ?O_o 45d P t Ub 2 KB t F. F ` u( t t
0x34fa68…34fbfc Dummy {f00=0x00ff, f01=0x0190, f02=» L * P r r r r r @ P 6 ! 1 Q r r a `$ . jDC s4 2 KB s Er v spsp
0x34fbfc…34fd90 Dummy {f00=0x00ff, f01=0x0190, f02=»Z) POL125 EXCHANGE REQUEST ` P XIF a " P RB POL115 SEND EOT a . P EJECT a J P* a X P* a b 8 P* CHECK IF THERE IS A WRITE REQUEST TO BE COMPLETED a l P* a P* A1 CONTAINS RETURN CODE a P* a P* a PCWRITE LD A6,FDWTUT a $ P RF(
0x34fd90…34ff24 Dummy {f00=0x00ff, f01=0x0190, f02=» a P RF(Z) CWR100 WRITE REQUEST b P SUK A2,2 b , ( P RF(NZ) CWR900 NOT EXCHANGE REQUEST b > P LDR A1,A1 b j 2 P RF(NZ) CWR100 TRANSMISSION ERROR, RC NOT ZERO b | P LDK A2,2 TRANMISSION OK b ( P ST A2,DWTOR,A6 INDICATE READ ORDER b P RF CWR150
0x34ff24…3500b8 Dummy {f00=0x00ff, f01=0x0190, f02=»,A8 b $ P CF A15,TENDIO COMPLETE REQUEST c PCWR150 EQU * c 4 * P CF A15,REMOVW REMOVE FROM WRITE QUEUE c H PCWR200 EQU * c v PCWR900 EQU * c " P CM XACK RESET 'ACK EXPECTED' c P CM FDWTUT c P RTN A5 c P EJECT c P* c P* c P
0x3500b8…35024c Dummy {f00=0x00ff, f01=0x0190, f02=»TY ERROR , BUFFER OVERFLOW c | ( P* 2 : IF CORRECT ETB BLOCK RECEIVED d " P* d N PRDMESS EQU * d X $ P LD A4,DCRBUF GET BUFFER ADDRESS d l P ADK A4,6 RESERVE HEADER d P LDK A3,0 d P LD A1,XSTA d $ P RF(NZ) RDM050 LAST INPUT WAS OK d " P LD A1
0x35024c…3503e0 Dummy {f00=0x00ff, f01=0x018e, f02=»ST REMEMBER START OF BLOCK d PRDM075 EQU * e " P CM XSTA e 6 P LDK A7,0 RESET LRC e F P e b P IFT IBMCHR=1 e j P IFF TPMODE=1 e P LD A1,FBAX e " P RF(NZ) RDM100 NOT FIRST BLOCK e P CF A5,READP e P RF(NZ) RDM120 PARITY ERROR e P
0x3503e0…350574 (2, 310) Opaque[0x194]
0x350574…350708 # DirEnt {nam=»DRFDDE«, typ=»UF«, f00=0x0000, f01=0x0000, f02=0x2888, f03=0x0000}
0x350574…350708 IdxSect {
0x350574…350708 f00 = 0x0144 // 0x350574 @0x0
0x350574…350708 f01 = 0x0002 // 0x350576 @0x2
0x350574…350708 gno = [ // 0x350578 @0x4
0x350574…350708 [0x00]: C0x0144.0x1.0
0x350574…350708 ]
0x350574…350708 }
0x350708…35089c Dummy {f00=0x0144, f01=0x0190, f02=» LED DRFD01,/S,## ##CH $$ECBCW2$$ECBCW1$$ ##IL 0 < ASCII CONV, 81-04-18,DK1 J $ ONLY VALID FOR DATA ENTRY,DK1 n ##DL 95 ##DL 906 ( $ CF A5,ASC:01 TRANSFORM TO ASCII DK1 ##DL 1576 4 0 CF A5,ASC:01 TRANSF
0x35089c…350a30 Dummy {f00=0x0144, f01=0x00fc, f02=»IN SYSTEM AREA DK1 v * & LD A4,DWTBA,A6 GET BUFFER ADDRESS DK1 RF ASC:02 DK1 H ASC:01 EQU * DK1 ` ##IL 1617 z ASC:02 EQU * DK1 ##EN KPF /S,DRFDDE SCR ASM DRFDDE KPF /O SCR SC:01 TRANSF
0x350a30…350bc4 Dummy {f00=0x0144, f01=0x2008, f02=» M AREA DK1 v * & LD A4,DWTBA,A6 GET BUFFER ADDRESS DK1 RF ASC:02 DK1 H ASC:01 EQU * DK1 ` ##IL 1617 z ASC:02 EQU * DK1 ##EN KPF /S,DRFDDE SCR ASM DRFDDE KPF /O SCR SC:01 TRANSF
0x350bc4…350d58 Dummy {f00=0x0144, f01=0x0190, f02=» > @ IDENT T:STOU P,REL=10.0,800314,870136941000 STROU1 F STROU1 X T:STEV l T:LOFS ~ * & @ X x & Y " I:EVA0 T:LOPS , ( !0P <
0x350d58…350eec Dummy {f00=0x0144, f01=0x40fe, f02=»R W V r T:DUPX T:GRFC $ , ( y & Y $ 8 " X X 6 T:ROK f T:RNOK v $ x ( y $ 4 0 1P< ;T( AT GW$ WP cW mW wP R W V, @ !0P <
0x350eec…351080 Dummy {f00=0x0144, f01=0x40f4, f02=» > @ IDENT T:STEV P,REL=10.0,800314,870136941000 T:STEV F T:STEV X T:GRFC l I:EVA0 ~ , ( H Y Y & ( : & @ P RTN PS P I
0x351080…351214 (2, 311) Opaque[0x194]
0x351214…3513a8 # DirEnt {nam=»DRFDDE«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x2a88, f03=0x0000}
0x351214…3513a8 IdxSect {
0x351214…3513a8 f00 = 0x0154 // 0x351214 @0x0
0x351214…3513a8 f01 = 0x0022 // 0x351216 @0x2
0x351214…3513a8 gno = [ // 0x351218 @0x4
0x351214…3513a8 [0x00]: C0x0154.0x1.0
0x351214…3513a8 [0x01]: C0x015a.0x2.0
0x351214…3513a8 [0x02]: C0x015a.0x3.0
0x351214…3513a8 [0x03]: C0x015b.0x0.0
0x351214…3513a8 [0x04]: C0x015b.0x3.0
0x351214…3513a8 [0x05]: C0x015c.0x0.0
0x351214…3513a8 [0x06]: C0x015c.0x1.0
0x351214…3513a8 [0x07]: C0x015c.0x2.0
0x351214…3513a8 [0x08]: C0x015c.0x3.0
0x351214…3513a8 [0x09]: C0x015d.0x0.0
0x351214…3513a8 [0x0a]: C0x015d.0x1.0
0x351214…3513a8 [0x0b]: C0x015d.0x2.0
0x351214…3513a8 [0x0c]: C0x015d.0x3.0
0x351214…3513a8 [0x0d]: C0x015e.0x0.0
0x351214…3513a8 [0x0e]: C0x015e.0x1.0
0x351214…3513a8 [0x0f]: C0x015e.0x2.0
0x351214…3513a8 [0x10]: C0x015e.0x3.0
0x351214…3513a8 ]
0x351214…3513a8 }
0x3513a8…35153c Dummy {f00=0x0154, f01=0x0190, f02=» 2 P IDENT DRFD01 REL 10.0 80-04-29 870105041000 P ASCII CONV, 81-04-18,DK1 : $ P ONLY VALID FOR DATA ENTRY,DK1 ^ P P* 2 P********************************************** P* " P* PHILIPS TERMINAL SYSTEM PTS P* ( P
0x35153c…3516d0 Dummy {f00=0x0154, f01=0x0190, f02=»************* p P* P* 0 P* THIS DISK DRIVER HANDLES UP TO FOUR DAISY * . P* CHAINED FLEXIBLE DISK DRIVES PTS 6879, ^ 0 P* CONNECTED TO CPU VIA CHANNEL UNIT CHFD ON & P* MULTIPLEX OR PROGRAMMED CHANNEL P* P* P EJECT
0x3516d0…351864 Dummy {f00=0x0154, f01=0x018e, f02=»AD -IBM DISC ONLY- z P* /05 BASIC WRITE 0 D P* /06 SEQUENTIAL WRITE -IBM DISC ONLY- L P* /11 PHYSICAL READ P* /15 PHYSICAL WRITE P* /21 OPEN P* /22 CLOSE P* /24 WRITE
0x351864…3519f8 Dummy {f00=0x0154, f01=0x0190, f02=» P* /38 UNLOAD P* P* ENTRY PARAMETERS: & P* B P* A5 STACK BASE L P* A6 DWT-ADDRESS h P* A7 ORDER P* A8 ECB-ADDRESS P EJECT DRFD01 P* P*********** P* * P* ENTRIE
0x3519f8…351b8c Dummy {f00=0x0154, f01=0x0190, f02=» P ENTRY FDON RECOVERY ROUTINE P ENTRY DWFD01 DWT-ADDRESS ( P EJECT DRFD01 J P* b P************* l P* * P* EXTERNALS * P* * P************* P* P EXTRN TDISP DISPATCHER P EXT
0x351b8c…351d20 Dummy {f00=0x0154, f01=0x018e, f02=»E r & P EXTRN VOLNAM VOLUME NAME ADDRESS 0 P EXTRN VOLGET VOLUME NAME TO DWT AND SET NVL 4 . P EXTRN NVLCHK CHECK FOR NEW VOLUME LOADED h EXTRN DWTST STATUS EXTRN DWTECB ECB ADDRESS " P EXTRN DWTUEC USER ECB ADDRESS $ EXTRN DWT
0x351d20…351eb4 (2, 312) Dummy {f00=0x015a, f01=0x0190, f02=» t & ! EXTRN DWTSB2 STACK BASE 2 IN DWT P EXTRN TTB:MT MMU TABLE 2 ( P EXTRN SAVE8 SAVE A1-A8 ON A15 STACK R P EXTRN SETIMP TIMER ~ & P EXTRN INTSAV INTERRUPT SAVE AREA & P EXTRN PFPOST PWF POST PROC. FLAG & P EXTRN TASCII EBCDIC TO AS
0x351eb4…352048 Dummy {f00=0x015a, f01=0x0190, f02=»DRESS v & P EXTRN ECBRL ECB REQUESTED LENGTH & P EXTRN ECBEL ECB EFFECTIVE LENGTH 8 $ P EXTRN ECBCW1 ECB CONTROL WORD 2 b P EJECT DRFD01 P* P************************ P* * P* CONDITIONAL ASSEMBLY *
0x352048…3521dc Dummy {f00=0x015a, f01=0x0190, f02=»L BY SETTING X:A = 0 P* PX:A EQU 1 & PCHAN EQU 1 8 P* J 2 P* A PROGRAM VERSION INCLUDING TOSS DISC FORMAT T ( P* IS OBTAINED BY SETTING TOSS EQU 1. P* PX:B EQU 0 PTOSS EQU 1 P* 2 P* A PROGRAM VERSION INCLUD
0x3521dc…352370 Dummy {f00=0x015a, f01=0x0190, f02=»RAM VERSION USING TOSS MMU PAGING * P* IS OBTAINED BY SETTING MMUPAG EQU 1. * P* X PMMUPAG EQU 1 b P* v P* 6 P* A PROGRAM VERSION USING THE EXTENDED INSTRUCTION . P* SET IS OBTAINED BY SETTING CPU852 EQU 0. P* PCPU852 E
0x352370…352504 Dummy {f00=0x015a, f01=0x0190, f02=» TO THE DISK DRIVE UNIT CAN BE INCLUDED BY SETTING OPCLOS =1 P* F PX:D EQU 0 P POPCLOS EQU 1 b P* v P EJECT DRFD01 P* P* P* MMU BUFFER SIZE P* P* P IFT MMUPAG=0 PDVBLEN EQU 256 P
0x352504…352698 Dummy {f00=0x015a, f01=0x0190, f02=» INDEX P* P* PDEVIND EQU 10 " P* 8 P EJECT DRFD01 B P* Z P************* d P* * z P* CONSTANTS * P* * P************* P* & PCUADR EQU 09 CONTROL UNIT ADDRESS & PMU
0x352698…35282c Dummy {f00=0x015a, f01=0x0190, f02=»MAX SECTOR NUMBER . PMAXIBM EQU 1923 MAX SECTOR NUMBER IBM DISC ( PBOE EQU 28 BEGIN OF EXTENT POSITION L & PEOE EQU 34 END OF EXTENT POSITION x $ PEOD EQU 74 END OF DATA POSITION PTIME EQU 20 DELAY - POWER ON & POPENTI EQU 10 DELAY AT OPE
0x35282c…3529c0 Dummy {f00=0x015a, f01=0x0190, f02=» P* P********** P* * P* TABLES * 2 P* * D P********** V P* h P IFF CHAN+IBM=0 r ( P DATA DVBLEN+DVBLEN MMU BUFFER SIZE P XIF P* P IFT CHAN=0 P IFT IBM=0 " P DATA 0 INDICATE NO MM
0x3529c0…352b54 (2, 313) Dummy {f00=0x015a, f01=0x0190, f02=»ADDRESS z P* P EJECT DRFD01 P* 2 P*************** < P* * T P* TEST STATUS * l P* * P*************** P* PTESTST EQU * P IFF IBM+TOSS=0 P CF A15,NVLCHK " P STR A1,
0x352b54…352ce8 Dummy {f00=0x015a, f01=0x018e, f02=»EN DISC NOT OPERABLE * P LDKL A2,/7FFF RESET REQUEST ERROR BIT P ANRS A2,A6 J P* ^ P IFF TOSS+IBM=0 h " P CF A5,VO:NAM GET VOLUME NAME , P LD A1,DWTORD,A6 RESTORE INDEX AND ORDER P ST A1,DWTOR,A6 P CF A15,VOLNAM P ABL
0x352ce8…352e7c Dummy {f00=0x015a, f01=0x0190, f02=» P************** P* * P* ACTIVATION * 0 P* * F P************** P* r PFDAD EQU * ACTIVATION ENTRY | P IFT MMUPAG=1 P IFT CHAN=0 P CM BUFFLG,A6 P XIF P* $ P LD A2,DWTOR,A6 IN
0x352e7c…353010 Dummy {f00=0x015a, f01=0x0190, f02=» LC A3,DWTOR,A6 GET INDEX P* " P IFT OPCLOS=1 , P* B & P* CHECK IF OPEN OR CLOSE ORDER L P* v P LDR A1,A7 ORDER P SUK A1,/21 P RF(Z) OPEN OPEN P SUK A1,1 " P RF(NZ) FD:ORD NOT CLOSE ORDER P* P E
0x353010…3531a4 Dummy {f00=0x015a, f01=0x0190, f02=»PERFORMED BY WRITING A ONE TO BIT 2 P* ZERO OF THE SOP LIGHTS EXTERNAL REGISTER * P* ` " P LDKL A1,/8000 MASK FOR BIT 0 j & P ORS A1,SPDLCI SET OPEN/CLOSE BIT P RF OPEN10 P* P EJECT P* P******** P* *
0x3531a4…353338 Dummy {f00=0x015a, f01=0x0190, f02=» SOP LIGHTS EXTERNAL REGISTER. P* & POPEN EQU * 0 " P LDKL A1,/7FFF MASK FOR BIT 0 B ( P ANS A1,SPDLCI CLEAR OPEN/CLOSE BIT h P* POPEN10 EQU * 0 P LD A1,SPDLCI SOP LIGHTS AND OPEN/CLOSE DATA " P OTR A1,0,SOPDA OPEN FD DRIVE
0x353338…3534cc Dummy {f00=0x015a, f01=0x0190, f02=»OINTER ADDRESS z P LDR A1,A6 SAVE DWT-ADDR P CF A15,SETIMP WAIT 6 . P DATA OPENRE,OPENTI START ADDR, WAIT TIME R P ABL TDISP EXIT P* POPENRE EQU * P LDR A6,A1 GET DWT-ADDR , P CM DWTTP2,A6 INDICATE NO TIMER RUNNING
0x3534cc…353660 Dummy {f00=0x015a, f01=0x0190, f02=»O IN CIO-INSTRUCTION P* PFD:ORD EQU * & P LC A2,DIXTAB,A3 : , P SC A2,DWTA3+1,A6 SAVE DRIVE INDEX MASK R P* P IFT IBM+TOSS=2 P AN A2,DWTLAB,A6 ( P SC A2,DWTFIB+1,A6 INDICATE TOSS/IBM P XIF P* P CF A5,SET
0x353660…3537f4 (2, 314) Dummy {f00=0x015b, f01=0x018e, f02=» P IFT IBM=0 P SUK A3,38 " P RF(N) INTEST READ/WRITE ORDER ( P SUK A3,18 N P ABL(NP) LOAD LOAD/UNLOAD ` P XIF P* P IFT IBM=1 P SUK A3,1 P RF(Z) INTEST BASIC READ P SUK A3,1 " P RF(Z) IBMCHK SEQUENTIAL R
0x3537f4…353988 Dummy {f00=0x015b, f01=0x0190, f02=» & P RF(N) INTEST PHYSICAL READ/WRITE P SUK A3,11 . P RF(Z) IBMCHK REWIND @ P SUK A3,7 P ABL(NP) LOAD LOAD/UNLOAD n P XIF P* PIBMCHK EQU * P IFT TOSS+IBM=2 P LD A4,DWTFIB,A6 & P ABL(NZ) IBMDSK IBM DISC HANDL
0x353988…353b1c Dummy {f00=0x015b, f01=0x0190, f02=»CT DRFD01 P* P* $ PREQERR ABL DISIOE REQUEST ERROR & P* N 0 PINCLEN EQU * INCORRECT REQUESTED LENGTH EXIT X P LDKL A1,/8008 RETURN CODE P* PDIS:EN EQU * . P ABL DISEND PERFORM TENDIO AND GO TO TDISP P* P
0x353b1c…353cb0 Dummy {f00=0x015b, f01=0x018e, f02=»CK IF NEW VOLUME LOADED ~ P ADK A1,0 $ P RB(NZ) DIS:EN NEW VOLUME LOADED 2 P XIF Z P* f P LD A3,ECBRL,A8 p 2 P RB(Z) INCLEN INCORRECT INPUT PARAMETER ECBRL ( P SRC A3,7 NUMBER OF PHYSICAL SECTORS 2 P RB(N) INCLEN INCORRECT INPUT
0x353cb0…353e44 Dummy {f00=0x015b, f01=0x0190, f02=» l P* P IFT IBM+TOSS=2 P LD A4,DWTFIB,A6 * P RF(NZ) INTES5 IBM-DISC B P XIF b P* n P IFT TOSS=1 x P LDR A4,A3 6 P SRC A4,1 CHECK IF EVEN NUMBER OF PHYSICAL SECTORS 2 P RB(N) INCLEN INCORRECT INPUT PARAMETER ECBRL
0x353e44…353fd8 Dummy {f00=0x015b, f01=0x0190, f02=» XIF * P LDR A4,A2 SAVE PHYSICAL SECTOR NUMBER P RB(N) REQERR REQUEST ERROR : P SUKL A4,MAXSEC ^ P RB(NN) REQERR REQUEST ERROR v P ADR A4,A3 " P RB(P) INCLEN INCORRECT LENGTH , P ST A3,DWTNOS,A6 SAVE NUMBER OF SECTORS 2 P ST A2
0x353fd8…35416c Dummy {f00=0x015b, f01=0x018e, f02=» P IFT MMUPAG=1 P LCR A2,A8 P ANK A2,/30 , 4 P ST A2,DWT:BF,A6 SAVE BITS 0-1 IN 18-BIT ADDRESS @ P XIF x P* P EJECT DRFD01 P* P* MULTIPLE SECTOR IO ENTRY P* PFD:000 EQU * P IFT MMUPAG=1 P I
0x35416c…354300 Dummy {f00=0x015b, f01=0x0190, f02=» P SUK A3,4 & P RF(NN) FD:005 FOUR PHYS. SEC. IO P* D PFD:003 SUK A2,128 N P SUK A4,1 h P ADK A3,1 z P RB(NZ) FD:003 P* PFD:005 EQU * . P ST A4,DWTSIO,A6 SECTORS IN ONE IO ON DISC ( P ST A2,DWTRL,A6 UPDATE
0x354300…354494 (2, 315) Dummy {f00=0x015b, f01=0x0190, f02=»G=1 P IFF CHAN+IBM=0 " P LD A2,DWTBA,A6 BUFFER ADDRESS $ P LD A1,DWT:BF,A6 J , P RF(NZ) FD:007 BUFFER NOT IN SYSTEM AREA b P LDR A3,A2 P RF(NN) FD:009 6 P AD A3,DWTRL,A6 CHECK IF 64K LIMIT WILL BE PASSED P RF(N) FD:009 NO
0x354494…354628 Dummy {f00=0x015b, f01=0x0190, f02=» A1,2 P ORR A1,A3 2 P SC A1,DWT:PA,A6 6 BIT PHYSICAL BUFFER ADDRESS ( P ADK A1,/4 CREATE ONE MORE MMU ENTRY V P SC A1,DWT:PA+2,A6 P ANKL A2,/FFF P LDR A1,A2 ( P ORK A1,1 INDICATE ADDRESS NOT ZERO P* 8 PFD:009 ST A1,D
0x354628…3547bc Dummy {f00=0x015b, f01=0x0190, f02=»F ORDER P SUK A1,1 P RF(Z) FD:060 BASIC READ " P SUK A1,4 B P RF(Z) FD:015 BASIC WRITE T P SUK A1,12 v P RF(Z) FD:060 PHYSICAL READ P SUK A1,4 P RF(Z) FD:013 PHYSICAL WRITE * P SUK A1,15 CHECK IF WRITE DELETED DATA
0x3547bc…354950 Dummy {f00=0x015b, f01=0x0190, f02=» AND BASIC WRITE ORDERS p P* ! & P LDK A4,1 WRITE DELETED DATA ORDER ! * & PFD:013 EQU * PHYSICAL WRITE ORDER ! T P ADK A4,4 ! ~ " PFD:015 EQU * BASIC WRITE ORDER ! P ADK A4,1 ! " P CF A5,BIO PREPARATION FOR CIO ! P* ! P IFT MMUPAG=1 !
0x354950…354ae4 Dummy {f00=0x015b, f01=0x0190, f02=»G=1 ! P IFF CHAN+IBM=0 " 4 P LD A1,DWT:LA,A6 GET FLAG/LOGICAL BUFFER ADDRESS " $ ( P RF(Z) FD:019 BUFFER IN SYSTEM AREA " P LDR A7,A3 REQUESTED LENGTH " P LDR A8,A2 SAVE A2 " & P LDKL A4,BUF DRIVER BUFFER ADDRESS " P LDR A2,A4 " & P TS -3
0x354ae4…354c78 Dummy {f00=0x015b, f01=0x0190, f02=»L -30,A15 RESTORE MMU FROM STACK " P LDR A2,A8 RESTORE A2 # ( 0 P CM BUFFLG,A6 INDICATE BUFFER IN SYSTEM AREA # F PFD:019 EQU * # z P XIF # P* # P IFT TOSS+IBM=2 # P LD A1,DWTFIB,A6 # P RF(Z) FD:018 NOT IBM # P XIF # P* # P
0x354c78…354e0c Dummy {f00=0x015b, f01=0x0190, f02=» DRFD01 # P* $ P* $ " P CF A5,FD:WRITE PERFORME WRITE $ & * P ANKL A3,/200 CHECK IF WRITE PROTECTED $ L P RF(Z) FD:020 $ z P LDK A3,/40 INDICATE ERROR $ , P ORRS A3,A6 UPDATE TEMPORARY RETURN CODE $ PFD:020 EQU * $ P RF FD:100 GOTO FD
0x354e0c…354fa0 Dummy {f00=0x015b, f01=0x0190, f02=» * $ P***************** % P* % 2 PFD:060 CF A5,BIO % < P* % T P IFT MMUPAG=1 % ^ P IFT CHAN=0 % t P IFT TOSS+IBM=2 % P LD A1,DWTFIB,A6 % P RF(Z) FD:070 TOSS DISC % & P LDKL A4,BUF DRIVER BUFFER ADDRESS % 0 P CM BU
0x354fa0…355134 (2, 316) Dummy {f00=0x015c, f01=0x0190, f02=»,DWT:LA,A6 % ( P RF(Z) FD:080 BUFFER IN SYSTEM AREA & & P LDKL A4,BUF DRIVER BUFFER ADDRESS & > 0 P CM BUFFLG,A6 INDICATE BUFFER IN SYSTEM AREA & h P XIF & P* & P IFT MMUPAG=1 & P IFT IBM=1 & P IFT TOSS+CHAN=0 & & P LDKL A4,BUF DRIVER BU
0x355134…3552c8 Dummy {f00=0x015c, f01=0x018e, f02=»READ & z P* ' P IFT TOSS+IBM=2 ' P LD A1,DWTFIB,A6 ' . P RF(Z) FD:090 NOT IBM ' F P XIF ' d P* ' p P IFT IBM=1 ' z P IFT MMUPAG=0 ' ( P LD A4,DWTBA,A6 ASCII OUTPUT ADDRESS ' P XIF ' P* ' P IFT IBM=1 ' P LD A7,DWTRL,A6 RE
0x3552c8…35545c Dummy {f00=0x015c, f01=0x018e, f02=» ' P IFT CHAN=0 ( P IFT TOSS+IBM=2 ( P LD A1,DWTFIB,A6 ( 4 P RF(Z) FD:100 TOSS DISC ( L P XIF ( l P* ( x P IFT MMUPAG=1 ( P IFF CHAN+IBM=0 ( 4 P LD A2,DWT:LA,A6 GET FLAG/LOGICAL BUFFER ADDRESS ( ( P RF(Z) FD:100 BUFFER IN SYSTEM A
0x35545c…3555f0 Dummy {f00=0x015c, f01=0x0190, f02=» ( P TL DWT:PA,A6 LOAD PSEUDO MMU TABLE ) 2 P MVSU A7 MOVE BUFFER FROM SYSTEM TO USER AREA ) 0 & P TL -30,A15 RESTORE MMU FROM STACK ) f P XIF ) PFD:100 EQU * ) P ABL FDMSIO ) P* ) P EJECT DRFD01 ) P* ) P******** ) P* *
0x3555f0…355784 Dummy {f00=0x015c, f01=0x0190, f02=»AD ORDER ) ~ P ADK A3,1 * P RF(Z) LOAD00 LOAD ORDER * " P ADK A3,17 * B $ P RB(NZ) RQ:ERR ERROR IF NOT LOCK * T P* * | PLOAD00 EQU * * P LDK A2,/14 LOCK * P CF A5,FD:REA * P ANK A3,1 * & P RF(NZ) LOA:80 ENDIO NOT OPERABLE * P* *
0x355784…355918 Dummy {f00=0x015c, f01=0x0190, f02=»OR+1,A6 GET ORDER * P SUK A3,/26 + P RF(Z) LOA:65 LOCK ORDER + . P CF A5,VO:NAM + N " P CF A5,LD:RC CHECK RETURN CODE + d P EJECT DRFD01 + P* + P* READ DATA SET LABEL + P* + P LD A2,ECBCW1,A8 SECTOR NO + P SUK A2,7 + P
0x355918…355aac Dummy {f00=0x015c, f01=0x0190, f02=»3,80 LENGTH + P LDKL A4,BUF , P CF A5,FD:REA , ( P SLL A1,4 CHECK NO DATA BIT , > P RF(NN) LOA:60 NOT NO DATA , b 0 P ORK A3,/10 INDICATE ILLEGAL DATA SET LABEL , PLOA:60 EQU * , P CF A5,LD:RC , P ENB , * P LD A3,ECBCW1,A8 DATA SET LA
0x355aac…355c40 Dummy {f00=0x015c, f01=0x0190, f02=»AL SECTOR , p P LDK A1,DWTBOE - $ P CF A5,STDWT STORE BOE NO IN DWT - ( P SUK A3,1 CRN - P P LDK A1,DWTCRN - f P CF A5,STDWT - | P ADK A4,EOE-BOE EOE ADDRESS - P CF A5,LOGSEC - P LDK A1,DWTEOE - $ P CF A5,STDWT STORE EOE NO IN DWT - P
0x355c40…355dd4 (2, 317) Dummy {f00=0x015c, f01=0x0190, f02=» A1,DWTEOD - $ P CF A5,STDWT STORE EOD NO IN DWT . P* . : PLOA:65 EQU * . D P LDKL A3,/400 . X , P ORRS A3,A6 UPDATE TEMPORARY RETURN CODE . n P* . PLOA:70 EQU * . P XIF . P LD A2,DWTA3,A6 . " P ORS A2,DWTLC,A6 INDICATE LOCK . PLO
0x355dd4…355f68 Dummy {f00=0x015c, f01=0x0190, f02=»E TEMPORARY RETURN CODE . P XIF / P* / , P EJECT DRFD01 / 6 P* / N P* / X P IFF TOSS+IBM=0 / b P* / z P* ERROR , UNLOCK / P* / PLOA:90 EQU * / P LDR A5,A6 / P ADKL A5,DWTSB2 STACK BASE / P LDK A2,/C UNLOCK /
0x355f68…3560fc Dummy {f00=0x015c, f01=0x0190, f02=» / x P RB(NZ) LOA:90 0 & P LDKL A4,BUF DRIVER BUFFER ADDRESS 0 P RTN A5 0 H P XIF 0 X P* 0 d P EJECT DRFD01 0 n P* 0 P********** 0 P* * 0 P* UNLOAD * 0 P* * 0 P********** 0 P* 0 PUNLOAD EQU * 0 P
0x3560fc…356290 Dummy {f00=0x015c, f01=0x0190, f02=»F(Z) UNL:70 NOT OPEN 0 4 P ST A7,12,A8 STORE EOD-NO IN CONTROL WORD OF ECB 1 P* 1 T , P* READ DATA SET LABEL TO DRIVER BUFFER 1 ^ 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 RETURN CODE CHECK 1
0x356290…356424 Dummy {f00=0x015c, f01=0x0190, f02=»* 1 P* DIVIDE EOD BY 26 2 P* 2 & P LDK A1,0 2 0 PUNL:10 SUK A7,26 2 B P RF(N) UNL:20 2 Z P ADK A1,1 2 p P RB UNL:10 2 P* 2 P EJECT DRFD01 2 P* 2 P* 2 PUNL:20 ADK A7,27 2 P* 2 P* A1 = BINARY TRACK NO 2
0x356424…3565b8 Dummy {f00=0x015c, f01=0x0190, f02=»S 79 2 p P SCR A3,A4 3 P SUK A4,1 3 P SRL A3,8 LEFT BYTE 3 0 P SCR A3,A4 STORE IN BUFFER 3 L P LDR A7,A1 TRACK 3 n ( P CF A5,BINDEC DEC EBCDIC-CODED IN A3 3 P SUK A4,3 3 P STR A3,A4 TRACK INTO BUF 3 F P INH INHIBIT INTERRUPTS
0x3565b8…35674c Dummy {f00=0x015c, f01=0x018e, f02=»5 PHYSICAL WRITE 3 ( P CF A5,FD:WRITE WRITE DATA SET LEBEL 4 $ P CF A5,UNL:RC CHECK RETURN CODE 4 D P CF A5,DSOPCH 4 l P CMR A2 INDICATE NOT OPEN 4 P* 4 P EJECT DRFD01 4 P* 4 P* UNLOCK 4 P* 4 P XIF 4 PUNL:70 EQU * 4
0x35674c…3568e0 Dummy {f00=0x015c, f01=0x0190, f02=» 4 t , P ANS A2,DWTLC,A6 INDICATE UNLOCK IN DWT 5 P RB LOA:80 END:IO 5 8 P* 5 R P IFT IBM=1 5 P* 5 n P* UNLOAD RETURN CODE CHECK 5 x P* 5 PUNL:RC EQU * 5 P ANKL A3,/207 5 P RF(Z) RTN:A5 NO RETURN CODE 5 P ANKL A3,/200 5 &
0x3568e0…356a74 (2, 318) Dummy {f00=0x015c, f01=0x0190, f02=» A3,/40 5 , P ORRS A3,A6 UPDATE TEMPORARY RETURN CODE 6 PRTN:A5 EQU * 6 @ P RTN A5 6 T P* 6 d P EJECT DRFD01 6 n P* 6 P* 6 ( PIBMDSK EQU * IBM DISK HANDLING ENTRY 6 P IFT IBM=1 6 . P CF A15,NVLCHK CHECK IF NEW VOLUME LOADED 6
0x356a74…356c08 Dummy {f00=0x015c, f01=0x0190, f02=»D:DIS NOT OPEN, ERROR 6 P LC A1,DWTOR+1,A6 ORDER CODE 7 P SUK A1,49 7 B P RF(Z) REWIND REWIND FILE 7 T * P LD A3,ECBRL,A8 CHECK REQUESTED LENGTH 7 v P SUK A3,SECLEN 7 $ P ABL(NZ) INCLEN INCORRECT LENGTH 7 P ADK A1,43 7 $ P RF(Z) SQWRITE SEQUE
0x356c08…356d9c Dummy {f00=0x015c, f01=0x0190, f02=»***************** 7 P* SEQUENTIAL READ * 8 P******************* 8 6 P* 8 R . P ADK A2,DWTCRN-DWTEOD A2 = ADDRESS TO CRN 8 P LDR* A3,A2 CRN 8 P ADK A3,1 CRN+1 8 ( P ST A3,ECBCW1,A8 STORE CRN+1 IN ECB 8 P CWK A3,MAXIBM 8 P RF(P) F
0x356d9c…356f30 Dummy {f00=0x015c, f01=0x0190, f02=»REA READ SECTOR POINTED AT BY CRN+1 8 P* 9 , P IFT MMUPAG=0 9 6 ( P LD A4,ECBBA,A8 USER BUFFER ADDRESS 9 L P XIF 9 x P* 9 P IFT IBM=1 9 P LDK A7,SECLEN 9 ( P CF A5,ASC:01 TRANSFORM TO ASCII DK1 9 P* 9 P EJECT DRFD01 9 P* 9
0x356f30…3570c4 Dummy {f00=0x015c, f01=0x0190, f02=»AD MMU TABLE 9 & P LDKL A1,BUF DRIVER BUFFER ADDRESS : & P LD A2,DWTUEC,A6 USER ECB ADDRESS : > ( P EL A2,ECBBA,A2 USER BUFFER ADDRESS : h P LDK A7,SECLEN LENGTH : ( P MVSU A7 MOVE SECTOR TO USER BUFFER : , P TL -30,A15 RESTORE MMU TABLE FROM STACK :
0x3570c4…357258 Dummy {f00=0x015c, f01=0x0190, f02=» OF DATA : P* ; $ PSQR:10 LDKL A1,/1000 RETURN CODE ; P RF END:IO ; B P* ; T P EJECT DRFD01 ; ^ P* ; v P******************* ; P* SEQUENTIAL WRITE * ; P******************* ; P* ; PSQWRIT EQU * ; P* ; P* CHECK IF
0x357258…3573ec Dummy {f00=0x015c, f01=0x0190, f02=» ; h P CWK A7,MAXIBM < P RF(P) FD:DIS REQUEST ERROR < P CWR* A7,A2 < B P RF(G) ENDEOE END OF EXTENT < V P* < z P IFT MMUPAG=1 < ( P TS -30,A15 SAVE RUNNING TASK'S MMU < " P LD A7,DWTTAB,A6 TTAB ADDRESS < P TL TTB:MT,A7 LOAD MMU TABLE
0x3573ec…357580 Dummy {f00=0x015c, f01=0x0190, f02=» LDK A7,SECLEN LENGTH < * P MVUS A7 MOVE SECTOR TO DRIVER BUFFER = , P TL -30,A15 RESTORE MMU TABLE FROM STACK = L P XIF = | P* = P IFT IBM=1 = P LDK A4,5 BIO WRITE = P CF A5,BIOSQ = P LDK A7,SECLEN = , P CF A5,EBCDIC TRANSFORM AND MO
0x357580…357714 (2, 319) Dummy {f00=0x015c, f01=0x0190, f02=» LDK A1,/40 WRITE PROTECTED = , P ORRS A1,A6 UPDATE TEMPORARY RETURN CODE > $ PSQW:05 EQU * > T P CF A5,DSOPCH > h PSQW:10 EQU * > ~ 2 P ANKL A3,/207 WRITE PROTECTED OR NOT OPERABLE > P RF(NZ) END:RC > * P IMR A2 EOD=EOD+1 OR CRN=CRN+1 IN DWT >
0x357714…3578a8 Dummy {f00=0x015c, f01=0x0190, f02=»QUEST ERROR > P* ? P EJECT DRFD01 ? P* ? 6 P********** ? @ P* REWIND * ? R P********** ? d P* ? v PREWIND EQU * ? P LDR A3,A2 SAVE EOD ADDRESS ? P LDK A1,DWTBOE ? P CF A5,DSPAD ? P LDR* A4,A2 BOE ? P STR A4,A3 EOD
0x3578a8…357a3c Dummy {f00=0x015c, f01=0x0190, f02=» ? z P RF END:IO @ P XIF @ P* @ & P EJECT DRFD01 @ 0 P* @ H P***************** @ R P* * @ l P* PERFORM ORDER * @ P* * @ P***************** @ P* @ P* @ P* INPUT: A2 BIO CONTENTS @
0x357a3c…357bd0 Dummy {f00=0x015c, f01=0x0190, f02=» @ P LDKL A1,/C000 WORDS,WRITE A P XIF A * P IFT CHAN=1 A 6 " P LDK A1,0 INDICATOR WRITE MODE A J P XIF A p P RF FD:800 A | P* A PFD:REA EQU * A P IFT CHAN=1 A P LDK A1,1 READ MODE A P XIF A P IFT CHAN=0 A P LDKL A1,/80
0x357bd0…357d64 Dummy {f00=0x015c, f01=0x018e, f02=»1 A P* B P* B P IFT MMUPAG=1 B 2 P LD A7,BUFFLG,A6 CHECK WHAT BUFFER TO READ TO B 4 ( P RF(Z) FD:810 BUFFER IN SYSTEM AREA B j 0 P LD A7,DWT:BF,A6 BITS 0-1 IN 18-BIT ADDRESS B P ECR A7,A7 B P ORR A1,A7 B PFD:810 EQU * B P XIF B
0x357d64…357ef8 Dummy {f00=0x015c, f01=0x0190, f02=» B P IFT CHAN=1 C P* C P EJECT DRFD01 C & P* C > . P* PUT BUFFER START AND END ADDRESS IN DWT C H P* C z " P ST A1,DWTRW,A6 INDICATE MODE C P ST A4,DWTUB,A6 C P ADR A3,A4 C " P ST A3,DWTUBE,A6 END ADDRESS+2 C P XIF C & P S
0x357ef8…35808c Dummy {f00=0x015c, f01=0x0190, f02=»R CHANGE OF CUADR C v P CIO A2,1,CUADR CIO START D ( P RF(3) END:30 DEVICE ADDRESS UNKNOWN D < P RF T:DISP D h P* D z P EJECT DRFD01 D P* D * P************************************* D P* D < P* FDMSIO - UPDATE PARAMETERS FOR MULTIPLE
0x35808c…358220 Dummy {f00=0x015c, f01=0x0190, f02=» D & P IM DWTCW2,A6 UPDATE SECTOR NUMBER E P LDR* A1,A6 RETURN CODE E 2 & P ANK A1,/7F GET ERROR RETURN CODE E R P RF(NZ) END:RC E | 0 P LD A2,DWTSIO,A6 GET NUMBER OF SECTORS DONE E $ P ADS A2,DWTCW2,A6 UPDATE DWTCW2 E P LD A2,DWTRL,A6 E " P A
0x358220…3583b4 (2, 320) Dummy {f00=0x015d, f01=0x0190, f02=»6 GET BUFFER POINTER E $ P ADR A2,A4 UPDATE BUFFER POINTER F P ST A2,DWTBA,A6 F D & P RF(N) FDMSI1 NOT PASSED 64K LIMIT F P ADK A4,0 F ( P RF(NN) FDMSI1 NOT PASSED 64K LIMIT F P LDK A2,/10 F & P ADS A2,DWT:BF,A6 UPDATE BITS 0-1 F PFDMSI1
0x3583b4…358548 Dummy {f00=0x015d, f01=0x0190, f02=»TORS IN MULTIPLE SECTOR IO F | P* G " P EJECT DRFD01 G , P* G D P********** G N P* * G ` P* END:IO * G r P* * G P********** G P* G P IFT IBM=1 G $ PENDEOE EQU * END OF EXTENT EXIT G P LDKL A1,/2000 RETURN CODE G
0x358548…3586dc Dummy {f00=0x015d, f01=0x0190, f02=» PT:DISP ABL TDISP H P* H $ PEND:30 EQU * CU ADDRESS UNKNOWN H & P LDK A1,1 NOT OPERABLE H N * P ST A1,DWTST,A6 INDICATE RECOVERY DONE H l P RB END:IO H P EJECT DRFD01 H P* H P******************** H P* * H P*
0x3586dc…358870 Dummy {f00=0x015d, f01=0x0190, f02=»A15,SAVE8 SAVE A1-A8 ON STACK H P XIF I & P* I 2 P IFT CPU852=0 I < " P MSR 8,A15 SAVE A1-A8 ON STACK I R P XIF I x P* I P LDKL A6,DWFD01 DWT ADDRESS I P CM DWTST,A6 I P IM DWTA2,A6 SET FDON FLAG I P* I P EJECT I P* I
0x358870…358a04 Dummy {f00=0x015d, f01=0x0190, f02=»RT TIMER I z P RB T:DISP J PFDON10 LDK A4,DWTTP J " P ADR A4,A6 J > P LDR A1,A6 SAVE A6 J P P CF A15,SETIMP J j P DATA FDON20,TIME J P* J PF:DISP EQU * J P RB T:DISP J P* J P* TIME OUT ROUTINE J P* J PFDON20 LDR A6,
0x358a04…358b98 Dummy {f00=0x015d, f01=0x0190, f02=»RUPT ROUTINE J j P IFT MMUPAG=1 K P IFT CHAN=0 K * $ P CM BUFFLG,A6 RESET BUFFER FLAG K > P XIF K f P* K r P IFF TOSS+IBM=0 K | 4 P IM DWTST2,A6 SET RECOVERY/READY INT. INDICATOR K P LDK A3,3 4 VOLUMES K P* K P EJECT DRFD01 K P
0x358b98…358d2c Dummy {f00=0x015d, f01=0x0190, f02=»RIVE INDEX MASK K ~ P SC A4,DWTA3+1,A6 SAVE IT L P CF A5,SETCIO L : P LDK A2,/14 L P P CF A5,FD:REA LOCK L d P ANK A3,1 L ~ P RF(Z) FDON19 OPERABLE L P LDK A1,6 NOT OPERABLE L $ P CF A15,VOLCLR CLEAR VOLUME NAME L & P RF FDON21 CONTINUE
0x358d2c…358ec0 Dummy {f00=0x015d, f01=0x018e, f02=»EMPORARY RETURN CODE L | PFDON21 EQU * M P LDK A2,/C M 0 P CF A5,FD:REA UNLOCK M B P LDK A3,0 M ^ , P LC A3,DWTOR,A6 GET INDEX FOR LAST VOL. M p P SUK A3,1 M P RB(NN) FDONLD NEXT VOLUME M P CM DWTOR,A6 M ( P CM DWTST2,A6 INDICATE VOLUMES R
0x358ec0…359054 (2, 321) Dummy {f00=0x015d, f01=0x0190, f02=» : P* TERMINATE WAIT REQUEST FOR OPEN ORDER IF RUNNING N P* N B " P LD A4,DWTTP2,A6 TIMER POINTER N L P RF(Z) FDON09 NOT RUNNING N r P CMR A4 STOP TIMER N $ P CM DWTTP2,A6 INDICATE NO TIMER N PFDON09 EQU * N P* N 6 P* OPEN FD TO MAKE
0x359054…3591e8 Dummy {f00=0x015d, f01=0x0190, f02=» N n $ P ANR* A2,A4 A2:=OPEN/CLOSE FLAG O P ORS A2,DWTOCF,A6 SAVE O 0 ( P XRRS A2,A4 SET STATUS WORD TO OPEN O N P LDR* A2,A4 O z & P OTR A2,0,SOPDA SET DRIVE TO OPEN O P* O PFDON23 EQU * O P XIF O P* O P EJECT O P* O P* L
0x3591e8…35937c Dummy {f00=0x015d, f01=0x018e, f02=»NOT LOCKED O P ST A2,DWTA3,A6 SAVE P P* P . P EJECT P 8 P* P F P* PUT DRIVE NO IN CIO INSTR P P P* P t P SRN A2,A3 DRIVE NO IN A3 P ~ * P CF A5,SETCIO PUT DRVE NO IN CIO-INSTR P P LDK A2,/14 LOCK P P CF A5,FD:REA P P LD A2,DWTA3
0x35937c…359510 Dummy {f00=0x015d, f01=0x0190, f02=» P P CWK A2,/0010 Q P RB(NE) FDON25 Q P* Q 4 P IFT OPCLOS=1 Q > P* Q T D P* RESTORE OPEN/CLOSE STATUS TO SAME VALUE AS BEFORE POWER OFF Q ^ P* Q $ P LD A2,DWTOCF,A6 OPEN/CLOSE FLAG Q " P ORS A2,SPDLCI TO STATUS WORD Q P CM DWTOCF
0x359510…3596a4 Dummy {f00=0x015d, f01=0x0190, f02=» EJECT Q P* R P* ANY REQUEST R P* R . P CM DWTA2,A6 RESET FDON FLAG R 8 PFDON60 EQU * R P LD A8,DWTECB,A6 R p 0 P ABL(Z) END:IO NO REQUEST, RETURN VIA TENDIO R P* R P* RETRY REQUEST R P* R P IM DWTRTY,A6 INDICATE RETRY R
0x3596a4…359838 Dummy {f00=0x015d, f01=0x0190, f02=»R R P ABL FDAD REACTIVATE S P* S & P EJECT DRFD01 S 0 P* S H P******************** S R P* * S n P* READY INTERRUPT * S P* * S P******************** S P* S PFDRE EQU * S P LD A2,DWTA2,A
0x359838…3599cc Dummy {f00=0x015d, f01=0x0190, f02=» S P RB FDON60 T P XIF T P* T & P IFF TOSS+IBM=0 T 0 P CM DWTST,A6 SET UNIT BUSY T H P RB FDONVL READ VOLUME NAMES T j P XIF T P* T P EJECT DRFD01 T P* T P********************* T P* * T P* INTE
0x3599cc…359b60 Dummy {f00=0x015d, f01=0x0190, f02=»NTERRUPT T x P IFT CPU852=1 U * P CF A15,SAVE8 SAVE REGISTERS ON STACK U & P XIF U T P* U ` P IFT CPU852=0 U j " P MSR 8,A15 SAVE A1-A8 ON STACK U P XIF U P* U P LDKL A6,DWFD01 DWT ADDRESS U P IFT CHAN=1 U P ENB U & P LD A1,D
0x359b60…359cf4 (2, 322) Dummy {f00=0x015d, f01=0x0190, f02=»STATUS U ~ " P RF(A) IH:000 READY INTERRUPT V P LD A3,PFPOST V 4 , P RF(NZ) IHDISP POST PROCESSING FLAG SET V J ( P LD A3,DWTRW,A6 READ/WRITE INDICATOR V z P RF(NZ) IH050 READ V P* V P EJECT DRFD01 V P* V P* V PIH010 EQU * V $ P
0x359cf4…359e88 Dummy {f00=0x015d, f01=0x0190, f02=» A2,2 V P RB(P) IH010 W P CIO A2,0,CUADR CIO HALT W " PIHDISP EQU * W B P ABL TDISP GOTO DISPATCHER W V P* W x PIH050 EQU * W P INR A3,0,CUADR READ W P RB(NA) IH005 W " P STR A3,A1 ONE WORD TO BUFFER W $ P ADK A1,2 UPDATE BUFFER PO
0x359e88…35a01c Dummy {f00=0x015d, f01=0x0190, f02=»00 EQU * W P INH X P XIF X P* X ( P EJECT DRFD01 X 2 P* X J P* X T P IFT CHAN=0 X ^ P SST A3,CUADR STATUS X r P XIF X P LD A8,DWTECB,A6 ECB ADDRESS X " P LD A5,DWTA5,A6 STACK POINTER X P LDR A2,A3 STATUS X P SLL A2,1
0x35a01c…35a1b0 Dummy {f00=0x015d, f01=0x0190, f02=» LDR A1,A3 X & P ANK A1,5 DATA FAULT, NOT OPERABLE Y P RF(Z) IH:10 RETURN CODE OK Y < P ORK A3,4 Y ` PIH:10 EQU * Y r P* Y P EJECT DRFD01 Y P* Y & P* TRANSFORM RETURN CODE, CU - ECB Y P* Y P ANKL A3,/FF37 Y P RF(Z) IH:80
0x35a1b0…35a344 Dummy {f00=0x015d, f01=0x0190, f02=»DATA Y | P ORK A3,4 SET BIT 13 ALSO Z PIH:70 EQU * Z . P LDR A4,A1 Z B P ANKL A4,/0400 BIT 5 Z T P SLC A4,7 TO BIT 14 Z p P ORR A3,A4 Z P* Z P IFT TOSS+IBM=0 Z P LDR A4,A1 Z P ANKL A4,/2000 BIT 2 Z P SLL A4,1 TO BIT 1 Z P
0x35a344…35a4d8 Dummy {f00=0x015d, f01=0x0190, f02=»/10 BIT 11 Z P SRC A1,5 TO BIT 0 [ P ORR A3,A1 [ , , P ORRS A3,A6 UPDATE TEMPORARY RETURN CODE [ > P ANKL A3,/F7FF [ n PIH:80 EQU * [ P LDR A1,A3 [ P RTN A5 [ P* [ P EJECT DRFD01 [ P* [ 0 P**********************************
0x35a4d8…35a66c Dummy {f00=0x015d, f01=0x0190, f02=» * [ 0 P******************************************* & P* Z P******* d P* * t P* BIO * P* * P******* P* P* INPUT: A8 ECB ADDRESS P* A4 ORDER P* > P
0x35a66c…35a800 Dummy {f00=0x015d, f01=0x0190, f02=»FER ADDRESS ~ P* ] PBIO EQU * ] & P LD A1,DWTCW2,A6 GET SECTOR NUMBER ] 0 ( P SLL A1,3 PUT IN RIGHT BIO POSITION ] Z 6 P LD A2,DWTSIO,A6 GET NUMBER OF SECTORS IN THIS IO ] P SRC A2,2 ] P ORR A2,A1 COMPLETE BIO ] & P ADR A2,A4 COMPLETE BI
0x35a800…35a994 (2, 323) Dummy {f00=0x015d, f01=0x0190, f02=»01 ] P* ^ P* ^ P***************** ^ P* * ^ 8 P* BIOSQ * ^ R P* * ^ l P***************** ^ P* ^ P* INPUT: A8 ECB ADDRESS ^ P* A4 ORDER ^ P* ^ > P* OUTPUT: A2 BITS
0x35a994…35ab28 Dummy {f00=0x015d, f01=0x0190, f02=»* ^ PBIOSQ EQU * _ P IFT IBM=1 _ & P LD A2,ECBCW1,A8 GET SECTOR NUMBER _ 0 ( P SLL A2,3 PUT IN RIGHT BIO POSITION _ Z & P ADR A2,A4 COMPLETE BIO WITH ORDER _ P* _ P IFT MMUPAG=0 _ & P LD A4,ECBBA,A8 GET BUFFER ADDRESS _ P XIF _ P*
0x35ab28…35acbc Dummy {f00=0x015d, f01=0x0190, f02=»3,SECLEN REQUESTED LENGTH _ P RTN A5 ` " P XIF ` 2 P* ` > P EJECT DRFD01 ` H P* ` ^ P****************** ` h P* VO:NAM * ` P****************** ` P* ` P* ` PVO:NAM EQU * ` P IFT TOSS+IBM=2 ` P LDK A3,36 LENGTH
0x35acbc…35ae50 Dummy {f00=0x015d, f01=0x018e, f02=»1 ` P LDK A2,0 BIO a P LDKL A4,BUF READ TO BUFFER a P CF A5,FD:REA a D P ANK A3,/17 FATAL ERROR a Z P RF(NZ) VOL:40 a z P IFT IBM=1 a P LD A2,BUF+32 a P CWK A2,'TO' a P RF(NE) VOL:10 IBM DISC a P LD A2,BUF+34 GET NEXT WORD
0x35ae50…35afe4 Dummy {f00=0x015d, f01=0x0190, f02=» a j P XIF b P* b P EJECT DRFD01 b P* b 6 P* b @ P IFT TOSS=1 b J P LDKL A2,BUF b ^ P IFT IBM=1 b r P RF VOL:20 b P XIF b P* b P IFT IBM=1 b PVOL:10 EQU * b P LDK A3,10 LENGTH b P LDK A2,/30 BIO b P LDK
0x35afe4…35b178 Dummy {f00=0x015d, f01=0x0190, f02=»ASK b r " P ORS A1,DWTLAB,A6 INDICATE IBM c P LDKL A1,/400 c 2 , P ORRS A1,A6 UPDATE TEMPORARY RETURN CODE c H P LDK A7,10 NO OF CHARACTERS c x 4 P CF A5,ASC:01 TRANSFER IBM VOL NAME TO ASCII DK1 c 0 P LDKL A2,BUF+4 START ADDRESS OF VOLUME NAME c P
0x35b178…35b30c Dummy {f00=0x015d, f01=0x0190, f02=» P LD A1,DWTST2,A6 d " P RF(NZ) VOL:30 NOT TEST STATUS d * P ORKL A3,/8000 INDICATE NO NEW NVL SET d B PVOL:30 EQU * d p . P CF A15,VOLGET VOLUME NAME TO DWT SET NVL d P LD A8,DWTECB,A6 d P LDK A3,0 d PVOL:40 EQU * d P RTN A5 d P XIF
0x35b30c…35b4a0 Dummy {f00=0x015d, f01=0x018e, f02=» FUNCTION: ASCII TRANSFORMS A STRING FROM EBCDIC TO d P* ASCII CODE e < . P* INPUT STRING ADDRESS IS BUF e & P* INPUT: A7 NO OF CHARACTERS e P* A4 = BUFFER ADDRESS e P* OUTPUT: A1 CHANGED e P* A4 =
0x35b4a0…35b634 (2, 324) Dummy {f00=0x015e, f01=0x0190, f02=» e ^ 0 P RF(NZ) ASC:01 BUFFER NOT IN SYSTEM AREA DK1 f * P LD A4,DWTBA,A6 GET BUFFER ADDRESS DK1 f < P RF ASC:02 DK1 f j PASC:01 EQU * DK1 f P IFT MMUPAG=1 f & P LDKL A4,BUF DRIVER BUFFER ADDRESS f P XIF f P* f PASC:02 EQU * DK1 f
0x35b634…35b7c8 Dummy {f00=0x015e, f01=0x0190, f02=»F f ( P LC A1,TASCII,A1 TRANSFORM TO ASCII g 0 P SCR A1,A4 PUT ASCII CHAR. IN OUTPUT BUFFER g 6 P SUK A7,1 g j P RB(P) ASC:10 g | P RF EBC:90 g P* g P EJECT DRFD01 g P* g P********** g P* EBCDIC * g P********** g P*
0x35b7c8…35b95c Dummy {f00=0x015e, f01=0x018e, f02=» PUT IN DRIVER BUFFER g r P* h & P* INPUT: A7 NO OF CHARACTERS h ( P* A4 = BUFFER ADDRESS h R P* h t P* OUTPUT: A1 CHANGED h ~ P* A4 = BUFFER ADDRESS h P* A7 CHANGED h PEBCDIC EQU * h P ENB h P IFT
0x35b95c…35baf0 Dummy {f00=0x015e, f01=0x0190, f02=» P SUK A4,1 i P LCR A1,A4 GET ASCII CHAR. i P ANK A1,/FF i 8 P LC A1,TEBCDIC,A1 i L P SC A1,BUF-1,A7 i f P SUK A7,1 i ~ P RB(P) EBC:10 i & P LDKL A4,BUF DRIVER BUFFER ADDRESS i PEBC:90 EQU * i P INH INHIBIT INTERRUPTS i P RTN
0x35baf0…35bc84 Dummy {f00=0x015e, f01=0x0190, f02=»GSEC TRANSFORMS PHYSICAL SECTOR TO STANDARD i , P* LOGICAL SECTOR (BINARY). j 4 < P* FORMAT OF PHYS. SEC. TT0SS (EBCDIC CODE) j d * P* TT = TRACK, SS=SECTOR j P* j , P* INPUT: A4 ADDRESS TO PHYS. SECTOR j
0x35bc84…35be18 Dummy {f00=0x015e, f01=0x0190, f02=» CF A5,DECBIN j P LDR A3,A1 SAVE k P ADK A4,2 k . P* k @ P* MULTIPLY BY 26 k J P* k d P SLL A3,5 *32 k n P LDR A2,A1 k P SLL A2,2 k P SUR A3,A2 *28 k P SLL A1,1 k P SUR A3,A1 *26 k P CF A5,DECBIN k P SUK A1,1 k
0x35be18…35bfac Dummy {f00=0x015e, f01=0x018e, f02=» P RF(NP) LOG:10 l P CWK A4,BUF+EOD+4 EOD l P RF(E) LOG:02 YES! l 8 P SUKL A1,1898 l R P RF LOG:04 l h P* l z " P* CHECK EOD LESS/EQUAL 74001 l P* l PLOG:02 SUKL A1,1899 l PLOG:04 EQU * l " P RF(P) LOG:10 NOT ACC SEC. NO l "
0x35bfac…35c140 Dummy {f00=0x015e, f01=0x018e, f02=» l j " PLOG:10 LDK A1,/10 RETURN CODE m , P ORRS A1,A6 UPDATE TEMPORARY RETURN CODE m . P INH INHIBIT INTERRUPTS m ^ P ABL LOA:90 ERROR ROUTINE m ~ P* m P EJECT DRFD01 m P* m P********** m P* DECBIN* m P********** m P* m
0x35c140…35c2d4 (2, 325) Dummy {f00=0x015e, f01=0x0190, f02=» m N , P* INPUT: A4 ADDRESS TO FIRST DIGIT n P* OUTPUT: A1 BINARY n 8 P* WORKING REG: A2,A7 n V P* n v PDECBIN LDK A1,0 n P LDK A7,2 n PDEC:10 LCR A2,A4 DIGIT n P ANK A2,/FF n P SUK A2,/F0 n P RB(N) LOG:05 n P S
0x35c2d4…35c468 Dummy {f00=0x015e, f01=0x0190, f02=»GIT n r PDEC:20 SUK A2,1 o P RB(N) DEC:10 NEXT DIGIT o $ P ADK A1,/A MULTIPLY BY 10 o D P RB DEC:20 o f PDEC:30 ADR A1,A2 o x P RTN A5 o P XIF o P* o P EJECT DRFD01 o P* o P********** o P* SETCIO * o P********** o
0x35c468…35c5fc Dummy {f00=0x015e, f01=0x0190, f02=» P* p P* OUTPUT: A3 CHANGED p P* A4 CHANGED p , P* p J PSETCIO LDKL A4,/FFCF p T P ANS A4,FD:CIO p p P SLL A3,4 p P ORS A3,FD:CIO p P RTN A5 p P IFT IBM=1 p P* p P EJECT DRFD01 p P* p P********** p
0x35c5fc…35c790 Dummy {f00=0x015e, f01=0x018e, f02=»ODED DIGITS (DECIMAL) p z P* q P* INPUT: A7 BINARY NUMBER q ( P* q L . P* OUTPUT: A3 EBCDIC CODED DECIMAL DIGITS q V P* A7 CHANGED q P* q PBINDEC LDK A3,0 q PBIN:10 SUK A7,10 q P RF(N) BIN:20 q P ADK A3,1 q P
0x35c790…35c924 Dummy {f00=0x015e, f01=0x0190, f02=» q r P RTN A5 r P* r P EJECT DRFD01 r " P********* r : P* DSLIO * r L P********* r ^ P* r p 4 P* FUNCTION: PREPARE FOR READING DATA SET LABEL r z P* r P* INPUT: A6 DWT ADDRESS r P* r : P* OUTPUT: A2 BITS 0-12 SECTOR
0x35c924…35cab8 Dummy {f00=0x015e, f01=0x018e, f02=»* A1 IS CHANGED r P* s " PDSLIO LDK A1,DWTDSS s , P CF A5,DSPAD s H P LDR* A2,A2 s P SLL A2,3 s p P LDK A3,128 s P LDKL A4,BUF s P RTN A5 s P* s P EJECT DRFD01 s P* s P********** s P* DSOPCH * s
0x35cab8…35cc4c Dummy {f00=0x015e, f01=0x0190, f02=» s P* OUTPUT: A2 EOD ADDRESS t , P* A7 EOD-NO (0=NOT OPEN) t * P* A1 CHANGED t Z PDSOPCH LDK A1,DWTEOD t x P CF A5,DSPAD t P LDR* A7,A2 EOD-NO t P RTN A5 t P* t P EJECT DRFD01 t P* t P*********
0x35cc4c…35cde0 Dummy {f00=0x015e, f01=0x018e, f02=»R CORRESPONDING DRIVE t t P* u P* INPUT: A1 DWT OFFSET u ( P* A6 DWT ADDRESS u J P* u l " P* OUTPUT: A2 ADDRESS TO DATA u v P* A6 DWT ADDRESS u P* u " PDSPAD LC A2,DWTOR,A6 DRIVE NO u P ANK A2,/3 u P ADR A2,
0x35cde0…35cf74 (2, 326) Dummy {f00=0x015e, f01=0x0190, f02=» u P********* v P* v : P* FUNCTION: STORE INPUT WORD IN DWT-AREA DEPENDING OF v $ P* DRIVE NO v b P* v ( P* INPUT: A1 OFFSET TO DWT AREA v . P* A3 WORD TO BE STORED IN DWT v P* A6 DWT ADDRESS v
0x35cf74…35d108 Dummy {f00=0x015e, f01=0x0190, f02=» A6 UNCHANGED v P* w PSTDWT EQU * w * P CF A5,DSPAD w > P STR A3,A2 w R P RTN A5 w d P XIF w t P* w P EJECT DRFD01 w P* w " P* D R I V E R B U F F E R w P* w PBUF EQU * w P IFT IBM=1 w P RES DVB
0x35d108…35d29c Dummy {f00=0x015e, f01=0x0190, f02=» RES DVBLEN-3 MMU BUFFER w P XIF x P* x , P IFT TOSS+IBM=0 x 6 P IFT MMUPAG+CHAN=2 x N P RES DVBLEN MMU BUFFER x h P XIF x P* x P EJECT DRFD01 x P* x P********************* x P* * x P* DEVICE WORK
0x35d29c…35d430 Dummy {f00=0x015e, f01=0x0190, f02=»N CODE x r P DATA 0 y P DATA /8000 DWT STATUS y P DATA 0 ECB ADDRESS y < P DATA 0 ORDER y X " P DATA FDADR ACTIVATION ADDRESS y n P DATA 0 TTAB-ADDRESS y $ P DATA 0 WAIT/ACTIVATE INDICATOR y P DATA 0 TERMINAL QUEUE y P* y IFT MMU
0x35d430…35d5c4 Dummy {f00=0x015e, f01=0x0190, f02=» P DATA 0 z P DATA 0 SAVE AREA z P DATA 0 z . P DATA 0 z > " P DATA 0,0,0,0 STACK (3 LEVELS) z N P DATA 0 ORDER SAVE AREA z t P* z P EJECT DRFD01 z P* z P* z P IFF TOSS+IBM=0 z P DATA /8000 NVL INDICATOR 0 z P D
0x35d5c4…35d758 Dummy {f00=0x015e, f01=0x0190, f02=»E NO 0 z r P DATA /FFFF,/FFFF,/FFFF { ( PDWTVO1 EQU *-DWFD01 VOLUME NAME NO 1 { . P DATA /FFFF,/FFFF,/FFFF { Z ( PDWTVO2 EQU *-DWFD01 VOLUME NAME NO 2 { z P DATA /FFFF,/FFFF,/FFFF { ( PDWTVO3 EQU *-DWFD01 VOLUME NAME NO 3 { P DATA /FFFF,/FFFF,/FFF
0x35d758…35d8ec Dummy {f00=0x015e, f01=0x0190, f02=»-DWFD01 RETRY REQUEST FLAG { P DATA 0 | " $ PDWTTP EQU *-DWFD01 TIMER POINTER | 2 P DATA 0 | Z P* | j P EJECT DRFD01 | t P* | P* | P IFT IBM=1 | , PDWTLAB EQU *-DWFD01 DISC LABEL INDICATOR | P DATA 0 | P XIF | P* | , P
0x35d8ec…35da80 Dummy {f00=0x015e, f01=0x0190, f02=»EN | h P DATA 0 } 4 PDWTOCF EQU *-DWFD01 OPEN/CLOSE FLAG AT POWER ON } P DATA 0 } R P XIF } b P* } n P EJECT DRFD01 } x P* } P* } P IFT CHAN=1 } 6 PDWTUB EQU *-DWFD01 POINTER AT NEXT WORD IN BUFFER } P DATA 0 } , PDWTUBE
0x35da80…35dc14 (2, 327) Dummy {f00=0x015e, f01=0x0190, f02=» } P IFT IBM=1 ~ , PDWTBOE EQU *-DWFD01 BEGINNING OF EXTENT ~ P DATA 0,0,0,0 ~ J $ PDWTEOD EQU *-DWFD01 END OF DATA ~ ` P DATA 0,0,0,0 ~ & PDWTEOE EQU *-DWFD01 END OF EXTENT ~ P DATA 0,0,0,0 ~ * PDWTCRN EQU *-DWFD01 CURRENT RECORD NO ~
0x35dc14…35dda8 Dummy {f00=0x015e, f01=0x0190, f02=» ~ P* P* & PDWTBA EQU *-DWFD01 BUFFER POINTER P DATA 0 F ( PDWTRL EQU *-DWFD01 LENGTH IN SUB IO V P DATA 0 & PDWTCW2 EQU *-DWFD01 SECTOR NUMBER P DATA 0 . PDWTNOS EQU *-DWFD01 SECTOR NUMBER COUNTER P DATA 0
0x35dda8…35df3c Dummy {f00=0x015e, f01=0x0190, f02=»INDICATOR x P DATA 0 P XIF " P* . P EJECT DRFD01 8 P* P P* Z P IFT MMUPAG=1 d PDWT:BF EQU *-DWFD01 z $ P DATA 0 SAVE AREA BUFFER ADDRESS PBUFFLG EQU *-DWFD01 P DATA 0 P* P IFF CHAN+IBM=0
0x35df3c…35e0d0 Dummy {f00=0x015e, f01=0x40d0, f02=»D01 * P DATA 0 16 BIT LOGICAL BUFFER ADDRESS P XIF : P* F P IFT MMUPAG=1 P PDEVECB EQU * f P DATA 0,0,0,0,0,0,0 z P XIF P* P* P* P END @ 1 P DATA 0 P* P IFF CHAN+IBM=0
0x35e0d0…35e264 Dummy {f00=0x015e, f01=0x2008, f02=» END @
0x35e264…35e3f8 Dummy {f00=0x015e, f01=0x0190, f02=»b! ! ' j '!! b ' j b!Z= 'b '!Ag_ 4 b!jc!! b c ` m ` f b!d b` `! ` b` ` !Hg '`4 1& P # W !05 p! u ! " !! w jw!! {1j !! {2 w d "2@h u" ! Kh !@k ~60 oT @j~ # # - b o -( q0 TF b , ! , " , # E h )
0x35e3f8…35e58c Dummy {f00=0x015e, f01=0x0190, f02=» &%W #$d &%( A b ~6Ak_Dj~ b #* Ii !"d &%W #$d &% ~6Ak4 + 1& P W !2 1& P # W ! 4 @l #hQ 0 !0 6 F MMMMMM? !j !! !_9 "_> Hj j !! {(j { ! % { $! 0 ""Il _h !Ah? Al - ! j !!
0x35e58c…35e720 Dummy {f00=0x015e, f01=0x0190, f02=» !: ":H "< #:H #< $:H $< %<H %:H "8 # oU U b ! " # $ + ~E U # hQ 0 !T 2 W W #_) !j !! !( "Q Ii "_H ! `! a! !07 h )Q ! ! # `" a j a` j a` ! ( !_ $ 6 1j b#~ W j b#~#W j
0x35e720…35f3c0 (3, 0) DirGranule ((3, 0)) {
0x35e720…35f3c0 DirEnt {nam=»CON10 «, typ=» «, f00=0x0000, f01=0x0000, f02=0x2000, f03=0x0000}
0x35e720…35f3c0 DirEnt {nam=»CONFT «, typ=»UF«, f00=0x019a, f01=0x0198, f02=0x2008, f03=0x0008}
0x35e720…35f3c0 DirEnt {nam=»CONFP «, typ=»UF«, f00=0x0000, f01=0x0000, f02=0x2010, f03=0x0000}
0x35e720…35f3c0 DirEnt {nam=»CTAB01«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x2018, f03=0x0000}
0x35e720…35f3c0 DirEnt {nam=»CTAB03«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x2020, f03=0x0000}
0x35e720…35f3c0 DirEnt {nam=»CONFU «, typ=»UF«, f00=0x0000, f01=0x0000, f02=0x2028, f03=0x0000}
0x35e720…35f3c0 DirEnt {nam=»LIST «, typ=»UF«, f00=0x0000, f01=0x0000, f02=0x2030, f03=0x0000}
0x35e720…35f3c0 DirEnt {nam=»CNFT «, typ=»UF«, f00=0x0000, f01=0x0000, f02=0x07f0, f03=0x0000}
0x35e720…35f3c0 DirEnt {nam=»CNJP «, typ=»UF«, f00=0x0000, f01=0x0000, f02=0x1660, f03=0x0000}
0x35e720…35f3c0 DirEnt {nam=»LISTC «, typ=»UF«, f00=0x0000, f01=0x0000, f02=0x20b0, f03=0x0000}
0x35e720…35f3c0 DirEnt {nam=»CNJA «, typ=»UF«, f00=0x0000, f01=0x0000, f02=0x07b8, f03=0x0000}
0x35e720…35f3c0 }
0x35f3c0…35f554 (3, 1) Opaque[0x194]
0x35f554…35f6e8 # DirEnt {nam=»CONFT «, typ=»UF«, f00=0x019a, f01=0x0198, f02=0x2008, f03=0x0008}
0x35f554…35f6e8 IdxSect {
0x35f554…35f6e8 f00 = 0x0100 // 0x35f554 @0x0
0x35f554…35f6e8 f01 = 0x0002 // 0x35f556 @0x2
0x35f554…35f6e8 gno = [ // 0x35f558 @0x4
0x35f554…35f6e8 [0x00]: C0x0100.0x1.0
0x35f554…35f6e8 ]
0x35f554…35f6e8 }
0x35f6e8…35f87c Dummy {f00=0x0100, f01=0x0190, f02=» T; 01; TID=TB; TCL=TB; * LEV=55; : 01; J PTDC=T04; V PLC=03L; f 00; v T; P02; TID=T1; TCL=T1; LEV=60; 01; TDC=T01; LC=01L; 00; T;
0x35f87c…35fa10 Dummy {f00=0x0100, f01=0x006a, f02=» PTDC=T05; PLC=08L; P01; $ PSDC=S01; 0 PU; @ P001; J PCB1; V P130; b3L; f 00; v T; P02; TID=T1; TCL=T1; LEV=60; 01; TDC=T01; LC=01L; 00; T;
0x35fa10…35fba4 Dummy {f00=0x0100, f01=0x2008, f02=» T05; PLC=08L; P01; $ PSDC=S01; 0 PU; @ P001; J PCB1; V P130; b3L; f 00; v T; P02; TID=T1; TCL=T1; LEV=60; 01; TDC=T01; LC=01L; 00; T;
0x35fba4…35fd38 Dummy {f00=0x0100, f01=0x0190, f02=»T1 SETFREA SETOCC UPDBOLN UPDBIN SETBY J CLEARB TESTB GETVOL RCNTRL WCNTRL b MSKOUTL f ATTBUF v FORCED~ GETVAL P:BAS GETACC < GETGEN @ GETDUP D GETIND H CMPIND b WRITDK x READDK ~ CLO
0x35fd38…35fecc Dummy {f00=0x0100, f01=0x0190, f02=» CDV10 I:EVA0 I:RT1 t VDATCHK 800829 DATCHKK MMDDCK I:EVA0 I:RT1 DDMMCK F *DEDDIV 800829 $$$TRA ^DCTASK 800829 $$$TRAT DCTASK T:DSC0T T:DSC1A T:READ0 T:XSTAF TESTB -
0x35fecc…360060 Dummy {f00=0x0100, f01=0x0190, f02=»RORF DETPRT EMPTYT0 GETFWD8 MASKN T:ATTF T:DISP T:DSC0 T:DSC1 T:EDWR T:GETC T:LWRI T:NKI T:PRINE T:READO T:THOMO T:TSTCR T:XSTAY TESTB C T:AD20 800829 T:AD20A " T:DD20 D:CB10 U:CB10 D:CB20 C:CB20 D:CB30. C:CB30- D:CB40A C:C
0x360060…3601f4 (3, 2) Opaque[0x194]
0x3601f4…360388 # DirEnt {nam=»CONFP «, typ=»UF«, f00=0x0000, f01=0x0000, f02=0x2010, f03=0x0000}
0x3601f4…360388 IdxSect {
0x3601f4…360388 f00 = 0x0100 // 0x3601f4 @0x0
0x3601f4…360388 f01 = 0x0002 // 0x3601f6 @0x2
0x3601f4…360388 gno = [ // 0x3601f8 @0x4
0x3601f4…360388 [0x00]: C0x0100.0x2.0
0x3601f4…360388 ]
0x3601f4…360388 }
0x360388…36051c Dummy {f00=0x0100, f01=0x017c, f02=» T; P02; TID=T1; TCL=T1; * LEV=60; : 01; J TDC=T01; V LC=01L; f 00; v T; 01; PTID=D2; PTCL=D2; LEV=60; 00; P00; C; P02; PTDC=T03; PLC
0x36051c…3606b0 Dummy {f00=0x0100, f01=0x2008, f02=» P02; TID=T1; TCL=T1; * LEV=60; : 01; J TDC=T01; V LC=01L; f 00; v T; 01; PTID=D2; PTCL=D2; LEV=60; 00; P00; C; P02; PTDC=T03; PLC
0x3606b0…360844 Dummy {f00=0x0100, f01=0x0190, f02=» . D2 x * ( `@ @ & 0
0x360844…3609d8 Dummy {f00=0x0100, f01=0x0190, f02=» j p: z > h h 3 p 1 l t x x: 0 0}0 o0 oA T 0 K 0 Ad1 An@m 6 _ @n_ 1 An _% ) !P V _, 6 ## _ jX 3 0 0}@d "P n_r 4 # 6 P 7MW (j "M (
0x3609d8…360b6c Dummy {f00=0x0100, f01=0x0190, f02=» Vv 0 !!W6 'WH ! W+ " W% h * h `h h h 2` W 4 !4 "4 $4 & #4 H "4 4 * 4 | z { !V f 4 * " j !!L 0 /P /0 f 4 0 f 4 4 0 0 0 $0 T 0 0 W 0 W 0 4P +W 4 0 4 j
0x360b6c…360d00 Dummy {f00=0x0100, f01=0x0190, f02=» 4 $ !"4 "!4 !!4 I @w 0 0 V # 4 A 0 _ @ P 0 0 4 b !& bc 4 c b"R b! b 0 `" !($ 5W% a a0$a, 0 `aW a$$a, 0 `a0 ` b#$ ! 0 `f `f b" c$" ! b c b" W !4 ( #M0 T ! ! P.W< !0 P) * 2 *#U 1 *
0x360d00…360e94 (3, 3) Opaque[0x194]
0x360e94…361028 # DirEnt {nam=»CTAB01«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x2018, f03=0x0000}
0x360e94…361028 IdxSect {
0x360e94…361028 f00 = 0x0100 // 0x360e94 @0x0
0x360e94…361028 f01 = 0x0002 // 0x360e96 @0x2
0x360e94…361028 gno = [ // 0x360e98 @0x4
0x360e94…361028 [0x00]: C0x0100.0x3.0
0x360e94…361028 ]
0x360e94…361028 }
0x361028…3611bc Dummy {f00=0x0100, f01=0x0190, f02=» P IDENT CTAB01 79-08-31/LEKO ENTRY CTAB01 ( 0 PCTAB01 DATA FUNC,FUNC,UNSC,SHIFT,SHIFT,SHIFT > > PFUNC DATA /8C81,/0083,/8488,/8687,/8A89,/8E8D,/9D8B,/858F r : P DATA /3031,/3233,/3435,/3637,/3839,/9A9B,/9C90,/0091 : P DATA /9293,/9496,/989
0x3611bc…361350 Dummy {f00=0x0100, f01=0x0190, f02=»/3839,/8F91,/8580,/8A90 r : P DATA /4041,/4243,/4445,/4647,/4849,/4A4B,/4C4D,/4E4F : P DATA /5051,/5253,/5455,/5657,/5859,/5A5B,/5C5D,/7E00 ^ > PSHIFT DATA /2000,/0000,/0000,/002A,/8B3E,/003F,/3B5F,/3A00 : P DATA /3D21,/2223,/2425,/262F,/2829,/8F91,
0x361350…3614e4 Dummy {f00=0x0100, f01=0x4018, f02=» Z END @ r : P DATA /4041,/4243,/4445,/4647,/4849,/4A4B,/4C4D,/4E4F : P DATA /5051,/5253,/5455,/5657,/5859,/5A5B,/5C5D,/7E00 ^ > PSHIFT DATA /2000,/0000,/0000,/002A,/8B3E,/003F,/3B5F,/3A00 : P DATA /3D21,/2223,/2425,/262F,/2829,/8F91,
0x3614e4…361678 Dummy {f00=0x0100, f01=0x2008, f02=» END @ r : P DATA /4041,/4243,/4445,/4647,/4849,/4A4B,/4C4D,/4E4F : P DATA /5051,/5253,/5455,/5657,/5859,/5A5B,/5C5D,/5EFF ^ > PSHIFT DATA /20FF,/FFFF,/FFFF,/FF2A,/FFFF,/FF3F,/3B5F,/3AFF : P DATA /3D21,/2223,/2425,/262F,/2829,/FFFF,
0x361678…36180c Dummy {f00=0x0100, f01=0x0190, f02=» SCTMMC SCTLACL SCTMMP 2 SCTLAP F SCTNPE Z SCTSTB8 n SCTOPTT SCTTCTN SCTCDT SCTBUG SCTDMTR , (
0x36180c…3619a0 Dummy {f00=0x0100, f01=0x4050, f02=» _ :@ L F SCTNPE Z SCTSTB8 n SCTOPTT SCTTCTN SCTCDT SCTBUG SCTDMTR , (
0x3619a0…361b34 (3, 4) Opaque[0x194]
0x361b34…361cc8 # DirEnt {nam=»CTAB03«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x2020, f03=0x0000}
0x361b34…361cc8 IdxSect {
0x361b34…361cc8 f00 = 0x0101 // 0x361b34 @0x0
0x361b34…361cc8 f01 = 0x0002 // 0x361b36 @0x2
0x361b34…361cc8 gno = [ // 0x361b38 @0x4
0x361b34…361cc8 [0x00]: C0x0101.0x0.0
0x361b34…361cc8 ]
0x361b34…361cc8 }
0x361cc8…361e5c Dummy {f00=0x0101, f01=0x0190, f02=» P IDENT CTAB03 79-02-13/LEKO P ENTRY CTAB03 ( 0 PCTAB03 DATA FUNC,FUNC,UNSC,SHIFT,SHIFT,SHIFT > > 9FUNC DATA /8081,/8283,/8485,/8687,/8889,/8A8B,/8C8D,/8E8F r : P DATA /3031,/3233,/3435,/3637,/3839,/9A9B,/9C9D,/9091 : P DATA /9293,/9495,/969
0x361e5c…361ff0 Dummy {f00=0x0101, f01=0x0190, f02=»/3839,/FFFF,/3C0A,/0DFF r : P DATA /4041,/4243,/4445,/4647,/4849,/4A4B,/4C4D,/4E4F : P DATA /5051,/5253,/5455,/5657,/5859,/5A5B,/5C5D,/5EFF ^ > PSHIFT DATA /20FF,/FFFF,/FFFF,/FF2A,/FFFF,/FF3F,/3B5F,/3AFF : P DATA /3D21,/2223,/2425,/262F,/2829,/FFFF,
0x361ff0…362184 Dummy {f00=0x0101, f01=0x4018, f02=» Z END @ r : P DATA /4041,/4243,/4445,/4647,/4849,/4A4B,/4C4D,/4E4F : P DATA /5051,/5253,/5455,/5657,/5859,/5A5B,/5C5D,/5EFF ^ > PSHIFT DATA /20FF,/FFFF,/FFFF,/FF2A,/FFFF,/FF3F,/3B5F,/3AFF : P DATA /3D21,/2223,/2425,/262F,/2829,/FFFF,
0x362184…362318 Dummy {f00=0x0101, f01=0x2008, f02=» END @ r : P DATA /4041,/4243,/4445,/4647,/4849,/4A4B,/4C4D,/4E4F : P DATA /5051,/5253,/5455,/5657,/5859,/5A5B,/5C5D,/5EFF ^ > PSHIFT DATA /20FF,/FFFF,/FFFF,/FF2A,/FFFF,/FF3F,/3B5F,/3AFF : P DATA /3D21,/2223,/2425,/262F,/2829,/FFFF,
0x362318…3624ac Dummy {f00=0x0101, f01=0x0190, f02=»ORTED z PCREDIT EQU 1 P EJECT " P 0 P* 8 P* ABORT I/O REQUEST B P* ^ P h PTABORT LDR* A3,A8 p , P RF(N) TABOER REQUEST ALREADY COMPLETED P ( P CF A15,FNDDWT LOOK FOR DWT ADDRESS P LDR A8,A6 P RF(Z) T
0x3624ac…362640 Dummy {f00=0x0101, f01=0x0190, f02=»OER DEVICE NOT BUSY P P SLC A7,2 $ $ P RF(NN) TABO20 NOT ECHO REQUEST 6 " P LD A6,DWTECH,A6 GET ECHO DWT ^ $ P CF A15,TENDIO ABORT ECHO DEVICE P LDR A6,A8 RESTORE DWT PTABO20 EQU * . P CF A15,ITABRT ABORT IF INTERTASK REQUEST
0x362640…3627d4 (3, 5) Opaque[0x194]
0x3627d4…362968 # DirEnt {nam=»CONFU «, typ=»UF«, f00=0x0000, f01=0x0000, f02=0x2028, f03=0x0000}
0x3627d4…362968 IdxSect {
0x3627d4…362968 f00 = 0x0101 // 0x3627d4 @0x0
0x3627d4…362968 f01 = 0x0002 // 0x3627d6 @0x2
0x3627d4…362968 gno = [ // 0x3627d8 @0x4
0x3627d4…362968 [0x00]: C0x0101.0x1.0
0x3627d4…362968 ]
0x3627d4…362968 }
0x362968…362afc Dummy {f00=0x0101, f01=0x00e0, f02=» T; P02; TID=T1; TCL=T1; * LEV=60; : 01; J TDC=T01; V LC=01L; f 00; v C; P01; PTCL=T03; PLC=07L; P02; PSDC=S01; PSDC=S03; LC=01L; 00; T;
0x362afc…362c90 Dummy {f00=0x0101, f01=0x2008, f02=» P02; TID=T1; TCL=T1; * LEV=60; : 01; J TDC=T01; V LC=01L; f 00; v C; P01; PTCL=T03; PLC=07L; P02; PSDC=S01; PSDC=S03; LC=01L; 00; T;
0x362c90…362e24 Dummy {f00=0x0101, f01=0x0190, f02=»
[…0x1…]
0x362fb8…36314c Dummy {f00=0x0101, f01=0x0190, f02=» n 6 $ B 8
0x36314c…3632e0 Dummy {f00=0x0101, f01=0x0190, f02=» ? < DC a DC TK LP 6 GP 0 DU FD DLU * B . D Z p -
0x3632e0…363474 (3, 6) Opaque[0x194]
0x363474…363608 # DirEnt {nam=»LIST «, typ=»UF«, f00=0x0000, f01=0x0000, f02=0x2030, f03=0x0000}
0x363474…363608 IdxSect {
0x363474…363608 f00 = 0x0101 // 0x363474 @0x0
0x363474…363608 f01 = 0x0002 // 0x363476 @0x2
0x363474…363608 gno = [ // 0x363478 @0x4
0x363474…363608 [0x00]: C0x0101.0x2.0
0x363474…363608 ]
0x363474…363608 }
0x363608…36379c Dummy {f00=0x0101, f01=0x007a, f02=» PRT CONFT PRT CONFP PRT CONFU ( ASM CTAB01 : ASM CTAB03 L SCR ^ ASG /E0,TY10 j
0x36379c…363930 Dummy {f00=0x0101, f01=0x2008, f02=» CONFT PRT CONFP PRT CONFU ( ASM CTAB01 : ASM CTAB03 L SCR ^ ASG /E0,TY10 j
0x363930…363ac4 Dummy {f00=0x0101, f01=0x0000, f02=»
[…0x3…]
0x363f80…364114 (3, 7) Opaque[0x194]
0x364114…3642a8 # DirEnt {nam=»CNFT «, typ=»UF«, f00=0x0000, f01=0x0000, f02=0x07f0, f03=0x0000}
0x364114…3642a8 IdxSect {
0x364114…3642a8 f00 = 0x003f // 0x364114 @0x0
0x364114…3642a8 f01 = 0x0002 // 0x364116 @0x2
0x364114…3642a8 gno = [ // 0x364118 @0x4
0x364114…3642a8 [0x00]: C0x003f.0x2.0
0x364114…3642a8 ]
0x364114…3642a8 }
0x3642a8…36443c Dummy {f00=0x003f, f01=0x0190, f02=» PT; P01; PTID=TB; PTCL=TB; * PLEV=55; : P00; J P01; V PSDC=S02; b PT; r P02; | PTID=T1; PTCL=T1; PLEV=60; P01; PTDC=T01; PLC=01L; P00; PC; P02; PTD
0x36443c…3645d0 Dummy {f00=0x003f, f01=0x000c, f02=» P130; P01; PTID=TB; PTCL=TB; * PLEV=55; : P00; J P01; V PSDC=S02; b PT; r P02; | PTID=T1; PTCL=T1; PLEV=60; P01; PTDC=T01; PLC=01L; P00; PC; P02; PTD
0x3645d0…364764 Dummy {f00=0x003f, f01=0x2008, f02=» P01; PTID=TB; PTCL=TB; * PLEV=55; : P00; J P01; V PSDC=S02; b PT; r P02; | PTID=T1; PTCL=T1; PLEV=60; P01; PTDC=T01; PLC=01L; P00; PC; P02; PTD
0x364764…3648f8 Dummy {f00=0x003f, f01=0x0190, f02=» 4 8 F - " r h n ZnZR h-F ,F J T
0x3648f8…364a8c Dummy {f00=0x003f, f01=0x0190, f02=» ! ' . 5 < D L T ] f p { ( < S k T 1l
0x364a8c…364c20 Dummy {f00=0x003f, f01=0x0190, f02=»P8 <<HT _ R <A_ <A <a ^ <h = F F ) 1l ' =" z 1l & X X X* T Z0 I R < _ <h =_H ^L _ _R 1l & G _d 1l F '_p R : <<H P < : 1l 1l & R P _v _| V V Q WR
0x364c20…364db4 (3, 8) Opaque[0x194]
0x364db4…364f48 # DirEnt {nam=»CNJP «, typ=»UF«, f00=0x0000, f01=0x0000, f02=0x1660, f03=0x0000}
0x364db4…364f48 IdxSect {
0x364db4…364f48 f00 = 0x00b3 // 0x364db4 @0x0
0x364db4…364f48 f01 = 0x0002 // 0x364db6 @0x2
0x364db4…364f48 gno = [ // 0x364db8 @0x4
0x364db4…364f48 [0x00]: C0x00b3.0x0.0
0x364db4…364f48 ]
0x364db4…364f48 }
0x364f48…3650dc Dummy {f00=0x00b3, f01=0x012e, f02=» PT; P02; PTID=T1; PTCL=T1; * PLEV=60; : P01; J PTDC=T01; V PLC=01L; f P00; v PC; P02; PTDC=T03; PLC=01L; PTDC=T02; PLC=02L; P02; PSDC=S01; PSDC=S04; PU;
0x3650dc…365270 Dummy {f00=0x00b3, f01=0x2008, f02=» P02; PTID=T1; PTCL=T1; * PLEV=60; : P01; J PTDC=T01; V PLC=01L; f P00; v PC; P02; PTDC=T03; PLC=01L; PTDC=T02; PLC=02L; P02; PSDC=S01; PSDC=S04; PU;
0x365270…365404 Dummy {f00=0x00b3, f01=0x2008, f02=» M+MU,M+MOUT,M+MU+MOUT HMES 4 FC & : HMES ANY COMBINATION OF ALTERNATIVE 1,2 AND 3 IS VALID, 6 0 HMES AND AT LEAST ONE OF THEM MUST BE CHOOSEN t 0 HMES ALTERNATIVE 4 MAY BE INCLUDED IF NEEDED HEND * HMES ILLEGAL PARAMETER COMBINATIO
0x365404…365598 Dummy {f00=0x00b3, f01=0x0190, f02=» , ( w V X ( x C T:SCUW 4 , ( ( Y * X Y , X F , ( X C & C C v T:IOER , ( ( B P 9 R 9 X , ( !@P X X * b ) Y *
0x365598…36572c Dummy {f00=0x00b3, f01=0x0190, f02=» B U C Q C D T:CLR1 * T:CLR2 < , ( mP X X * $" ~_> @ Y N , ( X * _R X !@XX y X # ~ , ( x V y X X * P , ( P 1 _ 1 X * X
0x36572c…3658c0 Dummy {f00=0x00b3, f01=0x4148, f02=» X n T:CLIT T:EKEY , ( C $ " P y _ x T 2 , ( a@ X H X X * , )$ b P _ : H D !T P d )Wv 9 T UP m d yV& Ph R^ PP #P =T QU [Q e r g t 4 0 i k m
0x3658c0…365a54 (3, 9) Opaque[0x194]
0x365a54…365be8 # DirEnt {nam=»LISTC «, typ=»UF«, f00=0x0000, f01=0x0000, f02=0x20b0, f03=0x0000}
0x365a54…365be8 IdxSect {
0x365a54…365be8 f00 = 0x0105 // 0x365a54 @0x0
0x365a54…365be8 f01 = 0x0002 // 0x365a56 @0x2
0x365a54…365be8 gno = [ // 0x365a58 @0x4
0x365a54…365be8 [0x00]: C0x0105.0x2.0
0x365a54…365be8 ]
0x365a54…365be8 }
0x365be8…365d7c Dummy {f00=0x0105, f01=0x0076, f02=» PPRT CONFT PPRT CONFP PPRT CONFU ( PPRT CNFT : PPRT CNJP J SCR Z ASG /E0,TY10 f * HMES ILLEGAL PARAMETER COMBINATION !!! z * HMES FOLLOWING COMBINATIONS ARE VALID: " HMES 1 A,A+AU,A+AOUT,A+AU+AOUT " HMES 2 C,C+CU
0x365d7c…365f10 Dummy {f00=0x0105, f01=0x2008, f02=» CONFT PPRT CONFP PPRT CONFU ( PPRT CNFT : PPRT CNJP J SCR Z ASG /E0,TY10 f * HMES ILLEGAL PARAMETER COMBINATION !!! z * HMES FOLLOWING COMBINATIONS ARE VALID: " HMES 1 A,A+AU,A+AOUT,A+AU+AOUT " HMES 2 C,C+CU
0x365f10…3660a4 Dummy {f00=0x0105, f01=0x2008, f02=» MES AND AT LEAST ONE OF THEM MUST BE CHOOSEN 0 HMES ALTERNATIVE 4 MAY BE INCLUDED IF NEEDED < HEND p HMES ILLEGAL PARAMETER COMBINATION !!! z * HMES FOLLOWING COMBINATIONS ARE VALID: " HMES 1 A,A+AU,A+AOUT,A+AU+AOUT " HMES 2 C,C+CU
0x3660a4…366238 Dummy {f00=0x0105, f01=0x0190, f02=» , ( a , ( q 4 HALTN d t SCTMSZK SCTSFA SCTEFA SCTIPL SCTANO SCTADA , (
0x366238…3663cc Dummy {f00=0x0105, f01=0x0190, f02=» SCTNOP SCTPSZ SCTMMC 0 SCTLAC D SCTMMPL X SCTLAP0 l SCTNPE SCTSTB SCTOPT SCTBUG SCTDMT~ , (
0x3663cc…366560 Dummy {f00=0x0105, f01=0x407a, f02=»CTDCT ^ _ . D d@ v l SCTNPE SCTSTB SCTOPT SCTBUG SCTDMT~ , (
0x366560…3666f4 (3, 10) Opaque[0x194]
0x3666f4…366888 # DirEnt {nam=»CNJA «, typ=»UF«, f00=0x0000, f01=0x0000, f02=0x07b8, f03=0x0000}
0x3666f4…366888 IdxSect {
0x3666f4…366888 f00 = 0x003d // 0x3666f4 @0x0
0x3666f4…366888 f01 = 0x0002 // 0x3666f6 @0x2
0x3666f4…366888 gno = [ // 0x3666f8 @0x4
0x3666f4…366888 [0x00]: C0x003d.0x3.0
0x3666f4…366888 ]
0x3666f4…366888 }
0x366888…366a1c Dummy {f00=0x003d, f01=0x012e, f02=» PT; P01; PTID=T1; PTCL=T1; * PLEV=60; : P01; J PTDC=T01; V PLC=01L; f P00; v PC; P02; PTDC=T03; PLC=02L; PTDC=T02; PLC=02L; P02; PSDC=S01; PSDC=S04; PU;
0x366a1c…366bb0 Dummy {f00=0x003d, f01=0x2008, f02=» P01; PTID=T1; PTCL=T1; * PLEV=60; : P01; J PTDC=T01; V PLC=01L; f P00; v PC; P02; PTDC=T03; PLC=02L; PTDC=T02; PLC=02L; P02; PSDC=S01; PSDC=S04; PU;
0x366bb0…366d44 Dummy {f00=0x003d, f01=0x2008, f02=» AT LEAST ONE OF THEM MUST BE CHOOSEN 0 HMES ALTERNATIVE 4 MAY BE INCLUDED IF NEEDED 4 HEND h * HMES ILLEGAL PARAMETER COMBINATION !!! t * HMES FOLLOWING COMBINATIONS ARE VALID: " HMES 1 A,A+AU,A+AOUT,A+AU+AOUT " HMES 2 C,C+CU,C+COU
0x366d44…366ed8 Dummy {f00=0x003d, f01=0x0190, f02=» _$ _ y z T:CLR2 ^ T:SCUW . * & Y @_6 x X@ X X # @ , ( u C _. B ]d P C n , ( Q X8_H x XD @ Y c C y , ( XR X x x T:BELL
0x366ed8…36706c Dummy {f00=0x003d, f01=0x0190, f02=» T:LOFS I:EVA0 T:LOPS , , ( @H ( ( > T:CLMI n , ( #H : B C _J + T:PM1 @ T:GRFC , ( ? . X 9 V ! P @ Y T
0x36706c…367200 Dummy {f00=0x003d, f01=0x409a, f02=» @ v YTf a eR k B uT y Q T , P R P V 8 4 VV T P #Q( S P Q8 , 3 < MV SP H @ C _J + T:PM1 @ T:GRFC , ( ? . X 9 V ! P @ Y T
0x367200…367ea0 (4, 0) DirGranule ((4, 0)) {
0x367200…367ea0 DirEnt {nam=»M:DENJ«, typ=» «, f00=0x0000, f01=0x0000, f02=0x2040, f03=0x0000}
0x367200…367ea0 DirEnt {nam=»M:DENJ«, typ=»UF«, f00=0x0000, f01=0x0000, f02=0x2048, f03=0x0000}
0x367200…367ea0 DirEnt {nam=»TCLASS«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x2980, f03=0x0000}
0x367200…367ea0 DirEnt {nam=»/OBJCT«, typ=»OB«, f00=0x0000, f01=0x0000, f02=0x2090, f03=0x0000}
0x367200…367ea0 DirEnt {nam=»SCLASS«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x2080, f03=0x0000}
0x367200…367ea0 DirEnt {nam=»MONTAB«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x20a0, f03=0x0000}
0x367200…367ea0 DirEnt {nam=»SYSTAB«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x2480, f03=0x0000}
0x367200…367ea0 DirEnt {nam=»TDISP «, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x20c0, f03=0x0000}
0x367200…367ea0 DirEnt {nam=»LRPINT«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x24b8, f03=0x0000}
0x367200…367ea0 DirEnt {nam=»TPROC «, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x2140, f03=0x0000}
0x367200…367ea0 DirEnt {nam=»MSUBS «, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x2108, f03=0x0000}
0x367200…367ea0 DirEnt {nam=»TTMJOB«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x2130, f03=0x0000}
0x367200…367ea0 DirEnt {nam=»TOSSIO«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x2328, f03=0x0000}
0x367200…367ea0 DirEnt {nam=»SYSLDM«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x2178, f03=0x0000}
0x367200…367ea0 DirEnt {nam=»SYSLDA«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x2200, f03=0x0000}
0x367200…367ea0 DirEnt {nam=»LDTASK«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x22f8, f03=0x0000}
0x367200…367ea0 DirEnt {nam=»DRSW01«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x2368, f03=0x0000}
0x367200…367ea0 DirEnt {nam=»ST8000«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x2350, f03=0x0000}
0x367200…367ea0 DirEnt {nam=»PFTAB «, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x24a0, f03=0x0000}
0x367200…367ea0 DirEnt {nam=»LKMAL «, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x25b0, f03=0x0000}
0x367200…367ea0 DirEnt {nam=»CTABX «, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x24c8, f03=0x0000}
0x367200…367ea0 DirEnt {nam=»TIODMX«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x24d0, f03=0x0000}
0x367200…367ea0 DirEnt {nam=»DSKSUB«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x24d8, f03=0x0000}
0x367200…367ea0 DirEnt {nam=»DVTKB «, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x27a8, f03=0x0000}
0x367200…367ea0 DirEnt {nam=»DVTGP «, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x2378, f03=0x0000}
0x367200…367ea0 DirEnt {nam=»DVTDY «, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x2380, f03=0x0000}
0x367200…367ea0 DirEnt {nam=»DRKB03«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x2750, f03=0x0000}
0x367200…367ea0 DirEnt {nam=»DRGP01«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x2388, f03=0x0000}
0x367200…367ea0 DirEnt {nam=»DRDY01«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x23c0, f03=0x0000}
0x367200…367ea0 DirEnt {nam=»DRLT01«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x2400, f03=0x0000}
0x367200…367ea0 DirEnt {nam=»DRSOP1«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x2450, f03=0x0000}
0x367200…367ea0 DirEnt {nam=»DRTW01«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x20d8, f03=0x0000}
0x367200…367ea0 DirEnt {nam=»DRLP01«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x26c8, f03=0x0000}
0x367200…367ea0 DirEnt {nam=»DRFD01«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x07e0, f03=0x0000}
0x367200…367ea0 DirEnt {nam=»EBCDIC«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0778, f03=0x0000}
0x367200…367ea0 DirEnt {nam=»TIMER «, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x28e8, f03=0x0000}
0x367200…367ea0 DirEnt {nam=»TMMLKM«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x2160, f03=0x0000}
0x367200…367ea0 DirEnt {nam=»TLDSEG«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x20f0, f03=0x0000}
0x367200…367ea0 DirEnt {nam=»TABORT«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x2568, f03=0x0000}
0x367200…367ea0 DirEnt {nam=»MONTIM«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x2580, f03=0x0000}
0x367200…367ea0 DirEnt {nam=»TOSSFM«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x2598, f03=0x0000}
0x367200…367ea0 DirEnt {nam=»FMTASK«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x29a0, f03=0x0000}
0x367200…367ea0 DirEnt {nam=»DFTAB «, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x2088, f03=0x0000}
0x367200…367ea0 DirEnt {nam=»DVKB00«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x24a8, f03=0x0000}
0x367200…367ea0 DirEnt {nam=»DVDY00«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x24b0, f03=0x0000}
0x367200…367ea0 DirEnt {nam=»DVGP01«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x24f8, f03=0x0000}
0x367200…367ea0 DirEnt {nam=»DVDY02«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x2960, f03=0x0000}
0x367200…367ea0 DirEnt {nam=»DVGP03«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x2970, f03=0x0000}
0x367200…367ea0 DirEnt {nam=»M:DENJ«, typ=»LM«, f00=0x0000, f01=0x0000, f02=0x0820, f03=0x0000}
0x367200…367ea0 DirEnt {nam=»CTAB01«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x2728, f03=0x0000}
0x367200…367ea0 DirEnt {nam=»SYSBUG«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x2708, f03=0x0000}
0x367200…367ea0 DirEnt {nam=»M:DEBG«, typ=»LM«, f00=0x0000, f01=0x0000, f02=0x2d28, f03=0x0000}
0x367200…367ea0 DirEnt {nam=»DRFDDE«, typ=»UF«, f00=0x0000, f01=0x0000, f02=0x2a90, f03=0x0000}
0x367200…367ea0 DirEnt {nam=»DRFDDE«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x2a98, f03=0x0000}
0x367200…367ea0 DirEnt {nam=»M:DEBF«, typ=»LM«, f00=0x0000, f01=0x0000, f02=0x2aa0, f03=0x0000}
0x367200…367ea0 DirEnt {nam=»CTABSH«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x2720, f03=0x0000}
0x367200…367ea0 }
0x367ea0…368034 (4, 1) Opaque[0x194]
0x368034…3681c8 # DirEnt {nam=»M:DENJ«, typ=»UF«, f00=0x0000, f01=0x0000, f02=0x2048, f03=0x0000}
0x368034…3681c8 IdxSect {
0x368034…3681c8 f00 = 0x0102 // 0x368034 @0x0
0x368034…3681c8 f01 = 0x000e // 0x368036 @0x2
0x368034…3681c8 gno = [ // 0x368038 @0x4
0x368034…3681c8 [0x00]: C0x0102.0x1.0
0x368034…3681c8 [0x01]: C0x0102.0x2.0
0x368034…3681c8 [0x02]: C0x0102.0x3.0
0x368034…3681c8 [0x03]: C0x0103.0x0.0
0x368034…3681c8 [0x04]: C0x0103.0x1.0
0x368034…3681c8 [0x05]: C0x0103.0x2.0
0x368034…3681c8 [0x06]: C0x0103.0x3.0
0x368034…3681c8 ]
0x368034…3681c8 }
0x3681c8…36835c Dummy {f00=0x0102, 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
0x36835c…3684f0 Dummy {f00=0x0102, 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
0x3684f0…368684 Dummy {f00=0x0102, f01=0x0190, f02=»WORK ~ KPF /S,SYSLDM SCR " MOV SYSLDA,/S,TOSSWORK . KPF /S,SYSLDA L SCR b MOV LDTASK,/S,TOSSWORK n KPF /S,LDTASK SCR MOV DRSW01,/S,TOSSWORK KPF /S,DRSW01 SCR MOV ST8000,/S,TOSSWORK
0x368684…368818 Dummy {f00=0x0102, f01=0x0190, f02=»,LKMAL SCR MOV CTABX,/S,TOSSWORK KPF /S,CTABX 8 SCR L MOV TIODMX,/S,TOSSWORK X KPF /S,TIODMX v SCR INC TIODMX,TOSSWORK KPF /O MOV DSKSUB,/S,TOSSWORK KPF /S,DSKSUB SCR LED DS
0x368818…3689ac Dummy {f00=0x0102, f01=0x0190, f02=»852 EQU 1$$CPU852 EQU 0$$ !!EN " ASM /S . KPF /O < KPF /S J SCR X LED SYSTAB d ( #!!CH $$CREDIT EQU 0$$CREDIT EQU 1$$ v ( #!!CH $$MMUPAG EQU 0$$MMUPAG EQU 1$$ ( #!!CH $$CPU852 EQU 1$$CPU852 EQU 0$$ !!EN AS
0x3689ac…368b40 Dummy {f00=0x0102, f01=0x0190, f02=»MUPAG EQU 1$$ z ( #!!CH $$CPU852 EQU 1$$CPU852 EQU 0$$ !!EN B ASM /S N KPF /O KPF /S j SCR x LED LRPINT ( #!!CH $$CREDIT EQU 0$$CREDIT EQU 1$$ ( #!!CH $$MMUPAG EQU 0$$MMUPAG EQU 1$$ ( #!!CH $$CPU852 EQU 1$$CPU85
0x368b40…368cd4 (4, 2) Dummy {f00=0x0102, f01=0x0190, f02=»$ n ( #!!CH $$MMUPAG EQU 0$$MMUPAG EQU 1$$ ( #!!CH $$CPU852 EQU 1$$CPU852 EQU 0$$ 6 !!EN b ASM /S n KPF /O | KPF /S SCR LED MSUBS ( #!!CH $$CREDIT EQU 0$$CREDIT EQU 1$$ ( #!!CH $$MMUPAG EQU 0$$MMUPAG EQU 1$$
0x368cd4…368e68 Dummy {f00=0x0102, f01=0x0190, f02=»CH $$CREDIT EQU 0$$CREDIT EQU 1$$ ( #!!CH $$MMUPAG EQU 0$$MMUPAG EQU 1$$ * ( #!!CH $$CPU852 EQU 1$$CPU852 EQU 0$$ V !!EN ASM /S KPF /O KPF /S SCR LED TOSSIO ( #!!CH $$CREDIT EQU 0$$CREDIT EQU 1$$ ( #!!CH $
0x368e68…368ffc Dummy {f00=0x0102, f01=0x0190, f02=»SCR LED SYSLDM ( #!!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 SYSLDA ( #!!CH $$CREDIT EQU
0x368ffc…369190 Dummy {f00=0x0102, f01=0x0190, f02=» KPF /O KPF /S SCR LED LDTASK , ( #!!CH $$CREDIT EQU 0$$CREDIT EQU 1$$ > ( #!!CH $$MMUPAG EQU 0$$MMUPAG EQU 1$$ j ( #!!CH $$CPU852 EQU 1$$CPU852 EQU 0$$ !!EN ASM /S KPF /O KPF /S SCR LED
0x369190…369324 Dummy {f00=0x0102, f01=0x0190, f02=»$ n !!EN ASM /S KPF /O $ KPF /S 2 SCR @ LED ST8000 L ( #!!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
0x369324…3694b8 Dummy {f00=0x0102, f01=0x0190, f02=» SCR MOV DVTDY,/S,TOSSWORK KPF /S,DVTDY . SCR B MOV DRKB03,/S,TOSSWORK N KPF /S,DRKB03 l SCR MOV DRGP01,/S,TOSSWORK KPF /S,DRGP01 SCR MOV DRDY01,/S,TOSSWORK KPF /S,DRDY01 SCR
0x3694b8…36964c Dummy {f00=0x0102, f01=0x0190, f02=»V DRTW01,/S,TOSSWORK KPF /S,DRTW01 SCR 2 MOV DRLP01,/S,TOSSWORK > KPF /S,DRLP01 SCR r MOV DRFD01,/S,TOSSWORK ~ KPF /S,DRFD01 SCR LED DRKB03 !!CH $$ X:A$$ 0$$ !!CH $$ X:B$$ 1$$ !!CH
0x36964c…3697e0 Dummy {f00=0x0102, f01=0x0190, f02=»H$$ 0$$ !!CH $$ X:I$$ 0$$ !!CH $$ X:J$$ 082$$ * !!CH $$ X:K$$ 50$$ F ( #!!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
0x3697e0…369974 (4, 3) Dummy {f00=0x0102, f01=0x0190, f02=»D$$ 0$$ !!CH $$ X:E$$ 0$$ !!CH $$ X:F$$ 1$$ * !!CH $$ X:G$$ 1$$ D !!CH $$ X:H$$ 162$$ ^ ( #!!CH $$CREDIT EQU 0$$CREDIT EQU 1$$ z ( #!!CH $$MMUPAG EQU 0$$MMUPAG EQU 1$$ ( #!!CH $$CPU852 EQU 1$$CPU852 EQU 0$$ !!EN
0x369974…369b08 Dummy {f00=0x0102, f01=0x0190, f02=»C$$ 1$$ !!CH $$ X:D$$ 0$$ !!CH $$ X:E$$ 1$$ * !!CH $$ X:F$$ 0$$ D !!CH $$ X:G$$ 0$$ ^ !!CH $$ X:H$$ 162$$ x ( #!!CH $$CREDIT EQU 0$$CREDIT EQU 1$$ ( #!!CH $$MMUPAG EQU 0$$MMUPAG EQU 1$$ ( #!!CH $$CPU852 EQU 1$$CPU852
0x369b08…369c9c Dummy {f00=0x0102, f01=0x018e, f02=»B$$ 1$$ !!CH $$ X:C$$ 0$$ !!CH $$ X:D$$ 0$$ * !!CH $$ X:E$$ 01$$ D ( #!!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
0x369c9c…369e30 Dummy {f00=0x0102, f01=0x0190, f02=» j ( #!!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 LED DRTW01 ( #!!CH $$CREDIT EQU 0$$CREDIT EQU 1$$ ( #!!CH $$MMUPAG EQU 0$$MMUPAG EQU 1$$
0x369e30…369fc4 Dummy {f00=0x0102, f01=0x018e, f02=»!!CH $$ X:A$$ 0$$ !!CH $$ X:B$$ 162$$ ( #!!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 DRFD01
0x369fc4…36a158 Dummy {f00=0x0102, 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 MOV EBCDIC,/S,TOSSWORK KPF /S,EBCDIC SCR
0x36a158…36a2ec Dummy {f00=0x0102, f01=0x0190, f02=»EQU 0$$ t !!EN ASM /S KPF /O * KPF /S 8 SCR F LED DRKB03 R !!CH $$ X:A$$ 0$$ d !!CH $$ X:B$$ 1$$ ~ !!CH $$ X:C$$ 1$$ !!CH $$ X:D$$ 2$$ !!CH $$ X:E$$ 1$$ !!CH $$ X:F$$ 30$$ !!CH $$
0x36a2ec…36a480 Dummy {f00=0x0102, f01=0x0190, f02=»T EQU 0$$CREDIT EQU 1$$ ( #!!CH $$MMUPAG EQU 0$$MMUPAG EQU 1$$ ( #!!CH $$CPU852 EQU 1$$CPU852 EQU 0$$ L !!EN x ASM /S KPF /O KPF /S SCR LED DVTKB !!DL 35 DATA 0,0,0,0,0,0,0,0 DATA 0,0,0,0,
0x36a480…36a614 (4, 4) Dummy {f00=0x0103, f01=0x0190, f02=»!!EN ASM /S KPF /O KPF /S ( SCR 6 LED DRSW01 B !!CH $$ X:B$$ 01$$ T !!CH $$ X:C$$ 00$$ n !!CH $$ X:D$$ 00$$ !!CH $$ X:E$$ 01$$ !!EN ASM /S KPF /O KPF /S SCR LED TOSSIO
0x36a614…36a7a8 Dummy {f00=0x0103, f01=0x0190, f02=»,/S,TOSSWORK KPF /S,TIMER SCR ( MOV TPROC,/S,TOSSWORK 4 KPF /S,TPROC R SCR f MOV TMMLKM,/S,TOSSWORK r KPF /S,TMMLKM SCR MOV TLDSEG,/S,TOSSWORK KPF /S,TLDSEG SCR MOV TABORT,/S,TOSSWORK
0x36a7a8…36a93c Dummy {f00=0x0103, f01=0x0190, f02=»KPF /S,TOSSFM SCR LED TIMER " ( #!!CH $$CREDIT EQU 0$$CREDIT EQU 1$$ 4 ( #!!CH $$MMUPAG EQU 0$$MMUPAG EQU 1$$ ` ( #!!CH $$CPU852 EQU 1$$CPU852 EQU 0$$ !!EN ASM /S KPF /O KPF /S SCR LED TPROC
0x36a93c…36aad0 Dummy {f00=0x0103, f01=0x0190, f02=»!!EN ASM /S KPF /O KPF /S ( SCR 6 LED TMMLKM B ( #!!CH $$CREDIT EQU 0$$CREDIT EQU 1$$ T ( #!!CH $$MMUPAG EQU 0$$MMUPAG EQU 1$$ ( #!!CH $$CPU852 EQU 1$$CPU852 EQU 0$$ !!EN ASM /S KPF /O KPF /S
0x36aad0…36ac64 Dummy {f00=0x0103, f01=0x0190, f02=»2 EQU 1$$CPU852 EQU 0$$ !!EN ASM /S , KPF /O : KPF /S H SCR V LED TABORT b ( #!!CH $$CREDIT EQU 0$$CREDIT EQU 1$$ t ( #!!CH $$MMUPAG EQU 0$$MMUPAG EQU 1$$ ( #!!CH $$CPU852 EQU 1$$CPU852 EQU 0$$ !!EN ASM
0x36ac64…36adf8 Dummy {f00=0x0103, f01=0x0190, f02=»PAG EQU 1$$ x ( #!!CH $$CPU852 EQU 1$$CPU852 EQU 0$$ !!EN @ ASM /S L KPF /O Z KPF /S h SCR v LED TOSSFM ( #!!CH $$CREDIT EQU 0$$CREDIT EQU 1$$ ( #!!CH $$MMUPAG EQU 0$$MMUPAG EQU 1$$ ( #!!CH $$CPU852 EQU 1$$CPU852
0x36adf8…36af8c Dummy {f00=0x0103, f01=0x0190, f02=» 024 !!DL 027 !!DL 028 !!DL 042 , DATA 00 < !!DL 045 X DATA 00 h !!DL 047 DATA 00 !!DL 050 !!DL 051 !!EN ASM /S KPF /O KPF /S SC
0x36af8c…36b120 Dummy {f00=0x0103, f01=0x0190, f02=»SSWORK KPF /S,FMTASK SCR $ MOV DFTAB,/S,TOSSWORK 0 KPF /S,DFTAB N SCR b LED FMTASK n ( #!!CH $$CREDIT EQU 0$$CREDIT EQU 1$$ ( #!!CH $$MMUPAG EQU 0$$MMUPAG EQU 1$$ ( #!!CH $$CPU852 EQU 1$$CPU852 EQU 0$$ !!EN
0x36b120…36b2b4 (4, 5) Dummy {f00=0x0103, f01=0x0190, f02=» !!DL 027 !!IL 29 DATA /0000,/0000' ( !!IL 30 B DATA /0101,/0101' R !!EN l ASM /S x KPF /O KPF /S SCR LED DRTW01 !!CH $$ X:F$$ /FFFF$$ !!CH $$ X:G$$ /FF00$$ !!EN
0x36b2b4…36b448 Dummy {f00=0x0103, f01=0x0190, f02=» $$ EXTRN BUG$$*$$ !!CH $$ BUG$$ 0$$ !!CH $$ X:C$$ 00000$$ 4 !!CH $$ X:E$$ 00002$$ R !!CH $$ X:D$$ 00005$$ p !!CH $$ X:F$$ 00094$$ !!DL 85 !!DL 123 DATA ILLINT !!DL 125 DAT
0x36b448…36b5dc Dummy {f00=0x0103, f01=0x0190, f02=» DATA ILLINT !!DL 131 DATA ILLINT , !!DL 132 L DATA ILLINT !!DL 133 | DATA ILLINT !!DL 134 DATA ILLINT !!DL 135 DATA ILLINT
0x36b5dc…36b770 Dummy {f00=0x0103, f01=0x018e, f02=»LINT | !!DL 141 ! DATA ILLINT ! !!DL 142 ! < DATA ILLINT ! L !!DL 150 ! l DATA ILLINT ! | !!DL 155 ! DATA ILLINT ! !!DL 156 ! DATA ILLINT ! !!DL 159 !
0x36b770…36b904 Dummy {f00=0x0103, f01=0x018e, f02=» SCR " LED PFTAB " !!IL 12 " " !!IL 41 " 2 !!DL 043 " B !!DL 046 " R !!DL 047 " b !!DL 048 " r !!DL 051 " !!DL 052 " !!DL 053 " !!DL 054 " !!DL 056 " !!DL 057 " !!DL 058 " !!DL 059 " !!EN "
0x36b904…36ba98 Dummy {f00=0x0103, f01=0x0190, f02=» " LED DVTKB # ( #!!CH $$CREDIT EQU 0$$CREDIT EQU 1$$ # ( #!!CH $$MMUPAG EQU 0$$MMUPAG EQU 1$$ # F ( #!!CH $$CPU852 EQU 1$$CPU852 EQU 0$$ # r !!CH $$DVTKB$$DVKB00$$ # !!CH $$KBAD$$KBAD3$$ # !!CH $$/1111$$/1100$$ # !!CH $$BCA$$FFFF$$
0x36ba98…36bc2c Dummy {f00=0x0103, f01=0x0190, f02=»!!EN # ASM /S $ KPF /O $ KPF /S $ ( SCR $ 6 LED DVTDY $ B ( #!!CH $$CREDIT EQU 0$$CREDIT EQU 1$$ $ T ( #!!CH $$MMUPAG EQU 0$$MMUPAG EQU 1$$ $ ( #!!CH $$CPU852 EQU 1$$CPU852 EQU 0$$ $ !!CH $$DVTDY$$DVDY00$$ $ !!CH $$/ABC$$/1850
0x36bc2c…36bdc0 Dummy {f00=0x0103, f01=0x0190, f02=»T EQU 0$$CREDIT EQU 1$$ $ ( #!!CH $$MMUPAG EQU 0$$MMUPAG EQU 1$$ % ( #!!CH $$CPU852 EQU 1$$CPU852 EQU 0$$ % L !!CH $$DVTGP$$DVGP01$$ % x !!CH $$/1111$$/2000$$ % !!EN % ASM /S % KPF /O % KPF /S % SCR % LED DVTDY % ( #
0x36bdc0…36bf54 (4, 6) Dummy {f00=0x0103, f01=0x0190, f02=» $$DVTDY$$DVDY02$$ % !!CH $$/ABC$$/1850$$ & !!CH $$/1111$$/C000$$ & 6 !!EN & T ASM /S & ` KPF /O & n KPF /S & | SCR & LED DVTGP & ( #!!CH $$CREDIT EQU 0$$CREDIT EQU 1$$ & ( #!!CH $$MMUPAG EQU 0$$MMUPAG EQU 1$$ & ( #!!CH $$C
0x36bf54…36c0e8 Dummy {f00=0x0103, f01=0x0190, f02=»KPF /S & SCR ' LED TCLASS ' !!IL 6 ' , EXTRN DVKB00 ' : EXTRN DVDY00 ' Z EXTRN DVGP01 ' z EXTRN DVDY02 ' EXTRN DVGP03 ' !!IL 11 ' DATA TC00 '
0x36c0e8…36c27c Dummy {f00=0x0103, f01=0x0190, f02=» DATA /0020 ( DATA DVKB00 ( $ DATA /00500 ( D DATA DVDY00 ( d TC00E EQU * ( TC01 DATA TC01E-* ( DATA /00360 ( DATA DVGP01 ( TC01E
0x36c27c…36c410 Dummy {f00=0x0103, f01=0x0190, f02=» * ( TC03 DATA TC03E-* ) DATA /00302 ) . DATA DVGP03 ) N TC03E EQU * ) n !!EN ) ASM /S ) KPF /O ) KPF /S ) SCR ) LED SCLASS ) !!IL 6 ) EXTRN DWSI01 )
0x36c410…36c5a4 Dummy {f00=0x0103, f01=0x018e, f02=»00 ) | DATA TC01 * DATA TC02 * ( DATA TC03 * F DATA TC04 * d !!IL 12 * TC00 DATA TC00E-* * DATA /00141 * DATA DWSI01 * TC00E EQU *
0x36c5a4…36c738 Dummy {f00=0x0103, f01=0x0190, f02=» DATA DWTW01 + TC01E EQU * + $ TC02 DATA TC02E-* + @ DATA /00361 + b DATA DWLP01 + TC02E EQU * + TC03 DATA TC03E-* + DATA /00301 +
0x36c738…36c8cc Dummy {f00=0x0103, f01=0x0190, f02=» DATA /01F91 , DATA DWFD01 , $ DATA /02FA1 , : DATA DWFD01 , Z DATA /03FB1 , p DATA DWFD01 , TC04E EQU * , !!EN , ASM /S , KPF /O , KPF /S , SCR , LED
0x36c8cc…36ca60 Dummy {f00=0x0103, f01=0x018e, f02=» , !!DL 029 - !!DL 030 - !!DL 031 - ( !!DL 032 - 8 !!DL 033 - H !!DL 034 - X !!DL 035 - h !!DL 036 - x !!IL 50 - **** - DATA CTAB01 - !!DL 052 - !!DL 053 - !!DL 055 - !!DL 056 - !!DL 059 -
0x36ca60…36cbf4 (4, 7) Dummy {f00=0x0103, f01=0x00a4, f02=» - ASM /S . KPF /O . KPF /S . $ SCR . 2 ASG /02,LP0F . > SCR . R INC SYSTAB . ^ LKE M . p KPF /L,M:DENJ . ~ ASG /E0,TY10 .
0x36cbf4…36cd88 Dummy {f00=0x0103, f01=0x2008, f02=» / ASM /S . KPF /O . KPF /S . $ SCR . 2 ASG /02,LP0F . > SCR . R INC SYSTAB . ^ LKE M . p KPF /L,M:DENJ . ~ ASG /E0,TY10 .
0x36cd88…36cf1c Dummy {f00=0x0103, f01=0x0190, f02=» V P 3 W _ C D ; V & E2 HDf 'W 'W '_6 ? F : ! P ! P ! P ! P 9F ! P 8 W : ! )P9H " I|# T &W &" :I : Gb : P & _ &X _ : I : : : G| p *1 TID ADDR
0x36cf1c…36d0b0 Dummy {f00=0x0103, f01=0x0190, f02=»( _ AGz AGx Gn ( @Gv' $ * AG|T( Gn ( AGr AG| ( G| p AGr ) Y V AG G V V L . 1 V L v L AGr : G W G 2 G L @ l# T R L 9F L & L G Q
0x36d0b0…36d244 Dummy {f00=0x0103, f01=0x0190, f02=»Gz : 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 G ** AG~ AG ER AG R AG G L Jb R 4 L 4 $ AGr G U 4 - _ IN G @Gr N* D ILLEGAL OPERATION
0x36d244…36d3d8 Dummy {f00=0x0103, f01=0x0190, f02=»ITHM OVERFLOW STACK OVERFLOW INDEX OVERFLOW ILL INDEX TYPE DIV BY ZERO EDIT BUFFER OVFL EDIT PICTURE OVERFLOW "ALLOCATION ERR AT INITIALIZATION ILLEGAL INSTRUCTION ADDRESS ILLEGAL FORMAT CODE NO FIX BUFFER ALLOCATED FIX BUFFER NOT ALLOWED ILLEGAL
0x36d3d8…36d56c Dummy {f00=0x0103, f01=0x0190, f02=»ILLEGAL DATASET REFERENCE TOO MANY KIA/NKIA STACK LEVELS DISC ERROR; NO REENTER POINT W 9 " R 0 1 Y : ;a V P V P W z x<a R 9a V M : I @M P ( _ @O P @O Pj Pf N V $ $T$ D BR V T D
0x36d56c…36d700 Dummy {f00=0x0103, f01=0x0190, f02=» AO TB( Q ( AM O @O V P ( R W M TB( P : TB( Q : AO AO E AM O V AO @ h# P ( R4 O TB( Q ( AM O @O V P ( R W :
0x36d700…36d894 (4, 8) Opaque[0x194]
0x36d894…36da28 # DirEnt {nam=»TCLASS«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x2980, f03=0x0000}
0x36d894…36da28 IdxSect {
0x36d894…36da28 f00 = 0x014c // 0x36d894 @0x0
0x36d894…36da28 f01 = 0x0002 // 0x36d896 @0x2
0x36d894…36da28 gno = [ // 0x36d898 @0x4
0x36d894…36da28 [0x00]: C0x014c.0x0.0
0x36d894…36da28 ]
0x36d894…36da28 }
0x36da28…36dbbc Dummy {f00=0x014c, f01=0x0190, f02=» 2 P IDENT TCLASS REL 10.0 80-03-14 870105041000 P : P* B P* L P ENTRY TCLASS V P* l P* v P EXTRN DVKB00 P EXTRN DVDY00 P EXTRN DVGP01 P EXTRN DVDY02 P
0x36dbbc…36dd50 Dummy {f00=0x014c, f01=0x0190, f02=» TC01 P DATA TC02 P DATA TC03 . PTCLASE EQU * L PTC00 DATA TC00E-* ` P DATA /0020 P DATA DVKB00 P DATA /0050 P DATA DVDY00 PTC00E
0x36dd50…36dee4 Dummy {f00=0x014c, f01=0x4118, f02=» * PTC02 DATA TC02E-* P DATA /0051 . P DATA DVDY02 N PTC02E EQU * n PTC03 DATA TC03E-* P DATA /0030 P DATA DVGP03 PTC03E EQU * P
0x36dee4…36e078 Dummy {f00=0x014c, f01=0x2008, f02=» NT TCLASS * * $ * . ENTRY TCLASS 8 * N * X * b * l * v * * TCLASS DATALTCLASE-* TCLASE EQU * END @ 1 INTLT2 INTRT1
0x36e078…36e20c Dummy {f00=0x014c, f01=0x018e, f02=» A1, A3-A4, A7, A11-A12 ARE DESTROYED c P* d 2 PFNDVTC EQU * FIND VTOC ENTRY d < ( P SC A2,ECBFC,A8 SET FILE CODE IN ECB d ` P LDK A2,0 SECTOR NUMBER d P CF A14,FMREAD READ SECTOR 0 d * P LD A2,FM:BUF+VOL:EB VTOC EXTENT BASE d P LDR A12,A
0x36e20c…36e3a0 Dummy {f00=0x014c, f01=0x0190, f02=» P* e P* e & PFVTC10 EQU * ENTRY USED BY RDVTOC e ( P CF A14,FMREAD READ ONE VTOC SECTOR e B $ P LDKL A13,FM:BUF FM:BUF ADDRESS e n $ P LDK A7,VTOCBF VTOC BLOCK FACTOR e P* e PFVTC20 EQU * e & P LD A4,VTC:ST,A13 VTOC STATUS BYTE e P A
0x36e3a0…36e534 (4, 9) Opaque[0x194]
0x36e534…36e6c8 # DirEnt {nam=»/OBJCT«, typ=»OB«, f00=0x0000, f01=0x0000, f02=0x2090, f03=0x0000}
0x36e534…36e6c8 IdxSect {
0x36e534…36e6c8 f00 = 0x0104 // 0x36e534 @0x0
0x36e534…36e6c8 f01 = 0x0076 // 0x36e536 @0x2
0x36e534…36e6c8 gno = [ // 0x36e538 @0x4
0x36e534…36e6c8 [0x00]: C0x0104.0x2.0
0x36e534…36e6c8 [0x01]: C0x0104.0x3.0
0x36e534…36e6c8 [0x02]: C0x0105.0x1.0
0x36e534…36e6c8 [0x03]: C0x0105.0x3.0
0x36e534…36e6c8 [0x04]: C0x0127.0x0.0
0x36e534…36e6c8 [0x05]: C0x0129.0x3.0
0x36e534…36e6c8 [0x06]: C0x0129.0x2.0
0x36e534…36e6c8 [0x07]: C0x012a.0x0.0
0x36e534…36e6c8 [0x08]: C0x012a.0x2.0
0x36e534…36e6c8 [0x09]: C0x0108.0x2.0
0x36e534…36e6c8 [0x0a]: C0x012b.0x2.0
0x36e534…36e6c8 [0x0b]: C0x010a.0x1.0
0x36e534…36e6c8 [0x0c]: C0x012e.0x3.0
0x36e534…36e6c8 [0x0d]: C0x012f.0x0.0
0x36e534…36e6c8 [0x0e]: C0x0133.0x1.0
0x36e534…36e6c8 [0x0f]: C0x0133.0x2.0
0x36e534…36e6c8 [0x10]: C0x0133.0x3.0
0x36e534…36e6c8 [0x11]: C0x0137.0x0.0
0x36e534…36e6c8 [0x12]: C0x0137.0x1.0
0x36e534…36e6c8 [0x13]: C0x0137.0x2.0
0x36e534…36e6c8 [0x14]: C0x0119.0x2.0
0x36e534…36e6c8 [0x15]: C0x011a.0x3.0
0x36e534…36e6c8 [0x16]: C0x011b.0x2.0
0x36e534…36e6c8 [0x17]: C0x0141.0x1.0
0x36e534…36e6c8 [0x18]: C0x0140.0x3.0
0x36e534…36e6c8 [0x19]: C0x0142.0x3.0
0x36e534…36e6c8 [0x1a]: C0x0122.0x3.0
0x36e534…36e6c8 [0x1b]: C0x0124.0x1.0
0x36e534…36e6c8 [0x1c]: C0x0136.0x2.0
0x36e534…36e6c8 [0x1d]: C0x0138.0x2.0
0x36e534…36e6c8 [0x1e]: C0x0145.0x2.0
0x36e534…36e6c8 [0x1f]: C0x0145.0x3.0
0x36e534…36e6c8 [0x20]: C0x013b.0x3.0
0x36e534…36e6c8 [0x21]: C0x013d.0x3.0
0x36e534…36e6c8 [0x22]: C0x0146.0x3.0
0x36e534…36e6c8 [0x23]: C0x0147.0x0.0
0x36e534…36e6c8 [0x24]: C0x0148.0x1.0
0x36e534…36e6c8 [0x25]: C0x0148.0x2.0
0x36e534…36e6c8 [0x26]: C0x0148.0x3.0
0x36e534…36e6c8 [0x27]: C0x0148.0x0.0
0x36e534…36e6c8 [0x28]: C0x0149.0x1.0
0x36e534…36e6c8 [0x29]: C0x014a.0x0.0
0x36e534…36e6c8 [0x2a]: C0x0146.0x1.0
0x36e534…36e6c8 [0x2b]: C0x0151.0x1.0
0x36e534…36e6c8 [0x2c]: C0x0151.0x2.0
0x36e534…36e6c8 [0x2d]: C0x0107.0x0.0
0x36e534…36e6c8 [0x2e]: C0x0127.0x1.0
0x36e534…36e6c8 [0x2f]: C0x0127.0x2.0
0x36e534…36e6c8 [0x30]: C0x0136.0x0.0
0x36e534…36e6c8 [0x31]: C0x014b.0x1.0
0x36e534…36e6c8 [0x32]: C0x014b.0x3.0
0x36e534…36e6c8 [0x33]: C0x014c.0x1.0
0x36e534…36e6c8 [0x34]: C0x0153.0x1.0
0x36e534…36e6c8 [0x35]: C0x0144.0x0.0
0x36e534…36e6c8 [0x36]: C0x0144.0x2.0
0x36e534…36e6c8 [0x37]: C0x0153.0x3.0
0x36e534…36e6c8 [0x38]: C0x0154.0x0.0
0x36e534…36e6c8 [0x39]: C0x0166.0x0.0
0x36e534…36e6c8 [0x3a]: C0x0166.0x1.0
0x36e534…36e6c8 ]
0x36e534…36e6c8 }
0x36e6c8…36e85c Dummy {f00=0x0104, f01=0x4168, f02=» J F IDENT TCLASS REL 10.0 80-03-14 870105041000 TCLASSK R TCLASSK d DVKB00 x DVDY00 DVGP01 , ( " P 6 DVDY02 DVGP03
0x36e85c…36e9f0 Dummy {f00=0x0104, f01=0x418a, f02=» J F IDENT SCLASS REL 10.0 80-03-14 870105041000 SCLASSK R SCLASSK d DWSI01 x DWTW01 * & ! 1 DWLP01 DWFD01 * & 6 0
0x36e9f0…36eb84 Dummy {f00=0x0104, f01=0x0190, f02=» J F IDENT MONTAB REL 10.0 80-03-14 870105041000 F B MONTABK SPDLCI FREQUE PAGQUE INTLT1 INTLT2 INTLT3L INTLT4 R 2 . INTRT1 INTRT2 INTRT3 INTRT4 INTAS INTSL MONTABK FREQUE PAGQUE
0x36eb84…36ed18 Dummy {f00=0x0104, f01=0x4110, f02=» INTRT4 SYSLOD CTAB01 0 KBAD3 B * & R GPADN DYADN INTAS INTSL " SPDLCI $ &
0x36ed18…36eeac Dummy {f00=0x0104, f01=0xc01a, f02=» 4 @ SYSLOD KBAD3 0 KBADN @ * & P TPADN ~ GPADN DNADN DIADN DYADN MSADN ODADN TPAD3 , (
0x36eeac…36f040 Dummy {f00=0x0104, f01=0x40b8, f02=» J F IDENT TIODMX REL 10.0 80-03-14 870105041000 TIODM FDBMEC R TIODM j FDBMEC | c @ P* 8 P**************************************************** P* (
0x36f040…36f1d4 (4, 10) Dummy {f00=0x0104, f01=0x0190, f02=» J F IDENT DSKSUB REL 10.0 80-03-14 870105041000 F B VOLCLRK VOLNAM VOLADR NVLCHK VOLGET NEWVOL INXDWTL NVLTAB R NVLDMT NVLEND NVLBIT VOLCLRK VOLNAM ECBRL ECBEL , (
0x36f1d4…36f368 Dummy {f00=0x0104, f01=0x0190, f02=» H X H | VOLADR < DWTOR 0 DWTVOL @ , ( 5 p ^ > X $ ^ R NVLCHK R DWTORD DWTNVL: * & Q$ W X Y :g H I , ( i ! P X
0x36f368…36f4fc Dummy {f00=0x0104, f01=0x0190, f02=»VOL SCTFWTC , ( Z.?AZ2 @ Q X " FWTEW1 P EWTVOL b FWTPAR t , ( $XJ ( I T E INXDWTL NVLTAB TTABFM NVLDMT N
0x36f4fc…36f690 Dummy {f00=0x0104, f01=0x402a, f02=» T @ & Z.?AZ2 @ Q X " FWTEW1 P EWTVOL b FWTPAR t , ( $XJ ( I T E INXDWTL NVLTAB TTABFM NVLDMT N
0x36f690…36f824 Dummy {f00=0x0104, f01=0x0190, f02=» J F IDENT SYSTAB REL 10.0 80-03-14 870105041000 F B SCTMSZK SCTSFA SCTEFA SCTIPL SCTANO SCTADA SCTIOEL SCTPAG R F B SCTSWB SCTNOP SCTPSZ SCTMMC SCTLAC SCTMMPL SCTLAP0 SCTNPE F B SCTSTB SCTOPT SCTTCT SCTCDTB
0x36f824…36f9b8 Dummy {f00=0x0104, f01=0x0190, f02=»:PB PAG:QF PAG:QB PAG:PA PAG:SBS SWB:NC0 z SWB:DS SWB:ELV SWB:NS 4 SEG:FCL V SEG:NS j SEG:STI ~ SEG:DS SEG:ELV SEG:PB PAG:QF PAG:QB PAG:PA
0x36f9b8…36fb4c Dummy {f00=0x0104, f01=0x018e, f02=» IHRTC ILLINTM IHTWN " , ( 2 IHSOP b CHLT1 r IHFDN , ( , ( ! , ( 1
0x36fb4c…36fce0 Dummy {f00=0x0104, f01=0x0190, f02=» , ( a , ( q 4 HALTN d t SCTMSZK SCTSFA SCTEFA SCTIPL SCTANO SCTADA , (
0x36fce0…36fe74 (4, 11) Dummy {f00=0x0105, f01=0x0190, f02=» SCTNOP SCTPSZ SCTMMC 0 SCTLAC D SCTMMPL X SCTLAP0 l SCTNPE SCTSTB SCTOPT SCTBUG SCTDMT~ , (
0x36fe74…370008 Dummy {f00=0x0105, f01=0x407a, f02=»CTDCT ^ _ . D d@ v l SCTNPE SCTSTB SCTOPT SCTBUG SCTDMT~ , (
0x370008…37019c Dummy {f00=0x0105, f01=0x0190, f02=» J F IDENT TDISP REL 10.0 80-03-14 870105041000 H D ! TDISP TPAUSE TEXIT MEXIT QMEXITA ACTDISA DISIOE DISEND` DISQUE R PRUNY RETUR8 DISQUE PRUNY RETUR8 QTJOB QMEXI
0x37019c…370330 Dummy {f00=0x0105, f01=0x0190, f02=»SA DISIOE " TENDIO DISEND` & 2 TPAUSE * F TDISP * Z , ( A W ^ ! Z2 l TTB:ST , ( 9 (X: @ P T M ]J , ) A TTB:SA * & U P P Y
0x370330…3704c4 Dummy {f00=0x0105, f01=0x4048, f02=» > r W !W CP YP* ]P cU 2@ D TPAUSE * F TDISP * Z , ( A W ^ ! Z2 l TTB:ST , ( 9 (X: @ P T M ]J , ) A TTB:SA * & U P P Y
0x3704c4…370658 Dummy {f00=0x0105, f01=0x018e, f02=» J F IDENT LRPINT REL 10.0 80-03-14 870105041000 J F " IHLKM LKM030 LKMRQE LKMERR LKMQDI IHRTC TIMQUE@ MONCLO IHPFARC R INIFLG PFPOSTN IHLKM INTSAV PRUNN TTB:SAT , ( A$
0x370658…3707ec Dummy {f00=0x0105, f01=0x0190, f02=» LKM030 H SWL48 * & 5 HP c P W A , LKMAL Z * & O V ( U P @ j LKMERR t HALTN LKMRQE z * & i V L U LKMQDI
0x3707ec…370980 Dummy {f00=0x0105, f01=0x0190, f02=»FARC , ( A A Q ? > DISQUEA > , ( ? @ X@ ) A A _L A P PFINIT IHRTC , ( A A _^ A A QMJOB SWLXY , ( Q > ? A
0x370980…370b14 (4, 12) Dummy {f00=0x0105, f01=0x4140, f02=» 8 x FREBLK , ( K D Q Z P 0 9 " "_ * , ( e _, ? _ P H Z TIMQUE@ H H D ! %T 5P ;P ?W6 UV eP kV Q Q > < Q $
0x370b14…370ca8 Dummy {f00=0x0105, f01=0x018e, f02=» J F IDENT TPROC REL 10.0 80-03-14 870105041000 TWAIT TMWAIT TACTOT R FNDDWT r TWAIT DWTWATL TDISP TACTOT FNDTIDN , ( @ P "R Y
0x370ca8…370e3c Dummy {f00=0x0105, f01=0x4144, f02=» DWTTAB * & 3 U "R P X R X , ( M T X T . T G H , ( g Y6 G _` P ,P x LKMRQE` LKMQDIA - _ < 8 P~ R~ Pj )P` 3UR ;
0x370e3c…370fd0 Dummy {f00=0x0105, f01=0x0190, f02=» J F IDENT MSUBS REL 10.0 80-03-14 870105041000 D @ SAVE8 QTJOB QMJOB ACTOT ACTOTP EXITY GETBLK FREBLKL FNDDWT R H D ! FNDDWD FNDTID PFINIT SWL48 SWLXY ILLINT@ INTSAV HALTY RELPAG , ( RELPA2' IHRET8V IHRET2 IHRET18
0x370fd0…371164 Dummy {f00=0x0105, f01=0x018e, f02=» ! $P T I QMJOB J . TTMJOB @ ACTOTP T R , ( ; R $ 5 % > ? W ? f ACTOT TTB:SA , ( Y $ W ? T T U U U TTB:ID TTB:SBM
0x371164…3712f8 Dummy {f00=0x0105, f01=0x0190, f02=» , ( B - 1_( U T P 0 U GETBLK 4 FREQUE H , ( _t ? @ T Z FREBLKL * & 0 A 1 Q Q > > 0 @ FNDDWT TTB:TD , ( 1 A P
0x3712f8…37148c Dummy {f00=0x0105, f01=0x0190, f02=»CTTCT * & 3 R Y P _ W 8 X W ? ` , ( Q @ @ P $ H W < IHRET8V l l IHRET2 p IHRET18 t IHRTN v PFINIT x PFTAB , ( i W > > > > > > @ V ?
0x37148c…371620 Dummy {f00=0x0105, f01=0x4122, f02=»TY , ( ! Y ^ _ ? RELPAG < RELPA2' P LKMERRD d A. v H D ! 4 $ 1P ;R SW [W gT$ T P T R #P , ( 5R ;P CW0 KW( ]P gW kW V
0x371620…3717b4 (4, 13) Dummy {f00=0x0127, f01=0x0190, f02=» J F IDENT TTMJOB REL 10.0 80-03-14 870105041000 F B TTB:AMK TTB:MT TTB:CB TTB:SP TTB:SB TTMJOB TTB:QLL TTB:ID R . * TTB:ST TTB:PP TTB:PW TTB:SA TTB:TD TTB:AMK TTB:MT TTB:CB ,
0x3717b4…371948 Dummy {f00=0x0127, f01=0x40d6, f02=»:ID TTB:ST TTB:PP " TTB:PW 6 TTB:SA J , ( ! #M 1 ^ TTB:TD ( A N @ MK TTB:MT TTB:CB ,
0x371948…371adc Dummy {f00=0x0127, f01=0x8190, f02=» J F IDENT TOSSIO REL 10.0 80-04-30 870105041000 J F "dTIO TIO:FM TIOERR TENDIO QUEDEV QUEFIL DC:MIN@ DC:MOT MONMMUC R J F " ECBFC ECBBA ECBRL ECBEL ECBRC ECBCW ECBCW1` ECBCW2 DC:DIX DM:DIX' F B PC:DIXV MX:DIX KB:DIX8
0x371adc…371c70 Dummy {f00=0x0127, f01=0x8190, f02=» DWTOR DWTOCHV DWTADR DWTTABR DWTWAT DWTTQ DWTOTQ DWTUEC J F " DWTMECj DWTA2 DWTA3 DWTA4 DWTA5 DWTSB12 DWTSB2 DWTTP DWTECH DWTSQ D DWTORD DWTNVL DWTVOLA DWTCHP DWTST DWTBC DWTECBV DWTOP
0x371c70…371e04 Dummy {f00=0x0127, f01=0x8190, f02=»C DWTMECj DWTOTQ DWTA2 4 DWTA3 F DWTA4 X DWTA5 j DWTSB12 | DWTSB2 " DWTTP $ DWTORD $ DWTNVL & DWTECH & DWTVOLA .
0x371e04…371f98 Dummy {f00=0x0127, f01=0x8190, f02=» RECADRV ECHADR DC:DIX ( DM:DIX' < PC:DIXV P MX:DIX d KB:DIX8 x IT:DIXT DK:DIXN ECBFC ECBBA ECBRL ECBEL ECBRC
0x371f98…37212c Dummy {f00=0x0127, f01=0x8190, f02=» ! $ TIOERR L , LKMQDI @ , ( A ( , 0 4 8 < C C R QUEDEV f QUEFIL h TTB:STM , ( _ 8W T 8P Y ^ TTB:SA TDISP
0x37212c…3722c0 Dummy {f00=0x0127, f01=0x8190, f02=» XF Y @ t , ( P R T X &P Xh I TTB:PW D , ( Y T # C C V , ( W O " # X Y ) , ( C C x # P Y GETBLKS QTJOB , (
0x3722c0…372454 (4, 14) Dummy {f00=0x0129, f01=0x8190, f02=» h , ( X $? P $ > > , ( 8 , ( F C h , ( F C > B R Q F ! P C TTB:MTO , ( > C > F :c" H ,
0x372454…3725e8 Dummy {f00=0x0129, f01=0x8190, f02=» j , ( U H Q X D B , ( $ T C x > C $ ) _ : DISENDA j , ( X 9BV X & X | , ( D C > X H U H B , ( P P $ # Q >
0x3725e8…37277c Dummy {f00=0x0129, f01=0x8190, f02=»_2 B U X > ? , ( _ X T (@ ^ DC:MIN@ P , ( > > ? _ X T (@ X d , ( L U L Q M , ( X D D P ( ) TENDIO , (
0x37277c…372910 Dummy {f00=0x0129, f01=0x8190, f02=» h , ( c _ T " # p , ( " X L R P P P (@ 8 , ( ^ X P P # P T h FREBLK: * & P 0P 1 _ ACTOTPO & " W Y
0x372910…372aa4 Dummy {f00=0x0129, f01=0xc12e, f02=» T P T W4 /P ` H D ! CT GP KW [P aR cP iT m s uP Q P GQ~ QP0 WP* H D !! mT yQL } U( Q2 T V UJ P PL 'Q -P GT OP }U h H D ! U Q4 P !P )P /T OP ]PJ R P P P P8 P0 P P
0x372aa4…372c38 Dummy {f00=0x0129, f01=0x018e, f02=» J F IDENT SYSLDM REL 10.0 80-03-31 870105041000 SYSLDMK R SYSLDMK d SCTSFAD x SYSBAS SCTEFA TCLASS( , ( I A SCLASSL SAV
0x372c38…372dcc Dummy {f00=0x0129, f01=0x018e, f02=» f , ( K , P , - 4 ] CMPADR 8 SCTOPT J , ( i @ 4 Y 5 X SAVE03N SAVE01 * & * _6 : W TTMJOB SCTDMT , (
0x372dcc…372f60 Dummy {f00=0x0129, f01=0x0190, f02=» , ( !TTP " @ T NXTBLK 8 , ( ! " Y $ !TTX" A J SCTTCT z SCTNFT, , ( "H 9 A & : ` & @ & V :a @ MULTN SCTNOF SCTFWL * & !
0x372f60…3730f4 (4, 15) Dummy {f00=0x0129, f01=0x0190, f02=» " A : FREQUE " SCTBLK 4 , ( eI 4 ` & @ 6 P F BUFSIZM v , ( } _ 3 S S V 8 V SYSBUFM , ( HB W 8 : @ @ , ( @T
0x3730f4…373288 Dummy {f00=0x0129, f01=0x0190, f02=» COP W @ > 3 V @ 3 SAVE30M 0 SCTLAC B , ( @ B 3 @ D T NUMSEG , ( # $ S @ D F V @P , ( = @ 9h !RRP @ ! T SCTADA , (
0x373288…37341c Dummy {f00=0x0129, f01=0x0190, f02=» h * & " : @ SCTDMIL 6 , ( & @ @ J #D# P ; V H , ( _ : @ " P @ P 3 x , ( @ _ @ " P V B 3 , ( S 1 S 9J S ( 3 , (
0x37341c…3735b0 Dummy {f00=0x0129, f01=0x0190, f02=»E19E , ( o N . !TTP " SAVE16 < , ( @H W P N =H N W R V < CR N SAVE17 ~ CONVRT , ( @T N =H N W T N =H N SAVE24 , ( H@ V W X ( @ % 5 T
0x3735b0…373744 Dummy {f00=0x0129, f01=0x0190, f02=» " U " , ( 1 _2 P & , ( Q " U " V , ( m _2 V P * & @P R * & " S ( V X S =J
0x373744…3738d8 Dummy {f00=0x0129, f01=0x0190, f02=» N _ r bREL , ( H N $ !TTT , ( %D : . !TTP P , ( ?H " V W P * , ( Y P , ( w _ P W T
0x3738d8…373a6c Dummy {f00=0x0129, f01=0x0190, f02=» K T + Y@ V , ( T _f V P Y $ !TTX @ , ( @ T " P * & # @ : W N % @ P _ * & ; @ 0 R @ 2 , ( S W N R @
0x373a6c…373c00 Dummy {f00=0x0129, f01=0x0190, f02=» l , ( $ A V W SAVE15 : * & W P P W ` L SAVE14P z , ( ( W b , ( G =h G V b V < , ( V ` P W `
0x373c00…373d94 (4, 16) Dummy {f00=0x012a, f01=0x0190, f02=» $ ! | , ( TTX !CCT P V , ( @ 4 U " $ $ L , ( _. P V | , ( 4 U " $ $ SCTDCT , ( _. @ d @
0x373d94…373f28 Dummy {f00=0x012a, f01=0x0190, f02=» Q P W ` W b V b , ( k V < V ` _2 0 , ( U V ` * & 8 8 8 4 D P ^ @ , ( # P H I K , ( T + Y@
0x373f28…3740bc Dummy {f00=0x012a, f01=0x0190, f02=» 3 @ " : W h , ( M V h F !SST W !AAT 0 SAVE06 ` , ( k W V 0 V N 0 V jP r SAVE07 , ( _ W l $ q > R P >b SYSLOD , ( W >b &
0x3740bc…374250 Dummy {f00=0x012a, f01=0x0190, f02=» h , ( pP V ` T @ 1 DWTSQ 8 , ( Q a r I r I r H , ( - $# P V l -W W D x , ( K @ V ` T @ 1 Q a , ( g : @ % P H I , (
0x374250…3743e4 Dummy {f00=0x012a, f01=0x0190, f02=» h , ( P @ @ @ D , ( (P W H $ I p % E 8 , ( , a : V h Q R h , ( - $ F !LLT # W j;I , ( K # ;b W 0;a W # T W jW , ( g # T
0x3743e4…374578 Dummy {f00=0x012a, f01=0x0190, f02=» , ( Z t @ tT A t V INTSL 8 , ( W Y0 Z6 v @ vT A H , ( v V L >A 8T 9 0 x , ( @ 1 8 $; # V h ;c F * & + !AAP # $ < $ :
0x374578…37470c Dummy {f00=0x012a, f01=0x0190, f02=» _ / P *_ , ( *T P _ .P _ / V * * & z U Y$ P W X V Z , ( z 3 % W INTLT1 , ( HP _ V XP V x ] |W * & @ x
0x37470c…3748a0 Dummy {f00=0x012a, f01=0x0190, f02=» (P ) @ v @ @ , ( u T " & , ( : N =H N V : N =H N V , ( V : &=H F V : F =H F , ( @ V : F =H F V : , ( @ P N =H N T
0x3748a0…374a34 (4, 17) Dummy {f00=0x012a, f01=0x0190, f02=» d v , ( ] * & t F @ R @ D $ D I:RSTEM F SCTIOE0 X * & y$ L ~ A CRT M " j SYSLDX H D !pC P # N / N G B WP@ P P V P T ;P$ MT wP {
0x374a34…374bc8 Dummy {f00=0x012a, f01=0x0190, f02=» T T W ` H D ! @ V W V P0 #U E MP0 Q _U P R T T 9P H D ! K a eP i Pd P$ P T 3P AR UWT cR W& T h H D !oJ P PT ! > )P 7 aT Tr P, U H D ! }
0x374bc8…374d5c Dummy {f00=0x012a, f01=0x4162, f02=» L H D !` P H V W R W PV Tp P T 1P8 AW( E H GW" MV H D ! ST qPD P( U P P: P W #Q )R =T WWR [T eW, iT uW T H D ! {T W R T W T T /P yT }P P T P$ P U P H D ! W P P W P #P
0x374d5c…374ef0 Dummy {f00=0x012a, f01=0x0190, f02=» J F IDENT SYSLDA REL 10.0 80-05-29 870105041000 D @ JUMPY SYSLDX dREL LDALEN MOVEY ERROR CMPADR NXTBLKL NXTCOM R F B CONVRT GETNUM MULTY MMTAB TABBE MMEND MMDDIV BUFSIZ SYSBUF D @ M:REL I:RSTE SAVE01 SAVE12B SAV
0x374ef0…375084 Dummy {f00=0x012a, f01=0x0190, f02=» SAVE18 SAVE19 SAVE20 SAVE21S SAVE220 v F B SAVE23 SAVE24V SAVE25 SAVE26 SAVE27 SAVE282 SAVE29 SAVE30 0 APPTYPN z I:RSTE * |REL $ W W " , ( 1 ; Z [ : : [ [
0x375084…375218 Dummy {f00=0x012a, f01=0x0190, f02=» SAVE03 SAVE04~ SAVE05 0 SAVE06 D SAVE07 X , ( o l SAVE08 SAVE09 SAVE10 SAVE11 SAVE12B SAVE1
0x375218…3753ac Dummy {f00=0x012a, f01=0x0190, f02=»AVE30 , ( M:REL @ SYSBUF R BUFSIZ f LDALEN z SAVE14I d SAVE15 f SAVE16V l SAVE17 p SAVE18 r SAVE19 t
0x3753ac…375540 Dummy {f00=0x012a, f01=0x0190, f02=» j MMTAB TABBE MMEND , , ( > ERROR n MOVEY " SCTEFA , ( W Z A. c @ , ( @ + V W U R $ ) , (
0x375540…3756d4 (4, 18) Dummy {f00=0x0108, f01=0x0190, f02=» , ( W ^< _@ V _P , ( V V : V 4 , ( J P r d , ( V U _ V , ( + Z K W W :K , ( K W r
0x3756d4…375868 Dummy {f00=0x0108, f01=0x0190, f02=» <B W |P v , ( @ v : $ V |P v $ , ( w v : V $ V l $ T , ( V M : W V , ( + R R > R W , ( K > <B V x
0x375868…3759fc Dummy {f00=0x0108, f01=0x0190, f02=» " D P t , ( W V P $;A^ D E , ( D P V P D , ( A P T E _J E _T t , ( + " D T E E D E , ( K % : " R ;B " , (
0x3759fc…375b90 Dummy {f00=0x0108, f01=0x0190, f02=»9a _ " ( ) 8 x , ( ( ) : " $ V P 9A _ 0 : MULTY H , ( W W W ?AP ^ 0 : W ; Z , ( V : : , SCTTCT , ( + X G : J @ 0 V , ( I @
0x375b90…375d24 Dummy {f00=0x0108, f01=0x0190, f02=» RETUR8 , ( 0 R P P B _ , ( : V ) v : 4 @ TTB:SA9 p * & P " D < , H H , ( M v b - I Y0 SCTSFA , ( : @ ` V
0x375d24…375eb8 Dummy {f00=0x0108, f01=0x0190, f02=» , ( U P _ " = D 4 , ( T u Q _n < ^ P = G 4 , ( V W d , ( $ V E J K _X V r * & @ V :B A V 9n A , ( @ @ A
0x375eb8…37604c Dummy {f00=0x0108, f01=0x0190, f02=» @ P P P P _ SCTPSZ ( , ( =" _ @ 9N @ :b @ :b : , ( W V W U j , ( w T 9BW P P , ( P V W U " @ Q V P , ( A.
0x37604c…3761e0 Dummy {f00=0x0108, f01=0x0190, f02=»QUE , ( Y& P , ( ) S P 3 < SCTBUGY l , ( G _ 3 A. ~ SCTSTB , ( c@ @ j " @ W PFINIT , (
0x3761e0…376374 (4, 19) Dummy {f00=0x012b, f01=0x018e, f02=» V pT : r , ( N V l W H V ]" , ( . nT W v W n V ~P B , ( @ W x r , ( @ 9 _v V d , V , ( Y P _ N L % V d V f v , ( @ y
0x376374…376508 Dummy {f00=0x012b, f01=0x0190, f02=» , ( V x % V v % : V V , ( N 9k! P % _ 4 , ( V V W W r d , ( @ 9 W V v ) W b , ( Y@ G v ) - V , ( w W f
0x376508…37669c Dummy {f00=0x012b, f01=0x0190, f02=»_ ` @ ` W W ~ , ( pP 2 V W % $ , ( R , T , ( A 3 " E R W ~ R , ( S R P R Xv _|W T : , ( QA s W x _ V P
0x37669c…376830 Dummy {f00=0x012b, f01=0x0190, f02=» H - t , ( V I " R E , ( R T E D E @ v D , ( + H v E P #_v W | t , ( K ;b W W t V b v , ( k ( v W p V ` $ W ` N C
0x376830…3769c4 Dummy {f00=0x012b, f01=0x0190, f02=» .=H p GETNUM , ( N N : d $ SYSLDX T , ( 8" R _ ZY QY : " h , ( @ V H W z W | CRP , ( ' W ` ` H W d , ( B E 2 ;A @
0x3769c4…376b58 Dummy {f00=0x012b, f01=0x0190, f02=» " T @ N =H , ( N @ ) !TTXX !CC ( , ( T !UUT d W X , ( @ 2 .:H N P , ( V _ R :h " , ( ?
0x376b58…376cec Dummy {f00=0x012b, f01=0x018e, f02=» @ W x , ( D V W W , ( ` " W p @ F , ( pP " 4X 1 v , ( R Z0 _ W l a w , ( 3 ` :A W V d 4 W P , (
0x376cec…376e80 Dummy {f00=0x012b, f01=0x0190, f02=» f x H D ! W> 2 0 . 1 2 C S Y -V 1W 5U AR w yQ@ R( $ H D !e P V U #V ' ] _Q aR m oV V W V p H D ! P P 7RR ?R GW kP P Pd PL P. V P T 1T H D
0x376e80…377014 (4, 20) Dummy {f00=0x010a, f01=0x410a, f02=» W U T H D ! Q P P V !P4 ?P ] h } R T T" P D ' MV H D ! 0 [P U P V P P P0 P Pn WP [ j e j iW oT P8 Pl H D ! T R %P WR {P T W8 T T T Wh P V P. MP @
0x377014…3771a8 Dummy {f00=0x010a, f01=0x0190, f02=» J F IDENT LDTASK REL 10.0 80-03-14 870105041000 F B LT:DSKK LT:SWB TTABLD QLTDSK QLTSWB QLTASK LD:ECBL LD:BUF R LD:BUE PQEMTY LD:STB LD:ECBL LD:BUF L
0x3771a8…37733c Dummy {f00=0x010a, f01=0x0190, f02=» TLDS15 , ( W $V QMEXITL J PAGQUE PAG:QB n , ( u H A 8( @ X PAG:SB , ( H H A ( 1 ) @ H P 1 SEG:PB# T
0x37733c…3774d0 Dummy {f00=0x010a, f01=0x0190, f02=» M | SCTPSZ0 SEG:ELT . TTB:SP @ SEG:FC R * & " (@ @ <a D >a d PAG:PAP SEG:DS ECBCW1I ECBCW2 , ( H D $! C " ,
0x3774d0…377664 Dummy {f00=0x010a, f01=0x0190, f02=» ( C l ECBEL , ( A *9b!0 # U B , C , ( ] * # C & C $S L , ( w B p ' C " C $ | ECBRC , ( _"( B . T :" U RELPA2 SCTIOES
0x377664…3777f8 Dummy {f00=0x010a, f01=0x408c, f02=» QLTASK ACTOT @ 4 f < 6 " , ( iV P V +P* K OU* oS s T F v@ ' C " C $ | ECBRC , ( _"( B . T :" U RELPA2 SCTIOES
0x3777f8…37798c Dummy {f00=0x010a, f01=0x0190, f02=» J F IDENT DRSW01 REL 10.0 80-03-14 870105041000 H D ! OUTLINK OUTPUT LDREG LDREGE LDREGF STREG GETCHR@ ECHRTN ECHOY R ECHENDN OUTLINK OUTLRT OUTPUT , ( ? 8! W "
0x37798c…377b20 Dummy {f00=0x010a, f01=0x0190, f02=»WTA5 TDISP LDREG D * & ; @ Y X X Y . LDREGF R LDREGE V p DWTOR DWTECB , ( Q H X X X X ' GETCHR@ j , ( g 4 B U B (
0x377b20…377cb4 (4, 21) Dummy {f00=0x012e, f01=0x4104, f02=» DWTSB2 DWTADR , ( H 9BV X Y X ( ECHADR X ECHRTN j TENDIO ~ * & D V X R , ( W0 P T !P< %P8 qU W V$ V @ (
0x377cb4…377e48 Dummy {f00=0x012e, f01=0x0190, f02=» J F IDENT ST8000 REL 10.0 80-06-09 870105041000 ST8000K R ST8000K d IHPFAR x IHLKM IHRTC ILLINT IHTWA IASCUZ , (
0x377e48…377fdc Dummy {f00=0x012e, f01=0x4150, f02=» ~ , ( ! , ( 1 N , ( A ~ , ( Q , ( a
0x377fdc…378170 Dummy {f00=0x012e, f01=0x0190, f02=» J F IDENT DRKB03 REL 10.0 80-03-14 870105041000 KBAD3 R KBAD3 b DWTST t * & @ 2 R ? X V Y TDISP LDREGE , ( ! W Y , (
0x378170…378304 Dummy {f00=0x012e, f01=0x0190, f02=» , ( <D X ? ?: T p , ( > > P P C B 4 , ( T B % X . $ d STREG , ( 4 T % X ,T ! W ECHON , ( Y . V ! B P X
0x378304…378498 Dummy {f00=0x012e, f01=0x0190, f02=»R _Q P t , ( OR R W " ! B p W , ( W 0 Z ! B Z D , ( Z& X . 0T N W X t , ( ,P Y . 0 %_. % Y . W _p ECHEND * & P _ C
0x378498…37862c Dummy {f00=0x012e, f01=0x0190, f02=» X R ;GV X v DWTSB2 , ( S p X , $4 P ( , ( o D X .T * W Y , - ? X X , ( :a Z T T W P X :d , ( Y > > |V ? 8 R @ , ( R V @% =cW R P R
0x37862c…3787c0 Dummy {f00=0x012e, f01=0x0190, f02=» > NT 0 x G _ H D ! ( $ V 'W< 7U ;R ?P G U _P iP oWT wPP R Q , H D !&J W T * Pb P T T T W : V * P x H D ! /P$ ;R K * SW [PH aP> gP mP q * wR {Q P R R W Wr
0x3787c0…378954 (4, 22) Dummy {f00=0x012f, f01=0x4052, f02=» V W2 RB P R P W. P !P CT J <@ N U _P iP oWT wPP R Q , H D !&J W T * Pb P T T T W : V * P x H D ! /P$ ;R K * SW [PH aP> gP mP q * wR {Q P R R W Wr
0x378954…378ae8 Dummy {f00=0x012f, f01=0x0190, f02=» J F IDENT DRGP01 REL 10.0 80-03-14 870105041000 GPADY ECHOGP R GPADY j DISIOE | , ( P P OUTPUT * & B P B L # +P ! ! , ( ;
0x378ae8…378c7c Dummy {f00=0x012f, f01=0x0190, f02=» U P , ( T Y &_. P R P O]> V , ( _F T Y Y & V Y _^ P , ( C _P " $ P DWTBC , ( $ X & X ]r ! Y , ( Y Y _
0x378c7c…378e10 Dummy {f00=0x012f, f01=0x0190, f02=» Y & Y > B B , ( K U $ ! T _ U D ! " , ( k T _ C > X Z^<BR P R LDREG ECHOGP , ( f X _x R V ! * & P P P P R ?Q ! Y E
0x378e10…378fa4 Dummy {f00=0x012f, f01=0x4142, f02=» P P v , ( "X _ X " ! ! / X & $ F H D ! x PB P8 #P 1P AT UW cW w > U P" T P4 h H D ! R( Pj V T P . MU$ WT aU kT R P R0 V0 P* P ( $ P
0x378fa4…379138 Dummy {f00=0x012f, f01=0x0190, f02=» J F IDENT DRDY01 REL 10.0 80-03-14 870105041000 DYADY ECHODY R DYADY j OUTPUT | , ( DISIOE * & !@ ! P P & , ( =
0x379138…3792cc Dummy {f00=0x012f, 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
0x3792cc…379460 Dummy {f00=0x012f, f01=0x0190, f02=» DWTBC , ( ' X ] ! , ( @ B ! ! ! B @ , ( Y & ! W 8!0T 8 !@P p , ( ! $ P ! ! TENDIO , ( ! 1P X & C ,T Y
0x379460…3795f4 (4, 23) Dummy {f00=0x0133, f01=0x0190, f02=» LDREG , ( S Z2<BR > ? Y , ( m! ! T X ! Y @ * & & Zl T _ ! X p ECHODY , ( $ P ! R V ECHRTN * & P P !
0x3795f4…379788 Dummy {f00=0x0133, f01=0x0190, f02=»" Y )U W ! ! , ( / ! Y 4 B * & @ I U )X R X P , ( g X &" Y * X ) V Y ~ , ( ! X $ X & ! X * , ( H `R Y ! !
0x379788…37991c Dummy {f00=0x0133, f01=0x4180, f02=» ( > n H D ! P b )P -P 3 9 CP SP WP. ]T oR| yR H D ! B 8 U4 T U T P( P TD T )T GP M Y cP Z H D !> gR P 8 W T P P ( P T IQ YR H D ! p uT T P
0x37991c…379ab0 Dummy {f00=0x0133, f01=0x018e, f02=» J F IDENT DRLT01 REL 10.0 80-03-14 870105041000 D @ CHLT1 CHLT2 CHLT3 CHLT4 OUTLRT CHLTON LOCHANL RECHAN REMFC R DWREMU LOCHANL RECHAN REMFC DWREMU INTLT1
0x379ab0…379c44 Dummy {f00=0x0133, f01=0x0190, f02=» f , ( J ;h # <c$ " P DWTOTQD 8 DWTOCH J OUTLIN , ( = P 4 5 T P ? X U X n DWTST , ( Y > P P P P 0 X , ( u T Y W U U
0x379c44…379dd8 Dummy {f00=0x0133, f01=0x0190, f02=»> 8' T Y X ~ DWTADR RECADR . DWTSB2 @ , ( " ' T P X P R , ( > Z X "X DWTOR DWTECB * & ! 8' T 8Z" X ' X INT
0x379dd8…379f6c Dummy {f00=0x0133, f01=0x4156, f02=»P _ E W Q Y W 8 CHLTON ( , ( @" E 4 % E Y > > < $ $ B @ P A T l H D !@ 3 9P =PR GP _PZ cPF gP kP uT Wn . Tx Rt WP B H D ! P> P4 R0 T T P P B )T
0x379f6c…37a100 Dummy {f00=0x0133, f01=0x018e, f02=» J F IDENT DRSOP1 REL 10.0 80-03-14 870105041000 0 , SOPCT SOPRY IHSOP DWSI01 DWSI02A DWSO01A R SOPCT , ( T 8T 9W B DISIOE SPDLCI , ( ! D 7P P
0x37a100…37a294 (4, 24) Dummy {f00=0x0133, 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
0x37a294…37a428 Dummy {f00=0x0133, 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
0x37a428…37a5bc Dummy {f00=0x0133, f01=0x0190, f02=» J F IDENT DRTW01 REL 10.0 80-03-14 870105041000 TWADY IHTWY TWONY DWTW01 R TWADY v , ( x B U P R DISIOEA , ( ! U ! ! W ! Q ! B , ( ? Z P
0x37a5bc…37a750 Dummy {f00=0x0133, f01=0x0190, f02=» R ?U C ! _f Y (P Y ) , ( _ ^ _ ! P B L * , ( # +P Y , ! U _ X Z DWTST , ( @ T _ W ! Y ! X , ( X ! X P R ?]* U C , ( = _.
0x37a750…37a8e4 Dummy {f00=0x0133, f01=0x0190, f02=»WTOR , ( y " h Y _p ? X R X DWTECBN < DWTSB2 N , ( D X ' & P ` DISENDL IHTWY INTSAV * & ! X , _V A * & ? X
0x37a8e4…37aa78 Dummy {f00=0x0133, f01=0x0190, f02=» 8 J P 8 B W B W PFPOST " * & ; B W B @ T 8 T Y 4 DWTA4 b DWTA5 r TDISP , ( W H Y Y Y Y . * & @ m ! : X ._B B 1 4 X X , ( X X
0x37aa78…37ac0c Dummy {f00=0x0133, f01=0x415c, f02=» _^ H D ! U P R !U + 4 -W 1 P 5Q 9 v CP M : Q WP cR H D ! R s v P. P( P R Q W R U v P 4 P: P @ U j H D !1 T W @ +P /R 7U G M SP m @ R P 4 @ <
0x37ac0c…37ada0 Dummy {f00=0x0133, f01=0x0190, f02=» J F IDENT DRLP01 REL 10.0 80-03-14 870105041000 & " LPADR ACLPY IHLPY LPONY DWLP01 R LPADR | ACLPY DWTBC , ( D T 1 W B DISIOEC , ( B P P
0x37ada0…37af34 (4, 25) Dummy {f00=0x0133, f01=0x0190, f02=» TDISP DWTA5 , ( } Q 1 Y $ PFPOST T LPONY f DWTST x , ( @ r t @ B X _" ? IHLPY INTSAV DWTOR DWTECB , ( B X
0x37af34…37b0c8 Dummy {f00=0x0133, f01=0x40a2, f02=» r H D ! T WP %PD )P 3V I OT UW _P eP m qT uV W ( t ^ @ X _" ? IHLPY INTSAV DWTOR DWTECB , ( B X
0x37b0c8…37b25c Dummy {f00=0x0133, f01=0x8190, f02=» J F IDENT DRFD01 REL 10.0 80-04-29 870105041000 FDADR IHFDY FDONY DWFD01 R FDADR v NVLCHK , ( 9 ! ! T DWTORD DWTOR VOLNAM , ( H
0x37b25c…37b3f0 Dummy {f00=0x0133, f01=0x8190, f02=» A. p SETIMPT TDISP " , ( m Y W L 2 , ( Y X Y ! X P P b DISIOEL * & P P R P X DISEND ECBRL , (
0x37b3f0…37b584 Dummy {f00=0x0133, f01=0x818e, f02=» B Y " v , ( "0 Y V Y Y , ( ; Y X X T V X R # ;b9B F , ( [ Y Y ) Y X v , ( y !? P P P P ! , ( X P _ X x ^ , (
0x37b584…37b718 Dummy {f00=0x0133, f01=0x8190, f02=» f , ( P P ! # T X P , ( 9@ X &P ! ! B R Q 8 , ( U :C P ! 9DV + ! (@ B h , ( s ! ! ! ! ! , ( ! ( ! ! 9 X Y DWTSB2 ,
0x37b718…37b8ac Dummy {f00=0x0133, f01=0x8190, f02=» j , ( ! 1 ! * ! ! ! ) , ( 1 ! # X Y _ P P ! : , ( Q P @ 9 4 ! P j , ( oB X 1P B +P T , ( ( C Q V ! ! DWTTAB
0x37b8ac…37ba40 Dummy {f00=0x0133, f01=0x8190, f02=» @ C Q (Q _ X , ( H X D x ^ ! 0 ECBEL ` , ( ! ! P @ 9 ! T ) p , ( 7D C "W ! ( - ! PFPOST , ( S ) W W Y Y Y Y
0x37ba40…37bbd4 (4, 26) Dummy {f00=0x0137, f01=0x8190, f02=» , ( $ Y W 8 & FDONY 4 DWTA2 F , ( @ Y (_ ? Y ( Y * X P V , ( @ y _* _: Y , ( @ Y Y L Y ! VOLCLR , ( ! ^
0x37bbd4…37bd68 Dummy {f00=0x0137, f01=0x8190, f02=» 0B. X P Y : ! ! ^ , ( X # P Y :A , X A Y & DWTECB V , ( "@ @ B. Y * . Y X h , ( Y C "'? 8 X * IHFDY INTSAVN , ( Y (_ A 0
0x37bd68…37befc Dummy {f00=0x0137, f01=0x8190, f02=»:AZl X P Y ! P | , ( W + 7P $ P + < , ( w $ <C ! 9 9 4 X 9C X L , ( : X X 4 B :C | , ( 4 $ ! ^# T @ TOT @ , ( SST X Y W 0 !
0x37befc…37c090 Dummy {f00=0x0137, f01=0x8190, f02=» 1 0! D 4 1 Y W (@ TEBCDIR 0 , ( O 0! D 6 ] Y 4 ! B , ( m ;E :B 9A ! U r , ( P jW kQ 4 9 , ( 0" Z Y P Z _ , (
0x37c090…37c224 Dummy {f00=0x0137, f01=0x8190, f02=» DWFD01 * , ( + , ( K B , ( k r , ( , (
0x37c224…37c3b8 Dummy {f00=0x0137, f01=0x8190, f02=» T )V f H D ! 5 9 = A E GT KV" O QR _ e q }PZ P PR P " H D ! P & P D Z P W@ P & n H D !DR ^ P * P & ~ P #P - ^ 1T H D !
0x37c3b8…37c54c Dummy {f00=0x0137, f01=0x8190, f02=»PR R H D ! ^ B R t # Z ' B + 3 ^ ; ? P GP MP H D ! Q UP e i mP uP PV T Q V8 ^ * & t Z H D ! WX W l QR Q & D Z #P + 1T ;W C H D ! G M t Q YWf ]
0x37c54c…37c6e0 Dummy {f00=0x0137, f01=0xc184, f02=» F )P 1W 5 S F [ R ]P c R q T } P P H D ! P P T T J * V X P0 T Z T ? H I J KP O J F H D ! UP ]P, iP & & T` F T H T N H D ! / & W( & T. N * * F
0x37c6e0…37c874 (4, 27) Dummy {f00=0x0137, f01=0x0190, f02=» J F IDENT EBCDIC REL 10.0 80-03-14 870105041000 TASCIIK TEBCDI R TASCIIK l , ( , ( ! , ( A ABCDEFGHI[.<(+!&JKLMNOPQR]$*);^
0x37c874…37ca08 Dummy {f00=0x0137, f01=0x416e, f02=»89:#@'=" p , ( ABCDEFGHI[.<(+!&JKLMNOPQR]$*);^ TEBCDI @ , ( -/STUVWXYZ|,%_>?0123456789:#@'= T , ( 7- <=2&p ?' , ( ! @O {[lP}M] Nk`Ka z^L~no , ( A | J
0x37ca08…37cb9c Dummy {f00=0x0137, f01=0x4136, f02=» J F IDENT DVTKB REL 10.0 80-03-14 870105041000 DVTKB R DVTKB b KBADN t & " KB bECH , ( !@ ?
0x37cb9c…37cd30 Dummy {f00=0x0137, f01=0x0190, f02=» J F IDENT TOSSIO REL 10.0 80-04-30 870105041000 J F "dTIO TIO:FM TIOERR TENDIO QUEDEV QUEFIL DC:MIN@ DC:MOT MONMMUC R J F " ECBFC ECBBA ECBRL ECBEL ECBRC ECBCW ECBCW1` ECBCW2 DC:DIX DM:DIX' F B PC:DIXV MX:DIX KB:DIX8
0x37cd30…37cec4 Dummy {f00=0x0137, f01=0x0190, f02=» DWTOR DWTOCHV DWTADR DWTTABR DWTWAT DWTTQ DWTOTQ DWTUEC J F " DWTMECj DWTA2 DWTA3 DWTA4 DWTA5 DWTSB12 DWTSB2 DWTTP DWTECH DWTSQ D DWTORD DWTNVL DWTVOLA DWTCHP DWTST DWTBC DWTECBV DWTOP
0x37cec4…37d058 Dummy {f00=0x0137, f01=0x0190, f02=»C DWTMECj DWTOTQ DWTA2 4 DWTA3 F DWTA4 X DWTA5 j DWTSB12 | DWTSB2 " DWTTP $ DWTORD $ DWTNVL & DWTECH & DWTVOLA .
0x37d058…37d1ec Dummy {f00=0x0137, f01=0x0190, f02=» RECADRV ECHADR DC:DIX ( DM:DIX' < PC:DIXV P MX:DIX d KB:DIX8 x IT:DIXT DK:DIXN ECBFC ECBBA ECBRL ECBEL ECBRC
0x37d1ec…37d380 Dummy {f00=0x0137, f01=0x018e, f02=» ! $ FREBLK: , * & A ( , 0 4 8 < ( H 0 ) > TTB:SA l , ( _ $P $ ) U ~ TTB:MTO , ( @ { @ T C @ ,W 0P , ( P > T C
0x37d380…37d514 (4, 28) Dummy {f00=0x0137, f01=0x0190, f02=» SETIMPR , ( A A L W @W T QTJOB F , ( P X T X P 4 Y V TIOERR 2 LKMQDI QUEDEV L , ( / C C 8W QUEFIL N T
0x37d514…37d6a8 Dummy {f00=0x0137, f01=0x0190, f02=» i @P U , ( XT ! X ! X P , , ( X T _l Xf Y @ P R , ( T X &P P H T _ X TTB:PW , ( I Y T # , (
0x37d6a8…37d83c Dummy {f00=0x0137, f01=0x0190, f02=» a$ W Y P R R P , ( } T P (@ (@ " 2 . , ( @ _ > X $? P $ > > ^ , ( , ( , ( F C F C >
0x37d83c…37d9d0 Dummy {f00=0x0137, f01=0x0190, f02=» P B P ~ , ( { 0$ T # R Q > , ( X B U H Q X D B N , ( $ T C x > C $ ) ~ DISENDA , ( _ X 9BV X & , ( @ X D C
0x37d9d0…37db64 Dummy {f00=0x0137, f01=0x0190, f02=» > P p (_H , ( y _2 B U X DC:MOT P , ( @ > ? _ X T (@ d DC:MIN@ , ( @ ^ > > ? _ X T , ( (@ X L U L Q M , (
0x37db64…37dcf8 Dummy {f00=0x0137, f01=0x0190, f02=» X T 4 Y X | , ( S 1 1 X P - M T , ( q $ P _ T " # L , ( p X L R P P P | , ( (@ ^ X P P # , ( P T P 0P 1
0x37dcf8…37de8c Dummy {f00=0x0137, f01=0x0190, f02=» N H D ! @ ! # % ' ) + W iP W P T T" V$ Pp Wb H D ! P^ T& RP P" WF W( T$ P T #P IW WP iP { P V H D ! T P. T& P P T T W4 EP YT ]P aW qP wR yP T H D ! P Q
0x37de8c…37e020 Dummy {f00=0x0137, f01=0x4048, f02=»PJ R P P P P8 P0 P P P W 2@ DPp Wb H D ! P^ T& RP P" WF W( T$ P T #P IW WP iP { P V H D ! T P. T& P P T T W4 EP YT ]P aW qP wR yP T H D ! P Q
0x37e020…37e1b4 (4, 29) Dummy {f00=0x0119, f01=0x0190, f02=» J F IDENT TIMER REL 10.0 80-03-14 870105041000 TIMER SETIME SETIMP R TIMER r TDISP FNDTIDC LKMRQE , ( $ T GETBLK@ LKMQDI
0x37e1b4…37e348 Dummy {f00=0x0119, f01=0x40ec, f02=» _ ? * & S ^ 4 _ ( TIMQUEA V , ( o @ 1 A _ P 9 > h > ( $ ~ T J : - 4 1 J 3 > P @ ETBLK@ LKMQDI
0x37e348…37e4dc Dummy {f00=0x0119, f01=0x0190, f02=» J F IDENT TMMLKM REL 10.0 80-03-14 870105041000 TCHPAGK TCHMMU TLUSEG R TCHPAGK t TTB:MT LKMQDI TCHMMU FNDTID , ( $' "?:B ] TLU
0x37e4dc…37e670 Dummy {f00=0x0119, f01=0x407a, f02=» ,$ T -_> | RELPAG Q - _H . P -U 3U IT H X d@ vPAGK t TTB:MT LKMQDI TCHMMU FNDTID , ( $' "?:B ] TLU
0x37e670…37e804 Dummy {f00=0x0119, f01=0x0190, f02=» J F IDENT TLDSEG REL 10.0 80-03-14 870105041000 TLDSEGK TLDS15 TLDS20 R TLDSEGK t TTB:SP SEG:NS LKM030 , ( B T R L U 9C TTB:SB SEG:D
0x37e804…37e998 Dummy {f00=0x0119, f01=0x4116, f02=»CTMMP SCTNPE , ( 5 D " @ @ - U SCTLAP P TTB:MT b TTB:CB@ t TTB:SA , ( M $ _ 9B @ T u g@ X > R U 'T 1W. KU l
0x37e998…37eb2c Dummy {f00=0x0119, f01=0x0190, f02=» J F IDENT TABORT REL 10.0 80-03-14 870105041000 TABORTK R TABORTK d FNDDWT x DWTTAB DWTST , ( "R P X T X R ? DWTECH DWTADR ABTAD
0x37eb2c…37ecc0 Dummy {f00=0x0119, f01=0x40a8, f02=» X H x LKMQDI LKMRQE * & " I P @ < ( $ RT PL TF R@ V )P 7P IP f @ , ( "R P X T X R ? DWTECH DWTADR ABTAD
0x37ecc0…37ee54 (4, 30) Dummy {f00=0x011a, f01=0x0190, f02=» J F IDENT MONTIM REL 10.0 80-03-14 870105041000 GETTIMK SETTIM R GETTIMK l MONCLO , ( @ < ? < ? <(@ $ , ( P B $ 9H C ">h # TTB:SA L
0x37ee54…37efe8 Dummy {f00=0x011a, f01=0x40b2, f02=»P ?_" = > = > = =_D , ( R _ 00 > & <h$ P ( > X ( $ P ?P eP s wP R P p @ $ , ( P B $ 9H C ">h # TTB:SA L
0x37efe8…37f17c Dummy {f00=0x011a, f01=0x018e, f02=» J F IDENT TOSSFM REL 10.0 80-03-14 870105041000 TOSSFMK FCHECK FCHEC2 R TOSSFMK t , ( " 2 P P P P P P FM:ADM TTABFM ACTDIS , ( ! T
0x37f17c…37f310 Dummy {f00=0x011a, f01=0x018e, f02=» EWTEXL , ( U T L L R Q EWTEXB J * & o U , , _D , ECBRL , ( V :a B # S EWTVOL FNDDWD DWTST , ( H
0x37f310…37f4a4 Dummy {f00=0x011a, f01=0x4180, f02=» FCHEC2 SCTNOF SCTFWT . , ( " _6 _6 " " P @ Q " @ FWTTAB0 p FWTPARL * & @ , Y ," P L $P T L $ &R :AV ' > _ H D ! P* P P" P P P !
0x37f4a4…37f638 Dummy {f00=0x011a, f01=0x0190, f02=» J F IDENT LKMAL REL 10.0 80-03-14 870105041000 LKMAL R LKMAL b bTIO t TWAIT TEXIT TACTOT TPAUSE TIMER TMWAIT TLUSEGC * & UT
0x37f638…37f7cc Dummy {f00=0x011a, f01=0x4082, f02=» * & H TCHMMUC 2 # D & & l@ ~ TWAIT TEXIT TACTOT TPAUSE TIMER TMWAIT TLUSEGC * & UT
0x37f7cc…37f960 Dummy {f00=0x011a, f01=0x0190, f02=» J F IDENT FMTASK REL 10.0 80-03-15 870105041000 F B FMRDWRK FM:ADM FMINIT TTABFM FWTPAR FWTFNR FWTTABL FWTEW1 R F B FWTEXB FWTVOL EWTEXL EWTEXB EWTVOL FPB:RLL FPB:BF0 FPB:FO F B FPB:BO FPB:FN FPB:EL FPB:V1B
0x37f960…37faf4 (4, 31) Dummy {f00=0x011b, f01=0x0190, f02=»:CD FPB:RP z FWTPAR FWTFNR ( FWTTABL < FWTEW1 P FWTVOL " d FWTEXB $ x EWTEXL EWTVOL EWTEXB FPB:RLL FPB:BF0 FPB:FO F
0x37faf4…37fc88 Dummy {f00=0x011b, f01=0x0190, f02=» FPB:V3 & FPB:S3 , FPB:V4 0 ( FPB:S4 6 < FPB:FR : P FPB:US > d FPB:SHL @ x FPB:MN A FPB:SNI B FPB:IF C FPB:KAV D FPB:CD F FPB:RP L T
0x37fc88…37fe1c Dummy {f00=0x011b, f01=0x0190, f02=»T SCTNOF TIODM FDBMECS , , ( > A @ @ > SCTFWL n , ( A @ R P % % DWTST DWTADRI * & @ I I I I DWTME
0x37fe1c…37ffb0 Dummy {f00=0x011b, f01=0x0190, f02=» 9 V 1 Y , NVLEND * NVLBITS < & " = P :A A > N FM:ADM x TTB:MTO ECBBA , ( f & T M F , ( @ h Px ' !
0x37ffb0…380144 Dummy {f00=0x011b, f01=0x018e, f02=» n FNDDWD , ( U W A " X* X2 " DWTNVLI P , ( u "(@ I $ V V " L b GETBLK * & P V : V V P , ( &W Y Y " V V T Y , (
0x380144…3802d8 Dummy {f00=0x011b, f01=0x018e, f02=» , ( + $ $P # ' P @T #? , ( K W #?$? : _2 J @" P Y 4 , ( k 9 @ J ! T " Y X & $ d ECBRC , ( ' ! P C ( , ( P J : J < W W P X V , (
0x3802d8…38046c Dummy {f00=0x011b, f01=0x0190, f02=» , ( % % Y Y V + V K V , ( E K : V K < V K A V % K C 4 , ( e V & K D X P K @ X 9AV K d , ( 9 !? K > F & G , ( R N ! , ( N P N
0x38046c…380600 Dummy {f00=0x011b, f01=0x0190, f02=» ,( B ( v TTB:SAR , ( P U . T . 8 ( FREBLKS X , ( 5 X>_. : X P 0(@ Y Y j , ( S Y :" "(@ X $ T ( DWTVOLR DFTAB DFTABE , ( o
0x380600…380794 (4, 32) Dummy {f00=0x0141, f01=0x0190, f02=» T X p ECBFC , ( " C : X V P _ : C , ( U : @ @ P , ( V )$ T B , * Y $ * & ! : & $ Y : @ , ( ? P 8 T _ &
0x380794…380928 Dummy {f00=0x0141, f01=0x4184, f02=» R* P P #V =P P< : P& P6 P H D !Ga T ) n /W 5W 9W = : E S z WW _ g P P W T B H D ! 9 P( T P P 1P, AP ET KW eP uT P P* H D ! G P V W Q : W W T
0x380928…380abc Dummy {f00=0x0141, f01=0x40fa, f02=» J F IDENT DFTAB REL 10.0 80-03-14 870105041000 $ DFTAB DFTABE DMTIDP DMTIDS R DFTAB z DFTABE DMTIDP DMTIDS @ PDMTIDP E
0x380abc…380c50 Dummy {f00=0x0141, f01=0x4128, f02=» J F IDENT PFTAB REL 10.0 80-03-14 870105041000 PFTAB R PFTAB b TWONN t SOPRN CHLTONA FDONN LPONN FMINIT & " UP
0x380c50…380de4 Dummy {f00=0x0141, f01=0x0190, f02=» J F IDENT DVKB00 REL 10.0 80-03-14 870105041000 DVKB00K R DVKB00K d KBAD3 x CTAB01 , ( KB DVDY00 , ( %@
0x380de4…380f78 Dummy {f00=0x0141, f01=0x4028, f02=» N - 0 / 0 @ $ REL 10.0 80-03-14 870105041000 DVKB00K R DVKB00K d KBAD3 x CTAB01 , ( KB DVDY00 , ( %@
0x380f78…38110c Dummy {f00=0x0141, f01=0x4104, f02=» J F IDENT DVDY00 REL 10.0 80-03-14 870105041000 DVDY00K R DVDY00K d DYADN x * & Y % P @ 8 , 8 @
0x38110c…3812a0 Dummy {f00=0x0141, f01=0x4100, f02=» J F IDENT DVGP01 REL 10.0 80-03-14 870105041000 DVGP01K R DVGP01K d GPADN x * & P % @ 4 ( 4 @ ECB ADD
0x3812a0…381434 (4, 33) Dummy {f00=0x0140, f01=0x4104, f02=» J F IDENT DVDY02 REL 10.0 80-03-14 870105041000 DVDY02K R DVDY02K d DYADN x * & Y % P @ 8 , 8 @
0x381434…3815c8 Dummy {f00=0x0140, f01=0x4100, f02=» J F IDENT DVGP03 REL 10.0 80-03-14 870105041000 DVGP03K R DVGP03K d GPADN x * & P % @ 4 ( 4 @ ECB ADD
0x3815c8…38175c Dummy {f00=0x0140, f01=0x0190, f02=» < F IDENT CTAB01 81-06-19/E,VRANG CTAB01K D CTAB01K V , ( 0123 j , ( ! 456789 , ( A ' < +,-. 0123456789 @ABC , ( a DEFGHI
0x38175c…3818f0 Dummy {f00=0x0140, f01=0x4030, f02=» < | | | @ ,6-19/E,VRANG CTAB01K D CTAB01K V , ( 0123 j , ( ! 456789 , ( A ' < +,-. 0123456789 @ABC , ( a DEFGHI
0x3818f0…381a84 Dummy {f00=0x0140, f01=0x0190, f02=» J F IDENT SYSBUG REL 10.0 80-03-14 870105041000 F B SCTMSZK SCTSFA SCTEFA SCTIPL SCTANO SCTADA SCTIOEL SCTPAG R F B SCTSWB SCTNOP SCTPSZ SCTMMC SCTLAC SCTMMPL SCTLAP0 SCTNPE F B SCTSTB SCTOPT SCTTCT SCTCDTB
0x381a84…381c18 Dummy {f00=0x0140, f01=0x0190, f02=»:PB PAG:QF PAG:QB PAG:PA PAG:SBS SWB:NC0 z SWB:DS SWB:ELV SWB:NS 4 SEG:FCL V SEG:NS j SEG:STI ~ SEG:DS SEG:ELV SEG:PB PAG:QF PAG:QB PAG:PA
0x381c18…381dac Dummy {f00=0x0140, f01=0x018e, f02=» IHRTC ILLINTM IHTWN " , ( 2 IHSOP b CHLT1 r IHFDN , ( , ( ! , ( 1
0x381dac…381f40 Dummy {f00=0x0140, f01=0x0190, f02=» , ( a , ( q 4 HALTN d t SCTMSZK SCTSFA SCTEFA SCTIPL SCTANO SCTADA , (
0x381f40…3820d4 (4, 34) Dummy {f00=0x0142, f01=0x0190, f02=» SCTNOP SCTPSZ SCTMMC 0 SCTLAC D SCTMMPL X SCTLAP0 l SCTNPE SCTSTB SCTOPT bBUG SCTBUG , (
0x3820d4…382268 Dummy {f00=0x0142, f01=0x408a, f02=» SCTDCT ^ _ > T t@ SCTSTB SCTOPT bBUG SCTBUG , (
0x382268…3823fc Dummy {f00=0x0142, f01=0x0190, f02=» > @ IDENT DEBUGM REL 10.0 80-03-14 870105041000 dBUG F |BUG T SCTLAC d , ( A U A @ , A v , ( A @ ~ A A ~ @ , ( ? A A @ A A @ , (
0x3823fc…382590 Dummy {f00=0x0142, f01=0x0190, f02=» x , ( , ( $ ( , 0 4 H , ( ! 8 < x , ( A , ( a , (
0x382590…382724 Dummy {f00=0x0142, f01=0x0190, f02=» h , ( A T :a R T <a Z _ = , ( :A , >a @ 8 , ( " ! A P UW B h , ( A @ = / M Q , ( a R S T Y G P H L , ( V I
0x382724…3828b8 Dummy {f00=0x0142, f01=0x0190, f02=» *T A _ P A A , ( . , + - ; : ( , ( ! X " H W X " H H X , ( A A A A _T @ P A 1+ , ( !T a X A _ @ A @ A _ , ( ! A UP
0x3828b8…382a4c Dummy {f00=0x0142, f01=0x0190, f02=» W W x , ( 0 _, W , ( ! ! W P @ & 0 H , ( A T A P P x , ( a _b _J A , ( "T @ W @ , (
0x382a4c…382be0 Dummy {f00=0x0142, f01=0x0190, f02=» h , ( _L W @ $ 0 , ( ! W " A W @ A 8 , ( A P 3P h , ( a C @ P @ @ P @ Q , ( A " @ A " T @ W @ , ( ( A
0x382be0…382d74 (4, 35) Dummy {f00=0x0122, f01=0x0190, f02=» $ @ @ @ P , ( ! $ @ A 9 Y ( , ( $ A (>a Y h c A A " X , ( P a $ A (<a P h A , ( @ ) " A H , ( U A @ $
0x382d74…382f08 Dummy {f00=0x0122, f01=0x0190, f02=» A " x , ( ! RE RN ME MN W R , ( A ( T ( W P T $ ; V H , ( a ; W &~ P &`P 6 P @ x , ( $ P $W $ T P , ( #~ > V . >A P Y X , (
0x382f08…38309c Dummy {f00=0x0122, f01=0x0190, f02=» h , ( ! ^ P _ " , ( @ A ^ T @ 9J A T _ 1@ 8 , ( a _ ^ 9 V >! D A h , ( A > > > > , ( > > > > ^ _ ^ _ ? ? ? ? , ( @ ? A
0x38309c…383230 Dummy {f00=0x0122, f01=0x0190, f02=» ? ? ? ? ? ? ? A > , ( J A A > A A ^ " ( , ( a , , A A :B A Q (P _ # X , ( # H A " A 0 , ( R 9U AR FQ 0:D A , ( _* A " A
0x383230…3833c4 Dummy {f00=0x0122, f01=0x0190, f02=» " A A x , ( A $ T ! " A @ , ( a T 0W 0W A @ T 1W H , ( 1 @ " P A UT @ W x $ T @ W T @ W @ " , ( @ D H L P T X ` d h l p t x | , (
0x3833c4…383558 Dummy {f00=0x0122, f01=0x0190, f02=» Y W W ?W /W : A W ! A A , ( y P _ @ _ 0 , ( I T " T ` , ( A P I T ! A A A A A A , ( A A @ A A @ , ( B A @ >
0x383558…3836ec Dummy {f00=0x0122, f01=0x0190, f02=» 6 @ A P A < V A @ y H D ! & % 1 5 A E Q U a e q u 4 H D ! } P h L R h h : F ! ) P /P 3W 9 h H D ! = L A E Z G N K Q U Y ] a e i m q
0x3836ec…383880 Dummy {f00=0x0122, f01=0x0190, f02=» S YP k p P p d H D ! T P T W 4 W Z W P F b H D ! W !W )PP ; b A GT K QP U f [ h _ . g Z k F q : w h 8 l H D ! P T W T W P F F 8 F F H D ! x
0x383880…383a14 (4, 36) Dummy {f00=0x0124, f01=0x0190, f02=» ^ P H D !o P ^ Z P ' Z 5 8 ; X S n a Z k { 8 n Z T H D !< P@ PB p p Z " T ?R, ET IW ST [V kW~ sP wP {P X H D ! / P W TR PJ V P W P W P & W $ H D !% W 3P 9 h IT UT
0x383a14…383ba8 Dummy {f00=0x0124, f01=0x4152, f02=» T 6 R U h # 4 + : / 4 9 P = T C X GT H D ! 4 [ _ 8 aT eW i mW q u 8 wT {W P& T W D H D !JP T W T W ?R EW" K h OW U h YW ]W aW eW H D ! @ k oW u yPL } T T P T$
0x383ba8…383d3c Dummy {f00=0x0124, f01=0x0190, f02=» J F IDENT DRFD01 REL 10.0 80-04-29 870105041000 FDADR IHFDY FDONY DWFD01 R FDADR v NVLCHK , ( 9 ! ! T DWTORD DWTOR VOLNAM , ( H
0x383d3c…383ed0 Dummy {f00=0x0124, f01=0x0190, f02=» A. p SETIMPT TDISP " , ( m Y W L 2 , ( Y X Y ! X P P b DISIOEL * & P P R P X DISEND ECBRL , (
0x383ed0…384064 Dummy {f00=0x0124, f01=0x018e, f02=» B Y " v , ( "0 Y V Y Y , ( ; Y X X T V X R # ;b9B F , ( [ Y Y ) Y X v , ( y !? P P P P ! , ( X P _ X x ^ , (
0x384064…3841f8 Dummy {f00=0x0124, f01=0x0190, f02=» f , ( P P ! # T X P , ( 9@ X &P ! ! B R Q 8 , ( U :C P ! 9DV + ! (@ B h , ( s ! ! ! ! ! , ( ! ( ! ! 9 X Y DWTSB2 ,
0x3841f8…38438c Dummy {f00=0x0124, f01=0x0190, f02=» j , ( ! 1 ! * ! ! ! ) , ( 1 ! # X Y _ P P ! : , ( Q P @ 9 4 ! P j , ( oB X 1P B +P T , ( ( C Q V ! ! DWTTAB
0x38438c…384520 Dummy {f00=0x0124, f01=0x0190, f02=» @ C Q (Q _ X , ( H X D x ^ ! 0 ECBEL ` , ( ! ! P @ 9 ! T ) p , ( 7D C "W ! ( - ! PFPOST , ( S ) W W Y Y Y Y
0x384520…3846b4 (4, 37) Dummy {f00=0x0136, f01=0x0190, f02=» , ( $ Y W 8 & FDONY 4 DWTA2 F , ( @ Y (_ ? Y ( Y * X P V , ( @ y _* _: Y , ( @ Y Y L Y ! VOLCLR , ( ! ^
0x3846b4…384848 Dummy {f00=0x0136, f01=0x0190, f02=» 0B. X P Y : ! ! ^ , ( X # P Y :A , X A Y & DWTECB V , ( "@ @ B. Y * . Y X h , ( Y C "'? 8 X * IHFDY INTSAVN , ( Y (_ A 0
0x384848…3849dc Dummy {f00=0x0136, f01=0x0190, f02=»:AZl X P Y ! P | , ( W + 7P $ P + < , ( w $ <C ! 9 9 4 X 9C X L , ( : X X 4 B :C | , ( 4 $ ! ^# T @ TOT @ , ( SST X Y W 0 !
0x3849dc…384b70 Dummy {f00=0x0136, f01=0x0190, f02=» 1 X W (@ 0! D 4 1 Y TEBCDIR 0 * & O W X T X W (@ 0! D B , ( m 6 1 Y 4 ! ;E :B 9A p , ( ! U P jW k , ( Q 4 9 0" Z , (
0x384b70…384d04 Dummy {f00=0x0136, f01=0x0190, f02=» ) 4 ! " ) 4 DWFD01 < , ( = 4 , ( ] d , ( } , ( , (
0x384d04…384e98 Dummy {f00=0x0136, f01=0x0190, f02=» P P& P R P T )V H D ! 5 9 = A E GT KV" O QR _ e q }PZ P PR P D H D ! P 8 P P Z P W@ P 8 H D !DR ^ P * P 8
0x384e98…38502c Dummy {f00=0x0136, f01=0x0190, f02=» d 0 P ^ 8 PR t H D ! ^ B R # Z ' B + 3 ^ ; ? P GP MP 0 H D ! Q UP e i mP uP PV T Q V8 ^ 6 8 t | H D ! " WX W l " QR Q 8 Z #P + 1T ;W
0x38502c…3851c0 Dummy {f00=0x0136, f01=0x0190, f02=» P L L L ` H D !$ F )P 1W 5 S F [ R ]P c R q T } P P H D ! P P T T J < V X P0 T Z T ? H I J KP O J h H D ! UP ]P, iP 8 8 T` X T Z T N H D ! 8
0x3851c0…385354 (4, 38) Dummy {f00=0x0138, f01=0x403a, f02=» L 8 d " O $@ 6
0x385354…3854e8 Dummy {f00=0x0138, f01=0x2008, f02=» L = KMD09 DATE = 810326 6876PACK NBR = 0001 ?
0x3854e8…38567c Dummy {f00=0x0138, f01=0x0190, f02=»,A6 P RF(E) RED110 CLEAR P EJECT ( P* 6 P* @ ( P* CHARACTER NOT FOUND IN KEYTABLE J P* v P* P* $ PRED090 LDR A4,A2 COPY CHARACTER P ANK A4,/FF MASK P LDR A1,A7 P SUK A1,1 P RF(Z) RED100 OR
0x38567c…385810 Dummy {f00=0x0138, f01=0x0190, f02=»F RED110 P* P* PRED100 SUK A4,/20 $ P RF(N) CODERR LESS THAN /20 > P SUK A4,/3F b $ P RF(NP) RED110 CORRECT CHARACTER v P* P* $ PCODERR LDK A1,4 CODE CHECK ERROR P ORS A1,8,A8 . P CF A5,STORE STORE CHARACT
0x385810…3859a4 Dummy {f00=0x0138, f01=0x0190, f02=»,TWBSP,A6 P RF(E) RED120 BACKSPACE P CC A2,TWCLR,A6 2 P RB(NE) RED035 J P* ` P* j P LDK A3,0 CLEAR ECB-BUFFER t " P RB RED020 GET NEXT CHARACTER P* P* PRED120 SUK A3,1 BACKSPACE & P RB(NN) RED020 GET NEX
0x3859a4…385b38 Dummy {f00=0x0138, f01=0x0190, f02=» P* W R I T E P* 4 P* ORDERS 05 AND 06: BASIC AND STANDARD WRITE $ P* P* f PWRITE EQU * p PTWAOUT EQU * P INH P LDK A4,0 P LDK A2,0 $ P CF A5,STRTIO EXECUTE CIO-START P* P* P CWK
0x385b38…385ccc Dummy {f00=0x0138, f01=0x0190, f02=» P ANK A3,/FF P SUK A3,/2B P RF(Z) WRT030 NO CR OR LF , P* N P* X , P ST A4,DWTHP,A6 HEAD POSITION INDICATOR b P LDK A4,2 $ P LDK A2,CR SEND CARRIAGE RETURN P EJECT P* P* P* $ PWRT010 CF A5,OTR
0x385ccc…385e60 Dummy {f00=0x0138, f01=0x0190, f02=» PWRT020 SUK A3,5 P RB(Z) WRT015 SEND SECOND LF P SUK A3,1 D P RF(NZ) WRT030 V P LDK A2,/0C SEND FORM FEED n P RB WRT010 " PWRT030 LDK A3,2 BUFFER POINTER P RF WRT050 GET CHARACTER P* P* P* PWR
0x385e60…385ff4 (4, 39) Dummy {f00=0x0145, f01=0x0000, f02=»
[…0xf…]
0x3877a0…387934 (4, 41) Dummy {f00=0x013b, f01=0x0190, f02=»080 BUFFER IN SYSTEM AREA % & P LDKL A4,BUF DRIVER BUFFER ADDRESS & " 0 P CM BUFFLG,A6 INDICATE BUFFER IN SYSTEM AREA & L P XIF & P* & P IFT MMUPAG=1 & P IFT IBM=1 & P IFT TOSS+CHAN=0 & & P LDKL A4,BUF DRIVER BUFFER ADDRESS & 0 P CM BUFF
0x387934…387ac8 Dummy {f00=0x013b, f01=0x0190, f02=»OSS+IBM=2 & P LD A1,DWTFIB,A6 ' P RF(Z) FD:090 NOT IBM ' * P XIF ' H P* ' T P IFT IBM=1 ' ^ P IFT MMUPAG=0 ' p ( P LD A4,DWTBA,A6 ASCII OUTPUT ADDRESS ' P XIF ' P* ' P IFT IBM=1 ' P LD A7,DWTRL,A6 REQ. LEN ' P CF A5,ASCII '
0x387ac8…387c5c Dummy {f00=0x013b, f01=0x0190, f02=»FT TOSS+IBM=2 ' P LD A1,DWTFIB,A6 ( P RF(Z) FD:100 TOSS DISC ( . P XIF ( N P* ( Z P IFT MMUPAG=1 ( d P IFF CHAN+IBM=0 ( z 4 P LD A2,DWT:LA,A6 GET FLAG/LOGICAL BUFFER ADDRESS ( ( P RF(Z) FD:100 BUFFER IN SYSTEM AREA ( $ P LD A7,DWTRL,A6 RE
0x387c5c…387df0 Dummy {f00=0x013b, f01=0x018e, f02=»U TABLE ( t 2 P MVSU A7 MOVE BUFFER FROM SYSTEM TO USER AREA ) & P TL -30,A15 RESTORE MMU FROM STACK ) F P XIF ) p PFD:100 EQU * ) | P ABL FDMSIO ) P* ) P EJECT DRFD01 ) P* ) P******** ) P* * ) P* LOAD * ) P* *
0x387df0…387f84 Dummy {f00=0x013b, f01=0x0190, f02=» P RF(Z) LOAD00 LOAD ORDER * P ADK A3,17 * $ $ P RB(NZ) RQ:ERR ERROR IF NOT LOCK * 6 P* * ^ PLOAD00 EQU * * h P LDK A2,/14 LOCK * | P CF A5,FD:REA * P ANK A3,1 * & P RF(NZ) LOA:80 ENDIO NOT OPERABLE * P* * P IFT TOSS+IBM=2 * P
0x387f84…388118 Dummy {f00=0x013b, f01=0x0190, f02=» A3,/26 * P RF(Z) LOA:65 LOCK ORDER + P CF A5,VO:NAM + 0 " P CF A5,LD:RC CHECK RETURN CODE + F P EJECT DRFD01 + l P* + P* READ DATA SET LABEL + P* + P LD A2,ECBCW2,A8 SECTOR NO + P SUK A2,7 + P RF(N) LOA:85 REQUEST ERROR +
0x388118…3882ac Dummy {f00=0x013b, f01=0x0190, f02=»UF + P CF A5,FD:REA , P SLL A1,4 CHECK NO DATA BIT , P RF(NN) LOA:60 NOT NO DATA , D 0 P ORK A3,/10 INDICATE ILLEGAL DATA SET LABEL , f PLOA:60 EQU * , P CF A5,LD:RC , P ENB , * P LD A3,ECBCW2,A8 DATA SET LABEL SECTOR , P LDK A1,DWTD
0x3882ac…388440 Dummy {f00=0x013b, f01=0x0190, f02=»OE , $ P CF A5,STDWT STORE BOE NO IN DWT - P SUK A3,1 CRN - 2 P LDK A1,DWTCRN - H P CF A5,STDWT - ^ P ADK A4,EOE-BOE EOE ADDRESS - r P CF A5,LOGSEC - P LDK A1,DWTEOE - $ P CF A5,STDWT STORE EOE NO IN DWT - P ADK A4,EOD-EOE EOD ADDRESS -
0x388440…3885d4 (4, 42) Dummy {f00=0x013d, f01=0x0190, f02=»NB e P ADR A4,A7 f PASC:10 EQU * f P SUK A4,1 f 0 P LCR A1,A4 EBCDIC CHARACTER f B P ANK A1,/FF f f ( P LC A1,TASCII,A1 TRANSFORM TO ASCII f z 0 P SCR A1,A4 PUT ASCII CHAR. IN OUTPUT BUFFER f P SUK A7,1 f P RB(P) ASC:10 f P RF EB
0x3885d4…388768 Dummy {f00=0x013d, f01=0x0190, f02=»CDIC TRANSFORMES A STRING FROM ASCII TO f P* EBCDIC CODE g 0 8 P* OUTPUT STRING IS PUT IN DRIVER BUFFER g R P* g & P* INPUT: A7 NO OF CHARACTERS g P* A4 = BUFFER ADDRESS g P* g P* OUTPUT: A1 CHANGED
0x388768…3888fc Dummy {f00=0x013d, f01=0x0190, f02=»A4,BUF DRIVER BUFFER ADDRESS g P XIF h $ P* h 0 P IFT IBM=1 h : P ADR A4,A7 h L PEBC:10 EQU * h ^ P SUK A4,1 h r P LCR A1,A4 GET ASCII CHAR. h P ANK A1,/FF h P LC A1,TEBCDIC,A1 h P SC A1,BUF-1,A7 h P SUK A7,1 h P RB(P) EBC
0x3888fc…388a90 Dummy {f00=0x013d, f01=0x0190, f02=»CT DRFD01 h P* i P********** i P* LOGSEC * i 0 P********* i B P* i T @ P* FUNCTION: LOGSEC TRANSFORMS PHYSICAL SECTOR TO STANDARD i ^ , P* LOGICAL SECTOR (BINARY). i < P* FORMAT OF PHYS. SEC. TT0SS (EBCDIC COD
0x388a90…388c24 Dummy {f00=0x013d, f01=0x0190, f02=» A3 BINARY SECTOR NO i . P* A4 ADDRESS TO PHYS. SEC. + 4 j P* j P PLOGSEC EQU * j Z P CF A5,DECBIN j n P LDR A3,A1 SAVE j P ADK A4,2 j P* j P* MULTIPLY BY 26 j P* j P SLL A3,5 *32 j P LDR A2,A1 j P SLL
0x388c24…388db8 Dummy {f00=0x013d, f01=0x0190, f02=» j P EJECT DRFD01 k P* k P* CHECK SECTOR NO k * P* k D P LDR A1,A3 k N P SUK A1,25 k ` P RF(NP) LOG:10 k r P CWK A4,BUF+EOD+4 EOD k P RF(E) LOG:02 YES! k P SUKL A1,1898 k P RF LOG:04 k P* k " P* CHECK EOD LESS/EQUA
0x388db8…388f4c Dummy {f00=0x013d, f01=0x0190, f02=»OINTER k x P RTN A5 l P* l P* FATAL ERROR l ( P* l > ( PLOG:05 ADK A5,4 ADJUST STACK POINTER l H " PLOG:10 LDK A1,/10 RETURN CODE l t , P ORRS A1,A6 UPDATE TEMPORARY RETURN CODE l P INH INHIBIT INTERRUPTS l P ABL LOA:90 ERROR ROUTINE l
0x388f4c…3890e0 Dummy {f00=0x013d, f01=0x0190, f02=»NSFORMS TWO EBCDIC CODED DIGITS TO l x D P* BINARY. RANGE OF EBCDIC CODE /F0 - /F9 IS CHECKED m * , P* INPUT: A4 ADDRESS TO FIRST DIGIT m r P* OUTPUT: A1 BINARY m P* WORKING REG: A2,A7 m P* m PDECBIN LDK A1,0 m P LDK A
0x3890e0…389274 (4, 43) Dummy {f00=0x0146, f01=0x0000, f02=»
[…0x7…]
0x389d80…389f14 (4, 44) Dummy {f00=0x0147, f01=0x0000, f02=»
[…0x7…]
0x38aa20…38abb4 (4, 45) Dummy {f00=0x0148, f01=0x0000, f02=»
[…0x18…]
0x38d194…38d328 Dummy {f00=0x0148, f01=0x0002, f02=»)
0x38d328…38d4bc Dummy {f00=0x0148, f01=0x0190, f02=» J F IDENT TLDSEG REL 10.0 80-03-14 870105041000 TLDSEGK TLDS15 TLDS20 R TLDSEGK t TTB:SP SEG:NS LKM030 , ( B T R L U 9C TTB:SB SEG:D
0x38d4bc…38d650 Dummy {f00=0x0148, f01=0x4116, f02=»CTMMP SCTNPE , ( 5 D " @ @ - U SCTLAP P TTB:MT b TTB:CB@ t TTB:SA , ( M $ _ 9B @ T u g@ X > R U 'T 1W. KU l
0x38d650…38d7e4 Dummy {f00=0x0148, f01=0x2008, f02=»
0x38d7e4…38d978 Dummy {f00=0x0148, f01=0x0000, f02=»
[…0x2…]
0x38dca0…38de34 (4, 49) Dummy {f00=0x0149, f01=0x0000, f02=»
[…0x7…]
0x38e940…38ead4 (4, 50) Dummy {f00=0x014a, f01=0x0000, f02=»
[…0x7…]
0x38f5e0…38f774 (4, 51) Dummy {f00=0x0146, f01=0x018e, f02=» CODE x P LD A1,DWTST,A6 DWT STATUS , P ABL(NN) QUEDEV DISC BUSY, QUEUE REQUEST 0 P* ` P IFT MMUPAG=0 j . P ST A12,ECBCW1,A8 SET SECTOR NUMBER IN ECB P ST A13,ECBCW2,A8 P XIF P* P IFT MMUPAG=1 . P ES A12,ECBCW1,A
0x38f774…38f908 Dummy {f00=0x0146, f01=0x0190, f02=» EJECT TOSSFM * 6 2* OVERFLOW CORRECTIONS FOR DOUBLE WORD ARITHMETICS & * ` FM:140 EQU * j P IFT CPU852=1 ~ ADK A1,1 P ANR A2,A14 SKIP SIGN BIT P RB FM:110 P XIF * FM:150 EQU * ADK
0x38f908…38fa9c Dummy {f00=0x0146, f01=0x0190, f02=»BIT z P RB FM:125 * EJECT TOSSFM ( P* @ 0 P* REQUESTED SECTORS CONTINUE IN NEXT EXTENT J P* ~ PFM:170 EQU * IFT XTSPLI=1 & P LDR A1,A4 EWT ADDRESS (2ND BLOCK) $ LDKL A2,FMRDWR DISPATCH ADDRESS ****
0x38fa9c…38fc30 Dummy {f00=0x0146, f01=0x0190, f02=»** P* FCHECK * P* FCHEC2 * P********** . P* @ P* J 6 P* FCHECK/FCHEC2 CONVERTS THE FILE NUMBER TO FWT T . P* ADDRESS AND CHECKS ACCESS PARAMETERS. P* " P* INPUT: A5 = TTAB ADDRESS P* A7 = ORDER C
0x38fc30…38fdc4 Dummy {f00=0x0146, f01=0x0190, f02=»* A2 IS DESTROYED P* " PFCHECK EQU * FCHECK MAIN ENTRY & P IFT MMUPAG=0 L P LDR* A2,A8 FILE NUMBER b P XIF P* P IFT MMUPAG=1 P ELR A2,A8 FILE NUMBER P XIF P* 4 PFCHEC2 EQU * FCHECK 2ND ENTRY (A2 = FI
0x38fdc4…38ff58 Dummy {f00=0x0146, f01=0x0190, f02=»UMBER TOO BIG | 0 P LDKL A3,SCTFWT ADDRESS TO FWT CHAIN POINTER P* J P EJECT TOSSFM T P* l P* v $ PFC:010 EQU * COMPUTE FWT ADDRESS P LDR* A3,A3 NEXT FWT ADDRESS P SUK A2,1 P RB(P) FC:010 P* P* CHECK AC
0x38ff58…3900ec Dummy {f00=0x0146, f01=0x0190, f02=»1 CHECK IF FWT USED " P RF(Z) FC:050 FILE NOT OPENED , P LD A2,FWTTAB,A3 TTAB ADDRESS (EA TASK) B ( P RF(Z) FC:020 OPENED NON-EXCLUSIVELY r & P CWR A2,A5 EA, CHECK IF THIS TASK . P RF(NE) FC:060 EXCLUSIVE FOR ANOTHER TASK P* PFC:0
0x3900ec…390280 Dummy {f00=0x0146, f01=0x0190, f02=»CAL ORDERS | P ANK A7,/85 BASIC ORDER P* 2 , PFC:040 EQU * COMMON FCHECK RETURN LABEL < P RTN A15 l P* | P EJECT TOSSFM P* P* ERROR RETURNS P* $ PFC:050 EQU * REQUEST ERROR EXIT & P LDKL A1,/7FC0 RETURN
0x390280…390414 (4, 52) Dummy {f00=0x0151, f01=0x0000, f02=»
[…0xf…]
0x391bc0…391d54 (4, 54) Dummy {f00=0x0107, f01=0x0190, f02=»NUMBER (S-FILE) v " PVTC:SN EQU 9 SOP SWITCH NUMBER $ PVTC:EN EQU 10 FILE EXTENT NUMBER > $ PVTC:EL EQU 12 FILE EXTENT LENGTH f " PVTC:EB EQU 16 FILE EXTENT BASE $ PVTC:LR EQU 20 LAST RECORD NUMBER PVTC:RL EQU 24 RECORD LENGTH PVTC:BF E
0x391d54…391ee8 Dummy {f00=0x0107, f01=0x0190, f02=» ( PVTC:IF EQU 37 NUMBER OF INDEX FILES ( PVTC:KA EQU 38 KEY ADDRESS IN RECORD 0 PVTC:ST EQU 41 STATUS BYTE P* ~ P EJECT FMTASK P* P* P********************* P* FWT DISPLACEMENTS * P*********************
0x391ee8…39207c Dummy {f00=0x0107, f01=0x0190, f02=»TBAS EQU FWTLNK+/10 P XIF P* ( P IFT MMUPAG=1 2 PFWTBAS EQU FWTLNK+/14 H P XIF f P* r < PFWTVTC EQU FWTBAS+/00 VTOC SECTOR NUMBER (FIRST EXTENT) | 0 PFWTPAR EQU FWTBAS+/02 FILE ACCESS PARAMETERS & PFWTFNR EQU FWTBAS+/03 FI
0x39207c…392210 Dummy {f00=0x0107, f01=0x0190, f02=»T 4 PFWTSEX EQU FWTBAS+/08 FILE SECTION/EXTENT NUMBER B PFWTEXL EQU FWTBAS+/0A EXTENT LENGTH IN SECTORS (FIRST EXTENT) B 8 PFWTEW2 EQU FWTBAS+/0C POINTER TO NEXT EWT STRUCTURE : PFWTVOL EQU FWTBAS+/0E VOLUME FILE CODE (FIRST EXTENT) 4 PFWTEXB
0x392210…3923a4 Dummy {f00=0x0107, f01=0x0190, f02=» P********************* P* EWT DISPLACEMENTS * & P********************* D P* b & P* EXTENT WORK TABLE DISPLACEMENTS l P* $ PEWTLNK EQU 0 LINK NEXT EWT BLOCK P* P* BLOCK 1 P* , PEWTSEX EQU 2 FILE SECTION/
0x3923a4…392538 Dummy {f00=0x0107, f01=0x0190, f02=» r PEWTEXB EQU 4 EXTENT BASE P* ( 0 PEWTLEN EQU 6 EXTENT WORK TABLE BLOCK LENGTH 2 P* f EJECT FMTASK p * * ********************* * FPB DISPLACEMENTS * ********************* * ( $* FILE P
0x392538…3926cc Dummy {f00=0x0107, f01=0x018e, f02=»NIZATION z FPB:BO EQU 5 BASIC ORDERS FPB:FN EQU 8 FILE NAME 2 FPB:EL EQU 17 ENLARGE P FPB:V1 EQU 18 VOLUME NAME 1 n FPB:S1 EQU 24 SIZE 1 FPB:V2 EQU 28 VOLUME NAME 2 FPB:S2 EQU 34 SIZE 2 FPB:V3 EQU 38 VOLUME NAME
0x3926cc…392860 Dummy {f00=0x0107, f01=0x0190, f02=» n " FPB:US EQU 62 NUMBER OF USERS FPB:SH EQU 64 SHAREABILITY . FPB:MN EQU 65 MONITOR NUMBER P $ FPB:SN EQU 66 SOP SWITCH NUMBER t ( #FPB:IF EQU 67 NUMBER OF INDEX FILES ( #FPB:KA EQU 68 KEY ADDRESS IN RECORD PFPB:CD EQU 70 CREATI
0x392860…3929f4 (4, 55) Dummy {f00=0x0127, f01=0x0000, f02=»
0x3929f4…392b88 Dummy {f00=0x0127, f01=0x0006, f02=»$ $ $
0x392b88…392d1c Dummy {f00=0x0127, f01=0x0190, f02=» 2 P IDENT SYSTAB REL 10.0 80-03-14 870105041000 P : P* B P* L 8 P*************************************************** V P* $ P* PHILIPS TERMINAL SYSTEM PTS P* 2 P* SYSTAB = INTERRUPT VECTORS, SYSTEM CONTROL 2 P*
0x392d1c…392eb0 Dummy {f00=0x0127, f01=0x018e, f02=»*************** l P* P* " P EJECT SYSTAB , P* D P* N P*********** X P* ENTRIES * l P*********** P* P* 4 P ENTRY SCTMSZ,SCTSFA,SCTEFA SYSTEM CONTROL TABLE P ENTRY SCTIPL P ENTRY SCTANO,SCTA
0x392eb0…393044 Dummy {f00=0x0127, f01=0x0190, f02=» P ENTRY SCTSTB P ENTRY SCTOPT P ENTRY SCTTCT,SCTCDT 0 P ENTRY SCTBUG L & P ENTRY SCTDMT,SCTDMI,SCTFWT,SCTNOF b & P ENTRY SCTNFT,SCTFWL,SCTBLK,SCTDCT P ENTRY SEG:FC,SEG:NS & P ENTRY SEG:ST,SEG:DS,SEG:EL,SEG:PB & P ENTRY PAG:Q
0x393044…3931d8 Dummy {f00=0x0127, f01=0x0190, f02=»* P* EXTERNALS * P************* P* 6 P* @ P EXTRN TDISP J , P EXTRN IHPFAR POWER FAIL / AUTO RESTART ^ P EXTRN IHLKM LKM INTERRUPT P EXTRN IHRTC REAL TIME CLOCK P EXTRN IHTW TYPEWRITER P EXTRN IHTC CASSETTE T
0x3931d8…39336c Dummy {f00=0x0127, f01=0x0190, f02=» NO. 1 p * P EXTRN CHRT2 REMOTE CHANNEL UNIT NO. 2 P EXTRN CHRT3 < P EXTRN CHRT4 P ( P EXTRN IHCC1 CASSETTE CHANGER NO. 1 d ( P EXTRN IHCC2 2 ( P EXTRN IHCC3 3 * P EXTRN CHLT1 LOCAL CHANNEL UNIT
0x39336c…393500 Dummy {f00=0x0127, f01=0x018e, f02=» M) DISC l P EXTRN IHLP LINE PRINTER P EXTRN IHCR CARD-READER 0 ( P EXTRN IHDU1,IHDU2 DISC UNIT NO. 1/2 P 0 P EXTRN IHMD,IASCUZ,ISLCI,ISLCO MINI FIX DISC | P EXTRN IHMT MAG. TAPE $ P EXTRN ILLINT ILLEGAL INTERRUPT P EXTRN HALT HALT R
0x393500…393694 (4, 56) Dummy {f00=0x0127, f01=0x0190, f02=» P* PSEG:FC EQU -4 FILE CODE $ PSEG:NS EQU -2 NUMBER OF SEGMENTS . PSEG:ST EQU 0 STATUS V $ PSEG:DS EQU 2 DISC SECTOR ADDRESS r " PSEG:EL EQU 4 EFFECTIVE LENGTH $ PSEG:PB EQU 6 PAGE BLOCK ADDRESS P* & PPAG:QF EQU 0 QUEUE POI
0x393694…393828 Dummy {f00=0x0127, f01=0x018e, f02=» P* 2 PSWB:NC EQU 0 NUMBER OF COPIES WITHIN SWB TYPE 2 PSWB:DS EQU 2 DISC SECTOR ADDRESS OF FIRST COPY D $ PSWB:EL EQU 4 SWB LENGTH (BYTES) z & PSWB:NS EQU 6 SWB LENGTH (SECTORS) P* P P P P P EJECT SYSTAB
0x393828…3939bc Dummy {f00=0x0127, f01=0x0190, f02=» P DATA ILLINT 3 P DATA ILLINT 4 P DATA ILLINT 5 < P DATA ILLINT 6 X P DATA IHTW 7 t P DATA IHTC 8 P DATA IHSOP 9 P DATA ILLINT 10 P DATA ILLINT 11 P DATA ILLINT
0x3939bc…393b50 Dummy {f00=0x0127, f01=0x0190, f02=»2 17 P DATA CHRT3 18 P DATA CHRT4 19 . P DATA IHCC1 20 J P DATA IHCC2 21 f P DATA ILLINT 22 P DATA IHCC3 23 P DATA CHLT1 24 P DATA CHLT2 25 P DATA CHLT3 26
0x393b50…393ce4 Dummy {f00=0x0127, f01=0x0190, f02=» | P DATA ILLINT 32 P DATA ILLINT 33 $ P DATA IHLP 34 @ P DATA IHCR 35 Z P DATA ILLINT 36 t P DATA ILLINT 37 P DATA ILLINT 38 P DATA ILLINT 39 P DATA IHDU1 40 P DATA IH
0x393ce4…393e78 Dummy {f00=0x0127, f01=0x0190, f02=»ILLINT 46 P DATA ILLINT 47 P DATA IHCD 48 2 P DATA ILLINT 49 L P DATA ILLINT 50 h P DATA ILLINT 51 P DATA ILLINT 52 P DATA ILLINT 53 P DATA ILLINT 54 P DATA ILLINT 55
0x393e78…39400c Dummy {f00=0x0127, f01=0x0190, f02=» 60 P DATA ILLINT 61 P DATA ILLINT 62 ( P DATA TRAP TRAP ROUTINE D P EJECT SYSTAB d P | P* " P* SYSTEM CONTROL TABLE POINTER P* P DATA SCT P P P* P* SYSTEM TRAP P*
0x39400c…3941a0 Dummy {f00=0x0127, f01=0x0190, f02=»,A13 P XRR A14,A14 P LD A1,SCTBUG P ABR(NZ) A1 6 P HLT J P* V P EJECT SYSTAB ` P* x P* PX:A EQU 0 MONITOR OPTION ( PX:B EQU 0 DATA MAN .TASKS IN SYSTEM * PX:C EQU 0 DM INDEX RECORD BUFFER SIZE $ PX:
0x3941a0…394334 (4, 57) Dummy {f00=0x0136, f01=0x0190, f02=»B,A6 % P RTN A5 RETURN VIA A5-STACK & P EJECT & 0 P* & > P* & H P* G E T C H R & R P* & j 8 P* SUBROUTINE TO GET ONE CHARACTER FROM ECB-BUFFER & t P* & P* ON ENTRY: & P* & P* A3 = BUFFER INDEX & P* A8 = ECB-AD
0x394334…3944c8 Dummy {f00=0x0136, f01=0x0190, f02=» J P* IF LAST CHARACTER IS REACHED A3 IS STORED IN ECB EFFECTIVE LENGTH ' P* ' R P* ' PGETCHR EQU * ' f P LD A1,4,A8 REQUESTED LENGTH ' z P SUR A1,A3 ' * P RF(NP) GCH010 LAST CHARACTER REACHED ' " P LD A1,2,A8 GET BUFFER ADDRESS ' P ADR
0x3944c8…39465c Dummy {f00=0x0136, f01=0x0190, f02=»8 STORE EFFECTIVE LENGTH ' P RTN A5 ( P EJECT ( 0 P* ( > ( P* DEVICE WORK TABLE FOR TYPEWRITER ( H P* ( t P* ( ~ PDWTW01 EQU * TABLE ENTRY ( " P DATA /0010 CHANNEL PARAMETER ( 0 P DATA /8000 STATUS./8000 MEANS DEVICE READY ( P DATA
0x39465c…3947f0 Dummy {f00=0x0136, f01=0x0190, f02=»E INDICATOR ( | P DATA 0 TERMINAL QUEUE ) IFT MMUPAG=1 ) 2 & " DATA 0 SAVE AREA USER ECB ADDRESS ) H DATA DEVECB MMU ECB ADDRESS ) r XIF ) P DATA 0 OUTPUT QUEUE LINK ) P DATA 0 SAVE AREA FOR A3 ) P DATA 0 SAVE AREA FOR A4 ) P DAT
0x3947f0…394984 Dummy {f00=0x0136, f01=0x018e, f02=»CKSPACE KEY ) x P RIGHT BYTE CANCEL KEY * & P DATA /0D00 LEFT BYTE STANDARD EOR * 4 P RIGHT BYTE DOUBLE ZERO * ^ " P DATA 0 HEAD POSITION POINETR * P DATA 0 SAVE AREA FOR A2 * P* * P EJECT DRTW01 * P* * P* * P IFT MMUPAG=
0x394984…394b18 Dummy {f00=0x0136, f01=0x403e, f02=» P XIF + P* + P* + P* + $ P END + .@ + :0 LEFT BYTE STANDARD EOR * 4 P RIGHT BYTE DOUBLE ZERO * ^ " P DATA 0 HEAD POSITION POINETR * P DATA 0 SAVE AREA FOR A2 * P* * P EJECT DRTW01 * P* * P* * P IFT MMUPAG=
0x394b18…394cac Dummy {f00=0x0136, f01=0x2008, f02=» ,
0x394cac…394e40 Dummy {f00=0x0136, 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
0x394e40…394fd4 (4, 58) Dummy {f00=0x014b, f01=0x0190, f02=»2,FPBLEN FPB AREA LENGTH E P* F " PFMR:00 EQU * F , P CMR A1 F @ P ADK A1,2 F P P SUK A2,2 F b P RB(P) FMR:00 F t P* F P EJECT FMTASK F P* F P* F P LDR A1,A10 FPB ADDRESS F " P ADK A1,FPB:V2 2ND VOLUME NAME F & P L
0x394fd4…395168 Dummy {f00=0x014b, f01=0x018e, f02=»NTER, INNER LOOP F ~ P* G " PFMR:04 EQU * INNER LOOP ENTRY G " * P STR A4,A1 MOVE SPACES TO VOLUME NAME G H P ADK A1,2 G v P SUK A3,1 G P RB(P) FMR:04 G * P ADK A1,FPB:V2-FPB:S1 NEXT VOLUME NAME G P SUK A2,1 G P RB(P) FMR:02 G P*
0x395168…3952fc Dummy {f00=0x014b, f01=0x0190, f02=» G n P STR A1,A10 H 8 P LD A1,VTC:BF,A13 BLOCK FACTOR AND FILE ORGANIZATION H P ST A1,FPB:BF,A10 H X ( P LD A1,VTC:LR,A13 LAST RECORD NUMBER H r P ST A1,FPB:FR,A10 H $ P LD A1,VTC:LR+2,A13 LRN, PART 2 H P ST A1,FPB:FR+2,A10 H 4 P LD A1,VTC:M
0x3952fc…395490 Dummy {f00=0x014b, f01=0x0190, f02=»INDEX FILES H t P ST A1,FPB:IF,A10 I , P LD A1,VTC:KA,A13 KEY ADDRESS IN RECORD I . P ST A1,FPB:KA,A10 I ^ P LDK A2,1 I x , P LD A1,FWTTAB,A6 SHAREABILITY PARAMETER I P RF(Z) FMR:05 NO EA I 2 P SC A2,FPB:SH,A10 INDICATE OPENED EXCLUSIVELY I
0x395490…395624 Dummy {f00=0x014b, f01=0x0190, f02=»LE I f , P SC A2,FPB:BO,A10 INDICATE BASIC ORDERS J P* J : PFMR:10 EQU * J D P SLC A1,7 J X P ANK A1,/3F NUMBER OF USERS J j P SC A1,FPB:US,A10 J P* J P EJECT FMTASK J P* J . P* MOVE CREATION DATE AND RETENTION PERIOD J P*
0x395624…3957b8 Dummy {f00=0x014b, f01=0x0190, f02=»ACTERS TO MOVE J | 8 P CF A14,MOVE MOVE CREATION DATE AND RETENTION PERIOD K P* K R $ P* MOVE FILE NAME FROM FWT TO FPB K P* K P LDR A1,A6 FWT ADDRESS K P ADK A1,FWTNAM K . P SUK A3,FPBLEN-FPB:FN-1 POINT TO FILE NAME K & P LDK A2,8 NO OF CHAR
0x3957b8…39594c Dummy {f00=0x014b, f01=0x0190, f02=» K b P LDR A11,A6 L * P LDR* A12,A11 ADDRESS TO 2ND EWT BLOCK L P* L J P EJECT FMTASK L T P* L l 8 P* READ VOLUME NAME AND COMPUTE SIZE OF FILE SECTION L v P* L PFMR:20 EQU * L $ P LC A2,EWTVOL,A12 DISC FILE CODE L P LDR A13,A2 SAVE
0x39594c…395ae0 Dummy {f00=0x014b, f01=0x0190, f02=»A6 VOLUME NAME ADDRESS L " P CF A14,MOVE MOVE VOLUME NAME M * P LD A1,EWTEXL-2,A11 FILE EXTENT LENGTH M D P ANK A1,/FF M r P LD A2,EWTEXL,A11 M P* M P EJECT FMTASK M P* M " P* COMPUTE FILE SECTION SIZE(S) M P* M PFMR:35 EQU *
0x395ae0…395c74 (4, 59) Dummy {f00=0x014b, f01=0x0190, f02=» CW A7,TTB:SA+14,A5 CHECK IF OPEN ORDER RUNNING U $ P RB(NE) FM:RTC ABORT IF NOT OPEN V 8 & P LDK A7,/20 NEW VOLUME LOADED BIT V ` P TM A4,A7 CHECK RETURN CODE V P RB(Z) FM:RTC NOT NVL, ABORT V * P RB FMREAD NVL AT OPEN, REPEAT REQUEST V P* V
0x395c74…395e08 Dummy {f00=0x014b, f01=0x0190, f02=»** V P* W P* W . P* RELBLK WILL RELEASE THE MONITOR BLOCKS W , P* THAT ARE USED IN THE EWT STRUCTURE. W P P* W P* INPUT: A6 = FWT ADDRESS W P* W $ P* OUTPUT: A1-A4 ARE DESTROYED W P* W . PRELBLK EQU * RELEASE EWT STRUC
0x395e08…395f9c Dummy {f00=0x014b, f01=0x0190, f02=»L:10 EQU * W P INH X $ P CF A15,FREBLK RELEASE EWT BLOCK X P ENB X F P LDR A4,A3 EWT BLOCK ADDRESS X R P RB(NZ) REL:10 X v P* X PREL:20 EQU * X * P CM FWTVTC,A6 RESET VTOC SECTOR NUMBER X 4 P CM FWTTAB,A6 RESET TTAB ADDRESS (EA PARAMETER)
0x395f9c…396130 Dummy {f00=0x014b, f01=0x0190, f02=»** X P* FNDNAM * Y P********** Y P* Y . 2 P* FNDNAM WILL CONVERT THE SUPPLIED FILE CODE Y 8 0 P* TO VOLUME NAME ADDRESS IN THE DISC DWT. Y n P* Y P* INPUT: A2 = FILE CODE Y P* Y P* OUTPUT: A2 = 6 Y ( P* A6 = VOLUM
0x396130…3962c4 Dummy {f00=0x014b, f01=0x0190, f02=» Y ( P CF A15,FNDDWD FIND DISC DWT ADDRESS Z P ENB Z 4 P* Z @ PFNAM05 EQU * Z J P LD A4,DWTST,A6 Z ^ P ANK A4,1 Z v 4 P RF(NZ) FNAM10 POWER ON COMPLETED FOR THIS DISC Z P LKM Z P DATA 0 SWITCH TASKS Z P RB FNAM05 CHECK DISC AGAIN Z
0x3962c4…396458 Dummy {f00=0x014b, f01=0x0190, f02=» A2,6 Z P ADKL A6,DWTVOL-6 [ P RTN A14 [ ( P* [ 8 P EJECT FMTASK [ B P* [ Z P* [ d P********** [ n P* FNDVOL * [ P********** [ P* [ P* [ & P* FNDVOL SEARCHES THE REQUESTED [ $ P* VOLUME SPECIFIED IN THE FPB. [
0x396458…3965ec Dummy {f00=0x014b, f01=0x0190, f02=»FILE CODE IF FOUND, ELSE [ z * P* = 0 IF VOLUME NOT FOUND & P* A1, A3-A4, A12 ARE DESTROYED N P* x ( PFNDVOL EQU * FIND VOLUME (FILE CODE) 4 P LDKL A1,DFTAB-1 DISC FILE CODE TABLE ADDRESS-1 P LDR A12,A6 SAVE FWT ADDRESS
0x3965ec…396780 Dummy {f00=0x014b, f01=0x018e, f02=»OF DFTAB ~ P LCR A2,A1 NEXT FILE CODE ] , P CF A14,FNDNAM FIND VOLUME NAME ADDRESS ] 2 * P LDR* A3,A6 FIRST WORD OF VOLUME NAME ] b P RB(Z) FVOL10 NO VOLUME ] P* ] P EJECT FMTASK ] P* ] P* ] P LDR A3,A10 FPB ADDRESS ] , P A
0x396780…396914 (4, 60) Dummy {f00=0x014c, f01=0x0190, f02=» NUMBER e l & P ADKL A13,VTOCRL NEXT VTOC ADDRESS f P SUK A7,1 f : , P RB(P) FVTC20 MORE VTOC:S IN THIS SECTOR f L P ADK A2,1 NEXT VTOC SECTOR f | , P CWR A2,A12 CHECK IF END OF VTOC EXTENT f ( P RB(NE) FVTC10 NOT LAST VTOC SECTOR f P LDK A2,0 RETU
0x396914…396aa8 Dummy {f00=0x014c, f01=0x0190, f02=» ADK A1,FWTNAM f P LDR A3,A13 VTOC ADDRESS g P LDK A4,4 LOOP COUNTER g 6 P* g T $ PFVTC60 EQU * COMPARE FILE NAMES g ^ P LDR* A11,A3 g P CWR* A11,A1 g ( P RB(NE) FVTC30 FILE NAMES NOT EQUAL g P ADK A1,2 INCREMENT POINTERS g P ADK A3,2
0x396aa8…396c3c Dummy {f00=0x014c, f01=0x0190, f02=» P********** h P* FNDFWT * h P********** h ( P* h : P* h D 4 P* FNDFWT IS USED TO FIND OUT IF THE SPECIFIED h N 0 P* FILE IS ALREADY OPENED, AND IF SO RETURN h & P* THE FWT ADDRESS FOR THE FILE. h 6 P* IF NOT OPENED, A FREE FWT ADDRES
0x396c3c…396dd0 Dummy {f00=0x014c, f01=0x0190, f02=»A6 = FWT ADDRESS (=0 IF NO FREE FWT AVAILABLE) h & P* A1-A4, A7, A11 ARE DESTROYED i 6 P* i ` PFNDFWT EQU * i j P LDK A3,0 i ~ * P LD A7,SCTFWT FWT CHAIN START ADDRESS i P* i PFNDF10 EQU * i P LDK A2,1 i P* i PFNDF15 EQU * i
0x396dd0…396f64 Dummy {f00=0x014c, f01=0x0190, f02=»ECK IF USED i ( P RF(NZ) FNDF20 USED, CHECK FILE NAME j 6 P ADK A3,0 CHECK IF FREE FWT ADDRESS ALREADY SAVED j @ & P RB(NZ) FNDF15 YES, DON'T SAVE IT j z ( P LDR A3,A6 NO, SAVE THIS FWT ADDRESS j P RB FNDF15 CONTINUE SEARCH j P* j P EJECT FMT
0x396f64…3970f8 Dummy {f00=0x014c, f01=0x0190, f02=» A2,FWTNAM j P LDR A4,A10 FPB ADDRESS k P ADK A4,FPB:FN k 2 P SUK A7,1 SKIP FWT USED BIT k H P* k l $ PFNDF30 EQU * COMPARE FILE NAMES k v P LDR* A11,A2 k P CWR* A11,A4 k ( P RB(NE) FNDF10 FILE NAMES NOT EQUAL k P ADK A2,2 INCREMENT PO
0x3970f8…39728c Dummy {f00=0x014c, f01=0x0190, f02=») FNDF10 NOT THIS FILE k P RTN A14 FILE FOUND, RETURN l P* l B PFNDF40 EQU * FILE NOT FOUND l L P LDR A6,A3 FREE FWT ADDRESS l p P RTN A14 l P* l P EJECT FMTASK l P* l P* l P******** l P* MOVE * l P******** l
0x39728c…397420 Dummy {f00=0x014c, f01=0x0190, f02=» = OUTPUT BUFFER ADDRESS l P* m P* OUTPUT: A2 = 0 m * > P* A1, A3 = ADDRESSES OF LAST MOVED CHARACTERS+1 m D P* A4 IS DESTROYED m P* m PMOVE EQU * MOVE STRING m " P LCR A4,A1 MOVE ONE CHARACTER m P SCR A4,A3 m (
0x397420…3975b4 (4, 61) Dummy {f00=0x0153, f01=0x0000, f02=»
[…0x7…]
0x3980c0…398254 (4, 62) Dummy {f00=0x0144, f01=0x0190, f02=» V P P" !# + W + # X $ X !,f_ X $ X X & !-" !- Y _8 X " X &" Y )U W !# !# !# Y 4 B ) U )X R@ X X &" Y * X ) V Y !- X $ X & !-" X * *F ) `R Y !# !
0x398254…3983e8 Dummy {f00=0x0144, f01=0x0190, f02=»P H U _ T U P U ;C ,$ T -_> - _H "RT PL X TF X R@? V X & X H P X P Y X H P @ D < ? < ? <(@ . $ P B $ 9H C ">h # P >_2 < U = D (@ " $ P B >H<h
0x3983e8…39857c Dummy {f00=0x0144, f01=0x0190, f02=»TX 1 0, ! / P B B T P* & T$ L L R Q U , , _D , V :a B # S0 S0 Q Z8 Z< P X _6 _6 " " P2 @ Q, , Y ," P L P T L R :AV ' > _ !
0x39857c…398710 Dummy {f00=0x0144, f01=0x0190, f02=»P H U _ T U P U ;C ,$ T -_> - _H "RT > A0 @ @ 7Z 7Z @ R*P % % @ I I I I _> @ P ! #D9 V 1 Y ! ,P :A ! A! >_2 < U = D (@ " $ P B >H<h
0x398710…3988a4 Dummy {f00=0x0144, f01=0x0190, f02=» 3 ! 5 A0( 5 P< 6@ P& 8! P6 K @P X T X !? ? 3t W W @W 5@ 4 & 6 W A0( 5 X* 5 X2 " (@ I ' V V " LP V : V V P dW Y Y " V V T Y " Y $ 6 P(_t d(@ - $T
0x3988a4…398a38 Dummy {f00=0x0144, f01=0x0190, f02=»" P Y 9 @ J ! T " Y X & $ ' 4 ! 5 5 P C P* 4 J : J < W W P X V C W 5 X ! "? K >Q 9 5@W Y B W _.! T 5 T P % Y % Y Y V + V K V K : V K < V K A V % K C V & K
0x398a38…398bcc Dummy {f00=0x0144, f01=0x0190, f02=» T _ - M @ F Pp G ! _ W C ( B P U 4 T 8 X>_. : X P (@ Y Y Y :" (@ X $ T ( _ ^ ( : 6 6 P" $ 5` 8X 8 , Y $ : _ & / (@ T X " C X 6 V P 6 _ :
0x398bcc…398d60 Dummy {f00=0x0144, f01=0x0190, f02=»_ & & Y " 4 : : $ - Y : ~ 6 6 6 7 7 7 0123456789 ' < +,-. 0123456789 @ABCDEFGHIJKLMNOPQRSTUVWXYZ[ ]~ * > ?;_: =!"#$%&/() @ABCDEFGHIJKLMNOPQRSTUVWXYZ[ ]^ c
0x398d60…398ef4 (4, 63) Dummy {f00=0x0144, f01=0x0190, f02=» P 0R Q W R ?U C ! _f Y (P Y ) _ ^ _ ! x P: B L # +P Y , ! U _ X T _ W ! Y ! X X ! X P R ?]* U C _. _: ! ! " $ P X , X ]T ! Y h Y _p ? X R X X
0x398ef4…399088 Dummy {f00=0x0144, f01=0x0190, f02=» Y , Y B 9a C " 8 J P: 8 B W0 B W B W B @ T 8 T Y Y Y Y " Y . ! ~ X ._B B 1 4 X X X X ' 4 B U B $" 4 C 4 J * ~ _^ L x B U P
0x399088…39921c Dummy {f00=0x0144, f01=0x0190, f02=» P D T 1 WP B B PD P ! V - 0 P A F# +T W Q P P 1 ! X T V C B Q 1 " Y @ r t @ B X _" ? X Z,W A H ?I X ' { B C X 4
0x39921c…3993b0 Dummy {f00=0x0144, f01=0x0190, f02=» Y , Y B 9a C 8 J P: 8 B W0 B W B W B @ T 8 T Y Y Y Y Y . ! ~ X ._B B 1 4 X X X X ' 4 B U B $" 4 C 4 J * ~ _^ L ! 9 ! ~!
0x3993b0…399544 Dummy {f00=0x0144, f01=0x0190, f02=» X N Y ! X P. P P& P R P @ X ! " ! B X ; Z Y B X T < Z0:A Z: ^@ Y@ Y Y B Y ""0 Y V Y Y Y X X T V" X R # ;b9B Y Y ) Y X !? PZ P PR P
0x399544…3996d8 Dummy {f00=0x0144, f01=0x0190, f02=» J _ X p ^ P P ! # T X Pt X &Pf ! ! B Rh Qd :C P J ! 9DV + ! (@ B | ! B ! ! B t ! B ! l ! B ( ! d ! B 9 X Y P 9 " ! _ # J 4 ! * PR C ! ! ! f(@ ! * R _ ! 1 ;h
0x3996d8…39986c Dummy {f00=0x0144, f01=0x0190, f02=» +PV T ( C Q V8 ! ! ! N _ X J X H p ^ t ! 4WX W l ! 4 C QR (Q _ X X D J x ^ ! ! h ! ~ P @ 9 ! * T ) C W ! ! 4 ( - t ! 4 ) Wf W Y Z Y V Y X Y H @ TLB SLWF Y 8
0x39986c…399a00 Dummy {f00=0x0144, f01=0x0190, f02=» " _: Y L " Y F Y L $ Y ! ! # P W ! 9 ! X ^< Y Y F Y X RP 1 Y R 0 Y T 1 0B. X P P Y : ! ! X # P Y P:A , X T A Y T @ B. Y Y J X $ Y C '? X " Y _ A H ? N(@ X V
0x399a00…399b94 (4, 64) Dummy {f00=0x0153, f01=0x0190, f02=» < $ <C ! 9 9 4 X 9C X : X X 4 B :C J 4 $ J ! # T` @ j TOT @ l SST X Y N JW( 0 J ! # T. X Y N 9 ! N N X FT !d 4 J(@ 0! D 1 Y W (@ J 0! D ] I Y J 4 ! ;E :B
0x399b94…399d28 Dummy {f00=0x0153, f01=0x0190, f02=» _ ;H 4 | ! 4 (:C J 4 d ! 4 ( 4 X " 4 ! 4 ) 4 9 ! X ^< Y Y Y X P 1 Y 0 Y 1 0B. X P Y : ! ! X # P Y :A , X A Y @ B. Y Y X Y C '? X Y _ A H ? (@ X
0x399d28…399ebc Dummy {f00=0x0153, f01=0x0190, f02=» ABCDEFGHI[.<(+!&JKLMNOPQR]$*);^-/STUVWXYZ|,%_>? 123456789:#@'=" abcdefghi[.<(+!&j
0x399ebc…39a050 Dummy {f00=0x0153, f01=0x0190, f02=» 7- <=2&p ?' @O {[lP}M] Nk`Ka z^L~no| J Z_m j TOSS v x x x $ ( , 0 4 8 < ( H 0 ) $P $ ) U @ T C
0x39a050…39a1e4 Dummy {f00=0x0153, f01=0x0190, f02=» WF @W( T$ P X T X P 4 Y C C 8W T 8P Y ^ 5 ) P U " XT ! X ! X P X T _l Xf Y @ P. R T& X &P P H T _ X I Y T #
0x39a1e4…39a378 Dummy {f00=0x0153, f01=0x0190, f02=» P R R P T ~ $P (@ z(@ " 2 @ _ > X $? P 6$ > > F C F C > B R Q F ! P C > C > F :c" H :b"? #" : C > B R Q~ P0 B P*
0x39a378…39a50c Dummy {f00=0x0153, f01=0x0190, f02=»9BV X & " X D C > X H UJ H B P PL $ # Q > P _0 # T p > P p (_H _2 B U X ( > ? _ X T (@ ^ > > ? _ X T (@ X L U L Q4 M
0x39a50c…39a6a0 Dummy {f00=0x0153, f01=0x0190, f02=» 1 X P - M T $ PJ _ T " # p X L R P P P (@ ^ X P8 P0 # P T P 0P 1 _ W Y > > T " d _ ! ? ^ 4 _
0x39a6a0…39a834 (4, 65) Dummy {f00=0x0154, f01=0x0190, f02=» U _ 9B @ T u X > & "v! " " ~" - - .".x . -n- r0 7t6 # ' )^ ! % Y W B T| ! C X _ H X H p ^ > X ( $ ^ WB X Y $:g H & I &! P& X ! ! P ,P 9A _ H
0x39a834…39a9c8 Dummy {f00=0x0154, f01=0x0190, f02=»_ X $ _t0, > > @! A! DW W ^ ! Z2 ! (X: @! P T M ]J , ) A! P* P Y U ( ) 5 & > > [ [ ! Z Z Z ? Z > P~ "R~ Y " Pj T P` ! <UR "R4 PB X R< X T6 X T0.
0x39a9c8…39ab5c Dummy {f00=0x0154, f01=0x0190, f02=» Y " X X Y X X X X ' 4 B U B (" W C (@ > Y Y Y X 9BV$ X & Y " X D V X #V 2 R # % # ? X V Y " !#ZW< Y U R -P % X , ) Y . % X P Y P C WT X " PP
0x39ab5c…39acf0 Dummy {f00=0x0154, f01=0x0190, f02=» $ 4 T % % X ,T !#.W ' Y . V & !# B P X " _Z B P$ $$ R % C & * !# W Y +PH Y *P> Y (P Y )P & R _Q P OR R W " !# B $@ Wr W 0 Z & !# B Z Z& X . 0T N W X ,P Y . 0 %_. %
0x39acf0…39ae84 Dummy {f00=0x0154, f01=0x0190, f02=» , $4 P ' X .T * W Y , - " ? X :a Z T T W P X :d Y > > |Vd ? 8 R @R6 V @% =cW2 RBP R P 9 W. _ _ _ _ %0=c X 0P > 0 > >_ P > _v B 1 > NT 0 _ '( ( ) ( PB P8 !
0x39ae84…39b018 Dummy {f00=0x0154, f01=0x0190, f02=» &_. P4 R( Pj O]> V _F T Y Y & V Y _^ C _P #n #n" $ P X & X ]r !# Y Y Y _ " _ !# !# (H " X C _ X Y & Y > B B U$ $ ! T _ U D ! T _ C > X Z^<BR P f #H X _x
0x39b018…39b1ac Dummy {f00=0x0154, f01=0x0190, f02=» P0 P X _ X " '( !# !# X & ( (> )n-h+ + , + !# P P + & + ! B P B H " +P P. T Y ' !# R| X ( Y &R Y & _ Y &_. B 1 , !# + B B U4 $ ! T _ U D !
0x39b1ac…39b340 Dummy {f00=0x0154, f01=0x0190, f02=» B P !- B C +4 ^N P R ?] _ C _ #n #n" $ P X ' X ] !# + *H B !-L !- !# + B Y & !-"W *F 8!0T 8 !@P !# $ P !# !# + !# 1P X & C ,T Y & " X Y & Y > X " X &" Y
0x39b340…39b4d4 (4, 66) Dummy {f00=0x0166, f01=0x0190, f02=»_B 4 ! ! + 9h # !T}6 ,, !0 @|Thj !! ! j !! 80 _K ! $ !A !@( "90# !T2@e@i@k !" ? 'hZ 2 !TP &6 " _ Ai_8Ae_<" v :WpAkW ! ( ~ !~W)j !! C 80 U !b ! !
0x39b4d4…39b668 Dummy {f00=0x0166, f01=0x0190, f02=» = N D ^ P R 1 y s n G a 3 4 X Y - ! " % & ?MDA FETCHING FORMAT:
0x39b668…39b7fc Dummy {f00=0x0166, f01=0x018e, f02=» RKIe ! 4 @e@d@ @ _Z@dAe " " R" J Q z R 8 R H * R X R h * R x R J F " D ! U Uj ! !j !!/!j %!8!0R (+0R +( > " 1XFW 1XFAn@m R R R
0x39b7fc…39b990 Dummy {f00=0x0166, f01=0x0190, f02=» R S J F " D R Rh 2 RRR R_ R_ 0R (+0R +0X _ "l lU R R S * S f S v * S S S S S S " S ' S
0x39b990…39bb24 Dummy {f00=0x0166, f01=0x0190, f02=» USE S U 0 T J F " D @ R&| W L !" ! 0X %, ! b &l b &!Z2b '( "lW b &k T , T j $ T z , T . T T T T } T T T J
0x39bb24…39bcb8 Dummy {f00=0x0166, f01=0x0190, f02=» T } U " U } U ( } U 8 & U H U X J F " D ) Rh @ P R$ R_+ Rh " $ kU?R % 0Rk >?R lU?R0R 0} R U h D U * U U U ) U
0x39bcb8…39be4c Dummy {f00=0x0166, f01=0x0190, f02=» R_ R_ 0R~P + , R U f L V $ T $ V 4 d 4 V D x 4 V T J F " D @@z6 Az R_ @ @z R$XP@ ~U 0R , P& b~ ![) !0R + T b~ V d * V V , V , V 2 V
0x39be4c…39bfe0 Dummy {f00=0x0166, f01=0x0190, f02=» ( V W J F " D 6 h[ * !T06 $ $$ 0R , T 0R , @ T 0R + !_6A X @ T ?R W W n # W ~ & W & 50 W SEARCH W $ 0 W & W MODE W $ 0 W &
0x39bfe0…39c174 (4, 67) Dummy {f00=0x0166, f01=0x0190, f02=»EREFO w ATTDB ATTWB DEDISC. DEPOOL- DEREC21 MSKOUTL OFRSP RESTOR1 T:ATTF T:DISPF T:THOM TESTB UPDBIN UPDBOL DEREC2 _ 810401 $$$TRAR DEOPBC DEREC2 7 ATTWB CLEARBT CMPIND DEACC DEDISC1 DELASTL DEPOOL0 DEPRUT DERECS DEREFOC D
0x39c174…39c308 Dummy {f00=0x0166, f01=0x0002, f02=»,
0x39c308…39c49c Dummy {f00=0x0166, f01=0x012e, f02=» PT; P02; PTID=T1; PTCL=T1; * PLEV=60; : P01; J PTDC=T01; V PLC=01L; f P00; v PC; P02; PTDC=T03; PLC=01L; PTDC=T02; PLC=01L; P02; PSDC=S01; PSDC=S04; PU;
0x39c49c…39c630 Dummy {f00=0x0166, f01=0x2008, f02=» P02; PTID=T1; PTCL=T1; * PLEV=60; : P01; J PTDC=T01; V PLC=01L; f P00; v PC; P02; PTDC=T03; PLC=01L; PTDC=T02; PLC=01L; P02; PSDC=S01; PSDC=S04; PU;
0x39c630…39c7c4 Dummy {f00=0x0166, f01=0x40f2, f02=» @ H IDENT D:DB10 TRA 10.0 81-04-09 F1 O1111 REL 10.0 80-04-11 D:DB10 H D:DB10D Z * & > P P h n * & 0 = > @ &
0x39c7c4…39c958 Dummy {f00=0x0166, f01=0x40b2, f02=» @ H IDENT D:DB20 TRA 10.0 81-04-09 F1 O1111 REL 10.0 80-04-11 D:DB20 H D:DB20D Z * & n @ = > @ &
0x39c958…39caec Dummy {f00=0x0166, f01=0x40b2, f02=» @ H IDENT D:DB30 TRA 10.0 81-04-09 F1 O1111 REL 10.0 80-04-11 D:DB30 H D:DB30D Z * & n n @ = > @ &
0x39caec…39cc80 Dummy {f00=0x0166, f01=0x412c, f02=» @ H IDENT U:CB10 TRA 10.0 81-04-09 F1 O1111 REL 10.0 80-04-11 U:CB10 H U:CB10C Z * & @ n & & = & [ & y & &
0x39cc80…39ce14 (4, 68) Opaque[0x194]
0x39ce14…39cfa8 # DirEnt {nam=»SCLASS«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x2080, f03=0x0000}
0x39ce14…39cfa8 IdxSect {
0x39ce14…39cfa8 f00 = 0x0104 // 0x39ce14 @0x0
0x39ce14…39cfa8 f01 = 0x0002 // 0x39ce16 @0x2
0x39ce14…39cfa8 gno = [ // 0x39ce18 @0x4
0x39ce14…39cfa8 [0x00]: C0x0104.0x0.0
0x39ce14…39cfa8 ]
0x39ce14…39cfa8 }
0x39cfa8…39d13c Dummy {f00=0x0104, f01=0x0190, f02=» 2 P IDENT SCLASS REL 10.0 80-03-14 870105041000 P : P* B P* L P ENTRY SCLASS V P* l P* v P EXTRN DWSI01 P EXTRN DWTW01 P EXTRN DWLP01 P EXTRN DWFD01 P*
0x39d13c…39d2d0 Dummy {f00=0x0104, f01=0x0190, f02=» TC02 P DATA TC03 P DATA TC04 , PTCLASE EQU * J PTC00 DATA TC00E-* ^ P DATA /0014 P DATA DWSI01 PTC00E EQU * PTC01 DATA TC01E-* P D
0x39d2d0…39d464 Dummy {f00=0x0104, f01=0x0190, f02=»* ~ PTC02 DATA TC02E-* P DATA /0036 , P DATA DWLP01 L PTC02E EQU * l PTC03 DATA TC03E-* P DATA /0030 P DATA DWLP01 PTC03E EQU * PTC
0x39d464…39d5f8 Dummy {f00=0x0104, f01=0x409c, f02=» P DATA /02FA P DATA DWFD01 $ P DATA /03FB : P DATA DWFD01 Z PTC04E EQU * p P END @ 03E-* P DATA /0030 P DATA DWLP01 PTC03E EQU * PTC
0x39d5f8…39d78c Dummy {f00=0x0104, f01=0x2008, f02=» NT TCLASS * * $ * . ENTRY TCLASS 8 * N * X * b * l * v * * TCLASS DATALTCLASE-* TCLASE EQU * END @ 1 INTLT2 INTRT1
0x39d78c…39d920 Dummy {f00=0x0104, f01=0x0190, f02=»ER OF PAGES x P RB AP:010 P* & D P* END OF EXECUTION PATH FOR SYSTEMS WITH MMU OPTION EXCLUSIVELY 0 P* x P EJECT PAP:100 EQU * P* @ P* EXECUTION PATH FOR SYSTEMS WITHOUT MMU OPTION EXCLUSIVELY P* & P LDKL A1,PAG
0x39d920…39dab4 (4, 69) Opaque[0x194]
0x39dab4…39dc48 # DirEnt {nam=»MONTAB«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x20a0, f03=0x0000}
0x39dab4…39dc48 IdxSect {
0x39dab4…39dc48 f00 = 0x0105 // 0x39dab4 @0x0
0x39dab4…39dc48 f01 = 0x0002 // 0x39dab6 @0x2
0x39dab4…39dc48 gno = [ // 0x39dab8 @0x4
0x39dab4…39dc48 [0x00]: C0x0105.0x0.0
0x39dab4…39dc48 ]
0x39dab4…39dc48 }
0x39dc48…39dddc Dummy {f00=0x0105, f01=0x0190, f02=» 2 P IDENT MONTAB REL 10.0 80-03-14 870105041000 P : P* B 6 P* THIS TABLE CONTAINS ADDRESSES TO CONFIGURATION L P* DEPENDENT MONITOR TABLES P* P* P ENTRY MONTAB,SPDLCI P ENTRY FREQUE P ENTRY PAGQUE P E
0x39dddc…39df70 Dummy {f00=0x0105, f01=0x0190, f02=» INTRT3 P ENTRY INTRT4,INTAS,INTSL P* 2 P EXTRN SYSLOD < P**** R P EXTRN CTAB01 ^ P EXTRN KBAD3 t P EXTRN GPAD P EXTRN DYAD P* P P PMONTAB EQU * PFREQUE DATA 0 PPAGQUE DATA 0,0
0x39df70…39e104 Dummy {f00=0x0105, f01=0x4112, f02=»INTRT3 DATA 0 PINTRT4 DATA 0 P DATA SYSLOD , P**** @ P DATA CTAB01 L P DATA KBAD3 b P DATA GPAD v P DATA DYAD P* PINTAS DATA 0 PINTSL DATA 0 2 PSPDLCI DATA 0 LIGHTS CORE IMAGE (0=ON 1=OFF) P END
0x39e104…39e298 Dummy {f00=0x0105, f01=0x2008, f02=» DATA DYAD P* P* $ P END .@ : DYAD 8 P* L P* V P* ` PMONTAB EQU * j PTCTAB DATA 0 ~ PCDTAB DATA 0 PBLOCKS DATA 0 PDCTAB DATA 0 PINTLT1 DATA 0 PINTLT2 DATA 0 PINTRT1 DATA
0x39e298…39e42c Dummy {f00=0x0105, f01=0x0190, f02=»T A4,ECBEL,A8 SET EFFECTIVE LENGTH P* * P IFT MMUPAG=0 4 ( P LD A2,ECBBA,A8 USER BUFFER ADDRESS J P* v P EJECT DSKSUB P* P* PVNAM10 EQU * P LDR* A3,A1 MOVE ONE WORD P STR A3,A2 ( P ADK A1,2 INCREMENT
0x39e42c…39e5c0 Dummy {f00=0x0105, f01=0x0190, f02=» P IFT MMUPAG=1 2 P LD A2,DWTTAB,A6 TTAB ADDRESS OF CALLING TASK P TS -30,A15 SAVE RUNNING MMU T P TL TTB:MT,A2 LOAD USER MMU x & P LD A2,DWTUEC,A6 USER ECB ADDRESS ( P EL A2,ECBBA,A2 USER BUFFER ADDRESS P MVSU A4 MOVE VOLUME N
0x39e5c0…39e754 (4, 70) Opaque[0x194]
0x39e754…39e8e8 # DirEnt {nam=»SYSTAB«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x2480, f03=0x0000}
0x39e754…39e8e8 IdxSect {
0x39e754…39e8e8 f00 = 0x0124 // 0x39e754 @0x0
0x39e754…39e8e8 f01 = 0x0006 // 0x39e756 @0x2
0x39e754…39e8e8 gno = [ // 0x39e758 @0x4
0x39e754…39e8e8 [0x00]: C0x0124.0x0.0
0x39e754…39e8e8 [0x01]: C0x0124.0x2.0
0x39e754…39e8e8 [0x02]: C0x0124.0x3.0
0x39e754…39e8e8 ]
0x39e754…39e8e8 }
0x39e8e8…39ea7c Dummy {f00=0x0124, f01=0x0190, f02=» 2 P IDENT SYSTAB REL 10.0 80-03-14 870105041000 P : P* B P* L 8 P*************************************************** V P* $ P* PHILIPS TERMINAL SYSTEM PTS P* 2 P* SYSTAB = INTERRUPT VECTORS, SYSTEM CONTROL 2 P*
0x39ea7c…39ec10 Dummy {f00=0x0124, f01=0x018e, f02=»*************** l P* P* " P EJECT SYSTAB , P* D P* N P*********** X P* ENTRIES * l P*********** P* P* 4 P ENTRY SCTMSZ,SCTSFA,SCTEFA SYSTEM CONTROL TABLE P ENTRY SCTIPL P ENTRY SCTANO,SCTA
0x39ec10…39eda4 Dummy {f00=0x0124, f01=0x0190, f02=» P ENTRY SCTSTB P ENTRY SCTOPT P ENTRY SCTTCT,SCTCDT 0 P ENTRY SCTBUG L & P ENTRY SCTDMT,SCTDMI,SCTFWT,SCTNOF b & P ENTRY SCTNFT,SCTFWL,SCTBLK,SCTDCT P ENTRY SEG:FC,SEG:NS & P ENTRY SEG:ST,SEG:DS,SEG:EL,SEG:PB & P ENTRY PAG:Q
0x39eda4…39ef38 Dummy {f00=0x0124, f01=0x0190, f02=»* P* EXTERNALS * P************* P* 6 P* @ P EXTRN TDISP J , P EXTRN IHPFAR POWER FAIL / AUTO RESTART ^ P EXTRN IHLKM LKM INTERRUPT P EXTRN IHRTC REAL TIME CLOCK P EXTRN IHTW TYPEWRITER P EXTRN IHTC CASSETTE T
0x39ef38…39f0cc Dummy {f00=0x0124, f01=0x0190, f02=» NO. 1 p * P EXTRN CHRT2 REMOTE CHANNEL UNIT NO. 2 P EXTRN CHRT3 < P EXTRN CHRT4 P ( P EXTRN IHCC1 CASSETTE CHANGER NO. 1 d ( P EXTRN IHCC2 2 ( P EXTRN IHCC3 3 * P EXTRN CHLT1 LOCAL CHANNEL UNIT
0x39f0cc…39f260 Dummy {f00=0x0124, f01=0x0190, f02=» M) DISC l P EXTRN IHLP LINE PRINTER P EXTRN IHCR CARD-READER 0 ( P EXTRN IHDU1,IHDU2 DISC UNIT NO. 1/2 P 0 P EXTRN IHMD,IASCUZ,ISLCI,ISLCO MINI FIX DISC | P EXTRN IHMT MAG. TAPE $ P EXTRN ILLINT ILLEGAL INTERRUPT P EXTRN HALT HALT R
0x39f260…39f3f4 (4, 71) Dummy {f00=0x0124, f01=0x0190, f02=»QU -4 FILE CODE $ PSEG:NS EQU -2 NUMBER OF SEGMENTS PSEG:ST EQU 0 STATUS @ $ PSEG:DS EQU 2 DISC SECTOR ADDRESS " PSEG:EL EQU 4 EFFECTIVE LENGTH $ PSEG:PB EQU 6 PAGE BLOCK ADDRESS P* & PPAG:QF EQU 0 QUEUE POINTER FORWARD ( PPA
0x39f3f4…39f588 Dummy {f00=0x0124, f01=0x0190, f02=»QU 0 NUMBER OF COPIES WITHIN SWB TYPE 2 PSWB:DS EQU 2 DISC SECTOR ADDRESS OF FIRST COPY . $ PSWB:EL EQU 4 SWB LENGTH (BYTES) d & PSWB:NS EQU 6 SWB LENGTH (SECTORS) P* P P P P P EJECT SYSTAB P* P* INTE
0x39f588…39f71c Dummy {f00=0x0124, f01=0x0190, f02=» | P DATA ILLINT 4 P DATA ILLINT 5 $ P DATA ILLINT 6 @ P DATA IHTW 7 P DATA ILLINT v P DATA IHSOP 9 P DATA ILLINT P DATA ILLINT P DATA ILLI
0x39f71c…39f8b0 Dummy {f00=0x0124, f01=0x0190, f02=» DATA ILLINT P DATA ILLINT P DATA ILLINT 8 P DATA ILLINT X P DATA ILLINT x P DATA ILLINT 22 P DATA ILLINT P DATA CHLT1 24 P DATA ILLINT
0x39f8b0…39fa44 Dummy {f00=0x0124, f01=0x0190, f02=»FD 30 P DATA ILLINT 31 P DATA ILLINT 32 . P DATA ILLINT 33 J P DATA IHLP 34 f P DATA ILLINT P DATA ILLINT 36 P DATA ILLINT 37 P DATA ILLINT 38 P DATA ILLINT 39
0x39fa44…39fbd8 Dummy {f00=0x0124, f01=0x0190, f02=» DATA ILLINT P DATA ILLINT 45 P DATA ILLINT 46 4 P DATA ILLINT 47 P P DATA ILLINT l P DATA ILLINT 49 P DATA ILLINT 50 P DATA ILLINT 51 P DATA ILLINT 52 P DATA ILLINT
0x39fbd8…39fd6c Dummy {f00=0x0124, f01=0x018e, f02=»LINT 58 P DATA ILLINT 59 P DATA ILLINT 60 0 P DATA ILLINT 61 L P DATA ILLINT 62 h P DATA TRAP TRAP ROUTINE P EJECT SYSTAB P P* " P* SYSTEM CONTROL TABLE POINTER P* P DATA SCT
0x39fd6c…39ff00 Dummy {f00=0x0124, f01=0x0190, f02=» P* P* DEBUG RESTART ENTRY P* 0 P XRR A13,A13 : P XRR A14,A14 N P LD A1,SCTBUG b P ABR(NZ) A1 x P HLT P* P EJECT SYSTAB P* P* PX:A EQU 0 MONITOR OPTION ( PX:B EQU 0 DATA MAN .TASKS
0x39ff00…3a0094 (4, 72) Dummy {f00=0x0124, f01=0x0190, f02=»TASK p $ PX:F EQU 0 FILE WORK TABLE LENGTH PX:G EQU 0 DC TASK IN SYSTEM 4 P* X P EJECT SYSTAB b P* z P* SYSTEM CONTROL TABLE P* PSCT EQU * P * PSCTMSZ DATA 0 MEMORY SIZE MOD K BYTES & PSCTSFA DATA 0,0 STAR
0x3a0094…3a0228 Dummy {f00=0x0124, f01=0x0190, f02=»FD:F8,F9 r $ PSCTANO DATA 0 APPLICATION NUMBER 4 PSCTADA DATA 0,0 APPLICATION DISC SECTOR ADDRESS 8 . PSCTIOE DATA 0 APPLICATION RESTART ADDRESS p PSCTTCT DATA 0 TCTAB ADDRESS PSCTCDT DATA 0 CDTAB ADDRESS PSCTPAG DATA 0 PAGTAB ADDRESS
0x3a0228…3a03bc Dummy {f00=0x0124, f01=0x0190, f02=»COMMON PART ENTRY x P INDEX REL TTAB 0 PSCTLAC DATA 0 LOGICAL ADDRESS OF COMMON PART 4 & PSCTMMP DATA 0 MMU TABLE PAGE ENTRY h P INDEX REL TTAB * PSCTLAP DATA 0 LOGICAL ADDRESS OF PAGES ( PSCTNPE DATA 0 NUMBER OF PAGE ENTRIES & PSC
0x3a03bc…3a0550 Dummy {f00=0x0124, f01=0x0190, f02=»DSKPAG,15:MMUPAG PSCTBUG DATA 0 DEBUGGER & PSCTDMT DATA X:B DMTASKS IN SYSTEM 6 & P BIT 12:#G, 13:#F, 14:#E, 15:#D ` 2 PSCTDMI DATA 00000 DM INDEX RECORD BUFFER SIZE P EJECT SYSTAB P* P* * PSCTFWT DATA 0 FWT CHAIN STAR
0x3a0550…3a06e4 Dummy {f00=0x0124, f01=0x4188, f02=»BLE LENGTH r ( PSCTBLK DATA 6 NUMBER OF BLOCKS/TASK , PSCTDCT DATA X:G DC-TASK IN SYSTEM/REMOTE > P EJECT SYSTAB n P P* P* SYSTEM STACK P* P RES 143 P DATA /FCC0 AND PSW & PSTB DATA LOOP AND PC FOR IDLE LOOP
0x3a06e4…3a0878 Dummy {f00=0x0124, 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
0x3a0878…3a0a0c Dummy {f00=0x0124, f01=0x0190, f02=» P ANK A3,/FF P SUK A3,/2B P RF(Z) WRT030 NO CR OR LF , P* N P* X , P ST A4,DWTHP,A6 HEAD POSITION INDICATOR b P LDK A4,2 $ P LDK A2,CR SEND CARRIAGE RETURN P EJECT P* P* P* $ PWRT010 CF A5,OTR
0x3a0a0c…3a0ba0 Dummy {f00=0x0124, f01=0x0190, f02=» PWRT020 SUK A3,5 P RB(Z) WRT015 SEND SECOND LF P SUK A3,1 D P RF(NZ) WRT030 V P LDK A2,/0C SEND FORM FEED n P RB WRT010 " PWRT030 LDK A3,2 BUFFER POINTER P RF WRT050 GET CHARACTER P* P* P* PWR
0x3a0ba0…3a0d34 (4, 73) Opaque[0x194]
0x3a0d34…3a0ec8 # DirEnt {nam=»TDISP «, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x20c0, f03=0x0000}
0x3a0d34…3a0ec8 IdxSect {
0x3a0d34…3a0ec8 f00 = 0x0106 // 0x3a0d34 @0x0
0x3a0d34…3a0ec8 f01 = 0x0008 // 0x3a0d36 @0x2
0x3a0d34…3a0ec8 gno = [ // 0x3a0d38 @0x4
0x3a0d34…3a0ec8 [0x00]: C0x0106.0x0.0
0x3a0d34…3a0ec8 [0x01]: C0x0106.0x1.0
0x3a0d34…3a0ec8 [0x02]: C0x0106.0x2.0
0x3a0d34…3a0ec8 [0x03]: C0x0128.0x0.0
0x3a0d34…3a0ec8 ]
0x3a0d34…3a0ec8 }
0x3a0ec8…3a105c Dummy {f00=0x0106, f01=0x0190, f02=» 0 P IDENT TDISP REL 10.0 80-03-14 870105041000 P 8 P* @ P* J 6 P************************************************** T P* $ P* PHILIPS TERMINAL SYSTEM PTS P* P* TDISP = TOSS DISPATCHER P* 6 P****************
0x3a105c…3a11f0 Dummy {f00=0x0106, f01=0x0190, f02=» WITH 8 REGISTERS ON A15 STACK. v > P* THE DISPATCHER CHECKS IF THERE IS A TASK IN DISPATCHER ( < P* QUEUE WITH HIGHER PRIORITY THAN INTERRUPTED PROGRAM. j : P* - IF SO, THE RUNNING TASK IS QUEUED AND THE HIGHER $ P* PRIORITY TASK IS STARTED.
0x3a11f0…3a1384 Dummy {f00=0x0106, f01=0x0190, f02=» 6 P* ENTRY 'DISIOE' SETS BIT 0 IN A1 BEFORE DISEND. P* B 8 P* ENTRY 'MEXIT' EXITS A MONITOR TASK BEFORE TDISP. L P* H P* ENTRY 'QMEXIT' CALLS QTJOB BEFORE EXIT IS MADE ON MONITOR TASK. P* 0 P* ENTRY 'TEXIT' EXITS A TASK B
0x3a1384…3a1518 Dummy {f00=0x0106, f01=0x0190, f02=» A TASK BEFORE TDISP. t P* D P* ENTRY 'RETUR8' LOADS 8 REGISTERS FROM A15 STACK AND RETURNS. ( P* p P EJECT TDISP z P* P* P*********** P* ENTRIES * P*********** P* P* " P ENTRY TDISP DISPATC
0x3a1518…3a16ac Dummy {f00=0x0106, f01=0x018e, f02=»E TASK AND EXIT MONITOR TASK ~ , P ENTRY ACTDIS ACTIVATE TASK AND DISPATCH $ " P ENTRY DISIOE I/O ERROR ENTRY T & P ENTRY DISEND END I/O AND DISPATCH z 6 P ENTRY DISQUE POINTER TO FIRST TASK IN DISP. QUEUE , P ENTRY PRUN TTAB ADDRESS OF RUNNING TASK
0x3a16ac…3a1840 Dummy {f00=0x0106, f01=0x0190, f02=» P************* P* P* ( P EXTRN ACTOT ACTIVATE TASK 2 P EXTRN TTB:SA SAVE AREA T P EXTRN TTB:ST STATUS t & P EXTRN TTB:PW PROGRAM STATUS WORD P EXTRN TTB:MT MMUTAB & P EXTRN TTB:CB CURRENT SEGMENT BASE ( P EXTRN T
0x3a1840…3a19d4 (4, 74) Dummy {f00=0x0106, f01=0x0190, f02=» QUEUE BACKWARD POINTER ~ P EXTRN TENDIO END I/O P EXTRN EXIT PROGRAM EXIT > 2 P EXTRN QLTDSK ACTIVATE LDTASK AT ENTRY LT:DSK ^ , P EXTRN QTJOB QUEUE TASK FOR DISPATCHING . P EXTRN SCTLAP LOGICAL ADDRESS OF CODE PAGE & P EXTRN SCTMMP MMU
0x3a19d4…3a1b68 Dummy {f00=0x0106, f01=0x0190, f02=»*************** v P* P* CONDITIONAL ASSEMBLY " P* @ . P***************************************** J P* | . P* A PROGRAM VERSION USING TOSS MMU PAGING * P* IS OBTAINED BY SETTING MMUPAG EQU 1. P* PMMUPAG EQU 1 P*
0x3a1b68…3a1cfc Dummy {f00=0x0106, f01=0x0190, f02=»U852 EQU 0 P* * . ** A PROGRAM VERSION USING TOSS DISC PAGING & * &* IS OBTAINED BY SETTING DSKPAG EQU 1. X * PDSKPAG EQU 0 * P* @ P* A PROGRAM VERSION PREVENTING SEGMENTS TO MOVE WHEN HAVING > P* APPLICATIO
0x3a1cfc…3a1e90 Dummy {f00=0x0106, f01=0x0190, f02=» P* P EJECT TDISP P* ( P* D I S Q U E 2 P* J 2 P* POINTER TO FIRST TASK IN DISPATCHER QUEUE T P* PDISQUE DATA 0 P* P* P R U N P* $ P* TTAB ADDRESS OF RUNNING TASK P* PPRUN
0x3a1e90…3a2024 Dummy {f00=0x0106, f01=0x018e, f02=» P* PRETUR8 EQU * P " P IFT CPU852=0 * P MLR 8,A15 @ P XIF R P ^ P IFT CPU852=1 f P LDR* A8,A15 | P LDR* A7,A15 P LDR* A6,A15 P LDR* A5,A15 P LDR* A4,A15 P LDR* A3,A15 P LDR* A2,A15 P
0x3a2024…3a21b8 Dummy {f00=0x0106, f01=0x0190, f02=» h P* 2 P* DO EXIT ON (MONITOR) TASK AND GO TO TDISP P* H 2 PQMEXIT CF A15,QTJOB QUEUE TASK FOR DISPATCHING R P* PMEXIT INH P LD A5,PRUN P CM PRUN P* PTEXIT EQU * P CF A15,EXIT P RF TDISP
0x3a21b8…3a234c Dummy {f00=0x0106, f01=0x0190, f02=» RF TDISP P EJECT TDISP P ( P* 0 P* D I S I O E : P* R 6 P* SET BIT 0 IN ECB RETURN CODE AND GO TO DISEND P* PDISIOE LDKL A1,/8000 P P* P* D I S E N D P* $ P* CALL TENDIO AND GO T
0x3a234c…3a24e0 Dummy {f00=0x0106, f01=0x0190, f02=»ISP) r P* PTPAUSE EQU * P EJECT TDISP * P* @ P* T D I S P J P* ` $ P* THIS IS THE DISPATCHER ENTRY j P* PTDISP INH & P LC A1,18,A15 LOAD PSW FROM STACK P ANK A1,/FC P SUK A1,/C4 . P RB(L) R
0x3a24e0…3a2674 (4, 75) Dummy {f00=0x0106, f01=0x0190, f02=» P RB(Z) RETUR8 QUEUE EMPTY P * P LD A5,PRUN 2 $ P RF(Z) TDCQ10 IDLE LOOP RUNNING F & P LD A4,TTB:ST+1,A5 COMPARE RUNNING n 4 P CC A4,TTB:ST+1,A3 AND QUEUED TASK'S PRIORITIES * P RB(NG) RETUR8 RUNNING HIGHER OR SAME $ PTDCQ10 LDR
0x3a2674…3a2808 Dummy {f00=0x0106, f01=0x0190, f02=»DDR l P RF(Z) TDISSW NONE P LDR* A7,A1 & P RF(N) TDISSW SEGMENT LOADED : 2 P CF A15,QLTDSK SEGM NOT LOADED QUEUE LOAD TASK ^ & P RB TDISCQ TAKE NEXT TASK INSTEAD P XIF P EJECT TDISP P* P* SWITCH TASKS P* *
0x3a2808…3a299c Dummy {f00=0x0106, f01=0x018e, f02=»0 QUEUE OLD TASK FIRST ON PRIORITY P RF(Z) TDSW20 EMPTY QUEUE * 0 PTDSW10 CC A4,TTB:ST+1,A6 COMPARE PRIORITIES L 0 P RF(NG) TDSW20 SAME OR LOWER PRIORITY FOUND P LDR A2,A6 P LDR* A6,A2 , P RB(NZ) TDSW10 STILL SOMETHING IN QUEUE
0x3a299c…3a2b30 Dummy {f00=0x0106, f01=0x0190, f02=» P IFT CPU852=0 P MLR 8,A15 P MS 13,TTB:SA+2,A14 , P MLR 2,A15 H P Z P XIF b P IFT CPU852=1 n P LDR* A8,A15 P LDR* A7,A15 P LDR* A6,A15 P LDR* A5,A15 P LDR* A4,A15 P LDR* A3,A15 P LDR* A2,A15
0x3a2b30…3a2cc4 Dummy {f00=0x0106, f01=0x0190, f02=»A14 ~ P ST A9,TTB:SA+18,A14 P ST A8,TTB:SA+16,A14 ( P ST A7,TTB:SA+14,A14 D P ST A6,TTB:SA+12,A14 ` P ST A5,TTB:SA+10,A14 | P ST A4,TTB:SA+8,A14 P ST A3,TTB:SA+6,A14 P ST A2,TTB:SA+4,A14 P ST A1,TTB:SA+2,A14 P
0x3a2cc4…3a2e58 Dummy {f00=0x0106, f01=0x0190, f02=»FT DSKPAG+DIFPRI=2 P * P LD A1,TTB:SB,A14 GET SEGM BLOCK ADDR " P RF(Z) TDISST NONE P P LDR* A2,A1 GET SEGM STATUS j P LDKL A3,/1000 , P TM A2,A3 CHECK IF SEGM USED BY INT TASK P RF(NZ) TDISST YES * P ORRS A3,A1 SET SEGM USED
0x3a2e58…3a2fec Dummy {f00=0x0106, f01=0x0190, f02=» P* START NEW TASK P* PTDISST LD A14,PRUN & P IFT DSKPAG=1 @ P V * P LD A1,TTB:SB,A14 GET SEGM BLOCK ADDR ^ P RF(Z) TDST30 NONE ( P LD A4,SEG:PB,A1 GET PAGE BLOCK ADDR P IFT DIFPRI=0 P ( P LDR* A2,A4 CHECK IF PAG
0x3a2fec…3a3180 Dummy {f00=0x0106, f01=0x0190, f02=»IN PAGQUE v P RF(NZ) TDST10 YES " P LDR* A3,A1 NO GET SEGM STATUS , 2 P ANKL A3,/1000 CHECK IF SEGM USED BY INT TASK R P RF(Z) TDST20 NO 4 P CW A14,PAG:QB,A4 YES CHECK IF IT WAS THIS TASK P RF(NE) TDST20 NO * P XRRS A3,A1 YES RESET
0x3a3180…3a3314 (4, 76) Dummy {f00=0x0128, f01=0x0190, f02=»E d P STR A2,A3 P ST A3,PAG:QB,A2 P CMR A4 4 P D , PTDST20 LD A1,PAG:PA,A4 GET PAGE ADDRESS L P | P IFT MMUPAG=1 P " P ECR A2,A1 CALC PHYS PAGE ADDR P ANK A2,/FC * P LDR A3,A14 AND MMU PAGE ENTRY IN TTAB
0x3a3314…3a34a8 Dummy {f00=0x0128, f01=0x0190, f02=»UK A4,1 P RF(Z) TDST25 P ADK A2,4 & P ADK A3,2 8 P RB TDST22 J P PTDST25 EQU * d " P TL TTB:MT,A14 LOAD MMU TABLE x 2 P SLL A1,2 UPDATE BASE IN T:A ALSO JUST IN CASE P ANKL A1,/FFE P OR A1,SCTLAP 2 P ES* A1,
0x3a34a8…3a363c Dummy {f00=0x0128, f01=0x0190, f02=»E CURRENT SEGMENT BASE x P XIF P * PTDST30 EQU * 2 P IFT MMUPAG=1 F " P TL TTB:MT,A14 LOAD MMU TABLE P XIF P & PTDST35 LD A1,TTB:SA,A14 GET NEW PC P LD A2,TTB:PW,A14 AND PSW P IFT CPU852=0 P & P MSR 2,A
0x3a363c…3a37d0 Dummy {f00=0x0128, f01=0x0190, f02=»5 PUT PC P STR A2,A15 AND PSW ON STACK & P LD A1,TTB:SA+2,A14 LOAD REGISTERS 4 P LD A2,TTB:SA+4,A14 ^ P LD A3,TTB:SA+6,A14 z P LD A4,TTB:SA+8,A14 P LD A5,TTB:SA+10,A14 P LD A6,TTB:SA+12,A14 P LD A7,TTB:SA+14,A14 P L
0x3a37d0…3a3964 Dummy {f00=0x0128, f01=0x4098, f02=» z P LD A13,TTB:SA+26,A14 P LD A14,TTB:SA+28,A14 & P D P XIF L P X P RTN A15 START THE TASK ` P P END @ D A4,TTB:SA+8,A14 P LD A5,TTB:SA+10,A14 P LD A6,TTB:SA+12,A14 P LD A7,TTB:SA+14,A14 P L
0x3a3964…3a3af8 Dummy {f00=0x0128, 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
0x3a3af8…3a3c8c Dummy {f00=0x0128, f01=0x0190, f02=»CTMSZK SCTSFA SCTEFA $ SCTIPL 8 SCTANO L SCTADA ` , ( @ t SCTIOEL SCTTCT SCTCDTB SCTPAG SCTSWB
0x3a3c8c…3a3e20 Dummy {f00=0x0128, f01=0x418a, f02=» SCTSTB SCTOPT bBUG , SCTBUG : , ( 6 N SCTDMT~ ~ SCTDMI SCTFWT SCTNOF SCTNFT SCTFWL SCTBLK
0x3a3e20…3a3fb4 (4, 77) Opaque[0x194]
0x3a3fb4…3a4148 # DirEnt {nam=»LRPINT«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x24b8, f03=0x0000}
0x3a3fb4…3a4148 IdxSect {
0x3a3fb4…3a4148 f00 = 0x0125 // 0x3a3fb4 @0x0
0x3a3fb4…3a4148 f01 = 0x000a // 0x3a3fb6 @0x2
0x3a3fb4…3a4148 gno = [ // 0x3a3fb8 @0x4
0x3a3fb4…3a4148 [0x00]: C0x0125.0x3.0
0x3a3fb4…3a4148 [0x01]: C0x0126.0x0.0
0x3a3fb4…3a4148 [0x02]: C0x012e.0x0.0
0x3a3fb4…3a4148 [0x03]: C0x0146.0x2.0
0x3a3fb4…3a4148 [0x04]: C0x0149.0x3.0
0x3a3fb4…3a4148 ]
0x3a3fb4…3a4148 }
0x3a4148…3a42dc Dummy {f00=0x0125, f01=0x018e, f02=» 2 P IDENT LRPINT REL 10.0 80-03-14 870105041000 P : P* B P* L 6 P************************************************** V P* $ P* PHILIPS TERMINAL SYSTEM PTS P* 0 P* LRPINT = INTERRUPT HANDLERS FOR LKM, RTC " P*
0x3a42dc…3a4470 Dummy {f00=0x0125, f01=0x0190, f02=» P* P* : P* THIS MODULE CONTAINS MANDATORY INTERRUPT HANDLERS P* FOR TOSS. THESE ARE: V P* v P* -IHLKM: LKM INTERRUPT P* P* -IHRTC: RTC INTERRUPT P* ( P* -IHPFAR: POWER FAILURE INTERRUPT P*
0x3a4470…3a4604 Dummy {f00=0x0125, f01=0x0190, f02=»QUEUE JOB AND DISPATCH v P* ( P* -LKMQDI: QUEUE JOB AND DISPATCH ( P* T P EJECT LRPINT ^ P* v P* P*********** P* ENTRIES * P*********** P* P* & P ENTRY IHLKM LKM INTERRUPT HANDLER 4 P ENT
0x3a4604…3a4798 Dummy {f00=0x0125, f01=0x018e, f02=»RROR d ( P ENTRY LKMQDI QUEUE JOB AND DISPATCH & P ENTRY IHRTC RTC INTERRUPT HANDLER 8 8 P ENTRY TIMQUE POINTER TO FIRST BLOCK IN TIMER QUEUE b P ENTRY MONCLO MONITOR CLOCK 2 P ENTRY IHPFAR POWER FAILURE INTERRUPT HANDLER & P ENTRY INIFLG IN
0x3a4798…3a492c Dummy {f00=0x0125, f01=0x0190, f02=» P* EXTERNALS * P************* P* 0 P* : P EXTRN TDISP DISPATCHER D " P EXTRN DISQUE DISPATCHER QUEUE d ( P EXTRN PRUN TTAB OF RUNNING PROGRAM " P EXTRN MEXIT MONITOR TASK EXIT , P EXTRN MONMMU MONITOR (SYSTEM) MMU TABLE
0x3a492c…3a4ac0 Dummy {f00=0x0125, f01=0x0190, f02=» LEVEL XY z P EXTRN FREBLK SET BLOCK FREE " P EXTRN SAVE8 SAVE 8 REGISTERS 6 $ P EXTRN PFINIT RESTART OF DEVICES P EXTRN HALT HALT MODULE ( P EXTRN INTSAV INTERRUPT SAVE MODULE P EXTRN RELPAG RELEASE PAGE , P EXTRN TLDSEG LOAD SEG
0x3a4ac0…3a4c54 (4, 78) Dummy {f00=0x0126, f01=0x0190, f02=» OF SAVE AREA IN TTAB x " P EXTRN LKMAL LKM REQUEST TABLE P EJECT LRPINT D P* P* f . P***************************************** p P* P* CONDITIONAL ASSEMBLY P* . P***************************************** P*
0x3a4c54…3a4de8 Dummy {f00=0x0126, f01=0x0190, f02=» P* 6 P* A PROGRAM VERSION USING THE EXTENDED INSTRUCTION . P* SET IS OBTAINED BY SETTING CPU852 EQU 0. L P* ~ PCPU852 EQU 0 P* * . ** A PROGRAM VERSION USING TOSS DISC PAGING * &* IS OBTAINED BY SETTING DSKPAG EQU 1.
0x3a4de8…3a4f7c Dummy {f00=0x0126, f01=0x0190, f02=»ETTING MONCLK EQU 0. ~ P* PX:A EQU 1 & PMONCLK EQU 1 8 P* L P EJECT LRPINT V P* n P* x P* I H L K M P* P* 8 P* THIS IS THE LKM INTERRUPT HANDLER. THE FOLLOWING P* STEPS ARE CARRIED OUT:
0x3a4f7c…3a5110 Dummy {f00=0x0126, f01=0x0190, f02=»* PROGRAM. P* : P* - EXIT CONDITIONS ARE SET AND A BRANCH IS MADE TO $ P* APPROPRIATE LKM PROCESSOR. ^ P* P* EXIT CONDITIONS ARE: P* * P* A4 = LABEL ADDRESS OF LKM REQUEST 8 P* (A4 = 0 INDICATES NO LA
0x3a5110…3a52a4 Dummy {f00=0x0126, f01=0x0190, f02=» P* : P* ALL OTHER REGISTERS REMAIN UNCHANGED FROM CALLING P* PROGRAM. L P* ` P* j P* t PIHLKM EQU * ~ $ P ST P,INTSAV SAVE LAST INTERRUPT * P RIT /1D RESET INTERNAL INTERRUPT FLAG P* P EJECT LRPINT
0x3a52a4…3a5438 Dummy {f00=0x0126, f01=0x0190, f02=»B:SA+28 SET A15 TO LAST IN SAVE AREA * P STR A14,A15 SAVE USER REGISTERS, -A14 , P STR A13,A15 -A13 Z P STR A12,A15 -A12 t P STR A11,A15 -A11 P STR A10,A15 -A10 P STR A9,A15 -A9 P STR A8,A15 -A8 P STR A7,A15 -A7
0x3a5438…3a55cc Dummy {f00=0x0126, f01=0x0190, f02=»1 P XIF P* P IFT CPU852=0 6 P MS 14,TTB:SA+2,A15 SAVE A1-A14 IN TTAB SAVE AREA 6 P XIF p P* | 0 P LD A5,PRUN GET TTAB ADDRESS OF CALLING TASK * P LDKL A15,0 RESTORE A15 STACK POINTER PLKM010 EQU *-2 P* P
0x3a55cc…3a5760 Dummy {f00=0x0126, f01=0x0190, f02=»STACK POINTER n & P ST A3,TTB:PW,A5 STORE PSW IN TTAB P* @ P IFT MMUPAG=0 J & P LD A3,-2,A2 GET INSTRUCTION CODE ` " P LDR* A6,A2 GET DATA DIRECTIVE P XIF P* P IFT MMUPAG=1 P ANK A3,1 P RF(NZ) LKM015 USER MODE
0x3a5760…3a58f4 (4, 79) Dummy {f00=0x012e, f01=0x0190, f02=»ET DATA DIRECTIVE P XIF P* & P CWK A3,/2804 0 P RF(E) LKM025 LKM F P CWK A3,/6300 ` P RF(E) LKM025 TRAP v P* $ P* STACK OVERFLOW: HALT SYSTEM P* P LDK A1,7 HALT PARAMETER 0 P RF LKM070 HALT SYSTEM DUE T
0x3a58f4…3a5a88 Dummy {f00=0x012e, f01=0x018e, f02=» GET SEGMENT BLOCK ADDRESS P RF(Z) LKM027 NO SEGMENT " " P LCR A4,A3 GET SEGMENT STATUS B , P ANK A4,/1E CHECK IF CORE RESIDENT OR... h 2 P RF(NZ) LKM027 ...USED BY AN INTERRUPTED TASK P* ( P* INSERT PAGE BLOCK IN PAGE QUEUE P*
0x3a5a88…3a5c1c Dummy {f00=0x012e, f01=0x018e, f02=» PLKM027 EQU * P IFF MMUPAG+DSKPAG=0 " P CWK A6,9 CHECK DATA DIRECTIVE 4 ( P ABL(E) TLDSEG LOAD SEGMENT REQUEST Z P XIF P* P EJECT LRPINT P* P* PLKM030 EQU * ( P CM PRUN INDICATE IDLE LOOP RUNNING $ P
0x3a5c1c…3a5db0 Dummy {f00=0x012e, f01=0x0190, f02=» P* LKM REQUEST WITH LABEL P* & P ADK A2,2 0 , P NGR A3,A3 MAKE DATA DIRECTIVE POSITIVE B P* r P IFT MMUPAG=0 | P LDR* A4,A2 GET LABEL P XIF P* P IFT MMUPAG=1 P ELR A4,A2 GET LABEL P XIF P*
0x3a5db0…3a5f44 Dummy {f00=0x012e, f01=0x0190, f02=»EXT ADDRESS TO $ P ST A2,TTB:SA,A5 EXECUTE IN TTAB " P ADR A3,A3 GET INDEX IN LKMAL > ( P RF(Z) LKMQDI PROGRAM SWITCH REQUEST d P CW A3,LKMAL * P RF(NL) LKMRQE INVALID DATA DIRECTIVE P INH P LD A3,LKMAL,A3 ( P ABR(NZ) A3 BRANCH
0x3a5f44…3a60d8 Dummy {f00=0x012e, f01=0x0190, f02=»1,15 INDICATE REQUESTED LKM PROC. NOT PRESENT P* 6 PLKM070 EQU * @ P CF A15,HALT HALT SYSTEM T P* t P* ~ P* L K M R Q E P* 6 P* SET A7 = -1, QUEUE TERMINAL JOB AND DISPATCH. P* P* A5 = TTAB ADDRESS
0x3a60d8…3a626c Dummy {f00=0x012e, f01=0x0190, f02=» L K M Q D I P* ( P* QUEUE TERMINAL JOB AND DISPATCH. P* L P* A5 = TTAB ADDRESS V P* t P* ~ PLKMQDI EQU * P CF A15,QTJOB P* * PT:DISP EQU * COMMON EXIT TO DISPATCHER P ABL TDISP GO TO DISPATCHER
0x3a626c…3a6400 Dummy {f00=0x012e, f01=0x0190, f02=»LER. Z P* P P P & P DATA 0 . & PTTABPF DATA 0 TTAB FOR POWER FAIL > P DATA '#P' h P DATA 0 z PA15SAV DATA 0 P DATA /00C0 P DATA PFTASK P P P P P & PPFX DATA 1 POWER ON/OFF
0x3a6400…3a6594 (4, 80) Dummy {f00=0x0146, f01=0x018e, f02=» * PPFPOST DATA 0 PWF POST PROCESSING FLAG P NZ=PWF POST PROCESSING 6 P EJECT LRPINT X P p P* x * P* POWER FAIL/AUTO RESTART INTERRUPT P* P PIHPFAR EQU * $ P ST P,INTSAV SAVE LAST INTERRUPT & P RIT /17
0x3a6594…3a6728 Dummy {f00=0x0146, f01=0x018e, f02=» P* P IFT CPU852=1 & P CF A15,SAVE8 SAVE A1-A14 ON STACK $ P STR A9,A15 N P STR A10,A15 b P STR A11,A15 v P STR A12,A15 P STR A13,A15 P STR A14,A15 P XIF P P IFT CPU852=0 $ P MSR 14,A15 SAVE A1-A14
0x3a6728…3a68bc Dummy {f00=0x0146, f01=0x0190, f02=» P* POWER ON P* P " " PPOWON LD A15,A15SAV RELOAD A15 * P P P IFT CPU852=1 X P LDR* A14,A15 RESTORE A9-A14 n P LDR* A13,A15 P LDR* A12,A15 P LDR* A11,A15 P LDR* A10,A15 P LDR* A9,A15 P XIF
0x3a68bc…3a6a50 Dummy {f00=0x0146, f01=0x0190, f02=» FOR DISPATCHING p P LDKL A2,TTABPF P CWR A1,A2 0 4 P RB(E) T:DISP ALREADY QUEUED, PWF DURING PFPOST B P STR A1,A2 z P ST A2,DISQUE , P IM PFPOST INDICATE PWF POST PROCESSING P RB T:DISP P EJECT LRPINT P P*
0x3a6a50…3a6be4 Dummy {f00=0x0146, f01=0x0190, f02=»OC FLAG n P CM INIFLG AND INIT FLAG & P CF A15,PFINIT RESTART I/O DEVICES 0 P CM PRUN EXIT PFTASK Z P RB T:DISP v P EJECT LRPINT P* P* I H R T C P* 6 P* THIS IS THE REAL TIME CLOCK INTERRUPT HANDLER. 6 P*
0x3a6be4…3a6d78 Dummy {f00=0x0146, f01=0x0190, f02=»LAG v P IM COUNT $ P RF(P) RTC010 CHECK TIMER QUEUE P RTN A15 F P* V PRTC010 EQU * ` P IFT CPU852=1 t & P CF A15,SAVE8 SAVE A1-A8 ON STACK P XIF P* P IFT CPU852=0 " P MSR 8,A15 SAVE A1-A8 ON STACK P X
0x3a6d78…3a6f0c Dummy {f00=0x0146, f01=0x0190, f02=»QMJOB P* P IFT MONCLK=1 P IM SECOND . & P RF(P) RTC025 UPDATE MONITOR CLOCK @ P XIF j P* v PRTC020 EQU * $ P CF A15,SWLXY SWITCH TO LEVEL XY P RB T:DISP P* P EJECT LRPINT P* P* P IFT
0x3a6f0c…3a70a0 Dummy {f00=0x0146, f01=0x0190, f02=»T SECOND SWITCH P ST A4,SECOND P LDK A4,4 . P* @ 2 PMCLO10 LDK A3,60 NUMBER OF MINUTES AND SECONDS J ( PMCLO20 IM MONCLO+2,A4 INCREMENT TIME . P XR A3,MONCLO+2,A4 CHANGE MINUTES OR HOURS $ P RB(NE) RTC020 GO TO DISPATCHER ( P C
0x3a70a0…3a7234 (4, 81) Dummy {f00=0x0149, f01=0x0190, f02=» LDK A3,24 UPDATE HOURS P RB MCLO20 P XIF 2 P* > P* H P* M O N C L O R P* j P* t PMONCLO EQU * ~ P IFT MONCLK=1 & P DATA 0 ACCUMULATED 24 HOUR CARRY P DATA 0 HOUR P DATA 0 MINUTE P DATA 0 SECO
0x3a7234…3a73c8 Dummy {f00=0x0149, f01=0x0190, f02=»S. l P* PCLOCK INH , P LDKL A4,TIMQUE LOAD FIRST TIMER ADDRESS & P* V PCLK10 LDR A6,A4 ` $ PCLK20 LDR* A4,A6 GET TIMER BLOCK x P ABL(Z) MEXIT END OF QUEUE P IM 4,A4 INCREMENT TIMER P RB(N) CLK10 NOT TIME OUT P RF(
0x3a73c8…3a755c Dummy {f00=0x0149, f01=0x0190, f02=» P RB CLK20 P* P EJECT LRPINT P* 8 P* B , PCLK30 CF A15,CLK40 CALL TIME OUT ROUTINE L $ P CF A15,SWL48 SWITCH TO LEVEL 48 | P INH P RB CLK10 P* PCLK40 EQU * P IFT CPU852=1 & P CF A15,SAVE8 SAVE
0x3a755c…3a76f0 Dummy {f00=0x0149, f01=0x0190, f02=»,/C4C0 LEVEL 49 AND ENABLE & P ST A1,18,A15 SET NEW PSW ON STACK ! " P LD A2,2,A4 LOAD DISP BLOCK ! L P LD A1,4,A2 GET PARAMETER ! p $ P ABI 2,A2 GO TO TIME OUT ROUTINE ! P* ! P* ! PCOUNT DATA 0 100 MS SWITCH ! P* ! P* ! P*
0x3a76f0…3a7884 Dummy {f00=0x0149, f01=0x4022, f02=»* ! P " P END " @ " ST A1,18,A15 SET NEW PSW ON STACK ! " P LD A2,2,A4 LOAD DISP BLOCK ! L P LD A1,4,A2 GET PARAMETER ! p $ P ABI 2,A2 GO TO TIME OUT ROUTINE ! P* ! P* ! PCOUNT DATA 0 100 MS SWITCH ! P* ! P* ! P*
0x3a7884…3a7a18 Dummy {f00=0x0149, 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
0x3a7a18…3a7bac Dummy {f00=0x0149, f01=0x0000, f02=»
[…0x1…]
0x3a7d40…3a7ed4 (4, 82) Opaque[0x194]
0x3a7ed4…3a8068 # DirEnt {nam=»TPROC «, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x2140, f03=0x0000}
0x3a7ed4…3a8068 IdxSect {
0x3a7ed4…3a8068 f00 = 0x010a // 0x3a7ed4 @0x0
0x3a7ed4…3a8068 f01 = 0x0006 // 0x3a7ed6 @0x2
0x3a7ed4…3a8068 gno = [ // 0x3a7ed8 @0x4
0x3a7ed4…3a8068 [0x00]: C0x010a.0x0.0
0x3a7ed4…3a8068 [0x01]: C0x010a.0x2.0
0x3a7ed4…3a8068 [0x02]: C0x010a.0x3.0
0x3a7ed4…3a8068 ]
0x3a7ed4…3a8068 }
0x3a8068…3a81fc Dummy {f00=0x010a, f01=0x0190, f02=» 0 P IDENT TPROC REL 10.0 80-03-14 870105041000 P 8 P* @ P* J 6 P************************************************** T P* $ P* PHILIPS TERMINAL SYSTEM PTS P* $ P* TPROC = TOSS LKM PROCESSORS P* P* P*
0x3a81fc…3a8390 Dummy {f00=0x010a, f01=0x0190, f02=»AINS THE FOLLOWING | P* TOSS LKM PROCESSORS: P* : P* - TWAIT = WAIT D P* ` P* - TMWAIT = MULTIPLE WAIT j P* ( P* - TACTOT = ACTIVATE/RESTART TASK P* P EJECT TPROC P* P* P***********
0x3a8390…3a8524 Dummy {f00=0x010a, f01=0x0190, f02=»R l , P ENTRY TACTOT ACTIVATE/RESTART PROCESSOR P EJECT TPROC : P* P P* Z P************* d P* EXTERNALS * z P************* P* P* P EXTRN TDISP DISPATCHER , P EXTRN QTJOB QUEUE TASK FOR DISPATCHING *
0x3a8524…3a86b8 Dummy {f00=0x010a, f01=0x0190, f02=» EXTRN FNDDWT FIND DWT ADDRESS FROM FILE CODE 0 P EXTRN FNDTID FIND TTAB ADDRESS FROM TASK ID 6 P EXTRN TTB:SA TTAB SAVE AREA j P EXTRN DWTST DWT STATUS P EXTRN DWTTAB TTAB ADDRESS * P EXTRN DWTWAT WAIT/ACTIVATE INDICATOR P EJECT T
0x3a86b8…3a884c Dummy {f00=0x010a, 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* P EJECT TPROC P* P* P******** P* WAIT *
0x3a884c…3a89e0 Dummy {f00=0x010a, f01=0x0190, f02=» 6 P* WANTS TO SYNCHRONIZE WITH A PARTICULAR EVENT. P* > * P* IT IS ENTERED FROM THE LKM HANDLER H & P* WITH THE FOLLOWING PARAMETERS: v P* P* A5 = TTAB ADDRESS P* A8 = ECB ADDRESS P* P* * PTWAIT CF A15,FND
0x3a89e0…3a8b74 (4, 83) Dummy {f00=0x010a, f01=0x018e, f02=»,A8 RETURN IF EVENT COMPLETED P XIF & P* 2 P IFT MMUPAG=1 < ( P ELR A1,A8 RETURN IF EVENT COMPLETED R P XIF ~ P* ( P RF(N) TP:QDI I/O ALREADY COMPLETED 0 P IM DWTWAT,A6 NO, SET WAIT INDICATOR IN DWT P* & PT:DISP ABL
0x3a8b74…3a8d08 Dummy {f00=0x010a, f01=0x0190, f02=» P* P* 8 P* THIS IS THE ACTIVATE/RESTART TASK LKM PROCESSOR. P* T 4 P* THIS MODULE IS ENTERED FROM THE LKM HANDLER ^ ( P* WHEN A TASK HAS TO BE ACTIVATED. P* 0 P* THE FOLLOWING PARAMETERS ARE SUPPLIED:- P* (
0x3a8d08…3a8e9c Dummy {f00=0x010a, f01=0x0190, f02=»NTIFICATION FOR TASK TO BE ACTIVATED P* , P* 6 PTACTOT EQU * @ $ P CF A15,FNDTID FIND TTAB ADDRESS T P ADK A2,0 SET CR | $ P RF(Z) TP:RQE TASK NOT IN SYSTEM 4 P CF A15,QTJOB QUEUE CALLING TASK FOR DISPATCHING * P LD A3,TTB:SA+6,A5 G
0x3a8e9c…3a9030 Dummy {f00=0x010a, f01=0x0190, f02=»ASK AND DISPATCH z P* P EJECT TPROC " P* 8 P* B P********** L P* TMWAIT * ^ P********** p P* P* 0 P* THIS IS THE MULTIPLE WAIT LKM PROCESSOR. P* * P* IT IS ENTERED FROM THE LKM HANDLER & P* WI
0x3a9030…3a91c4 Dummy {f00=0x010a, f01=0x0190, f02=»E SPECIFIED EVENTS IS COMPLETED, ~ 6 P* RETURN IS MADE TO THE CALLING TASK VIA TENDIO ( & P* WITH THE FOLLOWING PARAMETERS: b P* , P* A8 = ECB ADDRESS OF COMPLETED EVENT P* > P* IF REQUEST ERROR, A7 := -1 (AND NO RETURN VIA TENDIO
0x3a91c4…3a9358 Dummy {f00=0x010a, f01=0x0190, f02=» TPROC P* P* $ PTMWAIT EQU * MULTIPLE WAIT ENTRY " P LDK A3,0 J P* P IFT MMUPAG=0 f * P LDR* A1,A7 GET NO OF ECB:S IN ECBBLK | P XIF P* P IFT MMUPAG=1 ( P ELR A1,A7 GET NO OF ECB:S IN ECBBLK P XIF
0x3a9358…3a94ec Dummy {f00=0x010a, f01=0x0190, f02=» b P* P IFT MMUPAG=0 P LDR* A8,A7 GET ECB ADDRESS ( & P LDR* A2,A8 GET FIRST WORD OF ECB L P XIF v P* P IFT MMUPAG=1 P ELR A8,A7 GET ECB ADDRESS $ P ELR A2,A8 GET FIRST WORD OF ECB P XIF P* ( P RF(N)
0x3a94ec…3a9680 Dummy {f00=0x010a, f01=0x0190, f02=»NOT FOUND P* P EJECT TPROC P* 2 P* < " P LD A2,DWTST,A6 GET DWT STATUS F P RF(N) TP:RQE NOT BUSY l P CW A5,DWTTAB,A6 2 P RF(NE) TP:RQE REQUEST NOT ISSUED BY THIS TASK 0 P LD A2,DWTWAT,A6 GET WAIT/ACTIVATE INDICATOR
0x3a9680…3a9814 (4, 84) Dummy {f00=0x010a, f01=0x018e, f02=»F(NZ) TMW:20 NOT THE FIRST ECB IN ECBBLK & P LDR A9,A6 SAVE FIRST DWT ADDRESS 0 P LDR A3,A6 Z P* l PTMW:20 EQU * v 8 P ST A6,DWTWAT,A9 CHAIN THIS DWT WITH THE ONE BEFORE $ P LDR A9,A6 SAVE THIS DWT ADDRESS P SUK A1,1 & P RB(P) T
0x3a9814…3a99a8 Dummy {f00=0x010a, f01=0x0190, f02=» PTMW:30 EQU * 4 P ST A8,TTB:SA+16,A5 UPDATE A8 IN TTAB SAVE AREA 2 P ADK A3,0 CHECK FLAG IF FIRST ECB TO WAIT FOR T & P RF(Z) TP:QDI FIRST ECB IN ECBBLK P* : PTMW:40 ADKL A3,DWTWAT POINT TO WAIT/ACTIVATE INDICATOR $ P LDR* A2,A3
0x3a99a8…3a9b3c Dummy {f00=0x010a, f01=0x40e6, f02=»* P EJECT TPROC P* P* * PTP:RQE EQU * 4 " P ABL LKMRQE LKM REQUEST ERROR H P* n PTP:QDI EQU * x ( P ABL LKMQDI QUEUE TASK AND DISPATCH P* P* P* P END @ VATE INDICATOR $ P LDR* A2,A3
0x3a9b3c…3a9cd0 Dummy {f00=0x010a, 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
0x3a9cd0…3a9e64 Dummy {f00=0x010a, f01=0x0190, f02=»TOTYPE NAME 8 PUPNUMB EQU 7 SAVE AREA NUMBER OF COPIES (SHADOW-TBL) P* P . PUR:REC EQU 6 RECORD LENGTH IN REAL U:BTAB Z * PURADDR EQU 2 ADDRESS TO FIRST REAL UWB PURNUMB EQU 4 NUMBER OF UWB'S PURLENG EQU 6 LENGTH OF UWB P EJECT
0x3a9e64…3a9ff8 Dummy {f00=0x010a, f01=0x0190, f02=»***************** P P* TASK DEFINITION BLOCK: & PTDBBT EQU 0 1A BLOCK TYPE F ( PTDBNT EQU TDBBT+1 2N NUMBER OF TASKS h , PTDBID EQU TDBNT+2 6A TASK ID START VALUE , PTDBMC EQU TDBID+6 6A MATCHING TASK CLASS $ PTDBTL EQU TDBMC+6 6A
0x3a9ff8…3aa18c Dummy {f00=0x010a, f01=0x0190, f02=»C EQU 7 TERMINAL DEVICE CLASS PTLC EQU 6 LINE CONNECTION & ( PTDBREC EQU TDC+TLC TDB-RECORD LENGTH H P* t * PSDC EQU 7 SPECIAL DEVICE CLASS-RECORD ~ P* P* COMMON DEVICE DEF. BLOCK: PCDBBT EQU 0 1A BLOCK TYPE 6 PCDBNC EQU CD
0x3aa18c…3aa320 Dummy {f00=0x010a, f01=0x0190, f02=». BLOCK v PUDBBT EQU 0 1A BLOCK TYPE , PUDBNU EQU UDBBT+1 3A NUMBER OF UWB TYPES 2 P* b ( PUDBFST EQU UDBNU+3 FIRST UDB-RECORD l PNAMUWB EQU 3 NAME OF UWB " PNUMUBL EQU 3 NUMBER OF BLOCKS . PUDBREC EQU NAMUWB+NUMUBL UDB RECORD-LENGTH
0x3aa320…3aa4b4 (4, 85) Opaque[0x194]
0x3aa4b4…3aa648 # DirEnt {nam=»MSUBS «, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x2108, f03=0x0000}
0x3aa4b4…3aa648 IdxSect {
0x3aa4b4…3aa648 f00 = 0x0108 // 0x3aa4b4 @0x0
0x3aa4b4…3aa648 f01 = 0x000e // 0x3aa4b6 @0x2
0x3aa4b4…3aa648 gno = [ // 0x3aa4b8 @0x4
0x3aa4b4…3aa648 [0x00]: C0x0108.0x1.0
0x3aa4b4…3aa648 [0x01]: C0x0108.0x3.0
0x3aa4b4…3aa648 [0x02]: C0x0109.0x0.0
0x3aa4b4…3aa648 [0x03]: C0x0109.0x1.0
0x3aa4b4…3aa648 [0x04]: C0x012a.0x1.0
0x3aa4b4…3aa648 [0x05]: C0x012a.0x3.0
0x3aa4b4…3aa648 [0x06]: C0x012b.0x0.0
0x3aa4b4…3aa648 ]
0x3aa4b4…3aa648 }
0x3aa648…3aa7dc Dummy {f00=0x0108, f01=0x0190, f02=» 0 P IDENT MSUBS REL 10.0 80-03-14 870105041000 P 8 P* @ P* J 6 P************************************************** T P* $ P* PHILIPS TERMINAL SYSTEM PTS P* $ P* MSUBS = MONITOR SUBROUTINES P* P* P*
0x3aa7dc…3aa970 Dummy {f00=0x0108, 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*
0x3aa970…3aab04 Dummy {f00=0x0108, f01=0x0190, f02=»K SET A MONITOR BLOCK FREE " P* -FNDDWT FIND DWT ADDRESS $ * P* -FNDTID FIND TASK IDENTIFICATION J P* -PFINIT RESTART DEVICE x $ P* -SWL48 SWITCH TO LEVEL 48 $ P* -SWLXY SWITCH TO LEVEL XY P* -HALT HALT MODULE
0x3aab04…3aac98 Dummy {f00=0x0108, f01=0x0190, f02=»******* P* P* " P ENTRY SAVE8 SAVE 8 REGISTERS $ P ENTRY QTJOB QUEUE TASK J " P ENTRY QMJOB QUEUE MONITOR JOB j & P ENTRY ACTOT ACTIVATE TASK (FIFO) & P ENTRY ACTOTP ACTIVATE TASK (LIFO) P ENTRY EXIT PROGRAM EXIT P ENT
0x3aac98…3aae2c Dummy {f00=0x0108, f01=0x0190, f02=»D FIND TASK INDENTIFICATION P ENTRY PFINIT RESTART DEVICE $ $ P ENTRY SWL48 SWITCH TO LEVEL 48 H $ P ENTRY SWLXY SWITCH TO LEVEL XY p , P ENTRY ILLINT ILLEGAL INTERRUPT ROUTINE * P ENTRY INTSAV SAVE AREA LAST INTERRUPT P ENTRY HALT HALT M
0x3aae2c…3aafc0 Dummy {f00=0x0108, f01=0x0190, f02=»RY IHRET2 A2 " P ENTRY IHRET1 A1 2 P ENTRY IHRTN RETURN WITHOUT ENABLE INTERRUPTS : P EJECT MSUBS p P* P* P************* P* EXTERNALS * P************* P* P* : P EXTRN DISQUE POINTER TO
0x3aafc0…3ab154 (4, 86) Dummy {f00=0x0108, f01=0x0190, f02=»RN PQEMTY PAGE QUEUE EMPTY FLAG " P EXTRN PAGQUE FREE PAGE QUEUE ( $ P EXTRN SEG:PB PAGE BLOCK ADDRESS N & P EXTRN PAG:QB QUEUE LINK BACKWARD v 4 P EXTRN LKMERR HALT SYSTEM DUE TO FATAL LKM ERROR & P EXTRN TTMJOB TTAB ADDRESS OF MJOB ( P EXTRN
0x3ab154…3ab2e8 Dummy {f00=0x0108, f01=0x0190, f02=»RN TTB:SA SAVE AREA * P EXTRN TTB:PP POINTER TO PENDING QUEUE ( P EXTRN TTB:TD TERMINAL DEVICE TABLE J $ P EXTRN SCTTCT TASK CONTROL TABLE v & P EXTRN SCTCDT COMMON DEVICE TABLE 2 P EXTRN PFTAB TABLE OF DEVICES TO BE RESTARTED P EJECT M
0x3ab2e8…3ab47c Dummy {f00=0x0108, 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* P* 6 P* A PROGRAM VERSION USING THE EXTENDED INSTRUCTION . P* SE
0x3ab47c…3ab610 Dummy {f00=0x0108, f01=0x0190, f02=»NG h * &* IS OBTAINED BY SETTING DSKPAG EQU 1. * 8 PDSKPAG EQU 0 B * V P* ` " PSOP EQU /2E SOP DEVICE ADDRESS j P* P EJECT MSUBS P* P* P* S A V E 8 P* 0 P* SUBROUTINE TO SAVE 8 REGISTERS O
0x3ab610…3ab7a4 Dummy {f00=0x0108, f01=0x0190, f02=»A15 P STR A4,A15 P STR A5,A15 P STR A6,A15 4 P STR A7,A15 H P STR A8,A15 , P LD A3,16,A15 LOAD P.C. (RETURN ADDRESS) p , P ST A3,SAVE81 AND MODIFY BRANCH ADDRESS P ST A2,14,A15 P ST A1,16,A15 P LD A3,12,A1
0x3ab7a4…3ab938 Dummy {f00=0x0108, f01=0x0190, f02=»* Q T J O B P* 2 P* SUBROUTINE TO QUEUE TASK FOR DISPATCHING. P* V P* ENTRY PARAMETER: ` P* | 2 P* A5 = TTAB ADDRESS OF PROGRAM TO BE QUEUED. P* 8 P* THE REQUESTED JOB IS PUT IN DISPATCHER QUEUE ON 8 P* PR
0x3ab938…3abacc Dummy {f00=0x0108, f01=0x0190, f02=»* P IFT CPU852=1 $ P STR A1,A15 SAVE A1-A3 ON STACK P STR A2,A15 H P STR A3,A15 P XIF p P* | P IFT CPU852=0 " P MSR 3,A15 SAVE A1-A3 ON STACK P XIF P* . P LDKL A1,DISQUE LOAD QUEUE ANCHOR ADDRESS 2
0x3abacc…3abc60 Dummy {f00=0x0108, f01=0x018e, f02=»* P EJECT MSUBS P* P* * 6 PQTJ010 CC A3,TTB:ST+1,A2 COMPARE WITH QUEUED LEVEL 4 P RF(L) QTJ020 INSERT n P LDR A1,A2 SAVE ADDRESS . P LDR* A2,A1 GET NEXT TTAB ADDRESS IN QUEUE $ P RB(NZ) QTJ010 NOT END OF QUEUE P*
0x3abc60…3abdf4 (4, 87) Dummy {f00=0x0109, f01=0x0190, f02=» P IFT CPU852=0 * P MLR 3,A15 RESTORE A1-A3 FROM STACK... P RTN A15 ...AND RETURN L P XIF j P* v P EJECT MSUBS P* P* P* Q M J O B P* 6 P* SUBROUTINE TO QUEUE MONITOR JOBS ON LEVEL 49. P*
0x3abdf4…3abf88 Dummy {f00=0x0109, f01=0x0190, f02=»B ADDRESS OF MONITOR JOBS AND THE | < P* SUBROUTINE 'ACTOT' IS USED TO ACTIVATE AND QUEUE THE * P* JOB. j P* z P* PQMJOB EQU * P IFT CPU852=1 & P CF A15,SAVE8 SAVE A1-A8 ON STACK P XIF P* P IFT CPU852=0
0x3abf88…3ac11c Dummy {f00=0x0109, f01=0x0190, f02=»* P EJECT MSUBS P* P* * P* A C T O T , A C T O T P 4 P* X & P* SUBROUTINE TO ACTIVATE A TASK. b P* P* ENTRY PARAMETERS: P* P* A1 = PARAMETER 1 P* A2 = DISPATCH ADDRESS P* A3 = SEG
0x3ac11c…3ac2b0 Dummy {f00=0x0109, f01=0x0190, f02=»GRAM IS ` : P* PUT IN DISPATCHER QUEUE VIA SUBROUTINE 'QTJOB'. @ P* - IF PROGRAM IS ACTIVE, THE REQUEST IS PUT IN A PENDING N P* QUEUE. @ P* - ACTOT WILL PUT REQUEST IN PENDING QUEUE ON FIFO BASIS. B P* - ACTOTP WILL PUT REQUEST
0x3ac2b0…3ac444 Dummy {f00=0x0109, f01=0x0190, f02=» n P XIF P* P IFT CPU852=0 P INH 4 " P MSR 8,A15 SAVE A1-A8 ON STACK @ P XIF f P* r P LDK A6,1 INDICATE LIFO | P RF ACT03 P* P EJECT MSUBS P* P* PACTOT EQU * P IFT CPU852=1
0x3ac444…3ac5d8 Dummy {f00=0x0109, f01=0x0190, f02=» P XIF P* PACT01 LDK A6,0 INDICATE FIFO P* > PACT03 EQU * H 0 P LD A7,TTB:SA,A5 GET (OLD) DISPATCH ADDRESS $ P RF(NZ) ACT020 IS PROGRAM ACTIVE " P ST A1,TTB:SA+2,A5 PARAMETER 1 0 P ST A2,TTB:SA,A5 SAVE (NEW) DISPATCH ADDRE
0x3ac5d8…3ac76c Dummy {f00=0x0109, f01=0x0190, f02=»,TTB:SA+4,A5 TO A2 IN SAVE AREA P* ( P IFF MMUPAG+DSKPAG=0 2 6 P CM TTB:SB,A5 INDICATE NOT RUNNING IN ANY SEGMENT N P XIF P* P CF A15,QTJOB QUEUE THE JOB P* P EJECT MSUBS P* P* PACT010 EQU *
0x3ac76c…3ac900 Dummy {f00=0x0109, f01=0x0190, f02=» FROM STACK... x P RTN A15 ...AND RETURN P XIF 4 P* @ $ P* PUT REQUEST IN PENDING QUEUE J P* r & PACT020 LDR A7,A4 SAVE PARAMETER 2 | $ P CF A15,GETBLK GET A FREE BLOCK P LDR A1,A7 PARAMETER 2 P LDR A2,A4 P CF A15,GE
0x3ac900…3aca94 (4, 88) Dummy {f00=0x0109, f01=0x018e, f02=»0 SET CR & P RF(NZ) ACT040 QUEUE ON LIFO BASIS P ADK A5,0 SET CR : $ P RB(NZ) ACT030 NOT END OF QUEUE R P* z PACT040 EQU * " P STR A4,A3 SET BLOCK IN QUEUE P STR A5,A4 P RB ACT010 P* P EJECT MSUBS P*
0x3aca94…3acc28 Dummy {f00=0x0109, f01=0x0190, f02=» P* ENTRY PARAMETER: P* $ P* A5 = TTAB ADDRESS . P* L P* A3-A4, A7 ARE DESTROYED V P* z P* PEXIT EQU * ( P CM TTB:SA,A5 RESET PROGRAM COUNTER 0 P LD A4,TTB:PP,A5 GET PENDING PROGRAM POINTER $ P RF(Z) I
0x3acc28…3acdbc Dummy {f00=0x0109, f01=0x0190, f02=»ELEASE BLOCK AND GET PARAMETERS P LDR A7,A1 SAVE PARAMETER 2 ( P LDR A4,A2 L P CF A15,FREBLK ^ P LDR A4,A7 PARAMETER 2 t P RB ACTOT ACTIVATE TASK P* P EJECT MSUBS P* P* P* G E T B L K P* 4 P
0x3acdbc…3acf50 Dummy {f00=0x0109, f01=0x0190, f02=» P* P* EXIT PARAMETER: P* * ( P* A4 = ADDRESS TO FOUND FREE BLOCK 4 P* ` P* j PGETBLK EQU * t P INH P STR A5,A15 SAVE A5 0 P LD A4,FREQUE GET FIRST BLOCK IN FREE QUEUE P RF(NZ) GBL010 P LDK A1,/B HAL
0x3acf50…3ad0e4 Dummy {f00=0x0109, f01=0x0190, f02=»FREE QUEUE p $ P STR A3,A4 STORE A3-A1 IN BLOCK P ST A2,2,A4 : P ST A1,4,A4 N P LDR* A5,A15 RESTORE A5 b P* P IFT CPU852=1 P RF IHRTN P XIF P* P IFT CPU852=0 P RTN A15 P XIF P* P E
0x3ad0e4…3ad278 Dummy {f00=0x0109, f01=0x018e, f02=»* AND SET THIS BLOCK FREE. P* $ P* ENTRY PARAMETER: . P* J P* A4 = BLOCK ADDRESS T P* r P* EXIT PARAMETERS: | P* & P* A3 = FIRST PARAMETER IN BLOCK $ P* A2 = SECOND " " $ P* A1 = THIRD "
0x3ad278…3ad40c Dummy {f00=0x0109, f01=0x0190, f02=» P ST A4,FREQUE SET BLOCK FREE P LD A2,2,A4 , P LD A1,4,A4 @ P* T P IFT CPU852=1 ^ P RF IHRTN t P XIF P* P IFT CPU852=0 P RTN A15 P XIF P* P EJECT MSUBS P* P* P* F
0x3ad40c…3ad5a0 Dummy {f00=0x0109, f01=0x0190, f02=»S | 8 P* A7 = ORDER CODE WHEN CALLED FROM DATA MANAGEMENT P* A8 = ECB ADDRESS F P* b P* EXIT PARAMETERS: l P* P* A2 = DWT INDEX * P* A6 = DWT ADDRESS IF FOUND, ELSE 0 P* P* P* F N D D W D P*
0x3ad5a0…3ad734 (4, 89) Dummy {f00=0x012a, f01=0x0190, f02=»JECT MSUBS P* P* PFNDDWT EQU * ( P IFT MMUPAG=1 < & P ELR A2,A8 LOAD FILE CODE FROM ECB R P XIF | P* P IFT MMUPAG=0 ( P LDR* A2,A8 LOAD FILE CODE FROM ECB P XIF P* P STR A1,A15 SAVE A1 P L
0x3ad734…3ad8c8 Dummy {f00=0x012a, f01=0x0190, f02=»UK A1,4 ( P RF(N) FND110 FILE CODE NOT IN TTAB & P CC A2,1,A6 SEARCH IN DEVICE TABLE < " P RF(E) FND200 FILE CODE FOUND f ( P ADK A6,4 ADDRESS TO NEXT FILE CODE P RB FND100 TRY NEXT P* P EJECT MSUBS P* $ P* SEARCH I
0x3ad8c8…3ada5c Dummy {f00=0x012a, f01=0x0190, f02=» P LDR* A1,A6 CDTAB LENGTH $ P ADK A6,2 POINTER TO FIRST ENTRY $ P* L PFND120 SUK A1,4 V & P RF(N) FND130 FILE CODE NOT FOUND n P CC A2,1,A6 " P RF(E) FND200 FILE CODE FOUND ( P ADK A6,4 ADDRESS TO NEXT FILE CODE & P RB FND120
0x3ada5c…3adbf0 Dummy {f00=0x012a, f01=0x0190, f02=»DEX z P LD A6,2,A6 LOAD DWT ADDRESS ! P RF IHRET1 ! 0 P* ! B P EJECT MSUBS ! L P* ! b P* ! l P* F N D T I D ! v P* ! B P* SUBROUTINE TO FIND TTAB ADDRESS FROM TASK IDENTIFICATION. ! P* ! P* ENTRY PARAMETER: ! P* !
0x3adbf0…3add84 Dummy {f00=0x012a, f01=0x0190, f02=»ATES ILLEGAL IDENTIFICATION ! P* " $ P* " . PFNDTID STR A1,A15 SAVE A1 " 8 P LD* A1,SCTTCT TCTAB LENGTH " Z P AD A1,SCTTCT " ~ P* " PFTI010 SUK A1,2 " P CW A1,SCTTCT " $ P RF(E) FTI030 ALL TTABS EXAMINED " P LDR* A2,A1 TTAB ADD
0x3add84…3adf18 Dummy {f00=0x012a, f01=0x0190, f02=»0 ILLEGAL IDENTIFICATION " P RF IHRET1 # P* # 2 P EJECT MSUBS # < P* # R P* # , P* RESTORE REGISTERS AND RETURN WITHOUT # f P* ENABLE INTERRUPTS. # P* # P* # P IFT CPU852=1 # PIHRET8 LDR* A8,A15 # P LDR* A7,A15 #
0x3adf18…3ae0ac Dummy {f00=0x012a, f01=0x0190, f02=»* # PIHRET1 LDR* A1,A15 $ P* $ $ PIHRTN INH $ . $ P ADKL A15,4 ADJUST STACK POINTER $ @ P ABR* A15 AND RETURN $ h P XIF $ P* $ P IFT CPU852=0 $ 0 PIHRET8 MLR 8,A15 RESTORE A1-A8 FROM STACK... $ P RTN A15 ...AND RETURN $ P* $
0x3ae0ac…3ae240 Dummy {f00=0x012a, f01=0x0190, f02=»... $ h P* % PIHRTN RTN A15 ...AND RETURN % P XIF % : P* % F P EJECT MSUBS % P P* % f P* % p P* P F I N I T % z P* % & P* SUBROUTINE TO RESTART DEVICES. % P* % @ P* ALL RESTART ROUTINES GIVEN IN TABLE 'PFTAB' ARE CALL
0x3ae240…3ae3d4 (4, 90) Dummy {f00=0x012a, f01=0x0190, f02=»DEX TO FIRST ROUTINE % P* & $ PPFI100 CW A1,PFTAB CHECK IF LAST & & P RF(NL) PFI110 ALL RESTARTED & N P STR A1,A15 SAVE A1 & r P INH & * P CFI A15,PFTAB,A1 CALL RESTART MODULE & P LDR* A1,A15 RESTORE A1 & P ADK A1,2 NEXT DEVICE & P R
0x3ae3d4…3ae568 Dummy {f00=0x012a, f01=0x0190, f02=»8 & P* ' & P* SWITCH TO LEVEL 48 AND ENABLE. ' P* ' > P* ' H PSWL48 EQU * ' R P STR A1,A15 SAVE A1 ' f P* ' PSWL481 EQU * ' $ P LDKL A1,/C0C0 PSW FOR LEVEL 48 ' P* ' PSWL482 EQU * ' & P ST A1,4,A15 SAVE IT ON A15 STACK
0x3ae568…3ae6fc Dummy {f00=0x012a, f01=0x018e, f02=» & P* SWITCH TO LEVEL XY AND ENABLE. ( P* ( . . P* LEVEL := 48 IF LEVEL ON STACK IS >= 48 ( 8 0 P* LEVEL := XY " " " " " XY < 48 ( j P* ( > P* THIS MODULE IS TO BE CALLED WITH 8 REGISTERS ON STACK. ( P* ( P* ( PSWLXY EQU
0x3ae6fc…3ae890 Dummy {f00=0x012a, f01=0x0190, f02=» ( P LD A1,24,A15 ) " P ANKL A1,/FFFE SYSTEM MODE BIT ) P RB SWL482 ) D P* ) V P EJECT MSUBS ) ` P* ) v P* ) & P* INTERRUPT SAVE AND HALT MODULE ) P* ) P* ) PINTSAV DATA 0 ) PSAVA15 DATA 0 ) P* ) " PILLINT LDK
0x3ae890…3aea24 Dummy {f00=0x012a, f01=0x0190, f02=» $ P STR A9,A15 SAVE A9-A14 ON STACK * P STR A10,A15 * , P STR A11,A15 * @ P STR A12,A15 * T P STR A13,A15 * h P STR A14,A15 * | P XIF * P* * P IFT CPU852=0 * $ P MSR 14,A15 SAVE A1-A14 ON STACK * P XIF * P* * P ST A15,SAVA15
0x3aea24…3aebb8 Dummy {f00=0x012a, f01=0x0190, f02=» P* + < P* RELEASE PAGE AND RESTART LDTASK IF PAGQUE WAS EMPTY + P* + N P* ENTRY PARAMETERS: + X P* + v 6 P* A3 = SEGBLK ADDRESS (PAGBLK ADDRESS IF RELPA2) + " P* A5 = TTAB ADDRESS (RELPA2) + P* + P* EXIT PARAMETER: + P*
0x3aebb8…3aed4c Dummy {f00=0x012a, f01=0x0190, f02=»ANY SEGMENT + j P RF REL:10 , P* , & ( PRELPAG EQU * RELEASE PAGE MAIN ENTRY , 0 , P LD A3,SEG:PB,A3 GET PAGE BLOCK ADDRESS , P* , PREL:10 EQU * , & P LDKL A4,PAGQUE GET PAGQUE ADDRESS , P ST A4,PAG:QB,A3 , 4 P LDR* A4,A4 GET ADDRESS OF F
0x3aed4c…3aeee0 Dummy {f00=0x012a, f01=0x0190, f02=»DTASK IS IN PAUSE STATE , x P RF(Z) REL:20 - P* - 6 P EJECT MSUBS - @ P* - V P* RESTART LOAD TASK - ` P* - ~ , P CM PQEMTY INDICATE PAGE QUEUE NOT EMPTY - P LDR A4,A5 SAVE A5 - , P LDKL A5,TTABLD GET LDTASK TTAB ADDRESS - $ P CF A1
0x3aeee0…3af074 (4, 91) Dummy {f00=0x012b, f01=0x412a, f02=»IF - P* . P IFT DSKPAG=1 . P IFT CPU852=0 . * P RTN A15 . @ P XIF . P P* . P IFT DSKPAG=0 . f 2 PRELPAG EQU * DUMMY ENTRIES TO AVOID ASS. ERR. . | PRELPA2 EQU * . & P ABL LKMERR INDICATE SYSGEN ERROR . P XIF . P* . P*
0x3af074…3af208 Dummy {f00=0x012b, 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. "
0x3af208…3af39c Dummy {f00=0x012b, f01=0x0000, f02=»
[…0x5…]
0x3afb80…3afd14 (4, 92) Opaque[0x194]
0x3afd14…3afea8 # DirEnt {nam=»TTMJOB«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x2130, f03=0x0000}
0x3afd14…3afea8 IdxSect {
0x3afd14…3afea8 f00 = 0x0109 // 0x3afd14 @0x0
0x3afd14…3afea8 f01 = 0x0004 // 0x3afd16 @0x2
0x3afd14…3afea8 gno = [ // 0x3afd18 @0x4
0x3afd14…3afea8 [0x00]: C0x0109.0x2.0
0x3afd14…3afea8 [0x01]: C0x0109.0x3.0
0x3afd14…3afea8 ]
0x3afd14…3afea8 }
0x3afea8…3b003c Dummy {f00=0x0109, f01=0x0190, f02=» 2 P IDENT TTMJOB REL 10.0 80-03-14 870105041000 P : P* B P* L P* MONITOR JOB TASK TABLE V P* v P* P********* P*ENTRIES* P********* P* P* P ENTRY TTB:AM ALLOCATION MAP P ENTRY TTB:MT MM
0x3b003c…3b01d0 Dummy {f00=0x0109, f01=0x0190, f02=»S n P ENTRY TTMJOB TABLE ENTRY ( P ENTRY TTB:QL DISPATCHER QUEUE LINK , & P ENTRY TTB:ID TASK IDENTIFICATION X P ENTRY TTB:ST TASK STATUS " P ENTRY TTB:PP PENDING POINTER & P ENTRY TTB:PW PROGRAM STATUS WORD $ P ENTRY TTB:SA TERMIN
0x3b01d0…3b0364 Dummy {f00=0x0109, f01=0x0190, f02=»***************** x P* P* CONDITIONAL ASSEMBLY $ P* B . P***************************************** L P* ~ . P* A PROGRAM VERSION USING TOSS MMU PAGING * P* IS OBTAINED BY SETTING MMUPAG EQU 1. P* PMMUPAG EQU 1 P*
0x3b0364…3b04f8 Dummy {f00=0x0109, f01=0x0190, f02=» TABLE DISPLACEMENT ~ P IFT MMUPAG=1 " P DATA /0000,/0400,/0800,/0C00 2 " P DATA /1000,/1400,/1800,/1C00 X " P DATA /2000,/2400,/2800,/2C00 ~ " P DATA /3000,/3400,/3800,/3C00 P XIF P* & PTTB:CB EQU -6 CURRENT SEGMENT BASE
0x3b04f8…3b068c Dummy {f00=0x0109, f01=0x0190, f02=»K ADDRESS DISPLACEMENT v P DATA 0 P* . P EJECT TTMJOB 8 P* P P* Z PTTMJOB EQU * TTMJOB ENTRY d . PTTB:QL EQU *-TTMJOB DISPATCHER QUEUE LINK P DATA 0 P* , PTTB:ID EQU *-TTMJOB TASK IDENTIFICATION P DATA
0x3b068c…3b0820 Dummy {f00=0x0109, f01=0x0190, f02=»A 0 P* PTTB:PW EQU *-TTMJOB 4 P DATA /C4C0 PROGRAM STATUS WORD FOR MONITOR JOB 2 P* j P EJECT TTMJOB t P* P* * PTTB:SA EQU *-TTMJOB TERMINAL SAVE AREA P DATA 0 DISPATCH ADDRESS 2 P DATA 0,0,0,0,0,0,0 SAVE A
0x3b0820…3b09b4 (4, 93) Dummy {f00=0x0109, f01=0x4014, f02=» P END @
0x3b09b4…3b0b48 Dummy {f00=0x0109, 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,
0x3b0b48…3b0cdc Dummy {f00=0x0109, f01=0x0190, f02=»************************************* P* . . P* A PROGRAM VERSION USING TOSS MMU PAGING 8 * P* IS OBTAINED BY SETTING MMUPAG EQU 1. j P* PMMUPAG EQU 0 P* P* 6 P* A PROGRAM VERSION USING THE EXTENDED INSTRUCTION . P* SE
0x3b0cdc…3b0e70 Dummy {f00=0x0109, f01=0x0190, f02=»NG h * &* IS OBTAINED BY SETTING DSKPAG EQU 1. * 8 PDSKPAG EQU 0 B * V P* ` " PSOP EQU /2E SOP DEVICE ADDRESS j P* P EJECT MSUBS P* P* P* S A V E 8 P* 0 P* SUBROUTINE TO SAVE 8 REGISTERS O
0x3b0e70…3b1004 Dummy {f00=0x0109, f01=0x0190, f02=»A15 P STR A4,A15 P STR A5,A15 P STR A6,A15 4 P STR A7,A15 H P STR A8,A15 , P LD A3,16,A15 LOAD P.C. (RETURN ADDRESS) p , P ST A3,SAVE81 AND MODIFY BRANCH ADDRESS P ST A2,14,A15 P ST A1,16,A15 P LD A3,12,A1
0x3b1004…3b1198 Dummy {f00=0x0109, f01=0x0190, f02=»* Q T J O B P* 2 P* SUBROUTINE TO QUEUE TASK FOR DISPATCHING. P* V P* ENTRY PARAMETER: ` P* | 2 P* A5 = TTAB ADDRESS OF PROGRAM TO BE QUEUED. P* 8 P* THE REQUESTED JOB IS PUT IN DISPATCHER QUEUE ON 8 P* PR
0x3b1198…3b132c Dummy {f00=0x0109, f01=0x0190, f02=»* P IFT CPU852=1 $ P STR A1,A15 SAVE A1-A3 ON STACK P STR A2,A15 H P STR A3,A15 P XIF p P* | P IFT CPU852=0 " P MSR 3,A15 SAVE A1-A3 ON STACK P XIF P* . P LDKL A1,DISQUE LOAD QUEUE ANCHOR ADDRESS 2
0x3b132c…3b14c0 Dummy {f00=0x0109, f01=0x018e, f02=»* P EJECT MSUBS P* P* * 6 PQTJ010 CC A3,TTB:ST+1,A2 COMPARE WITH QUEUED LEVEL 4 P RF(L) QTJ020 INSERT n P LDR A1,A2 SAVE ADDRESS . P LDR* A2,A1 GET NEXT TTAB ADDRESS IN QUEUE $ P RB(NZ) QTJ010 NOT END OF QUEUE P*
0x3b14c0…3b1654 (4, 94) Opaque[0x194]
0x3b1654…3b17e8 # DirEnt {nam=»TOSSIO«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x2328, f03=0x0000}
0x3b1654…3b17e8 IdxSect {
0x3b1654…3b17e8 f00 = 0x0119 // 0x3b1654 @0x0
0x3b1654…3b17e8 f01 = 0x0022 // 0x3b1656 @0x2
0x3b1654…3b17e8 gno = [ // 0x3b1658 @0x4
0x3b1654…3b17e8 [0x00]: C0x0119.0x1.0
0x3b1654…3b17e8 [0x01]: C0x0119.0x3.0
0x3b1654…3b17e8 [0x02]: C0x011a.0x0.0
0x3b1654…3b17e8 [0x03]: C0x011a.0x1.0
0x3b1654…3b17e8 [0x04]: C0x013e.0x2.0
0x3b1654…3b17e8 [0x05]: C0x013e.0x3.0
0x3b1654…3b17e8 [0x06]: C0x013f.0x0.0
0x3b1654…3b17e8 [0x07]: C0x013f.0x1.0
0x3b1654…3b17e8 [0x08]: C0x013f.0x2.0
0x3b1654…3b17e8 [0x09]: C0x013f.0x3.0
0x3b1654…3b17e8 [0x0a]: C0x0140.0x0.0
0x3b1654…3b17e8 [0x0b]: C0x0140.0x1.0
0x3b1654…3b17e8 [0x0c]: C0x0140.0x2.0
0x3b1654…3b17e8 [0x0d]: C0x0144.0x3.0
0x3b1654…3b17e8 [0x0e]: C0x0145.0x0.0
0x3b1654…3b17e8 [0x0f]: C0x0145.0x1.0
0x3b1654…3b17e8 [0x10]: C0x0146.0x0.0
0x3b1654…3b17e8 ]
0x3b1654…3b17e8 }
0x3b17e8…3b197c Dummy {f00=0x0119, f01=0x0190, f02=» 2 P IDENT TOSSIO REL 10.0 80-04-30 870105041000 P : P REL 10.0 80-03-15 POHO B $ P =1,RELEASE DC-BUFFER UPDATED d P* P* 6 P************************************************** P* $ P* PHILIPS TERMINAL SYSTEM PTS
0x3b197c…3b1b10 Dummy {f00=0x0119, f01=0x0190, f02=»** ` P* P* , P* THIS IS THE TOSS I/O LKM PROCESSOR. 6 P* IT CONTAINS THE FOLLOWING MONITOR SUBROUTINES: N P* P* -TIO INITIALIZE I/O P* P* -TENDIO END I/O P* P* -ATTACH ATTACH DEVICE P
0x3b1b10…3b1ca4 Dummy {f00=0x0119, f01=0x0190, f02=» DATA COMMUNICATION MOVE ROUTINE (WRITE) P* 0 4 P* SPECIAL ROUTINES ARE CARRIED OUT IN SYSTEMS : * P* WITH MEMORY MANAGEMENT UNIT (MMU). r P* 8 P* THIS MODULE ALSO CONTAINS STANDARD DISPLACEMENT * P* VALUES FOR ECB, DWT AND DAB AR
0x3b1ca4…3b1e38 Dummy {f00=0x0119, f01=0x0190, f02=»* P ENTRY TIO I/O PROCESSOR 0 P ENTRY TIO:FM ENTRY USED BY FILE MANAGEMENT * 0 P ENTRY TIOERR ERROR: QUEUE TASK AND DISPATCH ^ P ENTRY TENDIO END I/O 0 P ENTRY QUEDEV QUEUE REQUEST IN DEVICE QUEUE 4 P ENTRY QUEFIL QUEUE FILE REQUEST IN
0x3b1e38…3b1fcc Dummy {f00=0x0119, f01=0x0190, f02=»ONMMU MONITOR (SYSTEM) MMU TABLE P* ( P ENTRY ECBFC FILE CODE 2 P ENTRY ECBBA BUFFER ADDRESS P " P ENTRY ECBRL REQUESTED LENGTH t " P ENTRY ECBEL EFFECTIVE LENGTH P ENTRY ECBRC RETURN CODE P ENTRY ECBCW CONTROL WORD P ENTRY
0x3b1fcc…3b2160 Dummy {f00=0x0119, f01=0x0190, f02=» DM:DIX DEVICE INDEX DATA MANAGEMENT 2 P ENTRY PC:DIX DEVICE INDEX PROGRAMMED CHANNEL , 0 P ENTRY MX:DIX DEVICE INDEX MULTIPLEX CHANNEL b , P ENTRY KB:DIX DEVICE INDEX KEYBOARD/CTW 6 P ENTRY IT:DIX DEVICE INDEX INTERTASK COMMUNICATION $ P ENTRY D
0x3b2160…3b22f4 (4, 95) Dummy {f00=0x0119, f01=0x0190, f02=» ENTRY ACTADR ACTIVATION ADDRESS P ENTRY ABTADR ABORT ADDRESS ( $ P ENTRY INTADR INTERRUPT ADDRESS L 2 P ENTRY POLADR BUFFER POOL ADDRESS (DC DRIVERS) t 4 P ENTRY HDRLEN BUFFER HEADER LENGTH (DC DRIVERS) " P ENTRY RECADR RECOVERY ADDRESS P
0x3b22f4…3b2488 Dummy {f00=0x0119, f01=0x0190, f02=» ENTRY DWTECB ECB ADDRESS P ENTRY DWTOPT ORDER OPTION " P ENTRY DWTOR INDEX AND ORDER D ( P ENTRY DWTOCH LAST OUTPUT CHARACTER h & P ENTRY DWTADR DRIVER ADDRESS BLOCK P ENTRY DWTTAB TTAB ADDRESS * P ENTRY DWTWAT WAIT/ACTIVATE INDICATOR
0x3b2488…3b261c Dummy {f00=0x0119, f01=0x0190, f02=»U ECB ADDRESS P ENTRY DWTA2 SAVE AREA A2 P ENTRY DWTA3 SAVE AREA A3 8 P ENTRY DWTA4 SAVE AREA A4 Z P ENTRY DWTA5 SAVE AREA A5 | & P ENTRY DWTSB1 STACK BASE 1 IN DWT & P ENTRY DWTSB2 STACK BASE 2 IN DWT P ENTRY DWTTP TIMER POI
0x3b261c…3b27b0 Dummy {f00=0x0119, f01=0x0190, f02=»NTRY DWTNVL NEW VOLUME LOADED FLAGS " P ENTRY DWTVOL DISC VOLUME NAME , P* R P EJECT TOSSIO P* t P* ~ P************* P* EXTERNALS * P************* P* P* " P EXTRN SAVE8 SAVE 8 REGISTERS 0 P EXT
0x3b27b0…3b2944 Dummy {f00=0x0119, f01=0x018e, f02=»(LIFO) p P EXTRN FNDDWT SEARCH DWT , P EXTRN QTJOB QUEUE TASK FOR DISPATCHING . P EXTRN TDISP DISPATCHER ^ 2 P EXTRN DISEND BRANCH TO DISPATCHER VIA TENDIO ~ * P EXTRN LKMQDI QUEUE TASK AND DISPATCH , P EXTRN GETBLK PUT BLOCK IN PENDING QUE
0x3b2944…3b2ad8 Dummy {f00=0x0119, f01=0x0190, f02=» ( P EXTRN TTB:ST TASK STATUS AND LEVEL & P EXTRN TTB:PW PROGRAM STATUS WORD 0 P EXTRN TTB:SA SAVE AREA Z P EXTRN TTB:MT MMUTAB z P* P EJECT TOSSIO P* P* . P***************************************** P* P
0x3b2ad8…3b2c6c Dummy {f00=0x0119, f01=0x0190, f02=»AGING l * P* IS OBTAINED BY SETTING MMUPAG EQU 1. P* < PMMUPAG EQU 1 F P* Z P* d 6 P* A PROGRAM VERSION USING THE EXTENDED INSTRUCTION n . P* SET IS OBTAINED BY SETTING CPU852 EQU 0. P* PCPU852 EQU 0 P* P*
0x3b2c6c…3b2e00 Dummy {f00=0x0119, f01=0x0190, f02=» EQU 1 P* P* 4 P* A PROGRAM VERSION SPECIALIZED FOR THE 857 CPU " * P* IS OBTAINED BY SETTING CPU857 EQU 1. Z P* PX:B EQU 0 PCPU857 EQU 1 P* P EJECT TOSSIO P* P* P*******************
0x3b2e00…3b2f94 (4, 96) Dummy {f00=0x011a, f01=0x0190, f02=» P* P********************* P* DWT DISPLACEMENTS * 0 P********************* N P* l 2 P* DEVICE WORK TABLE DISPLACEMENTS: FIXED PART v P* & PDWTCHP EQU /00 CHANNEL PARAMETERS PDWTST EQU /02 STATUS PDWTBC EQU /0
0x3b2f94…3b3128 Dummy {f00=0x011a, f01=0x0190, f02=» EQU /06 LAST OUTPUT CHARACTER ( PDWTADR EQU /08 DRIVER ADDRESS BLOCK & PDWTTAB EQU /0A TTAB ADDRESS R * PDWTWAT EQU /0C WAIT/ACTIVATE INDICATOR v PDWTTQ EQU /0E TERMINAL QUEUE $ PDWTUEC EQU /10 USER ECB ADDRESS " PDWTMEC EQU /12 MMU ECB A
0x3b3128…3b32bc Dummy {f00=0x011a, f01=0x0190, f02=»1 4 PDWTDRD EQU DWTMEC+2 START OF DRIVER DEFINED PART P XIF B P* N P EJECT TOSSIO X P* p , P* DWT DISPLACEMENTS: DRIVER DEFINED PART z P* , PDWTOTQ EQU DWTDRD+/00 OUTPUT QUEUE LINK & PDWTA2 EQU DWTDRD+/02 SAVE AREA A2
0x3b32bc…3b3450 Dummy {f00=0x011a, f01=0x0190, f02=»B1 EQU DWTDRD+/0A STACK BASE 1 IN DWT . PDWTSB2 EQU DWTDRD+/0E STACK BASE 2 IN DWT . & PDWTTP EQU DWTDRD+/10 TIMER POINTER ` 4 PDWTORD EQU DWTDRD+/10 SAVE AREA INDEX AND ORDER 2 PDWTNVL EQU DWTDRD+/12 NEW VOLUME LOADED FLAGS * PDWTECH EQU DWTDR
0x3b3450…3b35e4 Dummy {f00=0x011a, f01=0x0190, f02=» TOSSIO P* P* P********************* & P* DAB DISPLACEMENTS * D P********************* b P* ( P* DRIVER ADDRESS BLOCK DISPLACEMENTS P* & PKEYLEN EQU -6 DWT KEYTABLE LENGTH $ PBUFLEN EQU -4 DWT BUFFER LENGT
0x3b35e4…3b3778 Dummy {f00=0x011a, f01=0x0190, f02=»RUPT ADDRESS ~ 2 PPOLADR EQU 4 BUFFER POOL ADDRESS (DC DRIVERS) 2 PHDRLEN EQU 6 BUFFER HEADER LENGTH (DC DRIVERS) J " PRECADR EQU 6 RECOVERY ADDRESS PECHADR EQU 8 ECHO ADDRESS P* P* P*********************** P* DEVICE IND
0x3b3778…3b390c Dummy {f00=0x011a, f01=0x0190, f02=»OUTINE P F P* FROM ADDRESS TABLES TIOTAB AND TENTAB AT READ/WRITE REQUESTS. P* X $ PDC:DIX EQU -2 DATA COMMUNICATION b PDM:DIX EQU 0 DATA MANAGEMENT $ PPC:DIX EQU 2 PROGRAMMED CHANNEL " PMX:DIX EQU 4 MULTIPLEX CHANNEL PKB:DIX EQU 6
0x3b390c…3b3aa0 Dummy {f00=0x011a, f01=0x0190, f02=»* P********************* P* ECB DISPLACEMENTS * ( P********************* F P* d ( P* EVENT CONTROL BLOCK DISPLACEMENTS n P* PECBFC EQU /01 FILE CODE PECBBA EQU /02 BUFFER ADDRESS " PECBRL EQU /04 REQUESTED LENGTH
0x3b3aa0…3b3c34 (4, 97) Dummy {f00=0x011a, f01=0x0190, f02=»ORD 1 x " PECBCW2 EQU /0C CONTROL WORD 2 P* 4 P EJECT TOSSIO > P* V P* ` P IFT MMUPAG=1 j P* P* P********** P* TIOTAB * P********** P* < P* TIOTAB CONTAINS ADDRESSES TO ROUTINES ENTERED FROM
0x3b3c34…3b3dc8 Dummy {f00=0x011a, f01=0x0190, f02=»CI PROGRAMMED CHANNEL, INPUT P DATA TIOMXI MUX, INPUT $ $ P DATA TIOKBI KEYBOARD/CTW, INPUT D 0 P DATA TIOITI INTERTASK COMMUNICATION, INPUT l P* PTINDEX EQU *-TIOTAB P DATA TIODKI DISC, INPUT , P DATA TIOPCO PROGRAMMED CHANNEL, O
0x3b3dc8…3b3f5c Dummy {f00=0x011a, f01=0x0190, f02=» P DATA TIODKO DISC, OUTPUT P* & P EJECT TOSSIO 0 P* H P* R P********** P* TENTAB * n P********** P* @ P* TENTAB CONTAINS ADDRESSES TO ROUTINES ENTERED FROM TENDIO P* 2 PTENTAB EQU * DEVICE TYPE/ROUTI
0x3b3f5c…3b40f0 Dummy {f00=0x011a, f01=0x0190, f02=», INPUT $ P DATA TENKBI KEYBOARD/CTW, INPUT 0 P DATA TENITI INTERTASK COMMUNICATION, INPUT 8 P DATA TENDKI DISC, INPUT l , P DATA TENPCO PROGRAMMED CHANNEL, OUTPUT P DATA TENMXO MUX, OUTPUT & P DATA TENKBO KEYBOARD/CTW, OUTPUT 0 P D
0x3b40f0…3b4284 Dummy {f00=0x011a, f01=0x018e, f02=» P* P********** P* MONMMU * P********** 2 P* D P* MONITOR (SYSTEM) MMU TABLE N P* r PMONMMU EQU * | P IFT MMUPAG=1 " P DATA /0000,/0400,/0800,/0C00 " P DATA /1000,/1400,/1800,/1C00 " P DATA /2000,/2400,/280
0x3b4284…3b4418 Dummy {f00=0x011a, f01=0x0190, f02=» P* 2 P* SUBROUTINES BELOW ARE USED BY ATTACH/DETACH P* H P* T I M O U T R P* h P* INPUT: A1 = DWT ADDRESS r . P* A2 = ADDRESS TO 2ND TIMER BLOCK P* P* OUTPUT: A4 = BLOCK ADDRESS P* A5 = TTAB
0x3b4418…3b45ac Dummy {f00=0x011a, f01=0x0190, f02=»MER POINTER ADDRESS P LD A5,2,A2 TTAB ADDRESS P CF A15,FNDBLK < P LDR* A1,A4 R " P STR A1,A2 REMOVE FROM ATT:CH f P CF A15,FREBLK P* P EJECT TOSSIO P* & P* REMOVE TTAB FROM DEVICE QUEUE P* P LDR A
0x3b45ac…3b4740 Dummy {f00=0x011a, f01=0x0190, f02=»IM:20 END OF QUEUE P CWR A1,A5 P RB(NE) TIM:10 NOT FOUND . P* N P EJECT TOSSIO X P* p & P* TTAB FOUND - REMOVE FROM QUEUE z P* P LDR* A1,A1 P STR A1,A2 P* PTIM:20 EQU * P LDK A3,4 . P ADS
0x3b4740…3b48d4 (4, 98) Dummy {f00=0x013e, f01=0x0190, f02=» P* P IFT MMUPAG=0 * P ST A3,ECBRC,A8 INDICATE ERROR IN ECB $ P XIF R P* ^ P IFT ATTDET=1 h P IFT MMUPAG=1 ~ . P TL TTB:MT,A5 LOAD MMU REGISTERS FROM TTAB * P ES A3,ECBRC,A8 INDICATE ERROR IN ECB . P TL MONMMU LOAD MONI
0x3b48d4…3b4a68 Dummy {f00=0x013e, f01=0x0190, f02=»OSSIO P* P* F N D B L K P* . ( P* SUBROUTINE TO FIND BLOCK IN ATT:CH 8 P* d P* INPUT: A5 = TTAB ADDRESS n P* 6 P* OUTPUT: A2 = ADDRESS TO PRECEDING BLOCK IN CHAIN 2 P* A4 = BLOCK ADDRESS IF FOUND, ELSE 0
0x3b4a68…3b4bfc Dummy {f00=0x013e, f01=0x0190, f02=»D OF ATT:CH P CW A5,4,A4 P RB(NE) FND:10 NOT FOUND ( P* H PFND:20 EQU * R P IFT CPU852=1 f P ABL IHRTN RETURN | P XIF P* P IFT ATTDET=1 P IFT CPU852=0 P RTN A15 RETURN P XIF P* P I
0x3b4bfc…3b4d90 Dummy {f00=0x013e, f01=0x0190, f02=»ATTACH * P********** ! P* ! " P* ! , * P* THIS MODULE IS CALLED FROM TIO WITH ! 6 P* THE FOLLOWING PARAMETERS: ! d P* ! & P* A3 /8000 (REQUEST ERROR BIT) ! & P* A4 I/O AND ACTIVATE INDICATOR ! P* A5 TTAB ADDRESS ! P* A6
0x3b4d90…3b4f24 Dummy {f00=0x013e, f01=0x0190, f02=»ADDRESS BLOCK ! v P* A13 DWT STATUS " P* " 0 PATTACH EQU * ENTRY " : P ADK A4,0 SET CR " T * P RF(NZ) TIOERR I/O AND ACTIVATE ERROR " l P* " P IFT MMUPAG=0 " " P CM ECBRC,A8 RESET RETURN CODE " P XIF " P* " P IFT ATTDET=1 "
0x3b4f24…3b50b8 Dummy {f00=0x013e, f01=0x0190, f02=»FT ATTDET=1 " P TM A10,A13 # * P RF(NZ) ATT:40 DEVICE ALREADY ATTACHED # ( P LDR A13,A13 # V P RF(NN) ATT:50 DEVICE BUSY # j P* # P* ATTACH REQUESTING TASK # P* # P ORS A10,DWTST,A6 ATTACH # , P ST A5,DWTTAB,A6 PUT TTAB ADDRESS IN
0x3b50b8…3b524c Dummy {f00=0x013e, f01=0x0190, f02=»* # & P* FREE BLOCK AND TIMER IN ATT:CH $ P* $ 4 P CM* 2,A4 FREE TIMER $ > " P LDR* A3,A4 REMOVE FROM ATT:CH $ Z P STR A3,A2 $ P CF A15,FREBLK RELEASE BLOCK $ P RF ATTRTN END REQUEST $ P* $ PATT:40 CW A5,DWTTAB,A6 $ . P RF(E) TIOER
0x3b524c…3b53e0 Dummy {f00=0x013e, f01=0x0190, f02=» P* % P* SET TIMER % P* % & P IFT MMUPAG=0 % 0 P LD A1,ECBCW,A8 TIME % F P XIF % b P* % n P EJECT TOSSIO % x P* % P* % P IFT ATTDET=1 % P IFT MMUPAG=1 % P EL A1,ECBCW,A8 TIME % P XIF % P* % P IFT A
0x3b53e0…3b5574 (4, 99) Dummy {f00=0x013e, f01=0x0190, f02=»B ADDRESS % P LD A3,ATT:CH ANCHOR & P CF A15,GETBLK BLOCK & . P ST A4,ATT:CH UPDATE ANCHOR & J $ P ADK A4,2 TIMER POINTER ADDRESS & n P LDR A1,A6 DWT ADDRESS & P CF A15,SETIMP SET TIMER & P DATA TIMOUT & P* & PATTIM DATA 0 & P*
0x3b5574…3b5708 Dummy {f00=0x013e, f01=0x0190, f02=» RETURN & P* ' P EJECT TOSSIO ' P* ' 2 P* ' < P********** ' F P* DETACH * ' X P********** ' j P* ' | * P* THIS MODULE IS CALLED FROM TIO WITH ' $ P* THE SAME PARAMETERS AS ATTACH. ' P* ' PDETACH EQU * ' P ADK A4,0 SET
0x3b5708…3b589c Dummy {f00=0x013e, f01=0x0190, f02=»F(NE) TIOERR ATTACHED TO OTHER TASK ' P XRS A10,DWTST,A6 DETACH ( , P LDR A3,A5 SAVE TTAB ADDRESS ( L P LD A5,DWTTQ,A6 QUEUE ANCHOR ( p P RF(Z) DET:10 QUEUE EMPTY ( $ P LDR* A2,A5 UPDATE QUEUE ANCHOR ( P ST A2,DWTTQ,A6 ( P CF A15,QTJOB QUEU
0x3b589c…3b5a30 Dummy {f00=0x013e, f01=0x0190, f02=»XIT ( f PDETRTN LDK A3,0 RETURN CODE ) P XIF ) 0 P* ) < P EJECT TOSSIO ) F P* ) ^ P* ) h P********** ) r P* TIOERR * ) P********** ) P* ) P* ERROR: FILE CODE UNKNOWN ) ( P* TIOERR IS ALSO USED AS COMMON EXIT ) ( P* FOR MO
0x3b5a30…3b5bc4 Dummy {f00=0x013e, f01=0x0190, f02=»M ECBEL,A8 RESET EFFECTIVE LENGTH ) P XIF * * P* * 6 P IFT MMUPAG=1 * @ * P ES A3,ECBRC,A8 SET RETURN CODE IN ECB * V P LDK A3,0 * * P ES A3,ECBEL,A8 RESET EFFECTIVE LENGTH * P XIF * P* * PTIORTN EQU * * ( P ABL LKMQDI QUEUE TASK AND
0x3b5bc4…3b5d58 Dummy {f00=0x013e, f01=0x018e, f02=» * P* + P* + 8 P* THIS IS THE ROUTINE FOR QUEUEING DEVICE REQUESTS. + > P* THE ROUTINE IS ENTERED AT DIFFERENT LABELS DEPENDING ON + X @ P* WHETHER THE DEVICE IS AN ECHO DEVICE OR NOT, AND DEPENDING + 8 P* ON WHETHER THE DEVICE IS ATTACHED OR NOT
0x3b5d58…3b5eec Dummy {f00=0x013e, f01=0x0190, f02=» + PTIOQ00 LDR A6,A2 , P* , P* QUEUE DEVICE FIRST , * P* , F $ PTIOQ05 ADK A6,DWTTQ QUEUE ANCHOR , P P LDR A2,A6 , x P LDR* A6,A6 , $ P RF TIOQ40 INSERT FIRST IN QUEUE , P* , & PTIOQ10 LDR A6,A2 QUEUE ECHO DEVICE , P* , . PQUED
0x3b5eec…3b6080 Dummy {f00=0x013e, f01=0x0190, f02=»NT , h P LD A1,TTB:ST+1,A5 LEVEL - P* - * P EJECT TOSSIO - 4 P* - L * P* SEARCH QUEUE FOR PLACE OF INSERTION - V P* - PTIOQ30 LDR A2,A6 - $ P LDR* A6,A6 FOLLOW QUEUE TO END - P RF(Z) TIOQ40 END FOUND - & P CC A1,TTB:ST+1,A6 COMPARE
0x3b6080…3b6214 (4, 100) Dummy {f00=0x013f, f01=0x0190, f02=»4 - P STR A6,A5 INSERT IN QUEUE . P STR A5,A2 . , P ADK A4,0 SET CR . > P RF(Z) TIOQ50 NO ACTIVATION . V P SUK A3,2 ACTIVATION . z P* . 4 PTIOQ50 ADS A3,TTB:SA,A5 UPDATE PC TO REPEAT LKM . P* . PTIOQ60 EQU * . P ABL TDISP GO TO D
0x3b6214…3b63a8 Dummy {f00=0x013f, f01=0x0190, f02=» . P* THIS MODULE IS ENTERED WHEN TERMINAL I/O / 2 P* IS REQUIRED. IF A REQUEST CANNOT BE SERVICED / 6 4 P* DUE TO E.G. BUSY DEVICE, THE REQUEST IS QUEUED / l 2 P* AND THE TERMINAL PROGRAM SET IN WAIT STATE. / P* / 2 P* WHEN RUNNING WITH MMU OPTION SPECI
0x3b63a8…3b653c Dummy {f00=0x013f, f01=0x0190, f02=»TH THE FOLLOWING PARAMETERS:- / P* 0 & . P* A1 = PARAMETER WHEN I/O AND ACTIVATION 0 0 P* 0 b $ P* A4 = ZERO, NORMAL I/O REQUEST 0 l ( P* NOT ZERO, I/O AND ACTIVATION 0 P* 0 P* A5 = TTAB ADDRESS 0 P* 0 P* A7 = ORDER CODE 0
0x3b653c…3b66d0 Dummy {f00=0x013f, f01=0x018e, f02=»IVATION DRIVER 0 f * P* WITH THE FOLLOWING REGISTER VAULES:- 1 P* 1 D P* A5 = STACK BASE 2 IN DWT 1 N P* 1 r P* A6 = DWT ADDRESS 1 | P* 1 P* A7 = ORDER CODE 1 P* 1 P* A8 = ECB ADDRESS 1 P* 1 , P* A12 = ADDRESS TO DRIVER AD
0x3b66d0…3b6864 Dummy {f00=0x013f, f01=0x0190, f02=» 1 P* 2 , P* THE FOLLOWING DWT FIELDS ARE UPDATED:- 2 P* 2 B " P* -DWTOR DWT INDEX AND ORDER 2 L P* -DWTECB ECB ADDRESS 2 r $ P* -DWTST READY AND ECHO FIELDS 2 P* -DWTTAB TTAB ADDRESS 2 & P* -DWTWAT WAIT/ACTIVATE INDICATOR 2 . P* -DW
0x3b6864…3b69f8 Dummy {f00=0x013f, f01=0x0190, f02=» FIRST WORD 2 P* -ECBEL EFFECTIVE LENGTH 3 P* -ECBRC RETURN CODE 3 8 P* 3 V P EJECT TOSSIO 3 ` P* 3 x . P* DWT ADDRESS AND CHECK IF REQUEST IS BUSY 3 P* 3 ( PTIO CF A15,FNDDWT SEARCH DWT ADDRESS 3 P* 3 . PTIO:FM EQU * ENTRY U
0x3b69f8…3b6b8c Dummy {f00=0x013f, f01=0x0190, f02=»R FILE CODE UNKNOWN 3 6 P LD A12,DWTADR,A6 ADDRESS TO DRIVER ADDRESS BLOCK 4 P LD A13,DWTST,A6 DWT STATUS 4 V P* 4 z P EJECT TOSSIO 4 P* 4 @ P* CHECK IF ATTACH/DETACH ORDER OR IF DEVICE IS BUSY/ATTACHED 4 P* 4 P IFT ATTDET=1 4
0x3b6b8c…3b6d20 Dummy {f00=0x013f, f01=0x0190, f02=»RDER 4 z P TM A10,A13 5 P RF(Z) TIO020 NOT ATTACHED 5 P CW A5,DWTTAB,A6 5 B * P RB(NE) TIOQ20 ATTACHED TO OTHER TASK 5 Z P TM A3,A13 5 " P RF(NZ) TIO030 DEVICE NOT BUSY 5 " P RB TIOQ05 BUSY, QUEUE DEVICE 5 P XIF 5 P* 5 PTIO020 EQU *
0x3b6d20…3b6eb4 (4, 101) Dummy {f00=0x013f, f01=0x0190, f02=»HECK IF ECHO DEVICE IS BUSY/ATTACHED 5 p P* 6 , * PTIO030 SC A2,DWTOR,A6 STORE DWT INDEX 6 6 P LDK A2,/40 CHECK IF ECHO 6 d P ANR A2,A7 6 P RF(Z) TIO070 NOT ECHO 6 P* 6 " P LD A2,DEVIND,A12 DEVICE INDEX 6 $ P SUK A2,KB:DIX CHECK IF KEYBOARD 6
0x3b6eb4…3b7048 Dummy {f00=0x013f, f01=0x0190, f02=»CE 6 v $ P LD A14,DWTST,A2 ECHO DWT STATUS 7 P* 7 2 P IFT ATTDET=1 7 < P TM A10,A14 7 R * P RF(Z) TIO050 ECHO DEVICE NOT ATTACHED 7 f P CW A5,DWTTAB,A2 7 6 P RB(NE) TIOQ10 ECHO DEVICE ATTACHED TO OTHER TASK 7 P TM A3,A14 7 ( P RF(NZ) TIO060 E
0x3b7048…3b71dc Dummy {f00=0x013f, f01=0x0190, f02=»TIO050 TM A3,A14 7 " P RB(Z) TIOQ10 ECHO DEVICE BUSY 8 P* 8 > PTIO060 LDKL A3,/A000 8 H : P XRS A3,DWTST,A2 UPDATE BUSY & ECHO BITS IN DWT STATUS 8 d P* 8 P* UPDATE ECB AND DWT FIELDS 8 P* 8 @ PTIO070 XRS A3,DWTST,A6 UPDATE BUSY & ECHO BITS
0x3b71dc…3b7370 Dummy {f00=0x013f, f01=0x0190, f02=»00 JUMP IF USER MODE 8 P LDKL A2,/7FFF 9 , P ANRS A2,A8 RESET BIT 0 IN ECB FILE CODE 9 2 , P ST A8,DWTECB,A6 SET ACTUAL ECB ADDRESS 9 b ( P CM ECBEL,A8 RESET EFFECTIVE LENGTH 9 $ P CM ECBRC,A8 RESET RETURN CODE 9 P RF TIO110 9 P* 9 P EJECT
0x3b7370…3b7504 Dummy {f00=0x013f, f01=0x0190, f02=»WORD OF USER ECB 9 z 0 P ANR A3,A2 RESET BITS 0,2,3 IN ECB FILE CODE : P ESR A3,A8 : L ( P LD A2,DWTMEC,A6 DWT MMU ECB ADDRESS : ^ , P ST A2,DWTECB,A6 SET ACTUAL ECB ADDRESS : P STR A3,A2 : * P ST A8,DWTUEC,A6 SAVE USER ECB ADDRESS : P LDR A9,A8 :
0x3b7504…3b7698 Dummy {f00=0x013f, f01=0x0190, f02=» PARAMETER : P LDR A1,A8 ; P ADK A1,ECBRL ; $ ( P LDR A8,A2 SET A8 TO DWT ECB ADDRESS ; : P ADK A2,ECBRL ; f P LDK A3,8 ; | . P MVUS A3 MOVE PART OF USER ECB TO DWT ECB ; " P LDR A1,A10 RESTORE PARAMETER ; P XIF ; P* ; P IFT MMUPAG=
0x3b7698…3b782c Dummy {f00=0x013f, f01=0x0190, f02=» RESET RETURN CODE ; P XIF < P* < ( P EJECT TOSSIO < 2 P* < J P* < T PTIO110 EQU * < ^ P ECR A3,A7 < r P ANK A3,/FF ORDER OPTION < , P RF(Z) TIO120 NO SPECIAL OPTION IF ZERO < ( P SC A3,DWTOPT,A6 STORE OPTION IN DWT < P* <
0x3b782c…3b79c0 Dummy {f00=0x013f, f01=0x0190, f02=»SS IN DWTTAB < p P* = PTIO130 EQU * = P IFT MMUPAG=0 = 2 & P ST A8,DWTECB,A6 SET ECB ADDRESS = H P XIF = r P* = ~ P EJECT TOSSIO = P* = . P* UPDATE DWTWAT (WAIT/ACTIVATE INDICATOR) = P* = P LDR A2,A4 CHECK PARAMETER = & P
0x3b79c0…3b7b54 (4, 102) Dummy {f00=0x013f, f01=0x0190, f02=»1 INDICATE WAIT = P RF TIO230 > P* > * < PTIO210 CF A15,GETBLK SAVE PARAMETER AND DISPATCH ADDRESS > 4 P* > t 2 PTIO220 CF A15,QTJOB QUEUE TASK FOR DISPATCHING > ~ P* > 8 PTIO230 ST A4,DWTWAT,A6 STORE WAIT/ACTIVATE INDICATOR > P* > P EJE
0x3b7b54…3b7ce8 Dummy {f00=0x013f, f01=0x0190, f02=» MODE > t " P LD A3,DEVIND,A12 DEVICE INDEX ? , P RF(N) TIO250 NO SPECIAL ACTION REQUIRED ? 4 " P RF(Z) TIO240 DATA MANAGEMENT ? d P CWK A3,DK:DIX CHECK IF DISC ? P RF(NE) TIO235 NOT DISC ? ( P CF A15,TIOCW2 MOVE 2ND CONTROL WORD ? P* ? " P* PE
0x3b7ce8…3b7e7c Dummy {f00=0x013f, f01=0x018e, f02=»TE ? f . P RF(Z) TIO250 JUMP IF NO READ/WRITE ORDER @ P* @ < PTIO240 EQU * @ F P ENB @ Z < P CFI A15,TIOTAB,A3 BRANCH TO RELEVANT READ/WRITE ROUTINE @ f P XIF @ P* @ * PTIO250 ENB GIVE OTHER TASKS A CHANCE @ P* @ * PTIO260 LDK A5,DWTSB2
0x3b7e7c…3b8010 Dummy {f00=0x013f, f01=0x0190, f02=» @ P* A P********** A P* SWITCH * A $ P********** A 6 P* A H P* SWITCH PRIORITY LEVEL: A R P* A r ( P* IF CPU851, THEN SWITCH TO LEVEL 12 A | ( P* IF CPU852, " " " " 16 A ( P* IF CPU857, " " " " 16 A P* A $
0x3b8010…3b81a4 Dummy {f00=0x013f, f01=0x0190, f02=»U851: LEVEL 12 A P XIF B P* B " P IFF CPU852+CPU857=0 B , ( P LDK A3,/40 CPU852/CPU857: LEVEL 16 B H P XIF B t P* B ( P SC A3,2,A15 SET NEW LEVEL ON STACK B " P RTN A15 RETURN WITH NEW LEVEL B P* B P EJECT TOSSIO B P* B P
0x3b81a4…3b8338 Dummy {f00=0x013f, f01=0x018e, f02=» @ P* THE APPROPRIATE ROUTINE AT READ/WRITE REQUESTS, DEPENDING C > P* ON THE DEVICE CONNECTION (PROGRAMMED CHANNEL, MUX ETX). C H > P* IF NO READ/WRITE REQUEST, CONDITION REGISTER ON STACK IS C * P* SET TO ZERO, ELSE NOT EQUAL TO ZERO. C P* C P* IN
0x3b8338…3b84cc Dummy {f00=0x013f, f01=0x0190, f02=» . P* CR = 0 IF NO READ/WRITE REQUEST D , P* CR <> 0 IF READ/WRITE REQUEST D 6 P* A4 IS DESTROYED D f P* D , PRD:WR LD A4,DWTOR,A6 ORDER CODE FROM DWT D P ANK A4,/3F D P* D * PRD:WR2 ADKL A15,4 ADJUST STACKPOINTER D P L
0x3b84cc…3b8660 Dummy {f00=0x013f, f01=0x0190, f02=» READ/WRITE INDEX D ( P ABR* A15 RETURN WITHOUT CHANGING CR E P* E F P EJECT TOSSIO E P P* E h P* E r P********** E | P* ORDTAB * E P********** E P* E 2 P* ORDTAB CONTAINS ORDER CONSTANTS AS FOLLOWS: E P* E P* =0: NO RE
0x3b8660…3b87f4 (4, 103) Dummy {f00=0x013f, f01=0x0190, f02=»,1 /00, /01 E P BYTES 1,1 /02, /03 F P BYTES 0,TINDEX+1 /04, /05 F 0 & P BYTES TINDEX+1,TINDEX+1 /06, /07 F R P BYTES TINDEX+1,0 /08, /09 F | P BYTES 1,TINDEX+1 /0A, /0B F P BYTES 0,0 /0C, /0D F P BYTES 0,0 /0E, /0F F P BYTES 0,1 /10,
0x3b87f4…3b8988 Dummy {f00=0x013f, f01=0x0190, f02=» 0,0 /1A, /1B F P BYTES 0,0 /1C, /1D G P BYTES 0,0 /1E, /1F G 2 P BYTES 0,TINDEX+1 /20, /21 G N P BYTES TINDEX+1,0 /22, /23 G p P BYTES TINDEX+1,0 /24, /25 G P BYTES 0,TINDEX+1 /26, /27 G P BYTES 0,0 /28, /29 G P BYTES 0,0 /2A, /2B G
0x3b8988…3b8b1c Dummy {f00=0x013f, f01=0x0190, f02=»34, /35 G P BYTES 0,0 /36, /37 H P BYTES 0,0 /38, /39 H , P BYTES 0,0 /3A, /3B H H P BYTES 0,0 /3C, /3D H d P BYTES 0,0 /3E, /3F H P* H P EJECT TOSSIO H P* H P* T I O : D M H P* H 4 P* THIS MODULE IS CALLED BY 'TIO'
0x3b8b1c…3b8cb0 Dummy {f00=0x013f, f01=0x018e, f02=»ON OF THE REQUEST IS 'TEN:DM'. H P* I & " P* INPUT: A8 = DWT ECB ADDRESS I 0 $ P* A9 = USER ECB ADDRESS I V P* I ~ P* OUTPUT: A2 IS DESTROYED I P* I . PTIO:DM EQU * DATA MANAGEMENT, INPUT/OUTPUT I ( P EL A2,ECBBA,A9 USER BUFFER ADDRES
0x3b8cb0…3b8e44 Dummy {f00=0x013f, f01=0x0190, f02=» I PA15RTN EQU * J P RTN A15 J P* J , P EJECT TOSSIO J 6 P* J N P* T I O P C I J X P* J n B P* THIS MODULE IS CALLED BY 'TIO' WHEN A READ REQUEST HAS BEEN J x > P* ISSUED AND THE DEVICE IS RUNNING ON PROGRAMMED CHANNEL. J B P* TIOPCI
0x3b8e44…3b8fd8 Dummy {f00=0x013f, f01=0x0190, f02=»ESPONDING MODULE CALLED BY 'TENDIO' AT J , P* COMPLETION OF THE REQUEST IS 'TENPCI'. K . 4 P* NOTICE THAT ENTRY TIPI05 IS USED BY 'TIOKBI'. K ^ P* K " P* INPUT: A8 = DWT ECB ADDRESS K $ P* A9 = USER ECB ADDRESS K , P* A12 = ADDRESS TO DRIVER
0x3b8fd8…3b916c Dummy {f00=0x013f, f01=0x0190, f02=»8 REQUESTED LENGTH K 2 P CW A1,BUFLEN,A12 COMPARE WITH DWT BUFFER SIZE L 6 P RF(G) IO:ERR REQ. LENGTH EXCEEDS DWT BUFFER SIZE L P P* L . PTIPI05 EQU * ENTRY POINT USED BY 'TIOKBI' L ( P EL A1,ECBBA,A9 USER BUFFER ADDRESS L P ANK A1,1 L * P RF(
0x3b916c…3b9300 Dummy {f00=0x013f, f01=0x0190, f02=» L d P ANS A1,ECBBA,A8 M P RTN A15 M P* M 0 P EJECT TOSSIO M : P* M R P* T I O M X I M P* M r B P* THIS MODULE IS CALLED BY 'TIO' WHEN A READ REQUEST HAS BEEN M | > P* ISSUED AND THE DEVICE IS RUNNING ON MULTIPLEXOR CHANNEL. M > P* TI
0x3b9300…3b9494 (4, 104) Dummy {f00=0x0140, f01=0x0190, f02=» CALLED BY 'TENDIO' AT M v , P* COMPLETION OF THE REQUEST IS 'TENMXI'. N N P* NOTICE THAT MODULES 'TIOMXO', 'TIODKI' AND 'TIODKO' ARE EQUAL TO TIOMXI. N N P* N P* INPUT: A5 = TTAB ADDRESS N " P* A8 = DWT ECB ADDRESS N P* A9 = USER ECB ADD
0x3b9494…3b9628 Dummy {f00=0x0140, f01=0x0190, f02=» PTIOMXI EQU * MUX, INPUT O ( P EL A1,ECBBA,A9 USER BUFFER ADDRESS O $ P ECR A2,A1 O P & P ANKL A1,/FFF SKIP 4 LEFTMOST BITS O b P SRL A2,3 O & P ANK A2,/1E MMUTAB INDEX (5 BITS) O P ADR A2,A5 ADD TTAB ADDRESS O * P LC A2,TTB:MT,A2 PHYSICAL PA
0x3b9628…3b97bc Dummy {f00=0x0140, f01=0x0190, f02=» A2,4 O P ORR A1,A2 P 2 P ST A1,ECBBA,A8 STORE MODIFIED BUFFER ADDRESS P P RTN A15 P V P* P f P EJECT TOSSIO P p P* P P* T I O K B I P P* P B P* THIS MODULE IS CALLED BY 'TIO' WHEN A READ REQUEST HAS BEEN P N P* ISSUED AND THE
0x3b97bc…3b9950 Dummy {f00=0x0140, f01=0x0190, f02=»' AND ENTRY TIPO05 IN 'TIOPCO'. P 4 P* THE CORRESPONDING MODULE CALLED BY 'TENDIO' AT Q ( , P* COMPLETION OF THE REQUEST IS 'TENKBI'. Q ` P* Q P* INPUT: A6 = DWT ADDRESS Q P* A7 = ORDER CODE Q " P* A8 = DWT ECB ADDRESS Q P* A9 = USER
0x3b9950…3b9ae4 Dummy {f00=0x0140, f01=0x018e, f02=» * KEYBOARD/CTW Q $ P LD A1,ECBRL,A8 REQUESTED LENGTH R 2 P CW A1,BUFLEN,A12 COMPARE WITH DWT BUFFER SIZE R @ 6 P RF(G) IO:ERR REQ. LENGTH EXCEEDS DWT BUFFER SIZE R v 6 P CF A15,TIPI05 CHECK AND CORRECT BUFFER ADDRESSES R P CWK A7,1 CHECK ORDER CODE R
0x3b9ae4…3b9c78 Dummy {f00=0x0140, f01=0x0190, f02=» R P EJECT TOSSIO S P* S P* S * P LDR A1,A9 S 4 P ADK A1,8 S F P ADKL A8,12 S X * P ST A8,-2,A8 SET DWT KEYTABLE ADDRESS S l P SUKL A8,4 S * P ELR A3,A4 FIRST WORD OF USER KEYTABLE S P ANK A4,1 S * P RF(NZ) TIKB10 KEYTABLE ADDR
0x3b9c78…3b9e0c Dummy {f00=0x0140, f01=0x0190, f02=» 0 P CW A3,KEYLEN,A12 CHECK KEYTABLE BUFFER SIZE T P RF(G) IO:ERR TOO SMALL T 8 P CF A15,TIPO05 T X & P SUKL A8,8 ADJUST DWT ECB ADDRESS T n P* T PTIKB20 EQU * T P RTN A15 T P* T P EJECT TOSSIO T P* T P* T I O I T I T P
0x3b9e0c…3b9fa0 Dummy {f00=0x0140, f01=0x0190, f02=»T T t P* U P EJECT TOSSIO U P* U , P* T I O P C O U 6 P* U L B P* THIS MODULE IS CALLED BY 'TIO' WHEN A WRITE REQUEST HAS BEEN U V > P* ISSUED AND THE DEVICE IS RUNNING ON PROGRAMMED CHANNEL. U B P* TIOPCO CHECKS THAT REQUESTED LENGTH DOES
0x3b9fa0…3ba134 (4, 105) Dummy {f00=0x0140, f01=0x0190, f02=»* THE CORRESPONDING MODULE CALLED BY 'TENDIO' AT U , P* COMPLETION OF THE REQUEST IS 'TENPCO'. V 8 6 P* NOTICE THAT MODULE 'TIOKBO' IS EQUAL TO TIOPCO. V h F P* NOTICE ALSO THAT ENTRY TIPO05 IS USED BY 'TIOKBI' AND 'TENITO'. V & P* TIOPCO IS ALSO USED BY 'DC
0x3ba134…3ba2c8 Dummy {f00=0x0140, f01=0x0190, f02=» V r P* W , PTIOPCO EQU * PROGRAMMED CHANNEL, OUTPUT W 4 P LD A2,DWTADR,A6 ADDRESS TO DRIVER ADDRESS BLOCK W B $ P LD A3,ECBRL,A8 REQUESTED LENGTH W z ( P RF(NP) TIPO20 REQUESTED LENGTH <= 0 W 2 P CW A3,BUFLEN,A2 COMPARE WITH DWT BUFFER SIZE W 6 P RF(
0x3ba2c8…3ba45c Dummy {f00=0x0140, f01=0x018e, f02=» P* X : PTIPO05 EQU * ENTRY POINT USED BY 'TIOKBI' AND 'TENITO' X P ADK A3,1 X L . P ANKL A3,/FFFE MAKE REQUESTED LENGTH EVEN X ^ ( P EL A1,ECBBA,A1 USER BUFFER ADDRESS X & P LD A2,ECBBA,A8 DWT BUFFER ADDRESS X 0 P ANKL A2,/FFFE MAKE DWT BUFFER ADD
0x3ba45c…3ba5f0 Dummy {f00=0x0140, f01=0x018e, f02=» 6 PTIPO10 MVUS A3 MOVE (USER BUFFER) TO SYSTEM BUFFER Y P* Y > PTIPO20 RTN A15 Y H P* Y ^ 0 PTIPO30 EQU * USER BUFFER ADDRESS WAS UNEVEN Y h 4 P ORS A4,ECBBA,A8 MAKE DWT BUFFER ADDRESS UNEVEN Y 0 P ELR A4,A1 FIRST CHARACTER FROM USER BUFFER Y 2 P
0x3ba5f0…3ba784 Dummy {f00=0x0140, f01=0x018e, f02=» Y j ( P RB TIPO10 MOVE REMAINING CHARACTERS Z P* Z 4 P EJECT TOSSIO Z > P* Z V P* I O : E R R Z ` P* Z v , P* DRIVER (DWT) MMU BUFFER IS TOO SMALL. Z B P* SET RETURN CODE /8008 (REQUEST ERROR AND INCORRECT LENGTH). Z & P* BRANCH TO DISPAT
0x3ba784…3ba918 Dummy {f00=0x0140, f01=0x0190, f02=» Z n P LD A1,DWTST,A6 DWT STATUS [ P SLL A1,2 CHECK ECHO BIT [ * P RF(NN) IO:E10 NOT ECHO [ J P LDR A1,A6 SAVE DWT ADDRESS [ j & P LD A6,DWTECH,A6 ECHO DWT ADDRESS [ P CF A15,TENDIO [ " P LDR A6,A1 RESTORE DWT ADDRESS [ P* [ PIO:E10 EQU
0x3ba918…3baaac Dummy {f00=0x0140, f01=0x0190, f02=» [ P* T I O M X O P* " PTIOMXO EQU TIOMXI MUX, OUTPUT ( P* N P* T I O K B O X P* n * PTIOKBO EQU TIOPCO KEYBOARD/CTW, OUTPUT x P* P* T I O I T O P* 6 PTIOITO EQU A15RTN INTERTASK COMMUNICATION, OUTPUT
0x3baaac…3bac40 Dummy {f00=0x0140, f01=0x0190, f02=»D M P* ] 6 P* THIS MODULE IS CALLED BY 'TENDIO' WHEN A REQUEST ] . P* FOR DATA MANAGEMENT HAS BEEN COMPLETED. ] P D P* NOTICE THAT MODULES 'TENDKI' AND 'TENDKO' ARE EQUAL TO TEN:DM. ] P* ] P* INPUT: A6 = DWT ADDRESS ] $ P* A8 = USE
0x3bac40…3badd4 (4, 106) Dummy {f00=0x0140, f01=0x0190, f02=»MEC,A6 MMU ECB ADDRESS ] ( P LD A1,ECBCW2,A1 SECOND CONTROL WORD ^ P ES A1,ECBCW2,A8 ^ J P RTN A15 ^ b P* ^ r P EJECT TOSSIO ^ | P* ^ P* T E N P C I ^ P* ^ D P* THIS MODULE IS CALLED BY 'TENDIO' WHEN A READ REQUEST HAS BEEN ^ @ P*
0x3badd4…3baf68 Dummy {f00=0x0140, f01=0x0190, f02=» THE USER BUFFER. ^ D P* NOTICE THAT MODULES 'TENKBI' AND 'TENITI' ARE EQUAL TO TENPCI. _ 8 P* NOTICE ALSO THAT ENTRY TEN:DC IS USED BY 'DC:MIN'. _ b P* _ P* INPUT: A6 = DWT ADDRESS _ $ P* A8 = USER ECB ADDRESS _ P* _ & P* OUTPUT: A1
0x3baf68…3bb0fc Dummy {f00=0x0140, f01=0x0190, f02=»EL,A2 EFFECTIVE LENGTH _ " P RF(NP) TEPI30 NO MOVE IF ZERO ` & P LD A1,ECBBA,A2 DWT BUFFER ADDRESS ` D P* ` n . PTEN:DC EQU * ENTRY POINT USED BY 'DC:MIN' ` x ( P EL A2,ECBBA,A8 USER BUFFER ADDRESS ` $ P LDK A3,1 CHECK BUFFER ADDRESSES ` P TM A3,A1
0x3bb0fc…3bb290 Dummy {f00=0x0140, f01=0x0190, f02=»EVEN ` n P* a P EJECT TOSSIO a P* a . P* a 8 2 PTEPI10 EQU * BOTH BUFFER ADDRESSES WERE UNEVEN a B 0 P LDR* A3,A1 FIRST CHARACTER FROM DWT BUFFER a x P ELR A8,A2 a P* a * PTEPI15 ANK A3,/FF SKIP LEFT CHARACTER a ( P ANKL A8,/FF00 SKI
0x3bb290…3bb424 Dummy {f00=0x0140, f01=0x0190, f02=»DK A2,1 a P SUK A4,1 b * P RF(P) TEPI25 MORE CHARACTERS TO MOVE b " P RTN A15 NO, RETURN b P P* b l PTEPI20 TM A3,A2 b v * P RF(Z) TEPI25 USER BUFFER ADDRESS EVEN b " P LDR A3,A1 DWT BUFFER ADDRESS b $ P ADR A3,A4 ADD EFFECTIVE LENGTH b
0x3bb424…3bb5b8 Dummy {f00=0x0140, f01=0x0190, f02=»ACTER b t 4 P CWR A3,A1 COMPARE WITH START ADDRESS OF BUFFER c * P RB(NE) TEPI23 MORE CHARACTERS TO MOVE c F 0 P ADK A1,1 NO, MAKE DWT BUFFER ADDRESS UNEVEN c t P RB TEPI10 c P* c P EJECT TOSSIO c P* c P* c , PTEPI25 LDR A3,A4 CHECK R
0x3bb5b8…3bb74c Dummy {f00=0x0140, f01=0x0190, f02=» P* d PTEPI30 RTN A15 d P* d $ , PTEPI40 EQU * EFFECTIVE LENGTH WAS UNEVEN d . ( P SUK A4,1 MAKE EFFECTIVE LENGTH EVEN d ^ , P RF(Z) TEPI50 ONLY ONE CHARACTER TO MOVE d P LDR A8,A4 NO, SAVE A4 d 0 P MVSU A4 MOVE (SYSTEM BUFFER) TO USER BUFFER d
0x3bb74c…3bb8e0 Dummy {f00=0x0140, f01=0x0190, f02=» d f P ELR A3,A2 e P RB TEPI15 e P* e , . PTEPI60 EQU * DWT BUFFER ADDRESS WAS UNEVEN e 6 " P LDR A3,A1 DWT BUFFER ADDRESS e h $ P ADR A1,A4 ADD EFFECTIVE LENGTH e P* e " PTEPI70 LCR A8,A3 ONE CHARACTER e 6 P SC A8,-1,A3 MOVE THIS CHAR. ONE B
0x3bb8e0…3bba74 (4, 107) Dummy {f00=0x0144, f01=0x0190, f02=»ACTERS TO MOVE e x . P SUR A1,A4 NO, RESTORE DWT BUFFER ADDRESS f * P SUK A1,1 MAKE DWT BUFFER ADDRESS EVEN f H P RB TEPI25 f v P* f P EJECT TOSSIO f P* f P* T E N M X I f P* f PTENMXI EQU A15RTN MUX, INPUT f P* f P* T E
0x3bba74…3bbc08 Dummy {f00=0x0144, f01=0x018e, f02=»K COMMUNICATION, INPUT f v P* g P* T E N D K I g ( P* g > " PTENDKI EQU TEN:DM DISC, INPUT g H P* g n P EJECT TOSSIO g x P* g P* T E N P C O g P* g 0 PTENPCO EQU A15RTN PROGRAMMED CHANNEL, OUTPUT g P* g P* T E N M X O g
0x3bbc08…3bbd9c Dummy {f00=0x0144, f01=0x0190, f02=» g h P* h P* T E N D K O h P* h ( " PTENDKO EQU TEN:DM DISC, OUTPUT h 2 P* h X P EJECT TOSSIO h b P* h z P* T E N I T O h P* h F P* THIS MODULE IS CALLED BY 'TENDIO' WHEN A WRITE REQUEST HAS BEEN h L P* COMPLETED FOR INTERTASK
0x3bbd9c…3bbf30 Dummy {f00=0x0144, f01=0x0190, f02=»IOPCO' IS USED FOR MOVING THE DATA. h P* i , P* INPUT: A6 = DWT ADDRESS i 6 P* i X & P* OUTPUT: A1-A4, A8 ARE DESTROYED i b P* i 0 PTENITO EQU * INTERTASK COMMUNICATION, OUTPUT i $ P LD A8,DWTECB,A6 DWT ECB ADDRESS i $ P LD A3,ECBEL,A8 EFFECT
0x3bbf30…3bc0c4 Dummy {f00=0x0144, f01=0x0190, f02=» i PTEIO10 RTN A15 j P* j P EJECT TOSSIO j ( P* j @ P* D C : M O T j J P* j ` < P* THIS MODULE IS CALLED BY THE DATA COMMUNICATION DRIVER j j < P* IN PURPOSE TO MOVE THE CONTENTS OF THE USER BUFFER TO j < P* THE DRIVER BUFFER. THE MOVE
0x3bc0c4…3bc258 Dummy {f00=0x0144, f01=0x0190, f02=»NO REGISTERS ARE DESTROYED j P* k " , PDC:MOT EQU * DATA COMMUNICATION, OUTPUT k , " P MSR 8,A15 SAVE A1-A8 ON STACK k $ P SUKL A15,32 ADJUST STACKPOINTER k * P TS 2,A15 SAVE MMU REGISTERS ON STACK k " P LD A5,DWTTAB,A6 TTAB ADDRESS k $ P TL TTB:MT
0x3bc258…3bc3ec Dummy {f00=0x0144, f01=0x0190, f02=»DC:RTN EQU * RETURN TO DC DRIVER k . P TL 2,A15 RESTORE MMU REGISTERS FROM STACK l ( $ P ADKL A15,32 ADJUST STACKPOINTER l Z * P MLR 8,A15 RESTORE A1-A8 FROM STACK... l P RTN A15 ...AND RETURN l P XIF l P* l P EJECT TOSSIO l P* l P*
0x3bc3ec…3bc580 Dummy {f00=0x0144, f01=0x0190, f02=»RIVER BUFFER TO THE USER BUFFER. l f P* m ( P* INPUT: A1 = RETURN CODE m 2 ( P* A4 = DRIVER BUFFER ADDRESS m T P* A6 = DWT ADDRESS m P* m ( P* OUTPUT: NO REGISTERS ARE DESTROYED m P* m PDC:MIN EQU * m P IFT MMUPAG=0 m
0x3bc580…3bc714 (4, 108) Dummy {f00=0x0145, f01=0x0190, f02=» STACK m x P* n P IFT MMUPAG=1 n $ P SUKL A15,32 ADJUST STACKPOINTER n . * P TS 2,A15 SAVE MMU REGISTERS ON STACK n V " P LD A5,DWTTAB,A6 TTAB ADDRESS n $ P TL TTB:MT,A5 LOAD MMU REGISTERS n P XIF n P* n P EJECT TOSSIO n P* n
0x3bc714…3bc8a8 Dummy {f00=0x0145, f01=0x018e, f02=»SS n x P* o " PMINMOV EQU * DC:MIN MOVE ENTRY o P ENB o : P LD A3,DWTECB,A6 ECB ADDRESS o F * P LDR A7,A4 SAVE DRIVER BUFFER ADDRESS o j $ P LD A2,ECBEL,A3 EFFECTIVE LENGTH o " P RF(NP) MIN:40 NOTHING TO MOVE o 8 P CW A2,ECBRL,A3 CHECK IF USER BUFF
0x3bc8a8…3bca3c Dummy {f00=0x0145, f01=0x0190, f02=» o j P LDR A3,A5 p ( P ANK A3,1 CHECK USER BUFFER ADDRESS p . P RF(NZ) MIN:30 USER BUFFER ADDRESS UNEVEN p F P SUK A2,2 p x , P RF(N) MIN:30 ONLY ONE CHARACTER TO MOVE p P* p P EJECT TOSSIO p P* p P* WORD MOVE p P* p PMIN:
0x3bca3c…3bcbd0 Dummy {f00=0x0145, f01=0x0190, f02=»2,2 DECREMENT LOOP COUNTER p 2 P RB(NN) MIN:10 AT LEAST ONE MORE WORD TO MOVE q " P* q X PMIN:20 EQU * q b P ADK A2,1 q v P RF(N) MIN:40 MOVE FINISHED q P* q P* CHARACTER MOVE q P* q PMIN:30 EQU * q " P LCR A3,A7 MOVE ONE CHARACTE
0x3bcbd0…3bcd64 Dummy {f00=0x0145, f01=0x0190, f02=» MIN:30 AT LEAST ONE MORE CHARACTER TO MOVE q P XIF r 4 P* r @ P IFT MMUPAG=1 r J * P ST A1,ECBRC,A3 SET RETURN CODE IN ECB r ` $ P LDR A1,A4 DRIVER BUFFER ADDRESS r P LDR A4,A2 EFFECTIVE LENGTH r & P LD A8,DWTUEC,A6 USER ECB ADDRESS r ( P CF
0x3bcd64…3bcef8 Dummy {f00=0x0145, f01=0x0190, f02=»O r P* s P* s PMIN:40 EQU * s P INH s 2 " P CF A15,TENDIO PERFORM TENDIO s > P* s d P* RELEASE BUFFER s n P* s * P LD A1,DWTADR,A6 DRIVER ADDRESS BLOCK s , P SU A4,HDRLEN,A1 REAL BUFFER ADDRESS =1 s ( P LD A1,POLADR,A1 BUFFER PO
0x3bcef8…3bd08c Dummy {f00=0x0145, f01=0x0190, f02=»,A2 NEXT BUFFER ADDRESS s , P RB(NZ) MIN:50 NOT LAST BUFFER IN CHAIN t P* t P $ P* INSERT BUFFER AT END OF CHAIN t Z P* t " P STR A4,A2 UPDATE QUEUE LINKS t P CMR A4 t P* t PMIN:60 EQU * t P IFT CPU852=1 t ( P ABL IHRET8 RESTOR
0x3bd08c…3bd220 Dummy {f00=0x0145, f01=0x018e, f02=» MLR 8,A15 RESTORE A1-A8 FROM STACK... t P* u . PDC:MOT RTN A15 ...AND RETURN u 8 P XIF u P* u h P IFT MMUPAG=1 u r " P RB DC:RTN RETURN TO DC DRIVER u P XIF u P* u P* ERROR EXIT u P* u " PMIN:70 EQU * DC:MIN ERROR EXIT u 2 P
0x3bd220…3bd3b4 (4, 109) Dummy {f00=0x0145, f01=0x0190, f02=» P* v P IFT MMUPAG=0 v P IFT CPU852=1 v $ PDC:MOT EQU * v : 2 P ABL IHRTN RETURN WITHOUT ENABLING INTERRUPTS v N P XIF v P* v P EJECT TOSSIO v P* v P* v P********** v P* TENDIO * v P********** v P* v P*
0x3bd3b4…3bd548 Dummy {f00=0x0145, f01=0x0190, f02=» v * P* ACTOTP IS CALLED TO START THE TASK w P* w 6 P* -IF NORMAL I/O WITH WAIT:- w @ P* w d * P* QTJOB IS CALLED TO QUEUE THE TASK w n 8 P* FOR DISPATCHING WITH THE FOLLOWING PARAMETERS:- w P* w P* A5 = TTAB ADDRESS w P* w $
0x3bd548…3bd6dc Dummy {f00=0x0145, f01=0x0190, f02=»TTQ NOT ZERO) w d J P* THAT TASK IS PUT IN DISPATCHER QUEUE TO REPEAT THE LKM INSTRUCTION. x P* x d P EJECT TOSSIO x n P* x P* x 0 P* ENTRY PARAMETERS TO THIS SUBROUTINE ARE:- x P* x P* A1 = RETURN CODE x P* x P* A6 = D
0x3bd6dc…3bd870 Dummy {f00=0x0145, f01=0x0190, f02=»ENT SUBROUTINES ARE PERFORMED. x P* y & P EJECT TOSSIO y 0 P* y H P* END I/O ENTRY y R P* y j PTENDIO EQU * y t P IFT CPU852=1 y & P CF A15,SAVE8 SAVE A1-A8 ON STACK y P XIF y P* y P IFT CPU852=0 y P INH y " P MSR 8,A
0x3bd870…3bda04 Dummy {f00=0x0145, f01=0x0190, f02=» DWT STATUS y z P INH z ( P LD A5,DWTTQ,A6 TERMINAL QUEUE LINK z P RF(Z) TEN110 NO TASK QUEUED z L P LDKL A2,/800 ATTACH BIT z p P ANR* A2,A4 z & P RF(Z) TEN100 DEVICE NOT ATTACHED z , P CW A5,DWTTAB,A6 ATTACHED TO OTHER TASK z ( P RF(NE) TE
0x3bda04…3bdb98 Dummy {f00=0x0145, f01=0x0190, f02=»HOR ADDRESS z t P ST A3,DWTTQ,A6 { . P CF A15,QTJOB QUEUE TASK TO REPEAT REQUEST { , P* { ^ P* UPDATE ECB AND DWT { h P* { 0 PTEN110 LD A5,DWTTAB,A6 TTAB ADDRESS FROM DWT { P* { PTEN120 LDKL A2,/8000 { , P ORRS A2,A4 INDICATE DEVICE READ
0x3bdb98…3bdd2c Dummy {f00=0x0145, f01=0x0190, f02=»CH IF ENTERED FROM ECHO OR RECOVERY { ~ P* | , P EJECT TOSSIO | 6 P* | N P* | X * P ORRS A2,A3 SET EVENT COMPLETED IN ECB | b , P ORS A1,ECBRC,A3 SET RETURN CODE IN ECB | P* | P IFT MMUPAG=1 | P LD A4,TTB:PW,A5 PSW | " P ANK A4,1 SY
0x3bdd2c…3bdec0 Dummy {f00=0x0145, f01=0x0190, f02=»5,32 ADJUST STACKPOINTER | * P TS 2,A15 SAVE MMU REGISTERS ON STACK } . P TL TTB:MT,A5 LOAD MMU REGISTERS FROM TTAB } N P* } P EJECT TOSSIO } P* } P* MOVE DWT ECB TO USER ECB } P* } & P LD A8,DWTUEC,A6 USER ECB ADDRESS } P ELR A
0x3bdec0…3be054 (4, 110) Dummy {f00=0x0146, f01=0x0190, f02=»DK A2,ECBEL } P LDK A4,6 ~ 4 P MVSU A4 MOVE EFF. LENGTH, RTN CODE & CNTRL WORD ~ & P* ~ ^ 4 P LD A3,DWTADR,A6 ADDRESS TO DRIVER ADDRESS BLOCK ~ h " P LD A3,DEVIND,A3 DEVICE INDEX ~ , P RF(N) TEN160 NO SPECIAL ACTION REQUIRED ~ " P RF(Z) TEN140 DATA
0x3be054…3be1e8 Dummy {f00=0x0146, f01=0x018e, f02=» , P CF A15,RD:WR CHECK IF IT WAS READ/WRITE . P RF(Z) TEN160 JUMP IF NO READ/WRITE ORDER 4 P* f PTEN140 EQU * p P ENB < P CFI A15,TENTAB,A3 BRANCH TO RELEVANT READ/WRITE ROUTINE P* P EJECT TOSSIO P* P* RESTORE MM
0x3be1e8…3be37c Dummy {f00=0x0146, f01=0x0190, f02=» d $ P ADKL A15,32 ADJUST STACKPOINTER P XIF 0 P* < P EJECT TOSSIO F P* ^ : P* CHECK IF NO WAIT, WAIT, MULTIPLE WAIT OR ACTIVATION h P* PTEN200 EQU * , P LD A4,DWTWAT,A6 WAIT/ACTIVATE INDICATOR ( P RF(Z) TEN250 NOT WA
0x3be37c…3be510 Dummy {f00=0x0146, f01=0x0190, f02=»ACTIVATION P LD A8,DWTECB,A6 ECB ADDRESS P* 6 P IFT MMUPAG=1 @ * P AN A3,TTB:PW,A5 SYSTEM/USER MODE BIT V P RF(Z) TEN210 SYSTEM MODE . P LD A8,DWTUEC,A6 NO, GET USER ECB ADDRESS P XIF P* PTEN210 EQU * 4 P ST A8
0x3be510…3be6a4 Dummy {f00=0x0146, f01=0x0190, f02=»XT DWT ADDRESS P RF(Z) TEN240 NO MORE DWT:S P CMR A4 SET TO NO WAIT AGAIN : P LDR A4,A3 ^ P RB TEN220 p P* P EJECT TOSSIO P* P* PTEN230 EQU * 8 P CF A15,FREBLK ACTIVATE: GET PARAMETER AND DISP ADDR . P
0x3be6a4…3be838 Dummy {f00=0x0146, f01=0x4150, f02=»PATCHING j P* PTEN250 EQU * $ P CM DWTECB,A6 RESET ECB ADDRESS . P* V PTEN260 EQU * ` P IFT CPU852=1 t P ABL IHRET8 P XIF P* P IFT CPU852=0 * P MLR 8,A15 RESTORE A1-A8 FROM STACK... P RTN A15 ...AND
0x3be838…3be9cc Dummy {f00=0x0146, f01=0x2008, f02=» NT TOSSIO END @ &
0x3be9cc…3beb60 Dummy {f00=0x0146, f01=0x0000, f02=»
0x3beb60…3becf4 (4, 111) Opaque[0x194]
0x3becf4…3bee88 # DirEnt {nam=»SYSLDM«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x2178, f03=0x0000}
0x3becf4…3bee88 IdxSect {
0x3becf4…3bee88 f00 = 0x010b // 0x3becf4 @0x0
0x3becf4…3bee88 f01 = 0x003e // 0x3becf6 @0x2
0x3becf4…3bee88 gno = [ // 0x3becf8 @0x4
0x3becf4…3bee88 [0x00]: C0x010b.0x3.0
0x3becf4…3bee88 [0x01]: C0x010c.0x0.0
0x3becf4…3bee88 [0x02]: C0x010c.0x1.0
0x3becf4…3bee88 [0x03]: C0x010c.0x2.0
0x3becf4…3bee88 [0x04]: C0x010c.0x3.0
0x3becf4…3bee88 [0x05]: C0x010d.0x0.0
0x3becf4…3bee88 [0x06]: C0x010d.0x1.0
0x3becf4…3bee88 [0x07]: C0x010d.0x2.0
0x3becf4…3bee88 [0x08]: C0x010d.0x3.0
0x3becf4…3bee88 [0x09]: C0x010e.0x0.0
0x3becf4…3bee88 [0x0a]: C0x010e.0x1.0
0x3becf4…3bee88 [0x0b]: C0x010e.0x2.0
0x3becf4…3bee88 [0x0c]: C0x010e.0x3.0
0x3becf4…3bee88 [0x0d]: C0x010f.0x0.0
0x3becf4…3bee88 [0x0e]: C0x010f.0x1.0
0x3becf4…3bee88 [0x0f]: C0x010f.0x2.0
0x3becf4…3bee88 [0x10]: C0x010f.0x3.0
0x3becf4…3bee88 [0x11]: C0x012e.0x1.0
0x3becf4…3bee88 [0x12]: C0x012e.0x2.0
0x3becf4…3bee88 [0x13]: C0x012f.0x1.0
0x3becf4…3bee88 [0x14]: C0x012f.0x2.0
0x3becf4…3bee88 [0x15]: C0x012f.0x3.0
0x3becf4…3bee88 [0x16]: C0x0130.0x0.0
0x3becf4…3bee88 [0x17]: C0x0130.0x1.0
0x3becf4…3bee88 [0x18]: C0x0130.0x2.0
0x3becf4…3bee88 [0x19]: C0x0130.0x3.0
0x3becf4…3bee88 [0x1a]: C0x0131.0x0.0
0x3becf4…3bee88 [0x1b]: C0x0131.0x1.0
0x3becf4…3bee88 [0x1c]: C0x0131.0x2.0
0x3becf4…3bee88 [0x1d]: C0x0131.0x3.0
0x3becf4…3bee88 [0x1e]: C0x0132.0x0.0
0x3becf4…3bee88 ]
0x3becf4…3bee88 }
0x3bee88…3bf01c Dummy {f00=0x010b, f01=0x0190, f02=» 2 P IDENT SYSLDM REL 10.0 80-03-31 870105041000 P : P REL 10.0 80-03-17 ST B & P =5,FAULTY DISPL. TO MMU BIT MAP b P REL 10.0 80-03-14 ST 0 P =4,MEM. OVERFL. NOT DET. WHEN GEN. TTAB:S P PRR 10.0 80-01-18 , P =3,SEGTAB
0x3bf01c…3bf1b0 Dummy {f00=0x010b, f01=0x0190, f02=»2-07 0 P =1,UNEVEN LENGTH POSS. OF INTERNAL BUFFER P ENTRY SYSLDM @ P*************************** V P* * z P* ENTRIES AND EXTERNALS * P* * P***************************
0x3bf1b0…3bf344 Dummy {f00=0x010b, f01=0x0190, f02=»ADA P EXTRN SCTANO P EXTRN SCTBLK " P EXTRN SCTBUG 8 P EXTRN SCTCDT N P EXTRN SCTDCT d P EXTRN SCTDMI z P EXTRN SCTDMT P EXTRN SCTEFA P EXTRN SCTFWL P EXTRN SCTFWT P EXTRN SCTIOE P EXTRN SCT
0x3bf344…3bf4d8 Dummy {f00=0x010b, f01=0x0190, f02=» P EXTRN SCTIPL P EXTRN STTPSZ P EXTRN SCTPSZ 4 P EXTRN SCTSFA J P EXTRN SCTSTL ` P EXTRN SCTSWB v P EXTRN SCTTCT P EXTRN SYSBAS P EXTRN SYSLOD P EXTRN TCLASS P EXTRN TTMJOB P EXTRN DWTECH
0x3bf4d8…3bf66c Dummy {f00=0x010b, f01=0x0190, f02=» P EXTRN CONVRT P EXTRN NXTBLK P EXTRN SYSLDX 4 P EXTRN SAVE01 J P EXTRN SAVE02 ` P EXTRN SAVE03 v P EXTRN SAVE04 P EXTRN SAVE05 P EXTRN SAVE06 P EXTRN SAVE07 P EXTRN SAVE08 P EXTRN SAVE09
0x3bf66c…3bf800 Dummy {f00=0x010b, f01=0x018e, f02=» P EXTRN SAVE16 P EXTRN SAVE17 P EXTRN SAVE18 0 P EXTRN SAVE19 F P EXTRN SAVE20 P EXTRN SAVE21 r P EXTRN NUMSEG P EXTRN SAVE23 P EXTRN SAVE24 P EXTRN SAVE25 P EXTRN SAVE26 P EXTRN SAVE27
0x3bf800…3bf994 (4, 112) Dummy {f00=0x010c, f01=0x0190, f02=» & P EXTRN I:RSTE DISPL. IN P:MTAB TO P INTERPRETER RESTART ENTRY 2 P* V P* TTAB DISPLACEMENTS ` P* ~ . P EXTRN TTB:CB CURRENT SEGMENT BASE POINTER P EJECT P* P* EXTERNAL SUBROUTINES P* P EXTRN NXTCO
0x3bf994…3bfb28 Dummy {f00=0x010c, f01=0x0190, f02=» * v , P*************************************** P F ( PMMUPAG EQU 1 MEMORY MANAGEMENT UNIT N & PSWPBLK EQU 0 SWAPPABLE WORK BLOCKS z $ PDSKPAG EQU 0 DSKPAG APPLICATION P EJECT P P* P* CONSTANTS P*
0x3bfb28…3bfcbc Dummy {f00=0x010c, f01=0x018e, f02=» $ PWBLEN EQU -4 LENGTH OF WORKBLOCK P , P 8 $ P******************************* D $ P* SAVE01URATION FILE (SAVE01) * l $ P******************************* P P* TASK DEFINITION BLOCK: PTDBBT EQU 0 1A BLOCK TYPE (
0x3bfcbc…3bfe50 Dummy {f00=0x010c, f01=0x0190, f02=» f $ PTDBTL EQU TDBMC+6 6A TASK LEVEL : PTDBNC EQU TDBTL+6 2N NUMBER OF TERMINAL DEVICE CLASSES 0 P* n & PTDBFST EQU TDBNC+2 FIRST TERM DEF x $ PTDC EQU 7 TERMINAL DEVICE CLASS PTLC EQU 6 LINE CONNECTION ( PTDBREC EQU TDC+TLC TDB-RECOR
0x3bfe50…3bffe4 Dummy {f00=0x010c, f01=0x0190, f02=»CK TYPE ~ 6 PCDBNC EQU CDBBT+1 2N NUMBER OF SPEC. DEV. CLASSES ( PSDCFST EQU CDBNC+2 FIRST SDC-RECORD J P* v P* & P* USER WORK BLOCK TYPE DEF. BLOCK PUDBBT EQU 0 1A BLOCK TYPE , PUDBNU EQU UDBBT+1 3A NUMBER OF UWB TYPES P*
0x3bffe4…3c0178 Dummy {f00=0x010c, f01=0x0190, f02=»UWB+NUMUBL UDB RECORD-LENGTH P EJECT $ P**************** 2 P* SOP-HANDLING * J P**************** b PSOP EQU /2E DEVICE ADDRESS z P PLMP1 EQU /400 LAMP 1 CODE PLMP2 EQU /200 PLMP3 EQU /100 PLMP4 EQU /80 PLM
0x3c0178…3c030c Dummy {f00=0x010c, f01=0x0190, f02=» F P***************************************************************** F P* CALL-FORMAT, PERFORMS: CFR A14,A13 * T F P* DATA [REL-ADDRESS] * F P*
0x3c030c…3c04a0 Dummy {f00=0x010c, f01=0x0190, f02=» P PCALL FORM 16=/F697,16 P EJECT . F P***************************************************************** < F P* CONSTANTS USED IN SYSLOD PART M * F P********************************************************
0x3c04a0…3c0634 (4, 113) Dummy {f00=0x010c, f01=0x0190, f02=»* 2 PTTB:AT EQU -46 DISPLACEMENT TO MMU BIT MAP =5 PTTB:MT EQU -38 @ PTTB:SP EQU -4 V PTTB:SB EQU -2 l PTTB:ID EQU 2 PTTB:ST EQU 4 PTTB:PP EQU 6 PTTB:PW EQU 8 PTTB:SA EQU 10 PTTB:TD EQU 40 P EJECT
0x3c0634…3c07c8 Dummy {f00=0x010c, f01=0x0190, f02=» 0 CHANNEL PARAMETER PDWTST EQU 2 STATUS PDWTECB EQU 4 ECB ADDRESS 6 PDWTOR EQU 6 ORDER V PDWTADR EQU 8 ADDRESS BLOCK p PDWTTAB EQU 10 TTAB ADDRESS * PDWTWAT EQU 12 WAIT/ACTIVATE INDICATOR PDWTTQ EQU 14 TERMINAL QUEUE " PDW
0x3c07c8…3c095c Dummy {f00=0x010c, f01=0x018e, f02=» " P* * PAGTAB * " P* *********** * P* P PPAGQF EQU 0 Z PPAGQB EQU 2 n PPAGPA EQU 4 PPAGSB EQU 6 P EJECT P* & P* ************* & P* * SEGT
0x3c095c…3c0af0 Dummy {f00=0x010c, f01=0x0190, f02=» * P* ******************* * P* * MISCELLANOUES * 2 * P* ******************* ` P* PBUFLEN EQU -4 PDEVIND EQU -2 PDWTLEN EQU 6 PTDCDD1 EQU 5 PTDCDD2 EQU 6 PLCND1 EQ
0x3c0af0…3c0c84 Dummy {f00=0x010c, f01=0x0190, f02=»2 LENGTH OF ASCU4Z INTERRUPT TABLE 2 PSCZLEN EQU 16 LENGTH OF SALCUZ INTERRUPT TABLE * 2 PASZBUF EQU 96 LENGTH OF TEMP TABLE FOR ASCU4Z ` 2 PSCZBUF EQU 48 LENGTH OF TEMP TABLE FOR SALCUZ 4 PMINBUF EQU 1984 LENGTH OF TEMP. INT. TABLE AREA P EJE
0x3c0c84…3c0e18 Dummy {f00=0x010c, f01=0x0190, f02=» * : P* THIS IS THE MONITOR CONFIGURATION PROGRAM ENTRY * < : P* * z : P* IT IS ENTERED FROM SYSLOD WITH THE FOLLOWING * : P* PARAMETERS:
0x3c0e18…3c0fac Dummy {f00=0x010c, f01=0x0190, f02=»CATION OF SYSLDX * r : P* A2 - POINTER TO PREVIOUS LOCATION OF SYSLDX * : P* * ^ : P* * : P**********************************************
0x3c0fac…3c1140 Dummy {f00=0x010c, f01=0x0190, f02=»1,SCTSFA UPDATE START OF FREE AREA P LDR A8,P INIT STACK POINTER * & P ADK A1,2 RELOCATION ROUTINE ENTRY N P CFR A8,A1 x * P ST A13,SCTEFA UPDATE END OF FREE AREA * P LDKL A2,TCLASS GET ADDRESS TO TCLASS . P CWK A2,SCLASS SAME AS ADDRESS TO
0x3c1140…3c12d4 (4, 114) Dummy {f00=0x010c, f01=0x0190, f02=» POINTER TO TCLASS p 0 PNO:TCL LDKL A2,SCLASS GET ADDRESS TO SCLASS , P CALL CHPTRS RELOCATE POINTERS IN SCLASS N 6 P ST A2,SAVE11,A13 SAVE RELOCATED POINTER TO SCLASS ~ P* & P* CLEAR ALL WORDS IN SYSTEM AREA P* P LD A1,SCTEFA
0x3c12d4…3c1468 Dummy {f00=0x010c, f01=0x0190, f02=» P AD A1,M:REL,A13 P ABR A1 P EJECT 0 4 /*********************************************** > 4 /* CHPTRS - CHANGE POINTERS IN TCLASS/SCLASS * v 4 /*********************************************** * , (* ENTRY: A2 - POINTER
0x3c1468…3c15fc Dummy {f00=0x010c, f01=0x018e, f02=»- POINTER TO MOVED TCLASS/SCLASS * ( * WORK REGISTER:A1-A7 2 * P * SUBROUTINES: Z * r PCHPTRS EQU * | P ADR A2,A12 RELOCATE POINTER 2 . LDR A3,A2 GET POINTER TO ORIGIN TCLASS/SCLASS , ' LDR* A4,A3 GET LENGTH OF TCLA
0x3c15fc…3c1790 Dummy {f00=0x010c, f01=0x018e, f02=» z $ ! LDR* A5,A3 GET POINTER TO CLASS ADR A5,A12 RELOCATE 0 STR A5,A3 STORE L $ LDR* A6,A5 GET LENGTH OF CLASS d CHPT20 EQU * * & SUK A6,4 MOORE DEVICES IN THIS CLASS? P RB(NP) CHPT10 NO! ADK A5,4 NEXT DEVICE L
0x3c1790…3c1924 Dummy {f00=0x010c, f01=0x0190, f02=» r ADR A7,A12 RELOCATE * % STR A7,A5 STORE RELOCATED DW-ADDRESS $ " P LD A8,SCTOPT GET OPTION WORD R P ANKL A8,1 MMU IN SYSTEM? x P RB(Z) CHPT20 NO! , P LD A8,DWTMEC,A7 GET MONITOR ECB ADDRESS & P LDR A9,A8 GET MONITOR ECB ADDRESS
0x3c1924…3c1ab8 Dummy {f00=0x010c, f01=0x0190, f02=»ESS RELOCATED t , P ST A8,DWTMEC,A7 STORE RELOCATED ADDRESS RB CHPT20 F CHPT30 EQU * X P RTN A14 l P EJECT | 6 2************************************************** 6 2* B:TCT - BUILD TASK CONTROL TABLE * 6 2**********
0x3c1ab8…3c1c4c Dummy {f00=0x010c, f01=0x0190, f02=»ATION DATA l * " * EXIT: A6 - START OF TC:TAB $ * A7 - LENGTH OF TC:TAB B * j * WORK REGISTERS: A2,A3 t * * SUBROUTINES: * . )* TASK CONTROL TABLE LAYOUT . )* ____
0x3c1c4c…3c1de0 Dummy {f00=0x010c, f01=0x0190, f02=» I TTMJOB I . )* _________________________ , . ** I MONITOR TASKS I ^ . )* _________________________ . ** I USER TASKS I . )* _____
0x3c1de0…3c1f74 (4, 115) Dummy {f00=0x010c, f01=0x0190, f02=»A11,SAVE01,A13 GET START OF SAVE01URATION DATA ( $ LD A7,SCTSFA GET START OF FREE AREA 6 LDR A6,A7 SAVE b & " LDKL A2,TTMJOB GET TTMJOB ADDRESS z ST A2,2,A7 STORE IN TC:TAB * % ADK A7,4 CONTINUE WITH MONITOR TASKS ( P LD A2,SCTOPT ANY
0x3c1f74…3c2108 Dummy {f00=0x010c, f01=0x0190, f02=»S IN TC:TAB IF CERTAIN OPTIONS AVALIABLE * @ P* - TO BE PROVIDED * 4 @ P*********************************************************** x P EJECT PBTCT15 EQU * " P LD A2,SCTDMT DATA MANAGEMENT? $ PBTCT
0x3c2108…3c229c Dummy {f00=0x010c, f01=0x018e, f02=»RESERV ENTRY FOR DM-TASK D0 PBTCT25 RB BTCT20 $ PBTCT30 EQU * < * P : 5* COMPUTE NUMBER OF TASKS AND RESERV SPACE IN TC:TAB Z * . )* A11 - POINTER TO TASK DEFINITION BLOCK * 2 P ST A7,SAVE13,A13 SAVE CURRENT USER TASK E
0x3c229c…3c2430 Dummy {f00=0x010c, f01=0x0190, f02=» RF(E) BTCT35 YES ! P LDKL A1,LMP4 FORMAT ERROR ! CALL ERROR HALT ! @ PBTCT35 EQU * ! X * ! l 0 ,* COMPUTE NUMBER OF TASK IN EACH TASK CLASS ! v * ! PBTCT40 EQU * ! $ CALL GETTSK GET NUMBER OF TASKS ! PBTCT50 EQU * ! , P ADK
0x3c2430…3c25c4 Dummy {f00=0x010c, f01=0x018e, f02=» CALL ERROR INDICATE MEMORY OVERFLOW ! PBTCT55 EQU * " , ( $ SUK A1,1 MOORE TASKS IN THIS CLASS? " @ RB(P) BTCT50 YES " l $ CALL NXTBLK SKIP TO NEXT BLOCK " ( # CCK A2,'TT' TASK DEFINITION BLOCK? " RB(E) BTCT40 YES " * " 4 0* ENTRIES
0x3c25c4…3c2758 Dummy {f00=0x010c, f01=0x0190, f02=» & ! STR A7,A6 STORE LENGTH IN TC:TAB # * P ST A6,SCTTCT STORE POINTER TO TC:TAB # . RTN A14 # P EJECT # l 8 P*************************************************** # z 8 P* * # 8 P* B:FWT - BUI
0x3c2758…3c28ec Dummy {f00=0x010c, f01=0x0190, f02=» * # j 8 P*************************************************** $ 8 P* * $ R 8 P* REFERENCED IN: CONMON * $ 8 P* * $ 8 P*
0x3c28ec…3c2a80 Dummy {f00=0x010c, f01=0x018e, f02=»- FILE WORK TABLE LENGTH IN * $ ~ 8 P* BYTES * % * 8 P* * % f 8 P* EXIT: SCTFWT - ADDRESS TO FIRST FWT * % 8 P* SCTNOF - TOTAL NUMBER OF FM-FIL
0x3c2a80…3c2c14 (4, 116) Dummy {f00=0x010d, f01=0x0190, f02=» 8 P* * & 8 P* SUBROUTINES: ERROR,MULT * & @ 8 P* * & | 8 P* FUNCTIONAL DESCRIPTION: * & 8 P* THIS SUBROUTINE R
0x3c2c14…3c2da8 Dummy {f00=0x010d, f01=0x0190, f02=»N BY THE * & l 8 P* FORMULA: A=L*(G+N*T) * ' 8 P* WHERE A=AREA SIZE IN BYTES * ' T 8 P* L= FWT LENGTH IN BYTES * ' 8 P* G=NUMBER OF GENERAL FM-FILES * ' 8 P
0x3c2da8…3c2f3c Dummy {f00=0x010d, f01=0x0190, f02=» * ' 8 P*************************************************** ( , P EJECT ( h PB:FWT EQU * ( v & P LD* A2,SCTTCT GET LENGTH OF TCTAB ( & P AD A2,SCTTCT COMPUTE END OF TCTAB ( * P SU A2,SAVE02,A13 LENGTH OF USER PART (
0x3c2f3c…3c30d0 Dummy {f00=0x010d, f01=0x0190, f02=»F ADD NUMBER OF GENERAL FM-FILES ( 0 P ST A3,SCTNOF STORE TOTAL NUMBER OF FM-FILES ) ( , P LD A2,SCTFWL GET FILE WORK TABLE LENGTH ) P CALL MULT MULTIPLY ) , P SRL A3,1 NUMBER OF WORDS TO BE RESERVED ) P ADK A3,0 ANY FWT:S AT ALL? ) P RF(Z) FWT70
0x3c30d0…3c3264 Dummy {f00=0x010d, f01=0x0190, f02=»S TO FIRST FWT ) v ( PFWT50 CW A2,SCTEFA MEMORY OVERFLOW? * P RF(NE) FWT60 NOT YET! * B * P LDKL A1,LMP3 INDICATE MEMORY OVERFLOW * ` P CALL ERROR * ( PFWT60 ADK A2,2 RESERVE ANOTHER WORD * $ P SUK A3,1 DECREMENT WORD COUNTER * * P RB(NZ) FWT50 CHEC
0x3c3264…3c33f8 Dummy {f00=0x010d, f01=0x0190, f02=»************** * x * &* MONBLK - GENERATE MONITOR BLOCKS * + * &************************************** + D * + r ( $* NUMBER OF BLOCKS TO BE GENERATED: + | ( P* 20+N*(NUMBER OF TASKS IN SYSTEM) + $ P* WHERE N IS A SYSTEM CONSTANT + $ P* DEFINED A
0x3c33f8…3c358c Dummy {f00=0x010d, f01=0x0190, f02=»* SCTEFA - END OF FREE AREA + * , , . ** EXIT: BLOCKS - POINTER TO FIRST BLOCK , 6 * , h $ * WORK REGISTERS: A1,A2,A7,A12 , r * , * SUBROUTINES: BLKGEN , * , EJECT , PMONBLK EQU * , LDK A1,0 , & ! LD A1
0x3c358c…3c3720 Dummy {f00=0x010d, f01=0x0190, f02=»* , ( P LD* A7,SCTTCT GET LENGTH OF TC:TAB - P* - 6 0 P* GET NUMBER OF BLOCKS PER TASK TO GENERATE - @ P* - t P LD A2,SCTBLK - ~ PMON:10 EQU * - SUK A7,2 MOORE TASKS? - RF(Z) MON:20 NO - P CALL BLKGEN - RB MON:10 - PMO
0x3c3720…3c38b4 (4, 117) Dummy {f00=0x010d, f01=0x0190, f02=»D BLOCK - * . STR A1,A12 . ST A1,2,A12 . . ST A1,4,A12 . B P* . V F P* CHECK IF BUFFER GREATER THAN 3 WORDS RESERVED FOR SYSLOD PART A . ` 0 P* IF NOT - USE LAST MONITOR BLOCK AS BUFFER . P* . & P LD A1,BUFSIZ,A13 GET BUFFER SIZ
0x3c38b4…3c3a48 Dummy {f00=0x010d, f01=0x0190, f02=»T A12,SYSBUF,A13 START OF BUFFER . PMON:30 EQU * / ( ADKL A12,6 / < P LD A2,SCTSFA / P P SUK A2,2 / f PMON:40 ADK A2,2 / x P CW A2,SCTEFA / P RF(NE) MON:50 / P LDKL A1,LMP3 / P CALL ERROR / PMON:50 CWR A2,A12 / P RB(NE)
0x3c3a48…3c3bdc Dummy {f00=0x010d, f01=0x0190, f02=»* BLKGEN - GENERATE MONITOR BLOCK * / * %************************************* 0 . * 0 * REFERENCED IN: MONBLK 0 f * 0 * ENTRY: A1=0 0 4 0* A2 - NUMBER OF BLOCKS TO BE GENERATED 0 $ * A12 - NEXT FREE ENTRY 0
0x3c3bdc…3c3d70 Dummy {f00=0x010d, f01=0x0190, f02=» 0 * 1 0 ,* MONITOR BLOCK LAYOUT 1 0 ,* -------------------- 1 F 0 ,* I DATA *+6 I 1 z 0 ,* -------------------- 1 0 ,* I DATA 0
0x3c3d70…3c3f04 Dummy {f00=0x010d, f01=0x0190, f02=» -------------------- 1 ~ * 2 " EJECT 2 , PBLKGEN EQU * 2 : LDR A3,A2 2 N PBLK:10 EQU * 2 b RF(Z) BLKEX 2 v ADKL A12,6 2 ST A12,-6,A12 2 P ST A1,-4,A12 2 ST A1,-2,A12 2 SUK A3,1 2 RB BLK:10 2 PBLKE
0x3c3f04…3c4098 Dummy {f00=0x010d, f01=0x0190, f02=»UILD SEGMENT TABLE * 2 ( $************************************ 3 * 3 J * &* ENTRY: SCTSFA - START OF FREE AREA 3 T ( $* SCTEFA - END OF FREE AREA 3 , (* SCTLAC - START OF APPLICATION 3 * 3 , (* EXIT: SCTPAG - ADDRESS TO PA
0x3c4098…3c422c Dummy {f00=0x010d, f01=0x0190, f02=» * 3 P* 4 P* CHECK APPLICATION TYPE 4 P* 4 6 ( P LD A1,APPTYP,A13 GET LANGUAGE TYPE 4 @ P CWK A1,'CR' 4 l $ P RF(E) SEG:05 CREDIT APPLICATION 4 P CWK A1,'CO' 4 $ P RF(E) SEG:05 COBOL APPLICATION 4 P RF SEGEX 4 * 4 * BUILD
0x3c422c…3c43c0 Dummy {f00=0x010d, f01=0x0190, f02=»2 STORE IN SEGTAB 4 ( P ADKL A12,2 START OF SEGMENT BLOCKS 5 , P LD A1,SAVE29,A13 GET NUMBER OF SEGMENTS 5 F P STR A1,A12 SAVE 5 v P ADKL A12,2 5 . P ST A12,SAVE30,A13 START OF SEGMENT TABLE 5 * P LDKL A1,/8400 STATUS FOR FIRST BLOCK 5 $ P STR A
0x3c43c0…3c4554 (4, 118) Dummy {f00=0x010d, f01=0x0190, f02=» A2,A1 SAVE POINTER 5 P ADKL A2,6 ADDRESS TO P:BAS 6 P CALL GETCON GET P:BAS 6 @ & P ST A1,2,A12 STORE IN FIRST BLOCK 6 ^ " P ADKL A12,8 BYPASS FIRST BLOCK 6 4 P LD A2,SCTLAC GET LOGICAL ADDRESS TO COMMON PART 6 * P ADKL A2,NUMSEG GET NUMBER OF SEGM
0x3c4554…3c46e8 Dummy {f00=0x010d, f01=0x018e, f02=»10 EQU * 6 P LDK A7,0 STATUS 7 CALL GETCON 7 * * P* LDR A3,A1 SAVE DISC ADDRESS =REL 11 7 > ( P* ANK A3,/FF CLEAR LEFT BYTE =REL 11 7 l , P SRL A1,8 PROGRAM TYPE TO RIGHT BYTE =2 7 ( # CCK A1,'RR' CORE RESIDENT SEGMENT? 7 P RF(E) SEG:30 YES! 7
0x3c46e8…3c487c Dummy {f00=0x010d, f01=0x0190, f02=» 7 P ADK A2,2 8 P RF SEG:40 8 PSEG:30 EQU * 8 , * P LDKL A7,/8800 INDICATE LOADED IN CORE 8 @ PSEG:35 EQU * 8 n ADK A2,2 SEGMENT ADDRESS 8 CALL GETCON 8 P* 8 P AD A1,SCTADA+2 8 P RF(O) SEG:36 8 P RF SEG:38 8 PSEG:36
0x3c487c…3c4a10 Dummy {f00=0x010d, f01=0x0190, f02=»L ERROR 8 PSEG:40 EQU * 9 P* ORR A7,A3 =REL 11 9 $ P STR A7,A12 9 @ P ST A1,2,A12 9 T P ADK A2,2 EFFECTIVE LENGTH 9 h CALL GETCON 9 & P ST A1,4,A12 SAVE EFFECTIVE LENGTH 9 " P ADKL A12,8 NEXT SEGMENT BLOCK 9 " ADK A2,2 NEXT BLOCK IN S:
0x3c4a10…3c4ba4 Dummy {f00=0x010d, f01=0x0190, f02=» A2,2 9 P CW A2,SCTEFA : P RF(NE) SEG:70 : $ P LDKL A1,LMP3 : : ( P CALL ERROR INDICATE MEMORY OVERFLOW : P PSEG:70 CWR A2,A12 : | P RB(NE) SEG:60 : P ST A12,SCTSFA : PSEGEX EQU * : RTN A14 RETURN : P XIF : P IFT SWPBLK=1
0x3c4ba4…3c4d38 Dummy {f00=0x010d, f01=0x0190, f02=» * : f D P* * ; D P* * ; f D P* B:SWBT - BUILD SWAPPABLE WORK BLOCK TABLE * ; D P* =======
0x3c4d38…3c4ecc Dummy {f00=0x010d, f01=0x0190, f02=» REFERENCED IN: SYSLDM * ; D P* * < > D P* ENTRY: * < D P*
0x3c4ecc…3c5060 Dummy {f00=0x010d, f01=0x0190, f02=» * < ^ D P* WORK REGISTERS: A1-A12 * = D P* * = ^ D P* REGISTER USAGE: A8 - DISC ADDRESS TO FIRST COPY * = D P*
0x3c5060…3c51f4 (4, 119) Dummy {f00=0x010d, f01=0x0190, f02=» A11 - POINTER IN CONF. FILE * = ~ D P* A12 - ADDRESS TABLE POINTER * > 6 D P* * > ~ D P* SUBROUTINES: ERROR,GETNUM,GETCON * >
0x3c51f4…3c5388 Dummy {f00=0x010d, f01=0x0190, f02=» * > V D P*************************************************************** ? P EJECT ? V PB:SWBT EQU * ? d & P LD A12,SCTSFA START OF FREE AREA ? x 2 P LD A11,SAVE01,A13 START OF CONFIGURATION FILE ? P* ? : P* SEARCH FOR SWB TYPE DEFINITION BLOC
0x3c5388…3c551c Dummy {f00=0x010d, f01=0x0190, f02=»S! ? 0 P CCK A2,'CC' COMMON DEVICE DEFINITION BLOCK? @ P RF(NE) BSWT20 NO! @ > P ADKL A11,1 @ X " P CALL NXTCOM SKIP COMMON BLOCK @ l 2 PBSWT20 CCK A2,'UU' UWB TYPE DEFINITION BLOCK? @ P RF(NE) BSWT40 NO! @ P ADKL A11,1 NUMBER OF TYPES @ P L
0x3c551c…3c56b0 Dummy {f00=0x010d, f01=0x0190, f02=»BFST-1 FIRST UWB RECORD @ ( PBSWT30 ADKL A11,6 BYPASS UWB RECORD A $ P SUK A1,1 DECR. NUMBER OF TYPES A L P RB(P) BSWT30 MOORE LEFT A t , P LCR A2,A11 GET NEXT CHAR. IN CONF.FILE A 0 PBSWT40 CCK A2,'SS' SWB TYPE DEFINITION BLOCK A P RF(E) BSWT44 YE
0x3c56b0…3c5844 Dummy {f00=0x010d, f01=0x0190, f02=»F TYPES A v * P ST A11,SAVE23,A13 START OF CONF. DATA B P LDR A6,A11 B > P CALL GETNUM GET 3 DIGITS B R P LDR A5,A5 ZERO? B t $ P RF(Z) SWBERR ILLEGAL NUMBER!!! B , P ST A5,SAVE24,A13 SAVE NUMBER OF RECORDS B ( P LD A8,SCTSWB GET ADDRESS TO $SWAPP
0x3c5844…3c59d8 Dummy {f00=0x010d, f01=0x0190, f02=»TO ADDRESS TABLE B n * P CM SAVE14,A13 RESET SWP-BLOCK COUNTER C P ADKL A12,2 FIRST POINTER C F P LDR A10,A12 SAVE C h $ PBSWT50 ADKL A10,2 BYPASS POINTER C ( P SUK A5,1 DECREMENT NUMBER OF TYPES C P RB(P) BSWT50 C P* C & P* GET ADDRESS TO
0x3c59d8…3c5b6c Dummy {f00=0x010d, f01=0x0190, f02=»DKL A2,S:BTAB DISPL. TO S:BTAB ADDRESS C $ P CALL GETCON GET S:BTAB ADDRESS D . * P LDR A2,A1 GET ADDRESS TO PROT. S:BTAB D V * P RB(Z) SWBERR NO SWB:S IN APPLICATION! D P ADK A1,2 ADDRESS TO NAME D P ST A1,SAVE21,A13 SAVE D 0 P SUK A2,2 ADDRESS TO L
0x3c5b6c…3c5d00 Dummy {f00=0x010d, f01=0x0190, f02=» LDKL A9,0 RESET BLOCK COUNTER D , PBSWT60 STR A10,A12 SAVE POINTER TO BLOCK E & P ST A4,SAVE19,A13 SAVE E V * P LD A11,SAVE23,A13 START OF CONF. DATA E t , P LD A7,SAVE24,A13 NUMBER OF SWB RECORDS E 0 PBSWT65 LD A2,SAVE21,A13 NAME RECORD IN PROT. E $ P C
0x3c5d00…3c5e94 (4, 120) Dummy {f00=0x010e, f01=0x0190, f02=»LEFT BYTE E ~ " P LC A3,1,A11 GET SECOND CHAR. F & P CWR A1,A3 TWO FIRST CHAR. EQUAL? F 8 P RF(NE) BSWT70 NO! F b " P ADK A2,2 NEXT CHAR. IN PROT. F | P CALL GETCON GET THIRD CHAR. F P SRL A1,8 ISOLATE CHAR. F 0 P LC A3,2,A11 GET THIRD CHAR. FROM
0x3c5e94…3c6028 Dummy {f00=0x010e, f01=0x018e, f02=»WB SKIP NAME F | ( P SUK A7,1 DECREMENT NUMBER OF TYPES G P RB(P) BSWT65 NEXT TYPE G @ P* G ` N P* NO MATCHING NAME IN CONFIGURATION FILE - RESET ALL WORDS IN THIS BLOCK G j P* G P STR A7,A10 1:ST WORD G P ST A7,2,A10 2:ND WORD G P ST A7
0x3c6028…3c61bc Dummy {f00=0x010e, f01=0x0190, f02=» G & P ADKL A11,NAMUWB NUMBER OF COPIES H P LDR A6,A11 H 2 P LDR A3,A2 SAVE POINTER H F & P CALL GETNUM GET NUMBER OF COPIES H f , P SLL A5,8 NUMBER OF COPIES IN LEFT BYTE H : P OR A5,SAVE26,A13 DISC ADDRESS BITS 0-7 IN RIGHT BYTE H " P STR A5,A1
0x3c61bc…3c6350 Dummy {f00=0x010e, f01=0x0190, f02=»,A10 SAVE H P LDR A2,A3 RESTORE POINTER I $ P SUK A2,UPNAME PROTOTYPE ADDRESS I 4 & P CALL GETCON GET PROTOTYPE ADDRESS I P LDR A2,A1 SAVE I & P SUK A2,UPNAME LENGTH OF WORKBLOCK I P CALL GETCON I * P ST A1,SWBLEN,A10 STORE LENGTH OF SWB I 0
0x3c6350…3c64e4 Dummy {f00=0x010e, f01=0x0190, f02=»S I d P RF(O) BSWT88 J P RF BSWT90 J PBSWT88 IM SAVE26,A13 J 2 P CM SAVE25,A13 J N PBSWT90 EQU * J d & P ADK A1,1 INCREMENT SECTOR COUNTER J x " P SUKL A3,256 DECREMENT LENGTH J P RB(P) BSWT86 MOORE SECTORS? J P SUK A5,1 MOORE COPIES? J
0x3c64e4…3c6678 Dummy {f00=0x010e, f01=0x0190, f02=»E26,A13 J P CW A8,SAVE28,A13 K ( P RB(G) SWBERR $SWAP-FILE TOO SMALL! K * P RF(L) BSWT95 K V P LD A8,SAVE25,A13 K l P CW A8,SAVE27,A13 K ( P RF(G) BSWT98 SWAPP-FILE TOO SMALL! K * PBSWT95 ADKL A10,8 START OF NEXT BLOCK K P ADKL A12,2 NE
0x3c6678…3c680c Dummy {f00=0x010e, f01=0x0190, f02=»RECORD IN PROT. S:BTAB K | P ST A2,SAVE21,A13 SAVE L 0 P LD A4,SAVE19,A13 GET LENGTH OF PROT. S:BTAB L < P SUK A4,UP:REC DECREMENT L p P RB(P) BSWT60 MOORE TYPES L , P LD A8,SAVE14,A13 ANY BLOCKS GENERATED? L P RF(NE) BSWT99 YES L PBSWT98 LDKL
0x3c680c…3c69a0 Dummy {f00=0x010e, f01=0x0190, f02=»AREA L l P RTN A14 M P XIF M EJECT M ( 6 1************************************************* M 6 6 1* B:DMTT - BUILD DATA MANAGEMENT TASK TABLES * M p 6 1************************************************* M * M * &* ENTRY: SCTSFA - START
0x3c69a0…3c6b34 (4, 121) Dummy {f00=0x010e, f01=0x0190, f02=»T: M * N ( P* WORK REGISTERS: A1,A3,A5,A7,A12 N * N @ * SUBROUTINES: DMTGEN N J * N h PB:DMTT EQU * N r * % LD A12,SCTSFA GET START OF FREE AREA N ( P LD A7,SCTTCT GET POINTER TO TC:TAB N " ADK A7,4 FIRST DM-TASK ENTRY N $ P L
0x3c6b34…3c6cc8 Dummy {f00=0x010e, f01=0x0190, f02=» P ANK A3,/F MOORE DM-TASKS? O P RF(Z) DMTTEX NO! O & P SRC A3,1 O @ P RF(NN) DMTT30 O R CALL DMTGEN O h DMTT30 EQU * O | P ADK A5,1 O P RB DMTT20 O DMTTEX EQU * O RTN A14 O EJECT O 6 2**********************************
0x3c6cc8…3c6e5c Dummy {f00=0x010e, f01=0x0190, f02=» * P * ENTRY: A1 - TASK ID P , (* A6 - INDEX RECORD BUFFER SIZE P . 0 ,* A7 - TCTAB ENTRY FOR CURRENT TASK P ^ & "* A12 - START OF FREE AREA P * P * EXIT: P * P P* WORK REGISTERS: A2,A4 P * P
0x3c6e5c…3c6ff0 Dummy {f00=0x010e, f01=0x0190, f02=»0 NO! P P LDK A4,0 RESET PAGE POINTER Q PDMTG10 EQU * Q 2 P CWK A4,/4000 LAST PAGE? Q F P RF(E) DMTG30 YES! Q f " P STR A4,A12 STORE PAGE POINTER Q ( P ADKL A4,/400 INCREMENT PAGE POINTER Q , P ADKL A12,2 INCREMENT MMU ENTRY POINTER Q P RB DM
0x3c6ff0…3c7184 Dummy {f00=0x010e, f01=0x0190, f02=» * Q . P LD A1,SAVE30,A13 GET ADDRESS TO SEG.TABLE R P STR A1,A12 STORE TTB:SP R < P ADKL A12,6 R PDMTG40 EQU * R p 2 . STR A12,A7 STORE TTAB ENTRY POINTER IN TC:TAB R " ADK A7,2 NEXT ENTRY IN TC:TAB R * P ST A5,TTB:ID,A12 TASK IDENTIFICATION R
0x3c7184…3c7318 Dummy {f00=0x010e, f01=0x0190, f02=» STATUS R z $ P ST A1,TTB:PW,A12 STORE IN TTAB S " P ADKL A12,40 TERMINAL DEVICES S 8 LDK A1,6 LENGTH S ^ STR A1,A12 STORE S v ADKL A12,40 TASK STACK+2 S , ' LDR A1,A6 GET INDEX RECORD BUFFER SIZE S SLL A1,2 MULTIPLY BY 4 S ( P ADR A
0x3c7318…3c74ac Dummy {f00=0x010e, f01=0x0190, f02=»FLOW S n P RF(NE) DMTG60 NO! T P LDKL A1,LMP3 T & ( P CALL ERROR INDICATE MEMORY OVERFLOW T < PDMTG60 CWR A2,A12 T h P RB(NE) DMTG50 T , ( ST A12,SCTSFA UPDATE START OF FREE AREA T P RTN A14 T EJECT T " ****************************** T
0x3c74ac…3c7640 Dummy {f00=0x010e, f01=0x0190, f02=»NTRY: SAVE01 - START OF SAVE01URATION DATA T * U 4 8 4* EXIT: TC:TAB CONTAIN POINTERS TO ALL TASK TABLES U > * U z * WORK REGISERS: A1-A12 U * U 8 3* SUBROUTINES: CONVRT,GETTSK,TETTDC,GETCLN,GETSDC U * U ( #*
0x3c7640…3c77d4 (4, 122) Dummy {f00=0x010e, f01=0x0190, f02=» TABLE I U ~ * &* I 16 I V * &* I WORDS I V J * &* I______________________I V x * &* TTB:SB I SEGMENT POINTER I V * &* ------------------------ V * &* TAS
0x3c77d4…3c7968 Dummy {f00=0x010e, f01=0x0190, f02=» ------------------------ V * &* TTB:ST I STATUS/LEVEL I W * * &* ------------------------ W X * &* TTB:PP I PENDING QUEUE I W * &* ------------------------ W * &* TTB:PW I PROGRAM STATUS WORD I
0x3c7968…3c7afc Dummy {f00=0x010e, f01=0x0190, f02=»-- W l * &* I REGISTER I X * &* I SAVE I X 8 * &* I AREA I X f * &* I 14 I X * &* I WORDS I X * &* ----------
0x3c7afc…3c7c90 Dummy {f00=0x010e, f01=0x0190, f02=» TABLE I X z * &* : : Y * &* : : Y F * &* I______________________I Y t P EJECT Y 2 P* TASK SAVE01URATION TABLE LAYOUT Y 0 ,* ____________________
0x3c7c90…3c7e24 Dummy {f00=0x010e, f01=0x018e, f02=»I INDEX/FILCODE I Y 0 ,* ------------------------------ Z & 0 ,* I DWT-ADDRESS I Z Z 0 ,* ------------------------------ Z 0 ,* : : Z 0 ,* :
0x3c7e24…3c7fb8 Dummy {f00=0x010e, f01=0x0190, f02=» 0 ,* ------------------------------ [ 0 ,* I DWT-ADDRESS I [ 8 0 ,* ------------------------------ [ l EJECT [ PB:TT EQU * [ * P ST P,SAVE04,A13 SAVE LOCATION COUNTER [ * % LD A12,SCTSFA GET START O
0x3c7fb8…3c814c Dummy {f00=0x010e, f01=0x018e, f02=»U * [ $ LCR A2,A11 GET FIRST BLOCK TYPE ( # CCK A2,'TT' TASK DEFINITION BLOCK? 4 RF(E) BTT20 YES ` P LDKL A1,LMP4 FORMAT ERROR x CALL ERROR PBTT20 EQU * * ( $* GET NUMBER OF TASKS IN THIS CLASS * CALL
0x3c814c…3c82e0 Dummy {f00=0x010e, f01=0x0190, f02=» j SLL A5,8 MOVE TO LEFT BYTE ] * P LC A5,TDBID+5,A11 GET SECOND ID DIGIT ] , . P ST A5,SAVE16,A13 SAVE TASK ID START VALUE ] Z P* ] " P* CHECK IF CREDIT APPLICATION ] P* ] P LD A5,APPTYP,A13 CREDIT? ] P CWK A5,'CR' ] P RF(NE) BTT2
0x3c82e0…3c8474 (4, 123) Dummy {f00=0x010e, f01=0x0190, f02=» A5,8 MOVE TO LEFT BYTE ] . P LC A5,TDBMC+5,A11 GET SECOND CHAR IN TCL ^ $ P CALL GETTCL GET TCL START VALUE ^ R P ST A5,SAVE17,A13 SAVE ^ z PBTT21 EQU * ^ P EJECT ^ * ^ * GET TASK LEVEL ^ * ^ 0 P LC A5,TDBTL+4,A11 GET FIRST DIG
0x3c8474…3c8608 Dummy {f00=0x010e, f01=0x0190, f02=»RY ^ t P ST A1,SAVE24,A13 SAVE _ P EJECT _ ( * _ 6 B P* COMPUTE SIZE OF SAVE01URATION DEPENDENT PART OF TASK TABLE _ @ * _ $ LDKL A10,TTB:TD STANDARD LENGTH _ " P LD A5,SCTOPT GET OPTION WORD _ 4 P ANK A5,/11 CHECK IF EMM AND MMU PAGING IN
0x3c8608…3c879c Dummy {f00=0x010e, f01=0x0190, f02=»B:AT RESERV SPACE FOR BIT MAP _ P RF BTT30 ` & PBTT22 LD A5,SCTOPT ` 8 P SRC A5,1 MMU PAGING? ` R P RF(NN) BTT25 NO ` p , P SUKL A10,TTB:MT 16+2 WORD EXTRA IF MMU ` 2 - SUKL A12,TTB:MT RESERV SPACE FOR EXTRA WORDS ` RF BTT30 ` PBTT25 EQ
0x3c879c…3c8930 Dummy {f00=0x010e, f01=0x0190, f02=»CB RESERV SPACE FOR EXTRA WORD ` PBTT30 EQU * a & * a : : P* ADD ONE WORD FOR LENGTH OF TASK SAVE01URATION TABLE a D * a ADKL A10,2 a P EJECT a * a < 7* COMPUTE SIZE OF TERMINAL DEVICE CLASS DEPENDENT PART a " P* OF TASK SAVE0
0x3c8930…3c8ac4 Dummy {f00=0x010e, f01=0x0190, f02=»FST TERMINAL DEVICE CLASS DEFINITION a $ CALL GETTDC GET NUMBER OF TDC:S b , LDR A7,A1 SAVE b T PBTT35 EQU * b l RF(Z) BTT40 b ( $ CALL GETCLN GET CLASS NUMBER (1-99) b & " ADR A1,A1 2*(BINARY CLASS NUMBER) b , P LD A8,SAVE18,A13 GET POINTER
0x3c8ac4…3c8c58 Dummy {f00=0x010e, f01=0x018e, f02=»TE FORMAT ERROR b ~ PBTT37 EQU * c " P ADR A8,A1 GET ENTRY IN TCLASS c , $ P LDR* A8,A8 GET POINTER TO CLASS c R $ P LDR* A8,A8 GET LENGTH OF CLASS c z " SUKL A8,2 EXCLUDE LENGTH WORD c ( $ ADR A10,A8 ADD TO TOTAL TTAB LENGTH c . ) ADR A6,A8 ADD TO TA
0x3c8c58…3c8dec Dummy {f00=0x010e, f01=0x0190, f02=» c PBTT40 EQU * d * d > :* COMPUTE SIZE OF SPECIAL DEVICE CLASS DEPENDENT PART OF d & P* TASK SAVE01URATION TABLE d h * d 6 1 CALL GETSDC GET NUMBER OF SPECIAL DEVICE CLASSES d P ADKL A9,2 FIRST SDC RECORD d LDR A7,A1 SAVE d
0x3c8dec…3c8f80 Dummy {f00=0x010e, f01=0x0190, f02=»R) d p , P LD A8,SAVE11,A13 GET POINTER TO SCLASS e P LDR* A2,A8 e : P SUK A2,2 e N P CWR A1,A2 e ` P RF(NG) BTT52 e r P LDKL A1,LMP4 e & P CALL ERROR INDICATE FORMAT ERROR e PBTT52 EQU * e " P ADR A8,A1 GET ENTRY IN SCLASS e $ P LDR*
0x3c8f80…3c9114 (4, 124) Dummy {f00=0x010f, f01=0x018e, f02=» TTAB LENGTH e x . ) ADR A6,A8 ADD TO TASK CONF. TABLE LENGTH f ADKL A9,SDC NEXT CLASS f F ( # SUK A7,1 DECREMENT NUMBER OF SDC:S f f RB BTT50 f PBTT55 EQU * f " P ADK A6,2 INCLUDE LENGTH WORD f 2 P LD A7,SAVE13,A13 GET CURRENT ENTRY IN TC:
0x3c9114…3c92a8 Dummy {f00=0x010f, f01=0x0190, f02=» f P* =4 g " P* MEMORY OVERFLOW CHECK =4 g P* =4 g < $ P LDR A1,A11 SAVE REGISTER A11 =4 g J " P LDR A5,A9 SAVE REGISTER A9 =4 g r $ P LDR A11,A12 GET TTAB ADDRESS =4 g ( P ADR A11,A10 COMPUTE END OF TTAB =4 g * P LD A9,SCTEFA GET END OF FRE
0x3c92a8…3c943c Dummy {f00=0x010f, f01=0x0190, f02=»R INDICATE MEMORY OVERFLOW =4 g $ PBTT62 LDR A11,A1 RESTORE A11 =4 h & P LDR A9,A5 RESTORE A9 =4 h N P EJECT =4 h n 8 P* STORE LENGTH OF TASK SAVE01URATION TABLE IN TTAB h * h ST A6,TTB:TD,A12 h * h : 6* STORE TASK LEVEL IN RIGHT
0x3c943c…3c95d0 Dummy {f00=0x010f, f01=0x0190, f02=» STORE TASK LEVEL IN LEFT BYTE OF PROGRAM STATUS WORD h * i > & P SLL A5,10 MOVE LEVEL TO LEFT BYTE i H P ORKL A5,/00C0 i r " P LD A2,SCTOPT GET OPTION WORD i P ANK A2,1 MMU OPTION? i P ORR A5,A2 SET BIT 15 IF MMU i $ ST A5,TTB:PW,A12 STORE
0x3c95d0…3c9764 Dummy {f00=0x010f, f01=0x0190, f02=»A12 STORE IN TTAB i ADK A5,1 INCREMENT TASK ID j 6 P ST A5,SAVE16,A13 SAVE TO NEXT TASK IN SAME CLASS j > P IFF MMUPAG+DSKPAG=0 =3 j x P* j * P* STORE SEGMENT TABLE ADDRESS IN TTAB j P* j 0 P LD A5,SAVE30,A13 GET SEGMENT TABLE ADDRESS j
0x3c9764…3c98f8 Dummy {f00=0x010f, f01=0x0190, f02=»NE) BTT65 NO j P* k ( P* STORE TASK CLASS TO MATCH IN TTAB k P* k J * P LD A5,SAVE17,A13 GET TCL START VALUE k T " P ST A5,TTB:PP,A12 SAVE IN TTAB k P ADK A5,1 INCREMENT TCL k P ST A5,SAVE17,A13 SAVE k PBTT65 EQU * k , ' STR A12,A7 SA
0x3c98f8…3c9a8c Dummy {f00=0x010f, f01=0x0190, f02=»0 GET TTAB LENGTH k 0 P ADS A5,SAVE10,A13 UPDATE START OF FREE AREA l 4 / ADR A12,A10 NEXT TTAB ENTRY IN THIS TASK CLASS l N 6 2 SUKL A8,1 DECREMENT NUMBER OF TASKS IN THIS CLASS l RB BTT60 l P EJECT l PBTT70 EQU * l * l * &* RESET P
0x3c9a8c…3c9c20 Dummy {f00=0x010f, f01=0x0190, f02=»'TT' TASK DEFINITION BLOCK? l P RF(NE) BTT95 m $ P LDKL A2,BTT20 m : P SUKL A2,REL m P P ADR A2,A13 m d P ABR A2 m x PBTT95 EQU * m P =4 m P =4 m P =4 m P =4 m P =4 m P =4 m P =4 m P =4 m
0x3c9c20…3c9db4 (4, 125) Dummy {f00=0x010f, f01=0x018e, f02=»************************************** m n J J* B:DWTS - BUILD DWT:S FOR SPECIAL DEVICES AND CONNECT TO TASK TABLES n . L J************************************************************************ n | * n * REFERENCED IN: MONCON n * n , (* ENTRY
0x3c9db4…3c9f48 Dummy {f00=0x010f, f01=0x0190, f02=» * o * EXIT: o * o * WORK REGISTERS: A1-A12 o ( * o J < 8* SUBROUTINES: GETTSK,GETTDC,GETSDC,GETCLN,NXTBLK,ERROR o T * o EJECT o PB:DWTS EQU * o * o & P* GET START OF SAVE01URATION FILE o * o 2 P LD A11,SA
0x3c9f48…3ca0dc Dummy {f00=0x010f, f01=0x0190, f02=»TION BLOCK o h * p $ LCR A2,A11 GET FIRST CHARACTER p ( # CCK A2,'TT' TASK DEFINITION BLOCK? p D RF(E) DWTS YES p p P LDKL A1,LMP4 FORMAT ERROR p CALL ERROR p PDWTS EQU * p * p * GET ADDRESS TO TC:TAB p * p , P LD
0x3ca0dc…3ca270 Dummy {f00=0x010f, f01=0x0190, f02=» TASK CLASS p r * q CALL GETTSK q PDWTS20 EQU * q 2 P ST A1,SAVE19,A13 SAVE q F * q d * &* GET CORRESPONDING TASK TABLE (TTAB) q n * q PDWTS25 EQU * q " ADK A7,2 NEXT ENTRY IN TC:TAB q " LDR* A10,A7 GET TTAB ADDRESS q 6 P A
0x3ca270…3ca404 Dummy {f00=0x010f, f01=0x0190, f02=»A11 START OF TASK DEFINITION BLOCK q , ' ADKL A9,TDBFST START OF TDC DEFINITION r * P EJECT r Z * r h 4 /* GET NUMBER OF TERMINAL DEVICES IN THIS CLASS r r * r CALL GETTDC r P LDR A6,A1 r PDWTS30 EQU * r P RF(Z) DWTS40 r P CAL
0x3ca404…3ca598 Dummy {f00=0x010f, f01=0x0190, f02=»,A8 GET POINTER TO CLASS r $ P LDR* A8,A8 GET LENGTH OF CLASS s " P SUKL A8,2 EXCLUDE LENGTH WORD s H * P ADR A10,A8 INCREMENT POINTER IN TTAB s n 0 + ADKL A9,TDBREC BYPASS NEXT TDC DEF. RECORD s ( P SUK A6,1 DECREMENT NUMBER OF TDC:S s P RB DWTS30 s
0x3ca598…3ca72c Dummy {f00=0x010f, f01=0x0190, f02=» s z LDR A1,A1 t PDWTS50 EQU * t P RF(Z) DWTS90 t . P ST A1,SAVE17,A13 SAVE t D * t b * &* GET SPECIAL DEVICE CLASS NUMBER OM t l * t CALL GETCLN t * t 8 3* GET CORRESPONDING SPECIAL DEVICE CLASS IN SCLASS t * t
0x3ca72c…3ca8c0 Dummy {f00=0x010f, f01=0x0190, f02=»DR A5,A6 SAVE t P LDR* A6,A6 GET LENGTH u " P SUK A6,2 EXCLUDE LENGTH WORD u 4 PDWTS60 EQU * u Z ADK A5,4 GET DEVICE u n ( # LDR* A1,A5 GET ADDRESS TO TYPE DWT u ( # LD A3,DWTLEN,A1 GENERATION OF DWT? u P RF(Z) DWTS70 NO u * u * C
0x3ca8c0…3caa54 (4, 126) Dummy {f00=0x010f, f01=0x0190, f02=»CT u P* v 4 P* RELOCATE MONITOR ECB ADDRESS IF MMU IN SYSTEM v P* v L " P LD A3,SCTOPT GET OPTION WORD v V P ANK A3,1 MMU IN SYSTEM? v | P RF(Z) DWTS65 NO! v ( P LDR A3,A1 GET PROTOTYPE DWT-ADDRESS v * P SUR A3,A2 COMPUTE RELOCATION CONSTANT
0x3caa54…3cabe8 Dummy {f00=0x010f, f01=0x018e, f02=»C,A2 STORE IT BACK v PDWTS65 EQU * w $ LDR A1,A2 DT-ADDRESS TO BE USED w . PDWTS70 EQU * w V * w j . ** STORE FILE-CODE AND DWT-ADDRESS IN TTAB w t * w " ST A1,2,A10 STORE DWT-ADDRESS w $ LD A1,-2,A5 GET INDEX/FILECODE w STR A1,A1
0x3cabe8…3cad7c Dummy {f00=0x010f, f01=0x0190, f02=» w h RB(P) DWTS60 NEXT DEVICE x P EJECT x * * x 8 4 /* CHECK IF MOORE SPECIAL DEVICES IN THIS CLASS x B * x z ADKL A9,SDC x P LD A1,SAVE17,A13 x SUK A1,1 x RB DWTS50 x PDWTS90 EQU * x * x 8 P* CHECK IF MOORE
0x3cad7c…3caf10 Dummy {f00=0x010f, f01=0x0190, f02=» IF MOORE TASK DEFINITION BLOCKS x * y ( CALL NXTBLK y 2 ( # CCK A2,'TT' TASK DEFINITION BLOCK? y F RB(E) DWTS10 YES y r P LD A2,SCTSFA y P SUK A2,2 y PDWTS95 ADK A2,2 y P CW A2,SCTEFA y P RF(NE) DWTS99 y P LDKL A1,LMP3 y
0x3caf10…3cb0a4 Dummy {f00=0x010f, f01=0x0190, f02=» y EJECT z 4 0************************************************ z 4 0* B:DWTT - BUILD TERMINAL DEVICE WORK TABLES * z N 4 0************************************************ z 4 0************************************************ z * z * REFER
0x3cb0a4…3cb238 Dummy {f00=0x010f, f01=0x0190, f02=»UBROUTINES: ERROR,GETTSK,GETTDC,GETCLN,GETLCN,DWTGEN,NXTBLK z * { D EJECT { N PB:DWTT EQU * { P* { p 2 P* CLEAR WORK AREA TO BE USED FOR ECHO DEVICE { z & P* AND TEMPORARY INTERRUPT TABLES { P* { " P LDR A1,P GET LOCATION COUNTER { *
0x3cb238…3cb3cc Dummy {f00=0x010f, f01=0x0190, f02=» BDWT05 YES! { P SUK A1,2 DECREMENT POINTER | P RB BDWT00 | 8 PBDWT05 EQU * | J 2 P LD A11,SAVE05,A13 GET FWT AREA SIZE IN WORDS | ^ 6 P CWK A11,896 LARGE ENOUGTH FOR TEMP. INT. TABLES? | P RF(L) BDWT08 NO! | ( P LD A1,SCTEFA SAVE END OF FREE A
0x3cb3cc…3cb560 Dummy {f00=0x010f, f01=0x0190, f02=»BDWT25 | PBDWT08 EQU * } P* } " F P* ALLOCATE TEMPORARY WORK AREA IN USED PART OF SYSLDM IF POSSIBLE } , P* } v 2 P LD A11,SAVE10,A13 GET END OF TEMP. INT. TABLE } 4 P SU A11,SCTSFA+2 COMPUTE SIZE OF AVALIABLE AREA } & P CWK A11,MINBUF IS IT BIG
0x3cb560…3cb6f4 (4, 127) Dummy {f00=0x010f, f01=0x0190, f02=» AREA } h P ST A11,SCTEFA SAVE ~ . P SUKL A11,896+896 START OF TEMP. WORK AREA ~ * P LDR A7,A11 SAVE ~ 2 P SUK A7,SCZBUF START OF TEMP BUFFER FOR SALCUZ ~ t P ST A7,SAVE04,A13 SAVE ~ 2 P SUK A7,ASZBUF START OF TEMP BUFFER FOR ASCU4Z ~ P ST A7,SAV
0x3cb6f4…3cb888 Dummy {f00=0x010f, f01=0x0190, f02=» ~ L * ( # LD A11,SCTEFA GET END OF FREE AREA ( $ LD A9,SCTSFA GET START OF FREE AREA > LDK A7,0 RESET WORD COUNTER j PBDWT10 EQU * CWR A11,A9 MEMORY OVERFLOW? RF(NE) BDWT15 NO * P LDKL A1,LMP3 INDICATE MEMORY OVERFLOW
0x3cb888…3cba1c Dummy {f00=0x010f, f01=0x0190, f02=»ER WORD x $ ADK A7,1 INCREMENT WORD COUNTER RB BDWT10 8 PBDWT20 EQU * J * ^ 6 2* INIT POINTERS TO THE TEMPORARY INTERRUPT TABLES h * P LDR A1,A11 PBDWT25 LD A7,SAVE10,A13 PBDWT30 EQU * , ( STR A11,A7 SAVE INT
0x3cba1c…3cbbb0 Dummy {f00=0x010f, f01=0x0190, f02=»LL POINTERS INTIATED? RB(NE) BDWT30 NO * P ST A1,SCTEFA UPDATE END OF FREE AREA 8 P EJECT f * t * INIT DWT POINTER ~ * P LD A11,SAVE01,A13 * % LD A12,SCTSFA GET START OF FREE AREA * B >* INIT TC:TAB ENT
0x3cbbb0…3cbd44 Dummy {f00=0x010f, f01=0x0190, f02=»E IN CURRENT USER TASK ENTRY z PBDWT40 EQU * $ * 8 . )* GET NUMBER OF TASKS IN THIS TASK CLASS B * t $ CALL GETTSK GET NUMBER OF TASKS ~ PBDWT50 EQU * ( P ST A1,SAVE19,A13 SAVE BINARY VALUE * @ ;* GET NUMBER OF TERMINA
0x3cbd44…3cbed8 Dummy {f00=0x010f, f01=0x0190, f02=»DR A1,A1 ANY TERMINAL DEVICES? RF(Z) BDW100 NO & 6 P ST A1,SAVE15,A13 SAVE NUMBER OF TERMINAL DEVICESS > ( P LD* A10,SAVE13,A13 GET TTAB ADDRESS x 6 1 ADKL A10,TTB:TD DISPLACEMENT TO TASK CONF. TABLE * ( #* GET TERMINAL DEVICE CLASS NUM
0x3cbed8…3cc06c Dummy {f00=0x010f, f01=0x0190, f02=»QU * " CALL GETCLN GET CLASS NUMBER ( P ST A1,SAVE14,A13 SAVE BINARY VALUE 2 * ^ @ <* GET LINE CONNECTION NUMBER FOR THIS TERMINAL DEVICE CLASS h * IN THIS TASK * , ' CALL GETLCN GET LINE CONNECTION NUMBER LDR A6,A1
0x3cc06c…3cc200 Dummy {f00=0x010f, f01=0x0190, f02=»A5,TDC+4,A9 STORE RIGHT ASCII DIGIT 2 - SRL A5,8 MOVE LEFT ASCII DIGIT TI RIGHT BYTE , * & SC A5,TDC+3,A9 STORE LEFT ASCII DIGIT b * : 5* FIND CORRESPONDING TERMINAL DEVICE CLASS IN TCLASS * 2 P LD A2,SAVE14,A13 GET BINARY VALUE OF
0x3cc200…3cc394 (4, 128) Dummy {f00=0x012e, f01=0x0190, f02=»IS IS AN ENTRY IN TCLASS -TO BE SUPPLIED P* 0 $ P LDR* A7,A7 GET POINTER TO CLASS : P EJECT b * p $ * GENERATE DWT:S FOR THIS CLASS z 2 -* A6 - LINE CONNECTION NUMBER (BINARY VALUE) , (* A7 - POINTER TO TERMINAL DEVICE CLASS
0x3cc394…3cc528 Dummy {f00=0x012e, f01=0x0190, f02=» OF DEVICE (INPUT OR OUTPUT) v * $ CALL DWTGEN . PBDWT90 EQU * B < P LD A1,SAVE15,A13 GET NUMBER OF TERMINAL DEVICE CLASSES V , ' SUK A1,1 ANY MOORE IN THIS TASK CLASS? RF(Z) BDW100 NO , P ST A1,SAVE15,A13 SAVE REMAINING NUMBER
0x3cc528…3cc6bc Dummy {f00=0x012e, f01=0x0190, f02=»Y IN TC:TAB n & ! ADK A1,2 INCREMENT ENTRY POINTER P ST A1,SAVE13,A13 SAVE > 8 P LD A1,SAVE19,A13 GET NUMBER OF TASKS IN THIS CLASS " SUK A1,1 ANY MOORE TASKS LEFT P RB(P) BDWT50 , (* CHECK IF MOORE TASK DEFINITION BLOCKS *
0x3cc6bc…3cc850 Dummy {f00=0x012e, f01=0x0190, f02=»MINAL DEVICE WORK TABLES GENERATED * * P LD A2,SCTSFA 4 P SUK A2,2 J PBDW105 ADK A2,2 P CW A2,SCTEFA t P RF(NE) BDW110 P LDKL A1,LMP3 P CALL ERROR PBDW110 CWR A2,A12 P RB(NE) BDW105 , P ST A12,SCTSFA
0x3cc850…3cc9e4 Dummy {f00=0x012e, f01=0x018e, f02=»LD COMMON DEVICE TABLE * , (**************************************** " * R * REFERENCED IN: MONCON * ~ * &* ENTRY: SCTSFA - START OF FREE AREA 4 P* SAVE01 - START OF SAVE01URATION DATA ( $* SCTEFA - END OF
0x3cc9e4…3ccb78 Dummy {f00=0x012e, f01=0x0190, f02=» < P* SUBROUTINES: NXTBLK,GETCTC,GETLCN,GETSDC,GETCLN,MOVE * D EJECT N PB:CDT EQU * 2 P LD A11,SAVE01,A13 START OF SAVE01URATION DATA p & ! LD A12,SCTSFA START OF FREE AREA P LDK A7,0 RESET LENGTH * * %* GET COMMON DE
0x3ccb78…3ccd0c Dummy {f00=0x012e, f01=0x0190, f02=»0 YES ( $ CCK A2,'CC' COMMON DEV. DEF. BLOCK? P RF(NE) BCDTEX NO : P EJECT T P* b : P* RESERVE AREA IN COMMON DEVICE TABLE FOR FILE-CODES l 8 P* AND DWT-ADDRESSES USED BY COMMON TERMINAL DEVICES P* 0 P LDR A9,A11 START OF COM
0x3ccd0c…3ccea0 Dummy {f00=0x012e, f01=0x0190, f02=»A1 SAVE " PB:CT10 RF(Z) B:CT30 NO MOORE! . P CALL GETCLN GET CLASS IDENT NUMBER (1-99) 6 , P ADR A1,A1 DISPLACEMENT TO CLASS POINTER h , P LD A5,SAVE18,A13 GET POINTER TO TCLASS $ P LDR* A2,A5 GET LENGTH OF TCLASS P SUK A2,2 EXCLUDE LENGTH
0x3ccea0…3cd034 (4, 129) Dummy {f00=0x012e, f01=0x0190, f02=»20 ADR A1,A5 SELECT ENTRY IN TCLASS $ P LDR* A1,A1 GET POINTER TO CLASS , $ P LDR* A1,A1 GET LENGTH OF CLASS T " P SUK A1,2 EXCLUDE LENGTH WORD | & P ADR A7,A1 INCREMENT CDTAB LENGTH . P ADKL A9,TDC+TLC NEXT RECORD IN CONF. FILE " P SUK A6,1
0x3cd034…3cd1c8 Dummy {f00=0x012e, f01=0x018e, f02=»E-CODES b 8 P* AND DWT-ADDRESSES USED BY COMMON SPECIAL DEVICES P* L CALL GETSDC V ADKL A9,SDCFST-CDBNC j LDR A6,A1 PBCDT10 EQU * RF(Z) BCDTEX CALL GETCLN ADR A1,A1 , P LD A5,SAVE11,A13 GET POINTER
0x3cd1c8…3cd35c Dummy {f00=0x012e, f01=0x0190, f02=» PBCDT15 EQU * P ADR A1,A5 SELECT ENTRY $ P LDR* A1,A1 GET POINTER TO CLASS 8 P LDR* A1,A1 GET LENGTH ` SUK A1,2 ~ ADKL A9,SDC ADR A7,A1 SUK A6,1 RB BCDT10 PBCDTEX EQU * P EJECT P* < P*
0x3cd35c…3cd4f0 Dummy {f00=0x012e, f01=0x0190, f02=»O RESERVE ENTRIES IN COMMON DEVICE TABLE FOR @ P* FILE-CODES AND DWT-ADDRESSES USED FOR DATA COMMUNICATION 4 P* x J P* FILE-CODES AND DWT-ADDRESSES ARE STORED IN THE LAST CLASS IN SCLASS P* & P LD A1,SCTDCT DATA COMMUNICATION? " P LD
0x3cd4f0…3cd684 Dummy {f00=0x012e, f01=0x0190, f02=» , P ORR A6,A1 COPY LAST SCLASS IF NOT ZERO P RF(Z) CDG:15 NO! 4 , P LD A6,SAVE11,A13 GET POINTER TO SCLASS N $ P LDR* A1,A6 GET LENGTH OF SCLASS ~ " P SUK A1,2 EXCLUDE LENGTH WORD $ P ADR A6,A1 LAST ENTRY IN SCLASS * P LDR* A6,A6 GET POIN
0x3cd684…3cd818 Dummy {f00=0x012e, f01=0x0190, f02=»CD:TAB t PCDG:15 EQU * ADK A7,2 " STR A7,A12 4 P ST A12,SCTCDT H ADR A12,A7 ^ EJECT r * 6 1* INIT POINTER TO START OF FREE AREA AND TO CDTAB * ( P LD A10,SCTCDT FIRST ENTRY IN SCTCDT $ P LCR A2,A11 CO
0x3cd818…3cd9ac Dummy {f00=0x012e, f01=0x0190, f02=»CDGEX PCDG:18 EQU * P* " > P* GENERATE DEVICE WORK TABLES FOR COMMON TERMINAL DEVICES , P* n * P LDR A9,A11 START OF COMMON DEF. BLOCK x 6 P ADKL A9,SDCFST NUMBER OF COMMON TERMINAL CLASSES & P CALL GETCTC GET NUMBER OF C.T.C. ,
0x3cd9ac…3cdb40 Dummy {f00=0x012e, f01=0x0190, f02=»DENT NUMBER x P ST A1,SAVE14,A13 SAVE , P CALL GETLCN GET LINE CONNECTION NUMBER 2 P LDR A6,A1 SAVE b , P LD A2,SAVE14,A13 GET CLASS IDENT NUMBER z & P ADR A2,A2 CONVERT TO DISPLACEMENT , P LD A7,SAVE18,A13 GET POINTER TO TCLASS & P ADR
0x3cdb40…3cdcd4 (4, 130) Dummy {f00=0x012f, f01=0x018e, f02=»,TDC+TLC NEXT RECORD IN CONF. FILE * P LD A1,SAVE15,A13 GET NUMBER OF C.T.C. * P SUK A1,1 DECREMENT COUNTER X P RB B:CT40 | PB:CT50 CALL ECHO ( P ADKL A10,2 NEXT FREE ENTRY IN CDTAB P EJECT * , '* GET NUMBER OF SPECIAL DEVIC
0x3cdcd4…3cde68 Dummy {f00=0x012f, f01=0x0190, f02=» * & #* GET SPECIAL DEVICE CLASS NUMBER * 8 CALL GETCLN B * V 0 +* GET CORRESPONDING DEVICE CLASS IN SCLASS ` * ADR A1,A1 T , P LD A6,SAVE11,A13 GET POINTER TO SCLASS P ADR A6,A1 SELECT CLASS & P LDR
0x3cde68…3cdffc Dummy {f00=0x012f, f01=0x0190, f02=»LENGTH WORD ~ PCDG:30 EQU * ADK A5,4 NEXT DEVICE ( LDR* A1,A5 GET DWT-ADDRESS F ( # LD A3,DWTLEN,A1 GENERATION OF DWT? j RF(Z) CDG:40 NO * * COPY DWT * LDR A2,A12 TO-ADDRESS , ' ADR A12,A3 UPDATE P
0x3cdffc…3ce190 Dummy {f00=0x012f, f01=0x0190, f02=»A3,SCTOPT GET OPTION WORD P ANK A3,1 MMU IN SYSTEM? " P RF(Z) CDG:35 NO! B ( P LDR A3,A1 GET PROTOTYPE DWT-ADDRESS * P SUR A3,A2 COMPUTE RELOCATION CONSTANT , P LD A4,DWTMEC,A2 GET MONITOR ECB-ADDRESS P ANKL A4,/FFFE MAKE IT EVEN!
0x3ce190…3ce324 Dummy {f00=0x012f, f01=0x0190, f02=» * * . ** STORE FILE-CODE AND DWT-ADDRESS IN TTAB * F " ST A1,2,A10 STORE DWT-ADDRESS P LD A1,-2,A5 GET FILE CODE v STR A1,A10 STORE IN TTAB $ ADKL A10,4 NEXT ENTRY IN CD:TAB & " SUK A6,4 DECREMENT DEVICE COUNTER
0x3ce324…3ce4b8 Dummy {f00=0x012f, f01=0x0190, f02=» P SUKL A8,1 RB CDG:20 PCDGEX EQU * ( " P RF(N) CDG:EX CD:TAB COMPLETE! < " P LD A1,SCTDMT DATA MANAGEMENT b $ P LD A5,SCTDCT DATA COMMUNICATION P ORR A1,A5 DM OR DC? " P LD A5,SCTOPT GET OPTION WORD $ P ANK A5,/E DISC PAGING
0x3ce4b8…3ce64c Dummy {f00=0x012f, f01=0x0190, f02=» $ P LDR* A1,A5 GET LENGTH OF SCLASS " P SUK A1,2 EXCLUDE LENGTH WORD , P ADR A5,A1 GET LAST ENTRY R * P LDR* A5,A5 GET POINTER TO LAST CLASS t ( P LDR* A6,A5 GET LENGTH OF LAST CLASS " P SUK A6,2 EXCLUDE LENGTH WORD P RB CDG:30 PCD
0x3ce64c…3ce7e0 Dummy {f00=0x012f, f01=0x0190, f02=»MP3 ( P CALL ERROR INDICATE MEMORY OVERFLOW PCDG:60 CWR A2,A12 8 P RB(NE) CDG:50 R , ( ST A12,SCTSFA UPDATE START OF FREE AREA h RTN A14 RETURN EJECT J F**********************************************************************
0x3ce7e0…3ce974 (4, 131) Dummy {f00=0x012f, f01=0x0190, f02=»************** X * 4 /* ENTRY: A1 - LINE CONNECTION NUMBER (BINARY) > :* A7 - POINTER TO TERMINAL DEVICE CLASS IN TCLASS X * &* A6 - LINE CONNECTION NUMBER * * EXIT: * * WORK REGISTERS: A1-A8
0x3ce974…3ceb08 Dummy {f00=0x012f, f01=0x0190, f02=»R d ( $ LDR* A8,A7 GET LENGTH OF THIS CLASS $ SUKL A8,2 EXCLUSIVE LENGTH WORD 6 ADK A7,2 FIRST FILECODE ^ PDWT05 EQU * ~ . ) LD A1,2,A7 GET ADDRESS OF PROTOTYPE DWT 0 P LD A6,SAVE08,A13 GET LINE CONNECTION NUMBER P* P* CHE
0x3ceb08…3cec9c Dummy {f00=0x012f, f01=0x0190, f02=»0 NO! 2 P CALL B:ITSZ BUILD INTERRUPT TABLE FOR SALCUZ P RF DWT31 D ( PDWT10 CCK A4,'AA' ASCU4Z CONNECTION? V P RF(NE) DWT11 NO! 2 P CALL B:ITAZ BUILD INTERRUPT TABLE FOR AUSCU4Z P RF DWT31 PDWT11 EQU * * 4 /* DER
0x3cec9c…3cee30 Dummy {f00=0x012f, f01=0x0190, f02=»MBER AND PROTOTYPE DWT v * CALL I:CHP ( * < @ P* GET CORRECT INTERRUPT TABLE USING SAVE05 (SELECTS TABLE) F " P* AND SAVE06 (SELECTS ENTRY) * 0 P* SAVE05 HOLDS 2*(NUMBER STORED IN BIS 4-6) 4 P* SAVE06 HOLDS THE NUMBER
0x3cee30…3cefc4 Dummy {f00=0x012f, f01=0x0190, f02=»,SAVE10,A13 SELECT INTERRUPT TABLE , P LDR* A4,A4 GET INTERRUPT TABLE ADDRESS * $ P LD A3,SAVE06,A13 LINE PARAMETER Z PDWT15 EQU * " RF(Z) DWT17 LINE ENTRY FOUND ADK A4,28 NEXT LINE & " SUK A3,1 DECREMENT LINE PARAMETER
0x3cefc4…3cf158 Dummy {f00=0x012f, f01=0x0190, f02=»ADDRESS: 0 P* USE DEVICE ADDRESSES 1-7 FOR INPUT DEVICE & P* OR DEVICE WITHOUT DATA REQUEST D 4 /* USE DEVICE ADDRESSES 8-14 FOR OUTPUT DEVICES n * 0 + LDR* A6,A1 GET FIRST WORD OF PROTOTYPE DWT P LDR A2,A6 SAVE : 5 ANKL A6,/71
0x3cf158…3cf2ec Dummy {f00=0x012f, f01=0x0190, f02=»UT DEVICE - CHECK IF DEVICE WITH DATA REQUEST P* 6 ( P ANKL A2,/8000 DATA REQUEST BIT SET? @ P RF(Z) DWT20 NO! l P SRL A6,2 P ADK A6,12 RF DWT30 PDWT20 EQU * P SRL A6,2 P SUK A6,2 PDWT30 EQU * A
0x3cf2ec…3cf480 Dummy {f00=0x012f, f01=0x0190, f02=»A6 DWT ALREADY GENERATED? P RF(Z) DWT32 NO! " P CALL DWT50 : P LDKL A1,DWT70 N P AD A1,M:REL,A13 d P ABR A1 | P* P* CHECK IF DWT IN DRIVER P* PDWT32 LDKL A2,SYSLOD P TNM A1,A2 P RF(NN) DWT34 P C
0x3cf480…3cf614 (4, 132) Dummy {f00=0x012f, f01=0x0190, f02=»F DWT70 PDWT38 EQU * STR A12,A6 SAVE DWT-ADDRESS $ * H * COPY DEVICE TYPE DWT R * r LDR A2,A12 TO-ADDRESS | P LD A3,DWTOR,A1 LENGTH ADR A12,A3 NEXT FREE ENTRY CALL MOVE P EJECT * $ *
0x3cf614…3cf7a8 Dummy {f00=0x012f, f01=0x0190, f02=»* CHECK IF INPUT DEVICE * * & LDR* A3,A1 GET FIRST WORD OF TYPE DWT * ANKL A3,/0100 INPUT DEVICE? X P RF(Z) DWT45 NO | * * INPUT DEVICE: * CHECK IF KEYBOARD * LD A3,DWTADR,A1 LD A3,DEVIND,A3
0x3cf7a8…3cf93c Dummy {f00=0x012f, f01=0x0190, f02=»TORE ADDRESS OF KEYBOARD RUNTIME-DWT : P* AND ECHO DEVICE PROTOTYPE-DWT IN ECHO DEVICE TABLE , P* j * t P LD A5,DWTECH,A1 ECHO? ~ RF(Z) DWT40 NO P AD A5,M:REL,A13 4 P LD* A3,SCTSFA+2 GET LENGTH OF ECHO DEVICE TABLE ( P RF(
0x3cf93c…3cfad0 Dummy {f00=0x012f, f01=0x0190, f02=»,SCTSFA+2 NEXT FREE ENTRY 8 P STR A2,A4 SAVE RUNTIME DWT-ADDRESS FOR INPUT DEVICE " < P ST A5,2,A4 SAVE PROTOTYPE DWT ADDRESS FOR OUTPUT DEVICE ^ P ADK A3,4 UPDATE LENGTH $ P ST* A3,SCTSFA+2 SAVE NEW LENGTH P EJECT PDWT40 EQU *
0x3cfad0…3cfc64 Dummy {f00=0x012f, f01=0x0190, f02=»TO START OF BUFFER t $ ST A5,DWTSQ-4,A2 STORE POINTER $ ST A5,DWTSQ-2,A2 STORE POINTER B * j * IF DOUBLE KEYBOARD: t D @* ADD 1 TO DWT-ADDRESS AND SAVE IT IN TEMPORARY INTERRUPT TABLE 6 2* IN ENTRY CORRESPONDING TO SECOND DEVICE ADD
0x3cfc64…3cfdf8 Dummy {f00=0x012f, f01=0x0190, f02=»YBOARD v $ LDR A5,A2 GET REAL DWT-ADDRESS ADK A5,1 ADD ONE 6 0 , SUK A3,1 DISPLACEMENT=0 IF DEVICE ADDRESS=1 P ADR A3,A3 BYTE DISPLACEMENT . P AD A3,SAVE07,A13 ENTRY IN INTERRUPT TABLE $ STR A5,A3 STORE DEVICE-ADDRESS RF DW
0x3cfdf8…3cff8c Dummy {f00=0x012f, f01=0x0190, f02=»S OF PROTOTYPE DWT IS ODD, 0 P* THE DEVICE IS TO BE USED FOR ECHOING ON. " 6 P* THE ADDRESSES OF THE PROTOTYPE- AND RUNTIME-DWT V 0 P* IS THEN STORED IN THE ECHO DEVICE TABLE. P* 0 P LD A5,DWTTAB,A1 GET DEVICE TYPE CHARACTERS , P RF(NN
0x3cff8c…3d0120 Dummy {f00=0x012f, f01=0x0190, f02=» P ADK A3,2 INCLUDE LENGTH PDWT55 LDR A4,A3 SAVE LENGTH $ $ P AD A4,SCTSFA+2 NEXT FREE ENTRY H . P STR A1,A4 STORE ADDRESS OF PROTOTYPE DWT p , P ST A2,2,A4 STORE ADDRESS OF RUNTIME DWT P ADK A3,4 UPDATE LENGTH & P ST* A3,SCTSFA+2 STORE
0x3d0120…3d02b4 (4, 133) Dummy {f00=0x0130, f01=0x0190, f02=»D t P ANK A5,1 MMU PAGING? RF(Z) DWT70 ( P EJECT < , P LD A5,DWTMEC,A2 GET MONITOR ECB ADDRESS J ( P LDR A4,A1 GET PROTOTYPE DWT-ADDRESS z * P SUR A4,A2 COMPUTE RELOCATION CONSTANT , P SUR A5,A4 RELOCATE MONITOR ECB ADDRESS $ P ANK
0x3d02b4…3d0448 Dummy {f00=0x0130, f01=0x0190, f02=»TED P* & P LD A5,DWTADR,A2 GET ADDRESS BLOCK 2 P LD A4,BUFLEN,A5 GET LENGTH OF INTERNAL BUFFER @ $ P RF(Z) DWT70 ALLOCATE NO BUFFER! v * L P* ALLOCATE INTERNAL BUFFER AND STORE ADDRESS IN SECOND WORD OF INTERNAL * , P LD A5
0x3d0448…3d05dc Dummy {f00=0x0130, f01=0x0190, f02=»EN ADDRESS r P ST A3,2,A5 SAVE P LDR A3,A4 GET LENGTH , ( P ADK A3,3 ADD BO FERMS CONSTANT+1 =1 J . P ANKL A3,/FFFE MAKE SURE OF EVEN LENGTH =1 v P EJECT * 4 0* CHECK IF INTERNAL BUFFER SIZE IS GREATER THAN 6 1* THE SIZE OF B
0x3d05dc…3d0770 Dummy {f00=0x0130, f01=0x0190, f02=»Z. j * CW A3,BUFSIZ,A13 RF(NG) DWT65 0 ST A3,BUFSIZ,A13 F P ST A12,SYSBUF,A13 ` PDWT65 EQU * z ADR A12,A3 NEXT FREE ENTRY P =1 P =1 P EJECT PDWT70 EQU * P* . P* STORE FILE-
0x3d0770…3d0904 Dummy {f00=0x0130, f01=0x0190, f02=»ORE IN TASK CONF. TABLE " P ADKL A10,2 NEXT ENTRY IN TTAB " P STR A2,A10 STORE DWT-ADDRESS F P* l , '* CHECK IF MOORE DEVICES IN THIS CLASS v * SUKL A8,4 RF(Z) DWTEX ADK A7,4 NEXT DEVICE P LDKL A1,DWT05
0x3d0904…3d0a98 Dummy {f00=0x0130, f01=0x0190, f02=»ERY COINCIDENCE n 4 P* BETWEEN THE FIRST POINTER IN ONE POINTER-SET 4 P* AND SECOND POINTER IN THE OTHER POINTER-SET: P 0 P* STORE SECOND POINTER OF FIRST POINTER-SET 2 P* IN RUNTIME-DWT POINTED AT BY FIRST POINTER 2 P* OF SECOND POINTER-S
0x3d0a98…3d0c2c Dummy {f00=0x0130, f01=0x0190, f02=»ICE TABLE IS CLEARED. P* 8 PECHO LD* A3,SCTSFA+2 GET LENGTH OF ECHO DEVICE TABLE ( " P RF(Z) DWT160 NO ECHO DEVICES! d 4 P AD A3,SCTSFA+2 COMPUTE END OF ECHO DEVICE TABLE 2 P LD A1,SCTSFA+2 GET START OF ECHO DEVICE TABLE P ADK A1,2 BYPASS
0x3d0c2c…3d0dc0 Dummy {f00=0x0130, f01=0x0190, f02=» POINTER IN FIRST SET t > PDWT110 CWR* A4,A2 COMPARE WITH FIRST POINTER IN SECOND SET P RF(E) DWT130 COINCIDENCE! ` P ADK A2,4 NEXT POINTER-SET ( P CWR A2,A3 END OF ECHO DEVICE TABLE $ P RB(NE) DWT110 NO:CHECK NEXT SET P RF DWT140 :
0x3d0dc0…3d0f54 (4, 134) Dummy {f00=0x0130, f01=0x0190, f02=» STORE DEVICE-ADDRESS TO ECHO-DEVICE P CMR A1 CLEAR FIRST POINTER , " P CM 2,A1 CLEAR SECOND POINTER P $ PDWT140 ADK A1,4 NEXT POINTER-SET v ( P CWR A1,A3 END OF ECHO DEVICE TABLE P RB(NE) DWT90 NO! $ PDWT150 CM* SCTSFA+2 CLEAR LENGTH
0x3d0f54…3d10e8 Dummy {f00=0x0130, f01=0x018e, f02=» * %************************************* * 2 * REFERENCED IN: DWTGEN < * , (* ENTRY: A1 - POINTER TO PROTOTYPE DWT f ( #* A2 - POINTER TO REAL DWT * &* A6 - LINE CONNECTION NUMBER * P* A9 - POINTER
0x3d10e8…3d127c Dummy {f00=0x0130, f01=0x0190, f02=» R 0 P* SAVE06 - SELECTS LINE ENTRY (1-8) * < * WORK REGISTERS: A3,A4,A5 F * j * SUBROUTINES: t * EJECT PI:CHP EQU * 0 P LD A6,SAVE08,A13 GET LINE CONNECTION NUMBER * P CWK A6,0032 CONNECTION NUMB
0x3d127c…3d1410 Dummy {f00=0x0130, f01=0x0190, f02=»CONNECTION NUMBER z 0 + LDR* A5,A1 GET FIRST WOED OF PROTOTYPE DWT ( # ANKL A5,/F1F0 CLEAR BITS TO MODIFY N 2 . LDR A3,A6 GET MODIFIED LINE CONNECTION NUMBER z & " LC A4,TDC+5,A9 CHECK TYPE OF LINE CCK A4,'LL' LOCAL LINE? RF(NE) I:CHPR
0x3d1410…3d15a4 Dummy {f00=0x0130, f01=0x0190, f02=» ORR A5,A3 MERGE WITH OLD CONTENTS * % LDR A3,A6 GET LINE CONNECTION NUMBER * ANK A3,/18 GET BITS 11-12 X SRL A3,2 MOVE TO BITS 13-14 z P ST A3,SAVE05,A13 SAVE SRL A3,1 MOVE TO BITS 14-15 & " ORR A5,A3 MERGE WITH OLD CONTENTS
0x3d15a4…3d1738 Dummy {f00=0x0130, f01=0x0190, f02=»I:CH10 0 , ANKL A5,/F1FF CLEAR BITS 4-6 (= STORE ZERO) * P ST A3,SAVE06,A13 SAVE ENTRY SELECTOR B RF I:CH50 p PI:CH10 EQU * ANK A3,2 GET BIT 14 RF(NZ) I:CH20 & " ORKL A5,/0800 STORE 4 IN BITS 4-6 LDK A3,4 ENTRY SELECT
0x3d1738…3d18cc Dummy {f00=0x0130, f01=0x0190, f02=» | RF(NZ) I:CH30 & " ORKL A5,/0200 STORE 1 IN BITS 4-6 LDK A3,1 ENTRY SELECTOR H P ST A3,SAVE06,A13 SAVE h RF I:CH50 PI:CH30 EQU * & " ORKL A5,/0A00 STORE 5 IN BITS 4-6 LDK A3,5 ENTRY SELECTOR P ST A3,SAVE06,A13
0x3d18cc…3d1a60 Dummy {f00=0x0130, f01=0x018e, f02=»UK A3,2 DECREMENT LINE CONNECTION NUMBER RF(N) I:CH70 0 & " ADK A4,1 INCREMENT TABLE SELECTOR F RB I:CH60 p PI:CH70 EQU * ( $ ORR A5,A4 STORE COMPUTED BITS 12-15 SUK A4,4 ANK A4,6 ADK A4,8 P ST A4,SAVE05,A1
0x3d1a60…3d1bf4 (4, 135) Dummy {f00=0x0130, f01=0x0190, f02=» P EJECT : P****************************************************** : P* * T : P* B:ITAS - BUILD INTERRUPT TABLES FO ASCU4Z/SALCUZ * : P* ================================================ *
0x3d1bf4…3d1d88 Dummy {f00=0x0130, f01=0x0190, f02=» * : P* REFERENCED IN: DWTGEN * 8 : P* * v : P* ENTRY: A1 - POINTER TO PROTOTYPE-DWT * : P* A6 - LINE C
0x3d1d88…3d1f1c Dummy {f00=0x0130, f01=0x0190, f02=» * n : P* EXIT: A5 - CHANNEL PARAMETER * : P* A6 - LINE ENTRY * Z : P* * : P* WORK REGISTERS: A2,A3,A4,A5,A6
0x3d1f1c…3d20b0 Dummy {f00=0x0130, f01=0x0190, f02=»* * : P****************************************************** > P EJECT | PB:ITAZ EQU * * P CWK A6,0016 CONNECTION NUMBER <= 16? P RB(G) NUMERR NO! * P CWK A6,0001 CONNECTION NUMBER >=
0x3d20b0…3d2244 Dummy {f00=0x0130, f01=0x0190, f02=»BITZ10 YES * P ADK A2,ASZLEN FIXED NUMBER OF ENTRIES P ST A2,INTAS SAVE @ , PBITZ10 LD A5,SAVE03,A13 FIRST LINE ENTRY Z P RF BITZ30 PB:ITSZ EQU * ( P CWK A6,0004 CONNECTION NUMBER <= 4? P RB(G) NUMERR NO! * P CWK A6,0001 CONNE
0x3d2244…3d23d8 Dummy {f00=0x0130, f01=0x0190, f02=» h P RF(NZ) BITZ20 YES! * P ADK A2,SCZLEN FIXED NUMBER OF ENTRIES $ P ST A2,INTSL SAVE R . PBITZ20 LD A5,SAVE04,A13 FIRST LINE ENTRY? l " PBITZ30 ADR A2,A5 END OF TABLE P SUK A6,1 & P SLL A6,1 CONVERT TO DISPLACEMENT P ADR A6,
0x3d23d8…3d256c Dummy {f00=0x0130, f01=0x0190, f02=»UR A3,A6 COMPUTE RELATIVE DISPLACEMENT " P STR A3,A6 STORE IN LINE ENTRY . P LDK A3,6 TABLE INCREMENT T P ADR* A3,A4 UPDATE LENGTH v P STR A3,A4 STORE NEW LENGTH P LDR* A3,A6 GET DISPLACEMENT 2 PBITZ40 ADR A6,A3 GET START OF LINE CONF.
0x3d256c…3d2700 Dummy {f00=0x0130, f01=0x0190, f02=»OR 3 ALLOWED n P SUK A3,2 MAKE DISPLACEMENT 0 P ADR A6,A3 SELECT ENTRY IN LINE CONF. TABLE 8 0 P LD A4,SAVE08,A13 GET LINE CONNECTION NUMBER l P SUK A4,1 LINE NUMBER 0-15 P LDR A3,A4 SAVE LINE NUMBER P SRL A3,3 SELECT ASCU4Z CARD (
0x3d2700…3d2894 (4, 136) Dummy {f00=0x0130, f01=0x0190, f02=»ION x " PBITZ50 ADK A3,/C CHANNEL INDEX $ P ANK A3,/F ISOLATE CHANNEL INDEX 2 " P ANK A4,7 ISOLATE LINE NUMBER Z P SRC A4,7 MOVE TO BITS 4-6 , P ORR A4,A3 MERGE LINE NO AND CH. PARAM. 0 P LDR* A5,A1 GET PROTOTYPE CHANNEL PARAMETER > P A
0x3d2894…3d2a28 Dummy {f00=0x0130, f01=0x0190, f02=» 2 .********************************************** 2 .* B:ITAB - BUILD REAL-TIME INTERRUPT TABLE * : 2 .********************************************** p * * REFERENCED IN: DWTGEN * * &* ENTRY: SCTSFA - START OF FREE AREA
0x3d2a28…3d2bbc Dummy {f00=0x0130, f01=0x0190, f02=» A2 - " " * A3 - " > P* A4 - LENGTH OF LINE SAVE01URATION TABLE B * %* A5 - DEVICE COUNTER ( #* A6 - LINE COUNTER 2 P* A7 - DISPLACEMENT IN SAV
0x3d2bbc…3d2d50 Dummy {f00=0x0130, f01=0x0190, f02=»L INT. TABLE X > 9* A12- LINE ENTRY IN REAL INTERRUPT TABLE * V * SUBROUTINES ` * v P EJECT PB:ITAB EQU * 2 - LD A12,SCTSFA INIT POINTER TO FIRST R. I. T. P LDR A11,A12 $ LDK A7,0 RESET POINTER IN I
0x3d2d50…3d2ee4 Dummy {f00=0x0130, f01=0x0190, f02=» LINE CONF. TABLE t * 0 +* GET ADDRESS TO TEMPORARY INTERRUPT TABLE $ * X P LD A10,SAVE10,A13 b ADR A10,A7 | LDR* A10,A10 & P LDK A6,0 RESET LINE ENTRY POINTER PBIT20 EQU * * 8 P* SAVE POINTER TO START O
0x3d2ee4…3d3078 Dummy {f00=0x0130, f01=0x0190, f02=» SAVE START OF LINE SAVE01URATION TABLE ~ . ) LDK A4,0 RESET LENGTH OF LINE CONF.TABLE 0 * b 0 -* INIT POINTER IN TEMPORARY INTERRUPT TABLE l * &* TO POINT AT LAST INPUT DEVICE ENTRY * ADKL A10,12 LDK A5,7 ADKL A11,
0x3d3078…3d320c Dummy {f00=0x0130, f01=0x0190, f02=»* PBIT30 EQU * LDR* A1,A10 OCCUPIED ENTRY? RF(NZ) BIT40 YES B PBIT35 EQU * , ( SUK A5,1 NO; CHECK IF LAST DEVICE ENTRY p RF(Z) BIT50 YES * < 7* NO ENTRIES IN THE INPUT DEVICE PART OF THE TEMPORARY 0 +* INT
0x3d320c…3d33a0 Dummy {f00=0x0130, f01=0x0190, f02=» INT. TABLE r RB BIT30 * & F B* AN OCCUPIED ENTRY IN THE TEMPORARY INTERRUPT TABLE HAS OCURRED. 0 D @* COPY THE CONTENTS OF THE INPUT DEVICE PART (INCLUDING ZEROES) z H C* OF THE TEMPORARY INTERRUPT TABLE UP TO AND INCLUDING THIS ENTRY.
0x3d33a0…3d3534 (4, 137) Dummy {f00=0x0131, f01=0x0190, f02=» ENTRY? | RF(Z) BIT50 YES $ SUKL A10,2 NEXT ENTRY IN T.I.T. ( $ SUKL A11,2 NEXT ENTRY IN R.I.T. P * & LDR* A1,A10 GET CONTENT OF NEXT ENTRY x RB BIT40 EJECT PBIT50 EQU * * B >* ALL ENTRIES OF THE INPUT DEVICE P
0x3d3534…3d36c8 Dummy {f00=0x0131, f01=0x0190, f02=» THE TEMPORARY INTERRUPT TABLE. * -INIT DEVICE COUNTER. ( * H ADKL A10,14 R LDK A5,7 f * x L G* SCAN ENTRIES IN OUTPUT DEVICE PART OF THE TEMPORARY INTERRUPT TABLE. $ * -IF AN OCCUPIED ENTRY OCCUR: L P* FIND FIRST
0x3d36c8…3d385c Dummy {f00=0x0131, f01=0x0190, f02=» J 6 P* -IF THIS EXTENDS THE LINE SAVE01URATION TABLE: * INCREMENT LENGTH B * ^ PBIT70 EQU * h LDR* A1,A10 OCCUPIED ENTRY? | RF(NZ) BIT90 YES SUK A5,1 LAST ENTRY RF(Z) BIT120 YES PBIT80 EQU * ADK
0x3d385c…3d39f0 Dummy {f00=0x0131, f01=0x0190, f02=»ERRUPT TAB R L P* HAS OCURRED. FIND FIRST UNOCCUPIED ENTRY IN LINE SAVE01URATION TABLE * OF REAL INTERRUPT TABLE. b * P LDR* A2,A11 RF(Z) BIT100 P ADKL A11,2 RB BIT90 EJECT PBIT100 EQU * *
0x3d39f0…3d3b84 Dummy {f00=0x0131, f01=0x0190, f02=»GTH IF TABLE WAS EXTENDED. * " STR A1,A11 STORE CONTENT , * P LD A1,SAVE23,A13 GET START OF L.C.T. N " LDR A3,A11 GET CURRENT ENTRY | P SUR A3,A1 COMPUTE LENGTH CWR A3,A4 L.C.T. EXTENDED? RF(NG) BIT110 LDR A4,A3
0x3d3b84…3d3d18 Dummy {f00=0x0131, f01=0x0190, f02=»NTRIES OF THIS LINE IN TEMPORARY INTERRUPT TABLE HAS BEEN SCANNE D ?* -IF ANY ENTRY WAS OCCUPIED (LENGTH>0): STORE POINTER TO LINE H L P* SAVE01URATION TABLE IN THIS LINE ENTRY AND STORE LENGTH IN FIRST WOR * " LDR A4,A4 ANY ENTRY OCCUPIED?
0x3d3d18…3d3eac Dummy {f00=0x0131, f01=0x0190, f02=»A12 STORE IN LINE ENTRY 4 / STR A4,A1 STORE LENGTH IN FIRST WORD OF L.C.T. LDR A11,A1 START OF L.C.T. X . ) ADR A11,A4 LAST OCCUPIED ENTRY IN L.C.T. | ADKL A11,2 NEXT FREE ENTRY RF BIT140 EJECT PBIT130 EQU * *
0x3d3eac…3d4040 Dummy {f00=0x0131, f01=0x0190, f02=» CONTAIN ZERO * SUKL A11,2 SKIP LENGTH WORD PBIT140 EQU * D $ ADKL A10,2 NEXT ENTRY IN T.I.T. X $ ADK A6,1 INCREMENT LINE COUNTER CWK A6,8 ALL LINES SCANNED? RF(E) BIT150 YES ADKL A12,2 NEXT LINE ENTRY
0x3d4040…3d41d4 (4, 138) Dummy {f00=0x0131, f01=0x0190, f02=»ANY LINE t P* * P LD A1,SAVE24,A13 ANY DEVICE PRESENT? P RF(Z) BIT155 NO! H 2 P LD A1,SAVE21,A13 GET INTERRUPT TABLE ADDRESS b P ST A1,INTLT1,A7 SAVE P RF BIT158 PBIT155 EQU * . P LD A11,SAVE21,A13 GET START OF FREE AREA
0x3d41d4…3d4368 Dummy {f00=0x0131, f01=0x0190, f02=»LT1-INTRT4) HAS BEEN GENERATED j * & ADK A7,2 NEXT ENTRY IN ITAB 0 CWK A7,16 LAST ENTRY? T RF(E) BIT160 YES r $ LDR A12,A11 GET NEXT FREE ENTRY RB BIT10 PBIT160 EQU * * D @* ALL ENTRIES IN THE TEMPORARY INTE
0x3d4368…3d44fc Dummy {f00=0x0131, f01=0x0190, f02=»BLES HAS BEEN INSERTED IN MOXTAB. l * * P* 4 2 P* MOVE INTERRUPT TABLE FOR SALCUZ AND ASCU4Z > < P* TO CONCATENATE INTERRUPT TABLES FOR CHLT/CHRT DEVICES t P* ( P LD A3,INTAS ANY ASCU4Z CONNECTION? P RF(Z) BIT180 NO! P LDR
0x3d44fc…3d4690 Dummy {f00=0x0131, f01=0x0190, f02=» STORE ADDRESS TO INTERRUPT TABLE $ P ADK A2,ASZLEN LAST LINE ENTRY+2 * , PBIT170 SUK A2,2 DECREMENT ENTRY POINTER R , P LDR* A1,A2 ANY CONNECTION ON THIS LINE? P RF(Z) BIT175 NO! P ADRS A2,A2 RELOCATE POINTER . PBIT175 CW A2,INTAS ALL P
0x3d4690…3d4824 Dummy {f00=0x0131, f01=0x018e, f02=»A11 GET TO-ADDRESS & P ADR A11,A3 END OF INTERRUPT TABLE & P LD A1,SAVE04,A13 GET FROM-ADDRESS D $ P CALL MOVE MOVE INTERRUPT TABLE n 2 P ST A2,INTSL STORE ADDRESS TO INTERRUPT TABLE $ P ADK A2,SCZLEN LAST LINE ENTRY+2 , PBIT190 SUK A2,2 DECR
0x3d4824…3d49b8 Dummy {f00=0x0131, f01=0x0190, f02=» . PBIT195 CW A2,INTSL ALL POINTERS RELOCATED? P RB(NE) BIT190 NO! 6 PBIT200 EQU * P P LD A2,SCTSFA d P SUK A2,2 z PBIT210 ADK A2,2 * P CW A2,SCTEFA CHECK IF MEMORY OVERFLOW P RF(NE) BIT220 P LDKL A1,LMP3 ( P CALL ERRO
0x3d49b8…3d4b4c Dummy {f00=0x0131, f01=0x0190, f02=»A11,SCTSFA UPDATE START OF FREE AREA RTN A14 RETURN , EJECT D T P*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*= R 6 1* GENERAL SUBROUTINES * T P*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=
0x3d4b4c…3d4ce0 Dummy {f00=0x0131, f01=0x018e, f02=»* GETTSK - GET NUMBER OF TASKS IN A TASK-CLASS * P* < 6 P* GETCTC - GET NUMBER OF COMMON TERMINAL CLASSES F P* 8 4**************************************************** * " P* REFERENCED IN: B:TCT,B:CDT * > :* ENTRY
0x3d4ce0…3d4e74 (4, 139) Dummy {f00=0x0131, f01=0x0190, f02=» L * * WORK REGISTERS: A5 * 0 * SUBROUTINES: CONVRT : * Z PGETTSK EQU * d PGETCTC EQU * x P LC A5,TDBNT,A11 SLL A5,8 P LC A5,TDBNT+1,A11 CALL CONVRT RTN A14 EJECT 8 4******
0x3d4e74…3d5008 Dummy {f00=0x0131, f01=0x0190, f02=»****************************** z * & * REFERENCED IN: B:TT 0 * P > :* ENTRY: A11 - POINTER TO START OF TASK DEFINITION BLOCK Z * D @* EXIT: A1 - NUMBER OF TERMINAL DEVICE CLASSES (BINRY VALUE) * * WORK REGISTER
0x3d5008…3d519c Dummy {f00=0x0131, f01=0x0190, f02=»NC+1,A11 CALL CONVRT RTN A14 $ EJECT 4 8 3*************************************************** B 8 3* GETSDC - GET NUMBER OF SPECIAL DEVICE CLASSES * ~ 8 3*************************************************** * * REFER
0x3d519c…3d5330 Dummy {f00=0x0131, f01=0x0190, f02=»VICE CLASSES (BINARY VALUE) l * $ * WORK REGISTERS: A5 . * L * SUBROUTINES: CONVRT V * v PGETSDC EQU * LCR A5,A9 P SLL A5,8 LC A5,1,A9 CALL CONVRT RTN A14 EJECT 2 .**********
0x3d5330…3d54c4 Dummy {f00=0x0131, f01=0x0190, f02=»******** j * * REFERENCED IN: B:TT * : 6 2* ENTRY: A9 - POINTER TO CLASS DEFINITION RECORD D * ~ > :* EXIT: A1 - CLASS IDENTIFICATION NUMBER (BINARY VALUE) * * WORK REGISTERS: A5 * * SUBROUTIN
0x3d54c4…3d5658 Dummy {f00=0x0131, f01=0x0190, f02=» RTN A14 RETURN P EJECT . )***************************************** & . )* GETLCN - GET LINE CONNECTION NUMBER * X . )***************************************** * * REFERENCED IN: B:DWTT * 8 3* ENTRY: A9 - POINTE
0x3d5658…3d57ec Dummy {f00=0x0131, f01=0x0190, f02=»S: A5 * * SUBROUTINES: CONVRT * 8 PGETLCN EQU * B P LC A5,LCND1,A9 V P SLL A5,8 n P LC A5,LCND2,A9 P CALL CONVRT RTN A14 P EJECT : P***************************************************** : P
0x3d57ec…3d5980 Dummy {f00=0x0131, f01=0x0190, f02=»======================= * : P* * 2 : P* REFERENCED IN: B:TT * p : P* * : P* ENTRY: A5 - TCL IN CURRE
0x3d5980…3d5b14 (4, 140) Dummy {f00=0x0131, f01=0x018e, f02=»TASK CLASS * h : P* * : P* WORK REGISTERS: A1-A7,A10 * T : P* * : P* SUBROUTINES: GETTSK,NXTBLK *
0x3d5b14…3d5ca8 Dummy {f00=0x0131, f01=0x0190, f02=» PGETTCL EQU * P LDR A6,A5 SAVE TCL P LDR A7,A6 TCL START VALUE 4 8 P LDR A10,A11 SAVE POINTER TO CURRENT TASK DEF. BLOCK V 2 P LD A11,SAVE01,A13 START OF CONFIGURATION DATA 4 PTCL:10 CWR A11,A10 ALL PREVIOUS BLOCKS SCANNED? P RF(E) T
0x3d5ca8…3d5e3c Dummy {f00=0x0131, f01=0x0190, f02=»AR IN TCL p P CWR A5,A6 SAME TCL? P RF(NE) TCL:50 NO! . & P CALL GETTSK GET NUMBER OF COPIES H P ADR A7,A1 INCREMENT TCL r 0 PTCL:50 CALL NXTBLK GET NEXT TASK DEF. BLOCK P RB TCL:10 , PTCL:60 LDR A5,A7 SAVE START VALUE OF TCL P
0x3d5e3c…3d5fd0 Dummy {f00=0x0131, f01=0x0190, f02=»*********************************** * , * REFERENCED IN: SEGGEN 6 * X " * ENTRY: A2 - MEMORY ADDRESS b . )* MMUOPT - MMU OPTION SWITCH (X) * , (* EXIT: A1 - CONTENT OF MEMORY ADDRESS * * WORK RE
0x3d5fd0…3d6164 Dummy {f00=0x0131, f01=0x0190, f02=»ON ~ P RF(Z) GCON10 NO MMU ELR A1,A2 & P RF GCON20 8 PGCON10 EQU * J LDR* A1,A2 ^ PGCON20 EQU * r RTN A14 RETURN EJECT B >************************************************************** B >* BINASC - CONVERT A
0x3d6164…3d62f8 Dummy {f00=0x0131, f01=0x0190, f02=» B >************************************************************** * J * REFERENCED IN: B:DWTT T * v , (* ENTRY: A1 - BINARY NUMBER TO CONVERT * 0 ,* EXIT: A5 - TWO-DIGIT ASCII-CODED NUMBER * * WORK REGISTER
0x3d62f8…3d648c Dummy {f00=0x0131, f01=0x018e, f02=» LDK A2,0 LDR A1,A1 PBIN:20 EQU * $ RF(Z) BINEX 8 ADK A2,1 L CWK A2,10 ^ RF(E) BIN:30 p SUK A1,1 RB BIN:20 PBIN:30 EQU * ADKL A5,/0100 LDK A2,0 SUK A1,1 RB BIN:20
0x3d648c…3d6620 Dummy {f00=0x0131, f01=0x0190, f02=» N D P* START MONITOR SAVE01URATION * D P**************************************************************** P PCONMON EQU * ( P CALL B:TCT BUILD TASK CONTROL TABLE & P CALL B:FWT BUILD FILE WORK TABLES ( P CALL
0x3d6620…3d67b4 (4, 141) Dummy {f00=0x0132, f01=0x0190, f02=» 2 P CALL B:SWBT BUILD SWAPPABLE WORK BLOCK TABLE P XIF > 2 P CALL B:DMTT BUILD DATA MANAGEMENT TASK TABLES J & P CALL B:TT BUILD USER TASK TABLES 2 P CALL B:DWTS BUILD SPECIAL DEVICE WORK TABLES 2 P CALL B:DWTT BUILD TERMINAL DEVICE WORK
0x3d67b4…3d6948 Dummy {f00=0x0132, f01=0x0190, f02=»F ASSEMBLER APPLICATION P* " P LD A4,SCTOPT GET OPTION WORD * ( P RF(N) SLDM80 ASSEMBLER APPLICATION P ( P LD A1,SCTLAC GET ADDRESS TO S:GTAB | P IFF MMUPAG=1 & P LDR* A3,A1 GET ADDRESS TO P:MTAB $ P LD A1,2,A1 GET APPLICATON TYPE
0x3d6948…3d6adc Dummy {f00=0x0132, f01=0x0190, f02=»E r 2 P EL A2,I:RSTE,A3 GET INTERPRETER RESTART ENTRY P XIF @ PSLDM70 EQU * L P ST A2,SCTIOE SAVE IN SYSTAB ` P* " P* CHECK IF CREDIT APPLICATION P* P CWK A1,'CR' CREDIT? P RF(NE) SLDM80 NO P IFF MMUPAG=1 "
0x3d6adc…3d6c70 Dummy {f00=0x0132, f01=0x0190, f02=» P EJECT F P***************************************************************** F P* END OF MONITOR SAVE01URATION PART * ` F P* -CONTINUE WITH APPLICATION SAVE01URATION PART * F P********************
0x3d6c70…3d6e04 Dummy {f00=0x0132, f01=0x4060, f02=»T BASE-ADDRESS & P ADKL A8,SYSLDX APPL. CONF. ENTRY P ABR A8 @ P END P@ * END OF MONITOR SAVE01URATION PART * ` F P* -CONTINUE WITH APPLICATION SAVE01URATION PART * F P********************
0x3d6e04…3d6f98 Dummy {f00=0x0132, f01=0x403c, f02=» 0 P******************************************** @ 8 P ABR A8 @ P END P@ * END OF MONITOR SAVE01URATION PART * ` F P* -CONTINUE WITH APPLICATION SAVE01URATION PART * F P********************
0x3d6f98…3d712c Dummy {f00=0x0132, f01=0x2008, f02=» P X ` h p
0x3d712c…3d72c0 Dummy {f00=0x0132, f01=0x0000, f02=»
0x3d72c0…3d7454 (4, 142) Opaque[0x194]
0x3d7454…3d75e8 # DirEnt {nam=»SYSLDA«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x2200, f03=0x0000}
0x3d7454…3d75e8 IdxSect {
0x3d7454…3d75e8 f00 = 0x0110 // 0x3d7454 @0x0
0x3d7454…3d75e8 f01 = 0x0056 // 0x3d7456 @0x2
0x3d7454…3d75e8 gno = [ // 0x3d7458 @0x4
0x3d7454…3d75e8 [0x00]: C0x0110.0x0.0
0x3d7454…3d75e8 [0x01]: C0x0110.0x1.0
0x3d7454…3d75e8 [0x02]: C0x0110.0x2.0
0x3d7454…3d75e8 [0x03]: C0x0110.0x3.0
0x3d7454…3d75e8 [0x04]: C0x0111.0x0.0
0x3d7454…3d75e8 [0x05]: C0x0111.0x1.0
0x3d7454…3d75e8 [0x06]: C0x0111.0x2.0
0x3d7454…3d75e8 [0x07]: C0x0111.0x3.0
0x3d7454…3d75e8 [0x08]: C0x0112.0x0.0
0x3d7454…3d75e8 [0x09]: C0x0112.0x1.0
0x3d7454…3d75e8 [0x0a]: C0x0112.0x2.0
0x3d7454…3d75e8 [0x0b]: C0x0112.0x3.0
0x3d7454…3d75e8 [0x0c]: C0x0113.0x0.0
0x3d7454…3d75e8 [0x0d]: C0x0113.0x1.0
0x3d7454…3d75e8 [0x0e]: C0x0113.0x2.0
0x3d7454…3d75e8 [0x0f]: C0x0113.0x3.0
0x3d7454…3d75e8 [0x10]: C0x0114.0x0.0
0x3d7454…3d75e8 [0x11]: C0x0114.0x1.0
0x3d7454…3d75e8 [0x12]: C0x0114.0x2.0
0x3d7454…3d75e8 [0x13]: C0x0114.0x3.0
0x3d7454…3d75e8 [0x14]: C0x0115.0x0.0
0x3d7454…3d75e8 [0x15]: C0x0115.0x1.0
0x3d7454…3d75e8 [0x16]: C0x0115.0x2.0
0x3d7454…3d75e8 [0x17]: C0x0115.0x3.0
0x3d7454…3d75e8 [0x18]: C0x0116.0x0.0
0x3d7454…3d75e8 [0x19]: C0x0116.0x1.0
0x3d7454…3d75e8 [0x1a]: C0x0116.0x2.0
0x3d7454…3d75e8 [0x1b]: C0x0116.0x3.0
0x3d7454…3d75e8 [0x1c]: C0x0117.0x0.0
0x3d7454…3d75e8 [0x1d]: C0x0117.0x1.0
0x3d7454…3d75e8 [0x1e]: C0x0117.0x2.0
0x3d7454…3d75e8 [0x1f]: C0x0132.0x1.0
0x3d7454…3d75e8 [0x20]: C0x0132.0x2.0
0x3d7454…3d75e8 [0x21]: C0x0132.0x3.0
0x3d7454…3d75e8 [0x22]: C0x0133.0x0.0
0x3d7454…3d75e8 [0x23]: C0x0134.0x0.0
0x3d7454…3d75e8 [0x24]: C0x0134.0x1.0
0x3d7454…3d75e8 [0x25]: C0x0134.0x2.0
0x3d7454…3d75e8 [0x26]: C0x0134.0x3.0
0x3d7454…3d75e8 [0x27]: C0x0135.0x0.0
0x3d7454…3d75e8 [0x28]: C0x0135.0x1.0
0x3d7454…3d75e8 [0x29]: C0x0135.0x2.0
0x3d7454…3d75e8 [0x2a]: C0x0135.0x3.0
0x3d7454…3d75e8 ]
0x3d7454…3d75e8 }
0x3d75e8…3d777c Dummy {f00=0x0110, f01=0x018e, f02=» 2 P IDENT SYSLDA REL 10.0 80-05-29 870105041000 P : P REL 10.0 80-03-14 B * P =1,FAULTY STACK BASE WHEN USING MMU ^ P P > P********************************************************** P* $ P* PHILIPS TERMINAL SYS
0x3d777c…3d7910 Dummy {f00=0x0110, f01=0x0190, f02=» P* > P********************************************************** P* T P* ^ F P* THIS PART OF THE SYSTEM START-UP WILL TAKE CARE OF APPLICATION h B P* (CREDIT) CONFIGURATION AND START OF APPLICATION. SYSLDA IS F P* ENTERED AFTE
0x3d7910…3d7aa4 Dummy {f00=0x0110, f01=0x0190, f02=» P* ASSEMBLER APPLICATION: J P* NO CONFIGURATION WILL TAKE PLACE. FIRST USER TASK IS ACTIVATED * F P* AND A BRANCH IS MADE TO P F I N I T . ALL USER TASK TTAB'S x $ P* MM-TABLES ARE FILLED IN. P* P* CREDIT APPLICATI
0x3d7aa4…3d7c38 Dummy {f00=0x0110, f01=0x0190, f02=»REAL TASKS & ^ . P* NUMBER OF USER WORK-BLOCK COPIES). H P* SYSLDA THEN MOVES ITSELF TO FOLLOW MONITOR AND WILL ALSO MOVE F , P* DDIV-PROTOTYPE TO FOLLOW SYSLDA. P* H P* APPLICATION WORKBLOCKS, DESCRIPTORS, STACK AND TABLES
0x3d7c38…3d7dcc Dummy {f00=0x0110, f01=0x0190, f02=»LLOCATED AT 'BOTTOM' OF d H P* MEMORY; ELSE, IF NO MMU, BUFFERS ARE ALLOCATED AFTER MONITOR P* 'OVER' SYSLDA. l P* H P* ALL USER TASKS ARE QUEUED VIA A C T O T AND ALL MM-TABLES F P* IN USER TASK TTAB'S ARE FILLED. A
0x3d7dcc…3d7f60 Dummy {f00=0x0110, f01=0x0190, f02=»* v P* * P* ENTRIES AND EXTERNALS * . P* * R P*************************** v P P* LABEL ENTRIES , P ENTRY JUMP BYPASS JUMP FOR LOAD-MODULE P ENTRY SYSLDX P ENT
0x3d7f60…3d80f4 (4, 143) Dummy {f00=0x0110, f01=0x0190, f02=»RROR $ P ENTRY CMPADR COMPARE ADDRESSES 2 P ENTRY NXTBLK SKIP TO NEXT CONFIGURATION BLOCK 4 4 P ENTRY NXTCOM SKIP COMMONDEVICE DEFINITION BLOCK j * P ENTRY CONVRT CONVERSION ASCII-BINARY 2 P ENTRY GETNUM CONVERT 3 ASCII-DIGITS TO BINARY & P E
0x3d80f4…3d8288 Dummy {f00=0x0110, f01=0x0190, f02=»BSOLUTE START ADDRESS OF WORK-TAB 1 4 P ENTRY MMEND ABSOLUTE END ADDRESS OF WORK-TAB 1 , 2 P ENTRY MMDDIV WORK-TABLE 2 (MM) RELATIVE 'REL' d , P ENTRY BUFSIZ TEMPORARY MOVE-BUFFER SIZE . P ENTRY SYSBUF TEMPORARY MOVE-BUFFER START 4 P ENTRY M:REL
0x3d8288…3d841c Dummy {f00=0x0110, f01=0x0190, f02=»NTRY SAVE05,SAVE06,SAVE07,SAVE08 & P ENTRY SAVE09,SAVE10,SAVE11,SAVE02 ( & P ENTRY SAVE13,SAVE14,SAVE15,SAVE16 R & P ENTRY SAVE17,SAVE18,SAVE19,SAVE20 | & P ENTRY SAVE21,SAVE22,SAVE23,SAVE24 & P ENTRY SAVE25,SAVE26,SAVE27,SAVE28 P ENTRY SAVE29,
0x3d841c…3d85b0 Dummy {f00=0x0110, f01=0x0190, f02=» FREE AREA z 2 P EXTRN SCTLAC LOGICALL ADDRESS TO COMMON PART P EXTRN SCTTCT TC:TAB ADDRESS H P EXTRN SCTSTB A15 STACK-BASE l " P EXTRN SCTEFA END OF FREE AREA " P EXTRN SCTNOP NUMBER OF PAGES P EXTRN SCTPSZ PAGE SIZE P EXTRN SCTMM
0x3d85b0…3d8744 Dummy {f00=0x0110, f01=0x0190, f02=» TABLE f P EXTRN SCTBUG BUGGER ADDRESS P 2 P* EXTERNAL LABELS : 6 P EXTRN SYSLDM START OF MONITOR CONFIGURATION PART T $ P EXTRN PAGQUE PAGE QUEUE POINTER P P* EXTERNAL SUBROUTINES P EXTRN ACTOT QUEUE TASK P EXTRN PFINI
0x3d8744…3d88d8 Dummy {f00=0x0110, f01=0x0190, f02=»XTRN TTB:SA START OF SAVE AREA IN TTAB 8 P EXTRN TTB:CB DISPL. TO CURRENT SEGMENT BASE ADDRESS . P EJECT j P x P , P*************************************** , P* CONDITIONAL ASSEMBLY * , P********************************
0x3d88d8…3d8a6c Dummy {f00=0x0110, f01=0x0190, f02=»ER z P PMMUSWB EQU MMUPAG+SWPBLK P 2 PSWBMMU EQU SWPBLK-MMUPAG : P EJECT Z P h P PROGRAM STRUCTURE: p P F P* ------------------------------------------------------- L P* ! RELOCATION ROUTINE
0x3d8a6c…3d8c00 Dummy {f00=0x0110, f01=0x0190, f02=»-------------------------------------------! z F P* ! SAVE & COMMUNICATION AREA. MMU - WORK TABLES ! 4 F P* !-----------------------------------------------------! ~ F P* ! SUBROUTINES. -COMMON TO ALL PARTS IN PROGRAM.
0x3d8c00…3d8d94 (4, 144) Dummy {f00=0x0110, f01=0x018e, f02=» ! PART 2.B F P* ! BUILD REAL TASK-LOCAL DATA AREAS ! F P* ! -QUEUE TASK VIA 'ACTOT' ! j F P* ! -FILL MM-TABLE IN TTAB ! F P*
0x3d8d94…3d8f28 Dummy {f00=0x0110, f01=0x0190, f02=» F P* ! -ALLOCATE FIXED BUFFERS AND STACK ! F P* ! -UPDATE TID IN T:A AND SAVE TID IN T:AID TABLE ! N F P* ! -START DEBUGGER (IF ANY) AND START APPLICATION ! F P* !--------------------------
0x3d8f28…3d90bc Dummy {f00=0x0110, f01=0x0190, f02=»OVE DDIV PROTOTYPE TO FOLLOW SYSLDA ! F P* ! ! : F P* ! C O M D A T ! F P* ! GENERATE COMMON DATA AREA. PROCESS CWB'S & U
0x3d90bc…3d9250 Dummy {f00=0x0110, f01=0x0190, f02=» ! b F P* ! ! F P* ! C L A D A T ! f F P* ! BUILD TASK CLASS DATA AREAS. PROCESS CWB'S, UWB'S ! F P* !
0x3d9250…3d93e4 Dummy {f00=0x0110, f01=0x0190, f02=» ! -MOVE T:D ! F P* ! -MOVE D.T. & W.B., COPY UWB'S ! H F P* ! -MOVE D.T.'S OF SWB'S AND TWB'S ! F P* ! -SEARCH DBLK-TAB FOR DWB'S. MO
0x3d93e4…3d9578 Dummy {f00=0x0110, f01=0x0190, f02=» ! p F P* ! P R O D A T ! * F P* ! BUILD PROTOTYPE TASK-LOCAL DATA AREAS. ! t F P* ! -GENERATE TWB'S AND RESERVE FOR SWB'S ! F P
0x3d9578…3d970c Dummy {f00=0x0110, f01=0x0190, f02=» ! R F P* ! -INCLUDE DDIV-PROTOTYPE & PART 2.A IN FREE AREA. ! F P* ! -CONTINUE IN PART 2.B ! V F P* !-----------------------------------------------------! N P* ! SUBROUTINES
0x3d970c…3d98a0 Dummy {f00=0x0110, f01=0x0190, f02=» ! CREDIT APPLICATION: ! ASSEMBLER APPLICATION: ! F P* ! READ CUNFIGURATION FILE ! -FILL MM-TABLES IN ! @ F P* ! AND BUILD SHADOW-TABLES. ! USER TASK TTAB'S. ! F P* ! ! -QUEUE 1:S
0x3d98a0…3d9a34 (4, 145) Dummy {f00=0x0110, f01=0x0190, f02=»-------------------------! h F P* ! REAL TASKS' IS BUILT AT ! " F P* ! THE END OF MONITOR. ! l F P* ! U:BTAB: ! F P*
0x3d9a34…3d9bc8 Dummy {f00=0x0110, f01=0x0190, f02=» F P* ! ! F P* ! -RELOCATE ALL W.B.-ADDRESSES IN DDIV-PROTOTYPE. ! N F P* ! -REMOVE NOT USED ENTRIES IN T:ATAB ! F P* ! -RELOCATE ADDRESSES IN U
0x3d9bc8…3d9d5c Dummy {f00=0x0110, f01=0x0190, f02=» ! v F P* ! -CONTINUE IN PART 2.A ! 0 F P* !-----------------------------------------------------! z P EJECT P P ***************** P ************
0x3d9d5c…3d9ef0 Dummy {f00=0x0110, f01=0x0190, f02=»********* P P********** P* P:MTAB * 0 P********** B PT:ATAB EQU 0 T PU:BTAB EQU 2 h PP:BAS EQU 6 SEGMENT BASE | . PT:AID EQU 32 ADDRESS TO 'TABLE OF T:A TID' ( PS:BTAB EQU 40 DISP TO S:BTAB ADDRESS , PI:RSTE EQU 42
0x3d9ef0…3da084 Dummy {f00=0x0110, f01=0x0190, f02=»ITIAL U:BTAB p " PUPADDR EQU 2 PROTOTYPE ADDRESS PUPNAME EQU 4 PROTOTYPE NAME : 8 PUPNUMB EQU 7 SAVE AREA NUMBER OF COPIES (SHADOW-TBL) ^ P* . PUR:REC EQU 6 RECORD LENGTH IN REAL U:BTAB * PURADDR EQU 2 ADDRESS TO FIRST REAL UWB PURNU
0x3da084…3da218 Dummy {f00=0x0110, f01=0x0190, f02=»*********** | $ P* CONFIGURATION FILE (CONFIG) * $ P******************************* < P d P* TASK DEFINITION BLOCK: p PTDBBT EQU 0 1A BLOCK TYPE ( PTDBNT EQU TDBBT+1 2N NUMBER OF TASKS , PTDBID EQU TDBNT+2 6A TASK ID START VALUE
0x3da218…3da3ac Dummy {f00=0x0110, f01=0x0190, f02=»VICE CLASSES f P* & PTDBFST EQU TDBNC+2 FIRST TERM DEF $ PTDC EQU 7 TERMINAL DEVICE CLASS H PTLC EQU 6 LINE CONNECTION p ( PTDBREC EQU TDC+TLC TDB-RECORD LENGTH P* * PSDC EQU 7 SPECIAL DEVICE CLASS-RECORD P* P* COMMON
0x3da3ac…3da540 Dummy {f00=0x0110, f01=0x018e, f02=»+2 FIRST SDC-RECORD P* P* & & P* USER WORK BLOCK TYPE DEF. BLOCK 0 PUDBBT EQU 0 1A BLOCK TYPE Z , PUDBNU EQU UDBBT+1 3A NUMBER OF UWB TYPES | P* ( PUDBFST EQU UDBNU+3 FIRST UDB-RECORD PNAMUWB EQU 3 NAME OF UWB " PNUMUBL
0x3da540…3da6d4 (4, 146) Dummy {f00=0x0111, f01=0x018e, f02=» P* T:A * P********* PT:ASTA EQU -14 T:A START ( 6 PCSE EQU -14 CURRENT SEGMENT END (HERE: STACKSIZE) H $ PCSB EQU -12 CURRENT SEGMENT BASE 4 PCSN EQU -10 CURRENT SEGMENT NUMBER (HERE LENGTH 2 P OF ALL DSCB
0x3da6d4…3da868 Dummy {f00=0x0111, f01=0x0190, f02=» j P PT:ATID EQU -4 TASK ID PSTKE EQU -2 STACK END 2 PPA EQU 0 STACK POINTER P PSTKB EQU 2 STACK BASE n " PWATFST EQU 4 FIRST WAT-ELEMENT P* P* DSCB-RECORD: PDSCBL EQU 20 RECORD LENGTH PBA EQU 2 BUFFER ADDR
0x3da868…3da9fc Dummy {f00=0x0111, f01=0x0190, f02=» P********* P* T:D * P********* , ( PFCD EQU 0 DISPLACEMENT TO FCB IN T:A > , PT:DTID EQU 2 TASK IDENTIFIER (PROTOTYPE) j , PDATLEN EQU 4 NUMBER OF DATASETS (DSCB'S) & PWATLEN EQU 6 NUMBER OF WATELEMENTS 0 PTWBMSK EQU 8 MASK FO
0x3da9fc…3dab90 Dummy {f00=0x0111, f01=0x0190, f02=»4 MASK FOR UWB'S -"- ( PDWBFST EQU 16 FIRST WORD IN DBLK-TAB ! " P ! N . PSTPREC EQU 4 RECORD LENGTH OF START-POINTS ! V P ! P ! P**************** ! P* SOP-HANDLING * ! P**************** ! PSOP EQU /2E DEVICE ADDRESS ! P !
0x3dab90…3dad24 Dummy {f00=0x0111, f01=0x0190, f02=» /100 MEMORY OVERFLOW ! & PLMP4 EQU /80 FORMAT ERROR (CONFIG) " PLMP5 EQU /40 TID ERROR " H " PLMP6 EQU /20 UWB OR SWB ERROR " f " PLMP7 EQU /10 MM-TABLE OVERFLOW " PLMP8 EQU 8 " PLMP9 EQU 4 " PLMP10 EQU 2 " PLMP11 EQU 1 " P EJECT "
0x3dad24…3daeb8 Dummy {f00=0x0111, f01=0x0190, f02=»OCK " r , PDTLEN EQU -2 LENGTH OF DESCRIPTOR-TABLE # & PSWBLEN EQU 4 DISP TO LENGTH OF SWB # < P # f $ PFCBDD1 EQU 8 DISP TO FIRST DSET # r $ PFCBDD2 EQU 10 DISP TO 2:ND DSET # P # $ PSTKSZ EQU 128 DEFAULT STACK-SIZE # P # & PCREID
0x3daeb8…3db04c Dummy {f00=0x0111, f01=0x0190, f02=» P $ PTTBTID EQU 2 TID IN TTAB $ . PT:DSAV EQU 0 SAVE FOR T:D-ADDRESS IN TTAB $ , * PTTB:PP EQU 6 SAVE AREA FOR TCL IN TTAB $ ^ P $ ( PNTPA EQU 4 INTERPRETER START ADDRESS $ & PIHRTC EQU 4 RTC INTERRUPT ADDRESS $ $ PRTCDA EQU /1B RTC DEVICE ADDRE
0x3db04c…3db1e0 Dummy {f00=0x0111, f01=0x018e, f02=»A13 * $ h F P* DATA [REL-ADDRESS] * % " F P* * % l F P***************************************************************** % P %
0x3db1e0…3db374 (4, 147) Dummy {f00=0x0111, f01=0x0190, f02=» % 6 P************************************************** & 6 P** ** & B 6 P** RELOCATION ROUTINE & STACK INITIALLISATION ** & | 6 P** ** & 6 P************************
0x3db374…3db508 Dummy {f00=0x0111, f01=0x0190, f02=»HANDLER & p & P LDR A13,P GET BASE ADDRESS TO A13 ' P SUKL A13,4 ' : P* ADJUST FOR PSW-ROUTINE * ' N P************************** ' p 4 P LDK A3,GETPSW RELATIVE ADDRESS TO 'PSW-ADDRESS' ' P ADR A3,A13 ABSOLUT DITO ' 4 P ST A3,PSW,A13 STORE ADDRESS T
0x3db508…3db69c Dummy {f00=0x0111, f01=0x0190, f02=» P RTN A8 ( P ( P ( P* STACK * ( , P********* ( > P* ( P P RES 12 ( Z PSTACKB EQU *-REL-2 ( j P EJECT ( P ( P ( P* ADDRESS TO PSW-ROUTINE * ( P************************** ( P* ( PPSW EQU *-REL (
0x3db69c…3db830 Dummy {f00=0x0111, f01=0x0190, f02=» E T P S W * ( v D P* LITTLE SUBROUTINE TO PUT PSW IN STACK FOR CALLING SUBROUTINE * ) . D P**************************************************************** ) v P ) PGETPSW EQU *-REL ) $ P STR A2,A14 SAVE A2 ON A14-STACK ) 0
0x3db830…3db9c4 Dummy {f00=0x0111, f01=0x0190, f02=» RTN A14 ) P EJECT * P * & P********************************* * & & P* * * P & P* SUBROUTINE-HANDLER * * z & P* * * & P********************************* * P * PSUBSUB E
0x3db9c4…3dbb58 Dummy {f00=0x0111, f01=0x0190, f02=» * p P IM 4,A14 + 0 P AD A10,M:REL,A13 ADD FOR SYSLDM RELOCATION + P STR A10,A14 PUT ON STACK + N P LD A10,MUL,A13 RESTORE A10 + p P ABR* A14 + P + P + P + < P******************************************************* + < P* JUMP TO
0x3dbb58…3dbcec Dummy {f00=0x0111, f01=0x0190, f02=»YSLDM + P EJECT , P , ( P************************************ , ( ( P** ** , T ( P** SAVE, AND COMMUNICATION AREA ** , ( P** ** , ( P************************************ , P
0x3dbcec…3dbe80 Dummy {f00=0x0111, f01=0x0190, f02=»OD EQU *-REL U:BTAB OLD ADDRESS , P DATA 0 - ( ( PU:BTNW EQU *-REL U:BTAB NEW ADDRESS - 8 P DATA 0 - d ( PS:BTOD EQU *-REL S:BTAB OLD ADDRESS - t P DATA 0 - ( PS:BTNW EQU *-REL S:BTAB NEW ADDRESS - P DATA 0 - . PMOVADD EQU *-REL ADDRESS-CHA
0x3dbe80…3dc014 (4, 148) Dummy {f00=0x0111, f01=0x0190, f02=»SS INDICATOR - v P FOR TABLE-SCANNING . P DATA 0 . 2 : PLSTADR EQU *-REL LAST ADDRESS WHEN BUILDING DATA PART . B P DATA 0 . @ PFSTADR EQU *-REL FIRST FREE ADDRESS WHEN ALLOCATING BUFFERS . P DATA 0 . * PNEWAD1 EQU *-REL SAVE FOR W.B. ADDRE
0x3dc014…3dc1a8 Dummy {f00=0x0111, f01=0x0190, f02=» . 6 PFLAG EQU *-REL REAL TASK DATA PROCESSING INDICATOR / P DATA 0 / B " PUWB EQU *-REL U.W.B. INDICATOR / R P DATA 0 / x & PAPPTYP EQU *-REL APPLICATION TYPE / P DATA 0 / $ PSAVE01 EQU *-REL TEMPORARY SAVE / P DATA 0 / PSAVE02 EQU *-R
0x3dc1a8…3dc33c Dummy {f00=0x0111, f01=0x018e, f02=»0 / PSAVE06 EQU *-REL 0 P DATA 0 0 " PSAVE07 EQU *-REL 0 2 P DATA 0 0 J PSAVE08 EQU *-REL 0 Z P DATA 0 0 r PSAVE09 EQU *-REL SAVE AREAS 0 P DATA 0 0 PSAVE10 EQU *-REL 0 P DATA 0 0 PSAVE11 EQU *-REL 0 P DATA 0 0 PSA
0x3dc33c…3dc4d0 Dummy {f00=0x0111, f01=0x018e, f02=» 0 ~ P DATA 0 1 PSAVE26 EQU *-REL 1 P DATA 0 1 0 PSAVE27 EQU *-REL 1 @ P DATA 0 1 X PSAVE28 EQU *-REL 1 h P DATA 0 1 PSAVE29 EQU *-REL 1 P DATA 0 1 PSAVE30 EQU *-REL 1 P DATA 0 1 & PWBADD EQU *-REL W.B.-ADDRESS SAVE 1
0x3dc4d0…3dc664 Dummy {f00=0x0111, f01=0x0190, f02=» 8 PTADISP EQU *-REL DISPLACEMENT IN T:A TO W.B. ADDRESS 2 P DATA 0 2 @ * PDATEND EQU *-REL END OF DDIV PROTOTYPE 2 P P DATA 0 2 ~ ( PMMREL1 EQU *-REL PHYSICALL PAGE BASE 2 P DATA 0 2 * PM:REL EQU *-REL RELOCATION FOR SYSLDM 2 P DATA 0 2 P
0x3dc664…3dc7f8 Dummy {f00=0x0111, f01=0x0190, f02=» *-REL MMTABLE ADDRESS 2 P DATA 0 3 * PMMFROM EQU *-REL 2:ND MMTABLE ADDRESS 3 . P DATA 0 3 0 PFYSPAG EQU *-REL LAST PHYSICALLY PAGE NUMBER 3 l P DATA 0 3 PFSTPAG EQU *-REL 3 ( P DATA 0 FIRST FREE PAGE (PHYSICALL) 3 ( PTTAB EQU *-REL CORRE
0x3dc7f8…3dc98c Dummy {f00=0x0111, f01=0x0190, f02=»H 3 r P 4 P 4 P 4 & P********************************* 4 " & P* EQUATES FOR SYSLDM SAVE-WORDS * 4 L & P********************************* 4 v P 4 PSAVE14 EQU U:BTOD 4 PSAVE15 EQU U:BTNW 4 PSAVE16 EQU MOVADD 4 PSAVE17 EQU ENDADD
0x3dc98c…3dcb20 Dummy {f00=0x0111, f01=0x0190, f02=»SAVE24 EQU FLAG 4 P EJECT 5 P 5 & P* MMU TABLES * 5 . P 5 D P 5 L . PMMDDIV EQU *-REL DDIV (& SYSLDA) MM-TABLE 5 T P IFT MMUPAG=1 5 P RES 16 5 P XIF 5 P 5 $ PMMTAB EQU *-REL WORK AREA MM-TAB 5 PTABBE EQU * 5 P IFT MMUPAG=
0x3dcb20…3dccb4 (4, 149) Dummy {f00=0x0111, f01=0x0190, f02=»A 5 n 4 PTTPAG DATA 0 LAST ENTRY (FROM BOTTOM) IN MM-TAB 6 0 PLSTPAG EQU TTPAG-* DISPL. TO 'ENTRY-POINTER' 6 B P DATA 0 6 v P 6 PMMBEG EQU TABBE-* 6 P EJECT 6 P 6 6 P*** *** 6 6 P*** S
0x3dccb4…3dce48 Dummy {f00=0x0111, f01=0x018e, f02=» *** 6 p 6 P************************************************* 7 6 P************************************************* 7 T P 7 P 7 , P** E R R O R ** 7 , P** ** 7 , P**
0x3dce48…3dcfdc Dummy {f00=0x0111, f01=0x0190, f02=» 7 f , P** INPUT :A1=SOP-MESSAGE ** 8 , P** OUTPUT:A2=RELATIVE CALLING ADDRESS** 8 8 , P** (REG-CONTENTS IS SAVED) ** 8 h , P**************************************** 8 P 8 PERROR EQU * 8 P ST A2,SAVE01,A13 SAVE A2 8 . P L
0x3dcfdc…3dd170 Dummy {f00=0x0111, f01=0x0190, f02=»NG PURPOS) 8 | P EJECT 9 P 9 & P** M O V E ** 9 ( & P** ** 9 R & P** ** 9 | & P** MOVE BLOCKS INSIDE MEMORY ** 9 & P** ** 9 & P** INPUT:A1=F
0x3dd170…3dd304 Dummy {f00=0x0111, f01=0x0190, f02=» ** 9 x & P** WORK-REG: A4 ** : & P********************************* : < P : f PMOVE EQU * : r $ PMOVES ADR A1,A3 END OF FROM AREA : P ADR A2,A3 END OF TO-AREA : & P LD A4,SCTEFA GET END OF FREE AREA : P TNM A2,A4 SIGN
0x3dd304…3dd498 Dummy {f00=0x0111, f01=0x0190, f02=» SIGN : n 8 PMOVCK RF(NG) MOVE10 END OF TO-AREA<=END OF FREE AREA ; * P LDKL A1,LMP3 INDICATE MEMORY OVERFLOW ; J P CALL ERROR ; x PMOVE10 SUK A3,1 DEC LENGTH ; P RF(N) MOVE20 ALL DONE ; P SUK A1,1 ; P SUK A2,1 ; P LCR A4,A1 GET CHARACTER
0x3dd498…3dd62c Dummy {f00=0x0111, 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
0x3dd62c…3dd7c0 Dummy {f00=0x0111, 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************************************
0x3dd7c0…3dd954 (4, 150) Dummy {f00=0x0112, 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 >
0x3dd954…3ddae8 Dummy {f00=0x0112, 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**
0x3ddae8…3ddc7c Dummy {f00=0x0112, 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**
0x3ddc7c…3dde10 Dummy {f00=0x0112, f01=0x0190, f02=» A3=LENGTH (IN BYTES) ** @ 4 P** WORK.REGS:A4,A10 ** A . 4 P************************************************ A f P A PXMOVE EQU * A P ST A1,SAVE09,A13 A P ST A1,SAVE07,A13 A P ST A2,SAVE10,A13 A P
0x3dde10…3ddfa4 Dummy {f00=0x0112, f01=0x0190, f02=» PXMOV05 EQU * B LDR A10,A3 SAVE LENGTH B , ( LDK A4,0 RESET 'NUMBER-OF-MOVE' COUNTER B 8 * P LDR A11,A3 GET LENGTH OF AREA TO MOVE B h 0 P LD A9,BUFSIZ,A13 GET TEMPORARY BUFFER SIZE B . P CALL CMPADR TEMPORARY BUFFER BIG ENOUGTH B " RF(G) SPLIT
0x3ddfa4…3de138 Dummy {f00=0x0112, f01=0x0190, f02=»ER START-ADDRESS B p $ P TL* MMFROM,A13 LOAD FROM-TABLE C , ( MVUS A3 MOVE DATA-BLOCK TO TEMP. BUFFER C @ 0 P ST A1,SAVE09,A13 SAVE END OF 'FROM' ADDRESS C p P LD A1,SYSBUF,A13 C 0 P LD A2,SAVE08,A13 GET START OF 'TO' ADDRESS C LDR A3,A10 GET LENGTH
0x3de138…3de2cc Dummy {f00=0x0112, f01=0x0190, f02=»V30 NO! C P ADR A2,A10 D 0 P ST A2,SAVE08,A13 SAVE START OF 'TO' ADDRESS D $ * P LD A3,SAVE11,A13 GET REQUESTED LENGTH D X $ SUR A3,A10 SUBTRACT MOVED PART D P ST A3,SAVE11,A13 SAVE D P CWR A3,A10 D P RB(NL) XMOV10 D P LDR A10,A3 LAST L
0x3de2cc…3de460 Dummy {f00=0x0112, f01=0x0190, f02=» DV BUFSIZ,A13 AND DIVIDE E 2 P LDR A4,A2 GET QUOTIENT (=NUMBER OF MOVES - 1) E & & " LD A10,BUFSIZ,A13 MOVE MAX LENGTH E P RB XMOV10 E E 0 PXMOV30 LD A2,SAVE10,A13 RESTORE 'TO-ADDRESS' E , P LD A1,SAVE07,A13 RESTORE 'FROM-ADDRESS' E P LD
0x3de460…3de5f4 (4, 151) Dummy {f00=0x0112, f01=0x0190, f02=»N G ** E v 4 P** ** F 4 P** ** F V 4 P** USES SUBROUTINE 'XMOVE' TO MOVE A BLOCK ** F 4 P** VIA TWO MM-TABLES.PHYSICALL TO-ADDRESS ** F 4 P** IS ALW
0x3de5f4…3de788 Dummy {f00=0x0112, f01=0x0190, f02=» &FYSPAG ** F n 4 P** IS UPDATED AND CHECKED. ** G 4 P** ** G N 4 P** INPUT :A1 & A3 AS IN 'XMOVE' ** G 4 P** TTAB=POINTER TO TTAB (OR LIKELY) ** G 4 P** OUTPUT:A2=LOGI
0x3de788…3de91c Dummy {f00=0x0112, f01=0x0190, f02=»***** G f P H PMOVING EQU * H P ST A11,SAVE01,A13 SAVE A11 H * P ST A9,SAVE12,A13 SAVE A9 H N . ) LD A4,FYSPAG,A13 GET ACT. PHYSICALL PAGE H p & P LD A10,TTAB,A13 LOAD TTAB-ADDRESS H 2 . LD A2,LSTPAG,A10 GET LAST TABLE-ENTRY IN TTAB H " LDR*
0x3de91c…3deab0 Dummy {f00=0x0112, f01=0x0190, f02=»400 ADJUST FOR 'SETTAB' H $ P CALL SETTAB NEW PAGE IN TABLE! I 6 PMOV010 LD A11,LSTADR,A13 GET LAST LOGICALL ADDRESS I H ANKL A11,/FFF I * P LDR A9,A3 GET LENGTH OF AREA TO MOVE I 0 P CALL CMPADR ENOUGTH SPACE IN CURRENT PAGE? I P RF(NL) MOV020
0x3deab0…3dec44 Dummy {f00=0x0112, f01=0x0190, f02=» ADKL A11,4096 PHYSICAL PAGE INCREMENT I P RB MOV015 J . 2 PMOV020 SUR A11,A3 COMPUTE DISPLACEMENT IN PAGE J @ PMOV025 RF(NN) MOV050 J v * PMOV030 CALL SETTAB NEW PAGE IN TABLE! J & ! ADKL A11,4096 NEW PAGE INCREMENT J ( P RB(N) MOV030 NOT ENOUGH. NEW
0x3dec44…3dedd8 Dummy {f00=0x0112, f01=0x0190, f02=» J t " P* A2=CURRENT ENTRY IN MM-TABLE K K . PMOV050 EQU * K 6 , ( ST A2,LSTPAG,A10 SAVE MMU-ENTRY IN TTAB K J 0 , ST A4,FYSPAG,A13 SAVE PHYSICALL PAGE NUMBER K z 4 P LDKL A4,MMBEG CALCULATE TABLE ENTRY DISPLACEM. K & " ADR A4,A10 ABSOLUTE ENTRY ADDRESS
0x3dedd8…3def6c Dummy {f00=0x0112, f01=0x0190, f02=» * P ORR A2,A11 GET DISPLACEM. WITHIN PAGE L P ANKL A2,/FFFE EVEN ADDRESS L 2 , ' ST A2,LSTADR,A13 SAVE LOGICALL ADDRESS L V P* CHECK ADDRESSES * L P L * P LD A9,FSTPAG,A13 GET FIRST FREE PAGE L P ST A11,SAVE07,A13 SAVE A11 L P LD A11,FYSP
0x3def6c…3df100 Dummy {f00=0x0112, f01=0x0190, f02=» P LD A9,FSTADR,A13 M P CALL CMPADR M P RF(NL) MOV090 OK! M 2 PMOV070 LDKL A1,LMP3 M L P CALL ERROR M h PMOV090 EQU * M | P CALL XMOVE MOVE M P LD A9,SAVE12,A13 M ( P LD A11,SAVE01,A13 RESTORE REGISTERS M $ P TL* MMFROM,A13 RESTORE MM
0x3df100…3df294 (4, 152) Dummy {f00=0x0112, f01=0x0190, f02=» ** M v 6 P** ** N 6 P** SET NEW PAGE IN MM-TABLE & CHECK IF TABLE ** N Z 6 P** OVERFLOW. ** N 6 P** ** N 6 P
0x3df294…3df428 Dummy {f00=0x0112, f01=0x0190, f02=»S UPDATED ** N | 6 P** WORK.REG: A9 ** O & 6 P************************************************* O ` P O PSETTAB EQU * O SUKL A4,/400 GET NEXT PAGE O SUK A2,2 GET NEXT ENTRY O P O " P* CHEC
0x3df428…3df5bc Dummy {f00=0x0112, f01=0x0190, f02=» O r P RF(NN) SETT00 P P CWR A9,A2 P P RF SETT05 P 0 PSETT00 CWR A2,A9 OVERFLOW? P B PSETT05 RF(NL) SETT10 NO P d P LDK A1,LMP7 P P CALL ERROR P PSETT10 EQU * P STR A4,A2 STORE IN TABLE P RTN A14 P P XIF P P IFF CREDI
0x3df5bc…3df750 Dummy {f00=0x0112, f01=0x018e, f02=» ** P f 4 P** ** Q 4 P** GET WORK BLOCK ADDRESS AND DISPLACE- ** Q F 4 P** MENT IN T:A ** Q ~ 4 P** ** Q 4 P** INPUT : A8= POINTER TO
0x3df750…3df8e4 Dummy {f00=0x0112, f01=0x0190, f02=» Q ^ 4 P** TADISP=A4 ** R 4 P** A11=W.B.-ADDRESS ** R @ 4 P** WBADD=POINTER TO W.B.-ADD IN T:A ** R x 4 P*********************************************** R P R PGETWB EQU * R " P
0x3df8e4…3dfa78 Dummy {f00=0x0112, f01=0x0190, f02=»T R n P IFT CREDIT-MMUPAG=1 S P LDR* A11,A8 GET T:A-ADDRESS S & P ADR A11,A4 ADD DISPLACEMENT S J P ST A11,WBADD,A13 SAVE S n " P LDR* A11,A11 GET W.B.-ADDRESS S P XIF S P IFT CREDIT+MMUPAG=2 S 0 P LD A11,FLAG,A13 REAL TASK-DATA PROCESSING? S
0x3dfa78…3dfc0c Dummy {f00=0x0112, f01=0x0190, f02=»NT S v P ST A11,WBADD,A13 SAVE T " P ELR A11,A11 GET W.B.-ADDRESS T ( & P TL* MMFROM,A13 RELOAD FROM-TABLE T N P XIF T x P IFF CREDIT=0 T P RTN A14 T P EJECT T P T P T 8 P** M O V W B ** T
0x3dfc0c…3dfda0 Dummy {f00=0x0112, f01=0x0190, f02=»K-BLOCK. W.B.-ADDRESS IS UPDATED ** T 8 P** ** U 0 8 P** INPUT: A11=W.B.-ADDRESS ** U l 8 P** OUTPUT: 'WBADD'=POINTER TO MOVED W.B.ADDRESS ** U 8 P** WORK-REGS: A1-A4
0x3dfda0…3dff34 (4, 153) Dummy {f00=0x0112, f01=0x0190, f02=»ESS U | P ADKL A1,WBLEN FROM-ADDRESS V P IFT CREDIT-MMUPAG=1 V 0 P LDR* A3,A1 LENGTH V L P CALL MOVING V f 6 P SUKL A2,WBLEN ADJUST TO-ADDRESS FOR DISPLACEMENT V z 4 P ST* A2,WBADD,A13 UPDATE W.B.-ADDRESS AFTER MOVE V P XIF V P IFT CREDIT+MMUP
0x3dff34…3e00c8 Dummy {f00=0x0112, f01=0x0190, f02=» DATA-PART PROCESSING? V | P RF(Z) MOVW10 NO! W P TL* MMTO,A13 LOAD TO-TABLE W 8 : PMOVW10 ES* A2,WBADD,A13 UPDATE W.B.-ADDRESS AFTER MOVE W & P TL* MMFROM,A13 RELOAD FROM-TABLE W P XIF W P IFF CREDIT=0 W P RTN A14 W P EJECT W P
0x3e00c8…3e025c Dummy {f00=0x0112, f01=0x0190, f02=» W Z : P** ** X : P** MOVE DISCRIPTOR TABLE. D.T.-ADDRESS IS UPDATED ** X F : P** ** X : P** INPUT :WBADD POINTS TO W.B.-ADDRESS IN T:A ** X : P** OUTP
0x3e025c…3e03f0 Dummy {f00=0x0112, f01=0x018e, f02=»********************************* X | P Y * PMOVDT EQU * Y 6 6 P LD A1,WBADD,A13 GET POINTER TO W.B-ADDRESS IN WAT Y J & P SUK A1,2 POINTER TO D.T.-ADDRESS Y P IFT CREDIT-MMUPAG=1 Y P LDR* A1,A1 D.T.-ADDRESS Y * P ADKL A1,DTLEN ADJUST FOR LENG
0x3e03f0…3e0584 Dummy {f00=0x0112, f01=0x0190, f02=» Y P SUKL A1,DTLEN Z 4 P ST A2,-2,A3 UPDATE D.T-ADDRESS. A2=NEW ADDRESS Z P XIF Z V P IFT CREDIT+MMUPAG=2 Z b P ELR A1,A1 D.T.-ADDRESS Z ~ * P ADKL A1,DTLEN ADJUST FOR LENGTH WORD Z P AD A1,MOVADD,A13 RELOCATE Z P ELR A3,A1 LENGTH Z P
0x3e0584…3e0718 Dummy {f00=0x0112, f01=0x0190, f02=» Z ` P XIF [ P IFF CREDIT=0 [ P RTN A14 [ * P EJECT [ : P [ H < P** M O V D W B ** [ T < P** ** [ < P**
0x3e0718…3e08ac Dummy {f00=0x0112, f01=0x0190, f02=» < P** ** < P** INPUT : A12=T:D-ADDRESS ** D < P** A8= POINTER TO T:A-ADDRESS ** < P** BIT=BIT NUMBER SAT IN DWBMSK ( 0-15 ) ** < P**
0x3e08ac…3e0a40 Dummy {f00=0x0112, f01=0x0190, f02=»MOVDWB EQU * P ST A6,SAVE05,A13 SAVE A5 ] P LDK A6,0 ] 6 ( PMOVD10 LD A4,BIT,A13 GET BIT NUMBER ] H " P ADK A4,1 FIRST WAT-ELEMENT =1 ] t P IFT CREDIT-MMUPAG=1 ] P LD A2,WATLEN,A12 ] P XIF ] P IFT CREDIT+MMUPAG=2 ] P EL A2,WATLEN,A1
0x3e0a40…3e0bd4 (4, 154) Dummy {f00=0x0113, f01=0x0190, f02=»=TABLE INDEX ] ~ P SUK A2,1 ALL? ^ P RF(N) MOVD60 YES! ^ * P IFT CREDIT-MMUPAG=1 ^ D " P CC A4,DWBFST,A6 SHARED W.B.? ^ ` P XIF ^ P IFT CREDIT+MMUPAG=2 ^ * P EL A10,DWBFST,A6 CHECK IF SHARED W.B. ^ " P SRC A6,1 RIGHT OR LEFT BYTE? ^ P RF(N)
0x3e0bd4…3e0d68 Dummy {f00=0x0113, f01=0x0190, f02=»OINTER ^ x P CWR A4,A10 SHARED W.B.? _ P XIF _ . P IFF CREDIT=0 _ : P RB(NE) MOVD20 NO! _ P P* DWB FOUND * _ j , P NGR A4,A2 CALCULATE DISPLACEMENT IN T:A _ P IFT CREDIT-MMUPAG=1 _ P AD A4,WATLEN,A12 _ P XIF _ P IFT CREDIT+MMUPAG=2 _
0x3e0d68…3e0efc Dummy {f00=0x0113, f01=0x0190, f02=» P SLL A4,2 ` P ADK A4,WATFST+2 ` * P LD A3,NEWAD2,A13 GET NEW W.B.-ADDRESS ` . P IFT CREDIT-MMUPAG=1 ` 2 P ADR* A4,A8 A4=POINTER TO W.B.-ADDRESS IN T:A ` x " P STR A3,A4 CHANGE W.B.-ADDRESS ` P XIF ` P IFT CREDIT+MMUPAG=2 ` . P LD A2,FLAG,
0x3e0efc…3e1090 Dummy {f00=0x0113, f01=0x0190, f02=»OINTER TO W.B.-ADDR IN T:A ` P ADR A4,A10 a " " P ESR A3,A4 CHANGE W.B.-ADDRESS a 6 & P TL* MMFROM,A13 RELOAD FROM-TABLE a P XIF a P IFF CREDIT=0 a P ST A4,WBADD,A13 a . P LD A2,SWITCH,A13 WB-ADDRESS CHANGE ONLY? a P RB(NZ) MOVD10 YES! a
0x3e1090…3e1224 Dummy {f00=0x0113, f01=0x0190, f02=» P b P b 4 P** T W B S W B ** b 4 P** ** b L 4 P** COPY TWB'S AND RESERVE SPACE FOR SWB'S ** b 4 P** ** b 4 P** INPUT : A8=ACTUA
0x3e1224…3e13b8 Dummy {f00=0x0113, f01=0x0190, f02=» ** b d 4 P************************************************ c P c D PTWBSWB EQU * c L P ST A7,SAVE04,A13 SAVE A7 c ` " P LD A7,TWBMSK,A12 GET TWB MASK c P IFT CREDIT+MMUPAG=2 c " P EL A7,TWBMSK,A12 GET TWB MASK c P XIF c P IFF CREDIT=0 c
0x3e13b8…3e154c Dummy {f00=0x0113, f01=0x0190, f02=»ESS c n & P CALL MOVDWB CHANGE DWB-ADDRESSES d P CALL SKIFTA d 6 P RB TWSW10 d J PTWSW20 EQU * d P IFT CREDIT+SWPBLK=2 d p P EJECT d P d P d P* RESERVE SPACE FOR SWB'S * d P*************************** d P XIF d P I
0x3e154c…3e16e0 Dummy {f00=0x0113, f01=0x0190, f02=»REDIT+SWPBLK=2 d P CALL SHIFT e PTWSW30 RF(Z) TARZAN ALL DONE e * P CALL GETWB e N P CALL MOVWB RESERVE SPACE e b ( P ST A2,NEWAD2,A13 SAVE W.B.-ADDRESS e & P CALL MOVDWB CHANGE DWB- ADDRESSES e P CALL SKIFTA e P RB TWSW30 e PTARZAN E
0x3e16e0…3e1874 (4, 155) Dummy {f00=0x0113, f01=0x0190, f02=» A L L B U F ** e 4 P** ** f 0 4 P** ALLOCATE FIXED DATA SET BUFFERS AND ** f h 4 P** TERMINAL STACK ** f 4 P** **
0x3e1874…3e1a08 Dummy {f00=0x0113, f01=0x018e, f02=»(IN T:A)=LENGTH OF DSCB'S ** f 4 P** CIA (IN T:A)=DISPL. TO T:A-START ** g ( 4 P** CSE (IN T:A)=STACKSIZE ** g ` 4 P** WORK-REGS. :A1-A4,A9,A11 ** g 4 P************************************************ g P
0x3e1a08…3e1b9c Dummy {f00=0x0113, f01=0x0190, f02=» g r ( P LD A3,CSN,A1 GET DSCB TOTAL LENGTH h P RF(Z) ALLB70 NO DSCB'S h 4 . P ADKL A1,T:ASTA CALC START OF DSCB RECORDS h T " P LDR A10,A1 SAVE START ADDRESS h P XIF h P IFT CREDIT+MMUPAG=2 h P ELR A1,A8 GET T:A-ADDRESS h ( P EL A3,CSN,A1 GET
0x3e1b9c…3e1d30 Dummy {f00=0x0113, f01=0x0190, f02=» h r P XIF i P IFF CREDIT=0 i P SUR A3,A1 i * P NGR A3,A3 i < P SUK A3,DSCBL END CONDITION i N : P ST A3,SAVE04,A13 SAVE ADDRESS TO END OF DSCB-RECORDS i r : PALLB10 SUK A1,DSCBL A1=FIRST WORD IN FIRST DSCB-RECORD i P CW A1,SAVE04,A13 ALL? i
0x3e1d30…3e1ec4 Dummy {f00=0x0113, f01=0x0190, f02=»NN) ALLB10 NO! i P ST A9,BA,A1 BUFFER START j P LD A3,RL,A1 BUFFER LENGTH j 8 P ST A3,BL,A1 j Z P LD A2,EL,A1 SHARED BUFFER? j n P RF(Z) NOTSH NO! j & P LDR A4,A1 RESTORE START OF DSCB'S j P XIF j P IFT CREDIT+MMUPAG=2 j $ P ELR A3,A1 G
0x3e1ec4…3e2058 Dummy {f00=0x0113, f01=0x0190, f02=» P EL A2,EL,A1 SHARED BUFFER? k P RF(Z) NOTSH NO! k ( & P LDR A4,A1 RESTORE START OF DSCB'S k @ P XIF k j P IFF CREDIT=0 k v P ADK A4,DSCBL FIRST WORD k PALLB20 SUK A2,1 A2=INDEX k P RF(NN) ALLB30 k P LDK A1,LMP4 FORMAT ERROR k P CAL
0x3e2058…3e21ec Dummy {f00=0x0113, f01=0x0190, f02=» P RB(NE) ALLB20 l " P LDK A1,LMP4 BUFFER NOT FOUND l P CALL ERROR l @ P IFT CREDIT-MMUPAG=1 l T ( PALLB40 LD A4,BA,A4 BUFFER ALLOCATED? l p P RF(NZ) ALLB50 YES! l P LDK A1,LMP4 FORMAT ERROR l P CALL ERROR l PALLB50 EQU * l * P ST A4
0x3e21ec…3e2380 Dummy {f00=0x0113, f01=0x0190, f02=»50 YES! l P LDK A1,LMP4 FORMAT ERROR m P CALL ERROR m 2 PALLB50 EQU * m F * P ES A4,BA,A1 AND ESORE IN CURRENT ECB m Z P XIF m P IFF CREDIT=0 m P RB ALLB10 m P m P IFT CREDIT-MMUPAG=1 m PNOTSH LDR A9,A9 PAGING? m P RF(NZ)
0x3e2380…3e2514 (4, 156) Dummy {f00=0x0113, f01=0x0190, f02=» A9,A3 ALLOCATE BUFFER FROM TOP m P ADKL A9,1 n ( P ANKL A9,/FFFE EVEN ADDRESS n : P* CHECK ADDRESS: n ^ P n v " P LD A11,LSTADR,A13 DATA START n P CALL CMPADR n P RF(NL) ALLB60 OK! n P LDKL A1,LMP3 n P CALL ERROR n PALLB60 E
0x3e2514…3e26a8 Dummy {f00=0x0113, f01=0x0190, f02=»FROM 'BOTTOM' n n & P ES A2,BA,A1 STORE BUFFER ADDRESS o P XIF o @ P IFF CREDIT=0 o L P RB ALLB10 o b P o t , P* RESERVE STACK AND SET STACKPOINTERS * o P o PALLB70 EQU * o P IFT CREDIT-MMUPAG=1 o P LDR* A1,A8 GET T:A-ADDRESS o
0x3e26a8…3e283c Dummy {f00=0x0113, f01=0x0190, f02=»E o r PALLB80 EQU * p P ST A4,STKB,A1 SET STACKBASE p P STR A4,A1 STACK POINTER p B P CALL MOVING ALLOCATE STACK p b P ST A2,STKE,A1 SET STACK-END p P XIF p P IFT CREDIT+MMUPAG=2 p P ELR A1,A8 GET T:A-ADDRESS p P EL A3,CSE,A1 GET ST
0x3e283c…3e29d0 Dummy {f00=0x0113, f01=0x0190, f02=»ZE p n P CALL MOVING ALLOCATE STACK q " P ES A2,STKE,A1 STORE STACK END q . " P EL A3,STKB,A1 GET STACK SIZE q T " P ADR A2,A3 COMPUTE STACK BASE q z . P SUK A2,2 ADDRESS TO LAST WORD IN STACK =1 q $ P ES A2,STKB,A1 STORE STACK BASE q * P ESR A2,A1 STO
0x3e29d0…3e2b64 Dummy {f00=0x0113, f01=0x0190, f02=» ** q p 4 P** ** r 4 P** MOVE T:A AND UPDATE DATA SET ADDRESSES IN ** r P 4 P** FORMAT CONTROL BLOCK ** r 4 P** ** r 4 P** INPUT : A8=T
0x3e2b64…3e2cf8 Dummy {f00=0x0113, f01=0x0190, f02=»ART ** r h 4 P** OUTPUT: A2=NEW T:A-ADDRESS ** s 4 P** WORKREGS: A1-A4 ** s H 4 P************************************************ s P s PMOVT:A EQU * s P IFT CREDIT-MMUPAG=1 s P LDR* A1,A8 GET T:A-ADDR
0x3e2cf8…3e2e8c Dummy {f00=0x0113, f01=0x0190, f02=»WATFST A3=LENGTH s P AD A1,CIA,A1 FROM-ADDRESS t P CALL MOVING t : P LDR* A4,A8 t N " P SU A2,CIA,A4 NEW T:A-ADDRESS t b $ P SU A1,CIA,A4 'OLD' T:A-ADDRESS t P t 8 P* COMPUTE AND STORE ADDRESSES TO DATA-SETS IN FCB * t P t P LD A3,FCD,A
0x3e2e8c…3e3020 Dummy {f00=0x0113, f01=0x0190, f02=»TASK DATA PROCESSING? t z P RF(Z) MOVT05 NO! u : P SUR A4,A1 ADJUST FOR OLD RELOCATION (OLD T:A-ADDRESS) u 8 PMOVT05 EQU * u v P ADS A4,FCBDD1,A3 u P ADS A4,FCBDD2,A3 u PMOVT10 RTN A14 u P XIF u P IFT CREDIT+MMUPAG=2 u P u P ELR
0x3e3020…3e31b4 (4, 157) Dummy {f00=0x0113, f01=0x0190, f02=»DISPL. TO START u P ADK A3,WATFST A3=LENGTH v P ADR A1,A10 FROM-ADDRESS v 8 P CALL MOVING v X P ELR A4,A8 v l P EL A10,CIA,A4 v ~ P SUR A2,A10 NEW T:A-ADDRESS v " P SUR A1,A10 'OLD' T:A-ADDRESS v 8 P* COMPUTE AND STORE ADDRESSES TO DATA-SETS
0x3e31b4…3e3348 Dummy {f00=0x0113, f01=0x0190, f02=»EAL TASK DATA PROCESSING? v ~ P RF(Z) MOVT05 NO! w " 8 P SUR A4,A1 ADJUST FOR OLD RELOCATION (OLD T:A-ADDR.) w < PMOVT05 EQU * w x P ADR A3,A2 START OF FCB w P TL* MMTO,13 LOAD TO-TABLE w P EL A10,FCBDD1,A3 w P ADR A10,A4 w P ES A10,FCBD
0x3e3348…3e34dc Dummy {f00=0x0113, f01=0x0190, f02=»TN A14 w P XIF x P EJECT x P x ( P x 0 P x 8 6 P** C M P A D R ** x @ 6 P** ** x z 6 P** ** x 6 P** COMPARE ADDRESSES. RES
0x3e34dc…3e3670 Dummy {f00=0x0113, f01=0x0190, f02=» ** x b 6 P** A9 ** y 6 P** OUTPUT: RESULT IN A14-STACK ** y F 6 P************************************************** y P y PCMPADR EQU * y P TNM A11,A9 y P RF(NN) CMPA10 y P CWR
0x3e3670…3e3804 Dummy {f00=0x0113, f01=0x0190, f02=»T=0 y P EJECT z D P*************************************************************** z D P* * z b D P* ICBMVD - INDICATE CURRENT BLOCK MOVED * z D P* ===================
0x3e3804…3e3998 Dummy {f00=0x0113, f01=0x0190, f02=»IN: MOVCOM * z D P* * { : D P* ENTRY: A8 - FIRST T:A POINTER * { D P* A6 - SECOND T:A POINTER
0x3e3998…3e3b2c Dummy {f00=0x0113, f01=0x0190, f02=» * { Z D P* EXIT: CORRESPONDING BIT IN CURRENT STATCK POINTER * | D P* IN T:A IS SET * | Z D P* * | D P* WORK REGISTERS: A1,A2
0x3e3b2c…3e3cc0 Dummy {f00=0x0113, f01=0x0190, f02=» * | z D P* * } 2 D P*************************************************************** } z P EJECT } PICBMVD EQU * } P LDKL A1,/8000 SET BIT 0 } 6 P LD
0x3e3cc0…3e3e54 (4, 158) Dummy {f00=0x0114, f01=0x0190, f02=»UK A2,1 DECREMENT BIT COUNTER } P RB IBAM10 ~ & P* ~ 8 & P* UPDATE MOVED MASK IN FIRST T:A ~ B P* ~ l P XIF ~ v P IFT CREDIT-MMUPAG=1 ~ & PIBAM20 LDR* A2,A8 GET T:A POINTER ~ $ P LDR* A3,A2 GET MOVED BLOCK MASK ~ , P ORR A3,A1 INDICATE CURR
0x3e3e54…3e3fe8 Dummy {f00=0x0114, f01=0x0190, f02=»* A2,A6 GET T:A POINTER ~ $ P LDR* A3,A2 GET MOVED BLOCK MASK , P ORR A3,A1 INDICATE CURRENT BLOCK MOVED H * P STR A3,A2 STORE NEW MOVED BLOCK MASK x P XIF P IFT CREDIT+MMUPAG=2 $ PIBAM20 ELR A2,A8 GET T:A POINTER $ P ELR A3,A2 GET MOV
0x3e3fe8…3e417c Dummy {f00=0x0114, f01=0x0190, f02=»MOVED MASK IN SECOND T:A P* P ELR A2,A6 GET T:A POINTER * $ P ELR A3,A2 GET MOVED BLOCK MASK L , P ORR A3,A1 INDICATE CURRENT BLOCK MOVED t * P ESR A3,A2 STORE NEW MOVED BLOCK MASK P XIF P IFF CREDIT=0 P RTN A14 P EJE
0x3e417c…3e4310 Dummy {f00=0x0114, f01=0x0190, f02=» * ` J P* CHKMVD - CHECK IF BLOCK ALREADY MOVED * J P* ===================================== * l J P* * J P
0x3e4310…3e44a4 Dummy {f00=0x0114, f01=0x0190, f02=» * V J P* ENTRY: A8 - POINTER TO T:A * J P* BIT - BIT NUMBER IN CWB- OR UWB-MASK * b J P* * J P* EXIT:
0x3e44a4…3e4638 Dummy {f00=0x0114, f01=0x0190, f02=»* L J P* WORK REGISTER: A1,A2 * J P* * X J P* SUBROUTINES: * J P*
0x3e4638…3e47cc Dummy {f00=0x0114, f01=0x0190, f02=» EJECT PCHKMVD EQU * P IFT CREDIT-MMUPAG=1 " P LDR* A1,A8 GET T:A POINTER > $ P LDR* A1,A1 GET MOVED BLOCK MASK b P XIF P IFT CREDIT+MMUPAG=2 P ELR A1,A8 GET T:A POINTER $ P ELR A1,A1 GET MOVED BLOCK MASK P XIF P
0x3e47cc…3e4960 Dummy {f00=0x0114, f01=0x0190, f02=»LL A1,1 NEXT BIT IN MOVED BLOCK MASK $ P SUK A2,1 DECREMENT BIT COUNTER , P RB CHKM10 T PCHKM20 ADK A1,0 SET CR f * P CFI A14,PSW,A13 PUT CONDITION IN PSW P RTN A14 P EJECT P P : P***** S * U * P * E * R * L
0x3e4960…3e4af4 (4, 159) Dummy {f00=0x0114, f01=0x018e, f02=» ** d : P** ** : P** CALCULATES BIT NUMBER SAT IN MASK-WORD ** P : P** INPUT : A7=MASK WORD ** : P** OUTPUT: BIT=BIT NUMBER ** :
0x3e4af4…3e4c88 Dummy {f00=0x0114, f01=0x0190, f02=» PSHIFT EQU * " P CM BIT,A13 RESET BIT COUNTER P LDR A7,A7 > P RF SHIF20 P & PSKIFTA EQU * ENTRY: CONTINUE SHIFT b PSHIF10 IM BIT,A13 P SLL A7,1 PSHIF20 EQU * $ P RF(Z) SHIF30 NO MOORE BITS SAT P RB(NN) SHIF10 *
0x3e4c88…3e4e1c Dummy {f00=0x0114, f01=0x0190, f02=»L T ** z 4 P** ** " 4 P** ** Z 4 P** MULTIPLICATION (A2) X A3(), A2#0 ** 4 P** ** 4 P** IN
0x3e4e1c…3e4fb0 Dummy {f00=0x0114, f01=0x0190, f02=»****************** r PMULT EQU * P ST A3,MUL,A13 , " P STR A2,A14 SAVE A2 TEMPORARY B P LDK A3,0 h PADD AD A3,MUL,A13 z P SUK A2,1 P RB(NZ) ADD P LDR* A2,A14 P RTN A14 P P IFT MMUPAG=1 P EJECT
0x3e4fb0…3e5144 Dummy {f00=0x0114, f01=0x0190, f02=» ** 4 P** FIND LAST USED ENTRY IN MM-TAB. SCAN ** * 4 P** FROM LOW ADDRESS. NOT USED ENTRY=0. ** b 4 P** ** 4 P** INPUT :A3=MM-TABLE ADDRESS ** 4
0x3e5144…3e52d8 Dummy {f00=0x0114, f01=0x0190, f02=»TAB=A3 ** z 4 P** A1=CONTENTS OF 1:ST USED ENTRY ** " 4 P*********************************************** Z P PMMENT EQU * P LDR A9,A3 GET TABLE ADDRESS 6 P SUKL A9,MMBEG ADJUST A9 (LOOKS LIKE TTAB POINTER)
0x3e52d8…3e546c Dummy {f00=0x0114, f01=0x0190, f02=»1,/FC00 P RB(Z) MMEN10 2 P ST A3,LSTPAG,A9 SAVE FIRST FREE PAGE-ADDRESS & P RTN A14 P XIF l P IFF CREDIT=0 x P EJECT P 2 P** G E T T A B ** 2 P** **
0x3e546c…3e5600 Dummy {f00=0x0114, f01=0x0190, f02=» ** | 2 P** INPUT :A8=POINTER TO T:A IN T:ATAB ** " 2 P** OUTPUT:A2=TTAB-ADDRESS ** X 2 P** A1=TID ** 2 P** WORKREGS:A3,A4,A10 ** 2 P**************
0x3e5600…3e5794 (4, 160) Dummy {f00=0x0114, f01=0x018e, f02=»D A1,T:ATID,A10 GET TID TO MATCH " P LD A12,T:DAD,A10 T:D-ADDRESS ( P XIF N P IFT MMUPAG=1 Z P ELR A10,A8 T:A-ADDRESS p P EL A1,T:ATID,A10 GET TID P EL A12,T:DAD,A10 P XIF & PGETTTB EQU * ENTRY. INPUT: A1=TID $ P LD A4
0x3e5794…3e5928 Dummy {f00=0x0114, f01=0x0190, f02=» * P LDR A3,A1 SAVE A1 (DEBUGGING PURPOS) P LDK A1,LMP5 TID ERROR 2 P CALL ERROR P " PGETT20 LDR* A2,A4 TTAB-ADDRESS d P CW A1,TTB:PP,A2 TCL EQUAL? P RB(NE) GETT10 NO! P ST A2,TTAB,A13 SAVE P RTN A14 P IFF CREDIT=0
0x3e5928…3e5abc Dummy {f00=0x0114, f01=0x0190, f02=» ** d 8 P** ** 8 P** QUEUE TASK VIA 'ACTOT' AND SWITCH TO LEVEL ** L 8 P** 0, ENB. ** 8 P** ** 8 P** INPU
0x3e5abc…3e5c50 Dummy {f00=0x0114, f01=0x0190, f02=»SS ** x 8 P*************************************************** $ P ` PQUEJOB EQU * h P* QUEUE THIS TASK (THIS TID) | P 0 P LDKL A3,RETUR GET RETURN (FROM A15) ADDRESS P ADR A3,A13 RELOCATE P STR A3,A15 PUT
0x3e5c50…3e5de4 Dummy {f00=0x0114, f01=0x0190, f02=»ABORT INDICATOR $ P LD A8,SCTLAC GET P:MTAB-ADDRESS P LDR A5,A2 GET TTAB-ADDRESS @ P IFT CREDIT-MMUPAG=1 d , P LD A4,WATLEN,A12 NUMBER OF WAT-ELEMENTS P ADK A4,2 P ANKL A4,/FFFE P ADK A4,DWBFST+4 8 P ADR A4,A12 ADD T:A-ADDR
0x3e5de4…3e5f78 Dummy {f00=0x0114, f01=0x0190, f02=»ETT40 ALL! P LD A1,4,A4 DISP ADDRESS P LD A3,2,A4 SEGMENT NUMBER 2 , P LD A2,NTPA,A8 INTERPRETER START ADDRESS T P XIF P IFT CREDIT+MMUPAG=2 , P EL A4,WATLEN,A12 NUMBER OF WAT-ELEMENTS P ADK A4,2 P ANKL A4,/FFFE P ADK
0x3e5f78…3e610c Dummy {f00=0x0114, f01=0x0190, f02=»1 DEC. NUMBER OF STARTPOINTS P RF(N) GETT40 ALL! $ P EL A1,4,A4 DISP ADDRESS > P EL A3,2,A4 SEGMENT NUMBER ^ , P EL A2,NTPA,A8 INTERPRETER START ADDRESS P XIF P IFF CREDIT=0 P CF A15,ACTOT $ P ADK A4,STPREC NEXT START-POINT
0x3e610c…3e62a0 Dummy {f00=0x0114, f01=0x0190, f02=» P EJECT P 4 P** M O V M M T ** 4 P** ** R 4 P** ** 4 P** MOVE MM-TABLE ** 4 P**
0x3e62a0…3e6434 (4, 161) Dummy {f00=0x0114, f01=0x0190, f02=» ** j 4 P** OUTPUT:A2=START OF MM-TABLE IN TTAB ** 4 P** A9=TTAB ADDRESS ** J 4 P** WORKREGS:A1,A3 ** 4 P*********************************************** P PMOVMMT EQU *
0x3e6434…3e65c8 Dummy {f00=0x0114, f01=0x0190, f02=»T FILL LAST ENTRY ADDRESS P TL* MMFROM,A13 RELOAD TABLE " P RTN A14 F P XIF V P IFF CREDIT=0 b P EJECT x @ P************************************************************ @ P* *
0x3e65c8…3e675c Dummy {f00=0x0114, f01=0x0190, f02=» R @ P* ====================================================== * @ P* * L @ P* * @ P* REFERENCED IN: SYSLDA PART 2 B.
0x3e675c…3e68f0 Dummy {f00=0x0114, f01=0x0190, f02=» * @ P* A7 - POINTER TO NEXT FREE ENTRY IN REAL T:ATAB * @ P* * T @ P* EXIT: * @ P*
0x3e68f0…3e6a84 Dummy {f00=0x0114, f01=0x0190, f02=» * d @ P* SUBROUTINES: GETTTB * @ P* * @ P************************************************************ PCHTAID EQU * 2 P LDR A8,A7 GET N
0x3e6a84…3e6c18 Dummy {f00=0x0114, f01=0x0190, f02=» ENTRY IN REAL T:ATAB | P IFT CREDIT-MMUPAG=1 ( P LDR* A1,A8 GET POINTER TO REAL T:A : $ P LD A1,T:ATID,A1 GET TCL IN T:A f . PCHT:20 CALL GETTTB GET CORRESPONDING TTAB * P LD A4,TTBTID,A2 GET REAL TID IN TTAB 6 P LD A3,TTB:SA+26,A2 GET CO
0x3e6c18…3e6dac Dummy {f00=0x0114, f01=0x0190, f02=» COMPUTE ENTRY IN AUX. TID TABLE ~ , P STR A4,A3 SAVE TID FOR DEBUGGER PURPOSE ( P XIF X P IFT CREDIT+MMUPAG=2 d & P ELR A1,A8 GET POINTER TO REAL T:A $ P EL A1,T:ATID,A1 GET TCL IN T:A . PCHT:20 CALL GETTTB GET CORRESPONDING TTAB ( P LDR
0x3e6dac…3e6f40 Dummy {f00=0x0114, f01=0x0190, f02=»TID IN TTAB *79-04-11* v 6 P LD A3,TTB:SA+26,A2 GET CORRESPONDING T:A-ADDRESS 2 P ES A4,T:ATID,A3 REPLACE TCL IN T:A *79-04-11* X 0 P EL* A3,T:ATNW,A13 GET LENGTH OF REAL T:ATAB $ P NGR A3,A3 NEGATIVE DISPLACEMENT . P ADR A3,A8 COMPUTE ENTRY IN AU
0x3e6f40…3e70d4 (4, 162) Dummy {f00=0x0115, f01=0x0190, f02=»L SAVE AREA z P SUK A1,1 DECREMENT TCL P SUKL A8,2 DECREMENT 4 ( P SUK A6,1 DECREMENT NUMBER OF COPIES P P RB(P) CHT:20 NEXT COPY | PCHT:90 RTN A14 P EJECT P P 4 P************************************************ 4 P
0x3e70d4…3e7268 Dummy {f00=0x0115, f01=0x0190, f02=» ** x 4 P************************************************ P X 4 P* BUILD REAL T:A'S. COPY T:A'S ACCORDING TO * ` 4 P* SHADOW TABLE * 4 P* * 4 P
0x3e7268…3e73fc Dummy {f00=0x0115, f01=0x0190, f02=»A MONITOR END ADDRESS . P LD A8,T:ATOD,A13 T:ATAB PROTOTYP ADDRESS * P LD A7,T:ATNW,A13 REAL T:ATAB ADDRESS P P ADK A7,2 ~ P ST A8,SAVE03,A13 SAVE A8 & PSYA310 LD A8,SAVE03,A13 RESTORE A8 P ADKL A8,2 P CW A8,ENDADD,A13 ALL?
0x3e73fc…3e7590 Dummy {f00=0x0115, f01=0x0190, f02=»TTAB GET CORRESPONDING TTAB AND QUEUE P CALL QUEJOB . : P ST A10,TTB:SA+26,A2 SAVE T:A ADDR. IN TTAB (SAVE-A13) B " P LD A1,SCTOPT GET OPTION WORD P ANK A1,2 DISC PAGING? P RF(Z) SYA320 NO! P LDR A1,A10 GET T:A-ADDRESS 0 P ADKL
0x3e7590…3e7724 Dummy {f00=0x0115, f01=0x0190, f02=» STORE IN REAL T:ATAB P ADK A7,2 $ P LDR* A6,A5 GET NUMBER OF COPIES 0 P EJECT X PSYA340 SUK A6,1 f P RF(P) SYA345 NEXT TASK ~ 2 P CALL CHTAID REPLACE TCL:S IN THIS TASK-CLASS P RB SYA310 NEXT TASK-CLASS * PSYA345 LD A12,T:DA
0x3e7724…3e78b8 Dummy {f00=0x0115, f01=0x0190, f02=»8,A7 CHANGE T:A TO COPY 2 P CALL GETTAB GET CORRESPONDING TTAB AND QUEUE P CALL QUEJOB QUEUE THIS TASK V 2 P ST A10,TTB:SA+26,A2 SAVE T:A-ADDRESS IN TTAB z " P LD A1,SCTOPT GET OPTION WORD P ANK A1,2 DISC PAGING? P RF(Z) SYA348 NO!
0x3e78b8…3e7a4c Dummy {f00=0x0115, f01=0x0190, f02=»48 ADK A7,2 NEXT ENTRY IN REAL T:ATAB 2 P CALL TWBSWB MOVE TWB'S AND RESERVE FOR SWB'S . " P CALL ALLBUF ALLOCATE BUFFERS d P XIF P IFT CREDIT+MMUPAG=2 * P* GET ACTUAL MM-TABLE ADDRESS AND LOAD P P LDR A1,A5 * P AD* A1,SCTSFA
0x3e7a4c…3e7be0 Dummy {f00=0x0115, f01=0x0190, f02=»GETTAB GET CORRESPONDING TTAB : P ST A10,TTB:SA+26,A2 SAVE T:A ADDR. IN TTAB (SAVE-A13) & P LDR A1,A10 GET T:A-ADDRESS d 0 P ADKL A1,CSB ADDRESS TO CURRENT SEGMENT BASE " P ST A1,TTB:CB,A2 STORE IN TTAB 0 P LD A1,T:DSAV,A2 GET CLASS-LOCAL LAST
0x3e7be0…3e7d74 (4, 163) Dummy {f00=0x0115, f01=0x0190, f02=»ATA TABLE | , P* REMOVE TASK-LOCAL ENTRIES IN MM-TABLE P B P SUK A2,2 START OF TABLE J P LDKL A12,/FC00 j PSYA320 SUK A1,2 NEXT ENTRY P CWR A1,A2 ALL? P RF(E) SYA330 YES! P STR A12,A1 REMOVE ENTRY P RB SYA320 P
0x3e7d74…3e7f08 Dummy {f00=0x0115, f01=0x0190, f02=»L A1,T:ATID,A1 GET TID ( P ADK A7,2 NEXT ENTRY IN REAL T:ATAB $ P LDR* A6,A5 GET NUMBER OF COPIES J PSYA340 SUK A6,1 r P RF(P) SYA345 NEXT TASK 2 P CALL CHTAID REPLACE TCL:S IN THIS TASK-CLASS P RB SYA310 NEXT TASK-CLASS PSYA345
0x3e7f08…3e809c Dummy {f00=0x0115, f01=0x0190, f02=» TO TTAB v P CALL MOVT:A MOVE T:A $ P ESR A2,A7 STORE IN REAL T:ATAB . @ P ST A2,TTB:SA+26,A9 PUT T:A-ADDRESS IN TTAB. A9=TTAB ADDRESS V P LDR A8,A2 GET T:A-ADDRESS 0 P ADKL A8,CSB ADDRESS TO CURRENT SEGMENT BASE " P ST A8,TTB:CB,A9 STORE I
0x3e809c…3e8230 Dummy {f00=0x0115, f01=0x0190, f02=»WB MOVE TWB'S & RESERVE FOR SWB'S P LD A1,MMTO,A13 GET TO-TABLE * . P ST A1,MMFROM,A13 CHANGE T:A ADDRESS-TABLE N P TLR A1 " P CALL ALLBUF ALLOCATE BUFFERS $ P LD A1,TTAB,A13 GET TTAB-ADDRESS * P CM LSTPAG,A1 CLEAR SAVE-AREA IN TTAB
0x3e8230…3e83c4 Dummy {f00=0x0115, f01=0x0190, f02=» T:A t P XIF P IFF CREDIT=0 P RB SYA340 . P XIF @ P EJECT L PFINISH EQU *-REL Z P r P* ADJUST START OF FREE AREA z P PSYA350 EQU * P IFF CREDIT=0 * P LD A1,LSTADR,A13 GET END OF FREE AREA . P LD A14,SA
0x3e83c4…3e8558 Dummy {f00=0x0115, f01=0x0190, f02=»2 P ORR A1,A2 P XIF P IFF CREDIT=1 ( P LD A1,SCTLAC > P XIF T P IFT MMUPAG-CREDIT=1 ` P ANKL A1,/03FF | P SLL A1,2 P XIF P ST A1,SCTEFA+2 P IFT CREDIT=1 P LD A1,FYSPAG,A13 P IFT MMUPAG-CRED
0x3e8558…3e86ec Dummy {f00=0x0115, f01=0x0190, f02=» P IFT CREDIT-MMUPAG=1 ( P LD A1,FSTADR,A13 START OF FREE AREA $ P RF(NZ) SYA355 P P XIF f P LD A1,SCTSFA r PSYA355 ST A1,SCTSFA+2 P CM SCTSFA P IFT CREDIT=1 P EJECT D ?********************************************
0x3e86ec…3e8880 Dummy {f00=0x0115, f01=0x0190, f02=»E TABLE * l D ?* ========================= * $ D ?* * l D ?* REFERENCED IN: SYSLDA * D ?*
0x3e8880…3e8a14 (4, 164) Dummy {f00=0x0115, f01=0x0190, f02=» SCTEFA - END OF FREE AREA * D P* SAVE29 - NUMBER OF SEGMENTS * D D ?* SCTNOP - NUMBER OF PAGES * D ?* SCTPSZ - PAGE SIZE
0x3e8a14…3e8ba8 Dummy {f00=0x0115, f01=0x0190, f02=» * d D ?* EXIT: PAGQUE - POINTER TO FIRST FREE PAGE BLOCK * D ?* PAGQUE+2 - POINTER TO LAST FREE PAGE BLOCK+2 * d D ?* * D ?* WORK REGISTERS:
0x3e8ba8…3e8d3c Dummy {f00=0x0115, f01=0x0190, f02=»ES: * D ?* * < D ?* * D ?************************************************************
0x3e8d3c…3e8ed0 Dummy {f00=0x0115, f01=0x0190, f02=»ATION? h P ABR(Z) A2 NO! " LD A1,SCTOPT GET OPTION WORD $ ANK A1,3 PAGING? J P ABR(Z) A2 NO! d * z L G* RESERV SPACE FOR PAGE BLOCKS CORRESPONDING TO CORE RESIDENT SEGMENTS * , ' LD A11,SCTSFA+2 GET START OF FREE AREA
0x3e8ed0…3e9064 Dummy {f00=0x0115, f01=0x0190, f02=» A7,0 RESET PAGE COUNTER PAG:10 EQU * , ' CW A7,SCTNOP EQUAL TO NUMBER OF PAGES? 4 RF(E) PAG:30 YES! d $ LDK A1,0 RESET NUMBER OF WORDS ~ PAG:20 EQU * " ADKL A11,2 INCLUDE NEXT WORD 0 + RF(Z) MEMOFL MEMORY OVERFLOW (64 KB LIM
0x3e9064…3e91f8 Dummy {f00=0x0115, f01=0x0190, f02=»RAM OVERWRITE z " RF(E) MEMOFL MEMORY OVERFLOW! RB PAG:20 < 0 ,PAG:25 ADK A7,1 INCREMENT PAGE BLOCK COUNTER N RB PAG:10 PAG:30 EQU * * 4 /* RESERV MEMORY PAGES IN UNUSED PART OF MEMORY 6 2* AND EXTEND PAGE TABLE WITH
0x3e91f8…3e938c Dummy {f00=0x0115, f01=0x0190, f02=»BITS OF 18-BITS ADDRESS p 4 P SLL A1,14 TWO MOST SIGN BITS OF 16-BITS ADDRESS 4 / LD A2,SCTEFA+2 GET BIT 2-18 OF 18-BITS ADDRESS X & ! SRL A2,2 SKIP TWO RIGHTMOST BITS , P ORR A1,A2 16 BITS PHYSICAL PAGE ADDRESS P LDR A3,A1 SAVE LD A2
0x3e938c…3e9520 Dummy {f00=0x0115, f01=0x018e, f02=»RESS h ( # ANKL A2,/0300 MODIFY FOR PAGE SIZE P ANR A2,A3 EVEN 1-KB LIMIT 8 ( $ ORR A1,A2 MODIFY PAGE ADDRESS LIMIT Z P XIF P IFT CREDIT-MMUPAG=1 $ P LD A1,SCTEFA+2 END OF FREE AREA P LD A10,SCTPSZ PAGE SIZE P XIF P IFT C
0x3e9520…3e96b4 (4, 165) Dummy {f00=0x0115, f01=0x0190, f02=» P CWR A10,A6 P RF PAG:33 PPAG:32 CWR A6,A10 * PPAG:33 RF(NG) PAG:40 D , P SUR A6,A10 COMPUTE ADDRESS TO NEXT PAGE ` LDR A1,A6 GET PAGE ADDRESS P IFT CREDIT+MMUPAG=2 * & ANKL A1,/C000 ADDRESS IN SYSTEM AREA? RF(NZ) PA
0x3e96b4…3e9848 Dummy {f00=0x0115, f01=0x018e, f02=»PAG:34 LDK A1,0 END OF FREE AREA P XIF ( P IFT CREDIT=1 4 & "PAG:36 LDK A2,0 RESET WORD COUNTER J * %PAG:38 ADKL A11,2 RESERV ANOTHER WORD t RF(Z) PAG:40 64 KB LIMIT $ ADK A2,1 INCREMENT WORD COUNTER CWK A2,4 BLOCK COMPLETE?
0x3e9848…3e99dc Dummy {f00=0x0115, f01=0x0190, f02=» P RF(NN) PAG382 P CWR A11,A1 P RF PAG384 . PPAG382 CWR A1,A11 @ 4 PPAG384 RF(NG) PAG:40 NO MOORE MEMORY AVALIABLE! Z PPAG:39 EQU * " CWR A11,A8 PROGRAM OVERWRITE RB(NE) PAG:38 NO! PAG:40 EQU * 6 1 CW A7,SCTNOP
0x3e99dc…3e9b70 Dummy {f00=0x0115, f01=0x0190, f02=» RF(E) PAG:50 YES! MEMOFL LDKL A1,LMP3 * & OTR A1,0,SOP INDICATE MEMORY OVERFLOW : HLT HALT PROGRAM h 0 PPAG:45 CW A7,SAVE29,A13 MOORE PAGES WANTED? RF(E) PAG:50 YES! $ ADK A7,1 INCREMENT PAGE COUNTER LDR A9,A6 SAVE
0x3e9b70…3e9d04 Dummy {f00=0x0115, f01=0x0190, f02=»NOP SAVE NUMBER OF PAGES ( $ LDR A1,A9 GET ADDRESS TO FIRST PAGE LDR A2,A1 SAVE L P XIF d P IFT CREDIT+MMUPAG=2 p * P SRL A1,14 BIT 0-1 OF 18-BITS ADDRESS ST A1,SCTEFA SAVE . * SLL A2,2 GET BITS 2-15 OF 18-BITS ADDRESS P X
0x3e9d04…3e9e98 Dummy {f00=0x0115, f01=0x0190, f02=»TORE PAGE BLOCK ADDRESS IN SEGMENT BLOCKS * 2 LDK A1,0 < @ ; LD A8,SAVE22,A13 PHYSICAL ADDRESS TO FIRST CORE RES. SEGM. N . P LD A11,SAVE30,A13 START OF SEGMENT TABLE , ( LDK A4,0 RESET RESIDENT SEGMENT COUNTER & " LD A12,SCTPAG START
0x3e9e98…3ea02c Dummy {f00=0x0115, f01=0x0190, f02=» GET STATUS . ) RF(NN) PAG:65 SEGMENT NOT LOADED IN CORE * & ST A12,6,A11 STORE PAGE BLOCK ADDRESS F , ' STR A1,A12 RESET QUEUE POINTER FORWARD t . ) ST A1,2,A12 RESET QUEUE POINTER BACKWARD $ ST A8,4,A12 STORE PAGE ADDRESS . ) ST A11,6,
0x3ea02c…3ea1c0 Dummy {f00=0x0115, f01=0x0190, f02=»DKL A12,8 NEXT PAGE BLOCK 4 /PAG:65 SUK A6,1 DECREMENT SEGMENT BLOCK COUNTER " RB(P) PAG:60 Z * p < 8* INITIATE PAGE BLOCK FOR FREE PAGES AND LINK TO PAGQUE z * CWR A4,A7 ANY FREE BLOCKS? P RF(E) PAG:90 NO! 4 / ST A1
0x3ea1c0…3ea354 (4, 166) Dummy {f00=0x0116, f01=0x0190, f02=» d LDK A2,0 . *PAG:70 ST A11,2,A12 STORE BACKWARD POINTER $ ST A9,4,A12 STORE PAGE ADDRESS L $ ST A2,6,A12 INDICATE PAGE FREE t * & ADK A4,1 INCREMENT PAGE BLOCK COUNTER CWR A4,A7 LAST PAGE BLOCK? RF(E) PAG:80 YES! , '
0x3ea354…3ea4e8 Dummy {f00=0x0116, f01=0x0190, f02=»DR A12,A1 NEXT PAGE BLOCK ADR A9,A10 NEXT PAGE " RB PAG:70 @ PAG:80 EQU * R & ! LDKL A1,PAGQUE POINTER TO PAGQUE f $ STR A1,A12 STORE IN LAST BLOCK & " ST A12,PAGQUE+2 STORE IN PAGQUE+2 PPAG:90 EQU * PPAGEX EQU *-REL
0x3ea4e8…3ea67c Dummy {f00=0x0116, f01=0x0190, f02=»DIT=0 , P LD A14,SCTLAC TRUE START OF APPLICATION P XIF > P =1 J P =1 X P =1 f P SUKL A14,8 ADJUST FOR MAP t * P ADKL A13,SYA360 CONTINUATION ADDRESS $ P LDK A1,0 INDICATE SYSLOAD ENDED P OTR A1,0,SOP $ P LD A1
0x3ea67c…3ea810 Dummy {f00=0x0116, f01=0x0190, f02=»3,SYA370 RESTORE PROGRAM BASE OINTER P* , P* INIT A15 STACK 6 P* P P LD A15,SCTSTB Z P SUKL A15,4 p P P* START APPLICATION P . P LD A1,IHRTC GET INTERRUPT ADDRESS FOR RTC P ST A1,SAVRTC,A13 SAVE 4 P LDKL A1
0x3ea810…3ea9a4 Dummy {f00=0x0116, f01=0x0190, f02=» INITIALIZE DEVICES P CF A15,SAVE8 SAVE REGISTERS P* @ F P* WAIT APPROXIMATELY 0.62 SECONDS BEFORE BRANCHING TO DISPATCHER J P* P LDKL A1,/FFFF SET COUNTER PDELAY SRC A2,31 P SUK A1,1 P RB(NZ) DELAY P INH
0x3ea9a4…3eab38 Dummy {f00=0x0116, f01=0x0190, f02=»ES =1 ~ P* =1 P CIO A1,0,SOP =1 $ P ABL TDISP BRANCH TO DISPATCHER : P =1 b P =1 p P =1 ~ P =1 P* * P* TEMPORARY INTERRUPT ROUTINE FOR RTC P* PIHRTCO EQU *-REL P RIT RTCDA P R
0x3eab38…3eaccc Dummy {f00=0x0116, f01=0x0190, f02=» *** 6 P** SYSLOAD PART 2.A ** * 6 P** ** d 6 P************************************************* P 6 P* BUILD COMMON AND TASKCLASS DATA AREA
0x3eaccc…3eae60 Dummy {f00=0x0116, f01=0x0190, f02=»*********************************************** P 8 PPART2A EQU *-REL @ P X 0 P******************************************** ` 0 P*** *** 0 P** S U B R O U T I N E S ** 0 P************
0x3eae60…3eaff4 (4, 167) Dummy {f00=0x0116, f01=0x0190, f02=» ** | 4 P** ** $ 4 P** GET T:D - ADDRESS ** 4 P** ** 4 P** INPUT : A8=POINTER TO T:A (IN T:ATAB) ** 4 P**
0x3eaff4…3eb188 Dummy {f00=0x0116, f01=0x0190, f02=»DIT-MMUPAG=1 P LDR* A12,A8 T:A ADDRESS P LD A12,T:DAD,A12 4 P XIF N P IFT CREDIT+MMUPAG=2 Z P ELR A12,A8 T:A ADDRESS v P EL A12,T:DAD,A12 P XIF P IFF CREDIT=0 P AD A12,MOVADD,A13 RELOCATE P RTN A14 P E
0x3eb188…3eb31c Dummy {f00=0x0116, f01=0x0190, f02=» ** f 6 P** ** 6 P** SEARCH T:A'S FOR COMMON WORK BLOCKS THAT ** J 6 P** ARE COMMON TO AT LEAST TWO T:A'S, AND MOVE ** 6 P** TO COMMON AREA ** 6 P**
0x3eb31c…3eb4b0 Dummy {f00=0x0116, f01=0x0190, f02=»ASK ** l 6 P** ENDADD=ENDADDRESS OF T:ATAB ** 6 P** TADISP=W.B.-ADDR DISPLACEM. IN T:A ** P 6 P** WORK.REGS: A1-A6,A9,A11,A12 ** 6 P************************************************* P
0x3eb4b0…3eb644 Dummy {f00=0x0116, f01=0x0190, f02=»A-DISPL b ( P ST A11,SAVE06,A13 SAVE W.B.-ADDRESS ( P CM MOVED,A13 CLEAR MOVED INDICATOR < P LDR A6,A8 h PMOVC10 ADK A6,2 NEXT T:A z P CW A6,ENDADD,A13 ALL DONE? P RF(NE) MOVC30 NO PMOVC20 RTN A14 YES! P IFT CREDIT-MMUPAG=1
0x3eb644…3eb7d8 Dummy {f00=0x0116, f01=0x0190, f02=»D A2,WATLEN,A2 NUMBER OF WAT-ELEMENTS P CW A2,BIT,A13 ENOUGHT? . 6 P RB(NG) MOVC10 TO FEW WAT ELEMENTS. TAKE NEXT T:A N . P AD A11,TADISP,A13 W.B.-ADDRESS TO EXAMINE P LDR* A11,A11 . P CW A11,SAVE06,A13 COMPARE W.B.-ADDRESSES P XIF
0x3eb7d8…3eb96c Dummy {f00=0x0116, f01=0x0190, f02=»,SAVE03,A13 SAVE T:D-ADDRESS TEMPORARY , P EL A2,WATLEN,A2 NUMBER OF WAT-ELEMENTS . P CW A2,BIT,A13 ENOUGHT? ^ 6 P RB(NG) MOVC10 TO FEW WAT ELEMENTS. TAKE NEXT T:A ~ . P AD A11,TADISP,A13 W.B.-ADDRESS TO EXAMINE P ELR A11,A11 . P CW A11,SA
0x3eb96c…3ebb00 Dummy {f00=0x0116, f01=0x0190, f02=»D? n . P RF(NZ) MOVC50 YES! CHANGE ADDRESSES ONLY & P CALL MOVDT MOVE DESCRIPTOR-TABLE < & P ST A2,NEWAD1,A13 SAVE D.T.-ADRESS f P CALL MOVWB MOV WORK BLOCK P IM MOVED,A13 INDICATE MOVED P LD A4,UWB,A13 UWB-BLOCKS? P RF(Z) MOVC40 NO
0x3ebb00…3ebc94 (4, 168) Dummy {f00=0x0116, f01=0x0190, f02=»CHADR CHANGE ADDRESSES . P CALL ICBMVD INDICATE CURRENT BLOCK MOVED P LDR A11,A8 SAVE T:A-POINTER P ( P ST A12,SAVE25,A13 SAVE T:A-ADDRESS t & P LDR A8,A6 REPLACE POINTER TO T:A * P LD A12,SAVE03,A13 REPLACE T:D-ADDRESS P CALL MOVDWB
0x3ebc94…3ebe28 Dummy {f00=0x0116, f01=0x0190, f02=» G E T P R O ** 4 P** ** . 4 P** ** f 4 P** SEARCH U:BTAB PROTOTYPE AND GET NUMBER OF ** 4 P** COPIES. FILL REAL U:BTAB **
0x3ebe28…3ebfbc Dummy {f00=0x0116, f01=0x0190, f02=»T W.B. - ADDRESS ** ~ 4 P** OUTPUT: A2=NEW ADDRESS ** & 4 P** WORK-REGS: A1-A5,A9 ** ^ 4 P************************************************ P PGETPRO EQU * ( P LD A3,U:BTOD,A13 GET U:BT
0x3ebfbc…3ec150 Dummy {f00=0x0116, f01=0x0190, f02=»ENGTH d P RF(NN) GETP20 P LDK A1,LMP6 W.B. NOT FOUND! $ P CALL ERROR H PGETP20 EQU * P CW A11,UPADDR,A3 SAME W.B.? p , P RF(E) GETP30 YES! GET NUMBER OF COPIES P ADK A3,UP:REC NEXT P RB GETP10 P 0 P* GET NUMB
0x3ec150…3ec2e4 Dummy {f00=0x0116, f01=0x0190, f02=»11 W.B.-LENGTH * P LC A5,UPNUMB,A3 GET NUMBER OF COPIES P ANK A5,/FF D , P SU A3,U:BTOD,A13 GET TABLE DISPLACEMENT X . P AD A3,U:BTNW,A13 ADD TO NEW TABLE ADDRESS P LDR A9,A3 " P ST A4,URLENG,A9 STORE LENGTH * P ST A5,URNUMB,A9 STORE
0x3ec2e4…3ec478 Dummy {f00=0x0116, f01=0x0190, f02=»1 ONE ALREADY MOVED (IN 'MOVCOM') P RF(NP) GETP50 * PGETP40 CALL MOVWB @ P SUK A5,1 Z P RB(NZ) GETP40 l P & P* UPDATE POINTER IN REAL U:BTAB * & P********************************* PGETP50 EQU * 6 P ST A2,URADDR,A9 S
0x3ec478…3ec60c Dummy {f00=0x0116, f01=0x0190, f02=»:REC SUB RECORD LENGTH FRM TABLE LENGTH P RF(NN) GETP20 0 P LDK A1,LMP6 W.B. NOT FOUND! F P CALL ERROR j PGETP20 EQU * ~ ( P EL A10,UPADDR,A3 CHECK IF SAME W.B. P CWR A11,A10 , P RF(E) GETP30 YES! GET NUMBER OF COPIES P ADK A
0x3ec60c…3ec7a0 Dummy {f00=0x0116, f01=0x018e, f02=» IN U:BTAB * p 0 P******************************************** P H PGETP30 EQU * P P EL A4,WBLEN,A11 W.B.-LENGTH d , P EL A5,UPNUMB-1,A3 GET NUMBER OF COPIES P ANK A5,/FF , P SU A3,U:BTOD,A13 GET TABLE DISPLACEMENT . P AD A3,U:BTN
0x3ec7a0…3ec934 (4, 169) Dummy {f00=0x0116, f01=0x0190, f02=» " P ES A4,URLENG,A9 STORE LENGTH & P TL* MMFROM,A13 RELOAD FROM TABLE * 0 P* COPY NUMBER OF WORKBLOCKS TO COMMON AREA * T 0 P******************************************** . P SUK A5,1 ONE ALREADY MOVED (IN 'MOVCOM') P RF(NP) GETP50 PGETP
0x3ec934…3ecac8 Dummy {f00=0x0116, f01=0x0190, f02=»************* | PGETP50 EQU * P TL* MMTO,A13 * 6 P ES A2,URADDR,A9 ESORE ADDRESS TO FIRES IN U:BTAB @ P TL* MMFROM,A13 z P XIF P IFF CREDIT=0 P RTN A14 P EJECT P 2 P** M O V C L A
0x3ecac8…3ecc5c Dummy {f00=0x0116, f01=0x0190, f02=»B. ALREADY MOVED TO COMMON ** 2 P** AREA. IF NOT MOVE W.B. & D.T. AND ** & 2 P** CHECK IF ANY DWB'S ** 2 P** ** 2 P** A LOT OF WORKREGS. ** 2 P**********
0x3ecc5c…3ecdf0 Dummy {f00=0x0116, f01=0x0190, f02=»-ADDRESS TO A11 z & P CALL CHKMVD BLOCK ALREADY MOVED? P RF(NN) MVCL40 NO! B , PMVCL20 CALL SKIFTA GET NEXT BIT IN MASK P RB(NZ) MVCL10 PMVCL30 RTN A14 PMVCL40 CALL MOVDT P CALL MOVWB P LD A4,UWB,A13 UWB-SCANNING
0x3ecdf0…3ecf84 Dummy {f00=0x0116, f01=0x0190, f02=»WB'S z P RB MVCL20 P EJECT P , P 8 6 P** C H A D R ** D 6 P** ** ~ 6 P** ** 6 P** CHANGE ADDRESS TO
0x3ecf84…3ed118 Dummy {f00=0x0116, f01=0x0190, f02=» ** f 6 P** INPUT : A6=POINTER IN T:ATAB TO T:A ** 6 P** NEWADR1=NEW D.T.-ADDRESS ** J 6 P** NEWAD2= NEW W.B.-ADDRESS ** 6 P** TADISP=DISPLACEMENT TO WB-ADDR ** 6 P** WORK.REGS: A
0x3ed118…3ed2ac Dummy {f00=0x0116, f01=0x0190, f02=» CREDIT-MMUPAG=1 P LDR* A1,A6 T:A-ADDRESS . P AD A1,TADISP,A13 ADDRESS TO W.B.-ADDRESS 8 P LD A2,NEWAD2,A13 j P STR A2,A1 & P SUK A1,2 ADDRESS TO D.T.-ADDRESS P LD A2,NEWAD1,A13 P STR A2,A1 P XIF P IFT CREDIT+MMUP
0x3ed2ac…3ed440 Dummy {f00=0x0116, f01=0x0190, f02=» SUK A1,2 ADDRESS TO D.T.-ADDRESS P LD A2,NEWAD1,A13 * P ESR A2,A1 D P XIF V P IFF CREDIT=0 b P RTN A14 x P XIF P IFT CREDIT+SWPBLK=2 P EJECT B P************************************************************** B P*
0x3ed440…3ed5d4 (4, 170) Dummy {f00=0x0117, f01=0x0190, f02=»* B:RSWT - BUILD REAL SWB CONTROL TABLE * B P* ===================================== * F B P* * B P* REFERENCED IN: SYSLDA
0x3ed5d4…3ed768 Dummy {f00=0x0117, f01=0x0190, f02=»BTAB * ^ B P* A5 - LENGTH OF REAL S:BTAB * B P* * Z B P* EXIT: * B P*
0x3ed768…3ed8fc Dummy {f00=0x0117, f01=0x0190, f02=» * r B P* SUBROUTINES: * ( B P* * n B P************************************************************** P EJECT P
0x3ed8fc…3eda90 Dummy {f00=0x0117, f01=0x0190, f02=» IN APPLICATION z P LDR* A3,A1 NUMBER OF TYPES P RF(Z) RSWBEX NO MOORE < P LDK A6,0 Z P SUK A5,2 SKIP LENGTH WORD l PRSWB10 ADK A1,2 NEXT TYPE P LDR* A4,A1 POINTER TO BLOCK P LCR A6,A4 NUMBER OF COPIES $ P LD A7,SWBLEN,A4
0x3eda90…3edc24 Dummy {f00=0x0117, f01=0x0190, f02=»B IN BYTES r P XIF P IFT CREDIT+SWBMMU=2 & P ST A6,2,A2 STORE NUMBER OF COPIES : , P ST A7,4,A2 STORE LENGTH OF SWB IN BYTES d P XIF P IFT CREDIT+SWPBLK=2 & P SUK A5,6 DECREMENTS S:BTAB LENGTH ( P ADK A2,6 INCREMENT POINTER IN BLO
0x3edc24…3eddb8 Dummy {f00=0x0117, f01=0x018e, f02=»OR EACH SWB TYPE p ( P* AND RESET ALL WORDS IN TID BLOCKS P* D PRSWB20 EQU * N ( P LDR A6,A2 GET ADDRESS TO TID BLOCK b $ P SUR A6,A8 COMPUTE DISPLACEMENT P IFT CREDIT+SWBMMU=2 P LD A1,2,A8 NUMBER OF COPIES P RF(Z) RSWB50 NO C
0x3eddb8…3edf4c Dummy {f00=0x0117, f01=0x0190, f02=» f . P SUK A5,2 DECREMENT LENGTH OF REAL S:BTAB $ P SUK A1,1 DECR. NUMBER OF COPIES : P RB(P) RSWB30 NEXT COPY b P XIF P IFT CREDIT+MMUSWB=3 $ P EL A1,2,A8 GET NUMBER OF COPIES P RF(Z) RSWB50 NO COPIES! * P ESR A6,A8 STORE POINT
0x3edf4c…3ee0e0 Dummy {f00=0x0117, f01=0x0190, f02=»REAL S:BTAB r ( P SUK A1,1 DECREMENT NUMBER OF COPIES P RB(P) RSWB40 NEXT COPY @ P XIF ` P IFT CREDIT+SWPBLK=2 l PRSWB50 ADKL A8,6 P CWR A8,A4 P RB(NE) RSWB20 " P LDR A5,A5 S:BTAB CONSISTENT? P RF(Z) RSWBEX YES P
0x3ee0e0…3ee274 (4, 171) Dummy {f00=0x0117, f01=0x018e, f02=»********************** " P* START OF PROGRAM PART 2.A * " P***************************** D P j P* LOAD BASE ADDRESS * r P********************* P* A5=START-ADDRESS P* A9=P:MTAB ADDRESS P* SAVE03=DDIV TO-ADDRESS P* SA
0x3ee274…3ee408 Dummy {f00=0x0117, f01=0x0190, f02=» ~ " P LDR A8,P LOAD TEMP. STACKBASE ( P ADK A5,2 ADD FOR RELOCATION ROUTINE . P CFR A8,A5 Z P* MOVE DDIV * l P & P LD A1,SAVE04,A13 GET FROM-ADDRESS $ P LD A2,SAVE03,A13 GET TO ADDRESS . P LDR A3,A9 GET P:MTAB START (=END OF DDIV
0x3ee408…3ee59c Dummy {f00=0x0117, f01=0x0190, f02=»OSGMT NO! ( P LDKL A8,0 RESET FSTADR IF SEGMENTS! P RF SEGMTS > 2 PNOSGMT LD A8,SCTSFA ALLOCATE BUFFERS FROM TOP P " PSEGMTS ST A8,FSTADR,A13 STORE PMOVNXT LDR* A4,A1 GET WORD P STR A4,A2 STORE P ADK A1,2 P ADK A2,2
0x3ee59c…3ee730 Dummy {f00=0x0117, f01=0x0190, f02=» MM-TABLE x P " P LDR A1,A9 GET P:MTAB ADDRESS $ P SRL A1,11 ADJUST FOR ADDRESSING @ P ANK A1,/1E h & P LDK A2,MMTAB-2 GET TABLE ADDRESS | P ADR A2,A13 RELOCATE " P ADR A1,A2 P:MTAB START ENTRY P LDKL A4,/FC00 PSYA205 CWR
0x3ee730…3ee8c4 Dummy {f00=0x0117, f01=0x0190, f02=» EQU * P* CHANGE TABLE-ADDRESSES P LD A4,MMFROM,A13 . P LD A5,MMTO,A13 H P ST A4,MMTO,A13 ` P ST A5,MMFROM,A13 x P XIF P IFF CREDIT=0 P ANKL A9,/FFFE EVEN ADDRESS , P ST A9,LSTADR,A13 SAVE END OF FREE AREA P
0x3ee8c4…3eea58 Dummy {f00=0x0117, f01=0x0190, f02=»RENT MM-TABLE z P ADR A3,A13 , P* FIND LAST USED ENTRY IN REAL MMUTAB * * P Z P CALL MMENT b P ST A9,TTAB,A13 v * P ST A1,FYSPAG,A13 SAVE PHYSICALL PAGE * P LD A3,SAVE05,A13 GET LENGTH OF T:ATAB P LDR A5,A3 SAVE * P CALL
0x3eea58…3eebec Dummy {f00=0x0117, f01=0x0190, f02=»SAVE NEW T:ATAB ADDRESS ~ P ADK A2,2 SKIP LENGTH WORD $ P LD A9,SCTLAC GET P:MTAB ADDRESS B $ P ES A2,T:ATAB,A9 STORE IN P:MTAB j $ P* RESERVE PLACE FOR T:AID TABLE P P LDR A3,A5 GET LENGTH P CALL MOVING P TL* MMTO,A13
0x3eebec…3eed80 Dummy {f00=0x0117, f01=0x0190, f02=»ADJUST TABLE ADDRESS P ESR A2,A3 STORE IN P:MTAB P XIF > P IFF CREDIT=0 J ( P LD A3,SAVE06,A13 GET U:BTAB LENGTH ` P LDR A5,A3 SAVE P CALL MOVING RESERVE SPACE 4 P ST A2,U:BTNW,A13 SAVE NEW (REAL) U:BTAB ADDRESS P IFT CREDI
0x3eed80…3eef14 (4, 172) Dummy {f00=0x0117, f01=0x0190, f02=»,SAVE05,A13 GET LENGTH OF T:ATAB P LDR A5,A3 SAVE ( * P CALL MOVING RESERVE SPACE FOR T:ATAB @ " P STR A5,A2 STORE T:ATAB LENGTH n . P ST A2,T:ATNW,A13 SAVE NEW T:ATAB ADDRESS P ADK A2,2 & P ST A2,T:ATAB,A9 SAVE REAL ADDRESS P* RESE
0x3eef14…3ef0a8 Dummy {f00=0x0117, f01=0x018e, f02=»ENGTH-WORD z , P ST A2,T:AID,A9 STORE ADDRESS IN P:MTAB P XIF B P IFT CREDIT+MMUPAG=2 N $ P TL* MMTO,A13 SET CORRECT TABLE j P ESR A5,A2 STORE LENGTH P ADK A2,2 SKIP LENGTH WORD $ P ES A2,U:BTAB,A9 STORE IN P:MTAB P XIF P
0x3ef0a8…3ef23c Dummy {f00=0x0117, f01=0x0190, f02=» f P LDR A5,A3 SAVE P CALL MOVING P ST A2,S:BTNW,A13 4 P XIF N P IFT CREDIT+MMUSWB=3 Z P TL* MMTO,A13 v P ESR A5,A2 P ADK A2,2 P ES A2,S:BTAB,A9 P CALL B:RSWT P XIF P IFT CREDIT+SWBMMU=2 P STR
0x3ef23c…3ef3d0 Dummy {f00=0x0117, f01=0x018e, f02=»AD TABLE | P XIF P IFF CREDIT=0 P EJECT 4 P B P* BUILD COMMON DATA AREA * N P************************** p P* SEARCH CWB'S: P ( P LD A8,T:ATOD,A13 GET T:ATAB ADDRESS P IFT CREDIT-MMUPAG=1 P LDR* A3,A
0x3ef3d0…3ef564 Dummy {f00=0x0117, f01=0x0190, f02=» 0 P ST A3,ENDADD,A13 SAVE END OF T:ATAB ADDRESS PSYA210 EQU * < & P CM UWB,A13 INDICATE CWB-SCANNING P P ADKL A8,2 z P CW A8,ENDADD,A13 ALL DONE? P RF(E) CLADAT YES! $ P CALL T:DADD T:D-ADDRESS TO A12 P IFT CREDIT-MMUPAG=1
0x3ef564…3ef6f8 Dummy {f00=0x0117, f01=0x0190, f02=» P CALL SHIFT SUPER-LOOPA PSYA220 RF(Z) UWBCOM ALL! ( P CALL MOVCOM H P CALL SKIFTA P RB SYA220 p P EJECT P P PUWBCOM EQU * P* SEARCH UWB'S: P* & P IM UWB,A13 INDICATE UWB-SCANNING P
0x3ef6f8…3ef88c Dummy {f00=0x0117, f01=0x0190, f02=» CREDIT=0 P CALL SHIFT " PSYA230 RB(Z) SYA210 ALL DONE! & PSYA235 CALL MOVCOM L PSYA240 CALL SKIFTA f P RB SYA230 P EJECT P * P* TASK CLASS DATA CONFIGURATION PART * * P************************************** P
0x3ef88c…3efa20 Dummy {f00=0x0117, f01=0x0190, f02=»TE CWB x ( P ADKL A8,2 STEP TO NEXT T:A ADDRESS P CW A8,ENDADD,A13 : P RF(E) SYA270 ALL T:A'S DONE T ( P CALL T:DADD GET T:D ADDRESS TO A12 x P P* CALCULATE LENGTH OF T:D P 2 P LD A1,WATLEN,A12 NUMBER OF BYTES-1 IN DBLKTAB
0x3efa20…3efbb4 (4, 173) Dummy {f00=0x0132, f01=0x0190, f02=»NTS n P ADR A3,A12 ADD T:D-ADDRESS P LDR* A3,A3 . 0 0 P LDK A2,STPREC GET STARTPOINTS RECORD LENGTH F P CALL MULT AND MULTIPLY z P ADK A3,2 'NUMBER-WORD' P ADR A3,A1 =>LENGTH P LDR A1,A12 FROM-ADDRESS P CALL MOVING MOVE
0x3efbb4…3efd48 Dummy {f00=0x0132, f01=0x0190, f02=» P IFT CREDIT+MMUPAG=2 ( P* INITIATE MM-ADDRESS TABLE POINTER $ P P $ P LD A1,SCTSFA SHADOW TABLE START X & P AD* A1,SCTSFA ADDRESS TABLE START P ST A1,SAVE06,A13 SAVE " PSYA250 CM UWB,A13 INDICATE CWB ( P ADKL A8,2 STEP TO NEXT T:
0x3efd48…3efedc Dummy {f00=0x0132, f01=0x0190, f02=»E MM-TABLE " P* FILL MM-TABLE ADDRESS TABLE P 8 P LD A1,SAVE06,A13 @ & P ADK A1,2 INCREMENT TABLE POINTER Z P ST A1,SAVE06,A13 RESTORE P STR A2,A1 FILL TABLE ( P CALL T:DADD GET T:D ADDRESS TO A12 4 P ST A12,T:DSAV,A9 SAVE '
0x3efedc…3f0070 Dummy {f00=0x0132, f01=0x0190, f02=» ADK A1,2 P ANKL A1,/FFFE EVEN ADDRESS ( P ADK A1,DWBFST+4 ADD DISPL. TO FIRST 6 , P LDR A3,A1 GET NUMB. OF START-POINTS... b P ADR A3,A12 . P ELR A3,A3 . 0 P LDK A2,STPREC GET STARTPOINTS RECORD LENGTH P CALL MULT AND MULTIPLY
0x3f0070…3f0204 Dummy {f00=0x0132, f01=0x0190, f02=»1,A8 GET T:A ADDRESS * P ES A2,T:DAD,A1 ESORE NEW T:D ADDRESS " P EL A7,CWBMSK,A12 GET CWBMASK J P XIF p P IFF CREDIT=0 | P CALL MOVCLA P EJECT P P P* TASK CLASS DATA UWB'S * P*************************
0x3f0204…3f0398 Dummy {f00=0x0132, f01=0x0190, f02=»DIT+MMUPAG=2 P EL A7,UWBMSK,A12 P XIF . P IFF CREDIT=0 : P CALL MOVCLA P P EJECT d P r P ~ " P* MOVE DT:S OF SWB'S & TWB'S * " P****************************** P PSYA260 EQU * P IFT CREDIT-MMUPAG=1
0x3f0398…3f052c Dummy {f00=0x0132, f01=0x0190, f02=»UPAG=2 P EL A7,SWBMSK,A12 P RF(Z) SYA265 NONE ( P CALL SKRITT B PSYA265 EL A7,TWBMSK,A12 V P XIF v P IFF CREDIT=0 P RB(Z) SYA250 P CALL SKRITT P RB SYA250 P PSYA270 RF PRODAT P EJECT P
0x3f052c…3f06c0 Dummy {f00=0x0132, f01=0x0190, f02=» MOVE D.T ** 4 P** ** 6 4 P*********************************************** n PSKRITT EQU * P CALL SHIFT PNO RF(NZ) NES P RTN A14 PNES CALL GETWB
0x3f06c0…3f0854 (4, 174) Dummy {f00=0x0132, f01=0x0190, f02=» P & P* BUILD TASKDATA PROTOTYPE AREA * & P********************************* : PPRODAT EQU * d P =00001 x , P LD A1,SAVE02,A13 BUGGER TASK INCLUDED? P RF(Z) SYA275 NO! 2 P CALL GETTTB GET TTAB ADDRESS. TID 'TB' IN A1 &
0x3f0854…3f09e8 Dummy {f00=0x0132, f01=0x018e, f02=»E MMU TABLE P XIF P IFF CREDIT=0 , P LDK A3,2 RESERV ONE WORD FOR TRABUG-T:A 6 P CALL MOVING GET P:BAS f P IFT CREDIT-MMUPAG=1 & P LD A1,SCTLAC GET START OF P:MTAB P LD A1,P:BAS,A1 GET P:BAS $ P STR A1,A2 SAVE IN TRABUG'S
0x3f09e8…3f0b7c Dummy {f00=0x0132, f01=0x018e, f02=» 0 P ST A2,TTB:CB,A8 SAVE ADDRESS TO CSB-POINTER PSYA272 EQU * 8 2 P SUKL A2,CSB ADD DISPL. TO CURRENT SEGMENT BAE L P ST A2,TTB:SA+26,A8 SAVE A13 P IFT CREDIT+MMUPAG=2 & P LD A1,SCTLAC GET START OF P:MTAB $ P TL* MMTO,A13 LOAD CORRECT T
0x3f0b7c…3f0d10 Dummy {f00=0x0132, f01=0x0190, f02=» & P TL* MMFROM,A13 RELOAD DDIV TABLE P XIF =00001 . P IFF CREDIT=0 =00001 D PSYA275 EQU * b P =00001 v P =00001 0 P IM SWITCH,A13 INDICATE: -NO MORE D.T. MOVE! $ P LD A8,T:ATOD,A13 T:ATAB ADDRESS PSYA280 ADKL A8,2
0x3f0d10…3f0ea4 Dummy {f00=0x0132, f01=0x0190, f02=»T:DAD,A12 . 0 P CALL TWBSWB MOVE TWB'S & RESERVE FOR SWB'S P H " P* CALCULATE LENGTH OF DSCB'S * T " P*** *** z P P LDR* A1,A8 GET T:A-ADDRESS & P LD A3,DATLEN,A12 A12=T:D-ADDRESS P LDK A2,DSCBL
0x3f0ea4…3f1038 Dummy {f00=0x0132, f01=0x0190, f02=»EMENT r P RF(NZ) SYA285 FCB PRESENT & P SUR A2,A3 MOVD30E A3(DSCB-LENGTH) 0 , P ADKL A2,T:ASTA INCREMENT TO FIRST WORD Z 6 PSYA285 ST A2,CIA,A1 SAVE DISPLACEMENT TO T:A-START " P LD A2,STKB,A1 GET STACK SIZE $ P ST A2,CSE,A1 AND SAVE TEMPORA
0x3f1038…3f11cc Dummy {f00=0x0132, f01=0x0190, f02=»OCATE BUFFERS P CALL MOVT:A MOVE T:A * P STR A2,A8 STORE NEW ADDRESS IN T:ATAB 4 P XIF b P IFT CREDIT+MMUPAG=2 n * P CALL GETTAB SET CORRECT TTAB-ADDRESS , P LD A12,T:DSAV,A2 GET 'OLD' T:D-ADDRESS P 2 P* GET LAST USED ENTRY IN
0x3f11cc…3f1360 Dummy {f00=0x0132, f01=0x0190, f02=»A13 $ P TSR A3 STORE TABLE IN WORK-AREA $ P TL MMDDIV,A13 RELOAD DDIV TABLE 4 P CALL MMENT GET ENTRY " P ST A3,T:DSAV,A2 SAVE IN TTAB z 0 P CALL TWBSWB MOVE TWB'S & RESERVE FOR SWB'S " P* CALCULATE LENGTH OF DSCB'S * " P***
0x3f1360…3f14f4 (4, 175) Dummy {f00=0x0132, f01=0x018e, f02=»H x ( P CALL MULT A3() X (A2) RESULT IN A3 & P ES A3,CSN,A1 SAVE LENG OF DSCB'S 6 ( P EL A2,FCD,A12 GET FCB-DISPLACEMENT ` P RF(NZ) SYA285 FCB PRESENT & P SUR A2,A3 MOVD30E A3(DSCB-LENGTH) , P ADKL A2,T:ASTA INCREMENT TO FIRST WORD 6 P
0x3f14f4…3f1688 Dummy {f00=0x0132, f01=0x0190, f02=» & P LD A2,SCTLAC GET START OF P:MTAB $ P TL* MMTO,A13 LOAD CORRECT TABLE . P EL A2,P:BAS,A2 GET P:BAS V & P TL* MMFROM,A13 RELOAD DDIV TABLE x P ES A2,CSB,A1 AND SAVE " P CALL ALLBUF ALLOCATE BUFFERS P CALL MOVT:A MOVE T:A * P ESR
0x3f1688…3f181c Dummy {f00=0x0132, f01=0x0190, f02=»M FLAG,A13 INDICATE REAL DATA-PART PROCESSING , P* INCLUDE DDIV AND PART 2.A IN FREE AREA 6 P f . P LDKL A2,PART2A NEW (RELATIVE) END ADDRESS n P ADR A2,A13 ABSOLUT DITO P IFT CREDIT+MMUPAG=2 P LDR A3,A2 P ANKL A3,/F000 $ P SRL
0x3f181c…3f19b0 Dummy {f00=0x0132, f01=0x0190, f02=» P* MOVE T:ATAB P * P LD A2,T:ATNW,A13 GET REAL T:A-ADDRESS " P XIF P P IFT CREDIT-MMUPAG=1 * P ST A2,DATEND,A13 SAVE NEW END ADDRESS x P* MOVE T:ATAB P . P LD A2,T:ATNW,A13 GET REAL T:A-TAB ADDRESS P LDR* A1,A2 REAL L
0x3f19b0…3f1b44 Dummy {f00=0x0132, f01=0x0190, f02=»1 MOVE-LENGTH P SUR A2,A3 TO-ADDRESS P ST A2,T:ATOD,A13 SAVE 4 P CALL MOVE R P XIF d P IFT CREDIT+MMUPAG=2 p $ P TL* MMTO,A13 LOAD CORRECT TABLE & P ELR A1,A2 GET REAL T:ATAB LENGTH P TL* MMFROM,A13 RELOAD TABLE P ADR A
0x3f1b44…3f1cd8 Dummy {f00=0x0132, f01=0x0190, f02=» GET LENGTH P SUR A2,A3 TO-ADDRESS P ST A2,T:ATOD,A13 SAVE 2 P CALL XMOVE P P XIF d P IFF CREDIT=0 p P P* CONTINUE IN PART 2.B * P * P LDKL A5,PART2B RELATIVE START ADDRESS P ADR A5,A13 ADD BASE ADDRESS P
0x3f1cd8…3f1e6c Dummy {f00=0x0132, f01=0x0190, f02=»***** h 2 P******* ******* 2 P** ** D 2 P* SYSLOAD PART 1 * z 2 P** ** 2 P*****
0x3f1e6c…3f2000 Dummy {f00=0x0132, f01=0x0190, f02=» 2 P* SHADOW-TABLES * 2 P* * : 2 P********************************************* p P P XIF P P * P************************************* * P***
0x3f2000…3f2194 (4, 176) Dummy {f00=0x0133, f01=0x0190, f02=»********************************* P EJECT * P 8 P D 6 P** C O N V R T ** P 6 P** ** 6 P** ** 6 P** CONVER
0x3f2194…3f2328 Dummy {f00=0x0133, f01=0x018e, f02=» ** r 6 P** OUTPUT: A1=BINARY RESULT ** 6 P** WORK.REGS: A3,A2 ** V 6 P************************************************** P PCONVRT EQU * P LDK A1,0 CLEAR RESULT REG
0x3f2328…3f24bc Dummy {f00=0x0133, f01=0x0190, f02=» P SLL A2,3 . P ADR A1,A2 .... P LDR A3,A5 0 P ANK A3,/F GET ONE'S B P ADR A1,A3 ^ P RTN A14 p P EJECT P 6 P** N X T B L K ** 6 P** ** 6
0x3f24bc…3f2650 Dummy {f00=0x0133, f01=0x0190, f02=» ** ~ 6 P** INPUT: A11=ADDRESS TO CURRENT BLOCK-START ** ( 6 P** OUTPUT:A11=ADDRESS TO NEXT BLOCK ** b 6 P** A2=BLOCK TYPE (T,C,U) IN RIGTH BYTE ** 6 P** WORKREGS: A1,A3-A5 **
0x3f2650…3f27e4 Dummy {f00=0x0133, f01=0x0190, f02=»CLASSES f 2 PNXTCOM EQU * ENTRY: SKIP TO NEXT COMMON-BLOCK P LCR A5,A11 F P SLL A5,8 Z P LC A5,1,A11 l P CALL CONVRT P LDK A2,TDBREC P LDR A3,A1 P CALL MULT P ADR A11,A3 P ADKL A11,2 0 P LCR A5,A11 GET NU
0x3f27e4…3f2978 Dummy {f00=0x0133, f01=0x0190, f02=» P LDR A3,A1 P CALL MULT P ADR A11,A3 A11=NEXT BLOCK ( P ADKL A11,2 J $ P LC A2,TDBBT,A11 GET BLOCK TYPE ^ P RTN A14 P P 8 P** G E T N U M ** 8 P**
0x3f2978…3f2b0c Dummy {f00=0x0133, f01=0x0190, f02=» ** b 8 P** ** 8 P** INPUT : A6=ADDRESS TO FIRST ASCII-CHARACTER ** J 8 P** OUTPUT: A5=BINARY VALUE ** 8 P** WORK.REGS: A2,A4 ** 8 P**********
0x3f2b0c…3f2ca0 Dummy {f00=0x0133, f01=0x0190, f02=»SULT REG ~ P SUK A6,1 INIT POINTER PGET030 ADK A6,1 NEXT DIGIT . P LCR A2,A6 GET CHAR P P ANK A2,/F l PGET050 SUK A2,1 ~ " P RF(N) GET100 THIS DIGIT READY P ADR A5,A4 ACCUMULATE P RB GET050 , PGET100 SUK A4,90 NEXT INCREM
0x3f2ca0…3f2e34 (4, 177) Dummy {f00=0x0134, f01=0x0190, f02=»JECT P P* START OF PROGRAM PART 1 * P 8 4 P* SAVE02=POINTER TO 1:ST USER TASK TTAB-ADDRESS @ $ P* SAVE09=EXECUTION START ADDRESS x P " PSYSLDX EQU *-REL PROGRAM START P* P* INIT A15 STACK P* P LD A15,
0x3f2e34…3f2fc8 Dummy {f00=0x0134, f01=0x0190, f02=»NTIFICATION r P XIF P IFT MMUPAG=1 P TL MMTAB,A13 %%## 6 P EL A2,CREID,A2 P P XIF h 2 P CM SWITCH,A13 RESET SAVE-AREAS USED IN SYSLDM t P CM FLAG,A13 $ P CWK A2,'CR' CREDIT APPLICATION? ( P RF(E) SYA100 YES! START CONFIGURA
0x3f2fc8…3f315c Dummy {f00=0x0134, f01=0x0190, f02=»CONTINUATION ADDRESS P ADR A4,A13 RELOCATE P STR A4,A15 PUT ON STACK 8 P LDKL A4,/00C0 X P STR A4,A15 PUT PSW ON STACK n P RTN A15 PSYA103 EQU *-REL P XIF P IFT MMUPAG-CREDIT=1 ( P LDKL A4,MMTAB GET MM-TABLE ADDRESS
0x3f315c…3f32f0 Dummy {f00=0x0134, f01=0x0190, f02=»ENGTH OF TC:TAB | $ P LD A6,SAVE02,A13 1:ST USER TASK P LDR A3,A6 SAVE @ 0 P SU A3,SCTTCT GET DISPLACEMENT TO 1:ST USER X * P SUR A5,A3 => LENGTH OF TC:TAB TO SCAN P* P* INIT UNUSED MMU ENTRIES P* P LDKL A1,/FC00 P L
0x3f32f0…3f3484 Dummy {f00=0x0134, f01=0x0190, f02=»F(E) SYA105 P SUK A4,2 P STR A1,A4 & P RB SYA:10 8 PSYA105 SUK A5,2 ALL? J P RF(N) SYA107 YES! f P LDR* A2,A6 TTAB-ADDRESS P CALL MOVMMT MOVE MM-TABLE P ADK A6,2 NEXT TTAB P RB SYA105 PSYA107 EQU * P XIF
0x3f3484…3f3618 Dummy {f00=0x0134, f01=0x0190, f02=»D A2,SCTLAC ADD RELOCATION ADDRESS P LDK A3,0 SEGMENT NUMBER * P CF A15,ACTOT QUEUE TASK J " P LDKL A1,FINISH END OF SYSLDA j P ADR A1,A13 P ABR A1 P XIF PSYA100 EQU * P IFF CREDIT=0 P EJECT P , P* RE
0x3f3618…3f37ac Dummy {f00=0x0134, f01=0x018e, f02=» LD* A2,SCTLAC GET START OF P:MTAB $ P LD A12,T:ATAB,A2 T:ATAB ADDRESS * & P SUKL A12,2 ADJUST FOR LENGTH-WORD R P ST A12,T:ATOD,A13 SAVE | , P LD A4,U:BTAB,A2 GET U:BTAB FROM P:MTAB " P SUK A4,2 INCLUDE LENGTH-WORD $ P ST A4,U:BTOD,A13 SAVE
0x3f37ac…3f3940 Dummy {f00=0x0134, f01=0x0190, f02=» n P ST A4,S:BTOD,A13 SAVE P XIF & P IFT CREDIT-MMUPAG=1 2 P* T:ATAB PROCESSING: N P j P LDR* A4,A12 T:ATAB-LENGTH v P LDR A3,A4 SAVE * P AD A3,SCTSFA ADD MONITOR END ADDRESS P* CHECK ADDRESSES P " P LDR A11
0x3f3940…3f3ad4 (4, 178) Dummy {f00=0x0134, f01=0x0190, f02=»RFLOW x P CALL ERROR ( PSYA110 LDR A9,A2 GET P:MTAB ADDRESS " P LDK A2,0 N P* CLEAR T:ATAB SHADOW-TABLE: ` P PZERO SUK A3,2 NEXT P STR A2,A3 CLEAR P CW A3,SCTSFA ALL? P RB(NE) ZERO NO! " P STR A4,A3 STORE TAB
0x3f3ad4…3f3c68 Dummy {f00=0x0134, f01=0x0190, f02=» SYA120 OK! P LDK A1,LMP4 NO TASK PRESENT P CALL ERROR 8 ( PSYA120 LC A2,TDBMC+4,A11 GET TASK ID L P SLL A2,8 . x P LC A2,TDBMC+5,A11 ... P CWK A2,'TB' BUGGER TASK? P RF(NE) SYA125 NO! : P ST A2,SAVE02,A13 INDICATE BUGGER
0x3f3c68…3f3dfc Dummy {f00=0x0134, f01=0x0190, f02=» ADKL A8,2 NEXT T:A P LDR* A6,A8 GET T:A ADDRESS P SUK A4,2 @ P RF(NZ) SYA135 R 0 P LDK A1,LMP5 NO PROTOTYPE FOUND (TID ERROR) h P CALL ERROR PSYA135 EQU * P CW A2,T:ATID,A6 TID EQUAL? P RB(NE) SYA130 NO! P SUR*
0x3f3dfc…3f3f90 Dummy {f00=0x0134, f01=0x0190, f02=»DDRESS v $ P SUKL A12,2 INCLUDE LENGTH WORD ! & P ST A12,T:ATOD,A13 SAVE IN SYSLDA ! 6 $ P EL A4,U:BTAB,A2 U:BTAB ADDRESS ! ` $ P SUK A4,2 ADJUST FOR LENGTH WORD ! $ P ST A4,U:BTOD,A13 SAVE IN SYSLDA ! P XIF ! P IFT CREDIT+MMUSWB=3 ! ( P EL A4,S
0x3f3f90…3f4124 Dummy {f00=0x0134, f01=0x0190, f02=»=2 ! ~ P* T:ATAB PROCESSING: " P " & P ELR A4,A12 T:ATAB-LENGTH " 2 P LDR A3,A4 SAVE " T 0 P SLL A3,1 RESERVE FOR MM-TABLE ADDRESS TABLE " l * P AD A3,SCTSFA ADD MONITOR END ADDRESS " P* CHECK ADDRESSES " P " $ P LDR A11,A3 END OF SHADO
0x3f4124…3f42b8 Dummy {f00=0x0134, f01=0x0190, f02=» CALL ERROR " ( PSYA110 LDR A9,A2 GET P:MTAB ADDRESS # P* CLEAR T:ATAB SHADOW-TABLE: # @ P # d PSYA115 SUK A3,2 NEXT # p P CMR A3 CLEAR # P CW A3,SCTSFA ALL? # P RB(NE) SYA115 NO! # " P STR A4,A3 STORE TABLE LENGTH # ( P LD A11,SAVE
0x3f42b8…3f444c Dummy {f00=0x0134, f01=0x0190, f02=»P4 NO TASK PRESENT # P CALL ERROR $ ( PSYA120 LC A2,TDBMC+4,A11 GET TASK ID $ . P SLL A2,8 . $ Z P LC A2,TDBMC+5,A11 ... $ n P CWK A2,'TB' BUGGER TASK? $ P RF(NE) SYA125 NO! $ 4 P ST A2,SAVE02,A13 INDICATE 'BUGGER TASK PRESENT' $ P RF SYA1
0x3f444c…3f45e0 Dummy {f00=0x0134, f01=0x0190, f02=»ET T:A ADDRESS $ P SUK A4,2 % P RF(NZ) SYA135 % ( , P LDK A1,LMP5 NO PROT. FOUND (TID ERROR) % > P CALL ERROR % n PSYA135 EQU * % P EL A10,T:ATID,A6 GET TID % P CWR A2,A10 TID EQUAL? % P RB(NE) SYA130 NO! % P ELR A10,A12 % P SUR
0x3f45e0…3f4774 (4, 179) Dummy {f00=0x0134, f01=0x0190, f02=»UMBER OF TASKS % z P SLL A5,8 & P LC A5,TDBNT+1,A11 & ( P CALL CONVRT & B ( P LD A2,SCTSFA START OF SHADOW TABLE & V P ADR A2,A4 & 6 P ADRS A1,A2 STORE NUMBER OF TASKS IN SHADOW TABLE & P & P* SKIP TO NEXT BLOCK & P & PSYA136
0x3f4774…3f4908 Dummy {f00=0x0134, f01=0x0190, f02=» & * P ADKL A11,1 STEP TO NUMBER OF COM.DEV. ' P CALL NXTCOM SKIP COMMON DEF ' 6 PSYA140 CCK A2,'UU' ' Z P RF(NE) SYA141 NO UWB'S ' t 2 P LD A8,U:BTOD,A13 GET MODIFIED U:BTAB ADDRESS ' 6 P CALL USWBTP INSERT NUMBER OF COPIES IN PROTOTYPE ' PSYA1
0x3f4908…3f4a9c Dummy {f00=0x0134, f01=0x0190, f02=» ' ~ P CALL USWBTP ( P XIF ( P IFT CREDIT=1 ( ( P RF SYA152 ( > P EJECT ( P L P*********************************************************************** ( ^ L P* * ( L P* USWBTP
0x3f4a9c…3f4c30 Dummy {f00=0x0134, f01=0x0190, f02=»== * ( N L P* * ) L P* REFERENCED IN: SYSLDA * ) ^ L P* * ) L P* ENTRY:
0x3f4c30…3f4dc4 Dummy {f00=0x0134, f01=0x0190, f02=» * ) N L P* * * L P* EXIT: * * ^ L P* * * L P* WORK RE
0x3f4dc4…3f4f58 Dummy {f00=0x0134, f01=0x0190, f02=» * * N L P* SUBROUTINES: GETNUM,ERROR * + L P* * + ^ L P*********************************************************************** + P + PUS
0x3f4f58…3f50ec Dummy {f00=0x0134, f01=0x018e, f02=»T IN A5 + r $ P LDR A1,A5 SAVE NUMBER OF UWB'S , PSYA142 EQU * , 8 P LDR A12,A8 , L " P LDR* A3,A12 LENGTH OF U:BTAB , ` ( P ADKL A11,UDBFST-1 FIRST UDB RECORD , PSYA145 EQU * , 0 P LCR A2,A11 GET FIRST CHARACTER FROM CONFIG , P SLL A2,8 ,
0x3f50ec…3f5280 Dummy {f00=0x0134, f01=0x0190, f02=» , h 0 PSYA147 SUK A3,UP:REC DEC. NUMBER OF PROT.'S - P RF(NN) SYA150 - < P LDK A1,LMP6 UWB NOT FOUND - R P CALL ERROR - t PSYA150 EQU * - ( P ADKL A12,UP:REC ADD TO NEXT RECORD - P RB SYA145 - $ PFRSTOK LC A2,2,A11 GET 3:RD CHAR - P CC A2
0x3f5280…3f5414 (4, 180) Dummy {f00=0x0134, f01=0x0190, f02=»P TO 'NUMBER OF BOCKS' IN CONFIG - | P LDR A6,A11 . ( P CALL GETNUM CONVERT . < 2 P SC A5,UPNUMB,A12 SAVE IN U:BTAB (SHADOWTABLE) . X . P SUK A1,1 DEC. NO OF TYPES IN CONFIG FILE . P RB(P) SYA142 . P ADKL A11,UDBFST-1 . P RTN A14 . P XIF .
0x3f5414…3f55a8 Dummy {f00=0x0134, f01=0x0190, f02=»MBER OF UWB'S . ~ PSYA142 EQU * / P LDR A12,A8 START OF TABLE / * P ELR A3,A12 LENGTH OF U:BTAB / L ( P ADKL A11,UDBFST-1 FIRST UDB RECORD / p PSYA145 EQU * / 0 P LCR A2,A11 GET FIRST CHARACTER FROM CONFIG / P SLL A2,8 / P LC A2,1,A11 GET 2
0x3f55a8…3f573c Dummy {f00=0x0134, f01=0x0190, f02=» A3,UP:REC DEC. NUMBER OF PROT.'S / P RF(NN) SYA150 0 * P LDK A1,LMP6 UWB NOT FOUND 0 @ P CALL ERROR 0 b PSYA150 EQU * 0 v ( P ADKL A12,UP:REC ADD TO NEXT RECORD 0 P RB SYA145 0 2 PFRSTOK LC A10,2,A11 GET 3:RD CHAR FROM CONFIG 0 0 P EL A2,UPN
0x3f573c…3f58d0 Dummy {f00=0x0134, f01=0x0190, f02=» 0 P 1 P* PROTOTYPE FOUND * 1 P******************* 1 0 P 1 L 8 P ADKL A11,NAMUWB SKIP TO 'NUMBER OF BOCKS' IN CONFIG 1 X P LDR A6,A11 1 P CALL GETNUM CONVERT 1 4 P EL A10,UPNUMB-1,A12 SAVE IN U:BTAB SHADOW-TABLE 1 P ANKL A10,/F
0x3f58d0…3f5a64 Dummy {f00=0x0134, f01=0x0190, f02=»L A11,UDBFST-1 1 P RTN A14 2 P XIF 2 & P IFT CREDIT=1 2 2 P EJECT 2 H PSYA152 EQU * 2 V P 2 j & P* GET START OF SYSLOAD AFTER MOVE 2 r P 2 P XIF 2 P IFT CREDIT-MMUPAG=1 2 , P LD* A7,T:ATOD,A13 GET LENGTH OF T:ATAB 2 P XIF 2
0x3f5a64…3f5bf8 Dummy {f00=0x0134, f01=0x0190, f02=»FF CREDIT=0 2 0 P AD A7,SCTSFA TO-ADDRESS (AFTER SHADOW-TABLE 3 P ADK A7,1 3 H P ANKL A7,/FFFE EVEN ADDRESS 3 Z P 3 ~ P* CALCULATE RELOCATION 3 P 3 P LDR A2,A13 3 $ P SUR A2,A7 MOVE-LENGTH (SYSLDA) 3 P NGR A2,A2 3 4 P ST A2,SAVE04,
0x3f5bf8…3f5d8c Dummy {f00=0x0134, f01=0x0190, f02=»DRESS (SYSLDA) 3 P ANKL A2,/F000 FIRST PAGE 4 ( P ST A2,MMREL1,A13 SAVE PHYSICAL PAGE 4 8 " P SRL A2,2 SHIFT FOR MM-PAGING 4 d P LDKL A11,MMDDIV 4 . P ADR A11,A13 GET MM-TABLE START ADDRESSS= 4 P LDK A3,16 SET COUNTER 4 ( PSYA157 STR A2,A11 STOR
0x3f5d8c…3f5f20 Dummy {f00=0x0134, f01=0x0190, f02=» ANKL A7,/FFF GET DISPLACEM. IN PAGE 4 P XIF 5 , P IFF CREDIT=0 5 8 0 P ST A7,SAVE12,A13 SAVE (LOGICAL) TO-ADDRESS 5 N . P ADKL A7,LENGT2 ADD LEN. OF SYSLDA TO MOVE 5 , P ST A7,SAVE03,A13 SAVE NEW DDIV ADDRESS 5 P LDR A6,A7 5 $ P* CALCULATE DDIV
0x3f5f20…3f60b4 (4, 181) Dummy {f00=0x0135, f01=0x0190, f02=»F P:MTAB 5 v P IFT CREDIT-MMUPAG=1 6 ( P LD A3,NUMSEG,A1 NUMBER OF SEGMENTS 6 , P XIF 6 X P IFT CREDIT+MMUPAG=2 6 d ( P EL A3,NUMSEG,A1 NUMBER OF SEGMENTS 6 P XIF 6 P IFF CREDIT=0 6 . P LDK A2,SEGREC SEGMENT BLOCK RECORD LENGTH 6 P CALL MU
0x3f60b4…3f6248 Dummy {f00=0x0135, f01=0x0190, f02=»L,A13 AND ADJUST RELOCATION BASE 6 P IFT CREDIT+MMUPAG=2 7 ( P 7 D . P ST A1,SAVE04,A13 SAVE DDIV 'FROM'-ADDRESS 7 L P XIF 7 ~ P IFT CREDIT-MMUPAG=1 7 , P ST A1,SAVE04,A13 SAVE DDIV FROM-ADDRESS 7 P XIF 7 P IFF CREDIT=0 7 " P SUR A6,A1 RELOC
0x3f6248…3f63dc Dummy {f00=0x0135, f01=0x0190, f02=»L (=REAL) LENGTH * 7 . P* REMOVE NOT USED ENTRIES IN T:ATAB * 8 " . P* A9=P:MTAB A6=MOVE-RELOC * 8 T . P***************************************** 8 P IFT CREDIT-MMUPAG=1 8 P 8 P* INITIATE POINTERS 8 P 8 ( P LD A8,T
0x3f63dc…3f6570 Dummy {f00=0x0135, f01=0x0190, f02=»CTSFA GET START OF T:ATAB SHADOW-TAB 8 P LDR A4,A5 2:ND POINTER 9 , & P LDR A2,A8 2:ND POINTER IN T:ATAB 9 L & P LDK A3,2 SET 'NEW' T:ATAB COUNTER 9 v . P SUR A11,A11 CLEAR REAL LENGTH ACCUMULATOR 9 P 9 P* SCAN T:ATAB: 9 P 9 " PSYA160 ADKL A8,2
0x3f6570…3f6704 Dummy {f00=0x0135, f01=0x018e, f02=»A 9 ~ * P LDR* A7,A5 GET CONTENTS OF SHADOW-TAB : , P RB(Z) SYA160 THIS T:A IS NOT USED!!!!! : 8 " P ADR A11,A7 ACCUMULATE LENGTH : h , P ADK A3,2 INCREMENT 'NEW' T:ATAB LENGTH : , P ADK A4,2 UPDATE 2:ND SHADOW-TAB ADDRESS : ( P ADK A2,2 UPDATE 2:ND T:AT
0x3f6704…3f6898 Dummy {f00=0x0135, f01=0x018e, f02=» : z . P STR A10,A2 STORE ADDR. (EV. ON NEW PLACE) ; P* RELOCATE W.B.-ADDRESSES ; : P ; $ P LD A12,T:DAD,A1 GET T:D-ADDRESS ; d $ P LD A7,WATLEN,A12 LENGTH OF WAT ; . P ADK A1,WATFST+2 ADD TO FIRST W.B.-ADDRESS ; PSYA165 SUK A7,1 DEC. COUNTER ;
0x3f6898…3f6a2c Dummy {f00=0x0135, f01=0x0190, f02=» ; z P < P LD A8,T:ATOD,A13 T:ATAB < P ELR A3,A8 GET LENGTH < 0 P ADR A3,A8 END OF T:ATAB < N P ST A3,ENDADD,A13 SAVE < n 0 P LD A5,SCTSFA GET START OF T:ATAB SHADOW-TAB < P LDR A4,A5 2:ND POINTER < & P LDR A2,A8 2:ND POINTER IN T:ATAB < &
0x3f6a2c…3f6bc0 Dummy {f00=0x0135, f01=0x0190, f02=»60 ADKL A8,2 TAKE NEXT T:A < $ P ADK A5,2 NEXT T:A IN SHADOW-TAB = " P CW A8,ENDADD,A13 = J P RF(E) SYA170 ALL DONE = d P ELR A1,A8 GET T:A = * P LDR* A7,A5 GET CONTENTS OF SHADOW-TAB = , P RB(Z) SYA160 THIS T:A IS NOT USED!!!!! = " P ADR A11,A7 AC
0x3f6bc0…3f6d54 (4, 182) Dummy {f00=0x0135, f01=0x0190, f02=» 2:ND T:ATAB ADDRESS = 8 P STR A7,A4 STORE NUMBER OF T:A'S (EV. ON NEW PLACE) > P ELR A10,A8 GET T:A-ADDRESS > X P ADR A10,A6 RELOCATE > | . P ESR A10,A2 STORE ADDR. (EV. ON NEW PLACE) > P* RELOCATE W.B.-ADDRESSES > P > $ P EL A12,T:DAD,A1 GET
0x3f6d54…3f6ee8 Dummy {f00=0x0135, f01=0x0190, f02=»ER > v P RB(N) SYA160 TAKE NEXT T:A ? P ELR A10,A1 GET ADDRESS ? . P ADR A10,A6 RELOCATE ? N P ESR A10,A1 ? j P XIF ? ~ P IFF CREDIT=0 ? P ADK A1,4 NEXT W.B. ? P RB SYA165 ? P ? PSYA170 EQU * ? P ST A6,MOVADD,A13 SAVE ? 8 P
0x3f6ee8…3f707c Dummy {f00=0x0135, f01=0x0190, f02=» P IFT CREDIT-MMUPAG=1 @ $ P ST* A3,T:ATOD,A13 AND IN T:ATAB @ P XIF @ H P IFF CREDIT=0 @ T 0 P LDR A2,A11 GET NUMBER OF T:A'S ACCUMULATOR @ j ( P SLL A2,1 CALC. REAL LENGTH (BYTES) @ P ADK A2,2 @ 0 P ST A2,SAVE05,A13 SAVE TOT. NUMBER OF T:A'S
0x3f707c…3f7210 Dummy {f00=0x0135, f01=0x0190, f02=» LEN.) * @ x $ P******************************** A P A 8 P IFT CREDIT-MMUPAG=1 A @ $ P LD A5,U:BTOD,A13 U:BTAB ADDRESS A P LDR* A3,A5 LENGTH A P ST A3,SAVE06,A13 A P ADK A5,2 SKIP LENGTH WORD A P SUK A3,2 -"- A " PSYA180 RF(Z) SYA185 AL
0x3f7210…3f73a4 Dummy {f00=0x0135, f01=0x0190, f02=»ABLE LENGTH A , P ST A3,SAVE06,A13 SAVE LENGTH OF U:BTAB B P ADK A5,2 B D P SUK A3,2 SUB LENGTH-WORD B V PSYA180 RF(Z) SYA185 B x P ELR A10,A5 GET ADDRESS B P ADR A10,A6 RELOCATE B P ESR A10,A5 B P XIF B P IFF CREDIT=0 B 8 P A
0x3f73a4…3f7538 Dummy {f00=0x0135, f01=0x0190, f02=» CREDIT+MMUSWB=3 B P* C $ P* COMPUTE REAL LENGTH OF S:BTAB C " P* C J $ P LD A5,S:BTOD,A13 S:BTAB ADDRESS C T " P ELR A3,A5 LENGTH OF PROTOTYPE C | P LDR A2,A3 SAVE C " P SUK A3,2 EXCLUDE LENGTH WORD C , PSYA190 RF(Z) SYA199 ALL RECORDS SCANNED!
0x3f7538…3f76cc Dummy {f00=0x0135, f01=0x0190, f02=»BER OF COPIES C v P ANK A4,/FF GET RIGHT BYTE D . PSYA192 RF(Z) SYA194 NO MOORE OF THIS TYPE! D 8 P ADK A2,2 INCREMENT LENGTH D j ( P SUK A4,1 DECREMENT NUMBER OF COPIES D P RB SYA192 D 8 PSYA194 ADK A5,UP:REC NEXT RECORD IN S:BTAB PROTOTYPE D $ P S
0x3f76cc…3f7860 Dummy {f00=0x0135, f01=0x0190, f02=» LDR* A3,A5 LENGTH OF S:BTAB PROTOTYPE D P LDR A2,A3 SAVE E . " P SUK A3,2 EXCLUDE LENGTH WORD E F , PSYA195 RF(Z) SYA199 ALL RECORDS SCANNED! E l $ P LD A4,2,A5 GET PROT. W.B.-ADDR. E P ADR A4,A6 RELOCATE E P ST A4,2,A5 STORE IT BACK E , P LD A4
0x3f7860…3f79f4 (4, 183) Dummy {f00=0x0135, f01=0x0190, f02=»TH E x ( P SUK A4,1 DECREMENT NUMBER OF COPIES F P RB SYA196 F 6 8 PSYA198 ADK A5,UP:REC NEXT RECORD IN S:BTAB PROTOTYPE F H $ P SUK A3,UP:REC DECREMENT LENGTH F P RB SYA195 F P XIF F P IFT CREDIT+SWPBLK=2 F 0 PSYA199 ST A2,SAVE25,A13 SAVE COMPU
0x3f79f4…3f7b88 Dummy {f00=0x0135, f01=0x0190, f02=» F P ADS A6,T:ATOD,A13 G P ADS A6,U:BTOD,A13 G " P IFT CREDIT+SWPBLK=2 G < P ADS A6,S:BTOD,A13 G X P XIF G r P IFT CREDIT-MMUPAG=1 G ~ P* CALCULATE NEW DDIV END G P G P LDR A5,A9 G P SU A5,SAVE04,A13 END-START G $ P AD A5,SAVE12,A1
0x3f7b88…3f7d1c Dummy {f00=0x0135, f01=0x0190, f02=» G v P H P LDK A4,MMDDIV H " P ADR A4,A13 GET TABLE ADDRESS H & & P LDR A5,A13 CALC. REAL RELOCATION H L P SU A5,SAVE12,A13 H v P SU A5,MMREL1,A13 H P SUR A4,A5 RELOCATE H P ST A4,MMTO,A13 AND SAVE H P LDK A4,MMTAB H $ P ADR A4,A13
0x3f7d1c…3f7eb0 Dummy {f00=0x0135, f01=0x0190, f02=»D H ~ P SU A5,SAVE04,A13 ENT-START I $ P AD A5,SAVE12,A13 ADD NEW START I . P LDR A6,A5 I V 0 P ANKL A6,/F000 GET LOGICALL PAGE (MM-ENTRY) I h $ P SRL A6,11 ADJUST FOR ADDRESSING I . P ADK A6,MMDDIV ADD RELATIVE START ADDRESS I P ADR A6,A13 RELOCA
0x3f7eb0…3f8044 Dummy {f00=0x0135, f01=0x0190, f02=»3 AND SAVE I P XIF J P IFF CREDIT=0 J P* CONTINUE IN PART 2 * J 4 P J R . P LD A2,SAVE12,A13 GET TO-ADDRESS (SYSLDA) J ^ ( P OR A2,MMREL1,A13 PHYSICALL ADDRESS J P LDR A5,A2 SAVE J 0 P LDKL A7,START2 GET EXECUTION START ADDRESS J P
0x3f8044…3f81d8 Dummy {f00=0x0135, f01=0x0190, f02=»DIT-MMUPAG=1 J PNXTMOV LDR* A4,A1 GET WORD K P STR A4,A2 STORE WORD K 6 P ADK A1,2 K T P ADK A2,2 K f P SUK A3,2 DEC. LENGTH K x P RB(NN) NXTMOV K P XIF K P IFT CREDIT+MMUPAG=2 K P MVB A3 K P XIF K P IFF CREDIT=0 K P K
0x3f81d8…3f836c Dummy {f00=0x0135, f01=0x403c, f02=»ITOR K t P XIF L PLDAEND EQU * L P END L ,@ L 84,A2 STORE WORD K 6 P ADK A1,2 K T P ADK A2,2 K f P SUK A3,2 DEC. LENGTH K x P RB(NN) NXTMOV K P XIF K P IFT CREDIT+MMUPAG=2 K P MVB A3 K P XIF K P IFF CREDIT=0 K P K
0x3f836c…3f8500 Dummy {f00=0x0135, f01=0x2008, f02=» M -ADDRESS w v PHINKAS SUK A1,1 DEC. COUNTER x P RB(N) HINKA TAKE NEXT T:A x < P ADRS A6,A2 RELOCATE x ^ P ADK A2,4 NEXT W.B. x z P RB HINKAS x P x PSTICK EQU * x P* CONTINUE IN PART 2 * x P x P LDKL A1,START2 x " P A
0x3f8500…3f8694 (4, 184) Dummy {f00=0x0135, f01=0x0000, f02=»
[…0x7…]
0x3f91a0…3f9334 (4, 185) Opaque[0x194]
0x3f9334…3f94c8 # DirEnt {nam=»LDTASK«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x22f8, f03=0x0000}
0x3f9334…3f94c8 IdxSect {
0x3f9334…3f94c8 f00 = 0x0117 // 0x3f9334 @0x0
0x3f9334…3f94c8 f01 = 0x000c // 0x3f9336 @0x2
0x3f9334…3f94c8 gno = [ // 0x3f9338 @0x4
0x3f9334…3f94c8 [0x00]: C0x0117.0x3.0
0x3f9334…3f94c8 [0x01]: C0x0118.0x0.0
0x3f9334…3f94c8 [0x02]: C0x0118.0x1.0
0x3f9334…3f94c8 [0x03]: C0x0118.0x2.0
0x3f9334…3f94c8 [0x04]: C0x0118.0x3.0
0x3f9334…3f94c8 [0x05]: C0x0119.0x0.0
0x3f9334…3f94c8 ]
0x3f9334…3f94c8 }
0x3f94c8…3f965c Dummy {f00=0x0117, f01=0x0190, f02=» 2 P IDENT LDTASK REL 10.0 80-03-14 870105041000 P : P* B 6 P************************************************** L P* $ P* PHILIPS TERMINAL SYSTEM PTS P* P* LDTASK = LOAD TASK P* P* P* P* 6 P
0x3f965c…3f97f0 Dummy {f00=0x0117, f01=0x0190, f02=» MEMORY MANAGEMENT SYSTEMS. P* $ & P* IT CONTAINS TWO ENTRY POINTS: . P* X . P* - LT:DSK USED IN DISC PAGING SYSTEMS b 8 P* - LT:SWB USED IN SWAPPABLE WORK BLOCK SYSTEMS P* P* P EJECT LDTASK P* P*
0x3f97f0…3f9984 Dummy {f00=0x0117, f01=0x0190, f02=»T:SWB SWAPPABLE WORK BLOCK ENTRY P ENTRY TTABLD LOAD TASK TTAB ( 2 P ENTRY QLTDSK ACTIVATE LDTASK AT ENTRY LT:DSK L 2 P ENTRY QLTSWB ACTIVATE LDTASK AT ENTRY LT:SWB " P ENTRY QLTASK ACTIVATE LDTASK " P ENTRY LD:ECB LDTASK ECB AREA P ENT
0x3f9984…3f9b18 Dummy {f00=0x0117, f01=0x0190, f02=»CK BASE x P EJECT LDTASK P* ( P* 2 P************* < P* EXTERNALS * R P************* h P* ~ P* " P EXTRN TLDS15 ENTRY IN TLDSEG " P EXTRN TLDS20 ENTRY IN TLDSEG 2 P EXTRN QMEXIT QUEUE TASK AND EXIT MONITOR
0x3f9b18…3f9cac Dummy {f00=0x0117, f01=0x0190, f02=» EXTRN PAGQUE FREE PAGE QUEUE & P EXTRN PAG:QB QUEUE LINK BACKWARDS & P EXTRN PAG:PA PAGE ADDRESS P ( P EXTRN PAG:SB SEGMENT BLOCK ADDRESS r P EXTRN SEG:FC FILE CODE & P EXTRN SEG:DS DISC SECTOR ADDRESS P EXTRN SEG:EL SEGMENT LENGTH
0x3f9cac…3f9e40 Dummy {f00=0x0117, f01=0x0190, f02=» & P EXTRN SWB:NS SWB LENGTH (SECTORS) $ P EXTRN ECBBA ECB BUFFER ADDRESS . & P EXTRN ECBRL ECB REQUESTED LENGTH V & P EXTRN ECBEL ECB EFFECTIVE LENGTH P EXTRN ECBRC ECB RETURN CODE $ P EXTRN ECBCW1 ECB CONTROL WORD 1 $ P EXTRN ECBCW2 ECB
0x3f9e40…3f9fd4 (4, 186) Dummy {f00=0x0118, f01=0x018e, f02=»RN TTB:SP SEGTAB ADDRESS P* P EJECT LDTASK * P* B P* L ( P EXTRN SCTIPL PROGRAM LOADING DEVICE V . P EXTRN SCTIOE APPLICATION RESTART ADDRESS P EXTRN SCTPSZ PAGE SIZE * P EXTRN SCTLAP LOGICAL ADDRESS OF PAGES P EJECT
0x3f9fd4…3fa168 Dummy {f00=0x0118, 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
0x3fa168…3fa2fc Dummy {f00=0x0118, f01=0x018e, f02=»SS SWAPPABLE WORK p 2 P* BLOCKS IS OBTAINED BY SETTING SWPBLK EQU 1. P* P PSWPBLK EQU 0 Z P* n P EJECT LDTASK x P* " P* LDTASK ECB AND BUFFER AREAS P* . PLD:ECB DATA 0,0,0,0,0,0,0 LDTASK ECB AREA P* 4 PLD
0x3fa2fc…3fa490 Dummy {f00=0x0118, f01=0x0190, f02=» ( PLD:STB EQU *-2 LOAD TASK STACK BASE P* 0 P EJECT LDTASK : P* R P* TTABLD (LOAD TASK TTAB) P* ~ P IFT MMUPAG=1 P RES 16 LDTASK MMU TABLE P XIF P* P DATA 0 CURRENT SEGMENT BASE ( PPQEMTY DATA 0 PA
0x3fa490…3fa624 Dummy {f00=0x0118, f01=0x0190, f02=»INK v " P DATA '#L' TASK IDENTIFICATION P DATA 49 PRIORITY LEVEL 2 P DATA 0 PENDING POINTER R * P DATA /C4C0 PSW (PROGRAM STATUS WORD) r P DATA 0 DISPATCH ADDRESS 2 P DATA 0,0,0,0,0,0,0 REGISTER SAVE AREA, A1-A14 P DATA 0,0,0,0,0,0,
0x3fa624…3fa7b8 Dummy {f00=0x0118, f01=0x0190, f02=»********** P* P* D P* LT:DSK PERFORMS LOADING OF DISC RESIDENT SEGMENTS INTO CORE. & P* n * P* INPUT: A1 = SEGMENT BLOCK ADDRESS x 2 P* A3 = TTAB ADDRESS OF CALLING TASK P* P* * PLT:DSK EQU * LDTASK DISC
0x3fa7b8…3fa94c Dummy {f00=0x0118, f01=0x0190, f02=»OR CALLING TASK (IF MMU) AND | P* REMOVE PAGE FROM PAGQUE $ P* F P LDR A7,A3 SAVE A3 P P LDR A5,A3 j P INH | P CF A15,TLDS15 , P LDR A5,A7 TTAB ADDRESS OF CALLING TASK * P ABL QMEXIT QUEUE TASK AND EXIT LDTASK P* P E
0x3fa94c…3faae0 Dummy {f00=0x0118, f01=0x0190, f02=»* PLTD:00 EQU * ( P IM PQEMTY INDICATE PAGE QUEUE EMPTY P LKM J P DATA 5 PAUSE LDTASK V P* r " P* TAKE FIRST PAGE FROM PAGQUE | P* PLTD:05 EQU * P LD A2,PAGQUE+2 P CWK A2,PAGQUE $ P RB(E) LTD:00 NO PAGE AVAI
0x3faae0…3fac74 (4, 187) Dummy {f00=0x0118, f01=0x0190, f02=» ADDRESS TO NEXT PAGE BLOCK ( P ST A4,PAGQUE+2 UPDATE QUEUE ANCHOR $ P LDR* A5,A2 PAGQUE ADDRESS P 4 P STR A5,A4 UPDATE QUEUE LINK FORWARD NEXT BLOCK r 0 P CMR A2 RESET QUEUE LINK FORWARD THIS BLOCK , P LDKL A6,/4000 SEGMENT UNDER LOADING BIT
0x3fac74…3fae08 Dummy {f00=0x0118, f01=0x0190, f02=» . P ORRS A6,A1 INDICATE SEGMENT UNDER LOADING 0 P ST A2,SEG:PB,A1 SET NEW PAGE BLOCK ADDRESS 6 2 P ST A1,PAG:SB,A2 SET NEW SEGMENT BLOCK ADDRESS j P* P IFT MMUPAG=1 P* 2 P* UPDATE MMU TABLE FOR CALLING TASK AND LDTASK P* (
0x3fae08…3faf9c Dummy {f00=0x0118, f01=0x018e, f02=»TASK l , P TS TTB:MT,A5 STORE IN LDTASK MMU TABLE 2 P LD A1,TTB:CB,A3 CURRENT SEGMENT BASE ADDRESS < P ST A1,TTB:CB,A5 r P LDR A1,A2 & P LDR A3,A5 TTAB ADDRESS OF LDTASK . P CF A15,TLDS20 UPDATE MMU TABLE FOR LDTASK 6 P TS TTB:MT,A3 ST
0x3faf9c…3fb130 Dummy {f00=0x0118, f01=0x0190, f02=» P* P ENB P LD A4,SCTPSZ PAGE SIZE & P SRL A4,1 CONVERT LENGTH TO WORDS : $ P LD A6,SEG:EL,A1 SEGMENT LENGTH d & P SRL A6,1 CONVERT LENGTH TO WORDS , P LDR A5,A3 TTAB ADDRESS OF CALLING TASK * P LDR A9,A1 SAVE SEGMENT BLOCK ADDR
0x3fb130…3fb2c4 Dummy {f00=0x0118, f01=0x0190, f02=»SEGTAB ADDRESS ~ . P LD A12,SEG:FC,A12 SEGMENT DISC FILE CODE , P LD A3,PAG:PA,A2 PAGE ADDRESS (PHYSICAL) H * P LD A2,SEG:DS,A1 SEGMENT DISC ADDRESS x P LDR* A1,A1 P ANK A1,/FF P* P IFT MMUPAG=0 2 P ST* A3,TTB:CB,A5 UPDATE C
0x3fb2c4…3fb458 Dummy {f00=0x0118, f01=0x0190, f02=» EJECT LDTASK P* P* SET ECB PARAMETERS " P* > & PLTD:20 EQU * ENTRY USED BY LT:SWB H " P LDKL A8,LD:ECB LD:ECB ADDRESS r . P ST A1,ECBCW1,A8 SET SECTOR NUMBER IN ECB P ST A2,ECBCW2,A8 * P STR A12,A8 SET DISC FILE CODE IN ECB
0x3fb458…3fb5ec Dummy {f00=0x0118, f01=0x0190, f02=» LDR A10,A6 . P ADKL A10,127 NEXT HIGHER MULTIPLE OF 128 P ANKL A10,/7F80 F . P SUR A4,A10 CHECK IF PAGE IS LARGE ENOUGH ^ * P RF(NN) LTD:25 OK, JUST ONE LKM NEEDED P LDR A10,A6 . P ANKL A10,/7F80 NEXT LOWER MULTIPLE OF 128 P*
0x3fb5ec…3fb780 Dummy {f00=0x0118, f01=0x018e, f02=»:50 INTERMEDIATE BUFFER NEEDED 0 P ST A10,ECBRL,A8 SET REQUESTED LENGTH IN ECB & P* Z P IFT MMUPAG=0 d & P ST A3,ECBBA,A8 SET BUFFER ADDRESS z P XIF P* P EJECT LDTASK P* P* P IFT MMUPAG=1 P ECR A1,A3
0x3fb780…3fb914 (4, 188) Dummy {f00=0x0118, f01=0x0190, f02=» P EJECT LDTASK P* . P* SWB: CONVERT LOGICAL ADDRESS TO PHYSICAL & P* X P SRL A1,3 b & P ANK A1,/1E MMUTAB INDEX (5 BITS) t P ADR A1,A5 ADD TTAB ADDRESS * P LC A1,TTB:MT,A1 PHYSICAL PAGE ADDRESS P LDR A2,A1 P ANK A
0x3fb914…3fbaa8 Dummy {f00=0x0118, f01=0x018e, f02=» MMUPAG=1 P* 2 P* SEGMENT: CONVERT PHYSICAL ADDRESS TO LOGICAL P* R P SLL A3,2 P LDR A12,A3 n 6 P ANKL A12,/FFF CONVERT PHYSICAL ADDRESS TO LOGICAL P OR A12,SCTLAP P* PLTD:40 EQU * & P ST A3,ECBBA,A8 SET BUFF
0x3fbaa8…3fbc3c Dummy {f00=0x0118, f01=0x0190, f02=» h 2 P ADK A6,0 CHECK IF ANYTHING LEFT TO READ/WRITE 0 P RF(NP) LTD:70 SEGMENT/SWB HANDLING FINISHED > P* r P EJECT LDTASK | P* . P* NOT ROOM ENOUGH IN PAGE FOR LAST SECTOR: 0 P* READ IT TO MEMORY VIA INTERMEDIATE BUFFER P*
0x3fbc3c…3fbdd0 Dummy {f00=0x0118, f01=0x0190, f02=»LDTASK BUFFER ADDRESS P ST A1,ECBBA,A8 P LDK A2,/80 6 2 P SCR A2,A8 INDICATE BUFFER NOW IN SYSTEM AREA J P ADK A2,/80 A2 := 256 6 P ST A2,ECBRL,A8 SET REQUESTED LENGTH TO ONE SECTOR P ECR A2,A10 * P ADS A2,ECBCW2,A8 UPDATE SEC
0x3fbdd0…3fbf64 Dummy {f00=0x0118, f01=0x0190, f02=»2 PAGE POINTER & P ADR A6,A6 CONVERT LENGTH TO BYTES P* @ P IFT MMUPAG=1 J 2 P MVSU A6 MOVE LAST PART OF SEGMENT/SWB TO PAGE ` P XIF P* P IFT MMUPAG=0 PLTD:65 EQU * P LDR* A10,A1 MOVE ONE WORD P STR A10,A2
0x3fbf64…3fc0f8 Dummy {f00=0x0118, f01=0x018e, f02=»* P EJECT LDTASK P* " P* , PLTD:70 EQU * 6 P IFT SWPBLK=1 J , P LDR A11,A11 CHECK DISC PAGING/SWB FLAG ` P RF(Z) LTD:80 SWB HANDLING P XIF P* 8 P LDKL A4,/C000 INDICATE SEGMENT SUCCESSFULLY LOADED P XRR
0x3fc0f8…3fc28c Dummy {f00=0x0118, f01=0x0190, f02=» n P IM ECBCW1,A8 P LDKL A2,/7FFF P ANS A2,ECBCW2,A8 4 P RB LTD:60 N P* ` P EJECT LDTASK j P* P* READ ONE SECTOR FROM DISC P* PLTD:90 EQU * P LKM P DATA 1 P LD A2,ECBRC,A8 RETURN CODE
0x3fc28c…3fc420 Dummy {f00=0x0118, f01=0x0190, f02=» IN PAGQUE AGAIN | P* PLTD:95 ANK A2,1 " P NGR A2,A2 : . P SUK A2,2 ERROR, SET RETURN CODE -2 OR -3 L . P ST A2,TTB:SA+14,A5 SET RETURN CODE IN A7 ~ P* P IFT SWPBLK=1 , P LDR A11,A11 CHECK DISC PAGING/SWB FLAG P RB(Z) L
0x3fc420…3fc5b4 (4, 189) Dummy {f00=0x0118, f01=0x0190, f02=» $ P LDK A4,1 INDICATE SEGMENT ERROR P SCR A4,A9 , . P LD A4,SCTIOE APPLICATION RESTART ADDRESS > . P ST A4,TTB:SA,A5 SET NEW DISPATCH ADDRESS p P RB LTD:80 P* P EJECT LDTASK P* P* P********** P* LT:SWB *
0x3fc5b4…3fc748 Dummy {f00=0x0118, f01=0x0190, f02=» A1 = SWAPPABLE WORK BLOCK ADDRESS 2 P* A3 = TTAB ADDRESS OF CALLING TASK , P* A4 = LKM DATA DIRECTIVE b P* P* * PLT:SWB EQU * LDTASK SWB HANDLING ENTRY P IFT SWPBLK=1 P IFT MMUPAG=1 P INH ( P LDKL A5
0x3fc748…3fc8dc Dummy {f00=0x0118, f01=0x0190, f02=» P XIF P* P IFT SWPBLK=1 , P LDR A5,A3 TTAB ADDRESS OF CALLING TASK 4 " P LDR A7,A4 LKM DATA DIRECTIVE d 0 P SUR A11,A11 INDICATE SWB HANDLING (A11 = 0) * P LDR* A3,A1 DISC ADDRESS OF FIRST COPY P ANK A3,/FF P LD A4,S
0x3fc8dc…3fca70 Dummy {f00=0x0118, f01=0x0190, f02=»ASK P* ! P* ! P LD A1,TTB:SA+14,A5 ! P ANK A1,/FF SWB COPY INDEX ! < P* ! ^ PLTS:10 EQU * ! h P SUK A1,1 ! | P* ! P IFT CPU852=1 ! P RF(NP) LTS:20 ! 4 P ADR A4,A2 COMPUTE DISC ADDRESS OF REQUESTED SWB ! P RF(O) LTS:1
0x3fca70…3fcc04 Dummy {f00=0x0118, f01=0x0190, f02=» ! P* " PLTS:20 EQU * " , P LDR A1,A3 DISC ADDRESS OF REQUESTED SWB " & P LDR A2,A4 " V P XIF " h P* " t P IFT SWPBLK=1 " ~ P IFT CPU852=0 " 2 P MUR A1 COMPUTE DISC ADDRESS OF REQUESTED SWB " P DAR A3 " P XIF " P* " P E
0x3fcc04…3fcd98 Dummy {f00=0x0118, f01=0x0190, f02=»RL A6,1 CONVERT SWB LENGTH TO WORDS " P LDR A4,A6 # , & P LD A12,SCTIPL SWB DISC FILE CODE # > ( P SUK A7,19 CHECK LKM DATA DIRECTIVE # h $ P ABL(Z) LTD:15 LOAD SWB REQUEST # : P LDKL A4,/7FFF PARAMETER TO AVOID INTERMEDIATE BUFFER # 2 P LDK A7,/95 PH
0x3fcd98…3fcf2c Dummy {f00=0x0118, f01=0x0190, f02=» # P* QLTDSK * $ P* QLTSWB * $ P********** $ , P* $ > P* $ H : P* THIS ROUTINE PERFORMS ACTIVATION OF THE LOAD TASK. $ R P* $ : P* ACTIVATION IS AT LT:DSK WHEN DISC PAGING REQUEST. $ B P* ACTIVATION IS AT LT:SWB WHEN SWAPPABLE WORK
0x3fcf2c…3fd0c0 Dummy {f00=0x0118, f01=0x0190, f02=») $ ` 2 P* A3 = TTAB ADDRESS OF CALLING TASK % * P* A4 = LKM DATA DIRECTIVE (LT:SWB) % @ P* % n $ P* OUTPUT: A2, A5 ARE DESTROYED % x P* % P* % 0 PQLTSWB EQU * ACTIVATE LDTASK AT ENTRY LT:SWB % P IFT SWPBLK=1 % $ P LDKL A2,L
0x3fd0c0…3fd254 (4, 190) Dummy {f00=0x0119, f01=0x4146, f02=»YSTEM % d P XIF & P* & 0 PQLTDSK EQU * ACTIVATE LDTASK AT ENTRY LT:DSK & $ $ P LDKL A2,LT:DSK DISPATCH ADDRESS & X P* & P EJECT LDTASK & P* & P* & PQLTASK EQU * & ( P LDKL A5,TTABLD LDTASK TTAB ADDRESS & P ABL ACTOT ACTIVAT
0x3fd254…3fd3e8 Dummy {f00=0x0119, 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*
0x3fd3e8…3fd57c Dummy {f00=0x0119, f01=0x0190, f02=» P RTN A8 ( P ( P ( P* STACK * ( , P********* ( > P* ( P P RES 12 ( Z PSTACKB EQU *-REL-2 ( j P EJECT ( P ( P ( P* ADDRESS TO PSW-ROUTINE * ( P************************** ( P* ( PPSW EQU *-REL (
0x3fd57c…3fd710 Dummy {f00=0x0119, f01=0x0190, f02=» E T P S W * ( v D P* LITTLE SUBROUTINE TO PUT PSW IN STACK FOR CALLING SUBROUTINE * ) . D P**************************************************************** ) v P ) PGETPSW EQU *-REL ) $ P STR A2,A14 SAVE A2 ON A14-STACK ) 0
0x3fd710…3fd8a4 Dummy {f00=0x0119, f01=0x0190, f02=» RTN A14 ) P EJECT * P * & P********************************* * & & P* * * P & P* SUBROUTINE-HANDLER * * z & P* * * & P********************************* * P * PSUBSUB E
0x3fd8a4…3fda38 Dummy {f00=0x0119, f01=0x0190, f02=» * p P IM 4,A14 + 0 P AD A10,M:REL,A13 ADD FOR SYSLDM RELOCATION + P STR A10,A14 PUT ON STACK + N P LD A10,MUL,A13 RESTORE A10 + p P ABR* A14 + P + P + P + < P******************************************************* + < P* JUMP TO
0x3fda38…3fdbcc Dummy {f00=0x0119, f01=0x0190, f02=»YSLDM + P EJECT , P , ( P************************************ , ( ( P** ** , T ( P** SAVE, AND COMMUNICATION AREA ** , ( P** ** , ( P************************************ , P
0x3fdbcc…3fdd60 Dummy {f00=0x0119, f01=0x0190, f02=»OD EQU *-REL U:BTAB OLD ADDRESS , P DATA 0 - ( ( PU:BTNW EQU *-REL U:BTAB NEW ADDRESS - 8 P DATA 0 - d ( PS:BTOD EQU *-REL S:BTAB OLD ADDRESS - t P DATA 0 - ( PS:BTNW EQU *-REL S:BTAB NEW ADDRESS - P DATA 0 - . PMOVADD EQU *-REL ADDRESS-CHA
0x3fdd60…3fdef4 (4, 191) Opaque[0x194]
0x3fdef4…3fe088 # DirEnt {nam=»DRSW01«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x2368, f03=0x0000}
0x3fdef4…3fe088 IdxSect {
0x3fdef4…3fe088 f00 = 0x011b // 0x3fdef4 @0x0
0x3fdef4…3fe088 f01 = 0x0008 // 0x3fdef6 @0x2
0x3fdef4…3fe088 gno = [ // 0x3fdef8 @0x4
0x3fdef4…3fe088 [0x00]: C0x011b.0x1.0
0x3fdef4…3fe088 [0x01]: C0x013d.0x2.0
0x3fdef4…3fe088 [0x02]: C0x013e.0x0.0
0x3fdef4…3fe088 [0x03]: C0x013e.0x1.0
0x3fdef4…3fe088 ]
0x3fdef4…3fe088 }
0x3fe088…3fe21c Dummy {f00=0x011b, f01=0x0190, f02=» 2 P IDENT DRSW01 REL 10.0 80-03-14 870105041000 P : B J * R * H C******************************************************************* f * $ * PHILIPS TERMINAL SYSTEM PTS * P* DRSW01 = DRIVER SWITCH
0x3fe21c…3fe3b0 Dummy {f00=0x011b, f01=0x0190, f02=» L * * 4 0* THIS MODULE CONTAINS THE FOLLOWING FUNCTIONS 8 P* WHICH ARE COMMON PARTS FOR CHANNEL UNIT DRIVERS. T P* P* H D* -OUTPUT SEND ONE CHARACTER,SAVE A3-A5 AND RETURN TO DISPATCHER * 8 4* -OUTLIN
0x3fe3b0…3fe544 Dummy {f00=0x011b, f01=0x0190, f02=» IF INTERRUPT IS ALLOWED, RESTORE A3-A5 AND RETURN * TO USER VIA A5 < * ` : 5* -LDREGE RESTORE A3-A5 AND RETURN TO USER VIA A5 j * 4 /* -GETCHR GET ONE CHARACTER FROM ECB-BUFFER * * -ECHO ECHO C
0x3fe544…3fe6d8 Dummy {f00=0x011b, f01=0x0190, f02=» *********** * * & P ENTRY OUTLIN SEND CHARACTER 0 : P ENTRY OUTPUT SAVE REGISTERS, SEND CHAR. AND DISPATCH T ( P ENTRY LDREG RESTORE A3-A5 ANDRETURN . P ENTRY LDREGE WAY BACK FROM ECHO HANDLING P ENTRY LDREGF RETURN
0x3fe6d8…3fe86c Dummy {f00=0x011b, f01=0x018e, f02=»HO t P ENTRY ECHO ECHO ROUTINE P ENTRY ECHEND END OF ECHO * EJECT L * Z * d $ ******************************** n $ * EXTERNAL TOSS MODULE ENTRIES * $ ******************************** * & P EXTRN SAVE8 SAVE REGIST
0x3fe86c…3fea00 Dummy {f00=0x011b, f01=0x0190, f02=» P EXTRN OUTSAL SALCUZ DRIVER P EXTRN OUTASC ASCU4Z DRIVER ( EJECT L * Z ****************** d * DWT PARAMETERS * ~ ****************** * * EXTRN DWTST STATUS EXTRN DWTOR ORDER EXTRN DWTEC
0x3fea00…3feb94 (4, 192) Dummy {f00=0x013d, f01=0x0190, f02=» A3 z P EXTRN DWTA4 SAVE AREA A4 P EXTRN DWTA5 SAVE AREA A5 . P EXTRN DWTSB2 STACK BASE 2 P " P EXTRN DWTECH ECHO DEVICE DWT r P* , P EXTRN ECHADR ECHO ADDRESS DISPLACEMENT * P EJECT P* P********************
0x3feb94…3fed28 Dummy {f00=0x013d, f01=0x018e, f02=»ETTING X:A=0 P* PX:A EQU 1 PCECHO EQU X:A 0 P* F , P* BY SETTING X:B=1 DRIVER FOR LOCAL OR P $ P* REMOTE TERMINALS CAN BE USED P* PX:B EQU 1 PLRT EQU 01 P* 2 P* BY SETTING X:C=1 SALCUZ DRIVER CAN B
0x3fed28…3feebc Dummy {f00=0x013d, f01=0x0190, f02=» P* PX:D EQU 1 PASCU4Z EQU 00 P* 6 < P* A PROGRAM VERSION USING THE EXTENDED INSTRUCTION SET @ , P* IS OBTAINED BY SETTING CPU852 EQU 0 P* PCPU852 EQU 0 P* P EJECT P* P* O U T L I N P
0x3feebc…3ff050 Dummy {f00=0x013d, f01=0x0190, f02=»PU852=1 & P CF A15,SAVE8 SAVE A1-A8 ON STACK P XIF : P* F P IFT CPU852=0 P " P MSR 8,A15 SAVE A1-A8 ON STACK f P XIF P* " P LDR* A1,A6 CHANNEL PARAMETER P ANK A1,/F CHANNEL INDEX P* P IFT LRT=1 P SUK
0x3ff050…3ff1e4 Dummy {f00=0x013d, f01=0x018e, f02=»7,/C P RF(N) OUTL10 P SUK A7,/3 " P ABL(N) OUTASC ASCU4Z 4 P XIF R P* ^ POUTL10 EQU * h P IFT SALCUZ=1 | P SUK A1,/F P ABL(E) OUTSAL SALCUZ P XIF P RF EXIT P EJECT P* P* O U T P U T
0x3ff1e4…3ff378 Dummy {f00=0x013d, f01=0x0190, f02=» POUTPUT EQU * P ANK A2,/FF P LDR A1,A2 0 P SUK A1,/82 STX ? B P RF(E) OUTP05 YES P SUK A1,/15 ETB ? v P RF(NE) OUTP10 NO POUTP05 EQU * " P LDR* A1,A6 CHANNEL PARAMETER P ANK A1,/C LT? P RF(E) LDRE10
0x3ff378…3ff50c Dummy {f00=0x013d, f01=0x0190, f02=» EJECT P* P* P* S T R E G " P* 8 : P* INDICATE INTERRUPTS ALLOWED AND SAVE A3-A5 IN DWT B P* P* PSTREG EQU * P INH P LDKL A1,/100 0 P ORS A1,DWTST,A6 INDICATE INTERRUPTS ALLOWED $ P ST A3,DWT
0x3ff50c…3ff6a0 Dummy {f00=0x013d, f01=0x0190, f02=»CT P* P* L D R E G P* * > P* IF INTERRUPT ALLOWED RESTORE A3-A5 FROM DWT AND RETURN 4 & P* VIA A5. ELSE GO TO DISPATCHER. v P* P* PLDREG EQU * P LD A3,DWTST,A6 P ANKL A3,/100 P RB(Z) EXIT
0x3ff6a0…3ff834 (4, 193) Dummy {f00=0x013e, f01=0x0190, f02=» P* P* PLDREGF EQU * & P LD A5,DWTA5,A6 A5 , PLDREGE EQU * V & P LD A3,DWTA3,A6 RELOAD REGISTER A3 j & P LD A4,DWTA4,A6 A4 $ PLDRE10 LD A7,DWTOR,A6 GET ORDER P ANK A7,/FF P LD A8,DWTECB,
0x3ff834…3ff9c8 Dummy {f00=0x013e, f01=0x0190, f02=» ONE CHARACTER FROM ECB-BUFFER z P* & P* ON ENTRY: 0 P* F P* A3 = BUFFER INDEX P P* A8 = ECB-ADDRESS n P* P* ON EXIT: P* P* A2 = CHARACTER * P* A1 = 0 IF LAST CHARACTER ELSE # 0 P* J
0x3ff9c8…3ffb5c Dummy {f00=0x013e, f01=0x018e, f02=»ESTED LENGTH P SUR A1,A3 * P RF(NP) GCH010 LAST CHARACTER REACHED & " P LD A2,2,A8 GET BUFFER ADDRESS T P ADR A2,A3 z P LCR A2,A2 CHAR. TO A2 P ANK A2,/FF $ P ADK A3,1 INCREMENT BUFFER INDEX P RF GCH020 , PGCH010 ST A3,6,A
0x3ffb5c…3ffcf0 Dummy {f00=0x013e, f01=0x0190, f02=» P* P* P* E C H O , E C H E N D P* > < P* SUBROUTINE TO ECHO CHARACTER CONTAINING TWO PARTS, H . P* ONE GENERAL AND ONE DEVICE-DEPENDENT P* 4 P* PART ONE: FIND DWT-ADDRESS OF ECHO-DEVICE, 2 P*
0x3ffcf0…3ffe84 Dummy {f00=0x013e, f01=0x018e, f02=»ORE CHARACTERS t 2 P* CORRESPONDING TO ONE CHARACTER 4 P* TO BE STORED IN INPUT ECB-BUFFER L P* P* 4 P* PART ONE FOLLOWS AND PART TWO CAN BE FOUND 4 P* IN THE DRIVER MODULE CORRESPONDING TO ECHO P
0x3ffe84…400018 Dummy {f00=0x013e, f01=0x0190, f02=» p 6 P* THE ECHO-ROUTINE SHOULD BE TERMINATED WITH A P* JUMP TO 'ECHRTN'. B P* ` PECHEND EQU * j P* ~ P IFT CECHO=1 P* $ P LDKL A7,/8000 INDICATE END I/O P XIF PECHO EQU * P IFT CECHO=1 & P ST A3,D
0x400018…4001ac Dummy {f00=0x013e, f01=0x0190, f02=») RETUR NO ECHO REQUESTED 0 P LDR A4,A6 SAVE DWT-ADDRESS OF INPUT DEVICE " 2 P LD A6,DWTECH,A6 DWT-ADDRESS OF OUTPUT DEVICE V 6 P ST A4,DWTWAT,A6 SAVE DWT-ADDRESS OF INPUT DEVICE P LDKL A5,DWTSB2 & P ADR A5,A6 STACKBASE-ADDRESS IN A5 . P
0x4001ac…400340 Dummy {f00=0x013e, f01=0x410a, f02=» P IFT CECHO=1 P LDR A7,A7 END? P RF(NN) ERETUR NO 0 ( P CF A15,TENDIO END I/O OUTPUT DEVICE J > PERETUR LD A6,DWTWAT,A6 RELOAD DWT-ADDRESS OF INPUT DEVICE v 4 PRETUR ABL LDREGF RELOAD A3-A5 AND RETURN VIA A5 P* END @
0x400340…4004d4 (4, 194) Dummy {f00=0x013e, f01=0x2008, f02=» RE A3-A5 AND RETURN l * TO USER VIA A5 $ * H : 5* -LDREGE RESTORE A3-A5 AND RETURN TO USER VIA A5 R * 4 /* -GETCHR GET ONE CHARACTER FROM ECB-BUFFER * 6 1* -LOGG LOGG OF INPUT AND OUTPUT CHARA
0x4004d4…400668 Dummy {f00=0x013e, f01=0x0190, f02=»FT TOSS=1 v P IFT IBM=0 w " P DATA 0,0,0 VOLUME NAME BUFFER w $ P IFT MMUPAG+CHAN=2 w J P RES DVBLEN-3 MMU BUFFER w d P XIF w P* w P IFT TOSS+IBM=0 w P IFT MMUPAG+CHAN=2 w P RES DVBLEN MMU BUFFER w P XIF w P* w P EJECT
0x400668…4007fc Dummy {f00=0x013e, f01=0x0190, f02=»* w | P********************* x P* x ( PDWFD01 EQU * x 2 ( PDWTRCW EQU *-DWFD01 TEMP RETURN CODE x F P DATA 0 x r P DATA /8000 DWT STATUS x P DATA 0 ECB ADDRESS x P DATA 0 ORDER x " P DATA FDADR ACTIVATION ADDRESS x P DATA 0 TTAB-ADD
0x4007fc…400990 Dummy {f00=0x013e, f01=0x0190, f02=» ECB ADDRESS x z DATA DEVECB MMU ECB ADDRESS y XIF y 8 P* y D PDWTA3 EQU *-DWFD01 y N P DATA 0 y h P DATA 0 SAVE AREA y x P DATA 0 y P DATA 0 y " P DATA 0,0,0,0 STACK (3 LEVELS) y P DATA 0 ORDER SAVE AREA y P* y P EJECT
0x400990…400b24 Dummy {f00=0x013e, f01=0x0190, f02=»ATA /8000 NVL INDICATOR 2 y P DATA /8000 NVL INDICATOR 3 z " ( PDWTVO0 EQU *-DWFD01 VOLUME NAME NO 0 z F P DATA /FFFF,/FFFF,/FFFF z r ( PDWTVO1 EQU *-DWFD01 VOLUME NAME NO 1 z P DATA /FFFF,/FFFF,/FFFF z ( PDWTVO2 EQU *-DWFD01 VOLUME NAME NO 2 z
0x400b24…400cb8 Dummy {f00=0x013e, f01=0x0190, f02=»TATUS WORD z v P DATA 0 { P XIF { " PDWTA5 EQU *-DWFD01 { . P DATA 0 { H * PDWTRTY EQU *-DWFD01 RETRY REQUEST FLAG { X P DATA 0 { $ PDWTTP EQU *-DWFD01 TIMER POINTER { P DATA 0 { P* { P EJECT DRFD01 { P* { P* { P IFT
0x400cb8…400e4c Dummy {f00=0x013e, f01=0x018e, f02=»TOR { l P DATA 0 | P* | P IFT OPCLOS=1 | & . PDWTTP2 EQU *-DWFD01 TIMER POINTER FOR OPEN | < P DATA 0 | n 4 PDWTOCF EQU *-DWFD01 OPEN/CLOSE FLAG AT POWER ON | ~ P DATA 0 | P XIF | P* | P EJECT DRFD01 | P* | P* | P
0x400e4c…400fe0 Dummy {f00=0x013e, f01=0x0190, f02=» | f P DATA 0 } , PDWTRW EQU *-DWFD01 READ/WRITE INDICATOR } P DATA 0 } H P XIF } X P* } d P IFT IBM=1 } n , PDWTBOE EQU *-DWFD01 BEGINNING OF EXTENT } P DATA 0,0,0,0 } $ PDWTEOD EQU *-DWFD01 END OF DATA } P DATA 0,0,0,0 } & PDWTE
0x400fe0…401174 (4, 195) Opaque[0x194]
0x401174…401308 # DirEnt {nam=»ST8000«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x2350, f03=0x0000}
0x401174…401308 IdxSect {
0x401174…401308 f00 = 0x011a // 0x401174 @0x0
0x401174…401308 f01 = 0x0004 // 0x401176 @0x2
0x401174…401308 gno = [ // 0x401178 @0x4
0x401174…401308 [0x00]: C0x011a.0x2.0
0x401174…401308 [0x01]: C0x011b.0x0.0
0x401174…401308 ]
0x401174…401308 }
0x401308…40149c Dummy {f00=0x011a, f01=0x018e, f02=» 2 P IDENT ST8000 REL 10.0 80-06-09 870105041000 P : P ENTRY ST8000 B P* X * P EXTRN IHPFAR,IHLKM,IHRTC,ILLINT,IHTW b P EXTRN IHTC,IHSOP,CHLT1,IHFD ( P EXTRN IASCUZ,ISLCI,ISLCO,CHRT1,IHMD P* ST8000 EQU * P* P
0x40149c…401630 Dummy {f00=0x011a, f01=0x0190, f02=» P DATA ILLINT 13 P DATA ILLINT 6 P DATA IHTW 7 < P DATA IASCUZ 8 V P DATA IHSOP 9 r P DATA ISLCI P DATA ISLCO P DATA CHRT1 12 P DATA IHMD 13 P DAT
0x401630…4017c4 Dummy {f00=0x011a, f01=0x0190, f02=»ATA ILLINT 19 P DATA ILLINT 20 P DATA ILLINT 21 6 P DATA ILLINT 22 R P DATA ILLINT 23 n P DATA ILLINT 24 P DATA ILLINT 25 P DATA ILLINT 26 P DATA ILLINT 27 P DATA ILLINT
0x4017c4…401958 Dummy {f00=0x011a, f01=0x0190, f02=»NT 123 P DATA ILLINT 124 P DATA ILLINT 125 . P DATA ILLINT 126 J P DATA ILLINT 127 f P DATA ILLINT 128 P DATA ILLINT 129 P DATA ILLINT 130 P DATA ILLINT 131 P DATA ILLINT 132
0x401958…401aec Dummy {f00=0x011a, f01=0x018e, f02=»37 ~ P DATA ILLINT 138 P DATA ILLINT 139 & P DATA ILLINT 50 B P DATA ILLINT 51 ^ P DATA ILLINT 52 z P DATA ILLINT 53 P DATA ILLINT 54 P DATA ILLINT 55 P DATA ILLINT 56 P D
0x401aec…401c80 Dummy {f00=0x011a, f01=0x4030, f02=» P DATA ILLINT 62 END @ ,NT 139 & P DATA ILLINT 50 B P DATA ILLINT 51 ^ P DATA ILLINT 52 z P DATA ILLINT 53 P DATA ILLINT 54 P DATA ILLINT 55 P DATA ILLINT 56 P D
0x401c80…401e14 (4, 196) Dummy {f00=0x011b, f01=0x2008, f02=» NT ST8000 79-09-10 JOS * ( * 2 * < * F * P * Z ENTRY ST8000 d ST8000 EQU * z END @
0x401e14…401fa8 Dummy {f00=0x011b, f01=0x018e, f02=»(IN T:A)=LENGTH OF DSCB'S ** f 4 P** CIA (IN T:A)=DISPL. TO T:A-START ** g ( 4 P** CSE (IN T:A)=STACKSIZE ** g ` 4 P** WORK-REGS. :A1-A4,A9,A11 ** g 4 P************************************************ g P
0x401fa8…40213c Dummy {f00=0x011b, f01=0x0190, f02=» g r ( P LD A3,CSN,A1 GET DSCB TOTAL LENGTH h P RF(Z) ALLB70 NO DSCB'S h 4 . P ADKL A1,T:ASTA CALC START OF DSCB RECORDS h T " P LDR A10,A1 SAVE START ADDRESS h P XIF h P IFT CREDIT+MMUPAG=2 h P ELR A1,A8 GET T:A-ADDRESS h ( P EL A3,CSN,A1 GET
0x40213c…4022d0 Dummy {f00=0x011b, f01=0x0190, f02=» h r P XIF i P IFF CREDIT=0 i P SUR A3,A1 i * P NGR A3,A3 i < P SUK A3,DSCBL END CONDITION i N : P ST A3,SAVE04,A13 SAVE ADDRESS TO END OF DSCB-RECORDS i r : PALLB10 SUK A1,DSCBL A1=FIRST WORD IN FIRST DSCB-RECORD i P CW A1,SAVE04,A13 ALL? i
0x4022d0…402464 Dummy {f00=0x011b, f01=0x0190, f02=»NN) ALLB10 NO! i P ST A9,BA,A1 BUFFER START j P LD A3,RL,A1 BUFFER LENGTH j 8 P ST A3,BL,A1 j Z P LD A2,EL,A1 SHARED BUFFER? j n P RF(Z) NOTSH NO! j & P LDR A4,A1 RESTORE START OF DSCB'S j P XIF j P IFT CREDIT+MMUPAG=2 j $ P ELR A3,A1 G
0x402464…4025f8 Dummy {f00=0x011b, f01=0x0190, f02=» P EL A2,EL,A1 SHARED BUFFER? k P RF(Z) NOTSH NO! k ( & P LDR A4,A1 RESTORE START OF DSCB'S k @ P XIF k j P IFF CREDIT=0 k v P ADK A4,DSCBL FIRST WORD k PALLB20 SUK A2,1 A2=INDEX k P RF(NN) ALLB30 k P LDK A1,LMP4 FORMAT ERROR k P CAL
0x4025f8…40278c Dummy {f00=0x011b, f01=0x0190, f02=» P RB(NE) ALLB20 l " P LDK A1,LMP4 BUFFER NOT FOUND l P CALL ERROR l @ P IFT CREDIT-MMUPAG=1 l T ( PALLB40 LD A4,BA,A4 BUFFER ALLOCATED? l p P RF(NZ) ALLB50 YES! l P LDK A1,LMP4 FORMAT ERROR l P CALL ERROR l PALLB50 EQU * l * P ST A4
0x40278c…402920 Dummy {f00=0x011b, f01=0x0190, f02=»50 YES! l P LDK A1,LMP4 FORMAT ERROR m P CALL ERROR m 2 PALLB50 EQU * m F * P ES A4,BA,A1 AND ESORE IN CURRENT ECB m Z P XIF m P IFF CREDIT=0 m P RB ALLB10 m P m P IFT CREDIT-MMUPAG=1 m PNOTSH LDR A9,A9 PAGING? m P RF(NZ)
0x402920…402ab4 (4, 197) Opaque[0x194]
0x402ab4…402c48 # DirEnt {nam=»PFTAB «, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x24a0, f03=0x0000}
0x402ab4…402c48 IdxSect {
0x402ab4…402c48 f00 = 0x0125 // 0x402ab4 @0x0
0x402ab4…402c48 f01 = 0x0002 // 0x402ab6 @0x2
0x402ab4…402c48 gno = [ // 0x402ab8 @0x4
0x402ab4…402c48 [0x00]: C0x0125.0x0.0
0x402ab4…402c48 ]
0x402ab4…402c48 }
0x402c48…402ddc Dummy {f00=0x0125, f01=0x018e, f02=» 0 P IDENT PFTAB REL 10.0 80-03-14 870105041000 P 8 P* @ P* J P* POWER FAIL TABLE T P* n D P* THIS TABLE HOLDS ADDRESSES TO MODULES THAT SHOULD BE EXECUTED x P* AFTER MASTER CLEAR P* P* P ENTRY PFTAB TABLE ENTRY
0x402ddc…402f70 Dummy {f00=0x0125, f01=0x0190, f02=» P EXTRN SOPR SOP. PANEL ( P EXTRN CHLTON LOCAL/REMOTE TERMINALS " ( P EXTRN C1DRON CASSETTE CHANGER NO. 1 N ( P EXTRN C2DRON 2 z ( P EXTRN C3DRON 3 P EXTRN FDON LINE PRINTER P EXTRN LPON JOS 77-050
0x402f70…403104 Dummy {f00=0x0125, f01=0x0190, f02=»UNIT t 0 P EXTRN FMINIT FILE MANAGEMENT INITIALIZATION 0 P EXTRN DMINIT DATA MANAGEMENT INITIALIZATION @ P EXTRN SLCUON SALCUZ t P EXTRN ASCUON ASCU4Z P EXTRN CDON CDC DISC P P P P $ PPFTAB DATA PFTABE-* TABLE LENGTH
0x403104…403298 Dummy {f00=0x0125, f01=0x4050, f02=»NT v PPFTABE EQU * END OF TABLE P* , P* 6 P END @@ LTA MANAGEMENT INITIALIZATION @ P EXTRN SLCUON SALCUZ t P EXTRN ASCUON ASCU4Z P EXTRN CDON CDC DISC P P P P $ PPFTAB DATA PFTABE-* TABLE LENGTH
0x403298…40342c Dummy {f00=0x0125, 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
0x40342c…4035c0 Dummy {f00=0x0125, f01=0x407a, f02=»CTDCT ^ _ . D d@ v l SCTNPE SCTSTB SCTOPT SCTBUG SCTDMT~ , (
0x4035c0…403754 (4, 198) Opaque[0x194]
0x403754…4038e8 # DirEnt {nam=»LKMAL «, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x25b0, f03=0x0000}
0x403754…4038e8 IdxSect {
0x403754…4038e8 f00 = 0x012d // 0x403754 @0x0
0x403754…4038e8 f01 = 0x0004 // 0x403756 @0x2
0x403754…4038e8 gno = [ // 0x403758 @0x4
0x403754…4038e8 [0x00]: C0x012d.0x2.0
0x403754…4038e8 [0x01]: C0x012d.0x3.0
0x403754…4038e8 ]
0x403754…4038e8 }
0x4038e8…403a7c Dummy {f00=0x012d, f01=0x0190, f02=» 0 P IDENT LKMAL REL 10.0 80-03-14 870105041000 P 8 P* @ $ P* LINK TO MONITOR REQUEST TABLE J @ P* THIS TABLE HOLDS INFORMATION ABOUT MODULES THAT HANDLE THE r ( P* DIFFERENT LINK TO MONITOR REQUESTS P* 2 P ENTRY LKMAL TABLE ENTRY CON
0x403a7c…403c10 Dummy {f00=0x012d, f01=0x0190, f02=» EXTRN TACTOT ACTIVATE OTHER TERMINAL P EXTRN TPAUSE PAUSE TERMINAL . P EXTRN TIMER TIMER R P EXTRN TMWAIT MULTIPLE WAIT l & P EXTRN TLUSEG LOCK/UNLOCK SEGMENT P EXTRN TLDSEG SEGMENT TLDSEG P EXTRN TABORT ABORT FUNCTION $ P EXTRN
0x403c10…403da4 Dummy {f00=0x012d, f01=0x0190, f02=»CHPAG CHANGE MMU PAGE " P EXTRN TCHMMU CHANGE MMU TABLE P EJECT D P* R $ PLKMAL DATA LKMALE-* TABLE LENGTH P DATA TIO TERMINAL I/O P DATA TWAIT TERMINAL WAIT P DATA TEXIT TERMINAL EXIT ( P DATA TACTOT ACTIVATE OTHER TERMIN
0x403da4…403f38 Dummy {f00=0x012d, f01=0x0190, f02=»NT r P DATA TLDSEG SEGMENT TLDSEG P DATA TABORT ABORT FUNCTION . P DATA 0 R 4 P DATA GETTIM GET CURRENT VALUE OF MONITOR CLOCK n " P DATA SETTIM SET MONITOR CLOCK P DATA 0 P DATA TOSSFM FILE MANAGEMENT
0x403f38…4040cc Dummy {f00=0x012d, f01=0x4010, f02=» END @ TLDSEG SEGMENT TLDSEG P DATA TABORT ABORT FUNCTION . P DATA 0 R 4 P DATA GETTIM GET CURRENT VALUE OF MONITOR CLOCK n " P DATA SETTIM SET MONITOR CLOCK P DATA 0 P DATA TOSSFM FILE MANAGEMENT
0x4040cc…404260 Dummy {f00=0x012d, 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
0x404260…4043f4 (4, 199) Dummy {f00=0x012d, f01=0x0190, f02=»M VERSION SUPPORTING SPLIT EXTENT I/O * P* IS OBTAINED BY SETTING XTSPLI EQU 1. . P* PXTSPLI EQU 0 f P* z P EJECT TOSSFM P* P* P********** P* TOSSFM * P********** P* P* 8 P* THIS IS TH
0x4043f4…404588 Dummy {f00=0x012d, f01=0x0190, f02=» n P* P* A5 = TTAB ADDRESS P* A7 = ORDER CODE 0 P* A8 = ECB ADDRESS L P* h . P* WHEN FILE ADMINISTRATION IS REQUESTED, r ( P* TOSSFM WILL ACTIVATE THE FMTASK. P* . P* WHEN I/O FUNCTION IS REQUESTED, TOSSFM
0x404588…40471c Dummy {f00=0x012d, f01=0x0190, f02=»JECT TOSSFM P* P* 4 PTOSSFM EQU * FILE MANAGEMENT LKM PROCESSOR ENTRY * P* b P* CHECK ORDER CODE l P* LDR A2,A7 ORDER CODE P ANK A2,/FF SKIP OPTION P XRK A2,/80 WAIT BIT SUK A2,/01 P RF(Z) FM:
0x40471c…4048b0 Dummy {f00=0x012d, f01=0x0190, f02=»E x SUK A2,/11-/05 P RF(Z) FM:030 PHYSICAL READ " SUK A2,/15-/11 F P RF(Z) FM:030 PHYSICAL WRITE ^ SUK A2,/21-/15 $ P RF(Z) FM:010 OPEN/CREATE/EXTEND SUK A2,/22-/21 4 P RF(NZ) FM:RQE REQUEST ERROR IF NOT CLOSE/DELE
0x4048b0…404a44 Dummy {f00=0x012d, f01=0x0190, f02=»ARAMETERS: h * " P* A1 = ORDER CODE AND OPTION * A2 = DISPATCH ADDRESS B * %* A3 = TTAB ADDRESS OF CALLING TASK d P* A4 = ECB ADDRESS * A5 = FMTASK TTAB ADDRESS * PFM:010 EQU * $ P LDR A1,A7 ORDER CODE AN
0x404a44…404bd8 Dummy {f00=0x012d, f01=0x0190, f02=»DR A4,A8 ECB ADDRESS ( # LDKL A5,TTABFM FMTASK TTAB ADDRESS , P ABL ACTDIS ACTIVATE FMTASK AND DISPATCH H * x EJECT TOSSFM * * ********** * FM I/O * ********** * $ * FILE MANAGEMENT I/O FUNC
0x404bd8…404d6c Dummy {f00=0x012d, f01=0x0190, f02=»DK A1,0 CHECK RETURN CODE P RF(Z) FM:050 OK " * : PFM:040 EQU * D P LDR A3,A1 RETURN CODE X . P ABL TIOERR ERROR: QUEUE TASK AND DISPATCH v * EJECT TOSSFM * " P* CHECK RELATIVE SECTOR NUMBER * PFM:0
0x404d6c…404f00 Dummy {f00=0x012d, f01=0x0190, f02=» MMUPAG=1 , ' EL A1,ECBCW1,A8 RELATIVE SECTOR NUMBER EL A2,ECBCW2,A8 B XIF Z * f P RF(NZ) FM:060 p ADK A1,0 , P RF(Z) FM:RQE RELATIVE SECTOR NUMBER = 0 * PFM:060 EQU * P ECR A6,A1 P ANK A6,/FF
0x404f00…405094 (4, 200) Opaque[0x194]
0x405094…405228 # DirEnt {nam=»CTABX «, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x24c8, f03=0x0000}
0x405094…405228 IdxSect {
0x405094…405228 f00 = 0x0126 // 0x405094 @0x0
0x405094…405228 f01 = 0x0002 // 0x405096 @0x2
0x405094…405228 gno = [ // 0x405098 @0x4
0x405094…405228 [0x00]: C0x0126.0x1.0
0x405094…405228 ]
0x405094…405228 }
0x405228…4053bc Dummy {f00=0x0126, f01=0x0190, f02=» 0 P IDENT CTABX REL 10.0 80-03-14 870105041000 P 8 P* @ P* CODE CONVERSION TABLE J P* l P* v P ENTRY CTABX P* P* * PC0 EQU 0 CODE CONVERSION COLUMN NO. 0 ( PC1 EQU 0 1 ( PC2 EQU
0x4053bc…405550 Dummy {f00=0x0126, 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
0x405550…4056e4 Dummy {f00=0x0126, 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 @
0x4056e4…405878 Dummy {f00=0x0126, f01=0x0190, f02=» & PDYERR ABL DISIOE I/O REQUEST ERROR P EJECT 2 : P* ACTIONS SPECIFIED BY USER IN RIGHT BYTE IN BUFFER @ P* ARE CARRIED OUT. ~ 0 P* /2B NO MOVING OF PRINT HEAD " P* /30 CR, LF, LF B P* /31
0x405878…405a0c Dummy {f00=0x0126, f01=0x0190, f02=»ESTED LENGTH | P RF(E) ACDY25 P LDK A3,2 START BUFFER INDEX * " P LD A2,2,A8 GET BUFFER ADDRESS N & P LC A2,1,A2 GET CONTROL CHARACTER t P ANK A2,/FF PACDY25 EQU * * P SUK A2,/2B POSITIONING BEFORE WRITE ? P RF(E) ACDY90
0x405a0c…405ba0 Dummy {f00=0x0126, f01=0x0190, f02=» ( P ADK A4,1 INDICATE DOUBLE LINE FEED P 4 P < $ PACDY30 LDK A2,CR CARRIAGE RETURN D PACDY35 LDK A1,1 l 2 P SC A1,DWTAP+1,A6 RESET HEAD POSITION COUNTER 8 P* SEND CARRIAGE RETURN AND ONE OR TWO LINE FEEDS P* PACDY50 E
0x405ba0…405d34 (4, 201) Opaque[0x194]
0x405d34…405ec8 # DirEnt {nam=»TIODMX«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x24d0, f03=0x0000}
0x405d34…405ec8 IdxSect {
0x405d34…405ec8 f00 = 0x0126 // 0x405d34 @0x0
0x405d34…405ec8 f01 = 0x0002 // 0x405d36 @0x2
0x405d34…405ec8 gno = [ // 0x405d38 @0x4
0x405d34…405ec8 [0x00]: C0x0126.0x2.0
0x405d34…405ec8 ]
0x405d34…405ec8 }
0x405ec8…40605c Dummy {f00=0x0126, f01=0x018e, f02=» 2 P IDENT TIODMX REL 10.0 80-03-14 870105041000 P : P* B 8 P**************************************************** L P* $ P* PHILIPS TERMINAL SYSTEM PTS P* 8 P**************************************************** P* (
0x40605c…4061f0 Dummy {f00=0x0126, f01=0x403c, f02=» $ P DATA /6300 SOMETHING BAD, TRAP P END ,@ 8 : P* B 8 P**************************************************** L P* $ P* PHILIPS TERMINAL SYSTEM PTS P* 8 P**************************************************** P* (
0x4061f0…406384 Dummy {f00=0x0126, f01=0x2008, f02=» ES | PTTABE EQU * P* & P END 0@ <LER TERMINAL , P* T P* ^ P ENTRY TTABX TABLE ENTRY h P* P* P* P* P* PTTABX DATA 0 P DATA 60 TERMINAL STATUS & P DATA /EE TERMINAL IDENTIF
0x406384…406518 Dummy {f00=0x0126, f01=0x0190, f02=»ADF@ N FDBAI1 P FDBDBR: X " FDBDMIL Y 6 FDBMRO Z J FDBBLZ ^ FDBMEC ^ r FDBKEY ^ CRNTID CRNSTA CRNCDF TIODM ECBCW * & 6
0x406518…4066ac Dummy {f00=0x0126, f01=0x0190, f02=» _ Y A X T X % T U , ( $P ^ =A Y 6T * CRNGETG Z , ( P H I T l , ( I $ C C T , ( / X?j ?j W _l X X , ( O # Xt
0x4066ac…406840 Dummy {f00=0x0126, f01=0x0190, f02=»PB:FR ECBRL , ( 6P I , ( @ B Y < H H C N FNDFDB ~ , ( C _ X "" * & 6 Q X C X DT T W Y , ( H H S W
0x406840…4069d4 (4, 202) Opaque[0x194]
0x4069d4…406b68 # DirEnt {nam=»DSKSUB«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x24d8, f03=0x0000}
0x4069d4…406b68 IdxSect {
0x4069d4…406b68 f00 = 0x0126 // 0x4069d4 @0x0
0x4069d4…406b68 f01 = 0x000a // 0x4069d6 @0x2
0x4069d4…406b68 gno = [ // 0x4069d8 @0x4
0x4069d4…406b68 [0x00]: C0x0126.0x3.0
0x4069d4…406b68 [0x01]: C0x0128.0x2.0
0x4069d4…406b68 [0x02]: C0x0128.0x3.0
0x4069d4…406b68 [0x03]: C0x0129.0x0.0
0x4069d4…406b68 [0x04]: C0x0129.0x1.0
0x4069d4…406b68 ]
0x4069d4…406b68 }
0x406b68…406cfc Dummy {f00=0x0126, f01=0x0190, f02=» 2 P IDENT DSKSUB REL 10.0 80-03-14 870105041000 P : P* B , P**************************************** L P* | , P* PHILIPS TERMINAL SYSTEM PTS * P* , P* DSKSUB = DISC SUBROUTINES * P* P* P*
0x406cfc…406e90 Dummy {f00=0x0126, f01=0x0190, f02=»FILE MANAGEMENT SUBROUTINES: P* $ 4 P* - VOLCLR = CLEAR VOLUME NAME(S) IN DISC DWT . < P* - VOLNAM = MOVE VOLUME NAME FROM DWT TO USER BUFFER f 6 P* - VOLADR = COMPUTE VOLUME NAME ADDRESS IN DWT > P* - NVLCHK = CHECK IF NEW VOLUME LOADE
0x406e90…407024 Dummy {f00=0x0126, f01=0x0190, f02=» 6 P* - INXDWT = COMPUTE DWT ADDRESS + DOUBLE INDEX 8 P* - NVLTAB = TTAB ADDRESSES FOR TASKS TO HAVE NVL > P* z P* P EJECT DSKSUB P* P* P*********** P* ENTRIES * P*********** P* P* , P
0x407024…4071b8 Dummy {f00=0x0126, f01=0x0190, f02=»ME NAME ADDRESS IN DWT v . P ENTRY NVLCHK CHECK FOR NEW VOLUME LOADED : P ENTRY VOLGET MOVE VOLUME NAME FROM DISC BUFFER TO DWT P , P ENTRY NEWVOL SET NEW VOLUME LOADED BITS 4 P ENTRY INXDWT COMPUTE DWT ADDRESS + DOUBLE INDEX 6 P ENTRY NVLTAB TTAB
0x4071b8…40734c Dummy {f00=0x0126, f01=0x0190, f02=»T MASK | P EJECT DSKSUB P* $ P* . P************* 8 P* EXTERNALS * N P************* d P* z P* 4 P EXTRN IHRTN RETURN WITHOUT ENABLING INTERRUPTS P EXTRN TTABLD LDTASK TTAB P EXTRN TTABFM FMTASK TTAB *
0x40734c…4074e0 Dummy {f00=0x0126, f01=0x0190, f02=»RN DWTTAB TTAB ADDRESS " P EXTRN DWTUEC USER ECB ADDRESS P EXTRN DWTVOL VOLUME NAME D ( P EXTRN DWTNVL NEW VOLUME LOADED FLAG f " P EXTRN EWTVOL VOLUME FILE CODE 2 P EXTRN FWTEW1 POINTER TO 2ND EWT BLOCK IN FWT $ P EXTRN FWTPAR ACCESS PARAM
0x4074e0…407674 (4, 203) Dummy {f00=0x0128, f01=0x0190, f02=»CBEL ECB EFFECTIVE LENGTH P EJECT DSKSUB " P* 8 P* B , P*************************************** L P* | P* CONDITIONAL ASSEMBLY P* , P*************************************** P* P* . P* A PROGRAM VERSION US
0x407674…407808 Dummy {f00=0x0128, f01=0x0190, f02=»VERSION USING THE EXTENDED INSTRUCTION . P* SET IS OBTAINED BY SETTING CPU852 EQU 0. . P* ` PCPU852 EQU 0 j P* ~ * . ** A PROGRAM VERSION USING TOSS DISC PAGING * &* IS OBTAINED BY SETTING DSKPAG EQU 1. * DSKPAG EQU 0
0x407808…40799c Dummy {f00=0x0128, f01=0x018e, f02=» P* PSWPBLK EQU 0 P* " P EJECT DSKSUB , P* D P* N 2 P* A PROGRAM VERSION SUPPORTING FILE MANAGEMENT X * P* IS OBTAINED BY SETTING FILMAN EQU 1. P* PX:A EQU 0 PFILMAN EQU 1 P* P* 2 P* A PROG
0x40799c…407b30 Dummy {f00=0x0128, f01=0x0190, f02=» P* P EJECT DSKSUB P* * P* 4 P********** > P* VOLCLR * P P********** b P* t P* ~ 6 P* VOLCLR WILL CLEAR THE REQUESTED VOLUME NAME(S) " P* IN THE REQUESTED DISC DWT. P* . P* INPUT: A1 = NUMBE
0x407b30…407cc4 Dummy {f00=0x0128, f01=0x0190, f02=» P LDR A2,A1 & P CF A15,VOLADR VOLUME NAME ADDRESS P* D PVCLR10 EQU * N P CMR A1 CLEAR ONE WORD b P ADK A1,2 INCREMENT POINTER $ P SUK A2,2 DECREMENT LOOP COUNTER P RB(P) VCLR10 P RF RETURN P* P EJECT DS
0x407cc4…407e58 Dummy {f00=0x0128, f01=0x0190, f02=»E NAME OF SELECTED DISC r 4 P* TO THE USER BUFFER IF REQUESTED LENGTH = 6. P* X P* INPUT: A6 = DWT ADDRESS b P* A8 = ECB ADDRESS P* $ P* OUTPUT: A1-A4 ARE DESTROYED P* PVOLNAM EQU * $ P LD A1,ECBRL,A
0x407e58…407fec Dummy {f00=0x0128, f01=0x0190, f02=»T A4,ECBEL,A8 SET EFFECTIVE LENGTH P* * P IFT MMUPAG=0 4 ( P LD A2,ECBBA,A8 USER BUFFER ADDRESS J P* v P EJECT DSKSUB P* P* PVNAM10 EQU * P LDR* A3,A1 MOVE ONE WORD P STR A3,A2 ( P ADK A1,2 INCREMENT
0x407fec…408180 Dummy {f00=0x0128, f01=0x0190, f02=» P IFT MMUPAG=1 2 P LD A2,DWTTAB,A6 TTAB ADDRESS OF CALLING TASK P TS -30,A15 SAVE RUNNING MMU T P TL TTB:MT,A2 LOAD USER MMU x & P LD A2,DWTUEC,A6 USER ECB ADDRESS ( P EL A2,ECBBA,A2 USER BUFFER ADDRESS P MVSU A4 MOVE VOLUME N
0x408180…408314 (4, 204) Dummy {f00=0x0128, f01=0x0190, f02=»****** P* VOLADR * P********** P* 2 P* < P* INPUT: A6 = DWT ADDRESS F P* j ( P* OUTPUT: A1 = VOLUME NAME ADDRESS t P* A4 = 6 P* PVOLADR EQU * P LC A4,DWTOR,A6 INDEX P* PVOLA05 EQU *
0x408314…4084a8 Dummy {f00=0x0128, f01=0x0190, f02=»4,1 P RB(NN) VOLA10 P LDK A4,6 " P RF RETURN 4 P* F P EJECT DSKSUB P P* h P* r P********** | P* NVLCHK * P********** P* P* 8 P* NVLCHK IS CALLED AT ACTIVATION FROM DISC DRIVER 8 P* TO
0x4084a8…40863c Dummy {f00=0x0128, f01=0x0190, f02=»A6 = DWT ADDRESS P* 6 P* OUTPUT: A1 = RETURN CODE (/20 IF NVL, ELSE 0) " 0 P* A2 = DWT ADDRESS + DOUBLE INDEX $ P* A3, A4 ARE DESTROYED P* PNVLCHK EQU * $ P LD A2,DWTOR,A6 INDEX AND ORDER 0 P ST A2,DWT
0x40863c…4087d0 Dummy {f00=0x0128, f01=0x0190, f02=»FF RESET BIT 0 (FIRST REQUEST BIT) P ST A1,DWTNVL,A2 * P ANK A1,/FF CHECK IF NVL B " P RF(Z) RETURN RETURN IF NO NVL b " P LD A4,DWTTAB,A6 TTAB ADDRESS P LDK A1,1 " P LDKL A3,NVLTAB NVLTAB ADDRESS P* P EJECT DSKSUB P
0x4087d0…408964 Dummy {f00=0x0128, f01=0x0190, f02=»,A3 CHECK TTAB ADDRESS $ P RF(E) NVL:20 NVL FOR THIS TASK P SLL A1,1 SHIFT NVL BIT MASK F * P ADK A3,2 POINT TO NEXT TTAB IN NVLTAB j P RB NVL:10 P* PNVL:20 EQU * 0 P AN A1,DWTNVL,A2 CHECK IF NVL FOR THIS TASK & P RF(Z) RETUR
0x408964…408af8 Dummy {f00=0x0128, f01=0x0190, f02=»* P* $ PRETURN EQU * COMMON RETURN LABEL P IFT CPU852=1 < 2 P ABL IHRTN RETURN WITHOUT ENABLING INTERRUPTS R P XIF P* P IFT CPU852=0 P RTN A15 P XIF P* P EJECT DSKSUB P* P* P**
0x408af8…408c8c Dummy {f00=0x0128, f01=0x018e, f02=» DISC DWT AND CHECK IF THERE IS A NEW VOLUME MOUNTED. P* > ( P* INPUT: A2 = DISC BUFFER ADDRESS H 2 P* A3 = FILE CODE (FOR DRIVE WITH INDEX = 0) t 0 P* BIT 0 SET MEANS TEST STATUS ORDER P* A6 = DWT ADDRESS P*
0x408c8c…408e20 Dummy {f00=0x0128, f01=0x0190, f02=» * P CF A15,VOLADR DWT VOLUME NAME ADDRESS P LDK A7,0 RESET NVL FLAG 6 P* V PVGET10 EQU * ` , P LDR* A8,A2 ONE WORD OF NEW VOLUME NAME t , P CWR* A8,A1 COMPARE WITH OLD VOLUME NAME P RF(E) VGET20 P LDK A7,1 SET NVL FLAG $ P
0x408e20…408fb4 (4, 205) Dummy {f00=0x0129, f01=0x0190, f02=»FFER POINTERS z P ADK A2,2 $ P SUK A4,2 DECREMENT LOOP COUNTER ( P RB(P) VGET10 P P CF A15,INXDWT f P ADK A7,0 CHECK NVL FLAG | " P RB(Z) RETURN RETURN IF NO NVL . P SLA A3,1 CHECK IF TEST STATUS OR RECOVERY & P RB(O) RETURN TEST S
0x408fb4…409148 Dummy {f00=0x0129, f01=0x0190, f02=»THIS DISC l P SLL A7,1 $ P RB(N) RETURN FIXED DISC, NO NVL $ P* L P EJECT DSKSUB V P* n P* x P********** P* NEWVOL * P********** P* P* > P* NEWVOL IS ENTERED FROM THE ROUTINE VOLGET WHEN IT HAS
0x409148…4092dc Dummy {f00=0x0129, f01=0x0190, f02=»THE CONCERNED FILE CODE AND FILES 8 P* OPENED ON THAT VOLUME. TASKS REPRESENTED IN THE * 4 P* TABLE NVLTAB WILL GET RETURN CODE /20 AT THE f ( P* NEXT REQUEST ON THAT FILE CODE. P* 4 P* INPUT: A3 = FILE CODE (DISC ONE FOR DRIVER)
0x4092dc…409470 Dummy {f00=0x0129, f01=0x0190, f02=»* A1-A2 ARE DESTROYED P* PNEWVOL EQU * * P LD A2,NVLBIT NVL BIT MASK > 0 P ST A2,DWTNVL,A4 INDICATE NEW VOLUME LOADED ` P LC A2,DWTOR,A6 INDEX P ANK A2,/3 P ADR A3,A2 ACTUAL FILE CODE P* P EJECT DSKSUB
0x409470…409604 Dummy {f00=0x0129, f01=0x0190, f02=» POINTER r P* > P* SET NEW VOLUME LOADED FOR ALL FILES ON CONCERNED VOLUME P* PNEW:10 EQU * f P LDR* A2,A1 NEXT FWT ADDRESS z P RB(Z) RETURN NO MORE FWT:S P LDR A1,A2 SAVE FWT ADDRESS 2 P ADKL A2,FWTEW1 ADDRESS TO FIRST E
0x409604…409798 Dummy {f00=0x0129, f01=0x0190, f02=»F(NE) NEW:30 P LDKL A2,/8000 NVL BIT 0 P ORS A2,FWTPAR,A1 INDICATE NEW VOLUME LOADED 2 P RB NEW:10 f P* x PNEW:30 EQU * . P LDR* A2,A2 ADDRESS TO NEXT EWT STRUCTURE , P RB(Z) NEW:10 END OF THIS EWT STRUCTURE ( P RB NEW:20 CONTI
0x409798…40992c Dummy {f00=0x0129, f01=0x0190, f02=»**** P* P* H P* INXDWT WILL COMPUTE THE DWT ADDRESS ADDED TO THE DOUBLED INDEX. P* l P* INPUT: A6 = DWT ADDRESS v P* 0 P* OUTPUT: A4 = DWT ADDRESS + DOUBLE INDEX * P* NO REGISTERS ARE DESTROYED P*
0x40992c…409ac0 Dummy {f00=0x0129, f01=0x0190, f02=» P* P EJECT DSKSUB P* * P* 4 P********** > P* NVLTAB * P P********** b P* t P* ~ 4 P* NVLTAB HOLDS THE TTAB ADDRESSES OF THE TASKS 6 P* THAT WILL RECEIVE NEW VOLUME LOADED WHEN A NEW P* VOLUME HAS
0x409ac0…409c54 (4, 206) Dummy {f00=0x0129, f01=0x0190, f02=» | P DATA TTABLD LDTASK TTAB P XIF ( P* 4 PNVLDMT EQU * > P IFT FILMAN=1 R P IFT DATMAN=1 h P DATA 0 TTAB #D ~ P DATA 0 TTAB #E P DATA 0 TTAB #F P DATA 0 TTAB #G P XIF P* P IFT FILMAN=1
0x409c54…409de8 Dummy {f00=0x0129, f01=0x4164, f02=» FILMAN=0 P IFF DSKPAG+SWPBLK=0 P DATA TTABLD LDTASK TTAB . P* N PNVLEND EQU * X P* l PNVLBIT DATA 3 NVL BIT MASK v P XIF P* P IFT FILMAN=0 P IFT DSKPAG+SWPBLK=0 P* PNVLEND EQU * P* P
0x409de8…409f7c Dummy {f00=0x0129, f01=0x2008, f02=» NT DSKSUB PRR 10.1 79-08-09 CHLO END 2@ >
0x409f7c…40a110 Dummy {f00=0x0129, f01=0x0000, f02=»
[…0x4…]
0x40a760…40a8f4 (4, 207) Opaque[0x194]
0x40a8f4…40aa88 # DirEnt {nam=»DVTKB «, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x27a8, f03=0x0000}
0x40a8f4…40aa88 IdxSect {
0x40a8f4…40aa88 f00 = 0x013d // 0x40a8f4 @0x0
0x40a8f4…40aa88 f01 = 0x0002 // 0x40a8f6 @0x2
0x40a8f4…40aa88 gno = [ // 0x40a8f8 @0x4
0x40a8f4…40aa88 [0x00]: C0x013d.0x1.0
0x40a8f4…40aa88 ]
0x40a8f4…40aa88 }
0x40aa88…40ac1c Dummy {f00=0x013d, f01=0x0190, f02=» 0 P IDENT DVTKB REL 10.0 80-03-14 870105041000 P 8 " P* KEYBOARD DEVICE WORK TABLE @ P* f P ENTRY DVTKB TABLE ENTRY p P*** ( P EXTRN KBAD POINTER TO ADDRESSBLOCK P EXTRN ECH PMMUPAG EQU 0 P* PDVTKB EQU * TABL
0x40ac1c…40adb0 Dummy {f00=0x013d, 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
0x40adb0…40af44 Dummy {f00=0x013d, 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
0x40af44…40b0d8 Dummy {f00=0x013d, f01=0x40de, f02=»G=1 PDEVECB EQU * P DATA 0,0,0,0,0,0 P DATA 0,0,0,0,0,0,0,0 : P DATA 0,0,0,0,0,0,0,0 X P DATA 0,0,0,0,0,0,0,0 v P DATA 0 P XIF PDWTEND EQU * P* P END @ IRST PLACE IN QUEUE 4 P DATA DWTSQ+DV
0x40b0d8…40b26c Dummy {f00=0x013d, 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
0x40b26c…40b400 Dummy {f00=0x013d, f01=0x4052, f02=» V W2 RB P R P W. P !P CT J <@ N U _P iP oWT wPP R Q , H D !&J W T * Pb P T T T W : V * P x H D ! /P$ ;R K * SW [PH aP> gP mP q * wR {Q P R R W Wr
0x40b400…40b594 (4, 208) Opaque[0x194]
0x40b594…40b728 # DirEnt {nam=»DVTGP «, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x2378, f03=0x0000}
0x40b594…40b728 IdxSect {
0x40b594…40b728 f00 = 0x011b // 0x40b594 @0x0
0x40b594…40b728 f01 = 0x0002 // 0x40b596 @0x2
0x40b594…40b728 gno = [ // 0x40b598 @0x4
0x40b594…40b728 [0x00]: C0x011b.0x3.0
0x40b594…40b728 ]
0x40b594…40b728 }
0x40b728…40b8bc Dummy {f00=0x011b, f01=0x0190, f02=» 0 P IDENT DVTGP REL 10.0 80-03-14 870105041000 P 8 , P* DEVICE WORK TABLE FOR GENERAL PRINTER @ P* p P ENTRY DVTGP TABLE ENTRY z P* P* ( P EXTRN GPAD POINTER TO ADDRESS BLOCK PMMUPAG EQU 0 P* PDVTGP EQU * TABL
0x40b8bc…40ba50 Dummy {f00=0x011b, f01=0x0190, f02=»ATA DWTEND-DVTGP ORDER ( P DATA GPAD POINTER TO ADDRESS-BLOCK P DATA /C750 TTAB-ADDRESS J $ P DATA 0 WAIT/ACTIVATE INDICATOR j P DATA 0 TERMINAL QUEUE IFT MMUPAG=1 & " DATA 0 SAVE AREA USER ECB ADDRESS DATA DEVECB MMU ECB ADD
0x40ba50…40bbe4 Dummy {f00=0x011b, 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
0x40bbe4…40bd78 Dummy {f00=0x011b, 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
0x40bd78…40bf0c Dummy {f00=0x011b, f01=0x0190, f02=»******** P* 6 P* THE STANDARD NATIONAL CHARACTER SET IS CHOOSEN > P* BY SETTING X:A TO 0-11 ACCORDING TO THE LIST BELOW =4 T P* P* NCV=0 GREAT BRITAIN P* 1 GERMANY P* 2 FRANCE P* 3 SPAIN
0x40bf0c…40c0a0 Dummy {f00=0x011b, f01=0x0190, f02=»GOSLAVIA/FRANCE 2 (DEPEND. ON CHAR GEN) =7 P* 9 USA 6 " P* 10 DENMARK, NORWAY 2 L P U =7(=4) r P* PX:A EQU 0 PSTDNCV EQU X:A P* 6 P* THE LOWER CASE SET CAN BE INCLUDED AS STANDARD P* BY SETTI
0x40c0a0…40c234 (4, 209) Opaque[0x194]
0x40c234…40c3c8 # DirEnt {nam=»DVTDY «, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x2380, f03=0x0000}
0x40c234…40c3c8 IdxSect {
0x40c234…40c3c8 f00 = 0x011c // 0x40c234 @0x0
0x40c234…40c3c8 f01 = 0x0002 // 0x40c236 @0x2
0x40c234…40c3c8 gno = [ // 0x40c238 @0x4
0x40c234…40c3c8 [0x00]: C0x011c.0x0.0
0x40c234…40c3c8 ]
0x40c234…40c3c8 }
0x40c3c8…40c55c Dummy {f00=0x011c, f01=0x0190, f02=» 0 P IDENT DVTDY REL 10.0 80-03-14 870105041000 P 8 * P* DEVICE WORK TABLE FOR VIDEO DISPLAY @ P* n P ENTRY DVTDY TABLE ENTRY x P* P* ( P EXTRN DYAD POINTER TO ADDRESS BLOCK PMMUPAG EQU 0 P* PDVTDY EQU * TABLE
0x40c55c…40c6f0 Dummy {f00=0x011c, f01=0x0190, f02=»A DWTEND-DVTDY ORDER ( P DATA DYAD POINTER TO ADDRESS-BLOCK P DATA /C459 TTAB-ADDRESS H $ P DATA 0 WAIT/ACTIVATE INDICATOR h P DATA 0 TERMINAL QUEUE IFT MMUPAG=1 & " DATA 0 SAVE AREA USER ECB ADDRESS DATA DEVECB MMU ECB ADDRE
0x40c6f0…40c884 Dummy {f00=0x011c, 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
0x40c884…40ca18 Dummy {f00=0x011c, 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
0x40ca18…40cbac Dummy {f00=0x011c, f01=0x0190, f02=»DDRESS TO CHANNEL STATUS 3 P* A6: DWT ADDRESS 4 P* 4 : P* EXIT: 4 D P* 4 T P* A1: STATUS AFTER RECOVERY 4 ^ $ P* A2: ADDRESS TO CHANNEL STATUS 4 P* A6: DWT ADDRESS 4 P* 4 P 4 P 4 & PMTRC LDR A7,A2 CALC CHANNEL NUMBER 4 P
0x40cbac…40cd40 Dummy {f00=0x011c, f01=0x0190, f02=» 4 t P CF A5,ONLI 5 P LDR* A3,A2 GET SEQ COUNTER 5 & P ABL(Z) SBOW TAPE SHOULD BE AT BOT 5 @ 8 P LDK A7,MTRBLK REVERSE TAPE TO AVOID ANY OLD BLOCKS 5 j PMTRC05 CF A5,SKPR 5 P SUK A7,1 5 P RB(NZ) MTRC05 5 P 5 * PMTRC10 CF A5,RSQN READ S
0x40cd40…40ced4 (4, 210) Opaque[0x194]
0x40ced4…40d068 # DirEnt {nam=»DRKB03«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x2750, f03=0x0000}
0x40ced4…40d068 IdxSect {
0x40ced4…40d068 f00 = 0x013a // 0x40ced4 @0x0
0x40ced4…40d068 f01 = 0x0010 // 0x40ced6 @0x2
0x40ced4…40d068 gno = [ // 0x40ced8 @0x4
0x40ced4…40d068 [0x00]: C0x013a.0x2.0
0x40ced4…40d068 [0x01]: C0x013a.0x3.0
0x40ced4…40d068 [0x02]: C0x013b.0x2.0
0x40ced4…40d068 [0x03]: C0x013c.0x0.0
0x40ced4…40d068 [0x04]: C0x013c.0x1.0
0x40ced4…40d068 [0x05]: C0x013c.0x2.0
0x40ced4…40d068 [0x06]: C0x013c.0x3.0
0x40ced4…40d068 [0x07]: C0x013d.0x0.0
0x40ced4…40d068 ]
0x40ced4…40d068 }
0x40d068…40d1fc Dummy {f00=0x013a, f01=0x018e, f02=» 2 P IDENT DRKB03 REL 10.0 80-03-14 870105041000 P : & P =1,CIRCULAR BUFFER SIZE CHANGED B P REL 9.1 79-05-23 l P* 0 P******************************************* P* $ P* PHILIPS TERMINAL SYSTEM PTS P* P* DR
0x40d1fc…40d390 Dummy {f00=0x013a, f01=0x0190, f02=» b P* P* 0 P* THIS DRIVER HANDLES INPUT FROM NUMERIC . P* AND ALPHANUMERIC KEYBOARDS PTS 6236, P , P* CONNECTED TO CPU VIA CHLT OR CHRT. P* : P* ONLY INPUT DATA FROM DEPRESSED KEYS AND KEY-LOCKS $ P* ARE HANDL
0x40d390…40d524 Dummy {f00=0x013a, f01=0x0190, f02=» P* ECHOED. P* 0 P* THE DRIVER CONSISTS OF FOLLOWING PARTS: " P* V " P* A C K B : ACTIVATION PART ` P* $ P* I H K B : INTERRUPT HANDLER P* P* E C H O : ECHO HANDLER P* $ P* R C K B : RECOVERY
0x40d524…40d6b8 Dummy {f00=0x013a, f01=0x0190, f02=»IC READ ~ P* ORDER 02: STANDARD READ P* ORDER 03: NUMERIC READ 4 & P* ORDER 31: RESET INPUT BUFFER X P* P* P* NORMAL REGISTER USAGE : P* " P* REGISTER A1 : RETURN CODE & P* A2 : INPUT CHARA
0x40d6b8…40d84c Dummy {f00=0x013a, f01=0x0190, f02=» A6 : DWT-ADDRESS P* A7 : ORDER " P* A8 : ECB-ADDRESS @ P* f P* p P* z P* SYSTEM ADAPTATION P* 8 P* CODES FOR SPECIAL CHARACTERS CLEAR, BACKSPACE, 8 P* MULTIPLE ZERO AND STANDARD
0x40d84c…40d9e0 Dummy {f00=0x013a, f01=0x0190, f02=» P* , P* IF TIMING IS WANTED, TIMER POINTER , P* IN DWT MUST BE SET UNEQUAL TO ZERO. > 2 P* STANDARD VALUE FOR TIME-OUT IS 30 SECONDS n 4 P* SINCE LAST DEPRESSED KEY. IF ANOTHER VALUE * P* IS WANTED FOR A SYSTEM, INDICATOR $
0x40d9e0…40db74 (4, 211) Dummy {f00=0x013a, f01=0x0190, f02=»D VALUE IS 7 CHARACTERS t 8 P* NOTE !!! THAT LENGTH MUST BE THE SAME FOR ALL P* DWT:S IN SYSTEM P EJECT x P* 8 P* BY MEANS OF CONDITIONAL ASSEMBLY IT IS POSSIBLE 8 P* TO EXCLUDE FROM THE DRIVER FOLLOWING FUNCTIONS: P
0x40db74…40dd08 Dummy {f00=0x013a, f01=0x0190, f02=»IFT-FUNCTION | , P* -----KEYBOARD LOCK IF NO KEYLOCK ON P* D P* ENTRIES N P* b P* l P ENTRY KBAD3 ADDRESS-BLOCK v P* P* P* & P* EXTERNAL TOSS MODULE ENTRIES P* P* P* $ P EXTRN DIS
0x40dd08…40de9c Dummy {f00=0x013a, f01=0x018e, f02=»TRY v 0 P EXTRN LDREG LOAD REGISTERS A2-A8 AND RETURN 4 P EXTRN STREG STORE REGISTERS AND GO TO DISPATCER @ , P EXTRN LDREGE RETURN FROM ECHOE HANDLING x P EXTRN LDREGF PANIK EXTERN P EXTRN SETIME SET TIME P EXTRN SETIMP SET TIME " P E
0x40de9c…40e030 Dummy {f00=0x013a, f01=0x0190, f02=» r P* P* P* P* DWT PARAMETERS & P* B P* L P* V " P EXTRN DWTCHP CHANEL PARAMETER ` P EXTRN DWTST STATUS EXTRN DWTBC BYTE COUNTER & " EXTRN DWTADR DRIVER ADDRESS BLOCK P EXTRN DWTA3 SAVE AREA A3
0x40e030…40e1c4 Dummy {f00=0x013a, f01=0x018e, f02=» DEVICE DWT ~ P EXTRN DWTTP TIMER POINTER P EXTRN DWTWAT SAVE INPUT DWT 6 P EJECT Z P* h P* r P* | P* CONSTANTS P* P* P* * POVMASK EQU /2 OVERFLOW IN INPUT BUFFER P* . PX:F EQU 8 LENGTH OF
0x40e1c4…40e358 Dummy {f00=0x013a, f01=0x0190, f02=» P* " PTIME EQU 300 TIME OUT CONSTANT P* 4 P EJECT > P* L P* V , P**************************************** ` , P* CONDITIONAL ASSEMBLY * , P**************************************** P* . P* TIME OUT
0x40e358…40e4ec Dummy {f00=0x013a, f01=0x0190, f02=»NCTION MAY BE EXCLUDED BY P* SETTING X:B = 0. " P* @ PX:B EQU 1 J PCECHO EQU 1 P* p > P* BY SETTING X:E = 1 THE FOLOWING POWER OFF FUNCTION z & P* IS INCLUDED IN THE DRIVER. < P* IF THERE IS A READ REQUEST
0x40e4ec…40e680 Dummy {f00=0x013a, f01=0x0190, f02=»T V @ P* AFTER POWER ON IS COMPLETED WITH ZERO IN CONTROL WORD P* OF ECB N P* d P* n PX:E EQU 0 x PPOWOFF EQU 1 P* P* P* N P* BY SETTING X:H = 1 THE KEY A15IS USED AS A NUMERIC SHIFT ON KB 71/72
0x40e680…40e814 (4, 212) Dummy {f00=0x013b, f01=0x0190, f02=»I EQU 0 PKBLOCK EQU 0 P* $ P* . . P* A PROGRAM VERSION USING TOSS MMU PAGING 8 * P* IS OBTAINED BY SETTING MMUPAG EQU 1. j P* PMMUPAG EQU 1 P* P* 6 P* A PROGRAM VERSION USING THE EXTENDED INSTRUCTION . P* SE
0x40e814…40e9a8 Dummy {f00=0x013b, f01=0x0190, f02=» PX:J EQU 10 PDVBLEN EQU 082 P* 0 P* : P* MMU KEY TABLE SIZE D P* b P* l PX:K EQU 10 v PDVBKTB EQU 50 P* P EJECT P* P* P* DWT-DISPLACEMENT P* P* 0 PDWTDRD EQU /
0x40e9a8…40eb3c Dummy {f00=0x013b, f01=0x0190, f02=» PSTART EQU DWTDRD+4 P XIF P* * * PDWTCON EQU START+/00 CONVERSION TABLE 4 8 PDWTINQ EQU START+/18 POINTER TO FIRST PLACE IN QUEUE b 8 PDWTUTQ EQU START+/1A POINTER TO LAST PLACE IN QUEUE & PDWTSQ EQU START+/1C START OF QUEUE ( PDWTE
0x40eb3c…40ecd0 Dummy {f00=0x013b, f01=0x0190, f02=»ART+/14 BACK-SPACE CHARACTER ( PKBCLR EQU START+/15 CLEAR CHARACTER $ . PKBMZ2 EQU START+/17 DOUBLE ZERO CHARACTER P PKBMZ3 EQU START+/16 P* P EJECT P* TABLES P* P* $ P DATA DVBKTB MMU KEY TABLE SIZE P
0x40ecd0…40ee64 Dummy {f00=0x013b, f01=0x0190, f02=»A 0 ABORT ROUTINE ADDRESS P DATA IHKB INTERRUPT HANDLER " P IFT POWOFF=1 F P DATA RCKB RECOVERY ROUTINE P XIF P IFT POWOFF=0 P DATA 0 NO RECOVERY P XIF P* P IFT POWOFF=1 P EJECT P* RCKB
0x40ee64…40eff8 Dummy {f00=0x013b, f01=0x0190, f02=» P XIF P* P IFT POWOFF=1 P IFT CPU852=0 0 " P MSR 8,A15 SAVE A1-A8 ON STACK F P XIF l P* x P IFT POWOFF=1 P LD A3,DWTST,A6 BUSY? P RF(NN) RCKB10 P LDKL A1,/200 ( P ORS A1,DWTST,A6 INDICATE POWER OFF
0x40eff8…40f18c Dummy {f00=0x013b, f01=0x0190, f02=» ACKB P* : P* ACTIVATION PART: CHECS VALIDITY OF ORDERS AND P* V @ P* EXAMINES INPUT BUFFER TO SEE IF SOME QUEUED CHARACTER ` P* P* TO THREAT P* P* P* P* PACKB EQU * P LDKL A1
0x40f18c…40f320 Dummy {f00=0x013b, f01=0x0190, f02=» P RF(NG) AKB100 ILLEGAL ORDER P SUK A4,4 ( P RF(N) AKB200 ORDER 1,2 OR 3 : P SUK A4,/2D ^ P RF(Z) AKB110 ORDER 31 r * PAKB100 ORKL A1,/8000 I/0 REQUEST ERROR P ABL ENDI10 P EJECT P* P* P* & P* ORD
0x40f320…40f4b4 (4, 213) Dummy {f00=0x013c, f01=0x0190, f02=»Q,A6 RESET OUTPUT QUEUE P ABL ENDIO P* 2 P EJECT < P* J P* T P* ORDER 1,2,3 ^ P* x P* P* PAKB200 EQU * P IFT POWOFF=1 P LD A2,DWTST,A6 P ANKL A2,/200 POWER OFF? P RF(E) AKB205 NO
0x40f4b4…40f648 Dummy {f00=0x013c, f01=0x0190, f02=»F(E) AKB205 P CM 10,A8 INDICATE POWER OFF P RF AKB218 8 P XIF J PAKB205 EQU * V P IFT CTIMUT=1 j P LDR* A1,A6 P ANK A1,/40 TIMING? , P RF(E) AKB210 NO TIMING FOR THIS DEVICE! , P LD A4,DWTTP,A6 CHECK IF ALREADY TIMING
0x40f648…40f7dc Dummy {f00=0x013c, f01=0x0190, f02=»OINTER z P ADR A4,A6 ADD DWT-ADDRESS P LDR A1,A6 0 P CF A15,SETIMP SET TIME B 0 P DATA AKBTUT,TIME TIME OUT ROUTINE AND TIME b . P ST A4,DWTTP,A6 STORE TIMER ADDRESS IN DWT P XIF P* P EJECT P* IF ANY KEY-LOCK:
0x40f7dc…40f970 Dummy {f00=0x013c, f01=0x0190, f02=» IN CASE OF STANDARD OR NUMERIC READ MAKE ECB-CODE & P* AND END I/O. ELSE CONTINUE. > P* h P* r PAKB210 EQU * | " P LD A2,DWTST,A6 ANY KEY-LOCK? P ANK A2,/F P RF(Z) AKB219 P SLL A2,1 P SRN A2,A4 P LDR A
0x40f970…40fb04 Dummy {f00=0x013c, f01=0x0190, f02=»B212 XRS A4,DWTST,A6 RESET OLD KEY-FLAG P LDR A2,A4 0 P SLL A4,4 B P AN A4,DWTST,A6 T P STR A4,A15 SAVE A4 l P STR A3,A15 P SRN A2,A3 ORDER 1 " P ADR A3,A3 MAKE CHARACTER FLAG P LDR A4,A4 P RF(NE) AKB213 P A
0x40fb04…40fc98 Dummy {f00=0x013c, f01=0x0190, f02=»15 RESTORE A4 P CWK A7,1 $ P RF(E) AKB307 JUMP IF BASIC READ ( " PAKB214 NGR A2,A1 MAKE ECB CODE P P LDR A4,A4 KEY FLAG v P RF(E) AKB215 P SUK A2,4 , PAKB215 ST A2,10,A8 KEY-LOCK CODE IN ECB PAKB218 ABL AKB380 ( PAKB2
0x40fc98…40fe2c Dummy {f00=0x013c, f01=0x0190, f02=»A1,2,A8 BUFFER ADDRESS P SUK A1,1 P ADR A1,A2 0 & PAKB230 SCR A3,A1 CLEAR ECB BUFFER B P SUK A1,1 l P SUK A2,1 ~ P RB(NE) AKB230 PAKB240 EQU * P LD A1,DWTUTQ,A6 P LCR A2,A1 PAKB245 LDR A4,A2 P XRK A4,/FF
0x40fe2c…40ffc0 Dummy {f00=0x013c, f01=0x018e, f02=»AKB250 CW A1,DWTINQ,A6 SOMETHING IN QUEUE? P RF(NE) AKB255 2 " P CF A5,STREG NOTHING IN QUEUE J P IFT CTIMUT=1 p * P LDR A1,A1 CHECK TIME OUT RETURN CODE P RF(Z) AKB257 NO TIME OUT $ P ABL ENDI05 END I/O AT TIME OUT P XIF
0x40ffc0…410154 (4, 214) Dummy {f00=0x013c, f01=0x0190, f02=» l PAKB257 EQU * P LDR A4,A7 P SUK A4,2 . P RF(NN) AKB310 ORDER 2 OR 3 @ P EJECT d P* r P* | P* ORDER 1 BASIC READ P* P* P* 6 PAKB305 CF A15,STORE STORE CHARACTER IN ECB-BUFFER P IFT CECHO
0x410154…4102e8 Dummy {f00=0x013c, f01=0x0190, f02=» KEYS? | P ANK A2,/F P RB(NZ) AKB210 P RB AKB225 6 P EJECT H P* V P* ` P* j 4 P* ORDER 2 OR 3 STANDARD AND NUMERIC READ t P* B P* CHECK IF READ CHARACTER IS FOUND IN KEY-TABLE (IF ANY) P* P*
0x4102e8…41047c Dummy {f00=0x013c, f01=0x0190, f02=»ABLE LENGTH IN A4 P ANK A4,/FF & P ADR A1,A4 LAST PLACE IN KEY-TABLE . P ADK A1,1 X PAKB355 SUK A4,1 j , P RF(N) AKB360 KEY NOT FOUND IN KEY-TABLE P SUK A1,1 NEXT KEY P CCR A2,A1 EOR? P RB(NE) AKB355 NO! P ADK A4,1
0x41047c…410610 Dummy {f00=0x013c, f01=0x0190, f02=»OR-CHARACTER z " P CF A5,ECHO ECHO EOR-CHARACTER ! P XIF ! : P RF AKB380 ! F PAKB360 EQU * ! X P LDR A4,A2 ! l P CC A4,KBMZ2,A6 ! ~ P RF(E) KBMZ20 ! P CC A4,KBMZ3,A6 ! P RF(E) KBMZ30 ! P CC A4,KBBSP,A6 ! P RF(E) KBSP10 ! P
0x410610…4107a4 Dummy {f00=0x013c, f01=0x018e, f02=»ED CHARACTER ! x P RF(N) AKB364 LESS THAN /20 " P SUK A4,/5F CHARACTER > /7F " 8 P RF(P) AKB364 YES " P CWK A7,2 " v $ P RF(E) AKB366 STANDARD READ OK " P ADK A4,/4F " P RF(N) AKB364 " P SUK A4,/A " " P RF(N) AKB366 NUMERIC READ
0x4107a4…410938 Dummy {f00=0x013c, f01=0x018e, f02=» " P XIF # P CW A3,4,A8 LENGTH OVERFLOW? # " PAKB367 ABL(L) AKB210 NO RETURN # 8 & PAKB368 LDK A1,8 YES SET ERROR CODE # ^ P RF ENDIO END I/O # P EJECT # PKBMZ30 EQU * TRIPPLE ZERO # P LDK A4,3 # P RF KBMZ25 # PKBMZ20 LDK A4,2 DO
0x410938…410acc Dummy {f00=0x013c, f01=0x018e, f02=» # P IFT CECHO=1 $ P CF A5,ECHO $ P XIF $ 0 P CW A3,4,A8 $ < P RB(L) KBMZ25 $ P PKBMZ27 EQU * $ f P SUK A4,1 ANY MORE ZEROES $ z $ P RB(L) AKB368 NO,SET RETURN CODE $ P INH $ * P LD A1,DWTUTQ,A6 GET OUTQUEUE POINTER $ P SUR A1,A6
0x410acc…410c60 Dummy {f00=0x013c, f01=0x0190, f02=» P SUK A1,1 % P RF KBMZ40 % 2 PKBMZ29 ADR A1,A6 GET PREIOUS POINTER POSITION % ( P SUK A1,1 % ^ , PKBMZ40 CW A1,DWTINQ,A6 ANY SPACE LEFT ? % p P RF(E) KBMZ90 NO NOT REALY. % 0 P ST A1,DWTUTQ,A6 STORE NEW OUTQUEUE POINTER % & P LDK A2,/30 STOR
0x410c60…410df4 (4, 215) Dummy {f00=0x013c, f01=0x0190, f02=» P SCR A4,A1 & $ P ST A1,DWTUTQ,A6 UPPDATE POINTER & ( P LDK A1,/A SET RETURN CODE FOR BOTH & > . PENDIX RF ENDIO LENGTH AND THRUGHPUT ERRORS & j P* & P* & P* & PKBCL10 EQU * CLEAR & P LDK A3,0 & P LDK A2,/18 & P RB AKB366 &
0x410df4…410f88 Dummy {f00=0x013c, f01=0x0190, f02=»AR IN ECB-BUFFER & x P CF A15,STORE ' P SUK A3,1 ' . PKBSP15 LDK A2,/8 ' @ P RB AKB366 ' X P* ' j P* ' t PAKB380 LDK A1,0 RETURN CODE ' ~ P EJECT ' P* ' P* ' , P* THIS IS A COMMON END OF THE DRIVER ' P* ' 2 P* SET E
0x410f88…41111c Dummy {f00=0x013c, f01=0x0190, f02=»NH ' P IFT CTIMUT=1 ( P LD A4,DWTTP,A6 ( * P RF(E) ENDI05 NO TIMING ON THIS DEVICE ( 8 P CM* DWTTP,A6 RESET TIMER ( f P CM DWTTP,A6 ( P XIF ( P* ( , PENDI05 ST A3,6,A8 STORE EFFECTIVE LENGTH ( PENDI10 EQU * ( P* ( P IFT CEC
0x41111c…4112b0 Dummy {f00=0x013c, f01=0x0190, f02=» ( P* ) P EJECT ) P* ) P* ) * P* ) 4 P* IHKB ) > P* ) P P* ) Z F P* THIS IS THE INTERRUPT HANDLER ENTERED FROM CHLT/CHRT DRIVER ) d P* ) P* ) P* ) PIHKB EQU * ) P ANK A2,/FF ) * P CF A15,KONVER CONVERT
0x4112b0…411444 Dummy {f00=0x013c, f01=0x0190, f02=»D A3,DWTST,A6 NORMAL CHAR ) P IFT KBLOCK=1 * " P ANK A3,/FF * 8 P RF(Z) EXIT * L P LD A3,DWTST,A6 I/O REQUEST? * ` P XIF * * P RF(N) IHKB15 NO READ REQUEST PENDING * " P SLL A3,7 INTERRUPT ALLOWED ? * 4 P RF(NN) IHKB15 NO, STORE CHARACTER I
0x411444…4115d8 Dummy {f00=0x013c, f01=0x0190, f02=»IME * x P ST* A3,DWTTP,A6 + P XIF + $ , PIHKB07 ABL LDREG RETURN TO READ ROUTINE + 0 , PIHKB12 CF A15,KEYSET SET KEY CODE IN DWT + ` P LDR A3,A3 + P RF(Z) EXIT NO KEY CHANGE + P LD A3,DWTST,A6 + ( P RF(N) EXIT NO READ REQUEST PENDING + P
0x4115d8…41176c Dummy {f00=0x013c, f01=0x0190, f02=»A6 + P ABL AKB210 , P , PIHKB15 LD A1,DWTINQ,A6 , & P LCR A4,A1 , D " P XRK A4,/FF ALREADY OVERFLOW? , V P RF(E) EXIT YES , | P LDR A3,A1 , 4 P CF A15,EOQUEU GET NEXT OUTQUEUE POINTER ADDRESS , P CW A1,DWTUTQ,A6 OVERFLOW? , ( P RF(NZ)
0x41176c…411900 Dummy {f00=0x013c, f01=0x0190, f02=»NQUEUE POINTER , r PIHKB30 SCR A2,A3 - PEXIT ABL TDISP - . P* - D P EJECT - N P* - P* - f P* - p P* AKBTUT - z P* - & P* THIS IS THE TIME-OUT ROUTINE - P* - P* - P* - P IFT CTIMUT=1 - PAKBTUT EQU * - "
0x411900…411a94 (4, 216) Dummy {f00=0x013c, f01=0x0190, f02=»ATCH IF NO REQUEST ON - , P RB IHKB07 RESTORE REGISTER AND END I/O . P XIF . N P EJECT . Z P* . h P* . r P* . | P* . P* KEYSET . P* . P* . P* . , P* ON ENTRY: A4= NEG KEY-LOCK VALUE . P* . @ P* ON EXI
0x411a94…411c28 Dummy {f00=0x013c, f01=0x0190, f02=» P LDKL A2,/100 / PSET100 SRL A2,1 / P ADK A4,2 IN A4: 1=OFF 0=ON / 2 P RB(N) SET100 / V $ P ANR A3,A2 CHEC OLD KEY POSITION / l " P RF(NZ) SET300 JUMP IF KEY ON / P LDR A4,A4 / P RF(NZ) SET500 / P RF SET400 / PSET300 LDR A4,A4 /
0x411c28…411dbc Dummy {f00=0x013c, f01=0x0190, f02=»DK A3,1 A3=1 IF KEY LOCK HAS CHANGED / PSET500 LDR* A4,A15 0 , P RTN A15 0 F P EJECT 0 V P* 0 d P* 0 n P* 0 x P* KONVER 0 P* 0 * P* KONVER CONVERTS INPUT CHARACTER 0 P* 0 P* 0 ( P* ON ENTRY: A2= INPUT CHARACTER 0
0x411dbc…411f50 Dummy {f00=0x013c, f01=0x0190, f02=»RL,SHIFT 0 P $ P* A5 IS DESTROYED! 1 P* 1 8 P* 1 B PKONVER EQU * 1 L P LDR A4,A2 1 ` P IFT NSHIFT=0 1 r P SUK A4,/7C CODE > /7B 1 P RF(NN) KON500 YES 1 P LDR A4,A2 RESTORE CHARACTER 1 P XIF 1 8 P STR A2,A15 STORE CHARAC
0x411f50…4120e4 Dummy {f00=0x013c, f01=0x0190, f02=»N) KON180 ALFANUMERIC 1 P SUK A4,/10 FUNCTION 2 P RF(NN) KON110 NO 2 : P SUK A2,/40 YES 2 T PKON105 EQU * 2 l P ANK A5,/10 2 P SRL A5,3 2 P RF KON200 2 * PKON110 SUK A4,8 (UN)CTRL OR (UN)SHIFT 2 P RF(N) KON400 KEY-LOCK 2 P RF(
0x4120e4…412278 Dummy {f00=0x013c, f01=0x0190, f02=»4,2 2 P RF(N) KON125 CONTROL OFF 3 $ P RF(E) KON140 NUMERICAL SHIFT ON 3 . " P RF KON160 NUMERICAL SHIFT OFF 3 V P XIF 3 | PKON125 EQU * 3 P LDKL A2,/FFDF UNCTRL 3 PKON120 ANR A5,A2 3 PKON130 STR A5,A6 DWTCHP 3 P LDK A4,/10 3 P R
0x412278…41240c Dummy {f00=0x013c, f01=0x0190, f02=» P LDK A2,/90 4 P RF KON150 4 P XIF 4 * PKON145 EQU * 4 6 P LDK A2,/10 SHIFT 4 J PKON150 ORR A5,A2 4 d P RB KON130 4 | PKON160 EQU * 4 P IFT NSHIFT=1 4 P LDR A4,A5 4 P ANK A4,/80 4 P RF(Z) KON165 4 P LDKL A2,/FF7F 4
0x41240c…4125a0 Dummy {f00=0x013c, f01=0x0190, f02=» P RB KON150 5 PKON180 SUK A2,/20 FIND INDEX 5 P ANK A5,/30 5 : P SRL A5,3 5 N P ADK A5,4 5 ` 8 PKON200 LD A4,DWTCON,A6 GET CONVERSION TABLE ADDRESS 5 r P ADR A4,A5 5 P LDR* A4,A4 5 P RF(Z) KON400 5 P ADR A4,A2 5 * P LDR* A2,A15
0x4125a0…412734 (4, 217) Dummy {f00=0x013d, f01=0x018e, f02=»15 5 4 PKON400 LDR* A2,A15 NO CONVERSION, KEEP CHARACTER 6 P RB KON300 6 B P IFT NSHIFT=0 6 T PKON500 EQU * 6 j P LDR A4,A4 KEY CODE /7C 6 ~ P RF(Z) KON600 YES 6 & P LDK A4,1 INDICATE SKIP CHARACTER 6 P RTN A15 6 PKON600 EQU * 6 P S
0x412734…4128c8 Dummy {f00=0x013d, f01=0x0190, f02=» 6 ^ 6 P* ECB-BUFFER AND INCREMENT BUFFER INDEX 7 P* 7 B P* ON ENTRY: 7 L P* 7 b P* A2 = CHARACTER TO STORE 7 l P* A3 = BUFFER INDEX 7 P* 7 P* 7 PSTORE EQU * 7 P LD A4,2,A8 BUFFER ADDRESS 7 P ADR A4,A3 ADD B
0x4128c8…412a5c Dummy {f00=0x013d, f01=0x018e, f02=»P,A15 7 P EJECT 8 P* 8 P* 8 & 6 P* EOQUEU = SUBROUTINE TO GET NEXT QUEUE POINTER 8 0 P* 8 j P* ON ENTRY: 8 t P* 8 P* A1 = QUEUE POINTER 8 P* A6 = DWT-ADDRESS 8 P* 8 P* ON EXIT: 8 P* 8 P* A1 = NE
0x412a5c…412bf0 Dummy {f00=0x013d, f01=0x406c, f02=» * P LDK A1,DWTSQ SET QUEUE START ADDRESS 9 PEOQU10 ADR A1,A6 9 2 P RB STORTN 9 J P END 9 @ 9 h 8 j P* ON ENTRY: 8 t P* 8 P* A1 = QUEUE POINTER 8 P* A6 = DWT-ADDRESS 8 P* 8 P* ON EXIT: 8 P* 8 P* A1 = NE
0x412bf0…412d84 Dummy {f00=0x013d, 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
0x412d84…412f18 Dummy {f00=0x013d, f01=0x0190, f02=»VATE R P* S P EJECT DRFD01 S P* S . P******************** S 8 P* * S T P* READY INTERRUPT * S p P* * S P******************** S P* S PFDRE EQU * S P LD A2,DWTA2,A6 S * P RB(NZ) F:DISP P
0x412f18…4130ac Dummy {f00=0x013d, f01=0x0190, f02=» XIF S P* T P IFF TOSS+IBM=0 T P CM DWTST,A6 SET UNIT BUSY T . P RB FDONVL READ VOLUME NAMES T P P XIF T t P* T P EJECT DRFD01 T P* T P********************* T P* * T P* INTERRUPT HANDLER * T P*
0x4130ac…413240 Dummy {f00=0x013d, f01=0x0190, f02=»2=1 T * P CF A15,SAVE8 SAVE REGISTERS ON STACK U P XIF U : P* U F P IFT CPU852=0 U P " P MSR 8,A15 SAVE A1-A8 ON STACK U f P XIF U P* U P LDKL A6,DWFD01 DWT ADDRESS U P IFT CHAN=1 U P ENB U & P LD A1,DWTUB,A6 GET BUFFER POINTER
0x413240…4133d4 (4, 218) Opaque[0x194]
0x4133d4…413568 # DirEnt {nam=»DRGP01«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x2388, f03=0x0000}
0x4133d4…413568 IdxSect {
0x4133d4…413568 f00 = 0x011c // 0x4133d4 @0x0
0x4133d4…413568 f01 = 0x000e // 0x4133d6 @0x2
0x4133d4…413568 gno = [ // 0x4133d8 @0x4
0x4133d4…413568 [0x00]: C0x011c.0x1.0
0x4133d4…413568 [0x01]: C0x011c.0x2.0
0x4133d4…413568 [0x02]: C0x011c.0x3.0
0x4133d4…413568 [0x03]: C0x011d.0x0.0
0x4133d4…413568 [0x04]: C0x011d.0x1.0
0x4133d4…413568 [0x05]: C0x011d.0x2.0
0x4133d4…413568 [0x06]: C0x011d.0x3.0
0x4133d4…413568 ]
0x4133d4…413568 }
0x413568…4136fc Dummy {f00=0x011c, f01=0x0190, f02=» 2 P IDENT DRGP01 REL 10.0 80-03-14 870105041000 P : P PRR 10.0 79-12-07 B * P =3,CORRECTION OF MMU BUFFER EQUATE ^ P REL 9.1 79-04-06 & P =1-2,GEN UPDATE TO 8.2+ STATUS P REL 8.2 79-03-16 P =2,IMPROV. OF TEST ORDE
0x4136fc…413890 Dummy {f00=0x011c, f01=0x0190, f02=»************************************** P* . $ P* PHILIPS TERMINAL SYSTEM PTS 8 P* ` ( P* DRGP01 = DRIVER GENERAL PRINTER j P* P* P* P* P* P* 6 P*************************************************
0x413890…413a24 Dummy {f00=0x011c, f01=0x0190, f02=». Z P* 8 P* THE DRIVER ALSO INCLUDES DEVICE DEPENDENT ECHO 6 P* FUNCTIONS, WHICH MAKES IT POSSIBLE TO USE THE P 6 P* GENERAL PRINTER AS AN ECHO DEVICE TO ANY KEY- 4 P* BOARD, THAT RUNS UNDER THE GENERAL KEYBOARD P* DRIVER
0x413a24…413bb8 Dummy {f00=0x011c, f01=0x0190, f02=» P* ( P* I H G P INTERRUPT HANDLER P* : ( P* R C G P RECOVERY ROUTINE D P* p & P* E C H O G P ECHO FUNCTIONS z P* P EJECT P* * P* THE FOLLOWING ORDERS ARE TREATED: P* P* ORDER
0x413bb8…413d4c Dummy {f00=0x011c, f01=0x0190, f02=» P* " P* REGISTER A1 = RETURN CODE ( P* A2 = OUTPUT CHARACTER 4 $ P* A3 = BUFFER INDEX ` $ P* A4 = WORK REGISTER " P* A5 = STACK BASE " P* A6 = DWT-ADDRESS P*
0x413d4c…413ee0 Dummy {f00=0x011c, f01=0x0190, f02=» ECHO OF BACKSPACE (GPBSP) AND CLEAR ~ ( P* (GPCLR) KEYS SHOULD BE DEFINED. , P* X 8 P* BY MEANS OF CONDITIONAL ASSEMBLY THE DRIVER IS b 0 P* ADAPTED TO HANDLE FOLLOWING FUNCTIONS. P* --ROOMLESS POINT : P* --ACCEPTANCE OF SPE
0x413ee0…414074 (4, 219) Dummy {f00=0x011c, f01=0x0190, f02=»ECHOING OF END OF RECORD CHARACTER * P** --SUPPRESION OF TRAILING BLANKS * @ P* --END OF REQUEST WHEN PRINTER HARDWARE BECOMES INACTIVE X P* 6 P* THE CHARACTER CODES FOR ROOMLESS POINT DIGITS F P* IS DEFINED IN A SPECIAL TABLE. STAN
0x414074…414208 Dummy {f00=0x011c, f01=0x0190, f02=»*** P* P* P* ( P ENTRY GPAD ADDRESS TO ADDRESSBLOCK * 0 P ENTRY ECHOGP DEVICE-DEPENDENT ECHO-ROUTINE V P* P* P* P* . P***************************************** . P* EXTERNAL TOSS MODULE ENTRIES
0x414208…41439c Dummy {f00=0x011c, f01=0x0190, f02=»T SUBROUTINE TO SEND CHARACTER P EXTRN TDISP DISPATCHER & > P EXTRN LDREG LOAD REGISTERS A4, A3, A5, A7, A8 AND RETURN F P EXTRN TENDIO END I/O . P EXTRN SAVE8 SAVE 8 REGISTERS ON A15 STACK 0 P EXTRN ECHRTN RETURN TO KEYBOARD AFTER ECHO
0x41439c…414530 Dummy {f00=0x011c, f01=0x0190, f02=»ETERS * P************************ P* 2 P* < P EXTRN DWTST STATUS F EXTRN DWTBC BYTE COUNTER b P EXTRN DWTOR ORDER P EXTRN DWTA3 SAVE AREA A3 P* P EJECT P* P* P************* P* CONS
0x414530…4146c4 Dummy {f00=0x011c, f01=0x0190, f02=»T OF MESSAGE PETB EQU /97 END OF MESSAGE PETX EQU /03 LAST DUMMY 6 PCR EQU /0D CARRIAGE RETURN T PLF EQU /0A LINE FEED v PFFED EQU /0C FORM FEED PSPACE EQU /20 SPACE 0 PPROUT EQU /04 PAPER OUT OR READY SWITCH OFF P*
0x4146c4…414858 Dummy {f00=0x011c, f01=0x0190, f02=»****************************** P* & 2 P* IT IS POSSIBLE TO EXCLUDE ROOMLESS POINT 0 $ P* FUNCTION BY SETTING X:A = 0 f P* PX:A EQU 1 PCROOM EQU 0 P* 4 P* ACCEPTANCE OF SPECIAL CHARACTER /13 CAN BE 0 P* INC
0x414858…4149ec Dummy {f00=0x011c, f01=0x0190, f02=»ER /14 CAN BE n 0 P* INCLUDED IN THE DRIVER BY SETTING X:C=1 P* J PX:C EQU 0 T PFJOTON EQU 0 f P* z . P* IT IS POSSIBLE TO EXCLUDE ECHOING OF , P* AN EXTRA SPACE AFTER EACH CHARACTER P* BY SETTING X:D=0 P*
0x4149ec…414b80 Dummy {f00=0x011c, f01=0x0190, f02=»LE ^ 8 P* TO SUPPRESS ECHOING OF END OF RECORD CHARACTER. 8 P* THIS IS ATTAINED BY SETTING THE CONSTANT X:E=0. F P* PX:E EQU 0 PEORECH EQU 0 P* 4 P* SUPPRESSING OF SPACES IN RIGHT HAND OF LINE P* BY SETTING X:F=
0x414b80…414d14 (4, 220) Dummy {f00=0x011c, f01=0x018e, f02=»RINTER HARDWARE x * P* IS INACTIVE CAN BE CHOSEN BY SETTING P* THE CONSTANT RECEND = 1 F PX:G EQU 0 h PRECEND EQU 1 z P* . P* A PROGRAM VERSION USING TOSS MMU PAGING * P* IS OBTAINED BY SETTING MMUPAG EQU 1. P* PMMUPAG
0x414d14…414ea8 Dummy {f00=0x011c, f01=0x0190, f02=» d P* PCPU852 EQU 0 P* & P* MMU BUFFER SIZE 0 P* L PX:H EQU 120 V PDVBLEN EQU 162 j P* =1 , P* SPECIAL CONDITION FOR ABIS PRINTER =1 PABIS EQU 0 =1 P EJECT P* P* $ P****************
0x414ea8…41503c Dummy {f00=0x011c, f01=0x0190, f02=»10 START OF DRIVER DEFINED PART P* ( P IFT MMUPAG=0 2 PSTART EQU DWTDRD H P XIF ` P* l P IFT MMUPAG=1 v PSTART EQU DWTDRD+4 P XIF P* . PDWTAP EQU START+/12 HEAD POSITION POINTER P* * P****************
0x41503c…4151d0 Dummy {f00=0x011c, f01=0x0190, f02=»BSP EQU /2D BACK SPACE PGPCLR EQU /3F CLEAR P* : P******************** D P* RETURN CODES * ` P******************** | P* 0 PPAROUT EQU /20 PAPER OUT OR READY SWITCH OFF " PCCERR EQU /4 CODE CHECK ERROR " PTPERR EQU /2
0x4151d0…415364 Dummy {f00=0x011c, f01=0x0190, f02=»BLES * P********** P* P* * P IFT CROOM=1 4 P* H PROMTAB EQU * R * P TABLE FOR ROOMLESS POINT CHARACTERS f ( P DATA /2122,/2426,/3B3C,/3E40,/5E5F P* P XIF P* P* P* " P DATA DVBLEN MMU BUF
0x415364…4154f8 Dummy {f00=0x011c, f01=0x0190, f02=»ADDRESS z P DATA IHGP INTERRUPT HANDLER P DATA RCGP RECOVERY ROUTINE 4 . P DATA ECHOGP DEVICE-DEPENDENT ECHO-ROUTINE X P EJECT P* P* A C G P P* 2 P* ACGP = ACTIVATION DRIVER GENERAL PRINTER P* H P* ORD
0x4154f8…41568c Dummy {f00=0x011c, f01=0x0190, f02=» RETURN CODE IS ALSO SET IF TIME-OUT IS SIGNALLED FROM P* CHANNEL UNIT. H P* l > P* ORDER 05: BASIC WRITE. CHARACTER ARE SENT TO PRINTER v " P* FROM ECB-BUFFER P* F P* ORDER 06: STANDARD WRITE. C
0x41568c…415820 Dummy {f00=0x011c, f01=0x0190, f02=»DK A2,STX START OF MESSAGE P LDR A3,A7 =1 " P RF(Z) ACGP10 ORDER 0 =2 8 P SUK A3,5 =1 X P RF(E) ACGP09 ORDER 5 =1 n P SUK A3,1 =1 ( P ABL(NE) DISIOE I/O REQUEST ERROR =1 * P LD A3,4,A8 ORDER 6 GET REQ LENGTH =1 P RF(Z) ACG
0x415820…4159b4 (4, 221) Dummy {f00=0x011d, f01=0x0190, f02=» A3,/2B =1 $ P RF(E) ACGP06 CONTROL CHAR 2B =1 P CF A5,OUTPUT SEND STX =1 < P LDK A2,CR =1 ^ P CF A5,OUTPUT =1 t P IFT ABIS=1 =1 P LDK A2,FFED =1 P CWK A3,/31-/2B =1 $ P RF(E) ACGP03 CONTROL CHAR 31 =1 P XIF
0x4159b4…415b48 Dummy {f00=0x011d, f01=0x0190, f02=»DK A2,LF =1 , PACGP03 LDK A1,1 RESET HEAD POS COUNTR =1 P ST A1,DWTAP,A6 =1 D * PACGP06 LDK A3,2 START BUFFER INDEX =1 ` PACGP09 CF A5,OUTPUT =1 P RF ACGP19 =1 P EJECT =2 P* =2 P* ORDER 00: TEST =2 N P*
0x415b48…415cdc Dummy {f00=0x011d, f01=0x0190, f02=» CF A5,OUTPUT =2 * P LDK A2,0 SEND CHAR /00=END OF TEST =2 P CF A5,OUTPUT =2 H P RF AGP410 =2 b P EJECT x P* & P* GET, CHECK AND SEND CHARACTER P* (IF ORDER 5 NO CHECK) P* PACGP17 CF A5,OUTPUT 0 PACGP18
0x415cdc…415e70 Dummy {f00=0x011d, f01=0x0190, f02=» IFT SUPSPA=1 4 P CF A15,SKIPSP SKIP SPACES IN END OF ECB-BUFFER P XIF N P LDK A4,0 Z 6 PACGP20 CF A15,GETCHR GET CHARACTER FROM ECB-BUFFER l P LDR A1,A1 LAST CHARACTER? P RF(NP) AGP400 YES P LDR A1,A2 P SUK A7,5 ORDER 5?
0x415e70…416004 Dummy {f00=0x011d, f01=0x0190, f02=»N POINTER n P RB ACGP17 * PACGP22 SUK A1,8 TABULATION CHARACTER ? $ P RF(E) ACGP40 R P IFT ABIS=1 =1 h P CWK A2,/07 BELL ? =1 P RB(E) ACGP09 =1 P XIF =1 P* P IFT TRETON=0 P IFT FJOTON=0 P*
0x416004…416198 Dummy {f00=0x011d, f01=0x0190, f02=» P RB(E) ACGP17 P SUK A1,/C LESS THAN /20 ? P* @ P XIF J P* V P* ` P IFT TRETON=1 j P IFT FJOTON=0 P* P SUK A1,2 /13 ? P RB(E) ACGP17 P SUK A1,/D LESS THAN /20 ? P XIF P* P*
0x416198…41632c Dummy {f00=0x011d, f01=0x0190, f02=»CGP17 P SUK A1,/C LESS THAN /20 ? P* 0 P XIF : P* F & P RF(N) ACGP30 YES,CODE CHECK ERROR P & P SUK A1,/8E ROOMLESS POINT? (AE) z P RF(E) AGP100 P ADK A1,/4F GREATER THAN /5F P RB(NP) ACGP17 NO P SUK A1,/20
0x41632c…4164c0 Dummy {f00=0x011d, f01=0x018e, f02=» PACGP24 EQU * P SUK A1,/D P RF(NZ) ACGP26 NOT CR . " P CM DWTST,A6 SET POS LTR.TO 0 L ( P CM DWTAP,A6 RESET HEAD POS.POIINTER r PACGP26 ADK A1,3 P RB(NZ) ACGP17 NOT LINE FEED P SUK A1,1 * P ADS A1,DWTST,A6 DECREMENT P
0x4164c0…416654 (4, 222) Dummy {f00=0x011d, f01=0x018e, f02=» P ORS A1,8,A8 RETURN CODE P RB ACGP20 ( P EJECT : P* H P* TABULATION R P* j PACGP40 EQU * t , P CF A15,GETCHR GET FIRST ASCII CHARACTER P LDR A4,A2 . P CF A15,GETCHR GET SECOND ASCII CHARACTER P ANK A2,/F
0x416654…4167e8 Dummy {f00=0x011d, f01=0x0190, f02=» 8 PACGP44 SU A2,DWTAP,A6 SUBTRACT HEAD POSITION POINTER P LC A4,DWTBC,A6 @ , P SUR A2,A4 AND REQUESTS POSITION COUNTER X & P TO GET NUMBER OF SPACES TO SEND P RB(NP) ACGP20 P LDR A4,A2 : PACGP45 LDK A2,SPACE LOOP ALSO USED BY RECOVERY
0x4167e8…41697c Dummy {f00=0x011d, f01=0x018e, f02=»A3 RECOVERY? P RB(NE) ACGP20 * P SC A4,DWTBC,A6 RESET POSITION POINTER * P LDK A3,2 START BUFFER INDEX X P RB ACGP19 | P EJECT P* P* ROOMLESS POINT P* PAGP100 EQU * P* P IFT CROOM=1 P* ( P
0x41697c…416b10 Dummy {f00=0x011d, f01=0x0190, f02=» P IFF CROOM=1 ! P* ! P ANK A2,/7F ! " P* ! 6 P XIF ! @ P* ! L P RB ACGP17 ! V P EJECT ! h P* ! v P* ! ( P* SEND LAST DUMMY , LOAD A1 WITH ! P* RETURN CODE AND END I/O ! P* ! PAGP400 EQU * ! P LDK A2,ETB END
0x416b10…416ca4 Dummy {f00=0x011d, f01=0x018e, f02=»BIS=1 =1 ! P ANK A2,/4 PAPER IN ? =1 " P RF(NZ) AGP420 YES =1 " 2 " P LDK A1,/20 SET RETURN CODE =1 " P P XIF =1 " v PAGP420 EQU * " 0 P CF A15,UPDAPP UPDATE HEAD POSITION COUNTER " PENDIO CF A15,TENDIO END I/O " $ PEXIT ABL TDISP GO TO
0x416ca4…416e38 Dummy {f00=0x011d, f01=0x0190, f02=» " P* # , P* UPDAPP = SUBROUTINE TO UPDATE HEAD # , P* POSITION POINTER WHEN END # B ( P* OF REQUEST IS REACHED # r PUPDAPP EQU * # ( P LC A3,DWTBC,A6 GET POSITION COUNTER # 2 P ADS A3,DWTAP,A6 UPDATE HEAD POSITION POIN
0x416e38…416fcc Dummy {f00=0x011d, f01=0x0190, f02=» P* $ * P* SKIPSP = SUBROTINE TO SKIP SPACES $ ( P* IN END OF ECB-BUFFER. $ < 6 P* REQUESTED LENGTH IN ECB IS UPDATED. $ h & P* A1,A2,A4 - WORK REG $ P* $ PSKIPSP EQU * $ ( P LD A1,2,A8 GET BUFFER ADDRESS
0x416fcc…417160 Dummy {f00=0x011d, f01=0x0190, f02=» RL < 3 $ P SUK A1,1 DECR. BA % P LCR A4,A1 GET CHAR % * P CCK A4,/2020 SPACE ? % F P RF(NE) SKIP20 NO % d PSKIP07 SUK A2,1 DECR RL % ~ P RB SKIP05 GET NEXT % PSKIP20 CWK A2,4 % P RF(NG) SKIP30 RL < 5 % P LC A4,-2,A1 GET CHAR %
0x417160…4172f4 (4, 223) Dummy {f00=0x011d, f01=0x0190, f02=»ET NEXT % P* & " PSKIP30 ST A2,4,A8 STORE NEW RL & P RTN A15 & @ P XIF & P P EJECT & P* & j P* I H G P & t P* & P* INTERRUPT & P* & PIHGP EQU * & P LD A4,DWTST,A6 BUSY? & P RB(N) EXIT NO & P SLL A4,2 ECHO M
0x4172f4…417488 Dummy {f00=0x011d, f01=0x0190, f02=» P IFT RECEND=0 ' P RB(NZ) EXIT ' P XIF ' . P IFT RECEND=1 ' : P RB(NZ) AGP430 ' P P XIF ' f P ' r 4 PIHGP10 ABL LDREG RELOAD A3-A5 AND RETURN VIA A5 ' z PIHGP20 LDR A1,A1 =2 ' , P RB(Z) IHGP10 TEST ORDER AND TIME OUT =2 ' P RB ENDIO
0x417488…41761c Dummy {f00=0x011d, f01=0x0190, f02=»GP EQU * ' P LDK A4,COSPAC ( P LDR A7,A7 EOR? ( & P RF(N) ECGP17 YES ( > P* ( X P IFT EORECH=0 ( b P* ( x P SUK A2,/80 EOR-CHARACTER ( P RF(NN) ECGP20 YES ( P ADK A2,/80 ( P* ( P XIF ( P* ( P LDR A1,A2 ( P ANK
0x41761c…4177b0 Dummy {f00=0x011d, f01=0x0190, f02=» CR =1 ( P RF(E) ECGP10 YES =1 ) P SUK A1,/B =1 ) * P RF(E) ECGP50 CLEAR ) @ 8 P SUK A1,/20-/8-/10 CHECK THAT CHAR IS WITHIN /20-/5F ) P RF(N) ECGP20 ) P SUK A1,/5F-/20 ) P RF(P) ECGP20 ) & PECGP10 CF A5,OUTPUT SEND CHARACTER ) ( P I
0x4177b0…417944 Dummy {f00=0x011d, f01=0x0190, f02=» P* * P IFT COSPAC=1 * P* * $ P LDK A2,SPACE NO SEND SPACE * . P RB ECGP10 * R P* * d P XIF * n P* * z 6 PECGP17 CF A15,UPDAPP UPDATE HEAD POSITION POINTER * ( PECGP20 ABL ECHRTN RETURN TO KEYBOARD * P EJECT * P* * P* B
0x417944…417ad8 Dummy {f00=0x011d, f01=0x0190, f02=»* * PECGP50 EQU * + " P LDK A2,GPCLR CLEAR CHARACTER + P LDK A4,3 + D P RB ECGP10 + V PECGP60 LDK A2,LF LINE FEED + h P LC A3,DWTBC,A6 + P ANK A3,/FF + " PECGP70 CF A5,OUTPUT SEND CHAR. + P LDK A2,/08 BACKSPACE + P SUK A3,1 +
0x417ad8…417c6c Dummy {f00=0x011d, f01=0x0190, f02=» R C G P + P* , 0 P* RCGP = RECOVERY ROUTINE GENERAL PRINTER , P* , N P* , X ( P* RECOVERY IS CARRIED OUT ONLY IF , b P* ORDER 6 IS RUNNING , P* , P* ON ENTRY: , P* , P* A6 = DWT-ADDRESS , P* A7 = ORDER ,
0x417c6c…417e00 Dummy {f00=0x011d, f01=0x0190, f02=» P IFT CPU852=0 - " P MSR 8,A15 SAVE A1-A8 ON STACK - P XIF - @ P* - L P LD A2,DWTST,A6 BUSY ? - V P RB(N) EXIT NO - t ( P LDK A2,SOH RESET PRINT BUFFER CODE - P CF A5,OUTPUT SEND IT - P CWK A7,5 - P RF(E) RCGP10 - P CWK A7,6 OR
0x417e00…417f94 (4, 224) Dummy {f00=0x011d, f01=0x018e, f02=»6 GET LEFT BYTE OF STATUS WORD - P ANK A2,/4 LINE FEED DONE ? . & P ABL(E) ACGP NO . J P LDK A2,SPACE . b P CF A5,OUTPUT SEND SPACE . x P LDK A2,STX . P CF A5,OUTPUT SEND STX . P LDK A2,CR CARRIAGE RETURN . P LDK A3,0 . 0 P LD A4,DWT
0x417f94…418128 Dummy {f00=0x011d, f01=0x4008, f02=»@ / FT BYTE OF STATUS WORD - P ANK A2,/4 LINE FEED DONE ? . & P ABL(E) ACGP NO . J P LDK A2,SPACE . b P CF A5,OUTPUT SEND SPACE . x P LDK A2,STX . P CF A5,OUTPUT SEND STX . P LDK A2,CR CARRIAGE RETURN . P LDK A3,0 . 0 P LD A4,DWT
0x418128…4182bc Dummy {f00=0x011d, 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 & (
0x4182bc…418450 Dummy {f00=0x011d, f01=0x0190, f02=»RACTER,POS IF CTRL,SHIFT 0 ` $ P* A5 IS DESTROYED! 1 P* 1 H P* 1 R PKONVER EQU * 1 P LDR A4,A2 1 p P IFT NSHIFT=0 1 P SUK A4,/7C CODE > /7B 1 P RF(NN) KON500 YES 1 P LDR A4,A2 RESTORE CHARACTER 1 P XIF 1 8 P STR A2,
0x418450…4185e4 Dummy {f00=0x011d, f01=0x0190, f02=»/40 1 P RF(N) KON180 ALFANUMERIC 2 P SUK A4,/10 FUNCTION 2 . P RF(NN) KON110 NO 2 J P SUK A2,/40 YES 2 d PKON105 EQU * 2 | P ANK A5,/10 2 P SRL A5,3 2 P RF KON200 2 * PKON110 SUK A4,8 (UN)CTRL OR (UN)SHIFT 2 P RF(N) KON400 KEY-
0x4185e4…418778 Dummy {f00=0x011d, f01=0x0190, f02=»1 2 P SUK A4,2 3 P RF(N) KON125 CONTROL OFF 3 $ P RF(E) KON140 NUMERICAL SHIFT ON 3 > " P RF KON160 NUMERICAL SHIFT OFF 3 f P XIF 3 PKON125 EQU * 3 P LDKL A2,/FFDF UNCTRL 3 PKON120 ANR A5,A2 3 PKON130 STR A5,A6 DWTCHP 3 P LDK A
0x418778…41890c Dummy {f00=0x011d, f01=0x0190, f02=»SHIFT NOT ON 3 P LDK A2,/90 4 P RF KON150 4 ( P XIF 4 : PKON145 EQU * 4 F P LDK A2,/10 SHIFT 4 Z PKON150 ORR A5,A2 4 t P RB KON130 4 PKON160 EQU * 4 P IFT NSHIFT=1 4 P LDR A4,A5 4 P ANK A4,/80 4 P RF(Z) KON165 4 P LDK
0x41890c…418aa0 Dummy {f00=0x011d, f01=0x0190, f02=» A2,/20 CTRL 4 P RB KON150 5 PKON180 SUK A2,/20 FIND INDEX 5 & P ANK A5,/30 5 J P SRL A5,3 5 ^ P ADK A5,4 5 p 8 PKON200 LD A4,DWTCON,A6 GET CONVERSION TABLE ADDRESS 5 P ADR A4,A5 5 P LDR* A4,A4 5 P RF(Z) KON400 5 P ADR A4,A2 5
0x418aa0…418c34 (4, 225) Opaque[0x194]
0x418c34…418dc8 # DirEnt {nam=»DRDY01«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x23c0, f03=0x0000}
0x418c34…418dc8 IdxSect {
0x418c34…418dc8 f00 = 0x011e // 0x418c34 @0x0
0x418c34…418dc8 f01 = 0x0018 // 0x418c36 @0x2
0x418c34…418dc8 gno = [ // 0x418c38 @0x4
0x418c34…418dc8 [0x00]: C0x011e.0x0.0
0x418c34…418dc8 [0x01]: C0x011e.0x1.0
0x418c34…418dc8 [0x02]: C0x011e.0x2.0
0x418c34…418dc8 [0x03]: C0x011e.0x3.0
0x418c34…418dc8 [0x04]: C0x011f.0x0.0
0x418c34…418dc8 [0x05]: C0x011f.0x1.0
0x418c34…418dc8 [0x06]: C0x011f.0x2.0
0x418c34…418dc8 [0x07]: C0x011f.0x3.0
0x418c34…418dc8 [0x08]: C0x0141.0x0.0
0x418c34…418dc8 [0x09]: C0x0141.0x2.0
0x418c34…418dc8 [0x0a]: C0x0141.0x3.0
0x418c34…418dc8 [0x0b]: C0x0142.0x0.0
0x418c34…418dc8 ]
0x418c34…418dc8 }
0x418dc8…418f5c Dummy {f00=0x011e, f01=0x0190, f02=» 2 P IDENT DRDY01 REL 10.0 80-03-14 870105041000 P : . P =7,CUR.POS FOR ALL ORDERS EXCEPT ERASE B P PRR 10.0 79-12-07 t 4 P =6,CORRECTION OF SPECIAL CHARTACTER HANDLING P REL 10.1 79-10-19 P =5,ABORT ROUTINE P REL 1
0x418f5c…4190f0 Dummy {f00=0x011e, f01=0x0190, f02=».1 79-04-06 , P =2,ERASE ONLY TO LAST POS. OF SCREEN P PRR 9.1 79-01-31 D . P =1 DRIVER ADAPTAD TO HANDLE PTS 6385 ` P PRR 9.1 79-01-12 P P* 6 P************************************************** P* $ P*
0x4190f0…419284 Dummy {f00=0x011e, f01=0x0190, f02=» P* P* 6 P************************************************** P* R P* : P* THIS DRIVER HANDLES OUTPUT TO THE VIDEO DISPLAYS f @ P* PTS 6344, PTS 6342 AND TO THE PLASMA DISPLAYS PTS 6351 P* AND PTS 6386 6 P* T
0x419284…419418 Dummy {f00=0x011e, f01=0x0190, f02=»HO-FUNCTIONS d : P* WHICH MAKES IT POSSIBLE TO USE THE DISPLAY AS AN : P* ECHO-DEVICE TO ANY KEYBOARD, THAT RUNS UNDER THE R ( P* GENERAL KEYBOARD DRIVER DRKB01. P* P* 0 P* THE DRIVER CONSISTS OF FOLLOWING PARTS: P*
0x419418…4195ac Dummy {f00=0x011e, f01=0x018e, f02=»ERY ROUTINE x P* & P* E C H O D Y ECHO FUNCTIONS P* H P R P Z P b P* j * P* THE FOLLOWING ORDERS ARE TREATED: t P* P* ORDER 00: TEST STATUS P* 05: BASIC WRITE " P* 06: STANDARD
0x4195ac…419740 Dummy {f00=0x011e, f01=0x0190, f02=» P* NORMAL REGISTER USAGE P* & " P* REGISTER A1 = RETURN CODE 0 ( P* A2 = OUTPUT CHARACTER V $ P* A3 = BUFFER INDEX $ P* A4 = WORK REGISTER " P* A5 = STACK BASE " P* A6
0x419740…4198d4 (4, 226) Dummy {f00=0x011e, f01=0x0190, f02=»* SYSTEM ADAPTATION P* < P* DISPLAY TYPE MUST BE DEFINED IN FIRST WORD IN DWT. ( P* h * P* --------------------------------- r P* BIT: 10 11 P* -------------- " P* 0 0 PTS 6344 * P* 0
0x4198d4…419a68 Dummy {f00=0x011e, f01=0x0190, f02=» BY MEANS OF CONDITIONAL ASSEMBLY THE DRIVER: 4 P* -CAN HANDLE GRAFIC MODE FOR PTS 6351 OR NOT 8 , P* -IS ADAPTED TO CONTROL ONLY PTS 6344 p : P* -CAN USE LOWER CASE CHAR. GENERATOR COLUMN 6 AND 7 8 P* -CAN SUPPRESS ECHOING OF END OF RECORD
0x419a68…419bfc Dummy {f00=0x011e, f01=0x0190, f02=»JECT P* P* P* P* * P*********** 4 P* ENTRIES * H P*********** P* p P* z P* ( P ENTRY DYAD ADDRESS TO ADDRESSBLOCK 0 P ENTRY ECHODY DEVICE-DEPENDENT ECHO-ROUTINE P* P* P*
0x419bfc…419d90 Dummy {f00=0x011e, f01=0x0190, f02=»******************* z P* P* & $ P EXTRN DISIOE I/O REQUEST ERROR 0 . P EXTRN OUTPUT SUBROUTINE TO SEND CHARACTER X P EXTRN TDISP DISPATCHER > P EXTRN LDREG LOAD REGISTERS A4, A3, A5, A7, A8 AND RETURN P EXTRN TENDIO END I/O .
0x419d90…419f24 Dummy {f00=0x011e, f01=0x0190, f02=» ECB-BUFFER p P EJECT P* " P************************ , P* DWT PARAMETERS * L P************************ l P* P EXTRN DWTST STATUS EXTRN DWTBC BYTE COUNTER P EXTRN DWTOR ORDER P* P EJECT P**
0x419f24…41a0b8 Dummy {f00=0x011e, f01=0x018e, f02=»RESS t " PULSTAR EQU /12 UNDERLINE START " PULSTOP EQU /13 UNDERLINE STOP 2 & PLISTAR EQU /1E LOW INTENSITY START X & PLISTOP EQU /1F LOW INTENSITY STOP PBACKSP EQU /08 BACKSPACE PLF EQU /0A LINE FEED PHOME EQU /0B CURSOR HOME ( P
0x41a0b8…41a24c Dummy {f00=0x011e, f01=0x0190, f02=» z PSTX EQU /82 START OF MESSAGE PETB EQU /97 END OF MESSAGE , PETX EQU /03 LAST DUMMY N . PRETURN EQU /12 RETURN TO ALPHANUMERIC MODE l * PESCAPE EQU /11 ESCAPE TO GRAPHIC MODE " PPOINT EQU /2E POINT CHARACTER 2 PEQU EQU 6 THRESHOLD FO
0x41a24c…41a3e0 Dummy {f00=0x011e, f01=0x0190, f02=»** ~ P* RETURN CODES * P******************** & P* B " PCCERR EQU /4 CODE CHECK ERROR L ( POPERR EQU /1 NOT OPERABLE, POWER OFF r P* P EJECT P* P* . P***************************************** . P* CONDITI
0x41a3e0…41a574 (4, 227) Dummy {f00=0x011e, f01=0x0190, f02=»VER CAN HANDLE GRAFIC MODE FOR PTS 6351 t P* 0 PX:A EQU 0 : PGRAFIC EQU 0 L P* ` < P* BY SETTING X:B = 1 THE DRIVER HANDLES ONLY PTS 6344 j P* PX:B EQU 1 PWHATDY EQU 1 P* P* 8 P* BY SETTING X:C TO 1 L
0x41a574…41a708 Dummy {f00=0x011e, f01=0x0190, f02=» BY MEANS OF CONDITIONAL ASSEMBLY IT IS POSSIBLE 8 P* TO SUPPRESS ECHOING OF END OF RECORD CHARACTER. : 8 P* THIS IS ATTAINED BY SETTING THE CONSTANT X:G=0 v P* PX:D EQU 0 PEORECH EQU 0 P* 0 P* BY SETTING THE CONSTANT
0x41a708…41a89c Dummy {f00=0x011e, f01=0x0190, f02=» P EJECT P* 2 P* BY SETTING X:F = 1, CURSOR WILL BE STEADY P* INSTEAD OF BLINKING R PX:F EQU 0 r PSTEADY EQU 0 P* < P* THIS DRIVER CAN BE ADAPTED TO MEMORY MANAGEMENT UNIT P* BY SETTING MMUPAG = 1 P*
0x41a89c…41aa30 Dummy {f00=0x011e, f01=0x0190, f02=»852 EQU 0. p P* PCPU852 EQU 0 P* 0 8 P* BY MEANS OF CONDITIONAL ASSEMBLY IT IS POSSIBLE : < P* TO CHOOSE BETWEEN NINE (9) DIFFERENT CHARACTER SETS. v P P P* CODE COUNTRY P P* 0 GB/NL/B P* 1 D/A/L/CH
0x41aa30…41abc4 Dummy {f00=0x011e, f01=0x0190, f02=»0 PCOUNTRY EQU 0 P* & P* MEMORY MANAGEMENT BUFFER SIZE * P* T P* ^ PX:H EQU 64 h PDVBLEN EQU 162 z P* P EJECT P* P* $ P******************************** $ P* DWT-DISPLACEMENT *
0x41abc4…41ad58 Dummy {f00=0x011e, f01=0x0190, f02=»G=0 PSTART EQU DWTDRD P XIF $ P* 0 P IFT MMUPAG=1 : PSTART EQU DWTDRD+4 P P XIF j P* v . PDWTAP EQU START+/12 HEAD POSITION POINTER " PDWTPOS EQU START+/15 POSITIONS PDWTLIN EQU START+/14 LINES & PDWTBIN EQU STA
0x41ad58…41aeec Dummy {f00=0x011e, f01=0x018e, f02=»* P DATA DVBLEN BUFFER LENGTH P DATA 2 DEVICE INDEX , PDYAD EQU * ADDRESS BLOCK H P DATA ACDY ACTIVATION DRIVER h $ P DATA ABDY ABORT ROUTINE ADDRESS P DATA IHDY INTERRUPT HANDLER P DATA RCDY RECOVERY ROUTINE . P DATA ECHODY
0x41aeec…41b080 Dummy {f00=0x011e, f01=0x0190, f02=» P EJECT P* P* A C D Y P* 0 * P* ACDY = ACTIVATION DRIVER DISPLAY : P* h H P* ORDER 00: TEST STATUS. DUMMY IS SENT TO DISPLAY AND RETURN CODE r 2 P* IS SET IF DISPLAY NOT OPERABLE P* P* > P
0x41b080…41b214 (4, 228) Dummy {f00=0x011e, f01=0x0190, f02=» ORDER 06: STANDARD WRITE. CHARACTERS ARE SENT TO DISPLAY FROM < P* ECB-BUFFER AFTER INDIVIDUAL CODE CHECK. H P* L P* IF A PREDEFINED NUMBER OF CHARACTERS (SEE CONSTANT 'EQU') J P* ARE FOUND EQUAL, FAST O
0x41b214…41b3a8 Dummy {f00=0x011e, f01=0x0190, f02=»1 B P* ORDER 07: WRITE GRAPHIC DISPLAY. THE DISPLAY IS SWITCHED @ P* TO GRAPHIC MODE AND INFORMATION IN ECB-BUFFER P * P* IS SENT TO THE DISPLAY. P* P XIF : P* ORDER /B: CURSOR POSITIONING AND STANDARD W
0x41b3a8…41b53c Dummy {f00=0x011e, f01=0x0190, f02=» V @ P* IS ERASED. THEN STANDARD WRITE (SEE ORDER 6) P* IS EXECUTED. L P* p < P* ORDER 31: ERASE. THE DISPLAY IS ERASED ON THE LINE z < P* WHERE THE CURSOR IS POSITIONED THE NUMBER @ P*
0x41b53c…41b6d0 Dummy {f00=0x011e, f01=0x0190, f02=» IN THE CURSOR POSITION. THE CURSOR RE- * P* MAINS IN THAT POSITION. 0 PACDY EQU * ^ P LDK A3,0 START BUFFER INDEX p P LDK A4,0 COUNTER P LDR A7,A7 ORDER 0 ? P ABL(E) ADY410 YES P LDK A2,STX START OF MESSAGE P
0x41b6d0…41b864 Dummy {f00=0x011e, f01=0x0190, f02=»NO P IFT GRAFIC=1 P CWK A7,7 ORDER ' ? P ABL(E) ADY500 < P XIF R P IFT WHATDY=0 ^ . P LDK A2,/12 INDICATE SWITCH TO ALPHA MODE t P CF A5,OUTPUT P* P XIF P* PACDY02 EQU * P CWK A7,5 ORDER 5
0x41b864…41b9f8 Dummy {f00=0x011e, f01=0x0190, f02=» SUK A7,/26 ORDER ERASE ? P ABL(E) ADY160 YES " P* < & PDYERR ABL DISIOE I/O REQUEST ERROR F P EJECT p : P* ACTIONS SPECIFIED BY USER IN RIGHT BYTE IN BUFFER ~ P* ARE CARRIED OUT. 0 P* /2B NO MOVING OF PRINT HEAD
0x41b9f8…41bb8c Dummy {f00=0x011e, f01=0x0190, f02=», LF z P* PACDY20 EQU * $ P LD A2,4,A8 GET REQUESTED LENGTH * P RF(E) ACDY25 R P LDK A3,2 START BUFFER INDEX h " P LD A2,2,A8 GET BUFFER ADDRESS & P LC A2,1,A2 GET CONTROL CHARACTER P ANK A2,/FF PACDY25 EQU * * P SUK
0x41bb8c…41bd20 Dummy {f00=0x011e, f01=0x0190, f02=»ED v " P ADK A2,1 DOUBLE LINE FEEED ? P RF(NE) ACDY30 0 ( P ADK A4,1 INDICATE DOUBLE LINE FEED F P r P z $ PACDY30 LDK A2,CR CARRIAGE RETURN PACDY35 LDK A1,1 2 P SC A1,DWTAP+1,A6 RESET HEAD POSITION COUNTER 8 P* SEND CARRIA
0x41bd20…41beb4 (4, 229) Dummy {f00=0x011f, f01=0x018e, f02=»F(N) ACDY90 START SECTION ENDED? P LC A1,DWTLIN,A6 LINES ( P CC A1,DWTAP,A6 LAST LINE ? F P RF(L) ACDY55 j ( P LDKL A2,/100 INCREMENT LINE COUNTER P ADS A2,DWTAP,A6 & PACDY55 LDK A2,LF LINE FEED TO SEND P RB ACDY50 ( PACDY65 L
0x41beb4…41c048 Dummy {f00=0x011f, f01=0x018e, f02=» & P* GET, CHECK AND SEND CHARACTER P* (IF ORDER 5 NO CHECK) . P* P PACDY70 EQU * Z P IFT WHATDY=0 n & P LDR* A4,A6 GET CHANNEL PARAMETER P ANK A4,/10 $ P RF(NZ) ACDY75 NOT 6344 OR 6386 P XIF P LD A4,2,A8 2
0x41c048…41c1dc Dummy {f00=0x011f, f01=0x0190, f02=» P CF A5,OUTPUT 2 PACDY80 CF A15,POSUPD POSITION COUNTER UPDATING P IFT TRASPA=1 T ( P LD A1,2,A8 GET BUFFER ADDRESS (BA) j ( P LD A2,4,A8 GET REQUESTED LENGTH(RL) $ P ADR A1,A2 GET ADD END OF BUFFER PSKIP05 CWK A2,2 P RF(NG
0x41c1dc…41c370 Dummy {f00=0x011f, f01=0x0190, f02=»IP07 SUK A2,1 DECR RL P RB SKIP05 GET NEXT ! PSKIP20 CWK A2,4 ! : P RF(NG) SKIP30 RL < 5 ! R P LC A4,-2,A1 GET CHAR ! p $ P CCK A4,/1111 TABULATION CHAR ? ! P RF(NE) SKIP25 NO! ! P SUK A1,2 DECR BA ! P SUK A2,2 DECR RL ! P RB
0x41c370…41c504 Dummy {f00=0x011f, f01=0x0190, f02=»P07 YES! SKIP IT! ! P SUK A4,/C LOW INT. START? " P RB(Z) SKIP07 YES! " < P SUK A4,1 LOW INT. STOP? " V P RB(Z) SKIP07 YES! " v P* " " PSKIP30 ST A2,4,A8 STORE NEW RL " P XIF " PACDY90 LDK A4,0 " 6 PADY100 CF A15,GETCHR GET CHARACTER F
0x41c504…41c698 Dummy {f00=0x011f, f01=0x0190, f02=»/7F " P LDK A1,5 SET TABLE POINTER # " P CC A2,TABSPE,A1 FAST OUTPUT? # 0 P RF(E) ADY125 # V P SUK A1,1 NO! # l " P LDR* A7,A6 CHANNEL PARAMETER # P ANK A7,/30 GRAFIC DISPLAY ? # P RF(E) ADY110 NO # P LDK A1,5 SET TABLE PONTER # * PAD
0x41c698…41c82c Dummy {f00=0x011f, f01=0x0190, f02=»4,/80 # , PADY120 ORRS A4,A6 SET LOW INTENSITY MODE $ P LDK A4,0 $ > P RB ACDY50 $ P $ PADY122 CCK A2,/1212 UNDERLINE ? $ b P RF(NE) ADY125 $ " P LDK A4,/40 SET UNDERLINE MODE $ P RB ADY120 $ & PADY125 CCK A2,/1414 FAST OUTPUT ? $ P LDK A
0x41c82c…41c9c0 Dummy {f00=0x011f, f01=0x0190, f02=» LD A4,4,A8 REQ LENGTH $ P SUR A4,A3 NUMBER OF CHARS % P RF(Z) ADY127 NONE % @ P* % Z P IFT WHATDY=0 % d & P LDR* A7,A6 GET CHANNEL PARAMETER % z P ANK A7,/10 % 2 P RF(NZ) OTHER OTHER DISPLAY THAN 6344 OR 6386? % P XIF % P LDR A3,A1 NO!
0x41c9c0…41cb54 (4, 230) Dummy {f00=0x011f, f01=0x0190, f02=» EQU * % P SUK A1,1 GET NEXT & P RB(NN) ADY110 NOT AT END & ( P LDR A1,A2 MOVE CHARACTER & J P SUK A1,/11 TAB CHAR? (11) & l P RF(E) ADY140 & P SUK A1,/F LESS THAN /20 ? & " P RF(N) ADY130 CODE CHECK ERROR & P SUK A1,/3F GREATER THAN /
0x41cb54…41cce8 Dummy {f00=0x011f, f01=0x0190, f02=»/40 TO /5F & x P XIF ' P RB ACDY70 ' P* ' 0 P* ' : P IFT WHATDY=0 ' D POTHER EQU * ' Z P************************ ' n P* A3 = INDEX ' P* A1 = CHARACTER ' P* A4 = NUMBER ' P************************ ' P LC A2,DWTBC,A6 ' P
0x41cce8…41ce7c Dummy {f00=0x011f, f01=0x0190, f02=» ANK A3,/FF ' P ST A4,10,A8 SAVE LENGTH ( P SUR A3,A2 COMPARE ( 4 P RF(NN) OT030 LENGTH OK ( N P ADR A4,A3 ( n P ST A4,10,A8 SAVE LENGTH ( 0 P ADK A4,1 ADJUST NUMBER OF OUTPUT CHARACTERS ( POT030 EQU * ( & P LDR A3,A1 SAVE CHARACTER TO SEN
0x41ce7c…41d010 Dummy {f00=0x011f, f01=0x0190, f02=»,10,A8 GET ACT. LENGTH ( POT040 LDK A2,BACKSP ) P CF A5,OUTPUT SENDBACKSPACE ) : P SUK A4,1 DECREMENT LENGTH ) ^ P RB(P) OT040 ) P RB ADY127 ) P XIF ) P EJECT ) P* ) P* CODE CHECK ERROR ) P* ) PADY130 EQU * ) P L
0x41d010…41d1a4 Dummy {f00=0x011f, f01=0x0190, f02=»QU * ) , P CF A15,GETCHR GET FIRST ASCII CHARACTER * P LDR A4,A2 * < . P CF A15,GETCHR GET SECOND ASCII CHARACTER * N P ANK A2,/F * P ANK A4,/F * P RF(E) ADY144 * 0 PADY143 ADK A2,/A FROM DECIMAL TO HEXADECIMAL * P SUK A4,1 * P RB(NE)
0x41d1a4…41d338 Dummy {f00=0x011f, f01=0x0190, f02=»EQUESTS POSITION COUNTER * & P TO GET NUMBER OF SPACES TO SEND + P RB(NP) ADY100 + J P LDR A4,A2 + ` & PADY145 LDK A2,CURRIG CURSOR RIGHT + r PADY146 CF A5,OUTPUT + , P CF A15,POSUPD POSITION COUNTER UPDATING + P SUK A4,1 READY ? + P RB(NE
0x41d338…41d4cc Dummy {f00=0x011f, f01=0x0190, f02=» CHAR TO ERASE + p P IFT WHATDY=0 , " P LDR* A1,A6 CHANNEL PARAMETER , , P ANK A1,/10 GRAFIC DISPLAY? , R P RF(NE) ADY166 YES =2 , v P XIF , & P CF A5,ERA GET LENGTH TO ERASE =2 , P LDK A3,/20 , P CF A5,FASTER FAST OUTPUT , PADY165 L
0x41d4cc…41d660 Dummy {f00=0x011f, f01=0x0190, f02=»ET LENGTH TO ERASE =2 , P* - $ PADY170 SUK A4,1 DECR NO OF CHAR - ( P RF(N) ADY180 ERASE READY - P P LDK A2,/20 SPACE - r P CF A5,OUTPUT SEND IT - P RB ADY170 - PADY180 LD A4,10,A8 - & P CF A5,ERA GET LENGTH TO ERASE =2 - P LDR A3,
0x41d660…41d7f4 (4, 231) Dummy {f00=0x011f, f01=0x0190, f02=» RB(N) ADY165 CURSOR IN ORIGIN POSITION - P LDK A2,BACKSP CURSOR LEFT . 0 P CF A5,OUTPUT SEND IT . R P RB ADY186 AGAIN . p P XIF . P EJECT . P* . * P* ORDER /B CURSOR POSITIONING PART . P* . PADY200 EQU * . P* . P IFT W
0x41d7f4…41d988 Dummy {f00=0x011f, f01=0x0190, f02=» SET CURSOR ADDRESS DIRECT . | P XIF / " * P LD A4,10,A8 GET REQUESTED CURSOR POS / . . P ST A4,DWTAP,A6 UPDATE LINE & POS COUNTER / P CF A5,CURPOS SET CURSOR / P RF ADY380 / P IFT WHATDY=0 / P* GET LINE / * PADY205 LC A4,10,A8 GET REQUE
0x41d988…41db1c Dummy {f00=0x011f, f01=0x0190, f02=» PADY207 EQU * 0 $ P LC A3,DWTAP,A6 GET ACTUAL LINE 0 PADY210 CWR A4,A3 0 @ . P RF(N) ADY250 REQUESTED LINE ABOVE ACTUAL 0 X P RF(E) ADY300 SAME LINE 0 P LDK A2,LF LINE FEED 0 * P ADK A3,1 INCREMENT ACTUAL LINE NUMBER 0 PADY230 CF A5,OUTPUT
0x41db1c…41dcb0 Dummy {f00=0x011f, f01=0x0190, f02=»ME HOME 0 & P LDK A3,1 RESET ACTUAL LINE NUMBER 1 " P ST A3,DWTAP,A6 RESET POSITION 1 : P RB ADY230 1 ` P* 1 r P* GET POSITION 1 | P* 1 2 PADY300 SC A4,DWTAP,A6 UPDATE HEAD LINE COUNTER 1 ( P LC A4,11,A8 GET REQUESTED POSITION 1 $ P CC A4
0x41dcb0…41de44 Dummy {f00=0x011f, f01=0x0190, f02=»SITION ? 1 ~ P RF(NE) ADY305 NO 2 P CWR A4,A3 FIRST LINE ? 2 * P RF(NE) ADY305 NO 2 J P LDK A2,HOME CURSOR GO HOME 2 d P RF ADY330 2 * PADY305 RF(NL) ADY307 REQ. POS NOT ZERO 2 P LDK A4,1 2 0 PADY307 LC A3,DWTAP+1,A6 GET ACTUAL POSITION 2
0x41de44…41dfd8 Dummy {f00=0x011f, f01=0x0190, f02=» ADY370 POSITION FOUND 2 P RF(N) ADY340 BACK 3 P LDK A2,CURRIG CURSOR RIGHT 3 8 & P ADK A3,1 UPDATE POSITION COUNTER 3 PADY330 CF A5,OUTPUT SEND 3 P RB ADY310 3 . PADY340 SUR A3,A4 ACTUAL POS. - WANTED POS. 3 , P CWR A3,A4 COMPARE BACKSTEPS W
0x41dfd8…41e16c Dummy {f00=0x011f, f01=0x0190, f02=»Y330 3 " PADY345 LDK A2,BACKSP BACKSPACE 4 P CF A5,OUTPUT SEND 4 2 P SUK A3,1 LAST BACKSPACE ? 4 L P RB(NE) ADY345 4 n 8 PADY370 SC A4,DWTAP+1,A6 UPDATE HEAD POSITION POINTER 4 P XIF 4 & PADY380 LDK A3,2 START BUFFER INDEX 4 P ABL ACDY90 4
0x41e16c…41e300 Dummy {f00=0x011f, f01=0x0190, f02=» 4 P* 5 P* 5 8 P* SEND LAST DUMMY, SET CURSOR POSITION IN CONTROL 5 4 P* WORD, LOAD A1 WITH RETURN CODE AND END I/0. 5 X P* 5 PADY405 EQU * 5 & P LDR* A1,A6 GET CHANNEL PARAMETER 5 P ANK A1,/30 6344 ? 5 P RF(NE) ADY407 NO 5
0x41e300…41e494 (4, 232) Dummy {f00=0x011f, f01=0x0190, f02=» P CF A5,OUTPUT 6 * PADY406 ANK A4,/80 LOW INTENSITY MODE ? 6 P RF(E) ADY407 6 H & P LDK A2,LISTOP LOW INTENSITY STOP 6 ^ P CF A5,OUTPUT 6 PADY407 EQU * 6 $ P LDK A2,ETB END OF TEXT MESSAGE 6 P CF A5,OUTPUT SEND CHARACTER 6 0 P CF A15,UP
0x41e494…41e628 Dummy {f00=0x011f, f01=0x018e, f02=»F(Z) ADY415 ORDER ERASE =7 6 * P LD A4,DWTAP,A6 GET CURSOR POSITION =4 7 " , P ST A4,10,A8 SAVE CURSOR POS. IN ECB =4 7 P PADY415 EQU * 7 P ADK A7,/31-5 =7 7 ( P RF(NE) ADY420 NOT ORDER BASIC WRITE 7 P LDKL A4,/101 HOME POSITION 7 P ST A4,DWT
0x41e628…41e7bc Dummy {f00=0x011f, f01=0x018e, f02=» 7 P* 8 P EJECT 8 P* 8 P* GRAPHIC PART 8 * P* 8 D PADY500 EQU * 8 N P LDK A2,/11 8 b ( P CF A5,OUTPUT SWITCH TO GRAFIC MODE 8 v & PADY510 CF A15,GETCHR GET CHARACTER 8 P LDR A1,A1 BUFFER EMPTY 8 P RB(E) ADY400 8 P LDR A
0x41e7bc…41e950 Dummy {f00=0x011f, f01=0x0190, f02=» 8 t P* 9 P* ADDRESS MESSAGE 9 P* 9 . P* SET FIRST OUT PUT IN A2 9 8 P* AND SECOND IN A4 9 P* 9 z P SLL A1,4 9 P LDR A4,A2 9 P SRL A4,4 9 P ORR A4,A1 9 P ANK A2,/F 9 P ANK A4,/7F 9 P ORK A2,/20 9 , PAD
0x41e950…41eae4 Dummy {f00=0x011f, f01=0x0190, f02=»Y510 9 P EJECT : P* : P* DATA MESSAGE : $ P* : > " P* FIRST OUTPUT IS SET IN A2 : H P* AND SECOND IN A4 : n P* : PADY530 SLL A1,13 : P LDR A4,A2 : P SLL A2,5 : P ORR A1,A2 : P LDK A7,10 : P LDK A2,0 : P
0x41eae4…41ec78 Dummy {f00=0x011f, f01=0x0190, f02=»ADY540 : PADY560 LDR A4,A2 ; P SRL A4,4 ; & P ANK A4,/3F ; 8 P ANK A2,/F ; L P ORK A2,/60 ; ^ P RB ADY515 ; r P* ; P XIF ; P* ; P EJECT ; P* ; , P* UPDAPP = SUBROUTINE TO UPDATE HEAD ; , P* POSITION POINT
0x41ec78…41ee0c Dummy {f00=0x011f, f01=0x0190, f02=»DWTAP,A6 UPDATE HEAD POSITION POINTER ; P LDK A3,0 < . , P SC A3,DWTBC,A6 RESET POSITION COUNTER < @ P RTN A15 < p P* < 6 P* POSUPD = SUBROUTINE TO UPDATE ACTUAL POSITION < 0 P* POINTER WHEN REQUEST RUNNING. < > P* A
0x41ee0c…41efa0 Dummy {f00=0x011f, f01=0x0190, f02=» < 2 P AD A2,DWTAP,A6 INCLUDE HEAD POSITION POINTER = P ANK A2,/FF = > " P CC A2,DWTPOS,A6 END OF ROW ? = R P RF(P) POSU10 = x , P IM DWTST,A6 INCREMENT POSITION COUNTER = PPOSU10 RTN A15 = P EJECT = P* = P* I H D Y = P* =
0x41efa0…41f134 (4, 233) Dummy {f00=0x0141, f01=0x0190, f02=»F(N) IHDY10 = . P LDR A1,A1 RETURN CODE FROM CHANNEL UNIT ? > P RB(NE) ADY420 YES > F 4 PIHDY10 ABL LDREG RELOAD A3-A5 AND RETURN VIA A5 > ` P EJECT > P* > P* R C D Y > P* > ( P* RCDY = RECOVERY ROUTINE DISPLAY > P* > P* >
0x41f134…41f2c8 Dummy {f00=0x0141, f01=0x0190, f02=»T-ADDRESS > P* A7 = ORDER ? P* A8 = ECB-ADDRESS ? * PRCDY EQU * ? H P IFT CPU852=1 ? Z & P CF A15,SAVE8 SAVE A1-A8 ON STACK ? p P XIF ? P* ? P IFT CPU852=0 ? " P MSR 8,A15 SAVE A1-A8 ON STACK ? P XIF ? P* ? P =3
0x41f2c8…41f45c Dummy {f00=0x0141, f01=0x0190, f02=» =1 ? P =1 @ P =1 @ P* @ ( P IFT WHATDY=0 @ 2 P* @ H " P LDR* A2,A6 CHANNEL PARAMETER @ R " P ANK A2,/10 GRAPHIC DISPLAY ? @ x P RF(E) RCDY10 NO @ . P LDK A2,RETURN RETURN TO ALPHANUMERIC MODE @ P CF A5,OUTPUT @ P* @ P
0x41f45c…41f5f0 Dummy {f00=0x0141, f01=0x0190, f02=»BLOCK ? @ x P RF(NE) RCDY20 A P IFT WHATDY=0 =1 A & P IFF STEADY+COUNTRY=0 =1 A @ * P LDR* A2,A6 GET CHANNEL PARAMETERS =1 A b " P ANK A2,/20 PTS 6385/6386 ? =1 A P RF(Z) RCDY14 NO =3 A * P LDK A3,100 SET UP TRANSFER COUNTER =3 A 4 PRCDY12 L
0x41f5f0…41f784 Dummy {f00=0x0141, f01=0x0190, f02=» SUK A3,1 DEC TRANSFER COUNTER =3 A , P RB(P) RCDY12 NOT ENOUGH OF TRANSFERS =3 B * . P LDK A2,CTYCOD SEND 'SET COUNTRY CODE' =1 B Z P CF A5,OUTPUT =1 B * P LDK A2,COUNTRY SEND 'COUNTRY CODE' =1 B P ORK A2,/30 =1 B P CF A5,OUTPUT =1 B P
0x41f784…41f918 Dummy {f00=0x0141, f01=0x0190, f02=» HOME B x P CF A5,OUTPUT SEND C P LDKL A2,/101 C ( 6 P ST A2,DWTAP,A6 SET HEAD LINE-AND-POSITION COUNTER C > P LDR A3,A3 GET OLD STATUS C x P RB(N) ENDIO NOT BUSY C " P LDK A1,OPERR SET RETURN CODE C PRCDY15 ABL ADY420 C P EJECT C P*
0x41f918…41faac Dummy {f00=0x0141, f01=0x0190, f02=» LDK A1,2 INDICATE THROUGHPUT ERROR C P RB RCDY15 D , & PRCDY25 LDK A2,STX START OF MESSAGE D > P CF A5,OUTPUT D h 4 P LC A4,DWTBC,A6 GET NUMBER OF POSITIONS TO BACK D ~ P ANK A4,/FF D P RF(E) RCDY30 D . P CF A5,BACCAN SEND BACKSPACES AND RUB OU
0x41faac…41fc40 Dummy {f00=0x0141, f01=0x0190, f02=»CHODY = DEVICE-DEPENDENT ECHO-ROUTINE D P* E . PECHODY EQU * E 8 P LDR A7,A7 EOR? E L P RF(N) ECDY17 YES E d P LDR A3,A2 SAVE CHARACTER E ~ P* E P IFT EORECH=0 E P* E P SUK A2,/80 E $ P RF(NN) ECDY20 NOT TO BE ECHOED E P A
0x41fc40…41fdd4 (4, 234) Dummy {f00=0x0141, f01=0x0190, f02=»EAR E & PECDY10 CF A5,OUTPUT SEND CHARACTER F , P CF A15,POSUPD POSITION COUNTER UPDATING F 6 P RF ECDY20 F f 4 PECDY17 CF A15,UPDAPP UPDATE HEAD CURSOR POINTER F x ( PECDY20 ABL ECHRTN RETURN TO KEYBOARD F P* F P* BACKSPACE F P* F PEC
0x41fdd4…41ff68 Dummy {f00=0x0141, f01=0x0190, f02=» ONE BACKSTEP F ~ P CF A5,BACCAN BACK G P RB ECDY20 G 0 P EJECT G B P* G P P* CLEAR G Z P* G l PECDY50 EQU * G v ( P LC A4,DWTBC,A6 GET POSITION COUNTER G P ANK A4,/FF G P RB(E) ECDY20 FIRST POSITION G P IFT WHATDY=0 G & P LDR
0x41ff68…4200fc Dummy {f00=0x0141, f01=0x0190, f02=» P XIF H * PECDY60 LDR A3,A4 SAVE POSITION COUNTER H 6 P LD A4,DWTAP,A6 GET HEAD LINE-AND-POSITION COUNTER H > P CF A5,CURPOS SET CURSOR H x P LDR A4,A3 GET POS COUNTER H P ADK A4,1 UPDATE POS COUNTER H P LDK A3,/20 H P CF A5,FASTER FAST OUT
0x4200fc…420290 Dummy {f00=0x0141, f01=0x0190, f02=»CAN = SUBROUTINE TO POSITION CURSOR H 0 P* AT THE PLACE BEFORE REQUEST IF I , 0 P* CLEAR OR BACKWARDS ONE STEP IF I ` P* BACKSPACE. I P* I PBACCAN EQU * I P LDR A3,A4 I ( P LC A2,DWTBC,A6 GET POSITION COUNTER
0x420290…420424 Dummy {f00=0x0141, f01=0x0190, f02=» RF(NP) BACA10 NO I $ P LDK A2,SPACE DESTRUCTIVE SPACE J P RF BACA20 J B " PBACA10 LDK A2,BACKSP BACKSPACE J T P CF A5,OUTPUT SEND J z $ P LDK A2,SPACE DESTRUCTIVE SPACE J P CF A5,OUTPUT SEND J P LDK A2,BACKSP BACKSPACE J PBACA20 CF A5,OUTPU
0x420424…4205b8 Dummy {f00=0x0141, f01=0x018e, f02=» RTN A5 J P EJECT K 4 P*********************************************** K 4 P* CHECK = SUBROUTIN TO CHECK USER BUFFER IN * K V 4 P* ORDER TO GET A REASON FOR USING * K 4 P* 'FAST OUTPUT FACILITY' ON 6344 * K 4 P*
0x4205b8…42074c Dummy {f00=0x0141, f01=0x0190, f02=» K P LD A1,4,A8 L P SUR A1,A3 END OF BUFFER? L P ABL(NP) ACDY75 YES! L > , P LDR A7,A2 SAVE CHER TO SEND (AND CHECK) L Z ( P LDR A2,A4 SAVE BUFFER ADDRESS+INDEX L P LDK A4,1 RESET COUNTER L $ PNEXT ADK A4,1 INCREMENT COUNTER L P SUK A1,1
0x42074c…4208e0 Dummy {f00=0x0141, f01=0x0190, f02=»S! L POUT EQU * M 6 P CWK A4,EQU CONDITION FOR FAST OUTPUT FULLFILLED? M P RF(L) NOFAST NO! M V & P********************************** M p & P* UPDATE ACTUAL POSITION POINTER * M , PFASTOK LC A2,DWTBC,A6 GET HEAD POSITION M P AD A2,DWTAP,A6 M
0x4208e0…420a74 (4, 235) Dummy {f00=0x0141, f01=0x0190, f02=»/LINE M j P SUR A3,A2 AND COMPARE N P SUR A3,A4 N , P RF(NN) HIT N > P ADR A4,A3 N R P ADK A4,1 N d ( PHIT ADS A4,DWTST,A6 UPDATE POSITION N v P*********************** N P* EXECUTE FAST OUTPUT * N P LDR A3,A7 GET CHAR TO SEND N P C
0x420a74…420c08 Dummy {f00=0x0141, f01=0x0190, f02=»6 INC HEAD POS POINTER N P CF A5,CURPOS O " P***************************** O 4 " P* RESTORE A3 (BUFFER INDEX) * O Z * P LD A3,DWTBIN,A6 RESTORE BUFFER INDEX O P SUK A3,1 O P ABL ACDY90 READ NEXT CHAR O P* O . PNOFAST LDR A2,A7 RESTORE OUT
0x420c08…420d9c Dummy {f00=0x0141, f01=0x0190, f02=» 4 P* AT ENTRY A4 = NUMBER OF CHARACTERS P P* P < PFASTER EQU * P F P CWK A4,/60 P Z . P RF(L) FAS010 NUMBER OF CHAR NOT TOO LONG P n P LDK A4,/59 P PFAS010 EQU * P P ADK A4,/20 ADD CONSTANT P P LDK A2,FASTO FAST OUTPUT P
0x420d9c…420f30 Dummy {f00=0x0141, f01=0x0190, f02=» P P EJECT Q P* Q P* Q * P* CURPOS = SUBROUTINE TO SET CURSOR Q * > P* AT ENTRY A4 = CURSOR POS (POSITION AND LINE) Q X P* Q PCURPOS EQU * Q P ADKL A4,/1F1F CONVERT Q P LDK A2,SCADD SET CURSOR Q P CF A5,OUTPUT SEND
0x420f30…4210c4 Dummy {f00=0x0141, f01=0x018e, f02=»A4 Q & P CF A5,OUTPUT OUTPUT POSITION (X) R P LDR A2,A4 R 4 P RF(NN) CURR10 Y < /80! R F P LDK A2,/7F R f P RF CURR15 R z PCURR10 EQU * R P SRL A2,8 SHIFT RIGHT R PCURR15 EQU * R P CF A5,OUTPUT OUTPUT LINE(Y) R P RTN A5 R P E
0x4210c4…421258 Dummy {f00=0x0141, f01=0x0190, f02=» R 0 P* AT ENTRY A4 = CHAR TO ERASE FROM USER =2 S . P* AT EXIT A4 = CHAR TO END OF SCREEN =2 S < P* =2 S n PERA EQU * =2 S | " P LD A2,DWTPOS,A6 MAX CHAR. =2 S P ANK A2,/FF GET MAX CHAR. =2 S 0 P LC A3,DWTAP+1,A6 CURRENT POS. ON SCREEN =2
0x421258…4213ec Dummy {f00=0x0141, f01=0x4144, f02=»SIDE SCREEN =2 S P RF(L) ERAEND NO =2 T . P LDR A4,A2 OUTSIDE SCREEN MODIFY LENGTH =2 T 2 P LDKL A3,/FFFF SET OVER =4 T d " PERAEND EQU * END SUBROUTINE =2 T P RTN A5 RETURN =2 T PABDY EQU * T , P CF A15,UPDAPP UPDATE CURSOR POSITION =5 T ( P
0x4213ec…421580 Dummy {f00=0x0141, f01=0x2008, f02=» U NE) BACA10 7 P NGR A3,A3 NEGATE REGISTER 7 , P ADS A3,DWTST,A6 UPDATE POSITION COUNTER 7 < P RTN A5 7 l P END 7 |@ 7 6 t P* 6 PBACCAN EQU * 6 P LDR A3,A4 6 " PBACA10 LDK A2,BACKSP BACKSPACE 6 P CF A5,OUTPUT SEND 6 $ P LDK
0x421580…421714 (4, 236) Dummy {f00=0x0142, f01=0x0000, f02=»
[…0x7…]
0x422220…4223b4 (4, 237) Opaque[0x194]
0x4223b4…422548 # DirEnt {nam=»DRLT01«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x2400, f03=0x0000}
0x4223b4…422548 IdxSect {
0x4223b4…422548 f00 = 0x0120 // 0x4223b4 @0x0
0x4223b4…422548 f01 = 0x0014 // 0x4223b6 @0x2
0x4223b4…422548 gno = [ // 0x4223b8 @0x4
0x4223b4…422548 [0x00]: C0x0120.0x0.0
0x4223b4…422548 [0x01]: C0x0120.0x1.0
0x4223b4…422548 [0x02]: C0x0120.0x2.0
0x4223b4…422548 [0x03]: C0x0120.0x3.0
0x4223b4…422548 [0x04]: C0x0121.0x0.0
0x4223b4…422548 [0x05]: C0x0121.0x1.0
0x4223b4…422548 [0x06]: C0x0121.0x2.0
0x4223b4…422548 [0x07]: C0x0121.0x3.0
0x4223b4…422548 [0x08]: C0x0122.0x0.0
0x4223b4…422548 [0x09]: C0x0122.0x1.0
0x4223b4…422548 ]
0x4223b4…422548 }
0x422548…4226dc Dummy {f00=0x0120, f01=0x0190, f02=» 2 P IDENT DRLT01 REL 10.0 80-03-14 870105041000 P : & P =9,RTN FROM OUTLRT IN INH MODE B P PRR 10.1 79-09-03 l P =8,UPDATE TO 10.1 STATUS P REL 9.1 79-05-23 * P =7,CLT010 DUBLE DEF LABEL, RB - ABL P PRR 9.1 79-05-1
0x4226dc…422870 Dummy {f00=0x0120, f01=0x0190, f02=» =1-4, GEN UPDATE TO 8.2+ STATUS P REL 8.2 79-04-02 ( P =4,TIMER RESET CORRECTED D P REL 8.2 79-03-22 h P =3,NAK HANDLING CORRECTED P REL 8.2 79-03-16 P =2,IMPROV. OF TEST ORDER P REL 8.2 79-01-11 , P =
0x422870…422a04 Dummy {f00=0x0120, f01=0x0190, f02=»****************************** | P* & $ P* PHILIPS TERMINAL SYSTEM PTS 0 P* X $ P* DRLT01 = DRIVER CHANNEL UNIT b $ P* FOR LOCAL TERMINALS P* P* P* P* P* 2 P************************************
0x422a04…422b98 Dummy {f00=0x0120, f01=0x0190, f02=»GISTER A2. IF DATA d D P* INPUT OR DATA REQUEST A BRANCH IS MADE TO INTERRUPT HANDLER P* FOR ACTUAL DEVICE. b D P* IF CONTROL CHARACTER, THIS IS EXAMINED AND NECESSARY ACTIONS P* ARE CARRIED OUT. P* < P* THE DRIVER ALSO INCLUD
0x422b98…422d2c Dummy {f00=0x0120, f01=0x0190, f02=»TART ON EVERY CHLT IN SYSTEM t P* $ 2 P* CONTROL WORK TABLES FOR THE CHANNELS ARE . P* INCLUDED IN THE DRIVER. d P EJECT P* P* P* . P* NORMAL REGISTER USAGE IN THE DRIVER:- P* P* A1 = RETURN CODE
0x422d2c…422ec0 Dummy {f00=0x0120, f01=0x0190, f02=»WT-ADDRESS P* A7 = ORDER P* A8 = ECB-ADDRESS ( P* D P* N P* X P EJECT b P* p P*********** z P* ENTRIES * P*********** P* P* & P ENTRY CHLT1 INTERRUPT FROM CHLT01 & P ENTRY CHLT2 INTERRU
0x422ec0…423054 (4, 238) Dummy {f00=0x0120, f01=0x0190, f02=» p P ENTRY CHLTON START OF CHLT 0 P ENTRY LOCHAN NUMBER OF LOCAL CHANNEL UNITS , 0 P ENTRY RECHAN NUMBER OF REMOTE CHANNEL UNITS ` P ENTRY REMFC DUMMY ENTRY P ENTRY DWREMU DUMMY ENTRY P* P EJECT P* . P****************
0x423054…4231e8 Dummy {f00=0x0120, f01=0x018e, f02=» P* & P EXTRN SAVE8 SAVE REGISTERS A1-A8 P EXTRN TDISP DISPATCHER < P EXTRN IHRET8 RESTORE A1-A8 " P EXTRN INTLT1 INTERRUPT TABLE " P EXTRN INTLT2 INTERRUPT TABLE " P EXTRN INTLT3 INTERRUPT TABLE " P EXTRN INTLT4 INTERRUP
0x4231e8…42337c Dummy {f00=0x0120, f01=0x0190, f02=» . P EXTRN OUTLIN SEND CHAR. VIA SWITCH MODULE P* 6 P* @ ( P*********************************** J ( P* DWT PARAMETERS * v ( P*********************************** P EXTRN DWTST STATUS P EXTRN DWTOR ORDER ( P EXT
0x42337c…423510 Dummy {f00=0x0120, f01=0x0190, f02=»TPUT QUEUE & P EXTRN DWTSB2 STACK BASE 2 IN DWT P EXTRN DWTTP TIMER POINTER < 0 P EXTRN INTADR INTERRUPT ADDRESS DISPLACEMENT ^ 0 P EXTRN RECADR RECOVERY ADDRESS DISPLACEMENT P* P EJECT P P* P************* P*
0x423510…4236a4 Dummy {f00=0x0120, f01=0x0190, f02=» t PDRQTIM EQU 30 P* P EJECT ( P* 6 P************************ @ P* CONDITIONAL ASSEMBLY * ` P************************ P* < P* A LOGG FUNCTION OF EVERY INPUT AND OUTPUT CHARACTER 8 P* MAY BE INCLUDED TO THE DRI
0x4236a4…423838 Dummy {f00=0x0120, f01=0x0190, f02=» ` . P* CHANNELS BY SETTING X:B TO 1,2,3 OR 4 P* : PX:B EQU 1 D PLOCHAN EQU 1 V P* j 8 P* ACKUMULATORS FOR NAK, RETRANSMISSION FAULT AND t 4 P* UNDEFINED CONTROL CHARACTERS ARE UPDATED IN 8 P* THE DRIVER. THIS FUNCTION C
0x423838…4239cc Dummy {f00=0x0120, f01=0x0190, f02=»TTING X:D = 1 A SOFTWARE TIME OUT HANDLING < P* MISSING DATA REQUESTS FROM PRINTERS CAN BE INCLUDED 2 P* IN THE DRIVER. r < P* AN ACKUMULATOR TO BE UPDATED EVERY TIME A SOFTWARE * P* TIME OUT OCCURS IS ALSO INCLUDED. P* PX:
0x4239cc…423b60 Dummy {f00=0x0120, f01=0x0190, f02=»SET IS OBTAINED BY SETTING CPU852 EQU 0. P* 0 PCPU852 EQU 0 : P* N P EJECT X P f P n PRECHAN EQU 0 v PREMFC EQU 0 PCWTRT1 EQU * PCWTRT2 EQU * PCWTRT3 EQU * PCWTRT4 EQU * PCWTRT5 EQU * PCWTRT6
0x423b60…423cf4 (4, 239) Dummy {f00=0x0120, f01=0x0190, f02=»************************* t : P* C W T L T 1 * " : P***************************************************** ` P* 4 P* CONTROL WORK TABLE FOR LOCAL TERMINAL NO. 1 P* P* PDWA1 EQU /03 DEVICEA
0x423cf4…423e88 Dummy {f00=0x0120, f01=0x0190, f02=»-CWTLT1 P DATA 0 LAST OUTPUT WORD * PCWTITA EQU *-CWTLT1 ADDRESS TO INTLT1 0 P DATA INTLT1 ^ PCWTINR EQU *-CWTLT1 INR r P INR A2,0,DWA1 PCWTOTR EQU *-CWTLT1 OTR P OTR A2,0,DWA1 " PCWTCIS EQU *-CWTLT1 CIO-START P CIO
0x423e88…42401c Dummy {f00=0x0120, f01=0x0190, f02=» PCWTADD EQU *-CWTLT1 P* P IFT ACKMUL=1 * P* @ P DATA 0 NAK-ACKUMULATOR J $ P DATA 0 RETR. FAULT-ACKUMULATOR j , P DATA 0 UNDEFINED-INTERRUPT-ACKUMULATOR PACKTIM EQU *-CWTLT1 ( P DATA 0 PRINTER TIMEOUT ACKUMULATOR
0x42401c…4241b0 Dummy {f00=0x0120, f01=0x0190, f02=» * : P***************************************************** . P* l 4 P* CONTROL WORK TABLE FOR LOCAL TERMINAL NO. 2 v P* PCWTLT2 EQU * P* P IFT LOCHAN=2 PDWA2 EQU /13 DEVICE ADDRESS
0x4241b0…424344 Dummy {f00=0x0120, f01=0x0190, f02=»DWA2 INR P OTR A2,0,DWA2 OTR P CIO A2,1,DWA2 CIO-START * " P DATA 0 RETRANSMISSION COUNTER J P DATA 0 END OF QUEUE p P* P IFT ACKMUL=1 P* P DATA 0 NAK-ACKUMULATOR $ P DATA 0 RETR. FAULT-ACKUMULATOR , P DATA 0 UN
0x424344…4244d8 Dummy {f00=0x0120, f01=0x0190, f02=»* P EJECT P XIF P IFT LOCHAN=3 $ PDWA2 EQU /13 DEVICE ADDRESS : P* ^ $ P DATA 0 LAST OUTPUT DWT-ADDRESS h P DATA 0 LAST OUTPUT WORD P DATA INTLT2 INTERRUPT TABLE P INR A2,0,DWA2 INR P OTR A2,0,DWA2 OTR P
0x4244d8…42466c Dummy {f00=0x0120, f01=0x0190, f02=» P DATA 0 NAK-ACKUMULATOR $ P DATA 0 RETR. FAULT-ACKUMULATOR $ , P DATA 0 UNDEFINED- INTERRUPT-ACKUMULATOR L ( P DATA 0 PRINTER TIMEOUT ACKUMULATOR | P* P XIF P* P* P XIF P IFT LOCHAN=4 P* P* 6 P
0x42466c…424800 Dummy {f00=0x0120, f01=0x0190, f02=»T-ADDRESS z P DATA 0 LAST OUTPUT WORD P DATA INTLT2 INTERRUPT TABLE 2 P INR A2,0,DWA2 INR V P OTR A2,0,DWA2 OTR p P CIO A2,1,DWA2 CIO-START " P DATA 0 RETRANSMISSION COUNTER P DATA 0 END OF QUEUE P* P IFT ACKMUL=1
0x424800…424994 (4, 240) Dummy {f00=0x0120, f01=0x0190, f02=»ATA 0 PRINTER TIMEOUT ACKUMULATOR P* * P XIF 4 P EJECT @ P* N P* X 6 P* CHANNEL UNIT WORK TABLE FOR LOCAL TERMINAL NO.3 b P* PCWTLT3 EQU * P IFT LOCHAN=3 PDWA3 EQU /23 DEVICE ADDRESS P* $ P DATA 0 LA
0x424994…424b28 Dummy {f00=0x0120, f01=0x0190, f02=»A3 OTR P CIO A2,1,DWA3 CIO-START " P DATA 0 RETRANSMISSION COUNTER . P DATA 0 END OF QUEUE T P* p P IFT ACKMUL=1 z P* P DATA 0 NAK-ACKUMULATOR $ P DATA 0 RETR. FAULT-ACKUMULATOR , P DATA 0 UNDEFINED- INTERRUPT-ACKUMULAT
0x424b28…424cbc Dummy {f00=0x0120, f01=0x0190, f02=»E ADDRESS ~ P* $ P DATA 0 LAST OUTPUT DWT-ADDRESS P DATA 0 LAST OUTPUT WORD D P DATA INTLT3 INTERRUPT TABLE d P INR A2,0,DWA3 INR P OTR A2,0,DWA3 OTR P CIO A2,1,DWA3 CIO-START " P DATA 0 RETRANSMISSION COUNTER P DATA
0x424cbc…424e50 Dummy {f00=0x0120, f01=0x0190, f02=» DATA 0 UNDEFINED- INTERRUPT-ACKUMULATOR ( P DATA 0 PRINTER TIMEOUT ACKUMULATOR 0 P* P XIF f P EJECT r P* 4 P* CONTROL WORK TABLE FOR LOCAL TERMINAL NO. 4 P* PCWTLT4 EQU * P* P* P IFT LOCHAN=4
0x424e50…424fe4 Dummy {f00=0x0120, f01=0x0190, f02=»ERRUPT TABLE P INR A2,0,DWA4 INR P OTR A2,0,DWA4 OTR . P CIO A2,1,DWA4 CIO-START H " P DATA 0 RETRANSMISSION COUNTER h P DATA 0 END OF QUEUE P* P IFT ACKMUL=1 P* P DATA 0 NAK-ACKUMULATOR $ P DATA 0 RETR. FAULT-
0x424fe4…425178 Dummy {f00=0x0120, f01=0x0190, f02=» P EJECT P* 2 P********************************************** 2 P* C H T A B * V 2 P********************************************** P* 6 P* THIS TABLE HOLDS ADDRESSES OF CONTROLLER WORK 8 P*
0x425178…42530c Dummy {f00=0x0120, f01=0x0190, f02=»ABLE LENGTH P DATA CWTLT1 P DATA CWTLT2 * P IFT LOCHAN=3 > P DATA CWTLT3 T P XIF h P IFT LOCHAN=4 t P DATA CWTLT3 P DATA CWTLT4 P XIF PCHTABE EQU * END OF TABLE P* P* P* P* P
0x42530c…4254a0 Dummy {f00=0x0120, f01=0x0190, f02=»R CHLT l P* P* C H L T 1 P* INTERRUPT FROM CHLT1 . P* N P XIF X P IFT LOCHAN=2 d PCHLT3 EQU * z PCHLT4 EQU * P XIF P IFF LOCHAN=1 PCHLT1 EQU * $ P ST P,INTSAV SAVE LAST INTERRUPT P IFT CPU
0x4254a0…425634 (4, 241) Dummy {f00=0x0121, f01=0x0190, f02=»E A1-A8 ON STACK P XIF P* $ P IFF LOCHAN=1 . . P LDKL A5,CWTLT1 SET CWT-ADDRESS FOR CHLT1 D P RF CLT010 v P* P* C H L T 2 P* INTERRUPT FROM CHLT2 P* PCHLT2 EQU * $ P ST P,INTSAV SAVE LAST INTERRUPT
0x425634…4257c8 Dummy {f00=0x0121, f01=0x0190, f02=» MSR 8,A15 SAVE A1-A8 ON STACK P XIF & P* 2 P IFF LOCHAN=1 < . P LDKL A5,CWTLT2 SET CWT-ADDRESS FOR CHLT2 R P XIF P IFT LOCHAN=2 0 PCLT010 EX CWTINR,A5 EXECUTE INR-INSTRUCTION P* P XIF P* P IFT LOCHAN=3
0x4257c8…42595c Dummy {f00=0x0121, f01=0x0190, f02=» $ P ST P,INTSAV SAVE LAST INTERRUPT P IFT CPU852=1 , & P CF A15,SAVE8 SAVE A1-A8 ON STACK B P XIF l P* x P IFT LOCHAN=3 P IFT CPU852=0 " P MSR 8,A15 SAVE A1-A8 ON STACK P XIF P* P IFT LOCHAN=3 . P LDKL A5
0x42595c…425af0 Dummy {f00=0x0121, f01=0x0190, f02=» P* ! P* ! P* C H L T 2 ! P* INTERRUPT FROM CHLT3 ! 2 P* ! R PCHLT3 EQU * ! $ P ST P,INTSAV SAVE LAST INTERRUPT ! p P IFT CPU852=1 ! & P CF A15,SAVE8 SAVE A1-A8 ON STACK ! P XIF ! P* ! P IFT LOCHAN=4 ! P IFT
0x425af0…425c84 Dummy {f00=0x0121, f01=0x0190, f02=»CHLT3 ! l P RF CLT010 " P* C H L T 4 " P* INTERRUPT FROM CHLT4 " 6 P* " V PCHLT4 EQU * " ` $ P ST P,INTSAV SAVE LAST INTERRUPT " t P IFT CPU852=1 " & P CF A15,SAVE8 SAVE A1-A8 ON STACK " P XIF " P* " P IFT LOCHAN=4 " P
0x425c84…425e18 Dummy {f00=0x0121, f01=0x0190, f02=»FOR CHLT4 " p $ PCLT010 EX CWTINR,A5 EXECUTE INR # P XIF # : P* # F P IFT LOCHAN=1 # P P* # f P* # p P* C H L T 1 # z P* # P* INTERRUPT FROM CHLT1 # P* # PCHLT1 EQU * # PCHLT2 EQU * # PCHLT3 EQU * # PCHLT4
0x425e18…425fac Dummy {f00=0x0121, f01=0x0190, f02=» # " P MSR 8,A15 SAVE A1-A8 ON STACK $ P XIF $ . P* $ : P IFT LOCHAN=1 $ D $ P LDKL A5,CWTLT1 GET CWT-ADDRESS $ Z $ P ST P,INTSAV SAVE LAST INTERRUPT $ P INR A2,0,DWA1 $ P* $ P XIF $ P* $ P IFT LOGING=1 $ . P CF A15,LOGG ** LO
0x425fac…426140 Dummy {f00=0x0121, f01=0x018e, f02=»DK A1,0 RESET RETURN CODE $ P LDR A3,A2 INPUT WORD IN A3 % " P SRL A3,8 % F P LDR A4,A3 % X $ P ANK A3,/E 2 * LINE NUMBER IN A3 % j P SRL A4,3 % & P ANK A4,/E 2 * DEVICE NUMBER IN A4 % . P ABL(NE) CLT100 INPUT IS A DATA CHARACTER % P ANK A2,
0x426140…4262d4 (4, 242) Dummy {f00=0x0121, f01=0x0190, f02=» % z P* & P* & 0 P* CHECK QUEUE AND SEND IF SOMETHING THERE & P* & P & P LDR* A7,A5 LAST OUTPUT DWT IN A7 & Z P CMR A5 RESET LAST OUTPUT & P LD A6,CWTEQ,A5 OUTPUT QUEUE & P RF(E) CLT020 & P STR A2,A15 SAVE A2 & $ P LD A2,DWTOT
0x4262d4…426468 Dummy {f00=0x0121, f01=0x0190, f02=» & r P LDR* A2,A15 RELOAD A2 ' P EJECT ' & P* ' 4 P* ' > 2 P* CHECK CONTROL CHARACTER AND UPDATE ERROR- ' H 2 P* ACKUMULATORS IF NAK, RETRANSMISSION FAULT ' ~ ( P* OR UNDEFINED CONTROL CHARACTER ' P* ' PCLT020 EQU * ' P LDR A6,A7
0x426468…4265fc Dummy {f00=0x0121, f01=0x0190, f02=» ' P SUK A2,5 7 NAK ? =3 ( P RF(Z) CLT032 =3 ( $ P* ( > P IFT ACKMUL=1 ( H P* ( ^ P =1 ( h P =1 ( v P LDK A7,2 ( $ P SUK A2,/16 RETRANSMISSION FAULT ( P RF(E) CLT025 ( " P ADK A7,2 UNDEFINED INTERRUPT ( PCLT025 ADR A7,
0x4265fc…426790 Dummy {f00=0x0121, f01=0x0190, f02=»* ( P* ) 0 P* NAK, TIME-OUT, RETRANSMISSION FAULT OR ) $ P* UNDEFINED CONTROL CHARACTER ) H P* ) p : P* CHECK LAST OUTPUT AND TRY RECOVERY OF THAT DEVICE ) z 4 P* ONE TIME. IF NOT SUCCESS GO TO DRIVER WITH ) P* MESSAGE NOT OPERABL
0x426790…426924 Dummy {f00=0x0121, f01=0x018e, f02=» ) b P RF(NE) CLT032 * 0 P LDKL A2,/1000 INDICATE RECOVERY TRIAL DONE * , P XRS A2,DWTST,A6 SET BIT IN STATUS WORD * R 0 PCLT030 LDK A3,2 INDICATE RECOVERY OF DEVICE * P LDK A4,1 =1 * P LDK A4,0 * P RF CPO025 * . PCLT032 LDK A1,NOERR INDI
0x426924…426ab8 Dummy {f00=0x0121, f01=0x0190, f02=» * P* + B P* ERROR ACKUMULATOR AND RETRANSMISSION COUNTER IS UPDATED. + B P* LAST OUTPUT CHARACTER IS RETRANSMITTED BY CHANNEL DRIVER + X @ P* UP TO SIX TIMES AND IF STILL NO SUCCESS RETURN CODE NOT + , P* OPERABLE IS SENT TO DEVICE DRIVER
0x426ab8…426c4c Dummy {f00=0x0121, f01=0x0190, f02=» 2 P IM CWTRTC,A5 INCREMENT RETRANSMISSION COUNTER , P LD A4,CWTRTC,A5 GET COUNTER , : P SUK A4,7 SEVEN TIMES ? , ^ P RB(E) CLT015 =7(=3) , ~ * P LD A2,CWTLOW,A5 GET LAST OUTPUT WORD , P LDR A1,A5 , * P EX CWTOTR,A1 EXECUTE OTR-INSTRUCTION ,
0x426c4c…426de0 Dummy {f00=0x0121, f01=0x0190, f02=»CT , P* - P* - P* ACK DATA = 07 - P* - > 2 P* SIMULATE DATA REQUEST IF RETURN CODE FROM - H . P* CHLT OR DEVICE WITHOUT DATA REQUEST, - ~ P* ELSE GO TO DISPATCHER - P* - PCLT040 EQU * - P LDKL A7,/EFFF - 6 P A
0x426de0…426f74 (4, 243) Dummy {f00=0x0121, f01=0x0190, f02=»A7,A6 DEVICE WITHOUT DATA REQUEST? - , P RF(N) CLT110 YES. SIMULATE DATA REQUEST . * P* . Z P IFF SOFTIM=1 . d P* . z PCLT062 EQU * . P RF EXIT . P* . P XIF . P* . P* . P IFT SOFTIM=1 . P* . P EJECT . P* .
0x426f74…427108 Dummy {f00=0x0121, f01=0x0190, f02=» BLOCK . p P RF(E) CLT060 / P* / $ P* RESTART TIMER / . P* / H " P LDKL A3,-DRQTIM RESTART TIMER / R P ST* A3,DWTTP,A6 / x P RF EXIT / P* / P* START TIMER / P* / PCLT060 LDR A1,A6 PARAMETER / P LDKL A4,DWTTP TIMER POINT
0x427108…42729c Dummy {f00=0x0121, f01=0x0190, f02=»AND DELAY / ` PCLT062 EQU * 0 P RF EXIT 0 & P 0 6 P EJECT 0 > P* 0 L P* 0 V P* RESET TIMER IF STARTED 0 ` P* 0 P =4 0 P =4 0 P =4 0 P =4 0 P =4 0 P EJECT 0 P* 0 6 P* TIME-OUT ROUTINE HANDLI
0x42729c…427430 Dummy {f00=0x0121, f01=0x0190, f02=»ET POINTER TO TIMER BLOCK 0 P LD A3,DWTST,A6 1 " P SLL A3,2 ECHO MODE ? 1 : P RF(N) CLT110 YES 1 X P* 1 r P IFT ACKMUL=1 1 | P IFF LOCHAN=1 1 P* 1 " P LDR* A5,A6 CHANNEL PARAMETER 1 P ANK A5,/F 1 P SLL A5,1 2 * INDEX 1 ( P A
0x427430…4275c4 Dummy {f00=0x0121, f01=0x0190, f02=» XIF 1 P IFT SOFTIM=1 2 P IFT ACKMUL=1 2 " P IFT LOCHAN=1 2 8 P* 2 N $ P LDKL A5,CWTLT1 GET CWT-ADDRESS 2 X ( P IM ACKTIM,A5 INCREMENT ACKUMULATOR 2 P* 2 P XIF 2 P IFT SOFTIM=1 2 P* 2 $ P LD A7,DWTOR,A6 TEST ORDER ? =2 2
0x4275c4…427758 Dummy {f00=0x0121, f01=0x0190, f02=» P* 3 P XIF 3 P* 3 P EJECT 3 $ P* 3 2 P* POWER ON DATA = 03 3 < P* 3 ^ 6 P* RECOVERY ROUTINES ARE STARTED FOR EVERY DEVICE 3 h 6 P* ON ACTUAL LINE EXCEPT THOSE OCCUPYING CHANNEL 3 $ P* UNIT OR THOSE IN ECHO MODE. 3 P* 3
0x427758…4278ec Dummy {f00=0x0121, f01=0x0190, f02=»* A7 = ORDER 3 P* 4 PCHPOWO EQU * 4 " P CF A15,GETLIN 4 6 $ P LDR* A2,A5 GET LAST OUTPUT DWT 4 L . P CM CWTRTC,A5 RESET RETRANSMISSION COUNTER 4 t P LDK A4,0 4 P LDR A3,A6 DEVICE COUNTER 4 P LDR A1,A8 ADDRESS POINTER 4 $ P RF(Z) EXIT
0x4278ec…427a80 Dummy {f00=0x0121, f01=0x0190, f02=»F(N) CPO030 4 P SLC A6,1 5 " P LCR A7,A6 LEFT BYTE OF DWTCHP 5 & P ANK A7,1 INPUT DEVICE ? 5 L P RF(NE) CPO025 YES 5 l P LDKL A7,/EFFF 5 ( P ANS A7,DWTST,A6 RESET RECOVERY BIT 5 P LC A7,DWTST,A6 5 P ANK A7,/20 ECHO MODE ? 5 P RF(NE)
0x427a80…427c14 (4, 244) Dummy {f00=0x0121, f01=0x0190, f02=»ESSBLOCK IN A7 5 j . P LD A7,RECADR,A7 ADDRESS TO RECOVERY IN A7 6 P RF(E) CPO030 NO RECOVERY 6 H P LDKL A5,DWTSB2 STACKBASE 6 j P ADR A5,A6 6 P INH 6 & P CFR A15,A7 GO TO RECOVERY ROUTINE 6 ( PCPO030 SUK A3,2 ALL DEVICES THREATED 6 P 6 P
0x427c14…427da8 Dummy {f00=0x0121, f01=0x0190, f02=»F A15,GETLIN GET DWT-ADDRESS 6 P SUR A6,A4 VALID INTERRUPT ? 7 $ P RB(N) EXIT 7 H P LDR A8,A8 7 P RB(Z) EXIT EXIT NOT DEFINED 7 n P LDR* A6,A8 GET DWT 7 P RB(E) EXIT 7 P ANKL A6,/FFFE 7 . P LCR A7,A6 LEFT BYTE IN CHANNEL PARAMETER 7
0x427da8…427f3c Dummy {f00=0x0121, f01=0x0190, f02=»OR,A6 SET ORDER IN A7 7 P ANK A7,/FF 8 * P LD A8,DWTECB,A6 AND ECB-ADDRESS IN A8 8 2 P IFT SOFTIM=1 8 ` * P LC A3,DWTOCH,A6 GET LAST CHARACTER =4 8 v P ANK A3,/7F =4 8 * P SUK A3,DUMMSP SPECIAL DUMMY=ETX ? =4 8 P RF(NE) CLT120 NO =4 8 $ P L
0x427f3c…4280d0 Dummy {f00=0x0121, f01=0x0190, f02=»E) CLT120 NO =4 8 P INH =4 9 P CM* DWTTP,A6 RESET TIMER =4 9 * 2 P CM DWTTP,A6 RESET ADDRESS POINTER TO TIMER =4 9 N PCLT120 EQU * =4 9 P XIF 9 4 P LD A3,DWTADR,A6 ADDRESS TO ADDRESS-BLOCK IN A3 9 P ENB 9 * P ABI INTADR,A3 GO TO INTERRU
0x4280d0…428264 Dummy {f00=0x0121, f01=0x0190, f02=»:- 9 f P* : ( P* A1 = ERROR CODE (A1=0 NOERROR) : B P* (A1=1 NOT OPERABLE , HARDWARE TIME-OUT) : @ P* A6 = DWT-ADDRESS : P* : P* A7 = ORDER : P* : P* A8 = ECB-ADDRESS : P EJECT : P* : P* G E
0x428264…4283f8 Dummy {f00=0x0121, f01=0x0190, f02=» P* ; P* ON ENTRY:- ; P* ; $ P* A3 = LINE NUMBER * 2 ; . P* A4 = DEVICE NUMBER * 2 ; N P* ; p P* ON EXIT:- ; z P* ; 6 P* A6 = TOTAL NUMBER OF DEVICES*2 ON ACTUAL LINE ; < P* A8 = ADDRESS IN 'INTLTX' WHERE DWT-ADDRESS IS FO
0x4283f8…42858c Dummy {f00=0x0121, f01=0x018e, f02=»8,A3 POSITION IN TABLE ; , P LDR* A8,A8 ADDRESS TO TERMINAL SECTION < ( P RF(Z) GTL010 RETURN IF NOT DEFINED < N P LDR* A6,A8 GET ID-WORD < z , P ANK A6,/FF TWO TIMES NUMBER OF DEVICES < 4 P ADR A8,A4 ADDRESS TO DEVICE WORK TABLE POSITION < PGTL010
0x42858c…428720 Dummy {f00=0x0121, f01=0x0190, f02=» P* = : P* SUBROUTINE TO SEND ONE CHARACTER VIA CHANNEL UNIT. = P* = L < P* CHARACTER GIVEN IN A2 IS SENT VIA CHLT IF CONTROL = V 8 P* UNIT IS FREE. IN OTHER CASE DWT IS QUEUED ON A = P* OUTPUT QUEUE THREAD. = P* = P* ON E
0x428720…4288b4 (4, 245) Dummy {f00=0x0122, f01=0x0190, f02=» = P IFF LOCHAN=1 > P* > " P LDR* A1,A6 CHANNEL PARAMETER > ( P ANK A1,/F CHANNEL INDEX > N P SLL A1,1 > n P ADK A1,2 > * P LD A1,CHTAB,A1 GET CWT-ADDRESS IN A1 > P* > P XIF > P* > P* > P IFT LOCHAN=1 > P* >
0x4288b4…428a48 Dummy {f00=0x0122, f01=0x0190, f02=»0 YES > P EJECT ? P* ? P* QUEUE OUTPUT ? & P* ? @ & POUL005 LD A4,CWTEQ,A1 OUTPUT QUEUE ? J P RF(E) OUL020 ? t POUL010 CWR A6,A4 ? . P RF(E) OUL060 THIS DWT IS ALREADY IN QUEUE ? P LD A3,DWTOTQ,A4 ? & P RF(E) OUL030 END OF THREAD
0x428a48…428bdc Dummy {f00=0x0122, f01=0x0190, f02=»A6,DWTOTQ,A4 QUEUE DWT ? * POUL040 CM DWTOTQ,A6 SET END OF THREAD @ P RF OUL060 @ L P EJECT @ ^ P* @ l P* SEND CHARACTER @ v P* @ , POUL050 LDR* A3,A6 GET CHANNEL PARAMETERS @ P ANKL A3,/7F00 @ P ANK A2,/FF @ P ORR A2,A3 @ P
0x428bdc…428d70 Dummy {f00=0x0122, f01=0x0190, f02=»ING=1 @ 0 P CF A15,LOGG ** LOGG OF OUTPUT CHARACTER ** A P XIF A B 4 P ST A2,CWTLOW,A1 STORE LAST OUTPUT IN CWT =6(=3) A N 8 POUL060 SC A2,DWTOCH,A6 STORE OUTPUT CHARACTER IN DWT A POUL070 EQU * A P IFT CPU852=1 A ( P ABL IHRET8 RESTORE A1-A8 AN
0x428d70…428f04 Dummy {f00=0x0122, f01=0x0190, f02=»...ADJUST STACK POINTER... =9 A P LDR* P,A15 ...AND RETURN =9 B & P XIF B J P* B V P EJECT B ` P* B n P* C H L T O N B x P* B > P* SUBROUTINE TO RESET CWT AND PERFORM CIO-START OF EVERY B @ P* CHLT IN SYSTEM. THE SUBROUTINE IS ENTERE
0x428f04…429098 Dummy {f00=0x0122, f01=0x0190, f02=»TREATED ? B | P RF(NZ) CON020 NO TAKE NEXT C P ABL RTNA15 RETURN AND ENB C 6 * PCON020 LD A5,CHTAB,A1 LOAD CWT-ADDRESS C X P RB(Z) CON010 C $ P EX CWTCIS,A5 EXECUTE CIO-START C P LDR* A6,A5 GET LAST DWT C P RB(Z) CON010 C P CMR A5 RESET
0x429098…42922c Dummy {f00=0x0122, f01=0x0190, f02=»* C P IFT LOCHAN=1 D P* D P CIO A2,1,DWA1 CIO-START D * P LD A6,CWTLT1 GET LAST DWT D J P RF(Z) CON010 D l P CM CWTLT1 RESET LAST OUTPUT D P LDK A2,0 D " P CF A15,OUTLIN SEND CHARACTER D $ PCON010 ABL RTNA15 RETURN AND ENB D P*
0x42922c…4293c0 Dummy {f00=0x0122, f01=0x0190, f02=»INPUT AND D f $ P* OUTPUT CHARACTER ARE LOGGED E P* E : P* E D P* E N P IFT LOGING=1 E X P* E n PLOGG STR A1,A15 E x P LD A1,POINT E P ADK A1,2 E & P CWK A1,BUFE BUFE IS MAX LOGG AREA E P RF(NE) L1 E ( P LDKL A1,BUF SET FIRST
0x4293c0…429554 (4, 246) Dummy {f00=0x0122, f01=0x40b8, f02=»DR* P,A15 RETURN E P* F P* F " PPOINT DATA BUF LOGG POINTER F , P* F P PBUF RES 63 LOGG AREA F Z PBUFE EQU * F v P* F P XIF F P* F P END F @ F
0x429554…4296e8 Dummy {f00=0x0122, f01=0x2008, f02=» G PPOINT DATA BUF LOGG POINTER 9 P* 9 2 PBUF RES 63 LOGG AREA 9 < PBUFE EQU * 9 X P* 9 j P XIF 9 t P* 9 P END 9 @ 9 A1,BUFE BUFE IS MAX LOGG AREA 8 P RF(NE) L1 8 ( P LDKL A1,BUF SET FIRST LOGG ADDRESS 8 PL1 ST A1,P
0x4296e8…42987c Dummy {f00=0x0122, f01=0x0190, f02=» P RB ECDY20 H P XIF H * PECDY60 LDR A3,A4 SAVE POSITION COUNTER H " 6 P LD A4,DWTAP,A6 GET HEAD LINE-AND-POSITION COUNTER H P P CF A5,CURPOS SET CURSOR H P LDR A4,A3 GET POS COUNTER H P ADK A4,1 UPDATE POS COUNTER H P LDK A3,/20 H P CF
0x42987c…429a10 Dummy {f00=0x0122, f01=0x0190, f02=»* H 0 P* BACCAN = SUBROUTINE TO POSITION CURSOR I 0 P* AT THE PLACE BEFORE REQUEST IF I > 0 P* CLEAR OR BACKWARDS ONE STEP IF I r P* BACKSPACE. I P* I PBACCAN EQU * I P LDR A3,A4 I ( P LC A2,DWTBC,A6 GE
0x429a10…429ba4 Dummy {f00=0x0122, f01=0x0190, f02=»T POSITION I | P RF(NP) BACA10 NO J $ P LDK A2,SPACE DESTRUCTIVE SPACE J , P RF BACA20 J T " PBACA10 LDK A2,BACKSP BACKSPACE J f P CF A5,OUTPUT SEND J $ P LDK A2,SPACE DESTRUCTIVE SPACE J P CF A5,OUTPUT SEND J P LDK A2,BACKSP BACKSPACE J P
0x429ba4…429d38 Dummy {f00=0x0122, f01=0x0190, f02=»ON COUNTER J r P RTN A5 K P EJECT K " 4 P*********************************************** K 0 4 P* CHECK = SUBROUTIN TO CHECK USER BUFFER IN * K h 4 P* ORDER TO GET A REASON FOR USING * K 4 P* 'FAST OUTPUT FACILITY' ON 6344 *
0x429d38…429ecc Dummy {f00=0x0122, f01=0x018e, f02=» P* L P* L P LD A1,4,A8 L P SUR A1,A3 END OF BUFFER? L , P ABL(NP) ACDY75 YES! L N , P LDR A7,A2 SAVE CHER TO SEND (AND CHECK) L j ( P LDR A2,A4 SAVE BUFFER ADDRESS+INDEX L P LDK A4,1 RESET COUNTER L $ PNEXT ADK A4,1 INCREMENT COUNTER L
0x429ecc…42a060 Dummy {f00=0x0122, f01=0x0190, f02=» P RB(E) NEXT YES! M POUT EQU * M 6 P CWK A4,EQU CONDITION FOR FAST OUTPUT FULLFILLED? M . P RF(L) NOFAST NO! M h & P********************************** M & P* UPDATE ACTUAL POSITION POINTER * M , PFASTOK LC A2,DWTBC,A6 GET HEAD POSITION M P A
0x42a060…42a1f4 (4, 247) Opaque[0x194]
0x42a1f4…42a388 # DirEnt {nam=»DRSOP1«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x2450, f03=0x0000}
0x42a1f4…42a388 IdxSect {
0x42a1f4…42a388 f00 = 0x0122 // 0x42a1f4 @0x0
0x42a1f4…42a388 f01 = 0x000a // 0x42a1f6 @0x2
0x42a1f4…42a388 gno = [ // 0x42a1f8 @0x4
0x42a1f4…42a388 [0x00]: C0x0122.0x2.0
0x42a1f4…42a388 [0x01]: C0x0123.0x0.0
0x42a1f4…42a388 [0x02]: C0x0123.0x1.0
0x42a1f4…42a388 [0x03]: C0x0123.0x2.0
0x42a1f4…42a388 [0x04]: C0x0123.0x3.0
0x42a1f4…42a388 ]
0x42a1f4…42a388 }
0x42a388…42a51c Dummy {f00=0x0122, f01=0x018e, f02=» 2 P IDENT DRSOP1 REL 10.0 80-03-14 870105041000 P : P* B P* L @ P************************************************************ V P* $ P* PHILIPS TERMINAL SYSTEM PTS P* 2 P* DRSOP1 = DRIVER FOR SYSTEM OPERATORS PANEL
0x42a51c…42a6b0 Dummy {f00=0x0122, 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
0x42a6b0…42a844 Dummy {f00=0x0122, 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
0x42a844…42a9d8 Dummy {f00=0x0122, 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
0x42a9d8…42ab6c Dummy {f00=0x0122, 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
0x42ab6c…42ad00 Dummy {f00=0x0122, 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
0x42ad00…42ae94 (4, 248) Dummy {f00=0x0123, 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
0x42ae94…42b028 Dummy {f00=0x0123, 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
0x42b028…42b1bc Dummy {f00=0x0123, 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
0x42b1bc…42b350 Dummy {f00=0x0123, 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
0x42b350…42b4e4 Dummy {f00=0x0123, 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
0x42b4e4…42b678 Dummy {f00=0x0123, 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*
0x42b678…42b80c Dummy {f00=0x0123, 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********************
0x42b80c…42b9a0 Dummy {f00=0x0123, 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
0x42b9a0…42bb34 (4, 249) Dummy {f00=0x0123, 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
0x42bb34…42bcc8 Dummy {f00=0x0123, 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*
0x42bcc8…42be5c Dummy {f00=0x0123, 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=
0x42be5c…42bff0 Dummy {f00=0x0123, 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(
0x42bff0…42c184 Dummy {f00=0x0123, 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*
0x42c184…42c318 Dummy {f00=0x0123, 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
0x42c318…42c4ac Dummy {f00=0x0123, 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
0x42c4ac…42c640 Dummy {f00=0x0123, 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
0x42c640…42c7d4 (4, 250) Dummy {f00=0x0123, 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
0x42c7d4…42c968 Dummy {f00=0x0123, 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*
0x42c968…42cafc Dummy {f00=0x0123, 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
0x42cafc…42cc90 Dummy {f00=0x0123, 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
0x42cc90…42ce24 Dummy {f00=0x0123, 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******
0x42ce24…42cfb8 Dummy {f00=0x0123, 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
0x42cfb8…42d14c Dummy {f00=0x0123, 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
0x42d14c…42d2e0 Dummy {f00=0x0123, 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
0x42d2e0…42d474 (4, 251) Dummy {f00=0x0123, 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
0x42d474…42d608 Dummy {f00=0x0123, 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
0x42d608…42d79c Dummy {f00=0x0123, 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
0x42d79c…42d930 Dummy {f00=0x0123, 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
0x42d930…42dac4 Dummy {f00=0x0123, 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
0x42dac4…42dc58 Dummy {f00=0x0123, 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
0x42dc58…42ddec Dummy {f00=0x0123, f01=0x0190, f02=»CHTABE-* TABLE LENGTH P DATA CWTLT1 P DATA CWTLT2 4 P IFT LOCHAN=3 H P DATA CWTLT3 ^ P XIF r P IFT LOCHAN=4 ~ P DATA CWTLT3 P DATA CWTLT4 P XIF PCHTABE EQU * END OF TABLE P* P* P* P
0x42ddec…42df80 Dummy {f00=0x0123, f01=0x0190, f02=»HANDLER FOR CHLT v P* P* C H L T 1 " P* INTERRUPT FROM CHLT1 8 P* X P XIF b P IFT LOCHAN=2 n PCHLT3 EQU * PCHLT4 EQU * P XIF P IFF LOCHAN=1 PCHLT1 EQU * $ P ST P,INTSAV SAVE LAST INTERRUPT
0x42df80…42e114 (4, 252) Opaque[0x194]
0x42e114…42e2a8 # DirEnt {nam=»DRTW01«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x20d8, f03=0x0000}
0x42e114…42e2a8 IdxSect {
0x42e114…42e2a8 f00 = 0x0106 // 0x42e114 @0x0
0x42e114…42e2a8 f01 = 0x000c // 0x42e116 @0x2
0x42e114…42e2a8 gno = [ // 0x42e118 @0x4
0x42e114…42e2a8 [0x00]: C0x0106.0x3.0
0x42e114…42e2a8 [0x01]: C0x0107.0x1.0
0x42e114…42e2a8 [0x02]: C0x0128.0x1.0
0x42e114…42e2a8 [0x03]: C0x014a.0x1.0
0x42e114…42e2a8 [0x04]: C0x014a.0x2.0
0x42e114…42e2a8 [0x05]: C0x014a.0x3.0
0x42e114…42e2a8 ]
0x42e114…42e2a8 }
0x42e2a8…42e43c Dummy {f00=0x0106, f01=0x0190, f02=» 2 P IDENT DRTW01 REL 10.0 80-03-14 870105041000 P : P B P J P R 6 P************************************************** Z P* $ P* PHILIPS TERMINAL SYSTE PTS P* , P* DRTW01 = DRIVER TYPEWRITER PTS 6862 P*
0x42e43c…42e5d0 Dummy {f00=0x0106, f01=0x0190, f02=»HANDLES INPUT AND OUTPUT TO TYPEWRITERS P* PTS 6862 0 P* D P* N P EJECT X P* f P* p P*********** z P* ENTRIES * P*********** P* P ENTRY TWAD ADDRESS BLOCK P ENTRY IHTW P ENTRY TWON
0x42e5d0…42e764 Dummy {f00=0x0106, f01=0x0190, f02=»R v P EXTRN TDISP DISPATCH $ P EXTRN DISEND DISPATCH AND ENDIO ( * P EXTRN SETIME SET TIME BEFORE TIME-OUT P . P EXTRN SAVE8 SAVE REGISTERS A1-A8 ON STACK ~ EXTRN DWTST STATUS EXTRN DWTBC BYTE COUNTER EXTRN DWTECB ECB ADDRESS
0x42e764…42e8f8 Dummy {f00=0x0106, f01=0x0190, f02=»EA A5 | & ! EXTRN DWTSB1 STACK BASE 1 IN DWT & ! EXTRN DWTSB2 STACK BASE 2 IN DWT 8 P EXTRN DWTTP TIMER POINTER b * P EXTRN INTSAV SAVE AREA LAST INTRRUPT * P EXTRN PFPOST PWF POST PROCESSING FLAG P EJECT P* P* P******
0x42e8f8…42ea8c Dummy {f00=0x0106, f01=0x0190, f02=»EQU /4280 CIO-HALT PTWINR EQU /4A00 INPUT PTWOTR EQU /4200 OUTPUT 8 PTWSST EQU /4AC0 SENSE STATUS V P* z P* P EJECT P* P* P************* P* CONSTANTS * P************* P* P* PCR
0x42ea8c…42ec20 Dummy {f00=0x0106, f01=0x0190, f02=»TIME EQU 300 TIME BEFORE TIME-OUT P* * P* 4 P************************ > P* CONDITIONAL ASSEMBLY* ^ P************************ ~ P* P* PX:A EQU 0 PX:B EQU 0 PX:C EQU 60 PX:D EQU 10 PX:E EQU 6
0x42ec20…42edb4 (4, 253) Dummy {f00=0x0107, f01=0x0190, f02=»IT EQU 1 P* . P* A PROGRAM VERSION USING TOSS MMU PAGING * P* IS OBTAINED BY SETTING MMUPAG EQU 1. L P* z PMMUPAG EQU 1 P* P* 6 P* A PROGRAM VERSION USING THE EXTENDED INSTRUCTION . P* SET IS OBTAINED BY SETTING CPU85
0x42edb4…42ef48 Dummy {f00=0x0107, f01=0x0190, f02=»NTS * P********************* P* , P* 6 0 PDWTDRD EQU /10 START OF DRIVER DEFINED PART @ P* t P IFT MMUPAG=0 ~ PSTART EQU DWTDRD P XIF P* P IFT MMUPAG=1 PSTART EQU DWTDRD+4 P XIF P* P
0x42ef48…42f0dc Dummy {f00=0x0107, f01=0x018e, f02=» * P DATA DVBKTB+DVBKTB MMU KEY TABLE SIZE ( P DATA DVBLEN+DVBLEN MMU BUFFER SIZE 2 P DATA DEVIND DEVICE INDEX ^ PTWAD EQU * P DATA TWA ACTIVATION PART " P DATA 0 ABORT ROUTINE ADDRESS P EJECT P* P* 2 P* ACTIVATI
0x42f0dc…42f270 Dummy {f00=0x0107, f01=0x0190, f02=» & P ABL(Z) IHTW50 REQUESTED LENGTH =0 P* . P* 8 P LDR A2,A7 COPY ORDER B P RF(NP) TWAERR REQUEST ERROR ` P SUK A2,4 P RF(Z) TWAERR REQUEST ERROR P RF(N) TWAIN INPUT REQUEST P SUK A2,2 " P RF(NP) TWAOUT OUTPUT REQU
0x42f270…42f404 Dummy {f00=0x0107, f01=0x0190, f02=»T=1 & P LD A2,DWTTP,A6 GET TIMER POINTER * P RF(Z) TWA010 NO TIMING ON THIS DEVICE 6 P LDR A1,A6 SAVE DWT-ADDRESS d P CF A15,SETIME P DATA TWTUT,TIME , P ST A4,DWTTP,A6 SAVE TIMER BLOCK-ADDRESS P XIF PTWA010 EQU * P I
0x42f404…42f598 Dummy {f00=0x0107, f01=0x018e, f02=»2,DWTST,A6 RESET POINTER P LDKL A2,-2 " P ST A2,10,A8 INDICATE POWER UP 4 P ABL IHTW35 PERFORM ENDIO Z P XIF | PTWA020 LDK A2,/21 P* P* ( PREAD CF A5,STRTIO EXECUTE CIO-START P RF RED030 & PRED020 CF A5,STREG S
0x42f598…42f72c Dummy {f00=0x0107, f01=0x0190, f02=» P LDR A1,A1 P RF(NZ) RED037 P XIF 0 P SUK A7,1 < P RF(P) RED050 ORDERS 02/03 N P* p P* z 0 PRED035 CF A5,STORE STORE CHARACTER IN BUFFER P CW A3,4,A8 $ P RB(L) RED020 GET NEXT CHARACTER P LDR A7,A7 P R
0x42f72c…42f8c0 Dummy {f00=0x0107, f01=0x0190, f02=» P EJECT P PRED040 EQU * P 2 P IFT TIMOUT=1 : P LD A7,DWTOR,A6 GET ORDER P P ANK A7,/FF MASK ORDER r P CWK A7,4 P RF(G) RED045 WRITE ORDER " P LD A4,DWTTP,A6 TIMER POINTER * P RF(Z) RED045 NO TIMIMG ON THI
0x42f8c0…42fa54 (4, 254) Dummy {f00=0x0128, f01=0x0190, f02=»W40 PERFORM TENDIO P EJECT P* ( P* 2 P* < P* ORDERS 02,03 F P* ^ P* h PRED050 EQU * r " P LD A1,10,A8 GET CONTROL WORD P RF(Z) RED080 NO KEYTABLE " P LCR A4,A1 GET NUMBER OF KEYS P ANK A4,/FF " P
0x42fa54…42fbe8 Dummy {f00=0x0128, f01=0x0190, f02=»EMENT ADDRESS $ P CCR A2,A1 CHECK IF IN KEYTABLE " P RB(NE) RED060 NOT IN KEYTABLE > P ADR A4,A4 DOUBLE INDEX d , P ST A4,10,A8 STORE INDEX IN CONTROL WORD , PRED070 CF A5,STORE STORE KEY IN KEYTABLE P RB RED040 EXECUTE CIO-HALT P
0x42fbe8…42fd7c Dummy {f00=0x0128, f01=0x0190, f02=»,A6 P RF(E) RED110 CLEAR P EJECT ( P* 6 P* @ ( P* CHARACTER NOT FOUND IN KEYTABLE J P* v P* P* $ PRED090 LDR A4,A2 COPY CHARACTER P ANK A4,/FF MASK P LDR A1,A7 P SUK A1,1 P RF(Z) RED100 OR
0x42fd7c…42ff10 Dummy {f00=0x0128, f01=0x0190, f02=»F RED110 P* P* PRED100 SUK A4,/20 $ P RF(N) CODERR LESS THAN /20 > P SUK A4,/3F b $ P RF(NP) RED110 CORRECT CHARACTER v P* P* $ PCODERR LDK A1,4 CODE CHECK ERROR P ORS A1,8,A8 . P CF A5,STORE STORE CHARACT
0x42ff10…4300a4 Dummy {f00=0x0128, f01=0x0190, f02=»,TWBSP,A6 P RF(E) RED120 BACKSPACE P CC A2,TWCLR,A6 2 P RB(NE) RED035 J P* ` P* j P LDK A3,0 CLEAR ECB-BUFFER t " P RB RED020 GET NEXT CHARACTER P* P* PRED120 SUK A3,1 BACKSPACE & P RB(NN) RED020 GET NEX
0x4300a4…430238 Dummy {f00=0x0128, f01=0x0190, f02=» P* W R I T E P* 4 P* ORDERS 05 AND 06: BASIC AND STANDARD WRITE $ P* P* f PWRITE EQU * p PTWAOUT EQU * P INH P LDK A4,0 P LDK A2,0 $ P CF A5,STRTIO EXECUTE CIO-START P* P* P CWK
0x430238…4303cc Dummy {f00=0x0128, f01=0x0190, f02=» P ANK A3,/FF P SUK A3,/2B P RF(Z) WRT030 NO CR OR LF , P* N P* X , P ST A4,DWTHP,A6 HEAD POSITION INDICATOR b P LDK A4,2 $ P LDK A2,CR SEND CARRIAGE RETURN P EJECT P* P* P* $ PWRT010 CF A5,OTR
0x4303cc…430560 Dummy {f00=0x0128, f01=0x0190, f02=» PWRT020 SUK A3,5 P RB(Z) WRT015 SEND SECOND LF P SUK A3,1 D P RF(NZ) WRT030 V P LDK A2,/0C SEND FORM FEED n P RB WRT010 " PWRT030 LDK A3,2 BUFFER POINTER P RF WRT050 GET CHARACTER P* P* P* PWR
0x430560…4306f4 (4, 255) Dummy {f00=0x014a, f01=0x0190, f02=» 6 PWRT050 CF A5,GETCHR GET CHARACTER FROM ECB-BUFFER P LDR A1,A1 > P RB(Z) RED040 LAST CHARACTER R P CWK A7,5 v P RB(Z) WRT040 BASIC WRITE P* P* ( P LDR A1,A2 ORDER 06: STANDARD WRITE P ANK A1,/FF P SUK A1,/0
0x4306f4…430888 Dummy {f00=0x014a, f01=0x018e, f02=»D LESS THAN /20 P SUK A1,/3F " P RB(NP) WRT040 BETWEEN /20-/5F , P SUK A1,/20 R " P RF(NP) WRT060 BETWEEN /60-/7F f P* P* PERRCOD LDK A1,4 P ORS A1,8,A8 " P RB WRT050 GET NEXT CHARACTER P* P* PWR
0x430888…430a1c Dummy {f00=0x014a, f01=0x0190, f02=» P* PWRTTAB EQU * 2 P CF A5,GETCHR GET FIRST TAB.POSITION CHARACTER " P LDR A4,A2 COPY X 4 P CF A5,GETCHR GET SECOND TAB. POSITION CHARACTER p P ANK A2,/F P ANK A4,/F P RF(Z) TAB020 PTAB010 ADK A2,/A P SUK A4,1
0x430a1c…430bb0 Dummy {f00=0x014a, f01=0x0190, f02=»BER OF SPACES TO BE SENT , P RB(NP) WRT050 NO SPACES SHOULD BE SENT P LDR A4,A2 P " PTAB030 LDK A2,/20 SEND BALNKS b $ PTAB040 CF A5,OTR SEND CHARACTER ( P IM DWTST,A6 INCREMENT BYTE COUNTER P SUK A4,1 & P RB(NZ) TAB030 SEND ANOTHE
0x430bb0…430d44 Dummy {f00=0x014a, f01=0x0190, f02=»INDEX x " P RB WRT050 GET NEXT CHARACTER P EJECT 4 P* B P* L P* RECOVERY ROUTINE V P* r P* | P* PTWON EQU * P IFT CPU852=1 & P CF A15,SAVE8 SAVE A1-A8 ON STACK P XIF P* P IFT CPU852=0
0x430d44…430ed8 Dummy {f00=0x014a, f01=0x0190, f02=»200 & P ORS A1,DWTST,A6 INDICATE POWER UP P XIF 6 P LD A1,DWTST,A6 B P RF(N) EXIT DEVICE NOT BUSY Z PTWON10 LD A3,DWTA3,A6 ~ P LD A7,DWTOR,A6 GET ORDER P ANK A7,/FF P LD A8,DWTECB,A6 ECB-ADDRESS P LDKL A5,DWTSB2
0x430ed8…43106c Dummy {f00=0x014a, f01=0x0190, f02=» z P INH P LDK A2,0 $ P CF A5,STRTIO EXECUTE CIO-START & P LDK A2,CR N P LDK A3,0 ` P LD A4,DWTHP,A6 r P ADK A4,1 $ P RB TAB040 REPRINT LAST REQUEST P* PTWON20 LDK A1,TPERR ORDER 05 P ABL DISEND P*
0x43106c…431200 Dummy {f00=0x014a, f01=0x0190, f02=» P* PIHTW EQU * $ P ST P,INTSAV SAVE LAST INTERRUPT $ P IFT CPU852=1 L & P CF A15,SAVE8 SAVE A1-A8 ON STACK b P XIF P* P IFT CPU852=0 " P MSR 8,A15 SAVE A1-A8 ON STACK P XIF P* P LDKL A6,DWTW01
0x431200…431394 (4, 256) Dummy {f00=0x014a, f01=0x0190, f02=»,TWSST P EXR A2 EXECUTE SST P RF(A) IHTW30 ENDIO * P LD A7,DWTOR,A6 GET ORDER F P ANK A7,/FF h P SUK A7,4 | P RF(P) IHTW30 " P LDR* A2,A6 GET DEVICE ADDRESS P ORKL A2,TWINR P EXR A2 EXECUTE INR $ P ANK A2,/7
0x431394…431528 Dummy {f00=0x014a, f01=0x018e, f02=»IMING ON THIS DEVICE ~ P LDKL A1,-TIME P ST* A1,DWTTP,A6 2 P XIF J P* V P* ` PIHTW30 LDK A1,0 j P RF LDREGE RESTORE REGISTERS P P PIHTW35 EQU * P IFT POWUP+TIMOUT=2 P " P LD A1,DWTTP,A6 TIMER POIN
0x431528…4316bc Dummy {f00=0x014a, f01=0x018e, f02=» PIHTW40 EQU * P* P* " , PIHTW50 ST A3,6,A8 SAVE EFFECTIVE LENGTH , PIHTW55 SUK A7,4 P RF(NP) IHTW60 READ ORDER t P* P* $ P LC A3,DWTBC,A6 GET BYTE COUNTER * P ADS A3,DWTHP,A6 UPDATE HEAD POSITION P LDK A3,
0x4316bc…431850 Dummy {f00=0x014a, f01=0x0190, f02=» P ADK A1,2 ! P SRL A1,1 ! P ST A1,10,A8 ! ( P XIF ! < P LDK A1,0 ! H P ABL DISEND PERFORM TENDIO ! Z P* ! | P* ! P ! PSKIP LDR* A2,A6 ! P ORKL A2,TWSST ! P EXR A2 SST ! P RF(A) EXIT ! P LDR* A2,A6 ! P ORKL
0x431850…4319e4 Dummy {f00=0x014a, f01=0x0190, f02=» ! , PSTRTIO LDKL A1,TWSTRT EXECUTE CIO-START " P RF EXECIO " 8 ( PHLTIO LDKL A1,TWHLT CIO-HALT " J P RF EXECIO " v " POTR LDKL A1,TWOTR OTR " P* " P* " PEXECIO LD A7,PFPOST " P RF(NZ) STREG PFINIT PENDING " P ORR*
0x4319e4…431b78 Dummy {f00=0x014a, f01=0x0190, f02=»T,A6 INDICATE INTERRUPTS ALLOWED " $ P ST A3,DWTA3,A6 SAVE REGISTER A3 # ( $ P ST A4,DWTA4,A6 A4 # P $ P ST A5,DWTA5,A6 A5 # x PEXIT ABL TDISP # PHALT ST A2,DWTA2,A6 # " P CF A5,HLTIO EXECUTE CIO-HALT # P LD A2,DWTA2,A6
0x431b78…431d0c Dummy {f00=0x014a, f01=0x0190, f02=»FER # r P* $ P* $ ( PSTORE LD A4,2,A8 GET BUFFER ADDRESS $ $ P ADR A4,A3 GET CHARACTER ADDRESS $ L P SCR A2,A4 STORE CHARACTER $ t $ P ADK A3,1 INCREMENT BUFFER INDEX $ P RTN A5 $ P* $ P* $ P* $ P IFT TIMOUT=1 $ P* $
0x431d0c…431ea0 Dummy {f00=0x014a, f01=0x0190, f02=»ETURN CODE $ z P XIF % P* % P* % ( P EJECT % 2 P* % @ P* % J P* L D R E G E % T P* % l 8 P* RESTORE A3-A5 FROM DWT AND RETURN TO USER VIA A5 % v P* % P* % PLDREGE EQU * % & P LD A3,DWTA3,A6 RELOAD REGISTER A3 % & P LD
0x431ea0…432034 (4, 257) Dummy {f00=0x014a, f01=0x0190, f02=»B,A6 % P RTN A5 RETURN VIA A5-STACK & P EJECT & 0 P* & > P* & H P* G E T C H R & R P* & j 8 P* SUBROUTINE TO GET ONE CHARACTER FROM ECB-BUFFER & t P* & P* ON ENTRY: & P* & P* A3 = BUFFER INDEX & P* A8 = ECB-AD
0x432034…4321c8 Dummy {f00=0x014a, f01=0x0190, f02=» J P* IF LAST CHARACTER IS REACHED A3 IS STORED IN ECB EFFECTIVE LENGTH ' P* ' R P* ' PGETCHR EQU * ' f P LD A1,4,A8 REQUESTED LENGTH ' z P SUR A1,A3 ' * P RF(NP) GCH010 LAST CHARACTER REACHED ' " P LD A1,2,A8 GET BUFFER ADDRESS ' P ADR
0x4321c8…43235c Dummy {f00=0x014a, f01=0x0190, f02=»8 STORE EFFECTIVE LENGTH ' P RTN A5 ( P EJECT ( 0 P* ( > ( P* DEVICE WORK TABLE FOR TYPEWRITER ( H P* ( t P* ( ~ PDWTW01 EQU * TABLE ENTRY ( " P DATA /0010 CHANNEL PARAMETER ( 0 P DATA /8000 STATUS./8000 MEANS DEVICE READY ( P DATA
0x43235c…4324f0 Dummy {f00=0x014a, f01=0x0190, f02=»E INDICATOR ( | P DATA 0 TERMINAL QUEUE ) IFT MMUPAG=1 ) 2 & " DATA 0 SAVE AREA USER ECB ADDRESS ) H DATA DEVECB MMU ECB ADDRESS ) r XIF ) P DATA 0 OUTPUT QUEUE LINK ) P DATA 0 SAVE AREA FOR A3 ) P DATA 0 SAVE AREA FOR A4 ) P DAT
0x4324f0…432684 Dummy {f00=0x014a, f01=0x018e, f02=»CKSPACE KEY ) x P RIGHT BYTE CANCEL KEY * & P DATA /0D00 LEFT BYTE STANDARD EOR * 4 P RIGHT BYTE DOUBLE ZERO * ^ " P DATA 0 HEAD POSITION POINETR * P DATA 0 SAVE AREA FOR A2 * P* * P EJECT DRTW01 * P* * P* * P IFT MMUPAG=
0x432684…432818 Dummy {f00=0x014a, f01=0x403e, f02=» P XIF + P* + P* + P* + $ P END + .@ + :0 LEFT BYTE STANDARD EOR * 4 P RIGHT BYTE DOUBLE ZERO * ^ " P DATA 0 HEAD POSITION POINETR * P DATA 0 SAVE AREA FOR A2 * P* * P EJECT DRTW01 * P* * P* * P IFT MMUPAG=
0x432818…4329ac Dummy {f00=0x014a, f01=0x2008, f02=» ,
0x4329ac…432b40 Dummy {f00=0x014a, f01=0x0190, f02=»K < P* = P* = P********** = P* CREATE * = 0 P********** = B P* = T P* = ^ PCREATE EQU * CREATE FILE = h P* TO BE IMPLEMENTED = P EJECT FMTASK = P* = P* = P********** = P* EXTEND * = P********** = P
0x432b40…432cd4 (4, 258) Opaque[0x194]
0x432cd4…432e68 # DirEnt {nam=»DRLP01«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x26c8, f03=0x0000}
0x432cd4…432e68 IdxSect {
0x432cd4…432e68 f00 = 0x0136 // 0x432cd4 @0x0
0x432cd4…432e68 f01 = 0x0008 // 0x432cd6 @0x2
0x432cd4…432e68 gno = [ // 0x432cd8 @0x4
0x432cd4…432e68 [0x00]: C0x0136.0x1.0
0x432cd4…432e68 [0x01]: C0x0136.0x3.0
0x432cd4…432e68 [0x02]: C0x0137.0x3.0
0x432cd4…432e68 [0x03]: C0x0138.0x0.0
0x432cd4…432e68 ]
0x432cd4…432e68 }
0x432e68…432ffc Dummy {f00=0x0136, f01=0x0190, f02=» 2 P IDENT DRLP01 REL 10.0 80-03-14 870105041000 P : P* B P* L > P********************************************************** V P* $ P* PHILIPS TERMINAL SYSTEM PTS P* $ P* DRLP01 = DRIVER LINE PRINTER P* P*
0x432ffc…433190 Dummy {f00=0x0136, f01=0x0190, f02=» THIS DRIVER HANDLES ONE LINE PRINTER PTS 6881 CONNECTED < P* TO CPU VIA CHLP ON MULTIPLEX CHANNEL OR PROGRAMMED B P* CHANNEL P* P EJECT DRLP01 P* P* P************************ P* ENTRIES *
0x433190…433324 Dummy {f00=0x0136, f01=0x0190, f02=»HLP INTERRUPT HANDLER P ENTRY LPON RECOVERY ROUTINE & P ENTRY DWLP01 DWT FOR LINE PRINTER B P l P t P | P* P* , P**************************************** , P* EXTERNAL TOSS MODULE ENTRIES * , P****************
0x433324…4334b8 Dummy {f00=0x0136, f01=0x0190, f02=»GS ON STACK z P EXTRN DISIOE REQUEST ERROR EXTRN DWTST STATUS 8 EXTRN DWTBC BYTE COUNTER T EXTRN DWTECB ECB ADDRESS v $ EXTRN DWTOR DWT INDEX AND ORDER P EXTRN DWTA3 SAVE AREA A3 EXTRN DWTA4 SAVE AREA A4 EXT
0x4334b8…43364c Dummy {f00=0x0136, f01=0x0190, f02=»POST PROCESSING FLAG ~ P EJECT DRLP01 P* 4 P* > " P***************************** H " P* CONSTANTS * n " P***************************** P* P* PDWALP EQU /0F & PMUXLP EQU DWALP+DWALP MUX ADDRESS
0x43364c…4337e0 Dummy {f00=0x0136, f01=0x0190, f02=»SEMBLY P* . P***************************************** P* J 2 P* PROGRAMMED CHANNEL MAY BE USED INSTEAD OF T , P* MULTIPLEX CHANNEL BY SETTING X:A=1 P* PX:A EQU 0 PCHAN EQU 0 P* . P* A PROGRAM VERSION US
0x4337e0…433974 (4, 259) Dummy {f00=0x0136, f01=0x0190, f02=»VERSION USING THE EXTENDED INSTRUCTION . P* SET IS OBTAINED BY SETTING CPU852 EQU 0. . P* ` PCPU852 EQU 0 j P* ~ P* MMU BUFFER SIZE P* PX:B EQU 67 PDVBLEN EQU 162 P* P* MMU DEVICE INDEX P* PX:
0x433974…433b08 Dummy {f00=0x0136, f01=0x0190, f02=»***** ~ P* ORDERS * P*********************** . P* N P* ORDER /00: TEST STATUS. X 8 P* A TST INSTRUCTION IS EXECUTED TO SEE | 0 P* IF LINE PRINTER IS OPERABLE. P* P* ORDER /05: BA
0x433b08…433c9c Dummy {f00=0x0136, f01=0x0190, f02=»UT ANY CHECK. b P* $ P* ORDER /06: STANDARD WRITE. @ P* FIRST WORD IN ECB BUFFER CONTAINS A CONTROL H P* CHARACTER. < P* /2B: PRINT LINE WITHOUT ADVANCING PAPER : P* /30: ADVAN
0x433c9c…433e30 Dummy {f00=0x0136, f01=0x018e, f02=»ES A LINE FEED BEFORE l P* PRINTING. P* @ P* J > P* CHARACTERS IN BUFFER SHOULD BE WITHIN THE T > P* INTERVAL /20-/5F. NO CHECK IS CARRIED OUT B P* BY DRIVER. AT THE END OF ECB BU
0x433e30…433fc4 Dummy {f00=0x0136, f01=0x0190, f02=» P EJECT DRLP01 P* P* & ( P************************************ 0 ( P* NORMAL REGISTER USAGE * ( P************************************ P* P* P* A1 = RETURN CODE P* A2 = WORK REGISTER P*
0x433fc4…434158 Dummy {f00=0x0136, f01=0x018e, f02=» P* A8 = ECB ADDRESS P* & P* 0 $ P******************************** : $ P* TABLES * b $ P******************************** P* P* * P DATA DVBLEN+DVBLEN MMU BUFFER LENGTH P DATA DEVIND DEVICE
0x434158…4342ec Dummy {f00=0x0136, f01=0x018e, f02=» P* P* A C T I V A T I O N P* . P* 8 PACLP EQU * B P LDK A1,/0D CARRIAGE RETURN T P LDR A7,A7 ORDER 0 ? x P RF(NE) ACLP05 NO P LDKL A4,DWTBC BYTE COUNTER P ADR A4,A6 ADD DWT ADDRESS $ P SCR A1,A4 STORE CAR
0x4342ec…434480 Dummy {f00=0x0136, f01=0x0190, f02=» P SUK A7,5 ORDER 5 ? P RF(E) ACLP30 P SUK A7,1 ORDER 6 ? 6 P RF(E) ACLP10 R P* h PACERR ABL DISIOE r P* P EJECT DRLP01 P* P* PACLP10 EQU * P CWK A2,2 REQ. LENGTH < 2 ? P RF(NL) ACLP12 N
0x434480…434614 (4, 260) Dummy {f00=0x0137, f01=0x0190, f02=» A3,A2 ADDED WITH REQ. LENGTH $ P SCR A1,A3 STORE PRINT CHARACTER & P ADK A2,1 N P LCR A3,A4 ` P ECR A3,A3 r & P LC A3,1,A4 GET CONTROL CHARACTER P ST A3,CONCHA P ANK A3,/FF $ P SUK A3,/2B SUPER POSITIONING ? P RF(NE)
0x434614…4347a8 Dummy {f00=0x0137, f01=0x0190, f02=»DK A1,/0A LINE FEED * P SC A1,1,A4 SECOND CHARACTER IN BUFFER P SUK A3,5 TWO LINE FEEDS ? J P RF(E) ACLP20 YES l P LDK A1,/0C TOP OF FORM P SUK A3,1 WANTED ? P RF(E) ACLP20 YES P LDK A1,/0D CARRIAGE RETURN P* P
0x4347a8…43493c Dummy {f00=0x0137, f01=0x0190, f02=» P SUK A7,6 ORDER 6 ? P RF(NE) ENDIO P LDR A2,A2 6 P RF(NN) ACLP35 H 4 P IM 6,A8 ADD FOR EXTRA CHAR. AT BUFFER END (/0D) ^ P* PACLP35 EQU * P LD A4,2,A8 BUFFER ADDRESS P LDKL A3,0 PCONCHA EQU *-2 2 P SC A3,1,A
0x43493c…434ad0 Dummy {f00=0x0137, f01=0x0190, f02=»REQUEST x PEXIT ABL TDISP P* & P EJECT DRLP01 0 P* H P* R P* CIOSTA " P* SUBROUTINE TO SEND BUFFER p P* P* PCIOSTA EQU * P ST A5,DWTA5,A6 SAVE A5 P IFT CHAN=0 6 P ORKL A2,/4000 INDICAT
0x434ad0…434c64 Dummy {f00=0x0137, f01=0x0190, f02=»EGISTER l 2 P WER A4,MUXLP+1 SECOND WRITE EXTERNAL REGISTER P XIF F P* R P IFT CHAN=1 ( P ST A4,DWTA3,A6 SAVE BUFFER ADDRESS p P ADR A4,A2 . P ST A4,DWTA4,A6 SAVE BUFFER END ADDRESS+1 P XIF P* P LD A1,PFPOST
0x434c64…434df8 Dummy {f00=0x0137, f01=0x0190, f02=»* P EJECT DRLP01 P* " P* , P* RECOVERY ROUTINE 6 P* T P* ^ PLPON EQU * h P IFT CPU852=1 z & P CF A15,SAVE8 SAVE A1-A8 ON STACK P XIF P* P IFT CPU852=0 " P MSR 8,A15 SAVE A1-A8 ON STACK
0x434df8…434f8c Dummy {f00=0x0137, f01=0x018e, f02=»T LP FREE P RF IHLP30 P* $ P EJECT DRLP01 . P* F P* P P* I N T E R R U P T Z P* x P* PIHLP EQU * $ P ST P,INTSAV SAVE LAST INTERRUPT P IFT CHAN=0 P IFT CPU852=1 & P CF A15,SAVE8 SAVE A1-A8
0x434f8c…435120 Dummy {f00=0x0137, f01=0x0190, f02=» P IFT CHAN=1 P STR A1,A15 P STR A2,A15 0 P LDKL A2,DWLP01 DWT-ADDRESS D 2 P LD A1,DWTA3,A2 POINTER AT NEXT BYTE IN BUFFER h P LCR A2,A1 NEXT BYTE " P OTR A2,0,DWALP WRITE ONE BYTE P RF(NA) IHLP20 NOT ACCEPTED P LDK
0x435120…4352b4 (4, 261) Dummy {f00=0x0138, f01=0x0190, f02=»BYTE x P CIO A2,0,DWALP CIO HALT PIHLP10 EQU * , P LDR* A2,A15 @ P LDR* A1,A15 T P RTN A15 h P* x P* P* PIHLP20 STR A3,A15 P STR A4,A15 P STR A5,A15 P STR A6,A15 P STR A7,A15 P STR A8,
0x4352b4…435448 Dummy {f00=0x0138, f01=0x0190, f02=»A7,DWTOR,A6 ORDER P ANK A7,/FF P LD A8,DWTECB,A6 ECB ADDRESS . P* R P IFT CHAN=0 4 P RER A3,MUXLP GET NUMBER OF NOT TRANSFERED CHAR. p P ANKL A3,/FFF 8 P LD A2,4,A8 CALCULATE NUMB. OF TRANSFERED CHARACTERS P SUR A2,A3
0x435448…4355dc Dummy {f00=0x0138, f01=0x0190, f02=» A7,6 ORDER 6? P RF(NE) IHLP35 P ADK A2,1 YES , PIHLP35 EQU * B 8 P SU A2,2,A8 CALCULATE NUMB. OF TRANSFERED CHARACTERS V P XIF " P ST A2,6,A8 STORE EFF. LENGTH $ P LD A5,DWTA5,A6 GET STACK VALUE P RTN A5 P* P E
0x4355dc…435770 Dummy {f00=0x0138, f01=0x018e, f02=» P DATA 0 CHANNEL PARAMETER P DATA /8000 STATUS * P DATA 0 ECB ADDRESS D P DATA 0 ORDER ` ( P DATA LPADR ADDRESS TO ADDRESS BLOCK v P DATA 0 TTAB ADDRESS $ P DATA 0 WAIT/ACTIVATE INDICATOR P DATA 0 TERMINAL QUEUE IFT
0x435770…435904 Dummy {f00=0x0138, f01=0x4130, f02=» t P DATA 0 SAVE AREA FOR A3 P DATA 0 SAVE AREA FOR A4 ( P DATA 0 SAVE AREA FOR A5 H P RES 4 DWT STACK h P* P IFT MMUPAG=1 PDEVECB EQU * P DATA 0 P DATA LP:BUF P DATA 0,0,0,0 PLP:BUF RES DVBLEN+1
0x435904…435a98 Dummy {f00=0x0138, f01=0x2008, f02=» P DATA 0 TTAB-ADDRESS $ P DATA 0 WAIT/ACTIVATE INDICATOR ( P DATA 0 TERMINAL QUEUE P P DATA 0 OUTPUT QUEUE LINK n P DATA 0 SAVE AREA FOR A3 P DATA 0 SAVE AREA FOR A4 P DATA 0 SAVE AREA FOR A5 P RES 4 DWT-STACK P
0x435a98…435c2c Dummy {f00=0x0138, f01=0x0190, f02=»EQU /4280 CIO-HALT PTWINR EQU /4A00 INPUT PTWOTR EQU /4200 OUTPUT 8 PTWSST EQU /4AC0 SENSE STATUS V P* z P* P EJECT P* P* P************* P* CONSTANTS * P************* P* P* PCR
0x435c2c…435dc0 Dummy {f00=0x0138, f01=0x0190, f02=»TIME EQU 300 TIME BEFORE TIME-OUT P* * P* 4 P************************ > P* CONDITIONAL ASSEMBLY* ^ P************************ ~ P* P* PX:A EQU 0 PX:B EQU 0 PX:C EQU 60 PX:D EQU 10 PX:E EQU 6
0x435dc0…435f54 (4, 262) Opaque[0x194]
0x435f54…4360e8 # DirEnt {nam=»DRFD01«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x07e0, f03=0x0000}
0x435f54…4360e8 IdxSect {
0x435f54…4360e8 f00 = 0x003f // 0x435f54 @0x0
0x435f54…4360e8 f01 = 0x0022 // 0x435f56 @0x2
0x435f54…4360e8 gno = [ // 0x435f58 @0x4
0x435f54…4360e8 [0x00]: C0x003f.0x0.0
0x435f54…4360e8 [0x01]: C0x0066.0x1.0
0x435f54…4360e8 [0x02]: C0x0066.0x2.0
0x435f54…4360e8 [0x03]: C0x0067.0x0.0
0x435f54…4360e8 [0x04]: C0x0067.0x1.0
0x435f54…4360e8 [0x05]: C0x0067.0x2.0
0x435f54…4360e8 [0x06]: C0x0156.0x3.0
0x435f54…4360e8 [0x07]: C0x0157.0x0.0
0x435f54…4360e8 [0x08]: C0x0157.0x1.0
0x435f54…4360e8 [0x09]: C0x0157.0x2.0
0x435f54…4360e8 [0x0a]: C0x0157.0x3.0
0x435f54…4360e8 [0x0b]: C0x0158.0x0.0
0x435f54…4360e8 [0x0c]: C0x0158.0x1.0
0x435f54…4360e8 [0x0d]: C0x0158.0x2.0
0x435f54…4360e8 [0x0e]: C0x0158.0x3.0
0x435f54…4360e8 [0x0f]: C0x0159.0x0.0
0x435f54…4360e8 [0x10]: C0x0159.0x1.0
0x435f54…4360e8 ]
0x435f54…4360e8 }
0x4360e8…43627c Dummy {f00=0x003f, f01=0x0190, f02=» 2 P IDENT DRFD01 REL 10.0 80-04-29 870105041000 P : P* B 2 P********************************************** L P* " P* PHILIPS TERMINAL SYSTEM PTS P* ( P* DRFD01 = DRIVER FOR FLEXIBLE DISK P* P* P* P*
0x43627c…436410 Dummy {f00=0x003f, f01=0x0190, f02=»FOUR DAISY n . P* CHAINED FLEXIBLE DISK DRIVES PTS 6879, 0 P* CONNECTED TO CPU VIA CHANNEL UNIT CHFD ON D & P* MULTIPLEX OR PROGRAMMED CHANNEL x P* P* P EJECT DRFD01 P* P* ORDERS: P* P* /00 TEST STATUS
0x436410…4365a4 Dummy {f00=0x003f, f01=0x0190, f02=»* /06 SEQUENTIAL WRITE -IBM DISC ONLY- P* /11 PHYSICAL READ H P* /15 PHYSICAL WRITE f P* /21 OPEN P* /22 CLOSE P* /24 WRITE DELETED DATA P* /26 LOCK D P* /31 REWIND
0x4365a4…436738 Dummy {f00=0x003f, f01=0x0190, f02=» A5 STACK BASE P* A6 DWT-ADDRESS P* A7 ORDER 6 P* A8 ECB-ADDRESS L P EJECT DRFD01 h P* P*********** P* * P* ENTRIES * P* * P*********** P* $ P ENTRY FDADR AC
0x436738…4368cc Dummy {f00=0x003f, f01=0x0190, f02=»CT DRFD01 P* P************* P* * 4 P* EXTERNALS * J P* * ` P************* v P* P EXTRN TDISP DISPATCHER P EXTRN TENDIO ENDIO P EXTRN DISIOE REQUEST ERROR * P EXTRN DISEND PERF
0x4368cc…436a60 Dummy {f00=0x003f, f01=0x018e, f02=»TO DWT AND SET NVL v . P EXTRN NVLCHK CHECK FOR NEW VOLUME LOADED EXTRN DWTST STATUS L EXTRN DWTECB ECB ADDRESS h " P EXTRN DWTUEC USER ECB ADDRESS $ EXTRN DWTOR DWT INDEX AND ORDER ( P EXTRN DWTORD ORDER/INDEX SAVE AREA P EXT
0x436a60…436bf4 (4, 263) Dummy {f00=0x0066, f01=0x0190, f02=» ( P EXTRN SAVE8 SAVE A1-A8 ON A15 STACK P EXTRN SETIMP TIMER 0 & P EXTRN INTSAV INTERRUPT SAVE AREA L & P EXTRN PFPOST PWF POST PROC. FLAG v & P EXTRN TASCII EBCDIC TO ASCII TAB & P EXTRN TEBCDIC ASCII TO EBCDIC TAB 0 P EXTRN SPDLCI OPEN/C
0x436bf4…436d88 Dummy {f00=0x0066, f01=0x0190, f02=»TIVE LENGTH z $ P EXTRN ECBCW1 ECB CONTROL WORD 1 $ P EXTRN ECBCW2 ECB CONTROL WORD 2 < P EJECT DRFD01 d P* | P************************ P* * P* CONDITIONAL ASSEMBLY * P* * P**
0x436d88…436f1c Dummy {f00=0x0066, f01=0x0190, f02=»X:A EQU 1 PCHAN EQU 1 P* $ 2 P* A PROGRAM VERSION INCLUDING TOSS DISC FORMAT . ( P* IS OBTAINED BY SETTING TOSS EQU 1. d P* PX:B EQU 0 PTOSS EQU 1 P* 2 P* A PROGRAM VERSION INCLUDING IBM DISC FORMAT ( P* IS OBTAI
0x436f1c…4370b0 Dummy {f00=0x0066, f01=0x0190, f02=» * P* IS OBTAINED BY SETTING MMUPAG EQU 1. P* 2 PMMUPAG EQU 1 < 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 DRFD01
0x4370b0…437244 Dummy {f00=0x0066, f01=0x0190, f02=»DED BY SETTING OPCLOS =1 h P* PX:D EQU 0 * POPCLOS EQU 1 < P* P P EJECT DRFD01 Z P* r P* | P* MMU BUFFER SIZE P* P* P IFT MMUPAG=0 PDVBLEN EQU 256 P XIF P* P IFT MMUPAG=1
0x437244…4373d8 Dummy {f00=0x0066, f01=0x0190, f02=»ND EQU 10 P* P EJECT DRFD01 P* 4 P************* > P* * T P* CONSTANTS * j P* * P************* P* & PCUADR EQU 09 CONTROL UNIT ADDRESS & PMUXADR EQU CUADR+CUADR MUX-ADDRESS (
0x4373d8…43756c Dummy {f00=0x0066, f01=0x0190, f02=»923 MAX SECTOR NUMBER IBM DISC ( PBOE EQU 28 BEGIN OF EXTENT POSITION & & PEOE EQU 34 END OF EXTENT POSITION R $ PEOD EQU 74 END OF DATA POSITION | PTIME EQU 20 DELAY - POWER ON & POPENTI EQU 10 DELAY AT OPEN ORDERS P* $ PDIXTAB EQU *
0x43756c…437700 Dummy {f00=0x0066, f01=0x0190, f02=» * P* TABLES * P* * P********** 0 P* B P IFF CHAN+IBM=0 L ( P DATA DVBLEN+DVBLEN MMU BUFFER SIZE d P XIF P* P IFT CHAN=0 P IFT IBM=0 " P DATA 0 INDICATE NO MMU BUFFER P XIF P* P
0x437700…437894 (4, 264) Dummy {f00=0x0066, f01=0x0190, f02=»D01 P* P*************** P* * . P* TEST STATUS * F P* * ^ P*************** v P* PTESTST EQU * P IFF IBM+TOSS=0 P CF A15,NVLCHK " P STR A1,A6 SAVE NVL INDICATOR P XIF
0x437894…437a28 Dummy {f00=0x0066, f01=0x0190, f02=»7FFF RESET REQUEST ERROR BIT P ANRS A2,A6 $ P* 8 P IFF TOSS+IBM=0 B " P CF A5,VO:NAM GET VOLUME NAME Z , P LD A1,DWTORD,A6 RESTORE INDEX AND ORDER P ST A1,DWTOR,A6 P CF A15,VOLNAM P ABL END:RC P XIF P* P
0x437a28…437bbc Dummy {f00=0x0066, f01=0x0190, f02=» P* ACTIVATION * P* * P************** 4 P* J PFDAD EQU * ACTIVATION ENTRY T P IFT MMUPAG=1 x P IFT CHAN=0 P CM BUFFLG,A6 P XIF P* $ P LD A2,DWTOR,A6 INDEX AND ORDER 0 P ST A2,DWTORD,A6 S
0x437bbc…437d50 Dummy {f00=0x0066, f01=0x018e, f02=» P IFT OPCLOS=1 P* & P* CHECK IF OPEN OR CLOSE ORDER $ P* N P LDR A1,A7 ORDER X P SUK A1,/21 p P RF(Z) OPEN OPEN P SUK A1,1 " P RF(NZ) FD:ORD NOT CLOSE ORDER P* P EJECT P* P********* P
0x437d50…437ee4 Dummy {f00=0x0066, f01=0x0190, f02=» 2 P* ZERO OF THE SOP LIGHTS EXTERNAL REGISTER P* : " P LDKL A1,/8000 MASK FOR BIT 0 D & P ORS A1,SPDLCI SET OPEN/CLOSE BIT j P RF OPEN10 P* P EJECT P* P******** P* * P* OPEN * P* * P
0x437ee4…438078 Dummy {f00=0x0066, f01=0x0190, f02=»* POPEN EQU * " P LDKL A1,/7FFF MASK FOR BIT 0 ( P ANS A1,SPDLCI CLEAR OPEN/CLOSE BIT B P* n POPEN10 EQU * x 0 P LD A1,SPDLCI SOP LIGHTS AND OPEN/CLOSE DATA " P OTR A1,0,SOPDA OPEN FD DRIVE P* * P* WAIT FOR DRIVE TO B
0x438078…43820c Dummy {f00=0x0066, f01=0x0190, f02=»DWT-ADDR P CF A15,SETIMP WAIT . P DATA OPENRE,OPENTI START ADDR, WAIT TIME , P ABL TDISP EXIT ^ P* v POPENRE EQU * P LDR A6,A1 GET DWT-ADDR , P CM DWTTP2,A6 INDICATE NO TIMER RUNNING P LDK A1,0 RETURN CODE ( P RF DI
0x43820c…4383a0 Dummy {f00=0x0066, f01=0x018e, f02=»FD:ORD EQU * P LC A2,DIXTAB,A3 , P SC A2,DWTA3+1,A6 SAVE DRIVE INDEX MASK , P* P IFT IBM+TOSS=2 f P AN A2,DWTLAB,A6 ~ ( P SC A2,DWTFIB+1,A6 INDICATE TOSS/IBM P XIF P* P CF A5,SETCIO A3,A4 AFFECTED P* P E
0x4383a0…438534 (4, 265) Dummy {f00=0x0067, f01=0x0190, f02=» " P RF(N) INTEST READ/WRITE ORDER P SUK A3,18 * P ABL(NP) LOAD LOAD/UNLOAD < P XIF ^ P* j P IFT IBM=1 t P SUK A3,1 P RF(Z) INTEST BASIC READ P SUK A3,1 " P RF(Z) IBMCHK SEQUENTIAL READ P SUK A3,3 P RF(Z)
0x438534…4386c8 Dummy {f00=0x0067, f01=0x0190, f02=» n P SUK A3,11 P RF(Z) IBMCHK REWIND P SUK A3,7 6 P ABL(NP) LOAD LOAD/UNLOAD H P XIF j P* v PIBMCHK EQU * P IFT TOSS+IBM=2 P LD A4,DWTFIB,A6 & P ABL(NZ) IBMDSK IBM DISC HANDLING P XIF P* P IFT
0x4386c8…43885c Dummy {f00=0x0067, f01=0x0190, f02=»REQERR ABL DISIOE REQUEST ERROR P* ( 0 PINCLEN EQU * INCORRECT REQUESTED LENGTH EXIT 2 P LDKL A1,/8008 RETURN CODE f P* PDIS:EN EQU * . P ABL DISEND PERFORM TENDIO AND GO TO TDISP P* P EJECT DRFD01 P* P* INPU
0x43885c…4389f0 Dummy {f00=0x0067, f01=0x018e, f02=»1,0 $ P RB(NZ) DIS:EN NEW VOLUME LOADED P XIF 4 P* @ P LD A3,ECBRL,A8 J 2 P RB(Z) INCLEN INCORRECT INPUT PARAMETER ECBRL b ( P SRC A3,7 NUMBER OF PHYSICAL SECTORS 2 P RB(N) INCLEN INCORRECT INPUT PARAMETER ECBRL P CWK A3,/01FF
0x4389f0…438b84 Dummy {f00=0x0067, f01=0x0190, f02=» P LD A4,DWTFIB,A6 P RF(NZ) INTES5 IBM-DISC P XIF < P* H P IFT TOSS=1 R P LDR A4,A3 f 6 P SRC A4,1 CHECK IF EVEN NUMBER OF PHYSICAL SECTORS x 2 P RB(N) INCLEN INCORRECT INPUT PARAMETER ECBRL 6 P SLL A2,1 TRANSFER TOSS-SEC. NO
0x438b84…438d18 Dummy {f00=0x0067, f01=0x018e, f02=»ECTOR NUMBER v P RB(N) REQERR REQUEST ERROR P SUKL A4,MAXSEC 8 P RB(NN) REQERR REQUEST ERROR P P ADR A4,A3 t " P RB(P) INCLEN INCORRECT LENGTH , P ST A3,DWTNOS,A6 SAVE NUMBER OF SECTORS 2 P ST A2,DWTCW2,A6 DWTCW2 CONTAINING PHYS SEC
0x438d18…438eac Dummy {f00=0x0067, f01=0x0190, f02=» P ANK A2,/30 4 P ST A2,DWT:BF,A6 SAVE BITS 0-1 IN 18-BIT ADDRESS P XIF T P* ` P EJECT DRFD01 j P* P* MULTIPLE SECTOR IO ENTRY P* PFD:000 EQU * P IFT MMUPAG=1 P IFT CHAN=0 P LD A2,DWT:BF,A6
0x438eac…439040 Dummy {f00=0x0067, f01=0x0190, f02=»05 FOUR PHYS. SEC. IO P* PFD:003 SUK A2,128 ( P SUK A4,1 B P ADK A3,1 T P RB(NZ) FD:003 f P* | PFD:005 EQU * . P ST A4,DWTSIO,A6 SECTORS IN ONE IO ON DISC ( P ST A2,DWTRL,A6 UPDATE DWTRL FOR BIO . P ST A3,DWTNOS,A6
0x439040…4391d4 (4, 266) Dummy {f00=0x0067, f01=0x0190, f02=»D A2,DWTBA,A6 BUFFER ADDRESS P LD A1,DWT:BF,A6 $ , P RF(NZ) FD:007 BUFFER NOT IN SYSTEM AREA < P LDR A3,A2 l P RF(NN) FD:009 ~ 6 P AD A3,DWTRL,A6 CHECK IF 64K LIMIT WILL BE PASSED P RF(N) FD:009 NO P* P EJECT DRFD01 P*
0x4391d4…439368 Dummy {f00=0x0067, f01=0x0190, f02=»,DWT:PA,A6 6 BIT PHYSICAL BUFFER ADDRESS ( P ADK A1,/4 CREATE ONE MORE MMU ENTRY 0 P SC A1,DWT:PA+2,A6 P ANKL A2,/FFF v P LDR A1,A2 ( P ORK A1,1 INDICATE ADDRESS NOT ZERO P* 8 PFD:009 ST A1,DWT:LA,A6 16 BIT LOGICAL BUFFER ADDRESS
0x439368…4394fc Dummy {f00=0x0067, f01=0x0190, f02=»Z) FD:060 BASIC READ P SUK A1,4 P RF(Z) FD:015 BASIC WRITE . P SUK A1,12 P P RF(Z) FD:060 PHYSICAL READ b P SUK A1,4 P RF(Z) FD:013 PHYSICAL WRITE * P SUK A1,15 CHECK IF WRITE DELETED DATA P* PRQ:ERR EQU * P
0x4394fc…439690 Dummy {f00=0x0067, f01=0x0190, f02=» & P LDK A4,1 WRITE DELETED DATA ORDER ! & PFD:013 EQU * PHYSICAL WRITE ORDER ! . P ADK A4,4 ! X " PFD:015 EQU * BASIC WRITE ORDER ! j P ADK A4,1 ! " P CF A5,BIO PREPARATION FOR CIO ! P* ! P IFT MMUPAG=1 ! P IFT CHAN=0 ! P IFT TOSS+IB
0x439690…439824 Dummy {f00=0x0067, f01=0x018e, f02=»D A1,DWT:LA,A6 GET FLAG/LOGICAL BUFFER ADDRESS ! ( P RF(Z) FD:019 BUFFER IN SYSTEM AREA " 6 P LDR A7,A3 REQUESTED LENGTH " b P LDR A8,A2 SAVE A2 " & P LDKL A4,BUF DRIVER BUFFER ADDRESS " P LDR A2,A4 " & P TS -30,A15 SAVE RUNNING TASK MMU " ( P T
0x439824…4399b8 Dummy {f00=0x0067, f01=0x018e, f02=» P LDR A2,A8 RESTORE A2 # 0 P CM BUFFLG,A6 INDICATE BUFFER IN SYSTEM AREA # " PFD:019 EQU * # V P XIF # j P* # v P IFT TOSS+IBM=2 # P LD A1,DWTFIB,A6 # P RF(Z) FD:018 NOT IBM # P XIF # P* # P IFT IBM=1 # , P LDR A7,A3 NO OF C
0x4399b8…439b4c Dummy {f00=0x0067, f01=0x0190, f02=» " P CF A5,FD:WRITE PERFORME WRITE $ * P ANKL A3,/200 CHECK IF WRITE PROTECTED $ * P RF(Z) FD:020 $ X P LDK A3,/40 INDICATE ERROR $ n , P ORRS A3,A6 UPDATE TEMPORARY RETURN CODE $ PFD:020 EQU * $ P RF FD:100 GOTO FDMSIO $ P* $ P EJECT DRF
0x439b4c…439ce0 Dummy {f00=0x0067, f01=0x0190, f02=»******* $ P* % PFD:060 CF A5,BIO % P* % 2 P IFT MMUPAG=1 % < P IFT CHAN=0 % R P IFT TOSS+IBM=2 % f P LD A1,DWTFIB,A6 % ~ P RF(Z) FD:070 TOSS DISC % & P LDKL A4,BUF DRIVER BUFFER ADDRESS % 0 P CM BUFFLG,A6 INDICATE BUFFER IN SYSTEM
0x439ce0…439e74 (4, 267) Dummy {f00=0x0067, f01=0x0190, f02=»FFER IN SYSTEM AREA % & P LDKL A4,BUF DRIVER BUFFER ADDRESS & 0 P CM BUFFLG,A6 INDICATE BUFFER IN SYSTEM AREA & F P XIF & z P* & P IFT MMUPAG=1 & P IFT IBM=1 & P IFT TOSS+CHAN=0 & & P LDKL A4,BUF DRIVER BUFFER ADDRESS & 0 P CM BUFFLG,A6
0x439e74…43a008 Dummy {f00=0x0067, f01=0x0190, f02=»M=2 & P LD A1,DWTFIB,A6 ' P RF(Z) FD:090 NOT IBM ' $ P XIF ' B P* ' N P IFT IBM=1 ' X P IFT MMUPAG=0 ' j ( P LD A4,DWTBA,A6 ASCII OUTPUT ADDRESS ' P XIF ' P* ' P IFT IBM=1 ' P LD A7,DWTRL,A6 REQ. LEN ' P CF A5,ASCII ' P
0x43a008…43a19c Dummy {f00=0x0067, f01=0x0190, f02=»S+IBM=2 ' P LD A1,DWTFIB,A6 ( P RF(Z) FD:100 TOSS DISC ( ( P XIF ( H P* ( T P IFT MMUPAG=1 ( ^ P IFF CHAN+IBM=0 ( t 4 P LD A2,DWT:LA,A6 GET FLAG/LOGICAL BUFFER ADDRESS ( ( P RF(Z) FD:100 BUFFER IN SYSTEM AREA ( $ P LD A7,DWTRL,A6 REQUESTE
0x43a19c…43a330 Dummy {f00=0x0067, f01=0x0190, f02=»E ( n 2 P MVSU A7 MOVE BUFFER FROM SYSTEM TO USER AREA ) & P TL -30,A15 RESTORE MMU FROM STACK ) @ P XIF ) j PFD:100 EQU * ) v P ABL FDMSIO ) P* ) P EJECT DRFD01 ) P* ) P******** ) P* * ) P* LOAD * ) P* * )
0x43a330…43a4c4 Dummy {f00=0x0067, f01=0x0190, f02=»Z) LOAD00 LOAD ORDER ) P ADK A3,17 * $ P RB(NZ) RQ:ERR ERROR IF NOT LOCK * . P* * V PLOAD00 EQU * * ` P LDK A2,/14 LOCK * t P CF A5,FD:REA * P ANK A3,1 * & P RF(NZ) LOA:80 ENDIO NOT OPERABLE * P* * P IFT TOSS+IBM=2 * P LD A1,D
0x43a4c4…43a658 Dummy {f00=0x0067, f01=0x018e, f02=» * P RF(Z) LOA:65 LOCK ORDER + P CF A5,VO:NAM + ( " P CF A5,LD:RC CHECK RETURN CODE + > P EJECT DRFD01 + d P* + | P* READ DATA SET LABEL + P* + P LD A2,ECBCW2,A8 SECTOR NO + P SUK A2,7 + P RF(N) LOA:85 REQUEST ERROR + P S
0x43a658…43a7ec Dummy {f00=0x0067, f01=0x0190, f02=» P CF A5,FD:REA , P SLL A1,4 CHECK NO DATA BIT , P RF(NN) LOA:60 NOT NO DATA , > 0 P ORK A3,/10 INDICATE ILLEGAL DATA SET LABEL , ` PLOA:60 EQU * , P CF A5,LD:RC , P ENB , * P LD A3,ECBCW2,A8 DATA SET LABEL SECTOR , P LDK A1,DWTDSS ,
0x43a7ec…43a980 Dummy {f00=0x0067, f01=0x0190, f02=» $ P CF A5,STDWT STORE BOE NO IN DWT - P SUK A3,1 CRN - , P LDK A1,DWTCRN - B P CF A5,STDWT - X P ADK A4,EOE-BOE EOE ADDRESS - l P CF A5,LOGSEC - P LDK A1,DWTEOE - $ P CF A5,STDWT STORE EOE NO IN DWT - P ADK A4,EOD-EOE EOD ADDRESS - P
0x43a980…43ab14 (4, 268) Dummy {f00=0x0156, f01=0x0190, f02=» EOD NO IN DWT - ~ P* . PLOA:65 EQU * . P LDKL A3,/400 . 4 , P ORRS A3,A6 UPDATE TEMPORARY RETURN CODE . J P* . z PLOA:70 EQU * . P XIF . P LD A2,DWTA3,A6 . " P ORS A2,DWTLC,A6 INDICATE LOCK . PLOA:80 EQU * . P ABL END:RC .
0x43ab14…43aca8 Dummy {f00=0x0156, f01=0x0190, f02=» . P* / P EJECT DRFD01 / P* / * P* / 4 P IFF TOSS+IBM=0 / > P* / V P* ERROR , UNLOCK / ` P* / z PLOA:90 EQU * / P LDR A5,A6 / P ADKL A5,DWTSB2 STACK BASE / P LDK A2,/C UNLOCK / P CF A5,FD:REA / P RB LOA:80 /
0x43aca8…43ae3c Dummy {f00=0x0156, f01=0x0190, f02=»A4,BUF DRIVER BUFFER ADDRESS / P RTN A5 0 $ P XIF 0 4 P* 0 @ P EJECT DRFD01 0 J P* 0 b P********** 0 l P* * 0 ~ P* UNLOAD * 0 P* * 0 P********** 0 P* 0 PUNLOAD EQU * 0 P IFT IBM=1 0 P* 0 P* DAT
0x43ae3c…43afd0 Dummy {f00=0x0156, f01=0x018e, f02=»2,A8 STORE EOD-NO IN CONTROL WORD OF ECB 0 P* 1 0 , P* READ DATA SET LABEL TO DRIVER BUFFER 1 : P* 1 j P CF A5,DSLIO PREPARE FOR I/O 1 t & P CF A5,FD:REA READ DATA SET LABEL 1 $ P CF A5,UNL:RC RETURN CODE CHECK 1 P ENB 1 P* 1 < P* TRANS
0x43afd0…43b164 Dummy {f00=0x0156, f01=0x0190, f02=» P* 2 P LDK A1,0 2 PUNL:10 SUK A7,26 2 P RF(N) UNL:20 2 8 P ADK A1,1 2 N P RB UNL:10 2 ` P* 2 r P EJECT DRFD01 2 | P* 2 P* 2 PUNL:20 ADK A7,27 2 P* 2 P* A1 = BINARY TRACK NO 2 * P* A7 = SECTOR NO WITHIN TRAC
0x43b164…43b2f8 Dummy {f00=0x0156, f01=0x0190, f02=» A4,1 2 P SRL A3,8 LEFT BYTE 3 P SCR A3,A4 STORE IN BUFFER 3 * P LDR A7,A1 TRACK 3 L ( P CF A5,BINDEC DEC EBCDIC-CODED IN A3 3 d P SUK A4,3 3 P STR A3,A4 TRACK INTO BUF 3 F P INH INHIBIT INTERRUPTS INHIBIT 3
0x43b2f8…43b48c Dummy {f00=0x0156, f01=0x0190, f02=»WRITE WRITE DATA SET LEBEL 3 $ P CF A5,UNL:RC CHECK RETURN CODE 4 " P CF A5,DSOPCH 4 J P CMR A2 INDICATE NOT OPEN 4 ` P* 4 P EJECT DRFD01 4 P* 4 P* UNLOCK 4 P* 4 P XIF 4 PUNL:70 EQU * 4 P LDK A2,/C UNLOCK 4 P C
0x43b48c…43b620 Dummy {f00=0x0156, f01=0x0190, f02=»LOCK IN DWT 4 t P RB LOA:80 END:IO 5 P* 5 . P IFT IBM=1 5 8 P* 5 J P* UNLOAD RETURN CODE CHECK 5 T P* 5 x PUNL:RC EQU * 5 P ANKL A3,/207 5 P RF(Z) RTN:A5 NO RETURN CODE 5 P ANKL A3,/200 5 & P RF(Z) RTN:A5 NOT WRITE PROTECTED
0x43b620…43b7b4 (4, 269) Dummy {f00=0x0157, f01=0x0190, f02=»EMPORARY RETURN CODE 5 | PRTN:A5 EQU * 6 P RTN A5 6 0 P* 6 @ P EJECT DRFD01 6 J P* 6 b P* 6 l ( PIBMDSK EQU * IBM DISK HANDLING ENTRY 6 v P IFT IBM=1 6 . P CF A15,NVLCHK CHECK IF NEW VOLUME LOADED 6 P ADK A1,0 6 & P ABL(NZ) END:IO
0x43b7b4…43b948 Dummy {f00=0x0157, f01=0x0190, f02=»,DWTOR+1,A6 ORDER CODE 6 P SUK A1,49 7 P RF(Z) REWIND REWIND FILE 7 0 * P LD A3,ECBRL,A8 CHECK REQUESTED LENGTH 7 R P SUK A3,SECLEN 7 $ P ABL(NZ) INCLEN INCORRECT LENGTH 7 P ADK A1,43 7 $ P RF(Z) SQWRITE SEQUENTIAL WRITE 7 P ADK A1,4 7 0
0x43b948…43badc Dummy {f00=0x0157, f01=0x0190, f02=»AL READ * 7 P******************* 8 P* 8 . . P ADK A2,DWTCRN-DWTEOD A2 = ADDRESS TO CRN 8 8 P LDR* A3,A2 CRN 8 j P ADK A3,1 CRN+1 8 ( P ST A3,ECBCW2,A8 STORE CRN+1 IN ECB 8 P CWK A3,MAXIBM 8 P RF(P) FD:DIS REQUEST ERROR 8 P CWR A3,
0x43badc…43bc70 Dummy {f00=0x0157, f01=0x0190, f02=» 8 b P* 9 P IFT MMUPAG=0 9 ( P LD A4,ECBBA,A8 USER BUFFER ADDRESS 9 ( P XIF 9 T P* 9 ` P IFT IBM=1 9 j P LDK A7,SECLEN 9 | $ P CF A5,ASCII TRANSFORM TO ASCII 9 P* 9 P EJECT DRFD01 9 P* 9 P* 9 P IFT MMUPAG=1 9 ( P T
0x43bc70…43be04 Dummy {f00=0x0157, f01=0x0190, f02=»BUFFER ADDRESS 9 | & P LD A2,DWTUEC,A6 USER ECB ADDRESS : ( P EL A2,ECBBA,A2 USER BUFFER ADDRESS : @ P LDK A7,SECLEN LENGTH : l ( P MVSU A7 MOVE SECTOR TO USER BUFFER : , P TL -30,A15 RESTORE MMU TABLE FROM STACK : P XIF : P* : P IFT IBM=1 :
0x43be04…43bf98 Dummy {f00=0x0157, f01=0x0190, f02=»,/1000 RETURN CODE : P RF END:IO ; P* ; , P EJECT DRFD01 ; 6 P* ; N P******************* ; X P* SEQUENTIAL WRITE * ; t P******************* ; P* ; PSQWRIT EQU * ; P* ; P* CHECK IF END OF EXTENT ; P* ; P LDK A1,
0x43bf98…43c12c Dummy {f00=0x0157, f01=0x0190, f02=»DIS REQUEST ERROR ; P CWR* A7,A2 < P RF(G) ENDEOE END OF EXTENT < . P* < R P IFT MMUPAG=1 < ( P TS -30,A15 SAVE RUNNING TASK'S MMU < r " P LD A7,DWTTAB,A6 TTAB ADDRESS < P TL TTB:MT,A7 LOAD MMU TABLE < & P LD A1,DWTUEC,A6 USER ECB ADDRES
0x43c12c…43c2c0 Dummy {f00=0x0157, f01=0x0190, f02=»OVE SECTOR TO DRIVER BUFFER < , P TL -30,A15 RESTORE MMU TABLE FROM STACK = $ P XIF = T P* = ` P IFT IBM=1 = j P LDK A4,5 BIO WRITE = | P CF A5,BIOSQ = P LDK A7,SECLEN = , P CF A5,EBCDIC TRANSFORM AND MOVE TO BUF = P* = P EJECT DRFD
0x43c2c0…43c454 (4, 270) Dummy {f00=0x0157, f01=0x0190, f02=»S A1,A6 UPDATE TEMPORARY RETURN CODE = PSQW:05 EQU * > , P CF A5,DSOPCH > @ PSQW:10 EQU * > V 2 P ANKL A3,/207 WRITE PROTECTED OR NOT OPERABLE > j P RF(NZ) END:RC > * P IMR A2 EOD=EOD+1 OR CRN=CRN+1 IN DWT > P LDK A2,SECLEN > , P ST A2,ECBEL,A
0x43c454…43c5e8 Dummy {f00=0x0157, f01=0x0190, f02=»RFD01 > P* ? P********** ? P* REWIND * ? * P********** ? < P* ? N PREWIND EQU * ? X P LDR A3,A2 SAVE EOD ADDRESS ? l P LDK A1,DWTBOE ? P CF A5,DSPAD ? P LDR* A4,A2 BOE ? P STR A4,A3 EOD = BOE ? P LDK A1,DWTCRN ? P CF
0x43c5e8…43c77c Dummy {f00=0x0157, f01=0x018e, f02=» ? P EJECT DRFD01 @ P* @ P***************** @ * P* * @ D P* PERFORM ORDER * @ ^ P* * @ x P***************** @ P* @ P* @ P* INPUT: A2 BIO CONTENTS @ 0 P* A3 NO OF BYTES TO BE TRA
0x43c77c…43c910 Dummy {f00=0x0157, f01=0x0190, f02=» P XIF A P IFT CHAN=1 A " P LDK A1,0 INDICATOR WRITE MODE A $ P XIF A J P RF FD:800 A V P* A h PFD:REA EQU * A r P IFT CHAN=1 A P LDK A1,1 READ MODE A P XIF A P IFT CHAN=0 A P LDKL A1,/8000 WORDS READ A P XIF A PFD:8
0x43c910…43caa4 Dummy {f00=0x0157, f01=0x0190, f02=»PAG=1 A 2 P LD A7,BUFFLG,A6 CHECK WHAT BUFFER TO READ TO B ( P RF(Z) FD:810 BUFFER IN SYSTEM AREA B D 0 P LD A7,DWT:BF,A6 BITS 0-1 IN 18-BIT ADDRESS B p P ECR A7,A7 B P ORR A1,A7 B PFD:810 EQU * B P XIF B P* B P IFT CHAN=0 B P O
0x43caa4…43cc38 Dummy {f00=0x0157, f01=0x0190, f02=»JECT DRFD01 B P* C . P* PUT BUFFER START AND END ADDRESS IN DWT C P* C R " P ST A1,DWTRW,A6 INDICATE MODE C P ST A4,DWTUB,A6 C P ADR A3,A4 C " P ST A3,DWTUBE,A6 END ADDRESS+2 C P XIF C & P ST A5,DWTA5,A6 SAVE STACK POINTER C P
0x43cc38…43cdcc Dummy {f00=0x0157, f01=0x0190, f02=»R CIO START C ( P RF(3) END:30 DEVICE ADDRESS UNKNOWN D P RF T:DISP D @ P* D R P EJECT DRFD01 D P* D t * P************************************* D ~ P* D < P* FDMSIO - UPDATE PARAMETERS FOR MULTIPLE SECTOR IO * D * P*
0x43cdcc…43cf60 Dummy {f00=0x0157, f01=0x0190, f02=»ER D p P LDR* A1,A6 RETURN CODE E & P ANK A1,/7F GET ERROR RETURN CODE E * P RF(NZ) END:RC E T 0 P LD A2,DWTSIO,A6 GET NUMBER OF SECTORS DONE E j $ P ADS A2,DWTCW2,A6 UPDATE DWTCW2 E P LD A2,DWTRL,A6 E " P ADS A2,ECBEL,A8 UPDATE ECBEL E P LD
0x43cf60…43d0f4 (4, 271) Dummy {f00=0x0157, f01=0x0190, f02=»PDATE BUFFER POINTER E P ST A2,DWTBA,A6 F & P RF(N) FDMSI1 NOT PASSED 64K LIMIT F 4 P ADK A4,0 F ^ ( P RF(NN) FDMSI1 NOT PASSED 64K LIMIT F p P LDK A2,/10 F & P ADS A2,DWT:BF,A6 UPDATE BITS 0-1 F PFDMSI1 EQU * F P XIF F P* F P IFT
0x43d0f4…43d288 Dummy {f00=0x0157, f01=0x0190, f02=» P EJECT DRFD01 G P* G P********** G & P* * G 8 P* END:IO * G J P* * G P********** G n P* G P IFT IBM=1 G $ PENDEOE EQU * END OF EXTENT EXIT G P LDKL A1,/2000 RETURN CODE G P RF END:IO G P XIF G P* G
0x43d288…43d41c Dummy {f00=0x0157, f01=0x0190, f02=»D:30 EQU * CU ADDRESS UNKNOWN G P LDK A1,1 NOT OPERABLE H & * P ST A1,DWTST,A6 INDICATE RECOVERY DONE H D P RB END:IO H r P EJECT DRFD01 H P* H P******************** H P* * H P* RECOVERY ROUTINE * H P*
0x43d41c…43d5b0 Dummy {f00=0x0157, f01=0x0190, f02=»IF H P* I P IFT CPU852=0 I " P MSR 8,A15 SAVE A1-A8 ON STACK I * P XIF I P P* I P LDKL A6,DWFD01 DWT ADDRESS I f P CM DWTST,A6 I P IM DWTA2,A6 SET FDON FLAG I P* I P EJECT I P* I P* DELAY 2 SEC I P* I P LD A4
0x43d5b0…43d744 Dummy {f00=0x0157, f01=0x018e, f02=» LDK A4,DWTTP I P ADR A4,A6 J P LDR A1,A6 SAVE A6 J ( P CF A15,SETIMP J B P DATA FDON20,TIME J X P* J r PF:DISP EQU * J | P RB T:DISP J P* J P* TIME OUT ROUTINE J P* J PFDON20 LDR A6,A1 J P CM DWTTP,A6 J P LDKL A5,D
0x43d744…43d8d8 Dummy {f00=0x0157, f01=0x0190, f02=» P IFT CHAN=0 K $ P CM BUFFLG,A6 RESET BUFFER FLAG K P XIF K @ P* K L P IFF TOSS+IBM=0 K V 4 P IM DWTST2,A6 SET RECOVERY/READY INT. INDICATOR K n P LDK A3,3 4 VOLUMES K P* K P EJECT DRFD01 K P* K P* K P* READ VOLUME NAM
0x43d8d8…43da6c Dummy {f00=0x0157, f01=0x0190, f02=»,A6 SAVE IT K P CF A5,SETCIO L P LDK A2,/14 L * P CF A5,FD:REA LOCK L > P ANK A3,1 L X P RF(Z) FDON19 OPERABLE L j P LDK A1,6 NOT OPERABLE L $ P CF A15,VOLCLR CLEAR VOLUME NAME L & P RF FDON21 CONTINUE WITH NEXT DISC L P* L PFDON19
0x43da6c…43dc00 Dummy {f00=0x0157, f01=0x0190, f02=» * L P LDK A2,/C M P CF A5,FD:REA UNLOCK M P LDK A3,0 M 8 , P LC A3,DWTOR,A6 GET INDEX FOR LAST VOL. M J P SUK A3,1 M z P RB(NN) FDONLD NEXT VOLUME M P CM DWTOR,A6 M ( P CM DWTST2,A6 INDICATE VOLUMES READ M , P IM DWTST,A6 INDICATE VOLU
0x43dc00…43dd94 (4, 272) Dummy {f00=0x0157, f01=0x0190, f02=» ORDER IF RUNNING M l P* N " P LD A4,DWTTP2,A6 TIMER POINTER N $ P RF(Z) FDON09 NOT RUNNING N J P CMR A4 STOP TIMER N l $ P CM DWTTP2,A6 INDICATE NO TIMER N PFDON09 EQU * N P* N 6 P* OPEN FD TO MAKE FOLLOWING LOCK ORDER POSSIBLE N P*
0x43dd94…43df28 Dummy {f00=0x0157, f01=0x018e, f02=» N p P ORS A2,DWTOCF,A6 SAVE O ( P XRRS A2,A4 SET STATUS WORD TO OPEN O & P LDR* A2,A4 O R & P OTR A2,0,SOPDA SET DRIVE TO OPEN O f P* O PFDON23 EQU * O P XIF O P* O P EJECT O P* O P* LOCK DOORS O P* O P LDK A2,1 O
0x43df28…43e0bc Dummy {f00=0x0157, f01=0x0190, f02=» O z P* P P EJECT P P* P P* PUT DRIVE NO IN CIO INSTR P * P* P N P SRN A2,A3 DRIVE NO IN A3 P X * P CF A5,SETCIO PUT DRVE NO IN CIO-INSTR P z P LDK A2,/14 LOCK P P CF A5,FD:REA P P LD A2,DWTA3,A6 DRIVE IND. P P ANK A3,1 P
0x43e0bc…43e250 Dummy {f00=0x0157, f01=0x018e, f02=»ON25 P P* Q P IFT OPCLOS=1 Q P* Q , D P* RESTORE OPEN/CLOSE STATUS TO SAME VALUE AS BEFORE POWER OFF Q 6 P* Q ~ $ P LD A2,DWTOCF,A6 OPEN/CLOSE FLAG Q " P ORS A2,SPDLCI TO STATUS WORD Q P CM DWTOCF,A6 CLEAR FLAG Q $ P LD A2,SPDLCI OPEN
0x43e250…43e3e4 Dummy {f00=0x0157, f01=0x0190, f02=» Q P* R P CM DWTA2,A6 RESET FDON FLAG R PFDON60 EQU * R 6 P LD A8,DWTECB,A6 R J 0 P ABL(Z) END:IO NO REQUEST, RETURN VIA TENDIO R b P* R P* RETRY REQUEST R P* R P IM DWTRTY,A6 INDICATE RETRY R P LD A7,DWTORD,A6 R , P ST A7,DWT
0x43e3e4…43e578 Dummy {f00=0x0157, f01=0x0190, f02=»* R P EJECT DRFD01 S P* S " P******************** S , P* * S H P* READY INTERRUPT * S d P* * S P******************** S P* S PFDRE EQU * S P LD A2,DWTA2,A6 S * P RB(NZ) F:DISP POWER ON ROUT
0x43e578…43e70c Dummy {f00=0x0157, f01=0x0190, f02=»* S P IFF TOSS+IBM=0 T P CM DWTST,A6 SET UNIT BUSY T " P RB FDONVL READ VOLUME NAMES T D P XIF T h P* T t P EJECT DRFD01 T ~ P* T P********************* T P* * T P* INTERRUPT HANDLER * T P*
0x43e70c…43e8a0 Dummy {f00=0x0157, f01=0x0190, f02=» CF A15,SAVE8 SAVE REGISTERS ON STACK T P XIF U . P* U : P IFT CPU852=0 U D " P MSR 8,A15 SAVE A1-A8 ON STACK U Z P XIF U P* U P LDKL A6,DWFD01 DWT ADDRESS U P IFT CHAN=1 U P ENB U & P LD A1,DWTUB,A6 GET BUFFER POINTER U " P LD
0x43e8a0…43ea34 (4, 273) Dummy {f00=0x0158, f01=0x0190, f02=»RRUPT U x P LD A3,PFPOST V , P RF(NZ) IHDISP POST PROCESSING FLAG SET V $ ( P LD A3,DWTRW,A6 READ/WRITE INDICATOR V T P RF(NZ) IH050 READ V P* V P EJECT DRFD01 V P* V P* V PIH010 EQU * V $ P LDR* A3,A1 ONE WORD FROM BUFFER V
0x43ea34…43ebc8 Dummy {f00=0x0158, f01=0x018e, f02=» A2,0,CUADR CIO HALT V PIHDISP EQU * W P ABL TDISP GOTO DISPATCHER W 0 P* W R PIH050 EQU * W P INR A3,0,CUADR READ W p P RB(NA) IH005 W " P STR A3,A1 ONE WORD TO BUFFER W $ P ADK A1,2 UPDATE BUFFER POINTER W P SUK A2,2 W P RB(P)
0x43ebc8…43ed5c Dummy {f00=0x0158, f01=0x0190, f02=» P* X P EJECT DRFD01 X P* X & P* X 0 P IFT CHAN=0 X : P SST A3,CUADR STATUS X N P XIF X j P LD A8,DWTECB,A6 ECB ADDRESS X v " P LD A5,DWTA5,A6 STACK POINTER X P LDR A2,A3 STATUS X P SLL A2,1 X P RB(N) FDRE READY INTERRUPT
0x43ed5c…43eef0 Dummy {f00=0x0158, f01=0x0190, f02=»LT, NOT OPERABLE X ~ P RF(Z) IH:10 RETURN CODE OK Y P ORK A3,4 Y < PIH:10 EQU * Y N P* Y b P EJECT DRFD01 Y l P* Y & P* TRANSFORM RETURN CODE, CU - ECB Y P* Y P ANKL A3,/FF37 Y P RF(Z) IH:80 Y P LDR A1,A3 Y " P ANKL A3,/
0x43eef0…43f084 Dummy {f00=0x0158, f01=0x0190, f02=»O Y x PIH:70 EQU * Z P LDR A4,A1 Z P ANKL A4,/0400 BIT 5 Z 0 P SLC A4,7 TO BIT 14 Z L P ORR A3,A4 Z h P* Z z P IFT TOSS+IBM=0 Z P LDR A4,A1 Z P ANKL A4,/2000 BIT 2 Z P SLL A4,1 TO BIT 1 Z P ORR A3,A4 Z P XIF Z P* Z
0x43f084…43f218 Dummy {f00=0x0158, f01=0x018e, f02=» Z ~ P ORR A3,A1 [ , P ORRS A3,A6 UPDATE TEMPORARY RETURN CODE [ P ANKL A3,/F7FF [ J PIH:80 EQU * [ ` P LDR A1,A3 [ t P RTN A5 [ P* [ P EJECT DRFD01 [ P* [ 0 P******************************************* [ 0 P*
0x43f218…43f3ac Dummy {f00=0x0158, f01=0x0190, f02=» 0 P******************************************* P* 8 P******* B P* * R P* BIO * b P* * r P******* P* P* INPUT: A8 ECB ADDRESS P* A4 ORDER P* > P* OUTPUT: A2 BITS 0-12 OF CONTRO
0x43f3ac…43f540 Dummy {f00=0x0158, f01=0x0190, f02=»EQU * & P LD A1,DWTCW2,A6 GET SECTOR NUMBER ] ( P SLL A1,3 PUT IN RIGHT BIO POSITION ] 8 6 P LD A2,DWTSIO,A6 GET NUMBER OF SECTORS IN THIS IO ] d P SRC A2,2 ] P ORR A2,A1 COMPLETE BIO ] & P ADR A2,A4 COMPLETE BIO WITH ORDER ] " P LD A4,DWTBA,A
0x43f540…43f6d4 (4, 274) Dummy {f00=0x0158, f01=0x0190, f02=»************* ] P* * ^ P* BIOSQ * ^ 0 P* * ^ J P***************** ^ d P* ^ ~ P* INPUT: A8 ECB ADDRESS ^ P* A4 ORDER ^ P* ^ > P* OUTPUT: A2 BITS 0-12 OF CONTROL WORD USED BY CIO S
0x43f6d4…43f868 Dummy {f00=0x0158, f01=0x0190, f02=» IBM=1 ^ & P LD A2,ECBCW2,A8 GET SECTOR NUMBER _ ( P SLL A2,3 PUT IN RIGHT BIO POSITION _ 8 & P ADR A2,A4 COMPLETE BIO WITH ORDER _ d P* _ P IFT MMUPAG=0 _ & P LD A4,ECBBA,A8 GET BUFFER ADDRESS _ P XIF _ P* _ P IFT IBM=1 _ P IFT MMU
0x43f868…43f9fc Dummy {f00=0x0158, f01=0x0190, f02=» RTN A5 _ P XIF ` P* ` P EJECT DRFD01 ` & P* ` < P****************** ` F P* VO:NAM * ` ` P****************** ` z P* ` P* ` PVO:NAM EQU * ` P IFT TOSS+IBM=2 ` P LDK A3,36 LENGTH ` P XIF ` P* ` P IFT
0x43f9fc…43fb90 Dummy {f00=0x0158, f01=0x0190, f02=»DKL A4,BUF READ TO BUFFER ` P CF A5,FD:REA a " P ANK A3,/17 FATAL ERROR a 8 P RF(NZ) VOL:40 a X P IFT IBM=1 a n P LD A2,BUF+32 a P CWK A2,'TO' a P RF(NE) VOL:10 IBM DISC a P LD A2,BUF+34 GET NEXT WORD a P CWK A2,'SS' a P RF(NZ
0x43fb90…43fd24 Dummy {f00=0x0158, f01=0x0190, f02=» DRFD01 a P* b P* b P IFT TOSS=1 b & P LDKL A2,BUF b : P IFT IBM=1 b N P RF VOL:20 b ` P XIF b r P* b ~ P IFT IBM=1 b PVOL:10 EQU * b P LDK A3,10 LENGTH b P LDK A2,/30 BIO b P LDKL A4,BUF READ TO BUFFER b P CF
0x43fd24…43feb8 Dummy {f00=0x0158, f01=0x0190, f02=»TE IBM b x P LDKL A1,/400 c , P ORRS A1,A6 UPDATE TEMPORARY RETURN CODE c $ P LDK A7,10 NO OF CHARACTERS c T 2 P CF A5,ASCII TRANSFER IBM VOLUME NAME TO ASCII c x 0 P LDKL A2,BUF+4 START ADDRESS OF VOLUME NAME c P XIF c P* c P EJECT DRFD01
0x43feb8…44004c Dummy {f00=0x0158, f01=0x0190, f02=»L:30 NOT TEST STATUS c * P ORKL A3,/8000 INDICATE NO NEW NVL SET d PVOL:30 EQU * d J . P CF A15,VOLGET VOLUME NAME TO DWT SET NVL d ^ P LD A8,DWTECB,A6 d P LDK A3,0 d PVOL:40 EQU * d P RTN A5 d P XIF d P* d P IFT IBM=1 d P E
0x44004c…4401e0 Dummy {f00=0x0158, f01=0x0190, f02=»FROM EBCDIC TO d h P* ASCII CODE e . P* INPUT STRING ADDRESS IS BUF e 6 & P* INPUT: A7 NO OF CHARACTERS e h P* A4 = BUFFER ADDRESS e P* OUTPUT: A1 CHANGED e P* A4 = BUFFER ADDRESS e P* A7
0x4401e0…440374 (4, 275) Dummy {f00=0x0158, f01=0x018e, f02=»FT IBM=1 e P ENB f P ADR A4,A7 f PASC:10 EQU * f . P SUK A4,1 f B P LCR A1,A4 EBCDIC CHARACTER f T P ANK A1,/FF f x ( P LC A1,TASCII,A1 TRANSFORM TO ASCII f 0 P SCR A1,A4 PUT ASCII CHAR. IN OUTPUT BUFFER f P SUK A7,1 f P RB(P) ASC
0x440374…440508 Dummy {f00=0x0158, f01=0x0190, f02=» < P* FUNCTION: EBCDIC TRANSFORMES A STRING FROM ASCII TO g P* EBCDIC CODE g D 8 P* OUTPUT STRING IS PUT IN DRIVER BUFFER g f P* g & P* INPUT: A7 NO OF CHARACTERS g P* A4 = BUFFER ADDRESS g P* g P* OUT
0x440508…44069c Dummy {f00=0x0158, f01=0x018e, f02=»PAG=1 g & P LDKL A4,BUF DRIVER BUFFER ADDRESS h P XIF h 8 P* h D P IFT IBM=1 h N P ADR A4,A7 h ` PEBC:10 EQU * h r P SUK A4,1 h P LCR A1,A4 GET ASCII CHAR. h P ANK A1,/FF h P LC A1,TEBCDIC,A1 h P SC A1,BUF-1,A7 h P SUK A7,
0x44069c…440830 Dummy {f00=0x0158, f01=0x0190, f02=» h P* i P EJECT DRFD01 i P* i * P********** i 4 P* LOGSEC * i F P********* i X P* i j @ P* FUNCTION: LOGSEC TRANSFORMS PHYSICAL SECTOR TO STANDARD i t , P* LOGICAL SECTOR (BINARY). i < P* FORMAT OF PHYS. SE
0x440830…4409c4 Dummy {f00=0x0158, f01=0x018e, f02=»* i & P* OUTPUT: A3 BINARY SECTOR NO j . P* A4 ADDRESS TO PHYS. SEC. + 4 j 4 P* j f PLOGSEC EQU * j p P CF A5,DECBIN j P LDR A3,A1 SAVE j P ADK A4,2 j P* j P* MULTIPLY BY 26 j P* j P SLL A3,5 *32 j P
0x4409c4…440b58 Dummy {f00=0x0158, f01=0x0190, f02=» P ADR A3,A1 k P* k P EJECT DRFD01 k P* k 8 P* CHECK SECTOR NO k B P* k P LDR A1,A3 k f P SUK A1,25 k x P RF(NP) LOG:10 k P CWK A4,BUF+EOD+4 EOD k P RF(E) LOG:02 YES! k P SUKL A1,1898 k P RF LOG:04 k P* k "
0x440b58…440cec Dummy {f00=0x0158, f01=0x0190, f02=» SUK A4,4 RESET BUFFER POINTER k P RTN A5 l & P* l 6 P* FATAL ERROR l @ P* l V ( PLOG:05 ADK A5,4 ADJUST STACK POINTER l ` " PLOG:10 LDK A1,/10 RETURN CODE l , P ORRS A1,A6 UPDATE TEMPORARY RETURN CODE l P INH INHIBIT INTERRUPTS l P ABL L
0x440cec…440e80 Dummy {f00=0x0158, f01=0x0190, f02=»* FUNCTION: DECBIN TRANSFORMS TWO EBCDIC CODED DIGITS TO l D P* BINARY. RANGE OF EBCDIC CODE /F0 - /F9 IS CHECKED m B , P* INPUT: A4 ADDRESS TO FIRST DIGIT m P* OUTPUT: A1 BINARY m P* WORKING REG: A2,A7 m P* m PDECBIN
0x440e80…441014 (4, 276) Dummy {f00=0x0158, f01=0x0190, f02=»9 m P RB(P) LOG:05 NOT DIGIT n P ADK A2,9 n * P SUK A7,1 n < P RF(Z) DEC:30 n N & P ADK A4,1 ADDRESS TO SECOND DIGIT n d PDEC:20 SUK A2,1 n P RB(N) DEC:10 NEXT DIGIT n P ADK A1,/A MULTIPLY BY 10 n P RB DEC:20 n PDEC:30 ADR A1,
0x441014…4411a8 Dummy {f00=0x0158, f01=0x0190, f02=»* n 2 P* FUNCTION: PUT DRIVE NO IN CIO INSTRUCTION o P* o @ 8 P* INPUT: A3 DRIVE NO , (BITS 0-13 MUST BE ZEROES o J P* o P* OUTPUT: A3 CHANGED o P* A4 CHANGED o P* o PSETCIO LDKL A4,/FFCF o P ANS A4,FD:CIO o P
0x4411a8…44133c Dummy {f00=0x0158, f01=0x0190, f02=»* BINDEC * o P********** p P* p $ : P* FUNCTION: BINDEC TRANSFORMS A BINARY NUMBER TO TWO p . 0 P* EBCDIC-CODED DIGITS (DECIMAL) p l P* p P* INPUT: A7 BINARY NUMBER p P* p . P* OUTPUT: A3 EBCDIC CODED DECIMAL DIGITS p
0x44133c…4414d0 Dummy {f00=0x0158, f01=0x0190, f02=»N:10 p PBIN:20 ADK A7,10 q P SLL A3,8 q $ * P ORR A3,A7 DECIMAL CONVERTED NO IN A3 q 6 P ORKL A3,/F0F0 EBCDIC CODED q d P RTN A5 q P* q P EJECT DRFD01 q P********* q P* DSLIO * q P********* q P* q 4 P* FUNCTION:
0x4414d0…441664 Dummy {f00=0x0158, f01=0x0190, f02=» 13-15 ZEROES q h P* A3 128 r ( P* A4 DRIVER BUFFER ADDRESS r 2 P* A6 DWT ADDRESS r ^ P* A1 IS CHANGED r P* r PDSLIO LDK A1,DWTDSS r P CF A5,DSPAD r P LDR* A2,A2 r P SLL A2,3 r P LDK A
0x441664…4417f8 Dummy {f00=0x0158, f01=0x0190, f02=»**** r P* s 6 P* FUNCTION: GET EOD-NO AND EOD-NO ADDRESS IN DWT s P* s P P* INPUT: A6 DWT ADDRESS s Z P* s | P* OUTPUT: A2 EOD ADDRESS s , P* A7 EOD-NO (0=NOT OPEN) s P* A1 CHANGED s PDSOPCH LDK A1,DWTE
0x4417f8…44198c Dummy {f00=0x0158, f01=0x0190, f02=»DSPAD * s P********* t P* t " 2 P* FUNCTION: GET ABSOLUTE ADDRESS OF SPECIFIED t , 6 P* TYPE OF DATA FOR CORRESPONDING DRIVE t b P* t P* INPUT: A1 DWT OFFSET t P* A6 DWT ADDRESS t P* t " P* OUTPUT: A2 ADDRE
0x44198c…441b20 Dummy {f00=0x0158, f01=0x018e, f02=» ADR A2,A6 t P ADR A2,A1 u P RTN A5 u $ P* u 4 P EJECT DRFD01 u > P* u V P********* u ` P* STDWT * u r P********* u P* u : P* FUNCTION: STORE INPUT WORD IN DWT-AREA DEPENDING OF u P* DRIVE NO u P* u ( P*
0x441b20…441cb4 (4, 277) Dummy {f00=0x0159, f01=0x018e, f02=» P* OUTPUT: A1 UNCHANGED v 0 P* A2 ADDRESS TO WORD IN DWT AREA v & P* A3 UNCHANGED v Z P* A6 UNCHANGED v | P* v PSTDWT EQU * v P CF A5,DSPAD v P STR A3,A2 v P RTN A5 v P XIF v P* v P
0x441cb4…441e48 Dummy {f00=0x0159, f01=0x0190, f02=» P XIF w P* w P IFT TOSS=1 w P IFT IBM=0 w . " P DATA 0,0,0 VOLUME NAME BUFFER w @ P IFT MMUPAG+CHAN=2 w f P RES DVBLEN-3 MMU BUFFER w P XIF w P* w P IFT TOSS+IBM=0 w P IFT MMUPAG+CHAN=2 w P RES DVBLEN MMU BUFFER w P X
0x441e48…441fdc Dummy {f00=0x0159, f01=0x018e, f02=» w z P* * x P********************* x & P* x D PDWFD01 EQU * x N ( PDWTRCW EQU *-DWFD01 TEMP RETURN CODE x b P DATA 0 x P DATA /8000 DWT STATUS x P DATA 0 ECB ADDRESS x P DATA 0 ORDER x " P DATA FDADR ACTIVATION ADD
0x441fdc…442170 Dummy {f00=0x0159, f01=0x0190, f02=» x & " DATA 0 SAVE AREA USER ECB ADDRESS y DATA DEVECB MMU ECB ADDRESS y 2 XIF y V P* y b PDWTA3 EQU *-DWFD01 y l P DATA 0 y P DATA 0 SAVE AREA y P DATA 0 y P DATA 0 y " P DATA 0,0,0,0 STACK (3 LEVELS) y P DATA 0 ORDER SAVE
0x442170…442304 Dummy {f00=0x0159, f01=0x0190, f02=»000 NVL INDICATOR 1 y P DATA /8000 NVL INDICATOR 2 z P DATA /8000 NVL INDICATOR 3 z @ ( PDWTVO0 EQU *-DWFD01 VOLUME NAME NO 0 z d P DATA /FFFF,/FFFF,/FFFF z ( PDWTVO1 EQU *-DWFD01 VOLUME NAME NO 1 z P DATA /FFFF,/FFFF,/FFFF z ( PDWTVO2 EQU *
0x442304…442498 Dummy {f00=0x0159, f01=0x0190, f02=» ( PDWTST2 EQU *-DWFD01 SAVE STATUS WORD { P DATA 0 { 0 P XIF { @ PDWTA5 EQU *-DWFD01 { L P DATA 0 { f * PDWTRTY EQU *-DWFD01 RETRY REQUEST FLAG { v P DATA 0 { $ PDWTTP EQU *-DWFD01 TIMER POINTER { P DATA 0 { P* { P EJECT DRFD01 {
0x442498…44262c Dummy {f00=0x0159, f01=0x0190, f02=»EQU *-DWFD01 DRIVE LOCK INDICATOR { P DATA 0 | * P* | : P IFT OPCLOS=1 | D . PDWTTP2 EQU *-DWFD01 TIMER POINTER FOR OPEN | Z P DATA 0 | 4 PDWTOCF EQU *-DWFD01 OPEN/CLOSE FLAG AT POWER ON | P DATA 0 | P XIF | P* | P EJECT DRFD0
0x44262c…4427c0 Dummy {f00=0x0159, f01=0x0190, f02=»-DWFD01 BUFFER END ADDRESS+2 | P DATA 0 } $ , PDWTRW EQU *-DWFD01 READ/WRITE INDICATOR } 4 P DATA 0 } d P XIF } t P* } P IFT IBM=1 } , PDWTBOE EQU *-DWFD01 BEGINNING OF EXTENT } P DATA 0,0,0,0 } $ PDWTEOD EQU *-DWFD01 END OF DATA }
0x4427c0…442954 (4, 278) Dummy {f00=0x0159, f01=0x0190, f02=»ATA 0,0,0,0 } . PDWTDSS EQU *-DWFD01 DATA SET LABEL SECTOR ~ P DATA 0,0,0,0 ~ F P XIF ~ P* ~ h P EJECT DRFD01 ~ r P* ~ P* ~ & PDWTBA EQU *-DWFD01 BUFFER POINTER ~ P DATA 0 ~ ( PDWTRL EQU *-DWFD01 LENGTH IN SUB IO ~ P DAT
0x442954…442ae8 Dummy {f00=0x0159, f01=0x0190, f02=»DWTSIO EQU *-DWFD01 NUMBER OF SECTORS IN SUB IO ~ P DATA 0 8 P* H P IFT IBM+TOSS=2 R & PDWTFIB EQU *-DWFD01 IBM INDICATOR j P DATA 0 P XIF P* P EJECT DRFD01 P* P* P IFT MMUPAG=1 PDWT:BF EQU *
0x442ae8…442c7c Dummy {f00=0x0159, f01=0x4152, f02=»T:PA EQU *-DWFD01 * P DATA 0 6 BIT PHYSICAL BUFFER ADDRESS P DATA 0 SECOND MMU ENTRY H P* h PDWT:LA EQU *-DWFD01 r * P DATA 0 16 BIT LOGICAL BUFFER ADDRESS P XIF P* P IFT MMUPAG=1 PDEVECB EQU * P DATA 0,0,0,
0x442c7c…442e10 Dummy {f00=0x0159, f01=0x2008, f02=» END @
0x442e10…442fa4 Dummy {f00=0x0159, f01=0x0190, f02=» P* PVO:NAM EQU * P CF A5,SEEKZ SEEK SECTOR 0 " P ANK A1,1 F 6 P RF(NZ) VO:NA8 SEEK-,THROUGHPUT ERROR,NOT OPERABLE X P CMR A6 SECTOR 0 P IFT NUNITS=2 P CF A5,INXUNI P CM DWTCYL,A2 CYLINDER 0 P XIF P IFT N
0x442fa4…443138 Dummy {f00=0x0159, f01=0x018e, f02=» BUFFER t P CF A5,READ P ANK A1,3 $ 0 P CF A5,BSELOD UPDATE DRIVER BUFFER INDICATOR 6 P XIF j P* v P IFT VERSA3=0 $ P LDKL A1,/8019 READ SECTOR ZERO $ P LDKL A2,BUFFER TO DRIVER BUFFER P CF A5,CIO:50 P ANK A1,3 ER
0x443138…4432cc Dummy {f00=0x0159, f01=0x018e, f02=» x P LD A1,DWTSAV,A6 P RF(Z) VO:NA6 ( P LDKL A3,/80F0 INDICATE TEST STATUS 6 PVO:NA6 EQU * b 2 P CF A15,VOLGET VOLUMR NAME TO DWT INDICATE NVL v P EJECT DRDU01 P* P* PDUNA40 EQU * P LDK A1,1 6 P LDK A7,1
0x4432cc…443460 Dummy {f00=0x0159, f01=0x0190, f02=» x 4 P LD A2,BUFFER+40 CHECK IF RELEASE 10 OR GREATER P CWK A2,/2031 @ $ P RF(NE) DUNA70 REL LESS THAN 10 V : P LD A2,BUFFER+48 GET FORMAT AND DEVICE TYPE PARAMETER ~ 4 PTRANPA EQU * LABEL FOR TRANSFER PARAMETER ORDER * P CF A15,INXDWT GET I
0x443460…4435f4 (4, 279) Opaque[0x194]
0x4435f4…443788 # DirEnt {nam=»EBCDIC«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0778, f03=0x0000}
0x4435f4…443788 IdxSect {
0x4435f4…443788 f00 = 0x003b // 0x4435f4 @0x0
0x4435f4…443788 f01 = 0x0004 // 0x4435f6 @0x2
0x4435f4…443788 gno = [ // 0x4435f8 @0x4
0x4435f4…443788 [0x00]: C0x003b.0x3.0
0x4435f4…443788 [0x01]: C0x003c.0x0.0
0x4435f4…443788 ]
0x4435f4…443788 }
0x443788…44391c Dummy {f00=0x003b, f01=0x0190, f02=» 2 P IDENT EBCDIC REL 10.0 80-03-14 870105041000 P : P* B 4 P************************************************ L P* $ P* PHILIPS TERMINAL SYSTEM PTS P* $ P* EBCDIC = EBCDIC/ASCII TABLE P* P* P* P*
0x44391c…443ab0 Dummy {f00=0x003b, f01=0x0190, f02=» P* P* . P* CONDITIONAL ASSEMBLY (SEE ALSO DRDC15) P* J 2 PX:A EQU 1 CODE , 0=ASCII , 1=EBCDIC (DRDC15) T PCODE EQU X:A 4 PX:B EQU 1 READ COMMAND HANDLING IF = 1 (DRDC15) PRCOM EQU X:B P EJECT P* P*
0x443ab0…443c44 Dummy {f00=0x003b, f01=0x0190, f02=»/0009,/0000 00-07 ~ ( P DATA /0000,/0000,/0C00,/0000 08-0F ( P DATA /1011,/1213,/000A,/0000 10-17 F ( P DATA /0019,/0000,/1C1D,/1E1F 18-1F r ( P DATA /0000,/0000,/0000,/171B 20-27 ( P DATA /0000,/0000,/0005,/0000 28-2F ( P DATA /0000,/1600,
0x443c44…443dd8 Dummy {f00=0x003b, f01=0x0190, f02=»8,/2B21 48-4F z ( P DATA /264A,/4B4C,/4D4E,/4F50 50-57 ( P DATA /5152,/5D24,/2A29,/3B5E 58-5F B ( P DATA /2D2F,/5354,/5556,/5758 60-67 n ( P DATA /595A,/7C2C,/255F,/3E3F 68-6F ( P DATA /1831,/3233,/3435,/3637 70-77 ( P DATA /3839,/3A23,/402
0x443dd8…443f6c Dummy {f00=0x003b, f01=0x0190, f02=»F70 90-97 v ( P DATA /7172,/5D24,/2A29,/3B5E 98-9F ( P DATA /2D2F,/7374,/7576,/7778 A0-A7 > ( P DATA /797A,/7C2C,/255F,/3E3F A8-AF j ( P DATA /3031,/3233,/3435,/3637 B0-B7 ( P DATA /3839,/3A23,/4027,/3D22 B8-BF ( P DATA /2041,/4243,/4445,/4
0x443f6c…444100 Dummy {f00=0x003b, f01=0x0190, f02=»D8-DF r ( P DATA /2D2F,/5354,/5556,/5758 E0-E7 ( P DATA /595A,/7C2C,/255F,/3E3F E8-EF : ( P DATA /3031,/3233,/3435,/3637 F0-F7 f ( P DATA /3839,/3A23,/4027,/3DFF F8-FF P XIF P EJECT P* P* 2 P* TABLE FOR CONVERSION OF AS
0x444100…444294 (4, 280) Dummy {f00=0x003c, f01=0x0190, f02=» DATA /0005,/1500,/0C00,/0000 08-0F ( P DATA /1011,/1213,/3C3D,/3226 10-17 , ( P DATA /7019,/3F27,/1C1D,/1E1F 18-1F X ( P DATA /404F,/7F7B,/5B6C,/507D 20-27 ( P DATA /4D5D,/5C4E,/6B60,/4B61 28-2F ( P DATA /F0F1,/F2F3,/F4F5,/F6F7 30-37 ( P
0x444294…444428 Dummy {f00=0x003c, f01=0x4158, f02=»A /D7D8,/D9E2,/E3E4,/E5E6 50-57 ( P DATA /E7E8,/E94A,/005A,/5F6D 58-5F ( ( P DATA /0081,/8283,/8485,/8687 60-67 T ( P DATA /8889,/9192,/9394,/9596 68-6F ( P DATA /9798,/99A2,/A3A4,/A5A6 70-77 ( P DATA /A7A8,/A91C,/6A00,/00E0 78-7F 4 P DAT
0x444428…4445bc Dummy {f00=0x003c, f01=0x2008, f02=» NT EBCASC TESTVERSION 1 END (@ 4
0x4445bc…444750 Dummy {f00=0x003c, f01=0x0190, f02=» 0 0}@d "P n_r 4 # 6 P 7MW (j "M ( 0 P 0 * 1W 'W 1 1 1 1 v j !!Ov v" Cv 0 "" VvW 0 0 )W`0 "" Vv 0 !!W6 'WH ! W+ " W% h * h `h h h 2` W 4 !4 "4
0x444750…4448e4 Dummy {f00=0x003c, f01=0x0190, f02=» 4 0 0 0 $0 T 0 0 W 0 W 0 4P +W 4 0 4 j !! % !j !! 0 ) 4 4 @p@q@r@t@v@ @x 2 # !"#$% H ! ( Hx 4 $ !"4 "!4 !!4 I @w 0 0 V # 4 A 0 _ @ P 0 0
0x4448e4…444a78 Dummy {f00=0x003c, f01=0x0190, f02=» c b" W !4 ( #M0 T ! ! P.W< !0 P) * 2 *#U 1 * * 4 & !4 _ 4 I @ / R $ X$ 01 0 0 202 0 1 # 0 L L H B1 8 ,$ &N3 $$/ 1J# Z t#:" H $v$z$ 1F . d ^ ^ , 1 % [ a
0x444a78…444c0c Dummy {f00=0x003c, f01=0x0190, f02=» B " Y # , 6 Q d F J S:T JOBPTS GETDATAMODE NO.:ENTRYTYPE:999999FORMATSEARCHVERIFY CREATEELEMENTNAME: TPROGRAM:REL 10.0SIZE OF DEFINITION VALUE-SETS70 CONVERSION10 SUP
0x444c0c…444da0 Dummy {f00=0x003c, f01=0x0190, f02=»
0x444da0…444f34 (4, 281) Opaque[0x194]
0x444f34…4450c8 # DirEnt {nam=»TIMER «, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x28e8, f03=0x0000}
0x444f34…4450c8 IdxSect {
0x444f34…4450c8 f00 = 0x0147 // 0x444f34 @0x0
0x444f34…4450c8 f01 = 0x0006 // 0x444f36 @0x2
0x444f34…4450c8 gno = [ // 0x444f38 @0x4
0x444f34…4450c8 [0x00]: C0x0147.0x1.0
0x444f34…4450c8 [0x01]: C0x0147.0x2.0
0x444f34…4450c8 [0x02]: C0x0147.0x3.0
0x444f34…4450c8 ]
0x444f34…4450c8 }
0x4450c8…44525c Dummy {f00=0x0147, f01=0x0190, f02=» 0 P IDENT TIMER REL 10.0 80-03-14 870105041000 P 8 P* @ P* J 8 P*************************************************** T P* $ P* PHILIPS TERMINAL SYSTEM PTS P* P* TIMER = TIMER FUNCTIONS P* P* P*
0x44525c…4453f0 Dummy {f00=0x0147, 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
0x4453f0…445584 Dummy {f00=0x0147, f01=0x0190, f02=» . P ENTRY SETIMP SETIME + STORE TIMER POINTER P EJECT TIMER 6 P* L P* V P*********** ` P* EXTRNALS * t P************ P* P* P EXTRN TDISP DISPATCHER . P EXTRN LKMQDI QUEUE TERMINAL AND DISPATCH $ P EXTRN
0x445584…445718 Dummy {f00=0x0147, f01=0x0190, f02=»DRESS v , P EXTRN ACTDIS ACTIVATE TASK AND DISPATCH * P EXTRN SAVE8 SAVE 8 REGISTERS ON STACK > 8 P EXTRN TIMQUE POINTER TO FIRST BLOCK IN TIMER QUEUE l 0 P EXTRN IHRET8 RESTORE 8 REGISTERS FROM STACK P EJECT TIMER P* P* . P**
0x445718…4458ac Dummy {f00=0x0147, f01=0x0190, f02=»*** j P* 6 P* A PROGRAM VERSION USING THE EXTENDED INSTRUCTION . P* SET IS OBTAINED BY SETTING CPU852 EQU 0. P P* PCPU852 EQU 0 P* P EJECT TIMER P* P* P* T I M E R P* ( P* THIS IS THE TIME
0x4458ac…445a40 Dummy {f00=0x0147, f01=0x018e, f02=»AM DELAY P* P* A4 = 0 P* A5 = TTAB ADDRESS , P* A8 = DELAY J P* ` P* j P* 2. TIMING AND ACTIVATION t P* P* A1 = PARAMETER 8 P* A4 = DISPATCH ADDRESS OF PROGRAM TO BE ACTIVATED , P* A5 = TTAB AD
0x445a40…445bd4 (4, 282) Dummy {f00=0x0147, f01=0x0190, f02=» PTIMER EQU * P ADK A4,0 SET CR ( P RF(NZ) TIM010 TIMING AND ACTIVATION 4 P* ` P EJECT TIMER j P* P* PROGRAM DELAY P* P LDR A1,A5 SET PARAMETER P ST A8,PAR1+2 SET TIME P CF A15,SETIME PPAR1 D
0x445bd4…445d68 Dummy {f00=0x0147, f01=0x0190, f02=»10 EQU * $ P CF A15,FNDTID FIND TTAB ADDRESS P ADK A2,0 SET CR 8 " P ABL(Z) LKMRQE TTAB NOT FOUND P ( P LDR A3,A2 IN BLOCK: A3=TTAB ADDRESS v , P LDR A2,A4 A2=DISPATCH ADDRESS ( P CF A15,GETBLK A1=PARAMETER . P LDR A1,A4
0x445d68…445efc Dummy {f00=0x0147, f01=0x0190, f02=»QU * P ABL LKMQDI P* P EJECT TIMER * P* @ P* J P* RETURN AFTER TIME OUT T P* v P* 1.PROGRAM DELAY P* PDELAY EQU * P LDR A5,A1 SET TTAB ADDRESS * P RB QUEDIS QUEUE TASK FOR DISPATCHING
0x445efc…446090 Dummy {f00=0x0147, f01=0x0190, f02=»ET IT FREE | P LDR A5,A3 SET TTAB ADDRESS * P ABL ACTDIS ACTIVATE TASK AND DISPATCH 6 P* d P EJECT TIMER n P* P* " P* S E T I M E , S E T I M P P* . P* SUBROUTINE TO SET BLOCK IN TIMER QUEUE , P* AND IF SET
0x446090…446224 Dummy {f00=0x0147, f01=0x0190, f02=»POINTER ADDRESS v , P* P1 = DISPATCH ADDRESS AFTER TIME OUT P* P2 = DELAY H P* ^ : P* P1 AND P2 ARE STORED AFTER THE SUBROUTINE REQUEST. h P* P* EXIT PARAMETER:- P* P* A4 = ADDRESS TO TIMER P* P*
0x446224…4463b8 Dummy {f00=0x0147, f01=0x0190, f02=» XIF P* P IFT CPU852=0 P INH , " P MSR 8,A15 SAVE A1-A8 ON STACK 8 P XIF ^ P* j P EJECT TIMER t P* P* * P LDR A6,A4 SAVE TIMER POINTER ADDRESS P LDR A3,A4 . P LD A5,20,A15 LOAD FIRST PARAMETER ADDRESS
0x4463b8…44654c Dummy {f00=0x0147, f01=0x0190, f02=» PROGRAM COUNTER | $ P CF A15,GETBLK GET A FREE BLOCK P LDR A2,A4 @ P C1R A1,A8 R " P CF A15,GETBLK GET TIMER BLOCK d P LD A1,TIMQUE " P STR A1,A4 SET BLOCK IN QUEUE P ST A4,TIMQUE P ADK A4,4 0 P ST A4,10,A15 SET TIMER AD
0x44654c…4466e0 Dummy {f00=0x0147, f01=0x412e, f02=»CT TIMER P* P* PSETEND EQU * & P IFT CPU852=1 : ( P ABL IHRET8 RESTORE A1-A8 AND RETURN P P XIF | P* P IFT CPU852=0 * P MLR 8,A15 RESTORE A1-A8 FROM STACK... P RTN A15 ...AND RETURN P XIF P*
0x4466e0…446874 (4, 283) Dummy {f00=0x0147, 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
0x446874…446a08 Dummy {f00=0x0147, f01=0x0000, f02=»
[…0x6…]
0x447380…447514 (4, 284) Opaque[0x194]
0x447514…4476a8 # DirEnt {nam=»TMMLKM«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x2160, f03=0x0000}
0x447514…4476a8 IdxSect {
0x447514…4476a8 f00 = 0x010b // 0x447514 @0x0
0x447514…4476a8 f01 = 0x0006 // 0x447516 @0x2
0x447514…4476a8 gno = [ // 0x447518 @0x4
0x447514…4476a8 [0x00]: C0x010b.0x0.0
0x447514…4476a8 [0x01]: C0x010b.0x1.0
0x447514…4476a8 [0x02]: C0x010b.0x2.0
0x447514…4476a8 ]
0x447514…4476a8 }
0x4476a8…44783c Dummy {f00=0x010b, f01=0x0190, f02=» 2 P IDENT TMMLKM REL 10.0 80-03-14 870105041000 P : P* B P* L 6 P************************************************** V P* $ P* PHILIPS TERMINAL SYSTEM PTS P* ( P* TMMLKM = TOSS MMU LKM PROCESSORS P* P*
0x44783c…4479d0 Dummy {f00=0x010b, 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**
0x4479d0…447b64 Dummy {f00=0x010b, f01=0x0190, f02=» MMU TABLE | & P ENTRY TLUSEG LOCK/UNLOCK SEGMENT P EJECT TMMLKM < P* T P* ^ P************* h P* EXTERNALS * ~ P************* P* P* 0 P EXTRN FNDTID FIND TTAB ADDRESS FROM TASK ID P EXTRN RELPAG RELEASE
0x447b64…447cf8 Dummy {f00=0x010b, f01=0x0190, f02=» IN TTAB l ( P EXTRN TTB:SP SEGMENT TABLE ADDRESS $ P EXTRN SEG:NS NUMBER OF SEGMENTS < P EJECT TMMLKM d P* | P* P********** P* TCHPAG * P********** P* P* 2 P* THIS IS THE CHANGE MMU PAGE LKM PROCESSOR.
0x447cf8…447e8c Dummy {f00=0x010b, f01=0x0190, f02=» AT A TIME. ` P* * P* IT IS ENTERED FROM THE LKM HANDLER & P* WITH THE FOLLOWING PARAMETERS: L P* v P* A5 = TTAB ADDRESS ( P* A7 = PAGE TO BE CHANGED, 0 - 15 * P* A8 = NEW LOCATION OF PAGE, 0 - 63 P* < P* IT
0x447e8c…448020 Dummy {f00=0x010b, f01=0x018e, f02=»(IF ANY) p 0 P ADR A7,A7 ADJUST FOR INDEXING IN MMU TABLE P ADR A7,A5 ADD TTAB ADDRESS D P LDR A2,A8 NEW PAGE LOCATION h . P ANK A2,/3F SKIP IRRELEVANT BITS (IF ANY) P SLL A2,2 < P SC A2,TTB:MT,A7 STORE NEW LOCATION OF PAGE IN MMU TABLE
0x448020…4481b4 (4, 285) Dummy {f00=0x010b, f01=0x0190, f02=» P* TCHMMU * P********** P* , P* 6 4 P* THIS IS THE CHANGE MMU TABLE LKM PROCESSOR. @ P* x D P* TCHMMU WILL CHANGE THE MMU TABLE CONTENTS OF REQUESTING TASK 4 P* TO THE MMU TABLE CONTENTS OF SPECIFIED TASK. P*
0x4481b4…448348 Dummy {f00=0x010b, f01=0x0190, f02=»A7 = TASK IDENTIFICATION OF SEARCHED TASK P* 2 ( P* IT RETURNS TO CALLING TASK WITH < P* THE FOLLOWING PARAMETER: h P* 2 P* A7 = UNCHANGED IF REQUEST SUCCESSFUL, ELSE & P* A7 = -1 IF TASK NOT IN SYSTEM P* " PTCHMMU E
0x448348…4484dc Dummy {f00=0x010b, f01=0x0190, f02=» TL TTB:MT,A2 LOAD SEARCHED MMU TABLE CONTENTS 4 P TS TTB:MT,A5 STORE IN MMU TABLE OF CALLING TASK 6 * P RB T:DISP QUEUE TASK FOR DISPATCHING n P* P EJECT TMMLKM P* P* P********** P* TLUSEG * P********** P
0x4484dc…448670 Dummy {f00=0x010b, f01=0x018e, f02=» CORE RESIDENT, ` D P* UNTIL AN UNLOCK SEGMENT REQUEST IS ISSUED FOR THAT SEGMENT. P* ` * P* IT IS ENTERED FROM THE LKM HANDLER j & P* WITH THE FOLLOWING PARAMETERS: P* P* A5 = TTAB ADDRESS P* A7 = SEGMENT NUMBER &
0x448670…448804 Dummy {f00=0x010b, f01=0x0190, f02=» j " P* THE FOLLOWING PARAMETERS: P* . 2 P* A7 = UNCHANGED IF REQUEST SUCCESSFUL, ELSE 8 P* A7 = -1 IF REQUEST ERROR n P* P* P EJECT TMMLKM P* P* $ PTLUSEG EQU * LOCK/UNLOCK SEGMENT $ P LD A4,TTB:SP,
0x448804…448998 Dummy {f00=0x010b, f01=0x0190, f02=»GMENT NUMBER TOO BIG t P RF(NG) TLUS00 OK P* 6 PTLCERR EQU * @ , P ABL LKMRQE BRANCH TO LKM REQUEST ERROR T P* PTLUS00 EQU * , P SLL A3,3 ADJUST FOR INDEXING IN SEGTAB " P ADR A3,A4 ADD SEGTAB ADDRESS " P LCR A4,A3 GET S
0x448998…448b2c Dummy {f00=0x010b, f01=0x018e, f02=»T IT IS t " P RF(NZ) TLUS10 UNLOCK SEGMENT P* 6 P EJECT TMMLKM @ P* X P* LOCK SEGMENT b P* x 4 P ORRS A4,A3 INDICATE SEGMENT TO BE CORE RESIDENT P RB T:DISP P* P* UNLOCK SEGMENT P* PTLUS10 EQU *
0x448b2c…448cc0 Dummy {f00=0x010b, f01=0x4036, f02=» P* P* P* END &@ 2* 6 P EJECT TMMLKM @ P* X P* LOCK SEGMENT b P* x 4 P ORRS A4,A3 INDICATE SEGMENT TO BE CORE RESIDENT P RB T:DISP P* P* UNLOCK SEGMENT P* PTLUS10 EQU *
0x448cc0…448e54 (4, 286) Dummy {f00=0x010b, f01=0x2008, f02=» NT TCHPAG PRR 9.1 78-10-16 870105040910 END <@ H
0x448e54…448fe8 Dummy {f00=0x010b, f01=0x0190, f02=» PTMW:30 EQU * 4 P ST A8,TTB:SA+16,A5 UPDATE A8 IN TTAB SAVE AREA 2 P ADK A3,0 CHECK FLAG IF FIRST ECB TO WAIT FOR T & P RF(Z) TP:QDI FIRST ECB IN ECBBLK P* : PTMW:40 ADKL A3,DWTWAT POINT TO WAIT/ACTIVATE INDICATOR $ P LDR* A2,A3
0x448fe8…44917c Dummy {f00=0x010b, f01=0x40e6, f02=»* P EJECT TPROC P* P* * PTP:RQE EQU * 4 " P ABL LKMRQE LKM REQUEST ERROR H P* n PTP:QDI EQU * x ( P ABL LKMQDI QUEUE TASK AND DISPATCH P* P* P* P END @ VATE INDICATOR $ P LDR* A2,A3
0x44917c…449310 Dummy {f00=0x010b, 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
0x449310…4494a4 Dummy {f00=0x010b, f01=0x0190, f02=»R INF =3 A x & P SUK A3,1 DEC TRANSFER COUNTER =3 B , P RB(P) RCDY12 NOT ENOUGH OF TRANSFERS =3 B : . P LDK A2,CTYCOD SEND 'SET COUNTRY CODE' =1 B j P CF A5,OUTPUT =1 B * P LDK A2,COUNTRY SEND 'COUNTRY CODE' =1 B P ORK A2,/30 =1 B P CF A5,OUTPU
0x4494a4…449638 Dummy {f00=0x010b, f01=0x0190, f02=»CLEHOM CLEAR AND HOME B P CF A5,OUTPUT SEND C P LDKL A2,/101 C 8 6 P ST A2,DWTAP,A6 SET HEAD LINE-AND-POSITION COUNTER C N P LDR A3,A3 GET OLD STATUS C P RB(N) ENDIO NOT BUSY C " P LDK A1,OPERR SET RETURN CODE C PRCDY15 ABL ADY420 C P
0x449638…4497cc Dummy {f00=0x010b, f01=0x0190, f02=»DY25 NO C ( P LDK A1,2 INDICATE THROUGHPUT ERROR D P RB RCDY15 D < & PRCDY25 LDK A2,STX START OF MESSAGE D N P CF A5,OUTPUT D x 4 P LC A4,DWTBC,A6 GET NUMBER OF POSITIONS TO BACK D P ANK A4,/FF D P RF(E) RCDY30 D . P CF A5,BACCAN SEND BACKS
0x4497cc…449960 Dummy {f00=0x010b, f01=0x0190, f02=»* D 0 P* ECHODY = DEVICE-DEPENDENT ECHO-ROUTINE E P* E > PECHODY EQU * E H P LDR A7,A7 EOR? E P RF(N) ECDY17 YES E t P LDR A3,A2 SAVE CHARACTER E P* E P IFT EORECH=0 E P* E P SUK A2,/80 E $ P RF(NN) ECDY20 NOT TO BE E
0x449960…449af4 (4, 287) Opaque[0x194]
0x449af4…449c88 # DirEnt {nam=»TLDSEG«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x20f0, f03=0x0000}
0x449af4…449c88 IdxSect {
0x449af4…449c88 f00 = 0x0107 // 0x449af4 @0x0
0x449af4…449c88 f01 = 0x0006 // 0x449af6 @0x2
0x449af4…449c88 gno = [ // 0x449af8 @0x4
0x449af4…449c88 [0x00]: C0x0107.0x2.0
0x449af4…449c88 [0x01]: C0x0107.0x3.0
0x449af4…449c88 [0x02]: C0x0108.0x0.0
0x449af4…449c88 ]
0x449af4…449c88 }
0x449c88…449e1c Dummy {f00=0x0107, f01=0x0190, f02=» 2 P IDENT TLDSEG REL 10.0 80-03-14 870105041000 P : P* B P* L 6 P************************************************** V P* $ P* PHILIPS TERMINAL SYSTEM PTS P* P* TLDSEG = LOAD SEGMENT P* P* P*
0x449e1c…449fb0 Dummy {f00=0x0107, 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
0x449fb0…44a144 Dummy {f00=0x0107, f01=0x0190, f02=»* EXTERNALS * P************* P* , P* 6 0 P EXTRN PRUN TTAB ADDRESS OF RUNNING PROGRAM @ P EXTRN TDISP DISPATCHER t $ P EXTRN LKM030 LKM REQUEST ERROR & P EXTRN PAG:QB QUEUE LINK BACKWARDS $ P EXTRN SEG:NS NUMBER OF SEGMENTS
0x44a144…44a2d8 Dummy {f00=0x0107, f01=0x0190, f02=»TTAB SAVE AREA P EXTRN TTB:MT MMU TABLE & P EXTRN TTB:CB CURRENT SEGMENT BASE 6 ( P EXTRN TTB:SP SEGMENT TABLE ADDRESS ` ( P EXTRN TTB:SB SEGMENT BLOCK ADDRESS 2 P EXTRN QLTDSK ACTIVATE LDTASK AT ENTRY LT:DSK & P EXTRN SCTMMP MMU TABLE PA
0x44a2d8…44a46c Dummy {f00=0x0107, f01=0x0190, f02=» P* . P***************************************** P* @ P* CONDITIONAL ASSEMBLY J P* h . P***************************************** r P* . P* A PROGRAM VERSION USING TOSS MMU PAGING * P* IS OBTAINED BY SETTING MMUPAG EQU 1.
0x44a46c…44a600 Dummy {f00=0x0107, f01=0x0190, f02=»ETTING CPU852 EQU 0. z P* PCPU852 EQU 0 & P* : * D . ** A PROGRAM VERSION USING TOSS DISC PAGING N * &* IS OBTAINED BY SETTING DSKPAG EQU 1. * PDSKPAG EQU 0 * P EJECT TLDSEG P* P* P******
0x44a600…44a794 (4, 288) Dummy {f00=0x0107, f01=0x0190, f02=» IS ENTERED FROM THE LKM HANDLER & P* WITH THE FOLLOWING PARAMETERS: ( P* R 4 P* A2 = DISPATCH ADDRESS (NOT UPDATED BY IHLKM) P* A5 = TTAB ADDRESS P* A7 = SEGMENT NUMBER P* ( P* IT RETURNS TO CALLING TASK WITH " P
0x44a794…44a928 Dummy {f00=0x0107, f01=0x0190, f02=» ERROR, ELSE z ( P* A7 = -2 IF DISC I/O ERROR, ELSE $ P* A7 = -3 IF DISC NOT OPERABLE @ P* h 2 P* WHEN REQUESTED SEGMENT IS ALREADY IN CORE: r < P* THE REQUEST WILL NOT GO THROUGH THE DISPATCHER AFTER > P* COMPLETION, THUS NO TASK SWI
0x44a928…44aabc Dummy {f00=0x0107, f01=0x0190, f02=»S NOT IN CORE TLDSEG WILL t : P* ACTIVATE LDTASK WHICH WILL LOAD SEGMENT INTO CORE. " P* ` P* j P EJECT TLDSEG t P* & P* CHECK VALIDITY OF SEGMENT NUMBER P* PTLDSEG EQU * LOAD SEGMENT $ P LD A3,TTB:SP,A5 SEGTAB ADDR
0x44aabc…44ac50 Dummy {f00=0x0107, f01=0x0190, f02=»OO BIG f P RF(NG) TLDS00 OK P* ( $ PTLDERR LDK A6,/FF INDICATE ERROR 2 , P ABL LKM030 BRANCH TO LKM REQUEST ERROR Z P* P* GET SEGMENT BLOCK ADDRESS. P* UPDATE RETURN ADDRESS P* PTLDS00 EQU * , P SLL A1,3 ADJUST F
0x44ac50…44ade4 Dummy {f00=0x0107, f01=0x0190, f02=»S v P* P IFT DSKPAG=0 $ P SUKL A15,4 ADJUST STACKPOINTER * . P ST A2,4,A15 SET DISPATCH ADDRESS ON STACK R P XIF P* " P ADK A7,0 CHECK SEGMENT NUMBER P RF(NZ) TLDS05 NOT SEGMENT 0 0 P ST A7,TTB:SB,A3 RESET SEGMENT BLOCK
0x44ade4…44af78 Dummy {f00=0x0107, f01=0x0190, f02=»R r . P ST A2,4,A15 SET DISPATCH ADDRESS ON STACK P XIF < P RF TLDS40 H P* Z P EJECT TLDSEG d P* | P* PTLDS05 EQU * P IFT DSKPAG=1 2 P ST A1,TTB:SB,A3 UPDATE SEGMENT BLOCK ADDRESS " P LDR* A4,A1 GET SEGMENT
0x44af78…44b10c Dummy {f00=0x0107, f01=0x0190, f02=»* 6 P CF A15,QLTDSK ACTIVATE LOAD TASK AT ENTRY LT:DSK P ABL TDISP GO TO DISPATCHER D P* h PTLDS10 EQU * r $ P SUKL A15,4 ADJUST STACKPOINTER . P ST A2,4,A15 SET DISPATCH ADDRESS ON STACK P XIF P* & PTLDS15 EQU * ENTRY
0x44b10c…44b2a0 Dummy {f00=0x0107, f01=0x0190, f02=» l P* & P LDR* A2,A1 GET QUEUE LINK FORWARD * P RF(Z) TLDS20 PAGE BLOCK NOT IN QUEUE < , P LD A4,PAG:QB,A1 GET QUEUE LINK BACKWARD j 4 P CMR A1 RESET QUEUE LINK FORWARD OF REMOVED BLK " P STR A2,A4 UPDATE QUEUE LINKS P ST A4,PAG:QB,A2
0x44b2a0…44b434 (4, 289) Dummy {f00=0x0108, f01=0x0190, f02=»NTRY USED BY LDTASK & P LD A1,PAG:PA,A1 GET PAGE ADDRESS P* F P IFT MMUPAG=1 P P ECR A2,A1 f P ANK A2,/FC x P* 4 P* GET PAGE ENTRY/ENTRIES TO UPDATE IN MMU TABLE P* 0 P AD A3,SCTMMP POINT TO FIRST USED PAGE ENTRY
0x44b434…44b5c8 Dummy {f00=0x0108, f01=0x0190, f02=»A3 UPDATE PAGE ENTRY P SUK A4,1 ( P RF(NP) TLDS30 NO MORE PAGE ENTRIES . & P ADK A3,2 POINT TO NEXT PAGE ENTRY Z " P ADK A2,4 UPDATE PAGE ADDRESS P RB TLDS25 P* P EJECT TLDSEG P* P* 4 PTLDS30 ANKL A1,/300 CO
0x44b5c8…44b75c Dummy {f00=0x0108, f01=0x018e, f02=» 2 P ES* A1,TTB:CB,A5 UPDATE CURRENT SEGMENT BASE P XIF > P* J P IFT MMUPAG=0 T PTLDS40 EQU * j 2 P ST* A1,TTB:CB,A5 UPDATE CURRENT SEGMENT BASE ~ P XIF P* P IFT CPU852=0 P LDR A6,A5 $ P ML 6,TTB:SA+2,A6 REST
0x44b75c…44b8f0 Dummy {f00=0x0108, f01=0x40f0, f02=» n P LD A2,TTB:SA+4,A5 P LD A3,TTB:SA+6,A5 " P LD A4,TTB:SA+8,A5 < P LD A6,TTB:SA+12,A5 V P LD A5,TTB:SA+10,A5 r $ P RTN A15 RETURN TO CALLING TASK P XIF P* P* P* END @ P ML 6,TTB:SA+2,A6 REST
0x44b8f0…44ba84 Dummy {f00=0x0108, f01=0x2008, f02=» NT TLDSEG PREREL.9.1 780907 BOFE END 6@ B
0x44ba84…44bc18 Dummy {f00=0x0108, f01=0x0190, f02=»** r b 4 P************************************************ s P s B PMOVT:A EQU * s J P IFT CREDIT-MMUPAG=1 s ^ P LDR* A1,A8 GET T:A-ADDRESS s z ( P LD A3,WATLEN,A12 GET LENGTH OF WAT s P SLL A3,2 BYTES s , P SU A3,CIA,A1 ADD DISPLACEMENT TO STAR
0x44bc18…44bdac Dummy {f00=0x0108, f01=0x0190, f02=»A-ADDRESS s | $ P SU A1,CIA,A4 'OLD' T:A-ADDRESS t P t : 8 P* COMPUTE AND STORE ADDRESSES TO DATA-SETS IN FCB * t B P t ~ P LD A3,FCD,A12 ANY FCD? t P RF(Z) MOVT10 NO! t P ADR A3,A2 START OF FCB t P LDR A4,A2 SAVE T:A-ADDRESS t 0 P LD
0x44bdac…44bf40 Dummy {f00=0x0108, f01=0x0190, f02=»MOVT05 EQU * t P ADS A4,FCBDD1,A3 u P ADS A4,FCBDD2,A3 u . PMOVT10 RTN A14 u H P XIF u ^ P IFT CREDIT+MMUPAG=2 u j P u P ELR A1,A8 GET T:A-ADDRESS u ( P EL A3,WATLEN,A12 GET LENGTH OF WAT u P SLL A3,2 BYTES u P EL A10,CIA,A1 u $
0x44bf40…44c0d4 (4, 290) Opaque[0x194]
0x44c0d4…44c268 # DirEnt {nam=»TABORT«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x2568, f03=0x0000}
0x44c0d4…44c268 IdxSect {
0x44c0d4…44c268 f00 = 0x012b // 0x44c0d4 @0x0
0x44c0d4…44c268 f01 = 0x0004 // 0x44c0d6 @0x2
0x44c0d4…44c268 gno = [ // 0x44c0d8 @0x4
0x44c0d4…44c268 [0x00]: C0x012b.0x1.0
0x44c0d4…44c268 [0x01]: C0x012b.0x3.0
0x44c0d4…44c268 ]
0x44c0d4…44c268 }
0x44c268…44c3fc Dummy {f00=0x012b, f01=0x0190, f02=» 2 P IDENT TABORT REL 10.0 80-03-14 870105041000 P : P* B P* L 6 P************************************************* V P* $ P* PHILIPS TERMINAL SYSTEM PTS P* " P* TABORT = ABORT I/O REQUEST P* P* P*
0x44c3fc…44c590 Dummy {f00=0x012b, f01=0x0190, f02=»AINS THE | ( P* ABORT I/O REQUEST LKM PROCESSOR. P* < P* F P EJECT TABORT P P* h P* r P*********** | P* ENTRIES * P*********** P* P* P ENTRY TABORT P EJECT TABORT P* P*
0x44c590…44c724 Dummy {f00=0x012b, 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/
0x44c724…44c8b8 Dummy {f00=0x012b, 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
0x44c8b8…44ca4c Dummy {f00=0x012b, 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
0x44ca4c…44cbe0 Dummy {f00=0x012b, 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
0x44cbe0…44cd74 (4, 291) Dummy {f00=0x012b, 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
0x44cd74…44cf08 Dummy {f00=0x012b, 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
0x44cf08…44d09c Dummy {f00=0x012b, f01=0x018e, f02=» : P CF A15,FREBLK I/O AND ACTIVATE. FREE DISPATCHER BLOCK " P CM DWTWAT,A6 INDICATE NO WAIT B P* h PTABO30 EQU * r 8 P LD A2,DWTADR,A6 GET ADDRESS TO DRIVER ADDRESS BLOCK 8 P LD A2,ABTADR,A2 GET ABORT ROUTINE ADDRESS (IF ANY) * P RF(Z) TAB
0x44d09c…44d230 Dummy {f00=0x012b, f01=0x40c4, f02=» t P CF A15,TENDIO ABORT 0 P ABL LKMQDI QUEUE TASK AND GO TO DISPATCHER $ P* X 0 PTABOER ABL LKMRQE GO AND INDICATE LKM ERROR b P* P* P* P END @ D A2,ABTADR,A2 GET ABORT ROUTINE ADDRESS (IF ANY) * P RF(Z) TAB
0x44d230…44d3c4 Dummy {f00=0x012b, f01=0x2008, f02=»
0x44d3c4…44d558 Dummy {f00=0x012b, f01=0x0190, f02=»R r . P ST A2,4,A15 SET DISPATCH ADDRESS ON STACK P XIF < P RF TLDS40 H P* Z P EJECT TLDSEG d P* | P* PTLDS05 EQU * P IFT DSKPAG=1 2 P ST A1,TTB:SB,A3 UPDATE SEGMENT BLOCK ADDRESS " P LDR* A4,A1 GET SEGMENT
0x44d558…44d6ec Dummy {f00=0x012b, f01=0x0190, f02=»* 6 P CF A15,QLTDSK ACTIVATE LOAD TASK AT ENTRY LT:DSK P ABL TDISP GO TO DISPATCHER D P* h PTLDS10 EQU * r $ P SUKL A15,4 ADJUST STACKPOINTER . P ST A2,4,A15 SET DISPATCH ADDRESS ON STACK P XIF P* & PTLDS15 EQU * ENTRY
0x44d6ec…44d880 Dummy {f00=0x012b, f01=0x0190, f02=» l P* & P LDR* A2,A1 GET QUEUE LINK FORWARD * P RF(Z) TLDS20 PAGE BLOCK NOT IN QUEUE < , P LD A4,PAG:QB,A1 GET QUEUE LINK BACKWARD j 4 P CMR A1 RESET QUEUE LINK FORWARD OF REMOVED BLK " P STR A2,A4 UPDATE QUEUE LINKS P ST A4,PAG:QB,A2
0x44d880…44da14 (4, 292) Opaque[0x194]
0x44da14…44dba8 # DirEnt {nam=»MONTIM«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x2580, f03=0x0000}
0x44da14…44dba8 IdxSect {
0x44da14…44dba8 f00 = 0x012c // 0x44da14 @0x0
0x44da14…44dba8 f01 = 0x0006 // 0x44da16 @0x2
0x44da14…44dba8 gno = [ // 0x44da18 @0x4
0x44da14…44dba8 [0x00]: C0x012c.0x0.0
0x44da14…44dba8 [0x01]: C0x012c.0x1.0
0x44da14…44dba8 [0x02]: C0x012c.0x2.0
0x44da14…44dba8 ]
0x44da14…44dba8 }
0x44dba8…44dd3c Dummy {f00=0x012c, f01=0x0190, f02=» 2 P IDENT MONTIM REL 10.0 80-03-14 870105041000 P : P* B P* L < P******************************************************* V P* $ P* PHILIPS TERMINAL SYSTEM PTS P* * P* MONTIM = MONITOR CLOCK PROCESSORS P*
0x44dd3c…44ded0 Dummy {f00=0x012c, 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
0x44ded0…44e064 Dummy {f00=0x012c, f01=0x0190, f02=»TOR CLOCK r P EJECT MONTIM P* * P* 4 P************* > P* EXTERNALS * T P************* j P* P* P EXTRN MONCLO MONITOR CLOCK * P EXTRN LKMQDI QUEUE TASK AND DISPATCH P EXTRN TTB:SA TTAB SAVE AREA
0x44e064…44e1f8 Dummy {f00=0x012c, 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
0x44e1f8…44e38c Dummy {f00=0x012c, f01=0x0190, f02=»ADDRESS TO THE USER TIMER CONTROL 2 P* BLOCK IN A8. MONITOR CLOCK IS COPIED INTO * P* TIMER CONTROL BLOCK. ` P* P* PGETTIM EQU * 6 P LDKL A7,MONCLO+6 ADDRESS TO MONITOR CLOCK SECOND P LDK A3,6 COUNTER P LDR* A6,A
0x44e38c…44e520 Dummy {f00=0x012c, f01=0x0190, f02=» A7,2 P LDR* A6,A7 HOURS P ENB ( P* 4 * PGETT10 CF A15,BYTASC CONVERT TO ASCII > P IFT MMUPAG=0 l * P SC A6,1,A8 STORE RIGHTHAND CHARACTER P ECR A6,A6 ( P SCR A6,A8 STORE LEFTHAND CHARACTER P XIF P* P EJE
0x44e520…44e6b4 (4, 293) Dummy {f00=0x012c, f01=0x0190, f02=» GETT15 TCB ADDRESS EVEN P LDR A1,A6 P EL A4,1,A8 2 P ANK A4,/FF F P SLL A1,8 Z P ORR A1,A4 l P ES A1,1,A8 ~ P ELR A4,A8 P SRL A6,8 P ANKL A4,/FF00 P ORR A6,A4 P* 6 PGETT15 ESR A6,A8 SET VALUE IN TI
0x44e6b4…44e848 Dummy {f00=0x012c, f01=0x0190, f02=»ROM STACK r P RB GETT10 P* $ P EJECT MONTIM . P* F P* P PGETT20 SUK A7,2 Z . P LDR* A6,A7 GET ACCUMULATED 24 HOUR CARRY r 2 P ST A6,TTB:SA+14,A5 STORE IN TTAB SAVE AREA A7 P CMR A7 CLEAR MIDNIGTH CARRY P* P
0x44e848…44e9dc Dummy {f00=0x012c, f01=0x0190, f02=»E LKM PROCESSOR. x P* 0 P* IT IS ENTERED FROM THE LKM HANDLER WITH " 0 P* ADDRESS TO THE USER TIMER CONTROL BLOCK V 0 P* IN A8. VALUE IN TIMER CONTROL BLOCK IS $ P* COPIED INTO MONITOR CLOCK. P* P* PSETTIM EQU *
0x44e9dc…44eb70 Dummy {f00=0x012c, f01=0x0190, f02=» MMUPAG=0 & P LCR A6,A8 GET LEFTHAND CHARACTER P ECR A6,A6 < ( P LC A6,1,A8 GET RIGHTHAND CHARACTER N P XIF z P* P IFT MMUPAG=1 2 P ELR A6,A8 GET VALUE FROM TIMER CONTROL BLOCK . P LDR A4,A8 GET TIMER CONTROL BLOCK ADDRESS
0x44eb70…44ed04 Dummy {f00=0x012c, f01=0x018e, f02=»RL A4,8 P ORR A6,A4 P* " PSETT15 EQU * , P XIF @ P* L P EJECT MONTIM V P* n P* x $ P CF A15,ASCTBY CONVERT TO BINARY P SUK A3,2 END P RF(E) SETT20 P ADKL A8,2 0 P STR A6,A15 SAVE ON STACK (HOURS
0x44ed04…44ee98 Dummy {f00=0x012c, f01=0x0190, f02=» P LDR* A6,A15 ( P STR A6,A7 MINUTES TO MONITOR CLOCK P SUK A7,2 H P LDR* A6,A15 Z & P STR A6,A7 HOURS TO MONITOR CLOCK n P SUK A7,2 P CMR A7 RESET MIDNIGTH CARRY P RB TPDIS P* P EJECT MONTIM P*
0x44ee98…44f02c Dummy {f00=0x012c, f01=0x0190, f02=»A6. x P* P* PBYTASC EQU * P LDK A4,0 4 P* F PBYTA10 SUK A6,/A P P RF(N) BYTA20 h P ADKL A4,/100 ~ P RB BYTA10 P* PBYTA20 ADK A6,/A P ADR A6,A4 P ORKL A6,/3030 P RTN A15 P*
0x44f02c…44f1c0 Dummy {f00=0x012c, f01=0x414a, f02=» l P* RESULT IN A6. P* , P* 6 PASCTBY EQU * @ P LDR A4,A6 T P ANK A6,/F f P SRL A4,8 x P ANK A4,/F P RF(E) ASCT20 P* PASCT10 ADK A6,/A P SUK A4,1 P RB(NE) ASCT10 P* PAS
0x44f1c0…44f354 (4, 294) Dummy {f00=0x012c, 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
0x44f354…44f4e8 Dummy {f00=0x012c, f01=0x018e, f02=»RESS BLOCK f 8 P LD A2,ABTADR,A2 GET ABORT ROUTINE ADDRESS (IF ANY) * P RF(Z) TABO10 NO SPECIAL ABORT ROUTINE N & P CFR A15,A2 PERFORM ABORT ROUTINE | P* PTABO10 EQU * $ P CF A15,TENDIO ABORT ECHO DEVICE P LDR A6,A8 RESTORE DWT
0x44f4e8…44f67c Dummy {f00=0x012c, f01=0x018e, f02=» : P CF A15,FREBLK I/O AND ACTIVATE. FREE DISPATCHER BLOCK " P CM DWTWAT,A6 INDICATE NO WAIT B P* h PTABO30 EQU * r 8 P LD A2,DWTADR,A6 GET ADDRESS TO DRIVER ADDRESS BLOCK 8 P LD A2,ABTADR,A2 GET ABORT ROUTINE ADDRESS (IF ANY) * P RF(Z) TAB
0x44f67c…44f810 Dummy {f00=0x012c, f01=0x40c4, f02=» t P CF A15,TENDIO ABORT 0 P ABL LKMQDI QUEUE TASK AND GO TO DISPATCHER $ P* X 0 PTABOER ABL LKMRQE GO AND INDICATE LKM ERROR b P* P* P* P END @ D A2,ABTADR,A2 GET ABORT ROUTINE ADDRESS (IF ANY) * P RF(Z) TAB
0x44f810…44f9a4 Dummy {f00=0x012c, f01=0x2008, f02=»
0x44f9a4…44fb38 Dummy {f00=0x012c, f01=0x0190, f02=» v P* PSYSBAS EQU * PSAVCON DATA BUFLEN & 2 PMXBUF DATA 0 DISC/FLEXIBLE DISC BUFFER ADDRESS @ PSAVMEM DATA 0 SAVE AREA v & PCYLNBR DATA /FFFF CYLINDER NUMBER ( PSECNBR DATA 0 PHYSICAL SECTOR NUMBER " PDEVTAB DATA /1909,/1101,/082
0x44fb38…44fccc Dummy {f00=0x012c, f01=0x0190, f02=»***** T F P* CALL-FORMAT, PERFORMS: CFR A14,A13 * F P* DATA [REL-ADDRESS] * X F P* * F P****************************
0x44fccc…44fe60 Dummy {f00=0x012c, f01=0x0190, f02=»**************** P* CONDITIONAL ASSEMBLY * P************************** : 0 PCASS EQU 1 1-PROGRAM LOAD DEVICE = CASSETTE , PDISC EQU 1 1-PROGRAM LOAD DEVICE = DISC 8 PFLDISC EQU 1 1-PROGRAM LOAD DEVICE = =FLEXIBLE DISC 8 PMFDISC EQU 1
0x44fe60…44fff4 (4, 295) Opaque[0x194]
0x44fff4…450188 # DirEnt {nam=»TOSSFM«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x2598, f03=0x0000}
0x44fff4…450188 IdxSect {
0x44fff4…450188 f00 = 0x012c // 0x44fff4 @0x0
0x44fff4…450188 f01 = 0x000a // 0x44fff6 @0x2
0x44fff4…450188 gno = [ // 0x44fff8 @0x4
0x44fff4…450188 [0x00]: C0x012c.0x3.0
0x44fff4…450188 [0x01]: C0x012d.0x0.0
0x44fff4…450188 [0x02]: C0x012d.0x1.0
0x44fff4…450188 [0x03]: C0x0149.0x0.0
0x44fff4…450188 [0x04]: C0x0149.0x2.0
0x44fff4…450188 ]
0x44fff4…450188 }
0x450188…45031c Dummy {f00=0x012c, f01=0x0190, f02=» 2 P IDENT TOSSFM REL 10.0 80-03-14 870105041000 P : P* B P* L 6 P************************************************** V P* 6 P* PHILIPS TERMINAL SYSTEM PTS * P* 6 P* TOSSFM = TOSS FILE MANAGEMENT LKM PROC
0x45031c…4504b0 Dummy {f00=0x012c, f01=0x0190, f02=» TOSS FILE MANAGEMENT LKM PROCESSOR HANDLES 4 P* PREPARATIONS FOR DISC I/O, AND ACTIVATION OF 4 2 P* THE FILE MANAGEMENT TASK (FMTASK) FOR FILE l " P* ADMINISTRATION FUNCTIONS. P* P* P EJECT TOSSFM P* P* P
0x4504b0…450644 Dummy {f00=0x012c, f01=0x018e, f02=» ENTRY FCHECK CHECK ACCESS PAR. AND RETURN FWT ADDRESS " P ENTRY FCHEC2 FCHECK 2ND ENTRY > P EJECT TOSSFM d P* | P* P************* P* EXTERNALS * P************* P* P* P EXTRN FMRDWR FM READ/WRITE .
0x450644…4507d8 Dummy {f00=0x012c, f01=0x0190, f02=» " P EXTRN TIO:FM FM ENTRY IN TIO , P EXTRN ACTDIS ACTIVATE TASK AND DISPATCH * " P EXTRN FNDDWD FIND DWT ADDRESS Z 0 P EXTRN TIOERR ERROR: QUEUE TASK AND DISPATCH * P EXTRN SCTFWT FWT CHAIN START ADDRESS " P EXTRN SCTNOF NUMBER OF FILES ( P
0x4507d8…45096c Dummy {f00=0x012c, f01=0x0190, f02=»LOCK IN FWT n P EXTRN EWTEXL EXTENT LENGTH P EXTRN EWTEXB EXTENT BASE 8 " P EXTRN EWTVOL VOLUME FILE CODE Z & P EXTRN ECBRL ECB REQUESTED LENGTH $ P EXTRN ECBCW1 ECB CONTROL WORD 1 $ P EXTRN ECBCW2 ECB CONTROL WORD 2 P EXTRN DWTST D
0x45096c…450b00 Dummy {f00=0x012c, f01=0x0190, f02=»L ASSEMBLY P* , P**************************************** P* L . P* A PROGRAM VERSION USING TOSS MMU PAGING V * P* IS OBTAINED BY SETTING MMUPAG EQU 1. P* PMMUPAG EQU 1 P* P* 6 P* A PROGRAM VERSION USING THE EX
0x450b00…450c94 (4, 296) Dummy {f00=0x012d, f01=0x0190, f02=»M VERSION SUPPORTING SPLIT EXTENT I/O * P* IS OBTAINED BY SETTING XTSPLI EQU 1. . P* PXTSPLI EQU 0 f P* z P EJECT TOSSFM P* P* P********** P* TOSSFM * P********** P* P* 8 P* THIS IS TH
0x450c94…450e28 Dummy {f00=0x012d, f01=0x0190, f02=» n P* P* A5 = TTAB ADDRESS P* A7 = ORDER CODE 0 P* A8 = ECB ADDRESS L P* h . P* WHEN FILE ADMINISTRATION IS REQUESTED, r ( P* TOSSFM WILL ACTIVATE THE FMTASK. P* . P* WHEN I/O FUNCTION IS REQUESTED, TOSSFM
0x450e28…450fbc Dummy {f00=0x012d, f01=0x0190, f02=»JECT TOSSFM P* P* 4 PTOSSFM EQU * FILE MANAGEMENT LKM PROCESSOR ENTRY * P* b P* CHECK ORDER CODE l P* LDR A2,A7 ORDER CODE P ANK A2,/FF SKIP OPTION P XRK A2,/80 WAIT BIT SUK A2,/01 P RF(Z) FM:
0x450fbc…451150 Dummy {f00=0x012d, f01=0x0190, f02=»E x SUK A2,/11-/05 P RF(Z) FM:030 PHYSICAL READ " SUK A2,/15-/11 F P RF(Z) FM:030 PHYSICAL WRITE ^ SUK A2,/21-/15 $ P RF(Z) FM:010 OPEN/CREATE/EXTEND SUK A2,/22-/21 4 P RF(NZ) FM:RQE REQUEST ERROR IF NOT CLOSE/DELE
0x451150…4512e4 Dummy {f00=0x012d, f01=0x0190, f02=»ARAMETERS: h * " P* A1 = ORDER CODE AND OPTION * A2 = DISPATCH ADDRESS B * %* A3 = TTAB ADDRESS OF CALLING TASK d P* A4 = ECB ADDRESS * A5 = FMTASK TTAB ADDRESS * PFM:010 EQU * $ P LDR A1,A7 ORDER CODE AN
0x4512e4…451478 Dummy {f00=0x012d, f01=0x0190, f02=»DR A4,A8 ECB ADDRESS ( # LDKL A5,TTABFM FMTASK TTAB ADDRESS , P ABL ACTDIS ACTIVATE FMTASK AND DISPATCH H * x EJECT TOSSFM * * ********** * FM I/O * ********** * $ * FILE MANAGEMENT I/O FUNC
0x451478…45160c Dummy {f00=0x012d, f01=0x0190, f02=»DK A1,0 CHECK RETURN CODE P RF(Z) FM:050 OK " * : PFM:040 EQU * D P LDR A3,A1 RETURN CODE X . P ABL TIOERR ERROR: QUEUE TASK AND DISPATCH v * EJECT TOSSFM * " P* CHECK RELATIVE SECTOR NUMBER * PFM:0
0x45160c…4517a0 Dummy {f00=0x012d, f01=0x0190, f02=» MMUPAG=1 , ' EL A1,ECBCW1,A8 RELATIVE SECTOR NUMBER EL A2,ECBCW2,A8 B XIF Z * f P RF(NZ) FM:060 p ADK A1,0 , P RF(Z) FM:RQE RELATIVE SECTOR NUMBER = 0 * PFM:060 EQU * P ECR A6,A1 P ANK A6,/FF
0x4517a0…451934 (4, 297) Dummy {f00=0x012d, f01=0x0190, f02=»RE d P LDKL A14,/7FFF P* " P EJECT TOSSFM , P* D ( P* SEARCH THE FILE EXTENT THAT HOLDS N P* THE REQUESTED SECTORS z * PFM:070 EQU * * P LC A6,EWTEXL-1,A3 FILE EXTENT LENGTH P LD A7,EWTEXL,A3 " P CWR A1,A6
0x451934…451ac8 Dummy {f00=0x012d, f01=0x0190, f02=»ENT FOUND ~ * PFM:080 EQU * P IFT CPU852=0 0 . P DSR A6 SUBTRACT LENGTH FROM SECTOR NUMBER F P XIF x P* P IFT CPU852=1 2 P SUR A1,A6 SUBTRACT LENGTH FROM SECTOR NUMBER P SUR A2,A7 P RF(NN) FM:090 NOT UNDERFLOW
0x451ac8…451c5c Dummy {f00=0x012d, f01=0x0190, f02=»DRESS TO 2ND EWT BLOCK . ) LDR* A3,A3 ADDRESS TO NEXT EWT STRUCTURE $ P RB(NZ) FM:070 CHECK NEXT EXTENT P * x 4 /FM:RQE EQU * FILE MANAGEMENT REQUEST ERROR EXIT P LDKL A1,/A000 REQUEST ERROR P RB FM:040 * EJECT TOSSF
0x451c5c…451df0 Dummy {f00=0x012d, f01=0x0190, f02=» LC A10,EWTEXB-1,A4 FILE EXTENT BASE P LD A11,EWTEXB,A4 , * F IFT CPU852=0 P " P DAR A10 COMPUTE SECTOR NUMBER f XIF * IFT CPU852=1 & P ADR A1,A10 COMPUTE SECTOR NUMBER P ADR A2,A11 RF(O) FM:140 OVER
0x451df0…451f84 Dummy {f00=0x012d, f01=0x018e, f02=»ON t SUK A1,1 * EJECT TOSSFM & * > * H PFM:115 EQU * R " P LDR A12,A1 SAVE SECTOR NUMBER f P LDR A13,A2 P* IFT MMUPAG=0 . P LC A3,ECBRL,A8 REQUESTED LENGTH (SECTORS) XIF *
0x451f84…452118 Dummy {f00=0x012d, f01=0x0190, f02=» . P ADR A2,A3 COMPUTE LAST REQUESTED SECTOR+1 RF(O) FM:150 OVERFLOW 6 * T PFM:120 EQU * ^ 0 P ADR A6,A10 COMPUTE LAST SECTOR+1 IN EXTENT r P ADR A7,A11 P RF(O) FM:160 OVERFLOW * PFM:125 EQU * P CWR A6,A1 0 P
0x452118…4522ac Dummy {f00=0x012d, f01=0x0190, f02=» P CWR A7,A2 4 P RB(L) FM:RQE ALL SECTORS NOT WITHIN THIS EXTENT P XIF N P* Z P IFT XTSPLI=1 d 4 P RF(L) FM:170 ALL SECTORS NOT WITHIN THIS EXTENT z P CWR A7,A2 4 P RF(L) FM:170 ALL SECTORS NOT WITHIN THIS EXTENT P XIF
0x4522ac…452440 Dummy {f00=0x012d, f01=0x0190, f02=» = DISC INDEX (FROM FNDDWD) 0 P* A4 = 0 (INDICATES NOT I/O-AND-ACTIVATION) $ P* A5 = TTAB ADDRESS X * P* A6 = DISC DWT ADDRESS (FROM FNDDWD) t P* A7 = ORDER CODE P* A8 = ECB ADDRESS * PFM:130 EQU * $ P LC A2,EWTVOL,A4 FIL
0x452440…4525d4 (4, 298) Dummy {f00=0x0149, f01=0x018e, f02=» CODE x P LD A1,DWTST,A6 DWT STATUS , P ABL(NN) QUEDEV DISC BUSY, QUEUE REQUEST 0 P* ` P IFT MMUPAG=0 j . P ST A12,ECBCW1,A8 SET SECTOR NUMBER IN ECB P ST A13,ECBCW2,A8 P XIF P* P IFT MMUPAG=1 . P ES A12,ECBCW1,A
0x4525d4…452768 Dummy {f00=0x0149, f01=0x0190, f02=» EJECT TOSSFM * 6 2* OVERFLOW CORRECTIONS FOR DOUBLE WORD ARITHMETICS & * ` FM:140 EQU * j P IFT CPU852=1 ~ ADK A1,1 P ANR A2,A14 SKIP SIGN BIT P RB FM:110 P XIF * FM:150 EQU * ADK
0x452768…4528fc Dummy {f00=0x0149, f01=0x0190, f02=»BIT z P RB FM:125 * EJECT TOSSFM ( P* @ 0 P* REQUESTED SECTORS CONTINUE IN NEXT EXTENT J P* ~ PFM:170 EQU * IFT XTSPLI=1 & P LDR A1,A4 EWT ADDRESS (2ND BLOCK) $ LDKL A2,FMRDWR DISPATCH ADDRESS ****
0x4528fc…452a90 Dummy {f00=0x0149, f01=0x0190, f02=»** P* FCHECK * P* FCHEC2 * P********** . P* @ P* J 6 P* FCHECK/FCHEC2 CONVERTS THE FILE NUMBER TO FWT T . P* ADDRESS AND CHECKS ACCESS PARAMETERS. P* " P* INPUT: A5 = TTAB ADDRESS P* A7 = ORDER C
0x452a90…452c24 Dummy {f00=0x0149, f01=0x0190, f02=»* A2 IS DESTROYED P* " PFCHECK EQU * FCHECK MAIN ENTRY & P IFT MMUPAG=0 L P LDR* A2,A8 FILE NUMBER b P XIF P* P IFT MMUPAG=1 P ELR A2,A8 FILE NUMBER P XIF P* 4 PFCHEC2 EQU * FCHECK 2ND ENTRY (A2 = FI
0x452c24…452db8 Dummy {f00=0x0149, f01=0x0190, f02=»UMBER TOO BIG | 0 P LDKL A3,SCTFWT ADDRESS TO FWT CHAIN POINTER P* J P EJECT TOSSFM T P* l P* v $ PFC:010 EQU * COMPUTE FWT ADDRESS P LDR* A3,A3 NEXT FWT ADDRESS P SUK A2,1 P RB(P) FC:010 P* P* CHECK AC
0x452db8…452f4c Dummy {f00=0x0149, f01=0x0190, f02=»1 CHECK IF FWT USED " P RF(Z) FC:050 FILE NOT OPENED , P LD A2,FWTTAB,A3 TTAB ADDRESS (EA TASK) B ( P RF(Z) FC:020 OPENED NON-EXCLUSIVELY r & P CWR A2,A5 EA, CHECK IF THIS TASK . P RF(NE) FC:060 EXCLUSIVE FOR ANOTHER TASK P* PFC:0
0x452f4c…4530e0 Dummy {f00=0x0149, f01=0x0190, f02=»CAL ORDERS | P ANK A7,/85 BASIC ORDER P* 2 , PFC:040 EQU * COMMON FCHECK RETURN LABEL < P RTN A15 l P* | P EJECT TOSSFM P* P* ERROR RETURNS P* $ PFC:050 EQU * REQUEST ERROR EXIT & P LDKL A1,/7FC0 RETURN
0x4530e0…453274 (4, 299) Dummy {f00=0x0149, f01=0x4088, f02=»OLUME LOADED EXIT ~ " P ADK A1,/20 RETURN CODE = /20 P RB FC:040 RETURN @ P* Z * d * n END x@
0x453274…453408 Dummy {f00=0x0149, f01=0x2008, f02=» O t * * * & END 0@ <:127 : XIF L * X EJECT TOSSFM b * z * 8 3FM:170 EQU * MAKE ALL PARAMETERS READY FOR DISC I/O $ LC A2,EWTVOL,A3 FILE CODE DISC ( $ CF A15,FNDDW2 FIND DI
0x453408…45359c Dummy {f00=0x0149, f01=0x0000, f02=»
[…0x5…]
0x453d80…453f14 (4, 300) Opaque[0x194]
0x453f14…4540a8 # DirEnt {nam=»FMTASK«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x29a0, f03=0x0000}
0x453f14…4540a8 IdxSect {
0x453f14…4540a8 f00 = 0x014d // 0x453f14 @0x0
0x453f14…4540a8 f01 = 0x001e // 0x453f16 @0x2
0x453f14…4540a8 gno = [ // 0x453f18 @0x4
0x453f14…4540a8 [0x00]: C0x014d.0x0.0
0x453f14…4540a8 [0x01]: C0x014d.0x1.0
0x453f14…4540a8 [0x02]: C0x014d.0x2.0
0x453f14…4540a8 [0x03]: C0x014d.0x3.0
0x453f14…4540a8 [0x04]: C0x014e.0x0.0
0x453f14…4540a8 [0x05]: C0x014e.0x1.0
0x453f14…4540a8 [0x06]: C0x014e.0x2.0
0x453f14…4540a8 [0x07]: C0x014e.0x3.0
0x453f14…4540a8 [0x08]: C0x014f.0x0.0
0x453f14…4540a8 [0x09]: C0x014f.0x1.0
0x453f14…4540a8 [0x0a]: C0x014f.0x2.0
0x453f14…4540a8 [0x0b]: C0x014f.0x3.0
0x453f14…4540a8 [0x0c]: C0x0150.0x0.0
0x453f14…4540a8 [0x0d]: C0x0150.0x1.0
0x453f14…4540a8 [0x0e]: C0x0150.0x2.0
0x453f14…4540a8 ]
0x453f14…4540a8 }
0x4540a8…45423c Dummy {f00=0x014d, f01=0x0190, f02=» 2 P IDENT FMTASK REL 10.0 80-03-15 870105041000 P : * B * L 6 2************************************************** V * 6 2* PHILIPS TERMINAL SYSTEM PTS * * 6 2* FMTASK = TOSS FILE MANAGEMENT TASK
0x45423c…4543d0 Dummy {f00=0x014d, f01=0x0190, f02=» TOSS FILE MANAGEMENT TASK CONTAINS THE . ** FOLLOWING FILE ADMINISTRATION MODULES: 0 * b * &* - FMOPEN OPEN/CREATE/EXTEND FILE l $ * - FMCLOS CLOSE/DELETE FILE ( #* - FMRDFP READ FILE PARAMETERS * ( P* A SPECIAL EN
0x4543d0…454564 Dummy {f00=0x014d, f01=0x0190, f02=»* - FMRDWR READ/WRITE (SPLIT EXTENT I/O) * 4 0 P* FMTASK ALSO CONTAINS THE FILE MANAGEMENT > . P* SYSTEM INITIALIZATION ROUTINE, FMINIT. r P* * EJECT FMTASK * * *********** * ENTRIES *
0x454564…4546f8 Dummy {f00=0x014d, f01=0x0190, f02=»S h 0 P ENTRY FMINIT FILE MANAGEMENT INITIALIZATION ENTRY TTABFM FMTASK TTAB > ( P ENTRY FWTPAR FILE ACCESS PARAMETERS ` P ENTRY FWTFNR FILE NUMBER 6 P ENTRY FWTTAB TTAB FOR TASK WITH EXCLUSIVE ACCESS 2 P ENTRY FWTEW1 POINTER TO 2ND EWT
0x4546f8…45488c Dummy {f00=0x014d, f01=0x0190, f02=»GTH x P ENTRY EWTEXB EXTENT BASE " P ENTRY EWTVOL VOLUME FILE CODE . P* T P EJECT FMTASK ^ P* v P* ENTRY FPB:RL RECORD LENGTH ENTRY FPB:BF BLOCK FACTOR $ ENTRY FPB:FO FILE ORGANIZATION ENTRY FPB:BO BA
0x45488c…454a20 Dummy {f00=0x014d, f01=0x0190, f02=» | ENTRY FPB:V2 VOLUME NAME 2 ENTRY FPB:S2 SIZE 2 , ENTRY FPB:V3 VOLUME NAME 3 H ENTRY FPB:S3 SIZE 3 l ENTRY FPB:V4 VOLUME NAME 4 ENTRY FPB:S4 SIZE 4 $ ENTRY FPB:FR FILE RECORD NUMBER " ENTRY FPB:US NUMBER OF
0x454a20…454bb4 (4, 301) Dummy {f00=0x014d, f01=0x0190, f02=»F NUMBER OF INDEX FILES ( # ENTRY FPB:KA KEY ADDRESS IN RECORD P ENTRY FPB:CD CREATION DATE L " P ENTRY FPB:RP RETENTION PERIOD p EJECT FMTASK * * ************* * EXTERNALS * ************* *
0x454bb4…454d48 Dummy {f00=0x014d, f01=0x0190, f02=»BLK GET PARAMETERS FROM MONITOR BLOCK 0 P EXTRN FNDTID FIND TTAB ADDRESS FROM TASK ID . ( P EXTRN FNDDWD FIND DISC DWT ADDRESS b : 6 EXTRN FCHECK CHECK ACCESS PAR. AND RETURN FWT ADDRESS " P EXTRN FCHEC2 FCHECK 2ND ENTRY 4 0 EXTRN LKMERR HALT SYS
0x454d48…454edc Dummy {f00=0x014d, f01=0x0190, f02=»FTAB z " P EXTRN SCTNOF NUMBER OF FILES * P EXTRN SCTFWT FWT CHAIN START ADDRESS 2 ( P EXTRN SCTFWL FILE WORK TABLE LENGTH ` $ P EXTRN SCTDMT DM TASKS IN SYSTEM P EXTRN NVLTAB NVL TABLE $ P EXTRN NVLDMT DM TASK NVL TABLE P EXTRN NVLEN
0x454edc…455070 Dummy {f00=0x014d, f01=0x0190, f02=» EXTRN DWTMEC MMU ECB ADDRESS P EXTRN DWTVOL VOLUME NAME & P EXTRN DWTNVL NVL INDICATOR H 2 P EXTRN FDBMEC FDB MMU ECB DISPLACEMENT IN FWT l P* P EJECT FMTASK P* P* P EXTRN TTB:MT MMU TABLE P EXTRN TTB:SA SA
0x455070…455204 Dummy {f00=0x014d, f01=0x0190, f02=»ETURN CODE ~ P EXTRN ECBCW1 CONTROL WORD 1 P EXTRN ECBCW2 CONTROL WORD 2 6 EJECT FMTASK Z * r * | , '*************************************** * * CONDITIONAL ASSEMBLY * , '********************************
0x455204…455398 Dummy {f00=0x014d, f01=0x0190, f02=»AG EQU 1 * * 6 2* A PROGRAM VERSION USING THE EXTENDED INSTRUCTION $ . ** SET IS OBTAINED BY SETTING CPU852 EQU 0. ^ * PCPU852 EQU 0 * * 4 /* A PROGRAM VERSION SUPPORTING SPLIT EXTENT I/O * &* IS OBTAINED
0x455398…45552c Dummy {f00=0x014d, f01=0x0190, f02=» | P* VL DISPLACEMENTS * P******************** $ P* @ P* VOLUME LABEL DISPLACEMENTS J P* n PVOL:VN EQU 0 VOLUME NAME x $ PVOL:EL EQU 6 VTOC EXTENT LENGTH " PVOL:EB EQU 10 VTOC EXTENT BASE $ PVOL:RL EQU 12 VTOC RECORD LENGTH
0x45552c…4556c0 Dummy {f00=0x014d, f01=0x0190, f02=»* $ PVTOCRL EQU 42 VTOC RECORD LENGTH " PVTOCBF EQU 6 VTOC BLOCK FACTOR 2 P* X P EJECT FMTASK b P* z P* P********************** P* VTOC DISPLACEMENTS * P********************** P* , P* VOLUME TABLE OF CONT
0x4556c0…455854 (4, 302) Dummy {f00=0x014d, f01=0x0190, f02=»NUMBER (S-FILE) v " PVTC:SN EQU 9 SOP SWITCH NUMBER $ PVTC:EN EQU 10 FILE EXTENT NUMBER > $ PVTC:EL EQU 12 FILE EXTENT LENGTH f " PVTC:EB EQU 16 FILE EXTENT BASE $ PVTC:LR EQU 20 LAST RECORD NUMBER PVTC:RL EQU 24 RECORD LENGTH PVTC:BF E
0x455854…4559e8 Dummy {f00=0x014d, f01=0x0190, f02=» ( PVTC:IF EQU 37 NUMBER OF INDEX FILES ( PVTC:KA EQU 38 KEY ADDRESS IN RECORD 0 PVTC:ST EQU 41 STATUS BYTE P* ~ P EJECT FMTASK P* P* P********************* P* FWT DISPLACEMENTS * P*********************
0x4559e8…455b7c Dummy {f00=0x014d, f01=0x0190, f02=»TBAS EQU FWTLNK+/10 P XIF P* ( P IFT MMUPAG=1 2 PFWTBAS EQU FWTLNK+/14 H P XIF f P* r < PFWTVTC EQU FWTBAS+/00 VTOC SECTOR NUMBER (FIRST EXTENT) | 0 PFWTPAR EQU FWTBAS+/02 FILE ACCESS PARAMETERS & PFWTFNR EQU FWTBAS+/03 FI
0x455b7c…455d10 Dummy {f00=0x014d, f01=0x0190, f02=»T 4 PFWTSEX EQU FWTBAS+/08 FILE SECTION/EXTENT NUMBER B PFWTEXL EQU FWTBAS+/0A EXTENT LENGTH IN SECTORS (FIRST EXTENT) B 8 PFWTEW2 EQU FWTBAS+/0C POINTER TO NEXT EWT STRUCTURE : PFWTVOL EQU FWTBAS+/0E VOLUME FILE CODE (FIRST EXTENT) 4 PFWTEXB
0x455d10…455ea4 Dummy {f00=0x014d, f01=0x0190, f02=» P********************* P* EWT DISPLACEMENTS * & P********************* D P* b & P* EXTENT WORK TABLE DISPLACEMENTS l P* $ PEWTLNK EQU 0 LINK NEXT EWT BLOCK P* P* BLOCK 1 P* , PEWTSEX EQU 2 FILE SECTION/
0x455ea4…456038 Dummy {f00=0x014d, f01=0x0190, f02=» r PEWTEXB EQU 4 EXTENT BASE P* ( 0 PEWTLEN EQU 6 EXTENT WORK TABLE BLOCK LENGTH 2 P* f EJECT FMTASK p * * ********************* * FPB DISPLACEMENTS * ********************* * ( $* FILE P
0x456038…4561cc Dummy {f00=0x014d, f01=0x018e, f02=»NIZATION z FPB:BO EQU 5 BASIC ORDERS FPB:FN EQU 8 FILE NAME 2 FPB:EL EQU 17 ENLARGE P FPB:V1 EQU 18 VOLUME NAME 1 n FPB:S1 EQU 24 SIZE 1 FPB:V2 EQU 28 VOLUME NAME 2 FPB:S2 EQU 34 SIZE 2 FPB:V3 EQU 38 VOLUME NAME
0x4561cc…456360 Dummy {f00=0x014d, f01=0x0190, f02=» n " FPB:US EQU 62 NUMBER OF USERS FPB:SH EQU 64 SHAREABILITY . FPB:MN EQU 65 MONITOR NUMBER P $ FPB:SN EQU 66 SOP SWITCH NUMBER t ( #FPB:IF EQU 67 NUMBER OF INDEX FILES ( #FPB:KA EQU 68 KEY ADDRESS IN RECORD PFPB:CD EQU 70 CREATI
0x456360…4564f4 (4, 303) Dummy {f00=0x014d, f01=0x0190, f02=»ASK * * TTABFM (FMTASK TTAB) * 4 IFT MMUPAG=1 > RES 16 FMTASK MMU TABLE T XIF t * ( P DATA 0 CURRENT SEGMENT BASE (DUMMY) 2 PVOLUME DATA 0 CURRENT VOLUME NAME DISPLACEMENT " DATA 0 SEGMENT BLOCK ADDRES
0x4564f4…456688 Dummy {f00=0x014d, f01=0x0190, f02=»49 PRIORITY LEVEL DATA 0 PENDING POINTER * P DATA /C4C0 PSW (PROGRAM STATUS WORD) : DATA 0 DISPATCH ADDRESS h 2 . DATA 0,0,0,0,0,0,0 REGISTER SAVE AREA, A1-A14 $ P DATA FM:ECB A8 = FM:ECB ADDRESS P DATA 0,0,0,0,0,0 *
0x456688…45681c Dummy {f00=0x014d, f01=0x0190, f02=»0,0 * P RES 6 FMTASK STACK $ FM:STB EQU *-2 FMTASK STACK BASE 2 * Z P IFT MMUPAG=1 d , PFM:FPB RES 40 FILE PARAMETER BLOCK AREA z P XIF P* P EJECT FMTASK P* P* P********** P* FMINIT *
0x45681c…4569b0 Dummy {f00=0x014d, f01=0x0190, f02=»INIT AFTER IPL AND AT POWER ON. x > P* WHEN CALLED AT POWER ON, AN IMMEDIATE RETURN IS MADE. ( P* j < P* FMINIT WILL ZEROIZE THE FWT AREA, AND LINK THE FWT:S t < P* TOGETHER. THE POINTER FWTEW1 IS ALSO INITIALIZED, AS & P* WELL AS FWTFNR (
0x4569b0…456b44 Dummy {f00=0x014d, f01=0x0190, f02=»TASK. ^ P* PFMINIT EQU * FMINIT ENTRY * P LDKL A1,/F03E RTNA15 INSTRUCTION CODE : P ST A1,FMINIT CLOSE THE DOOR h P* P EJECT FMTASK P* P* 8 PFM:BUF EQU FMINIT+2 START OF FMTASK INTERNAL BUFFER P* P
0x456b44…456cd8 Dummy {f00=0x014d, f01=0x0190, f02=» P LDKL A6,/8000 DWT BUSY BIT $ P LDKL A7,TIODM DM ADDRESS BLOCK , P* T PFMI:30 EQU * ^ P IFT MMUPAG=1 r 4 P LDKL A8,FDBMEC FDB MMU ECB DISPLACEMENT IN FWT P ADR A8,A1 MMU ECB ADDRESS P XIF P* " P LDR A2,A1 CURRE
0x456cd8…456e6c Dummy {f00=0x014d, f01=0x0190, f02=» FMI:50 INITIALIZATION COMPLETED , P RF(Z) FMI:40 ONE FWT LEFT TO INITIALIZE ( 0 P STR A3,A1 LINK CURRENT FWT TO THE NEXT FWT X $ P ADK A1,2 INCREMENT FWT POINTER P* P EJECT FMTASK P* P* PFMI:40 EQU * P CMR A1
0x456e6c…457000 Dummy {f00=0x014d, f01=0x018e, f02=»A3,SCTFWL " P ADK A3,FWTEW2 FWTEW2 ADDRESS . P ST A3,FWTEW1,A2 INITIALIZE FWTEW1 POINTER 8 , P ST A5,FWTFNR,A2 SET FILE NUMBER IN FWT j * P ST A6,DWTST,A2 INDICATE FWT NOT BUSY : P ST A7,DWTADR,A2 DM ADDRESS BLOCK (ACTIVATION ADDRESS) P*
0x457000…457194 (4, 304) Dummy {f00=0x014e, f01=0x0190, f02=» P* P EJECT FMTASK P* & 4 P* FILL IN NVLTAB WITH DM TTAB ADDRESSES (IF ANY) 0 P* h PFMI:50 EQU * r $ P LD A1,SCTDMT DM TASKS IN SYSTEM ( P RF(Z) FMI:75 NO DM TASKS IN SYSTEM P LDK A3,4 LOOP COUNTER & P LDKL A4,NVLDMT
0x457194…457328 Dummy {f00=0x014e, f01=0x0190, f02=»DM TASK NOT IN SYSTEM | , P CF A15,FNDTID FIND DM TASK TTAB ADDRESS P STR A2,A4 STORE IN NVLTAB N P* p PFMI:70 EQU * z & P ADK A4,2 INCREMENT NVLTAB POINTER P ADK A7,1 NEXT DM TASK ID $ P SUK A3,1 DECREMENT LOOP COUNTER P RB(P)
0x457328…4574bc Dummy {f00=0x014e, f01=0x0190, f02=»LIZE BIT MASK P LDK A2,1 " P LDKL A3,NVLTAB NVLTAB ADDRESS ( P* N PFMI:80 EQU * X * P LDR* A4,A3 GET ONE ENTRY FROM NVLTAB l & P RF(Z) FMI:85 THIS ENTRY NOT USED $ P ORR A1,A2 INDICATE TTAB PRESENT P* PFMI:85 EQU *
0x4574bc…457650 Dummy {f00=0x014e, f01=0x0190, f02=»LTAB t P* ! PFMI:90 EQU * ! * P ORR A1,A2 ADD ONE BIT FOR USER TASKS ! * " P ST A1,NVLBIT SET NVL BIT MASK ! X P RTN A15 ! ~ P* ! P IFT MMUPAG=0 ! P RES 57 ! P XIF ! P* ! P IFT MMUPAG=1 ! P RES 52 ! P XIF ! P*
0x457650…4577e4 Dummy {f00=0x014e, f01=0x0190, f02=»LE MANAGEMENT TASK PERFORMS ! * %* FILE ADMINISTRATION FUNCTIONS. IT " $ , '* IS ACTIVATED BY THE FILE MANAGEMENT " R & P* LKM PROCESSOR AT ENTRY FM:ADM. " . P* AFTER SOME HOUSEKEEPING THE FOLLOWING " 6 P* MODULES WILL PERFORM THE FILE ADMINIST
0x4577e4…457978 Dummy {f00=0x014e, f01=0x0190, f02=» ( " : 0, 2) " j > :* - FMRDFP READ FILE PARAMETERS ( " : 0) # * # b ( P* A SPECIAL ENTRY IS USED FOR I/O # l . P* FUNCTIONS WHERE REQUESTED SECTORS ARE # , P* SPLIT OVER TWO OR MORE FILE EXTENTS: # P* # > :*
0x457978…457b0c Dummy {f00=0x014e, f01=0x018e, f02=» # P* FM:ADM * $ P********** $ P* $ , * $ 6 * ENTRY PARAMETERS: $ @ * $ ^ " P* A1 = ORDER CODE AND OPTION $ h * %* A3 = TTAB ADDRESS OF CALLING TASK $ P* A4 = USER ECB ADDRESS $ * $ 2 PFM:ADM EQU * FM ADMINISTRATION F
0x457b0c…457ca0 Dummy {f00=0x014e, f01=0x0190, f02=» $ r & P LDKL A14,FM:STB FMTASK STACK BASE % P* % 2 P IFT MMUPAG=0 % < P LD A10,ECBBA,A9 FPB ADDRESS % R P XIF % v P* % P IFT MMUPAG=1 % ( P LDKL A3,TTABFM FMTASK TTAB ADDRESS % P TL TTB:MT,A5 USER MMU TABLE % , P TS TTB:MT,A3 STORE IN
0x457ca0…457e34 (4, 305) Dummy {f00=0x014e, f01=0x018e, f02=»DKL A2,FM:FPB FM FPB ADDRESS % P LDR A10,A2 SAVE IT & $ P LDK A4,FPBLEN FPB LENGTH & @ $ P MVUS A4 MOVE USER FPB TO FM:FPB & b P XIF & P* & P EJECT FMTASK & P* & . P* CHECK WHAT FUNCTION THAT IS REQUESTED & 4 P* AND BRANCH TO AP
0x457e34…457fc8 Dummy {f00=0x014e, f01=0x0190, f02=» P* ' P* A1 = ORDER OPTION ' * P* A5 = TTAB ADDRESS OF CALLING TASK ' , P* A9 = USER ECB ADDRESS ' Z P* A10 = FPB ADDRESS ' | P* ' $ P ECR A1,A7 ORDER CODE AND OPTION ' P ANK A7,/7F ORDER CODE ' P SUK A7,/03 ' ( P ABL(Z) FMRD
0x457fc8…45815c Dummy {f00=0x014e, f01=0x0190, f02=»* ' ********** ( * FMOPEN * ( ********** ( . * ( @ P* ( J 2 P* FILE MANAGEMENT ADMINISTRATION FUNCTIONS: ( T P* OPEN/CREATE/EXTEND FILE ( P* ( P* ENTRY PARAMETERS: ( P* ( P* A1 = ORDER OPTION ( * P* A5 = T
0x45815c…4582f0 Dummy {f00=0x014e, f01=0x0190, f02=»END FILE ( t P ANK A1,/FF ORDER OPTION ) ( P ABL(NZ) FM:RQE ILLEGAL ORDER OPTION ) 0 P* ) P EJECT FMTASK ) f P* ) ~ P* ) P******** ) P* OPEN * ) P******** ) P* ) P* ) POPEN EQU * OPEN FILE ) 0 P LDK A7,FPB:V1 1ST VOL
0x4582f0…458484 Dummy {f00=0x014e, f01=0x0190, f02=»LUME NOT FOUND ) $ P CF A14,FNDFWT FIND FWT ADDRESS * P ADK A6,0 SET CR * > ( P RF(Z) OP:030 NO FREE FWT AVAILABLE * V " P LDR* A1,A6 FIRST WORD OF FWT * & P ANK A1,1 CHECK IF ALREADY OPENED * P RF(Z) OP:060 NOT OPENED * P* * P* FILE IS AL
0x458484…458618 Dummy {f00=0x014e, f01=0x018e, f02=»B ADDRESS FOR EA TASK * | " P RF(NZ) OP:040 FILE PROTECTED + & P LC A1,FWTPAR,A6 ACCESS PARAMETERS + D P LDR A2,A1 + n P ANK A1,/3F NUMBER OF USERS + P SUK A1,/3F + P ABL(NZ) OP:250 + P* + P EJECT FMTASK + P* + P* ERROR EXIT
0x458618…4587ac Dummy {f00=0x014e, f01=0x018e, f02=» + l P LDKL A4,/8400 RETURN CODE , P RF OP:RTN , * P* , < POP:040 EQU * FILE PROTECTED , F P LDK A4,/40 RETURN CODE , j P RF OP:RTN , P* , & POP:050 EQU * VOLUME/FILE NOT FOUND , 0 P CF A14,RELBLK RELEASE EWT STRUCTURE BLOCKS , P* ,
0x4587ac…458940 Dummy {f00=0x014e, f01=0x0190, f02=» P EJECT FMTASK - P* - P* FILE IS NOT OPENED BEFORE: - & 0 P* FIND ALL FILE EXTENTS, BUILD FWT AND EWT:S - J P* - ~ POP:060 EQU * - P* - $ P* MOVE FILE NAME FROM FPB TO FWT - P* - P LDR A1,A10 FPB ADDRESS - P ADK A1,FPB:FN -
0x458940…458ad4 (4, 306) Dummy {f00=0x014e, f01=0x018e, f02=» LDR A2,A12 RESTORE FILE CODE - P RF OP:075 . & P* . 8 P* FIND ONE VOLUME . B P* . POP:070 EQU * . f 0 P ST A7,VOLUME SAVE VOLUME NAME DISPLACEMENT . z P CF A14,FNDVOL FIND VOLUME . P ADK A2,0 . " P RB(Z) OP:050 VOLUME NOT FOUND . P
0x458ad4…458c68 Dummy {f00=0x014e, f01=0x018e, f02=» . p 0 P LDR A11,A2 SAVE CURRENT VTOC SECTOR NUMBER / & P RB(Z) OP:050 NO FILE EXTENT FOUND / < P* / f POP:080 EQU * / p P LDR A1,A6 SAVE FWT ADDRESS / P LDR* A2,A8 DISC FILE CODE / P INH / . P CF A15,FNDDWD DISC DWT ADDRESS AND INDEX / P
0x458c68…458dfc Dummy {f00=0x014e, f01=0x018e, f02=» " P LDR A6,A1 RESTORE FWT ADDRESS 0 ( P LD A3,VTC:EN,A13 FILE EXTENT NUMBER 0 * ( P LD A2,VTC:FO,A13 FILE ORGANIZATION 0 V P ANK A2,/FF 0 P SUK A2,'L' 0 P RF(Z) OP:085 L-FILE 0 * P LD A2,VTC:FS,A13 FILE SECTION NUMBER 0 P SRC A2,2 0 2 P E
0x458dfc…458f90 Dummy {f00=0x014e, f01=0x0190, f02=» 0 POP:085 EQU * 1 * P LC A2,VTC:EL+1,A13 FILE EXTENT LENGTH 1 P LD A1,VTC:EL+2,A13 1 J P ADK A3,0 SET CR 1 f $ P RF(Z) OP:090 FIRST FILE EXTENT 1 ~ P INH 1 P CF A15,GETBLK EWT BLOCK 1 1 P RF OP:100 1 P* 1 POP:090 EQU * 1 > P ST
0x458f90…459124 Dummy {f00=0x014e, f01=0x0190, f02=» POP:100 EQU * 2 P LDR* A2,A8 VOLUME FILE CODE 2 * P ECR A2,A2 FILE CODE NOW IN LEFT BYTE 2 < ( P LC A2,VTC:EB+1,A13 FILE EXTENT BASE 2 j P LD A1,VTC:EB+2,A13 2 P ADK A3,0 SET CR 2 ( P RF(NZ) OP:120 NOT FIRST FILE EXTENT 2 < P ST A2,FWTEXB-2,A6
0x459124…4592b8 Dummy {f00=0x014e, f01=0x0190, f02=» 2 * P* FIND REMAINING EXTENTS FOR THIS FILE 3 P* 3 6 POP:110 EQU * 3 @ ( P CF A14,FVTC30 FIND NEXT VTOC ENTRY 3 T 0 P LDR A11,A2 SAVE CURRENT VTOC SECTOR NUMBER 3 6 P RF(Z) OP:160 NO MORE FILE EXTENTS ON THIS VOLUME 3 P RB OP:080 3 P* 3
0x4592b8…45944c Dummy {f00=0x014e, f01=0x0190, f02=»CK 1 3 v P CF A15,GETBLK EWT BLOCK 2 4 P ENB 4 . P STR A4,A3 LINK EWT2 TO EWT1 4 : P LDR A1,A6 FWT ADDRESS 4 ^ P ADK A1,FWTEW2 4 | P* 4 POP:130 EQU * 4 * P LDR* A2,A1 ADDRESS NEXT EWT STRUCTURE 4 P RF(NZ) OP:150 4 P* 4 POP:140 EQU
0x45944c…4595e0 Dummy {f00=0x014e, f01=0x0190, f02=»TSEX,A2 FILE SECTION AND EXTENT NUMBER 4 P CC A11,EWTSEX,A3 5 . ( P RB(G) OP:140 INSERT NEW EWT BLOCKS 5 H ( P LDR* A1,A2 ADDRESS TO 2ND EWT BLOCK 5 t P RB OP:130 5 P* 5 P EJECT FMTASK 5 P* 5 P* 5 POP:160 EQU * 5 2 P LD A7,VOLUM
0x4595e0…459774 (4, 307) Dummy {f00=0x014e, f01=0x018e, f02=» LDR A1,A10 FPB ADDRESS 5 $ P ADR A1,A7 POINT TO VOLUME NAME 6 0 P LDR* A1,A1 CHECK IF MORE VOLUMES SPECIFIED 6 H " P RF(Z) OP:170 NO MORE VOLUMES 6 | , P SUKL A1,/2020 SPACES IF NO MORE VOLUMES 6 $ P RB(NZ) OP:070 FIND NEXT VOLUME 6 P* 6 POP:1
0x459774…459908 Dummy {f00=0x014e, f01=0x0190, f02=» 6 j P* 7 6 P LD A1,FWTVTC,A6 VTOC SECTOR NUMBER, FIRST EXTENT 7 , P RB(Z) OP:050 FIRST FILE EXTENT MISSING 7 L P LDR A1,A6 FWT ADDRESS 7 | P ADK A1,FWTEW1 7 , P LDK A4,0 FILE SECTION AND EXTENT NUMBER 7 P* 7 P EJECT FMTASK 7 P* 7
0x459908…459a9c Dummy {f00=0x014e, f01=0x018e, f02=»P:230 END OF EWT CHAIN 7 4 P LC A13,EWTSEX,A1 FILE SECTION AND EXTENT NUMBER 8 P LDR A3,A13 8 V $ P ANK A3,/C0 FILE SECTION NUMBER 8 j P LDR A7,A4 8 $ P ANK A7,/C0 FILE SECTION NUMBER 8 , P SUR A7,A3 COMPARE FILE SECTION NUMBERS 8 , P RF(Z) OP:19
0x459a9c…459c30 Dummy {f00=0x014e, f01=0x0190, f02=» 8 , P ANK A3,/3F EXTENT NUMBER SHOULD BE ZERO 9 P RF OP:200 9 8 P* 9 J POP:190 EQU * 9 T P LDR A3,A13 9 h " P ANK A3,/3F FILE EXTENT NUMBER 9 | " P ANK A4,/3F FILE EXTENT NUMBER 9 * P SUR A4,A3 COMPARE FILE EXTENT NUMBER 9 & P ADK A4,1 DIFFEREN
0x459c30…459dc4 Dummy {f00=0x014e, f01=0x018e, f02=» EXTENT NUMBER 9 j P RB OP:180 : P* : ( P EJECT FMTASK : 2 P* : J P* : T POP:230 EQU * : ^ , P LC A2,FPB:SH,A10 SHAREABILITY PARAMETER : r P ANK A2,/FF : " P RF(Z) OP:240 NO EA REQUESTED : , P ST A5,FWTTAB,A6 SET TTAB ADDRESS IN FWT :
0x459dc4…459f58 Dummy {f00=0x014e, f01=0x0190, f02=» : EJECT FMTASK ; P* ; , P* COMMON EXIT FOR ACCEPTED OPEN REQUESTS ; * P* ; Z POP:250 EQU * ; d . P LD A1,FPB:BO,A10 BASIC ORDERS PARAMETERS ; x P ANK A1,/FF ; 2 P RF(NZ) OP:260 BASIC ORDERS WANTED, NO ACTION ; * P ANK A2,/BF PHYSICAL
0x459f58…45a0ec Dummy {f00=0x014e, f01=0x0190, f02=»METERS ; l P LD A4,FWTFNR,A6 FILE NUMBER < P* < 2 P IFT MMUPAG=0 < < * P SC A4,ECBFC,A9 SET FILE NUMBER IN ECB < R P XIF < P* < P IFT MMUPAG=1 < P ELR A2,A9 < P ANKL A2,/FF00 < P ANK A4,/FF FILE NUMBER < P ORR A2,A4 < & P E
0x45a0ec…45a280 Dummy {f00=0x014e, f01=0x0190, f02=»K < P* = P* = P********** = P* CREATE * = 0 P********** = B P* = T P* = ^ PCREATE EQU * CREATE FILE = h P* TO BE IMPLEMENTED = P EJECT FMTASK = P* = P* = P********** = P* EXTEND * = P********** = P
0x45a280…45a414 (4, 308) Dummy {f00=0x014f, f01=0x0190, f02=» = * FMCLOS * > ********** > * > , P* > 6 2 P* FILE MANAGEMENT ADMINISTRATION FUNCTIONS: > @ P* CLOSE/DELETE FILE > v P* > P* ENTRY PARAMETERS: > P* > P* A1 = ORDER OPTION > * P* A5 = TTAB ADDRESS OF CALLING TAS
0x45a414…45a5a8 Dummy {f00=0x014f, f01=0x0190, f02=»R OPTION > ( P ABL(NZ) FM:RQE ILLEGAL ORDER OPTION ? P* ? < P EJECT FMTASK ? F P* ? ^ P* ? h P********* ? r P* CLOSE * ? P********* ? P* ? P* ? PCLOSE EQU * CLOSE FILE ? 2 P CF A14,RDVTOC READ VTOC RECORD (FIRST EXTENT)
0x45a5a8…45a73c Dummy {f00=0x014f, f01=0x018e, f02=»CHECK IF NVL ? ( P RF(Z) CL:010 NVL, DON'T WRITE VTOC @ P ABL FM:RTC ERROR @ @ P* @ Z PCL:005 EQU * @ d ( P LD A1,FPB:FR,A10 FILE RECORD NUMBER @ x P LD A3,FPB:FR+2,A10 @ , P ST A1,VTC:LR,A13 SET LRN IN VTOC RECORD @ P ST A3,VTC:LR+2,A13 @
0x45a73c…45a8d0 Dummy {f00=0x014f, f01=0x018e, f02=» P RF(NN) CL:007 NOT NVL A & P LDK A1,/20 SET NVL IN RETURN CODE A " P ST A1,ECBRC,A8 A L P RF CL:010 A d P* A v PCL:007 EQU * A , P CF A14,FM:PWR WRITE VTOC RECORD TO DISC A P* A P EJECT FMTASK A P* A P* A PCL:010 EQU * A
0x45a8d0…45aa64 Dummy {f00=0x014f, f01=0x0190, f02=» A r * P SUK A2,1 DECREMENT NO OF USERS BY ONE B 2 P SC A2,FPB:US,A10 RETURN REMAINING NO OF USERS B 6 4 P RF(P) CL:020 DON'T RELEASE FWT IF ANY USER LEFT B l P* B P EJECT FMTASK B P* B P* RELEASE FWT AND EWT BLOCKS B P* B P LDK A2,1
0x45aa64…45abf8 Dummy {f00=0x014f, f01=0x0190, f02=» EQU * B . P ORR A1,A2 PUT TOGETHER ACCESS PARAMETERS C P SC A1,FWTPAR,A6 C @ P* C X PCL:030 EQU * C b P LD A4,ECBRC,A8 RETURN CODE C v P RF FMEXIT RETURN C * C & PCL:040 EQU * ENTRY USED BY FM:LKM C $ P ADKL A14,4 ADJUST STACK POINTER
0x45abf8…45ad8c Dummy {f00=0x014f, f01=0x0190, f02=» C P* D PDELETE EQU * DELETE FILE D P* TO BE IMPLEMENTED D 2 EJECT FMTASK D P * D h * D r ********** D | * FMRDFP * D ********** D * D P* D 2 P* FILE MANAGEMENT ADMINISTRATION FUNCTIONS: D P* READ FIL
0x45ad8c…45af20 Dummy {f00=0x014f, f01=0x0190, f02=»K D l P* A9 = USER ECB ADDRESS E P* A10 = FPB ADDRESS E , * E H & !FMRDFP EQU * READ FILE PARAMETERS E R P ANK A1,/FF ORDER OPTION E | ( P RF(NZ) FM:RQE ILLEGAL ORDER OPTION E 2 P CF A14,RDVTOC READ VTOC RECORD (FIRST EXTENT) E P ADK A1,0
0x45af20…45b0b4 (4, 309) Dummy {f00=0x014f, f01=0x0190, f02=»2,FPBLEN FPB AREA LENGTH E P* F " PFMR:00 EQU * F , P CMR A1 F @ P ADK A1,2 F P P SUK A2,2 F b P RB(P) FMR:00 F t P* F P EJECT FMTASK F P* F P* F P LDR A1,A10 FPB ADDRESS F " P ADK A1,FPB:V2 2ND VOLUME NAME F & P L
0x45b0b4…45b248 Dummy {f00=0x014f, f01=0x018e, f02=»NTER, INNER LOOP F ~ P* G " PFMR:04 EQU * INNER LOOP ENTRY G " * P STR A4,A1 MOVE SPACES TO VOLUME NAME G H P ADK A1,2 G v P SUK A3,1 G P RB(P) FMR:04 G * P ADK A1,FPB:V2-FPB:S1 NEXT VOLUME NAME G P SUK A2,1 G P RB(P) FMR:02 G P*
0x45b248…45b3dc Dummy {f00=0x014f, f01=0x0190, f02=» G n P STR A1,A10 H 8 P LD A1,VTC:BF,A13 BLOCK FACTOR AND FILE ORGANIZATION H P ST A1,FPB:BF,A10 H X ( P LD A1,VTC:LR,A13 LAST RECORD NUMBER H r P ST A1,FPB:FR,A10 H $ P LD A1,VTC:LR+2,A13 LRN, PART 2 H P ST A1,FPB:FR+2,A10 H 4 P LD A1,VTC:M
0x45b3dc…45b570 Dummy {f00=0x014f, f01=0x0190, f02=»INDEX FILES H t P ST A1,FPB:IF,A10 I , P LD A1,VTC:KA,A13 KEY ADDRESS IN RECORD I . P ST A1,FPB:KA,A10 I ^ P LDK A2,1 I x , P LD A1,FWTTAB,A6 SHAREABILITY PARAMETER I P RF(Z) FMR:05 NO EA I 2 P SC A2,FPB:SH,A10 INDICATE OPENED EXCLUSIVELY I
0x45b570…45b704 Dummy {f00=0x014f, f01=0x0190, f02=»LE I f , P SC A2,FPB:BO,A10 INDICATE BASIC ORDERS J P* J : PFMR:10 EQU * J D P SLC A1,7 J X P ANK A1,/3F NUMBER OF USERS J j P SC A1,FPB:US,A10 J P* J P EJECT FMTASK J P* J . P* MOVE CREATION DATE AND RETENTION PERIOD J P*
0x45b704…45b898 Dummy {f00=0x014f, f01=0x0190, f02=»ACTERS TO MOVE J | 8 P CF A14,MOVE MOVE CREATION DATE AND RETENTION PERIOD K P* K R $ P* MOVE FILE NAME FROM FWT TO FPB K P* K P LDR A1,A6 FWT ADDRESS K P ADK A1,FWTNAM K . P SUK A3,FPBLEN-FPB:FN-1 POINT TO FILE NAME K & P LDK A2,8 NO OF CHAR
0x45b898…45ba2c Dummy {f00=0x014f, f01=0x0190, f02=» K b P LDR A11,A6 L * P LDR* A12,A11 ADDRESS TO 2ND EWT BLOCK L P* L J P EJECT FMTASK L T P* L l 8 P* READ VOLUME NAME AND COMPUTE SIZE OF FILE SECTION L v P* L PFMR:20 EQU * L $ P LC A2,EWTVOL,A12 DISC FILE CODE L P LDR A13,A2 SAVE
0x45ba2c…45bbc0 Dummy {f00=0x014f, f01=0x0190, f02=»A6 VOLUME NAME ADDRESS L " P CF A14,MOVE MOVE VOLUME NAME M * P LD A1,EWTEXL-2,A11 FILE EXTENT LENGTH M D P ANK A1,/FF M r P LD A2,EWTEXL,A11 M P* M P EJECT FMTASK M P* M " P* COMPUTE FILE SECTION SIZE(S) M P* M PFMR:35 EQU *
0x45bbc0…45bd54 (4, 310) Dummy {f00=0x014f, f01=0x0190, f02=» M j P ANK A6,/FF N P LD A7,EWTEXL,A11 N * P LDR* A12,A11 ADDRESS TO 2ND EWT BLOCK N 6 & P CC A13,EWTVOL,A12 CHECK FILE CODE N d , P RF(NE) FMR:50 END OF THIS FILE SECTION N P* N P IFT CPU852=0 N * P DAR A6 ACKUMULATE FILE SECTION LENGTH N
0x45bd54…45bee8 Dummy {f00=0x014f, f01=0x0190, f02=»OW N | P RB FMR:35 O P* O PFMR:45 EQU * O & " P ADK A1,1 OVERFLOW CORRECTION O : P ANKL A2,/7FFF O ` P XIF O v P* O P RB FMR:35 O P* O PFMR:50 EQU * O . P STR A1,A3 STORE FILE SECTION SIZE IN FPB O P ST A2,2,A3 O 0 P ADK A
0x45bee8…45c07c Dummy {f00=0x014f, f01=0x0190, f02=» O EJECT FMTASK P * P P* P * P********** P 4 P* FMEXIT * P F P********** P X P* P j P* P t & P* COMMON EXIT FOR FILE MANAGEMENT P ~ P* ADMINISTRATION FUNCTIONS P P* P PFMEXIT EQU * P P IFT MMUPAG=1 P P* P 8 P
0x45c07c…45c210 Dummy {f00=0x014f, f01=0x0190, f02=»ADDRESS P x P* Q P LDR A1,A10 FM:FPB ADDRESS Q $ P EL A2,ECBBA,A9 USER FPB ADDRESS Q < P LDK A3,FPBLEN FPB LENGTH Q d $ P MVSU A3 MOVE FM:FPB TO USER FPB Q P XIF Q * Q P EJECT FMTASK Q P* Q P* Q P********** Q P* FM:R
0x45c210…45c3a4 Dummy {f00=0x014f, f01=0x0190, f02=»ETURN CODE Q ~ * P* A5 = TTAB ADDRESS OF CALLING TASK R P* A9 = USER ECB ADDRESS R @ P* R b * PFM:RTC EQU * GENERAL RETURN CODE EXIT R l P IFT MMUPAG=0 R * P ST A4,ECBRC,A9 SET RETURN CODE IN ECB R P XIF R P* R P IFT MMUPAG=1 R *
0x45c3a4…45c538 Dummy {f00=0x014f, f01=0x0190, f02=» * REQUEST ERROR EXIT R P LDKL A4,/8000 RETURN CODE S P RB FM:RTC S @ * S R P EJECT FMTASK S P* S t P* S ~ P********** S P* FM:PWR * S P* FMREAD * S P********** S P* S P* S * P* INPUT: A2 = SECTOR NUMBER, PART
0x45c538…45c6cc Dummy {f00=0x014f, f01=0x0190, f02=»DRESS S t P* T P* OUTPUT: A4 = 0 T P* A7 IS DESTROYED T 2 P* T N & PFM:PWR EQU * PHYSICAL WRITE ENTRY T X P LDK A7,/95 PHYSICAL WRITE T P RF FM:LKM T P* T $ PFMREAD EQU * PHYSICAL READ ENTRY T P LDK A7,/91 PHYSICAL READ T
0x45c6cc…45c860 Dummy {f00=0x014f, f01=0x0190, f02=» IN ECB T n P LKM U P DATA 1 U P LD A4,ECBRC,A8 RETURN CODE U , " P ANKL A4,/FEFF SKIP RETRY BIT U P P RF(Z) FM:RTN RETURN IF OK U v P* U : P* ERROR: CHECK WHY AND DECIDE IF REQUEST TO BE ABORTED U P* U P LDK A7,/A2 CLOSE ORDER U 4
0x45c860…45c9f4 (4, 311) Dummy {f00=0x014f, f01=0x0190, f02=» CW A7,TTB:SA+14,A5 CHECK IF OPEN ORDER RUNNING U $ P RB(NE) FM:RTC ABORT IF NOT OPEN V 8 & P LDK A7,/20 NEW VOLUME LOADED BIT V ` P TM A4,A7 CHECK RETURN CODE V P RB(Z) FM:RTC NOT NVL, ABORT V * P RB FMREAD NVL AT OPEN, REPEAT REQUEST V P* V
0x45c9f4…45cb88 Dummy {f00=0x014f, f01=0x0190, f02=»** V P* W P* W . P* RELBLK WILL RELEASE THE MONITOR BLOCKS W , P* THAT ARE USED IN THE EWT STRUCTURE. W P P* W P* INPUT: A6 = FWT ADDRESS W P* W $ P* OUTPUT: A1-A4 ARE DESTROYED W P* W . PRELBLK EQU * RELEASE EWT STRUC
0x45cb88…45cd1c Dummy {f00=0x014f, f01=0x0190, f02=»L:10 EQU * W P INH X $ P CF A15,FREBLK RELEASE EWT BLOCK X P ENB X F P LDR A4,A3 EWT BLOCK ADDRESS X R P RB(NZ) REL:10 X v P* X PREL:20 EQU * X * P CM FWTVTC,A6 RESET VTOC SECTOR NUMBER X 4 P CM FWTTAB,A6 RESET TTAB ADDRESS (EA PARAMETER)
0x45cd1c…45ceb0 Dummy {f00=0x014f, f01=0x0190, f02=»** X P* FNDNAM * Y P********** Y P* Y . 2 P* FNDNAM WILL CONVERT THE SUPPLIED FILE CODE Y 8 0 P* TO VOLUME NAME ADDRESS IN THE DISC DWT. Y n P* Y P* INPUT: A2 = FILE CODE Y P* Y P* OUTPUT: A2 = 6 Y ( P* A6 = VOLUM
0x45ceb0…45d044 Dummy {f00=0x014f, f01=0x0190, f02=» Y ( P CF A15,FNDDWD FIND DISC DWT ADDRESS Z P ENB Z 4 P* Z @ PFNAM05 EQU * Z J P LD A4,DWTST,A6 Z ^ P ANK A4,1 Z v 4 P RF(NZ) FNAM10 POWER ON COMPLETED FOR THIS DISC Z P LKM Z P DATA 0 SWITCH TASKS Z P RB FNAM05 CHECK DISC AGAIN Z
0x45d044…45d1d8 Dummy {f00=0x014f, f01=0x0190, f02=» A2,6 Z P ADKL A6,DWTVOL-6 [ P RTN A14 [ ( P* [ 8 P EJECT FMTASK [ B P* [ Z P* [ d P********** [ n P* FNDVOL * [ P********** [ P* [ P* [ & P* FNDVOL SEARCHES THE REQUESTED [ $ P* VOLUME SPECIFIED IN THE FPB. [
0x45d1d8…45d36c Dummy {f00=0x014f, f01=0x0190, f02=»FILE CODE IF FOUND, ELSE [ z * P* = 0 IF VOLUME NOT FOUND & P* A1, A3-A4, A12 ARE DESTROYED N P* x ( PFNDVOL EQU * FIND VOLUME (FILE CODE) 4 P LDKL A1,DFTAB-1 DISC FILE CODE TABLE ADDRESS-1 P LDR A12,A6 SAVE FWT ADDRESS
0x45d36c…45d500 Dummy {f00=0x014f, f01=0x018e, f02=»OF DFTAB ~ P LCR A2,A1 NEXT FILE CODE ] , P CF A14,FNDNAM FIND VOLUME NAME ADDRESS ] 2 * P LDR* A3,A6 FIRST WORD OF VOLUME NAME ] b P RB(Z) FVOL10 NO VOLUME ] P* ] P EJECT FMTASK ] P* ] P* ] P LDR A3,A10 FPB ADDRESS ] , P A
0x45d500…45d694 (4, 312) Dummy {f00=0x0150, f01=0x0190, f02=» * P RB(NE) FVOL10 VOLUME NAMES NOT EQUAL ^ P ADK A3,2 INCREMENT POINTERS ^ 2 P ADK A6,2 ^ V P SUK A2,2 ^ h P RB(P) FVOL20 ^ z P LCR A2,A1 FILE CODE ^ P* ^ PFVOL25 EQU * ^ $ P LDR A6,A12 RESTORE FWT ADDRESS ^ P RTN A14 ^ P* ^
0x45d694…45d828 Dummy {f00=0x0150, f01=0x0190, f02=» ^ P********** _ P* RDVTOC * _ P********** _ , P* _ > P* _ H 0 P* RDVTOC WILL CALL FCHEC2 FOR CHECK OF THE _ R 2 P* ACCESS PARAMETERS AND READ THE VTOC RECORD _ " P* OF THE FIRST FILE EXTENT. _ P* _ " P* INPUT: A5 = TTAB ADDRES
0x45d828…45d9bc Dummy {f00=0x0150, f01=0x018e, f02=»N FM:BUF _ j , P* A1-A4, A7, A11 ARE DESTROYED ` P* ` @ 8 PRDVTOC EQU * CHECK ACCESS PAR. AND READ VTOC RECORD ` J P IFT MMUPAG=0 ` P LDR* A2,A9 FILE NUMBER ` P XIF ` P* ` P IFT MMUPAG=1 ` P ELR A2,A9 FILE NUMBER ` P X
0x45d9bc…45db50 Dummy {f00=0x0150, f01=0x0190, f02=» P RF(NZ) RDVT20 ERROR, RETURN a P* a ( P EJECT FMTASK a 2 P* a J P* a T P LDR A6,A3 FWT ADDRESS a ^ 2 P LC A2,FWTVOL,A6 DISC FILE CODE (FIRST EXTENT) a | P SC A2,ECBFC,A8 a 6 P LD A2,FWTVTC,A6 VTOC SECTOR NUMBER (FIRST EXTENT) a 8 P CF
0x45db50…45dce4 Dummy {f00=0x0150, f01=0x0190, f02=» RDVT20 FIRST EXTENT FOUND a 6 P CF A14,FVTC30 READ NEXT VTOC RECORD FOR THIS FILE b " 0 P RB RDVT10 CHECK IF THIS IS THE FIRST EXTENT b P* b PRDVT20 EQU * b P RTN A14 b P* b P EJECT FMTASK b P* b P* b P********** b P*
0x45dce4…45de78 Dummy {f00=0x0150, f01=0x0190, f02=» RETURN IS MADE WHEN ONE EXTENT b P* HAS BEEN FOUND. c ( P* c D P* INPUT: A2 = FILE CODE c N " P* A5 = TTAB ADDRESS c p P* A6 = FWT ADDRESS c & P* A9 = USER ECB ADDRESS c P* c 6 P* OUTPUT: A2 = VTOC SECTOR NUM
0x45de78…45e00c Dummy {f00=0x0150, f01=0x018e, f02=» A1, A3-A4, A7, A11-A12 ARE DESTROYED c P* d 2 PFNDVTC EQU * FIND VTOC ENTRY d < ( P SC A2,ECBFC,A8 SET FILE CODE IN ECB d ` P LDK A2,0 SECTOR NUMBER d P CF A14,FMREAD READ SECTOR 0 d * P LD A2,FM:BUF+VOL:EB VTOC EXTENT BASE d P LDR A12,A
0x45e00c…45e1a0 Dummy {f00=0x0150, f01=0x0190, f02=» P* e P* e & PFVTC10 EQU * ENTRY USED BY RDVTOC e ( P CF A14,FMREAD READ ONE VTOC SECTOR e B $ P LDKL A13,FM:BUF FM:BUF ADDRESS e n $ P LDK A7,VTOCBF VTOC BLOCK FACTOR e P* e PFVTC20 EQU * e & P LD A4,VTC:ST,A13 VTOC STATUS BYTE e P A
0x45e1a0…45e334 (4, 313) Dummy {f00=0x0150, f01=0x0190, f02=» NUMBER e l & P ADKL A13,VTOCRL NEXT VTOC ADDRESS f P SUK A7,1 f : , P RB(P) FVTC20 MORE VTOC:S IN THIS SECTOR f L P ADK A2,1 NEXT VTOC SECTOR f | , P CWR A2,A12 CHECK IF END OF VTOC EXTENT f ( P RB(NE) FVTC10 NOT LAST VTOC SECTOR f P LDK A2,0 RETU
0x45e334…45e4c8 Dummy {f00=0x0150, f01=0x0190, f02=» ADK A1,FWTNAM f P LDR A3,A13 VTOC ADDRESS g P LDK A4,4 LOOP COUNTER g 6 P* g T $ PFVTC60 EQU * COMPARE FILE NAMES g ^ P LDR* A11,A3 g P CWR* A11,A1 g ( P RB(NE) FVTC30 FILE NAMES NOT EQUAL g P ADK A1,2 INCREMENT POINTERS g P ADK A3,2
0x45e4c8…45e65c Dummy {f00=0x0150, f01=0x0190, f02=» P********** h P* FNDFWT * h P********** h ( P* h : P* h D 4 P* FNDFWT IS USED TO FIND OUT IF THE SPECIFIED h N 0 P* FILE IS ALREADY OPENED, AND IF SO RETURN h & P* THE FWT ADDRESS FOR THE FILE. h 6 P* IF NOT OPENED, A FREE FWT ADDRES
0x45e65c…45e7f0 Dummy {f00=0x0150, f01=0x0190, f02=»A6 = FWT ADDRESS (=0 IF NO FREE FWT AVAILABLE) h & P* A1-A4, A7, A11 ARE DESTROYED i 6 P* i ` PFNDFWT EQU * i j P LDK A3,0 i ~ * P LD A7,SCTFWT FWT CHAIN START ADDRESS i P* i PFNDF10 EQU * i P LDK A2,1 i P* i PFNDF15 EQU * i
0x45e7f0…45e984 Dummy {f00=0x0150, f01=0x0190, f02=»ECK IF USED i ( P RF(NZ) FNDF20 USED, CHECK FILE NAME j 6 P ADK A3,0 CHECK IF FREE FWT ADDRESS ALREADY SAVED j @ & P RB(NZ) FNDF15 YES, DON'T SAVE IT j z ( P LDR A3,A6 NO, SAVE THIS FWT ADDRESS j P RB FNDF15 CONTINUE SEARCH j P* j P EJECT FMT
0x45e984…45eb18 Dummy {f00=0x0150, f01=0x0190, f02=» A2,FWTNAM j P LDR A4,A10 FPB ADDRESS k P ADK A4,FPB:FN k 2 P SUK A7,1 SKIP FWT USED BIT k H P* k l $ PFNDF30 EQU * COMPARE FILE NAMES k v P LDR* A11,A2 k P CWR* A11,A4 k ( P RB(NE) FNDF10 FILE NAMES NOT EQUAL k P ADK A2,2 INCREMENT PO
0x45eb18…45ecac Dummy {f00=0x0150, f01=0x0190, f02=») FNDF10 NOT THIS FILE k P RTN A14 FILE FOUND, RETURN l P* l B PFNDF40 EQU * FILE NOT FOUND l L P LDR A6,A3 FREE FWT ADDRESS l p P RTN A14 l P* l P EJECT FMTASK l P* l P* l P******** l P* MOVE * l P******** l
0x45ecac…45ee40 Dummy {f00=0x0150, f01=0x0190, f02=» = OUTPUT BUFFER ADDRESS l P* m P* OUTPUT: A2 = 0 m * > P* A1, A3 = ADDRESSES OF LAST MOVED CHARACTERS+1 m D P* A4 IS DESTROYED m P* m PMOVE EQU * MOVE STRING m " P LCR A4,A1 MOVE ONE CHARACTER m P SCR A4,A3 m (
0x45ee40…45efd4 (4, 314) Dummy {f00=0x0150, f01=0x0190, f02=» P* n EJECT FMTASK n * n & * n 0 ********** n : * FMRDWR * n L ********** n ^ * n p P* n z $ * FILE MANAGEMENT I/O FUNCTIONS. n * &* FMRDWR IS ENTERED WHEN THE REQUESTED n & "* SECTORS ARE SPLIT OVER MORE THAN n * ON
0x45efd4…45f168 Dummy {f00=0x0150, f01=0x4098, f02=»SION n l XIF o * o IFT XTSPLI=1 o " " ABL LKMERR TO BE IMPLEMENTED o 8 XIF o ^ * o j * o t * o ~ END o @ o O FUNCTIONS. n * &* FMRDWR IS ENTERED WHEN THE REQUESTED n & "* SECTORS ARE SPLIT OVER MORE THAN n * ON
0x45f168…45f2fc Dummy {f00=0x0150, f01=0x2008, f02=» p FMTASK ~ * * " * , END 6@ B * H ********** R * FMRDFP * d ********** v * 0 +* FILE MANAGEMENT ADMINISTRATION FUNCTIONS: * READ FILE PARAMETERS * & !FMRDFP EQU * READ FILE PAR
0x45f2fc…45f490 Dummy {f00=0x0150, f01=0x0000, f02=»
[…0x4…]
0x45fae0…45fc74 (4, 315) Opaque[0x194]
0x45fc74…45fe08 # DirEnt {nam=»DFTAB «, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x2088, f03=0x0000}
0x45fc74…45fe08 IdxSect {
0x45fc74…45fe08 f00 = 0x0104 // 0x45fc74 @0x0
0x45fc74…45fe08 f01 = 0x0002 // 0x45fc76 @0x2
0x45fc74…45fe08 gno = [ // 0x45fc78 @0x4
0x45fc74…45fe08 [0x00]: C0x0104.0x1.0
0x45fc74…45fe08 ]
0x45fc74…45fe08 }
0x45fe08…45ff9c Dummy {f00=0x0104, f01=0x0190, f02=» 0 P IDENT DFTAB REL 10.0 80-03-14 870105041000 P 8 P* @ 8 P**************************************************** J P* $ P* PHILIPS TERMINAL SYSTEM PTS P* & P* DFTAB = DISC FILE CODE TABLE P* P* P* 8
0x45ff9c…460130 Dummy {f00=0x0104, f01=0x4102, f02=»NTRY DFTABE P ENTRY DMTIDP P ENTRY DMTIDS * P* @ P* J PDFTAB EQU * T P DATA /F8F9,/FAFB h PDFTABE EQU * PDMTIDP EQU * P DATA /0000,/0000 PDMTIDS EQU * P DATA /0101,/0101 P END @ 8
0x460130…4602c4 Dummy {f00=0x0104, 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*
0x4602c4…460458 Dummy {f00=0x0104, f01=0x0190, f02=»S h 0 P ENTRY FMINIT FILE MANAGEMENT INITIALIZATION ENTRY TTABFM FMTASK TTAB > ( P ENTRY FWTPAR FILE ACCESS PARAMETERS ` P ENTRY FWTFNR FILE NUMBER 6 P ENTRY FWTTAB TTAB FOR TASK WITH EXCLUSIVE ACCESS 2 P ENTRY FWTEW1 POINTER TO 2ND EWT
0x460458…4605ec Dummy {f00=0x0104, f01=0x0190, f02=»GTH x P ENTRY EWTEXB EXTENT BASE " P ENTRY EWTVOL VOLUME FILE CODE . P* T P EJECT FMTASK ^ P* v P* ENTRY FPB:RL RECORD LENGTH ENTRY FPB:BF BLOCK FACTOR $ ENTRY FPB:FO FILE ORGANIZATION ENTRY FPB:BO BA
0x4605ec…460780 Dummy {f00=0x0104, f01=0x0190, f02=» | ENTRY FPB:V2 VOLUME NAME 2 ENTRY FPB:S2 SIZE 2 , ENTRY FPB:V3 VOLUME NAME 3 H ENTRY FPB:S3 SIZE 3 l ENTRY FPB:V4 VOLUME NAME 4 ENTRY FPB:S4 SIZE 4 $ ENTRY FPB:FR FILE RECORD NUMBER " ENTRY FPB:US NUMBER OF
0x460780…460914 (4, 316) Opaque[0x194]
0x460914…460aa8 # DirEnt {nam=»DVKB00«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x24a8, f03=0x0000}
0x460914…460aa8 IdxSect {
0x460914…460aa8 f00 = 0x0125 // 0x460914 @0x0
0x460914…460aa8 f01 = 0x0002 // 0x460916 @0x2
0x460914…460aa8 gno = [ // 0x460918 @0x4
0x460914…460aa8 [0x00]: C0x0125.0x1.0
0x460914…460aa8 ]
0x460914…460aa8 }
0x460aa8…460c3c Dummy {f00=0x0125, f01=0x0190, f02=» 2 P IDENT DVKB00 REL 10.0 80-03-14 870105041000 P : " P* KEYBOARD DEVICE WORK TABLE B P* h P ENTRY DVKB00 TABLE ENTRY r P EXTRN CTAB01 ( P EXTRN KBAD3 POINTER TO ADDRESSBLOCK P EXTRN DVDY00 PMMUPAG EQU 1 P*
0x460c3c…460dd0 Dummy {f00=0x0125, 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
0x460dd0…460f64 Dummy {f00=0x0125, f01=0x0190, f02=»VE AREA FOR A4 P DATA 0 SAVE AREA FOR A5 P RES 4 DWT-STACK 6 P DATA 0 TIMER POINTER N P DATA DVDY00 DVDY00O DEVICE l $ P DATA /FFFF BACKSPACE AND CANCEL $ P DATA /9B9A EOR AND DOUBLE ZERO 6 P DATA DWTSQ+DVKB00 POINTER TO FIRST PLAC
0x460f64…4610f8 Dummy {f00=0x0125, f01=0x4100, f02=»A 0,0,0,0,0,0,0 P IFT MMUPAG=1 PDEVECB EQU * . P DATA 0,0,0,0,0,0 B P DATA 0,0,0,0,0,0,0,0 P DATA 0,0,0,0,0,0,0,0 z P DATA 0,0,0,0,0,0,0,0 P DATA 0 P XIF PDWTEND EQU * P* P END @ RST PLAC
0x4610f8…46128c Dummy {f00=0x0125, 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
0x46128c…461420 Dummy {f00=0x0125, f01=0x0190, f02=»ETURN CODE $ z P XIF % P* % P* % ( P EJECT % 2 P* % @ P* % J P* L D R E G E % T P* % l 8 P* RESTORE A3-A5 FROM DWT AND RETURN TO USER VIA A5 % v P* % P* % PLDREGE EQU * % & P LD A3,DWTA3,A6 RELOAD REGISTER A3 % & P LD
0x461420…4615b4 (4, 317) Opaque[0x194]
0x4615b4…461748 # DirEnt {nam=»DVDY00«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x24b0, f03=0x0000}
0x4615b4…461748 IdxSect {
0x4615b4…461748 f00 = 0x0125 // 0x4615b4 @0x0
0x4615b4…461748 f01 = 0x0002 // 0x4615b6 @0x2
0x4615b4…461748 gno = [ // 0x4615b8 @0x4
0x4615b4…461748 [0x00]: C0x0125.0x2.0
0x4615b4…461748 ]
0x4615b4…461748 }
0x461748…4618dc Dummy {f00=0x0125, f01=0x0190, f02=» 2 P IDENT DVDY00 REL 10.0 80-03-14 870105041000 P : * P* DEVICE WORK TABLE FOR VIDEO DISPLAY B P* p P ENTRY DVDY00 TABLE ENTRY z P* P* ( P EXTRN DYAD POINTER TO ADDRESS BLOCK PMMUPAG EQU 1 P* PDVDY00 EQU * T
0x4618dc…461a70 Dummy {f00=0x0125, f01=0x0190, f02=» DATA DWTEND-DVDY00 ORDER ( P DATA DYAD POINTER TO ADDRESS-BLOCK " P DATA /C459 TTAB-ADDRESS N $ P DATA 0 WAIT/ACTIVATE INDICATOR n P DATA 0 TERMINAL QUEUE IFT MMUPAG=1 & " DATA 0 SAVE AREA USER ECB ADDRESS DATA DEVECB MMU ECB
0x461a70…461c04 Dummy {f00=0x0125, 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,
0x461c04…461d98 Dummy {f00=0x0125, 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
0x461d98…461f2c Dummy {f00=0x0125, 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
0x461f2c…4620c0 Dummy {f00=0x0125, f01=0x2008, f02=»
0x4620c0…462254 (4, 318) Opaque[0x194]
0x462254…4623e8 # DirEnt {nam=»DVGP01«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x24f8, f03=0x0000}
0x462254…4623e8 IdxSect {
0x462254…4623e8 f00 = 0x0127 // 0x462254 @0x0
0x462254…4623e8 f01 = 0x0002 // 0x462256 @0x2
0x462254…4623e8 gno = [ // 0x462258 @0x4
0x462254…4623e8 [0x00]: C0x0127.0x3.0
0x462254…4623e8 ]
0x462254…4623e8 }
0x4623e8…46257c Dummy {f00=0x0127, f01=0x018e, f02=» 2 P IDENT DVGP01 REL 10.0 80-03-14 870105041000 P : , P* DEVICE WORK TABLE FOR GENERAL PRINTER B P* r P ENTRY DVGP01 TABLE ENTRY | P* P* ( P EXTRN GPAD POINTER TO ADDRESS BLOCK PMMUPAG EQU 1 P* PDVGP01 EQU *
0x46257c…462710 Dummy {f00=0x0127, f01=0x0190, f02=» P DATA DWTEND-DVGP01 ORDER ( P DATA GPAD POINTER TO ADDRESS-BLOCK & P DATA /C750 TTAB-ADDRESS R $ P DATA 0 WAIT/ACTIVATE INDICATOR r P DATA 0 TERMINAL QUEUE IFT MMUPAG=1 & " DATA 0 SAVE AREA USER ECB ADDRESS DATA DEVECB MMU
0x462710…4628a4 Dummy {f00=0x0127, 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
0x4628a4…462a38 Dummy {f00=0x0127, 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
0x462a38…462bcc Dummy {f00=0x0127, f01=0x018e, f02=» DISC DWT AND CHECK IF THERE IS A NEW VOLUME MOUNTED. P* > ( P* INPUT: A2 = DISC BUFFER ADDRESS H 2 P* A3 = FILE CODE (FOR DRIVE WITH INDEX = 0) t 0 P* BIT 0 SET MEANS TEST STATUS ORDER P* A6 = DWT ADDRESS P*
0x462bcc…462d60 Dummy {f00=0x0127, f01=0x0190, f02=» * P CF A15,VOLADR DWT VOLUME NAME ADDRESS P LDK A7,0 RESET NVL FLAG 6 P* V PVGET10 EQU * ` , P LDR* A8,A2 ONE WORD OF NEW VOLUME NAME t , P CWR* A8,A1 COMPARE WITH OLD VOLUME NAME P RF(E) VGET20 P LDK A7,1 SET NVL FLAG $ P
0x462d60…462ef4 (4, 319) Opaque[0x194]
0x462ef4…463088 # DirEnt {nam=»DVDY02«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x2960, f03=0x0000}
0x462ef4…463088 IdxSect {
0x462ef4…463088 f00 = 0x014b // 0x462ef4 @0x0
0x462ef4…463088 f01 = 0x0002 // 0x462ef6 @0x2
0x462ef4…463088 gno = [ // 0x462ef8 @0x4
0x462ef4…463088 [0x00]: C0x014b.0x0.0
0x462ef4…463088 ]
0x462ef4…463088 }
0x463088…46321c Dummy {f00=0x014b, f01=0x0190, f02=» 2 P IDENT DVDY02 REL 10.0 80-03-14 870105041000 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
0x46321c…4633b0 Dummy {f00=0x014b, f01=0x0190, f02=» DATA DWTEND-DVDY02 ORDER ( P DATA DYAD POINTER TO ADDRESS-BLOCK " P DATA /C459 TTAB-ADDRESS N $ P DATA 0 WAIT/ACTIVATE INDICATOR n P DATA 0 TERMINAL QUEUE IFT MMUPAG=1 & " DATA 0 SAVE AREA USER ECB ADDRESS DATA DEVECB MMU ECB
0x4633b0…463544 Dummy {f00=0x014b, 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,
0x463544…4636d8 Dummy {f00=0x014b, 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
0x4636d8…46386c Dummy {f00=0x014b, f01=0x415c, f02=» _^ H D ! U P R !U + 4 -W 1 P 5Q 9 v CP M : Q WP cR H D ! R s v P. P( P R Q W R U v P 4 P: P @ U j H D !1 T W @ +P /R 7U G M SP m @ R P 4 @ <
0x46386c…463a00 Dummy {f00=0x014b, f01=0x2008, f02=»
0x463a00…463b94 (4, 320) Opaque[0x194]
0x463b94…463d28 # DirEnt {nam=»DVGP03«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x2970, f03=0x0000}
0x463b94…463d28 IdxSect {
0x463b94…463d28 f00 = 0x014b // 0x463b94 @0x0
0x463b94…463d28 f01 = 0x0002 // 0x463b96 @0x2
0x463b94…463d28 gno = [ // 0x463b98 @0x4
0x463b94…463d28 [0x00]: C0x014b.0x2.0
0x463b94…463d28 ]
0x463b94…463d28 }
0x463d28…463ebc Dummy {f00=0x014b, f01=0x018e, f02=» 2 P IDENT DVGP03 REL 10.0 80-03-14 870105041000 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 *
0x463ebc…464050 Dummy {f00=0x014b, f01=0x0190, f02=» P DATA DWTEND-DVGP03 ORDER ( P DATA GPAD POINTER TO ADDRESS-BLOCK & P DATA /C750 TTAB-ADDRESS R $ P DATA 0 WAIT/ACTIVATE INDICATOR r P DATA 0 TERMINAL QUEUE IFT MMUPAG=1 & " DATA 0 SAVE AREA USER ECB ADDRESS DATA DEVECB MMU
0x464050…4641e4 Dummy {f00=0x014b, 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
0x4641e4…464378 Dummy {f00=0x014b, 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
0x464378…46450c Dummy {f00=0x014b, f01=0x0190, f02=»DRESS S t P* T P* OUTPUT: A4 = 0 T P* A7 IS DESTROYED T 2 P* T N & PFM:PWR EQU * PHYSICAL WRITE ENTRY T X P LDK A7,/95 PHYSICAL WRITE T P RF FM:LKM T P* T $ PFMREAD EQU * PHYSICAL READ ENTRY T P LDK A7,/91 PHYSICAL READ T
0x46450c…4646a0 Dummy {f00=0x014b, f01=0x0190, f02=» IN ECB T n P LKM U P DATA 1 U P LD A4,ECBRC,A8 RETURN CODE U , " P ANKL A4,/FEFF SKIP RETRY BIT U P P RF(Z) FM:RTN RETURN IF OK U v P* U : P* ERROR: CHECK WHY AND DECIDE IF REQUEST TO BE ABORTED U P* U P LDK A7,/A2 CLOSE ORDER U 4
0x4646a0…464834 (4, 321) Opaque[0x194]
0x464834…4649c8 # DirEnt {nam=»M:DENJ«, typ=»LM«, f00=0x0000, f01=0x0000, f02=0x0820, f03=0x0000}
0x464834…4649c8 IdxSect {
0x464834…4649c8 f00 = 0x0041 // 0x464834 @0x0
0x464834…4649c8 f01 = 0x0012 // 0x464836 @0x2
0x464834…4649c8 gno = [ // 0x464838 @0x4
0x464834…4649c8 [0x00]: C0x0041.0x0.0
0x464834…4649c8 [0x01]: C0x0041.0x1.0
0x464834…4649c8 [0x02]: C0x0041.0x2.0
0x464834…4649c8 [0x03]: C0x0041.0x3.0
0x464834…4649c8 [0x04]: C0x0042.0x0.0
0x464834…4649c8 [0x05]: C0x0042.0x2.0
0x464834…4649c8 [0x06]: C0x005f.0x2.0
0x464834…4649c8 [0x07]: C0x0066.0x0.0
0x464834…4649c8 [0x08]: C0x0066.0x3.0
0x464834…4649c8 ]
0x464834…4649c8 }
0x4649c8…464b5c Dummy {f00=0x0041, f01=0x0190, f02=»7 Ed L L L L L L L L L > L L L L L L L L L L L L L > L L L L L L L L L L L L L L L L L L L L L L L L L L L L L L L R c @ ^ z ^ r h V H 2 Z f9 z
0x464b5c…464cf0 Dummy {f00=0x0041, f01=0x0190, f02=» 4c : @Y/ pJ @ d _ 2Z $"z y ?H T+ V y J t Dh i VR 1H W ] [ ? d % L X! "~ T &b Cn 1 d _ A H " j _ @ j > > U # T @ P H ( ( P c P W6 A j $ V ( U P @ V L
0x464cf0…464e84 Dummy {f00=0x0041, f01=0x0190, f02=» H A Q > ? A H A FQ 2_ A F < Q @ P @ Q @ Z Y _ 8 t Q Z P 0 9 _ z $ _, ? _ P H H ? ? ? ? ? ^ A _ _ ^ h $P T I R $ 5 % > ? W ? W ? T
0x464e84…465018 Dummy {f00=0x0041, f01=0x0190, f02=» @ 6T R 0 A 6 1 Q Q > > 0 @ 6 1 A 6 P P > " ? * X R Y P _ ? @ 8 R Y P _ W0 8 X W( ? ` @ @ P $ H W W > > > > > > @ DV ? D > _ > ? _ > > ? ^ ! Y ^ _ R ? JA. ~
0x465018…4651ac Dummy {f00=0x0041, f01=0x0190, f02=» " P PR 4 5 T P ? X U X ! > PZ PF P P 0 X T Y Wn U U T X^ T E Y Tx 8RtWP 4 U P> $P4> R0> 8' T Y X ' T P X P " > Z X "X 8' T 8Z" X ' X
0x4651ac…465340 Dummy {f00=0x0041, f01=0x0190, f02=» >B @ P A ! T 8TV 9WD B 7P P A ZW A Z @ ZA.W ? A HI.9 X R C C J ?A @ ZA. X V 9_: v @ ~ 8 x N B < U P
0x465340…4654d4 (4, 322) Dummy {f00=0x0041, f01=0x0190, f02=» P 0R Q W R ?U C ! _f Y (P Y ) _ ^ _ ! x P: B L # +P Y , ! U _ X T _ W ! Y ! X X ! X P R ?]* U C _. _: ! ! " $ P X , X ]T ! Y h Y _p ? X R X X
0x4654d4…465668 Dummy {f00=0x0041, f01=0x0190, f02=» Y , Y B 9a C 8 J P: 8 B W0 B W B W B @ T 8 T Y Y Y Y Y . ! ~ X ._B B 1 4 X X X X ' 4 B U B $" 4 C 4 J * ~ _^ L x B U P
0x465668…4657fc Dummy {f00=0x0041, f01=0x0190, f02=» P D T 1 WP B B PD P V - 0 P A F# +T W Q P P 1 ! X T V C B Q 1 J Y @ r t @ B X _" ? X Z,W A H ?I X ' { B C X 4
0x4657fc…465990 Dummy {f00=0x0041, f01=0x0190, f02=» Y , Y B 9a C 8 J P: 8 B W0 B W B W B @ T 8 T Y Y Y Y Y . ! ~ X ._B B 1 4 X X X X ' 4 B U B $" 4 C 4 J * ~ _^ L 2 R x 0 R R 0 R " 0 0
0x465990…465b24 Dummy {f00=0x0041, f01=0x0190, f02=» 0P P > T C T" V$ Y Pp q 0 ) Wb X P^ T& B RPP" A $ @ d A t p WF @W( T$ P X T X P 4 Y C C 8W T 8P Y ^ 5 ) P U XT !
0x465b24…465cb8 Dummy {f00=0x0041, f01=0x0190, f02=» C W4 O " # X Y ) C C x # P Y '? Y Y T # P W d Y P R R P T ( P (@ $(@ " 2 @ _ > X $? P $ > > F C F C
0x465cb8…465e4c Dummy {f00=0x0041, f01=0x0190, f02=» 0$ T # R QL > X B U( H Q2 X D B $ T C x > C $ ) _ X 9BV X & J X D C > X H UJ H B P PL $ # Q > P _0 # T p > P p (_H
0x465e4c…465fe0 Dummy {f00=0x0041, f01=0x0190, f02=» > J X D D P ( ) 1_f _& ?(@ X P 0P X T 4 Y X 1 1 X P - M T $ PJ _ T " # p X L R P P P (@ : ^ X P8 P0 # P T P 0P 1 _ W
0x465fe0…466174 (4, 323) Dummy {f00=0x0041, f01=0x0190, f02=» d @ 1 A _ P 9 > > T R L U R9C _ T M D W. D D " @ @ - U _ 9B @ T u X > & ! ~! (!2- - .4. . - - " r0 9 ! ! T 9 ! X $ Y l X Y $ 9 X
0x466174…466308 Dummy {f00=0x0041, f01=0x0190, f02=» n X B X ; Z Y B X T < Z0:A Z: ^@ Y@ Y Y B Y ""0 Y V Y Y Y X X T V" X R # ;b9B Y Y ) Y X !? PZ P PR P ! X P _ X x ^ Y X
0x466308…46649c Dummy {f00=0x0041, f01=0x0190, f02=»# T X Pt X &Pf ! ! B Rh Qd :C P ! 9DV + ! (@ B | ! ! ! t ! ! l ! ( ! d ! 9 X Y P 9 " ! _ # 4 ! j PR C ! X ! ! (@ ! j R _ ! B 1 ;h 1 ! B 1 ! X* ! ! ! j ) ! #
0x46649c…466630 Dummy {f00=0x0041, f01=0x0190, f02=» ! _ X X H p ^ t ! tWX W l ! t C QR (Q _ X X D x ^ ! ! ! P @ 9 ! j T ) C W ! t ( - t ! t ) Wf W Y Z Y V Y X Y H @ TLB SLWF Y 8! T6 X Y X C X U X Y R V
0x466630…4667c4 Dummy {f00=0x0041, f01=0x0190, f02=» 2 ! # P W ! 9 ! X ^< Y Y F Y X RP 1 Y R Z 0 Y T 1 0B. X P P Y : ! 2 ! X # P Y P:A , X T A Z Y T @ ZB. Y Y J X $ Y C '? X " Y _ A H ? (@ X V X X K P0 @ T X ZT $C Y B K
0x4667c4…466958 Dummy {f00=0x0041, f01=0x0190, f02=» : X X 4 B :C 4 $ ! # T` @ TOT @ SST X Y N W( 0 ! # T. X Y N 9 ! X FT 4 X T X W (@ 0! D+ 1 Y W$ X T X W (@ 0! D, 1 Y 4 ! ;E :B 9A ! U
0x466958…466aec Dummy {f00=0x0041, f01=0x0190, f02=»:C 4 d ! t ( 4 X " 4 ! t ) 4 ^< Y Y Y X P 1 Y 0 Y 1 0B. X P Y : ! ! X # P Y :A , X A Y @ B. Y Y X $ Y C '? X " Y _ A H ? (@ X X K P @ T X T $C Y B K
0x466aec…466c80 Dummy {f00=0x0041, f01=0x0190, f02=» 7 6 "d% ' % Y W B T| C X _ H X H p ^ > X ( $ ^ WB X Y $:g H & I &! P& X d fP ,P 9A
0x466c80…466e14 (4, 324) Dummy {f00=0x0041, f01=0x0190, f02=»_ (X _ X $ _t0> > > @ j A j DW W J ^ ! Z2 h (X: @ jP T M ]J , ) A j P* P Y U ( ) 5 & > > [ [ j Z Z Z ? Z > P~ "R~ Y Pj T P` <UR "R4 PB X R< X T6 X
0x466e14…466fa8 Dummy {f00=0x0041, f01=0x0190, f02=» Y Y X X Y X X X X ' 4 B U B (" W C (@ > Y Y Y X 9BV$ X & Y " X D V J X ! 2 R " $ "l ? X V Y !! W< Y U R -P $v X , ) Y . $p X P Y P C WT X
0x466fa8…46713c Dummy {f00=0x0041, f01=0x0190, f02=» X . $ 4 T % $T X ,T !! W % Y . V % !"" B P X " _Z B P$ $$ R % C % * !""W Y +PH Y *P> Y (P Y )P % R _Q P OR R W " !"" B " Wr W 0 Z % !"" B Z Z& X . 0T N W X ,P Y . 0 %
0x46713c…4672d0 Dummy {f00=0x0041, f01=0x0190, f02=» " X , $4 P % X .T * W Y , - ? X :a Z T T W P X :d Y > > |Vd ? 8 R @R6 V @% =cW2 RBP R P 9 W. _ _ _ _ %0=c X 0P > 0 > >_ P > _v B 1 > NT 0 _ % ' ' '< PB P8
0x4672d0…467464 Dummy {f00=0x0041, f01=0x0190, f02=» T Y &_. P4 R( Pj O]> V _F T Y Y & V Y _^ C _P ! ! " $ P X & X ]r !! Y Y Y _ " _ !! !! & J X C _ X Y & Y > B B U$ $ ! T _ U D ! T _ C > X Z^<BR P f !
0x467464…4675f8 Dummy {f00=0x0041, f01=0x0190, f02=» !! P0 P X _ X " % !! !! X & & & ' + *8*J* ) !! P P ) & ) B P B H " +P P. T Y ' !! R| X ( Y &R Y & _ Y &_. B 1 +* !! * B B U4 $ ! T _ U
0x4675f8…46778c Dummy {f00=0x0041, f01=0x0190, f02=» ! B P !+ B C ) ^N P R ?] _ C _ ! ! " $ P X ' X ] !! * ( B !+ !+ !! ) B Y & !+ W ( 8!0T 8 !@P !! $ P !! !! * !! 1P X & C ,T Y & J X Y & Y > X " X
0x46778c…467920 Dummy {f00=0x0041, f01=0x0190, f02=»( R V P P" !! * W * "N X $ X !* _ X $ X X & !+ !+ Y _8 X " X &" Y )U W !! !! !! Y 4 B ( U )X R@ X X &" Y * X ) V Y !+ X $ X & !+ X * ( ( `R Y !
0x467920…467ab4 (4, 325) Dummy {f00=0x0042, f01=0x0190, f02=» ABCDEFGHI[.<(+!&JKLMNOPQR]$*);^-/STUVWXYZ|,%_>? 123456789:#@'=" abcdefghi[.<(+!&jklmnopqr]$*);^-/stuvwxyz|,%_>?0123456789:#@'=" ABCDEFGHI[.<(+!&JKLMNOPQR]$*);^-/STUVWXYZ|,%_>?0123456789:#@'= 7- <=2&p ?'
0x467ab4…467c48 Dummy {f00=0x0042, f01=0x0190, f02=»"?:B ] P H U _ T U P U ;C ,$ T -_> - _H "RT PL X TF X R@? V X & X H P J X P Y X H P @ J D < ? < ? <(@ . $ P B $ 9H C ">h # P >_2 < U = D
0x467c48…467ddc Dummy {f00=0x0042, f01=0x0190, f02=» P" P P P TX 1 0> / P V B B T P* & T$ L L R Q U , , _D , V :a B # S0 S0 Q Z8 Z< P X p _6 _6 " " P2 @ Q, , Y ," P L P T L R :A
0x467ddc…467f70 Dummy {f00=0x0042, f01=0x0190, f02=»"?:B ] P H U _ T U P U ;C ,$ T -_> - _H "RT > A0 @ @ 7l 7l @ R*P % % @ I I I I _> @ P f #D9 V 1 Y d ,P :A f A f >_2 < U = D
0x467f70…468104 Dummy {f00=0x0042, f01=0x0190, f02=» Px ' 4 3 ! 5 A0: 5 P< 6R P& 8! P6 K @P X T X !? ? 3 W W @W 5R 5 & 6 W A0: 5 X* 5 X2 " (@ I ' V V " LP V : V V P dW Y Y " V V T Y " Y $ 6$ P(_t
0x468104…468298 Dummy {f00=0x0042, f01=0x0190, f02=»$? 2R _2 J @" P Y 9 @ J ! T " Y X & $ ' 5 ! 5 5 P C P* 5 J : J < W W P X V C W 5 X ! "? K >Q 9 5RW Y B W _.! T 5 T P % Y % Y Y V + V K V K : V K < V
0x468298…46842c Dummy {f00=0x0042, f01=0x0190, f02=» P N & N T _ - M @ F Pp G p _ W C ( B P U 4 T 8 X>_. : X P (@ Y Y Y :" (@ X $ T ( _ ^ ( : 6 6 P" $ 5r 8X 8 , Y $ : _ & / (@ T X " C X
0x46842c…4685c0 Dummy {f00=0x0042, f01=0x0190, f02=» P0 8 T _ & & Y " 4 : : $ - Y : ~ 6 6 6 7,7,7, 0123456789 ' < +,-. 0123456789 @ABCDEFGHIJKLMNOPQRSTUVWXYZ[ ]~ * > ?;_: =!"#$%&/() @ABCDEFGHIJKLMNOPQRS
0x4685c0…468754 (4, 326) Dummy {f00=0x0042, f01=0x0190, f02=» D P _ $ % $P _ % A >f A A A @ " Q" 7p :d @ # U R>P0 P E @( AD @( P2 ? _ * A B|W * A A W :a2 * A @r D & W F W @ F W CRP BAP COP A W F A @ : V, @
0x468754…4688e8 Dummy {f00=0x0042, f01=0x0190, f02=» W W V V 8 !RRT W V X W W V V V PF A @ IbU U^ A Q IbVD Y2 W V @ " TJ W P IbY E ;h E
0x4688e8…468a7c Dummy {f00=0x0042, f01=0x0190, f02=» E T F W V E = V W Y( P Z& = :L < P W <9B @ V W Q E W @E A D @ <j V W <j! P W @ V P _ @ ! P* D 9h !RRP V V
0x468a7c…468c10 Dummy {f00=0x0042, f01=0x0190, f02=» :l 9b ) V _ @ V^ > >x W A>x A>L W W @( @( PH ? > W> @( T @ @(W @ = C W @7n W > > >8 > >8 ?h ? ?< >8 ?p ? ?< >8 ?x ? > >8 > >8 V 00
0x468c10…468da4 Dummy {f00=0x0042, f01=0x0190, f02=»> _ 0 !;; ? >8_ S ACE AC C @ R @ ! T AB AB @7n V V I E W V $ ) H V 0 !;;P P V PN _ P !;;T X$ W E nX T > : @( < : E > : 0
0x468da4…468f38 Dummy {f00=0x0042, f01=0x0190, f02=»W W W 0 !;;T~ : 0 !00Rr !99U !AARf !ZZQ` 0 !;;TR : ? : ? : ? : ? : ? : ? : 0 )T : !00T W : E TID=TCL=LEV=TDC=T0LC=0SDC=S0A I. : @ C. ? X C.9h! @ @ # " @ @ :A K :
0x468f38…4690cc Dummy {f00=0x0042, f01=0x0190, f02=» A7n AAv AAz AA AA AD A> AC AC( : 9e :e Q P 9e @7tP A7t9C) A I " @7t! P " :B A7v t q B J " n : 0 R _ <d?d A7rU <e @7tP A7t<C, D L " @7t$ P " :B A7v t w B J
0x4690cc…469260 Dummy {f00=0x0042, f01=0x0190, f02=» A7v @7tP A7tB J 4R 4 :B 4 @7t: V V 49B @7v 4R @ t w A I ! j : B AD A> AC AC( AB ! T B B W AB AB I ! : 9D @ @7pr s @7nA I T - A _ I N T V S : E C
0x469260…4693f4 (4, 327) Dummy {f00=0x005f, f01=0x0190, f02=»Tx xB. ? <X B.9 H7x Q B|_ @r_ !SSTF 0 U7~ P A X X W W X X S W W W : V W V T W P D V T W F P P V W @ $ P p W E T : AD D _
0x4693f4…469588 Dummy {f00=0x005f, f01=0x0190, f02=» [ [ : T W A A I ! : 9D W Z A. c @ V W U E R $ )_ :
0x469588…46971c Dummy {f00=0x005f, f01=0x0190, f02=» V _P V V : V J P GL r IbV U GL _ V GL Z K W W :K W r IbQ R t IbV E F v : V W V E ) : V <B W |P v
0x46971c…4698b0 Dummy {f00=0x005f, f01=0x0190, f02=»RR > R W > <B V x V |P v 1 v W V z ` G _f V : W R R I P Gn G W x G I _ V : " D Pd W V PL $;A^ D E D P. V E P E P T E E _J F E _T " D T E F E
0x4698b0…469a44 Dummy {f00=0x005f, f01=0x0190, f02=» : V P 9a _ " ( ) 8 ( ) : " $ V P 9A _ 0 : W W W ?AP ^ 0 : W ; V : : , X G : J @ 0 V @ E 0 H W : ? ? R 0 R P P B _ l : V ) I
0x469a44…469bd8 Dummy {f00=0x005f, f01=0x0190, f02=» ` $ $ W I $ I H J ) P _ " = D 4 Q J~_n I J Jh I = G $ HR V W $ H V E J K _X V r V :B A V 9n A @ A A V V @ ! @ P P
0x469bd8…469d6c Dummy {f00=0x005f, f01=0x0190, f02=»W U " @ Q V P A. V P _b A 9n A :B A V .V 3 S Y& P4 8 8 S P 3 _ 8 3 : h A. @ j @ W A : A A
0x469d6c…469f00 Dummy {f00=0x005f, f01=0x0190, f02=»P N W x G N Ir G _v V d , V E P _ N L % V d V f v G G v U G v G v : I P Gn I V I : G G V ~P N W x G _$ 8 V V x % V v % : V V F 9k! P % _ V V
0x469f00…46a094 (4, 328) Dummy {f00=0x0066, f01=0x0190, f02=» v ` " W p W ~ pP0 Mp R I P M| I _ W ~ R I X4 M| I _ ` @ ` W W ~ pPn I Jh V W % Mp R , I F " E R N` W ~ R N` R P P, R Xv P,_|W I T : Gn G W x G I _ V P8 I I
0x46a094…46a228 Dummy {f00=0x0066, f01=0x0190, f02=»I E R T E D E @ v H v E H I #_v W | ;b W W t V b v ( v W p V ` $ W ` F ;h 0 :C # : .=H N QP I .=H N QP I N : d 8" R _ ZY QY : @
0x46a228…46a3bc Dummy {f00=0x0066, f01=0x0190, f02=» E N :H N TBT W W8 2 " T @ E N =H N QP @ ) Qj !TTXX !CCT Qn !UUT d R Wh Q 2 .:H N P V E _ R :h " Q YV : v `?A @ W W :b
0x46a3bc…46a550 Dummy {f00=0x0066, f01=0x0190, f02=» 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 W t V V x A 7n c cBP T W r cB T W @ @ %
0x46a550…46a6e4 Dummy {f00=0x0066, f01=0x0190, f02=» @ P @ " P : V _ W W . !TTP E b @ T E Y Qj !TTX" A 9 A : ` @ V :a @ I @ A @ I ;a P$ W @ A @ T E A : 6 ` @ P VF_ VF 3 S S V V W @ @ T
0x46a6e4…46a878 Dummy {f00=0x0066, f01=0x0190, f02=» @ V Pf b 9h !RRP @ ! T W* b @ S W @ U E 3 S b S Yd @ @ T E : @ @ @ #D# P ; V Wj _ : @ " P @ P 3 _ @ " P V 3 S 1 S 9J S
0x46a878…46aa0c Dummy {f00=0x0066, f01=0x0190, f02=»CRT N =H N b W p N =H N QP W | ( @ % 5 T W @ = V W = V b P0 b< r " U E _2 b. P0 b< " U E _2 V tP IbR E
0x46aa0c…46aba0 Dummy {f00=0x0066, f01=0x0190, f02=» X D : . !TTP E V b W t * b P b< r _ b. Pd W p b< V 8 8 4 D P$ E @ # P H I K T + Y@ V p _f V t Y Qj !TTX @ @ T E
0x46aba0…46ad34 (4, 329) Dummy {f00=0x0066, f01=0x0190, f02=»T E P _ V A V W b W t b PT W f ( b< W d bL b G =h G V d V r < ] V f P W f _B _X V W V t Yv Qj !TTX @ @ T E : Qj !TTX !CCTr b
0x46ad34…46aec8 Dummy {f00=0x0066, f01=0x0190, f02=» @ ! P V 8 8 8 3 . !CCP W b P0 W f b< W d bL V d V r < ] V f _2 _X b. U^ b< V 8 8 8 4 D P$ E @ # P H I K T + Y@ _`R& @ @ @ % P V
0x46aec8…46b05c Dummy {f00=0x0066, f01=0x0190, f02=»P _ W $ q > R P >b W >b & 8P ^ _6 V 7 V W R 9 W D E ) $ PV D L Tp D &P V ` T @ 1 Q a 0 I , I . $# P8 V -W( ^ W" D V ` T @ 1 Q a : @ % PD H I H
0x46b05c…46b1f0 Dummy {f00=0x0066, f01=0x0190, f02=» W H $ I & % E , a : V Q R $ F !LLT # W ;I # ;b W ;a WR# T W W,# T W W # T W W W R _ $ W : E Y Z V @ VT A V V W Y0 Z6 X @ XT A X V >A 8
0x46b1f0…46b384 Dummy {f00=0x0066, f01=0x0190, f02=» *T P _ / P *_ *T P$ _ .P _ / V z U Y$ P W | V z 3 % W P _ V |P V v ] <W v P _ @ VP V E A V (P ) @ V @ XP V E A X (P ) @ X @ @ T
0x46b384…46b518 Dummy {f00=0x0066, f01=0x0190, f02=»P N =H N T b Qj_ : @ ! P (W ( : 00=H 00 P P _ _ : U U U V` WB W Y Z [ ` @ R @ $ D L * A CRT M " c&c0c6c< c| Pd 6d@ Qdt 0d cNcTc^cdcj ! 1 6 0
0x46b518…46b6ac Dummy {f00=0x0066, f01=0x0190, f02=» 8' Y d4 _ / P 4% P dh 8' Y d VP P 4% P d X ( @ T
0x46b6ac…46b840 Dummy {f00=0x0066, f01=0x0190, f02=» ' 0 9 B M Y e q ~ 3 H ] s 6 Q l ! $ $ ' + K / v 4 ? ? F W J @7 R ! 4 ,END OF FORMAT FOUND PRESS R
0x46b840…46b9d4 (4, 330) Opaque[0x194]
0x46b9d4…46bb68 # DirEnt {nam=»CTAB01«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x2728, f03=0x0000}
0x46b9d4…46bb68 IdxSect {
0x46b9d4…46bb68 f00 = 0x0139 // 0x46b9d4 @0x0
0x46b9d4…46bb68 f01 = 0x0002 // 0x46b9d6 @0x2
0x46b9d4…46bb68 gno = [ // 0x46b9d8 @0x4
0x46b9d4…46bb68 [0x00]: C0x0139.0x1.0
0x46b9d4…46bb68 ]
0x46b9d4…46bb68 }
0x46bb68…46bcfc Dummy {f00=0x0139, f01=0x0190, f02=» " P IDENT CTAB01 81-06-19/E,VRANG P ENTRY CTAB01 * 0 PCTAB01 DATA FUNC,FUNC,UNSC,SHIFT,SHIFT,SHIFT @ > PFUNC DATA /0081,/8083,/8485,/8687,/8889,/8A8B,/8C8D,/8E8F t : P DATA /3031,/3233,/3435,/3637,/3839,/9A9B,/9C9D,/9091 : P DATA /9293,/9495,/9
0x46bcfc…46be90 Dummy {f00=0x0139, f01=0x0190, f02=»7,/3839,/8F91,/8580,/8A90 t : P DATA /4041,/4243,/4445,/4647,/4849,/4A4B,/4C4D,/4E4F " : P DATA /5051,/5253,/5455,/5657,/5859,/5A5B,/5C5D,/7E00 ` > PSHIFT DATA /2000,/0000,/0000,/002A,/8B3E,/003F,/3B5F,/3A00 : P DATA /3D21,/2223,/2425,/262F,/2829,/8F9
0x46be90…46c024 Dummy {f00=0x0139, f01=0x401a, f02=»0 END @ t : P DATA /4041,/4243,/4445,/4647,/4849,/4A4B,/4C4D,/4E4F " : P DATA /5051,/5253,/5455,/5657,/5859,/5A5B,/5C5D,/7E00 ` > PSHIFT DATA /2000,/0000,/0000,/002A,/8B3E,/003F,/3B5F,/3A00 : P DATA /3D21,/2223,/2425,/262F,/2829,/8F9
0x46c024…46c1b8 Dummy {f00=0x0139, f01=0x2008, f02=» END @ r : P DATA /4041,/4243,/4445,/4647,/4849,/4A4B,/4C4D,/4E4F : P DATA /5051,/5253,/5455,/5657,/5859,/5A5B,/5C5D,/5EFF ^ > PSHIFT DATA /20FF,/FFFF,/FFFF,/FF2A,/FFFF,/FF3F,/3B5F,/3AFF : P DATA /3D21,/2223,/2425,/262F,/2829,/FFFF,
0x46c1b8…46c34c Dummy {f00=0x0139, f01=0x0190, f02=» d 0 P ^ 8 PR t H D ! ^ B R # Z ' B + 3 ^ ; ? P GP MP 0 H D ! Q UP e i mP uP PV T Q V8 ^ 6 8 t | H D ! " WX W l " QR Q 8 Z #P + 1T ;W
0x46c34c…46c4e0 Dummy {f00=0x0139, f01=0x0190, f02=» P L L L ` H D !$ F )P 1W 5 S F [ R ]P c R q T } P P H D ! P P T T J < V X P0 T Z T ? H I J KP O J h H D ! UP ]P, iP 8 8 T` X T Z T N H D ! 8
0x46c4e0…46c674 (4, 331) Opaque[0x194]
0x46c674…46c808 # DirEnt {nam=»SYSBUG«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x2708, f03=0x0000}
0x46c674…46c808 IdxSect {
0x46c674…46c808 f00 = 0x0138 // 0x46c674 @0x0
0x46c674…46c808 f01 = 0x0006 // 0x46c676 @0x2
0x46c674…46c808 gno = [ // 0x46c678 @0x4
0x46c674…46c808 [0x00]: C0x0138.0x1.0
0x46c674…46c808 [0x01]: C0x0138.0x3.0
0x46c674…46c808 [0x02]: C0x0143.0x1.0
0x46c674…46c808 ]
0x46c674…46c808 }
0x46c808…46c99c Dummy {f00=0x0138, f01=0x0190, f02=» 2 P IDENT SYSBUG REL 10.0 80-03-14 870105041000 P : P* B P* L 8 P*************************************************** V P* $ P* PHILIPS TERMINAL SYSTEM PTS P* 2 P* SYSBUG = INTERRUPT VECTORS, SYSTEM CONTROL 2 P*
0x46c99c…46cb30 Dummy {f00=0x0138, f01=0x018e, f02=»*************** l P* P* " P EJECT SYSBUG , P* D P* N P*********** X P* ENTRIES * l P*********** P* P* 4 P ENTRY SCTMSZ,SCTSFA,SCTEFA SYSTEM CONTROL TABLE P ENTRY SCTIPL P ENTRY SCTANO,SCTA
0x46cb30…46ccc4 Dummy {f00=0x0138, f01=0x0190, f02=» P ENTRY SCTSTB P ENTRY SCTOPT P ENTRY SCTTCT,SCTCDT 0 P ENTRY SCTBUG L & P ENTRY SCTDMT,SCTDMI,SCTFWT,SCTNOF b & P ENTRY SCTNFT,SCTFWL,SCTBLK,SCTDCT P ENTRY SEG:FC,SEG:NS & P ENTRY SEG:ST,SEG:DS,SEG:EL,SEG:PB & P ENTRY PAG:Q
0x46ccc4…46ce58 Dummy {f00=0x0138, f01=0x0190, f02=»* P* EXTERNALS * P************* P* 6 P* @ P EXTRN TDISP J , P EXTRN IHPFAR POWER FAIL / AUTO RESTART ^ P EXTRN IHLKM LKM INTERRUPT P EXTRN IHRTC REAL TIME CLOCK P EXTRN IHTW TYPEWRITER P EXTRN IHTC CASSETTE T
0x46ce58…46cfec Dummy {f00=0x0138, f01=0x0190, f02=» NO. 1 p * P EXTRN CHRT2 REMOTE CHANNEL UNIT NO. 2 P EXTRN CHRT3 < P EXTRN CHRT4 P ( P EXTRN IHCC1 CASSETTE CHANGER NO. 1 d ( P EXTRN IHCC2 2 ( P EXTRN IHCC3 3 * P EXTRN CHLT1 LOCAL CHANNEL UNIT
0x46cfec…46d180 Dummy {f00=0x0138, f01=0x018e, f02=» M) DISC l P EXTRN IHLP LINE PRINTER P EXTRN IHCR CARD-READER 0 ( P EXTRN IHDU1,IHDU2 DISC UNIT NO. 1/2 P 0 P EXTRN IHMD,IASCUZ,ISLCI,ISLCO MINI FIX DISC | P EXTRN IHMT MAG. TAPE $ P EXTRN ILLINT ILLEGAL INTERRUPT P EXTRN HALT HALT R
0x46d180…46d314 (4, 332) Dummy {f00=0x0138, f01=0x0190, f02=» PSEG:FC EQU -4 FILE CODE $ PSEG:NS EQU -2 NUMBER OF SEGMENTS $ PSEG:ST EQU 0 STATUS L $ PSEG:DS EQU 2 DISC SECTOR ADDRESS h " PSEG:EL EQU 4 EFFECTIVE LENGTH $ PSEG:PB EQU 6 PAGE BLOCK ADDRESS P* & PPAG:QF EQU 0 QUEUE POINTER FORWA
0x46d314…46d4a8 Dummy {f00=0x0138, f01=0x0190, f02=» 2 PSWB:NC EQU 0 NUMBER OF COPIES WITHIN SWB TYPE 2 PSWB:DS EQU 2 DISC SECTOR ADDRESS OF FIRST COPY : $ PSWB:EL EQU 4 SWB LENGTH (BYTES) p & PSWB:NS EQU 6 SWB LENGTH (SECTORS) P* P P P P P EJECT SYSBUG P*
0x46d4a8…46d63c Dummy {f00=0x0138, f01=0x0190, f02=»LINT 3 P DATA ILLINT 4 P DATA ILLINT 5 0 P DATA ILLINT 6 L P DATA IHTW 7 h P DATA ILLINT P DATA IHSOP 9 P DATA ILLINT P DATA ILLINT P D
0x46d63c…46d7d0 Dummy {f00=0x0138, f01=0x0190, f02=» P DATA ILLINT P DATA ILLINT $ P DATA ILLINT D P DATA ILLINT d P DATA ILLINT P DATA ILLINT 22 P DATA ILLINT P DATA CHLT1 24 P DAT
0x46d7d0…46d964 Dummy {f00=0x0138, f01=0x0190, f02=» P DATA IHFD 30 P DATA ILLINT 31 P DATA ILLINT 32 : P DATA ILLINT 33 V P DATA IHLP 34 r P DATA ILLINT P DATA ILLINT 36 P DATA ILLINT 37 P DATA ILLINT 38 P DATA IL
0x46d964…46daf8 Dummy {f00=0x0138, f01=0x0190, f02=» P DATA ILLINT P DATA ILLINT 45 $ P DATA ILLINT 46 @ P DATA ILLINT 47 P DATA ILLINT x P DATA ILLINT 49 P DATA ILLINT 50 P DATA ILLINT 51 P DATA ILLINT 52 P
0x46daf8…46dc8c Dummy {f00=0x0138, f01=0x0190, f02=» P DATA ILLINT 58 P DATA ILLINT 59 P DATA ILLINT 60 < P DATA ILLINT 61 X P DATA ILLINT 62 t P DATA TRAP TRAP ROUTINE P EJECT SYSBUG P P* " P* SYSTEM CONTROL TABLE POINTER P*
0x46dc8c…46de20 Dummy {f00=0x0138, f01=0x0190, f02=»LT P P* P* DEBUG RESTART ENTRY P* : P XRR A13,A13 D P XRR A14,A14 X P LD A1,SCTBUG l P ABR(NZ) A1 P HLT P* P EJECT SYSBUG P* P* PX:A EQU 0 MONITOR OPTION ( PX:B EQU 0 DATA M
0x46de20…46dfb4 (4, 333) Dummy {f00=0x0143, f01=0x0190, f02=» OF FILES/TASK z $ PX:F EQU 0 FILE WORK TABLE LENGTH PX:G EQU 0 DC TASK IN SYSTEM > P* b P EJECT SYSBUG l P* P* SYSTEM CONTROL TABLE P* PSCT EQU * P * PSCTMSZ DATA 0 MEMORY SIZE MOD K BYTES & PSCTSFA DAT
0x46dfb4…46e148 Dummy {f00=0x0143, f01=0x0190, f02=» MD:F4,F5 FD:F8,F9 | $ PSCTANO DATA 0 APPLICATION NUMBER 4 PSCTADA DATA 0,0 APPLICATION DISC SECTOR ADDRESS B . PSCTIOE DATA 0 APPLICATION RESTART ADDRESS z PSCTTCT DATA 0 TCTAB ADDRESS PSCTCDT DATA 0 CDTAB ADDRESS PSCTPAG DATA 0 PAGTAB
0x46e148…46e2dc Dummy {f00=0x0143, f01=0x0190, f02=»MMU TABLE COMMON PART ENTRY P INDEX REL TTAB $ 0 PSCTLAC DATA 0 LOGICAL ADDRESS OF COMMON PART > & PSCTMMP DATA 0 MMU TABLE PAGE ENTRY r P INDEX REL TTAB * PSCTLAP DATA 0 LOGICAL ADDRESS OF PAGES ( PSCTNPE DATA 0 NUMBER OF PAGE ENTRIES
0x46e2dc…46e470 Dummy {f00=0x0143, f01=0x0190, f02=» 13:FM,14:DSKPAG,15:MMUPAG PSCTBUG DATA BUG DEBUGGER " & PSCTDMT DATA X:B DMTASKS IN SYSTEM B & P BIT 12:#G, 13:#F, 14:#E, 15:#D l 2 PSCTDMI DATA 00000 DM INDEX RECORD BUFFER SIZE P EJECT SYSBUG P* P* * PSCTFWT DATA 0 FW
0x46e470…46e604 Dummy {f00=0x0143, f01=0x018c, f02=»FILE WORK TABLE LENGTH ~ ( PSCTBLK DATA 6 NUMBER OF BLOCKS/TASK , PSCTDCT DATA X:G DC-TASK IN SYSTEM/REMOTE J P EJECT SYSBUG z P P* P* SYSTEM STACK P* P RES 143 P DATA /FCC0 AND PSW & PSTB DATA LOOP AND PC FOR
0x46e604…46e798 Dummy {f00=0x0143, f01=0x4008, f02=»@ K TABLE LENGTH ~ ( PSCTBLK DATA 6 NUMBER OF BLOCKS/TASK , PSCTDCT DATA X:G DC-TASK IN SYSTEM/REMOTE J P EJECT SYSBUG z P P* P* SYSTEM STACK P* P RES 143 P DATA /FCC0 AND PSW & PSTB DATA LOOP AND PC FOR
0x46e798…46e92c Dummy {f00=0x0143, 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
0x46e92c…46eac0 Dummy {f00=0x0143, f01=0x0190, f02=» " _: Y L " Y F Y L $ Y ! ! # P W ! 9 ! X ^< Y Y F Y X RP 1 Y R 0 Y T 1 0B. X P P Y : ! ! X # P Y P:A , X T A Y T @ B. Y Y J X $ Y C '? X " Y _ A H ? N(@ X V
0x46eac0…46ec54 (4, 334) Opaque[0x194]
0x46ec54…46ede8 # DirEnt {nam=»M:DEBG«, typ=»LM«, f00=0x0000, f01=0x0000, f02=0x2d28, f03=0x0000}
0x46ec54…46ede8 IdxSect {
0x46ec54…46ede8 f00 = 0x0169 // 0x46ec54 @0x0
0x46ec54…46ede8 f01 = 0x0014 // 0x46ec56 @0x2
0x46ec54…46ede8 gno = [ // 0x46ec58 @0x4
0x46ec54…46ede8 [0x00]: C0x0169.0x1.0
0x46ec54…46ede8 [0x01]: C0x0169.0x2.0
0x46ec54…46ede8 [0x02]: C0x0169.0x3.0
0x46ec54…46ede8 [0x03]: C0x016a.0x0.0
0x46ec54…46ede8 [0x04]: C0x016c.0x1.0
0x46ec54…46ede8 [0x05]: C0x016d.0x0.0
0x46ec54…46ede8 [0x06]: C0x016d.0x1.0
0x46ec54…46ede8 [0x07]: C0x016d.0x2.0
0x46ec54…46ede8 [0x08]: C0x016d.0x3.0
0x46ec54…46ede8 [0x09]: C0x016e.0x0.0
0x46ec54…46ede8 ]
0x46ec54…46ede8 }
0x46ede8…46ef7c Dummy {f00=0x0169, f01=0x0190, f02=»D Nq L L L L L L L L L ' L L L L L L L L L L L L L' L L L L L L L L L L L L L L L L L L L L L L L L L L L L L L L R c @ T ^ z ^ r h V H 2 Z f9 z
0x46ef7c…46f110 Dummy {f00=0x0169, f01=0x0190, f02=» 4c : @Y/ pJ @ d _ 2Z $"z y ?H T+ V y J t Dh i VR 1H W ] [ ? d % L X! "~ T &b Cn 1 d _ A H " , _ @, > > U # T @ P H ( ( P c P W6 A, $ V ( U P @ V L
0x46f110…46f2a4 Dummy {f00=0x0169, f01=0x0190, f02=» H A Q > ? A H A FQ 2_ A F < Q @ P @ Q @ Z Y _ 8 , Q Z P 0 9 _ z $ _, ? _ P H H ? ? ? ? ? ^ A _ _ ^ , $P T I R $ 5 % > ? W ? W ? T
0x46f2a4…46f438 Dummy {f00=0x0169, f01=0x0190, f02=» @+ T R 0 A+ 1 Q Q > > 0 @+ 1 A+ P P > " ? * X R Y P _ ? @ 8 R Y P _ W0 8 X W( ? ` @ @ P $ H W W > > > > > > @ DV ? D > _ > ? _ > > ? ^ ! Y ^ _ R ? JA. ~
0x46f438…46f5cc Dummy {f00=0x0169, f01=0x0190, f02=» " P PR 4 5 T P ? X U X . > PZ PF P P 0 X T Y Wn U U T X^ T E - Y Tx 8RtWP 4 U P> $P4> R0> 8' T Y X ' T P X P " > - Z X "X 8' T 8Z" X ' X
0x46f5cc…46f760 Dummy {f00=0x0169, f01=0x0190, f02=» >B @ P A . T 8TV 9WD B 7P P - A+ W A+ @+ A.W ? A HI.9 X R C C J - ?A @+ A. X V 9_: v @ ~ 8 x N B < U P
0x46f760…46f8f4 (4, 335) Dummy {f00=0x0169, f01=0x0190, f02=» P 0R Q W R ?U C ! _f Y (P Y ) _ ^ _ ! x P: B L # +P Y , ! U _ X T _ W ! Y ! X X ! X P R ?]* U C _. _: ! ! " $ P X , X ]T ! Y h Y _p ? X R X X
0x46f8f4…46fa88 Dummy {f00=0x0169, f01=0x0190, f02=» Y , Y B 9a C - 8 J P: 8 B W0 B W B W B @ T 8 T Y Y Y Y - Y . ! ~ X ._B B 1 4 X X X X ' 4 B U B $" 4 C 4 J * ~ _^ L x B U P
0x46fa88…46fc1c Dummy {f00=0x0169, f01=0x0190, f02=» P D T 1 WP B B PD P - V - 0 P A F# +T W Q P P 1 ! X T V C B Q 1 J - Y @ r t @ B X _" ? X Z,W A H ?I X ' { B C X 4
0x46fc1c…46fdb0 Dummy {f00=0x0169, f01=0x0190, f02=» Y , Y B 9a C 8 J P: 8 B W0 B W B W B @ T 8 T Y Y Y Y Y . ! ~ X ._B B 1 4 X X X X ' 4 B U B $" 4 C 4 J * ~ _^ L 2 R x 0 R R 0 R " 0 0
0x46fdb0…46ff44 Dummy {f00=0x0169, f01=0x0190, f02=» 0P P > T C T" V$ Y Pp q 0 ) Wb X P^ T& B RPP" A $ @ d A t p WF @W( T$ P X T X P 4 Y C C 8W T 8P Y ^ 5 ) P U - XT !
0x46ff44…4700d8 Dummy {f00=0x0169, f01=0x0190, f02=» C W4 O " # X Y ) C C x # P Y '? Y Y T # P W d Y P R R P T ( P (@ $(@ " 2 @ _ > X $? P $ > > F C F C
0x4700d8…47026c Dummy {f00=0x0169, f01=0x0190, f02=» 0$ T # R QL > X B U( H Q2 X D B $ T C x > C $ ) _ X 9BV X & J - X D C > X H UJ H B P PL $ # Q > P _0 # T p > P p (_H
0x47026c…470400 Dummy {f00=0x0169, f01=0x0190, f02=» > J X D D P ( ) 1_f _& ?(@ X P 0P X T 4 Y X 1 1 X P - M T $ PJ _ T " # p X L R P P P (@ : ^ X P8 P0 # P T P 0P 1 _ W
0x470400…470594 (4, 336) Dummy {f00=0x0169, f01=0x0190, f02=» d @ 1 A _ P 9 > > T R L U R9C _ T M D W. D D " @ @ - U _ 9B @ T u X > & - , - - (- :" :T : ; ;n 9 : & r=L 0 A V U A P @ , A x A r @ ~ A !h A ~ @ A !<
0x470594…470728 Dummy {f00=0x0169, f01=0x0190, f02=» R $ ( , 0 4 8 < 2 _ S A
0x470728…4708bc Dummy {f00=0x0169, f01=0x0190, f02=»P UW B @ = / 0 M Q n R h S Z T Y ( G P H L V " I ^ U t _v A P_ NO! A A A A A A A A *T A _ P A A V . r , + - ; : X " H W X
0x4708bc…470a50 Dummy {f00=0x0169, f01=0x0190, f02=» T " ( ^ @ P A A " @ n tT @ XW @ A X W W 0 n _, W W V PP @ & 0 n T A P P _b _J A $ tT @ X W @ T @ W @ @
0x470a50…470be4 Dummy {f00=0x0169, f01=0x0190, f02=» 0 n W t A W @ A n P 3P C @ P @ @ P @ Q A t @ A " T @ W @ A z " A tP P @ _2 P tT z 0 P P _ @ t v @ @ @ P
0x470be4…470d78 Dummy {f00=0x0169, f01=0x0190, f02=» ` H A @ v @ @ T A A P@ @ PB t @ ! T A @ A # A t l RE FRN GME RMN S W R, ( T ( W P T $ ; V ; W~&~ P &`P 6 P @ $ P $W $ TR
0x470d78…470f0c Dummy {f00=0x0169, f01=0x0190, f02=» v A p A r pW ^ P _ " ^ T @ 9J A T _ 1@ _ ^ 9 V >! D A A > > > > > > > > ^ _ ^ _ ? ? ? ? ? A ^ @ ? ? X > > > > > > > @ V >
0x470f0c…4710a0 Dummy {f00=0x0169, f01=0x0190, f02=» A " A " 0R$ 9U AR FQ 0:D A " _* A " " A L A N n T A N A L " R _U . " A : A " A A $ T ! " A @ T 0W 0W A @ T 1W 1 @ "
0x4710a0…471234 (4, 337) Dummy {f00=0x016a, f01=0x0190, f02=» ! R :W" W W W ?W /W : A! W ! A! A PL ! _ @ _ I T " T A P I T$! A A A A A A A A A!F A @ A @ >
0x471234…4713c8 Dummy {f00=0x016a, f01=0x0190, f02=» " ,* 9 !&(! T 9 !( X $ Y + & X Y $ 9 X !P T4 A+ W A+ @+ A. R t"J - Y R WF L! Y X N Y !) X P. P P& P R P # X %* - - ,* B X ; Z Y B X T < Z0:A Z:
0x4713c8…47155c Dummy {f00=0x016a, f01=0x0190, f02=» X !? PZ P PR P !( X P * _ X x ^ Y X P !) !&( P @ 9W@ !( X P * Y !&, X P X !( X P X * _ X p ^ &L P P !&,# T X Pt X &Pf !( !$ B Rh Qd :C P * !&,9DV + !$ (@ B | !)
0x47155c…4716f0 Dummy {f00=0x016a, f01=0x0190, f02=»% (@ !) R _ !) *T 1 ;h 1 !) 1 !) * !&( !% !) ) !&,# X Y P_ P P !) P @ 9 4 ,* & !) P X 1P B " +PV T ( C Q V8 !(v !&, !) _ X * X H p ^ t !) WX W l !) C QR (Q _
0x4716f0…471884 Dummy {f00=0x016a, f01=0x0190, f02=» Z Y V Y X Y H @ TLB SLWF Y 8! T6 X Y X C X U X Y R V Y " W 8 J - Y _ ? + Y Y X LP y L_* L t& _: Y L " Y F Y L! Y !) !&,# P + W !( 9 !&, X ^< Y Y F Y X RP 1 Y R +
0x471884…471a18 Dummy {f00=0x016a, f01=0x0190, f02=» X " Y _ A H ? + (@ X V X X K P0 @ T X ZT $C Y B - K & % Y B K X H :AZl X JP Y J ! P + 7P, $ P + < $ <C ! 9 9 4 X 9C X : X X 4 B :C * 4 $ * !&,# T` @*& TOT @*( SST X Y
0x471a18…471bac Dummy {f00=0x016a, f01=0x0190, f02=» T X W * (@ 0! D9x 1 Y 4 !) ;E :B 9A !) U *TP jW kQ 4 9 $ 0" Z Y P Z _ 4 A&F;D A&F 4 R _ ;H 4 | !) (:C * 4 d !) ( 4 X " 4 !) ) 4 ^< Y Y Y X P 1 Y
0x471bac…471d40 Dummy {f00=0x016a, f01=0x0190, f02=» X " Y _ A H ? (@ X X K P @ T X T $C Y B K & % Y B K X :AZl X P ! +
0x471d40…471ed4 (4, 338) Dummy {f00=0x016c, f01=0x0190, f02=» > X ( $ ^ WB X Y $:g H & I &! P& X , , P ,P 9A _ H &P I & > , P Y , X"; [&;! P &Z.?AZ2 @, Q & X " $XJ ( I T E _ (X _ X $ _t< > > @, A, DW W J ^ !
0x471ed4…472068 Dummy {f00=0x016c, f01=0x0190, f02=» "R~ Y - Pj T P` - <UR "R4 PB X R< X T6 X T0. T G Y6 G _` P ,P - _ ? 8! W0" P T 8! P< P8 . Y Y Y Y - X X Y X X X X ' 4 B U B (" W C
0x472068…4721fc Dummy {f00=0x016c, f01=0x0190, f02=»W< Y U R -P 0 X , ) Y . 0 X P Y P C WT X " PP:A: R Q W Y <D X ? ?: T p > 2 > Pb P C 0 B 0 T B % X . $ 4 T % 0 X ,T !.8W 2 Y . V 2 !. B P X " _Z B
0x4721fc…472390 Dummy {f00=0x016c, f01=0x0190, f02=»Wr W 0 Z 2 !. B Z Z& X . 0T N W X ,P Y . 0 %_. % Y . W _p P 2 _ C !. - " 1 QPR X R(;GV$ .R 1 P8 X R2;GV. X " /J X , $4 P 2 X .T * W Y , - - ? X :a Z T T W P X
0x472390…472524 Dummy {f00=0x016c, f01=0x0190, f02=» > >_ P > _v B 1 > NT 0 _ 22 3 4 3 PB P8 - B P B L # +P !. !. T !. Y & !. W !. !. W !. Y Y 3b .x U P" T Y &_. P4 R( Pj O]> V _F T Y Y & V Y _^ C _P .x .x
0x472524…4726b8 Dummy {f00=0x016c, f01=0x0190, f02=» U$ $ ! T _ U D ! T _ C > X Z^<BR P f .R X _x R0 V0 ! P* P P P" R ?Q !. Y R Q 3R . -_ ? _ X # !. ^ Y _( ? X Z !. P0 P X _ X " 22 !. !. X & 3 3H 4x8r6 6
0x4726b8…47284c Dummy {f00=0x016c, f01=0x0190, f02=» Y & _ Y &_. B 1 7 !. 6 B B U4 $ ! T _ U D ! T _ $$ X" X& X* C .x 6> X`" E4rP( 8'0P E4rTD ! T 9 _ ! T @_ ! .x B P !8 B C 6> ^N P R ?] _ C _ .x .x" $
0x47284c…4729e0 Dummy {f00=0x016c, f01=0x0190, f02=» !. !. 6 !. 1P X & C ,T Y & J - X Y & Y > X " X &" Y )Q Y > X Z2<BR > .R ? Y !. T X !. Y & Zl 6 T _ !. X $ P !7p 5P R V P P" !. 6 W 6 . X $ X !7p_ X $ X X & !8,
0x4729e0…472b74 (4, 339) Dummy {f00=0x016d, f01=0x0190, f02=»" Y * X ) V Y !8 X $ X & !8, X * 5P 5 `R Y !. !. !. 4 !. V !. V W :h !. 4 X )" X '# R 4 6 > ABCDEFGHI[.<(+!&JKLMNOPQR]$*);^
0x472b74…472d08 Dummy {f00=0x016d, f01=0x0190, f02=»&JKLMNOPQR]$*);^-/STUVWXYZ|,%_>?0123456789:#@'= 7- <=2&p ?' @O {[lP}M] Nk`Ka z^L~no| J Z_m j TOSS' "?:B ] P H U _ T U P U ;C ,$ T -_> -
0x472d08…472e9c Dummy {f00=0x016d, f01=0x0190, f02=» <(@ ;F $ P B $ 9H C ">h # P >_2 < U = D (@ " $ P B >H<h ; P ?_" = > = > = =_D R _ 00 > & <h$ P > " 2 P* P P" P P P TX >N < - <P P V B B T P* & T$
0x472e9c…473030 Dummy {f00=0x016d, f01=0x0190, f02=» _6 _6 " " P2 @ Q, , Y ," P L P T L R :AV ' > _ k`Ka z^L~no| #A 1 < =N "?:B ] P H U _ T U P U ;C ,$ T -_> -
0x473030…4731c4 Dummy {f00=0x016d, f01=0x0190, f02=» #D9 V 1 Y , ,P :A , A, >_2 < U = D (@ " $ P B >H<h ; P ?_" = > = > = =_D R _ 00 > < < T M F < Px ' @ @(! A A< B P< B P& 8! P6 K @P X T X !?
0x4731c4…473358 Dummy {f00=0x016d, f01=0x0190, f02=» : V V P dW Y Y " V V T Y " Y $ B P(_t d(@ - $T 1 %_" Y (_ @< 0P $P X X $ $P, # ' P @T #?W #?$? > _2 J @" P Y 9 @ J ! T " Y X & $ ' A ! A
0x473358…4734ec Dummy {f00=0x016d, f01=0x0190, f02=»T P % Y % Y Y V + V K V K : V K < V K A V % K C V & K D X P K @ X 9AV K 9 !? K > F C & G C R A C N ! N P N & N T _ - M @ F Pp G , _ W C (
0x4734ec…473680 Dummy {f00=0x016d, f01=0x0190, f02=» C$P" $ A 8X 8 , Y $ : _ & <R(@ T X " C X B V P B _ : C A @=X @=| =T A =N V )$ T B * Y $ : & $ Y : @ P0 8 T _ & & Y " 4 : : $ - Y : ~
0x473680…473814 (4, 340) Dummy {f00=0x016d, f01=0x0190, f02=»HIJKLMNOPQRSTUVWXYZ[ ]~ * > ?;_: =!"#$%&/() @ABCDEFGHIJKLMNOPQRSTUVWXYZ[ ]^ c ($SWAP A A A A A. Q@ UU @ @ ! P$>B @R* AR* @R* E D P _ $ % $P _ % A >f A A A
0x473814…4739a8 Dummy {f00=0x016d, f01=0x0190, f02=» & W F W @ F W CRP BAP COP A W F A @ : V, @ P RP;b=H : G: F G:W =J : R F P W W @ $ P @ R| W W U R" W W V V 8 !RRT W V X W W V
0x4739a8…473b3c Dummy {f00=0x016d, f01=0x0190, f02=» P U Y RP G RJ Y P @ P @ T W - RJP _ T <B :L A W A A W RJ T F W V RP = V W Y(
0x473b3c…473cd0 Dummy {f00=0x016d, f01=0x0190, f02=» @ H V W H ! P W @ V P _ @ ! P* Q.9h !RRP V V H W _> RP Q. Q. P V V PZ W @ @ ! T _ P :l 9b ) V _ @ V^ K J W AJ
0x473cd0…473e64 Dummy {f00=0x016d, f01=0x0190, f02=» J KL J K L K J K L K J K L KR J KR J V 00P& L$ K L KL J L L KF J _0 KR J V 00P L$ L L KL J _ 0 !TTX W AJ !CCT CC AK6 K2_ 0 !;; L4 J _ S AO AP O @ R @ ! T AOP AOd @C V
0x473e64…473ff8 Dummy {f00=0x016d, f01=0x0190, f02=»X$ W R` nX T K( : L I. : RP K* : 0 !TTT 0 !;;T : W W 0 !99Q P !00R P 00W 11 AK P.=H_, !11R T$ 0 !LLP !RRP !AAP !SSP W W W 0 !;;T~ : 0 !00Rr !99U !AARf !ZZQ` 0 !;;TR : L< : L@
0x473ff8…47418c Dummy {f00=0x016d, f01=0x0190, f02=» L C. LX X C.9h! L L # " L L :A K : A T.I T P 1 I P < R P A _> RP : @ " P P D MD AMz AM~ AM AM W M AC AM AM AN AN" AQ AK* AO AO : 9e :e Q P
0x47418c…474320 Dummy {f00=0x016d, f01=0x0190, f02=» AC U <e @C P AC <C, D L " @C $ P " :B AC t w B J " r R,Q$ @ ( = @C Q @C "| _@ _$ : AN AN AN AN N AQ AK* AO AO : h:B* AC @C P AC B J 4R 4 :B 4 @C : V V 49B @C 4R @
0x474320…4744b4 (4, 341) Dummy {f00=0x016d, f01=0x0190, f02=»A I T - A _ I N T V S : RP O O 9PJ S Y T@ $ 1T: C !CCTr : 1P P$_ P =H P ] @ T X W n : YX d C !CCTx xB. LX <X B.9 HC Q N _ L _ !SSTF 0 UC P A
0x4744b4…474648 Dummy {f00=0x016d, f01=0x0190, f02=» F P P V W @ $ P p W R` T : AP Q _ 0V , - P X 9A_ : @ ! P (W ( :W> 2 W 0 . " A A A A AK* 2 ; Z [ : : [ [ : `
0x474648…4747dc Dummy {f00=0x016d, f01=0x0190, f02=» W Z A. c @ V W U RP R $ )_ : W W W W W U Q@ V V v x W V V v p R( W V W ^< _@ V _P V V : V J P S r
0x4747dc…474970 Dummy {f00=0x016d, f01=0x0190, f02=»R v : V W V RP ) : V <B W |P v v : $ S V |P v w v : V $ V l $ S V M : W V R RR > R W > <B V x V |P v 1 v W V z
0x474970…474b04 Dummy {f00=0x016d, f01=0x0190, f02=» V RPP RP P T RP E _J S E _T " D T E S E D E % : " R ;B S " R P( |P v v : V W 0 : V P 9a _ " ( ) 8 ( ) : " $ V P 9A _ 0 : W W W ?AP
0x474b04…474c98 Dummy {f00=0x016d, f01=0x0190, f02=» ? R 0 R P P B _ , : V ) VT v : 4P: " D Vz , H H $ M v b - I Y0 : @ ` V b pP ` $ $ W Vp $ I H V ) P _ " = D
0x474c98…474e2c Dummy {f00=0x016d, f01=0x0190, f02=» V 9n A @ A A V V @ ! @ P P P P|_ _ @ 9N @ :b @ :b V W U6 T 9BW P P( P V W U " @ Q V P A. V P _b A 9n A :B A
0x474e2c…474fc0 Dummy {f00=0x016d, f01=0x0190, f02=» h A. @ j @ W A : A A - > l : V R S W n V pT : N V l W H V ]" . nT" T4 W v T W n V ~P Z W x T [ U T _v V d , V RP P _ N
0x474fc0…475154 (4, 342) Dummy {f00=0x016d, f01=0x0190, f02=» 8 V V x % V v % : V V R 9k! P % _ V V W W r VT W V S v ) W b G S v ) - V S W f v ) G v ` " W p W ~ pP0 Y R V(P Y V0_ W ~ R V(X4 Y V0
0x475154…4752e8 Dummy {f00=0x016d, f01=0x0190, f02=» R Z R P R Xv _|W V(T : S T4 W x T V0_ V P8 Vz I V S C C $ @ v D B I v W z ` pPl Vp H - V VT I T " R V@ E R T E D E @ v H v E T U #_v W |
0x4752e8…47547c Dummy {f00=0x016d, f01=0x0190, f02=» .=H N ] V@ N : d 8" R _ ZY QY : @ V H W z W | CRP W ` ` H W d 2 ;A @ U R RP - @ - N !TTP RP N :H N TBT W W8 2 " T @ RP N =H N ] @
0x47547c…475610 Dummy {f00=0x016d, f01=0x0190, f02=» " ^$ YV : v `?A @ W W :b / W W @ W D V@ V W W ` " W p @ pP. " 4X 1 R Z0 _ W l a w ` :A W V d
0x475610…4757a4 Dummy {f00=0x016d, f01=0x0190, f02=» x A C o o P aJ W r o aJ W @ @ % o> V , P@ , - 4 ] 4 U Y 5 X * _6 : W @ ] @ P @ " P : V _ W W . !TTP RP n @ T RP Y ]
0x4757a4…475938 Dummy {f00=0x016d, f01=0x0190, f02=» ` @ P b _ b 3 S S V V W @ @ T RP : P S S _ : V CRP COP W @ 3 V 3 3 @ o o S @ V Pf o 9h !RRP @ ! T W* o @ S W
0x475938…475acc Dummy {f00=0x016d, f01=0x0190, f02=» _ : @ " P @ P 3 _ @ " P V 3 S 1 S 9J S ( 3 ( 9B @ @ T RP : W . !TTP RP n W t N =H N W l V CRT N =H N n W p N =H N ] W | ( @ % 5 T W @ = V
0x475acc…475c60 Dummy {f00=0x016d, f01=0x0190, f02=» U RP _2 V tP U R RP S ( V | S =J @ " S V l S W l V S V CRT V p S W p W W _ ] !TTT d Q> : . !TTP RP V n W t * n
0x475c60…475df4 (4, 343) Dummy {f00=0x016e, f01=0x0190, f02=» K T + Y@ V p _f V t Y ] !TTX @ @ T RP : W % @ P _ R @ WT R @ 0 W ` W W& T RP P _ V A V W n W t n
0x475df4…475f88 Dummy {f00=0x016e, f01=0x0190, f02=»] !TTX @ @ T RP : ] !TTX !CCTr n P, n V r 4 U RP $ $ _. n P, n V 4 U RP $ $ _. @ @ @ ! P V 8 8 8 3 . !CCP W n P0
0x475f88…47611c Dummy {f00=0x016e, f01=0x0190, f02=»P H I K T + Y@ _`R& @ @ @ % P V 4 4 4 _r @ @ T RP : W V F !SST l WJ !AAT l W> l V V 0 V P _ W $ q > R P >b W >b & 8P kD k V D V W
0x47611c…4762b0 Dummy {f00=0x016e, f01=0x0190, f02=» -W( kDW" D V ` T @ 1 Q a : @ % PD H I H T P( H U V U W < + + P jF V : ` P: @ @ @ D (P W H $ I & % E , a : V Q R $ F !LLT # W
0x4762b0…476444 Dummy {f00=0x016e, f01=0x0190, f02=» Y Z + @+ T A+ V W Y0 Z6 + @+ T A+ V >A 8T 9 0 1 8 $; # V ;c F !AAP # $ < $ : W | v z *T P _ / P *_ *T P$ _ .P _ /
0x476444…4765d8 Dummy {f00=0x016e, f01=0x0190, f02=» R` A+ (P ) @+ @+ P V R` A+ (P ) @+ @ @ T RP : N =H N ] : N =H N ] : &=H F ] : F =H F ] : F =H F ] : P N =H N T n ] _ : @ ! P (W ( : 00=H 00 P P _
0x4765d8…47676c Dummy {f00=0x016e, f01=0x0190, f02=»o o Pp 6p Qp 0q( o o o o o ! 1 6 0 + + + + . KB pFC, !AAP p p(p( 84h Y p _ /
0x47676c…476900 Dummy {f00=0x016e, f01=0x0190, f02=» P 42( P qP + ( @ T RP : N =H N ] : N =H N ] : &=H F ] : F =H F ] : F =H F ] : P N =H N T n ] _ : @ ! P (W ( : 00=H 00 P P _
0x476900…476a94 (4, 344) Opaque[0x194]
0x476a94…476c28 # DirEnt {nam=»DRFDDE«, typ=»UF«, f00=0x0000, f01=0x0000, f02=0x2a90, f03=0x0000}
0x476a94…476c28 IdxSect {
0x476a94…476c28 f00 = 0x0154 // 0x476a94 @0x0
0x476a94…476c28 f01 = 0x0002 // 0x476a96 @0x2
0x476a94…476c28 gno = [ // 0x476a98 @0x4
0x476a94…476c28 [0x00]: C0x0154.0x2.0
0x476a94…476c28 ]
0x476a94…476c28 }
0x476c28…476dbc Dummy {f00=0x0154, f01=0x0190, f02=» PLED DRFD01,/S,## P##IL 0 P CONV, 81-04-18,DK1 * $ P ONLY VALID FOR DATA ENTRY,DK1 H P##DL 906 p ( P CF A5,ASC:01 TRANSFORM TO ASCII DK1 P##DL 967 0 P CF A5,EBC:01 TRANSFORM AND MOVE TO BUF DK1 P##DL 1576 4 P CF A5
0x476dbc…476f50 Dummy {f00=0x0154, f01=0x018e, f02=»01 BUFFER NOT IN SYSTEM AREA DK1 * P LD A4,DWTBA,A6 GET BUFFER ADDRESS DK1 ( P RF ASC:02 DK1 V PASC:01 EQU * DK1 n P##IL 1617 PASC:02 EQU * DK1 P##DL 1648 4 P LD A1,DWT:LA,A6 GET LOGICAL BUFFER ADDRESS DK1 0 P RF(NZ) EB
0x476f50…4770e4 Dummy {f00=0x0154, f01=0x0134, f02=» P##IL 1652 PEBC:02 EQU * DK1 P##IL 1653 0 P ENB DK1 B P##RE 1660,$$ SC$$* SC$$ T . P SCR A1,A4 PUT EBCDIC IN OUTPUT BUFFER DK1 t P##RE 1663,$$ LDKL$$* LDKL$$ P##EN PKPF /S,DRFDDE PSCR PASM DRFDDE
0x4770e4…477278 Dummy {f00=0x0154, f01=0x2008, f02=» 1652 PEBC:02 EQU * DK1 P##IL 1653 0 P ENB DK1 B P##RE 1660,$$ SC$$* SC$$ T . P SCR A1,A4 PUT EBCDIC IN OUTPUT BUFFER DK1 t P##RE 1663,$$ LDKL$$* LDKL$$ P##EN PKPF /S,DRFDDE PSCR PASM DRFDDE
0x477278…47740c Dummy {f00=0x0154, f01=0x0190, f02=» SCTNOP SCTPSZ SCTMMC 0 SCTLAC D SCTMMPL X SCTLAP0 l SCTNPE SCTSTB SCTOPT bBUG SCTBUG , (
0x47740c…4775a0 Dummy {f00=0x0154, f01=0x408a, f02=» SCTDCT ^ _ > T t@ SCTSTB SCTOPT bBUG SCTBUG , (
0x4775a0…477734 (4, 345) Opaque[0x194]
0x477734…4778c8 # DirEnt {nam=»DRFDDE«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x2a98, f03=0x0000}
0x477734…4778c8 IdxSect {
0x477734…4778c8 f00 = 0x0154 // 0x477734 @0x0
0x477734…4778c8 f01 = 0x0022 // 0x477736 @0x2
0x477734…4778c8 gno = [ // 0x477738 @0x4
0x477734…4778c8 [0x00]: C0x0154.0x3.0
0x477734…4778c8 [0x01]: C0x016f.0x2.0
0x477734…4778c8 [0x02]: C0x016f.0x3.0
0x477734…4778c8 [0x03]: C0x0170.0x0.0
0x477734…4778c8 [0x04]: C0x0170.0x1.0
0x477734…4778c8 [0x05]: C0x0170.0x2.0
0x477734…4778c8 [0x06]: C0x0170.0x3.0
0x477734…4778c8 [0x07]: C0x0171.0x0.0
0x477734…4778c8 [0x08]: C0x0171.0x1.0
0x477734…4778c8 [0x09]: C0x0171.0x2.0
0x477734…4778c8 [0x0a]: C0x0171.0x3.0
0x477734…4778c8 [0x0b]: C0x0172.0x0.0
0x477734…4778c8 [0x0c]: C0x0172.0x1.0
0x477734…4778c8 [0x0d]: C0x0172.0x2.0
0x477734…4778c8 [0x0e]: C0x0172.0x3.0
0x477734…4778c8 [0x0f]: C0x0173.0x0.0
0x477734…4778c8 [0x10]: C0x0173.0x1.0
0x477734…4778c8 ]
0x477734…4778c8 }
0x4778c8…477a5c Dummy {f00=0x0154, f01=0x0190, f02=» 2 P IDENT DRFD01 REL 10.0 80-04-29 870105041000 P CONV, 81-04-18,DK1 : $ P ONLY VALID FOR DATA ENTRY,DK1 X P P* 2 P********************************************** P* " P* PHILIPS TERMINAL SYSTEM PTS P* ( P* DRF
0x477a5c…477bf0 Dummy {f00=0x0154, f01=0x0190, f02=»******* j P* P* 0 P* THIS DISK DRIVER HANDLES UP TO FOUR DAISY $ . P* CHAINED FLEXIBLE DISK DRIVES PTS 6879, X 0 P* CONNECTED TO CPU VIA CHANNEL UNIT CHFD ON & P* MULTIPLEX OR PROGRAMMED CHANNEL P* P* P EJECT DRF
0x477bf0…477d84 Dummy {f00=0x0154, f01=0x0190, f02=» -IBM DISC ONLY- t P* /05 BASIC WRITE * D P* /06 SEQUENTIAL WRITE -IBM DISC ONLY- F P* /11 PHYSICAL READ P* /15 PHYSICAL WRITE P* /21 OPEN P* /22 CLOSE P* /24 WRITE DELET
0x477d84…477f18 Dummy {f00=0x0154, f01=0x0190, f02=»38 UNLOAD P* P* ENTRY PARAMETERS: P* : P* A5 STACK BASE D P* A6 DWT-ADDRESS ` P* A7 ORDER | P* A8 ECB-ADDRESS P EJECT DRFD01 P* P*********** P* * P* ENTRIES *
0x477f18…4780ac Dummy {f00=0x0154, f01=0x018e, f02=»RY FDON RECOVERY ROUTINE P ENTRY DWFD01 DWT-ADDRESS P EJECT DRFD01 B P* Z P************* d P* * z P* EXTERNALS * P* * P************* P* P EXTRN TDISP DISPATCHER P EXTRN TENDI
0x4780ac…478240 Dummy {f00=0x0154, f01=0x0190, f02=» & P EXTRN VOLNAM VOLUME NAME ADDRESS 0 P EXTRN VOLGET VOLUME NAME TO DWT AND SET NVL . . P EXTRN NVLCHK CHECK FOR NEW VOLUME LOADED b P EXTRN DWTST STATUS P EXTRN DWTECB ECB ADDRESS " P EXTRN DWTUEC USER ECB ADDRESS $ P EXTRN DWTOR DWT
0x478240…4783d4 (4, 346) Dummy {f00=0x016f, f01=0x018e, f02=» EXTRN DWTSB2 STACK BASE 2 IN DWT P EXTRN TTB:MT MMU TABLE * ( P EXTRN SAVE8 SAVE A1-A8 ON A15 STACK J P EXTRN SETIMP TIMER v & P EXTRN INTSAV INTERRUPT SAVE AREA & P EXTRN PFPOST PWF POST PROC. FLAG & P EXTRN TASCII EBCDIC TO ASCII TAB
0x4783d4…478568 Dummy {f00=0x016f, f01=0x0190, f02=» n & P EXTRN ECBRL ECB REQUESTED LENGTH & P EXTRN ECBEL ECB EFFECTIVE LENGTH 2 $ P EXTRN ECBCW1 ECB CONTROL WORD 1 $ P EXTRN ECBCW2 ECB CONTROL WORD 2 P EJECT DRFD01 P* P************************ P* *
0x478568…4786fc Dummy {f00=0x016f, f01=0x0190, f02=»EAD OF PROGRAMMED x P* CHANNEL BY SETTING X:A = 0 P* > PX:A EQU 1 H PCHAN EQU 1 Z P* l 2 P* A PROGRAM VERSION INCLUDING TOSS DISC FORMAT v ( P* IS OBTAINED BY SETTING TOSS EQU 1. P* PX:B EQU 0 PTOSS EQU 1 P*
0x4786fc…478890 Dummy {f00=0x016f, f01=0x0190, f02=»M EQU 1 P* . P* A PROGRAM VERSION USING TOSS MMU PAGING * P* IS OBTAINED BY SETTING MMUPAG EQU 1. L P* z PMMUPAG EQU 1 P* P* 6 P* A PROGRAM VERSION USING THE EXTENDED INSTRUCTION . P* SET IS OBTAINED BY SETTING CPU85
0x478890…478a24 Dummy {f00=0x016f, f01=0x0190, f02=»HICH CONTROLS THE POWER l D P* TO THE DISK DRIVE UNIT CAN BE INCLUDED BY SETTING OPCLOS =1 P* h PX:D EQU 0 r POPCLOS EQU 1 P* P EJECT DRFD01 P* P* P* MMU BUFFER SIZE P* P* P IFT MMUPA
0x478a24…478bb8 Dummy {f00=0x016f, f01=0x0190, f02=»* P* P* MMU DEVICE INDEX P* 0 P* : PDEVIND EQU 10 D P* Z P EJECT DRFD01 d P* | P************* P* * P* CONSTANTS * P* * P************* P* & PCUADR EQU
0x478bb8…478d4c Dummy {f00=0x016f, f01=0x0190, f02=»TOR LENGTH ~ & PMAXSEC EQU 2002 MAX SECTOR NUMBER . PMAXIBM EQU 1923 MAX SECTOR NUMBER IBM DISC < ( PBOE EQU 28 BEGIN OF EXTENT POSITION n & PEOE EQU 34 END OF EXTENT POSITION $ PEOD EQU 74 END OF DATA POSITION PTIME EQU 20 DELAY - POWER ON
0x478d4c…478ee0 Dummy {f00=0x016f, f01=0x0190, f02=» P* P EJECT DRFD01 P* & P********** 0 P* * B P* TABLES * T P* * f P********** x P* P IFF CHAN+IBM=0 ( P DATA DVBLEN+DVBLEN MMU BUFFER SIZE P XIF P* P IFT CHAN=0 P IFT I
0x478ee0…479074 (4, 347) Dummy {f00=0x016f, f01=0x0190, f02=»RESS r " P DATA 0 ABORT ROUTINE ADDRESS P* 2 P EJECT DRFD01 < P* T P*************** ^ P* * v P* TEST STATUS * P* * P*************** P* PTESTST EQU * P IFF IBM+TOSS=0
0x479074…479208 Dummy {f00=0x016f, f01=0x018e, f02=» P ANK A1,1 $ P RF(NZ) DIS:EN DISC NOT OPERABLE * P LDKL A2,/7FFF RESET REQUEST ERROR BIT > P ANRS A2,A6 l P* P IFF TOSS+IBM=0 " P CF A5,VO:NAM GET VOLUME NAME , P LD A1,DWTORD,A6 RESTORE INDEX AND ORDER P ST A1,DWTOR,A6
0x479208…47939c Dummy {f00=0x016f, f01=0x0190, f02=» P EJECT DRFD01 P* P************** & P* * < P* ACTIVATION * R P* * h P************** ~ P* PFDAD EQU * ACTIVATION ENTRY P IFT MMUPAG=1 P IFT CHAN=0 P CM BUFFLG,A6 P XIF
0x47939c…479530 Dummy {f00=0x016f, f01=0x0190, f02=»RN CODE t P LDK A3,0 P LC A3,DWTOR,A6 GET INDEX " P* D P IFT OPCLOS=1 N P* d & P* CHECK IF OPEN OR CLOSE ORDER n P* P LDR A1,A7 ORDER P SUK A1,/21 P RF(Z) OPEN OPEN P SUK A1,1 " P RF(NZ) FD:ORD N
0x479530…4796c4 Dummy {f00=0x016f, f01=0x0190, f02=»* P* 4 P* CLOSE IS PERFORMED BY WRITING A ONE TO BIT 2 P* ZERO OF THE SOP LIGHTS EXTERNAL REGISTER L P* " P LDKL A1,/8000 MASK FOR BIT 0 & P ORS A1,SPDLCI SET OPEN/CLOSE BIT P RF OPEN10 P* P EJECT P*
0x4796c4…479858 Dummy {f00=0x016f, f01=0x0190, f02=»RO TO BIT j 2 P* ZERO OF THE SOP LIGHTS EXTERNAL REGISTER. P* H POPEN EQU * R " P LDKL A1,/7FFF MASK FOR BIT 0 d ( P ANS A1,SPDLCI CLEAR OPEN/CLOSE BIT P* POPEN10 EQU * 0 P LD A1,SPDLCI SOP LIGHTS AND OPEN/CLOSE DATA " P
0x479858…4799ec Dummy {f00=0x016f, f01=0x0190, f02=»SET p ( P ADR A4,A6 A4:=TIMER POINTER ADDRESS P LDR A1,A6 SAVE DWT-ADDR 8 P CF A15,SETIMP WAIT X . P DATA OPENRE,OPENTI START ADDR, WAIT TIME t P ABL TDISP EXIT P* POPENRE EQU * P LDR A6,A1 GET DWT-ADDR , P CM DWTTP2,A
0x4799ec…479b80 Dummy {f00=0x016f, f01=0x0190, f02=»CT P* & P* PUT DRIVE NO IN CIO-INSTRUCTION P* > PFD:ORD EQU * H P LC A2,DIXTAB,A3 , P SC A2,DWTA3+1,A6 SAVE DRIVE INDEX MASK t P* P IFT IBM+TOSS=2 P AN A2,DWTLAB,A6 ( P SC A2,DWTFIB+1,A6 INDICATE TOSS/IBM
0x479b80…479d14 (4, 348) Dummy {f00=0x0170, f01=0x0190, f02=» TESTST TEST STATUS P* P IFT IBM=0 & P SUK A3,38 8 " P RF(N) INTEST READ/WRITE ORDER J P SUK A3,18 p P ABL(NP) LOAD LOAD/UNLOAD P XIF P* P IFT IBM=1 P SUK A3,1 P RF(Z) INTEST BASIC READ P SUK A3,1
0x479d14…479ea8 Dummy {f00=0x0170, f01=0x018e, f02=»TIAL WRITE | P SUK A3,32 & P RF(N) INTEST PHYSICAL READ/WRITE $ P SUK A3,11 N P RF(Z) IBMCHK REWIND ` P SUK A3,7 | P ABL(NP) LOAD LOAD/UNLOAD P XIF P* PIBMCHK EQU * P IFT TOSS+IBM=2 P LD A4,DWTFIB,A6 &
0x479ea8…47a03c Dummy {f00=0x0170, f01=0x0190, f02=» p P XIF P* P EJECT DRFD01 P* 4 P* > $ PREQERR ABL DISIOE REQUEST ERROR H P* p 0 PINCLEN EQU * INCORRECT REQUESTED LENGTH EXIT z P LDKL A1,/8008 RETURN CODE P* PDIS:EN EQU * . P ABL DISEND PERFORM TENDIO
0x47a03c…47a1d0 Dummy {f00=0x0170, f01=0x0190, f02=»S+IBM=0 . P CF A15,NVLCHK CHECK IF NEW VOLUME LOADED P ADK A1,0 B $ P RB(NZ) DIS:EN NEW VOLUME LOADED T P XIF | P* P LD A3,ECBRL,A8 2 P RB(Z) INCLEN INCORRECT INPUT PARAMETER ECBRL ( P SRC A3,7 NUMBER OF PHYSICAL SECTORS
0x47a1d0…47a364 Dummy {f00=0x0170, f01=0x018e, f02=»D A2,ECBCW2,A8 GET SECTOR NUMBER P* ( P IFT IBM+TOSS=2 2 P LD A4,DWTFIB,A6 J P RF(NZ) INTES5 IBM-DISC b P XIF P* P IFT TOSS=1 P LDR A4,A3 6 P SRC A4,1 CHECK IF EVEN NUMBER OF PHYSICAL SECTORS 2 P RB(N) INCLEN IN
0x47a364…47a4f8 Dummy {f00=0x0170, f01=0x0190, f02=» P* PINTES5 EQU * P XIF " * P LDR A4,A2 SAVE PHYSICAL SECTOR NUMBER . P RB(N) REQERR REQUEST ERROR P SUKL A4,MAXSEC P RB(NN) REQERR REQUEST ERROR P ADR A4,A3 " P RB(P) INCLEN INCORRECT LENGTH , P ST A3,DWTNOS,A6 SAV
0x47a4f8…47a68c Dummy {f00=0x0170, f01=0x018e, f02=» ECB BUFFER ADDRESS | P* P IFT MMUPAG=1 & P LCR A2,A8 < P ANK A2,/30 N 4 P ST A2,DWT:BF,A6 SAVE BITS 0-1 IN 18-BIT ADDRESS b P XIF P* P EJECT DRFD01 P* P* MULTIPLE SECTOR IO ENTRY P* PFD:000 EQU
0x47a68c…47a820 Dummy {f00=0x0170, f01=0x0190, f02=» P LDKL A2,512 P LDK A4,3 P SUK A3,4 * & P RF(NN) FD:005 FOUR PHYS. SEC. IO < P* f PFD:003 SUK A2,128 p P SUK A4,1 P ADK A3,1 P RB(NZ) FD:003 P* PFD:005 EQU * . P ST A4,DWTSIO,A6 SECTORS IN ONE IO ON
0x47a820…47a9b4 (4, 349) Dummy {f00=0x0170, f01=0x0190, f02=» P* P* P IFT MMUPAG=1 P IFF CHAN+IBM=0 . " P LD A2,DWTBA,A6 BUFFER ADDRESS F P LD A1,DWT:BF,A6 l , P RF(NZ) FD:007 BUFFER NOT IN SYSTEM AREA P LDR A3,A2 P RF(NN) FD:009 6 P AD A3,DWTRL,A6 CHECK IF 64K LIMIT WILL BE P
0x47a9b4…47ab48 Dummy {f00=0x0170, f01=0x0190, f02=»/F0 P SRL A3,2 P SLL A1,2 P ORR A1,A3 0 2 P SC A1,DWT:PA,A6 6 BIT PHYSICAL BUFFER ADDRESS B ( P ADK A1,/4 CREATE ONE MORE MMU ENTRY x P SC A1,DWT:PA+2,A6 P ANKL A2,/FFF P LDR A1,A2 ( P ORK A1,1 INDICATE ADDRESS NOT ZER
0x47ab48…47acdc Dummy {f00=0x0170, f01=0x018e, f02=» LD A1,DWTOR,A6 P ANK A1,/3F ORDER P SUK A1,1 2 P RF(Z) FD:060 BASIC READ D P SUK A1,4 d P RF(Z) FD:015 BASIC WRITE v P SUK A1,12 P RF(Z) FD:060 PHYSICAL READ P SUK A1,4 P RF(Z) FD:013 PHYSICAL WRITE * P SUK
0x47acdc…47ae70 Dummy {f00=0x0170, f01=0x0190, f02=» < P* WRITE DELETED DATA, PHYSICAL AND BASIC WRITE ORDERS ! P* ! D & P LDK A4,1 WRITE DELETED DATA ORDER ! N & PFD:013 EQU * PHYSICAL WRITE ORDER ! x P ADK A4,4 ! " PFD:015 EQU * BASIC WRITE ORDER ! P ADK A4,1 ! " P CF A5,BIO PREPARATION FOR C
0x47ae70…47b004 Dummy {f00=0x0170, f01=0x0190, f02=» P XIF " P* " P IFT MMUPAG=1 " P IFF CHAN+IBM=0 " 0 4 P LD A1,DWT:LA,A6 GET FLAG/LOGICAL BUFFER ADDRESS " H ( P RF(Z) FD:019 BUFFER IN SYSTEM AREA " P LDR A7,A3 REQUESTED LENGTH " P LDR A8,A2 SAVE A2 " & P LDKL A4,BUF DRIVER BUFFER ADD
0x47b004…47b198 Dummy {f00=0x0170, f01=0x0190, f02=» FROM USER TO SYSTEM AREA " | & P TL -30,A15 RESTORE MMU FROM STACK # " P LDR A2,A8 RESTORE A2 # L 0 P CM BUFFLG,A6 INDICATE BUFFER IN SYSTEM AREA # j PFD:019 EQU * # P XIF # P* # P IFT TOSS+IBM=2 # P LD A1,DWTFIB,A6 # P RF(Z) FD:018 NO
0x47b198…47b32c Dummy {f00=0x0170, f01=0x0190, f02=» # P XIF $ P* $ P EJECT DRFD01 $ P* $ 6 P* $ @ " P CF A5,FD:WRITE PERFORME WRITE $ J * P ANKL A3,/200 CHECK IF WRITE PROTECTED $ p P RF(Z) FD:020 $ P LDK A3,/40 INDICATE ERROR $ , P ORRS A3,A6 UPDATE TEMPORARY RETURN CODE $ PFD
0x47b32c…47b4c0 Dummy {f00=0x0170, f01=0x0190, f02=» $ ~ P* PHYSICAL READ * % P* * % " P***************** % < P* % V PFD:060 CF A5,BIO % ` P* % x P IFT MMUPAG=1 % P IFT CHAN=0 % P IFT TOSS+IBM=2 % P LD A1,DWTFIB,A6 % P RF(Z) FD:070 TOSS DISC % & P LDKL A4,BUF
0x47b4c0…47b654 (4, 350) Dummy {f00=0x0170, f01=0x0190, f02=»1 % P IFT CHAN=1 & P LD A1,DWT:LA,A6 & ( P RF(Z) FD:080 BUFFER IN SYSTEM AREA & 6 & P LDKL A4,BUF DRIVER BUFFER ADDRESS & b 0 P CM BUFFLG,A6 INDICATE BUFFER IN SYSTEM AREA & P XIF & P* & P IFT MMUPAG=1 & P IFT IBM=1 & P IFT TOSS+
0x47b654…47b7e8 Dummy {f00=0x0170, f01=0x0190, f02=» EQU * & P CF A5,FD:REA PERFORM READ ' P* ' 0 P IFT TOSS+IBM=2 ' : P LD A1,DWTFIB,A6 ' R P RF(Z) FD:090 NOT IBM ' j P XIF ' P* ' P IFT IBM=1 ' P IFT MMUPAG=0 ' ( P LD A4,DWTBA,A6 ASCII OUTPUT ADDRESS ' P XIF ' P* ' P
0x47b7e8…47b97c Dummy {f00=0x0170, f01=0x0190, f02=»* ' P* ( P IFT MMUPAG=1 ( P IFT CHAN=0 ( * P IFT TOSS+IBM=2 ( > P LD A1,DWTFIB,A6 ( V P RF(Z) FD:100 TOSS DISC ( n P XIF ( P* ( P IFT MMUPAG=1 ( P IFF CHAN+IBM=0 ( 4 P LD A2,DWT:LA,A6 GET FLAG/LOGICAL BUFFER ADDRESS ( (
0x47b97c…47bb10 Dummy {f00=0x0170, f01=0x0190, f02=»0,A15 SAVE RUNNING TASK MMU ( ( P TL DWT:PA,A6 LOAD PSEUDO MMU TABLE ) $ 2 P MVSU A7 MOVE BUFFER FROM SYSTEM TO USER AREA ) P & P TL -30,A15 RESTORE MMU FROM STACK ) P XIF ) PFD:100 EQU * ) P ABL FDMSIO ) P* ) P EJECT DRFD01 ) P*
0x47bb10…47bca4 Dummy {f00=0x0170, f01=0x0190, f02=»R CODE ) | P RF(Z) UNLOAD UNLOAD ORDER * P ADK A3,1 * 0 P RF(Z) LOAD00 LOAD ORDER * B P ADK A3,17 * b $ P RB(NZ) RQ:ERR ERROR IF NOT LOCK * t P* * PLOAD00 EQU * * P LDK A2,/14 LOCK * P CF A5,FD:REA * P ANK A3,1 * & P RF(NZ) LOA:80
0x47bca4…47be38 Dummy {f00=0x0170, f01=0x0190, f02=» P IFT IBM=1 + P LC A3,DWTOR+1,A6 GET ORDER + P SUK A3,/26 + : P RF(Z) LOA:65 LOCK ORDER + N P CF A5,VO:NAM + n " P CF A5,LD:RC CHECK RETURN CODE + P EJECT DRFD01 + P* + P* READ DATA SET LABEL + P* + P LD A2,ECBCW2,A8 SEC
0x47be38…47bfcc Dummy {f00=0x0170, f01=0x0190, f02=» P SLL A2,3 BIO , P LDK A3,80 LENGTH , P LDKL A4,BUF , 4 P CF A5,FD:REA , H P SLL A1,4 CHECK NO DATA BIT , ^ P RF(NN) LOA:60 NOT NO DATA , 0 P ORK A3,/10 INDICATE ILLEGAL DATA SET LABEL , PLOA:60 EQU * , P CF A5,LD:RC , P ENB ,
0x47bfcc…47c160 Dummy {f00=0x0170, f01=0x0190, f02=» CF A5,LOGSEC TRANSFORM TO LOGICAL SECTOR , P LDK A1,DWTBOE - 2 $ P CF A5,STDWT STORE BOE NO IN DWT - H P SUK A3,1 CRN - p P LDK A1,DWTCRN - P CF A5,STDWT - P ADK A4,EOE-BOE EOE ADDRESS - P CF A5,LOGSEC - P LDK A1,DWTEOE - $ P CF A5,S
0x47c160…47c2f4 (4, 351) Dummy {f00=0x0170, f01=0x0190, f02=» INHIBIT - b P LDK A1,DWTEOD . $ P CF A5,STDWT STORE EOD NO IN DWT . 2 P* . Z PLOA:65 EQU * . d P LDKL A3,/400 . x , P ORRS A3,A6 UPDATE TEMPORARY RETURN CODE . P* . PLOA:70 EQU * . P XIF . P LD A2,DWTA3,A6 . " P ORS A2,
0x47c2f4…47c488 Dummy {f00=0x0170, f01=0x0190, f02=»T ERROR . ~ , P SCR A1,A6 UPDATE TEMPORARY RETURN CODE / P XIF / @ P* / L P EJECT DRFD01 / V P* / n P* / x P IFF TOSS+IBM=0 / P* / P* ERROR , UNLOCK / P* / PLOA:90 EQU * / P LDR A5,A6 / P ADKL A5,DWTSB2 STACK BASE
0x47c488…47c61c Dummy {f00=0x0170, f01=0x0190, f02=» / P ANK A3,/17 FATAL ERROR 0 P RB(NZ) LOA:90 0 ( & P LDKL A4,BUF DRIVER BUFFER ADDRESS 0 > P RTN A5 0 h P XIF 0 x P* 0 P EJECT DRFD01 0 P* 0 P********** 0 P* * 0 P* UNLOAD * 0 P* * 0 P********** 0
0x47c61c…47c7b0 Dummy {f00=0x0170, f01=0x0190, f02=»7,0 SET CR (CHECK EOD) 0 P RF(Z) UNL:70 NOT OPEN 1 4 P ST A7,12,A8 STORE EOD-NO IN CONTROL WORD OF ECB 1 < P* 1 t , P* READ DATA SET LABEL TO DRIVER BUFFER 1 ~ P* 1 P CF A5,DSLIO PREPARE FOR I/O 1 & P CF A5,FD:REA READ DATA SET LABEL 1 $ P C
0x47c7b0…47c944 Dummy {f00=0x0170, f01=0x0190, f02=»F A5,DSOPCH EOD-NO TO A7 1 P* 2 P* DIVIDE EOD BY 26 2 * P* 2 F P LDK A1,0 2 P PUNL:10 SUK A7,26 2 b P RF(N) UNL:20 2 z P ADK A1,1 2 P RB UNL:10 2 P* 2 P EJECT DRFD01 2 P* 2 P* 2 PUNL:20 ADK A7,27 2 P* 2
0x47c944…47cad8 Dummy {f00=0x0170, f01=0x0190, f02=» LDKL A4,BUF+EOD+4 ADDRESS TO POS 79 2 P SCR A3,A4 3 , P SUK A4,1 3 > P SRL A3,8 LEFT BYTE 3 P P SCR A3,A4 STORE IN BUFFER 3 l P LDR A7,A1 TRACK 3 ( P CF A5,BINDEC DEC EBCDIC-CODED IN A3 3 P SUK A4,3 3 P STR A3,A4 TRACK INTO BUF 3 F P I
0x47cad8…47cc6c Dummy {f00=0x0170, f01=0x0190, f02=» PREPARE FOR I/O 3 P ORK A2,5 PHYSICAL WRITE 4 ( P CF A5,FD:WRITE WRITE DATA SET LEBEL 4 8 $ P CF A5,UNL:RC CHECK RETURN CODE 4 d P CF A5,DSOPCH 4 P CMR A2 INDICATE NOT OPEN 4 P* 4 P EJECT DRFD01 4 P* 4 P* UNLOCK 4 P* 4
0x47cc6c…47ce00 Dummy {f00=0x0170, f01=0x0190, f02=» P C1 A2,DWTA3,A6 INDEX MASK 5 , P ANS A2,DWTLC,A6 INDICATE UNLOCK IN DWT 5 & P RB LOA:80 END:IO 5 V P* 5 p P IFT IBM=1 5 z P* 5 P* UNLOAD RETURN CODE CHECK 5 P* 5 PUNL:RC EQU * 5 P ANKL A3,/207 5 P RF(Z) RTN:A5 NO RETURN CO
0x47ce00…47cf94 (4, 352) Dummy {f00=0x0171, f01=0x0190, f02=»Z) RTN:A5 NOT OPEN 5 P LDK A3,/40 6 , P ORRS A3,A6 UPDATE TEMPORARY RETURN CODE 6 . PRTN:A5 EQU * 6 ^ P RTN A5 6 r P* 6 P EJECT DRFD01 6 P* 6 P* 6 ( PIBMDSK EQU * IBM DISK HANDLING ENTRY 6 P IFT IBM=1 6 . P CF A15,NVLCHK CHE
0x47cf94…47d128 Dummy {f00=0x0171, f01=0x0190, f02=»CR (CHECK EOD) 6 " P RF(Z) FD:DIS NOT OPEN, ERROR 7 P LC A1,DWTOR+1,A6 ORDER CODE 7 < P SUK A1,49 7 ` P RF(Z) REWIND REWIND FILE 7 r * P LD A3,ECBRL,A8 CHECK REQUESTED LENGTH 7 P SUK A3,SECLEN 7 $ P ABL(NZ) INCLEN INCORRECT LENGTH 7 P ADK A1,
0x47d128…47d2bc Dummy {f00=0x0171, f01=0x0190, f02=» DRFD01 7 P* 8 P******************* 8 P* SEQUENTIAL READ * 8 8 P******************* 8 T P* 8 p . P ADK A2,DWTCRN-DWTEOD A2 = ADDRESS TO CRN 8 z P LDR* A3,A2 CRN 8 P ADK A3,1 CRN+1 8 ( P ST A3,ECBCW2,A8 STORE CRN+1 IN ECB 8 P
0x47d2bc…47d450 Dummy {f00=0x0171, f01=0x0190, f02=» CF A5,BIOSQ 8 2 P CF A5,FD:REA READ SECTOR POINTED AT BY CRN+1 9 P* 9 J P IFT MMUPAG=0 9 T ( P LD A4,ECBBA,A8 USER BUFFER ADDRESS 9 j P XIF 9 P* 9 P IFT IBM=1 9 P LDK A7,SECLEN 9 ( P CF A5,ASC:01 TRANSFORM TO ASCII DK1 9 P* 9
0x47d450…47d5e4 Dummy {f00=0x0171, f01=0x0190, f02=»DRESS 9 x P TL TTB:MT,A7 LOAD MMU TABLE : & P LDKL A1,BUF DRIVER BUFFER ADDRESS : 2 & P LD A2,DWTUEC,A6 USER ECB ADDRESS : ( P EL A2,ECBBA,A2 USER BUFFER ADDRESS : P LDK A7,SECLEN LENGTH : ( P MVSU A7 MOVE SECTOR TO USER BUFFER : , P TL -30,A15
0x47d5e4…47d778 Dummy {f00=0x0171, f01=0x0190, f02=»CRN : ~ P* ; P* END OF DATA ; P* ; . $ PSQR:10 LDKL A1,/1000 RETURN CODE ; 8 P RF END:IO ; ` P* ; r P EJECT DRFD01 ; | P* ; P******************* ; P* SEQUENTIAL WRITE * ; P******************* ; P* ; PSQWRIT EQU *
0x47d778…47d90c Dummy {f00=0x0171, f01=0x0190, f02=»CW2,A8 STORE EOD IN ECB C. W. ; P CWK A7,MAXIBM < & P RF(P) FD:DIS REQUEST ERROR < < P CWR* A7,A2 < ` P RF(G) ENDEOE END OF EXTENT < t P* < P IFT MMUPAG=1 < ( P TS -30,A15 SAVE RUNNING TASK'S MMU < " P LD A7,DWTTAB,A6 TTAB ADDRESS <
0x47d90c…47daa0 Dummy {f00=0x0171, f01=0x0190, f02=» DRIVER BUFFER ADDRESS < P LDK A7,SECLEN LENGTH = * P MVUS A7 MOVE SECTOR TO DRIVER BUFFER = < , P TL -30,A15 RESTORE MMU TABLE FROM STACK = j P XIF = P* = P IFT IBM=1 = P LDK A4,5 BIO WRITE = P CF A5,BIOSQ = P LDK A7,SECLEN = 0 P
0x47daa0…47dc34 (4, 353) Dummy {f00=0x0171, f01=0x0190, f02=»200 = P RF(Z) SQW:05 > P LDK A1,/40 WRITE PROTECTED > " , P ORRS A1,A6 UPDATE TEMPORARY RETURN CODE > F PSQW:05 EQU * > v P CF A5,DSOPCH > PSQW:10 EQU * > 2 P ANKL A3,/207 WRITE PROTECTED OR NOT OPERABLE > P RF(NZ) END:RC > * P IMR A2
0x47dc34…47ddc8 Dummy {f00=0x0171, f01=0x0190, f02=»FD:DIS EQU * > P ABL DISIOE REQUEST ERROR ? P* ? 6 P EJECT DRFD01 ? @ P* ? X P********** ? b P* REWIND * ? t P********** ? P* ? PREWIND EQU * ? P LDR A3,A2 SAVE EOD ADDRESS ? P LDK A1,DWTBOE ? P CF A5,DSPAD ? P LDR
0x47ddc8…47df5c Dummy {f00=0x0171, f01=0x018e, f02=» -1 ? | P LDK A1,0 RETURN CODE @ P RF END:IO @ * P XIF @ < P* @ H P EJECT DRFD01 @ R P* @ j P***************** @ t P* * @ P* PERFORM ORDER * @ P* * @ P***************** @ P* @ P* @
0x47df5c…47e0f0 Dummy {f00=0x0171, f01=0x0190, f02=» PFD:WRI EQU * A P IFT CHAN=0 A P LDKL A1,/C000 WORDS,WRITE A , P XIF A N P IFT CHAN=1 A Z " P LDK A1,0 INDICATOR WRITE MODE A n P XIF A P RF FD:800 A P* A PFD:REA EQU * A P IFT CHAN=1 A P LDK A1,1 READ MODE A P XIF A
0x47e0f0…47e284 Dummy {f00=0x0171, f01=0x0190, f02=»RDS A v P* B P EJECT DRFD01 B P* B . P* B 8 P IFT MMUPAG=1 B B 2 P LD A7,BUFFLG,A6 CHECK WHAT BUFFER TO READ TO B X ( P RF(Z) FD:810 BUFFER IN SYSTEM AREA B 0 P LD A7,DWT:BF,A6 BITS 0-1 IN 18-BIT ADDRESS B P ECR A7,A7 B P ORR A1,
0x47e284…47e418 Dummy {f00=0x0171, f01=0x0190, f02=»4,MUXADR+1 SECOND WER B P XIF C P IFT CHAN=1 C * P* C > P EJECT DRFD01 C H P* C ` . P* PUT BUFFER START AND END ADDRESS IN DWT C j P* C " P ST A1,DWTRW,A6 INDICATE MODE C P ST A4,DWTUB,A6 C P ADR A3,A4 C " P ST A3,DWTUBE,A6 E
0x47e418…47e5ac Dummy {f00=0x0171, f01=0x0190, f02=» C h 0 PFD:CIO EQU * LABEL USED FOR CHANGE OF CUADR D P CIO A2,1,CUADR CIO START D < ( P RF(3) END:30 DEVICE ADDRESS UNKNOWN D ^ P RF T:DISP D P* D P EJECT DRFD01 D P* D * P************************************* D P* D < P* FDMSI
0x47e5ac…47e740 Dummy {f00=0x0171, f01=0x0190, f02=»*** D n P* E PFDMSIO EQU * E & P IM DWTCW2,A6 UPDATE SECTOR NUMBER E * P LDR* A1,A6 RETURN CODE E T & P ANK A1,/7F GET ERROR RETURN CODE E t P RF(NZ) END:RC E 0 P LD A2,DWTSIO,A6 GET NUMBER OF SECTORS DONE E $ P ADS A2,DWTCW2,A6 UPDATE DWTCW2
0x47e740…47e8d4 (4, 354) Dummy {f00=0x0171, f01=0x018e, f02=»FT MMUPAG=1 E & P LD A4,DWTBA,A6 GET BUFFER POINTER F $ P ADR A2,A4 UPDATE BUFFER POINTER F > P ST A2,DWTBA,A6 F f & P RF(N) FDMSI1 NOT PASSED 64K LIMIT F ~ P ADK A4,0 F ( P RF(NN) FDMSI1 NOT PASSED 64K LIMIT F P LDK A2,/10 F & P ADS A2,DWT:BF
0x47e8d4…47ea68 Dummy {f00=0x0171, f01=0x0190, f02=» P XIF G 2 P ABL FD:000 MORE SECTORS IN MULTIPLE SECTOR IO G P* G F P EJECT DRFD01 G P P* G h P********** G r P* * G P* END:IO * G P* * G P********** G P* G P IFT IBM=1 G $ PENDEOE EQU * END OF EXTENT EXIT
0x47ea68…47ebfc Dummy {f00=0x0171, f01=0x0190, f02=»D:IO EQU * G P CF A15,TENDIO H PT:DISP ABL TDISP H ( P* H @ $ PEND:30 EQU * CU ADDRESS UNKNOWN H J P LDK A1,1 NOT OPERABLE H r * P ST A1,DWTST,A6 INDICATE RECOVERY DONE H P RB END:IO H P EJECT DRFD01 H P* H P******************** H
0x47ebfc…47ed90 Dummy {f00=0x0171, f01=0x0190, f02=» * H P IFT CPU852=1 I & P CF A15,SAVE8 SAVE A1-A8 ON STACK I P XIF I J P* I V P IFT CPU852=0 I ` " P MSR 8,A15 SAVE A1-A8 ON STACK I v P XIF I P* I P LDKL A6,DWFD01 DWT ADDRESS I P CM DWTST,A6 I P IM DWTA2,A6 SET FDON FLAG I
0x47ed90…47ef24 Dummy {f00=0x0171, f01=0x0190, f02=»,-TIME I " P ST* A4,DWTTP,A6 RESTART TIMER J P RB T:DISP J 4 PFDON10 LDK A4,DWTTP J F P ADR A4,A6 J b P LDR A1,A6 SAVE A6 J t P CF A15,SETIMP J P DATA FDON20,TIME J P* J PF:DISP EQU * J P RB T:DISP J P* J P* TIME OUT ROU
0x47ef24…47f0b8 Dummy {f00=0x0171, f01=0x0190, f02=»ONVL EQU * ENTRY USED BY READY INTERRUPT ROUTINE J P IFT MMUPAG=1 K 8 P IFT CHAN=0 K N $ P CM BUFFLG,A6 RESET BUFFER FLAG K b P XIF K P* K P IFF TOSS+IBM=0 K 4 P IM DWTST2,A6 SET RECOVERY/READY INT. INDICATOR K P LDK A3,3 4 VOLUMES K
0x47f0b8…47f24c Dummy {f00=0x0171, f01=0x0190, f02=»LUME NAME K z & P LC A4,DIXTAB,A3 DRIVE INDEX MASK L P SC A4,DWTA3+1,A6 SAVE IT L < P CF A5,SETCIO L ^ P LDK A2,/14 L t P CF A5,FD:REA LOCK L P ANK A3,1 L P RF(Z) FDON19 OPERABLE L P LDK A1,6 NOT OPERABLE L $ P CF A15,VOLCLR CLEAR VOL
0x47f24c…47f3e0 Dummy {f00=0x0171, f01=0x0190, f02=»ND. BIT L v , P ANRS A2,A6 UPDATE TEMPORARY RETURN CODE M PFDON21 EQU * M @ P LDK A2,/C M T P CF A5,FD:REA UNLOCK M f P LDK A3,0 M , P LC A3,DWTOR,A6 GET INDEX FOR LAST VOL. M P SUK A3,1 M P RB(NN) FDONLD NEXT VOLUME M P CM DWTOR,A6 M
0x47f3e0…47f574 (4, 355) Dummy {f00=0x0171, f01=0x0190, f02=» P* N P EJECT N P* N : P* TERMINATE WAIT REQUEST FOR OPEN ORDER IF RUNNING N & P* N d " P LD A4,DWTTP2,A6 TIMER POINTER N n P RF(Z) FDON09 NOT RUNNING N P CMR A4 STOP TIMER N $ P CM DWTTP2,A6 INDICATE NO TIMER N PFDON09 EQU * N
0x47f574…47f708 Dummy {f00=0x0171, f01=0x018e, f02=» LDKL A2,/8000 OPEN/CLOSE BIT MASK N $ P ANR* A2,A4 A2:=OPEN/CLOSE FLAG O * P ORS A2,DWTOCF,A6 SAVE O R ( P XRRS A2,A4 SET STATUS WORD TO OPEN O p P LDR* A2,A4 O & P OTR A2,0,SOPDA SET DRIVE TO OPEN O P* O PFDON23 EQU * O P XIF O P* O
0x47f708…47f89c Dummy {f00=0x0171, f01=0x0190, f02=» P ANR A1,A2 P P RF(Z) FDON30 NOT LOCKED P P ST A2,DWTA3,A6 SAVE P 6 P* P R P EJECT P P* P j P* PUT DRIVE NO IN CIO INSTR P t P* P P SRN A2,A3 DRIVE NO IN A3 P * P CF A5,SETCIO PUT DRVE NO IN CIO-INSTR P P LDK A2,/14 LOCK P
0x47f89c…47fa30 Dummy {f00=0x0171, f01=0x0190, f02=» PFDON30 EQU * Q P SLL A2,1 Q P CWK A2,/0010 Q * P RB(NE) FDON25 Q @ P* Q V P IFT OPCLOS=1 Q ` P* Q v D P* RESTORE OPEN/CLOSE STATUS TO SAME VALUE AS BEFORE POWER OFF Q P* Q $ P LD A2,DWTOCF,A6 OPEN/CLOSE FLAG Q " P ORS A2,SPDLCI
0x47fa30…47fbc4 Dummy {f00=0x0171, f01=0x0190, f02=»OSED Q h P XIF R P* R P EJECT R " P* R 0 P* ANY REQUEST R : P* R P P CM DWTA2,A6 RESET FDON FLAG R Z PFDON60 EQU * R ~ P LD A8,DWTECB,A6 R 0 P ABL(Z) END:IO NO REQUEST, RETURN VIA TENDIO R P* R P* RETRY REQUEST R P* R
0x47fbc4…47fd58 Dummy {f00=0x0171, f01=0x0190, f02=»VE LENGTH R v P ANK A7,/3F ORDER S P ABL FDAD REACTIVATE S , P* S H P EJECT DRFD01 S R P* S j P******************** S t P* * S P* READY INTERRUPT * S P* * S P******************** S P* S
0x47fd58…47feec Dummy {f00=0x0171, f01=0x0190, f02=» S z P* T P IFT TOSS+IBM=0 T P RB FDON60 T * P XIF T < P* T H P IFF TOSS+IBM=0 T R P CM DWTST,A6 SET UNIT BUSY T j P RB FDONVL READ VOLUME NAMES T P XIF T P* T P EJECT DRFD01 T P* T P********************* T P*
0x47feec…480080 Dummy {f00=0x0171, f01=0x0190, f02=» * T $ P ST P,INTSAV SAVE LAST INTERRUPT U P IFT CPU852=1 U 2 * P CF A15,SAVE8 SAVE REGISTERS ON STACK U H P XIF U v P* U P IFT CPU852=0 U " P MSR 8,A15 SAVE A1-A8 ON STACK U P XIF U P* U P LDKL A6,DWFD01 DWT ADDRESS U P IFT C
0x480080…480214 (4, 356) Dummy {f00=0x0172, f01=0x0190, f02=»5 EQU * U P SST A3,CUADR GET STATUS V " P RF(A) IH:000 READY INTERRUPT V 0 P LD A3,PFPOST V V , P RF(NZ) IHDISP POST PROCESSING FLAG SET V l ( P LD A3,DWTRW,A6 READ/WRITE INDICATOR V P RF(NZ) IH050 READ V P* V P EJECT DRFD01 V P* V
0x480214…4803a8 Dummy {f00=0x0172, f01=0x0190, f02=»UPDATE BUFFER POINTER V P SUK A2,2 W P RB(P) IH010 W 0 P CIO A2,0,CUADR CIO HALT W D PIHDISP EQU * W d P ABL TDISP GOTO DISPATCHER W x P* W PIH050 EQU * W P INR A3,0,CUADR READ W P RB(NA) IH005 W " P STR A3,A1 ONE WORD TO BUFFER
0x4803a8…48053c Dummy {f00=0x0172, f01=0x0190, f02=»US W ~ P RB(NA) *-2 X PIH:000 EQU * X P INH X 2 P XIF X > P* X J P EJECT DRFD01 X T P* X l P* X v P IFT CHAN=0 X P SST A3,CUADR STATUS X P XIF X P LD A8,DWTECB,A6 ECB ADDRESS X " P LD A5,DWTA5,A6 STACK POINTER X P L
0x48053c…4806d0 Dummy {f00=0x0172, f01=0x0190, f02=»DWTRTY,A6 RESET RETRY FLAG X P LDR A1,A3 Y " & P ANK A1,5 DATA FAULT, NOT OPERABLE Y 4 P RF(Z) IH:10 RETURN CODE OK Y ^ P ORK A3,4 Y PIH:10 EQU * Y P* Y P EJECT DRFD01 Y P* Y & P* TRANSFORM RETURN CODE, CU - ECB Y P* Y P
0x4806d0…480864 Dummy {f00=0x0172, f01=0x0190, f02=»O DATA Y | P RF(Z) IH:70 NOT NO DATA Z P ORK A3,4 SET BIT 13 ALSO Z . PIH:70 EQU * Z P P LDR A4,A1 Z d P ANKL A4,/0400 BIT 5 Z v P SLC A4,7 TO BIT 14 Z P ORR A3,A4 Z P* Z P IFT TOSS+IBM=0 Z P LDR A4,A1 Z P ANKL A4,/2000 BIT 2
0x480864…4809f8 Dummy {f00=0x0172, f01=0x0190, f02=» Z ~ P ORR A3,A4 [ P ANK A1,/10 BIT 11 [ P SRC A1,5 TO BIT 0 [ 4 P ORR A3,A1 [ N , P ORRS A3,A6 UPDATE TEMPORARY RETURN CODE [ ` P ANKL A3,/F7FF [ PIH:80 EQU * [ P LDR A1,A3 [ P RTN A5 [ P* [ P EJECT DRFD01 [ P* [ 0 P
0x4809f8…480b8c Dummy {f00=0x0172, f01=0x0190, f02=» * [ p 0 P* * 0 P******************************************* H P* | P******* P* * P* BIO * P* * P******* P* P* INPUT: A8 ECB ADDRESS P*
0x480b8c…480d20 Dummy {f00=0x0172, f01=0x0190, f02=»NSFERED l " P* A4 BUFFER ADDRESS ] P* ] 6 PBIO EQU * ] @ & P LD A1,DWTCW2,A6 GET SECTOR NUMBER ] R ( P SLL A1,3 PUT IN RIGHT BIO POSITION ] | 6 P LD A2,DWTSIO,A6 GET NUMBER OF SECTORS IN THIS IO ] P SRC A2,2 ] P ORR A2,A1 COMPLETE
0x480d20…480eb4 (4, 357) Dummy {f00=0x0172, f01=0x0190, f02=» A5 ] P* ^ P EJECT DRFD01 ^ P* ^ , P* ^ 6 P***************** ^ @ P* * ^ Z P* BIOSQ * ^ t P* * ^ P***************** ^ P* ^ P* INPUT: A8 ECB ADDRESS ^ P* A4 ORDER ^
0x480eb4…481048 Dummy {f00=0x0172, f01=0x0190, f02=» A4 BUFFER ADDRESS ^ P* _ " PBIOSQ EQU * _ , P IFT IBM=1 _ @ & P LD A2,ECBCW2,A8 GET SECTOR NUMBER _ R ( P SLL A2,3 PUT IN RIGHT BIO POSITION _ | & P ADR A2,A4 COMPLETE BIO WITH ORDER _ P* _ P IFT MMUPAG=0 _ & P LD A4,ECBBA,A8 GET BU
0x481048…4811dc Dummy {f00=0x0172, f01=0x018e, f02=»* _ P IFT IBM=1 ` $ P LDK A3,SECLEN REQUESTED LENGTH ` P RTN A5 ` D P XIF ` T P* ` ` P EJECT DRFD01 ` j P* ` P****************** ` P* VO:NAM * ` P****************** ` P* ` P* ` PVO:NAM EQU * ` P IFT TOS
0x4811dc…481370 Dummy {f00=0x0172, f01=0x0190, f02=» P XIF a P* a P IFT TOSS=1 a P LDK A2,0 BIO a . P LDKL A4,BUF READ TO BUFFER a D P CF A5,FD:REA a h P ANK A3,/17 FATAL ERROR a ~ P RF(NZ) VOL:40 a P IFT IBM=1 a P LD A2,BUF+32 a P CWK A2,'TO' a P RF(NE) VOL:10 IBM DISC
0x481370…481504 Dummy {f00=0x0172, f01=0x0190, f02=»NS A1,DWTLAB,A6 INDICATE TOSS DISC a P XIF b * P* b 6 P EJECT DRFD01 b @ P* b X P* b b P IFT TOSS=1 b l P LDKL A2,BUF b P IFT IBM=1 b P RF VOL:20 b P XIF b P* b P IFT IBM=1 b PVOL:10 EQU * b P LDK A3,10 LENGTH b
0x481504…481698 Dummy {f00=0x0172, f01=0x0190, f02=» & P LD A1,DWTA3,A6 DRIVE NO BIT MASK c " P ORS A1,DWTLAB,A6 INDICATE IBM c . P LDKL A1,/400 c T , P ORRS A1,A6 UPDATE TEMPORARY RETURN CODE c j P LDK A7,10 NO OF CHARACTERS c 4 P CF A5,ASC:01 TRANSFER IBM VOL NAME TO ASCII DK1 c 0 P LDKL A2,BUF+4 STA
0x481698…48182c Dummy {f00=0x0172, f01=0x0190, f02=» c P LDK A3,/F8 FILE CODE d P LD A1,DWTST2,A6 d & " P RF(NZ) VOL:30 NOT TEST STATUS d > * P ORKL A3,/8000 INDICATE NO NEW NVL SET d d PVOL:30 EQU * d . P CF A15,VOLGET VOLUME NAME TO DWT SET NVL d P LD A8,DWTECB,A6 d P LDK A3,0 d PVOL:40
0x48182c…4819c0 Dummy {f00=0x0172, f01=0x0190, f02=» P********* e P* e : P* FUNCTION: ASCII TRANSFORMS A STRING FROM EBCDIC TO e P* ASCII CODE e ^ . P* INPUT STRING ADDRESS IS BUF e ~ & P* INPUT: A7 NO OF CHARACTERS e P* A4 = BUFFER ADDRESS e P* OUTPUT:
0x4819c0…481b54 (4, 358) Dummy {f00=0x0172, f01=0x0190, f02=» GET LOGICAL BUFFER ADDRESS DK1 e 0 P RF(NZ) ASC:01 BUFFER NOT IN SYSTEM AREA DK1 f ( * P LD A4,DWTBA,A6 GET BUFFER ADDRESS DK1 f P RF ASC:02 DK1 f PASC:01 EQU * DK1 f P IFT MMUPAG=1 f & P LDKL A4,BUF DRIVER BUFFER ADDRESS f P XIF f P
0x481b54…481ce8 Dummy {f00=0x0172, f01=0x018e, f02=»DIC CHARACTER f P ANK A1,/FF g ( P LC A1,TASCII,A1 TRANSFORM TO ASCII g * 0 P SCR A1,A4 PUT ASCII CHAR. IN OUTPUT BUFFER g V P SUK A7,1 g P RB(P) ASC:10 g P RF EBC:90 g P* g P EJECT DRFD01 g P* g P********** g P* EBCD
0x481ce8…481e7c Dummy {f00=0x0172, f01=0x0190, f02=» 8 P* OUTPUT STRING IS PUT IN DRIVER BUFFER h P* h @ & P* INPUT: A7 NO OF CHARACTERS h J P* A4 = BUFFER ADDRESS h t P* h P* OUTPUT: A1 CHANGED h P* A4 = BUFFER ADDRESS h P* A7 CHANGED h PEB
0x481e7c…482010 Dummy {f00=0x0172, f01=0x0190, f02=»BA,A6 GET BUFFER ADDRESS DK1 h P RF EBC:02 DK1 i $ PEBC:01 EQU * DK1 i < P IFT MMUPAG=1 i V & P LDKL A4,BUF DRIVER BUFFER ADDRESS i l P XIF i P* i PEBC:02 EQU * DK1 i P IFT IBM=1 i P ENB DK1 i P ADR A4,A7 i PEBC:10 EQU *
0x482010…4821a4 Dummy {f00=0x0172, f01=0x0190, f02=»1,A4 PUT EBCDIC IN OUTPUT BUFFER DK1 i P SUK A7,1 j , P RB(P) EBC:10 j > ( P* LDKL A4,BUF DRIVER BUFFER ADDRESS j T PEBC:90 EQU * j P INH INHIBIT INTERRUPTS j P RTN A5 j P* j P EJECT DRFD01 j P* j P********** j P* LOGS
0x4821a4…482338 Dummy {f00=0x0172, f01=0x0190, f02=»R (BINARY). j t < P* FORMAT OF PHYS. SEC. TT0SS (EBCDIC CODE) k * P* TT = TRACK, SS=SECTOR k T P* k , P* INPUT: A4 ADDRESS TO PHYS. SECTOR k P* k & P* OUTPUT: A3 BINARY SECTOR NO k . P* A4 ADDRESS
0x482338…4824cc Dummy {f00=0x0172, f01=0x018e, f02=»TIPLY BY 26 k P* l P SLL A3,5 *32 l P LDR A2,A1 l 4 P SLL A2,2 l F P SUR A3,A2 *28 l X P SLL A1,1 l n P SUR A3,A1 *26 l P CF A5,DECBIN l P SUK A1,1 l P ADR A3,A1 l P* l P EJECT DRFD01 l P* l P* CHECK SEC
0x4824cc…482660 Dummy {f00=0x0172, f01=0x0190, f02=» P SUKL A1,1898 m P RF LOG:04 m P* m , " P* CHECK EOD LESS/EQUAL 74001 m 6 P* m PLOG:02 SUKL A1,1899 m f PLOG:04 EQU * m " P RF(P) LOG:10 NOT ACC SEC. NO m " P SUK A4,4 RESET BUFFER POINTER m P RTN A5 m P* m P* FATAL ERR
0x482660…4827f4 (4, 359) Dummy {f00=0x0172, f01=0x0190, f02=»N CODE m n P INH INHIBIT INTERRUPTS n P ABL LOA:90 ERROR ROUTINE n . P* n P P EJECT DRFD01 n Z P* n r P********** n | P* DECBIN* n P********** n P* n > P* FUNCTION: DECBIN TRANSFORMS TWO EBCDIC CODED DIGITS TO n D P*
0x4827f4…482988 Dummy {f00=0x0172, f01=0x0190, f02=» P* WORKING REG: A2,A7 o P* o $ PDECBIN LDK A1,0 o . P LDK A7,2 o F PDEC:10 LCR A2,A4 DIGIT o X P ANK A2,/FF o v P SUK A2,/F0 o P RB(N) LOG:05 o P SUK A2,9 o P RB(P) LOG:05 NOT DIGIT o P ADK A2,9 o P SUK A7,1 o
0x482988…482b1c Dummy {f00=0x0172, f01=0x018e, f02=»TIPLY BY 10 o P RB DEC:20 p PDEC:30 ADR A1,A2 p & P RTN A5 p > P XIF p N P* p Z P EJECT DRFD01 p d P* p | P********** p P* SETCIO * p P********** p P* p 2 P* FUNCTION: PUT DRIVE NO IN CIO INSTRUCTION p P* p 8 P*
0x482b1c…482cb0 Dummy {f00=0x0172, f01=0x018e, f02=» PSETCIO LDKL A4,/FFCF q P ANS A4,FD:CIO q P SLL A3,4 q 6 P ORS A3,FD:CIO q H P RTN A5 q ^ P IFT IBM=1 q n P* q P EJECT DRFD01 q P* q P********** q P* BINDEC * q P********** q P* q : P* FUNCTION: BINDEC TRANSFO
0x482cb0…482e44 Dummy {f00=0x0172, f01=0x0190, f02=» q . P* OUTPUT: A3 EBCDIC CODED DECIMAL DIGITS r P* A7 CHANGED r : P* r X PBINDEC LDK A3,0 r b PBIN:10 SUK A7,10 r z P RF(N) BIN:20 r P ADK A3,1 r P RB BIN:10 r PBIN:20 ADK A7,10 r P SLL A3,8 r * P ORR A3,A7 DECIMAL
0x482e44…482fd8 Dummy {f00=0x0172, f01=0x0190, f02=»LIO * r P********* s P* s 4 P* FUNCTION: PREPARE FOR READING DATA SET LABEL s * P* s b P* INPUT: A6 DWT ADDRESS s l P* s : P* OUTPUT: A2 BITS 0-12 SECTOR NO, BITS 13-15 ZEROES s P* A3 128 s ( P* A4 DRIVER
0x482fd8…48316c Dummy {f00=0x0172, f01=0x0190, f02=»SPAD s P LDR* A2,A2 t P SLL A2,3 t P LDK A3,128 t 2 P LDKL A4,BUF t F P RTN A5 t Z P* t j P EJECT DRFD01 t t P* t P********** t P* DSOPCH * t P********** t P* t 6 P* FUNCTION: GET EOD-NO AND EOD-NO ADDRESS IN DWT
0x48316c…483300 Dummy {f00=0x0172, f01=0x0190, f02=» t h P* A1 CHANGED u PDSOPCH LDK A1,DWTEOD u & P CF A5,DSPAD u B P LDR* A7,A2 EOD-NO u V P RTN A5 u p P* u P EJECT DRFD01 u P* u P********* u P* DSPAD * u P********* u P* u 2 P* FUNCTION: GET ABSOLUTE AD
0x483300…483494 (4, 360) Dummy {f00=0x0173, f01=0x0190, f02=» A6 DWT ADDRESS u P* v " P* OUTPUT: A2 ADDRESS TO DATA v $ P* A6 DWT ADDRESS v J P* v l " PDSPAD LC A2,DWTOR,A6 DRIVE NO v v P ANK A2,/3 v P ADR A2,A2 v P ADR A2,A6 v P ADR A2,A1 v P RTN A5 v P* v P EJECT D
0x483494…483628 Dummy {f00=0x0173, f01=0x0190, f02=»ING OF v ` P* DRIVE NO w P* w , ( P* INPUT: A1 OFFSET TO DWT AREA w 6 . P* A3 WORD TO BE STORED IN DWT w b P* A6 DWT ADDRESS w P* w P* OUTPUT: A1 UNCHANGED w 0 P* A2 ADDRESS TO WORD IN
0x483628…4837bc Dummy {f00=0x0173, f01=0x0190, f02=»TR A3,A2 w P RTN A5 x P XIF x P* x , P EJECT DRFD01 x 6 P* x N " P* D R I V E R B U F F E R x X P* x ~ PBUF EQU * x P IFT IBM=1 x P RES DVBLEN x P XIF x P* x P IFT TOSS=1 x P IFT IBM=0 x " P DATA 0,0,0
0x4837bc…483950 Dummy {f00=0x0173, f01=0x0190, f02=»MUPAG+CHAN=2 x P RES DVBLEN MMU BUFFER y P XIF y 2 P* y > P EJECT DRFD01 y H P* y ` P********************* y j P* * y P* DEVICE WORK TABLE * y P* * y P********************* y P* y
0x483950…483ae4 Dummy {f00=0x0173, f01=0x0190, f02=» P DATA 0 ORDER z " P DATA FDADR ACTIVATION ADDRESS z P DATA 0 TTAB-ADDRESS z @ $ P DATA 0 WAIT/ACTIVATE INDICATOR z P DATA 0 TERMINAL QUEUE z P* z IFT MMUPAG=1 z & " DATA 0 SAVE AREA USER ECB ADDRESS z DATA DEVECB MMU ECB ADDRESS
0x483ae4…483c78 Dummy {f00=0x0173, f01=0x018e, f02=»0,0,0,0 STACK (3 LEVELS) z P DATA 0 ORDER SAVE AREA { P* { @ P EJECT DRFD01 { J P* { b P* { l P IFF TOSS+IBM=0 { v P DATA /8000 NVL INDICATOR 0 { P DATA /8000 NVL INDICATOR 1 { P DATA /8000 NVL INDICATOR 2 { P DATA /8000 NV
0x483c78…483e0c Dummy {f00=0x0173, f01=0x0190, f02=» { j P DATA /FFFF,/FFFF,/FFFF | ( PDWTVO2 EQU *-DWFD01 VOLUME NAME NO 2 | ( P DATA /FFFF,/FFFF,/FFFF | T ( PDWTVO3 EQU *-DWFD01 VOLUME NAME NO 3 | t P DATA /FFFF,/FFFF,/FFFF | ( PDWTST2 EQU *-DWFD01 SAVE STATUS WORD | P DATA 0 | P XIF | P
0x483e0c…483fa0 Dummy {f00=0x0173, f01=0x0190, f02=» | p P DATA 0 } P* } P EJECT DRFD01 } " P* } : P* } D P IFT IBM=1 } N , PDWTLAB EQU *-DWFD01 DISC LABEL INDICATOR } ` P DATA 0 } P XIF } P* } , PDWTLC EQU *-DWFD01 DRIVE LOCK INDICATOR } P DATA 0 } P* } P IFT OPC
0x483fa0…484134 (4, 361) Dummy {f00=0x0173, f01=0x0190, f02=» DATA 0 } P XIF ~ P* ~ P EJECT DRFD01 ~ & P* ~ > P* ~ H P IFT CHAN=1 ~ R 6 PDWTUB EQU *-DWFD01 POINTER AT NEXT WORD IN BUFFER ~ f P DATA 0 ~ , PDWTUBE EQU *-DWFD01 BUFFER END ADDRESS+2 ~ P DATA 0 ~ , PDWTRW EQU *-DWFD01 READ/
0x484134…4842c8 Dummy {f00=0x0173, f01=0x0190, f02=»0,0,0 ~ $ PDWTEOD EQU *-DWFD01 END OF DATA P DATA 0,0,0,0 6 & PDWTEOE EQU *-DWFD01 END OF EXTENT L P DATA 0,0,0,0 v * PDWTCRN EQU *-DWFD01 CURRENT RECORD NO P DATA 0,0,0,0 . PDWTDSS EQU *-DWFD01 DATA SET LABEL SECTOR P DATA
0x4842c8…48445c Dummy {f00=0x0173, f01=0x0190, f02=» ( PDWTRL EQU *-DWFD01 LENGTH IN SUB IO P DATA 0 0 & PDWTCW2 EQU *-DWFD01 SECTOR NUMBER @ P DATA 0 j . PDWTNOS EQU *-DWFD01 SECTOR NUMBER COUNTER z P DATA 0 4 PDWTSIO EQU *-DWFD01 NUMBER OF SECTORS IN SUB IO P DATA 0 P*
0x48445c…4845f0 Dummy {f00=0x0173, f01=0x0190, f02=» P* P IFT MMUPAG=1 PDWT:BF EQU *-DWFD01 ( $ P DATA 0 SAVE AREA BUFFER ADDRESS D PBUFFLG EQU *-DWFD01 l P DATA 0 P* P IFF CHAN+IBM=0 PDWT:PA EQU *-DWFD01 * P DATA 0 6 BIT PHYSICAL BUFFER ADDRESS P DAT
0x4845f0…484784 Dummy {f00=0x0173, f01=0x407e, f02=»FT MMUPAG=1 PDEVECB EQU * P DATA 0,0,0,0,0,0,0 ( P XIF D P* P P* Z P* d P END n@ z1 l P DATA 0 P* P IFF CHAN+IBM=0 PDWT:PA EQU *-DWFD01 * P DATA 0 6 BIT PHYSICAL BUFFER ADDRESS P DAT
0x484784…484918 Dummy {f00=0x0173, f01=0x2008, f02=» END @
0x484918…484aac Dummy {f00=0x0173, f01=0x0190, f02=» ! c % c { t * & c _ & !? 0 %% 8 | * & + ? !6 (DTdt_ * ? + ? | @ * & I ,< j ! ! 9 @iW Ai? P | n * & g ! : ? A W @ ! < A ? @ ? < ! | * & < A ? @ ? < ! < A ? @ ? < | * & ! < @ ?
0x484aac…484c40 Dummy {f00=0x0173, f01=0x0190, f02=» $ ? "r= ( 2 | * & 07 6 'h #Q !j } * & 9 , w j 1!w!Ii j 2! ! !j "" } N * & W j $" mHj -P !2 } | * & u _ &{ { )P !Ix 6 } * & * ? &{ { *P } * &
0x484c40…484dd4 (4, 362) Opaque[0x194]
0x484dd4…484f68 # DirEnt {nam=»M:DEBF«, typ=»LM«, f00=0x0000, f01=0x0000, f02=0x2aa0, f03=0x0000}
0x484dd4…484f68 IdxSect {
0x484dd4…484f68 f00 = 0x0155 // 0x484dd4 @0x0
0x484dd4…484f68 f01 = 0x0014 // 0x484dd6 @0x2
0x484dd4…484f68 gno = [ // 0x484dd8 @0x4
0x484dd4…484f68 [0x00]: C0x0155.0x0.0
0x484dd4…484f68 [0x01]: C0x0155.0x1.0
0x484dd4…484f68 [0x02]: C0x0155.0x2.0
0x484dd4…484f68 [0x03]: C0x0155.0x3.0
0x484dd4…484f68 [0x04]: C0x0159.0x2.0
0x484dd4…484f68 [0x05]: C0x0159.0x3.0
0x484dd4…484f68 [0x06]: C0x015a.0x0.0
0x484dd4…484f68 [0x07]: C0x015a.0x1.0
0x484dd4…484f68 [0x08]: C0x016c.0x2.0
0x484dd4…484f68 [0x09]: C0x016c.0x3.0
0x484dd4…484f68 ]
0x484dd4…484f68 }
0x484f68…4850fc Dummy {f00=0x0155, f01=0x0190, f02=»C NqJ L L L L L L L L L ' L L L L L L L L L L L L L' L L L L L L L L L L L L L L L L L L L L L L L L L L L L L L L R c @ T ^ z ^ r h V H 2 Z f9 z
0x4850fc…485290 Dummy {f00=0x0155, f01=0x0190, f02=» 4c : @Y/ pJ @ d _ 2Z $"z y ?H T+ V y J t Dh i VR 1H W ] [ ? d % L X! "~ T &b Cn 1 d _ A H " , _ @, > > U # T @ P H ( ( P c P W6 A, $ V ( U P @ V L
0x485290…485424 Dummy {f00=0x0155, f01=0x0190, f02=» H A Q > ? A H A FQ 2_ A F < Q @ P @ Q @ Z Y _ 8 , Q Z P 0 9 _ z $ _, ? _ P H H ? ? ? ? ? ^ A _ _ ^ , $P T I R $ 5 % > ? W ? W ? T
0x485424…4855b8 Dummy {f00=0x0155, f01=0x0190, f02=» @+ T R 0 A+ 1 Q Q > > 0 @+ 1 A+ P P > " ? * X R Y P _ ? @ 8 R Y P _ W0 8 X W( ? ` @ @ P $ H W W > > > > > > @ DV ? D > _ > ? _ > > ? ^ ! Y ^ _ R ? JA. ~
0x4855b8…48574c Dummy {f00=0x0155, f01=0x0190, f02=» " P PR 4 5 T P ? X U X - > PZ PF P P 0 X T Y Wn U U T X^ T E , Y Tx 8RtWP 4 U P> $P4> R0> 8' T Y X ' T P X P " > , Z X "X 8' T 8Z" X ' X
0x48574c…4858e0 Dummy {f00=0x0155, f01=0x0190, f02=» >B @ P A - T 8TV 9WD B 7P P , A+ W A+ @+ A.W ? A HI.9 X R C C J , ?A @+ A. X V 9_: v @ ~ 8 x N B < U P
0x4858e0…485a74 (4, 363) Dummy {f00=0x0155, f01=0x0190, f02=» P 0R Q W R ?U C ! _f Y (P Y ) _ ^ _ ! x P: B L # +P Y , ! U _ X T _ W ! Y ! X X ! X P R ?]* U C _. _: ! ! " $ P X , X ]T ! Y h Y _p ? X R X X
0x485a74…485c08 Dummy {f00=0x0155, f01=0x0190, f02=» Y , Y B 9a C , 8 J P: 8 B W0 B W B W B @ T 8 T Y Y Y Y , Y . ! ~ X ._B B 1 4 X X X X ' 4 B U B $" 4 C 4 J * ~ _^ L x B U P
0x485c08…485d9c Dummy {f00=0x0155, f01=0x0190, f02=» P D T 1 WP B B PD P , V - 0 P A F# +T W Q P P 1 ! X T V C B Q 1 J , Y @ r t @ B X _" ? X Z,W A H ?I X ' { B C X 4
0x485d9c…485f30 Dummy {f00=0x0155, f01=0x0190, f02=» Y , Y B 9a C 8 J P: 8 B W0 B W B W B @ T 8 T Y Y Y Y Y . ! ~ X ._B B 1 4 X X X X ' 4 B U B $" 4 C 4 J * ~ _^ L 2 R x 0 R R 0 R " 0 0
0x485f30…4860c4 Dummy {f00=0x0155, f01=0x0190, f02=» 0P P > T C T" V$ Y Pp q 0 ) Wb X P^ T& B RPP" A $ @ d A t p WF @W( T$ P X T X P 4 Y C C 8W T 8P Y ^ 5 ) P U , XT !
0x4860c4…486258 Dummy {f00=0x0155, f01=0x0190, f02=» C W4 O " # X Y ) C C x # P Y '? Y Y T # P W d Y P R R P T ( P (@ $(@ " 2 @ _ > X $? P $ > > F C F C
0x486258…4863ec Dummy {f00=0x0155, f01=0x0190, f02=» 0$ T # R QL > X B U( H Q2 X D B $ T C x > C $ ) _ X 9BV X & J , X D C > X H UJ H B P PL $ # Q > P _0 # T p > P p (_H
0x4863ec…486580 Dummy {f00=0x0155, f01=0x0190, f02=» > J X D D P ( ) 1_f _& ?(@ X P 0P X T 4 Y X 1 1 X P - M T $ PJ _ T " # p X L R P P P (@ : ^ X P8 P0 # P T P 0P 1 _ W
0x486580…486714 (4, 364) Dummy {f00=0x0155, f01=0x0190, f02=» d @ 1 A _ P 9 > > T R L U R9C _ T M D W. D D " @ @ - U _ 9B @ T u X > & -n, - , (- : :B : : ; 9 9 & r=: 0 A V U A P @ , A x A r @ ~ A !h A ~ @ A !<
0x486714…4868a8 Dummy {f00=0x0155, f01=0x0190, f02=» R $ ( , 0 4 8 < 2 _ S A
0x4868a8…486a3c Dummy {f00=0x0155, f01=0x0190, f02=»P UW B @ = / 0 M Q n R h S Z T Y ( G P H L V " I ^ U t _v A P_ NO! A A A A A A A A *T A _ P A A V . r , + - ; : X " H W X
0x486a3c…486bd0 Dummy {f00=0x0155, f01=0x0190, f02=» T " ( ^ @ P A A " @ n tT @ XW @ A X W W 0 n _, W W V PP @ & 0 n T A P P _b _J A $ tT @ X W @ T @ W @ @
0x486bd0…486d64 Dummy {f00=0x0155, f01=0x0190, f02=» 0 n W t A W @ A n P 3P C @ P @ @ P @ Q A t @ A " T @ W @ A z " A tP P @ _2 P tT z 0 P P _ @ t v @ @ @ P
0x486d64…486ef8 Dummy {f00=0x0155, f01=0x0190, f02=» ` H A @ v @ @ T A A P@ @ PB t @ ! T A @ A # A t l RE FRN GME RMN S W R, ( T ( W P T $ ; V ; W~&~ P &`P 6 P @ $ P $W $ TR
0x486ef8…48708c Dummy {f00=0x0155, f01=0x0190, f02=» v A p A r pW ^ P _ " ^ T @ 9J A T _ 1@ _ ^ 9 V >! D A A > > > > > > > > ^ _ ^ _ ? ? ? ? ? A ^ @ ? ? X > > > > > > > @ V >
0x48708c…487220 Dummy {f00=0x0155, f01=0x0190, f02=» A " A " 0R$ 9U AR FQ 0:D A " _* A " " A L A N n T A N A L " R _U . " A : A " A A $ T ! " A @ T 0W 0W A @ T 1W 1 @ "
0x487220…4873b4 (4, 365) Dummy {f00=0x0155, f01=0x0190, f02=» ! R :W" W W W ?W /W : A! W ! A! A PL ! _ @ _ I T " T A P I T$! A A A A A A A A A!F A @ A @ >
0x4873b4…487548 Dummy {f00=0x0155, f01=0x0190, f02=» " , 9 !&(! T 9 !( X $ Y + & X Y $ 9 X !P T4 A+ W A+ @+ A. R t"J , Y R WF L! Y X N Y !) X P. P P& P R P # X %* , , , B X ; Z Y B X T < Z0:A Z:
0x487548…4876dc Dummy {f00=0x0155, f01=0x0190, f02=» X !? PZ P PR P !( X P ) _ X x ^ Y X P !) !&( P @ 9W@ !( X P ) Y !&, X P X !( X P X ) _ X p ^ &L P P !&,# T X Pt X &Pf !( !$ B Rh Qd :C P ) !&,9DV + !$ (@ B | !)
0x4876dc…487870 Dummy {f00=0x0155, f01=0x0190, f02=»% (@ !) R _ !) *B 1 ;h 1 !) 1 !) * !&( !% !) ) !&,# X Y P_ P P !) P @ 9 4 , & !) P X 1P B " +PV T ( C Q V8 !(v !&, !( _ X ) X H p ^ t !) WX W l !) C QR (Q _
0x487870…487a04 Dummy {f00=0x0155, f01=0x0190, f02=» Z Y V Y X Y H @ TLB SLWF Y 8! T6 X Y X C X U X Y R V Y " W 8 J , Y _ ? * Y Y X LP y L_* L t& _: Y L " Y F Y L! Y !) !&,# P + W !( 9 !&, X ^< Y Y F Y X RP 1 Y R +
0x487a04…487b98 Dummy {f00=0x0155, f01=0x0190, f02=» X " Y _ A H ? * (@ X V X X K P0 @ T X ZT $C Y B , K & % Y B K X H :AZl X JP Y J ! P + 7P, $ P + < $ <C ! 9 9 4 X 9C X : X X 4 B :C ) 4 $ ) !&,# T` @* TOT @* SST X Y
0x487b98…487d2c Dummy {f00=0x0155, f01=0x0190, f02=» D9f ]) Y ) 4 !)x ;E :B 9A !)x U *BP jW kQ 4 9 $ 0" Z Y P Z _ 4 A&F;D A&F 4 R _ ;H 4 | !) (:C ) 4 d !) ( 4 X " 4 !) ) 4 9 !&, X ^< Y Y Y X P 1 Y
0x487d2c…487ec0 Dummy {f00=0x0155, f01=0x0190, f02=» X " Y _ A H ? (@ X X K P @ T X T $C Y B K & % Y B K ! +
0x487ec0…488054 (4, 366) Dummy {f00=0x0159, f01=0x0190, f02=» ^ WB X Y $:g H & I &! P& X , , P ,P 9A _ H &P I & > , P Y , X"; [&;! P &Z.?AZ2 @, Q & X " $XJ ( I T E _ (X _ X $ _t< > > @, A, DW W J ^ ! Z2 , (X: @, P T
0x488054…4881e8 Dummy {f00=0x0159, f01=0x0190, f02=»Pj T P` , <UR "R4 PB X R< X T6 X T0. T G Y6 G _` P ,P - _ ? 8! W0" P T 8! P< P8 - Y Y Y Y , X X Y X X X X ' 4 B U B (" W C (@ > Y
0x4881e8…48837c Dummy {f00=0x0159, f01=0x0190, f02=» R -P 0 X , ) Y . 0 X P Y P C WT X " PP:A: R Q W Y <D X ? ?: T p > 1 > Pb P C 0 B 0 T B % X . $ 4 T % 0 X ,T !.&W 2 Y . V 1 !. B P X " _Z B P$ $$ R %
0x48837c…488510 Dummy {f00=0x0159, f01=0x0190, f02=»1 !. B Z Z& X . 0T N W X ,P Y . 0 %_. % Y . W _p P 1 _ C !. , " 1| QPR X R(;GV$ .@ 1J P8 X R2;GV. X " /8 X , $4 P 2 X .T * W Y , - , ? X :a Z T T W P X :d Y > > |
0x488510…4886a4 Dummy {f00=0x0159, f01=0x0190, f02=»_v B 1 > NT 0 _ 2 3 4 3 PB P8 , B P B L # +P !. !. T !. Y & !. W !. !. W !. Y Y 3P .f U P" T Y &_. P4 R( Pj O]> V _F T Y Y & V Y _^ C _P .f .f" $ P X & X
0x4886a4…488838 Dummy {f00=0x0159, f01=0x0190, f02=»T _ U D ! T _ C > X Z^<BR P f .@ X _x R0 V0 ! P* P P P" R ?Q !. Y R Q 3@ . -_ ? _ X # !. ^ Y _( ? X Z !. P0 P X _ X " 2 !. !. X & 3 36 4f8`6 6 7 6T
0x488838…4889cc Dummy {f00=0x0159, f01=0x0190, f02=»_. B 1 7 !. 6 B B U4 $ ! T _ U D ! T _ $$ X" X& X* C .f 6, X`" E4`P( 8'0P E4`TD ! T 9 _ ! T @_ ! .f B P !7 B C 6, ^N P R ?] _ C _ .f .f" $ P X ' X
0x4889cc…488b60 Dummy {f00=0x0159, f01=0x0190, f02=». 1P X & C ,T Y & J , X Y & Y > X " X &" Y )Q Y > X Z2<BR > .@ ? Y !. T X !. Y & Zl 6r T _ !. X $ P !7^ 5> R V P P" !. 6 W 6z . X $ X !7^_ X $ X X & !8 !7 Y _8
0x488b60…488cf4 (4, 367) Dummy {f00=0x0159, f01=0x0190, f02=» Y !7 X $ X & !8 X * 5> 4 `R Y !. !. !. 4 !. V !. V W :h !. 4 X )" X '# R 4 6z > ABCDEFGHI[.<(+!&JKLMNOPQR]$*);^-/STUVWXYZ|,%_>? 1
0x488cf4…488e88 Dummy {f00=0x0159, f01=0x0190, f02=»STUVWXYZ|,%_>?0123456789:#@'= 7- <=2&p ?' @O {[lP}M] Nk`Ka z^L~no| J Z_m j TOSS' "?:B ] P H U _ T U P U ;C ,$ T -_> - _H "RT PL X
0x488e88…48901c Dummy {f00=0x0159, f01=0x0190, f02=» B $ 9H C ">h # P >_2 < U = D (@ " $ P B >H<h ;J P ?_" = > = > = =_D R _ 00 > & <h$ P > " 2 P* P P" P P P TX >< < , <> P V B B T P* & T$ L L R
0x48901c…4891b0 Dummy {f00=0x0159, f01=0x0190, f02=» _6 " " P2 @ Q, , Y ," P L P T L R :AV ' > _ k`Ka z^L~no| #A 1 < =< "?:B ] P H U _ T U P U ;C ,$ T -_> - _H "RT > A
0x4891b0…489344 Dummy {f00=0x0159, f01=0x0190, f02=» Y , ,P :A , A, >_2 < U = D (@ " $ P B >H<h ;J P ?_" = > = > = =_D R _ 00 > < < T M F < Px ' @ @ ! A A< B P< B P& 8! P6 K @P X T X !? ? ? W W
0x489344…4894d8 Dummy {f00=0x0159, f01=0x0190, f02=» P dW Y Y " V V T Y " Y $ B P(_t d(@ - $T 1 %_" Y (_ @< 0P $P X X $ $P, # ' P @T #?W #?$? > _2 J @" P Y 9 @ J ! T " Y X & $ ' Az! A B6 P C P* Az
0x4894d8…48966c Dummy {f00=0x0159, f01=0x0190, f02=» % Y Y V + V K V K : V K < V K A V % K C V & K D X P K @ X 9AV K 9 !? K > F B & G B R A B N ! N P N & N T _ - M @ F Pp G , _ W C ( B P U
0x48966c…489800 Dummy {f00=0x0159, f01=0x0190, f02=»X 8 , Y $ : _ & <@(@ T X " C X B| V P B _ : C A @=F @=j =B A =< V )$ T B * Y $ : & $ Y : @ P0 8 T _ & & Y " 4 : : $ - Y : ~ C&C&CV
0x489800…489994 (4, 368) Dummy {f00=0x015a, f01=0x0190, f02=»Z[ ]~ * > ?;_: =!"#$%&/() @ABCDEFGHIJKLMNOPQRSTUVWXYZ[ ]^ c ($SWAP A A A A A. Q. UU @ @ ! P$>B @R AR @R E D P _ $ % $P _ % A >f A A A @ " Q" C :d
0x489994…489b28 Dummy {f00=0x015a, f01=0x0190, f02=» F W CRP BAP COP A W F A @ : V, @ P R>;b=H : G( F G(W =J : R F P W W @ $ P @ R| W W U R" W W V V 8 !RRT W V X W W V V V PF A
0x489b28…489cbc Dummy {f00=0x015a, f01=0x0190, f02=» U Y R> G R8 Y P @ P @ T W - R8P _ T <B :L A W A A W R8 T F W V R> = V W Y( P Z& =
0x489cbc…489e50 Dummy {f00=0x015a, f01=0x0190, f02=»H ! P W @ V P _ @ ! P* Q 9h !RRP V V H W _> R> Q Q P V V PZ W @ @ ! T _ P :l 9b ) V _ @ V^ J J W AJ AJ W W
0x489e50…489fe4 Dummy {f00=0x015a, f01=0x0190, f02=»L K J K L K J K L K@ J K@ J V 00P& L K L K: J K L K4 J _0 K@ J V 00P L K L K: J _ 0 !TTX W AI !CCT CC AK$ K _ 0 !;; L" J _ S AO AO Ov @ R @ ! T AO> AOR @C V V I
0x489fe4…48a178 Dummy {f00=0x015a, f01=0x0190, f02=» nX T K : L I : R> K : 0 !TTT 0 !;;T : W W 0 !99Q P !00R P 00W 11 AKp P.=H_, !11R T$ 0 !LLP !RRP !AAP !SSP W W W 0 !;;T~ : 0 !00Rr !99U !AARf !ZZQ` 0 !;;TR : L* : L. : L2 : L6
0x48a178…48a30c Dummy {f00=0x015a, f01=0x0190, f02=» X C.9h! L L # " L L :A K : A T.I T P 1 I P < R P A _> R> : @ " P P D M2 AMh AMl AM AM W M AC AM AM AN AN AP AK AO| AO : 9e :e Q P 9e @C P AC 9C)
0x48a30c…48a4a0 Dummy {f00=0x015a, f01=0x0190, f02=» AC <C, D L " @C $ P " :B AC t w B J " r R,Q$ @ ( = @C Q @C "| _@ _$ : AN AN AN AN Nv AP AK AO| AO : h:B* AC @C P AC B J 4R 4 :B 4 @C : V V 49B @C 4R @ t w A I ! j
0x48a4a0…48a634 (4, 369) Dummy {f00=0x015a, f01=0x0190, f02=»_ I N T V S : R> O| O 9PJ S Y T@ $ 1T: C !CCTr : 1P P$_ P =H P ] @ T X W n : YX d C !CCTx xB. LF <X B.9 HC Q N _ L _ !SSTF 0 UC P A X X W W X
0x48a634…48a7c8 Dummy {f00=0x015a, f01=0x0190, f02=» V W @ $ P p W RN T : AP| P _ 0V , - P X 9A_ : @ ! P (W ( :W> 2 W 0 . " A A A A AK 2 ; Z [ : : [ [ : `
0x48a7c8…48a95c Dummy {f00=0x015a, f01=0x0190, f02=» Z A. c @ V W U R> R $ )_ : W W W W W U Q@ V V v x W V V v p R( W V W ^< _@ V _P V V : V J P S r U V U S
0x48a95c…48aaf0 Dummy {f00=0x015a, f01=0x0190, f02=» V W V R> ) : V <B W |P v v : $ S V |P v w v : V $ V l $ S V M : W V R RR > R W > <B V x V |P v 1 v W V z ` T"_f V : W
0x48aaf0…48ac84 Dummy {f00=0x015a, f01=0x0190, f02=» R> P T R> E _J S E _T " D T E S E D E % : " R ;B S " R P( |P v v : V W 0 : V P 9a _ " ( ) 8 ( ) : " $ V P 9A _ 0 : W W W ?AP ^ 0 : W ; V
0x48ac84…48ae18 Dummy {f00=0x015a, f01=0x0190, f02=» 0 R P P B _ , : V ) VB v : 4P: " D Vh , H H $ M v b - I Y0 : @ ` V b pP ` $ $ W V^ $ I H V ) P _ " = D 4 Q V _n Vh
0x48ae18…48afac Dummy {f00=0x015a, f01=0x0190, f02=» A V V @ ! @ P P P P|_ _ @ 9N @ :b @ :b V W U6 T 9BW P P( P V W U " @ Q V P A. V P _b A 9n A :B A V
0x48afac…48b140 Dummy {f00=0x015a, f01=0x0190, f02=» j @ W A : A A , > l : U R S W n V pT : N V l W H V ]" . nT" T" W v S W n V ~P Zp W x TJ Z U TJ _v V d , V R> P _ N L % V d V f
0x48b140…48b2d4 (4, 370) Dummy {f00=0x016c, f01=0x0190, f02=» % : V V Rz 9k! P % _ V V W W r VB W V S v ) W b G S v ) - V S W f v ) G v ` " W p W ~ pP0 Y R V P Y V _ W ~ R V X4 Y V _ ` @ ` W
0x48b2d4…48b468 Dummy {f00=0x016c, f01=0x0190, f02=» R Xv _|W V T : S T" W x TJ V _ V P8 Vh I V S C C $ @ v D B I v W z ` pPl V^ H - V VB I T " R V. E R T E D E @ v H v E T U| #_v W | ;b W W t V
0x48b468…48b5fc Dummy {f00=0x016c, f01=0x0190, f02=» V. N : d 8" R _ ZY QY : @ V H W z W | CRP W ` ` H W d 2 ;A @ U R R> - @ - N !TTP R> N :H N TBT W W8 2 " T @ R> N =H N ] @ ) ] !TTXX !
0x48b5fc…48b790 Dummy {f00=0x016c, f01=0x0190, f02=» YV : v `?A @ W W :b / W W @ W D V. V W W ` " W p @ pP. " 4X 1 R Z0 _ W l a w ` :A W V d 4 W P
0x48b790…48b924 Dummy {f00=0x016c, f01=0x0190, f02=»C o o P a8 W r o a8 W @ @ % o, V , P@ , - 4 ] 4 U Y 5 X * _6 : W @ ] @ P @ " P : V _ W W . !TTP R> nx @ T R> Y ] !TTX" A 9 A
0x48b924…48bab8 Dummy {f00=0x016c, f01=0x0190, f02=» b 3 S S V V W @ @ T R> : P S S _ : V CRP COP W @ 3 V 3 3 @ n n S @ V Pf n 9h !RRP @ ! T W* n @ S W @ U
0x48bab8…48bc4c Dummy {f00=0x016c, f01=0x0190, f02=»@ P 3 _ @ " P V 3 S 1 S 9J S ( 3 ( 9B @ @ T R> : W . !TTP R> nx W t N =H N W l V CRT N =H N n W p N =H N ] W | ( @ % 5 T W @ = V W = V
0x48bc4c…48bde0 Dummy {f00=0x016c, f01=0x0190, f02=» _2 V tP U R R> S ( V | S =J @ " S V l S W l V S V CRT V p S W p W W _ ] !TTT dn Q, : . !TTP R> V nx W t * n P n r
0x48bde0…48bf74 (4, 371) Dummy {f00=0x016c, f01=0x0190, f02=»Y@ V p _f V t Y ] !TTX @ @ T R> : W % @ P _ R @ WT R @ 0 W ` W W& T R> P _ V A V W nx W t n PT W f (
0x48bf74…48c108 Dummy {f00=0x016c, f01=0x0190, f02=» T R> : ] !TTX !CCTr nx P, n V r 4 U R> $ $ _. n P, n V 4 U R> $ $ _. @ @ @ ! P V 8 8 8 3 . !CCP W nx P0 W f n W d n
0x48c108…48c29c Dummy {f00=0x016c, f01=0x0190, f02=» K T + Y@ _`R& @ @ @ % P V 4 4 4 _r @ @ T R> : W V F !SST l WJ !AAT l W> l V V 0 V P _ W $ q > R P >b W >b & 8P k2 k V C V W R 9 W D
0x48c29c…48c430 Dummy {f00=0x016c, f01=0x0190, f02=» ` T @ 1 Q a : @ % PD H I H T P( H U V U W < + + P j4 V : ` P: @ @ @ D (P W H $ I & % E , a : V Q R $ F !LLT # W ;I # ;b W ;a
0x48c430…48c5c4 Dummy {f00=0x016c, f01=0x0190, f02=»+ T A+ V W Y0 Z6 + @+ T A+ V >A 8T 9 0 1 8 $; # V ;c F !AAP # $ < $ : W | v z *T P _ / P *_ *T P$ _ .P _ / V z U Y$
0x48c5c4…48c758 Dummy {f00=0x016c, f01=0x0190, f02=» @+ @+ P V RN A+ (P ) @+ @ @ T R> : N =H N ] : N =H N ] : &=H F ] : F =H F ] : F =H F ] : P N =H N T nx ] _ : @ ! P (W ( : 00=H 00 P P _ _ : a
0x48c758…48c8ec Dummy {f00=0x016c, f01=0x0190, f02=» Qp 0q o o o o o ! 1 6 0 * * * * . KB p4C !AAP pr p p 84V Y p _ / P
0x48c8ec…48ca80 Dummy {f00=0x016c, f01=0x0190, f02=» 42 P q> + ( @ T R> : N =H N ] : N =H N ] : &=H F ] : F =H F ] : F =H F ] : P N =H N T nx ] _ : @ ! P (W ( : 00=H 00 P P _ _ : a
0x48ca80…48cc14 (4, 372) Opaque[0x194]
0x48cc14…48cda8 # DirEnt {nam=»CTABSH«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x2720, f03=0x0000}
0x48cc14…48cda8 IdxSect {
0x48cc14…48cda8 f00 = 0x0139 // 0x48cc14 @0x0
0x48cc14…48cda8 f01 = 0x0002 // 0x48cc16 @0x2
0x48cc14…48cda8 gno = [ // 0x48cc18 @0x4
0x48cc14…48cda8 [0x00]: C0x0139.0x0.0
0x48cc14…48cda8 ]
0x48cc14…48cda8 }
0x48cda8…48cf3c Dummy {f00=0x0139, f01=0x0190, f02=» P IDENT CTABSH 79-08-31/LEKO ENTRY CTAB01 ( 0 PCTAB01 DATA FUNC,FUNC,UNSC,SHIFT,SHIFT,SHIFT > > PFUNC DATA /8C81,/0083,/8488,/8687,/8A89,/8E8D,/9D8B,/858F r : P DATA /3031,/3233,/3435,/3637,/3839,/9A9B,/9C90,/0091 : P DATA /9293,/9496,/989
0x48cf3c…48d0d0 Dummy {f00=0x0139, f01=0x0190, f02=»/3839,/8F91,/8580,/8A90 r : P DATA /4041,/4243,/4445,/4647,/4849,/4A4B,/4C4D,/4E4F : P DATA /5051,/5253,/5455,/5657,/5859,/5A5B,/5C5D,/7E00 ^ > PSHIFT DATA /2000,/0000,/0000,/002A,/8B3E,/003F,/3B5F,/3A00 : P DATA /3D21,/2223,/2425,/262F,/2829,/8F91,
0x48d0d0…48d264 Dummy {f00=0x0139, f01=0x4018, f02=» Z END @ r : P DATA /4041,/4243,/4445,/4647,/4849,/4A4B,/4C4D,/4E4F : P DATA /5051,/5253,/5455,/5657,/5859,/5A5B,/5C5D,/7E00 ^ > PSHIFT DATA /2000,/0000,/0000,/002A,/8B3E,/003F,/3B5F,/3A00 : P DATA /3D21,/2223,/2425,/262F,/2829,/8F91,
0x48d264…48d3f8 Dummy {f00=0x0139, f01=0x2008, f02=» END @ r : P DATA /4041,/4243,/4445,/4647,/4849,/4A4B,/4C4D,/4E4F : P DATA /5051,/5253,/5455,/5657,/5859,/5A5B,/5C5D,/5EFF ^ > PSHIFT DATA /20FF,/FFFF,/FFFF,/FF2A,/FFFF,/FF3F,/3B5F,/3AFF : P DATA /3D21,/2223,/2425,/262F,/2829,/FFFF,
0x48d3f8…48d58c Dummy {f00=0x0139, f01=0x0190, f02=» SCTNOP SCTPSZ SCTMMC 0 SCTLAC D SCTMMPL X SCTLAP0 l SCTNPE SCTSTB SCTOPT bBUG SCTBUG , (
0x48d58c…48d720 Dummy {f00=0x0139, f01=0x408a, f02=» SCTDCT ^ _ > T t@ SCTSTB SCTOPT bBUG SCTBUG , (
0x48d720…48e3c0 (5, 0) DirGranule ((5, 0)) {
0x48d720…48e3c0 DirEnt {nam=»TOOL «, typ=» «, f00=0x0000, f01=0x0000, f02=0x2730, f03=0x0000}
0x48d720…48e3c0 DirEnt {nam=»P1370 «, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x2ca8, f03=0x0000}
0x48d720…48e3c0 DirEnt {nam=»TSUTL1«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x2cd8, f03=0x0000}
0x48d720…48e3c0 DirEnt {nam=»CPDKMT«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x2ce8, f03=0x0000}
0x48d720…48e3c0 DirEnt {nam=»ASCEBC«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x2d08, f03=0x0000}
0x48d720…48e3c0 DirEnt {nam=»ASMRUT«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x2d20, f03=0x0000}
0x48d720…48e3c0 DirEnt {nam=»LIST «, typ=»UF«, f00=0x0000, f01=0x0000, f02=0x2de8, f03=0x0000}
0x48d720…48e3c0 }
0x48e3c0…48e554 (5, 1) Opaque[0x194]
0x48e554…48e6e8 # DirEnt {nam=»P1370 «, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x2ca8, f03=0x0000}
0x48e554…48e6e8 IdxSect {
0x48e554…48e6e8 f00 = 0x0165 // 0x48e554 @0x0
0x48e554…48e6e8 f01 = 0x0004 // 0x48e556 @0x2
0x48e554…48e6e8 gno = [ // 0x48e558 @0x4
0x48e554…48e6e8 [0x00]: C0x0165.0x1.0
0x48e554…48e6e8 [0x01]: C0x0166.0x2.0
0x48e554…48e6e8 ]
0x48e554…48e6e8 }
0x48e6e8…48e87c Dummy {f00=0x0165, f01=0x0190, f02=» " IDENT P1370 * 790220 C.EKERT P* * L P* THIS SUBROUTINE COPIES THE CONTENTS OF ONE ENTIRE DISK TO ANOTHER DIS 4 F P* THE RECEIVING DISK IS GIVEN A NEW VOLUMENAME WHICH IS PASSED AS * P* A PARAMETER IN THE CALLING SEQUENCE. P* 6 P*
0x48e87c…48ea10 Dummy {f00=0x0165, f01=0x0190, f02=» > P* <OUFC> * BIN * FILECODE OF RECEIVING DISK ( DAUGHTER ) L P* <OUVLNM> * LIT * VOLUME NAME GIVEN TO THE RECEIVING DISK. ( DAUGHTER ) F P* * P* ROUTINE ADAPTED TO COPY A 5M DISK. P* P* P DDUM FORCEB PDIV ENT
0x48ea10…48eba4 Dummy {f00=0x0165, f01=0x018e, f02=»,$OUVLNM * % MOVE IOWK1,W0 * INIT. SECTOR COUNTER P13705 > CALL CHANFC,DKFILE,INFC L PERF DKIO,W0 l BNE P1370E CBNE IOWK1,W8,P1370A P COPY BUFFER,W2,W6,STRW06,W0 P1370A P SUB IOWK1,W8 CALL CHANFC
0x48eba4…48ed38 Dummy {f00=0x0165, f01=0x0190, f02=» P EJECT DKIO PROC X $ MOVE BINWK3,=X'828F' * DK-MASK & 0 + MOVE BINWK1,W0 * INIT. RECORD/BLOCK COUNT. N MOREIO MOVE BINWK2,=W'410' CBE X,W0,READ WRITE 8 P CALL IOREPL,DKFILE,X'85',BUFFER,BINWK1,BINWK2,IOWK1
0x48ed38…48eecc Dummy {f00=0x0165, f01=0x4112, f02=»NWK2,IOWK1 f ANALYS XSTAT DKFILE,BINWK2 CALL MASK,BINWK2,BINWK3 < BNE ERROR ( # ADD IOWK1,W1 * INCR. SECTOR COUNT. n P ADD BINWK1,=W'410' P CBNE BINWK1,=W'3280',MOREIO ERROR RET PEND END
0x48eecc…48f060 Dummy {f00=0x0165, f01=0x2008, f02=» K1 f ANALYS XSTAT DKFILE,BINWK2 CALL MASK,BINWK2,BINWK3 < BNE ERROR ( # ADD IOWK1,W1 * INCR. SECTOR COUNT. n P ADD BINWK1,=W'410' P CBNE BINWK1,=W'3280',MOREIO ERROR RET PEND END
0x48f060…48f1f4 (5, 2) Dummy {f00=0x0166, f01=0x0190, f02=» B " Y # , 6 Q d F J S:T JOBPTS GETDATAMODE NO.:ENTRYTYPE:999999FORMATSEARCHVERIFY CREATEELEMENTNAME: TPROGRAM:REL 10.0SIZE OF DEFINITION VALUE-SETS70 CONVERSION10 SUPERVISORY FUNCTIONS1 99
0x48f1f4…48f388 Dummy {f00=0x0166, f01=0x0190, f02=»
0x48f388…48f51c Dummy {f00=0x0166, f01=0x0190, f02=»A-ENTRY U h d ' . ) e e @ " f d f @ , ( f d T g T ( f ! ~ ! + * h dG 0 20 $ - - 30 - - 40 ! 50 % 60 & /
0x48f51c…48f6b0 Dummy {f00=0x0166, f01=0x0190, f02=» ! ' . 5 < D L T ] f p { ( < S k ! & A C g g ` | N G G4 & + P _ Eb G G ;d # + Eb G #0 0T ' Eb '
0x48f6b0…48f844 Dummy {f00=0x0166, f01=0x0190, f02=» $ - G - - X " X $ ! P W2 X $ X " R W V R W V % _ " D $ D LF -j X $ X y & -R X x & Y " - G - !0P< <! T( T W$ < X ! P ?A W ?AW
0x48f844…48f9d8 Dummy {f00=0x0166, f01=0x0190, f02=» & G ( : $ Y ( x P Y * Z x y Wv X " J X X . 8 ! -j X 0P X T 5 ! Y * Z y X V& X ( $ x C ( Y * X Y , $ X X C & C C ( B Ph9 R^9 X !@PP X
0x48f9d8…48fb6c Dummy {f00=0x0166, f01=0x0190, f02=» X X * $" ~_> @ Y X * _R X !@XX y X # x V y X X * $ P P 1 _ 1 Z X * ~ X X * $" X D % " X # X * $ y _< X # X * y $ X 1 1 X !@T X $ " P y _ x T X H X
0x48fb6c…48fd00 Dummy {f00=0x0166, f01=0x0190, f02=»Tf B 9 R 9 X ! T `_ y C Q " T $ $ X ! 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 Q( B y " y $ c -T C _$ _ | y _6 x
0x48fd00…48fe94 (5, 3) Opaque[0x194]
0x48fe94…490028 # DirEnt {nam=»TSUTL1«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x2cd8, f03=0x0000}
0x48fe94…490028 IdxSect {
0x48fe94…490028 f00 = 0x0166 // 0x48fe94 @0x0
0x48fe94…490028 f01 = 0x0004 // 0x48fe96 @0x2
0x48fe94…490028 gno = [ // 0x48fe98 @0x4
0x48fe94…490028 [0x00]: C0x0166.0x3.0
0x48fe94…490028 [0x01]: C0x0167.0x0.0
0x48fe94…490028 ]
0x48fe94…490028 }
0x490028…4901bc Dummy {f00=0x0166, f01=0x0190, f02=» * P IDENT TSUTL1 80-07-04/HEJA CDD NYTT P 800225 C.EKERT 2 * L : 6* STANDARD 'CREDIT' INTERFACE TO TOSS UTLITY PACKAGE V * ENTRY TSUTL1 * * P EXTRN CRFILE P EXTRN DLFILE P EXTRN COPVOL
0x4901bc…490350 Dummy {f00=0x0166, f01=0x0190, f02=» P DATA 'CRF',CRFILE P DATA 'DLF',DLFILE P DATA 'CDD',COPVOL 8 DATA /FFFF R * f * p EJECT z * * 2 .* CALL TSUTL1,'UTL',PBLOCK,BUF1,BUF2,RNCD * * PTSUTL1 EQU * P* 2 P* P
0x490350…4904e4 Dummy {f00=0x0166, f01=0x0190, f02=» CC A8,0,A9 RF(NZ) NEXT LC A8,1,A7 0 CC A8,1,A9 D RF(NZ) NEXT X LC A8,2,A7 l CC A8,2,A9 RF(NZ) NEXT ( P LD A7,4,A7 * UTIL. ADDR. NOW IN A7 P* P* SET UP PARAMETERBLOCK P*
0x4904e4…490678 Dummy {f00=0x0166, f01=0x0190, f02=»TILITYINDEX IN A7 " P* PARAMETERBLOCKADDRESS IN A8 P* CALL TOSS UTILITY @ P* P MS 14,SAVER * SAVE REGS. f ( P LDR A12,A8 * PAR.BLOCK ADDR. TO A12 P CFR A14,A7 * CALL UTIL. P* " P* RETURN CODE FROM UTIL IN A1 P*
0x490678…49080c Dummy {f00=0x0166, f01=0x40d6, f02=» $ P ABL I:RT1 * RETURN TO 'CREDIT' PNEXT EQU * , P ADK A7,6 > P LDR* A8,A7 P P CWK A8,X'FFFF' d P RB(Z) RETURN | P RB LOOP1 PSAVER RES 14 * SAVE AREA. END @ " P* RETURN CODE FROM UTIL IN A1 P*
0x49080c…4909a0 Dummy {f00=0x0166, f01=0x2008, f02=» I:RT1 * RETURN TO 'CREDIT' PNEXT EQU * , P ADK A7,6 > P LDR* A8,A7 P P CWK A8,X'FFFF' d P RB(Z) RETURN | P RB LOOP1 PSAVER RES 14 * SAVE AREA. END @ " P* RETURN CODE FROM UTIL IN A1 P*
0x4909a0…490b34 (5, 4) Dummy {f00=0x0167, f01=0x0190, f02=»W Y ( : X , Y X $ Y X &T Y Y Y WD V $:H D Y D :H Y ! P V Y G W Y ! P G&W V Y , V Y : G T : 2' " P T I W G* T : , : -j 5r , C -` X -r : "0P '
0x490b34…490cc8 Dummy {f00=0x0167, f01=0x0190, f02=» C 5 :( R : V E V D ' $ T ( W - P Eb X =' V W V Y =P - : 6 .4 6 .B 6 .Z . . . Z Z / 1 6 / . W 6 / . 5 4 6 / . 5 5 ' / G C 4 G
0x490cc8…490e5c Dummy {f00=0x0167, f01=0x0190, f02=» _6 G ( Eb G G V Eb 2 ;B P0 J T / ( D W4 _. / ( W G & F : ( Eb 2 & >A >A 2 $ G & V D 9a 9 V @ rW @ T W X R V 8
0x490e5c…490ff0 Dummy {f00=0x0167, f01=0x0190, f02=» , V ( - 4T V 5 ( W, V P& W$ U V X 9T I Y Eb 2 ' >A >A 2 $ V L ;a ; R@ @ 8 ? X Q* ( V )<B ?H ( Eb 0 ( 6 G "
0x490ff0…491184 Dummy {f00=0x0167, f01=0x0190, f02=» ( G ' Eb 6 ZR C 4 3 ZR 4 3 28 4 _ G &:K : 3 / 4 3 / ZR 4 3 / _ _. 3 / 4 3 C ( B B @ C ( ( B B C C ( C C
0x491184…491318 Dummy {f00=0x0167, f01=0x0190, f02=»6t 28 C _" W 5 4 3 / 4 _ 6 6 6d P G <H : 3 W 6 6d G &P B V C / <H : 6 6t C C W 6 C C J4 ' W 781"&$ 39#$;< '()*+,-! 6 6 6d G P _D 6 B G 'W 6 ( W G
0x491318…4914ac Dummy {f00=0x0167, f01=0x0190, f02=»% P C + Y. Eb 5 I "%@P "% P& B C C 4 "5 # B P B P B 5 P C : 6 5r R 5 C 4 C B B P C 5 : V I C B : ( ' P 5 I : 6 6d % Y G8 C G & R V C G
0x4914ac…491640 Dummy {f00=0x0167, f01=0x0190, f02=» _ G C : : 6 6t "! P ZR : G P C W $0 P C X : C "!@P ") # B C B % C : W 7 6 V :a 8v 7@ 5 ' ( 7 ( J V T P W - 7~ 4 6 K V K V V K V
0x491640…4917d4 (5, 5) Opaque[0x194]
0x4917d4…491968 # DirEnt {nam=»CPDKMT«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x2ce8, f03=0x0000}
0x4917d4…491968 IdxSect {
0x4917d4…491968 f00 = 0x0167 // 0x4917d4 @0x0
0x4917d4…491968 f01 = 0x0008 // 0x4917d6 @0x2
0x4917d4…491968 gno = [ // 0x4917d8 @0x4
0x4917d4…491968 [0x00]: C0x0167.0x1.0
0x4917d4…491968 [0x01]: C0x0167.0x2.0
0x4917d4…491968 [0x02]: C0x0167.0x3.0
0x4917d4…491968 [0x03]: C0x0168.0x0.0
0x4917d4…491968 ]
0x4917d4…491968 }
0x491968…491afc Dummy {f00=0x0167, f01=0x0190, f02=» " P IDENT CPDKMT * 790122 C.EKERT D ?*************************************************************** * * r D ?* COPY DISK TO 1/2 INC. MAG-TAPE ( & REVERSE) UTILITY. * | D ?* *
0x491afc…491c90 Dummy {f00=0x0167, f01=0x0190, f02=»LITY. * ^ @ P* THE UTILITY HAS BEEN ADAPTED TO BE CALLED FROM A * @ P* 'CREDIT'-PROGRAM. TWO ENTRYPOINTS ARE PROVIDED, 'CDT' * V @ P* AND 'CTD'. THE 'CDT' ENTRY CAUSES A DISK TO BE SAVED ON * @ P* A MAGNETIC TAPE AND 'CTD' RESTORES THE D
0x491c90…491e24 Dummy {f00=0x0167, f01=0x0190, f02=»CTOR BY SECTOR * f @ P* AND BLOCKED BEFORE TRANFERRED TO THE TAPE.. * @ P* * ^ @ P* NOTES: * @ P* IMMEDIATLY WHEN AN I/O-FAILURE
0x491e24…491fb8 Dummy {f00=0x0167, f01=0x0190, f02=»CH CONTAINS THE DEVICE * n @ P* DEPENDENT RETURNCODE FROM THE DRIVER. NO AUTOMATIC * " @ P* RECOVERY PROCEDURE IS INITIATED. * f @ P* * @ P* 'CREDIT' INTERFACE:
0x491fb8…49214c Dummy {f00=0x0167, f01=0x0190, f02=»RST,LAST,SLTH,BLKF,BUFF,RETC * v @ P* <CDT> : : ENTRY DISK TO TAPE COPY ROUTINE * . @ P* <DKFC> :BIN : DISK - FILE CODE. * r @ P* <MTFC> :BIN : MAG. TAPE FILE CODE. * @ P* <FRST> :BIN
0x49214c…4922e0 Dummy {f00=0x0167, f01=0x0190, f02=» : SECTOR LENGTH IN BYTES * @ P* <BLKF> :BIN : BLOCKING FACTOR (RECORDS/BLOCK) * 6 @ P* <BUFF> :STRG: I/O-BUFFER ADDRESS * z @ P* <RETC> :BIN : RETURN CODE. * @ P*
0x4922e0…492474 (5, 6) Dummy {f00=0x0167, f01=0x018e, f02=» THE RETURNCODE CONTAINS THE RETURNCODE * @ P* FROM THE DRIVER AND THE 1:ST BYTE IN THE * > @ P* I/O-BUFFER CONTAINS A 'M' OR A 'D' * @ P* INDICATING THE FAILING UNIT. * @
0x492474…492608 Dummy {f00=0x0167, f01=0x0190, f02=» D ?*************************************************************** * L $ ENTRY CDT * COPY DISK TO TAPE V ( # ENTRY CTD * RESTORE DISK FROM TAPE ~ * * , ( EXTRN I:EVA0 * RETREIVE CALLING PARAMS. , ' EXTRN I:RT1 * RETURN TO '
0x492608…49279c Dummy {f00=0x0167, f01=0x018e, f02=»CTOR TO 1/2 INC. TAPE. p * * TO TAPE INITIALIZATIONS. ( * L , ' LDK A7,X'91' * ORDERCODE PHYSICAL READ V SC A7,DKORDR * & LDK A7,X'85' * ORDERCODE 'WRITE TAPE' SC A7,MTORDR LDKL A7,MTIOLB ST A7,SWTCH2
0x49279c…492930 Dummy {f00=0x0167, f01=0x0190, f02=» " LDKL A7,X'AA61' * WTM - MASK ST A7,MTMSK1 . * D * & LDK A7,X'A2' * ORDERCODE WRT TAPEMARK N P SC A7,MTHEAD | RF TPMRK * * EJECT * * CTD EQU * * 4 0* RESTORE DISK FR
0x492930…492ac4 Dummy {f00=0x0167, f01=0x0190, f02=» WRITE DISK n SC A7,DKORDR * * * % LDK A7,X'82' * ORDERCODE 'READ TAPE' 4 SC A7,MTORDR b * x P LDKL A7,RETURN ST A7,SWTCH2 * LDKL A7,MTIO ST A7,SWTCH1 * ( # LDKL A7,X'B87F' * MASK
0x492ac4…492c58 Dummy {f00=0x0167, f01=0x0190, f02=»X'82' * ORDERCODE 'READ TAPE' P SC A7,MTHEAD & * < * F EJECT P * ^ * h & "* WRITE / BYPASS 1:ST TAPE MARK. r * TPMRK EQU * , P CF A14,I:EVA0 * RETREIVE DISK FILE CODE P LDR* A7,A9 P ST A7,DKE
0x492c58…492dec Dummy {f00=0x0167, f01=0x0190, f02=» NO. j P LDR* A7,A9 ( P ST A7,DKECBC * SAVE IN CONTROL WORD . P CF A14,I:EVA0 * RETREIVE LAST SECTOR NO. L P LDR* A7,A9 ~ * P ST A7,DKSECN * SAVE IN LOOP CONTROL. , P CF A14,I:EVA0 * RETREIVE SECTOR LENGTH P LDR* A7,A9 P ST
0x492dec…492f80 Dummy {f00=0x0167, f01=0x0190, f02=»T & P LDR A2,A6 * CALC. MT-BUFFER SIZE P MUR A7 4 & P ST A2,MTECBL * SAVE MT-BUFFERSIZE D * P CF A14,I:EVA0 * RETREIVE BUFFER ADDR. n ST A9,MTECBB ST A9,DKECBB P CM RECCNT P LDK A7,X'00' PMTHEAD EQU *-1 L
0x492f80…493114 (5, 7) Dummy {f00=0x0167, f01=0x0190, f02=»DKL A7,X'0000' MTMSK1 EQU *-1 P AN A7,MTECBR , RF(NZ) MTERR B P LDKL A7,NXTBLK X P ST A7,SWTCH3 p ABL X'0000' PSWTCH1 EQU *-1 * DKIO / MTIO * * EJECT * * DISK - I/O *
0x493114…4932a8 Dummy {f00=0x0167, f01=0x018e, f02=»SIS. * P LDKL A7,X'820F' P AN A7,DKECBR . RF(NZ) DKERR D P* Z , P* REPEAT I/O IF 'NEW VOLUME' DETECTED. d P* $ P LDK A7,X'80' * MASK 'NEW VOL.' P AN A7,DKECBR P RB(NZ) DKIO * REPEAT I/O *
0x4932a8…49343c Dummy {f00=0x0167, f01=0x0190, f02=» F A* SECTOR READ. INCREMENT BUFFER POINTER & CHECK IF END OF BUFFER * N $ P LD A7,DKECBB *LOAD BUFFER ADDR. X ( P AD A7,DKECBL * ADD ON RECORD LENGTH ( P ST A7,DKECBB * SAVE NEW BUFF. ADDR. * < 8* CHECK IF LAST SECTOR PROCESSED AND
0x49343c…4935d0 Dummy {f00=0x0167, f01=0x0190, f02=» *-1 *MTIOLB / RETURN P* " P* CHECK IF BLOCK IS COMPLETE. ( P* N P LD A7,RECCNT X P CW A7,BLKFCT n & P RF(Z) MTIO * YES! TRANS. TO TAPE , ' RB DKIO * READ NEXT SECTOR IF NOT LAST * * EJECT *
0x4935d0…493764 Dummy {f00=0x0167, f01=0x0190, f02=» LDKL A7,WRTPMK ST A7,SWTCH3 * 2 * NORMAL TAPE-I/O ENTRY. < * ^ MTIO EQU * h " LDK A7,X'00' * LOAD ORDERCODE z MTORDR EQU *-1 LDKL A8,MTECB LKM DATA 1 * * RETURN CODE ANALYSI
0x493764…4938f8 Dummy {f00=0x0167, f01=0x018e, f02=»ETURN IF LAST SECTOR ELSE PERPARE FOR NEXT BLOCK. * : ABL X'0000' D $ PSWTCH3 EQU *-1 * NXTBLK / WRTPMK X * * * NXTBLK EQU * P LD A7,MTECBB ( % ST A7,DKECBB * RESTORE BUFFER ADDR. & P CM RECCNT * RESET R
0x4938f8…493a8c Dummy {f00=0x0167, f01=0x018e, f02=» x * WRTPMK EQU * * & * WRITE TAPE MARK 0 * J " LDK A7,X'A2' * ORDERCODE WTM T P LDKL A8,MTECB z LKM DATA 1 LDKL A7,X'1000' P AN A7,MTECBR RF(Z) MTERR * * PRETURN
0x493a8c…493c20 Dummy {f00=0x0167, f01=0x0190, f02=» MTERR EQU * $ P LDKL A8,'M' * INDICATE MAG.TAPE , P LD A6,MTECBR * PICK UP DRIVER RET. CODE D P RF ERRHDL t * * DKERR EQU * P LDKL A8,'D' * INDICATE DISK LDKL A6,DKECBR * * ERRHDL EQU
0x493c20…493db4 (5, 8) Dummy {f00=0x0168, f01=0x0190, f02=»F A14,I:EVA0 * PICK UP ADDR. OF RETURNCODE ( P STR A6,A9 * TRANS. DRIVER RET. CODE 2 * ^ * h ( P ABL I:RT1 * RETURN TO 'CREDIT' USER r * * * EJECT * * 0 ,* EVENT CONTROL BLOCKS. MAG. TAPE AND DI
0x493db4…493f48 Dummy {f00=0x0168, f01=0x0190, f02=»TH (8 SECTORS) p MTECBR DATA 0 * RETURN CODE * PMTECBC DATA 0 * NO BLOCK SEQUENCE NO. : * h * r * | . )DKECB DATA /00F0 * FILE CODE FIXED DISK 1 DKECBB DATA 0 * BUFFER ADDR. & PDKECBL DATA 410,0 * SECTOR LENGTH DK
0x493f48…4940dc Dummy {f00=0x0168, f01=0x408c, f02=»CTOR n PBLKFCT DATA 0 *BLOCK FACTOR * PRECCNT DATA 0 * RECORD IN BLOCK COUNT. 0 * ^ * h * r END |@ DATA /00F0 * FILE CODE FIXED DISK 1 DKECBB DATA 0 * BUFFER ADDR. & PDKECBL DATA 410,0 * SECTOR LENGTH DK
0x4940dc…494270 Dummy {f00=0x0168, f01=0x2008, f02=» PBLKFCT DATA 0 *BLOCK FACTOR * PRECCNT DATA 0 * RECORD IN BLOCK COUNT. 0 * ^ * h * r END |@ DATA /00F0 * FILE CODE FIXED DISK 1 DKECBB DATA 0 * BUFFER ADDR. & PDKECBL DATA 410,0 * SECTOR LENGTH DK
0x494270…494404 Dummy {f00=0x0168, f01=0x0190, f02=» | 7 F l p t x6 &90 A! P K 4 0 A! P K 4 0 Av P K 4 0 Av P K 4 0 Av e 4 0 Av e 4 @ 0 >0 P 64 <0 P 54 0 P A 4 !0 P 34 E bR * )bR* I 0 A R V 4 0 A R V K E I b )*R b R*
0x494404…494598 Dummy {f00=0x0168, f01=0x0190, f02=»$"` uV> av uajb " " b ( bR#j $"u b^&jb "R" b bR j $" b 5W j ""u j $" j &"* u`Hp *? v? u? ` _ u) 5 ? j` " $ `: 0 ja " " a ua j $" ` )? u`? j` " "_2As ua? @u@v E 0 ? !"? 1AxW-j " - R R _9 W I
0x494598…49472c Dummy {f00=0x0168, f01=0x0190, f02=» -jc " c c R c R _a _) +_% 0 c c 4 ! ! ! " V 0 _ " b )*R b R* !4 "bR * )bR* & 4 @k@lja " "j` " $(` AlW= ` Rgjd " "j ""a (a # d ja " $ a a RCj ""d a d`W ` (a AkIl'W a R jd " $j $"` a R `vIs `! d` 4
0x49472c…4948c0 Dummy {f00=0x0168, f01=0x0190, f02=»! "R! ! ! " Q E! "! [ 3@ 4 H #@ C!!"C! !T !!RT "!R0" A!R 4 H 0 _ #! R R W A T A @p Cv! Cv! H Vv0! Av Tg `vP Ap ?v` #! RTj v " % j !! jGv " ! Apj !'! $! P Ap R$ ! ! " T Ev "v P Ev & 0" AvR 5@ Cv!W Hp ?@
0x4948c0…494a54 (5, 9) Opaque[0x194]
0x494a54…494be8 # DirEnt {nam=»ASCEBC«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x2d08, f03=0x0000}
0x494a54…494be8 IdxSect {
0x494a54…494be8 f00 = 0x0168 // 0x494a54 @0x0
0x494a54…494be8 f01 = 0x0004 // 0x494a56 @0x2
0x494a54…494be8 gno = [ // 0x494a58 @0x4
0x494a54…494be8 [0x00]: C0x0168.0x1.0
0x494a54…494be8 [0x01]: C0x0168.0x2.0
0x494a54…494be8 ]
0x494a54…494be8 }
0x494be8…494d7c Dummy {f00=0x0168, f01=0x0190, f02=» " IDENT ASCEBC * 790119 C.EKERT L I************************************************************************ * I* z H I* ASCII / EBCDIC CODE CONVERSION ROUTINE WITH 'CREDIT' INTERFACE. I* D I* 2 ENTRYPOINTS 'ASCEBC' AND 'EBCASC' PROVID
0x494d7c…494f10 Dummy {f00=0x0168, f01=0x0190, f02=»UENCE: x . I* CALL ASCEBC,BUFFER . I* CALL EBCASC,BUFFER @ F I* THE ENTIRE CONTENTS OF THE 'BUFFER' IS CONVERTED r I* L I******************************************************************
0x494f10…4950a4 Dummy {f00=0x0168, f01=0x0190, f02=»* & ! EXTRN TASCII * ASCII CONV. TABLE ( # EXTRN TEBCDIC * EBCDIC CONV. TABLE 4 & " EXTRN I:EVA0 * RETEIVE PARAMETERS ` & P EXTRN I:RT1 * RETURN TO 'CREDIT' * * EJECT * * * CONVERT ASCII TO EBCDIC.
0x4950a4…495238 Dummy {f00=0x0168, f01=0x0190, f02=» * EBCASC EQU * LDKL A6,TASCII " * : * D SETUP EQU * N ST A6,CONVTB b & ! CF A14,I:EVA0 * RETREIVE PARAMS. x * A9 = BUFF START * A5 = BUFF END LDK A6,0 * CLEAR WORK REG. NEXTCH EQU *
0x495238…4953cc Dummy {f00=0x0168, f01=0x40aa, f02=»NVTB EQU *-1 " P SCR A6,A5 * RESTORE NEW BYTE CWR A9,A5 * LAST BYTE???? : RB(NZ) NEXTCH $ P ABL I:RT1 * RETURN TO 'CREDIT' r END @ = BUFF START * A5 = BUFF END LDK A6,0 * CLEAR WORK REG. NEXTCH EQU *
0x4953cc…495560 Dummy {f00=0x0168, f01=0x2008, f02=» *-1 " P SCR A6,A5 * RESTORE NEW BYTE CWR A9,A5 * LAST BYTE???? : RB(NZ) NEXTCH $ P ABL I:RT1 * RETURN TO 'CREDIT' r END @ = BUFF START * A5 = BUFF END LDK A6,0 * CLEAR WORK REG. NEXTCH EQU *
0x495560…4956f4 (5, 10) Dummy {f00=0x0168, f01=0x0190, f02=» h~ !X8H !( @ h~ U !j~ ! ! !P !0# ! N_m ? j !! '( !1j !& !j !! ( * j +& 'j !! ( j ! ! ! 9 ? jy " $ j !! 1 j !! 2 j !! (I !Y A ! p ! ? ! 0 !h & !&P !0# !< _ ( ) +h & '&
0x4956f4…495888 Dummy {f00=0x0168, f01=0x0190, f02=» h^ !T f^ ! !j^ !U !j '! !j !! ( _N ! ( + ~UWhj !! ' !QU I N! 9 ! : ;b ! W:0 ^ h^ U !P :! ;j !!^ b ! f^ ! !A j ! !d^ ! j '! !j !! (( + b +$~ WR j !! '( ! j !! 0 (j ! !W0 )W# + Aj !
0x495888…495a1c Dummy {f00=0x0168, f01=0x0190, f02=» 6 <W U j !!~ W j !! (W Uj ! j '!!! !j !!~ j (!~ _+( # j (! !j !!~ 4 I H~*H $H !@~ W 0$@mI~ Hn @f $U W I~ W I Ao 2 H~ I Ao { _ H{ 2 _ 2 b & . #K~M g "pK s_W!gC ? /_>Iz H 0
0x495a1c…495bb0 Dummy {f00=0x0168, f01=0x0190, f02=»Hm @ P&@jP A W3Ao ,P !_ g  L@mAo? H 0 Hm ! &@h@jP #W @fPO $0 TF 8 h ! !T #P ( -& Ub & ? Ub & @ .P )gC Ao? AzAzT @mA *P @ ? @ @m8 @xP 2 !! h ( & H #: W ? Im1I~ I & h ( & H I ) ?"I ) ?#I H
0x495bb0…495d44 Dummy {f00=0x0168, f01=0x0190, f02=»({ % H~ - !gC Az? @z? H~ C < I 0 ! W 0 ! W /8 0 ! 0$? Az % h ( & J K @o?(@m!gC C~8)?(@zC~8*?(?$Km Jz I gC T Io Ao #: _3Ao@ T / 2 %% + % # #g W ! #g #20 ! &_ I~ Jo K _@ @ !0$@o ( P W 6 - _ Hm 0 ! A %V
0x495d44…495ed8 Dummy {f00=0x0168, f01=0x0190, f02=» 10 ! !0$ (V ? ##2 2 2 322 1& _ Co<$Cm<$Cz8$0 ! 2 %% 4 !X b !U *8 0% ? h ! & ? C <$ h ( & H I ?0 g( " @oW $ 2 %% 5 ): @oA ?6C <$Hz @ T Cm<$Io I~ #V - ? @o@z Ub & 5 +@mA{ *V#( - 1 0 ! 0$ { &{ mU_"@{Ao? m
0x495ed8…49606c Dummy {f00=0x0168, f01=0x0190, f02=» !g2 @m?:?;@ _/0 + 0 , A~4 @~P + , 4 _ ; $ - ; Y g , $ C 3 N + l z g O m
0x49606c…496200 Dummy {f00=0x0168, f01=0x0190, f02=» G Y R *FTX J BC JC FTJBJD FETCHING FORMAT: FROM DISC. @ UF 0 % * $ h h Ub & 5 +@mA{ *V#( - 1 0 ! 0$ { &{ mU_"@{Ao? m
0x496200…496394 (5, 11) Opaque[0x194]
0x496394…496528 # DirEnt {nam=»ASMRUT«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x2d20, f03=0x0000}
0x496394…496528 IdxSect {
0x496394…496528 f00 = 0x0169 // 0x496394 @0x0
0x496394…496528 f01 = 0x0006 // 0x496396 @0x2
0x496394…496528 gno = [ // 0x496398 @0x4
0x496394…496528 [0x00]: C0x0169.0x0.0
0x496394…496528 [0x01]: C0x016e.0x1.0
0x496394…496528 [0x02]: C0x016e.0x2.0
0x496394…496528 ]
0x496394…496528 }
0x496528…4966bc Dummy {f00=0x0169, f01=0x0190, f02=» IDENT ASMRUT DATE:81-02-26 P* ( ( P ENTRY ZASEB CONVERT ASCII TO EBCDIC 2 ( P ENTRY ZEBAS CONVERT EBCDIC TO ASCII ^ * P ENTRY CDV10 CDV CHECK ON STRING ITEM P ENTRY CDV110 "- P ENTRY CDV111 "- P* P EXTRN I:EVA0 P
0x4966bc…496850 Dummy {f00=0x0169, f01=0x0190, f02=»TINE: ZASEB P* P* SHORT NAME: ZE P* 6 D P* PURPOSE: CONVERTS STRING FROM ASCII TO EBCDIC OR VICE VERSA @ P* : P* CALL: CALL ZASEB,STR,START,NCH (ASCII->EBCDIC) : P* CALL ZEBAS,STR,START,NCH (EBCDIC->ASCII)
0x496850…4969e4 Dummy {f00=0x0169, f01=0x0190, f02=» FIRST CH.POS=0 0 P* NCH = # CH:S TO BE CONVERTED. " 6 P* =0 -> REST OF STRING CONVERTED V P* L P************************************************************************ P* P* 000 ZASEB 'SEQ'
0x4969e4…496b78 Dummy {f00=0x0169, f01=0x0190, f02=»******************************************************** P EJECT @ PPOS EQU A4 POINTER IN STRING N PNCH EQU A7 #CH:S r PCH EQU A5 CHARACTER & PCONVTB EQU A6 START OF CONV.TABLE PWR EQU A8 WORK-REGISTER PSAD EQU A9 PARAM.START A
0x496b78…496d0c Dummy {f00=0x0169, f01=0x018e, f02=»BAS EQU * P LDKL CONVTB,TASCII P* . PZE000S EQU * 8 P* L P*** GET PARAMETERADDRESSES V P* z P* P CALL I:EVA0 1.PARAM: STRING ( P LDR POS,SAD POS := START OF STRING & P LDR NCH,EAD NCH := END OF STRING P
0x496d0c…496ea0 Dummy {f00=0x0169, f01=0x0190, f02=» P CALL I:EVA0 3.PARAM: NCH P LDR* WR,SAD * P RF(NP) ZE010 NCH=0? > P LDR NCH,WR NCH>0 Z PZE010 EQU * t P LDK CH,0 CLEAR CH P CWK CONVTB,TEBCDIC P RF(NE) ZE050O P* & P*** CONVERT FROM ASCII TO EBCDIC P
0x496ea0…497034 (5, 12) Dummy {f00=0x016e, f01=0x0190, f02=»M CONV.TABLE | PCNVTB1 EQU *-1 P SCR CH,POS RESTORE NEW BYTE * P ADK POS,1 STEP POINTER N P SUK NCH,1 NCH := NCH - 1 n P RB(P) ZE100I PZE100E EQU * P RF ZE050E P* & P*** CONVERT FROM EBCDIC TO ASCII P*
0x497034…4971c8 Dummy {f00=0x016e, f01=0x0190, f02=»ABLE t PCNVTB2 EQU *-1 P SCR CH,POS RESTORE NEW BYTE " P ADK POS,1 STEP POINTER F P SUK NCH,1 NCH := NCH - 1 f P RB(P) ZE200I PZE200E EQU * PZE050E EQU * PZE000E EQU * P ABL I:RT1 RETURN P EJECT P* 790
0x4971c8…49735c Dummy {f00=0x016e, f01=0x0190, f02=» IN THE STRING b : P* AS CHECK DIGIT(S) IF YOU WANT THE ROUTINE TO , P* CREATE CORRECT CHECK- DIGIT(S) T P* ( P* INPUT CAN BE OF VARIABLE LENGTH P* P* 6 P* CALLING FORMAT: 1. CALL CDV10,STRING,BIN 6 P
0x49735c…4974f0 Dummy {f00=0x016e, f01=0x0190, f02=» 'STRING' = A STRING VARIABLE HOLDING THE B P* INPUT TO MAKE CDV-CHECK ON > L P* (NOT NUMERIC CHARACTERS ARE SKIPPED) H P* 'BIN' = A BINARY ITEM HOL
0x4974f0…497684 Dummy {f00=0x016e, f01=0x0190, f02=» UNSUCCESSFUL j P* P* OUTPUT: CR = 0 OK $ P* CR = 1 NOT OK D P* l , P* 'STRING' IS UNCHANGED v F P* 'BIN' HOLDS CHECK-DIGIT(S) IF CR=1 (ELSE BIN=0) P EJECT P* US
0x497684…497818 Dummy {f00=0x016e, f01=0x0190, f02=»4 CHARACTER SAVE AREA * P* A5 POINTER TO INPUT STRING $ 2 P* A6 MAX VALUE FOR RESTART OF WEIGHT R * P* A7 DIVIDEND FOR TOTAL SUM " P* A10 SUM OF PRODUCTS P* P* P* PARAMETERS FOR CDV
0x497818…4979ac Dummy {f00=0x016e, f01=0x0190, f02=» Z : P* DIVIDEND FOR TOTAL SUM 10 11 11 P EJECT F PCDV110 EQU * T " P LDK A6,11 LOAD RESTART LIMIT h PCD005 EQU * P LDK A7,11 LOAD DIVIDEND P RF CDV20 P* P* PCDV111 EQU * " P LDK A6,10 L
0x4979ac…497b40 Dummy {f00=0x016e, f01=0x0190, f02=»DIVIDEND PCDV20 EQU * ( P CALL I:EVA0 ADDRESS TO INPUT STRING $ P LDK A2,1 LOAD START WEIGHT P P SUR A10,A10 ZERO TO SUM t PCDV30 EQU * P CWR A5,A9 P RF(E) CDV60 IF FINISHED P LC A4,-1,A5 GET CHARACTER P CCK A4,'00'
0x497b40…497cd4 (5, 13) Dummy {f00=0x016e, f01=0x0190, f02=»* MULTIPLY AND ACCUMULATE ONE DIGIT P LDR A1,A2 SET WEIGHT . PCDV40 EQU * L P ADR A10,A4 ADD TO SUM ` P SUK A1,1 DECREMENT COUNTER ~ P RB(P) CDV40 IF MORE TO ADD P CWK A6,2 & P RF(NE) CDV45 RESTART LIMIT =/= 2 & ! CWR A
0x497cd4…497e68 Dummy {f00=0x016e, f01=0x0190, f02=»9 ADJUST SUM CDV45 EQU * ADK A2,1 INCREMENT WEIGHT ( CWR A2,A6 J " RF(NG) CDV50 IF NOT MAX LIMIT LDK A2,1 RESTART WEIGTH CDV50 EQU * SUK A5,1 DECREMENT POINTER RB CDV30 CONTINUE * CDV60 EQU
0x497e68…497ffc Dummy {f00=0x016e, f01=0x417a, f02=»11 FROM SUM x RB(P) CDV70 SUM STILL > 0 RF(Z) CDVOUT IF CDV-OK 6 P NGR A10,A10 GET CHECK DIGIT V LDK A6,1 INDICATE NOT OK z CDVOUT EQU * & ! CALL I:EVA0 GET CHECK-DIGIT ITEM * & STR A10,A9 STORE CHECK-DIGIT IF ERROR
0x497ffc…498190 Dummy {f00=0x016e, f01=0x2008, f02=» SUM x RB(P) CDV70 SUM STILL > 0 RF(Z) CDVOUT IF CDV-OK 6 P NGR A10,A10 GET CHECK DIGIT V LDK A6,1 INDICATE NOT OK z CDVOUT EQU * & ! CALL I:EVA0 GET CHECK-DIGIT ITEM * & STR A10,A9 STORE CHECK-DIGIT IF ERROR
0x498190…498324 Dummy {f00=0x016e, f01=0x0190, f02=»TTTTTTT9 ! I D DELETED INSERTED + ON UNIT:U i + WITHIN JOB: k RECOVERY RUNNING. RECORD CORRECTION F FREEZING OF BATCH l CONFIRM RECORD INSERT CONFIRM RECORD DELETE: RECORD MUST BE VERIFIED ENTER WANT
0x498324…4984b8 Dummy {f00=0x016e, f01=0x0190, f02=»FF* RECOVERY OF : k B : l RUNNING. ( ',!.%)$&"#-* $ * 0 7 ? G P Y c0 m * 5 A Q c w
0x4984b8…49864c Dummy {f00=0x016e, f01=0x0190, f02=» L @ D H( &Ad1 An@m 6 0 _ @n_ ( !'( _&3 @d0 0} h* h _? ! 4 6 99 W 2 !8 "8 #8 W j " # L j " "# P|j " $# Pr? ! !6 +; ^# 8Zb !" Xj !# 'bc (c" 3? 1? ? @ W' ## 7 ! ? " 5 " " ! T T
0x49864c…4987e0 Dummy {f00=0x016e, f01=0x0190, f02=»2 _ !0 #$} & 2 _,4 j 1! ! !j 2! ! 4 R ! 4 Hd ? ! 8T & ( !0 #$}? ) _ ! Zb "" " < $ U@f@e0 " An 2 _ ! : ! @ ; W < " ! j " j $" Af07~ 0 "P 07~ j~#!
0x4987e0…498974 (5, 14) Opaque[0x194]
0x498974…498b08 # DirEnt {nam=»LIST «, typ=»UF«, f00=0x0000, f01=0x0000, f02=0x2de8, f03=0x0000}
0x498974…498b08 IdxSect {
0x498974…498b08 f00 = 0x016f // 0x498974 @0x0
0x498974…498b08 f01 = 0x0002 // 0x498976 @0x2
0x498974…498b08 gno = [ // 0x498978 @0x4
0x498974…498b08 [0x00]: C0x016f.0x1.0
0x498974…498b08 ]
0x498974…498b08 }
0x498b08…498c9c Dummy {f00=0x016f, f01=0x0070, f02=» PRT /S,P1370 ASM TSUTL1 ASM CPDKMT * ASM ASCEBC < ASM ASMRUT N ASG /E0,TY10 `ASG /E0,TY10 p@ OREPLA MASK T:XSTA9 | + ! + ' 3 3
0x498c9c…498e30 Dummy {f00=0x016f, f01=0x2008, f02=» /S,P1370 ASM TSUTL1 ASM CPDKMT * ASM ASCEBC < ASM ASMRUT N ASG /E0,TY10 `ASG /E0,TY10 p@ OREPLA MASK T:XSTA9 | + ! + ' 3 3
0x498e30…498fc4 Dummy {f00=0x016f, f01=0x0190, f02=»)c ' ) ' j (! '!f c! ! d!? ` 4 j b c a j c!a! b b! c!f cb db4 j b u a4 u $ #@g c hZ a b! +2 jc!! b"c W 6 b! !jc!! b"c b! !W, ! b! !Hg ( 'b `3d b!Z` b! ! !@g _ " ,0 b! ! `bh `!Z2
0x498fc4…499158 Dummy {f00=0x016f, f01=0x0190, f02=»b! ! ' j '!! b ' j b!Z= 'b '!Ag_ 4 b!jc!! b c ` m ` f b!d b` `! ` b` ` !Hg '`4 1& P # W !05 p! u ! " !! w jw!! {1j !! {2 w d "2@h u" ! Kh !@k ~60 oT @j~ # # - b o -( q0 TF b , ! , " , # E h )
0x499158…4992ec Dummy {f00=0x016f, f01=0x0190, f02=» &%W #$d &%( A b ~6Ak_Dj~ b #* Ii !"d &%W #$d &% ~6Ak4 + 1& P W !2 1& P # W ! 4 @l #hQ 0 !0 6 F MMMMMM? !j !! !_9 "_> Hj j !! {(j { ! % { $! 0 ""Il _h !Ah? Al - ! j !!
0x4992ec…499480 Dummy {f00=0x016f, f01=0x0190, f02=» !: ":H "< #:H #< $:H $< %<H %:H "8 # oU U b ! " # $ + ~E U # hQ 0 !T 2 W W #_) !j !! !( "Q Ii "_H ! `! a! !07 h )Q ! ! # `" a j a` j a` ! ( !_ $ 6 1j b#~ W j b#~#W j